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/cbm610/status.s
+++ b/libsrc/cbm610/status.s
@@ -0,0 +1,21 @@
+;
+; Stefan Haubenthal, 2023-01-16
+;
+
+        .export         initst
+
+        .include        "extzp.inc"
+        .include        "cbm610.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