Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-12-21 13:29:19 +00:00
Code Issues Projects Releases Wiki Activity

add access to vars, and some comments

Browse Source
This commit is contained in:
4am 2021-04-16 11:48:53 -04:00
parent d1de957c6f
commit f386a55fc9
4 changed files with 16 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -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

10
src/apidefs.a
View File

@ -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
; this is $10, so don't change it!
BASEPAGE = $10 ; high byte of $1000-byte buffer that
; 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

23
src/initscan.a
View File

@ -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 -
;ensure writable
lda filetype-1 ;;access
bne - ; ProDOS volume type says this isn't a directory, so skip it
lda 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

1
winmake.bat
View File

@ -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