Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-03-13 16:31:16 +00:00
Code Issues Projects Releases Wiki Activity

OSGBPB can write to CB in AuxZP now.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-19 14:31:50 -04:00
parent 64d3cfbb18
commit d48fc89d1c
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

14
mainmem.svc.s
View File

@ -374,17 +374,19 @@ GBPB >>> ENTMAIN
BRA :L1
* ...
:ERR
:ZERO LDA GBPBAUXCB+0 ; Copy control block back ..
STA ZPMOS+0 ; .. to aux memory
LDA GBPBAUXCB+1
STA ZPMOS+1
LDY #$0C
:ZERO >>> ALTZP ; Control block can be in ZP!
>>> WRTAUX
LDA GBPBAUXCB+0 ; Copy control block back to aux
STA $B0+0 ; $B0 in AltZP is temp FS workspace
LDA GBPBAUXCB+1
STA $B0+1
LDY #$0C
:L2 LDA GBPBBLK,Y
STA (ZPMOS),Y
STA ($B0),Y
DEY
BPL :L2
>>> WRTMAIN
>>> MAINZP
>>> XF2AUX,OSGBPBRET
* ProDOS file handling for MOS OSBGET call