add msbasic

2026-09-27 00:34:42 +02:00
1 parent d37d434228
commit c5a028c8c6
@@ -0,0 +1,70 @@
+.segment "CODE"
+
+SAVE:
+        beq     L2739
+        sta     P1L
+        jsr     CHRGET
+        bne     NULL-1
+
+        lda     TXTTAB
+        ldy     TXTTAB+1
+        sta     P2L
+        sty     P2H
+
+        lda     VARTAB
+        ldy     VARTAB+1
+        sta     P3L
+        sty     P3H
+
+        ldy     #$80
+        jsr     USR2
+        bcs     LC6DD
+        lda     #<SAVED
+        ldy     #>SAVED
+        jmp     STROUT
+
+LOADED:
+        .byte "LOADED",CR,LF
+        .byte "OK",CR,LF,0
+
+SAVED:
+        .byte "SAVED",CR,LF,0
+
+LOAD:
+        beq     L2739
+        sta     $A64E
+        jsr     CHRGET
+        bne     L2738
+        ldy     #$80
+        jsr     USR3
+        bcs     LC6EF
+
+        lda     #<LOADED
+        ldy     #>LOADED
+        jsr     STROUT
+
+        ldx     P3L
+        ldy     P3H
+        txa
+        stx     VARTAB
+        sty     VARTAB+1
+        jmp     FIX_LINKS
+
+LC6DD:
+        lda     #<BAD_SAVE
+        ldy     #>BAD_SAVE
+        jmp     STROUT
+
+BAD_SAVE:
+        htasc   "BAD SAVE"
+        .byte   CR,LF,0
+LC6EF:
+        lda     #<BAD_LOAD
+        ldy     #>BAD_LOAD
+        jsr     STROUT
+        jsr     SCRTCH
+        jmp     RESTART
+
+BAD_LOAD:
+        htasc   "BAD LOAD"
+        .byte   CR,LF,0