Mercurial > hg > Members > kono > nitros9-code

changeset 846:c6e6cf68e03e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Optimized
author boisy
date Tue, 14 Jan 2003 15:55:38 +0000
parents 4dda505a9d31
children c5ed817a59d0
files level1/cmds/attr.asm level1/cmds/binex.asm level1/cmds/copy.asm level1/cmds/exbin.asm
diffstat 4 files changed, 49 insertions(+), 34 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/attr.asm	Tue Jan 14 15:38:47 2003 +0000
+++ b/level1/cmds/attr.asm	Tue Jan 14 15:55:38 2003 +0000
@@ -22,6 +22,8 @@
 rev      set   $01
 edition  set   11
 
+DOHELP   set   1
+
          mod   eom,name,tylg,atrv,start,size
 
 fpath    rmb   1
@@ -44,11 +46,13 @@
 name     fcs   /Attr/
          fcb   edition
 
-L0012    fcb   C$LF
+         IFNE  DOHELP
+HelpMsg  fcb   C$LF
          fcc   "Use: Attr <pathname> {[-]<opts>}"
          fcb   C$LF
          fcc   " opts: -d s r w e pr pw pe -a"
          fcb   C$CR
+         ENDC
 L0052    fcb   C$LF
          fcc   "You do not own that file."
          fcb   C$CR
@@ -164,13 +168,18 @@
          leax  <u0078,u
          clrb  
          bra   L01B0
-L01AC    leax  >L0012,pcr
+         IFNE  DOHELP
+L01AC    leax  >HelpMsg,pcr
+         ENDC
 L01B0    pshs  b
          lda   #2
          ldy   #256
          os9   I$WritLn
          comb  
          puls  b
+         IFEQ  DOHELP
+L01AC    equ   *
+         ENDC
 L01BE    os9   F$Exit
 L01C1    clrb  
          leax  >L0052,pcr
--- a/level1/cmds/binex.asm	Tue Jan 14 15:38:47 2003 +0000
+++ b/level1/cmds/binex.asm	Tue Jan 14 15:55:38 2003 +0000
@@ -7,6 +7,8 @@
 * ------------------------------------------------------------------
 *  67    From Tandy OS-9 Level One VR 02.00.00
 *  68    Set proper edition
+*   1    Restarted edition, removed Motorola copyright  BGP 03/01/14
+
 
          nam   Binex
          ttl   Motorola S-Record utility
@@ -20,7 +22,7 @@
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $01
-edition  set   68
+edition  set   1
 
          mod   eom,name,tylg,atrv,start,size
 
@@ -47,18 +49,18 @@
 name     fcs   /Binex/
          fcb   edition
 
-         fcc   "Copyright 1982 Motorola, Inc."
-         fcb   $01 
+*         fcc   "Copyright 1982 Motorola, Inc."
+*         fcb   $01 
 
 start    stx   <u0002
-         lda   #$01
+         lda   #READ.
          os9   I$Open   
          bcc   L003C
 L0039    os9   F$Exit   
 L003C    sta   <u0000
          stx   <u0002
-         lda   #$02
-         ldb   #$7F
+         lda   #WRITE.
+         ldb   #SHARE.+PEXEC.+PWRIT.+PREAD.+EXEC.+UPDAT.
          os9   I$Create 
          bcs   L0039
          sta   <u0001
@@ -72,9 +74,9 @@
          ldx   #$3030
          stx   <u0031
          stx   <u0033
-L0062    leax  >L0217,pcr
+L0062    leax  >AskStart,pcr
          lda   #$01
-         ldy   #$0022
+         ldy   #AskStrtL
          os9   I$Write  
          leax  <u0031,u
          lda   #$00
@@ -102,9 +104,9 @@
          decb  
          bgt   L00A2
 L00A7    lbsr  L0178
-         leax  >L01F9,pcr
+         leax  >AskName,pcr
          lda   #$01
-         ldy   #$001E
+         ldy   #AskNameL
          os9   I$Write  
          leax  u000C,u
          lda   #$00
@@ -130,9 +132,9 @@
          ldx   u000C,u
          cmpx  #$87CD
          beq   L0120
-         leax  >L0239,pcr
+         leax  >Alert,pcr
          pshs  y
-         ldy   #$003C
+         ldy   #AlertL
          lda   #$01
          os9   I$Write  
          leax  <u0035,u
