Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-25 21:29:30 +00:00
Code Issues Projects Releases Wiki Activity
275255db02
a2d/desk.acc/puzzle.s

849 lines
22 KiB
ArmAsm
Raw Normal View History

Initial disassembly snapshot for Date and Puzzle
2017-09-11 03:18:29 +00:00
.org $800
; da65 V2.16 - Git f5e9b401
; Created: 2017-09-10 19:55:15
; Input file: puzzle.bin
; Page: 1
.setcpu "65C02"
L0000 := $0000
L0020 := $0020
A2D := $4000
L4015 := $4015
UNKNOWN_CALL := $8E00
MLI := $BF00
RAMRDOFF := $C002
RAMRDON := $C003
RAMWRTOFF := $C004
RAMWRTON := $C005
ALTZPOFF := $C008
ALTZPON := $C009
LCBANK1 := $C08B
AUXMOVE := $C311
XFER := $C314
FSUB := $E7A7
FADD := $E7BE
FMULT := $E97F
FDIV := $EA66
ROUND := $EB2B
FLOAT := $EB93
FIN := $EC4A
FOUT := $ED34
jmp L0828
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00
L0827: .byte $00
L0828: tsx
stx L0827
sta ALTZPOFF
lda $C082
lda #$70
sta $3C
lda #$08
sta $3D
lda #$F6
sta $3E
lda #$12
sta $3F
lda #$70
sta $42
lda #$08
sta $43
sec
jsr AUXMOVE
lda #$70
sta $03ED
lda #$08
sta $03EE
php
pla
ora #$40
pha
plp
sec
jmp XFER
L0862: sta ALTZPON
lda LCBANK1
lda LCBANK1
ldx L0827
txs
rts
sta ALTZPON
lda LCBANK1
lda LCBANK1
lda #$00
sta $08
jmp L0E53
L0880: ldx #$10
L0882: lda L08A3,x
sta L0020,x
dex
bpl L0882
jsr L0020
lda #$33
jsr L08B4
bit L08B3
bmi L089D
jsr UNKNOWN_CALL
.byte $0C
.addr L0000
L089D: lda #$00
sta L08B3
rts
L08A3: sta RAMRDOFF
sta RAMWRTOFF
jsr L4015
sta RAMRDON
sta RAMWRTON
rts
L08B3: brk
L08B4: sta L08E7
lda L0E02
cmp #$BF
bcc L08C4
lda #$80
sta L08B3
rts
L08C4: jsr A2D
.byte $3C
.addr L08E7
jsr A2D
.byte $04
.addr L0DB3
lda L08E7
cmp #$33
bne L08DA
jmp L1072
L08DA: rts
L08DB: .byte $00
L08DC: .byte $00
L08DD: .byte $00,$00,$00
L08E0: .byte $00
L08E1: .byte $00
L08E2: .byte $00
L08E3: .byte $00,$00,$00
L08E6: .byte $00
L08E7: .byte $00,$B3,$0D
L08EA: .byte $05
L08EB: .byte $00
L08EC: .byte $03
L08ED: .byte $00,$21,$00,$03,$00,$3D,$00,$03
.byte $00,$59,$00,$03,$00,$05,$00,$13
.byte $00,$21,$00,$13,$00,$3D,$00,$13
.byte $00,$59,$00,$13,$00,$05,$00,$23
.byte $00,$21,$00,$23,$00,$3D,$00,$23
.byte $00,$59,$00,$23,$00,$05,$00,$33
.byte $00,$21,$00,$33,$00,$3D,$00,$33
.byte $00,$59,$00,$33,$00
L092A: .byte $6A
L092B: .byte $09,$AA,$09,$EA,$09,$2A,$0A,$6A
.byte $0A,$AA,$0A,$EA,$0A,$2A,$0B,$6A
.byte $0B,$AA,$0B,$EA,$0B,$2A,$0C,$6A
.byte $0C,$AA,$0C
L0946: .byte $EA,$0C,$2A
L0949: .byte $0D
L094A: .byte $00
L094B: .byte $00,$00,$00
L094E: .byte $00
L094F: .byte $00
L0950: .byte $00
L0951: .byte $00
L0952: .byte $00
L0953: .byte $00
L0954: .byte $00
L0955: .byte $00
L0956: .byte $00,$00,$00
L0959: .byte $00
L095A: .byte $00
L095B: .byte $00
L095C: .byte $00
L095D: .byte $00
L095E: .byte $00
L095F: .byte $00,$04,$00,$00,$00,$00,$00,$1B
.byte $00,$0F,$00,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$00
.byte $00,$00,$00,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $00,$7C,$3F,$0E,$55,$42,$3F,$00
.byte $00,$00,$00,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$47,$3F,$7E
.byte $7F,$54,$3E,$7E,$5F,$2A,$3D,$7E
.byte $27,$55,$3E,$7E,$53,$2A,$3E,$7E
.byte $28,$15,$3F,$3E,$55,$4A,$3F,$5E
.byte $2A,$71,$3F,$2E,$55,$7C,$3F,$56
.byte $0A,$7E,$3F,$26,$65,$7F,$3F,$56
.byte $78,$1F,$00,$06,$7F,$21,$15,$00
.byte $00,$00,$00,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$70
.byte $7F,$7F,$3F,$0A,$7E,$7F,$3F,$00
.byte $00,$00,$00,$7E,$7F,$7F,$1F,$7E
.byte $7F,$7F,$1F,$7E,$7F,$7F,$17,$7E
.byte $7F,$7F,$2B,$7E,$7F,$7F,$3D,$7E
.byte $7F,$7F,$3E,$7E,$7F,$3F,$3F,$7E
.byte $7F,$5F,$3F,$7E,$7F,$5F,$3F,$7E
.byte $7F,$6F,$3F,$7E,$7F,$77,$3F,$7E
.byte $7F,$77,$3F,$7E,$7F,$37,$1B,$7E
.byte $7F,$5B,$2D,$7E,$7F,$6B,$36,$00
.byte $00,$00,$00,$2A,$55,$2A,$15,$54
.byte $2A,$55,$2A,$2A,$55,$2A,$15,$54
.byte $2A,$55,$2A,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$6C,$36,$5B,$2D,$36
.byte $5B,$6D,$36,$5A,$6D,$36,$1B,$00
.byte $00,$00,$00,$2A,$55,$2A,$15,$54
.byte $2A,$55,$2A,$2A,$55,$2A,$15,$54
.byte $2A,$55,$2A,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$36,$5B,$6D,$36,$5A
.byte $6D,$36,$1B,$6C,$36,$5B,$2D,$00
.byte $00,$00,$00,$2A,$45,$7F,$3F,$54
.byte $2A,$7E,$3F,$2A,$55,$78,$3F,$54
.byte $2A,$71,$3F,$7E,$7F,$7C,$3F,$7E
.byte $3F,$7F,$3F,$7E,$5F,$7F,$3F,$7E
.byte $6F,$7F,$3F,$7E,$77,$7F,$3F,$7E
.byte $77,$7F,$3F,$7E,$7B,$7F,$3F,$7E
.byte $7B,$7F,$3F,$5A,$79,$7F,$3F,$6C
.byte $7C,$7F,$3F,$36,$7D,$7F,$3F,$00
.byte $00,$00,$00,$7E,$7F,$67,$36,$7E
.byte $7F,$37,$1B,$7E,$7F,$57,$2D,$7E
.byte $7F,$67,$36,$7E,$7F,$2F,$15,$7E
.byte $7F,$2F,$15,$7E,$7F,$1F,$15,$7E
.byte $7F,$3F,$15,$7E,$7F,$3F,$15,$7E
.byte $7F,$3F,$15,$7E,$7F,$7F,$14,$7E
.byte $7F,$7F,$19,$7E,$7F,$7F,$33,$7E
.byte $7F,$7F,$17,$7E,$7F,$7F,$2F,$00
.byte $00,$00,$00,$5A,$6D,$36,$1B,$6C
.byte $36,$5B,$2D,$36,$5B,$6D,$36,$5A
.byte $6D,$36,$1B,$2A,$55,$2A,$15,$2A
.byte $55,$2A,$15,$2A,$55,$2A,$15,$2A
.byte $55,$2A,$15,$2A,$55,$2A,$15,$2A
.byte $55,$2A,$15,$2A,$55,$2A,$15,$32
.byte $66,$4C,$19,$66,$4C,$19,$33,$32
.byte $66,$4C,$19,$66,$4C,$19,$33,$00
.byte $00,$00,$00,$6C,$36,$5B,$2D,$36
.byte $5B,$6D,$36,$5A,$6D,$36,$1B,$6C
.byte $36,$5B,$2D,$2A,$55,$2A,$15,$2A
.byte $55,$2A,$15,$2A,$55,$2A,$15,$2A
.byte $55,$2A,$15,$2A,$55,$2A,$15,$2A
.byte $55,$2A,$15,$2A,$55,$2A,$15,$32
.byte $66,$4C,$19,$66,$4C,$19,$33,$32
.byte $66,$4C,$19,$66,$4C,$19,$33,$00
.byte $00,$00,$00,$36,$7D,$7F,$3F,$5A
.byte $7D,$7F,$3F,$6C,$7A,$7F,$3F,$36
.byte $7B,$7F,$3F,$2A,$75,$7F,$3F,$2A
.byte $65,$7F,$3F,$2A,$65,$7F,$3F,$2A
.byte $55,$7F,$3F,$2A,$15,$7F,$3F,$2A
.byte $55,$7C,$3F,$2A,$55,$72,$3F,$32
.byte $66,$74,$3F,$66,$4C,$79,$3F,$32
.byte $66,$78,$3F,$66,$4C,$7D,$3F,$00
.byte $00,$00,$00,$7E,$7F,$7F,$3F,$6E
.byte $5D,$3B,$37,$7E,$7F,$7F,$3F,$3A
.byte $77,$6E,$1D,$7E,$7F,$7F,$3F,$6E
.byte $5D,$3B,$37,$7E,$7F,$7F,$3F,$3A
.byte $77,$6E,$1D,$7E,$7F,$7F,$3F,$6E
.byte $5D,$3B,$37,$7E,$7F,$7F,$3F,$3A
.byte $77,$6E,$1D,$7E,$7F,$7F,$3F,$6E
.byte $5D,$3B,$37,$7E,$7F,$7F,$3F,$00
.byte $00,$00,$00,$18,$33,$66,$0C,$32
.byte $66,$4C,$19,$66,$4C,$19,$33,$6C
.byte $36,$5B,$2D,$52,$6D,$36,$1B,$26
.byte $5B,$6D,$36,$4E,$36,$5B,$2D,$3E
.byte $6E,$36,$1B,$7E,$51,$0D,$00,$7E
.byte $0F,$40,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$00
.byte $00,$00,$00,$18,$33,$66,$0C,$32
.byte $66,$4C,$19,$66,$4C,$19,$33,$36
.byte $5B,$6D,$36,$6C,$36,$5B,$2D,$5A
.byte $6D,$36,$1B,$36,$5B,$6D,$36,$6C
.byte $36,$5B,$2D,$00,$00,$30,$1B,$7E
.byte $7F,$03,$20,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$00
.byte $00,$00,$00,$18,$33,$7C,$3F,$32
.byte $66,$7E,$3F,$66,$0C,$7F,$3F,$5A
.byte $4D,$7F,$3F,$36,$73,$7F,$3F,$6C
.byte $7C,$7F,$3F,$3A,$7E,$7F,$3F,$72
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$7E
.byte $7F,$7F,$3F,$7E,$7F,$7F,$3F,$00
.byte $00,$00,$00
L0D6A: .byte $01,$00,$00,$00,$79,$00,$44,$00
L0D72: .byte $77,$DD,$77,$DD,$77,$DD,$77,$DD
.byte $00
L0D7B: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$FF,$FF,$FF,$FF,$FF,$FF,$FF
.byte $FF,$00
L0D8D: .byte $05,$00,$02,$00
L0D91: .byte $70,$00,$00,$00
L0D95: .byte $00
L0D96: .byte $00
L0D97: .byte $00
L0D98: .byte $00
L0D99: .byte $00
L0D9A: .byte $00
L0D9B: .byte $00
L0D9C: .byte $33,$73,$00,$F7,$FF,$AD,$0D,$01
.byte $00,$00,$00,$00,$00,$06,$00,$05
.byte $00,$41,$35,$47,$37,$36,$49
L0DB3: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$0D
.byte $00,$00,$20,$80,$00,$00,$00,$00
.byte $00,$2F,$02,$B1,$00,$00,$01,$02
.byte $06
L0DEC: .byte $33,$02,$4C,$0E,$00,$00,$00,$00
.byte $00,$00,$00,$00,$79,$00,$44,$00
.byte $79,$00,$44,$00,$DC,$00
L0E02: .byte $50,$00,$00,$20,$80,$00,$00,$00
.byte $00,$00,$79,$00,$44,$00,$FF,$FF
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$00
.byte $00,$00,$00,$00,$01,$01,$00,$7F
.byte $00,$88,$00,$00,$DC,$00,$50,$00
.byte $00,$20,$80,$00,$00,$00,$00,$00
.byte $79,$00,$44,$00,$FF,$FF,$FF,$FF
.byte $FF,$FF,$FF,$FF,$FF,$00,$00,$00
.byte $00,$00,$01,$01,$00,$7F,$00,$88
.byte $00,$00,$06,$50,$75,$7A,$7A,$6C
.byte $65
L0E53: jsr L10A5
jsr A2D
.byte $38
.addr L0DEC
ldy #$0F
L0E5E: tya
sta L094A,y
dey
bpl L0E5E
lda #$33
jsr L08B4
jsr A2D
.byte $2B
.addr L0000
L0E70: ldy #$03
L0E72: tya
pha
ldx L094A
ldy #$00
L0E79: lda L094B,y
sta L094A,y
iny
cpy #$0F
bcc L0E79
stx L0959
pla
tay
dey
bne L0E72
ldx L094A
lda L094B
sta L094A
stx L094B
jsr A2D
.byte $2A
.addr L08DB
lda L08DB
beq L0E70
jsr L1262
bcs L0E70
jsr L11BB
jsr L12D2
L0EAE: jsr A2D
.byte $2A
.addr L08DB
lda L08DB
cmp #$01
bne L0EC1
jsr L0ECB
jmp L0EAE
L0EC1: cmp #$03
bne L0EAE
jsr L0F30
jmp L0EAE
L0ECB: jsr A2D
.byte $40
.addr L08DC
lda L08E1
cmp #$33
bne L0EDD
lda L08E0
bne L0EDE
L0EDD: rts
L0EDE: cmp #$02
bne L0EEA
jsr L0F3D
bcc L0EDD
jmp L0FBC
L0EEA: cmp #$05
bne L0F1B
jsr A2D
.byte $43
.addr L08E6
lda L08E6
beq L0EDD
L0EF9: jsr A2D
.byte $39
.addr L0D9C
jsr UNKNOWN_CALL
.byte $0C
.addr L0000
ldx #$09
L0F07: lda L0F12,x
sta L0020,x
dex
bpl L0F07
jmp L0020
L0F12: sta RAMRDOFF
sta RAMWRTOFF
jmp L0862
L0F1B: cmp #$03
bne L0EDD
lda #$33
sta L08DB
jsr A2D
.byte $44
.addr L08DB
ldx #$23
jsr L0880
rts
L0F30: lda L08DD
bne L0F3C
lda L08DC
cmp #$1B
beq L0EF9
L0F3C: rts
L0F3D: lda #$33
sta L08DB
jsr A2D
.byte $46
.addr L08DB
lda L08E1
ora L08E3
bne L0F91
lda L08E2
ldx L08E0
cmp #$03
bcc L0F91
cmp #$14
bcs L0F67
jsr L0F93
bcc L0F91
lda #$00
beq L0F8C
L0F67: cmp #$24
bcs L0F74
jsr L0F93
bcc L0F91
lda #$01
bne L0F8C
L0F74: cmp #$34
bcs L0F81
jsr L0F93
bcc L0F91
lda #$02
bne L0F8C
L0F81: cmp #$44
bcs L0F91
jsr L0F93
bcc L0F91
lda #$03
L0F8C: sta L0D98
sec
rts
L0F91: clc
rts
L0F93: cpx #$05
bcc L0FBA
cpx #$21
bcs L0F9F
lda #$00
beq L0FB5
L0F9F: cpx #$3E
bcs L0FA7
lda #$01
bne L0FB5
L0FA7: cpx #$5A
bcs L0FAF
lda #$02
bne L0FB5
L0FAF: cpx #$75
bcs L0FBA
lda #$03
L0FB5: sta L0D97
sec
rts
L0FBA: clc
rts
L0FBC: lda #$00
ldy L0D96
beq L0FC9
L0FC3: clc
adc #$04
dey
bne L0FC3
L0FC9: sta L0D99
clc
adc L0D95
tay
lda L0D97
cmp L0D95
beq L1014
lda L0D98
cmp L0D96
beq L0FE2
L0FE1: rts
L0FE2: lda L0D97
cmp L0D95
beq L0FE1
bcs L1000
lda L0D95
sec
sbc L0D97
tax
L0FF4: lda L0949,y
sta L094A,y
dey
dex
bne L0FF4
beq L1055
L1000: lda L0D97
sec
sbc L0D95
tax
L1008: lda L094B,y
sta L094A,y
iny
dex
bne L1008
beq L1055
L1014: lda L0D98
cmp L0D96
beq L0FE1
bcs L1035
lda L0D96
sec
sbc L0D98
tax
L1026: lda L0946,y
sta L094A,y
dey
dey
dey
dey
dex
bne L1026
beq L104A
L1035: lda L0D98
sec
sbc L0D96
tax
L103D: lda L094E,y
sta L094A,y
iny
iny
iny
iny
dex
bne L103D
L104A: lda #$0C
sta L094A,y
jsr L11D9
jmp L105D
L1055: lda #$0C
sta L094A,y
jsr L11C8
L105D: jsr L1262
bcc L106E
ldx #$04
L1064: txa
pha
jsr L1247
pla
tax
dex
bne L1064
L106E: jmp L12D2
rts
L1072: jsr A2D
.byte $08
.addr L0D72
jsr A2D
.byte $11
.addr L0D6A
jsr A2D
.byte $08
.addr L0D7B
jsr A2D
.byte $0E
.addr L0D8D
jsr A2D
.byte $0F
.addr L0D91
jsr L11BB
lda #$33
sta L08E7
jsr A2D
.byte $3C
.addr L08E7
jsr A2D
.byte $04
.addr L0DB3
rts
L10A5: ldx #$00
L10A7: lda L0000,x
sta L10BB,x
dex
bne L10A7
rts
ldx #$00
L10B2: lda L10BB,x
sta L0000,x
dex
bne L10B2
rts
L10BB: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00
L11BB: ldy #$01
sty L0D9B
dey
lda #$10
sta L0D9A
bne L11E6
L11C8: lda #$01
sta L0D9B
lda L0D99
tay
clc
adc #$04
sta L0D9A
bne L11E6
L11D9: lda #$04
sta L0D9B
ldy L0D95
lda #$10
sta L0D9A
L11E6: tya
pha
jsr A2D
.byte $26
.addr L0000
lda #$33
sta L08E7
jsr A2D
.byte $3C
.addr L08E7
jsr A2D
.byte $04
.addr L0DB3
pla
tay
L1201: tya
pha
asl a
asl a
tax
lda L08EA,x
sta L095A
lda L08EB,x
sta L095B
lda L08EC,x
sta L095C
lda L08ED,x
sta L095D
lda L094A,y
asl a
tax
lda L092A,x
sta L095E
lda L092B,x
sta L095F
jsr A2D
.byte $14
.addr L095A
pla
clc
adc L0D9B
tay
cpy L0D9A
bcc L1201
jsr A2D
.byte $25
.addr L0000
rts
L1247: ldx #$80
L1249: lda #$58
L124B: ldy #$1B
L124D: dey
bne L124D
bit $C030
tay
L1254: dey
bne L1254
sbc #$01
beq L1249
bit $C030
dex
bne L124B
rts
L1262: lda L094A
beq L126B
cmp #$0C
bne L12D0
L126B: ldy #$01
L126D: tya
cmp L094A,y
bne L12D0
iny
cpy #$05
bcc L126D
lda L094F
cmp #$05
beq L1283
cmp #$06
bne L12D0
L1283: lda L0950
cmp #$05
beq L128E
cmp #$06
bne L12D0
L128E: lda L0951
cmp #$07
bne L12D0
lda L0952
cmp #$08
bne L12D0
lda L0953
cmp #$09
beq L12A7
cmp #$0A
bne L12D0
L12A7: lda L0954
cmp #$09
beq L12B2
cmp #$0A
bne L12D0
L12B2: lda L0955
cmp #$0B
bne L12D0
lda L0956
beq L12C2
cmp #$0C
bne L12D0
L12C2: ldy #$0D
L12C4: tya
cmp L094A,y
bne L12D0
iny
cpy #$10
bcc L12C4
rts
L12D0: clc
rts
L12D2: ldy #$0F
L12D4: lda L094A,y
cmp #$0C
beq L12DE
dey
bpl L12D4
L12DE: lda #$00
sta L0D95
sta L0D96
tya
L12E7: cmp #$04
bcc L12F2
sbc #$04
inc L0D96
bne L12E7
L12F2: sta L0D95
rts
Reference in New Issue Copy Permalink