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/apple_loadsave.s
+++ b/trunk/workspace/AVR-Computer/msbasic/apple_loadsave.s
@@ -0,0 +1,39 @@
+.segment "CODE"
+
+SAVE:
+        jsr     L0F42
+        jsr     LFECD
+        jsr     L0F51
+        jmp     LFECD
+LOAD:
+        jsr     L0F42
+        jsr     LFEFD
+        jsr     L0F51
+        jsr     LFEFD
+        lda     #<QT_LOADED
+        ldy     #>QT_LOADED
+        jsr     STROUT
+        jmp     FIX_LINKS
+QT_LOADED:
+        .byte   0 ; XXX PATCHED
+        .byte   "OADED"
+        .byte   0
+L0F42:
+        lda     #$6C
+        ldy     #$00
+        sta     $3C
+        sty     $3D
+        lda     #$6E
+        sta     $3E
+        sty     $3F
+        rts
+L0F51:
+        lda     $6A
+        ldy     $6B
+        sta     $3C
+        sty     $3D
+        lda     $6C
+        ldy     $6D
+        sta     $3E
+        sty     $3F
+        rts