Merge pull request #2759 from mrdudz/test1972

Fixed #1970 (Missing definition for ST on cbm610 with getdevice) (was #1972)

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

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.
 

libsrc/pet/kreadst.s

@@ -5,14 +5,12 @@
 ;
 
         .export         READST
-        .importzp       ST
 
+        .include        "pet.inc"
 
 .proc   READST
 
-        lda     ST
+        lda     STATUS
         rts
 
 .endproc
-
-

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