Merge pull request #2759 from mrdudz/test1972

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

libsrc/cbm510/kreadst.s

@@ -16,11 +16,9 @@
 
         jsr     sys_bank
         sty     ktmp                    ; Save Y register
-        ldy     #$9C                    ; STATUS
+        ldy     #STATUS
         lda     (sysp0),y               ; Load STATUS from system bank
         ldy     ktmp
         jmp     restore_bank            ; Will set condition codes on A
 
 .endproc
-
-

libsrc/cbm510/ksetnam.s

@@ -22,7 +22,7 @@
         sty     ktmp
 
         txa
-        ldy     #$90                    ; FNAM
+        ldy     #FNAM
         sta     (sysp0),y
 
         lda     ktmp
@@ -33,13 +33,10 @@
         ldy     #$92                    ; FNAM_SEG
         sta     (sysp0),y
 
-        ldy     #$9D                    ; FNAM_LEN
+        ldy     #FNAM_LEN
         pla
         sta     (sysp0),y
         ldy     ktmp
         jmp     restore_bank
 
 .endproc
-
-
-

libsrc/cbm510/status.s

@@ -0,0 +1,21 @@
+;
+; Stefan Haubenthal, 2023-01-16
+;
+
+        .export         initst
+
+        .include        "extzp.inc"
+        .include        "cbm510.inc"
+
+.proc   initst
+
+        ldx     IndReg
+        ldy     #$0F
+        sty     IndReg          ; Switch to the system bank
+        ldy     #STATUS
+        lda     #$00            ; Initialize value
+        sta     (sysp0),y
+        stx     IndReg
+        rts
+
+.endproc