mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-29 11:30:55 +00:00
2450 lines
48 KiB
ArmAsm
2450 lines
48 KiB
ArmAsm
*
|
|
* GS/Paint
|
|
* version 1.2
|
|
*
|
|
* (c) 1986-1987, Version Soft
|
|
* (s) 2020, Brutal Deluxe Software
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
use EDITCOLOR.X
|
|
lst off
|
|
|
|
*-------------------------------
|
|
|
|
use 4/Ctl.Macs
|
|
use 4/Desk.Macs
|
|
use 4/Dialog.Macs
|
|
use 4/Event.Macs
|
|
use 4/Font.Macs
|
|
use 4/Int.Macs
|
|
use 4/Line.Macs
|
|
use 4/List.Macs
|
|
use 4/Load.Macs
|
|
use 4/Locator.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Menu.Macs
|
|
use 4/Misc.Macs
|
|
use 4/Misc.Macs
|
|
use 4/Print.Macs
|
|
use 4/Qd.Macs
|
|
use 4/QdAux.Macs
|
|
use 4/Std.Macs
|
|
use 4/Util.Macs
|
|
use 4/Window.Macs
|
|
|
|
*-------------------------------
|
|
|
|
BRA L030004
|
|
LDA $A5
|
|
L030004 PHB
|
|
PHK
|
|
PLB
|
|
JSL L0149A7
|
|
STA $0A
|
|
STX $0C
|
|
LDA [$0A]
|
|
AND #$000F
|
|
STA L03177B
|
|
STA L031763
|
|
LDA $56
|
|
STA L0318DF
|
|
LDA $58
|
|
STA L0318E1
|
|
LDA $5A
|
|
STA L0318E3
|
|
LDA $5C
|
|
STA L0318E5
|
|
CLC
|
|
LDA L0318DF
|
|
ADC #$0036
|
|
STA L0318E3
|
|
CLC
|
|
LDA L0318E1
|
|
ADC #$00DA
|
|
STA L0318E5
|
|
STZ L031759
|
|
STZ L031777
|
|
STZ L031779
|
|
LDA #$00FF
|
|
STA L031767
|
|
STA L031769
|
|
STA L03176B
|
|
STA L03176D
|
|
STA L03176F
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA L03177B
|
|
PHA
|
|
_GetColorEntry
|
|
PLA
|
|
STA L031765
|
|
PEA $0000
|
|
PEA ^L03179D
|
|
PEA L03179D
|
|
_GetColorTable
|
|
JSR L030570
|
|
JSR L030EF4
|
|
JSR L0300F0
|
|
JSR L03063F
|
|
LDA $A2
|
|
PHA
|
|
LDA $A0
|
|
PHA
|
|
_CloseWindow
|
|
_InitPalette
|
|
JSL L010D82
|
|
PLB
|
|
RTL
|
|
|
|
L0300A8 LDA L031763
|
|
JSR L0300CF
|
|
PEA ^L0317DB
|
|
PEA L0317DB
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
PEA ^L0317DB
|
|
PEA L0317DB
|
|
_FrameRect
|
|
RTS
|
|
|
|
L0300CF AND #$000F
|
|
STA L0300ED+1
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ORA L0300ED+1
|
|
STA L0300ED+1
|
|
ORA L0300ED
|
|
LDX #$001E
|
|
L0300E5 STA L03177D,X
|
|
DEX
|
|
DEX
|
|
BPL L0300E5
|
|
RTS
|
|
|
|
L0300ED HEX 000000
|
|
L0300F0 PEA $0000
|
|
PEA $FFFF
|
|
PEA ^L0317EB
|
|
PEA L0317EB
|
|
_GetNextEvent
|
|
PLA
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
_GlobalToLocal
|
|
JSR L030EAB
|
|
LDA L0317EB
|
|
CMP #$0001
|
|
BNE L03011F
|
|
JSR L0301C2
|
|
L03011F LDA L0317EB
|
|
CMP #$0003
|
|
BEQ L03012F
|
|
CMP #$0005
|
|
BEQ L03012F
|
|
BRL L0301B9
|
|
L03012F LDA L0317ED
|
|
CMP #$001B
|
|
BNE L03016D
|
|
LDA L0317F9
|
|
AND #$0100
|
|
BEQ L03016D
|
|
LDA L0317F9
|
|
AND #$0800
|
|
BEQ L03016D
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
_InitColorTable
|
|
PEA $0000
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
_SetColorTable
|
|
_InitPalette
|
|
BRA L0301B9
|
|
L03016D LDA L0317ED
|
|
CMP #$000D
|
|
BNE L03018F
|
|
PEA ^L031998
|
|
PEA L031998
|
|
PEA $000F
|
|
PEA $000D
|
|
_InvertRRect
|
|
LDA #$0001
|
|
STA $3C
|
|
BRA L0301C1
|
|
L03018F CMP #$001B
|
|
BNE L0301B9
|
|
PEA $0000
|
|
PEA ^L03179D
|
|
PEA L03179D
|
|
_SetColorTable
|
|
PEA ^L0319A0
|
|
PEA L0319A0
|
|
PEA $000F
|
|
PEA $000D
|
|
_InvertRRect
|
|
BRA L0301C1
|
|
L0301B9 LDA L031759
|
|
BNE L0301C1
|
|
BRL L0300F0
|
|
L0301C1 RTS
|
|
|
|
L0301C2 LDA L031763
|
|
JSR L0300CF
|
|
PEA $0000
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
PEA ^L0317DB
|
|
PEA L0317DB
|
|
_PtInRect
|
|
PLA
|
|
BEQ L0301FC
|
|
LDA L0317DB
|
|
STA L03175B
|
|
LDA L0317DD
|
|
STA L03175B+2
|
|
LDA L0317DF
|
|
STA L03175B+4
|
|
LDA L0317E1
|
|
STA L03175B+6
|
|
BRL L030CA9
|
|
L0301FC PHA
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
PEA ^L031988
|
|
PEA L031988
|
|
_PtInRect
|
|
PLA
|
|
BEQ L03021E
|
|
LDA #$0001
|
|
STA $3C
|
|
LDA #$0001
|
|
L03021B BRL L030BFD
|
|
L03021E PHA
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
PEA ^L031990
|
|
PEA L031990
|
|
_PtInRect
|
|
LDA #$0002
|
|
PLX
|
|
BNE L03021B
|
|
LDA L0317F5
|
|
CMP #$003C
|
|
BCC L030296
|
|
CMP #$004D
|
|
BCC L030248
|
|
BRL L030676
|
|
L030248 LDA L0317F7
|
|
CMP #$0030
|
|
BCC L030296
|
|
CMP #$0130
|
|
BCS L030296
|
|
SBC #$002F
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
EOR #$000F
|
|
STA L031763
|
|
JSR L0300A8
|
|
LDA L031763
|
|
EOR #$000F
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ADC #$0030
|
|
STA L03175B+2
|
|
ADC #$0010
|
|
STA L03175B+6
|
|
LDA #$003D
|
|
STA L03175B
|
|
LDA #$004C
|
|
STA L03175B+4
|
|
LDA L0317F9
|
|
AND #$0100
|
|
BNE L030292
|
|
BRL L030CA9
|
|
L030292 JSR L0313E8
|
|
RTS
|
|
|
|
L030296 PHA
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
PEA ^L0317CB
|
|
PEA L0317CB
|
|
_PtInRect
|
|
PLA
|
|
BNE L0302AE
|
|
RTS
|
|
|
|
L0302AE PEA ^L0317CB
|
|
PEA L0317CB
|
|
_ClipRect
|
|
LDA #$0005
|
|
PHA
|
|
PHA
|
|
_SetPenSize
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_SetPenPat
|
|
LDA L0317F7
|
|
PHA
|
|
LDA L0317F5
|
|
PHA
|
|
_MoveTo
|
|
L0302E3 LDA #$0000
|
|
PHA
|
|
PHA
|
|
_StillDown
|
|
PLA
|
|
BEQ L030310
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
_GetMouse
|
|
LDA L0317F7
|
|
PHA
|
|
LDA L0317F5
|
|
PHA
|
|
_LineTo
|
|
BRA L0302E3
|
|
L030310 _PenNormal
|
|
PEA ^L0317D3
|
|
PEA L0317D3
|
|
_ClipRect
|
|
RTS
|
|
|
|
L030325 LDX #$000F
|
|
L030328 PHX
|
|
TXA
|
|
LSR
|
|
PHP
|
|
CLC
|
|
ADC #$0008
|
|
STA L0304A0
|
|
PLP
|
|
LDA #$0005
|
|
BCC L03033C
|
|
LDA #$0009
|
|
L03033C STA L0304A2
|
|
LDA L031765
|
|
AND #$00FF
|
|
STA L0304A4
|
|
PLA
|
|
PHA
|
|
XBA
|
|
ORA L0304A4
|
|
TAY
|
|
LDA L0304A0
|
|
PHA
|
|
LDA L0304A2
|
|
PHA
|
|
PHY
|
|
_SetColorEntry
|
|
INC L0304A2
|
|
LDA L031765
|
|
AND #$0F0F
|
|
STA L0304A4
|
|
PLA
|
|
PHA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ORA L0304A4
|
|
TAY
|
|
LDA L0304A0
|
|
PHA
|
|
LDA L0304A2
|
|
PHA
|
|
PHY
|
|
_SetColorEntry
|
|
INC L0304A2
|
|
LDA L031765
|
|
AND #$0FF0
|
|
STA L0304A4
|
|
PLA
|
|
PHA
|
|
ORA L0304A4
|
|
TAY
|
|
LDA L0304A0
|
|
PHA
|
|
LDA L0304A2
|
|
PHA
|
|
PHY
|
|
_SetColorEntry
|
|
PLX
|
|
DEX
|
|
BMI L0303AE
|
|
BRL L030328
|
|
L0303AE LDX #$000F
|
|
L0303B1 PHX
|
|
PHX
|
|
PEA $000D
|
|
LDA L031765
|
|
PHA
|
|
_SetColorEntry
|
|
PLX
|
|
DEX
|
|
CPX #$0008
|
|
BCS L0303B1
|
|
LDA #$000F
|
|
STA L031773
|
|
STZ L031775
|
|
LDA L031765
|
|
JSR L03048C
|
|
LDA L031765
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
JSR L03048C
|
|
LDA L031765
|
|
XBA
|
|
JSR L03048C
|
|
LDA L031777
|
|
CMP #$0004
|
|
BEQ L030408
|
|
LDA #$0008
|
|
STA L0304A6
|
|
LDA #$0004
|
|
STA L0304A8
|
|
JSR L03042A
|
|
JSR L03045B
|
|
LDA L031777
|
|
CMP #$0004
|
|
L030408 LDA #$0001
|
|
STA L0304A6
|
|
LDA #$000F
|
|
STA L0304A8
|
|
LDA L031777
|
|
CMP #$0005
|
|
BEQ L030422
|
|
JSR L030425
|
|
JSR L030456
|
|
L030422 BRL L030929
|
|
L030425 LDX L031775
|
|
BRA L03042D
|
|
L03042A LDX L031773
|
|
L03042D LDA L031765
|
|
L030430 PHA
|
|
PHX
|
|
TAY
|
|
TXA
|
|
LSR
|
|
PHP
|
|
CLC
|
|
ADC #$0008
|
|
PLP
|
|
PHA
|
|
LDA L0304A6
|
|
BCC L030444
|
|
EOR L0304A8
|
|
L030444 PHA
|
|
PHY
|
|
_SetColorEntry
|
|
PLX
|
|
PLA
|
|
JSR L030562
|
|
DEX
|
|
BPL L030430
|
|
RTS
|
|
|
|
L030456 LDX L031775
|
|
BRA L03045E
|
|
L03045B LDX L031773
|
|
L03045E LDA L031765
|
|
L030461 INX
|
|
CPX #$0010
|
|
BCS L03048B
|
|
JSR L030554
|
|
PHA
|
|
PHX
|
|
TAY
|
|
TXA
|
|
LSR
|
|
PHP
|
|
CLC
|
|
ADC #$0008
|
|
PLP
|
|
PHA
|
|
LDA L0304A6
|
|
BCC L03047E
|
|
EOR L0304A8
|
|
L03047E PHA
|
|
PHY
|
|
_SetColorEntry
|
|
PLX
|
|
PLA
|
|
BRA L030461
|
|
L03048B RTS
|
|
|
|
L03048C AND #$000F
|
|
CMP L031773
|
|
BCS L030497
|
|
STA L031773
|
|
L030497 CMP L031775
|
|
BCC L03049F
|
|
STA L031775
|
|
L03049F RTS
|
|
|
|
L0304A0 DW $0000
|
|
L0304A2 DW $0000
|
|
L0304A4 DW $0000
|
|
L0304A6 DW $0000
|
|
L0304A8 DW $0000
|
|
L0304AA STA L0304FE
|
|
CPX #$0001
|
|
BNE L0304C4
|
|
XBA
|
|
JSR L0304F1
|
|
XBA
|
|
STA L030500
|
|
LDA L0304FE
|
|
AND #$00FF
|
|
ORA L030500
|
|
RTS
|
|
|
|
L0304C4 CPX #$0002
|
|
BNE L0304E1
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
JSR L0304F1
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
STA L030500
|
|
LDA L0304FE
|
|
AND #$0F0F
|
|
ORA L030500
|
|
RTS
|
|
|
|
L0304E1 JSR L0304F1
|
|
STA L030500
|
|
LDA L0304FE
|
|
AND #$0FF0
|
|
ORA L030500
|
|
RTS
|
|
|
|
L0304F1 AND #$000F
|
|
INC
|
|
AND #$000F
|
|
BNE L0304FD
|
|
LDA #$000F
|
|
L0304FD RTS
|
|
|
|
L0304FE DW $0000
|
|
L030500 DW $0000
|
|
L030502 STA L030550
|
|
CPX #$0001
|
|
BNE L03051C
|
|
XBA
|
|
JSR L030549
|
|
XBA
|
|
STA L030552
|
|
LDA L030550
|
|
AND #$00FF
|
|
ORA L030552
|
|
RTS
|
|
|
|
L03051C CPX #$0002
|
|
BNE L030539
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
JSR L030549
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
STA L030552
|
|
LDA L030550
|
|
AND #$0F0F
|
|
ORA L030552
|
|
RTS
|
|
|
|
L030539 JSR L030549
|
|
STA L030552
|
|
LDA L030550
|
|
AND #$0FF0
|
|
ORA L030552
|
|
RTS
|
|
|
|
L030549 AND #$000F
|
|
BEQ L03054F
|
|
DEC
|
|
L03054F RTS
|
|
|
|
L030550 DW $0000
|
|
L030552 DW $0000
|
|
L030554 PHX
|
|
PHY
|
|
LDX #$0003
|
|
L030559 JSR L0304AA
|
|
DEX
|
|
BNE L030559
|
|
PLY
|
|
PLX
|
|
RTS
|
|
|
|
L030562 PHX
|
|
PHY
|
|
LDX #$0003
|
|
L030567 JSR L030502
|
|
DEX
|
|
BNE L030567
|
|
PLY
|
|
PLX
|
|
RTS
|
|
|
|
L030570 PEA ^L030656
|
|
PEA L030656
|
|
_InitColorTable
|
|
PEA $0007
|
|
PEA ^L030656
|
|
PEA L030656
|
|
_SetColorTable
|
|
LDA #$0F00
|
|
STA L030656+4
|
|
LDA #$00F0
|
|
STA L030656+6
|
|
LDA #$000F
|
|
STA L030656+8
|
|
LDA #$0FFF
|
|
STA L030656+$1C
|
|
LDX #$000F
|
|
L0305A8 PHX
|
|
PHX
|
|
PEA ^L030656
|
|
PEA L030656
|
|
_SetColorTable
|
|
LDA L030656+4
|
|
SEC
|
|
SBC #$0200
|
|
STA L030656+4
|
|
LDA L030656+6
|
|
SEC
|
|
SBC #$0020
|
|
STA L030656+6
|
|
LDA L030656+8
|
|
SEC
|
|
SBC #$0002
|
|
STA L030656+8
|
|
LDA L030656+$1C
|
|
SEC
|
|
SBC #$0222
|
|
STA L030656+$1C
|
|
PLX
|
|
DEX
|
|
CPX #$0008
|
|
BCS L0305A8
|
|
L0305E6 PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_GetColorEntry
|
|
PLA
|
|
STA L030656
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $000F
|
|
_GetColorEntry
|
|
PLA
|
|
STA L030656+2
|
|
LDX #$0007
|
|
L030611 PHX
|
|
PHX
|
|
PHX
|
|
PEA $0000
|
|
LDA L030656
|
|
PHA
|
|
_SetColorEntry
|
|
PEA $000F
|
|
LDA L030656+2
|
|
PHA
|
|
_SetColorEntry
|
|
PLX
|
|
INX
|
|
CPX #$0010
|
|
BCC L030611
|
|
_InitPalette
|
|
RTS
|
|
|
|
L03063F LDA #$00C7
|
|
L030642 PHA
|
|
PHA
|
|
PEA $0000
|
|
_SetSCB
|
|
PLA
|
|
DEC
|
|
CMP #$000A
|
|
BCS L030642
|
|
RTS
|
|
|
|
L030656 HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L030676 STZ L0307F0
|
|
STZ L0307E8
|
|
STZ L0307EE
|
|
L03067F STZ L0307E4
|
|
LDA L0317F5
|
|
LDY L0317F7
|
|
CMP #$0050
|
|
BCC L0306D9
|
|
CMP #$005D
|
|
BCC L0306A0
|
|
SEC
|
|
ROR L0307E4
|
|
CMP #$009D
|
|
BCC L0306EA
|
|
CMP #$00AA
|
|
BCS L0306D9
|
|
L0306A0 LDX #$0001
|
|
CPY #$0028
|
|
BCC L0306D9
|
|
CPY #$0038
|
|
BCC L0306F5
|
|
INX
|
|
CPY #$004B
|
|
BCC L0306D9
|
|
CPY #$005B
|
|
BCC L0306F5
|
|
INX
|
|
CPY #$006E
|
|
BCC L0306D9
|
|
CPY #$007E
|
|
BCC L0306F5
|
|
INX
|
|
CPY #$00A0
|
|
BCC L0306D9
|
|
CPY #$00B0
|
|
BCC L0306F5
|
|
INX
|
|
CPY #$00C3
|
|
BCC L0306D9
|
|
CPY #$00D3
|
|
BCC L0306F5
|
|
L0306D9 BIT L0307E8
|
|
BPL L0306E7
|
|
LDA #$0000
|
|
JSR L03079B
|
|
BRL L03076E
|
|
L0306E7 BRL L0307F2
|
|
L0306EA BIT L0307E8
|
|
BMI L0306D9
|
|
SEC
|
|
ROR L0307EE
|
|
BRA L0306A0
|
|
L0306F5 STX L031777
|
|
BIT L0307EE
|
|
BPL L030700
|
|
BRL L030AB4
|
|
L030700 STX L0307E6
|
|
BIT L0307E8
|
|
BPL L030715
|
|
CPX L0307EA
|
|
BNE L03076E
|
|
LDA L0307E4
|
|
CMP L0307EC
|
|
BNE L03076E
|
|
L030715 LDA L0307E4
|
|
STA L0307EC
|
|
STX L0307EA
|
|
LDA #$0001
|
|
JSR L03079B
|
|
LDX L0307EA
|
|
LDA L0307EC
|
|
BPL L030753
|
|
LDA L031765
|
|
CPX #$0004
|
|
BCC L030748
|
|
TXA
|
|
ASL
|
|
TAY
|
|
LDA L031765,Y
|
|
INC
|
|
CMP #$0010
|
|
BCC L030743
|
|
LDA #$000F
|
|
L030743 JSR L030BAA
|
|
BRA L03074B
|
|
L030748 JSR L0304AA
|
|
L03074B STA L031765
|
|
JSR L030325
|
|
BRA L03076E
|
|
L030753 LDA L031765
|
|
CPX #$0004
|
|
BCC L030769
|
|
TXA
|
|
ASL
|
|
TAY
|
|
LDA L031765,Y
|
|
BEQ L030764
|
|
DEC
|
|
L030764 JSR L030BAA
|
|
BRA L03074B
|
|
L030769 JSR L030502
|
|
BRA L03074B
|
|
L03076E SEC
|
|
ROR L0307E8
|
|
LDA #$000A
|
|
JSR L0308EF
|
|
PEA $0000
|
|
PEA $0000
|
|
_StillDown
|
|
PLA
|
|
BEQ L030798
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
_GetMouse
|
|
BRL L03067F
|
|
L030798 LDA #$0000
|
|
L03079B CMP L0307F0
|
|
BEQ L0307DB
|
|
STA L0307F0
|
|
LDA L0307EA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L031841,X
|
|
INC
|
|
STA L03175B+2
|
|
LDA L031845,X
|
|
DEC
|
|
STA L03175B+6
|
|
LDX #$0000
|
|
LDA L0307EC
|
|
BPL L0307C2
|
|
INX
|
|
INX
|
|
L0307C2 LDA L0307DC,X
|
|
STA L03175B
|
|
LDA L0307E0,X
|
|
STA L03175B+4
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
_InvertRect
|
|
L0307DB RTS
|
|
|
|
L0307DC DW $0051
|
|
DW $009E
|
|
L0307E0 DW $005C
|
|
DW $00A9
|
|
L0307E4 DW $0000
|
|
L0307E6 DW $0000
|
|
L0307E8 DW $0000
|
|
L0307EA DW $0000
|
|
L0307EC DW $0000
|
|
L0307EE DW $0000
|
|
L0307F0 DW $0000
|
|
L0307F2 PEA $0000
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
PEA ^L03186F
|
|
PEA L03186F
|
|
_PtInRect
|
|
PLA
|
|
BEQ L030838
|
|
LDA L0317F5
|
|
LDX L0317F7
|
|
CMP #$007C
|
|
BCC L030819
|
|
LDA #$007C
|
|
L030819 CPX #$0108
|
|
BCC L030821
|
|
LDX #$0108
|
|
L030821 STA L03175B
|
|
CLC
|
|
ADC #$0010
|
|
STA L03175B+4
|
|
TXA
|
|
STA L03175B+2
|
|
ADC #$0010
|
|
STA L03175B+6
|
|
BRL L030CA9
|
|
L030838 LDA #$009D
|
|
STA L03175B
|
|
CLC
|
|
ADC #$0010
|
|
STA L03175B+4
|
|
LDA #$00DA
|
|
STA L03175B+2
|
|
ADC #$0040
|
|
STA L03175B+6
|
|
PEA $0000
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
_PtInRect
|
|
PLA
|
|
BEQ L03089C
|
|
LDA L0317F5
|
|
SEC
|
|
SBC #$009D
|
|
AND #$FFF8
|
|
CLC
|
|
ADC #$009D
|
|
STA L03175B
|
|
ADC #$0008
|
|
STA L03175B+4
|
|
LDA L0317F7
|
|
SEC
|
|
SBC #$00DA
|
|
AND #$FFF8
|
|
INC
|
|
CLC
|
|
ADC #$00DA
|
|
STA L03175B+2
|
|
ADC #$0008
|
|
STA L03175B+6
|
|
BRL L030CA9
|
|
L03089C LDA #$0002
|
|
L03089F PHA
|
|
PEA $0000
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #^L03182F
|
|
PHX
|
|
CLC
|
|
ADC #L03182F
|
|
PHA
|
|
_PtInRect
|
|
PLA
|
|
BNE L0308C4
|
|
PLA
|
|
DEC
|
|
BPL L03089F
|
|
RTS
|
|
|
|
L0308C4 PLA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L0317F5
|
|
SEC
|
|
SBC L03182F,X
|
|
AND #$FFF8
|
|
CLC
|
|
ADC L03182F,X
|
|
STA L03175B
|
|
ADC #$0008
|
|
STA L03175B+4
|
|
LDA L031831,X
|
|
STA L03175B+2
|
|
LDA L031835,X
|
|
STA L03175B+6
|
|
BRL L030CA9
|
|
L0308EF STA L030925
|
|
PEA $0000
|
|
PEA $0000
|
|
_GetTick
|
|
PLA
|
|
CLC
|
|
ADC L030925
|
|
STA L030925
|
|
PLA
|
|
STA L030927
|
|
L03090B PEA $0000
|
|
PEA $0000
|
|
_GetTick
|
|
PLA
|
|
PLY
|
|
CMP L030925
|
|
BNE L03090B
|
|
CPY L030927
|
|
BNE L03090B
|
|
RTS
|
|
|
|
L030925 DW $0000
|
|
L030927 DW $0000
|
|
L030929 LDA L031765
|
|
XBA
|
|
AND #$000F
|
|
LDX #$0001
|
|
JSR L030964
|
|
LDA L031765
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
AND #$000F
|
|
LDX #$0002
|
|
JSR L030964
|
|
LDA L031765
|
|
AND #$000F
|
|
LDX #$0003
|
|
JSR L030964
|
|
LDA L031773
|
|
LDX #$0004
|
|
JSR L030964
|
|
LDA L031775
|
|
LDX #$0005
|
|
BRL L030964
|
|
L030964 STA L030AAA
|
|
STX L030AAC
|
|
TXA
|
|
ASL
|
|
TAX
|
|
LDA L031765,X
|
|
STA L030AAE
|
|
CMP L030AAA
|
|
BNE L030979
|
|
RTS
|
|
|
|
L030979 LDX L030AAC
|
|
JSR L030A97
|
|
STX L030AB0
|
|
STY L030AB2
|
|
LDA L030AAE
|
|
LDX L030AAC
|
|
CPX #$0005
|
|
BNE L03099B
|
|
LSR
|
|
LDA #$0001
|
|
BCC L0309A6
|
|
LDA #$000E
|
|
BRA L0309A6
|
|
L03099B LSR
|
|
LDA #$0004
|
|
BCC L0309A2
|
|
ASL
|
|
L0309A2 CLC
|
|
ADC L030AAC
|
|
L0309A6 JSR L0300CF
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_SetPenPat
|
|
LDY L030AB2
|
|
LDX L030AAC
|
|
TYA
|
|
CLC
|
|
ADC #$0004
|
|
TAY
|
|
LDA L030AB2
|
|
LDX L030AB0
|
|
SEC
|
|
JSR L030A09
|
|
LDA L030AAC
|
|
ASL
|
|
TAX
|
|
LDA L030AAA
|
|
STA L031765,X
|
|
LDA #$0000
|
|
JSR L0300CF
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_SetPenPat
|
|
LDA L030AAA
|
|
LDX L030AAC
|
|
JSR L030A97
|
|
STX L030AB0
|
|
STY L030AB2
|
|
LDX L030AAC
|
|
TYA
|
|
CLC
|
|
ADC #$0004
|
|
TAY
|
|
LDA L030AB2
|
|
LDX L030AB0
|
|
CLC
|
|
L030A09 STA L030A8F
|
|
STY L030A93
|
|
STX L030A91
|
|
TXA
|
|
BCS L030A30
|
|
SBC #$0001
|
|
STA L030A91
|
|
CLC
|
|
ADC #$0013
|
|
STA L030A95
|
|
PEA ^L030A8F
|
|
PEA L030A8F
|
|
_FrameRect
|
|
RTS
|
|
|
|
L030A30 ADC #$000D
|
|
STA L030A95
|
|
PEA ^L030A8F
|
|
PEA L030A8F
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
LDA L030A91
|
|
SEC
|
|
SBC #$0003
|
|
STA L030A91
|
|
CLC
|
|
ADC #$0002
|
|
STA L030A95
|
|
PEA ^L030A8F
|
|
PEA L030A8F
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_FillRect
|
|
LDA L030A91
|
|
CLC
|
|
ADC #$0013
|
|
STA L030A91
|
|
INC
|
|
STA L030A95
|
|
PEA ^L030A8F
|
|
PEA L030A8F
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_FillRect
|
|
RTS
|
|
|
|
L030A8F DW $0000
|
|
L030A91 DW $0000
|
|
L030A93 DW $0000
|
|
L030A95 DW $0000
|
|
L030A97 ASL
|
|
ASL
|
|
CLC
|
|
ADC #$005D
|
|
PHA
|
|
TXA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L031841,X
|
|
TAX
|
|
INX
|
|
PLY
|
|
RTS
|
|
|
|
L030AAA DW $0000
|
|
L030AAC DW $0000
|
|
L030AAE DW $0000
|
|
L030AB0 DW $0000
|
|
L030AB2 DW $0000
|
|
L030AB4 STX L030B63
|
|
TXA
|
|
ASL
|
|
TAY
|
|
LDA L031765,Y
|
|
STA L030B69
|
|
STA L030B6B
|
|
JSR L030A97
|
|
TXA
|
|
SEC
|
|
SBC #$000A
|
|
STA L030B65
|
|
ADC #$0024
|
|
STA L030B67
|
|
TYA
|
|
CMP L0317F5
|
|
BEQ L030B12
|
|
BCS L030AEB
|
|
LDX L030B63
|
|
CPX #$0004
|
|
CLC
|
|
ADC #$0003
|
|
CMP L0317F5
|
|
BCS L030B12
|
|
L030AEB LDA L0317F5
|
|
SEC
|
|
SBC #$005D
|
|
LSR
|
|
LSR
|
|
LDX L030B63
|
|
JSR L030A97
|
|
STX L03175B+2
|
|
TXA
|
|
CLC
|
|
ADC #$000F
|
|
STA L03175B+6
|
|
STY L03175B
|
|
TYA
|
|
ADC #$0004
|
|
STA L03175B+4
|
|
BRL L030CA9
|
|
L030B12 PEA $0000
|
|
PEA $0000
|
|
_StillDown
|
|
PLA
|
|
BEQ L030B60
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
_GetMouse
|
|
LDA L0317F7
|
|
CMP L030B65
|
|
BCC L030B5A
|
|
CMP L030B67
|
|
BCS L030B5A
|
|
LDA L0317F5
|
|
SEC
|
|
SBC #$005D
|
|
LSR
|
|
LSR
|
|
L030B45 CMP #$00FF
|
|
BCC L030B4D
|
|
LDA #$0000
|
|
L030B4D CMP #$0010
|
|
BCC L030B55
|
|
LDA #$000F
|
|
L030B55 JSR L030B6D
|
|
BRA L030B12
|
|
L030B5A LDA L030B69
|
|
BRA L030B45
|
|
RTS
|
|
|
|
L030B60 BRL L030325
|
|
L030B63 DW $0000
|
|
L030B65 DW $0000
|
|
L030B67 DW $0000
|
|
L030B69 DW $0000
|
|
L030B6B DW $0000
|
|
L030B6D STA L030B6B
|
|
LDX L030B63
|
|
CPX #$0004
|
|
BCS L030BAE+1
|
|
PHA
|
|
TXA
|
|
ASL
|
|
TAX
|
|
LDA L030B6B
|
|
LDA L03179D+$1E,X
|
|
AND L031765
|
|
STA L031765
|
|
LDA L030B6B
|
|
LDX L030B63
|
|
CPX #$0001
|
|
BNE L030B94
|
|
XBA
|
|
L030B94 CPX #$0002
|
|
BNE L030B9D
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
L030B9D ORA L031765
|
|
STA L031765
|
|
PLA
|
|
L030BA4 LDY L031775
|
|
BRL L030964
|
|
L030BAA STA L030B6B
|
|
SEC
|
|
L030BAE BCC L030BC8
|
|
PHP
|
|
TXA
|
|
INC
|
|
AND #$0006
|
|
TAY
|
|
LDA L030BEB+2,Y
|
|
STA L030BF9
|
|
LDA L030BF1,Y
|
|
STA L030BFB
|
|
LDA L030B6B
|
|
LSR
|
|
PHP
|
|
L030BC8 CLC
|
|
ADC #$0008
|
|
PLP
|
|
PEA $0000
|
|
PHA
|
|
LDA L030BF9
|
|
BCC L030BD9
|
|
EOR L030BFB
|
|
L030BD9 PHA
|
|
_GetColorEntry
|
|
PLA
|
|
STA L031765
|
|
PLP
|
|
BCS L030BF0
|
|
LDX L030B63
|
|
L030BEB LDA L030B6B
|
|
BRA L030BA4
|
|
L030BF0 RTS
|
|
|
|
L030BF1 DW $0008
|
|
DW $0001
|
|
DW $0004
|
|
DW $000F
|
|
L030BF9 DW $0000
|
|
L030BFB DW $0000
|
|
L030BFD STZ L030CA5
|
|
STA L030CA7
|
|
LDA #$0001
|
|
JSR L030C79
|
|
L030C09 PEA $0000
|
|
PEA $0000
|
|
_StillDown
|
|
PLA
|
|
BEQ L030C57
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
_GetMouse
|
|
PEA $0000
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
LDA L030CA7
|
|
CMP #$0001
|
|
BNE L030C3F
|
|
PEA ^L031998
|
|
PEA L031998
|
|
BRA L030C45
|
|
L030C3F PEA ^L0319A0
|
|
PEA L0319A0
|
|
L030C45 _PtInRect
|
|
PLA
|
|
BEQ L030C52
|
|
LDA #$0001
|
|
L030C52 JSR L030C79
|
|
BRA L030C09
|
|
L030C57 LDA L030CA5
|
|
BEQ L030C78
|
|
LDA L030CA7
|
|
CMP #$0001
|
|
BEQ L030C74
|
|
PEA $0000
|
|
PEA ^L03179D
|
|
PEA L03179D
|
|
_SetColorTable
|
|
L030C74 SEC
|
|
ROR L031759
|
|
L030C78 RTS
|
|
|
|
L030C79 CMP L030CA5
|
|
BEQ L030CA4
|
|
STA L030CA5
|
|
LDA L030CA7
|
|
CMP #$0001
|
|
BNE L030C91
|
|
PEA ^L031998
|
|
PEA L031998
|
|
BRA L030C97
|
|
L030C91 PEA ^L0319A0
|
|
PEA L0319A0
|
|
L030C97 PEA $000F
|
|
PEA $000D
|
|
_InvertRRect
|
|
L030CA4 RTS
|
|
|
|
L030CA5 DW $0000
|
|
L030CA7 DW $0000
|
|
|
|
L030CA9 _HideCursor
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA L03175B
|
|
CLC
|
|
ADC #$0015
|
|
PHA
|
|
_GetSCB
|
|
PLA
|
|
AND #$000F
|
|
PHA
|
|
PEA $0000
|
|
LDA L03175B+2
|
|
INC
|
|
PHA
|
|
LDA L03175B
|
|
INC
|
|
PHA
|
|
_GetPixel
|
|
_GetColorEntry
|
|
PLA
|
|
STA L030E89
|
|
_ShowCursor
|
|
L030CF0 LDA L0317F1
|
|
STA L030E85
|
|
PEA ^L030E8B
|
|
PEA L030E8B
|
|
_SetPenPat
|
|
PEA $0002
|
|
_SetPenMode
|
|
STZ L030E87
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
_FrameRect
|
|
LDA L0317F5
|
|
STA L030E81
|
|
LDA L0317F7
|
|
STA L030E83
|
|
L030D29 PEA $0000
|
|
PEA $0000
|
|
_GetTick
|
|
PLA
|
|
STA L0317F1
|
|
PLA
|
|
PEA $0000
|
|
PEA $0000
|
|
_StillDown
|
|
PLA
|
|
BEQ L030DBC
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
_GetMouse
|
|
LDA L0317F7
|
|
SEC
|
|
SBC L030E83
|
|
TAX
|
|
LDA L0317F5
|
|
SEC
|
|
SBC L030E81
|
|
TAY
|
|
BNE L030D6D
|
|
TXA
|
|
BEQ L030D82
|
|
L030D6D PEA ^L03175B
|
|
PEA L03175B
|
|
PHX
|
|
PHY
|
|
JSR L030E54
|
|
_OffsetRect
|
|
BRL L030CF0
|
|
L030D82 LDA L030E85
|
|
CLC
|
|
ADC #$000A
|
|
BCS L030D90
|
|
CMP L0317F1
|
|
BCS L030D29
|
|
L030D90 PEA ^L0199F4
|
|
PEA L0199F4
|
|
_SetPenPat
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
_FrameRect
|
|
LDA L0317F1
|
|
STA L030E85
|
|
LDA #$FFFF
|
|
EOR L030E87
|
|
STA L030E87
|
|
BRL L030D29
|
|
L030DBC JSR L030E54
|
|
PEA $0000
|
|
_SetPenMode
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
_SetPenPat
|
|
PEA $0000
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
PEA ^L03186F
|
|
PEA L03186F
|
|
_PtInRect
|
|
PLA
|
|
BEQ L030E00
|
|
STZ L031777
|
|
LDA L030E89
|
|
CMP L031765
|
|
BEQ L030E36
|
|
STA L031765
|
|
BRL L030325
|
|
L030E00 LDA L0317F5
|
|
CMP #$003C
|
|
BCC L030E36
|
|
CMP #$004D
|
|
BCS L030E36
|
|
LDA L0317F7
|
|
CMP #$0030
|
|
BCC L030E36
|
|
CMP #$0130
|
|
BCS L030E36
|
|
SBC #$002F
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
EOR #$000F
|
|
L030E24 PEA $0000
|
|
PHA
|
|
LDA L030E89
|
|
PHA
|
|
_SetColorEntry
|
|
BRL L0305E6
|
|
L030E36 PEA $0000
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
PEA ^L0317DB
|
|
PEA L0317DB
|
|
_PtInRect
|
|
PLA
|
|
BEQ L030E80
|
|
LDA L031763
|
|
BRA L030E24
|
|
L030E54 BIT L030E87
|
|
BPL L030E66
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
_FrameRect
|
|
L030E66 PEA ^L030E8B
|
|
PEA L030E8B
|
|
_SetPenPat
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
_FrameRect
|
|
L030E80 RTS
|
|
|
|
L030E81 DW $0000
|
|
L030E83 DW $0000
|
|
L030E85 DW $0000
|
|
L030E87 DW $0000
|
|
L030E89 DW $0000
|
|
L030E8B HEX 00FF00FFFF00FF0000FF00FFFF00FF00
|
|
HEX 00FF00FFFF00FF0000FF00FFFF00FF00
|
|
L030EAB PEA $0000
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
PEA ^L0317CB
|
|
PEA L0317CB
|
|
_PtInRect
|
|
PLA
|
|
BEQ L030EC7
|
|
LDA #$0001
|
|
L030EC7 CMP L031779
|
|
BEQ L030EE5
|
|
STA L031779
|
|
ORA #$0000
|
|
BNE L030EE6
|
|
LDAL L019EE0+2
|
|
PHA
|
|
LDAL L019EE0
|
|
PHA
|
|
_SetCursor
|
|
L030EE5 RTS
|
|
|
|
L030EE6 PEA ^L0317FF
|
|
PEA L0317FF
|
|
_SetCursor
|
|
RTS
|
|
|
|
L030EF4 PEA $0000
|
|
PEA $000C
|
|
PEA $0140
|
|
PEA $00BC
|
|
JSL L018223
|
|
LDA $A0
|
|
STA L0318B7
|
|
LDA $A2
|
|
STA L0318B7+2
|
|
LDA $A0
|
|
STA L0318CD
|
|
LDA $A2
|
|
STA L0318CD+2
|
|
PEA $0000
|
|
PEA $FFF8
|
|
_SetOrigin
|
|
PEA ^L0317E3
|
|
PEA L0317E3
|
|
_FrameRect
|
|
PEA $0004
|
|
PEA $004E
|
|
_MoveTo
|
|
PEA $0137
|
|
PEA $0000
|
|
_Line
|
|
PEA ^L0317C3
|
|
PEA L0317C3
|
|
_FrameRect
|
|
LDA $3E
|
|
BNE L030F6A
|
|
PEA ^L0318C9
|
|
PEA L0318C9
|
|
_PaintPixels
|
|
L030F6A LDX #$000F
|
|
L030F6D PHX
|
|
LDA #$003C
|
|
STA L03175B
|
|
LDA #$004D
|
|
STA L03175B+4
|
|
TXA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC #$0030
|
|
STA L03175B+2
|
|
ADC #$0010
|
|
STA L03175B+6
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
_FrameRect
|
|
INC L03175B
|
|
INC L03175B+2
|
|
DEC L03175B+4
|
|
DEC L03175B+6
|
|
PLA
|
|
PHA
|
|
EOR #$000F
|
|
JSR L0300CF
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
PLX
|
|
DEX
|
|
BPL L030F6D
|
|
JSR L0300A8
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
_SetPenPat
|
|
PEA ^L031988
|
|
PEA L031988
|
|
PEA $000F
|
|
PEA $000D
|
|
_FrameRRect
|
|
PEA ^L031990
|
|
PEA L031990
|
|
PEA $000F
|
|
PEA $000D
|
|
_FrameRRect
|
|
PEA $0021
|
|
PEA $0014
|
|
_MoveTo
|
|
PEA ^L01046F
|
|
PEA L01046F
|
|
_DrawString
|
|
PEA $0011
|
|
PEA $0028
|
|
_MoveTo
|
|
PEA ^L010472
|
|
PEA L010472
|
|
_DrawString
|
|
LDA #$0002
|
|
L031031 PHA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC #L03182F
|
|
STA L0313E4
|
|
LDA #^L03182F
|
|
STA L0313E4+2
|
|
PLA
|
|
PHA
|
|
INC
|
|
INC
|
|
CMP #$0005
|
|
BNE L03104E
|
|
LDA #$000E
|
|
L03104E JSR L0300CF
|
|
LDA L0313E4+2
|
|
PHA
|
|
LDA L0313E4
|
|
PHA
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
LDA L0313E4+2
|
|
PHA
|
|
LDA L0313E4
|
|
PHA
|
|
_FrameRect
|
|
PLA
|
|
DEC
|
|
BMI L03107C
|
|
BRL L031031
|
|
L03107C LDA #$009D
|
|
STA L03175B
|
|
CLC
|
|
ADC #$0009
|
|
STA L03175B+4
|
|
LDA #$00DA
|
|
STA L03175B+2
|
|
ADC #$0009
|
|
STA L03175B+6
|
|
LDA #$000F
|
|
L031098 PHA
|
|
JSR L0300CF
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
PEA ^L03175B
|
|
PEA L03175B
|
|
_FrameRect
|
|
PLA
|
|
PHA
|
|
AND #$0007
|
|
BNE L0310DC
|
|
LDA #$00A5
|
|
STA L03175B
|
|
CLC
|
|
ADC #$0009
|
|
STA L03175B+4
|
|
LDA #$00D2
|
|
STA L03175B+2
|
|
ADC #$0009
|
|
STA L03175B+6
|
|
L0310DC PEA ^L03175B
|
|
PEA L03175B
|
|
PEA $0008
|
|
PEA $0000
|
|
_OffsetRect
|
|
PLA
|
|
DEC
|
|
BPL L031098
|
|
PEA ^L031847
|
|
PEA L031847
|
|
_FrameRect
|
|
PEA ^L03184F
|
|
PEA L03184F
|
|
_FrameRect
|
|
PEA ^L031857
|
|
PEA L031857
|
|
_FrameRect
|
|
PEA ^L03185F
|
|
PEA L03185F
|
|
_FrameRect
|
|
PEA ^L031867
|
|
PEA L031867
|
|
_FrameRect
|
|
LDA #$0004
|
|
L031137 PHA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L03184D,X
|
|
PHA
|
|
PEA $0051
|
|
_MoveTo
|
|
PEA $0000
|
|
PEA $0059
|
|
_Line
|
|
PEA $FFF1
|
|
PEA $0000
|
|
_Line
|
|
PLA
|
|
DEC
|
|
BPL L031137
|
|
LDA #$0028
|
|
JSR L031359
|
|
LDA #$004B
|
|
JSR L031359
|
|
LDA #$006E
|
|
JSR L031359
|
|
LDA #$00A0
|
|
JSR L031359
|
|
LDA #$00C3
|
|
JSR L031359
|
|
LDA #$000D
|
|
JSR L0300CF
|
|
PEA ^L03186F
|
|
PEA L03186F
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
PEA ^L03186F
|
|
PEA L03186F
|
|
_FrameRect
|
|
LDA #$005D
|
|
STA L031877
|
|
STA L03187F
|
|
STA L031887
|
|
STA L03188F
|
|
STA L031897
|
|
LDA #$0061
|
|
STA L03187B
|
|
STA L031883
|
|
STA L03188B
|
|
STA L031893
|
|
STA L03189B
|
|
LDA #$0029
|
|
STA L031879
|
|
LDA #$0037
|
|
STA L03187D
|
|
LDA #$004C
|
|
STA L031881
|
|
LDA #$005A
|
|
STA L031885
|
|
LDA #$006F
|
|
STA L031889
|
|
LDA #$007D
|
|
STA L03188D
|
|
LDA #$00A1
|
|
STA L031891
|
|
LDA #$00AF
|
|
STA L031895
|
|
LDA #$00C4
|
|
STA L031899
|
|
LDA #$00D2
|
|
STA L03189D
|
|
LDA #$0000
|
|
L03120F PHA
|
|
LSR
|
|
LDA #$0000
|
|
BCC L031219
|
|
LDA #$0004
|
|
L031219 CLC
|
|
ADC #$0005
|
|
STA L0313E2
|
|
JSR L0300CF
|
|
PEA ^L031877
|
|
PEA L031877
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
INC L0313E2
|
|
LDA L0313E2
|
|
JSR L0300CF
|
|
PEA ^L03187F
|
|
PEA L03187F
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
INC L0313E2
|
|
LDA L0313E2
|
|
JSR L0300CF
|
|
PEA ^L031887
|
|
PEA L031887
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
INC L0313E2
|
|
LDA L0313E2
|
|
JSR L0300CF
|
|
PEA ^L03188F
|
|
PEA L03188F
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
LDX L0313E2
|
|
LDA #$0001
|
|
CPX #$0009
|
|
BCC L031298
|
|
LDA #$000E
|
|
L031298 JSR L0300CF
|
|
PEA ^L031897
|
|
PEA L031897
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_FillRect
|
|
LDX #$0005
|
|
LDA #L031877
|
|
STA $0A
|
|
L0312B6 PHX
|
|
PEA ^L031877
|
|
LDA $0A
|
|
PHA
|
|
PEA $0000
|
|
PEA $0004
|
|
_OffsetRect
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0008
|
|
STA $0A
|
|
PLX
|
|
DEX
|
|
BNE L0312B6
|
|
PLA
|
|
INC
|
|
CMP #$0010
|
|
BCS L0312E0
|
|
BRL L03120F
|
|
L0312E0 LDA #$0071
|
|
STA L0313E2
|
|
LDX #$0000
|
|
L0312E9 LDY #$0008
|
|
L0312EC PHX
|
|
PHY
|
|
LDA L0313E2
|
|
PHA
|
|
TXA
|
|
CLC
|
|
ADC #$0008
|
|
PHA
|
|
_SetSCB
|
|
INC L0313E2
|
|
PLY
|
|
PLX
|
|
DEY
|
|
BNE L0312EC
|
|
INX
|
|
CPX #$0008
|
|
BCC L0312E9
|
|
LDX #$0020
|
|
LDA #$00B1
|
|
L031313 PHX
|
|
PHA
|
|
PHA
|
|
PEA $0007
|
|
_SetSCB
|
|
PLA
|
|
INC
|
|
PLX
|
|
DEX
|
|
BNE L031313
|
|
LDA #$0009
|
|
L031329 PHA
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L031392,X
|
|
STA L0318A1
|
|
LDA L031392+2,X
|
|
STA L0318A1+2
|
|
LDA L0313BA,X
|
|
STA L0318AF
|
|
LDA L0313BC,X
|
|
STA L0318B1
|
|
PEA ^L0318B3
|
|
PEA L0318B3
|
|
_PaintPixels
|
|
PLA
|
|
DEC
|
|
BPL L031329
|
|
BRL L030325
|
|
L031359 STA L031390
|
|
PHA
|
|
PEA $005C
|
|
_MoveTo
|
|
PEA $000F
|
|
PEA $0000
|
|
_Line
|
|
LDA L031390
|
|
PHA
|
|
PEA $009D
|
|
_MoveTo
|
|
PEA $000F
|
|
PEA $0000
|
|
_Line
|
|
RTS
|
|
|
|
L031390 DW $0000
|
|
L031392 ADRL L0318E7
|
|
ADRL L0318E7
|
|
ADRL L0318E7
|
|
ADRL L0318E7
|
|
ADRL L0318E7
|
|
ADRL L031934
|
|
ADRL L031934
|
|
ADRL L031934
|
|
ADRL L031934
|
|
ADRL L031934
|
|
L0313BA DW $0051
|
|
L0313BC DW $0029
|
|
DW $0051
|
|
DW $004C
|
|
DW $0051
|
|
DW $006F
|
|
DW $0051
|
|
DW $00A1
|
|
DW $0051
|
|
DW $00C4
|
|
DW $009E
|
|
DW $0029
|
|
DW $009E
|
|
DW $004C
|
|
DW $009E
|
|
DW $006F
|
|
DW $009E
|
|
DW $00A1
|
|
DW $009E
|
|
DW $00C4
|
|
L0313E2 DW $0000
|
|
L0313E4 ADRL $00000000
|
|
|
|
L0313E8 LDA L031763
|
|
STA L031731
|
|
LDX #$0006
|
|
L0313F1 LDA L03175B,X
|
|
STA L031711,X
|
|
STA L031719,X
|
|
DEX
|
|
DEX
|
|
BPL L0313F1
|
|
PEA ^L031711
|
|
PEA L031711
|
|
PEA $0001
|
|
PEA $0000
|
|
_InsetRect
|
|
PEA ^L031719
|
|
PEA L031719
|
|
PEA $0002
|
|
PEA $0001
|
|
_InsetRect
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_SetPenPat
|
|
PEA ^L031711
|
|
PEA L031711
|
|
_FrameRect
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
_SetPenPat
|
|
PEA ^L031719
|
|
PEA L031719
|
|
_FrameRect
|
|
L031458 _SystemTask
|
|
PEA $0000
|
|
PEA $FFFF
|
|
PEA ^L0317EB
|
|
PEA L0317EB
|
|
_GetNextEvent
|
|
PLA
|
|
PEA ^L0317F5
|
|
PEA L0317F5
|
|
_GlobalToLocal
|
|
LDA L0317EB
|
|
CMP #$0001
|
|
BNE L031458
|
|
LDA L0317F5
|
|
CMP #$003C
|
|
BCC L031458
|
|
CMP #$004D
|
|
BCS L031458
|
|
LDA L0317F7
|
|
CMP #$0030
|
|
BCC L031458
|
|
CMP #$0130
|
|
BCS L031458
|
|
SBC #$002F
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
EOR #$000F
|
|
STA L031733
|
|
EOR #$000F
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ADC #$0030
|
|
STA L031723
|
|
STA L03172B
|
|
ADC #$0010
|
|
STA L031727
|
|
STA L03172F
|
|
LDA #$003D
|
|
STA L031721
|
|
STA L031729
|
|
LDA #$004C
|
|
STA L031725
|
|
STA L03172D
|
|
PEA ^L031721
|
|
PEA L031721
|
|
PEA $0001
|
|
PEA $0000
|
|
_InsetRect
|
|
PEA ^L031729
|
|
PEA L031729
|
|
PEA $0002
|
|
PEA $0001
|
|
_InsetRect
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_SetPenPat
|
|
PEA ^L031721
|
|
PEA L031721
|
|
_FrameRect
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
_SetPenPat
|
|
PEA ^L031729
|
|
PEA L031729
|
|
_FrameRect
|
|
LDA L031731
|
|
STA L031735
|
|
LDA L031733
|
|
STA L031737
|
|
LDA L031735
|
|
CMP L031737
|
|
BCC L031553
|
|
PHA
|
|
LDA L031737
|
|
STA L031735
|
|
PLA
|
|
STA L031737
|
|
L031553 SEC
|
|
LDA L031737
|
|
SBC L031735
|
|
BNE L03155F
|
|
BRL L03168F
|
|
L03155F CMP #$0001
|
|
BNE L031567
|
|
BRL L03168F
|
|
L031567 STA L0316FD
|
|
PEA $0000
|
|
PEA ^L031739
|
|
PEA L031739
|
|
_GetColorTable
|
|
LDA L031735
|
|
ASL
|
|
TAX
|
|
LDA L031739,X
|
|
AND #$0F00
|
|
XBA
|
|
STA L031701
|
|
STZ L0316FF
|
|
LDA L031739,X
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA L031707
|
|
STZ L031705
|
|
LDA L031739,X
|
|
AND #$000F
|
|
STA L03170D
|
|
STZ L03170B
|
|
LDA L031737
|
|
ASL
|
|
TAX
|
|
LDA L031739,X
|
|
AND #$0F00
|
|
XBA
|
|
STA L031703
|
|
LDA L031739,X
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA L031709
|
|
LDA L031739,X
|
|
AND #$000F
|
|
STA L03170F
|
|
PHA
|
|
PHA
|
|
SEC
|
|
LDA L031703
|
|
SBC L031701
|
|
PHA
|
|
LDA L0316FD
|
|
PHA
|
|
_FixRatio
|
|
PLA
|
|
STA L0316F1
|
|
PLA
|
|
STA L0316F1+2
|
|
PHA
|
|
PHA
|
|
SEC
|
|
LDA L031709
|
|
SBC L031707
|
|
PHA
|
|
LDA L0316FD
|
|
PHA
|
|
_FixRatio
|
|
PLA
|
|
STA L0316F5
|
|
PLA
|
|
STA L0316F5+2
|
|
PHA
|
|
PHA
|
|
SEC
|
|
LDA L03170F
|
|
SBC L03170D
|
|
PHA
|
|
LDA L0316FD
|
|
PHA
|
|
_FixRatio
|
|
PLA
|
|
STA L0316F9
|
|
PLA
|
|
STA L0316F9+2
|
|
LDA L031735
|
|
INC
|
|
L031628 PHA
|
|
ASL
|
|
TAX
|
|
CLC
|
|
LDA L0316FF
|
|
ADC L0316F1
|
|
STA L0316FF
|
|
LDA L031701
|
|
ADC L0316F1+2
|
|
STA L031701
|
|
XBA
|
|
STA L031739,X
|
|
CLC
|
|
LDA L031705
|
|
ADC L0316F5
|
|
STA L031705
|
|
LDA L031707
|
|
ADC L0316F5+2
|
|
STA L031707
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ORA L031739,X
|
|
STA L031739,X
|
|
CLC
|
|
LDA L03170B
|
|
ADC L0316F9
|
|
STA L03170B
|
|
LDA L03170D
|
|
ADC L0316F9+2
|
|
STA L03170D
|
|
ORA L031739,X
|
|
STA L031739,X
|
|
PLA
|
|
INC
|
|
CMP L031737
|
|
BNE L031628
|
|
PEA $0000
|
|
PEA ^L031739
|
|
PEA L031739
|
|
_SetColorTable
|
|
L03168F LDA L031731
|
|
JSR L0300CF
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_SetPenPat
|
|
PEA ^L031711
|
|
PEA L031711
|
|
_FrameRect
|
|
PEA ^L031719
|
|
PEA L031719
|
|
_FrameRect
|
|
LDA L031733
|
|
JSR L0300CF
|
|
PEA ^L03177D
|
|
PEA L03177D
|
|
_SetPenPat
|
|
PEA ^L031721
|
|
PEA L031721
|
|
_FrameRect
|
|
PEA ^L031729
|
|
PEA L031729
|
|
_FrameRect
|
|
_PenNormal
|
|
RTS
|
|
|
|
L0316F1 ADRL $00000000
|
|
L0316F5 ADRL $00000000
|
|
L0316F9 ADRL $00000000
|
|
L0316FD DW $0000
|
|
L0316FF DW $0000
|
|
L031701 DW $0000
|
|
L031703 DW $0000
|
|
L031705 DW $0000
|
|
L031707 DW $0000
|
|
L031709 DW $0000
|
|
L03170B DW $0000
|
|
L03170D DW $0000
|
|
L03170F DW $0000
|
|
L031711 HEX 0000000000000000
|
|
L031719 HEX 0000000000000000
|
|
L031721 DW $0000
|
|
L031723 DW $0000
|
|
L031725 DW $0000
|
|
L031727 DW $0000
|
|
L031729 DW $0000
|
|
L03172B DW $0000
|
|
L03172D DW $0000
|
|
L03172F DW $0000
|
|
L031731 DW $0000
|
|
L031733 DW $0000
|
|
L031735 DW $0000
|
|
L031737 DW $0000
|
|
L031739 HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L031759 DW $0000
|
|
L03175B HEX 0000000000000000
|
|
L031763 DW $0000
|
|
L031765 DW $0000
|
|
L031767 DW $0000
|
|
L031769 DW $0000
|
|
L03176B DW $0000
|
|
L03176D DW $0000
|
|
L03176F DW $0000
|
|
DW $0000
|
|
L031773 DW $0000
|
|
L031775 DW $0000
|
|
L031777 DW $0000
|
|
L031779 DW $0000
|
|
L03177B DW $0000
|
|
L03177D HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L03179D HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
DW $00FF
|
|
DW $0F0F
|
|
DW $0FF0
|
|
L0317C3 DW $0000
|
|
DW $0055
|
|
DW $0038
|
|
DW $0131
|
|
L0317CB DW $0001
|
|
DW $0056
|
|
DW $0037
|
|
DW $0130
|
|
L0317D3 DW $0000
|
|
DW $0000
|
|
DW $00B4
|
|
DW $0140
|
|
L0317DB DW $003F
|
|
L0317DD DW $0019
|
|
L0317DF DW $004A
|
|
L0317E1 DW $002C
|
|
L0317E3 DW $003C
|
|
DW $0014
|
|
DW $004D
|
|
DW $0130
|
|
L0317EB DW $0000 ; event code
|
|
L0317ED ADRL $00000000 ; event message
|
|
L0317F1 ADRL $00000000 ; tick count
|
|
L0317F5 DW $0000 ; mouse location
|
|
L0317F7 DW $0000
|
|
L0317F9 DW $0000 ; modifiers
|
|
DW $0000
|
|
DW $0000
|
|
L0317FF DW $0005 ; cursor height
|
|
DW $0002 ; cursor width
|
|
HEX FFFFF000 ; cursor image
|
|
HEX FFFFF000
|
|
HEX FFFFF000
|
|
HEX FFFFF000
|
|
HEX FFFFF000
|
|
HEX FFFFF000 ; cursor mask
|
|
HEX FFFFF000
|
|
HEX FFFFF000
|
|
HEX FFFFF000
|
|
HEX FFFFF000
|
|
DW $0000 ; hot spot
|
|
DW $0000
|
|
L03182F DW $005D
|
|
L031831 DW $001E
|
|
DW $009D
|
|
L031835 DW $0024
|
|
DW $005D
|
|
DW $0041
|
|
DW $009D
|
|
DW $0047
|
|
DW $005D
|
|
L031841 DW $0064
|
|
DW $009D
|
|
L031845 DW $006A
|
|
L031847 DW $0050
|
|
DW $0028
|
|
DW $00AA
|
|
L03184D DW $0038
|
|
L03184F DW $0050
|
|
DW $004B
|
|
DW $00AA
|
|
DW $005B
|
|
L031857 DW $0050
|
|
DW $006E
|
|
DW $00AA
|
|
DW $007E
|
|
L03185F DW $0050
|
|
DW $00A0
|
|
DW $00AA
|
|
DW $00B0
|
|
L031867 DW $0050
|
|
DW $00C3
|
|
DW $00AA
|
|
DW $00D3
|
|
L03186F DW $0078
|
|
DW $00DC
|
|
DW $008C
|
|
DW $0118
|
|
L031877 DW $0000
|
|
L031879 DW $0000
|
|
L03187B DW $0000
|
|
L03187D DW $0000
|
|
L03187F DW $0000
|
|
L031881 DW $0000
|
|
L031883 DW $0000
|
|
L031885 DW $0000
|
|
L031887 DW $0000
|
|
L031889 DW $0000
|
|
L03188B DW $0000
|
|
L03188D DW $0000
|
|
L03188F DW $0000
|
|
L031891 DW $0000
|
|
L031893 DW $0000
|
|
L031895 DW $0000
|
|
L031897 DW $0000
|
|
L031899 DW $0000
|
|
L03189B DW $0000
|
|
L03189D DW $0000
|
|
L03189F DW $0000
|
|
L0318A1 ADRL L0318E7
|
|
DW $0007
|
|
L0318A7 DW $0000
|
|
DW $0000
|
|
DW $000B
|
|
DW $000E
|
|
L0318AF DW $0051
|
|
L0318B1 DW $0029
|
|
L0318B3 ADRL L03189F
|
|
L0318B7 DW $0000
|
|
L0318B9 DW $0000
|
|
ADRL L0318A7
|
|
ADRL L0318AF
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
L0318C9 ADRL L019825
|
|
L0318CD DW $0000
|
|
L0318CF DW $0000
|
|
ADRL L0318DF
|
|
ADRL L0317CB
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
L0318DF DW $0000
|
|
L0318E1 DW $0000
|
|
L0318E3 DW $0000
|
|
L0318E5 DW $0000
|
|
L0318E7 HEX FFFFFF0FFFFFFF
|
|
HEX FFFFF0F0FFFFFF
|
|
HEX FFFF0FFF0FFFFF
|
|
HEX FFF0FFFFF0FFFF
|
|
HEX FF0FFFFFFF0FFF
|
|
HEX FF000FFF0000FF
|
|
HEX FFFF0FFF0000FF
|
|
HEX FFFF0FFF00FFFF
|
|
HEX FFFF000000FFFF
|
|
HEX FFFFF00000FFFF
|
|
HEX FFFFFFFFFFFFFF
|
|
L031934 HEX FFFFFFFFFFFFFF
|
|
HEX FFFF00000FFFFF
|
|
HEX FFFF0FFF00FFFF
|
|
HEX FFFF0FFF00FFFF
|
|
HEX FF000FFF0000FF
|
|
HEX FF0FFFFFFF00FF
|
|
HEX FFF0FFFFF000FF
|
|
HEX FFFF0FFF000FFF
|
|
HEX FFFFF0F000FFFF
|
|
HEX FFFFFF000FFFFF
|
|
HEX FFFFFFF0FFFFFF
|
|
HEX FFFFFFFFFFFFFF
|
|
|
|
L031988 DW $000A
|
|
DW $000B
|
|
DW $0017
|
|
DW $004A
|
|
L031990 DW $001E
|
|
DW $000B
|
|
DW $002B
|
|
DW $004A
|
|
L031998 DW $000B
|
|
DW $000C
|
|
DW $0016
|
|
DW $0049
|
|
L0319A0 DW $001F
|
|
DW $000C
|
|
DW $002A
|
|
DW $0049
|