Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-12 16:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Fixed OSGBPB seeking bug.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-19 00:48:54 -04:00
parent a32db137ce
commit 63de6efbc2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mainmem.svc.s
View File

@ -340,14 +340,14 @@ GBPB >>> ENTMAIN
:L0 LDA GBPBPTR+0,Y :L0 LDA GBPBPTR+0,Y
STA GMARKPL+2,Y STA GMARKPL+2,Y
DEY DEY
BMI :L0 BPL :L0
JSR MLI ; Perform seek JSR MLI ; Perform seek
DB SMARKCMD DB SMARKCMD
DW GMARKPL DW GMARKPL
BCS :ERR BCS :ERR
:NOSEEK LDY GBPBHDL ; File ref number :NOSEEK LDA GBPBHDL ; File ref number
STY READPL2+1 STA READPL2+1
:L1 JSR MLI ; Read one byte :L1 JSR MLI ; Read one byte from file
DB READCMD DB READCMD
DW READPL2 DW READPL2
BCS :ERR BCS :ERR