daily_automated

2023-03-13 08:36:51 +00:00
parent 5347889cd2
commit f29dcc4188
5439 changed files with 1065799 additions and 0 deletions
--- a/trunk/workspace/AVR-Computer/msbasic/kim_loadsave.s
+++ b/trunk/workspace/AVR-Computer/msbasic/kim_loadsave.s
@@ -0,0 +1,62 @@
+.segment "CODE"
+SAVE:
+        tsx
+        stx     INPUTFLG
+        lda     #$37
+        sta     $F2
+        lda     #$FE
+        sta     $17F9
+        lda     TXTTAB
+        ldy     TXTTAB+1
+        sta     $17F5
+        sty     $17F6
+        lda     VARTAB
+        ldy     VARTAB+1
+        sta     $17F7
+        sty     $17F8
+        jmp     L1800
+        ldx     INPUTFLG
+        txs
+        lda     #<QT_SAVED
+        ldy     #>QT_SAVED
+        jmp     STROUT
+QT_LOADED:
+        .byte   "LOADED"
+        .byte   $00
+QT_SAVED:
+        .byte   "SAVED"
+        .byte   $0D,$0A,$00,$00,$00,$00,$00,$00
+        .byte   $00,$00,$00,$00,$00,$00,$00,$00
+        .byte   $00,$00,$00,$00,$00,$00,$00
+LOAD:
+        lda     TXTTAB
+        ldy     TXTTAB+1
+        sta     $17F5
+        sty     $17F6
+        lda     #$FF
+        sta     $17F9
+        lda     #<L27A6
+        ldy     #>L27A6
+        sta     GORESTART+1
+        sty     GORESTART+2
+        jmp     L1873
+L27A6:
+        ldx     #$FF
+        txs
+        lda     #<RESTART
+        ldy     #>RESTART
+        sta     GORESTART+1
+        sty     GORESTART+2
+        lda     #<QT_LOADED
+        ldy     #>QT_LOADED
+        jsr     STROUT
+        ldx     $17ED
+        ldy     $17EE
+        txa
+        bne     L27C2
+        nop
+L27C2:
+        nop
+        stx     VARTAB
+        sty     VARTAB+1
+        jmp     FIX_LINKS