changeset 248:07a986b7a4fe

Better commenting
author boisy
date Sat, 20 Jul 2002 04:01:15 +0000
parents 7b282be4703e
children 30655a7845f7
files level1/modules/ccdisk.asm
diffstat 1 files changed, 13 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/ccdisk.asm	Sat Jul 20 04:01:01 2002 +0000
+++ b/level1/modules/ccdisk.asm	Sat Jul 20 04:01:15 2002 +0000
@@ -87,9 +87,9 @@
          decb  
          bne   L0041
          leax  >NMIRtn,pcr
-         stx   >$010A
+         stx   >D.XNMI
          lda   #$7E
-         sta   >$0109
+         sta   >D.XSWI+1
          pshs  y
          leay  >DevStRg,u
          tfr   y,d
@@ -144,14 +144,14 @@
 *    B  = error code
 *
 Read     lda   #$91
-         cmpx  #$0000
-         bne   L00AD
-         bsr   L00AD
+         cmpx  #$0000		LSN0?
+         bne   L00AD		branch if not
+         bsr   L00AD		else branch subroutine
          bcs   L00A3
-         ldx   $08,y
+         ldx   PD.BUF,y		get pointer to buffer
          pshs  y,x
          ldy   >CurDMem,u
-         ldb   #$14
+         ldb   #DD.SIZ-1	copy bytes from buffer to LSN0 buffer
 L0099    lda   b,x
          sta   b,y
          decb  
@@ -163,6 +163,7 @@
          pshs  x,b,a
          lbsr  L02D0
          puls  x,b,a
+
 L00AD    pshs  x,b,a
          bsr   L00B8
          puls  x,b,a
@@ -171,7 +172,7 @@
          bne   L00A4
 L00B8    lbsr  L019E
          bcs   L00A3
-         ldx   $08,y
+         ldx   PD.BUF,y
          pshs  y,cc
          ldb   #$80
          bsr   L00E6
@@ -217,7 +218,7 @@
          bsr   L0129
          puls  x,b,a
          bcs   L0119
-         tst   <$28,y
+         tst   <PD.VFY,y
          bne   L0117
          bsr   Verify
          bcs   L0119
@@ -232,7 +233,7 @@
          bra   L0106
 L0129    bsr   L019E
          bcs   L0118
-         ldx   $08,y
+         ldx   PD.BUF,y
          ldb   #$A0
 L0131    pshs  y,cc
          bsr   L00E6
@@ -322,7 +323,8 @@
          clrb
          lbsr  L0372
          pshs  x
-         ldx   #$222E
+*         ldx   #$222E
+         ldx   #$082E
 L0201    leax  -$01,x
          bne   L0201
          puls  x