add access to vars, and some comments

Makefile

@@ -41,6 +41,7 @@ asm:
 	grep "OnlineReturn=" build/vars.log | cut -d":" -f3 | cut -d"(" -f1 >> build/vars.a
 	grep "GetVolumeInfo=" build/vars.log | cut -d":" -f3 | cut -d"(" -f1 >> build/vars.a
 	grep "filetype=" build/vars.log | cut -d":" -f3 | cut -d"(" -f1 >> build/vars.a
+	grep "access=" build/vars.log | cut -d":" -f3 | cut -d"(" -f1 >> build/vars.a
 	grep "VolumeName=" build/vars.log | cut -d":" -f3 | cut -d"(" -f1 >> build/vars.a
 	grep "auxtype=" build/vars.log | cut -d":" -f3 | cut -d"(" -f1 >> build/vars.a
 	grep "blocks=" build/vars.log | cut -d":" -f3 | cut -d"(" -f1 >> build/vars.a

src/apidefs.a

@@ -41,7 +41,7 @@ tmpx     =     $FD        ; byte
 tmpy     =     $FE        ; byte
 flag     =     $FF        ; byte
 
-; Application constants (not zero addresses)
+; Other application-specific addresses
 !ifdef RELBASE {
 !set VERBOSE = $00        ; override for make script
 } else {
@@ -50,8 +50,10 @@ RELBASE  =     $2000      ; dummy assignment for first build
 }
 LOWPOINT =     $4000      ; lowest available address for code
 HIGHPOINT =    $B200      ; highest available address+1 for code
-BASEPAGE =     $10        ; Special Delivery tracer assumes
+BASEPAGE =     $10        ; high byte of $1000-byte buffer that
-                          ; this is $10, so don't change it!
+                          ; holds sector data for current track
+                          ; Special Delivery tracer assumes this
+                          ; is $10, so don't change it!
 
 ;-------------------------------
 ; globally-accessible variables
@@ -116,7 +118,6 @@ gMECCFastloadType             = gIs13Sector-$01                   ; byte
 gOnAClearDayYouCanReadForever = gMECCFastloadType-$01             ; byte
 gUsingRAMDisk                 = gOnAClearDayYouCanReadForever-$01 ; byte
 gRAMDiskRef                   = gUsingRAMDisk-$01                 ; byte
-;gHardDiskExists               = gRAMDiskRef-1                     ; byte
 gUsingHardDisk                = gRAMDiskRef-1                     ; byte
 gHardDiskRef                  = gUsingHardDisk-$01                ; byte
 gDisplayBytes                 = gHardDiskRef-$0A                  ; 10 bytes
@@ -194,7 +195,6 @@ ConstructStandardDelivery = jConstructStandardDelivery
 !warn "gOnAClearDayYouCanReadForever=",gOnAClearDayYouCanReadForever
 !warn "gUsingRAMDisk=",gUsingRAMDisk
 !warn "gRAMDiskRef=",gRAMDiskRef
-;!warn "gHardDiskExists=",gHardDiskExists
 !warn "gUsingHardDisk=",gUsingHardDisk
 !warn "gHardDiskRef=",gHardDiskRef
 !warn "gDisplayBytes=",gDisplayBytes

src/initscan.a

@@ -58,25 +58,20 @@ ScanForRAMAndHardDisks
          tay
          pla
          ldx   DiskIIArray-1,y
-         bne   -
+         bne   -                     ; ScanForDiskII already detected that this slot is a floppy drive, so skip it
          jsr   GetVolumeName
-         bcs   -
+         bcs   -                     ; can't get a volume name, so skip it
          lda   OnlineReturn
-         beq   -
+         and   #$0F
+         beq   -                     ; volume name length=0 means an error occurred, so skip it
          jsr   GetVolumeInfo
-
-         ;watch for ProDOS volume type
-
          lda   filetype
          and   #$0F
          cmp   #$0F
-         bne   -
+         bne   -                     ; ProDOS volume type says this isn't a directory, so skip it
-
+         lda   access
-         ;ensure writable
-
-         lda   filetype-1 ;;access
          and   #$02
-         beq   -
+         beq   -                     ; volume is not writeable, so skip it
 
          ;check free space
          ;need at least $118 blocks
@@ -88,10 +83,10 @@ ScanForRAMAndHardDisks
          lda   auxtype+1
          sbc   blocks+1
          cmp   #1
-         bcc   -
+         bcc   -                     ; not enough free space, so skip it
          bne   +
          cpx   #$18
-         bcc   -
+         bcc   -                     ; not enough free space, so skip it
 +        ldx   #TRUE
 
          ;check for RAM[x] by name

winmake.bat

@@ -33,6 +33,7 @@ for /f "tokens=4,* delims=:(" %%q in ('find "GetVolumeName=" ..\build\out.txt')
 for /f "tokens=4,* delims=:(" %%q in ('find "OnlineReturn=" ..\build\out.txt') do echo %%q >> ..\build\vars.a
 for /f "tokens=4,* delims=:(" %%q in ('find "GetVolumeInfo=" ..\build\out.txt') do echo %%q >> ..\build\vars.a
 for /f "tokens=4,* delims=:(" %%q in ('find "filetype=" ..\build\out.txt') do echo %%q >> ..\build\vars.a
+for /f "tokens=4,* delims=:(" %%q in ('find "access=" ..\build\out.txt') do echo %%q >> ..\build\vars.a
 for /f "tokens=4,* delims=:(" %%q in ('find "VolumeName=" ..\build\out.txt') do echo %%q >> ..\build\vars.a
 for /f "tokens=4,* delims=:(" %%q in ('find "auxtype=" ..\build\out.txt') do echo %%q >> ..\build\vars.a
 for /f "tokens=4,* delims=:(" %%q in ('find "blocks=" ..\build\out.txt') do echo %%q >> ..\build\vars.a