Fixed OSGBPB seeking bug.

2022-09-19 00:48:54 -04:00 · 2022-09-19 00:48:54 -04:00 · 63de6efbc2
parent a32db137ce
commit 63de6efbc2
1 changed files with 4 additions and 4 deletions
--- a/mainmem.svc.s
+++ b/mainmem.svc.s
@ -340,14 +340,14 @@ GBPB          >>>   ENTMAIN
 :L0           LDA   GBPBPTR+0,Y
              STA   GMARKPL+2,Y
              DEY
-              BMI   :L0
+              BPL   :L0
              JSR   MLI                ; Perform seek
              DB    SMARKCMD
              DW    GMARKPL
              BCS   :ERR
-:NOSEEK       LDY   GBPBHDL            ; File ref number
-              STY   READPL2+1
-:L1           JSR   MLI                ; Read one byte
+:NOSEEK       LDA   GBPBHDL            ; File ref number
+              STA   READPL2+1
+:L1           JSR   MLI                ; Read one byte from file
              DB    READCMD
              DW    READPL2
              BCS   :ERR