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/cbm510/kreadst.s
+++ b/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
-
-
--- a/libsrc/cbm510/ksetnam.s
+++ b/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
-
-
-
--- a/libsrc/cbm510/status.s
+++ b/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