Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Refactoring GBPB routine, preparing for writing.

This commit is contained in:
Bobbi Webber-Manners 2022-09-19 21:02:59 -04:00
parent 33c9459151
commit afd7722fb5
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
mainmem.svc.s
View File

@ -329,11 +329,9 @@ CFILE >>> ENTMAIN
* A=4 : Read bytes from disk, ignoring seq pointer
* All others unsupported
GBPB >>> ENTMAIN
*
* TODO: THIS ALWAYS READS ATM, NEEDS TO WRITE ALSO!!
*
PHA
LSR A ; Test LSB of A
BCC :NOSEEK ; A=2 or 4, no seek
BCC :L1 ; A=2 or 4, no seek
LDA GBPBHDL ; File ref number
STA GMARKPL+1
LDY #$02 ; Copy file pointer
@ -345,9 +343,13 @@ GBPB >>> ENTMAIN
DB SMARKCMD
DW GMARKPL
BCS :ERR
:NOSEEK LDA GBPBHDL ; File ref number
:L1 PLA
PHA
CMP #$02 ; If A<=2 WRITE
BCC :WRITE
:READ LDA GBPBHDL ; File ref number
STA READPL2+1
:L1 JSR MLI ; Read one byte from file
JSR MLI ; Read one byte from file
DB READCMD
DW READPL2
BCS :ERR
@ -359,7 +361,11 @@ GBPB >>> ENTMAIN
>>> WRTAUX
STA (ZPMOS) ; Store byte in aux mem
>>> WRTMAIN
INC GBPBDAT+0 ; Increment data pointer
BRA :UPDCB
:WRITE
* TODO
:UPDCB INC GBPBDAT+0 ; Increment data pointer
BNE :S1
INC GBPBDAT+1
:S1 INC GBPBPTR+0 ; Increment file pointer
@ -374,9 +380,9 @@ GBPB >>> ENTMAIN
DEC GBPBNUM+1
:S3 DEC GBPBNUM+0
BRA :L1
* ...
:ERR
:ZERO >>> ALTZP ; Control block can be in ZP!
:ZERO PLA ; Throw away A
>>> 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
@ -391,6 +397,7 @@ GBPB >>> ENTMAIN
>>> MAINZP
>>> XF2AUX,OSGBPBRET
* ProDOS file handling for MOS OSBGET call
* Returns with char read in A and error num in Y (or 0)
FILEGET >>> ENTMAIN