Apple-2-SW/tlc-apple2
1
0
Fork 0
mirror of https://github.com/david-schmidt/tlc-apple2.git synced 2024-11-22 01:30:48 +00:00
Code Issues Projects Releases Wiki Activity

Use common monitor labels

Browse Source 
Signed-off-by: David Schmidt <1110325+david-schmidt@users.noreply.github.com>
This commit is contained in:
David Schmidt 2023-09-19 12:41:51 -04:00
parent a43fa24a22
commit fd301680a6
2 changed files with 32 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitignore vendored
View File

@ -1 +1,3 @@
.project .project
.DS_Store
doc/.DS_Store

55
src/tapeout.asm
View File

@ -23,57 +23,60 @@
jsr WRITE jsr WRITE
rts rts
LFCBA: lda $3C NXTA1: lda $3C
cmp $3E cmp $3E
lda $3D lda $3D
sbc $3F sbc $3F
inc $3C inc $3C
bne LFCC8 bne MON_RTS4B
inc $3D inc $3D
LFCC8: rts MON_RTS4B:
rts
LEADER: LEADER:
LFCC9: ldy #$4B HEADR: ldy #$4B
jsr LFCDB jsr ZERODLY
bne LFCC9 bne HEADR
adc #$FE adc #$FE
bcs LFCC9 bcs HEADR
ldy #$21 ldy #$21
LFCD6: jsr LFCDB WRBIT: jsr ZERODLY
iny iny
iny iny
LFCDB: dey ZERODLY:
bne LFCDB dey
bcc LFCE5 bne ZERODLY
bcc WRTAPE
ldy #$32 ldy #$32
LFCE2: dey ONEDLY: dey
bne LFCE2 bne ONEDLY
LFCE5: ldy $C030 WRTAPE: ldy $C030
ldy #$2C ldy #$2C
dex dex
rts rts
WRITE: WRITE:
lda #$40 lda #$40
jsr LFCC9 jsr HEADR
ldy #$27 ldy #$27
LFED4: ldx #$00 WR1: ldx #$00
eor ($3C,x) eor ($3C,x)
pha pha
lda ($3C,x) lda ($3C,x)
jsr LFEED jsr WRBYTE
jsr LFCBA jsr NXTA1
ldy #$1D ldy #$1D
pla pla
bcc LFED4 bcc WR1
ldy #$22 ldy #$22
jsr LFEED jsr WRBYTE
beq LFF3A beq FAKE_BELL
LFEED: ldx #$10 WRBYTE: ldx #$10
LFEEF: asl a WRBYT2: asl a
jsr LFCD6 jsr WRBIT
bne LFEEF bne WRBYT2
rts rts
LFF3A: lda #$DA FAKE_BELL:
lda #$DA
jmp $FDED jmp $FDED