Mercurial > hg > Members > kono > nitros9-code

changeset 919:35aaf7ec1c07

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added comments
author boisy
date Sun, 19 Jan 2003 06:10:15 +0000
parents 66fe834fdbb9
children cfed0d7751f3
files level1/cmds/free.asm
diffstat 1 files changed, 17 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/free.asm	Sun Jan 19 06:06:40 2003 +0000
+++ b/level1/cmds/free.asm	Sun Jan 19 06:10:15 2003 +0000
@@ -27,7 +27,7 @@
 u0000    rmb   1
 u0001    rmb   1
 u0002    rmb   1
-u0003    rmb   1
+devpath  rmb   1
 u0004    rmb   1
 u0005    rmb   2
 u0007    rmb   1
@@ -52,7 +52,7 @@
 
 name     fcs   /Free/
          fcb   edition
-L0012    fcb   C$LF
+HelpMsg  fcb   C$LF
          fcc   "Use: free [/diskname]"
          fcb   C$LF
          fcc   "  tells how many disk sectors are unused"
@@ -73,11 +73,11 @@
          beq   L00E0
          cmpa  #PDELIM
          beq   L00CC
-L00BC    leax  >L0012,pcr
-         ldy   #$0040
-         lda   #$02
-         os9   I$WritLn 
-         lbra  L01CC
+L00BC    leax  >HelpMsg,pcr		point to help message
+         ldy   #64			max bytes
+         lda   #$02			stderr
+         os9   I$WritLn 		write it
+         lbra  ExitOk			and branch
 L00CC    leax  -$01,x
          pshs  x
          os9   F$PrsNam 
@@ -94,12 +94,12 @@
          stx   <u0001
          lda   #READ.
          os9   I$Open   
-         sta   <u0003
+         sta   <devpath
          bcs   L00FF
          leax  <u005D,u
          ldy   #$003F
          os9   I$Read   
-L00FF    lbcs  L01CD
+L00FF    lbcs  Exit
          lbsr  L0222
          lda   #$22
          lbsr  L0218
@@ -134,7 +134,7 @@
          std   <u000B
          sta   <u0007
          std   <u0008
-         lda   <u0003
+         lda   <devpath
          ldx   #$0000
          pshs  u
          ldu   #$0100
@@ -148,9 +148,9 @@
 L0178    leay  d,x
          sty   <u009C
          tfr   d,y
-         lda   <u0003
+         lda   <devpath
          os9   I$Read   
-         bcs   L01CD
+         bcs   Exit
 L0186    lda   ,x+
          bsr   L01D0
          stb   ,-s
@@ -179,11 +179,11 @@
          leay  >L009F,pcr
          bsr   L020C
          bsr   L0222
-         lda   <u0003
+         lda   <devpath
          os9   I$Close  
-         bcs   L01CD
-L01CC    clrb  
-L01CD    os9   F$Exit   
+         bcs   Exit
+ExitOk   clrb  
+Exit     os9   F$Exit   
 L01D0    clrb  
          cmpa  #$FF
          beq   L01ED
@@ -273,6 +273,7 @@
          bsr   L0218
          bra   L025C
 L0291    puls  pc,y,x,b,a
+
 L0293    leax  <u0077,u
          bsr   L02C3
          bsr   L029A