initial patch from #1972

2025-06-30 18:39:33 +02:00
parent 4899b6dc0c
commit 26cf19642c
25 changed files with 133 additions and 53 deletions
--- a/libsrc/pet/checkst.s
+++ b/libsrc/pet/checkst.s
@@ -6,12 +6,12 @@
 ;

        .export         checkst
-        .importzp       ST

+        .include        "pet.inc"

 .proc   checkst

-        lda     ST
+        lda     STATUS
        beq     @L1
        lda     #5              ; ### Device not present
        sec
--- a/libsrc/pet/crt0.s
+++ b/libsrc/pet/crt0.s
@@ -8,7 +8,6 @@
        .import         zerobss, push0
        .import         callmain
        .import         CLRCH, BSOUT
-        .importzp       ST

        .include        "zeropage.inc"
        .include        "pet.inc"
@@ -80,7 +79,7 @@ L2:     lda     zpsave,x
 ; Store the program return code into BASIC's status variable.

        pla
-        sta     ST
+        sta     STATUS

 ; Restore the stack pointer.

--- a/libsrc/pet/kreadst.s
+++ b/libsrc/pet/kreadst.s
@@ -5,14 +5,12 @@
 ;

        .export         READST
-        .importzp       ST

+        .include        "pet.inc"

 .proc   READST

-        lda     ST
+        lda     STATUS
        rts

 .endproc
-
-
--- a/libsrc/pet/status.s
+++ b/libsrc/pet/status.s
@@ -1,5 +1,15 @@
 ;
-; Oliver Schmidt, 2012-09-30
+; Stefan Haubenthal, 2023-01-16
 ;

-        .exportzp       ST := $96       ; IEC status byte
+        .export         initst
+
+        .include        "pet.inc"
+
+.proc   initst
+
+        lda     #$00
+        sta     STATUS
+        rts
+
+.endproc