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

shave some bytes

Browse Source
This commit is contained in:
4am 2021-04-16 11:03:53 -04:00
parent 8655cd707d
commit d1de957c6f
5 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/apicode.a
View File

@ -43,7 +43,7 @@
!byte FALSE ; 0=true, 1=false
;gHardDiskExists
!byte FALSE ; 0=true, 1=false
; !byte FALSE ; 0=true, 1=false
;gRAMDiskRef
!byte 00 ; handle of RAM disk

6
src/apidefs.a
View File

@ -116,8 +116,8 @@ gMECCFastloadType = gIs13Sector-$01 ; byte
gOnAClearDayYouCanReadForever = gMECCFastloadType-$01 ; byte
gUsingRAMDisk = gOnAClearDayYouCanReadForever-$01 ; byte
gRAMDiskRef = gUsingRAMDisk-$01 ; byte
gHardDiskExists = gRAMDiskRef-1 ; byte
gUsingHardDisk = gHardDiskExists-1 ; byte
;gHardDiskExists = gRAMDiskRef-1 ; byte
gUsingHardDisk = gRAMDiskRef-1 ; byte
gHardDiskRef = gUsingHardDisk-$01 ; byte
gDisplayBytes = gHardDiskRef-$0A ; 10 bytes
jcompare = gDisplayBytes-$03 ; 3-byte
@ -194,7 +194,7 @@ ConstructStandardDelivery = jConstructStandardDelivery
!warn "gOnAClearDayYouCanReadForever=",gOnAClearDayYouCanReadForever
!warn "gUsingRAMDisk=",gUsingRAMDisk
!warn "gRAMDiskRef=",gRAMDiskRef
!warn "gHardDiskExists=",gHardDiskExists
;!warn "gHardDiskExists=",gHardDiskExists
!warn "gUsingHardDisk=",gUsingHardDisk
!warn "gHardDiskRef=",gHardDiskRef
!warn "gDisplayBytes=",gDisplayBytes

2
src/initscan.a
View File

@ -124,7 +124,7 @@ ScanForRAMAndHardDisks
tay
pla
sta DiskIIArray+7-1,y ;;HardDiskArray-1,y
stx gHardDiskExists
; stx gHardDiskExists
bne - ;continue search, always taken
SlashRAM !byte $2F, $52, $41, $4D

11
src/slots.a
View File

@ -1,11 +1,16 @@
DiskIIArray
!byte 00,00,00,00,00,00,00
HardDiskArray
HardDiskArray ; must be immediately after DiskIIArray
!byte 00,00,00,00,00,00,00
!byte 00,00,00,00,00,00,00,00
;-------------------------------
; NextSlot
; in: DiskIIArray, HardDiskArray filled by calling
; ScanForDiskII and ScanForRAMAndHardDisks
; out: @SLOT, @DRIVE set to ASCII values of
; next available slot/drive
; @g
;-------------------------------
!zone {
NextSlot
@ -41,9 +46,7 @@ NextSlot
.checkdrive
lda HardDiskArray-1,x
beq .incslot
pha
jsr SwapProDOS
pla
jsr SwapProDOS ; preserves A
jsr GetVolumeName
jsr SwapProDOS
ldy #TRUE

2
src/strings/en.a
View File

@ -338,7 +338,7 @@ StringTableHigh
.passport
!text "Passport ",$00
.header
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-04-15",$00
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-04-16",$00
.bar9
!text "_________",$00
.bar18