antoine-source/hypercardiigs/CTLDEF3.S

688 lines
15 KiB
ArmAsm

*---------------------------------------------------------*
* Disassembled with The Flaming Bird Disassembler *
* (c) Phoenix corp. 1992,93 - All rights reserved *
*---------------------------------------------------------*
REL
PHB
PHD
TSC
SEC
SBC #$0010
TCD
TCS
STZ $21
STZ $23
PHB
PHK
PLB
LDY #$0002
LDA [$17]
STA $01
LDA [$17],Y
STA $03
LDA $1F
CMP #$0000
BEQ L0064
CMP #$0002
BEQ L0072
CMP #$0008
BEQ L004D
CMP #$0003
BEQ L0050
CMP #$0009
BEQ L0053
CMP #$0005
BEQ L0056
CMP #$0006
BEQ L0056
CMP #$000A
BEQ L0059
CMP #$000C
BEQ L005C
JMP L01C9
L004D JMP L0124
L0050 JMP L01A1
L0053 JMP L01BF
L0056 JMP L01C7
L0059 JMP L01AF
L005C LDA #$0028
STA $21
JMP L01C9
L0064 LDA $1B
JSR L01DE
LDA #$000F
STA L0445
JMP L01C9
L0072 LDY #$0010
LDA [$01],Y
LDY #$0000
AND #$0001
CMP #$0000
BEQ L0085
LDY #$0010
L0085 TYA
CLC
ADC #$000E
TAY
LDX #$000E
L008E LDA L0447,Y
STA L0431,X
DEY
DEY
DEX
DEX
BPL L008E
LDA #^L0431
PHA
LDA #L0431
PHA
LDY #$000A
LDA [$01],Y
PHA
LDY #$0008
LDA [$01],Y
PHA
_OffsetRect
LDA #^L0439
PHA
LDA #L0439
PHA
LDY #$000A
LDA [$01],Y
PHA
LDY #$0008
LDA [$01],Y
PHA
_OffsetRect
LDA $1B
STA L0441
LDA $1D
STA L0443
PEA $0000
LDA #^L0441
PHA
LDA #L0441
PHA
LDA #^L0431
PHA
LDA #L0431
PHA
_PtInRect
PLA
BEQ L00FF
LDA #$0028
STA $21
JMP L01C9
L00FF PEA $0000
LDA #^L0441
PHA
LDA #L0441
PHA
LDA #^L0439
PHA
LDA #L0439
PHA
_PtInRect
PLA
BEQ L0121
LDA #$0029
STA $21
L0121 JMP L01C9
L0124 LDA $1B
CMP #$0028
BEQ L0130
CMP #$0029
BEQ L0157
L0130 LDY #$001E
LDA [$01],Y
STA $09
LDY #$0012
LDA [$01],Y
CMP $09
BMI L0142
BRA L017F
L0142 INC
STA [$01],Y
CMP $09
BMI L014B
BRA L017F
L014B INC
STA [$01],Y
LDA #$0028
JSR L01DE
JMP L017F
L0157 LDY #$001C
LDA [$01],Y
STA $09
LDY #$0012
LDA [$01],Y
CMP $09
BEQ L017F
BPL L016B
BRA L017F
L016B DEC
STA [$01],Y
CMP $09
BEQ L017F
BPL L0176
BRA L017F
L0176 DEC
STA [$01],Y
LDA #$0029
JSR L01DE
L017F JSR L037B
CLC
ADC L0445
STA $09
L0188 JSR L037B
CMP $09
BMI L0188
LDA L0445
BEQ L019E
DEC
BEQ L019B
DEC
BEQ L019B
DEC
L019B STA L0445
L019E JMP L01C9
L01A1 LDY #$0018
LDA #$FFFF
STA [$01],Y
INY
INY
STA [$01],Y
BRA L01C9
L01AF LDA $1B
LDY #$001C
STA [$01],Y
LDA $1D
LDY #$001E
STA [$01],Y
BRA L01C9
L01BF LDA #$0001
JSR L01DE
BRA L01C9
L01C7 INC $21
L01C9 PLB
LDA $15
STA $1F
LDA $13
STA $1D
LDX $11
TDC
CLC
ADC #$001C
TCS
TXA
TCD
PLB
RTL
L01DE STA $09
LDY #$0010
LDA [$01],Y
TAX
AND #$0080
BEQ L01EC
RTS
L01EC TXA
AND #$0001
STA $0B
LDY #$0011
LDA [$01],Y
AND #$00FF
CMP #$0028
BEQ L0209
CMP #$0029
BEQ L0209
CMP #$00FF
BNE L0211
L0209 LDA $0B
CLC
ADC #$0004
STA $0B
L0211 LDA $09
CMP #$0000
BEQ L021D
CMP #$0029
BNE L0221
L021D CLC
JSR L038B
L0221 LDA $09
CMP #$0000
BEQ L022D
CMP #$0028
BNE L0231
L022D SEC
JSR L038B
L0231 LDY #$0020
LDA [$01],Y
AND #$0006
TAX
PHX
LDY #$0010
LDA [$01],Y
AND #$0001
CMP #$0001
BEQ L025E
TXA
LDX #$1388
CMP #$0004
BNE L0254
LDX #$0C35
L0254 CMP #$0006
BNE L0272
LDX #$30D4
BRA L0272
L025E TXA
LDX #$2710
CMP #$0004
BNE L026A
LDX #$1B58
L026A CMP #$0006
BNE L0272
LDX #$6B6C
L0272 PEA $0000
PEA $0000
PHX
PEA $2710
_FixRatio
PLX
PLA
STX $0D
STA $0F
PEA $0000
PEA $0000
PEA $0000
LDY #$0012
LDA [$01],Y
PHA
_Long2Fix
PLX
PLY
PEA $0000
PEA $0000
PHY
PHX
LDA $0F
PHA
LDA $0D
PHA
_FixMul
PLA
STA $0D
PLA
STA $0F
PLA
CMP #$0004
BEQ L02C7
CMP #$0002
BNE L02CC
L02C7 JSR L03DD
BRA L02E6
L02CC CLC
LDA $0F
ADC #$03E8
STA $0F
JSR L03DD
SEP #$20
LDA L0411+2
STA L0411+1
LDA #$2E
STA L0411+2
REP #$20
L02E6 LDY #$000A
LDA [$01],Y
CLC
ADC #$002A
PHA
STA L0433
LDY #$0008
LDA [$01],Y
INC
STA L0431
CLC
ADC #$0009
PHA
STA L0435
LDY #$000E
LDA [$01],Y
STA L0437
LDA #^L0431
PHA
LDA #L0431
PHA
_EraseRect
_MoveTo
LDA #^L0411
PHA
LDA #L0411
PHA
_DrawString
LDY #$0011
LDA [$01],Y
AND #$00FF
CMP #$00FF
BEQ L033F
RTS
L033F LDA #$3333
LDX #$CCCC
JSR L03B3
PEA $8001
_SetPenMode
CLC
LDA $01
ADC #$0008
TAX
LDA $03
ADC #$0000
PHA
PHX
_PaintRect
PEA $0000
_SetPenMode
LDA #$0000
LDX #$0000
JSR L03B3
RTS
L037B PEA $0000
PEA $0000
_GetTick
PLA
PLX
RTS
L038B LDA $0B
BCC L0391
INC
INC
L0391 ASL
TAY
LDA L0467,Y
TAX
LDA #^L0467
PHA
PHX
PEA $F000
LDY #$000A
LDA [$01],Y
PHA
LDY #$0008
LDA [$01],Y
PHA
_DrawIcon
RTS
L03B3 STX $07
STA $05
LDY #$0020
L03BA DEY
DEY
LDA $05
STA L0411,Y
DEY
DEY
LDA $07
STA L0411,Y
CPY #$0000
BNE L03BA
LDA #^L0411
PHA
LDA #L0411
PHA
_SetPenPat
RTS
L03DD PEA $0000
LDA $0F
PHA
LDA $0D
PHA
_FixRound
PLA
PEA $0000
PHA
LDA #^L0411
PHA
LDA #L0411
PHA
PEA $0005
PEA $0000
_Long2Dec
SEP #$20
LDA #$04
STA L0411
REP #$20
RTS
L0411 DS $20
L0431 DW $0000
L0433 DW $0000
L0435 DW $0000
L0437 DW $0000
L0439 DW $0000
DW $0000
DW $0000
DW $0000
L0441 DW $0000
L0443 DW $0000
L0445 DW $0000
L0447 DW $0000
DW $000D
DW $000B
DW $0017
DW $0000
DW $0000
DW $000B
DW $000D
DW $0007
DW $0000
DW $000C
DW $0017
DW $0001
DW $0000
DW $0007
DW $0017
L0467 DA L062F
DA L0477
DA L06DF
DA L0517
DA L0687
DA L04C7
DA L075F
DA L05A3
L0477 DW $0080 ; Icon type
DW $0024 ; Icon size
DW $0006 ; Icon height
DW $000C ; Icon width
HEX FFFFFFFFFFFF ; Icon image
HEX FFFFFFFFFFFF
HEX FFFFFC3FFFFF
HEX FFFFC3C3FFFF
HEX FFFC3FFC3FFF
HEX FFC0000003FF
HEX 000000000000 ; Icon mask
HEX 000000000000
HEX 000003C00000
HEX 00003FFC0000
HEX 0003FFFFC000
HEX 003FFFFFFC00
L04C7 DW $0080 ; Icon type
DW $0024 ; Icon size
DW $0006 ; Icon height
DW $000C ; Icon width
HEX FFFFFFFFFFFF ; Icon image
HEX FFFFFFFFFFFF
HEX FFFFFC3FFFFF
HEX FFFFC003FFFF
HEX FFFC00003FFF
HEX FFC0000003FF
HEX 000000000000 ; Icon mask
HEX 000000000000
HEX 000003C00000
HEX 00003FFC0000
HEX 0003FFFFC000
HEX 003FFFFFFC00
L0517 DW $0080 ; Icon type
DW $0042 ; Icon size
DW $000B ; Icon height
DW $000C ; Icon width
HEX FFFFFFFFFFFF ; Icon image
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFC0000003FF
HEX FFFC3FFC3FFF
HEX FFFFC3C3FFFF
HEX FFFFFC3FFFFF
HEX 000000000000 ; Icon mask
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 003FFFFFFC00
HEX 0003FFFFC000
HEX 00003FFC0000
HEX 000003C00000
L05A3 DW $0080 ; Icon type
DW $0042 ; Icon size
DW $000B ; Icon height
DW $000C ; Icon width
HEX FFFFFFFFFFFF ; Icon image
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFC0000003FF
HEX FFFC00003FFF
HEX FFFFC003FFFF
HEX FFFFFC3FFFFF
HEX 000000000000 ; Icon mask
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 003FFFFFFC00
HEX 0003FFFFC000
HEX 00003FFC0000
HEX 000003C00000
L062F DW $0080 ; Icon type
DW $0028 ; Icon size
DW $000A ; Icon height
DW $0008 ; Icon width
HEX FFFFFFFF ; Icon image
HEX FFFFFFFF
HEX FFFFFFFF
HEX FFFFC3FF
HEX FFFC03FF
HEX FFC3C3FF
HEX FC3FC3FF
HEX FFC3C3FF
HEX FFFC03FF
HEX FFFFC3FF
HEX 00000000 ; Icon mask
HEX 00000000
HEX 00000000
HEX 00003C00
HEX 0003FC00
HEX 003FFC00
HEX 03FFFC00
HEX 003FFC00
HEX 0003FC00
HEX 00003C00
L0687 DW $0080 ; Icon type
DW $0028 ; Icon size
DW $000A ; Icon height
DW $0008 ; Icon width
HEX FFFFFFFF ; Icon image
HEX FFFFFFFF
HEX FFFFFFFF
HEX FFFFC3FF
HEX FFFC03FF
HEX FFC003FF
HEX FC0003FF
HEX FFC003FF
HEX FFFC03FF
HEX FFFFC3FF
HEX 00000000 ; Icon mask
HEX 00000000
HEX 00000000
HEX 00003C00
HEX 0003FC00
HEX 003FFC00
HEX 03FFFC00
HEX 003FFC00
HEX 0003FC00
HEX 00003C00
L06DF DW $0080 ; Icon type
DW $003C ; Icon size
DW $000A ; Icon height
DW $000C ; Icon width
HEX FFFFFFFFFFFF ; Icon image
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFC3FFFF
HEX FFFFFFC03FFF
HEX FFFFFFC3C3FF
HEX FFFFFFC3FC3F
HEX FFFFFFC3C3FF
HEX FFFFFFC03FFF
HEX FFFFFFC3FFFF
HEX 000000000000 ; Icon mask
HEX 000000000000
HEX 000000000000
HEX 0000003C0000
HEX 0000003FC000
HEX 0000003FFC00
HEX 0000003FFFC0
HEX 0000003FFC00
HEX 0000003FC000
HEX 0000003C0000
L075F DW $0080 ; Icon type
DW $003C ; Icon size
DW $000A ; Icon height
DW $000C ; Icon width
HEX FFFFFFFFFFFF ; Icon image
HEX FFFFFFFFFFFF
HEX FFFFFFFFFFFF
HEX FFFFFFC3FFFF
HEX FFFFFFC03FFF
HEX FFFFFFC003FF
HEX FFFFFFC0003F
HEX FFFFFFC003FF
HEX FFFFFFC03FFF
HEX FFFFFFC3FFFF
HEX 000000000000 ; Icon mask
HEX 000000000000
HEX 000000000000
HEX 0000003C0000
HEX 0000003FC000
HEX 0000003FFC00
HEX 0000003FFFC0
HEX 0000003FFC00
HEX 0000003FC000
HEX 0000003C0000