the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Synertek Systems Sym-1 machine-specific files

Browse Source
This commit is contained in:
Wayne Parham
2021-05-09 16:34:53 -05:00
parent 07bd5089ec
commit 6e79379405
23 changed files with 2088 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
libsrc/sym1/tapeio.s Normal file
View File

@@ -0,0 +1,58 @@
; ---------------------------------------------------------------------------
; tapeio.s
;
; for Sym-1
;
; Wayne Parham
;
; wayne@parhamdata.com
; ---------------------------------------------------------------------------
.include "sym1.inc"
.import popax
.export _loadt, _dumpt
.segment "CODE"
.proc _loadt: near
; ---------------------------------------------------------------------------
sta P1L ; Tape record ID to P1L
ldx #$00
stx P1H
ldy #$80
jsr LOADT ; Read data from tape
bcs error
lda #$00
ldx #$00 ; Return 0000 if successful
jmp done
error: ldx #$00
lda #$FF ; or 00FF if not
done: rts
; ---------------------------------------------------------------------------
.endproc
.proc _dumpt: near
; ---------------------------------------------------------------------------
sta P3L ; End address
stx P3H
jsr popax
sta P2L ; Start address
stx P2H
jsr popax
sta P1L ; Tape Record ID
ldx #$00
stx P1H
ldy #$80
jsr DUMPT ; Write data to tape
bcs error
lda #$00
ldx #$00 ; Return 0000 if successful
jmp done
error: ldx #$00
lda #$FF ; or 00FF if not
done: rts
; ---------------------------------------------------------------------------
.endproc