mirror of
https://codeberg.org/cryu/micro-sci-a2-controller
synced 2026-04-24 11:16:33 +00:00
General cleanup.
This commit is contained in:
@@ -1,146 +0,0 @@
|
||||
; 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
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
Before Width: | Height: | Size: 145 KiB After Width: | Height: | Size: 145 KiB |
|
Before Width: | Height: | Size: 144 KiB After Width: | Height: | Size: 144 KiB |
Reference in New Issue
Block a user