@@ -237,11 +239,14 @@
          adda  #$07
 L01D6    rts   
 L01D7    fcc   "** NON-HEX CHARACTER ENCOUNTERED"
-         fcb   $07,C$CR
-L01F9    fcc   "Enter name for header record: "
-L0217    fcc   "Enter starting address for file: $"
-L0239    fcb   $07,C$CR,C$LF
+         fcb   C$BELL,C$CR
+AskName  fcc   "Enter name for header record: "
+AskNameL equ   *-AskName
+AskStart fcc   "Enter starting address for file: $"
+AskStrtL equ   *-AskStart
+Alert    fcb   C$BELL,C$CR,C$LF
          fcc   "** Not a binary load module file.  Proceed anyway (Y/N)? "
+AlertL   equ   *-Alert
 
          emod
 eom      equ   *
--- a/level1/cmds/copy.asm	Tue Jan 14 15:38:47 2003 +0000
+++ b/level1/cmds/copy.asm	Tue Jan 14 15:55:38 2003 +0000
@@ -86,7 +86,7 @@
          fcb   C$LF
          fcc   /  -s = single drive copy/
          fcb   C$LF
-         fcc   /  -w=<dir> = copy files to <dir>/
+         fcc   /  -w=<dir> = copy to <dir>/
          fcb   C$LF
          fcc   /  -x = copy from exec dir/
          fcb   C$CR
--- a/level1/cmds/exbin.asm	Tue Jan 14 15:38:47 2003 +0000
+++ b/level1/cmds/exbin.asm	Tue Jan 14 15:55:38 2003 +0000
@@ -7,6 +7,7 @@
 * ------------------------------------------------------------------
 *  67    From Tandy OS-9 Level One VR 02.00.00
 *  68    Made proper edition number                     BGP 02/07/14
+*   1    Restarted edition, removed Motorola copyright  BGP 03/01/14
 
          nam   Exbin
          ttl   Motorola S-Record utility
@@ -20,7 +21,7 @@
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $01
-edition  set   68
+edition  set   1
 
          mod   eom,name,tylg,atrv,start,size
 
@@ -46,18 +47,18 @@
 name     fcs   /Exbin/
          fcb   edition
 
-         fcc   "Copyright 1982 Motorola, Inc."
-         fcb   $01 
+*         fcc   "Copyright 1982 Motorola, Inc."
+*         fcb   $01 
 
 start    stx   <u0002
-         lda   #$01
+         lda   #READ.
          os9   I$Open   
          bcc   L003C
 L0039    os9   F$Exit   
 L003C    sta   <u0000
          stx   <u0002
-         lda   #$02
-         ldb   #$7F
+         lda   #WRITE.
+         ldb   #SHARE.+PEXEC.+PWRIT.+PREAD.+EXEC.+UPDAT.
          os9   I$Create 
          bcs   L0039
          sta   <u0001
@@ -111,7 +112,7 @@
          beq   L00C0
          cmpx  <u0004
          beq   L00C6
-         leax  >L018D,pcr
+         leax  >NonCtg,pcr
          bra   L00DE
 L00C0    ldx   <u0004
          lda   #$01
@@ -127,7 +128,7 @@
          lda   <u0008
          inca  
          beq   L00EB
-         leax  >L0171,pcr
+         leax  >CSumErr,pcr
 L00DE    lda   #$02
          ldy   #$00FF
          os9   I$WritLn 
@@ -177,14 +178,14 @@
          cmpa  #$0F
          bhi   L0149
 L0148    rts   
-L0149    leax  >L014F,pcr
+L0149    leax  >NonHex,pcr
          bra   L00DE
-L014F    fcc   "** NON-HEX CHARACTER ENCOUNTERED"
-         fcb   $07,C$CR
-L0171    fcc   "** CHECKSUM ERROR DETECTED"
-         fcb   $07,C$CR
-L018D    fcc   "** NON-CONTIGUOUS ADDRESS SPACE DETECTED"
-         fcb   $07,C$CR
+NonHex   fcc   "** Non-hex character encountered"
+         fcb   C$BELL,C$CR
+CSumErr  fcc   "** Checksum error detected"
+         fcb   C$BELL,C$CR
+NonCtg   fcc   "** Non-contiguous address space detected"
+         fcb   C$BELL,C$CR
 
          emod
 eom      equ   *