diff level1/modules/pipeman.asm @ 1279:9a563c32979a

ChangeLog updates
author boisy
date Wed, 27 Aug 2003 21:31:07 +0000 (2003-08-27)
parents 668388823050
children 48d47eb305dc
line wrap: on
line diff
--- a/level1/modules/pipeman.asm	Wed Aug 27 21:29:03 2003 +0000
+++ b/level1/modules/pipeman.asm	Wed Aug 27 21:31:07 2003 +0000
@@ -29,25 +29,33 @@
 name     fcs   /PipeMan/
          fcb   edition
 
-start    lbra  L0042
-         lbra  L0042
-         lbra  L003C
-         lbra  L003C
-         lbra  L003C
-         lbra  L0040
-         lbra  L00A9
-         lbra  L00F7
-         lbra  L00A3
-         lbra  L00F0
-         lbra  L0040
-         lbra  L0040
-         lbra  L0078
-L003C    comb  
-         ldb   #$D0
+start    lbra  Create
+         lbra  Open
+         lbra  MakDir
+         lbra  ChgDir
+         lbra  Delete
+         lbra  Seek
+         lbra  Read
+         lbra  Write
+         lbra  ReadLn
+         lbra  WritLn
+         lbra  GetStt
+         lbra  SetStt
+         lbra  Close
+MakDir
+ChgDir
+Delete
+         comb  
+         ldb   #E$UnkSvc
          rts   
-L0040    clrb  
+Seek 
+GetStt
+SetStt
+         clrb  
          rts   
-L0042    ldu   $06,y
+Create
+Open
+         ldu   $06,y
          ldx   $04,u
          pshs  y
          os9   F$PrsNam 
@@ -71,7 +79,7 @@
 L0073    comb  
          ldb   #$D7
          puls  pc,y
-L0078    lda   $02,y
+Close    lda   $02,y
          bne   L0086
          ldu   $08,y
          ldd   #$0100
@@ -92,10 +100,10 @@
          os9   F$Send   
 L00A1    clrb  
          rts   
-L00A3    ldb   #$0D
+ReadLn   ldb   #$0D
          stb   $0D,y
          bra   L00AB
-L00A9    clr   $0D,y
+Read     clr   $0D,y
 L00AB    leax  $0A,y
          lbsr  L0140
          bcs   L00EB
@@ -129,10 +137,10 @@
 L00EA    clrb  
 L00EB    leax  $0A,y
          lbra  L019D
-L00F0    ldb   #$0D
+WritLn   ldb   #$0D
          stb   <$11,y
          bra   L00FA
-L00F7    clr   <$11,y
+Write    clr   <$11,y
 L00FA    leax  $0E,y
          lbsr  L0140
          bcs   L013C