initial patch from #1972

libsrc/c128/crt0.s

@@ -9,7 +9,6 @@
         .import         push0, callmain
         .import         RESTOR, BSOUT, CLRCH
         .import         __MAIN_START__, __MAIN_SIZE__, __STACKSIZE__
-        .importzp       ST
 
         .include        "zeropage.inc"
         .include        "c128.inc"
@@ -92,7 +91,7 @@ L2:     lda     zpsave,x
 ; Place the program return code into BASIC's status variable.
 
         pla
-        sta     ST
+        sta     STATUS
 
 ; Reset the stack and the memory configuration.
 

libsrc/c128/status.s

@@ -1,5 +1,15 @@
 ;
-; Oliver Schmidt, 2012-09-30
+; Stefan Haubenthal, 2023-01-16
 ;
 
-        .exportzp       ST := $90       ; IEC status byte
+        .export         initst
+
+        .include        "c128.inc"
+
+.proc   initst
+
+        lda     #$00
+        sta     STATUS
+        rts
+
+.endproc