From 63de6efbc20523033e8b6e65f328b677040cec16 Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Mon, 19 Sep 2022 00:48:54 -0400
Subject: [PATCH] Fixed OSGBPB seeking bug.

---
 mainmem.svc.s | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/mainmem.svc.s b/mainmem.svc.s
index a246b8e..3fc54be 100644
--- 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