Add KIM-1 Support

2022-06-04 13:00:48 -07:00
parent 30dc9b8d1a
commit 799aec23a6
18 changed files with 425 additions and 1 deletions
--- a/libsrc/kim1/tapeio.s
+++ b/libsrc/kim1/tapeio.s
@@ -0,0 +1,39 @@
+;
+; int __fastcall__ loadt (unsigned char id);
+; int __fastcall__ dumpt (unsigned char id, void* start_addr, void* end_addr);
+;
+
+.include        "kim1.inc"
+
+.import         popa, popax, return0, return1
+
+.export         _loadt, _dumpt
+
+.segment        "CODE"
+
+.proc _loadt:   near
+
+        sta     ID               ; Tape record ID to P1L
+        jsr     LOADT            ; Read data from tape
+        bcs     error
+        jmp     return0          ; Return 0 if sucessful
+error:  jmp     return1          ; or 1 if not
+
+.endproc
+
+.proc _dumpt:  near
+
+        sta     EAL              ; End address
+        stx     EAH
+        jsr     popax
+        sta     SAL              ; Start address
+        stx     SAH
+        jsr     popa
+        sta     ID               ; Tape Record ID
+        ldx     #$00
+        jsr     DUMPT            ; Write data to tape
+        bcs     error
+        jmp     return0          ; Return 0 if sucessful
+error:  jmp     return1          ; or 1 if not
+
+.endproc