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/microtan_loadsave.s
+++ b/trunk/workspace/AVR-Computer/msbasic/microtan_loadsave.s
@@ -0,0 +1,75 @@
+.segment "CODE"
+
+SAVE:
+        ldy     #$00
+        beq     LC74D
+LC74B:
+        ldy     #$01
+LC74D:
+        ldx     #$4C
+LC74F:
+        lda     $13,x
+        pha
+        dex
+        bpl     LC74F
+        ldx     #$03
+LC757:
+        lda     TXTTAB,x
+        sta     GOSTROUT+2,x
+        dex
+        bpl     LC757
+        jmp     LE219
+        nop
+        nop
+        nop
+LC764:
+        tya
+        pha
+        ldy     $03
+        lda     #$FF
+        sta     ($0A),y
+        pla
+        tay
+        jsr     LFDFA
+        lda     $01
+        jsr     LC7A5
+        rts
+        .byte   "DED"
+        .byte   $0D,$0A
+        .byte   "OK"
+        .byte   $0D,$0A,$00
+        .byte   "SAVED"
+        .byte   $0D,$0A,$00
+LOAD:
+        jsr     LC74B
+        ldx     #$FF
+        tsx
+        lda     #$4F
+        jsr     LFE75
+        lda     #$4B
+        jsr     LFE75
+        jsr     LFE73
+        lda     VARTAB
+        tax
+        ldy     VARTAB+1
+        jmp     FIX_LINKS
+        nop
+LC7A5:
+        pha
+        cmp     #$0A
+        beq     LC7AD
+        jsr     LFE75
+LC7AD:
+        tya
+        pha
+        ldy     $03
+        lda     #$20
+        sta     ($0A),y
+        pla
+        tay
+        pla
+        rts
+        inc     $8A17
+        stx     VARTAB
+        sty     VARTAB+1
+        jmp     FIX_LINKS