mirror of
https://codeberg.org/cryu/micro-sci-a2-controller
synced 2024-11-22 01:31:27 +00:00
147 lines
2.8 KiB
Plaintext
147 lines
2.8 KiB
Plaintext
; da65 V2.11.0 - (C) Copyright 2000-2005, Ullrich von Bassewitz
|
|
; Created: 2022-01-26 21:00:18
|
|
; Input file: xaa
|
|
; Page: 1
|
|
|
|
|
|
.setcpu "6502"
|
|
|
|
MON_WAIT = $FCA8
|
|
GETLNZ = $FD67
|
|
BELL = $FF3A
|
|
IORTS = $FF58
|
|
GETNUM = $FFA7
|
|
|
|
* = $c600
|
|
|
|
lda #$A3
|
|
sta $33
|
|
LC604: jsr BELL
|
|
LC607: jsr GETLNZ
|
|
lda #$00
|
|
sta $F2
|
|
LC60E: sta $C010
|
|
sta $F3
|
|
ldy $F2
|
|
jsr GETNUM
|
|
sty $F2
|
|
cmp #$C6
|
|
beq LC607
|
|
cmp #$EC
|
|
beq LC64E
|
|
cmp #$F0
|
|
beq LC676
|
|
cmp #$F3
|
|
beq LC657
|
|
ldy #$7F
|
|
cmp #$06
|
|
beq LC67C
|
|
cmp #$EB
|
|
beq LC641
|
|
ldx #$06
|
|
stx $F3
|
|
cmp #$F1
|
|
beq LC67C
|
|
cmp #$EA
|
|
bne LC604
|
|
brk
|
|
LC641: lda #$50
|
|
sta $FC
|
|
txa
|
|
adc #$00
|
|
sta $F3
|
|
lda #$00
|
|
beq LC651
|
|
LC64E: lda $3E
|
|
asl a
|
|
LC651: sta $F0
|
|
ldy #$FF
|
|
bne LC67C
|
|
LC657: lda $3E
|
|
asl a
|
|
sta $F1
|
|
ldy #$00
|
|
beq LC67C
|
|
LC660: lda #$50
|
|
jsr MON_WAIT
|
|
sta $C088,x
|
|
ldy $3E
|
|
LC66A: jsr MON_WAIT
|
|
dey
|
|
bpl LC66A
|
|
bmi LC68E
|
|
LC672: lda #$00
|
|
beq LC60E
|
|
LC676: lda $3E
|
|
sta $FF
|
|
ldy #$0F
|
|
LC67C: sty $09
|
|
jsr IORTS
|
|
tsx
|
|
lda $0100,x
|
|
asl a
|
|
asl a
|
|
asl a
|
|
asl a
|
|
sta $FD
|
|
adc $F3
|
|
tax
|
|
LC68E: sta $C089,x
|
|
lda $09
|
|
beq LC6BA
|
|
bmi LC6BA
|
|
asl a
|
|
bmi LC6AC
|
|
sta $C08F,x
|
|
LC69D: lda $09
|
|
asl a
|
|
bmi LC660
|
|
nop
|
|
nop
|
|
lda $FF
|
|
sta $C08D,x
|
|
cmp $C08C,x
|
|
LC6AC: lda $C000
|
|
eor #$9B
|
|
bne LC69D
|
|
ldx $FD
|
|
sta $C08E,x
|
|
LC6B8: beq LC672
|
|
LC6BA: ldx $FD
|
|
sta $C089,x
|
|
LC6BF: ldy $FC
|
|
LC6C1: cpy $F0
|
|
bne LC6E3
|
|
lda $F0
|
|
sta $FC
|
|
lda $09
|
|
bne LC672
|
|
lda $F0
|
|
ldy $F1
|
|
sta $F1
|
|
sty $F0
|
|
lda $C000
|
|
eor #$9B
|
|
beq LC6B8
|
|
lda #$73
|
|
jsr MON_WAIT
|
|
bcs LC6BF
|
|
LC6E3: bcs LC6E7
|
|
iny
|
|
iny
|
|
LC6E7: dey
|
|
tya
|
|
and #$03
|
|
asl a
|
|
ora $FD
|
|
tax
|
|
lsr a
|
|
lsr a
|
|
sta $C081,x
|
|
nop
|
|
nop
|
|
lda #$56
|
|
jsr MON_WAIT
|
|
sta $C080,x
|
|
bcs LC6C1
|