Merge pull request #2759 from mrdudz/test1972

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

libsrc/vic20/crt0.s

@@ -10,9 +10,9 @@
         .import         RESTOR, BSOUT, CLRCH
         .import         __MAIN_START__, __MAIN_SIZE__   ; Linker generated
         .import         __STACKSIZE__                   ; Linker generated
-        .importzp       ST
 
         .include        "zeropage.inc"
+        .include        "vic20.inc"
 
 ; ------------------------------------------------------------------------
 ; Startup code
@@ -72,7 +72,7 @@ L2:     lda     zpsave,x
 ; Place the program return code into BASIC's status variable.
 
         pla
-        sta     ST
+        sta     STATUS
 
 ; Restore the stack pointer.
 

libsrc/vic20/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        "vic20.inc"
+
+.proc   initst
+
+        lda     #$00
+        sta     STATUS
+        rts
+
+.endproc