Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-01-29 22:29:51 +00:00
Code Issues Projects Releases Wiki Activity

retry failed I/O

Browse Source
This commit is contained in:
Peter Ferrie 2022-06-12 17:06:20 -07:00
parent c4f56c5ccb
commit c8f4ef21e0
3 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
res/dsk/Columns.po
View File

Binary file not shown.

14
src/constants.a
View File

@ -11,7 +11,7 @@
; ...unused...
; E000..E3FF - HGR font data
; ...unused...
; E76A..FFEB - main program code
; E73A..FFEB - main program code
; FFEC..FFF9 - API functions and global constants available for main program
; code, prelaunchers, transition effects, &c.
; (LoadFileDirect, Wait/UnwaitForVBL, MockingboardStuff, MachineStatus)
@ -19,10 +19,10 @@
;
; LC RAM BANK 2
; D000..D5FF - ProRWTS data
; D600..D8B4 - ProRWTS code
; D8B5..DC6D - ProRWTS glue code
; DC6E..DC73 - backup of stack (during gameplay and self-running demos)
; DC74..DC79 - okvs cache (attract state saved across self-running demo)
; D600..D8B6 - ProRWTS code
; D8B7..DC6F - ProRWTS glue code
; DC70..DC75 - backup of stack (during gameplay and self-running demos)
; DC76..DC7B - okvs cache (attract state saved across self-running demo)
; ...unused...
; DFB4..DFFF - (de)acceleration function
;
@ -214,8 +214,8 @@ PRELAUNCH_STANDARD_SIZE = 61 ; LoadStandardPrelaunch, eventually to be d
; shared symbols for prelaunch and effects to call ProRWTS2 functions
iCurBlockLo = $D601 ; constant
iCurBlockHi = $D603 ; constant
launchpatch = $D853 ; glue.launch.a
itraverse = $DB42 ; Roger Rabbit, avoid, use Infiltrator 2 style instead
launchpatch = $D855 ; glue.launch.a
itraverse = $DB44 ; Roger Rabbit, avoid, use Infiltrator 2 style instead
; also Columns (via file in disk image)
ldrlo = $55 ; constant
ldrhi = $56 ; constant

2
src/prorwts2.a
View File

@ -3538,6 +3538,7 @@ unrentrysei = unrelochdd + (* - reloc)
php
sei
} ;no_interrupts = 1
retry
unrentry = unrelochdd + (* - reloc)
jsr $d1d1
!if use_smartport = 1 {
@ -3546,6 +3547,7 @@ pcommand !byte $2c ;hide packet in non-SmartPort mode
unrppacket = unrelochdd + (* - reloc)
!word unrelochdd + (packet - reloc)
} ;use_smartport = 1
bcs retry
!if no_interrupts = 1 {
plp
} ;no_interrupts = 1