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