15393 lines
312 KiB
ArmAsm
15393 lines
312 KiB
ArmAsm
*
|
|
* GS/Paint
|
|
* version 1.2
|
|
*
|
|
* (c) 1986-1987, Version Soft
|
|
* (s) 2020, Brutal Deluxe Software
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
use MAIN.E
|
|
lst off
|
|
|
|
*-------------------------------
|
|
|
|
MSLOT EQU $07F8
|
|
KEYMODREG EQU $C025
|
|
BUTN1 EQU $C062
|
|
CLRROM EQU $CFFF
|
|
GSOS EQU $E100A8
|
|
|
|
LANGUAGE = 2 ; 1 for FR, 2 for US, ...
|
|
|
|
*-------------------------------
|
|
|
|
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
|
|
|
|
*-------------------------------
|
|
|
|
BRL L010003
|
|
L010003 PHK
|
|
PLB
|
|
STA L01967F
|
|
PHA
|
|
PEA ^L01001F
|
|
PEA L01001F
|
|
PEA $0000
|
|
PEA $0004
|
|
_GetFontLore
|
|
PLA
|
|
BRA L010023
|
|
L01001F HEX 00000000
|
|
L010023 LDA #$0002
|
|
JSR L01080A
|
|
PHA
|
|
PEA $FFFF
|
|
PEA $0000
|
|
_FlushEvents
|
|
PLA
|
|
L010038 _SystemTask
|
|
PHA
|
|
PEA $FFFF
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
LDA $52
|
|
BEQ L010066
|
|
JSL L01876B
|
|
AND #$FFFF
|
|
BMI L010073
|
|
LDA #$0008
|
|
JSR L0190DA
|
|
STZ $52
|
|
L010066 JSR L010B8E
|
|
JSR L018E75
|
|
LDA $48
|
|
BEQ L010073
|
|
JSR L015E21
|
|
L010073 LDA L0196BB
|
|
ASL
|
|
TAX
|
|
JSR (L0100AA,X)
|
|
LDA L019747
|
|
BEQ L010038
|
|
LDA #$000B
|
|
JSR L01080A
|
|
LDA L01967F
|
|
PHA
|
|
_MMShutDown
|
|
LDA #$0000
|
|
STAL $E100FF
|
|
JSL GSOS
|
|
DW $0029 ; Quit
|
|
ADRL L0100A2
|
|
L0100A2 ADRL $00000000 ; path name
|
|
DW $0000 ; flags
|
|
DW $0000
|
|
|
|
L0100AA DA L0100CA
|
|
DA L010AAB
|
|
DA L0100CA
|
|
DA L0100CB
|
|
DA L0100CA
|
|
DA L0100CB
|
|
DA L010C70
|
|
DA L0100CA
|
|
DA L010A5D
|
|
DA L0100CA
|
|
DA L0100CA
|
|
DA L0100CA
|
|
DA L0100CA
|
|
DA L0100CA
|
|
DA L0100CA
|
|
DA L0100CA
|
|
|
|
L0100CA RTS
|
|
|
|
L0100CB JSL L0185C2
|
|
BCC L0100D4
|
|
BRL L010038
|
|
L0100D4 PEA ^L0196BB
|
|
PEA L0196BB
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_MenuKey
|
|
LDA L0196CB
|
|
BEQ L0100F0
|
|
JSR L013A62
|
|
BRA L01012A
|
|
L0100F0 LDA $48
|
|
BEQ L0100F9
|
|
JSR L0159B7
|
|
BRA L01012A
|
|
L0100F9 LDA L0196BD
|
|
CMP #$007F
|
|
BNE L01010C
|
|
LDA $36
|
|
BEQ L01012A
|
|
BMI L01012A
|
|
JSR L0143F4
|
|
BRA L01012A
|
|
L01010C CMP #$001B
|
|
BNE L010116
|
|
JSR L013B93
|
|
BRA L01012A
|
|
L010116 LDA L0196BD
|
|
CMP #$0020
|
|
BNE L010126
|
|
LDA #$000A
|
|
JSR L01080A
|
|
BRA L01012A
|
|
L010126 JSL L01351E
|
|
L01012A RTS
|
|
|
|
*-------------------------------
|
|
|
|
do LANGUAGE=1
|
|
put GSPAINT.FR.S
|
|
else
|
|
do LANGUAGE=2
|
|
put GSPAINT.US.S
|
|
fin
|
|
fin
|
|
|
|
*-------------------------------
|
|
|
|
L0107E3 ENT
|
|
PHD
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA L01968D
|
|
TCD
|
|
PEA ^L0199EC
|
|
PEA L0199EC
|
|
PEA ^L019A54
|
|
PEA L019A54
|
|
_FillRect
|
|
JSR L0116FE
|
|
JSR L0117DA
|
|
JSR L010DA6
|
|
PLB
|
|
PLD
|
|
RTL
|
|
|
|
L01080A STA L0108E7
|
|
CMP #$0002
|
|
BEQ L010816
|
|
JSL L018744
|
|
L010816 LDA L01967F
|
|
PHA
|
|
PEA $0001
|
|
LDA L0108E7
|
|
PHA
|
|
PEA ^L0108F1
|
|
PEA L0108F1
|
|
_GetLoadSegInfo
|
|
CMP #$0000
|
|
BEQ L01084B
|
|
L010833 JSL GSOS
|
|
DW $0006 ; GetFileInfo
|
|
ADRL L0108ED
|
|
BCC L01084B
|
|
LDA #$0001
|
|
LDX #$0001
|
|
JSL L017D37
|
|
BRA L010833
|
|
L01084B JSL L010D82
|
|
PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
PHA
|
|
PHA
|
|
LDA L01967F
|
|
PHA
|
|
PEA $0001
|
|
LDA L0108E7
|
|
PHA
|
|
_LoadSegNum
|
|
CMP #$0000
|
|
BEQ L010879
|
|
PLX
|
|
PLX
|
|
BRA L0108C9
|
|
L010879 PLA
|
|
STA L0108E9
|
|
PLA
|
|
STA L0108EB
|
|
LDAL L019EE0+2
|
|
PHA
|
|
LDAL L019EE0
|
|
PHA
|
|
_SetCursor
|
|
LDA L0108E7
|
|
PHA
|
|
JSL L0108BA
|
|
PLA
|
|
STA L0108E7
|
|
LDA L01967F
|
|
PHA
|
|
PEA $0001
|
|
LDA L0108E7
|
|
PHA
|
|
_UnloadSegNum
|
|
CMP #$0000
|
|
BEQ L0108B8
|
|
BRL L0108C9
|
|
L0108B8 CLC
|
|
RTS
|
|
|
|
L0108BA LDA L0108E9+1
|
|
PHA
|
|
PHB
|
|
PLA
|
|
LDA L0108E9
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
RTL
|
|
|
|
L0108C9 CMP #$0201
|
|
BNE L0108D7
|
|
LDX #$0002
|
|
JSL L017D37
|
|
SEC
|
|
RTS
|
|
|
|
L0108D7 PHA
|
|
PEA ^L010662
|
|
PEA L010662
|
|
_SysFailMgr
|
|
BRK $0A
|
|
L0108E7 DW $0000
|
|
L0108E9 DW $0000
|
|
L0108EB DW $0000
|
|
L0108ED ADRL L010907 ; file name
|
|
L0108F1 DW $0000 ; access
|
|
DW $0000 ; file type
|
|
ADRL $00000000 ; aux type
|
|
DW $0000 ; storage
|
|
DS 4 ; creation date
|
|
DS 4 ; modification date
|
|
ADRL $00000000 ; blocks used
|
|
L010907 STR '1'
|
|
|
|
L010909 JSL L018744
|
|
PHA
|
|
PHA
|
|
_GetCursorAdr
|
|
LDA L019EE0+2
|
|
PHA
|
|
LDA L019EE0
|
|
PHA
|
|
_SetCursor
|
|
LDA L01059D
|
|
STA L01971F
|
|
LDA L01059F
|
|
STA L019721
|
|
LDA L0105A1
|
|
STA L019723
|
|
LDA L0105A3
|
|
STA L019725
|
|
LDA #L0105A5
|
|
STA L019729
|
|
LDA #^L0105A5
|
|
STA L019729+2
|
|
PHA
|
|
PEA ^L0196CF
|
|
PEA L0196CF
|
|
PEA $0000
|
|
PEA $0000
|
|
_Alert
|
|
JSL L010D82
|
|
PLA
|
|
CMP #$0001
|
|
BEQ L01096A
|
|
BRL L010A41
|
|
L01096A PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
LDA #$0001
|
|
STA $3C
|
|
LDA $74
|
|
DEC
|
|
EOR #$000F
|
|
STA L010A49
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
STA L010A4B
|
|
XBA
|
|
STA L010A4F
|
|
LDA L010A49
|
|
XBA
|
|
STA L010A4D
|
|
LDA $70
|
|
DEC
|
|
EOR #$000F
|
|
STA L010A51
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
STA L010A53
|
|
XBA
|
|
STA L010A57
|
|
LDA L010A51
|
|
XBA
|
|
STA L010A55
|
|
LDA L019976
|
|
STA $0A
|
|
LDA L019978
|
|
STA $0C
|
|
LDX $F0
|
|
L0109BE LDY #$009E
|
|
L0109C1 STZ L010A59
|
|
LDA [$0A],Y
|
|
XBA
|
|
STA L010A5B
|
|
PHA
|
|
AND #$000F
|
|
CMP L010A51
|
|
BNE L0109DF
|
|
LDA #$000F
|
|
TRB L010A5B
|
|
LDA L010A49
|
|
TSB L010A59
|
|
L0109DF LDA $01,S
|
|
AND #$00F0
|
|
CMP L010A53
|
|
BNE L0109F5
|
|
LDA #$00F0
|
|
TRB L010A5B
|
|
LDA L010A4B
|
|
TSB L010A59
|
|
L0109F5 LDA $01,S
|
|
AND #$0F00
|
|
CMP L010A55
|
|
BNE L010A0B
|
|
LDA #$0F00
|
|
TRB L010A5B
|
|
LDA L010A4D
|
|
TSB L010A59
|
|
L010A0B PLA
|
|
AND #$F000
|
|
CMP L010A57
|
|
BNE L010A20
|
|
LDA #$F000
|
|
TRB L010A5B
|
|
LDA L010A4F
|
|
TSB L010A59
|
|
L010A20 LDA L010A59
|
|
ORA L010A5B
|
|
XBA
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L0109C1
|
|
CLC
|
|
LDA $0A
|
|
ADC #$00A0
|
|
STA $0A
|
|
DEX
|
|
BNE L0109BE
|
|
JSR L011953
|
|
JSR L0118CC
|
|
JSR L014117
|
|
L010A41 _SetCursor
|
|
RTS
|
|
|
|
L010A49 DW $0000
|
|
L010A4B DW $0000
|
|
L010A4D DW $0000
|
|
L010A4F DW $0000
|
|
L010A51 DW $0000
|
|
L010A53 DW $0000
|
|
L010A55 DW $0000
|
|
L010A57 DW $0000
|
|
L010A59 DW $0000
|
|
L010A5B DW $0000
|
|
L010A5D PHA
|
|
LDA L0196BD+2
|
|
PHA
|
|
LDA L0196BD
|
|
PHA
|
|
_GetWKind
|
|
PLA
|
|
BPL L010A7B
|
|
JSL L01876B
|
|
AND #$FFFF
|
|
BPL L010AA2
|
|
BRA L010A8D
|
|
L010A7B LDA L0196C9
|
|
BIT #$0001
|
|
BNE L010A9D
|
|
JSL L01876B
|
|
AND #$FFFF
|
|
BMI L010A8D
|
|
RTS
|
|
|
|
L010A8D LDA #$0007
|
|
JSR L0190DA
|
|
LDA #$0001
|
|
STA $52
|
|
JSL L018752
|
|
RTS
|
|
|
|
L010A9D LDA $52
|
|
BNE L010AA2
|
|
RTS
|
|
|
|
L010AA2 LDA #$0008
|
|
JSR L0190DA
|
|
STZ $52
|
|
RTS
|
|
|
|
L010AAB JSR L017F05
|
|
PHA
|
|
PEA ^L019689
|
|
PEA L019689
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
_FindWindow
|
|
PLA
|
|
BEQ L010AE0
|
|
BPL L010AE1
|
|
TAX
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
LDA L01968B
|
|
PHA
|
|
LDA L019689
|
|
PHA
|
|
PHX
|
|
_SystemClick
|
|
L010AE0 RTS
|
|
|
|
L010AE1 SEC
|
|
SBC #$0010
|
|
ASL
|
|
TAX
|
|
JMP (L010AEA,X)
|
|
|
|
L010AEA DA L010B03
|
|
DA L013A0E
|
|
DA L010B02
|
|
DA L010B79
|
|
DA L010B02
|
|
DA L010B02
|
|
DA L010B56
|
|
DA L010B02
|
|
DA L010B02
|
|
DA L010B02
|
|
DA L010B02
|
|
DA L010B02
|
|
L010B02 RTS
|
|
|
|
L010B03 LDA $52
|
|
BNE L010B55
|
|
PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L0199DC
|
|
PEA L0199DC
|
|
_PtInRect
|
|
PLA
|
|
BEQ L010B21
|
|
JMP L0147C5
|
|
|
|
L010B21 PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L0199D4
|
|
PEA L0199D4
|
|
_PtInRect
|
|
PLA
|
|
BEQ L010B3B
|
|
JMP L0149C7
|
|
|
|
L010B3B PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L0199E4
|
|
PEA L0199E4
|
|
_PtInRect
|
|
PLA
|
|
BEQ L010B55
|
|
JMP L0162B4
|
|
L010B55 RTS
|
|
|
|
L010B56 PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_TrackGoAway
|
|
PLA
|
|
BEQ L010B78
|
|
LDA #$0104
|
|
STA L0196CB
|
|
JSR L013DC6
|
|
L010B78 RTS
|
|
|
|
L010B79 LDA $52
|
|
BEQ L010B7E
|
|
RTS
|
|
|
|
L010B7E LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
JMP L01647C
|
|
|
|
L010B8E LDA $3E
|
|
BNE L010B9B
|
|
JSR L010C12
|
|
JSR L010B9C
|
|
JSR L013976
|
|
L010B9B RTS
|
|
|
|
L010B9C PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L019E74
|
|
PEA L019E74
|
|
_PtInRect
|
|
PLA
|
|
BEQ L010BF9
|
|
JSR L018A9D
|
|
LDA $44
|
|
BEQ L010BD3
|
|
LDA $54
|
|
BNE L010BD2
|
|
LDA L019EE0+2
|
|
PHA
|
|
LDA L019EE0
|
|
PHA
|
|
_SetCursor
|
|
LDA #$0001
|
|
STA $54
|
|
L010BD2 RTS
|
|
|
|
L010BD3 LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
JSR L013950
|
|
LDA $54
|
|
BEQ L010BF8
|
|
LDA L019EDC+2
|
|
PHA
|
|
LDA L019EDC
|
|
PHA
|
|
_SetCursor
|
|
STZ $54
|
|
L010BF8 RTS
|
|
|
|
L010BF9 LDA $54
|
|
BNE L010C11
|
|
LDA L019EE0+2
|
|
PHA
|
|
LDA L019EE0
|
|
PHA
|
|
_SetCursor
|
|
LDA #$0001
|
|
STA $54
|
|
L010C11 RTS
|
|
|
|
L010C12 SEP #$20
|
|
LDAL BUTN1
|
|
REP #$20
|
|
BPL L010C4B
|
|
LDA $76
|
|
CMP #$0002
|
|
BEQ L010C6F
|
|
LDA $76
|
|
STA L01969D
|
|
LDA #$0002
|
|
STA $76
|
|
LDA L019EDC
|
|
STA L01969F
|
|
LDA L019EDC+2
|
|
STA L0196A1
|
|
LDA #L01A500
|
|
STA L019EDC
|
|
LDA #^L01A500
|
|
STA L019EDC+2
|
|
LDA #$0001
|
|
STA $54
|
|
RTS
|
|
|
|
L010C4B LDA L01969D
|
|
CMP $76
|
|
BEQ L010C6F
|
|
LDA $76
|
|
CMP #$0002
|
|
BNE L010C6F
|
|
LDA L01969D
|
|
STA $76
|
|
LDA L01969F
|
|
STA L019EDC
|
|
LDA L0196A1
|
|
STA L019EDC+2
|
|
LDA #$0001
|
|
STA $54
|
|
L010C6F RTS
|
|
|
|
L010C70 LDA L0196BD+2
|
|
PHA
|
|
LDA L0196BD
|
|
PHA
|
|
_SetPort
|
|
LDA L0196BD+2
|
|
PHA
|
|
LDA L0196BD
|
|
PHA
|
|
_BeginUpdate
|
|
PHA
|
|
LDA L0196BD+2
|
|
PHA
|
|
LDA L0196BD
|
|
PHA
|
|
_GetWKind
|
|
PLA
|
|
CMP #$0000
|
|
BCS L010CA7
|
|
BRL L010D44
|
|
L010CA7 LDA $3E
|
|
BEQ L010CAE
|
|
BRL L010D44
|
|
L010CAE LDA $52
|
|
BNE L010D05
|
|
LDA $34
|
|
BEQ L010CEF
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
_PenNormal
|
|
LDA L019697
|
|
BEQ L010CE2
|
|
PEA ^L019E74
|
|
PEA L019E74
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
_FillRect
|
|
L010CE2 PEA ^L019E8C
|
|
PEA L019E8C
|
|
_FrameRect
|
|
L010CEF LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
JSR L011953
|
|
JSR L014117
|
|
BRL L010D44
|
|
L010D05 LDA L019998
|
|
STA L01999E
|
|
LDA L01999A
|
|
STA L0199A0
|
|
CLC
|
|
TDC
|
|
ADC #$0056
|
|
STA L010D70
|
|
STZ L010D72
|
|
LDA $90
|
|
STA L010D68
|
|
LDA $92
|
|
STA L010D6A
|
|
PHA
|
|
PHA
|
|
_GetVisHandle
|
|
PLA
|
|
STA L010D76
|
|
PLA
|
|
STA L010D76+2
|
|
PEA ^L010D64
|
|
PEA L010D64
|
|
_PaintPixels
|
|
L010D44 LDA L0196BD+2
|
|
PHA
|
|
LDA L0196BD
|
|
PHA
|
|
_EndUpdate
|
|
PHA
|
|
PHA
|
|
_FrontWindow
|
|
_SetPort
|
|
RTS
|
|
|
|
L010D64 ADRL L01999C
|
|
L010D68 DW $0000
|
|
L010D6A DW $0000
|
|
ADRL L010D7A
|
|
L010D70 DW $0000
|
|
L010D72 DW $0000
|
|
DW $0000
|
|
L010D76 ADRL $00000000
|
|
L010D7A DW $0000
|
|
DW $0000
|
|
DW $0085
|
|
DW $010C
|
|
|
|
L010D82 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
L010D85 PHA
|
|
PEA $0040
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
LDA L0196BB
|
|
CMP #$0000
|
|
BNE L010DA1
|
|
PLB
|
|
RTL
|
|
|
|
L010DA1 JSR L010C70
|
|
BRA L010D85
|
|
L010DA6 _PenNormal
|
|
PEA ^L0199E4
|
|
PEA L0199E4
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_FillRect
|
|
PEA ^L0199E4
|
|
PEA L0199E4
|
|
_FrameRect
|
|
LDA #L010E8E
|
|
STA L010E7C
|
|
LDA #^L010E8E
|
|
STA L010E7C+2
|
|
LDA #$0005
|
|
STA L010E8C
|
|
LDA #$0010
|
|
STA L010E8A
|
|
LDX #$0002
|
|
L010DE8 PHX
|
|
LDX #$000A
|
|
L010DEC PHX
|
|
PEA ^L010E7A
|
|
PEA L010E7A
|
|
PEA ^L010E82
|
|
PEA L010E82
|
|
LDA L010E8C
|
|
PHA
|
|
LDA L010E8A
|
|
PHA
|
|
PEA $0000
|
|
_PPToPort
|
|
CLC
|
|
LDA L010E7C
|
|
ADC #$006C
|
|
STA L010E7C
|
|
CLC
|
|
LDA L010E8A
|
|
ADC #$000D
|
|
STA L010E8A
|
|
PLX
|
|
DEX
|
|
BNE L010DEC
|
|
LDA #$0010
|
|
STA L010E8A
|
|
LDA #$0016
|
|
STA L010E8C
|
|
PLX
|
|
DEX
|
|
BNE L010DE8
|
|
LDX #$0009
|
|
LDA #$001C
|
|
L010E39 PHX
|
|
PHA
|
|
PEA $0005
|
|
PHA
|
|
_MoveTo
|
|
PLA
|
|
PHA
|
|
PEA $0027
|
|
PHA
|
|
_LineTo
|
|
CLC
|
|
PLA
|
|
ADC #$000D
|
|
PLX
|
|
DEX
|
|
BNE L010E39
|
|
PEA $0016
|
|
PEA $0010
|
|
_MoveTo
|
|
PEA $0016
|
|
PEA $0092
|
|
_LineTo
|
|
JSR L01635D
|
|
RTS
|
|
|
|
L010E7A DW $0000 ; SCB byte
|
|
L010E7C ADRL $00000000 ; Pointer to pixel image
|
|
DW $0009 ; Width
|
|
L010E82 DW $0000 ; Bounds rect
|
|
DW $0000
|
|
DW $000C
|
|
DW $0012
|
|
L010E8A DW $0000
|
|
L010E8C DW $0000
|
|
L010E8E HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFF00000FFFFFF
|
|
HEX FFFF000FFFFF00FFFF
|
|
HEX FF0FFFFFFFFFFF0FFF
|
|
HEX F0FFFFFFFFFFF0FFFF
|
|
HEX F0FFFFFFFFF00FFFFF
|
|
HEX FF000FFF000FFFFFFF
|
|
HEX F00F0000FFFFFFFFFF
|
|
HEX F0F00FFFFFFFFFFFFF
|
|
HEX FF00FFFFFFFFFFFFFF
|
|
HEX FFF0FFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFF0FFFFFFFFF
|
|
HEX FFFFFF00F00FFFFFFF
|
|
HEX FFFFF0F0F0F0FFFFFF
|
|
HEX FFFF00F0F0F00FFFFF
|
|
HEX FFF0F0FFFFF0F0FFFF
|
|
HEX FFF0FF0FFFFFF0FFFF
|
|
HEX FFFF0FFFFFFF0FFFFF
|
|
HEX FFFFF0FFFFFF0FFFFF
|
|
HEX FFFFFF0FFFF0FFFFFF
|
|
HEX FFFFFF0FFFF0FFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFF0FFFFFFFFFF
|
|
HEX FFFFFF0F0FFFFFFFFF
|
|
HEX FFFFF0FFF00FFFFFFF
|
|
HEX FFFF0FFFFF000FFFFF
|
|
HEX FFF0FFF0FFF000FFFF
|
|
HEX FF0FFF000F0F00FFFF
|
|
HEX FFF0FFF000FF00FFFF
|
|
HEX FFFF0FFF0FFF00FFFF
|
|
HEX FFFFF0F0FFFF00FFFF
|
|
HEX FFFFFF0FFFFF0FFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFF000FFFFFFFF
|
|
HEX FFFFFFF0F0FFFFFFFF
|
|
HEX FFFFFFF000FFFFFFFF
|
|
HEX FFFFFFF000FFFFFFFF
|
|
HEX FFFF000000000FFFFF
|
|
HEX FFFF0FFFFFFF0FFFFF
|
|
HEX FFFF0FFFFFFF0FFFFF
|
|
HEX FFFF0F0F0F0F0FFFFF
|
|
HEX FFF0F0F0F0F00FFFFF
|
|
HEX FF0000000000FFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFF00FFFFFFFFFFFF
|
|
HEX FFFFF00FFFFFFFFFFF
|
|
HEX FFFFFF00FFFFFFFFFF
|
|
HEX FFFFFFF00FFFFFFFFF
|
|
HEX FFFFFFFF00FFFFFFFF
|
|
HEX FFFFFFFFF00FFFFFFF
|
|
HEX FFFFFFFFFF00FFFFFF
|
|
HEX FFFFFFFFFFF00FFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FF00000000000000FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF00000000000000FF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFF0000000000FFFF
|
|
HEX FFF0FFFFFFFFFF0FFF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FFF0FFFFFFFFFF0FFF
|
|
HEX FFFF0000000000FFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFF000000FFFFFF
|
|
HEX FFFF000FFFF000FFFF
|
|
HEX FFF00FFFFFFFF00FFF
|
|
HEX FF00FFFFFFFFFF00FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF00FFFFFFFFFF00FF
|
|
HEX FFF00FFFFFFFF00FFF
|
|
HEX FFFF000FFFF000FFFF
|
|
HEX FFFFFF000000FFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFF00FFFFFF00FFFF
|
|
HEX FFF0FF00FFF0FF0FFF
|
|
HEX FF0FFFFF000FFF0FFF
|
|
HEX FF0FFFFFFFFFFF0FFF
|
|
HEX FFF0FFFFFFFFF0FFFF
|
|
HEX FFF0FFFFFFFF0FFFFF
|
|
HEX FFFF00FFFF00FFFFFF
|
|
HEX FFFFFF0000FFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFF00000000FFFF
|
|
HEX FFFFF00FFFFF00FFFF
|
|
HEX FFFF00FFFFF00FFFFF
|
|
HEX FFF00FFFFF00FFFFFF
|
|
HEX FFF0FFFFFF00FFFFFF
|
|
HEX FFF0FFFFFFFF00FFFF
|
|
HEX FFF0FFFFFFFFF00FFF
|
|
HEX FFF000000000000FFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
|
|
HEX FFFFFFFFFFFFFFFFFF ; Second colmun
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FF000FF0000FF000FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FF0FFFFFFFFFFFF0FF
|
|
HEX FF000FF0000FF000FF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFF0000000000FFFF
|
|
HEX FFFF0FFF00FFF0FFFF
|
|
HEX FFFFFFFF00FFFFFFFF
|
|
HEX FFFFFFFF00FFFFFFFF
|
|
HEX FFFFFFFF00FFFFFFFF
|
|
HEX FFFFFFFF00FFFFFFFF
|
|
HEX FFFFFFFF00FFFFFFFF
|
|
HEX FFFFFFF0000FFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFF0F0FFFFFFFFFFFF
|
|
HEX FFFF0F0F0F00FFFFFF
|
|
HEX FFF0F0FFF0000FFFFF
|
|
HEX FFFFFFFF000000FFFF
|
|
HEX FFFFFFFF0FFFF0FFFF
|
|
HEX FFFFFFFF0F0000FFFF
|
|
HEX FFFFFFFF0F0FF0FFFF
|
|
HEX FFFFFFFF0F0000FFFF
|
|
HEX FFFFFFFF0FFFF0FFFF
|
|
HEX FFFFFFFF000000FFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFF000FFFFFF
|
|
HEX FFFFFFFFF0FF0FFFFF
|
|
HEX FFFFFFFF00FF0FFFFF
|
|
HEX FFFFFFFF0F00FFFFFF
|
|
HEX FFFFFFF0FFF0FFFFFF
|
|
HEX FFFFFFF0FF0FFFFFFF
|
|
HEX FFFFFF0FFF0FFFFFFF
|
|
HEX FFFFFF0FF0FFFFFFFF
|
|
HEX FFFFFF000FFFFFFFFF
|
|
HEX FFFFFF00FFFFFFFFFF
|
|
HEX FFFFFF0FFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFF0000000FFFF
|
|
HEX FFFFFF0FFFFF00FFFF
|
|
HEX FFFFF0FFFFF0F0FFFF
|
|
HEX FFFF0FFFFF0F0FFFFF
|
|
HEX FFF0000000F0FFFFFF
|
|
HEX FFF0FFFFF00FFFFFFF
|
|
HEX FFF0000000FFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FF00000000000000FF
|
|
HEX FF0F0F0F0F0F0F00FF
|
|
HEX FF00F0F0F0F0F0F0FF
|
|
HEX FF0F0F0F0F0F0F00FF
|
|
HEX FF00F0F0F0F0F0F0FF
|
|
HEX FF0F0F0F0F0F0F00FF
|
|
HEX FF00F0F0F0F0F0F0FF
|
|
HEX FF00000000000000FF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFF0000000000FFFF
|
|
HEX FFF00F0F0F0F0F0FFF
|
|
HEX FF00F0F0F0F0F0F0FF
|
|
HEX FF0F0F0F0F0F0F00FF
|
|
HEX FF00F0F0F0F0F0F0FF
|
|
HEX FF0F0F0F0F0F0F00FF
|
|
HEX FFF0F0F0F0F0F00FFF
|
|
HEX FFFF0000000000FFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFF000000FFFFFF
|
|
HEX FFFF000F0F0000FFFF
|
|
HEX FFF000F0F0F0F00FFF
|
|
HEX FF000F0F0F0F0F00FF
|
|
HEX FF00F0F0F0F0F0F0FF
|
|
HEX FF0F0F0F0F0F0F00FF
|
|
HEX FF00F0F0F0F0F000FF
|
|
HEX FFF00F0F0F0F000FFF
|
|
HEX FFFF0000F0F000FFFF
|
|
HEX FFFFFF000000FFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFF00FFFFFF00FFFF
|
|
HEX FFF0F000FFF00F0FFF
|
|
HEX FF00F0F00000F00FFF
|
|
HEX FF0F0F0F0F0F0F0FFF
|
|
HEX FFF0F0F0F0F0F0FFFF
|
|
HEX FFF00F0F0F0F0FFFFF
|
|
HEX FFFF00F0F000FFFFFF
|
|
HEX FFFFFF0000FFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFF00000000FFFF
|
|
HEX FFFFF00F0F0F00FFFF
|
|
HEX FFFF00F0F0F00FFFFF
|
|
HEX FFF00F0F0F00FFFFFF
|
|
HEX FFF0F0F0F000FFFFFF
|
|
HEX FFF00F0F0F0F00FFFF
|
|
HEX FFF0F0F0F0F0F00FFF
|
|
HEX FFF000000000000FFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFF
|
|
|
|
L0116FE _PenNormal
|
|
PEA ^L0199D4
|
|
PEA L0199D4
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_FillRect
|
|
PEA ^L0199D4
|
|
PEA L0199D4
|
|
_FrameRect
|
|
JSR L01172C
|
|
JSR L011773
|
|
RTS
|
|
|
|
L01172C JSR L017EDD
|
|
LDX #$0000
|
|
L011732 PHX
|
|
PEA $0001
|
|
LDA L0117BA,X
|
|
PHA
|
|
_SetPenSize
|
|
PLX
|
|
INX
|
|
INX
|
|
PHX
|
|
PEA $000E
|
|
LDA L0117BA,X
|
|
PHA
|
|
_MoveTo
|
|
PLX
|
|
PHX
|
|
PEA $0025
|
|
LDA L0117BA,X
|
|
PHA
|
|
_LineTo
|
|
PLX
|
|
INX
|
|
INX
|
|
CPX #$0010
|
|
BNE L011732
|
|
_PenNormal
|
|
RTS
|
|
|
|
L011773 PEA $0006
|
|
_SetTextMode
|
|
PEA $00FF
|
|
_SetForeColor
|
|
LDA $6E
|
|
ASL
|
|
ASL
|
|
TAY
|
|
LDA L0117CC,Y
|
|
PHA
|
|
LDA L0117CA,Y
|
|
PHA
|
|
_MoveTo
|
|
PEA $0012
|
|
_DrawChar
|
|
PEA $0004
|
|
_SetTextMode
|
|
PEA $0000
|
|
_SetForeColor
|
|
RTS
|
|
|
|
L0117BA DW $0001
|
|
DW $009E
|
|
DW $0002
|
|
DW $00A6
|
|
DW $0003
|
|
DW $00AF
|
|
DW $0004
|
|
DW $00B9
|
|
L0117CA DW $00A1
|
|
L0117CC DW $0006
|
|
DW $00A9
|
|
DW $0006
|
|
DW $00B3
|
|
DW $0006
|
|
DW $00BD
|
|
DW $0006
|
|
L0117DA _PenNormal
|
|
PEA ^L0199DC
|
|
PEA L0199DC
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_FillRect
|
|
PEA ^L0199DC
|
|
PEA L0199DC
|
|
_FrameRect
|
|
PEA $004A
|
|
PEA $00B3
|
|
_MoveTo
|
|
PEA $013A
|
|
PEA $00B3
|
|
_LineTo
|
|
LDY #$0010
|
|
LDA #$004A
|
|
L011821 PHY
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PEA $00A5
|
|
_MoveTo
|
|
PEA $00C1
|
|
_LineTo
|
|
PLA
|
|
CLC
|
|
ADC #$000F
|
|
PLY
|
|
DEY
|
|
BNE L011821
|
|
LDX #$0001
|
|
LDA #L019A74
|
|
L011848 PHX
|
|
PHA
|
|
PHA
|
|
PEA ^L019749
|
|
PEA L019749
|
|
JSL L01493B
|
|
PLA
|
|
PEA ^L019749
|
|
PEA L019749
|
|
PEA ^L019A74
|
|
PHA
|
|
_FillRect
|
|
PLA
|
|
CLC
|
|
ADC #$0020
|
|
PLX
|
|
INX
|
|
CPX #$0021
|
|
BNE L011848
|
|
JSR L011884
|
|
PEA $0000
|
|
PEA $0000
|
|
_SetOrigin
|
|
RTS
|
|
|
|
L011884 PEA ^L019EC4
|
|
PEA L019EC4
|
|
LDX $74
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_FillRect
|
|
JSR L017EDD
|
|
PEA ^L019EB4
|
|
PEA L019EB4
|
|
_FrameRect
|
|
PEA ^L019EBC
|
|
PEA L019EBC
|
|
JSL L0149A7
|
|
PHX
|
|
PHA
|
|
_FillRect
|
|
_PenNormal
|
|
RTS
|
|
|
|
L0118C4 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
JSR L0118CC
|
|
PLB
|
|
RTL
|
|
|
|
L0118CC JSR L011A25
|
|
LDA $34
|
|
BNE L0118E3
|
|
LDA $06
|
|
STA $0E
|
|
LDA $08
|
|
STA $10
|
|
LDY L0199C0
|
|
LDX L0199C2
|
|
BRA L0118F3
|
|
L0118E3 JSR L01192F
|
|
LDY $5E
|
|
LDX $60
|
|
JSR L011A0C
|
|
LDY #$0085
|
|
LDX #$0084
|
|
L0118F3 STX L011A0A
|
|
PHY
|
|
LDA L019970
|
|
STA $0A
|
|
LDA L019972
|
|
STA $0C
|
|
_HideCursor
|
|
PLX
|
|
L011909 LDY L011A0A
|
|
L01190C LDA [$0E],Y
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L01190C
|
|
CLC
|
|
LDA $0E
|
|
ADC #$00A0
|
|
STA $0E
|
|
CLC
|
|
LDA #$0086
|
|
ADC $0A
|
|
STA $0A
|
|
DEX
|
|
BNE L011909
|
|
_ShowCursor
|
|
RTS
|
|
|
|
L01192F JSR L011A25
|
|
LDY $56
|
|
LDX $58
|
|
JSR L011A0C
|
|
LDA $0E
|
|
STA $0A
|
|
LDA $10
|
|
STA $0C
|
|
LDA $06
|
|
STA $0E
|
|
LDA $08
|
|
STA $10
|
|
BRA L011965
|
|
L01194B ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
JSR L011953
|
|
PLB
|
|
RTL
|
|
|
|
L011953 JSR L011A25
|
|
LDY $56
|
|
LDX $58
|
|
JSR L011A0C
|
|
LDA $06
|
|
STA $0A
|
|
LDA $08
|
|
STA $0C
|
|
L011965 _HideCursor
|
|
LDX L0199C0
|
|
L01196F LDY L0199C2
|
|
L011972 LDA [$0E],Y
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L011972
|
|
CLC
|
|
LDA $0E
|
|
ADC #$00A0
|
|
STA $0E
|
|
CLC
|
|
LDA $0A
|
|
ADC #$00A0
|
|
STA $0A
|
|
DEX
|
|
BNE L01196F
|
|
_ShowCursor
|
|
RTS
|
|
|
|
L011995 JSR L011A25
|
|
LDA $34
|
|
BNE L0119AE
|
|
LDA $06
|
|
STA $0E
|
|
LDA $08
|
|
STA $10
|
|
LDY L0199C0
|
|
LDX L0199C2
|
|
JSR L0119C8
|
|
RTS
|
|
|
|
L0119AE JSR L01192F
|
|
LDY $5E
|
|
LDX $60
|
|
JSR L011A0C
|
|
LDY #$0085
|
|
LDX #$0084
|
|
JSR L0119C8
|
|
JSR L011953
|
|
JSR L014117
|
|
RTS
|
|
|
|
L0119C8 STX L011A0A
|
|
PHY
|
|
_HideCursor
|
|
LDA L019970
|
|
STA $0A
|
|
LDA L019972
|
|
STA $0C
|
|
PLX
|
|
L0119DE LDY L011A0A
|
|
L0119E1 LDA [$0A],Y
|
|
PHA
|
|
LDA [$0E],Y
|
|
STA [$0A],Y
|
|
PLA
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L0119E1
|
|
CLC
|
|
LDA $0E
|
|
ADC #$00A0
|
|
STA $0E
|
|
CLC
|
|
LDA #$0086
|
|
ADC $0A
|
|
STA $0A
|
|
DEX
|
|
BNE L0119DE
|
|
_ShowCursor
|
|
RTS
|
|
|
|
L011A0A DW $0000
|
|
L011A0C PHX
|
|
TYA
|
|
JSL L0182D0
|
|
CLC
|
|
ADC L019976
|
|
STA $0E
|
|
LDA L019978
|
|
STA $10
|
|
PLA
|
|
LSR
|
|
CLC
|
|
ADC $0E
|
|
STA $0E
|
|
RTS
|
|
|
|
L011A25 LDA $3E
|
|
BEQ L011A2A
|
|
PLA
|
|
L011A2A RTS
|
|
RTS
|
|
|
|
L011A2C JSR L013C36
|
|
JSR L015981
|
|
JSR L01192F
|
|
PEA $0037
|
|
PEA $0028
|
|
PEA $00FA
|
|
PEA $0056
|
|
JSL L018223
|
|
LDA #L0106E9
|
|
LDX #^L0106E9
|
|
LDY #$000F
|
|
JSR L011AC3
|
|
LDA #L0106F7
|
|
LDX #^L0106F7
|
|
LDY #$0019
|
|
JSR L011AC3
|
|
LDA #L0106FB
|
|
LDX #^L0106FB
|
|
LDY #$0023
|
|
JSR L011AC3
|
|
LDA #L010707
|
|
LDX #^L010707
|
|
LDY #$002D
|
|
JSR L011AC3
|
|
LDA #L01070A
|
|
LDX #^L01070A
|
|
LDY #$0037
|
|
JSR L011AC3
|
|
LDA #L010722
|
|
LDX #^L010722
|
|
LDY #$0041
|
|
JSR L011AC3
|
|
LDA #L010737
|
|
LDX #^L010737
|
|
LDY #$004E
|
|
JSR L011AC3
|
|
L011A99 PEA $0000
|
|
PEA $FFFF
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
LDA L0196BB
|
|
CMP #$0001
|
|
BNE L011A99
|
|
LDA $A2
|
|
PHA
|
|
LDA $A0
|
|
PHA
|
|
_CloseWindow
|
|
RTS
|
|
|
|
L011AC3 PHX
|
|
PHA
|
|
STY L011AEE
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_StringWidth
|
|
SEC
|
|
LDA #$00FA
|
|
SBC $01,S
|
|
LSR
|
|
STA $01,S
|
|
LDA L011AEE
|
|
PHA
|
|
_MoveTo
|
|
_DrawString
|
|
RTS
|
|
|
|
L011AEE DW $0000
|
|
L011AF0 LDA $52
|
|
BNE L011B39
|
|
JSL L018744
|
|
LDA $06
|
|
STA $0E
|
|
LDA $08
|
|
STA $10
|
|
LDA L019998
|
|
STA $0A
|
|
LDA L01999A
|
|
STA $0C
|
|
_HideCursor
|
|
LDX #$0085
|
|
L011B14 LDY #$0084
|
|
L011B17 LDA [$0E],Y
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L011B17
|
|
CLC
|
|
LDA $0E
|
|
ADC #$00A0
|
|
STA $0E
|
|
CLC
|
|
LDA #$0086
|
|
ADC $0A
|
|
STA $0A
|
|
DEX
|
|
BNE L011B14
|
|
_ShowCursor
|
|
L011B39 PHA
|
|
LDA L0196CB
|
|
PHA
|
|
_OpenNDA
|
|
PLA
|
|
PEA $0000
|
|
LDA L0196CD
|
|
PHA
|
|
_HiliteMenu
|
|
RTS
|
|
|
|
L011B55 JSR L013C36
|
|
JSL L018752
|
|
LDA $48
|
|
BNE L011B63
|
|
JSR L01192F
|
|
L011B63 PHA
|
|
PHA
|
|
PEA $0000
|
|
PEA $3000
|
|
LDA L01967F
|
|
PHA
|
|
PEA $8000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L011B8A
|
|
_DisposeHandle
|
|
PHA
|
|
PHA
|
|
L011B8A PLA
|
|
PLA
|
|
PHA
|
|
PHA
|
|
_MaxBlock
|
|
PLA
|
|
PLX
|
|
STX L011CC4
|
|
BNE L011BEB
|
|
CMP #$3000
|
|
BCS L011BEB
|
|
LDA L0196B1
|
|
PHA
|
|
LDA L0196AF
|
|
PHA
|
|
PEA $0010
|
|
_SetPurgeStat
|
|
LDA L0196AF
|
|
CMP #$FFFE
|
|
BEQ L011BCA
|
|
LDA #$FFFE
|
|
STA L0196AF
|
|
LDA #$0800
|
|
STA L0196B1
|
|
BRL L011B63
|
|
L011BCA LDX #$0002
|
|
LDA #$0201
|
|
JSL L017D37
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
_LoadSysFont
|
|
BRL L011C87
|
|
L011BEB JSR L011C8F
|
|
LDA L0196B1
|
|
PHA
|
|
LDA L0196AF
|
|
PHA
|
|
PEA $0010
|
|
_SetPurgeStat
|
|
PHA
|
|
PHA
|
|
LDA L0196B1
|
|
PHA
|
|
LDA L0196AF
|
|
PHA
|
|
PEA $0020
|
|
LDA L011CC4
|
|
BNE L011C18
|
|
JSL L011CC6
|
|
BRA L011C1F
|
|
L011C18 _ChooseFont
|
|
L011C1F PLA
|
|
STA L0196AF
|
|
PLA
|
|
STA L0196B1
|
|
ORA L0196AF
|
|
BNE L011C2F
|
|
BRL L011C87
|
|
L011C2F JSR L011C8F
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA L0196B1
|
|
PHA
|
|
LDA L0196AF
|
|
PHA
|
|
LDA L011CC4
|
|
BEQ L011C51
|
|
PEA $0000
|
|
BRA L011C54
|
|
L011C51 PEA $0001
|
|
L011C54 _InstallFont
|
|
PHA
|
|
PHA
|
|
_FMGetCurFID
|
|
PLA
|
|
STA L0196AF
|
|
PLA
|
|
STA L0196B1
|
|
PEA ^L0196B3
|
|
PEA L0196B3
|
|
_GetFontInfo
|
|
CLC
|
|
LDA L0196B3
|
|
ADC L0196B5
|
|
CLC
|
|
ADC L0196B9
|
|
STA L0196AD
|
|
L011C87 JSL L010D82
|
|
JSR L015CB0
|
|
RTS
|
|
|
|
L011C8F JSL GSOS
|
|
DW $0006 ; GetFileInfo
|
|
ADRL L011CA8
|
|
BCC L011CA7
|
|
LDA #$0000
|
|
LDX #$0001
|
|
JSL L017D37
|
|
BRA L011C8F
|
|
L011CA7 RTS
|
|
|
|
L011CA8 ADRL L011CC2 ; file name
|
|
DW $0000 ; access
|
|
DW $0000 ; file type
|
|
ADRL $00000000 ; aux type
|
|
DW $0000 ; storage
|
|
DS 4 ; creation date
|
|
DS 4 ; modification date
|
|
ADRL $00000000 ; blocks used
|
|
L011CC2 STR '*'
|
|
L011CC4 DW $0000
|
|
L011CC6 PHB
|
|
PHK
|
|
PLB
|
|
LDA #$0000
|
|
STA $0B,S
|
|
STA $0D,S
|
|
PHA
|
|
PHA
|
|
PEA ^L011FB8
|
|
PEA L011FB8
|
|
_GetNewModalDialog
|
|
PLA
|
|
STA L011FB4
|
|
PLA
|
|
STA L011FB4+2
|
|
LDA $07,S
|
|
LDX #$000A
|
|
L011CEC CMP L01210D,X
|
|
BEQ L011CF8
|
|
DEX
|
|
DEX
|
|
BPL L011CEC
|
|
LDX #$0000
|
|
L011CF8 TXA
|
|
LSR
|
|
STA L0122A2
|
|
CLC
|
|
ADC #$0003
|
|
TAX
|
|
PEA $FFFF
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PHX
|
|
_SetDItemValue
|
|
LDA $09,S
|
|
XBA
|
|
AND #$00FF
|
|
LDX #$0006
|
|
L011D1E CMP L012184,X
|
|
BEQ L011D2A
|
|
DEX
|
|
DEX
|
|
BPL L011D1E
|
|
LDX #$0000
|
|
L011D2A TXA
|
|
LSR
|
|
STA L0122A4
|
|
CLC
|
|
ADC #$0009
|
|
TAX
|
|
PEA $FFFF
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PHX
|
|
_SetDItemValue
|
|
LDA $09,S
|
|
AND #$00FF
|
|
STA L0122A6
|
|
LDX #$0000
|
|
CMP #$0000
|
|
BNE L011D5A
|
|
LDX #$FFFF
|
|
L011D5A PHX
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $000D
|
|
_SetDItemValue
|
|
LDA L0122A6
|
|
LDX #$0000
|
|
AND #$0001
|
|
BEQ L011D7B
|
|
LDX #$FFFF
|
|
L011D7B PHX
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $000E
|
|
_SetDItemValue
|
|
LDA L0122A6
|
|
LDX #$0000
|
|
AND #$0002
|
|
BEQ L011D9C
|
|
LDX #$FFFF
|
|
L011D9C PHX
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $000F
|
|
_SetDItemValue
|
|
LDA L0122A6
|
|
LDX #$0000
|
|
AND #$0004
|
|
BEQ L011DBD
|
|
LDX #$FFFF
|
|
L011DBD PHX
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $0010
|
|
_SetDItemValue
|
|
LDA L0122A6
|
|
LDX #$0000
|
|
AND #$0008
|
|
BEQ L011DDE
|
|
LDX #$FFFF
|
|
L011DDE PHX
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $0011
|
|
_SetDItemValue
|
|
LDA L0122A6
|
|
LDX #$0000
|
|
AND #$0010
|
|
BEQ L011DFF
|
|
LDX #$FFFF
|
|
L011DFF PHX
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $0012
|
|
_SetDItemValue
|
|
L011E12 PHA
|
|
PEA $8000
|
|
PEA $0000
|
|
_ModalDialog
|
|
PLA
|
|
BEQ L011E12
|
|
DEC
|
|
ASL
|
|
TAX
|
|
JSR (L011E68,X)
|
|
BRA L011E12
|
|
L011E2B LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
_CloseDialog
|
|
LDA $03,S
|
|
STA $09,S
|
|
LDA $01,S
|
|
STA $07,S
|
|
PLA
|
|
PLA
|
|
PLA
|
|
LDA #$0000
|
|
PLB
|
|
RTL
|
|
|
|
L011E4A PLA
|
|
LDA L0122A2
|
|
ASL
|
|
TAX
|
|
LDA L01210D,X
|
|
STA $0B,S
|
|
LDA L0122A4
|
|
ASL
|
|
TAX
|
|
LDA L012184,X
|
|
XBA
|
|
ORA L0122A6
|
|
STA $0D,S
|
|
BRA L011E2B
|
|
L011E65 PLA
|
|
BRA L011E2B
|
|
L011E68 DA L011E4A
|
|
DA L011E65
|
|
DA L011F96
|
|
DA L011F96
|
|
DA L011F96
|
|
DA L011F96
|
|
DA L011F96
|
|
DA L011F96
|
|
DA L011F78
|
|
DA L011F78
|
|
DA L011F78
|
|
DA L011F78
|
|
DA L011EF6
|
|
DA L011E93
|
|
DA L011E93
|
|
DA L011E93
|
|
DA L011E93
|
|
DA L011E93
|
|
DA L011E92
|
|
DA L011E92
|
|
DA L011E92
|
|
L011E92 RTS
|
|
|
|
L011E93 LSR
|
|
INC
|
|
PHA
|
|
SEC
|
|
SBC #$000E
|
|
TAX
|
|
LDA #$0001
|
|
L011E9E CPX #$0000
|
|
BEQ L011EA7
|
|
ASL
|
|
DEX
|
|
BRA L011E9E
|
|
L011EA7 EOR L0122A6
|
|
STA L0122A6
|
|
LDA $01,S
|
|
TAX
|
|
PHA
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PHX
|
|
_GetDItemValue
|
|
PLA
|
|
PLX
|
|
EOR #$FFFF
|
|
PHA
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PHX
|
|
_SetDItemValue
|
|
LDX #$0000
|
|
LDA L0122A6
|
|
BNE L011EE2
|
|
LDX #$FFFF
|
|
L011EE2 PHX
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $000D
|
|
_SetDItemValue
|
|
RTS
|
|
|
|
L011EF6 STZ L0122A6
|
|
PEA $FFFF
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $000D
|
|
_SetDItemValue
|
|
PEA $0000
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $000E
|
|
_SetDItemValue
|
|
PEA $0000
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $000F
|
|
_SetDItemValue
|
|
PEA $0000
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $0010
|
|
_SetDItemValue
|
|
PEA $0000
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $0011
|
|
_SetDItemValue
|
|
PEA $0000
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PEA $0012
|
|
_SetDItemValue
|
|
RTS
|
|
|
|
L011F78 LSR
|
|
INC
|
|
TAX
|
|
SEC
|
|
SBC #$0009
|
|
STA L0122A4
|
|
PEA $FFFF
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PHX
|
|
_SetDItemValue
|
|
RTS
|
|
|
|
L011F96 LSR
|
|
INC
|
|
TAX
|
|
SEC
|
|
SBC #$0003
|
|
STA L0122A2
|
|
PEA $FFFF
|
|
LDA L011FB4+2
|
|
PHA
|
|
LDA L011FB4
|
|
PHA
|
|
PHX
|
|
_SetDItemValue
|
|
RTS
|
|
|
|
L011FB4 ADRL $00000000
|
|
L011FB8 DW $0032 ; dtBoundsRect
|
|
DW $0023
|
|
DW $00A0
|
|
DW $011D
|
|
DW $FFFF ; dtVisible
|
|
ADRL $00000000 ; dtRefCon
|
|
ADRL L01201E ; itemPtr
|
|
ADRL L012036 ; itemPtr
|
|
ADRL L01204E ; itemPtr
|
|
ADRL L012066 ; itemPtr
|
|
ADRL L01207E ; itemPtr
|
|
ADRL L012096 ; itemPtr
|
|
ADRL L0120AE ; itemPtr
|
|
ADRL L0120C6 ; itemPtr
|
|
ADRL L012119 ; itemPtr
|
|
ADRL L012131 ; itemPtr
|
|
ADRL L012149 ; itemPtr
|
|
ADRL L012161 ; itemPtr
|
|
ADRL L01218C ; itemPtr
|
|
ADRL L0121A4 ; itemPtr
|
|
ADRL L0121BC ; itemPtr
|
|
ADRL L0121D4 ; itemPtr
|
|
ADRL L0121EC ; itemPtr
|
|
ADRL L012204 ; itemPtr
|
|
ADRL L012247 ; itemPtr
|
|
ADRL L01225F ; itemPtr
|
|
ADRL L012277 ; itemPtr
|
|
ADRL $00000000 ; Terminator
|
|
L01201E DW $0001 ; Item ID
|
|
DW $005B ; Item rect
|
|
DW $0087
|
|
DW $0068
|
|
DW $00C3
|
|
DW $000A ; Std button
|
|
ADRL L01046F ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L012036 DW $0002 ; Item ID
|
|
DW $005B ; Item rect
|
|
DW $0037
|
|
DW $0068
|
|
DW $0073
|
|
DW $000A ; Std button
|
|
ADRL L010472 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L01204E DW $0003 ; Item ID
|
|
DW $0014 ; Item rect
|
|
DW $000D
|
|
DW $001F
|
|
DW $0064
|
|
DW $000C ; Std radio button
|
|
ADRL L0120DE ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0001 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L012066 DW $0004 ; Item ID
|
|
DW $001F ; Item rect
|
|
DW $000D
|
|
DW $002A
|
|
DW $0064
|
|
DW $000C ; Std radio button
|
|
ADRL L0120E6 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0001 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L01207E DW $0005 ; Item ID
|
|
DW $002A ; Item rect
|
|
DW $000D
|
|
DW $0035
|
|
DW $0064
|
|
DW $000C ; Std radio button
|
|
ADRL L0120ED ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0001 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L012096 DW $0006 ; Item ID
|
|
DW $0035 ; Item rect
|
|
DW $000D
|
|
DW $0040
|
|
DW $0064
|
|
DW $000C ; Std radio button
|
|
ADRL L0120F3 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0001 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0120AE DW $0007 ; Item ID
|
|
DW $0040 ; Item rect
|
|
DW $000D
|
|
DW $004B
|
|
DW $0064
|
|
DW $000C ; Std radio button
|
|
ADRL L0120FD ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0001 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0120C6 DW $0008 ; Item ID
|
|
DW $004B ; Item rect
|
|
DW $000D
|
|
DW $0056
|
|
DW $0064
|
|
DW $000C ; Std radio button
|
|
ADRL L012107 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0001 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0120DE STR 'Shaston'
|
|
L0120E6 STR 'Venice'
|
|
L0120ED STR 'Times'
|
|
L0120F3 STR 'Helvetica'
|
|
L0120FD STR 'Hollywood'
|
|
L012107 STR 'Cairo'
|
|
L01210D DW $FFFE
|
|
DW $0005
|
|
DW $0014
|
|
DW $0015
|
|
DW $0097
|
|
DW $000B
|
|
L012119 DW $0009 ; Item ID
|
|
DW $0014 ; Item rect
|
|
DW $006E
|
|
DW $001F
|
|
DW $008C
|
|
DW $000C ; Std radio button
|
|
ADRL L012179 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0002 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L012131 DW $000A ; Item ID
|
|
DW $0026 ; Item rect
|
|
DW $006E
|
|
DW $0031
|
|
DW $008C
|
|
DW $000C ; Std radio button
|
|
ADRL L01217B ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0002 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L012149 DW $000B ; Item ID
|
|
DW $0038 ; Item rect
|
|
DW $006E
|
|
DW $0043
|
|
DW $008C
|
|
DW $000C ; Std radio button
|
|
ADRL L01217E ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0002 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L012161 DW $000C ; Item ID
|
|
DW $004A ; Item rect
|
|
DW $006E
|
|
DW $0055
|
|
DW $008C
|
|
DW $000C ; Std radio button
|
|
ADRL L012181 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0002 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L012179 STR '8'
|
|
L01217B STR '12'
|
|
L01217E STR '14'
|
|
L012181 STR '16'
|
|
L012184 DW $0008
|
|
DW $000C
|
|
DW $000E
|
|
DW $0010
|
|
L01218C DW $000D ; Item ID
|
|
DW $0014 ; Item rect
|
|
DW $009B
|
|
DW $001F
|
|
DW $00F0
|
|
DW $000B ; Std check box
|
|
ADRL L01221C ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0121A4 DW $000E ; Item ID
|
|
DW $001F ; Item rect
|
|
DW $009B
|
|
DW $002A
|
|
DW $00F0
|
|
DW $000B ; Std check box
|
|
ADRL L012222 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0121BC DW $000F ; Item ID
|
|
DW $002A ; Item rect
|
|
DW $009B
|
|
DW $0035
|
|
DW $00F0
|
|
DW $000B ; Std check box
|
|
ADRL L012227 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0121D4 DW $0010 ; Item ID
|
|
DW $0035 ; Item rect
|
|
DW $009B
|
|
DW $0040
|
|
DW $00F0
|
|
DW $000B ; Std check box
|
|
ADRL L01222E ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0121EC DW $0011 ; Item ID
|
|
DW $0040 ; Item rect
|
|
DW $009B
|
|
DW $004B
|
|
DW $00F0
|
|
DW $000B ; Std check box
|
|
ADRL L012238 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L012204 DW $0012 ; Item ID
|
|
DW $004B ; Item rect
|
|
DW $009B
|
|
DW $0056
|
|
DW $00F0
|
|
DW $000B ; Std check box
|
|
ADRL L012240 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L01221C STR 'Plain'
|
|
L012222 STR 'Bold'
|
|
L012227 STR 'Italic'
|
|
L01222E STR 'Underline'
|
|
L012238 STR 'OutLine'
|
|
L012240 STR 'Shadow'
|
|
L012247 DW $0013 ; Item ID
|
|
DW $0003 ; Item rect
|
|
DW $0014
|
|
DW $000E
|
|
DW $0032
|
|
DW $800F ; Static text
|
|
ADRL L01228F ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L01225F DW $0013 ; Item ID
|
|
DW $0003 ; Item rect
|
|
DW $006E
|
|
DW $000E
|
|
DW $0096
|
|
DW $800F ; Static text
|
|
ADRL L012295 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L012277 DW $0013 ; Item ID
|
|
DW $0003 ; Item rect
|
|
DW $009B
|
|
DW $000E
|
|
DW $00F0
|
|
DW $800F ; Static text
|
|
ADRL L01229B ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L01228F STR 'Font:'
|
|
L012295 STR 'Size:'
|
|
L01229B STR 'Style:'
|
|
L0122A2 DW $0000
|
|
L0122A4 DW $0000
|
|
L0122A6 DW $0000
|
|
|
|
L0122A8 JSR L013C36
|
|
JSR L015981
|
|
JSR L01192F
|
|
STZ L012403
|
|
STZ L012403+2
|
|
JSL GSOS
|
|
DW $0010 ; Open
|
|
ADRL L0123FD
|
|
BCC L0122C6
|
|
BRL L01230F
|
|
L0122C6 LDA L0123FD
|
|
STA L012407
|
|
STA L012417
|
|
LDA #L01241D
|
|
STA L012409
|
|
LDA #^L01241D
|
|
STA L012409+2
|
|
LDA #$0002
|
|
STA L01240D
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012407
|
|
JSR L012354
|
|
JSR L012339
|
|
LDA L01241D
|
|
STA L012419
|
|
STZ L012419+2
|
|
JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L012417
|
|
BCC L012309
|
|
BRL L0123DC
|
|
L012309 JSR L012354
|
|
JSR L012339
|
|
L01230F JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L012415
|
|
_InitPalette
|
|
PEA $0000
|
|
PEA $0000
|
|
_RefreshDesktop
|
|
_DrawMenuBar
|
|
JSL L010D82
|
|
RTS
|
|
|
|
L012339 PHA
|
|
PEA $FFFF
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
LDA L0196BB
|
|
CMP #$0001
|
|
BNE L012339
|
|
RTS
|
|
|
|
L012354 _HideCursor
|
|
LDA $A4
|
|
STA L012409
|
|
LDA $A6
|
|
STA L012409+2
|
|
LDA #$2000
|
|
STA L012423
|
|
LDA #$00E1
|
|
STA L012423+2
|
|
LDA #$7D00
|
|
STA L01241F
|
|
LDA #$00A0
|
|
STA L01240D
|
|
JSL GSOS
|
|
DW $0017 ; GetMark
|
|
ADRL L012417
|
|
BCC L01238C
|
|
BRL L0123DC
|
|
L01238C JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L012417
|
|
BCC L01239B
|
|
BRL L0123DC
|
|
L01239B JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012407
|
|
BCC L0123AA
|
|
BRL L0123DC
|
|
L0123AA PHA
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
PEA $00A0
|
|
PEA ^L012423
|
|
PEA L012423
|
|
PEA ^L01241F
|
|
PEA L01241F
|
|
_UnPackBytes
|
|
PLA
|
|
CLC
|
|
ADC L012419
|
|
STA L012419
|
|
LDA L01241F
|
|
BNE L01238C
|
|
_ShowCursor
|
|
RTS
|
|
|
|
L0123DC PLA
|
|
_ShowCursor
|
|
BRL L01230F
|
|
|
|
L0123E7 STR '1/PaintTools/HelpFile'
|
|
L0123FD DW $0000 ; ref num
|
|
ADRL L0123E7 ; path name
|
|
L012403 ADRL $00000000 ; reserved
|
|
L012407 DW $0000 ; ref num
|
|
L012409 ADRL $00000000 ; buffer ptr
|
|
L01240D ADRL $00000002 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L012415 DW $0000 ; ref num
|
|
L012417 DW $0000 ; ref num
|
|
L012419 ADRL $00000000 ; position
|
|
L01241D DW $0000
|
|
L01241F DW $0000
|
|
DW $0000
|
|
L012423 ADRL $00000000
|
|
|
|
L012427 LDA $3E
|
|
BNE L012439
|
|
LDA #$0104
|
|
STA L0196CB
|
|
JSR L013DC6
|
|
LDA $3E
|
|
BNE L012439
|
|
RTS
|
|
|
|
L012439 PEA $001E ; X/Y
|
|
PEA $001E
|
|
PEA ^L0105F5 ; promptPtr
|
|
PEA L0105F5
|
|
PEA ^L0129C6 ; filterProcPtr
|
|
PEA L0129C6
|
|
PEA ^L012A29 ; typeListPtr
|
|
PEA L012A29
|
|
PEA ^L0198D9 ; replyPtr
|
|
PEA L0198D9
|
|
_SFGetFile
|
|
JSL L010D82
|
|
LDA L0198D9 ; true for open
|
|
BNE L012468
|
|
RTS
|
|
|
|
L012468 LDA L0198DB
|
|
CMP #$00C0
|
|
BEQ L012487
|
|
CMP #$0006
|
|
BEQ L01247E
|
|
LDA #$0002 ; filetype is C1 => 2
|
|
STA L019687
|
|
BRL L01274A
|
|
L01247E LDA #$0003 ; filetype is 06 => 3
|
|
STA L019687
|
|
BRL L01274A
|
|
|
|
L012487 LDA L0198DD
|
|
BEQ L012495
|
|
* cmp #$8005 ; AV 202004
|
|
* beq L012490
|
|
LDA #$0000 ; C0/0002 => 0
|
|
STA L019687
|
|
BRL L0124E0
|
|
|
|
*L012490 lda #4 ; AV 202004
|
|
* sta L019687
|
|
* brl handleDG
|
|
|
|
L012495 LDA #$0001 ; C0/0000 => 1
|
|
STA L019687
|
|
BRL L012836
|
|
L01249E LDA L012A6D
|
|
BMI L0124B4
|
|
JSR L011953
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
RTS
|
|
|
|
L0124B4 LDA L019976
|
|
STA $0A
|
|
LDA L019978
|
|
STA $0C
|
|
LDX #$0080
|
|
LDY #$7DFE
|
|
LDA #$0000
|
|
L0124C7 STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
DEX
|
|
BNE L0124C7
|
|
LDX #$001E
|
|
LDY #$7E1E
|
|
L0124D4 LDA L012A4D,X
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
DEX
|
|
DEX
|
|
BPL L0124D4
|
|
RTS
|
|
|
|
L0124E0 LDA #$0001
|
|
STA $74
|
|
JSR L01296D
|
|
BCC L0124ED
|
|
BRL L012999
|
|
|
|
L0124ED LDA #L01271B
|
|
STA L012A39
|
|
LDA #^L01271B
|
|
STA L012A39+2
|
|
LDA #$000F
|
|
STA L012A3D
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L01250E
|
|
BRL L012999
|
|
L01250E LDA L012728
|
|
BEQ L012549
|
|
LDA $A4
|
|
STA L012A39
|
|
LDA $A6
|
|
STA L012A39+2
|
|
LDA #$0020
|
|
STA L012A3D
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L012532
|
|
BRL L012999
|
|
L012532 PEA $0000
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
_SetColorTable
|
|
_InitPalette
|
|
L012549 LDA L012728
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC #$000F
|
|
STA L012A49
|
|
JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L012A47
|
|
BCC L012567
|
|
BRL L012999
|
|
L012567 LDA #L01272A
|
|
STA L012A39
|
|
LDA #^L01272A
|
|
STA L012A39+2
|
|
LDA #$0002
|
|
STA L012A3D
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L012588
|
|
BRL L012999
|
|
L012588 LDA L01272A
|
|
STA L012732
|
|
LDA $F0
|
|
CMP L01272A
|
|
BCS L012598
|
|
STA L012732
|
|
L012598 LDA L019984
|
|
STA L012A39
|
|
LDA L019986
|
|
STA L012A39+2
|
|
LDA L012732
|
|
ASL
|
|
ASL
|
|
STA L012A3D
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L0125BB
|
|
BRL L012999
|
|
L0125BB LDA L01272A
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC #$0002
|
|
CLC
|
|
ADC L012A49
|
|
STA L012A49
|
|
JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L012A47
|
|
BCC L0125DA
|
|
BRL L012999
|
|
L0125DA JSR L0129AF
|
|
LDA $A4
|
|
STA L012A39
|
|
LDA $A6
|
|
STA L012A39+2
|
|
LDA L019976
|
|
STA L012A23
|
|
LDA L019978
|
|
STA L012A23+2
|
|
LDA L019984
|
|
STA $0A
|
|
LDA L019986
|
|
STA $0C
|
|
STZ L012730
|
|
L012600 LDA #$00A0
|
|
STA L01272C
|
|
LDY L012730
|
|
LDA [$0A],Y
|
|
STA L012A3D
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L012622
|
|
CMP #$004C
|
|
BEQ L012652
|
|
BRL L012999
|
|
L012622 PHA
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
LDY L012730
|
|
LDA [$0A],Y
|
|
PHA
|
|
PEA ^L012A23
|
|
PEA L012A23
|
|
PEA ^L01272C
|
|
PEA L01272C
|
|
_UnPackBytes
|
|
PLA
|
|
CLC
|
|
LDA L012730
|
|
ADC #$0004
|
|
STA L012730
|
|
DEC L012732
|
|
BNE L012600
|
|
L012652 STZ L012738
|
|
STZ L012738+2
|
|
L012658 CLC
|
|
LDA L012738
|
|
ADC L01271B
|
|
STA L012738
|
|
STA L012A49
|
|
LDA L012738+2
|
|
ADC L01271D
|
|
STA L012738+2
|
|
STA L012A49+2
|
|
JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L012A47
|
|
BCC L012680
|
|
BRL L012999
|
|
L012680 LDA #L01271B
|
|
STA L012A39
|
|
LDA #^L01271B
|
|
STA L012A39+2
|
|
LDA #$000B
|
|
STA L012A3D
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L0126A9
|
|
CMP #$004C
|
|
BNE L0126A6
|
|
BRL L012707
|
|
L0126A6 BRL L012999
|
|
L0126A9 LDA L012720
|
|
CMP L012734
|
|
BNE L012658
|
|
LDA L012722
|
|
CMP L012734+2
|
|
BNE L012658
|
|
LDA #$0010
|
|
CMP L012724
|
|
BCS L0126C4
|
|
STA L012724
|
|
L0126C4 LDA L012724
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
STA L012A3D
|
|
LDA #L019C74
|
|
STA L012A39
|
|
LDA #^L019C74
|
|
STA L012A39+2
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L0126EA
|
|
BRL L012999
|
|
L0126EA LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
JSR L0117DA
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
L012707 JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L012A45
|
|
LDA #$0001
|
|
STA $40
|
|
STZ $3C
|
|
BRL L01249E
|
|
|
|
L01271B DW $0000
|
|
L01271D DB $00
|
|
DB $00
|
|
DB $00
|
|
L012720 DW $0000
|
|
L012722 DW $0000
|
|
L012724 DW $0000
|
|
DW $0000
|
|
L012728 DW $0000
|
|
L01272A DW $0000
|
|
L01272C DW $0000
|
|
DW $0000
|
|
L012730 DW $0000
|
|
L012732 DW $0000
|
|
L012734 ASC 'PATS'
|
|
L012738 ADRL $00000000
|
|
|
|
L01273C ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA #$FFFF
|
|
STA L012A6D
|
|
JSR L01274D
|
|
PLB
|
|
RTL
|
|
|
|
*--- Handle C1/06 files
|
|
|
|
L01274A STZ L012A6D
|
|
L01274D JSR L01296D ; open file
|
|
BCC L012755
|
|
BRL L012999
|
|
L012755 LDA L019976 ; read $7D00 bytes
|
|
STA L012A39
|
|
LDA L019978
|
|
STA L012A39+2
|
|
LDA #$7D00
|
|
STA L012A3D
|
|
BIT L012A6D
|
|
BMI L01276F
|
|
JSR L0129AF ; show file name
|
|
|
|
L01276F JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L01277E
|
|
BRL L012999
|
|
|
|
*--- now, read ONE palette only!
|
|
|
|
L01277E LDA #$7E00
|
|
STA L012A49
|
|
STZ L012A49+2
|
|
JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L012A47
|
|
BCC L012796
|
|
BRL L012999
|
|
L012796 LDA #$0020
|
|
STA L012A3D
|
|
LDA $A4
|
|
STA L012A39
|
|
LDA $A6
|
|
STA L012A39+2
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L0127B5
|
|
BRL L012999
|
|
|
|
L0127B5 JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L012A45
|
|
|
|
LDA L012A6D
|
|
BPL L0127D2
|
|
|
|
LDY #$001E
|
|
L0127C7 LDA [$A4],Y
|
|
STA L012A4D,Y
|
|
DEY
|
|
DEY
|
|
BPL L0127C7
|
|
BRA L012825
|
|
|
|
L0127D2 LDA L019687
|
|
CMP #$0002
|
|
BEQ L0127E5
|
|
JSR L018F57
|
|
LDA #$0002
|
|
STA L019687
|
|
BRA L0127F5
|
|
L0127E5 PEA $0000
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
_SetColorTable
|
|
L0127F5 _InitPalette
|
|
LDA #$0001
|
|
STA $40
|
|
STZ $3C
|
|
LDA #$0001
|
|
STA $74
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
JSR L0117DA
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
|
|
L012825 BRL L01249E
|
|
|
|
L012828 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA #$FFFF
|
|
STA L012A6D
|
|
JSR L012839
|
|
PLB
|
|
RTL
|
|
|
|
L012836 STZ L012A6D
|
|
L012839 JSR L01296D
|
|
BCC L012841
|
|
BRL L012999
|
|
L012841 LDA $A4
|
|
STA L012A39
|
|
LDA $A6
|
|
STA L012A39+2
|
|
LDA #$0022
|
|
STA L012A3D
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L012860
|
|
BRL L012999
|
|
L012860 LDY #$0020
|
|
LDA [$A4],Y
|
|
EOR #$000F
|
|
INC
|
|
STA $74
|
|
LDA #L019C74
|
|
STA L012A39
|
|
LDA #^L019C74
|
|
STA L012A39+2
|
|
LDA #$0200
|
|
STA L012A3D
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L01288C
|
|
BRL L012999
|
|
L01288C BIT L012A6D
|
|
BMI L0128CA
|
|
PEA $0000
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
_SetColorTable
|
|
_InitPalette
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
JSR L0117DA
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
JSR L0129AF
|
|
BRA L0128D6
|
|
L0128CA LDY #$001E
|
|
L0128CD LDA [$A4],Y
|
|
STA L012A4D,Y
|
|
DEY
|
|
DEY
|
|
BPL L0128CD
|
|
L0128D6 LDA $A4
|
|
STA L012A39
|
|
LDA $A6
|
|
STA L012A39+2
|
|
LDA L019976
|
|
STA L012A23
|
|
LDA L019978
|
|
STA L012A23+2
|
|
LDA L019699
|
|
STA L012A27
|
|
LDA #$00A0
|
|
STA L012A3D
|
|
JSL GSOS
|
|
DW $0017 ; GetMark
|
|
ADRL L012A47
|
|
L012902 JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L012A47
|
|
BCC L012916
|
|
CMP #$004D
|
|
BEQ L012954
|
|
BRL L012999
|
|
L012916 JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L012A37
|
|
BCC L01292A
|
|
CMP #$004C
|
|
BEQ L012954
|
|
BRL L012999
|
|
L01292A PHA
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
PEA $00A0
|
|
PEA ^L012A23
|
|
PEA L012A23
|
|
PEA ^L012A27
|
|
PEA L012A27
|
|
_UnPackBytes
|
|
PLA
|
|
CLC
|
|
ADC L012A49
|
|
STA L012A49
|
|
LDA L012A27
|
|
BNE L012902
|
|
L012954 JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L012A45
|
|
BIT L012A6D
|
|
BMI L01296A
|
|
LDA #$0001
|
|
STA $40
|
|
STZ $3C
|
|
L01296A BRL L01249E
|
|
|
|
L01296D STZ L012A33
|
|
STZ L012A33+2
|
|
JSL GSOS
|
|
DW $0010 ; Open
|
|
ADRL L012A2D
|
|
BCS L012997
|
|
PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
LDA L012A2D
|
|
STA L012A37
|
|
STA L012A47
|
|
CLC
|
|
RTS
|
|
|
|
L012997 SEC
|
|
RTS
|
|
|
|
L012999 PHA
|
|
JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L012A45
|
|
PLA
|
|
LDX #$0000
|
|
JSL L017D37
|
|
BRL L01249E
|
|
|
|
L0129AF PEA ^L0198DF
|
|
PEA L0198DF
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetWTitle
|
|
JSR L013D4D
|
|
RTS
|
|
|
|
*--- filterProcPtr
|
|
* Stack:
|
|
* word space for result
|
|
* long pointer to DirEntry
|
|
|
|
* It opens BIN/PIC of $8000
|
|
* It opens PNT/0000 and PNT/0002
|
|
* It could handle DG files, no?
|
|
|
|
L0129C6 PHB
|
|
PHD
|
|
PHK
|
|
PLB
|
|
LDA L01968D ; get my DP
|
|
TCD
|
|
LDA $07,S ; get DirEntry ptr
|
|
STA $0A
|
|
LDA $09,S
|
|
STA $0C
|
|
LDY #$0010 ; file_type
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP #$0006
|
|
BEQ L012A03
|
|
CMP #$00C0
|
|
BEQ L0129F2
|
|
CMP #$00C1
|
|
BEQ L012A03
|
|
L0129ED LDA #$0000 ; return noDisplay
|
|
BRA L012A14
|
|
|
|
*--- check ayx file type of $C0
|
|
|
|
L0129F2 LDY #$001F ; aux_type
|
|
LDA [$0A],Y ; 0000
|
|
BEQ L0129FE
|
|
cmp #$8005 ; AV 202004 - for DreamGrafix
|
|
beq L0129FE
|
|
CMP #$0002
|
|
BNE L0129ED
|
|
L0129FE LDA #$0002 ; return displaySelect
|
|
BRA L012A14
|
|
|
|
L012A03 LDY #$0013 ; blocks_used
|
|
LDA [$0A],Y
|
|
CMP #$0041
|
|
BEQ L0129FE
|
|
CMP #$007F
|
|
BNE L0129ED
|
|
BRA L0129FE
|
|
|
|
L012A14 STA $0B,S ; put result
|
|
PLD
|
|
PLB
|
|
LDA $00,S ; move stack 4 bytes
|
|
STA $04,S
|
|
LDA $02,S
|
|
STA $06,S
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L012A23 ADRL $00000000
|
|
L012A27 DW $0000
|
|
|
|
L012A29 DB $03 ; the three filetypes that GS/Paint can read
|
|
HEX 06C0C1
|
|
|
|
L012A2D DW $0000 ; ref num
|
|
ADRL L0198EF ; path name
|
|
L012A33 ADRL $00000000 ; reserved
|
|
|
|
L012A37 DW $0000 ; ref num
|
|
L012A39 ADRL $00000000 ; buffer ptr
|
|
L012A3D ADRL $00007D00 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
|
|
L012A45 DW $0000 ; ref num
|
|
|
|
L012A47 DW $0000 ; ref num
|
|
L012A49 ADRL $00000000 ; position
|
|
|
|
L012A4D HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L012A6D DW $0000
|
|
|
|
L012A6F JSL L018744
|
|
L012A73 LDA $40
|
|
BEQ L012A87
|
|
JSR L013172
|
|
LDA L019687
|
|
STA L01319B
|
|
BRL L012B03
|
|
L012A83 JSL L018744
|
|
L012A87 JSR L013172
|
|
STZ L013121
|
|
STZ L013139
|
|
STZ L013151
|
|
LDA L019687
|
|
CMP #$0000
|
|
BEQ L012AAB
|
|
CMP #$0001
|
|
BEQ L012AB6
|
|
STA L01319B
|
|
LDA #$0001
|
|
STA L013151
|
|
BRA L012ABF
|
|
L012AAB STA L01319B
|
|
LDA #$0001
|
|
STA L013121
|
|
BRA L012ABF
|
|
L012AB6 STA L01319B
|
|
LDA #$0001
|
|
STA L013139
|
|
L012ABF JSL L018752
|
|
PEA $0019
|
|
PEA $001E
|
|
PEA ^L0105E2
|
|
PEA L0105E2
|
|
PEA ^L0198DF
|
|
PEA L0198DF
|
|
PEA $000F
|
|
PEA ^L012FA3
|
|
PEA L012FA3
|
|
PEA ^L012F2B
|
|
PEA L012F2B
|
|
PEA ^L0198D9
|
|
PEA L0198D9
|
|
_SFPPutFile
|
|
JSL L010D82
|
|
_ShowCursor
|
|
LDA L0198D9
|
|
BNE L012B03
|
|
CLC
|
|
RTS
|
|
|
|
L012B03 PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
LDA L01319B
|
|
STA L019687
|
|
ASL
|
|
TAX
|
|
JMP (L012B1B,X)
|
|
|
|
L012B1B DA L012B21
|
|
DA L012B33
|
|
DA L012B42
|
|
L012B21 LDA #$00C0
|
|
STA L0131AB
|
|
STZ L0131AD
|
|
LDA #$0002
|
|
STA L0131AD
|
|
BRL L012B99
|
|
L012B33 LDA #$00C0
|
|
STA L0131AB
|
|
STZ L0131AD
|
|
STZ L0131AD+2
|
|
BRL L012DDD
|
|
L012B42 LDA #$00C1
|
|
STA L0131AB
|
|
STZ L0131AD
|
|
STZ L0131AD+2
|
|
BRL L012D7C
|
|
L012B51 JSL GSOS
|
|
DW $0017 ; GetMark
|
|
ADRL L0131D1
|
|
BCC L012B60
|
|
BRL L013159
|
|
L012B60 JSL GSOS
|
|
DW $0018 ; SetEOF
|
|
ADRL L0131D1
|
|
BCC L012B6F
|
|
BRL L013159
|
|
L012B6F JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L0131CF
|
|
LDA #$0001
|
|
STA $40
|
|
STZ $3C
|
|
JSL L018752
|
|
PEA ^L0198DF
|
|
PEA L0198DF
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetWTitle
|
|
SEC
|
|
RTS
|
|
|
|
L012B99 JSR L012EB2
|
|
BCC L012BA1
|
|
BRL L013159
|
|
L012BA1 JSR L012D1A
|
|
BCC L012BA9
|
|
BRL L013159
|
|
L012BA9 LDA #$9E00
|
|
STA L0131C3
|
|
LDA #$00E1
|
|
STA L0131C3+2
|
|
LDA #$0200
|
|
STA L0131C7
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCC L012BCA
|
|
BRL L013159
|
|
L012BCA JSR L012D3C
|
|
BCC L012BD2
|
|
BRL L013159
|
|
L012BD2 LDA L019984
|
|
STA $0A
|
|
LDA L019986
|
|
STA $0C
|
|
LDA #$018C
|
|
STA [$0A]
|
|
STA L012D78
|
|
LDA #$0002
|
|
STA L012D7A
|
|
LDA $A4
|
|
STA L0131C3
|
|
LDA $A6
|
|
STA L0131C3+2
|
|
LDA L019976
|
|
STA L01319D
|
|
LDA L019978
|
|
STA L01319F
|
|
L012C00 LDA #$00A0
|
|
STA L013199
|
|
LDA L01319D
|
|
STA L013195
|
|
LDA L01319F
|
|
STA L013197
|
|
PHA
|
|
PEA ^L013195
|
|
PEA L013195
|
|
PEA ^L013199
|
|
PEA L013199
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
PEA $FFFF
|
|
_PackBytes
|
|
PLA
|
|
STA L0131C7
|
|
LDY L012D7A
|
|
STA [$0A],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$0A],Y
|
|
INY
|
|
INY
|
|
STY L012D7A
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCC L012C53
|
|
BRL L013159
|
|
L012C53 CLC
|
|
LDA L01319D
|
|
ADC #$00A0
|
|
STA L01319D
|
|
DEC L012D78
|
|
BNE L012C00
|
|
JSL GSOS
|
|
DW $0017 ; GetMark
|
|
ADRL L0131D1
|
|
BCC L012C71
|
|
BRL L013159
|
|
L012C71 LDA L0131D3
|
|
STA L012D5E
|
|
LDA L0131D3+2
|
|
STA L012D5E+2
|
|
STZ L0131D3
|
|
STZ L0131D3+2
|
|
JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L0131D1
|
|
BCC L012C92
|
|
BRL L013159
|
|
L012C92 JSR L012D1A
|
|
BCC L012C9A
|
|
BRL L013159
|
|
L012C9A LDA #$020F
|
|
STA L0131D3
|
|
STZ L0131D3+2
|
|
JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L0131D1
|
|
BCC L012CB2
|
|
BRL L013159
|
|
L012CB2 JSR L012D3C
|
|
BCC L012CBA
|
|
BRL L013159
|
|
L012CBA LDA L012D5E
|
|
STA L0131D3
|
|
LDA L012D5E+2
|
|
STA L0131D3+2
|
|
JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L0131D1
|
|
BCC L012CD5
|
|
BRL L013159
|
|
L012CD5 LDA #L012D6D
|
|
STA L0131C3
|
|
LDA #^L012D6D
|
|
STA L0131C3+2
|
|
LDA #$000B
|
|
STA L0131C7
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCC L012CF6
|
|
BRL L013159
|
|
L012CF6 LDA #L019C74
|
|
STA L0131C3
|
|
LDA #^L019C74
|
|
STA L0131C3+2
|
|
LDA #$0200
|
|
STA L0131C7
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCC L012D17
|
|
BRL L013159
|
|
L012D17 BRL L012B51
|
|
L012D1A LDA #L012D5E
|
|
STA L0131C3
|
|
LDA #^L012D5E
|
|
STA L0131C3+2
|
|
LDA #$000F
|
|
STA L0131C7
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCS L012D3A
|
|
CLC
|
|
RTS
|
|
|
|
L012D3A SEC
|
|
RTS
|
|
|
|
L012D3C LDA L019984
|
|
STA L0131C3
|
|
LDA L019986
|
|
STA L0131C3+2
|
|
LDA #$0632
|
|
STA L0131C7
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCS L012D5C
|
|
CLC
|
|
RTS
|
|
|
|
L012D5C SEC
|
|
RTS
|
|
|
|
L012D5E ADRL $00000000
|
|
STR 'MAIN'
|
|
DB $00
|
|
DB $00
|
|
DB $40
|
|
DB $01
|
|
DB $10
|
|
DB $00
|
|
L012D6D DB $0B
|
|
DB $02
|
|
DB $00
|
|
DB $00
|
|
STR 'PATS'
|
|
DB $10
|
|
DB $00
|
|
L012D78 DW $0000
|
|
L012D7A DW $0000
|
|
L012D7C JSR L012EB2
|
|
BCC L012D84
|
|
BRL L013159
|
|
L012D84 LDA L019976
|
|
STA L0131C3
|
|
LDA L019978
|
|
STA L0131C3+2
|
|
LDA #$7D00
|
|
STA L0131C7
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCC L012DA5
|
|
BRL L013159
|
|
L012DA5 PEA $0000
|
|
_SetAllSCBs
|
|
LDA #$0300
|
|
STA L0131C7
|
|
STZ L0131C7+2
|
|
LDA #$9D00
|
|
STA L0131C3
|
|
LDA #$00E1
|
|
STA L0131C3+2
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCC L012DD3
|
|
BRL L013159
|
|
L012DD3 _InitPalette
|
|
BRL L012B51
|
|
L012DDD JSR L012EB2
|
|
BCC L012DE5
|
|
BRL L013159
|
|
L012DE5 PEA $0000
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
_GetColorTable
|
|
LDA $74
|
|
DEC
|
|
EOR #$000F
|
|
LDY #$0020
|
|
STA [$A4],Y
|
|
LDA $A4
|
|
STA L0131C3
|
|
LDA $A6
|
|
STA L0131C3+2
|
|
LDA #$0022
|
|
STA L0131C7
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCC L012E1F
|
|
BRL L013159
|
|
L012E1F LDA #L019C74
|
|
STA L0131C3
|
|
LDA #^L019C74
|
|
STA L0131C3+2
|
|
LDA #$0200
|
|
STA L0131C7
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCC L012E40
|
|
BRL L013159
|
|
L012E40 LDA $A4
|
|
STA L0131C3
|
|
LDA $A6
|
|
STA L0131C3+2
|
|
LDA L019976
|
|
STA L01319D
|
|
LDA L019978
|
|
STA L01319F
|
|
LDY $F0
|
|
L012E58 PHY
|
|
LDA #$00A0
|
|
STA L013199
|
|
LDA L01319D
|
|
STA L013195
|
|
LDA L01319F
|
|
STA L013197
|
|
L012E6B PHA
|
|
PEA ^L013195
|
|
PEA L013195
|
|
PEA ^L013199
|
|
PEA L013199
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
PEA $00A0
|
|
_PackBytes
|
|
PLA
|
|
STA L0131C7
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L0131C1
|
|
BCC L012E9C
|
|
PLY
|
|
BRL L013159
|
|
L012E9C LDA L013199
|
|
BNE L012E6B
|
|
CLC
|
|
LDA L01319D
|
|
ADC #$00A0
|
|
STA L01319D
|
|
PLY
|
|
DEY
|
|
BNE L012E58
|
|
BRL L012B51
|
|
L012EB2 JSL GSOS
|
|
DW $0001 ; Create
|
|
ADRL L0131A5
|
|
BCC L012EC6
|
|
CMP #$0047
|
|
BEQ L012EC6
|
|
BRL L012F29
|
|
L012EC6 JSL GSOS
|
|
DW $0006 ; GetFileInfo
|
|
ADRL L0131D7
|
|
BCC L012ED5
|
|
BRL L012F29
|
|
L012ED5 LDA L0131AB
|
|
STA L0131DD
|
|
LDA L0131AD
|
|
STA L0131DF
|
|
LDA L0131AD+2
|
|
STA L0131DF+2
|
|
LDA #$00C3
|
|
STA L0131DB
|
|
JSL GSOS
|
|
DW $0005 ; SetFileInfo
|
|
ADRL L0131D7
|
|
BCC L012EFC
|
|
BRL L012F29
|
|
L012EFC STZ L0131BD
|
|
STZ L0131BD+2
|
|
JSL GSOS
|
|
DW $0010 ; Open
|
|
ADRL L0131B7
|
|
BCS L012F29
|
|
PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
LDA L0131B7
|
|
STA L0131C1
|
|
STA L0131D1
|
|
STA L0131D1
|
|
CLC
|
|
RTS
|
|
|
|
L012F29 SEC
|
|
RTS
|
|
|
|
*--- dialogHookPtr
|
|
|
|
L012F2B PHB
|
|
PHD
|
|
PHK
|
|
PLB
|
|
LDA L01968D
|
|
TCD
|
|
LDA $0B,S
|
|
STA $0A
|
|
LDA $0D,S
|
|
STA $0C
|
|
LDA $07,S
|
|
STA $0E
|
|
LDA $09,S
|
|
STA $10
|
|
LDA [$0E]
|
|
STA L0131A1
|
|
CMP #$000D
|
|
BCC L012F94
|
|
LDX #$000E
|
|
LDA L0131A1
|
|
CMP #$000D
|
|
BEQ L012F59
|
|
DEX
|
|
L012F59 STX L0131A3
|
|
PHA
|
|
LDA $0C
|
|
PHA
|
|
LDA $0A
|
|
PHA
|
|
LDA L0131A1
|
|
PHA
|
|
_GetDItemValue
|
|
PLA
|
|
BNE L012F8F
|
|
SEC
|
|
LDA L0131A1
|
|
SBC #$000D
|
|
STA L01319B
|
|
PEA $0001
|
|
LDA $0C
|
|
PHA
|
|
LDA $0A
|
|
PHA
|
|
LDA L0131A1
|
|
PHA
|
|
_SetDItemValue
|
|
L012F8F LDA #$0000
|
|
STA [$0E]
|
|
L012F94 PLD
|
|
PLB
|
|
LDA $00,S
|
|
STA $08,S
|
|
LDA $02,S
|
|
STA $0A,S
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
*--- Dialog Template
|
|
|
|
L012FA3 DW $0000 ; dtBoundsRect
|
|
DW $0000
|
|
DW $0098
|
|
DW $010E
|
|
DW $FFFF ; dtVisible
|
|
ADRL $00000000 ; dtRefCon
|
|
ADRL L012FF1 ; itemPtr
|
|
ADRL L013009 ; itemPtr
|
|
ADRL L013021 ; itemPtr
|
|
ADRL L013039 ; itemPtr
|
|
ADRL L013051 ; itemPtr
|
|
ADRL L013069 ; itemPtr
|
|
ADRL L013081 ; itemPtr
|
|
ADRL L013099 ; itemPtr
|
|
ADRL L0130B1 ; itemPtr
|
|
ADRL L0130C9 ; itemPtr
|
|
ADRL L0130E1 ; itemPtr
|
|
ADRL L0130F9 ; itemPtr
|
|
ADRL L013111 ; itemPtr
|
|
ADRL L013129 ; itemPtr
|
|
ADRL L013141 ; itemPtr
|
|
ADRL $00000000 ; Terminator
|
|
L012FF1 DW $0001 ; Item ID
|
|
DW $005D ; Item rect
|
|
DW $00A5
|
|
DW $0069
|
|
DW $0109
|
|
DW $000A ; Std button
|
|
ADRL L0104A5 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013009 DW $0002 ; Item ID
|
|
DW $0036 ; Item rect
|
|
DW $00A5
|
|
DW $0042
|
|
DW $0109
|
|
DW $000A ; Std button
|
|
ADRL L01049E ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013021 DW $0003 ; Item ID
|
|
DW $0048 ; Item rect
|
|
DW $00A5
|
|
DW $0054
|
|
DW $0109
|
|
DW $000A ; Std button
|
|
ADRL L010490 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013039 DW $0004 ; Item ID
|
|
DW $000F ; Item rect
|
|
DW $00A5
|
|
DW $001B
|
|
DW $0109
|
|
DW $000A ; Std button
|
|
ADRL L010488 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013051 DW $0005 ; Item ID
|
|
DW $006F ; Item rect
|
|
DW $00A5
|
|
DW $007B
|
|
DW $0109
|
|
DW $000A ; Std button
|
|
ADRL L010472 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013069 DW $0006 ; Item ID
|
|
DW $001A ; Item rect
|
|
DW $0090
|
|
DW $0058
|
|
DW $009D
|
|
DW $000D ; Dialog scroll bar
|
|
ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0003 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013081 DW $0007 ; Item ID
|
|
DW $0000 ; Item rect
|
|
DW $000A
|
|
DW $000C
|
|
DW $0109
|
|
DW $0014 ; User item
|
|
ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013099 DW $0008 ; Item ID
|
|
DW $001A ; Item rect
|
|
DW $000A
|
|
DW $0058
|
|
DW $0091
|
|
DW $0014 ; User item
|
|
ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0130B1 DW $0009 ; Item ID
|
|
DW $0058 ; Item rect
|
|
DW $000A
|
|
DW $0064
|
|
DW $00AA
|
|
DW $8014 ; User item
|
|
ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0130C9 DW $000A ; Item ID
|
|
DW $0064 ; Item rect
|
|
DW $000A
|
|
DW $0076
|
|
DW $009D
|
|
DW $0011 ; Editable text
|
|
ADRL L0198DF ; Item descriptor
|
|
DW $000F ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0130E1 DW $000B ; Item ID
|
|
DW $000C ; Item rect
|
|
DW $000A
|
|
DW $0016
|
|
DW $00A0
|
|
DW $800F ; Static text
|
|
ADRL L0104AC ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0130F9 DW $000C ; Item ID
|
|
DW $0021 ; Item rect
|
|
DW $00A5
|
|
DW $002D
|
|
DW $0109
|
|
DW $000A ; Std button
|
|
ADRL L0104BD ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013111 DW $000D ; Item ID
|
|
DW $008B ; Item rect
|
|
DW $000A
|
|
DW $0095
|
|
DW $006E
|
|
DW $000C ; Std radio button
|
|
ADRL L01061A ; Item descriptor
|
|
L013121 DW $0000 ; Item value
|
|
DW $0001 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013129 DW $000E ; Item ID
|
|
DW $007F ; Item rect
|
|
DW $004B
|
|
DW $0089
|
|
DW $00B9
|
|
DW $000C ; Std radio button
|
|
ADRL L01060C ; Item descriptor
|
|
L013139 DW $0000 ; Item value
|
|
DW $0001 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013141 DW $000F ; Item ID
|
|
DW $008B ; Item rect
|
|
DW $0091
|
|
DW $0095
|
|
DW $0109
|
|
DW $000C ; Std radio button
|
|
ADRL L0105FE ; Item descriptor
|
|
L013151 DW $0000 ; Item value
|
|
DW $0001 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
|
|
L013159 PHA
|
|
JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L0131CF
|
|
PLA
|
|
LDX #$0000
|
|
JSL L017D37
|
|
JSL L018752
|
|
CLC
|
|
RTS
|
|
|
|
L013172 PHA
|
|
PHA
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_GetWTitle
|
|
PEA ^L0198DF
|
|
PEA L0198DF
|
|
PEA $0000
|
|
PEA $0010
|
|
_BlockMove
|
|
RTS
|
|
|
|
L013195 DW $0000
|
|
L013197 DW $0000
|
|
L013199 DW $0000
|
|
L01319B DW $0000
|
|
L01319D DW $0000
|
|
L01319F DW $0000
|
|
L0131A1 DW $0000
|
|
L0131A3 DW $0000
|
|
L0131A5 ADRL L0198DF ; file name
|
|
DW $00C3 ; access
|
|
L0131AB DW $0000 ; file type
|
|
L0131AD ADRL $00000000 ; aux type
|
|
DW $0000 ; storage
|
|
DS 4 ; creation date
|
|
L0131B7 DW $0000 ; ref num
|
|
ADRL L0198DF ; path name
|
|
L0131BD ADRL $00000000 ; reserved
|
|
L0131C1 DW $0000 ; ref num
|
|
L0131C3 ADRL $00000000 ; buffer ptr
|
|
L0131C7 ADRL $00007D00 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L0131CF DW $0000 ; ref num
|
|
L0131D1 DW $0000 ; ref num
|
|
L0131D3 ADRL $00000000 ; position
|
|
L0131D7 ADRL L0198DF ; file name
|
|
L0131DB DW $0000 ; access
|
|
L0131DD DW $0000 ; file type
|
|
L0131DF ADRL $00000000 ; aux type
|
|
DS 2 ; (null field)
|
|
DS 4 ; creation date
|
|
DS 4 ; modification date
|
|
ADRL $00000000 ; blocks used
|
|
|
|
L0131F1 JSL L018744
|
|
JSL L018752
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_HLock
|
|
LDY #$0000
|
|
LDA [$F4],Y
|
|
STA $0A
|
|
INY
|
|
INY
|
|
LDA [$F4],Y
|
|
STA $0C
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
PHA
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_HUnlock
|
|
PLA
|
|
STA L01341D
|
|
CMP #$0001
|
|
BEQ L013232
|
|
BRL L0132B2
|
|
L013232 PHA
|
|
PHA
|
|
_MaxBlock
|
|
PLA
|
|
PLA
|
|
CMP #$0001
|
|
BCS L0132B2
|
|
PHA
|
|
PEA ^L01341F
|
|
PEA L01341F
|
|
PEA $0000
|
|
PEA $0000
|
|
_Alert
|
|
JSL L010D82
|
|
PLA
|
|
CMP #$0003
|
|
BNE L013261
|
|
RTS
|
|
|
|
L013261 STA L01341B
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_PrDefault
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_HLock
|
|
LDA [$F4]
|
|
STA $0A
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
STA $0C
|
|
LDY #$0056
|
|
LDA #$0000
|
|
STA [$0A],Y
|
|
LDA L01341B
|
|
CMP #$0001
|
|
BNE L0132A3
|
|
LDY #$0018
|
|
LDA [$0A],Y
|
|
ORA #$0020
|
|
STA [$0A],Y
|
|
L0132A3 LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_HUnlock
|
|
BRA L0132C8
|
|
L0132B2 PHA
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_PrJobDialog
|
|
JSL L010D82
|
|
PLA
|
|
BNE L0132C8
|
|
RTS
|
|
|
|
L0132C8 LDA L01341D
|
|
CMP #$0001
|
|
BNE L013310
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_HLock
|
|
LDY #$0000
|
|
LDA [$F4],Y
|
|
STA $0A
|
|
INY
|
|
INY
|
|
LDA [$F4],Y
|
|
STA $0C
|
|
LDY #$0018
|
|
LDA [$0A],Y
|
|
AND #$FFBE
|
|
STA [$0A],Y
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_HUnlock
|
|
PHA
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_PrValidate
|
|
PLA
|
|
L013310 PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
PHA
|
|
PHA
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_PrOpenDoc
|
|
CMP #$0000
|
|
BEQ L013345
|
|
PLA
|
|
PLA
|
|
LDA #$0002
|
|
LDX #$0001
|
|
JSL L017D37
|
|
BRL L0133AD
|
|
L013345 LDA $01,S
|
|
STA L0133C5
|
|
LDA $03,S
|
|
STA L0133C7
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_PrOpenPage
|
|
PEA ^L019825
|
|
PEA L019825
|
|
PEA ^L01997C
|
|
PEA L01997C
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
PEA $0000
|
|
_PPToPort
|
|
LDA L0133C7
|
|
PHA
|
|
LDA L0133C5
|
|
PHA
|
|
_PrClosePage
|
|
LDA L0133C7
|
|
PHA
|
|
LDA L0133C5
|
|
PHA
|
|
_PrCloseDoc
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_PrPicFile
|
|
L0133AD PHA
|
|
PEA $000A
|
|
PEA $0000
|
|
_FlushEvents
|
|
PLA
|
|
JSL L010D82
|
|
JSL L018752
|
|
RTS
|
|
|
|
L0133C5 DW $0000
|
|
L0133C7 DW $0000
|
|
|
|
L0133C9 JSL L018744
|
|
PHA
|
|
PHA
|
|
_MaxBlock
|
|
PLA
|
|
PLA
|
|
CMP #$0001
|
|
BCS L0133E8
|
|
LDX #$0002
|
|
LDA #$0201
|
|
JSL L017D37
|
|
RTS
|
|
|
|
L0133E8 PHA
|
|
_PrChoosePrinter
|
|
PLA
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_PrDefault
|
|
JSL L010D82
|
|
RTS
|
|
|
|
L013403 JSL L018744
|
|
PHA
|
|
LDA $F6
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
_PrStlDialog
|
|
PLA
|
|
JSL L010D82
|
|
RTS
|
|
|
|
L01341B DW $0000
|
|
L01341D DW $0000
|
|
L01341F DW $0028 ; Alert rect
|
|
DW $003C
|
|
DW $006E
|
|
DW $012C
|
|
DW $0001 ; Alert ID
|
|
HEX 80 ; First stage byte
|
|
HEX 80 ; Second stage byte
|
|
HEX 80 ; Third stage byte
|
|
HEX 80 ; fourth stage byte
|
|
ADRL L013441 ; Ptr to item template
|
|
ADRL L013459 ; Ptr to item template
|
|
ADRL L013471 ; Ptr to item template
|
|
ADRL L013489 ; Ptr to item template
|
|
ADRL $00000000
|
|
L013441 DW $0001 ; Item ID
|
|
DW $002E ; Item rect
|
|
DW $0007
|
|
DW $003C
|
|
DW $004D
|
|
DW $000A ; Std button
|
|
ADRL L01047A ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013459 DW $0002 ; Item ID
|
|
DW $002E ; Item rect
|
|
DW $0055
|
|
DW $003C
|
|
DW $009B
|
|
DW $000A ; Std button
|
|
ADRL L01047E ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013471 DW $0003 ; Item ID
|
|
DW $002E ; Item rect
|
|
DW $00A3
|
|
DW $003C
|
|
DW $00E9
|
|
DW $000A ; Std button
|
|
ADRL L010472 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013489 DW $0004 ; Item ID
|
|
DW $0014 ; Item rect
|
|
DW $0005
|
|
DW $0022
|
|
DW $00FA
|
|
DW $800F ; Static text
|
|
ADRL L0105C5 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L0134A1 RTS
|
|
L0134A2 RTS
|
|
|
|
L0134A3 SEP #$30
|
|
LDX L0106D3
|
|
L0134A8 LDA L0106D3,X
|
|
STA L0135ED,X
|
|
DEX
|
|
BPL L0134A8
|
|
BRA L0134CC
|
|
L0134B3 SEP #$30
|
|
LDY L0135ED
|
|
LDA L0135ED,Y
|
|
INC
|
|
STA L0135ED,Y
|
|
CMP #$3A
|
|
BNE L0134CC
|
|
LDA #$30
|
|
STA L0135ED,Y
|
|
REP #$30
|
|
BRA L0134E0
|
|
L0134CC REP #$30
|
|
JSL GSOS
|
|
DW $0001 ; Create
|
|
ADRL L01360C
|
|
BCC L0134E0
|
|
CMP #$0047
|
|
BEQ L0134B3
|
|
RTS
|
|
|
|
L0134E0 STZ L013622
|
|
STZ L013622+2
|
|
JSL GSOS
|
|
DW $0010 ; Open
|
|
ADRL L01361C
|
|
BCC L0134F5
|
|
BRL L013513
|
|
L0134F5 _HideCursor
|
|
LDA L01361C
|
|
STA L013626
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L013626
|
|
_ShowCursor
|
|
L013513 JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L013634
|
|
RTS
|
|
|
|
L01351E ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA L0196C9
|
|
AND #$0100
|
|
BNE L01352C
|
|
PLB
|
|
CLC
|
|
RTL
|
|
|
|
L01352C PHA
|
|
PEA $002A
|
|
_ReadBParam
|
|
PLA
|
|
CMP #$0008
|
|
BCC L013540
|
|
LDA #$0000
|
|
L013540 ASL
|
|
ASL
|
|
TAX
|
|
LDA L01356D,X
|
|
STA $0A
|
|
LDA L01356D+2,X
|
|
STA $0C
|
|
LDY #$0008
|
|
L013550 LDA [$0A],Y
|
|
CMP L0196BD
|
|
BEQ L013560
|
|
DEY
|
|
DEY
|
|
DEY
|
|
DEY
|
|
BPL L013550
|
|
PLB
|
|
CLC
|
|
RTL
|
|
|
|
L013560 INY
|
|
INY
|
|
LDA [$0A],Y
|
|
STA L013567+1
|
|
L013567 JSR $1000
|
|
PLB
|
|
SEC
|
|
RTL
|
|
|
|
L01356D ADRL L01358D
|
|
ADRL L013599
|
|
ADRL L0135A5
|
|
ADRL L0135B1
|
|
ADRL L0135BD
|
|
ADRL L0135C9
|
|
ADRL L0135D5
|
|
ADRL L0135E1
|
|
L01358D DA $0033 ; DW EVERY 2
|
|
DA L0134A3
|
|
DA $0024
|
|
DA L0134A1
|
|
DA $0034
|
|
DA L0134A2
|
|
L013599 DA $0033
|
|
DA L0134A3
|
|
DA $0024
|
|
DA L0134A1
|
|
DA $0034
|
|
DA L0134A2
|
|
L0135A5 DA $0033
|
|
DA L0134A3
|
|
DA $0027
|
|
DA L0134A1
|
|
DA $0034
|
|
DA L0134A2
|
|
L0135B1 DA $0033
|
|
DA L0134A3
|
|
DA $0024
|
|
DA L0134A1
|
|
DA $0034
|
|
DA L0134A2
|
|
L0135BD DA $0033
|
|
DA L0134A3
|
|
DA $0024
|
|
DA L0134A1
|
|
DA $0034
|
|
DA L0134A2
|
|
L0135C9 DA $0033
|
|
DA L0134A3
|
|
DA $0024
|
|
DA L0134A1
|
|
DA $0034
|
|
DA L0134A2
|
|
L0135D5 DA $0033
|
|
DA L0134A3
|
|
DA $0024
|
|
DA L0134A1
|
|
DA $0034
|
|
DA L0134A2
|
|
L0135E1 DA $0033
|
|
DA L0134A3
|
|
DA $0024
|
|
DA L0134A1
|
|
DA $0034
|
|
DA L0134A2
|
|
L0135ED DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L01360C ADRL L0135ED ; file name
|
|
DW $00C3 ; access
|
|
DW $00C1 ; file type
|
|
ADRL $00000000 ; aux type
|
|
DW $0000 ; storage
|
|
DS 2 ; creation date
|
|
L01361C DW $0000 ; ref num
|
|
ADRL L0135ED ; path name
|
|
L013622 ADRL $00000000 ; reserved
|
|
L013626 DW $0000 ; ref num
|
|
ADRL $00E12000 ; buffer ptr
|
|
ADRL $00008000 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L013634 DW $0000 ; ref num
|
|
L013636 LDA L0199AC
|
|
STA $0A
|
|
LDA L0199AE
|
|
STA $0C
|
|
LDA L019984
|
|
STA $0E
|
|
LDA L019986
|
|
STA $10
|
|
LDY #$459C
|
|
LDA #$FFFF
|
|
L013650 STA [$0A],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L013650
|
|
LDA L019998
|
|
STA $0A
|
|
LDA L01999A
|
|
STA $0C
|
|
LDA L0199AC
|
|
STA $0E
|
|
LDA L0199AE
|
|
STA $10
|
|
LDY #$459C
|
|
L01366F LDA [$0A],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L01366F
|
|
LDA $66
|
|
STA L013938
|
|
LDA $68
|
|
STA L01393A
|
|
LDA $6A
|
|
STA L01393C
|
|
LDA $6C
|
|
STA L01393E
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
STA L013940
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
STA L013942
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
LSR
|
|
CLC
|
|
ADC $66
|
|
STA L01394C
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
LSR
|
|
CLC
|
|
ADC $68
|
|
STA L01394E
|
|
SEC
|
|
LDA $6C
|
|
SBC L01394E
|
|
PHA
|
|
SEC
|
|
LDA L01394C
|
|
SBC $01,S
|
|
STA $01,S
|
|
SEC
|
|
LDA $66
|
|
SBC L01394C
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
SEC
|
|
LDA L01394E
|
|
SBC $01,S
|
|
STA $68
|
|
PLA
|
|
PLA
|
|
STA $66
|
|
LDA #$0085
|
|
CMP L013942
|
|
BCS L0136E4
|
|
STA L013942
|
|
L0136E4 LDA #$010C
|
|
CMP L013940
|
|
BCS L0136EF
|
|
STA L013940
|
|
L0136EF CLC
|
|
LDA $66
|
|
ADC L013942
|
|
STA $6A
|
|
CLC
|
|
LDA $68
|
|
ADC L013940
|
|
STA $6C
|
|
LDA $66
|
|
SEC
|
|
SBC $56
|
|
BVS L013709
|
|
EOR #$8000
|
|
L013709 BMI L013715
|
|
LDA $56
|
|
STA $66
|
|
CLC
|
|
ADC L013942
|
|
STA $6A
|
|
L013715 LDA $68
|
|
SEC
|
|
SBC $58
|
|
BVS L01371F
|
|
EOR #$8000
|
|
L01371F BMI L01372B
|
|
LDA $58
|
|
STA $68
|
|
CLC
|
|
ADC L013940
|
|
STA $6C
|
|
L01372B LDA $6A
|
|
SEC
|
|
SBC $5A
|
|
BEQ L013743
|
|
BVS L013737
|
|
EOR #$8000
|
|
L013737 BPL L013743
|
|
LDA $5A
|
|
STA $6A
|
|
SEC
|
|
SBC L013942
|
|
STA $66
|
|
L013743 LDA $6C
|
|
SEC
|
|
SBC $5C
|
|
BEQ L01375B
|
|
BVS L01374F
|
|
EOR #$8000
|
|
L01374F BPL L01375B
|
|
LDA $5C
|
|
STA $6C
|
|
SEC
|
|
SBC L013940
|
|
STA $68
|
|
L01375B DEC L013940
|
|
DEC L013942
|
|
LDY L013940
|
|
L013764 LDX L013942
|
|
L013767 PHY
|
|
PHX
|
|
JSR L0138CC
|
|
LDA $03,S
|
|
TAX
|
|
SEC
|
|
LDA L013942
|
|
SBC $01,S
|
|
TAY
|
|
JSR L0138F7
|
|
PLX
|
|
PLY
|
|
DEX
|
|
BPL L013767
|
|
DEY
|
|
BPL L013764
|
|
JSR L013896
|
|
JSR L013C57
|
|
JSR L011953
|
|
LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
JSR L014117
|
|
JSR L013C4D
|
|
LDA #$0009
|
|
STA $46
|
|
LDA $66
|
|
STA L019761
|
|
LDA $68
|
|
STA L019763
|
|
LDA $6A
|
|
STA L019765
|
|
LDA $6C
|
|
STA L019767
|
|
RTS
|
|
|
|
L0137B7 LDA L0199AC
|
|
STA $0A
|
|
LDA L0199AE
|
|
STA $0C
|
|
LDA L019998
|
|
STA $0E
|
|
LDA L01999A
|
|
STA $10
|
|
LDY #$459C
|
|
L0137CE LDA [$0E],Y
|
|
PHA
|
|
LDA [$0A],Y
|
|
STA [$0E],Y
|
|
PLA
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L0137CE
|
|
LDA L013938
|
|
STA L013944
|
|
LDA L01393A
|
|
STA L013946
|
|
LDA L01393C
|
|
STA L013948
|
|
LDA L01393E
|
|
STA L01394A
|
|
LDA $66
|
|
STA L013938
|
|
LDA $68
|
|
STA L01393A
|
|
LDA $6A
|
|
STA L01393C
|
|
LDA $6C
|
|
STA L01393E
|
|
LDA L013944
|
|
STA $66
|
|
LDA L013946
|
|
STA $68
|
|
LDA L013948
|
|
STA $6A
|
|
LDA L01394A
|
|
STA $6C
|
|
JSR L013C57
|
|
JSR L011953
|
|
LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
JSR L013C4D
|
|
RTS
|
|
|
|
L013833 LDA L019998
|
|
STA $0A
|
|
LDA L01999A
|
|
STA $0C
|
|
LDA L019984
|
|
STA $0E
|
|
LDA L019986
|
|
STA $10
|
|
LDY #$459C
|
|
LDA #$FFFF
|
|
L01384D STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L01384D
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
DEC
|
|
STA L013942
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
DEC
|
|
TAY
|
|
L013863 LDX L013942
|
|
L013866 PHY
|
|
PHX
|
|
JSR L0138CC
|
|
LDA $03,S
|
|
TAY
|
|
SEC
|
|
LDA L013942
|
|
SBC $01,S
|
|
TAX
|
|
JSR L0138F7
|
|
PLX
|
|
PLY
|
|
DEX
|
|
BPL L013866
|
|
DEY
|
|
BPL L013863
|
|
JSR L013896
|
|
LDA #$0007
|
|
STA $46
|
|
LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
RTS
|
|
|
|
L013896 LDA L019984
|
|
STA $0A
|
|
LDA L019986
|
|
STA $0C
|
|
LDA L019998
|
|
STA $0E
|
|
LDA L01999A
|
|
STA $10
|
|
LDY #$459C
|
|
L0138AD LDA [$0A],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L0138AD
|
|
LDA L019984
|
|
STA $0A
|
|
LDA L019986
|
|
STA $0C
|
|
LDY #$459C
|
|
LDA #$0000
|
|
L0138C5 STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L0138C5
|
|
RTS
|
|
|
|
L0138CC TYA
|
|
JSR L018607
|
|
CLC
|
|
ADC L019998
|
|
STA $0A
|
|
LDA L01999A
|
|
STA $0C
|
|
TXA
|
|
LSR
|
|
TAY
|
|
LDA [$0A],Y
|
|
XBA
|
|
PHA
|
|
TXA
|
|
LSR
|
|
PLA
|
|
BCS L0138EC
|
|
AND #$F000
|
|
BRA L0138F3
|
|
L0138EC AND #$0F00
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
L0138F3 STA L013936
|
|
RTS
|
|
|
|
L0138F7 TYA
|
|
JSR L018607
|
|
CLC
|
|
ADC L019984
|
|
STA $0A
|
|
LDA L019986
|
|
STA $0C
|
|
TXA
|
|
LSR
|
|
TAY
|
|
LDA [$0A],Y
|
|
XBA
|
|
STA L013934
|
|
PHY
|
|
TXA
|
|
LSR
|
|
BCS L01391F
|
|
LDA #$F000
|
|
TRB L013934
|
|
LDA L013936
|
|
BRA L01392C
|
|
L01391F LDA #$0F00
|
|
TRB L013934
|
|
LDA L013936
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
L01392C ORA L013934
|
|
PLY
|
|
XBA
|
|
STA [$0A],Y
|
|
RTS
|
|
|
|
L013934 DW $0000
|
|
L013936 DW $0000
|
|
L013938 DW $0000
|
|
L01393A DW $0000
|
|
L01393C DW $0000
|
|
L01393E DW $0000
|
|
L013940 DW $0000
|
|
L013942 DW $0000
|
|
L013944 DW $0000
|
|
L013946 DW $0000
|
|
L013948 DW $0000
|
|
L01394A DW $0000
|
|
L01394C DW $0000
|
|
L01394E DW $0000
|
|
L013950 LDA L0196C5
|
|
STA L0139E2
|
|
LDA L0196C7
|
|
STA L0139E4
|
|
PEA ^L0139E2
|
|
PEA L0139E2
|
|
_GlobalToLocal
|
|
LDA L0139E2
|
|
STA L0139DE
|
|
LDA L0139E4
|
|
STA L0139E0
|
|
RTS
|
|
|
|
L013976 JSR L0139CE
|
|
SEC
|
|
LDA L0196C7
|
|
SBC #$002E
|
|
CLC
|
|
ADC $58
|
|
CLC
|
|
ADC #$0004
|
|
AND #$FFF8
|
|
SEC
|
|
SBC $58
|
|
CLC
|
|
ADC #$002E
|
|
STA L0196C7
|
|
SEC
|
|
LDA L0196C5
|
|
SBC #$001C
|
|
CLC
|
|
ADC $56
|
|
CLC
|
|
ADC #$0004
|
|
AND #$FFF8
|
|
SEC
|
|
SBC $56
|
|
CLC
|
|
ADC #$001C
|
|
STA L0196C5
|
|
RTS
|
|
|
|
L0139B0 JSR L0139CE
|
|
CLC
|
|
LDA L0196C7
|
|
ADC #$0004
|
|
AND #$FFF8
|
|
STA L0196C7
|
|
CLC
|
|
LDA L0196C5
|
|
ADC #$0004
|
|
AND #$FFF8
|
|
STA L0196C5
|
|
RTS
|
|
|
|
L0139CE LDA $4A
|
|
BNE L0139D4
|
|
PLA
|
|
RTS
|
|
|
|
L0139D4 LDA $76
|
|
DEC
|
|
ASL
|
|
TAX
|
|
JMP (L0139E6,X)
|
|
|
|
L0139DC PLA
|
|
L0139DD RTS
|
|
|
|
L0139DE DW $0000
|
|
L0139E0 DW $0000
|
|
L0139E2 DW $0000
|
|
L0139E4 DW $0000
|
|
L0139E6 DA L0139DD
|
|
DA L0139DC
|
|
DA L0139DC
|
|
DA L0139DC
|
|
DA L0139DD
|
|
DA L0139DD
|
|
DA L0139DD
|
|
DA L0139DD
|
|
DA L0139DC
|
|
DA L0139DD
|
|
DA L0139DD
|
|
DA L0139DD
|
|
DA L0139DC
|
|
DA L0139DC
|
|
DA L0139DC
|
|
DA L0139DD
|
|
DA L0139DD
|
|
DA L0139DD
|
|
DA L0139DC
|
|
DA L0139DD
|
|
L013A0E STZ L019741
|
|
LDA $36
|
|
CMP #$0002
|
|
BNE L013A3D
|
|
PEA $0114
|
|
SEC
|
|
LDA $5A
|
|
SBC $56
|
|
STA L013B91
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
CMP L013B91
|
|
BCS L013A36
|
|
_EnableMItem
|
|
BRA L013A3D
|
|
L013A36 _DisableMItem
|
|
L013A3D PEA ^L0196BB
|
|
PEA L0196BB
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_MenuSelect
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA L0196CB
|
|
BNE L013A62
|
|
RTS
|
|
|
|
L013A62 LDA L0196CB
|
|
CMP #$0100
|
|
BCS L013A6E
|
|
JSR L011AF0
|
|
RTS
|
|
|
|
L013A6E AND #$00FF
|
|
ASL
|
|
TAX
|
|
JSR (L013A85,X)
|
|
PEA $0000
|
|
LDA L0196CD
|
|
PHA
|
|
_HiliteMenu
|
|
RTS
|
|
|
|
L013A85 DA L011A2C
|
|
DA L0122A8
|
|
DA L013D25
|
|
DA L012427
|
|
DA L013DC6
|
|
DA L012A6F
|
|
DA L012A83
|
|
DA L013C61
|
|
DA L0133C9
|
|
DA L013403
|
|
DA L0131F1
|
|
DA L013DC6
|
|
DA L013B66
|
|
DA L013B66
|
|
DA L013B66
|
|
DA L013B66
|
|
DA L013B66
|
|
DA L018922
|
|
DA L013833
|
|
DA L01898C
|
|
DA L013636
|
|
DA L013B17
|
|
DA L013F7B
|
|
DA L013B11
|
|
DA L013B0B
|
|
DA L013AD7
|
|
DA L013ADD
|
|
DA L013AEF
|
|
DA L013AE9
|
|
DA L013AE9
|
|
DA L013B05
|
|
DA L010909
|
|
DA L013AD1
|
|
DA L013AE3
|
|
DA L011B55
|
|
DA L013B2A
|
|
DA L013B2A
|
|
DA L013B2A
|
|
L013AD1 LDA #$0003
|
|
JMP L01080A
|
|
|
|
L013AD7 LDA #$0004
|
|
JMP L01080A
|
|
|
|
L013ADD LDA #$0005
|
|
JMP L01080A
|
|
|
|
L013AE3 LDA #$0007
|
|
JMP L01080A
|
|
|
|
L013AE9 LDA #$0008
|
|
JMP L01080A
|
|
|
|
L013AEF LDA #$0006
|
|
JSR L01080A
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
JMP L014897
|
|
|
|
L013B05 LDA #$0009
|
|
JMP L01080A
|
|
|
|
L013B0B LDA #$000A
|
|
JMP L01080A
|
|
|
|
L013B11 LDA #$000C
|
|
JMP L01080A
|
|
|
|
L013B17 LDA $4A
|
|
EOR #$FFFF
|
|
STA $4A
|
|
PHA
|
|
PEA $0115
|
|
_CheckMItem
|
|
RTS
|
|
|
|
L013B2A SEC
|
|
LDA L0196CB
|
|
SBC #$0123
|
|
CMP $7C
|
|
BNE L013B36
|
|
RTS
|
|
|
|
L013B36 PEA $0000
|
|
CLC
|
|
LDA $7C
|
|
ADC #$0123
|
|
PHA
|
|
_CheckMItem
|
|
SEC
|
|
LDA L0196CB
|
|
SBC #$0123
|
|
STA $7C
|
|
LDA $48
|
|
BEQ L013B57
|
|
JSR L015CB0
|
|
L013B57 PEA $0001
|
|
LDA L0196CB
|
|
PHA
|
|
_CheckMItem
|
|
RTS
|
|
|
|
L013B66 PHA
|
|
SEC
|
|
LDA L0196CB
|
|
SBC #$010C
|
|
INC
|
|
PHA
|
|
_SystemEdit
|
|
PLA
|
|
BEQ L013B7B
|
|
RTS
|
|
|
|
L013B7B SEC
|
|
LDA L0196CB
|
|
SBC #$010C
|
|
ASL
|
|
TAX
|
|
JMP (L013B87,X)
|
|
|
|
L013B87 DA L013B93
|
|
DA L01439B
|
|
DA L01439B
|
|
DA L014480
|
|
DA L0143F4
|
|
L013B91 DW $0000
|
|
L013B93 LDA $36
|
|
BEQ L013B9B
|
|
BMI L013BF1
|
|
BRA L013BA6
|
|
L013B9B LDA $48
|
|
BEQ L013BA2
|
|
JSR L015981
|
|
L013BA2 JMPL L011995
|
|
|
|
L013BA6 LDA $46
|
|
CMP #$0001
|
|
BNE L013BB1
|
|
JMPL L013C12
|
|
|
|
L013BB1 CMP #$0004
|
|
BNE L013BBA
|
|
JMPL L018922
|
|
|
|
L013BBA CMP #$0007
|
|
BNE L013BC3
|
|
JMPL L013833
|
|
|
|
L013BC3 CMP #$0008
|
|
BNE L013BCC
|
|
JMPL L01898C
|
|
|
|
L013BCC CMP #$0009
|
|
BNE L013BD5
|
|
JMPL L0137B7
|
|
|
|
L013BD5 CMP #$000B
|
|
BNE L013BDE
|
|
JMPL L017BBA
|
|
|
|
L013BDE JSR L013C57
|
|
LDA $46
|
|
CMP #$0002
|
|
BEQ L013BED
|
|
CMP #$0003
|
|
BNE L013BF0
|
|
L013BED JSR L011953
|
|
L013BF0 RTS
|
|
|
|
L013BF1 LDA $46
|
|
CMP #$0002
|
|
BNE L013C01
|
|
JMPL L014480
|
|
|
|
CMP #$0003
|
|
BEQ L013C0E
|
|
L013C01 LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
L013C0E JMPL L013C4D
|
|
|
|
L013C12 LDA L019769
|
|
STA L0196C5
|
|
LDA L01976B
|
|
STA L0196C7
|
|
LDA $66
|
|
STA L019769
|
|
LDA $68
|
|
STA L01976B
|
|
LDA $6A
|
|
STA L01976D
|
|
LDA $6C
|
|
STA L01976F
|
|
JSR L01618F
|
|
RTS
|
|
|
|
L013C36 LDA $3E
|
|
BNE L013C4C
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
JSR L013C57
|
|
STZ $36
|
|
L013C4C RTS
|
|
|
|
L013C4D LDA #$0001
|
|
JSR L018A48
|
|
JSR L018E07
|
|
RTS
|
|
|
|
L013C57 JSR L018E21
|
|
LDA #$0000
|
|
JSR L018A48
|
|
RTS
|
|
|
|
L013C61 JSL L018744
|
|
LDA L01050F
|
|
STA L01971F
|
|
LDA L010511
|
|
STA L019721
|
|
LDA L010513
|
|
STA L019723
|
|
LDA L010515
|
|
STA L019725
|
|
LDA #L010517
|
|
STA L019729
|
|
LDA #^L010517
|
|
STA L019729+2
|
|
PHA
|
|
PEA ^L0196CF
|
|
PEA L0196CF
|
|
PEA $0000
|
|
PEA $0000
|
|
_Alert
|
|
JSL L010D82
|
|
PLA
|
|
CMP #$0001
|
|
BEQ L013CAA
|
|
BRL L013D1E
|
|
L013CAA LDA $40
|
|
BNE L013CB1
|
|
BRL L013D1E
|
|
L013CB1 PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
LDA $34
|
|
BEQ L013CC5
|
|
JSR L013F7B
|
|
L013CC5 LDA L019687
|
|
ASL
|
|
TAX
|
|
JSR (L013D1F,X)
|
|
STZ $3C
|
|
STZ $56
|
|
STZ $58
|
|
LDA #$0085
|
|
STA L0199C0
|
|
STA $5A
|
|
LDA #$0084
|
|
STA L0199C2
|
|
LDA #$010C
|
|
STA $5C
|
|
LDA #$0086
|
|
STA L019683
|
|
LDA #$0042
|
|
STA L019681
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_SetOrigin
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0056
|
|
PHA
|
|
_ClipRect
|
|
JSR L011953
|
|
L013D1E RTS
|
|
|
|
L013D1F DA L0124E0 ; 0
|
|
DA L012836 ; 1
|
|
DA L01274A ; 2
|
|
|
|
L013D25 LDA $3E
|
|
BNE L013D37
|
|
LDA #$0104
|
|
STA L0196CB
|
|
JSR L013DC6
|
|
LDA $3E
|
|
BNE L013D37
|
|
RTS
|
|
|
|
L013D37 PEA ^L010676
|
|
PEA L010676
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetWTitle
|
|
STZ L0198DF
|
|
L013D4D LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_ShowWindow
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SelectWindow
|
|
STZ $3E
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
PEA $0000
|
|
PEA $0000
|
|
_SetOrigin
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0056
|
|
PHA
|
|
_ClipRect
|
|
PEA ^L019825
|
|
PEA L019825
|
|
_SetPort
|
|
PEA ^L01997C
|
|
PEA L01997C
|
|
LDX $74
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_FillRect
|
|
JSR L011953
|
|
JSR L0118CC
|
|
LDA #$0005
|
|
JSR L0190DA
|
|
JSL L010D82
|
|
RTS
|
|
|
|
L013DC6 JSL L018744
|
|
LDA $3C
|
|
BEQ L013DE9
|
|
JSR L013E81
|
|
LDA L013F79
|
|
CMP #$0001
|
|
BNE L013DDF
|
|
JSR L012A73
|
|
BCS L013DE9
|
|
RTS
|
|
|
|
L013DDF CMP #$0002
|
|
BEQ L013DE9
|
|
JSL L010D82
|
|
RTS
|
|
|
|
L013DE9 LDA L0196CB
|
|
CMP #$010B
|
|
BNE L013DF8
|
|
LDA #$0001
|
|
STA L019747
|
|
RTS
|
|
|
|
L013DF8 LDA $34
|
|
BEQ L013DFF
|
|
JSR L013F7B
|
|
L013DFF LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_HideWindow
|
|
JSL L018752
|
|
STZ $40
|
|
STZ $3C
|
|
LDA #$0001
|
|
STA $3E
|
|
LDA #$0001
|
|
STA L019687
|
|
STZ $56
|
|
STZ $58
|
|
LDA #$0085
|
|
STA L0199C0
|
|
STA $5A
|
|
LDA #$0084
|
|
STA L0199C2
|
|
LDA #$010C
|
|
STA $5C
|
|
LDA #$0086
|
|
STA L019683
|
|
LDA #$0042
|
|
STA L019681
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_SetOrigin
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0056
|
|
PHA
|
|
_ClipRect
|
|
LDA #$0006
|
|
JSR L0190DA
|
|
LDA L019EE0+2
|
|
PHA
|
|
LDA L019EE0
|
|
PHA
|
|
_SetCursor
|
|
RTS
|
|
|
|
L013E81 PHA
|
|
PHA
|
|
_GetCursorAdr
|
|
LDA L019EE0+2
|
|
PHA
|
|
LDA L019EE0
|
|
PHA
|
|
_SetCursor
|
|
LDA L0104CD
|
|
STA L013F63
|
|
LDA L0104CF
|
|
STA L013F65
|
|
LDA L0104D1
|
|
STA L013F67
|
|
LDA L0104D3
|
|
STA L013F69
|
|
LDA L0196CB
|
|
CMP #$0104
|
|
BEQ L013EC1
|
|
PEA ^L0104C5
|
|
PEA L0104C5
|
|
BRA L013EC7
|
|
L013EC1 PEA ^L010497
|
|
PEA L010497
|
|
L013EC7 LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
_ParamText
|
|
PHA
|
|
PEA ^L013EF7
|
|
PEA L013EF7
|
|
PEA $0000
|
|
PEA $0000
|
|
_Alert
|
|
PLA
|
|
STA L013F79
|
|
_SetCursor
|
|
RTS
|
|
|
|
L013EF7 DW $0028 ; Alert rect
|
|
DW $003C
|
|
DW $006E
|
|
DW $012C
|
|
DW $0001 ; Alert ID
|
|
HEX 80 ; First stage byte
|
|
HEX 80 ; Second stage byte
|
|
HEX 80 ; Third stage byte
|
|
HEX 80 ; fourth stage byte
|
|
ADRL L013F19 ; Ptr to item template
|
|
ADRL L013F31 ; Ptr to item template
|
|
ADRL L013F49 ; Ptr to item template
|
|
ADRL L013F61 ; Ptr to item template
|
|
ADRL $00000000
|
|
L013F19 DW $0001 ; Item ID
|
|
DW $001E ; Item rect
|
|
DW $0014
|
|
DW $002C
|
|
DW $005A
|
|
DW $000A ; Std button
|
|
ADRL L01047A ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013F31 DW $0002 ; Item ID
|
|
DW $0032 ; Item rect
|
|
DW $0014
|
|
DW $0040
|
|
DW $005A
|
|
DW $000A ; Std button
|
|
ADRL L01047E ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013F49 DW $0003 ; Item ID
|
|
DW $0032 ; Item rect
|
|
DW $0096
|
|
DW $0040
|
|
DW $00DC
|
|
DW $000A ; Std button
|
|
ADRL L010472 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013F61 DW $0004 ; Item ID
|
|
L013F63 DW $0000 ; Item rect
|
|
L013F65 DW $0000
|
|
L013F67 DW $0000
|
|
L013F69 DW $0000
|
|
DW $800F ; Static text
|
|
ADRL L0104D5 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L013F79 DW $0000
|
|
L013F7B JSR L013C36
|
|
JSR L015981
|
|
LDA $34
|
|
BEQ L013F88
|
|
BRL L014091
|
|
L013F88 LDA $3E
|
|
BEQ L013F8D
|
|
RTS
|
|
|
|
L013F8D LDA #$0001
|
|
STA $34
|
|
PHA
|
|
PEA $0116
|
|
_CheckMItem
|
|
JSR L01192F
|
|
LDA L0196C9
|
|
AND #$0400
|
|
STA L019697
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
PEA ^L019749
|
|
PEA L019749
|
|
_GetPortRect
|
|
PEA ^L019749
|
|
PEA L019749
|
|
LDA L019697
|
|
BNE L013FDC
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
LDA #$000F
|
|
STA L014399
|
|
BRA L013FE5
|
|
L013FDC PEA ^L019A14
|
|
PEA L019A14
|
|
STZ L014399
|
|
L013FE5 _FillRect
|
|
LDA $56
|
|
STA $5E
|
|
LDA $58
|
|
STA $60
|
|
LDA $5A
|
|
STA $62
|
|
LDA $5C
|
|
STA $64
|
|
LDA #$0016
|
|
STA L0199C0
|
|
LDA #$0014
|
|
STA L0199C2
|
|
SEC
|
|
LDA L019681
|
|
SBC #$000C
|
|
STA $56
|
|
CLC
|
|
ADC #$0016
|
|
STA $5A
|
|
SEC
|
|
LDA L019683
|
|
SBC #$0016
|
|
STA $58
|
|
CLC
|
|
ADC #$002C
|
|
STA $5C
|
|
LDX #$0000
|
|
LDY #$0000
|
|
JSR L0182E5
|
|
LDA $58
|
|
PHA
|
|
LDA $56
|
|
PHA
|
|
_SetOrigin
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
PEA ^L019E8C
|
|
PEA L019E8C
|
|
_FrameRect
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
PEA $002C
|
|
PEA $0016
|
|
_SetPortSize
|
|
PEA ^L019749
|
|
PEA L019749
|
|
_GetPortRect
|
|
PEA ^L019749
|
|
PEA L019749
|
|
_ClipRect
|
|
JSR L011953
|
|
JSR L014117
|
|
RTS
|
|
|
|
L014091 STZ $34
|
|
PEA $0000
|
|
PEA $0116
|
|
_CheckMItem
|
|
JSR L01192F
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA #$0085
|
|
STA L0199C0
|
|
LDA #$0084
|
|
STA L0199C2
|
|
LDA $5E
|
|
STA $56
|
|
LDA $60
|
|
STA $58
|
|
LDA $62
|
|
STA $5A
|
|
LDA $64
|
|
STA $5C
|
|
LDA $58
|
|
PHA
|
|
LDA $56
|
|
PHA
|
|
_SetOrigin
|
|
PEA $010C
|
|
PEA $0085
|
|
_SetPortSize
|
|
PEA ^L019749
|
|
PEA L019749
|
|
_GetPortRect
|
|
PEA ^L019749
|
|
PEA L019749
|
|
_ClipRect
|
|
PEA ^L019749
|
|
PEA L019749
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_FillRect
|
|
JSR L011953
|
|
RTS
|
|
|
|
L014117 LDA $34
|
|
BNE L01411C
|
|
RTS
|
|
|
|
L01411C LDA #$0000
|
|
STA L014393
|
|
LDA #$0015
|
|
STA L014395
|
|
BRA L01413B
|
|
L01412A LDA $34
|
|
BNE L01412F
|
|
RTS
|
|
|
|
L01412F JSR L0142EC
|
|
LDA L014393
|
|
CMP #$0016
|
|
BCC L01413B
|
|
RTS
|
|
|
|
L01413B _HideCursor
|
|
LDA L014393
|
|
JSL L0182D0
|
|
STA L014375
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
PEA $03C0
|
|
LDA L014393
|
|
PHA
|
|
_Multiply
|
|
PLA
|
|
CLC
|
|
ADC #$00A1
|
|
STA L014379
|
|
PLX
|
|
CLC
|
|
ADC #$00A0
|
|
STA L01437B
|
|
CLC
|
|
ADC #$00A0
|
|
STA L01437D
|
|
CLC
|
|
ADC #$00A0
|
|
STA L01437F
|
|
CLC
|
|
ADC #$00A0
|
|
STA L014381
|
|
LDA L014395
|
|
INC
|
|
JSL L0182D0
|
|
STA L014377
|
|
L01418F LDX #$000B
|
|
L014192 LDY L014375
|
|
CPY #$0280
|
|
BCS L0141D5
|
|
CPX #$000B
|
|
BNE L0141D5
|
|
LDX #$0009
|
|
LDA L014375
|
|
CLC
|
|
ADC #$0004
|
|
STA L014375
|
|
LDA L014379
|
|
CLC
|
|
ADC #$0018
|
|
STA L014379
|
|
CLC
|
|
ADC #$00A0
|
|
STA L01437B
|
|
CLC
|
|
ADC #$00A0
|
|
STA L01437D
|
|
CLC
|
|
ADC #$00A0
|
|
STA L01437F
|
|
CLC
|
|
ADC #$00A0
|
|
STA L014381
|
|
LDY L014375
|
|
L0141D5 LDA [$06],Y
|
|
INC L014375
|
|
INC L014375
|
|
STA L014397
|
|
AND #$00F0
|
|
STA L014391
|
|
XBA
|
|
ORA L014391
|
|
STA L01438F
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
ORA L01438F
|
|
STA L014383
|
|
LDA L014397
|
|
AND #$000F
|
|
XBA
|
|
STA L01438F
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
PHA
|
|
ORA L01438F
|
|
ORA L014391
|
|
ORA L014399
|
|
STA L014385
|
|
XBA
|
|
AND #$0FFF
|
|
ORA $01,S
|
|
STA L014387
|
|
PLA
|
|
LDA L014397
|
|
AND #$F000
|
|
STA L01438F
|
|
XBA
|
|
STA L014391
|
|
ORA L01438F
|
|
STA L01438F
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
ORA L01438F
|
|
STA L014389
|
|
LDA L014397
|
|
AND #$0F00
|
|
STA L01438F
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
PHA
|
|
ORA L01438F
|
|
ORA L014391
|
|
ORA L014399
|
|
STA L01438B
|
|
XBA
|
|
AND #$0FFF
|
|
ORA $01,S
|
|
STA L01438D
|
|
PLA
|
|
PHX
|
|
LDX #$0000
|
|
L014261 LDA L014383,X
|
|
LDY L014379
|
|
STA [$06],Y
|
|
INC L014379
|
|
INC L014379
|
|
LDY L01437B
|
|
STA [$06],Y
|
|
INC L01437B
|
|
INC L01437B
|
|
LDY L01437D
|
|
STA [$06],Y
|
|
INC L01437D
|
|
INC L01437D
|
|
LDY L01437F
|
|
STA [$06],Y
|
|
INC L01437F
|
|
INC L01437F
|
|
LDY L014381
|
|
STA [$06],Y
|
|
INC L014381
|
|
INC L014381
|
|
INX
|
|
INX
|
|
CPX #$000C
|
|
BNE L014261
|
|
PLX
|
|
DEX
|
|
BEQ L0142A9
|
|
BRL L014192
|
|
L0142A9 LDA L014375
|
|
CLC
|
|
ADC #$008A
|
|
STA L014375
|
|
LDA L014379
|
|
CLC
|
|
ADC #$033C
|
|
STA L014379
|
|
CLC
|
|
ADC #$00A0
|
|
STA L01437B
|
|
CLC
|
|
ADC #$00A0
|
|
STA L01437D
|
|
CLC
|
|
ADC #$00A0
|
|
STA L01437F
|
|
CLC
|
|
ADC #$00A0
|
|
STA L014381
|
|
LDA L014375
|
|
CMP L014377
|
|
BCS L0142E4
|
|
BRL L01418F
|
|
L0142E4 _ShowCursor
|
|
RTS
|
|
|
|
L0142EC SEC
|
|
TXA
|
|
SBC $56
|
|
STA L014393
|
|
SEC
|
|
TYA
|
|
SBC $56
|
|
STA L014395
|
|
LDA L014393
|
|
SEC
|
|
SBC L014395
|
|
BVS L014306
|
|
EOR #$8000
|
|
L014306 BPL L014314
|
|
LDX L014393
|
|
LDA L014395
|
|
STA L014393
|
|
STX L014395
|
|
L014314 CLC
|
|
LDA L014395
|
|
ADC L01975F
|
|
STA L014395
|
|
LDA L014393
|
|
SEC
|
|
SBC #$0000
|
|
BVS L01432A
|
|
EOR #$8000
|
|
L01432A BMI L014331
|
|
STZ L014393
|
|
BRA L014345
|
|
L014331 LDA L014393
|
|
SEC
|
|
SBC #$0016
|
|
BVS L01433D
|
|
EOR #$8000
|
|
L01433D BPL L014345
|
|
LDA #$0015
|
|
STA L014393
|
|
L014345 LDA L014395
|
|
SEC
|
|
SBC #$0000
|
|
BVS L014351
|
|
EOR #$8000
|
|
L014351 BMI L014358
|
|
STZ L014395
|
|
BRA L01436C
|
|
L014358 LDA L014395
|
|
SEC
|
|
SBC #$0016
|
|
BVS L014364
|
|
EOR #$8000
|
|
L014364 BPL L01436C
|
|
LDA #$0015
|
|
STA L014395
|
|
L01436C RTS
|
|
|
|
L01436D ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
JSR L013F7B
|
|
PLB
|
|
RTL
|
|
|
|
L014375 DW $0000
|
|
L014377 DW $0000
|
|
L014379 DW $0000
|
|
L01437B DW $0000
|
|
L01437D DW $0000
|
|
L01437F DW $0000
|
|
L014381 DW $0000
|
|
L014383 DW $0000
|
|
L014385 DW $0000
|
|
L014387 DW $0000
|
|
L014389 DW $0000
|
|
L01438B DW $0000
|
|
L01438D DW $0000
|
|
L01438F DW $0000
|
|
L014391 DW $0000
|
|
L014393 DW $0000
|
|
L014395 DW $0000
|
|
L014397 DW $0000
|
|
L014399 DW $0000
|
|
L01439B PHA
|
|
PHA
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
STA L0147AB
|
|
DEC
|
|
LSR
|
|
AND #$FFFE
|
|
INC
|
|
INC
|
|
STA L0147AD
|
|
PHA
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
STA L0147A9
|
|
PHA
|
|
_Multiply
|
|
PLA
|
|
STA L0147A5
|
|
PLA
|
|
STA L0147A5+2
|
|
JSR L014403
|
|
BCC L0143D8
|
|
LDX #$0002
|
|
JSL L017D37
|
|
JSR L01618F
|
|
RTS
|
|
|
|
L0143D8 LDA $36
|
|
STA $D0
|
|
LDA #$0001
|
|
STA $42
|
|
PEA $010F
|
|
_EnableMItem
|
|
LDA L0196CB
|
|
CMP #$010D
|
|
BEQ L0143F4
|
|
RTS
|
|
|
|
L0143F4 LDA #$0003
|
|
STA $46
|
|
JSR L013C57
|
|
JSR L011953
|
|
JSR L014117
|
|
RTS
|
|
|
|
L014403 LDA L0147A5
|
|
CMP $D8
|
|
BNE L014411
|
|
LDA L0147A5+2
|
|
CMP $DA
|
|
BEQ L014429
|
|
L014411 LDA L0147A5+2
|
|
PHA
|
|
LDA L0147A5
|
|
PHA
|
|
LDA $CE
|
|
PHA
|
|
LDA $CC
|
|
PHA
|
|
_SetHandleSize
|
|
BCC L014429
|
|
RTS
|
|
|
|
L014429 LDA L0147A5
|
|
STA $D8
|
|
LDA L0147A5+2
|
|
STA $DA
|
|
LDA L0147AB
|
|
STA $D6
|
|
LDA L0147A9
|
|
STA $D4
|
|
LDA L0147AD
|
|
STA $D2
|
|
LDA $CE
|
|
PHA
|
|
LDA $CC
|
|
PHA
|
|
_HLock
|
|
LDA [$CC]
|
|
STA $0E
|
|
LDY #$0002
|
|
LDA [$CC],Y
|
|
STA $10
|
|
LDA L01999E
|
|
STA $0A
|
|
LDA L0199A0
|
|
STA $0C
|
|
LDA #$0086
|
|
STA L0147A1
|
|
LDA $D2
|
|
STA L0147A3
|
|
JSR L01477E
|
|
LDA $CE
|
|
PHA
|
|
LDA $CC
|
|
PHA
|
|
_HUnlock
|
|
RTS
|
|
|
|
L014480 LDA $42
|
|
BNE L014485
|
|
RTS
|
|
|
|
L014485 LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
JSR L013C36
|
|
JSR L015981
|
|
JSR L01192F
|
|
JSR L0118CC
|
|
LDA $34
|
|
BEQ L0144B3
|
|
LDA $D4
|
|
CMP #$0017
|
|
BCS L0144B0
|
|
LDA $D6
|
|
CMP #$002D
|
|
BCC L0144B3
|
|
L0144B0 JSR L013F7B
|
|
L0144B3 SEC
|
|
LDA L0199C0
|
|
SBC $D4
|
|
LSR
|
|
CLC
|
|
ADC $56
|
|
STA $66
|
|
LDA $4A
|
|
BEQ L0144C8
|
|
LDA #$0007
|
|
TRB $66
|
|
L0144C8 CLC
|
|
LDA $66
|
|
ADC $D4
|
|
STA $6A
|
|
LDA L0199C2
|
|
INC
|
|
INC
|
|
ASL
|
|
SEC
|
|
SBC $D6
|
|
LSR
|
|
CLC
|
|
ADC $58
|
|
STA $68
|
|
LDA $4A
|
|
BEQ L0144E7
|
|
LDA #$0007
|
|
TRB $68
|
|
L0144E7 CLC
|
|
LDA $68
|
|
ADC $D6
|
|
STA $6C
|
|
LDA $66
|
|
SEC
|
|
SBC $56
|
|
BVS L0144F8
|
|
EOR #$8000
|
|
L0144F8 BMI L014503
|
|
LDA $56
|
|
STA $66
|
|
CLC
|
|
ADC $D4
|
|
STA $6A
|
|
L014503 LDA $68
|
|
SEC
|
|
SBC $58
|
|
BVS L01450D
|
|
EOR #$8000
|
|
L01450D BMI L014518
|
|
LDA $58
|
|
STA $68
|
|
CLC
|
|
ADC $D6
|
|
STA $6C
|
|
L014518 LDA $6A
|
|
SEC
|
|
SBC $5A
|
|
BEQ L01452F
|
|
BVS L014524
|
|
EOR #$8000
|
|
L014524 BPL L01452F
|
|
LDA $5A
|
|
STA $6A
|
|
SEC
|
|
SBC $D4
|
|
STA $66
|
|
L01452F LDA $6C
|
|
SEC
|
|
SBC $5C
|
|
BEQ L014546
|
|
BVS L01453B
|
|
EOR #$8000
|
|
L01453B BPL L014546
|
|
LDA $5C
|
|
STA $6C
|
|
SEC
|
|
SBC $D6
|
|
STA $68
|
|
L014546 LDA $66
|
|
STA L019761
|
|
LDA $68
|
|
STA L019763
|
|
LDA $6A
|
|
STA L019765
|
|
LDA $6C
|
|
STA L019767
|
|
LDA $D0
|
|
STA $36
|
|
LDA #$0002
|
|
STA $46
|
|
LDA L019998
|
|
STA L01999E
|
|
LDA L01999A
|
|
STA L0199A0
|
|
LDA L019984
|
|
STA L01998A
|
|
LDA L019986
|
|
STA L01998C
|
|
LDA L0199AC
|
|
STA L0199B2
|
|
LDA L0199AE
|
|
STA L0199B4
|
|
LDA $CE
|
|
PHA
|
|
LDA $CC
|
|
PHA
|
|
_HLock
|
|
LDA $CC
|
|
STA $0E
|
|
LDA $CE
|
|
STA $10
|
|
LDA [$0E]
|
|
STA $0A
|
|
LDY #$0002
|
|
LDA [$0E],Y
|
|
STA $0C
|
|
LDA L019998
|
|
STA $0E
|
|
LDA L01999A
|
|
STA $10
|
|
LDA $D2
|
|
STA L0147A1
|
|
LDA #$0086
|
|
STA L0147A3
|
|
JSR L01477E
|
|
LDA $CE
|
|
PHA
|
|
LDA $CC
|
|
PHA
|
|
_HUnlock
|
|
LDA $D0
|
|
CMP #$0002
|
|
BNE L0145F8
|
|
LDA L019984
|
|
STA $12
|
|
LDA L019986
|
|
STA $14
|
|
LDA #$0000
|
|
LDY #$459C
|
|
L0145E3 STA [$12],Y
|
|
DEY
|
|
DEY
|
|
BPL L0145E3
|
|
JSR L018DDB
|
|
LDA #$0003
|
|
JSR L0190DA
|
|
LDY #$000B
|
|
BRL L01472B
|
|
L0145F8 LDA L019984
|
|
STA $12
|
|
LDA L019986
|
|
STA $14
|
|
LDA L0199AC
|
|
STA $0A
|
|
LDA L0199AE
|
|
STA $0C
|
|
LDA #$FFFF
|
|
LDY #$459C
|
|
L014612 STA [$12],Y
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L014612
|
|
LDA L019998
|
|
STA $0A
|
|
LDA L01999A
|
|
STA $0C
|
|
LDA L019984
|
|
STA $0E
|
|
LDA L019986
|
|
STA $10
|
|
LDA $74
|
|
CMP #$0001
|
|
BNE L014644
|
|
LDA #$0086
|
|
STA L0147A1
|
|
STA L0147A3
|
|
JSR L01477E
|
|
BRL L0146DE
|
|
L014644 LDA $74
|
|
DEC
|
|
EOR #$000F
|
|
STA L0147B7
|
|
XBA
|
|
STA L0147BB
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA L0147B9
|
|
XBA
|
|
STA L0147BD
|
|
LDA L0147B7
|
|
ORA L0147B9
|
|
ORA L0147BB
|
|
ORA L0147BD
|
|
STA L0147BF
|
|
LDX $D4
|
|
L01466D LDY $D6
|
|
L01466F LDA #$FFFF
|
|
STA L0147C3
|
|
LDA [$0A],Y
|
|
STA L0147C1
|
|
CMP L0147BF
|
|
BNE L014681
|
|
BRA L0146C2
|
|
L014681 AND #$000F
|
|
CMP L0147B7
|
|
BEQ L01468F
|
|
LDA #$000F
|
|
TRB L0147C3
|
|
L01468F LDA L0147C1
|
|
AND #$00F0
|
|
CMP L0147B9
|
|
BEQ L0146A0
|
|
LDA #$00F0
|
|
TRB L0147C3
|
|
L0146A0 LDA L0147C1
|
|
AND #$0F00
|
|
CMP L0147BB
|
|
BEQ L0146B1
|
|
LDA #$0F00
|
|
TRB L0147C3
|
|
L0146B1 LDA L0147C1
|
|
AND #$F000
|
|
CMP L0147BD
|
|
BEQ L0146C2
|
|
LDA #$F000
|
|
TRB L0147C3
|
|
L0146C2 LDA L0147C3
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L01466F
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
DEX
|
|
BNE L01466D
|
|
L0146DE STZ L0147AF
|
|
STZ L0147B1
|
|
LDA $D4
|
|
STA L0147B3
|
|
LDA $D6
|
|
DEC
|
|
AND #$FFFC
|
|
CLC
|
|
ADC #$0004
|
|
STA L0147B5
|
|
PEA ^L019988
|
|
PEA L019988
|
|
PEA ^L0147AF
|
|
PEA L0147AF
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
PEA $000F
|
|
JSR L016906
|
|
LDA L019986
|
|
PHA
|
|
LDA L019984
|
|
PHA
|
|
PEA ^L0147AF
|
|
PEA L0147AF
|
|
JSR L019480
|
|
JSR L018EF6
|
|
LDA #$0001
|
|
JSR L0190DA
|
|
LDY #$0001
|
|
L01472B JSR L016313
|
|
LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
RTS
|
|
|
|
L01473C LDA #$010E
|
|
STA L0196CB
|
|
JSR L01439B
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
JSR L013C57
|
|
JSR L01192F
|
|
JSR L0118CC
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
PLA
|
|
STA L0196C5
|
|
PLA
|
|
STA L0196C7
|
|
JSR L013C4D
|
|
STZ $4C
|
|
RTS
|
|
|
|
L01477E LDX $D4
|
|
L014780 LDA $D2
|
|
DEC
|
|
DEC
|
|
TAY
|
|
L014785 LDA [$0A],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L014785
|
|
CLC
|
|
LDA $0A
|
|
ADC L0147A1
|
|
STA $0A
|
|
CLC
|
|
LDA $0E
|
|
ADC L0147A3
|
|
STA $0E
|
|
DEX
|
|
BNE L014780
|
|
RTS
|
|
|
|
L0147A1 DW $0000
|
|
L0147A3 DW $0000
|
|
L0147A5 ADRL $00000000
|
|
L0147A9 DW $0000
|
|
L0147AB DW $0000
|
|
L0147AD DW $0000
|
|
L0147AF DW $0000
|
|
L0147B1 DW $0000
|
|
L0147B3 DW $0000
|
|
L0147B5 DW $0000
|
|
L0147B7 DW $0000
|
|
L0147B9 DW $0000
|
|
L0147BB DW $0000
|
|
L0147BD DW $0000
|
|
L0147BF DW $0000
|
|
L0147C1 DW $0000
|
|
L0147C3 DW $0000
|
|
L0147C5 LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
JSL L014903
|
|
BCS L0147DB
|
|
BRL L0148ED
|
|
L0147DB LDA L0196C9
|
|
AND #$0100
|
|
BEQ L01480D
|
|
STZ L019741
|
|
STX $72
|
|
JSR L01172C
|
|
JSR L011884
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA $72
|
|
DEC
|
|
EOR #$000F
|
|
PHA
|
|
_SetForeColor
|
|
JSR L015CB0
|
|
RTS
|
|
|
|
L01480D LDA L0196C9
|
|
AND #$0800
|
|
BEQ L014825
|
|
STZ L019741
|
|
CPX #$0011
|
|
BCS L014822
|
|
STX $74
|
|
JSR L011884
|
|
L014822 BRL L0148ED
|
|
L014825 STX $70
|
|
LDA L019741
|
|
BNE L01482F
|
|
BRL L0148B6
|
|
L01482F STZ L019741
|
|
LDA $70
|
|
CMP #$0011
|
|
BCS L01486A
|
|
PEA $FFFF
|
|
PEA $0005
|
|
_HiliteMenu
|
|
LDA #$0003
|
|
JSR L01080A
|
|
PEA $0000
|
|
PEA $0005
|
|
_HiliteMenu
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
JSR L0117DA
|
|
RTS
|
|
|
|
L01486A PEA $FFFF
|
|
PEA $0004
|
|
_HiliteMenu
|
|
LDA #$0006
|
|
JSR L01080A
|
|
PEA $0000
|
|
PEA $0004
|
|
_HiliteMenu
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
L014897 LDX $70
|
|
PEA ^L0148FB
|
|
PEA L0148FB
|
|
JSL L01493B
|
|
PEA ^L0148FB
|
|
PEA L0148FB
|
|
JSL L0149A7
|
|
PHX
|
|
PHA
|
|
_FillRect
|
|
L0148B6 JSR L011884
|
|
PEA $011F
|
|
LDY $70
|
|
CPY #$0011
|
|
BCS L0148CC
|
|
_EnableMItem
|
|
BRA L0148D3
|
|
L0148CC _DisableMItem
|
|
L0148D3 PEA $011B
|
|
LDY $70
|
|
CPY #$0011
|
|
BCS L0148E6
|
|
_DisableMItem
|
|
BRA L0148ED
|
|
L0148E6 _EnableMItem
|
|
L0148ED LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
RTS
|
|
|
|
L0148FB DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
L014903 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDX #$0001
|
|
L014909 PHX
|
|
PEA ^L0148FB
|
|
PEA L0148FB
|
|
JSL L01493B
|
|
PEA $0000
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L0148FB
|
|
PEA L0148FB
|
|
_PtInRect
|
|
PLA
|
|
BNE L014937
|
|
PLX
|
|
INX
|
|
CPX #$0021
|
|
BNE L014909
|
|
PLB
|
|
CLC
|
|
RTL
|
|
|
|
L014937 PLX
|
|
PLB
|
|
SEC
|
|
RTL
|
|
|
|
L01493B ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA #$0000
|
|
CPX #$0011
|
|
BCC L01494F
|
|
TXA
|
|
SEC
|
|
SBC #$0010
|
|
TAX
|
|
LDA #$000F
|
|
L01494F CLC
|
|
ADC #$00A5
|
|
STA L01499F
|
|
CLC
|
|
ADC #$000E
|
|
STA L0149A3
|
|
LDA #$003C
|
|
L014960 CLC
|
|
ADC #$000F
|
|
DEX
|
|
BNE L014960
|
|
STA L0149A1
|
|
CLC
|
|
ADC #$000E
|
|
STA L0149A5
|
|
LDA $06,S
|
|
PHA
|
|
PLB
|
|
PLB
|
|
LDY #$0000
|
|
LDAL L01499F
|
|
STA ($05,S),Y
|
|
INY
|
|
INY
|
|
LDAL L0149A1
|
|
STA ($05,S),Y
|
|
INY
|
|
INY
|
|
LDAL L0149A3
|
|
STA ($05,S),Y
|
|
INY
|
|
INY
|
|
LDAL L0149A5
|
|
STA ($05,S),Y
|
|
PLX
|
|
PLY
|
|
PLA
|
|
PLA
|
|
PHY
|
|
PHX
|
|
PLB
|
|
RTL
|
|
|
|
L01499F DW $0000
|
|
L0149A1 DW $0000
|
|
L0149A3 DW $0000
|
|
L0149A5 DW $0000
|
|
L0149A7 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDX $70
|
|
BRA L0149B1
|
|
L0149AE ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
L0149B1 TXA
|
|
DEC
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC #L019A74
|
|
PHA
|
|
LDA #^L019A74
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
PLB
|
|
RTL
|
|
|
|
L0149C7 STZ L019741
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
LDY #$0000
|
|
LDA L0196C5
|
|
L0149DD CMP L014A0E,Y
|
|
BCC L0149EB
|
|
CPY #$0006
|
|
BEQ L014A00
|
|
INY
|
|
INY
|
|
BRA L0149DD
|
|
L0149EB TYA
|
|
LSR
|
|
PHA
|
|
LDA $6E
|
|
CMP $01,S
|
|
BNE L0149F7
|
|
PLA
|
|
BRA L014A00
|
|
L0149F7 JSR L011773
|
|
PLA
|
|
STA $6E
|
|
JSR L011773
|
|
L014A00 LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
RTS
|
|
|
|
L014A0E DW $00A1
|
|
DW $00AC
|
|
DW $00B8
|
|
DW $00C4
|
|
L014A16 JSR L01192F
|
|
PHA
|
|
PHA
|
|
_NewRgn
|
|
PLA
|
|
STA L014FF5
|
|
PLA
|
|
STA L014FF7
|
|
_OpenRgn
|
|
_PenNormal
|
|
_ShowPen
|
|
LDA #$0001
|
|
STA L01975F
|
|
JSR L018126
|
|
JSL L0181CE
|
|
JSR L018168
|
|
LDX L0196C7
|
|
STX $68
|
|
STX $6C
|
|
STX L014FC1
|
|
STX L014FBD
|
|
LDA L0196C5
|
|
STA L014FBB
|
|
STA L014FBF
|
|
STA $66
|
|
STA $6A
|
|
PHA
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_MoveTo
|
|
_LineTo
|
|
PLX
|
|
TXY
|
|
JSR L01412A
|
|
L014A81 LDA #$0000
|
|
PHA
|
|
PHA
|
|
_StillDown
|
|
PLA
|
|
BNE L014A93
|
|
BRL L014AFE
|
|
L014A93 PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GetMouse
|
|
JSL L0181CE
|
|
JSR L018168
|
|
LDA L0196C7
|
|
CMP L014FBD
|
|
BNE L014AB7
|
|
LDA L0196C5
|
|
CMP L014FBB
|
|
BEQ L014A81
|
|
L014AB7 LDA L014FBB
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
STA L014FBD
|
|
LDA L0196C5
|
|
PHA
|
|
STA L014FBB
|
|
_LineTo
|
|
PLX
|
|
LDY L014FBB
|
|
JSR L01412A
|
|
LDA L014FBD
|
|
CMP $68
|
|
BCS L014AE0
|
|
STA $68
|
|
L014AE0 LDA L014FBB
|
|
CMP $66
|
|
BCS L014AE9
|
|
STA $66
|
|
L014AE9 LDA L014FBD
|
|
CMP $6C
|
|
BCC L014AF2
|
|
STA $6C
|
|
L014AF2 LDA L014FBB
|
|
CMP $6A
|
|
BCC L014AFB
|
|
STA $6A
|
|
L014AFB BRL L014A81
|
|
L014AFE LDA L014FC1
|
|
PHA
|
|
LDA L014FBF
|
|
PHA
|
|
_LineTo
|
|
_HidePen
|
|
LDA L014FF7
|
|
PHA
|
|
LDA L014FF5
|
|
PHA
|
|
_CloseRgn
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
CMP #$0002
|
|
BCS L014B3E
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
CMP #$0002
|
|
BCS L014B3E
|
|
L014B37 JSR L011953
|
|
JSR L014117
|
|
RTS
|
|
|
|
L014B3E PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
LDA $74
|
|
DEC
|
|
EOR #$000F
|
|
STA L014FCF
|
|
XBA
|
|
STA L014FD3
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA L014FD1
|
|
XBA
|
|
STA L014FD5
|
|
LDA L014FCF
|
|
ORA L014FD1
|
|
STA L014FCD
|
|
ORA L014FD3
|
|
ORA L014FD5
|
|
STA L014FCB
|
|
LDA L019998
|
|
STA $0A
|
|
LDA L01999A
|
|
STA $0C
|
|
LDY #$459C
|
|
LDA L014FCB
|
|
L014B85 STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L014B85
|
|
LDA L019984
|
|
STA $0E
|
|
LDA L019986
|
|
STA $10
|
|
LDA L0199AC
|
|
STA $12
|
|
LDA L0199AE
|
|
STA $14
|
|
LDY #$459C
|
|
LDA #$FFFF
|
|
L014BA5 STA [$0E],Y
|
|
STA [$12],Y
|
|
DEY
|
|
DEY
|
|
BPL L014BA5
|
|
LDA $66
|
|
STA L019749
|
|
LDA $68
|
|
STA L01974B
|
|
LDA $6A
|
|
STA L01974D
|
|
LDA $6C
|
|
STA L01974F
|
|
INC $6A
|
|
INC $6C
|
|
LDA L014FF7
|
|
PHA
|
|
LDA L014FF5
|
|
PHA
|
|
PEA ^L019749
|
|
PEA L019749
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
_MapRgn
|
|
LDA $A4
|
|
STA $0A
|
|
LDA $A6
|
|
STA $0C
|
|
LDA #$F0F0
|
|
JSR L014F72
|
|
LDA #$0F0F
|
|
JSR L014F72
|
|
STZ $38
|
|
STZ L014FDB
|
|
STZ L014FDD
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
STA L014FDF
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
STA L014FE1
|
|
JSR L011953
|
|
JSR L014117
|
|
PEA ^L019825
|
|
PEA L019825
|
|
_SetPort
|
|
LDA L014FF7
|
|
PHA
|
|
LDA L014FF5
|
|
PHA
|
|
LDX $74
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_FillRgn
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA L019998
|
|
STA L01999E
|
|
LDA L01999A
|
|
STA L0199A0
|
|
LDA L019984
|
|
STA L01998A
|
|
LDA L019986
|
|
STA L01998C
|
|
LDA L014FF7
|
|
PHA
|
|
LDA L014FF5
|
|
PHA
|
|
LDA $68
|
|
DEC
|
|
EOR #$FFFF
|
|
PHA
|
|
LDA $66
|
|
DEC
|
|
EOR #$FFFF
|
|
PHA
|
|
_OffsetRgn
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
STA L014FEB
|
|
LDA $90
|
|
STA L014FE3
|
|
LDA $92
|
|
STA L014FE5
|
|
_HideCursor
|
|
PEA ^L014FE3
|
|
PEA L014FE3
|
|
_PaintPixels
|
|
_ShowCursor
|
|
LDA L014FF7
|
|
PHA
|
|
LDA L014FF5
|
|
PHA
|
|
_DisposeRgn
|
|
LDA L014FE1
|
|
AND #$FFFC
|
|
LSR
|
|
DEC
|
|
DEC
|
|
STA L014FC5
|
|
LDA L019998
|
|
STA $12
|
|
LDA L01999A
|
|
STA $14
|
|
LDX #$0000
|
|
L014CD0 LDY L014FC5
|
|
L014CD3 LDA [$12],Y
|
|
CMP L014FCB
|
|
BNE L014CEF
|
|
DEY
|
|
DEY
|
|
BPL L014CD3
|
|
CLC
|
|
LDA $12
|
|
ADC #$0086
|
|
STA $12
|
|
INX
|
|
CPX L014FDF
|
|
BNE L014CD0
|
|
BRL L014F62
|
|
L014CEF STX L014FC7
|
|
PHA
|
|
PHA
|
|
PHX
|
|
LDA #$0086
|
|
PHA
|
|
_Multiply
|
|
CLC
|
|
LDA $01,S
|
|
ADC L019984
|
|
STA L01998A
|
|
LDA L019986
|
|
STA L01998C
|
|
CLC
|
|
LDA $01,S
|
|
ADC L0199AC
|
|
STA L0199B2
|
|
LDA L0199AE
|
|
STA L0199B4
|
|
PLA
|
|
CLC
|
|
ADC L019998
|
|
STA L01999E
|
|
PLA
|
|
LDA L01999A
|
|
STA L0199A0
|
|
CLC
|
|
LDA $66
|
|
ADC L014FC7
|
|
STA $66
|
|
PHA
|
|
PHA
|
|
LDA L014FDF
|
|
DEC
|
|
PHA
|
|
LDA #$0086
|
|
PHA
|
|
_Multiply
|
|
PLA
|
|
CLC
|
|
ADC L019998
|
|
STA $12
|
|
PLA
|
|
LDA L01999A
|
|
STA $14
|
|
LDX L014FDF
|
|
DEX
|
|
L014D58 LDY L014FC5
|
|
L014D5B LDA [$12],Y
|
|
CMP L014FCB
|
|
BNE L014D74
|
|
DEY
|
|
DEY
|
|
BPL L014D5B
|
|
SEC
|
|
LDA $12
|
|
SBC #$0086
|
|
STA $12
|
|
DEX
|
|
BPL L014D58
|
|
BRL L014F62
|
|
L014D74 INX
|
|
SEC
|
|
TXA
|
|
SBC L014FC7
|
|
STA L014FC3
|
|
CLC
|
|
ADC $66
|
|
STA $6A
|
|
LDA L014FE1
|
|
CMP #$010C
|
|
BNE L014D8D
|
|
BRL L014E1F
|
|
L014D8D LDY #$0000
|
|
L014D90 LDA L01999E
|
|
STA $12
|
|
LDA L0199A0
|
|
STA $14
|
|
LDX L014FC3
|
|
L014D9D LDA [$12],Y
|
|
AND #$00FF
|
|
CMP L014FCD
|
|
BNE L014DB5
|
|
CLC
|
|
LDA $12
|
|
ADC #$0086
|
|
STA $12
|
|
DEX
|
|
BPL L014D9D
|
|
INY
|
|
BRA L014D90
|
|
L014DB5 TYA
|
|
ASL
|
|
STA L014FC9
|
|
CLC
|
|
TYA
|
|
ADC L01999E
|
|
STA L01999E
|
|
CLC
|
|
TYA
|
|
ADC L01998A
|
|
STA L01998A
|
|
CLC
|
|
TYA
|
|
ADC L0199B2
|
|
STA L0199B2
|
|
CLC
|
|
LDA $68
|
|
ADC L014FC9
|
|
STA $68
|
|
STZ L014FB9
|
|
LDA L014FE1
|
|
ROR
|
|
BCC L014DE9
|
|
LDA #$0001
|
|
STA L014FB9
|
|
L014DE9 SEC
|
|
LDA L014FE1
|
|
SBC L014FC9
|
|
LSR
|
|
TAY
|
|
L014DF2 LDA L01999E
|
|
STA $12
|
|
LDA L0199A0
|
|
STA $14
|
|
LDX L014FC3
|
|
L014DFF LDA [$12],Y
|
|
AND #$00FF
|
|
CMP L014FCD
|
|
BNE L014E17
|
|
CLC
|
|
LDA $12
|
|
ADC #$0086
|
|
STA $12
|
|
DEX
|
|
BPL L014DFF
|
|
DEY
|
|
BRA L014DF2
|
|
L014E17 TYA
|
|
INC
|
|
ASL
|
|
CLC
|
|
ADC $68
|
|
STA $6C
|
|
L014E1F LDA $66
|
|
STA L019761
|
|
LDA $68
|
|
STA L019763
|
|
LDA $6A
|
|
STA L019765
|
|
LDA $6C
|
|
STA L019767
|
|
CLC
|
|
LDA $66
|
|
ADC $6A
|
|
LSR
|
|
STA L019681
|
|
CLC
|
|
LDA $68
|
|
ADC $6C
|
|
LSR
|
|
STA L019683
|
|
LDA L019998
|
|
STA $0A
|
|
LDA L01999A
|
|
STA $0C
|
|
LDA L019984
|
|
STA $0E
|
|
LDA L019986
|
|
STA $10
|
|
LDA $74
|
|
CMP #$0001
|
|
BEQ L014ED7
|
|
LDX L0199C0
|
|
L014E63 LDY L0199C2
|
|
L014E66 LDA #$FFFF
|
|
STA L014FD9
|
|
LDA [$0A],Y
|
|
STA L014FD7
|
|
CMP L014FCB
|
|
BNE L014E78
|
|
BRA L014EB9
|
|
L014E78 AND #$000F
|
|
CMP L014FCF
|
|
BEQ L014E86
|
|
LDA #$000F
|
|
TRB L014FD9
|
|
L014E86 LDA L014FD7
|
|
AND #$00F0
|
|
CMP L014FD1
|
|
BEQ L014E97
|
|
LDA #$00F0
|
|
TRB L014FD9
|
|
L014E97 LDA L014FD7
|
|
AND #$0F00
|
|
CMP L014FD3
|
|
BEQ L014EA8
|
|
LDA #$0F00
|
|
TRB L014FD9
|
|
L014EA8 LDA L014FD7
|
|
AND #$F000
|
|
CMP L014FD5
|
|
BEQ L014EB9
|
|
LDA #$F000
|
|
TRB L014FD9
|
|
L014EB9 LDA L014FD9
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L014E66
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
DEX
|
|
BNE L014E63
|
|
BRA L014EF8
|
|
L014ED7 LDX L0199C0
|
|
L014EDA LDY L0199C2
|
|
L014EDD LDA [$0A],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L014EDD
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
DEX
|
|
BNE L014EDA
|
|
L014EF8 LDA L01998C
|
|
PHA
|
|
LDA L01998A
|
|
PHA
|
|
LDA L019984
|
|
STA L01998A
|
|
LDA L019986
|
|
STA L01998C
|
|
LDA L014FE1
|
|
DEC
|
|
AND #$FFFC
|
|
CLC
|
|
ADC #$0004
|
|
STA L014FE1
|
|
PEA ^L019988
|
|
PEA L019988
|
|
PEA ^L014FDB
|
|
PEA L014FDB
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
PEA $000F
|
|
JSR L016906
|
|
PLA
|
|
STA L01998A
|
|
PLA
|
|
STA L01998C
|
|
BCC L014F3F
|
|
JMP L014B37
|
|
|
|
L014F3F LDA L019986
|
|
PHA
|
|
LDA L019984
|
|
PHA
|
|
PEA ^L014FDB
|
|
PEA L014FDB
|
|
JSR L019480
|
|
LDA #$0001
|
|
STA $36
|
|
STZ $46
|
|
STZ $44
|
|
LDA #$0001
|
|
JSR L0190DA
|
|
JSR L018EF6
|
|
L014F62 LDA L019EDC+2
|
|
PHA
|
|
LDA L019EDC
|
|
PHA
|
|
_SetCursor
|
|
RTS
|
|
|
|
L014F72 LDY #$0084
|
|
L014F75 STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L014F75
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
RTS
|
|
|
|
LDA L019984
|
|
STA $0E
|
|
LDA L019986
|
|
STA $10
|
|
LDA $06
|
|
STA $0A
|
|
LDA $08
|
|
STA $0C
|
|
LDX #$0085
|
|
L014F99 LDY #$0084
|
|
L014F9C LDA [$0E],Y
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L014F9C
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
CLC
|
|
LDA $0A
|
|
ADC #$00A0
|
|
STA $0A
|
|
DEX
|
|
BNE L014F99
|
|
BRK $FF
|
|
|
|
L014FB9 DW $0000
|
|
L014FBB DW $0000
|
|
L014FBD DW $0000
|
|
L014FBF DW $0000
|
|
L014FC1 DW $0000
|
|
L014FC3 DW $0000
|
|
L014FC5 DW $0000
|
|
L014FC7 DW $0000
|
|
L014FC9 DW $0000
|
|
L014FCB DW $0000
|
|
L014FCD DW $0000
|
|
L014FCF DW $0000
|
|
L014FD1 DW $0000
|
|
L014FD3 DW $0000
|
|
L014FD5 DW $0000
|
|
L014FD7 DW $0000
|
|
L014FD9 DW $0000
|
|
L014FDB DW $0000
|
|
L014FDD DW $0000
|
|
L014FDF DW $0000
|
|
L014FE1 DW $0000
|
|
L014FE3 DW $0000
|
|
L014FE5 DW $0000
|
|
ADRL L01999C
|
|
L014FEB DW $0000
|
|
DW $0000
|
|
ADRL L014FDB
|
|
DW $0000
|
|
L014FF5 DW $0000
|
|
L014FF7 DW $0000
|
|
L014FF9 STZ L019741
|
|
JSR L015476
|
|
LDA L0196C9
|
|
AND #$0200
|
|
STA $50
|
|
STZ L0154E3
|
|
LDA #$002E
|
|
STA L0154E3+$28
|
|
LDA L0199C2
|
|
INC
|
|
INC
|
|
ASL
|
|
ADC L0154E3+$28
|
|
STA L0154E3+$2C
|
|
LDA #$001C
|
|
STA L0154E3+$26
|
|
CLC
|
|
ADC L0199C0
|
|
STA L0154E3+$2A
|
|
SEC
|
|
LDA $5C
|
|
SBC $58
|
|
LSR
|
|
CLC
|
|
ADC $58
|
|
STA L0154E3+$30
|
|
SEC
|
|
LDA $5A
|
|
SBC $56
|
|
LSR
|
|
CLC
|
|
ADC $56
|
|
STA L0154E3+$2E
|
|
LDA $5A
|
|
STA L0154E3+$32
|
|
LDA L0199C0
|
|
LSR
|
|
CLC
|
|
ADC L0154E3+$30
|
|
STA L0154E3+$34
|
|
LDA $56
|
|
STA L0154E3+$36
|
|
LDA L0154E3+$34
|
|
SEC
|
|
SBC L0199C0
|
|
STA L0154E3+$38
|
|
JSL L0181CE
|
|
LDA L0196C7
|
|
STA L0154E3+8
|
|
STA L0154E3+$C
|
|
LDA L0196C5
|
|
STA L0154E3+6
|
|
STA L0154E3+$A
|
|
JSR L0151E8
|
|
BRA L01508A
|
|
L01507B JSR L0150F9
|
|
LDA L0196C7
|
|
STA L0154E3+8
|
|
LDA L0196C5
|
|
STA L0154E3+6
|
|
L01508A LDA #$0000
|
|
PHA
|
|
PHA
|
|
_StillDown
|
|
PLA
|
|
BNE L01509A
|
|
RTS
|
|
|
|
L01509A PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GetMouse
|
|
JSL L0181CE
|
|
LDA L0196C7
|
|
CMP L0154E3+8
|
|
BNE L0150BB
|
|
LDA L0196C5
|
|
CMP L0154E3+6
|
|
BEQ L01508A
|
|
L0150BB LDA $50
|
|
BEQ L01507B
|
|
SEC
|
|
LDA L0196C7
|
|
SBC L0154E3+8
|
|
PHA
|
|
SEC
|
|
LDA L0196C5
|
|
SBC L0154E3+6
|
|
PHA
|
|
LDA L0154E3+8
|
|
PHA
|
|
LDA L0154E3+6
|
|
PHA
|
|
LDA L0154E3
|
|
PHA
|
|
JSL L01855E
|
|
PLA
|
|
PLA
|
|
LDA #$0001
|
|
STA L0154E3
|
|
LDA L0196C7
|
|
CMP L0154E3+8
|
|
BNE L01507B
|
|
LDA L0196C5
|
|
CMP L0154E3+6
|
|
BEQ L01508A
|
|
BRA L01507B
|
|
L0150F9 LDA L0154E3+6
|
|
STA L0154E3+$A
|
|
LDA L0154E3+8
|
|
STA L0154E3+$C
|
|
LDA #$0001
|
|
STA L0154E3+$1A
|
|
STA L0154E3+$18
|
|
SEC
|
|
LDA L0196C7
|
|
SBC L0154E3+8
|
|
STA L0154E3+$10
|
|
BEQ L01512B
|
|
BPL L01512E
|
|
LDA #$FFFF
|
|
STA L0154E3+$1A
|
|
EOR L0154E3+$10
|
|
INC
|
|
STA L0154E3+$10
|
|
BRA L01512E
|
|
L01512B STZ L0154E3+$1A
|
|
L01512E SEC
|
|
LDA L0196C5
|
|
SBC L0154E3+6
|
|
STA L0154E3+$E
|
|
BEQ L01514B
|
|
BPL L01514E
|
|
LDA #$FFFF
|
|
STA L0154E3+$18
|
|
EOR L0154E3+$E
|
|
INC
|
|
STA L0154E3+$E
|
|
BRA L01514E
|
|
L01514B STZ L0154E3+$18
|
|
L01514E STZ L0154E3+$1C
|
|
LDA L0154E3+$10
|
|
CMP L0154E3+$E
|
|
BCS L01516D
|
|
LDA L0154E3+$10
|
|
PHA
|
|
LDA L0154E3+$E
|
|
STA L0154E3+$10
|
|
PLA
|
|
STA L0154E3+$E
|
|
LDA #$0001
|
|
STA L0154E3+$1C
|
|
L01516D LDA L0154E3+$10
|
|
ASL
|
|
STA L0154E3+$14
|
|
LDA L0154E3+$E
|
|
ASL
|
|
STA L0154E3+$12
|
|
SEC
|
|
LDA L0154E3+$12
|
|
SBC L0154E3+$10
|
|
STA L0154E3+$16
|
|
LDX #$0001
|
|
L015188 PHX
|
|
JSR L0151E8
|
|
L01518C LDA L0154E3+$16
|
|
ASL
|
|
BCS L0151B9
|
|
LDA L0154E3+$1C
|
|
BEQ L0151A3
|
|
CLC
|
|
LDA L0154E3+$C
|
|
ADC L0154E3+$1A
|
|
STA L0154E3+$C
|
|
BRA L0151AD
|
|
L0151A3 CLC
|
|
LDA L0154E3+$A
|
|
ADC L0154E3+$18
|
|
STA L0154E3+$A
|
|
L0151AD SEC
|
|
LDA L0154E3+$16
|
|
SBC L0154E3+$14
|
|
STA L0154E3+$16
|
|
BRA L01518C
|
|
L0151B9 LDA L0154E3+$1C
|
|
BEQ L0151CA
|
|
CLC
|
|
LDA L0154E3+$A
|
|
ADC L0154E3+$18
|
|
STA L0154E3+$A
|
|
BRA L0151D4
|
|
L0151CA CLC
|
|
LDA L0154E3+$C
|
|
ADC L0154E3+$1A
|
|
STA L0154E3+$C
|
|
L0151D4 CLC
|
|
LDA L0154E3+$16
|
|
ADC L0154E3+$12
|
|
STA L0154E3+$16
|
|
PLX
|
|
INX
|
|
CPX L0154E3+$10
|
|
BEQ L015188
|
|
BCC L015188
|
|
RTS
|
|
|
|
L0151E8 LDA L0154E3+$A
|
|
STA L0154E3+2
|
|
LDA L0154E3+$C
|
|
STA L0154E3+4
|
|
JSR L015328
|
|
LDA $8A
|
|
ASL
|
|
TAX
|
|
JMP (L01563F,X)
|
|
L0151FE RTS
|
|
|
|
L0151FF BRL L015283
|
|
L015202 BRL L0152A2
|
|
L015205 JSR L015283
|
|
JSR L0152A2
|
|
BRL L0152C1
|
|
L01520E BRL L015232
|
|
L015211 BRL L01524A
|
|
L015214 JSR L015232
|
|
JSR L01524A
|
|
BRL L015262
|
|
L01521D JSR L015232
|
|
JSR L01524A
|
|
JSR L015262
|
|
JSR L015283
|
|
JSR L0152A2
|
|
JSR L0152E0
|
|
BRL L015304
|
|
L015232 SEC
|
|
LDA L0154E3+$30
|
|
SBC L0154E3+$C
|
|
ASL
|
|
CLC
|
|
ADC L0154E3+$C
|
|
STA L0154E3+4
|
|
LDA L0154E3+$A
|
|
STA L0154E3+2
|
|
BRL L015328
|
|
L01524A SEC
|
|
LDA L0154E3+$2E
|
|
SBC L0154E3+$A
|
|
ASL
|
|
CLC
|
|
ADC L0154E3+$A
|
|
STA L0154E3+2
|
|
LDA L0154E3+$C
|
|
STA L0154E3+4
|
|
BRL L015328
|
|
L015262 SEC
|
|
LDA L0154E3+$30
|
|
SBC L0154E3+$C
|
|
ASL
|
|
CLC
|
|
ADC L0154E3+$C
|
|
STA L0154E3+4
|
|
SEC
|
|
LDA L0154E3+$2E
|
|
SBC L0154E3+$A
|
|
ASL
|
|
CLC
|
|
ADC L0154E3+$A
|
|
STA L0154E3+2
|
|
BRL L015328
|
|
L015283 SEC
|
|
LDA L0154E3+$C
|
|
SBC L0154E3+$38
|
|
CLC
|
|
ADC L0154E3+$36
|
|
STA L0154E3+2
|
|
SEC
|
|
LDA L0154E3+$A
|
|
SBC L0154E3+$36
|
|
CLC
|
|
ADC L0154E3+$38
|
|
STA L0154E3+4
|
|
BRL L015328
|
|
L0152A2 SEC
|
|
LDA L0154E3+$32
|
|
SBC L0154E3+$C
|
|
CLC
|
|
ADC L0154E3+$38
|
|
STA L0154E3+2
|
|
SEC
|
|
LDA L0154E3+$34
|
|
SBC L0154E3+$A
|
|
CLC
|
|
ADC L0154E3+$36
|
|
STA L0154E3+4
|
|
BRL L015328
|
|
L0152C1 SEC
|
|
LDA L0154E3+$34
|
|
SBC L0154E3+$C
|
|
CLC
|
|
ADC L0154E3+$38
|
|
STA L0154E3+4
|
|
SEC
|
|
LDA L0154E3+$32
|
|
SBC L0154E3+$A
|
|
CLC
|
|
ADC L0154E3+$36
|
|
STA L0154E3+2
|
|
BRL L015328
|
|
L0152E0 LDA L0154E3+$30
|
|
ASL
|
|
SEC
|
|
SBC L0154E3+$A
|
|
CLC
|
|
ADC L0154E3+$36
|
|
SEC
|
|
SBC L0154E3+$38
|
|
STA L0154E3+4
|
|
SEC
|
|
LDA L0154E3+$C
|
|
SBC L0154E3+$38
|
|
CLC
|
|
ADC L0154E3+$36
|
|
STA L0154E3+2
|
|
BRL L015328
|
|
L015304 LDA L0154E3+$30
|
|
ASL
|
|
SEC
|
|
SBC L0154E3+$34
|
|
CLC
|
|
ADC L0154E3+$A
|
|
SEC
|
|
SBC L0154E3+$36
|
|
STA L0154E3+4
|
|
LDA L0154E3+$32
|
|
SEC
|
|
SBC L0154E3+$C
|
|
CLC
|
|
ADC L0154E3+$38
|
|
STA L0154E3+2
|
|
BRL L015328
|
|
L015328 LDA L0154E3+4
|
|
AND #$0001
|
|
BEQ L015333
|
|
DEC L0154E3+4
|
|
L015333 ASL
|
|
ASL
|
|
TAX
|
|
LDA L01551F,X
|
|
STA $0E
|
|
LDA L01551F+2,X
|
|
STA $10
|
|
SEC
|
|
LDA L0154E3+4
|
|
SBC $58
|
|
CLC
|
|
ADC #$002E
|
|
STA L0154E3+$20
|
|
BPL L015352
|
|
STZ L0154E3+$20
|
|
L015352 CLC
|
|
ADC #$0010
|
|
STA L0154E3+$24
|
|
BPL L01535E
|
|
STZ L0154E3+$24
|
|
L01535E SEC
|
|
LDA L0154E3+2
|
|
SBC $56
|
|
CLC
|
|
ADC #$001C
|
|
STA L0154E3+$1E
|
|
BPL L015370
|
|
STZ L0154E3+$1E
|
|
L015370 CLC
|
|
ADC #$0008
|
|
STA L0154E3+$22
|
|
BPL L01537C
|
|
STZ L0154E3+$22
|
|
L01537C LDA L0154E3+2
|
|
AND #$0007
|
|
ASL
|
|
TAX
|
|
LDA L0154E3+4
|
|
LSR
|
|
AND #$0003
|
|
CLC
|
|
ADC L01562F,X
|
|
CLC
|
|
ADC $A4
|
|
STA $0A
|
|
LDA $A6
|
|
STA $0C
|
|
LDA L0154E3+$1E
|
|
JSL L0182D0
|
|
CLC
|
|
ADC #$2000
|
|
STA $12
|
|
LDA L0154E3+$20
|
|
LSR
|
|
CLC
|
|
ADC $12
|
|
STA $12
|
|
LDA #$00E1
|
|
STA $14
|
|
LDA #L015527
|
|
STA $28
|
|
LDA #^L015527
|
|
STA $2A
|
|
LDA L0154E3+$20
|
|
CMP L0154E3+$28
|
|
BCS L0153E7
|
|
LDX #$0078
|
|
SEC
|
|
LDA L0154E3+$28
|
|
SBC L0154E3+$20
|
|
CMP #$0010
|
|
BCS L0153D9
|
|
DEC
|
|
ASL
|
|
ASL
|
|
ASL
|
|
TAX
|
|
L0153D9 TXA
|
|
CLC
|
|
ADC #L01552F
|
|
STA $28
|
|
LDA #^L01552F
|
|
STA $2A
|
|
BRA L01540F
|
|
L0153E7 LDA L0154E3+$2C
|
|
CMP L0154E3+$24
|
|
BCS L01540F
|
|
LDX #$0078
|
|
SEC
|
|
LDA L0154E3+$24
|
|
SBC L0154E3+$2C
|
|
CMP #$0010
|
|
BCS L015403
|
|
DEC
|
|
ASL
|
|
ASL
|
|
ASL
|
|
TAX
|
|
L015403 TXA
|
|
CLC
|
|
ADC #L0155AF
|
|
STA $28
|
|
LDA #^L0155AF
|
|
STA $2A
|
|
L01540F _HideCursor
|
|
LDX L0154E3+$1E
|
|
L015419 CPX L0154E3+$26
|
|
BCC L015444
|
|
CPX L0154E3+$2A
|
|
BCS L015444
|
|
LDY #$0000
|
|
L015426 LDA [$0E],Y
|
|
AND [$28],Y
|
|
STA L0154E3+$3A
|
|
AND [$0A],Y
|
|
PHA
|
|
LDA L0154E3+$3A
|
|
EOR #$FFFF
|
|
AND [$12],Y
|
|
ORA $01,S
|
|
STA [$12],Y
|
|
PLA
|
|
INY
|
|
INY
|
|
CPY #$0008
|
|
BCC L015426
|
|
L015444 CLC
|
|
LDA $12
|
|
ADC #$00A0
|
|
STA $12
|
|
CLC
|
|
LDA $0A
|
|
ADC #$000C
|
|
STA $0A
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0008
|
|
STA $0E
|
|
INX
|
|
CPX L0154E3+$22
|
|
BCC L015419
|
|
_ShowCursor
|
|
LDX L0154E3+2
|
|
TXA
|
|
CLC
|
|
ADC #$0008
|
|
TAY
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L015476 JSL L0149A7
|
|
STA $0A
|
|
STX $0C
|
|
LDA $A4
|
|
STA $0E
|
|
CLC
|
|
ADC #$0004
|
|
STA $12
|
|
CLC
|
|
ADC #$0004
|
|
STA $28
|
|
LDA $A6
|
|
STA $10
|
|
STA $14
|
|
STA $2A
|
|
LDX #$0008
|
|
L015499 LDY #$0002
|
|
L01549C LDA [$0A],Y
|
|
STA [$0E],Y
|
|
STA [$12],Y
|
|
STA [$28],Y
|
|
DEY
|
|
DEY
|
|
BPL L01549C
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0004
|
|
STA $0A
|
|
CLC
|
|
LDA $0E
|
|
ADC #$000C
|
|
STA $0E
|
|
CLC
|
|
ADC #$0004
|
|
STA $12
|
|
CLC
|
|
ADC #$0004
|
|
STA $28
|
|
DEX
|
|
BNE L015499
|
|
LDA $A4
|
|
STA $0A
|
|
CLC
|
|
ADC #$0060
|
|
STA $0E
|
|
LDA $A6
|
|
STA $0C
|
|
STA $10
|
|
LDY #$005E
|
|
L0154DA LDA [$0A],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L0154DA
|
|
RTS
|
|
|
|
L0154E3 DW $0000
|
|
L0154E5 DW $0000
|
|
L0154E7 DW $0000
|
|
L0154E9 DW $0000
|
|
L0154EB DW $0000
|
|
L0154ED DW $0000
|
|
L0154EF DW $0000
|
|
L0154F1 DW $0000
|
|
L0154F3 DW $0000
|
|
L0154F5 DW $0000
|
|
L0154F7 DW $0000
|
|
L0154F9 DW $0000
|
|
L0154FB DW $0000
|
|
L0154FD DW $0000
|
|
L0154FF DW $0000
|
|
L015501 DW $0000
|
|
L015503 DW $0000
|
|
L015505 DW $0000
|
|
L015507 DW $0000
|
|
L015509 DW $0000
|
|
L01550B DW $0000
|
|
L01550D DW $0000
|
|
L01550F DW $0000
|
|
L015511 DW $0000
|
|
L015513 DW $0000
|
|
L015515 DW $0000
|
|
L015517 DW $0000
|
|
L015519 DW $0000
|
|
L01551B DW $0000
|
|
L01551D DW $0000
|
|
L01551F ADRL L019F6C
|
|
ADRL L019FAC
|
|
L015527 HEX FFFFFFFFFFFFFFFF
|
|
L01552F HEX 0FFFFFFFFFFFFFFF
|
|
HEX 00FFFFFFFFFFFFFF
|
|
HEX 000FFFFFFFFFFFFF
|
|
HEX 0000FFFFFFFFFFFF
|
|
HEX 00000FFFFFFFFFFF
|
|
HEX 000000FFFFFFFFFF
|
|
HEX 0000000FFFFFFFFF
|
|
HEX 00000000FFFFFFFF
|
|
HEX 000000000FFFFFFF
|
|
HEX 0000000000FFFFFF
|
|
HEX 00000000000FFFFF
|
|
HEX 000000000000FFFF
|
|
HEX 0000000000000FFF
|
|
HEX 00000000000000FF
|
|
HEX 000000000000000F
|
|
HEX 0000000000000000
|
|
L0155AF HEX FFFFFFFFFFFFFFF0
|
|
HEX FFFFFFFFFFFFFF00
|
|
HEX FFFFFFFFFFFFF000
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFF00000
|
|
HEX FFFFFFFFFF000000
|
|
HEX FFFFFFFFF0000000
|
|
HEX FFFFFFFF00000000
|
|
HEX FFFFFFF000000000
|
|
HEX FFFFFF0000000000
|
|
HEX FFFFF00000000000
|
|
HEX FFFF000000000000
|
|
HEX FFF0000000000000
|
|
HEX FF00000000000000
|
|
HEX F000000000000000
|
|
HEX 0000000000000000
|
|
L01562F DW $0000
|
|
DW $000C
|
|
DW $0018
|
|
DW $0024
|
|
DW $0030
|
|
DW $003C
|
|
DW $0048
|
|
DW $0054
|
|
L01563F DA L0151FE
|
|
DA L0151FF
|
|
DA L01520E
|
|
DA L01521D
|
|
DA L015202
|
|
DA L015205
|
|
DA L01521D
|
|
DA L01521D
|
|
DA L015211
|
|
DA L01521D
|
|
DA L015214
|
|
DA L01521D
|
|
DA L01521D
|
|
DA L01521D
|
|
DA L01521D
|
|
DA L01521D
|
|
L01565F LDA L0196C9
|
|
AND #$0100
|
|
BEQ L01567F
|
|
LDA $34
|
|
BNE L01567B
|
|
LDA L0196C5
|
|
STA L019681
|
|
LDA L0196C7
|
|
STA L019683
|
|
JMPL L013F7B
|
|
L01567B JMPL L013F7B
|
|
|
|
L01567F LDA L0196C9
|
|
AND #$0200
|
|
STA $50
|
|
STZ L0158B5
|
|
_PenNormal
|
|
LDA #$0001
|
|
STA L01975F
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
JSL L0181CE
|
|
_HideCursor
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
_GetPixel
|
|
PLA
|
|
EOR #$000F
|
|
INC
|
|
CMP $70
|
|
BEQ L0156C8
|
|
JSR L017ECF
|
|
BRA L0156D7
|
|
L0156C8 LDX $74
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_SetPenPat
|
|
L0156D7 PLA
|
|
STA L0196C5
|
|
PLA
|
|
STA L0196C7
|
|
_ShowCursor
|
|
BRL L015803
|
|
L0156E9 LDA L0196C9
|
|
AND #$0200
|
|
STA $50
|
|
STZ L0158B5
|
|
PEA $0000
|
|
_SetPenMode
|
|
LDX $74
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_SetPenPat
|
|
LDA $34
|
|
BEQ L01571A
|
|
LDA #$0003
|
|
PHA
|
|
LDA #$0002
|
|
BRA L015720
|
|
L01571A PEA $000C
|
|
LDA #$000A
|
|
L015720 STA L01975F
|
|
PHA
|
|
_SetPenSize
|
|
BRL L015803
|
|
L01572E STZ $50
|
|
STZ L0158B5
|
|
PEA $0000
|
|
_SetPenMode
|
|
JSR L017EDD
|
|
JSR L017EED
|
|
JSR L015803
|
|
LDA L0158BD
|
|
PHA
|
|
LDA L0158BB
|
|
PHA
|
|
_LineTo
|
|
JSR L014117
|
|
RTS
|
|
|
|
L015759 STZ $50
|
|
STZ L0158B5
|
|
PEA $0000
|
|
_SetPenMode
|
|
JSR L017EDD
|
|
JSR L017EED
|
|
PHA
|
|
PHA
|
|
_OpenPoly
|
|
PLA
|
|
STA L0157FF
|
|
PLA
|
|
STA L0157FF+2
|
|
_ShowPen
|
|
JSR L015803
|
|
LDA L0158BD
|
|
PHA
|
|
LDA L0158BB
|
|
PHA
|
|
_LineTo
|
|
_HidePen
|
|
_ClosePoly
|
|
PHA
|
|
PHA
|
|
_GetCursorAdr
|
|
PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
LDA L0157FF+2
|
|
PHA
|
|
LDA L0157FF
|
|
PHA
|
|
LDX $70
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_FillPoly
|
|
JSR L017EDD
|
|
LDA L0157FF+2
|
|
PHA
|
|
LDA L0157FF
|
|
PHA
|
|
_FramePoly
|
|
JSR L014117
|
|
LDA L0157FF+2
|
|
PHA
|
|
LDA L0157FF
|
|
PHA
|
|
_KillPoly
|
|
_SetCursor
|
|
RTS
|
|
|
|
L0157FF ADRL $00000000
|
|
L015803 JSR L018126
|
|
JSL L0181CE
|
|
LDA L0196C5
|
|
STA L0158B7
|
|
STA L0158BB
|
|
LDA L0196C7
|
|
STA L0158B9
|
|
STA L0158BD
|
|
L01581C LDA L0158B9
|
|
PHA
|
|
LDA L0158B7
|
|
PHA
|
|
_MoveTo
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
_LineTo
|
|
LDX L0158B7
|
|
LDY L0196C5
|
|
JSR L01412A
|
|
LDA L0196C5
|
|
STA L0158B7
|
|
LDA L0196C7
|
|
STA L0158B9
|
|
L01584F LDA #$0000
|
|
PHA
|
|
PHA
|
|
_StillDown
|
|
PLA
|
|
BNE L01585F
|
|
RTS
|
|
|
|
L01585F PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GetMouse
|
|
JSL L0181CE
|
|
JSR L018168
|
|
JSR L0139B0
|
|
LDA L0196C7
|
|
CMP L0158B9
|
|
BNE L015886
|
|
LDA L0196C5
|
|
CMP L0158B7
|
|
BEQ L01584F
|
|
L015886 LDA $50
|
|
BEQ L01581C
|
|
SEC
|
|
LDA L0196C7
|
|
SBC L0158B9
|
|
PHA
|
|
SEC
|
|
LDA L0196C5
|
|
SBC L0158B7
|
|
PHA
|
|
LDA L0158B9
|
|
PHA
|
|
LDA L0158B7
|
|
PHA
|
|
LDA L0158B5
|
|
PHA
|
|
JSL L01855E
|
|
PLA
|
|
PLA
|
|
LDA #$0001
|
|
STA L0158B5
|
|
BRL L01581C
|
|
L0158B5 DW $0000
|
|
L0158B7 DW $0000
|
|
L0158B9 DW $0000
|
|
L0158BB DW $0000
|
|
L0158BD DW $0000
|
|
L0158BF LDA $48
|
|
BEQ L0158C6
|
|
JSR L015981
|
|
L0158C6 LDA $72
|
|
DEC
|
|
EOR #$000F
|
|
PHA
|
|
_SetForeColor
|
|
JSL L0181CE
|
|
STZ L015EAA
|
|
LDA L0196C7
|
|
STA L015E94
|
|
STA L015E98
|
|
STA L015F22
|
|
PHA
|
|
LDA L0196C5
|
|
STA L015E92
|
|
STA L015E96
|
|
PHA
|
|
SEC
|
|
SBC L0196B3
|
|
SEC
|
|
SBC L0196B9
|
|
STA L015F20
|
|
_MoveTo
|
|
LDA L0196AD
|
|
STA L015EEC
|
|
PHA
|
|
PHA
|
|
_GetVisHandle
|
|
PLA
|
|
STA L015EDC
|
|
PLA
|
|
STA L015EDE
|
|
PHA
|
|
PHA
|
|
_GetClipHandle
|
|
PLA
|
|
STA L015EC0
|
|
PLA
|
|
STA L015EC2
|
|
LDA $90
|
|
STA L015ECE
|
|
LDA $92
|
|
STA L015ED0
|
|
LDA $90
|
|
STA L015EB2
|
|
LDA $92
|
|
STA L015EB4
|
|
L015940 STZ L015EC8
|
|
LDA #$0001
|
|
STA $48
|
|
STA L015EAC
|
|
JSR L01192F
|
|
PEA $0000
|
|
PEA $0000
|
|
_GetCaretTime
|
|
PLA
|
|
STA L019743
|
|
PLA
|
|
STA L019745
|
|
JSR L015DCC
|
|
LDA $2C
|
|
STA $30
|
|
LDA $2E
|
|
STA $32
|
|
STZ L015E8C
|
|
LDA #$0100
|
|
STA L015E8E
|
|
STZ L015E90
|
|
STZ L015EA6
|
|
STZ L015EA8
|
|
RTS
|
|
|
|
L015981 LDA $48
|
|
BEQ L0159B6
|
|
STZ $48
|
|
JSR L015E54
|
|
LDA L0199CE
|
|
PHA
|
|
LDA L0199CC
|
|
PHA
|
|
_HUnlock
|
|
LDA L015E8E
|
|
CMP #$0100
|
|
BEQ L0159B6
|
|
PEA $0000
|
|
PEA $0100
|
|
LDA L0199CE
|
|
PHA
|
|
LDA L0199CC
|
|
PHA
|
|
_SetHandleSize
|
|
L0159B6 RTS
|
|
|
|
L0159B7 LDA L0196AD
|
|
STA L015EEC
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA L0196BD
|
|
JSR L017C7F
|
|
CMP #$007F
|
|
BNE L0159D8
|
|
BRL L015B2A
|
|
L0159D8 LDY L015E8C
|
|
CPY L015E8E
|
|
BEQ L015A1D
|
|
BCC L015A1D
|
|
PHA
|
|
PHY
|
|
LDA L0199CE
|
|
PHA
|
|
LDA L0199CC
|
|
PHA
|
|
_HUnlock
|
|
CLC
|
|
LDA L015E8E
|
|
ADC #$0100
|
|
STA L015E8E
|
|
LDA L015E90
|
|
PHA
|
|
LDA L015E8E
|
|
PHA
|
|
LDA L0199CE
|
|
PHA
|
|
LDA L0199CC
|
|
PHA
|
|
_SetHandleSize
|
|
BCC L015A18
|
|
BRK $EA
|
|
L015A18 JSR L015DCC
|
|
PLY
|
|
PLA
|
|
L015A1D SEP #$20
|
|
STA [$2C],Y
|
|
REP #$20
|
|
INC L015E8C
|
|
INC L015EA8
|
|
CMP #$000D
|
|
BNE L015A31
|
|
BRL L015ACE
|
|
L015A31 PHA
|
|
JSR L015E54
|
|
LDA $01,S
|
|
PHA
|
|
PHA
|
|
_CharWidth
|
|
PLA
|
|
CLC
|
|
ADC L015EA6
|
|
STA L015EA6
|
|
LDA $7C
|
|
BNE L015A56
|
|
_DrawChar
|
|
BRL L015A81
|
|
L015A56 CMP #$0001
|
|
BNE L015A63
|
|
LDA L015EA6
|
|
LSR
|
|
STA $01,S
|
|
BRA L015A68
|
|
L015A63 LDA L015EA6
|
|
STA $01,S
|
|
L015A68 SEC
|
|
LDA L015E94
|
|
SBC $01,S
|
|
STA $01,S
|
|
STA L015E98
|
|
LDA L015E96
|
|
PHA
|
|
_MoveTo
|
|
JSR L015A88
|
|
L015A81 JSR L015E6D
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L015A88 LDA $32
|
|
PHA
|
|
LDA $30
|
|
PHA
|
|
LDA L015EA8
|
|
PHA
|
|
PEA ^L015E9C
|
|
PEA L015E9C
|
|
_TextBounds
|
|
LDA L015E98
|
|
STA L015E9E
|
|
CLC
|
|
ADC L015EA6
|
|
STA L015EA2
|
|
JSR L015DF2
|
|
PEA ^L015EAE
|
|
PEA L015EAE
|
|
_PaintPixels
|
|
LDA $32
|
|
PHA
|
|
LDA $30
|
|
PHA
|
|
LDA L015EA8
|
|
PHA
|
|
_DrawText
|
|
RTS
|
|
|
|
L015ACE LDA L0196C9
|
|
AND #$2000
|
|
BNE L015B04
|
|
CLC
|
|
LDA $30
|
|
ADC L015EA8
|
|
STA $30
|
|
STZ L015EA8
|
|
STZ L015EA6
|
|
STZ L015EAC
|
|
LDA L015E94
|
|
STA L015E98
|
|
PHA
|
|
CLC
|
|
LDA L015E96
|
|
ADC L0196AD
|
|
STA L015E96
|
|
PHA
|
|
_MoveTo
|
|
JSR L015E6D
|
|
RTS
|
|
|
|
L015B04 JSR L015981
|
|
JSR L0118CC
|
|
PEA ^L015E96
|
|
PEA L015E96
|
|
_GetPen
|
|
SEC
|
|
LDA L015E98
|
|
SBC L015E94
|
|
STA L015EAA
|
|
LDA L015E96
|
|
STA L015E92
|
|
JMP L015940
|
|
|
|
L015B2A LDY L015E8C
|
|
DEY
|
|
BPL L015B31
|
|
RTS
|
|
|
|
L015B31 SEP #$20
|
|
LDA [$2C],Y
|
|
REP #$20
|
|
AND #$00FF
|
|
STA L015EA4
|
|
CMP #$000D
|
|
BNE L015B45
|
|
BRL L015C1E
|
|
L015B45 LDA $32
|
|
PHA
|
|
LDA $30
|
|
PHA
|
|
LDA L015EA8
|
|
PHA
|
|
PEA ^L015E9C
|
|
PEA L015E9C
|
|
_TextBounds
|
|
LDA L015E98
|
|
STA L015E9E
|
|
CLC
|
|
ADC L015EA6
|
|
STA L015EA2
|
|
JSR L015DF2
|
|
DEC L015E8C
|
|
DEC L015EA8
|
|
PEA $0000
|
|
LDA L015EA4
|
|
PHA
|
|
_CharWidth
|
|
PLA
|
|
EOR #$FFFF
|
|
INC
|
|
STA L015E9A
|
|
CLC
|
|
LDA L015EA6
|
|
ADC L015E9A
|
|
STA L015EA6
|
|
LDA $7C
|
|
BEQ L015BE1
|
|
CMP #$0001
|
|
BNE L015BA2
|
|
LDA L015EA6
|
|
LSR
|
|
PHA
|
|
BRA L015BA6
|
|
L015BA2 LDA L015EA6
|
|
PHA
|
|
L015BA6 SEC
|
|
LDA L015E94
|
|
SBC $01,S
|
|
STA $01,S
|
|
STA L015E98
|
|
LDA L015E96
|
|
PHA
|
|
_MoveTo
|
|
JSR L015E54
|
|
PEA ^L015EAE
|
|
PEA L015EAE
|
|
_PaintPixels
|
|
LDA $32
|
|
PHA
|
|
LDA $30
|
|
PHA
|
|
LDA L015EA8
|
|
PHA
|
|
_DrawText
|
|
JSR L015E6D
|
|
RTS
|
|
|
|
L015BE1 LDA L015E9A
|
|
PHA
|
|
PEA $0000
|
|
_Move
|
|
LDA L015EA4
|
|
PHA
|
|
PEA ^L015E9C
|
|
PEA L015E9C
|
|
_CharBounds
|
|
JSR L015E54
|
|
PEA ^L015EAE
|
|
PEA L015EAE
|
|
_PaintPixels
|
|
JSR L015E54
|
|
CLC
|
|
LDA L015F22
|
|
ADC L015E9A
|
|
STA L015F22
|
|
RTS
|
|
|
|
L015C1E DEC L015E8C
|
|
DEC $30
|
|
STZ L015EA6
|
|
STZ L015EA8
|
|
L015C29 DEY
|
|
PHY
|
|
BPL L015C35
|
|
LDA #$0001
|
|
STA L015EAC
|
|
BRA L015C5C
|
|
L015C35 SEP #$20
|
|
LDA [$2C],Y
|
|
REP #$20
|
|
AND #$00FF
|
|
CMP #$000D
|
|
BEQ L015C5C
|
|
PHA
|
|
PHA
|
|
_CharWidth
|
|
PLA
|
|
CLC
|
|
ADC L015EA6
|
|
STA L015EA6
|
|
INC L015EA8
|
|
DEC $30
|
|
PLY
|
|
BRA L015C29
|
|
L015C5C PLY
|
|
LDA L015EA6
|
|
PHA
|
|
LDX $7C
|
|
BEQ L015C76
|
|
CPX #$0001
|
|
BEQ L015C71
|
|
LDA #$0000
|
|
STA $01,S
|
|
BRA L015C76
|
|
L015C71 LDA $01,S
|
|
LSR
|
|
STA $01,S
|
|
L015C76 SEC
|
|
LDA L015E94
|
|
SBC $01,S
|
|
STA L015E98
|
|
CLC
|
|
LDA L015E94
|
|
ADC $01,S
|
|
STA $01,S
|
|
SEC
|
|
LDA L015E96
|
|
SBC L0196AD
|
|
STA L015E96
|
|
PHA
|
|
_MoveTo
|
|
LDA L015EAC
|
|
BEQ L015CAC
|
|
LDA L015EAA
|
|
PHA
|
|
PEA $0000
|
|
_Move
|
|
L015CAC JSR L015E6D
|
|
RTS
|
|
|
|
L015CB0 LDA $48
|
|
BNE L015CB5
|
|
RTS
|
|
|
|
L015CB5 LDA #$0001
|
|
STA L015EAC
|
|
JSR L015E54
|
|
LDA L0196AD
|
|
STA L015EEC
|
|
LDA L015E94
|
|
PHA
|
|
LDA L015E92
|
|
PHA
|
|
_MoveTo
|
|
LDA L015EAA
|
|
PHA
|
|
PEA $0000
|
|
_Move
|
|
JSR L011953
|
|
LDA $2C
|
|
STA $0A
|
|
LDA $2E
|
|
STA $0C
|
|
LDY #$0000
|
|
PHY
|
|
LDA L015E92
|
|
STA L015E96
|
|
LDA L015E94
|
|
STA L015E98
|
|
L015CFC PLY
|
|
CPY L015E8C
|
|
BNE L015D05
|
|
BRL L015DA5
|
|
L015D05 JSR L015DA9
|
|
PHY
|
|
CPX #$0000
|
|
BNE L015D11
|
|
BRL L015DA5
|
|
L015D11 PHX
|
|
LDA $7C
|
|
BEQ L015D5C
|
|
PHA
|
|
LDA $0C
|
|
PHA
|
|
LDA $0A
|
|
PHA
|
|
PHX
|
|
SEC
|
|
LDA $01,S
|
|
SBC L015EC4
|
|
STA $01,S
|
|
_TextWidth
|
|
LDA $7C
|
|
CMP #$0002
|
|
BEQ L015D44
|
|
LDA L015EAC
|
|
BEQ L015D41
|
|
SEC
|
|
LDA $01,S
|
|
SBC L015EAA
|
|
STA $01,S
|
|
L015D41 PLA
|
|
LSR
|
|
PHA
|
|
L015D44 SEC
|
|
LDA L015E94
|
|
SBC $01,S
|
|
STA $01,S
|
|
STA L015E98
|
|
LDA L015E96
|
|
PHA
|
|
_MoveTo
|
|
PLX
|
|
PHX
|
|
L015D5C LDA $0C
|
|
PHA
|
|
LDA $0A
|
|
PHA
|
|
PHX
|
|
SEC
|
|
LDA $01,S
|
|
SBC L015EC4
|
|
STA $01,S
|
|
_DrawText
|
|
STZ L015EAC
|
|
CLC
|
|
LDA $0A
|
|
ADC $01,S
|
|
STA $0A
|
|
PLX
|
|
LDA L015EC4
|
|
BNE L015D85
|
|
BRL L015CFC
|
|
L015D85 CLC
|
|
LDA L015E96
|
|
ADC L0196AD
|
|
STA L015E96
|
|
LDA $7C
|
|
BNE L015DA2
|
|
LDA L015E98
|
|
PHA
|
|
LDA L015E96
|
|
PHA
|
|
_MoveTo
|
|
L015DA2 BRL L015CFC
|
|
L015DA5 JSR L015E6D
|
|
RTS
|
|
|
|
L015DA9 STZ L015EC4
|
|
LDX #$0000
|
|
L015DAF SEP #$20
|
|
LDA [$2C],Y
|
|
REP #$20
|
|
AND #$00FF
|
|
INX
|
|
INY
|
|
CMP #$000D
|
|
BNE L015DC6
|
|
LDA #$0001
|
|
STA L015EC4
|
|
RTS
|
|
|
|
L015DC6 CPY L015E8C
|
|
BCC L015DAF
|
|
RTS
|
|
|
|
L015DCC LDA L0199CE
|
|
PHA
|
|
LDA L0199CC
|
|
PHA
|
|
_HLock
|
|
LDA L0199CC
|
|
STA $2C
|
|
LDA L0199CE
|
|
STA $2E
|
|
LDA [$2C]
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$2C],Y
|
|
STA $2E
|
|
STX $2C
|
|
RTS
|
|
|
|
L015DF2 LDA L015E9C
|
|
BPL L015DFA
|
|
STZ L015E9C
|
|
L015DFA LDA L015E9E
|
|
BPL L015E02
|
|
STZ L015E9E
|
|
L015E02 LDA L015EA0
|
|
CMP $F0
|
|
BEQ L015E10
|
|
BCC L015E10
|
|
LDA $F0
|
|
STA L015EA0
|
|
L015E10 LDA L015EA2
|
|
CMP #$0140
|
|
BEQ L015E20
|
|
BCC L015E20
|
|
LDA #$0140
|
|
STA L015EA2
|
|
L015E20 RTS
|
|
|
|
L015E21 SEC
|
|
LDA L0196C1
|
|
SBC L015EC6
|
|
CMP L019743
|
|
BCC L015E53
|
|
LDA L0196C1
|
|
STA L015EC6
|
|
PEA ^L015ECA
|
|
PEA L015ECA
|
|
_PaintPixels
|
|
JSR L014117
|
|
LDA L015EC8
|
|
BEQ L015E4D
|
|
STZ L015EC8
|
|
BRA L015E53
|
|
L015E4D LDA #$0001
|
|
STA L015EC8
|
|
L015E53 RTS
|
|
|
|
L015E54 LDA L015EC8
|
|
BEQ L015E6C
|
|
STZ L015EC8
|
|
PEA ^L015ECA
|
|
PEA L015ECA
|
|
_PaintPixels
|
|
JSR L014117
|
|
L015E6C RTS
|
|
|
|
L015E6D JSR L015E54
|
|
PEA ^L015F20
|
|
PEA L015F20
|
|
_GetPen
|
|
SEC
|
|
LDA L015F20
|
|
SBC L0196B3
|
|
SEC
|
|
SBC L0196B9
|
|
STA L015F20
|
|
RTS
|
|
|
|
L015E8C DB $00
|
|
DB $00
|
|
L015E8E DB $00
|
|
DB $00
|
|
L015E90 DB $00
|
|
DB $00
|
|
L015E92 DB $00
|
|
DB $00
|
|
L015E94 DB $00
|
|
DB $00
|
|
L015E96 DB $00
|
|
DB $00
|
|
L015E98 DB $00
|
|
DB $00
|
|
L015E9A DB $00
|
|
DB $00
|
|
L015E9C DB $00
|
|
DB $00
|
|
L015E9E DB $00
|
|
DB $00
|
|
L015EA0 DB $00
|
|
DB $00
|
|
L015EA2 DB $00
|
|
DB $00
|
|
L015EA4 DB $00
|
|
DB $00
|
|
L015EA6 DB $00
|
|
DB $00
|
|
L015EA8 DB $00
|
|
DB $00
|
|
L015EAA DB $00
|
|
DB $00
|
|
L015EAC DB $00
|
|
DB $00
|
|
L015EAE ADRL L019974
|
|
L015EB2 DW $0000
|
|
L015EB4 DW $0000
|
|
ADRL L015E9C
|
|
ADRL L015E9C
|
|
DW $0000
|
|
L015EC0 DW $0000
|
|
L015EC2 DW $0000
|
|
L015EC4 DW $0000
|
|
L015EC6 DW $0000
|
|
L015EC8 DW $0000
|
|
L015ECA ADRL L015EE0
|
|
L015ECE DW $0000
|
|
L015ED0 DW $0000
|
|
ADRL L015EE8
|
|
ADRL L015F20
|
|
DW $0002
|
|
L015EDC DW $0000
|
|
L015EDE DW $0000
|
|
L015EE0 DW $0000
|
|
ADRL L015EF0
|
|
DW $0001
|
|
L015EE8 DW $0000
|
|
DW $0000
|
|
L015EEC DW $0008
|
|
DW $0001
|
|
L015EF0 HEX F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
|
|
HEX F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
|
|
HEX F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
|
|
L015F20 DW $0000
|
|
L015F22 DW $0000
|
|
L015F24 JSR L01192F
|
|
JSL L0181CE
|
|
LDA #$0000
|
|
PHA
|
|
LDA L0196C9
|
|
AND #$0200
|
|
PHA
|
|
PEA $0001
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
JSR L017F84
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
CMP #$0002
|
|
BCS L015F79
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
CMP #$0002
|
|
BCS L015F79
|
|
STZ $36
|
|
LDA #$0004
|
|
JSR L0190DA
|
|
RTS
|
|
|
|
L015F79 LDA L019998
|
|
STA $0A
|
|
LDA L01999A
|
|
STA $0C
|
|
LDY #$459C
|
|
LDA #$FFFF
|
|
L015F89 STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L015F89
|
|
LDA L019984
|
|
STA $0A
|
|
LDA L019986
|
|
STA $0C
|
|
LDY #$459C
|
|
LDA #$0000
|
|
L015F9F STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L015F9F
|
|
LDA #$0002
|
|
STA $36
|
|
STZ $46
|
|
STZ $44
|
|
LDA #$0003
|
|
JSR L0190DA
|
|
CLC
|
|
LDA $66
|
|
ADC $6A
|
|
LSR
|
|
STA L019681
|
|
CLC
|
|
LDA $68
|
|
ADC $6C
|
|
LSR
|
|
STA L019683
|
|
PHA
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0056
|
|
PHA
|
|
_EqualRect
|
|
PLA
|
|
STA $38
|
|
LDA L019998
|
|
STA L01999E
|
|
LDA L01999A
|
|
STA L0199A0
|
|
LDA L019984
|
|
STA L01998A
|
|
LDA L019986
|
|
STA L01998C
|
|
STZ L01608B
|
|
STZ L01608D
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
STA L01608F
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
STA L016091
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
STA L01609B
|
|
LDA $90
|
|
STA L016093
|
|
LDA $92
|
|
STA L016095
|
|
_HideCursor
|
|
JSR L018E21
|
|
PEA ^L016093
|
|
PEA L016093
|
|
_PaintPixels
|
|
JSR L018E07
|
|
_ShowCursor
|
|
PEA ^L019825
|
|
PEA L019825
|
|
_SetPort
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
LDX $74
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_FillRect
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA $66
|
|
STA L019761
|
|
LDA $68
|
|
STA L019763
|
|
LDA $6A
|
|
STA L019765
|
|
LDA $6C
|
|
STA L019767
|
|
RTS
|
|
|
|
L01608B DW $0000
|
|
L01608D DW $0000
|
|
L01608F DW $0000
|
|
L016091 DW $0000
|
|
L016093 DW $0000
|
|
L016095 DW $0000
|
|
ADRL L01999C
|
|
L01609B DW $0000
|
|
DW $0000
|
|
ADRL L01608B
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
L0160A9 JSL L0181CE
|
|
LDA L0196C9
|
|
AND #$0800
|
|
STA $4C
|
|
BEQ L0160BC
|
|
JSR L01473C
|
|
BRA L0160CA
|
|
L0160BC LDA L0196C9
|
|
AND #$0100
|
|
STA $4E
|
|
BEQ L0160CA
|
|
JMPL L017876
|
|
|
|
L0160CA LDA L0196C9
|
|
AND #$0200
|
|
STA $50
|
|
LDA L0196C7
|
|
STA L0162B0
|
|
LDA L0196C5
|
|
STA L0162AE
|
|
STZ L0162B2
|
|
LDA L019761
|
|
STA L019769
|
|
LDA L019763
|
|
STA L01976B
|
|
LDA L019765
|
|
STA L01976D
|
|
LDA L019767
|
|
STA L01976F
|
|
L0160F9 LDA L0196C5
|
|
STA L0162AA
|
|
LDA L0196C7
|
|
STA L0162AC
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_StillDown
|
|
PLA
|
|
BEQ L01617C
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GetMouse
|
|
JSL L0181CE
|
|
JSR L0139B0
|
|
SEC
|
|
LDA L0196C7
|
|
SBC L0162AC
|
|
STA L0162A8
|
|
SEC
|
|
LDA L0196C5
|
|
SBC L0162AA
|
|
STA L0162A6
|
|
BNE L016143
|
|
LDA L0162A8
|
|
BEQ L0160F9
|
|
L016143 LDA $38
|
|
BNE L0160F9
|
|
LDA $50
|
|
BEQ L01616B
|
|
LDA L0162A8
|
|
PHA
|
|
LDA L0162A6
|
|
PHA
|
|
LDA L0162AC
|
|
PHA
|
|
LDA L0162AA
|
|
PHA
|
|
LDA L0162B2
|
|
PHA
|
|
JSL L01855E
|
|
PLA
|
|
STA L0162A6
|
|
PLA
|
|
STA L0162A8
|
|
L01616B JSR L01619F
|
|
LDA #$0001
|
|
STA L0162B2
|
|
LDA #$0001
|
|
STA $46
|
|
BRL L0160F9
|
|
L01617C CLC
|
|
LDA $66
|
|
ADC $6A
|
|
LSR
|
|
STA L019681
|
|
CLC
|
|
LDA $68
|
|
ADC $6C
|
|
LSR
|
|
STA L019683
|
|
RTS
|
|
|
|
L01618F LDA $66
|
|
STA L0162AE
|
|
LDA $68
|
|
STA L0162B0
|
|
STZ L0162A8
|
|
STZ L0162A6
|
|
L01619F LDA $66
|
|
STA L01629E
|
|
LDA $68
|
|
STA L0162A0
|
|
LDA $6A
|
|
STA L0162A2
|
|
LDA $6C
|
|
STA L0162A4
|
|
LDA L0162A8
|
|
PHA
|
|
LDA L0162A6
|
|
PHA
|
|
LDA L0162B0
|
|
PHA
|
|
LDA L0162AE
|
|
PHA
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0056
|
|
PHA
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
JSL L0183EE
|
|
PLA
|
|
STA L0162AE
|
|
PLA
|
|
STA L0162B0
|
|
PLA
|
|
STA L0162A6
|
|
PLA
|
|
STA L0162A8
|
|
LDA $66
|
|
CMP L01629E
|
|
BCS L0161F3
|
|
STA L01629E
|
|
L0161F3 LDA $68
|
|
CMP L0162A0
|
|
BCS L0161FD
|
|
STA L0162A0
|
|
L0161FD LDA $6A
|
|
CMP L0162A2
|
|
BCC L016207
|
|
STA L0162A2
|
|
L016207 LDA $6C
|
|
CMP L0162A4
|
|
BCC L016211
|
|
STA L0162A4
|
|
L016211 SEC
|
|
LDA L0162A0
|
|
SBC $58
|
|
AND #$FFFC
|
|
LSR
|
|
STA L0162A0
|
|
SEC
|
|
LDA L0162A4
|
|
DEC
|
|
SBC $58
|
|
AND #$FFFC
|
|
LSR
|
|
INC
|
|
INC
|
|
STA L0162A4
|
|
LDA L01629E
|
|
JSL L0182D0
|
|
CLC
|
|
ADC L019976
|
|
STA $0A
|
|
LDA L019978
|
|
STA $0C
|
|
LDA $58
|
|
LSR
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
SEC
|
|
LDA L01629E
|
|
SBC $56
|
|
JSL L0182D0
|
|
CLC
|
|
ADC #$3197
|
|
STA $0E
|
|
LDA #$00E1
|
|
STA $10
|
|
LDA L01999E
|
|
STA $12
|
|
LDA L0199A0
|
|
STA $14
|
|
LDA L01998A
|
|
STA $28
|
|
LDA L01998C
|
|
STA $2A
|
|
LDA L0162A0
|
|
PHA
|
|
LDA L01629E
|
|
PHA
|
|
LDA L0162A4
|
|
PHA
|
|
LDA L0162A2
|
|
PHA
|
|
PEA $FFFF
|
|
PEA $FFFF
|
|
JSR L018B29
|
|
LDA $36
|
|
CMP #$0002
|
|
BNE L016294
|
|
JSR L018E2E
|
|
L016294 LDX L01629E
|
|
LDY L0162A2
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L01629E DW $0000
|
|
L0162A0 DW $0000
|
|
L0162A2 DW $0000
|
|
L0162A4 DW $0000
|
|
L0162A6 DW $0000
|
|
L0162A8 DW $0000
|
|
L0162AA DW $0000
|
|
L0162AC DW $0000
|
|
L0162AE DW $0000
|
|
L0162B0 DW $0000
|
|
L0162B2 DW $0000
|
|
L0162B4 JSR L013C36
|
|
JSR L015981
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
LDY #$0001
|
|
LDA #L0163D4
|
|
STA L016380
|
|
LDA #^L0163D4
|
|
STA L016382
|
|
L0162D6 PHY
|
|
CLC
|
|
LDA L016380
|
|
ADC #$0008
|
|
STA L016380
|
|
PEA $0000
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
LDA L016382
|
|
PHA
|
|
LDA L016380
|
|
PHA
|
|
_PtInRect
|
|
PLA
|
|
BNE L016305
|
|
PLY
|
|
INY
|
|
CPY #$0015
|
|
BNE L0162D6
|
|
BRA L01634F
|
|
L016305 PLY
|
|
CPY L01969D
|
|
BNE L016322
|
|
LDA L019741
|
|
BEQ L01634F
|
|
JMP L0187F8
|
|
|
|
L016313 PHY
|
|
LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
PLY
|
|
L016322 PHY
|
|
JSR L01635D
|
|
LDA $76
|
|
STA $78
|
|
PLY
|
|
STY $76
|
|
STY L01969D
|
|
JSR L01635D
|
|
L016333 LDA $76
|
|
CMP #$0004
|
|
BNE L01633F
|
|
JSL L016FC2
|
|
RTS
|
|
|
|
L01633F DEC
|
|
ASL
|
|
ASL
|
|
TAY
|
|
LDA L016384,Y
|
|
STA L019EDC
|
|
LDA L016384+2,Y
|
|
STA L019EDC+2
|
|
L01634F LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
RTS
|
|
|
|
L01635D LDA L01969D
|
|
ASL
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC #L0163D4
|
|
STA L016380
|
|
LDA #^L0163D4
|
|
STA L016382
|
|
LDA L016382
|
|
PHA
|
|
LDA L016380
|
|
PHA
|
|
_InvertRect
|
|
RTS
|
|
|
|
L016380 DW $0000
|
|
L016382 DW $0000
|
|
L016384 ADRL L01A198
|
|
ADRL L01A500
|
|
ADRL L01A0F0
|
|
ADRL $00000000
|
|
ADRL L01A268
|
|
ADRL L01A268
|
|
ADRL L01A268
|
|
ADRL L01A268
|
|
ADRL L01A268
|
|
ADRL L01A268
|
|
ADRL L01A320
|
|
ADRL L01A37C
|
|
ADRL L019FEC
|
|
ADRL L01A3CC
|
|
ADRL L01A048
|
|
ADRL L01A268
|
|
ADRL L01A268
|
|
ADRL L01A268
|
|
ADRL L01A268
|
|
ADRL L01A268
|
|
L0163D4 DW $0010
|
|
DW $0005
|
|
DW $0010
|
|
DW $0005
|
|
DW $0010
|
|
DW $0005
|
|
DW $001C
|
|
DW $0016
|
|
DW $001D
|
|
DW $0005
|
|
DW $0029
|
|
DW $0016
|
|
DW $002A
|
|
DW $0005
|
|
DW $0036
|
|
DW $0016
|
|
DW $0037
|
|
DW $0005
|
|
DW $0043
|
|
DW $0016
|
|
DW $0044
|
|
DW $0005
|
|
DW $0050
|
|
DW $0016
|
|
DW $0051
|
|
DW $0005
|
|
DW $005D
|
|
DW $0016
|
|
DW $005E
|
|
DW $0005
|
|
DW $006A
|
|
DW $0016
|
|
DW $006B
|
|
DW $0005
|
|
DW $0077
|
|
DW $0016
|
|
DW $0078
|
|
DW $0005
|
|
DW $0084
|
|
DW $0016
|
|
DW $0085
|
|
DW $0005
|
|
DW $0091
|
|
DW $0016
|
|
DW $0010
|
|
DW $0017
|
|
DW $001C
|
|
DW $0028
|
|
DW $001D
|
|
DW $0017
|
|
DW $0029
|
|
DW $0028
|
|
DW $002A
|
|
DW $0017
|
|
DW $0036
|
|
DW $0028
|
|
DW $0037
|
|
DW $0017
|
|
DW $0043
|
|
DW $0028
|
|
DW $0044
|
|
DW $0017
|
|
DW $0050
|
|
DW $0028
|
|
DW $0051
|
|
DW $0017
|
|
DW $005D
|
|
DW $0028
|
|
DW $005E
|
|
DW $0017
|
|
DW $006A
|
|
DW $0028
|
|
DW $006B
|
|
DW $0017
|
|
DW $0077
|
|
DW $0028
|
|
DW $0078
|
|
DW $0017
|
|
DW $0084
|
|
DW $0028
|
|
DW $0085
|
|
DW $0017
|
|
DW $0091
|
|
DW $0028
|
|
L01647C STZ L019741
|
|
LDA $3E
|
|
BEQ L016484
|
|
RTS
|
|
|
|
L016484 LDA $34
|
|
BEQ L0164A3
|
|
PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L019E7C
|
|
PEA L019E7C
|
|
_PtInRect
|
|
PLA
|
|
BEQ L0164A3
|
|
JSR L013F7B
|
|
RTS
|
|
|
|
L0164A3 LDA $76
|
|
CMP #$0002
|
|
BEQ L0164AF
|
|
LDA #$0001
|
|
STA $3C
|
|
L0164AF LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GlobalToLocal
|
|
LDA $36
|
|
BEQ L0164D7
|
|
BMI L0164D7
|
|
LDA $44
|
|
BEQ L0164D7
|
|
JMPL L0160A9
|
|
|
|
L0164D7 JSR L013C36
|
|
JSR L015981
|
|
JSR L0118CC
|
|
LDA $34
|
|
BNE L0164F0
|
|
LDA L0196C5
|
|
STA L019681
|
|
LDA L0196C7
|
|
STA L019683
|
|
L0164F0 LDA $76
|
|
DEC
|
|
ASL
|
|
TAX
|
|
JSR (L0164F9,X)
|
|
RTS
|
|
|
|
L0164F9 DA L014A16
|
|
DA L0167C4
|
|
DA L01688D
|
|
DA L014FF9
|
|
DA L01666C
|
|
DA L016522
|
|
DA L016522
|
|
DA L016522
|
|
DA L01572E
|
|
DA L0174FD
|
|
DA L015F24
|
|
DA L0158BF
|
|
DA L01744A
|
|
DA L01565F
|
|
DA L0156E9
|
|
DA L016582
|
|
DA L016582
|
|
DA L016582
|
|
DA L015759
|
|
DA L01755F
|
|
RTS
|
|
|
|
L016522 PEA $0002
|
|
_SetPenMode
|
|
JSR L0182C2
|
|
JSL L0181CE
|
|
SEC
|
|
LDA $76
|
|
SBC #$0006
|
|
PHA
|
|
LDA L0196C9
|
|
AND #$0200
|
|
PHA
|
|
PEA $0000
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
JSR L017F84
|
|
JSR L017EED
|
|
PEA $0000
|
|
_SetPenMode
|
|
LDA #$0006
|
|
JSR L016620
|
|
LDX $66
|
|
LDY $6A
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L016582 PEA $0002
|
|
_SetPenMode
|
|
JSR L0182C2
|
|
JSL L0181CE
|
|
SEC
|
|
LDA $76
|
|
SBC #$0010
|
|
PHA
|
|
LDA L0196C9
|
|
AND #$0200
|
|
PHA
|
|
PEA $0000
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
JSR L017F84
|
|
JSR L017EED
|
|
PEA $0000
|
|
_SetPenMode
|
|
JSR L017ECF
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
SEC
|
|
LDA $76
|
|
SBC #$0010
|
|
ASL
|
|
TAX
|
|
JMP (L016660,X)
|
|
|
|
L0165EB _PaintRect
|
|
BRA L016612
|
|
L0165F4 SEC
|
|
LDA $6C
|
|
SBC $68
|
|
LSR
|
|
PHA
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
LSR
|
|
PHA
|
|
_PaintRRect
|
|
BRA L016612
|
|
L01660B _PaintOval
|
|
L016612 LDA #$0010
|
|
JSR L016620
|
|
LDX $66
|
|
LDY $6A
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L016620 PHA
|
|
JSR L017EDD
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
SEC
|
|
LDA $76
|
|
SBC $05,S
|
|
ASL
|
|
TAX
|
|
JMP (L016666,X)
|
|
|
|
L016637 _FrameRect
|
|
BRA L01665E
|
|
L016640 SEC
|
|
LDA $6C
|
|
SBC $68
|
|
LSR
|
|
PHA
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
LSR
|
|
PHA
|
|
_FrameRRect
|
|
BRA L01665E
|
|
L016657 _FrameOval
|
|
L01665E PLA
|
|
RTS
|
|
|
|
L016660 DA L0165EB
|
|
DA L0165F4
|
|
DA L01660B
|
|
L016666 DA L016637
|
|
DA L016640
|
|
DA L016657
|
|
L01666C LDA L0196C9
|
|
AND #$0200
|
|
STA L0167B8
|
|
JSR L017EED
|
|
JSL L0181CE
|
|
LDA L0196C5
|
|
STA L0167B0
|
|
LDA L0196C7
|
|
STA L0167B2
|
|
LDA L0196C5
|
|
STA L0167B4
|
|
LDA L0196C7
|
|
STA L0167B6
|
|
PEA $0002
|
|
_SetPenMode
|
|
JSR L0182C2
|
|
JSR L018126
|
|
JSR L016714
|
|
L0166A7 LDA #$0000
|
|
PHA
|
|
PHA
|
|
_StillDown
|
|
PLA
|
|
BNE L0166D2
|
|
PEA $0000
|
|
_SetPenMode
|
|
LDX $72
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_SetPenPat
|
|
BRL L016714
|
|
L0166D2 PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GetMouse
|
|
JSL L0181CE
|
|
JSR L018168
|
|
JSR L0139B0
|
|
JSR L01673C
|
|
LDA L0196C7
|
|
CMP L0167B6
|
|
BNE L0166FF
|
|
LDA L0196C5
|
|
CMP L0167B4
|
|
BNE L0166FF
|
|
BRL L0166A7
|
|
L0166FF JSR L016714
|
|
LDA L0196C7
|
|
STA L0167B6
|
|
LDA L0196C5
|
|
STA L0167B4
|
|
JSR L016714
|
|
BRL L0166A7
|
|
L016714 LDA L0167B2
|
|
PHA
|
|
LDA L0167B0
|
|
PHA
|
|
_MoveTo
|
|
LDA L0167B6
|
|
PHA
|
|
LDA L0167B4
|
|
PHA
|
|
_LineTo
|
|
LDX L0167B0
|
|
LDY L0167B4
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L01673C LDA L0167B8
|
|
BNE L016742
|
|
RTS
|
|
|
|
L016742 SEC
|
|
LDA L0167B2
|
|
SBC L0196C7
|
|
BNE L01674E
|
|
BRL L0167A9
|
|
L01674E BPL L016754
|
|
EOR #$FFFF
|
|
INC
|
|
L016754 STA L0167BC
|
|
LSR
|
|
STA L0167C0
|
|
SEC
|
|
LDA L0167B0
|
|
SBC L0196C5
|
|
STA L0167C2
|
|
BNE L01676A
|
|
BRL L016789
|
|
L01676A BPL L016770
|
|
EOR #$FFFF
|
|
INC
|
|
L016770 STA L0167BA
|
|
LSR
|
|
STA L0167BE
|
|
LDA L0167BA
|
|
CMP L0167C0
|
|
BCC L016789
|
|
LDA L0167BC
|
|
CMP L0167BE
|
|
BCC L0167A9
|
|
BRA L016790
|
|
L016789 LDA L0167B0
|
|
STA L0196C5
|
|
RTS
|
|
|
|
L016790 LDA L0167C2
|
|
BMI L01679E
|
|
SEC
|
|
LDA L0167B0
|
|
SBC L0167BC
|
|
BRA L0167A5
|
|
L01679E CLC
|
|
LDA L0167BC
|
|
ADC L0167B0
|
|
L0167A5 STA L0196C5
|
|
RTS
|
|
|
|
L0167A9 LDA L0167B2
|
|
STA L0196C7
|
|
RTS
|
|
|
|
L0167B0 DW $0000
|
|
L0167B2 DW $0000
|
|
L0167B4 DW $0000
|
|
L0167B6 DW $0000
|
|
L0167B8 DW $0000
|
|
L0167BA DW $0000
|
|
L0167BC DW $0000
|
|
L0167BE DW $0000
|
|
L0167C0 DW $0000
|
|
L0167C2 DW $0000
|
|
L0167C4 JSR L01192F
|
|
STZ L01688B
|
|
LDA L0196C9
|
|
AND #$0200
|
|
STA $50
|
|
L0167D2 LDA L0196C7
|
|
STA L016885
|
|
LDA L0196C5
|
|
STA L016883
|
|
L0167DE LDA #$0000
|
|
PHA
|
|
PHA
|
|
_StillDown
|
|
PLA
|
|
BNE L01681B
|
|
JSR L0118CC
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA $58
|
|
PHA
|
|
LDA $56
|
|
PHA
|
|
_SetOrigin
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0056
|
|
PHA
|
|
_ClipRect
|
|
RTS
|
|
|
|
L01681B PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GetMouse
|
|
SEC
|
|
LDA L016885
|
|
SBC L0196C7
|
|
STA L016889
|
|
SEC
|
|
LDA L016883
|
|
SBC L0196C5
|
|
STA L016887
|
|
BNE L016843
|
|
LDA L016889
|
|
BEQ L0167DE
|
|
L016843 LDA $50
|
|
BEQ L016867
|
|
LDA L016889
|
|
PHA
|
|
LDA L016887
|
|
PHA
|
|
LDA L016885
|
|
PHA
|
|
LDA L016883
|
|
PHA
|
|
LDA L01688B
|
|
PHA
|
|
JSL L01855E
|
|
PLA
|
|
STA L016887
|
|
PLA
|
|
STA L016889
|
|
L016867 LDX L016889
|
|
LDY L016887
|
|
JSR L0182E5
|
|
JSR L011953
|
|
LDA #$0001
|
|
STA L01688B
|
|
LDA $34
|
|
BEQ L016880
|
|
JSR L014117
|
|
L016880 BRL L0167D2
|
|
L016883 DW $0000
|
|
L016885 DW $0000
|
|
L016887 DW $0000
|
|
L016889 DW $0000
|
|
L01688B DW $0000
|
|
L01688D JSL L0181CE
|
|
_HideCursor
|
|
PEA $0000
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
_GetPixel
|
|
PLA
|
|
STA L0168F0
|
|
_ShowCursor
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0056
|
|
PHA
|
|
JSL L0149A7
|
|
PHX
|
|
PHA
|
|
LDA L0168F0
|
|
PHA
|
|
LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
_HideCursor
|
|
JSR L0168F2
|
|
BCC L0168E5
|
|
JSR L011953
|
|
L0168E5 _ShowCursor
|
|
JSR L014117
|
|
RTS
|
|
|
|
L0168F0 DW $0000
|
|
L0168F2 PLA
|
|
STA L016FB0
|
|
PLA
|
|
STA L016F70
|
|
PLA
|
|
STA L016F6E
|
|
LDA #$FFFF
|
|
STA L016F72
|
|
BRA L016922
|
|
L016906 PLA
|
|
STA L016FB0
|
|
STZ L016F70
|
|
STZ L016F86
|
|
STZ L016F8C
|
|
STZ L016F88
|
|
STZ L016F6E
|
|
STZ L016F8E
|
|
STZ L016F92
|
|
STZ L016F72
|
|
L016922 PLA
|
|
AND #$000F
|
|
STA L016E6A
|
|
STA L016E72
|
|
XBA
|
|
STA L016E6E
|
|
TSB L016E72
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
STA L016E6C
|
|
TSB L016E72
|
|
XBA
|
|
STA L016E70
|
|
TSB L016E72
|
|
PLA
|
|
STA $16
|
|
PLA
|
|
STA $18
|
|
PLA
|
|
STA $28
|
|
PLA
|
|
STA $2A
|
|
SEC
|
|
LDY #$0004
|
|
LDA [$28],Y
|
|
SBC [$28]
|
|
DEC
|
|
STA L016F68
|
|
SEC
|
|
LDY #$0006
|
|
LDA [$28],Y
|
|
LDY #$0002
|
|
SBC [$28],Y
|
|
LSR
|
|
LSR
|
|
STA L016F6A
|
|
ASL
|
|
STA L016F84
|
|
PLA
|
|
STA $2C
|
|
PLA
|
|
STA $2E
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
LDY #$0006
|
|
LDA [$2C],Y
|
|
PHA
|
|
STA L016F66
|
|
SEC
|
|
LDA [$28]
|
|
LDY #$0008
|
|
SBC [$2C],Y
|
|
PHA
|
|
_Multiply
|
|
PLA
|
|
STA L016FA6
|
|
PLA
|
|
STA L016FA8
|
|
SEC
|
|
LDY #$0002
|
|
LDA [$28],Y
|
|
LDY #$000A
|
|
SBC [$2C],Y
|
|
LSR
|
|
CLC
|
|
ADC L016FA6
|
|
STA L016FA6
|
|
LDA L016FA8
|
|
ADC #$0000
|
|
STA L016FA8
|
|
CLC
|
|
LDA L016FA6
|
|
LDY #$0002
|
|
ADC [$2C],Y
|
|
STA L016F62
|
|
LDA L016FA8
|
|
LDY #$0004
|
|
ADC [$2C],Y
|
|
STA L016F64
|
|
LDA L016FB0
|
|
PHA
|
|
LDA L016F6A
|
|
BPL L0169DB
|
|
BRL L016C53
|
|
L0169DB LDA L016F68
|
|
BPL L0169E3
|
|
BRL L016C53
|
|
L0169E3 PHA
|
|
PHA
|
|
LDA L016F6A
|
|
DEC
|
|
LSR
|
|
LSR
|
|
INC
|
|
STA L016F6C
|
|
ASL
|
|
STA L016FAA
|
|
PHA
|
|
DEC
|
|
DEC
|
|
STA L016F82
|
|
LDA L016F68
|
|
INC
|
|
PHA
|
|
_Multiply
|
|
PLA
|
|
STA L016FA6
|
|
PLA
|
|
STA L016FA8
|
|
PHA
|
|
PHA
|
|
LDA L016FA6
|
|
ASL
|
|
PHA
|
|
LDA L016FA8
|
|
ROL
|
|
TAX
|
|
PLA
|
|
CLC
|
|
ADC L016FAA
|
|
TAY
|
|
TXA
|
|
ADC #$0000
|
|
PHA
|
|
PHY
|
|
LDA L01967F
|
|
PHA
|
|
PEA $8010
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_NewHandle
|
|
BCC L016A48
|
|
PLA
|
|
PLA
|
|
LDX #$0002
|
|
LDA #$0201
|
|
JSL L017D37
|
|
SEC
|
|
RTS
|
|
|
|
L016A48 PLA
|
|
STA $0A
|
|
STA L016F96
|
|
PLA
|
|
STA $0C
|
|
STA L016F98
|
|
LDA [$0A]
|
|
STA L016FA2
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
STA L016FA4
|
|
CLC
|
|
LDA L016FA2
|
|
ADC L016FAA
|
|
STA L016F9A
|
|
LDA L016FA4
|
|
ADC #$0000
|
|
STA L016F9C
|
|
CLC
|
|
LDA L016F9A
|
|
ADC L016FA6
|
|
STA L016F9E
|
|
LDA L016F9C
|
|
ADC L016FA8
|
|
STA L016FA0
|
|
LDA L016F9E
|
|
STA $0E
|
|
LDA L016FA0
|
|
STA $10
|
|
LDY L016F68
|
|
L016A94 PHY
|
|
LDY L016F82
|
|
LDA #$FFFF
|
|
L016A9B STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L016A9B
|
|
CLC
|
|
LDA $0E
|
|
ADC L016FAA
|
|
STA $0E
|
|
LDA $10
|
|
ADC #$0000
|
|
STA $10
|
|
PLY
|
|
DEY
|
|
BPL L016A94
|
|
JSR L016DA8
|
|
LDA L016F9A
|
|
STA $0A
|
|
LDA L016F9C
|
|
STA $0C
|
|
LDA L016F9E
|
|
STA $0E
|
|
LDA L016FA0
|
|
STA $10
|
|
LDA L016F72
|
|
BNE L016AE2
|
|
LDA L016F68
|
|
STA L016F8A
|
|
LDA L016F6C
|
|
STA L016F90
|
|
STA L016F94
|
|
BRL L016B5C
|
|
L016AE2 SEC
|
|
LDA L016F70
|
|
SBC [$28]
|
|
STA L016F70
|
|
SEC
|
|
LDA L016F6E
|
|
LDY #$0002
|
|
SBC [$28],Y
|
|
STA L016F6E
|
|
PHA
|
|
PHA
|
|
LDA L016F70
|
|
PHA
|
|
LDA L016FAA
|
|
PHA
|
|
_Multiply
|
|
PLA
|
|
TAX
|
|
CLC
|
|
ADC L016F9E
|
|
STA $0E
|
|
PLA
|
|
TAY
|
|
ADC L016FA0
|
|
STA $10
|
|
CLC
|
|
TXA
|
|
ADC L016F9A
|
|
STA $0A
|
|
TYA
|
|
ADC L016F9C
|
|
STA $0C
|
|
LDA L016F6E
|
|
LSR
|
|
LSR
|
|
LSR
|
|
TAY
|
|
LDA L016F6E
|
|
AND #$0007
|
|
ASL
|
|
TAX
|
|
LDA L016FB2,X
|
|
AND [$0E],Y
|
|
STA [$0E],Y
|
|
TYA
|
|
AND #$FFFE
|
|
STA L016F6E
|
|
STA L016F8E
|
|
STA L016F90
|
|
STA L016F92
|
|
STA L016F94
|
|
LDA L016F70
|
|
STA L016F86
|
|
STA L016F88
|
|
STA L016F8A
|
|
STA L016F8C
|
|
L016B5C LDA L016FA2
|
|
STA $12
|
|
LDA L016FA4
|
|
STA $14
|
|
LDY L016F82
|
|
LDA L016F72
|
|
L016B6C STA [$12],Y
|
|
DEY
|
|
DEY
|
|
BPL L016B6C
|
|
STZ L016F76
|
|
L016B75 STZ L016F7E
|
|
LDA L016F76
|
|
BMI L016BBD
|
|
LDY L016F88
|
|
BNE L016B8C
|
|
LDA L016FA2
|
|
STA $12
|
|
LDA L016FA4
|
|
STA $14
|
|
L016B8C STZ L016F80
|
|
JSR L016C6D
|
|
LDA L016F80
|
|
BNE L016BA0
|
|
CPY L016F8A
|
|
BEQ L016BA3
|
|
BCC L016BA3
|
|
BRA L016BAE
|
|
L016BA0 STY L016F88
|
|
L016BA3 JSR L016D5A
|
|
INY
|
|
CPY L016F68
|
|
BEQ L016B8C
|
|
BCC L016B8C
|
|
L016BAE DEY
|
|
STY L016F86
|
|
LDA L016F88
|
|
STA L016F8A
|
|
JSR L016D81
|
|
BRA L016BF7
|
|
L016BBD LDY L016F86
|
|
CPY L016F68
|
|
BNE L016BCF
|
|
LDA L016FA2
|
|
STA $12
|
|
LDA L016FA4
|
|
STA $14
|
|
L016BCF STZ L016F80
|
|
JSR L016C6D
|
|
LDA L016F80
|
|
BNE L016BE1
|
|
CPY L016F8C
|
|
BCS L016BE4
|
|
BRA L016BEA
|
|
L016BE1 STY L016F86
|
|
L016BE4 JSR L016D81
|
|
DEY
|
|
BPL L016BCF
|
|
L016BEA INY
|
|
STY L016F88
|
|
JSR L016D5A
|
|
LDA L016F86
|
|
STA L016F8C
|
|
L016BF7 LDA L016F8E
|
|
STA L016F92
|
|
LDA L016F90
|
|
STA L016F94
|
|
LDA #$0000
|
|
STA L016F90
|
|
DEC
|
|
STA L016F8E
|
|
LDA L016F76
|
|
EOR #$FFFF
|
|
STA L016F76
|
|
LDA L016F7E
|
|
BPL L016C1E
|
|
BRL L016B75
|
|
L016C1E LDA L016F72
|
|
BNE L016C50
|
|
LDA L016F9E
|
|
STA $0E
|
|
LDA L016FA0
|
|
STA $10
|
|
LDX L016F68
|
|
L016C30 LDY L016F82
|
|
L016C33 LDA [$0E],Y
|
|
EOR #$FFFF
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L016C33
|
|
CLC
|
|
LDA $0E
|
|
ADC L016FAA
|
|
STA $0E
|
|
LDA $10
|
|
ADC #$0000
|
|
STA $10
|
|
DEX
|
|
BPL L016C30
|
|
L016C50 JSR L016E74
|
|
L016C53 LDA L016F96
|
|
LDX L016F98
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_HUnlock
|
|
_DisposeHandle
|
|
CLC
|
|
RTS
|
|
|
|
L016C6D PHY
|
|
LDX L016F72
|
|
LDY L016F92
|
|
BEQ L016C7E
|
|
PHY
|
|
DEY
|
|
DEY
|
|
LDA [$0E],Y
|
|
XBA
|
|
TAX
|
|
PLY
|
|
L016C7E LDA [$0E],Y
|
|
BEQ L016CB0
|
|
STA L016F7A
|
|
LDA [$0A],Y
|
|
EOR #$FFFF
|
|
STA L016F78
|
|
LDA [$12],Y
|
|
AND L016F7A
|
|
ORA L016F78
|
|
L016C95 STX L016F74
|
|
STA L016F7A
|
|
XBA
|
|
LSR L016F74
|
|
ROR
|
|
XBA
|
|
AND L016F7A
|
|
ORA L016F78
|
|
CMP L016F7A
|
|
BNE L016C95
|
|
CMP [$0E],Y
|
|
BNE L016CB9
|
|
L016CB0 CPY L016F94
|
|
BEQ L016CDB
|
|
BCC L016CDB
|
|
BRA L016CE4
|
|
L016CB9 SEC
|
|
ROR L016F7E
|
|
SEC
|
|
ROR L016F80
|
|
STA [$0E],Y
|
|
CPY L016F94
|
|
BCC L016CCB
|
|
STY L016F94
|
|
L016CCB CPY L016F8E
|
|
BCS L016CD3
|
|
STY L016F8E
|
|
L016CD3 CPY L016F90
|
|
BCC L016CDB
|
|
STY L016F90
|
|
L016CDB XBA
|
|
TAX
|
|
INY
|
|
INY
|
|
CPY L016FAA
|
|
BCC L016C7E
|
|
L016CE4 LDX L016F72
|
|
LDY L016F94
|
|
CPY L016F82
|
|
BEQ L016CF7
|
|
PHY
|
|
INY
|
|
INY
|
|
LDA [$0E],Y
|
|
XBA
|
|
TAX
|
|
PLY
|
|
L016CF7 LDA [$0E],Y
|
|
BEQ L016D29
|
|
STA L016F7A
|
|
LDA [$0A],Y
|
|
EOR #$FFFF
|
|
STA L016F78
|
|
LDA [$12],Y
|
|
AND L016F7A
|
|
ORA L016F78
|
|
L016D0E STX L016F74
|
|
STA L016F7A
|
|
XBA
|
|
ASL L016F74
|
|
ROL
|
|
XBA
|
|
AND L016F7A
|
|
ORA L016F78
|
|
CMP L016F7A
|
|
BNE L016D0E
|
|
CMP [$0E],Y
|
|
BNE L016D30
|
|
L016D29 CPY L016F92
|
|
BCS L016D52
|
|
BRA L016D58
|
|
L016D30 SEC
|
|
ROR L016F7E
|
|
SEC
|
|
ROR L016F80
|
|
STA [$0E],Y
|
|
CPY L016F92
|
|
BCS L016D42
|
|
STY L016F92
|
|
L016D42 CPY L016F8E
|
|
BCS L016D4A
|
|
STY L016F8E
|
|
L016D4A CPY L016F90
|
|
BCC L016D52
|
|
STY L016F90
|
|
L016D52 XBA
|
|
TAX
|
|
DEY
|
|
DEY
|
|
BPL L016CF7
|
|
L016D58 PLY
|
|
RTS
|
|
|
|
L016D5A CLC
|
|
LDA $0A
|
|
ADC L016FAA
|
|
STA $0A
|
|
LDA $0C
|
|
ADC #$0000
|
|
STA $0C
|
|
LDA $0E
|
|
STA $12
|
|
LDA $10
|
|
STA $14
|
|
CLC
|
|
LDA $0E
|
|
ADC L016FAA
|
|
STA $0E
|
|
LDA $10
|
|
ADC #$0000
|
|
STA $10
|
|
RTS
|
|
|
|
L016D81 SEC
|
|
LDA $0A
|
|
SBC L016FAA
|
|
STA $0A
|
|
LDA $0C
|
|
SBC #$0000
|
|
STA $0C
|
|
LDA $0E
|
|
STA $12
|
|
LDA $10
|
|
STA $14
|
|
SEC
|
|
LDA $0E
|
|
SBC L016FAA
|
|
STA $0E
|
|
LDA $10
|
|
SBC #$0000
|
|
STA $10
|
|
RTS
|
|
|
|
L016DA8 LDA L016F62
|
|
STA $0A
|
|
LDA L016F64
|
|
STA $0C
|
|
LDA L016F9A
|
|
STA $0E
|
|
LDA L016F9C
|
|
STA $10
|
|
LDY #$0000
|
|
L016DBF PHY
|
|
LDA L016F6C
|
|
ASL
|
|
ASL
|
|
DEC
|
|
ASL
|
|
TAY
|
|
L016DC8 PHY
|
|
LDA L016F72
|
|
EOR #$FFFF
|
|
CPY L016F84
|
|
BCS L016DD7
|
|
LDA [$0A],Y
|
|
XBA
|
|
L016DD7 CMP L016E72
|
|
BNE L016DEC
|
|
LDA L016F7A
|
|
SEC
|
|
ROR
|
|
SEC
|
|
ROR
|
|
SEC
|
|
ROR
|
|
SEC
|
|
ROR
|
|
STA L016F7A
|
|
BRA L016E20
|
|
L016DEC TAX
|
|
AND L016E62
|
|
CMP L016E6A
|
|
BEQ L016DF6
|
|
CLC
|
|
L016DF6 ROR L016F7A
|
|
TXA
|
|
AND L016E64
|
|
CMP L016E6C
|
|
BEQ L016E03
|
|
CLC
|
|
L016E03 ROR L016F7A
|
|
TXA
|
|
AND L016E66
|
|
CMP L016E6E
|
|
BEQ L016E10
|
|
CLC
|
|
L016E10 ROR L016F7A
|
|
TXA
|
|
AND L016E68
|
|
CMP L016E70
|
|
BEQ L016E1D
|
|
CLC
|
|
L016E1D ROR L016F7A
|
|
L016E20 LDA $01,S
|
|
AND #$0007
|
|
BNE L016E32
|
|
LDA $01,S
|
|
LSR
|
|
LSR
|
|
TAY
|
|
LDA L016F7A
|
|
XBA
|
|
STA [$0E],Y
|
|
L016E32 PLY
|
|
DEY
|
|
DEY
|
|
BPL L016DC8
|
|
CLC
|
|
LDA $0A
|
|
ADC L016F66
|
|
STA $0A
|
|
LDA $0C
|
|
ADC #$0000
|
|
STA $0C
|
|
CLC
|
|
LDA $0E
|
|
ADC L016FAA
|
|
STA $0E
|
|
LDA $10
|
|
ADC #$0000
|
|
STA $10
|
|
PLY
|
|
INY
|
|
CPY L016F68
|
|
BEQ L016E5E
|
|
BCS L016E61
|
|
L016E5E BRL L016DBF
|
|
L016E61 RTS
|
|
|
|
L016E62 DW $000F
|
|
L016E64 DW $00F0
|
|
L016E66 DW $0F00
|
|
L016E68 DW $F000
|
|
L016E6A DW $000F
|
|
L016E6C DW $00F0
|
|
L016E6E DW $0F00
|
|
L016E70 DW $F000
|
|
L016E72 DW $FFFF
|
|
L016E74 LDA L016F9E
|
|
STA $0A
|
|
LDA L016FA0
|
|
STA $0C
|
|
LDA L016F62
|
|
STA $0E
|
|
LDA L016F64
|
|
STA $10
|
|
LDY #$0000
|
|
L016E8B PHY
|
|
TYA
|
|
CLC
|
|
ADC [$28]
|
|
AND #$0007
|
|
ASL
|
|
ASL
|
|
STA L016FAC
|
|
LDA L016F6C
|
|
ASL
|
|
ASL
|
|
DEC
|
|
ASL
|
|
TAY
|
|
L016EA0 PHY
|
|
TYA
|
|
AND #$0007
|
|
CMP #$0006
|
|
BNE L016EC5
|
|
LDA $01,S
|
|
LSR
|
|
LSR
|
|
DEC
|
|
TAY
|
|
LDA [$0A],Y
|
|
CMP #$FFFF
|
|
BNE L016EBF
|
|
PLA
|
|
SEC
|
|
SBC #$0006
|
|
TAY
|
|
BRA L016F30
|
|
L016EBF XBA
|
|
STA L016F7A
|
|
BRA L016ED0
|
|
L016EC5 SEC
|
|
LDA L016F7A
|
|
ROR
|
|
ROR
|
|
ROR
|
|
ROR
|
|
STA L016F7A
|
|
L016ED0 STZ L016F7C
|
|
LDA L016F7A
|
|
LSR
|
|
PHA
|
|
BCC L016EE0
|
|
LDA #$000F
|
|
TSB L016F7C
|
|
L016EE0 PLA
|
|
LSR
|
|
PHA
|
|
BCC L016EEB
|
|
LDA #$00F0
|
|
TSB L016F7C
|
|
L016EEB PLA
|
|
LSR
|
|
PHA
|
|
BCC L016EF6
|
|
LDA #$0F00
|
|
TSB L016F7C
|
|
L016EF6 PLA
|
|
LSR
|
|
PHA
|
|
BCC L016F01
|
|
LDA #$F000
|
|
TSB L016F7C
|
|
L016F01 PLA
|
|
PLY
|
|
CPY L016F84
|
|
BCS L016F30
|
|
LDA L016F7C
|
|
XBA
|
|
PHY
|
|
PHA
|
|
AND [$0E],Y
|
|
STA L016FAE
|
|
LDY #$0002
|
|
LDA [$28],Y
|
|
LSR
|
|
CLC
|
|
ADC $03,S
|
|
AND #$0002
|
|
CLC
|
|
ADC L016FAC
|
|
TAY
|
|
PLA
|
|
EOR #$FFFF
|
|
AND [$16],Y
|
|
ORA L016FAE
|
|
PLY
|
|
STA [$0E],Y
|
|
L016F30 DEY
|
|
DEY
|
|
BMI L016F37
|
|
BRL L016EA0
|
|
L016F37 CLC
|
|
LDA $0A
|
|
ADC L016FAA
|
|
STA $0A
|
|
LDA $0C
|
|
ADC #$0000
|
|
STA $0C
|
|
CLC
|
|
LDA $0E
|
|
ADC L016F66
|
|
STA $0E
|
|
LDA $10
|
|
ADC #$0000
|
|
STA $10
|
|
PLY
|
|
INY
|
|
CPY L016F68
|
|
BCS L016F5F
|
|
L016F5C BRL L016E8B
|
|
L016F5F BEQ L016F5C
|
|
RTS
|
|
|
|
L016F62 DW $0000
|
|
L016F64 DW $0000
|
|
L016F66 DW $0000
|
|
L016F68 DW $0000
|
|
L016F6A DW $0000
|
|
L016F6C DW $0000
|
|
L016F6E DW $0000
|
|
L016F70 DW $0000
|
|
L016F72 DW $0000
|
|
L016F74 DW $0000
|
|
L016F76 DW $0000
|
|
L016F78 DW $0000
|
|
L016F7A DW $0000
|
|
L016F7C DW $0000
|
|
L016F7E DW $0000
|
|
L016F80 DW $0000
|
|
L016F82 DW $0000
|
|
L016F84 DW $0000
|
|
L016F86 DW $0000
|
|
L016F88 DW $0000
|
|
L016F8A DW $0000
|
|
L016F8C DW $0000
|
|
L016F8E DW $0000
|
|
L016F90 DW $0000
|
|
L016F92 DW $0000
|
|
L016F94 DW $0000
|
|
L016F96 DW $0000
|
|
L016F98 DW $0000
|
|
L016F9A DW $0000
|
|
L016F9C DW $0000
|
|
L016F9E DW $0000
|
|
L016FA0 DW $0000
|
|
L016FA2 DW $0000
|
|
L016FA4 DW $0000
|
|
L016FA6 DW $0000
|
|
L016FA8 DW $0000
|
|
L016FAA DW $0000
|
|
L016FAC DW $0000
|
|
L016FAE DW $0000
|
|
L016FB0 DW $0000
|
|
L016FB2 DW $FF7F
|
|
DW $FFBF
|
|
DW $FFDF
|
|
DW $FFEF
|
|
DW $FFF7
|
|
DW $FFFB
|
|
DW $FFFD
|
|
DW $FFFE
|
|
L016FC2 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PEA ^L019771
|
|
PEA L019771
|
|
_OpenPort
|
|
PEA ^L017338
|
|
PEA L017338
|
|
_SetPortLoc
|
|
PEA ^L017340
|
|
PEA L017340
|
|
_PaintRect
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_SetPenPat
|
|
LDA $7A
|
|
ASL
|
|
TAX
|
|
JSR (L0172F0,X)
|
|
PEA ^L019771
|
|
PEA L019771
|
|
_ClosePort
|
|
LDA #L019EE4
|
|
STA L019EDC
|
|
LDA #^L019EE4
|
|
STA L019EDC+2
|
|
LDX #$003E
|
|
L01701C LDA L019EE8,X
|
|
STA L019F6C,X
|
|
DEX
|
|
DEX
|
|
BPL L01701C
|
|
LDA #L019F6C
|
|
STA $0A
|
|
LDA #^L019F6C
|
|
STA $0C
|
|
LDA #L019FAC
|
|
STA $0E
|
|
LDA #^L019FAC
|
|
STA $10
|
|
LDX #$0008
|
|
L01703D LDY #$0000
|
|
STZ L017348
|
|
L017043 LDA [$0A],Y
|
|
XBA
|
|
PHA
|
|
LSR L017348
|
|
ROR
|
|
LSR L017348
|
|
ROR
|
|
LSR L017348
|
|
ROR
|
|
LSR L017348
|
|
ROR
|
|
XBA
|
|
STA [$0E],Y
|
|
PLA
|
|
STA L017348
|
|
INY
|
|
INY
|
|
CPY #$0008
|
|
BCC L017043
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0008
|
|
STA $0E
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0008
|
|
STA $0A
|
|
DEX
|
|
BNE L01703D
|
|
PEA $0000
|
|
PEA $0090
|
|
_SetPort
|
|
PLB
|
|
RTL
|
|
|
|
L017087 LDX #$000A
|
|
LDY #$0008
|
|
BRA L0170A5
|
|
L01708F LDX #$0007
|
|
LDY #$0005
|
|
BRA L0170A5
|
|
L017097 LDX #$0004
|
|
LDY #$0003
|
|
BRA L0170A5
|
|
L01709F LDX #$0002
|
|
LDY #$0002
|
|
L0170A5 STX L017336
|
|
STY L017334
|
|
PHX
|
|
PHY
|
|
_SetPenSize
|
|
PEA ^L017330
|
|
PEA L017330
|
|
_PaintRect
|
|
RTS
|
|
|
|
L0170C2 LDA #L01734A
|
|
BRA L0170D4
|
|
L0170C7 LDA #L01738A
|
|
BRA L0170D4
|
|
L0170CC LDA #L0173CA
|
|
BRA L0170D4
|
|
L0170D1 LDA #L01740A
|
|
L0170D4 STA $0A
|
|
LDA #L019EE8
|
|
STA $0E
|
|
LDA #^L019EE8
|
|
STA $10
|
|
LDY #$003E
|
|
L0170E3 LDA ($0A),Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L0170E3
|
|
RTS
|
|
|
|
L0170EC LDA #$0007
|
|
BRA L0170FE
|
|
L0170F1 LDA #$0005
|
|
BRA L0170FE
|
|
L0170F6 LDA #$0004
|
|
BRA L0170FE
|
|
L0170FB LDA #$0002
|
|
L0170FE PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PHA
|
|
PEA $0002
|
|
PEA $0001
|
|
_SetPenSize
|
|
_MoveTo
|
|
_LineTo
|
|
RTS
|
|
|
|
L017122 LDA #$0007
|
|
BRA L017134
|
|
L017127 LDA #$0005
|
|
BRA L017134
|
|
L01712C LDA #$0004
|
|
BRA L017134
|
|
L017131 LDA #$0002
|
|
L017134 PHA
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
PEA $0002
|
|
PEA $0001
|
|
_SetPenSize
|
|
_MoveTo
|
|
_LineTo
|
|
RTS
|
|
|
|
L017157 PEA $0002
|
|
PEA $0001
|
|
_SetPenSize
|
|
LDA #$0007
|
|
BRA L01719B
|
|
L017169 PEA $0002
|
|
PEA $0001
|
|
_SetPenSize
|
|
LDA #$0006
|
|
BRA L01719B
|
|
L01717B LDA #$0001
|
|
PHA
|
|
PHA
|
|
_SetPenSize
|
|
LDA #$0004
|
|
BRA L01719B
|
|
L01718C LDA #$0001
|
|
PHA
|
|
PHA
|
|
_SetPenSize
|
|
LDA #$0002
|
|
L01719B PEA $0000
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_MoveTo
|
|
_LineTo
|
|
RTS
|
|
|
|
L0171B3 LDA #$0009
|
|
BRA L0171C5
|
|
L0171B8 LDA #$0007
|
|
BRA L0171C5
|
|
L0171BD LDA #$0005
|
|
BRA L0171C5
|
|
L0171C2 LDA #$0003
|
|
L0171C5 PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0001
|
|
PEA $0001
|
|
_SetPenSize
|
|
_MoveTo
|
|
_LineTo
|
|
RTS
|
|
|
|
L0171EB LDX #$0000
|
|
LDY #$0006
|
|
JSR L018210
|
|
LDX #$0002
|
|
LDY #$0004
|
|
JSR L018210
|
|
LDX #$0004
|
|
LDY #$0002
|
|
JSR L018210
|
|
LDX #$0006
|
|
LDY #$0000
|
|
JMP L018210
|
|
|
|
L01720F LDX #$0000
|
|
LDY #$0002
|
|
JSR L018210
|
|
LDX #$0002
|
|
LDY #$0000
|
|
JMP L018210
|
|
|
|
L017221 LDX #$0000
|
|
TXY
|
|
JSR L018210
|
|
LDX #$0002
|
|
TXY
|
|
JSR L018210
|
|
LDX #$0004
|
|
TXY
|
|
JSR L018210
|
|
LDX #$0006
|
|
TXY
|
|
JMP L018210
|
|
|
|
L01723D LDX #$0000
|
|
TXY
|
|
JSR L018210
|
|
LDX #$0002
|
|
TXY
|
|
JMP L018210
|
|
|
|
L01724B LDX #$0000
|
|
TXY
|
|
JSR L018210
|
|
LDX #$0000
|
|
LDY #$0002
|
|
JSR L018210
|
|
LDX #$0000
|
|
LDY #$0004
|
|
JSR L018210
|
|
LDX #$0000
|
|
LDY #$0006
|
|
JMP L018210
|
|
|
|
L01726D LDX #$0000
|
|
TXY
|
|
JSR L018210
|
|
LDX #$0002
|
|
LDY #$0000
|
|
JSR L018210
|
|
LDX #$0004
|
|
LDY #$0000
|
|
JSR L018210
|
|
LDX #$0006
|
|
LDY #$0000
|
|
JMP L018210
|
|
|
|
L01728F LDX #$0003
|
|
LDY #$0000
|
|
JSR L018210
|
|
LDX #$0007
|
|
LDY #$0000
|
|
JSR L018210
|
|
LDX #$0000
|
|
LDY #$0001
|
|
JSR L018210
|
|
LDX #$0003
|
|
LDY #$0002
|
|
JSR L018210
|
|
LDX #$0007
|
|
LDY #$0002
|
|
JSR L018210
|
|
LDX #$0001
|
|
LDY #$0003
|
|
JSR L018210
|
|
LDX #$0004
|
|
LDY #$0004
|
|
JSR L018210
|
|
LDX #$0000
|
|
LDY #$0005
|
|
JSR L018210
|
|
LDX #$0007
|
|
LDY #$0005
|
|
JSR L018210
|
|
LDX #$0003
|
|
LDY #$0006
|
|
JMP L018210
|
|
|
|
L0172E9 LDX #$0000
|
|
TXY
|
|
JMP L018210
|
|
|
|
L0172F0 DA L017087
|
|
DA L01708F
|
|
DA L017097
|
|
DA L01709F
|
|
DA L0170C2
|
|
DA L0170C7
|
|
DA L0170CC
|
|
DA L0170D1
|
|
DA L0170EC
|
|
DA L0170F1
|
|
DA L0170F6
|
|
DA L0170FB
|
|
DA L017122
|
|
DA L017127
|
|
DA L01712C
|
|
DA L017131
|
|
DA L017157
|
|
DA L017169
|
|
DA L01717B
|
|
DA L01718C
|
|
DA L0171B3
|
|
DA L0171B8
|
|
DA L0171BD
|
|
DA L0171C2
|
|
DA L0171EB
|
|
DA L01720F
|
|
DA L017221
|
|
DA L01723D
|
|
DA L01724B
|
|
DA L01726D
|
|
DA L01728F
|
|
DA L0172E9
|
|
L017330 DW $0000
|
|
DW $0000
|
|
L017334 DW $0000
|
|
L017336 DW $0000
|
|
L017338 DW $0000
|
|
ADRL L019EE8
|
|
DW $0008
|
|
L017340 DW $0000
|
|
DW $0000
|
|
DW $0008
|
|
DW $0010
|
|
L017348 DW $0000
|
|
L01734A HEX 00FFFFFF00000000
|
|
HEX 0FFFFFFFF0000000
|
|
HEX FFFFFFFFFF000000
|
|
HEX FFFFFFFFFF000000
|
|
HEX FFFFFFFFFF000000
|
|
HEX FFFFFFFFFF000000
|
|
HEX 0FFFFFFFF0000000
|
|
HEX 00FFFFFF00000000
|
|
L01738A HEX 00FFFF0000000000
|
|
HEX 0FFFFFF000000000
|
|
HEX FFFFFFFF00000000
|
|
HEX FFFFFFFF00000000
|
|
HEX FFFFFFFF00000000
|
|
HEX 0FFFFFF000000000
|
|
HEX 00FFFF0000000000
|
|
HEX 0000000000000000
|
|
L0173CA HEX 0FFFF00000000000
|
|
HEX FFFFFF0000000000
|
|
HEX FFFFFF0000000000
|
|
HEX FFFFFF0000000000
|
|
HEX 0FFFF00000000000
|
|
HEX 0000000000000000
|
|
HEX 0000000000000000
|
|
HEX 0000000000000000
|
|
L01740A HEX 0FF0000000000000
|
|
HEX FFFF000000000000
|
|
HEX FFFF000000000000
|
|
HEX 0FF0000000000000
|
|
HEX 0000000000000000
|
|
HEX 0000000000000000
|
|
HEX 0000000000000000
|
|
HEX 0000000000000000
|
|
L01744A _PenNormal
|
|
LDA #$0007
|
|
STA L01975F
|
|
JSR L017ECF
|
|
JSL L0181CE
|
|
LDA L0196C5
|
|
STA L0174AF
|
|
L017464 JSR L0174B3
|
|
LDX L0174AF
|
|
LDY L0196C5
|
|
JSR L01412A
|
|
LDX L0196C7
|
|
STX L0174B1
|
|
LDA L0196C5
|
|
STA L0174AF
|
|
L01747C LDA #$0000
|
|
PHA
|
|
PHA
|
|
_StillDown
|
|
PLA
|
|
BNE L01748C
|
|
RTS
|
|
|
|
L01748C PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GetMouse
|
|
JSL L0181CE
|
|
LDA L0196C7
|
|
CMP L0174B1
|
|
BNE L017464
|
|
LDA L0196C5
|
|
CMP L0174AF
|
|
BEQ L01747C
|
|
BRA L017464
|
|
L0174AF DW $0000
|
|
L0174B1 DW $0000
|
|
L0174B3 LDA #$0000
|
|
L0174B6 PHA
|
|
ASL
|
|
ASL
|
|
TAX
|
|
CLC
|
|
LDA L0196C5
|
|
ADC L0174D5,X
|
|
TAY
|
|
CLC
|
|
LDA L0196C7
|
|
ADC L0174D7,X
|
|
TAX
|
|
JSR L018210
|
|
PLA
|
|
INC
|
|
CMP #$000A
|
|
BNE L0174B6
|
|
RTS
|
|
|
|
L0174D5 DW $0000
|
|
L0174D7 DW $0003
|
|
DW $0000
|
|
DW $0007
|
|
DW $0001
|
|
DW $0000
|
|
DW $0002
|
|
DW $0003
|
|
DW $0002
|
|
DW $0006
|
|
DW $0003
|
|
DW $0001
|
|
DW $0004
|
|
DW $0004
|
|
DW $0005
|
|
DW $0000
|
|
DW $0005
|
|
DW $0007
|
|
DW $0006
|
|
DW $0003
|
|
L0174FD STZ L019741
|
|
LDA L0196C9
|
|
AND #$0200
|
|
STA L017866
|
|
JSR L017EED
|
|
JSL L0181CE
|
|
JSR L018126
|
|
LDA L0196C5
|
|
STA L01785A
|
|
STA L01785E
|
|
STA L017872
|
|
LDA L0196C7
|
|
STA L01785C
|
|
STA L017860
|
|
STA L017874
|
|
L01752B JSR L017691
|
|
BCC L01752B
|
|
PEA $0000
|
|
_SetPenMode
|
|
JSR L017EDD
|
|
LDA L017874
|
|
PHA
|
|
LDA L017872
|
|
PHA
|
|
_MoveTo
|
|
LDA L017860
|
|
PHA
|
|
LDA L01785E
|
|
PHA
|
|
_LineTo
|
|
JSR L014117
|
|
RTS
|
|
|
|
L01755F STZ L019741
|
|
LDA L0196C9
|
|
AND #$0200
|
|
STA L017866
|
|
JSR L017EED
|
|
JSL L0181CE
|
|
JSR L018126
|
|
LDA L0196C5
|
|
STA L01785A
|
|
STA L01785E
|
|
LDA L0196C7
|
|
STA L01785C
|
|
STA L017860
|
|
LDA #$FFFF
|
|
STA L017858
|
|
L01758D INC L017858
|
|
LDA L017858
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L01785A
|
|
STA L017808,X
|
|
LDA L01785C
|
|
STA L01780A,X
|
|
LDA L017858
|
|
CMP #$0013
|
|
BEQ L0175F8
|
|
JSR L017691
|
|
BCC L01758D
|
|
LDA L017858
|
|
CMP #$0002
|
|
BCS L0175F8
|
|
PEA $0000
|
|
_SetPenMode
|
|
JSR L017EDD
|
|
LDA L01780A
|
|
PHA
|
|
LDA L017808
|
|
PHA
|
|
_MoveTo
|
|
LDA L017858
|
|
BEQ L0175E8
|
|
LDA L01780E
|
|
PHA
|
|
LDA L01780C
|
|
PHA
|
|
_LineTo
|
|
RTS
|
|
|
|
L0175E8 LDA L01780A
|
|
PHA
|
|
LDA L017808
|
|
PHA
|
|
_LineTo
|
|
RTS
|
|
|
|
L0175F8 PHA
|
|
PHA
|
|
_OpenPoly
|
|
PLA
|
|
STA L017862
|
|
PLA
|
|
STA L017864
|
|
LDA L01780A
|
|
PHA
|
|
LDA L017808
|
|
PHA
|
|
_MoveTo
|
|
LDA #$0001
|
|
L01761B PHA
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L01780A,X
|
|
PHA
|
|
LDA L017808,X
|
|
PHA
|
|
_LineTo
|
|
PLA
|
|
INC
|
|
CMP L017858
|
|
BEQ L01761B
|
|
BCC L01761B
|
|
LDA L01780A
|
|
PHA
|
|
LDA L017808
|
|
PHA
|
|
_LineTo
|
|
_ClosePoly
|
|
LDA L017864
|
|
PHA
|
|
LDA L017862
|
|
PHA
|
|
JSL L0149A7
|
|
PHX
|
|
PHA
|
|
_FillPoly
|
|
PEA $0000
|
|
_SetPenMode
|
|
JSR L017EDD
|
|
LDA L017864
|
|
PHA
|
|
LDA L017862
|
|
PHA
|
|
_FramePoly
|
|
LDA L017864
|
|
PHA
|
|
LDA L017862
|
|
PHA
|
|
_KillPoly
|
|
JSR L014117
|
|
RTS
|
|
|
|
L017691 PEA $0002
|
|
_SetPenMode
|
|
JSR L0182C2
|
|
JSR L01776C
|
|
L0176A1 PEA $0000
|
|
PEA $FFFF
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
LDA L0196BB
|
|
CMP #$0001
|
|
BNE L01772A
|
|
JSR L017F05
|
|
LDA L019741
|
|
BEQ L0176CA
|
|
STZ L019741
|
|
SEC
|
|
RTS
|
|
|
|
L0176CA JSR L01776C
|
|
PEA $0000
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L019E74
|
|
PEA L019E74
|
|
_PtInRect
|
|
PLA
|
|
BNE L0176E8
|
|
SEC
|
|
RTS
|
|
|
|
L0176E8 PEA $0000
|
|
_SetPenMode
|
|
JSR L017EDD
|
|
LDA L017860
|
|
PHA
|
|
LDA L01785E
|
|
PHA
|
|
_MoveTo
|
|
LDA L01785C
|
|
PHA
|
|
LDA L01785A
|
|
PHA
|
|
_LineTo
|
|
LDX L01785A
|
|
LDY L01785E
|
|
JSR L01412A
|
|
LDA L01785A
|
|
STA L01785E
|
|
LDA L01785C
|
|
STA L017860
|
|
CLC
|
|
RTS
|
|
|
|
L01772A PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GlobalToLocal
|
|
JSL L0181CE
|
|
JSR L018168
|
|
JSR L0139B0
|
|
JSR L017794
|
|
LDA L0196C7
|
|
CMP L01785C
|
|
BNE L017757
|
|
LDA L0196C5
|
|
CMP L01785A
|
|
BNE L017757
|
|
BRL L0176A1
|
|
L017757 JSR L01776C
|
|
LDA L0196C7
|
|
STA L01785C
|
|
LDA L0196C5
|
|
STA L01785A
|
|
JSR L01776C
|
|
BRL L0176A1
|
|
L01776C LDA L017860
|
|
PHA
|
|
LDA L01785E
|
|
PHA
|
|
_MoveTo
|
|
LDA L01785C
|
|
PHA
|
|
LDA L01785A
|
|
PHA
|
|
_LineTo
|
|
LDX L01785E
|
|
LDY L01785A
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L017794 LDA L017866
|
|
BNE L01779A
|
|
RTS
|
|
|
|
L01779A SEC
|
|
LDA L017860
|
|
SBC L0196C7
|
|
BNE L0177A6
|
|
BRL L017801
|
|
L0177A6 BPL L0177AC
|
|
EOR #$FFFF
|
|
INC
|
|
L0177AC STA L01786A
|
|
LSR
|
|
STA L01786E
|
|
SEC
|
|
LDA L01785E
|
|
SBC L0196C5
|
|
STA L017870
|
|
BNE L0177C2
|
|
BRL L0177E1
|
|
L0177C2 BPL L0177C8
|
|
EOR #$FFFF
|
|
INC
|
|
L0177C8 STA L017868
|
|
LSR
|
|
STA L01786C
|
|
LDA L017868
|
|
CMP L01786E
|
|
BCC L0177E1
|
|
LDA L01786A
|
|
CMP L01786C
|
|
BCC L017801
|
|
BRA L0177E8
|
|
L0177E1 LDA L01785E
|
|
STA L0196C5
|
|
RTS
|
|
|
|
L0177E8 LDA L017870
|
|
BMI L0177F6
|
|
SEC
|
|
LDA L01785E
|
|
SBC L01786A
|
|
BRA L0177FD
|
|
L0177F6 CLC
|
|
LDA L01786A
|
|
ADC L01785E
|
|
L0177FD STA L0196C5
|
|
RTS
|
|
|
|
L017801 LDA L017860
|
|
STA L0196C7
|
|
RTS
|
|
|
|
L017808 DW $0000 ; LONG NOT WORD
|
|
L01780A DW $0000
|
|
L01780C DW $0000
|
|
L01780E DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
L017858 DW $0000
|
|
L01785A DW $0000
|
|
L01785C DW $0000
|
|
L01785E DW $0000
|
|
L017860 DW $0000
|
|
L017862 DW $0000
|
|
L017864 DW $0000
|
|
L017866 DW $0000
|
|
L017868 DW $0000
|
|
L01786A DW $0000
|
|
L01786C DW $0000
|
|
L01786E DW $0000
|
|
L017870 DW $0000
|
|
L017872 DW $0000
|
|
L017874 DW $0000
|
|
L017876 LDA $36
|
|
CMP #$0002
|
|
BEQ L01787E
|
|
RTS
|
|
|
|
L01787E STZ L017C2D
|
|
LDA L0199AC
|
|
STA L0199B2
|
|
LDA L0199AE
|
|
STA L0199B4
|
|
LDA L019998
|
|
STA L01999E
|
|
LDA L01999A
|
|
STA L0199A0
|
|
LDA L0196C5
|
|
STA L017C37
|
|
LDA L0196C7
|
|
STA L017C39
|
|
LDA $66
|
|
STA L017C41
|
|
LDA $68
|
|
STA L017C43
|
|
LDA $6A
|
|
STA L017C45
|
|
LDA $6C
|
|
STA L017C47
|
|
LDA $66
|
|
STA L017C49
|
|
LDA $68
|
|
STA L017C4B
|
|
LDA $6A
|
|
STA L017C4D
|
|
LDA $6C
|
|
STA L017C4F
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
STA L017C73
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
STA L017C75
|
|
LDA L017C73
|
|
LSR
|
|
CLC
|
|
ADC $66
|
|
STA L017C3D
|
|
LDA L017C75
|
|
LSR
|
|
CLC
|
|
ADC $68
|
|
STA L017C3F
|
|
LDA L0196C7
|
|
CMP L017C3F
|
|
BCC L01790B
|
|
LDA L0196C5
|
|
CMP L017C3D
|
|
BCC L017906
|
|
LDA #$0004
|
|
BRA L01791B
|
|
L017906 LDA #$0002
|
|
BRA L01791B
|
|
L01790B LDA L0196C5
|
|
CMP L017C3D
|
|
BCC L017918
|
|
LDA #$0006
|
|
BRA L01791B
|
|
L017918 LDA #$0000
|
|
L01791B STA L017C3B
|
|
L01791E LDA L0196C5
|
|
STA L017C33
|
|
LDA L0196C7
|
|
STA L017C35
|
|
PHA
|
|
PEA $FFFF
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
LDA L0196BB
|
|
CMP #$0002
|
|
BNE L017947
|
|
BRL L017A47
|
|
L017947 PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GlobalToLocal
|
|
JSL L0181CE
|
|
JSR L0139B0
|
|
SEC
|
|
LDA L0196C7
|
|
SBC L017C35
|
|
STA L017C31
|
|
SEC
|
|
LDA L0196C5
|
|
SBC L017C33
|
|
STA L017C2F
|
|
BNE L017979
|
|
LDA L017C31
|
|
BNE L017979
|
|
BRL L01791E
|
|
L017979 JSR L018E2E
|
|
LDX L017C3B
|
|
JSR (L017A9D,X)
|
|
LDA $66
|
|
STA L017C51
|
|
LDA $68
|
|
STA L017C53
|
|
LDA $6A
|
|
STA L017C55
|
|
LDA $6C
|
|
STA L017C57
|
|
LDA L017C41
|
|
STA $66
|
|
LDA L017C43
|
|
STA $68
|
|
LDA L017C45
|
|
STA $6A
|
|
LDA L017C47
|
|
STA $6C
|
|
LDA $6A
|
|
SEC
|
|
SBC $66
|
|
BVS L0179B4
|
|
EOR #$8000
|
|
L0179B4 BMI L0179BE
|
|
LDX $66
|
|
LDA $6A
|
|
STA $66
|
|
STX $6A
|
|
L0179BE LDA $6C
|
|
SEC
|
|
SBC $68
|
|
BVS L0179C8
|
|
EOR #$8000
|
|
L0179C8 BMI L0179D2
|
|
LDX $68
|
|
LDA $6C
|
|
STA $68
|
|
STX $6C
|
|
L0179D2 LDA $66
|
|
SEC
|
|
SBC $56
|
|
BVS L0179DC
|
|
EOR #$8000
|
|
L0179DC BMI L0179E2
|
|
LDA $56
|
|
STA $66
|
|
L0179E2 LDA $68
|
|
SEC
|
|
SBC $58
|
|
BVS L0179EC
|
|
EOR #$8000
|
|
L0179EC BMI L0179F2
|
|
LDA $58
|
|
STA $68
|
|
L0179F2 LDA $6A
|
|
SEC
|
|
SBC $5A
|
|
BEQ L017A04
|
|
BVS L0179FE
|
|
EOR #$8000
|
|
L0179FE BPL L017A04
|
|
LDA $5A
|
|
STA $6A
|
|
L017A04 LDA $6C
|
|
SEC
|
|
SBC $5C
|
|
BEQ L017A16
|
|
BVS L017A10
|
|
EOR #$8000
|
|
L017A10 BPL L017A16
|
|
LDA $5C
|
|
STA $6C
|
|
L017A16 LDA $66
|
|
CMP L017C51
|
|
BCS L017A20
|
|
STA L017C51
|
|
L017A20 LDA $68
|
|
CMP L017C53
|
|
BCS L017A2A
|
|
STA L017C53
|
|
L017A2A LDA $6A
|
|
CMP L017C55
|
|
BCC L017A34
|
|
STA L017C55
|
|
L017A34 LDA $6C
|
|
CMP L017C57
|
|
BCC L017A3E
|
|
STA L017C57
|
|
L017A3E JSR L017AF9
|
|
JSR L018E2E
|
|
BRL L01791E
|
|
L017A47 LDA L017C2D
|
|
BEQ L017A9C
|
|
LDA L0199AC
|
|
STA $0A
|
|
LDA L0199AE
|
|
STA $0C
|
|
LDA L019998
|
|
STA $0E
|
|
LDA L01999A
|
|
STA $10
|
|
LDY #$459C
|
|
L017A63 LDA [$0A],Y
|
|
PHA
|
|
LDA [$0E],Y
|
|
STA [$0A],Y
|
|
PLA
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L017A63
|
|
CLC
|
|
LDA $66
|
|
ADC $6A
|
|
LSR
|
|
STA L019681
|
|
CLC
|
|
LDA $68
|
|
ADC $6C
|
|
LSR
|
|
STA L019683
|
|
LDA #$000B
|
|
STA $46
|
|
LDA $66
|
|
STA L019761
|
|
LDA $68
|
|
STA L019763
|
|
LDA $6A
|
|
STA L019765
|
|
LDA $6C
|
|
STA L019767
|
|
L017A9C RTS
|
|
|
|
L017A9D DA L017AA5
|
|
DA L017ABA
|
|
DA L017ACF
|
|
DA L017AE4
|
|
L017AA5 CLC
|
|
LDA L017C41
|
|
ADC L017C2F
|
|
STA L017C41
|
|
CLC
|
|
LDA L017C43
|
|
ADC L017C31
|
|
STA L017C43
|
|
RTS
|
|
|
|
L017ABA CLC
|
|
LDA L017C41
|
|
ADC L017C2F
|
|
STA L017C41
|
|
CLC
|
|
LDA L017C47
|
|
ADC L017C31
|
|
STA L017C47
|
|
RTS
|
|
|
|
L017ACF CLC
|
|
LDA L017C45
|
|
ADC L017C2F
|
|
STA L017C45
|
|
CLC
|
|
LDA L017C47
|
|
ADC L017C31
|
|
STA L017C47
|
|
RTS
|
|
|
|
L017AE4 CLC
|
|
LDA L017C45
|
|
ADC L017C2F
|
|
STA L017C45
|
|
CLC
|
|
LDA L017C43
|
|
ADC L017C31
|
|
STA L017C43
|
|
RTS
|
|
|
|
L017AF9 LDA #$0001
|
|
STA L017C2D
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
STA L017C7B
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
STA L017C7D
|
|
PEA ^L01999C
|
|
PEA L01999C
|
|
PEA ^L0199B0
|
|
PEA L0199B0
|
|
PEA ^L017C6F
|
|
PEA L017C6F
|
|
PEA ^L017C77
|
|
PEA L017C77
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_CopyPixels
|
|
SEC
|
|
LDA L017C53
|
|
SBC $58
|
|
AND #$FFFC
|
|
LSR
|
|
STA L017C53
|
|
SEC
|
|
LDA L017C57
|
|
DEC
|
|
SBC $58
|
|
AND #$FFFC
|
|
LSR
|
|
INC
|
|
INC
|
|
STA L017C57
|
|
LDA L017C51
|
|
JSL L0182D0
|
|
CLC
|
|
ADC L019976
|
|
STA $0A
|
|
LDA L019978
|
|
STA $0C
|
|
LDA $58
|
|
LSR
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
SEC
|
|
LDA L017C51
|
|
SBC $56
|
|
JSL L0182D0
|
|
CLC
|
|
ADC #$3197
|
|
STA $0E
|
|
LDA #$00E1
|
|
STA $10
|
|
LDA L0199AC
|
|
STA $12
|
|
LDA L0199AE
|
|
STA $14
|
|
LDA L019984
|
|
STA $28
|
|
LDA L019986
|
|
STA $2A
|
|
LDA L017C53
|
|
PHA
|
|
LDA L017C51
|
|
PHA
|
|
LDA L017C57
|
|
PHA
|
|
LDA L017C55
|
|
PHA
|
|
PEA $FFFF
|
|
PEA $FFFF
|
|
JSR L018B29
|
|
LDX L017C51
|
|
LDY L017C55
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L017BBA LDA L0199AC
|
|
STA $0A
|
|
LDA L0199AE
|
|
STA $0C
|
|
LDA L019998
|
|
STA $0E
|
|
LDA L01999A
|
|
STA $10
|
|
LDY #$459C
|
|
L017BD1 LDA [$0E],Y
|
|
PHA
|
|
LDA [$0A],Y
|
|
STA [$0E],Y
|
|
PLA
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
BPL L017BD1
|
|
LDX L017C49
|
|
LDA $66
|
|
STA L017C49
|
|
STX L017C41
|
|
STX $66
|
|
LDX L017C4B
|
|
LDA $68
|
|
STA L017C4B
|
|
STX L017C43
|
|
STX $68
|
|
LDX L017C4D
|
|
LDA $6A
|
|
STA L017C4D
|
|
STX L017C45
|
|
STX $6A
|
|
LDX L017C4F
|
|
LDA $6C
|
|
STA L017C4F
|
|
STX L017C47
|
|
STX $6C
|
|
JSR L013C57
|
|
JSR L011953
|
|
LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
JSR L014117
|
|
JSR L013C4D
|
|
RTS
|
|
|
|
L017C2D DW $0000
|
|
L017C2F DW $0000
|
|
L017C31 DW $0000
|
|
L017C33 DW $0000
|
|
L017C35 DW $0000
|
|
L017C37 DW $0000
|
|
L017C39 DW $0000
|
|
L017C3B DW $0000
|
|
L017C3D DW $0000
|
|
L017C3F DW $0000
|
|
L017C41 DW $0000
|
|
L017C43 DW $0000
|
|
L017C45 DW $0000
|
|
L017C47 DW $0000
|
|
L017C49 DW $0000
|
|
L017C4B DW $0000
|
|
L017C4D DW $0000
|
|
L017C4F DW $0000
|
|
L017C51 DW $0000
|
|
L017C53 DW $0000
|
|
L017C55 DW $0000
|
|
L017C57 DW $0000
|
|
ADRL L01999C
|
|
ADRL L0199B0
|
|
ADRL L017C6F
|
|
ADRL L017C77
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
L017C6F DW $0000
|
|
DW $0000
|
|
L017C73 DW $0000
|
|
L017C75 DW $0000
|
|
L017C77 DW $0000
|
|
DW $0000
|
|
L017C7B DW $0000
|
|
L017C7D DW $0000
|
|
|
|
L017C7F LDY #$0014
|
|
L017C82 CMP L017CB3,Y
|
|
BEQ L017C8C
|
|
DEY
|
|
DEY
|
|
BPL L017C82
|
|
RTS
|
|
|
|
L017C8C PHY
|
|
LDA L019691
|
|
ASL
|
|
TAY
|
|
LDA L017C9B,Y
|
|
STA $28
|
|
PLY
|
|
LDA ($28),Y
|
|
RTS
|
|
|
|
L017C9B DA L017CB3
|
|
DA L017CC9
|
|
DA L017CDF
|
|
DA L017CB3
|
|
DA L017D0B
|
|
DA L017D21
|
|
DA L017CF5
|
|
DA L017CB3
|
|
DA L017CB3
|
|
DA L017CB3
|
|
DA L017CB3
|
|
DA L017CB3
|
|
L017CB3 DW $0023
|
|
DW $0040
|
|
DW $005B
|
|
DW $005C
|
|
DW $005D
|
|
DW $005E
|
|
DW $0060
|
|
DW $007B
|
|
DW $007C
|
|
DW $007D
|
|
DW $007E
|
|
L017CC9 DW $00A3
|
|
DW $0040
|
|
DW $005B
|
|
DW $005C
|
|
DW $005D
|
|
DW $005E
|
|
DW $0060
|
|
DW $007B
|
|
DW $007C
|
|
DW $007D
|
|
DW $007E
|
|
L017CDF DW $00A3
|
|
DW $0088
|
|
DW $00A1
|
|
DW $008D
|
|
DW $00A4
|
|
DW $005E
|
|
DW $0060
|
|
DW $008E
|
|
DW $009D
|
|
DW $008F
|
|
DW $00AC
|
|
L017CF5 DW $0023
|
|
DW $00A4
|
|
DW $0080
|
|
DW $0085
|
|
DW $0086
|
|
DW $005E
|
|
DW $0060
|
|
DW $008A
|
|
DW $009A
|
|
DW $009F
|
|
DW $00A7
|
|
L017D0B DW $00A3
|
|
DW $00A4
|
|
DW $00C1
|
|
DW $0084
|
|
DW $00C0
|
|
DW $005E
|
|
DW $0060
|
|
DW $00A1
|
|
DW $0096
|
|
DW $0082
|
|
DW $007E
|
|
L017D21 DW $00A3
|
|
DW $00A4
|
|
DW $00A1
|
|
DW $0082
|
|
DW $008E
|
|
DW $005E
|
|
DW $009D
|
|
DW $0088
|
|
DW $0098
|
|
DW $008F
|
|
DW $0093
|
|
|
|
L017D37 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
STA L017E3E
|
|
STX L017E40
|
|
LDA L019EE0+2
|
|
PHA
|
|
LDA L019EE0
|
|
PHA
|
|
_SetCursor
|
|
_ShowCursor
|
|
LDA L017E40
|
|
CMP #$0001
|
|
BNE L017D61
|
|
BRL L017DAE
|
|
L017D61 LDA L017E3E
|
|
PHA
|
|
PEA ^L017E42+1
|
|
PEA L017E42+1
|
|
PEA $0004
|
|
_Int2Hex
|
|
PEA ^L017E42
|
|
PEA L017E42
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
_ParamText
|
|
LDA L017E40
|
|
BNE L017D93
|
|
BRL L017DF4
|
|
L017D93 CMP #$0002
|
|
BNE L017D9B
|
|
BRL L017DD0
|
|
L017D9B CMP #$0100
|
|
BNE L017DC2
|
|
LDA #L0106E7
|
|
STA L017EC3
|
|
LDA #^L0106E7
|
|
STA L017EC3+2
|
|
BRA L017E23
|
|
L017DAE LDA L017E3E
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L017E79,X
|
|
STA L017EC3
|
|
LDA L017E79+2,X
|
|
STA L017EC3+2
|
|
BRA L017E23
|
|
L017DC2 LDA #L010653
|
|
STA L017EC3
|
|
LDA #^L010653
|
|
STA L017EC3+2
|
|
BRA L017E23
|
|
L017DD0 LDA L017E3E
|
|
CMP #$0201
|
|
BEQ L017DE6
|
|
LDA #L01063C
|
|
STA L017EC3
|
|
LDA #^L01063C
|
|
STA L017EC3+2
|
|
BRA L017E23
|
|
L017DE6 LDA #L0107CD
|
|
STA L017EC3
|
|
LDA #^L0107CD
|
|
STA L017EC3+2
|
|
BRA L017E23
|
|
L017DF4 LDA #L010629
|
|
STA L017EC3
|
|
LDA #^L010629
|
|
STA L017EC3+2
|
|
LDX L017E47
|
|
LDA L017E3E
|
|
L017E06 CMP L017E49,X
|
|
BEQ L017E15
|
|
DEX
|
|
DEX
|
|
DEX
|
|
DEX
|
|
DEX
|
|
DEX
|
|
BPL L017E06
|
|
BRA L017E23
|
|
L017E15 INX
|
|
INX
|
|
LDA L017E4B,X
|
|
STA L017EC3+2
|
|
LDA L017E49,X
|
|
STA L017EC3
|
|
L017E23 PHA
|
|
PEA ^L017E85
|
|
PEA L017E85
|
|
PEA $0000
|
|
PEA $0000
|
|
_Alert
|
|
PLA
|
|
JSL L010D82
|
|
PLB
|
|
RTL
|
|
|
|
L017E3E DW $0000
|
|
L017E40 DW $0000
|
|
L017E42 STR ' '
|
|
L017E47 DW $002A
|
|
L017E49 DW $002B
|
|
L017E4B ADRL L010755
|
|
DW $0044
|
|
ADRL L010771
|
|
DW $0045
|
|
ADRL L010771
|
|
DW $0046
|
|
ADRL L010771
|
|
DW $0047
|
|
ADRL L010785
|
|
DW $0048
|
|
ADRL L01079F
|
|
DW $0049
|
|
ADRL L0107AD
|
|
DW $004E
|
|
ADRL L0107BE
|
|
L017E79 ADRL L010550
|
|
ADRL L01056A
|
|
ADRL L010586
|
|
L017E85 DW $0028 ; Alert rect
|
|
DW $003C
|
|
DW $0064
|
|
DW $012C
|
|
DW $0001 ; Alert ID
|
|
HEX 80 ; First stage byte
|
|
HEX 80 ; Second stage byte
|
|
HEX 80 ; Third stage byte
|
|
HEX 80 ; fourth stage byte
|
|
ADRL L017E9F ; Ptr to item template
|
|
ADRL L017EB7 ; Ptr to item template
|
|
ADRL $00000000
|
|
L017E9F DW $0001 ; Item ID
|
|
DW $0024 ; Item rect
|
|
DW $005A
|
|
DW $0032
|
|
DW $00A0
|
|
DW $000A ; Std button
|
|
ADRL L01046F ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L017EB7 DW $0004 ; Item ID
|
|
DW $0011 ; Item rect
|
|
DW $001E
|
|
DW $001F
|
|
DW $0122
|
|
DW $000F ; Static text
|
|
L017EC3 ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L017ECF JSL L0149A7
|
|
PHX
|
|
PHA
|
|
_SetPenPat
|
|
RTS
|
|
|
|
L017EDD LDX $72
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_SetPenPat
|
|
RTS
|
|
|
|
L017EED LDA $6E
|
|
ASL
|
|
ASL
|
|
TAY
|
|
LDA L019ECE,Y
|
|
PHA
|
|
LDA L019ECC,Y
|
|
PHA
|
|
STA L01975F
|
|
_SetPenSize
|
|
RTS
|
|
|
|
L017F05 SEC
|
|
LDA L0196C1
|
|
SBC L019735
|
|
STA L019757
|
|
LDA L0196C1+2
|
|
SBC L019737
|
|
CMP L01973F
|
|
BNE L017F20
|
|
LDA L019757
|
|
CMP L01973D
|
|
L017F20 BEQ L017F24
|
|
BCS L017F54
|
|
L017F24 SEC
|
|
LDA L0196C7
|
|
SBC L01973B
|
|
BPL L017F34
|
|
EOR #$FFFF
|
|
CLC
|
|
ADC #$0001
|
|
L017F34 CMP #$0006
|
|
BCS L017F54
|
|
SEC
|
|
LDA L0196C5
|
|
SBC L019739
|
|
BPL L017F49
|
|
EOR #$FFFF
|
|
CLC
|
|
ADC #$0001
|
|
L017F49 CMP #$0006
|
|
BCS L017F54
|
|
LDA #$0001
|
|
STA L019741
|
|
L017F54 LDA L0196C1
|
|
STA L019735
|
|
LDA L0196C1+2
|
|
STA L019737
|
|
LDA L0196C7
|
|
STA L01973B
|
|
LDA L0196C5
|
|
STA L019739
|
|
RTS
|
|
|
|
L017F6D INC
|
|
STA L019755
|
|
SEP #$20
|
|
STA L017F7A+1
|
|
REP #$20
|
|
LDA $01,S
|
|
L017F7A STA $05,S
|
|
CLC
|
|
TSC
|
|
ADC L019755
|
|
DEC
|
|
TCS
|
|
RTS
|
|
|
|
L017F84 LDA $03,S
|
|
STA L0180B5
|
|
LDA $05,S
|
|
STA L0180B7
|
|
LDA $07,S
|
|
STA L0180B1
|
|
LDA $09,S
|
|
STA L0180B3
|
|
LDA $0B,S
|
|
STA $6A
|
|
LDA $0D,S
|
|
STA $6C
|
|
LDA $0F,S
|
|
STA $66
|
|
LDA $11,S
|
|
STA $68
|
|
LDA #$0001
|
|
STA L01975F
|
|
PHA
|
|
PHA
|
|
_SetPenSize
|
|
JSR L018126
|
|
LDA $13,S
|
|
BEQ L017FC1
|
|
JSR L018DDB
|
|
L017FC1 LDA $13,S
|
|
BEQ L017FC8
|
|
JSR L018E75
|
|
L017FC8 LDA #$0000
|
|
PHA
|
|
PHA
|
|
_WaitMouseUp
|
|
PLA
|
|
BNE L017FE4
|
|
LDA $13,S
|
|
BNE L017FDE
|
|
JSR L01806A
|
|
L017FDE LDA #$0016
|
|
JMP L017F6D
|
|
|
|
L017FE4 PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GetMouse
|
|
JSL L0181CE
|
|
JSR L018168
|
|
JSR L0139B0
|
|
JSR L0180C5
|
|
LDA L0196C7
|
|
CMP L0180B7
|
|
BNE L018011
|
|
LDA L0196C5
|
|
CMP L0180B5
|
|
BNE L018011
|
|
BRL L017FC1
|
|
L018011 LDA L0196C7
|
|
STA L0180B7
|
|
LDA L0196C5
|
|
STA L0180B5
|
|
JSR L01806A
|
|
LDA L0180B1
|
|
STA $66
|
|
LDA L0180B3
|
|
STA $68
|
|
LDA L0180B5
|
|
STA $6A
|
|
LDA L0180B7
|
|
STA $6C
|
|
LDA $6A
|
|
SEC
|
|
SBC $66
|
|
BVS L01803E
|
|
EOR #$8000
|
|
L01803E BMI L018048
|
|
LDX $66
|
|
LDA $6A
|
|
STA $66
|
|
STX $6A
|
|
L018048 LDA $6C
|
|
SEC
|
|
SBC $68
|
|
BVS L018052
|
|
EOR #$8000
|
|
L018052 BMI L01805C
|
|
LDX $68
|
|
LDA $6C
|
|
STA $68
|
|
STX $6C
|
|
L01805C LDA $15,S
|
|
BNE L018064
|
|
INC $6A
|
|
INC $6C
|
|
L018064 JSR L01806A
|
|
BRL L017FC1
|
|
L01806A LDA $15,S
|
|
BEQ L018072
|
|
JSR L018E2E
|
|
RTS
|
|
|
|
L018072 PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
LDA $1D,S
|
|
ASL
|
|
TAX
|
|
JMP (L0180BF,X)
|
|
|
|
L018082 _FrameRect
|
|
BRA L0180A9
|
|
L01808B _FrameOval
|
|
BRA L0180A9
|
|
L018094 SEC
|
|
LDA $6C
|
|
SBC $68
|
|
LSR
|
|
PHA
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
LSR
|
|
PHA
|
|
_FrameRRect
|
|
L0180A9 LDX $66
|
|
LDY $6A
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L0180B1 DW $0000
|
|
L0180B3 DW $0000
|
|
L0180B5 DW $0000
|
|
L0180B7 DW $0000
|
|
L0180B9 DW $0000
|
|
L0180BB DW $0000
|
|
L0180BD DW $0000
|
|
L0180BF DA L018082
|
|
DA L018094
|
|
DA L01808B
|
|
L0180C5 LDA $17,S
|
|
BNE L0180CA
|
|
RTS
|
|
|
|
L0180CA SEC
|
|
LDA L0196C7
|
|
SBC L0180B3
|
|
STA L0180B9
|
|
BPL L0180DA
|
|
EOR #$FFFF
|
|
INC
|
|
L0180DA PHA
|
|
SEC
|
|
LDA L0196C5
|
|
SBC L0180B1
|
|
STA L0180BB
|
|
BPL L0180EB
|
|
EOR #$FFFF
|
|
INC
|
|
L0180EB CMP $01,S
|
|
BCC L0180F1
|
|
LDA $01,S
|
|
L0180F1 STA L0180BD
|
|
PLA
|
|
LDA L0180B9
|
|
BMI L018103
|
|
CLC
|
|
LDA L0180B3
|
|
ADC L0180BD
|
|
BRA L01810A
|
|
L018103 SEC
|
|
LDA L0180B3
|
|
SBC L0180BD
|
|
L01810A STA L0196C7
|
|
LDA L0180BB
|
|
BMI L01811B
|
|
CLC
|
|
LDA L0180B1
|
|
ADC L0180BD
|
|
BRA L018122
|
|
L01811B SEC
|
|
LDA L0180B1
|
|
SBC L0180BD
|
|
L018122 STA L0196C5
|
|
RTS
|
|
|
|
L018126 PEA ^L0199C4
|
|
PEA L0199C4
|
|
_GetPortRect
|
|
PEA ^L019751
|
|
PEA L019751
|
|
_GetPenSize
|
|
SEC
|
|
LDA L0199C8
|
|
SBC L019751
|
|
STA L0199C8
|
|
SEC
|
|
LDA L0199CA
|
|
SBC L019753
|
|
STA L0199CA
|
|
LDA $76
|
|
CMP #$0001
|
|
BNE L018167
|
|
INC L0199C4
|
|
INC L0199C6
|
|
DEC L0199C8
|
|
DEC L0199CA
|
|
L018167 RTS
|
|
|
|
L018168 PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L0199C4
|
|
PEA L0199C4
|
|
_PtInRect
|
|
PLA
|
|
BNE L0181CD
|
|
LDA L0196C7
|
|
SEC
|
|
SBC L0199C6
|
|
BVS L01818B
|
|
EOR #$8000
|
|
L01818B BPL L0181A0
|
|
LDA L0199CA
|
|
SEC
|
|
SBC L0196C7
|
|
BVS L018199
|
|
EOR #$8000
|
|
L018199 BMI L0181A6
|
|
LDA L0199CA
|
|
BRA L0181A3
|
|
L0181A0 LDA L0199C6
|
|
L0181A3 STA L0196C7
|
|
L0181A6 LDA L0196C5
|
|
SEC
|
|
SBC L0199C4
|
|
BVS L0181B2
|
|
EOR #$8000
|
|
L0181B2 BPL L0181C7
|
|
LDA L0199C8
|
|
SEC
|
|
SBC L0196C5
|
|
BVS L0181C0
|
|
EOR #$8000
|
|
L0181C0 BMI L0181CD
|
|
LDA L0199C8
|
|
BRA L0181CA
|
|
L0181C7 LDA L0199C4
|
|
L0181CA STA L0196C5
|
|
L0181CD RTS
|
|
|
|
L0181CE ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA $34
|
|
BEQ L01820E
|
|
PHA
|
|
PHA
|
|
SEC
|
|
LDA L0196C7
|
|
SBC $58
|
|
DEC
|
|
DEC
|
|
PHA
|
|
PEA $0006
|
|
_SDivide
|
|
PLA
|
|
CLC
|
|
ADC $58
|
|
STA L0196C7
|
|
PLA
|
|
PHA
|
|
PHA
|
|
SEC
|
|
LDA L0196C5
|
|
SBC $56
|
|
DEC
|
|
PHA
|
|
PEA $0006
|
|
_SDivide
|
|
PLA
|
|
CLC
|
|
ADC $56
|
|
STA L0196C5
|
|
PLA
|
|
L01820E PLB
|
|
RTL
|
|
|
|
L018210 PHX
|
|
PHY
|
|
PHX
|
|
PHY
|
|
_MoveTo
|
|
_LineTo
|
|
RTS
|
|
|
|
L018223 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA $09,S
|
|
STA L0187E8
|
|
CLC
|
|
ADC $05,S
|
|
STA L0187EC
|
|
LDA $0B,S
|
|
STA L0187EA
|
|
CLC
|
|
ADC $07,S
|
|
STA L0187EE
|
|
PHA
|
|
PHA
|
|
PEA ^L0187AA
|
|
PEA L0187AA
|
|
_NewWindow
|
|
LDA $01,S
|
|
STA $A0
|
|
LDA $03,S
|
|
STA $A2
|
|
_SetPort
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
_SetOrigin
|
|
PEA ^L019749
|
|
PEA L019749
|
|
_GetPortRect
|
|
PEA ^L019749
|
|
PEA L019749
|
|
LDA #$0002
|
|
PHA
|
|
PHA
|
|
_InsetRect
|
|
LDA #$0002
|
|
PHA
|
|
PHA
|
|
_SetPenSize
|
|
PEA ^L019749
|
|
PEA L019749
|
|
_FrameRect
|
|
LDA #$0001
|
|
PHA
|
|
PHA
|
|
_SetPenSize
|
|
PLX
|
|
PLY
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PHY
|
|
PHX
|
|
PLB
|
|
RTL
|
|
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
_SetPenPat
|
|
RTS
|
|
|
|
L0182C2 PEA ^L0199F4
|
|
PEA L0199F4
|
|
_SetPenPat
|
|
RTS
|
|
|
|
L0182D0 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
ASL
|
|
STA L0182E3
|
|
ASL
|
|
ASL
|
|
CLC
|
|
ADC L0182E3
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
PLB
|
|
RTL
|
|
|
|
L0182E3 DW $0000
|
|
L0182E5 STX L0183E2
|
|
STY L0183E4
|
|
LDA $34
|
|
BNE L018309
|
|
LDA L01997C
|
|
STA L0183E6
|
|
LDA L01997E
|
|
STA L0183E8
|
|
LDA L019980
|
|
STA L0183EA
|
|
LDA L019982
|
|
STA L0183EC
|
|
BRA L01831D
|
|
L018309 LDA $5E
|
|
STA L0183E6
|
|
LDA $60
|
|
STA L0183E8
|
|
LDA $62
|
|
STA L0183EA
|
|
LDA $64
|
|
STA L0183EC
|
|
L01831D LDA $56
|
|
STA L019749
|
|
LDA $58
|
|
STA L01974B
|
|
LDA $5A
|
|
STA L01974D
|
|
LDA $5C
|
|
STA L01974F
|
|
PEA ^L019749
|
|
PEA L019749
|
|
LDA L0183E2
|
|
PHA
|
|
LDA L0183E4
|
|
PHA
|
|
_OffsetRect
|
|
LDA L019749
|
|
SEC
|
|
SBC L0183E6
|
|
BVS L018352
|
|
EOR #$8000
|
|
L018352 BMI L01835F
|
|
SEC
|
|
LDA L0183E6
|
|
SBC $56
|
|
STA L0183E4
|
|
BRA L01831D
|
|
L01835F LDA L01974B
|
|
SEC
|
|
SBC L0183E8
|
|
BVS L01836B
|
|
EOR #$8000
|
|
L01836B BMI L018378
|
|
SEC
|
|
LDA L0183E8
|
|
SBC $58
|
|
STA L0183E2
|
|
BRA L01831D
|
|
L018378 LDA L01974D
|
|
SEC
|
|
SBC L0183EA
|
|
BEQ L018394
|
|
BVS L018386
|
|
EOR #$8000
|
|
L018386 BPL L018394
|
|
SEC
|
|
LDA L0183EA
|
|
SBC $5A
|
|
STA L0183E4
|
|
BRL L01831D
|
|
L018394 LDA L01974F
|
|
SEC
|
|
SBC L0183EC
|
|
BEQ L0183B0
|
|
BVS L0183A2
|
|
EOR #$8000
|
|
L0183A2 BPL L0183B0
|
|
SEC
|
|
LDA L0183EC
|
|
SBC $5C
|
|
STA L0183E2
|
|
BRL L01831D
|
|
L0183B0 LDA #$0001
|
|
TRB L01974B
|
|
TRB L01974F
|
|
LDA L019749
|
|
STA $56
|
|
LDA L01974B
|
|
STA $58
|
|
LDA L01974D
|
|
STA $5A
|
|
LDA L01974F
|
|
STA $5C
|
|
CLC
|
|
LDA L0183E4
|
|
ADC L019681
|
|
STA L019681
|
|
CLC
|
|
LDA L0183E2
|
|
ADC L019683
|
|
STA L019683
|
|
RTS
|
|
|
|
L0183E2 DW $0000
|
|
L0183E4 DW $0000
|
|
L0183E6 DW $0000
|
|
L0183E8 DW $0000
|
|
L0183EA DW $0000
|
|
L0183EC DW $0000
|
|
L0183EE ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PLA
|
|
STA L01855A
|
|
PLA
|
|
STA L01855C
|
|
PLA
|
|
STA $0A
|
|
STA L018546
|
|
PLA
|
|
STA $0C
|
|
STA L018548
|
|
LDA [$0A]
|
|
STA L01854A
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
STA L01854C
|
|
LDY #$0004
|
|
LDA [$0A],Y
|
|
STA L01854E
|
|
LDY #$0006
|
|
LDA [$0A],Y
|
|
STA L018550
|
|
PLA
|
|
STA $0A
|
|
PLA
|
|
STA $0C
|
|
LDA [$0A]
|
|
STA L018552
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
STA L018554
|
|
LDY #$0004
|
|
LDA [$0A],Y
|
|
STA L018556
|
|
LDY #$0006
|
|
LDA [$0A],Y
|
|
STA L018558
|
|
CLC
|
|
LDA $01,S
|
|
ADC $05,S
|
|
CMP L0196C5
|
|
BEQ L018457
|
|
SEC
|
|
LDA L0196C5
|
|
SBC $01,S
|
|
STA $05,S
|
|
L018457 CLC
|
|
LDA $03,S
|
|
ADC $0B,S
|
|
CMP L0196C7
|
|
BEQ L018469
|
|
SEC
|
|
LDA L0196C7
|
|
SBC $03,S
|
|
STA $07,S
|
|
L018469 CLC
|
|
LDA L01854A
|
|
ADC $05,S
|
|
STA L019749
|
|
LDA L019749
|
|
SEC
|
|
SBC L018552
|
|
BVS L01847E
|
|
EOR #$8000
|
|
L01847E BMI L01848C
|
|
SEC
|
|
LDA L018552
|
|
STA L019749
|
|
SBC L01854A
|
|
STA $05,S
|
|
L01848C CLC
|
|
LDA L01854C
|
|
ADC $07,S
|
|
STA L01974B
|
|
LDA L01974B
|
|
SEC
|
|
SBC L018554
|
|
BVS L0184A1
|
|
EOR #$8000
|
|
L0184A1 BMI L0184AF
|
|
SEC
|
|
LDA L018554
|
|
STA L01974B
|
|
SBC L01854C
|
|
STA $07,S
|
|
L0184AF CLC
|
|
LDA L01854E
|
|
ADC $05,S
|
|
STA L01974D
|
|
LDA L01974D
|
|
SEC
|
|
SBC L018556
|
|
BEQ L0184DB
|
|
BVS L0184C6
|
|
EOR #$8000
|
|
L0184C6 BPL L0184DB
|
|
SEC
|
|
LDA L018556
|
|
STA L01974D
|
|
SBC L01854E
|
|
STA $05,S
|
|
CLC
|
|
ADC L01854A
|
|
STA L019749
|
|
L0184DB CLC
|
|
LDA L018550
|
|
ADC $07,S
|
|
STA L01974F
|
|
LDA L01974F
|
|
SEC
|
|
SBC L018558
|
|
BEQ L018507
|
|
BVS L0184F2
|
|
EOR #$8000
|
|
L0184F2 BPL L018507
|
|
SEC
|
|
LDA L018558
|
|
STA L01974F
|
|
SBC L018550
|
|
STA $07,S
|
|
CLC
|
|
ADC L01854C
|
|
STA L01974B
|
|
L018507 LDA L018546
|
|
STA $0A
|
|
LDA L018548
|
|
STA $0C
|
|
LDA L019749
|
|
STA [$0A]
|
|
LDY #$0002
|
|
LDA L01974B
|
|
STA [$0A],Y
|
|
LDY #$0004
|
|
LDA L01974D
|
|
STA [$0A],Y
|
|
LDY #$0006
|
|
LDA L01974F
|
|
STA [$0A],Y
|
|
CLC
|
|
LDA $01,S
|
|
ADC $05,S
|
|
STA $01,S
|
|
CLC
|
|
LDA $03,S
|
|
ADC $07,S
|
|
STA $03,S
|
|
LDA L01855C
|
|
PHA
|
|
LDA L01855A
|
|
PHA
|
|
PLB
|
|
RTL
|
|
|
|
L018546 DW $0000
|
|
L018548 DW $0000
|
|
L01854A DW $0000
|
|
L01854C DW $0000
|
|
L01854E DW $0000
|
|
L018550 DW $0000
|
|
L018552 DW $0000
|
|
L018554 DW $0000
|
|
L018556 DW $0000
|
|
L018558 DW $0000
|
|
L01855A DW $0000
|
|
L01855C DW $0000
|
|
MX %00
|
|
L01855E ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA $05,S
|
|
BNE L018595
|
|
LDA $0D,S
|
|
STA L0185BE
|
|
BPL L018573
|
|
EOR #$FFFF
|
|
INC
|
|
STA L0185BE
|
|
L018573 LDA $0B,S
|
|
STA L0185BC
|
|
BPL L018581
|
|
EOR #$FFFF
|
|
INC
|
|
STA L0185BC
|
|
L018581 LDA #$0001
|
|
STA L0185C0
|
|
LDA L0185BC
|
|
CMP L0185BE
|
|
BCS L018595
|
|
LDA #$0002
|
|
STA L0185C0
|
|
L018595 LDA L0185C0
|
|
CMP #$0001
|
|
BEQ L0185A9
|
|
LDA #$0000
|
|
STA $0B,S
|
|
LDA $07,S
|
|
STA L0196C5
|
|
BRA L0185B3
|
|
L0185A9 LDA #$0000
|
|
STA $0D,S
|
|
LDA $09,S
|
|
STA L0196C7
|
|
L0185B3 PLX
|
|
PLY
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PHY
|
|
PHX
|
|
PLB
|
|
RTL
|
|
|
|
L0185BC DW $0000
|
|
L0185BE DW $0000
|
|
L0185C0 DW $0000
|
|
L0185C2 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA L0196BD
|
|
CMP #$001B
|
|
BNE L018604
|
|
LDA L0196C9
|
|
AND #$0100
|
|
BEQ L018604
|
|
LDA L0196C9
|
|
AND #$0800
|
|
BEQ L018604
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
_InitColorTable
|
|
PEA $0000
|
|
LDA $A6
|
|
PHA
|
|
LDA $A4
|
|
PHA
|
|
_SetColorTable
|
|
_InitPalette
|
|
PLB
|
|
SEC
|
|
RTL
|
|
|
|
L018604 PLB
|
|
CLC
|
|
RTL
|
|
|
|
L018607 ASL
|
|
TAY
|
|
LDA L01860D,Y
|
|
RTS
|
|
|
|
L01860D DW $0000
|
|
DW $0086
|
|
DW $010C
|
|
DW $0192
|
|
DW $0218
|
|
DW $029E
|
|
DW $0324
|
|
DW $03AA
|
|
DW $0430
|
|
DW $04B6
|
|
DW $053C
|
|
DW $05C2
|
|
DW $0648
|
|
DW $06CE
|
|
DW $0754
|
|
DW $07DA
|
|
DW $0860
|
|
DW $08E6
|
|
DW $096C
|
|
DW $09F2
|
|
DW $0A78
|
|
DW $0AFE
|
|
DW $0B84
|
|
DW $0C0A
|
|
DW $0C90
|
|
DW $0D16
|
|
DW $0D9C
|
|
DW $0E22
|
|
DW $0EA8
|
|
DW $0F2E
|
|
DW $0FB4
|
|
DW $103A
|
|
DW $10C0
|
|
DW $1146
|
|
DW $11CC
|
|
DW $1252
|
|
DW $12D8
|
|
DW $135E
|
|
DW $13E4
|
|
DW $146A
|
|
DW $14F0
|
|
DW $1576
|
|
DW $15FC
|
|
DW $1682
|
|
DW $1708
|
|
DW $178E
|
|
DW $1814
|
|
DW $189A
|
|
DW $1920
|
|
DW $19A6
|
|
DW $1A2C
|
|
DW $1AB2
|
|
DW $1B38
|
|
DW $1BBE
|
|
DW $1C44
|
|
DW $1CCA
|
|
DW $1D50
|
|
DW $1DD6
|
|
DW $1E5C
|
|
DW $1EE2
|
|
DW $1F68
|
|
DW $1FEE
|
|
DW $2074
|
|
DW $20FA
|
|
DW $2180
|
|
DW $2206
|
|
DW $228C
|
|
DW $2312
|
|
DW $2398
|
|
DW $241E
|
|
DW $24A4
|
|
DW $252A
|
|
DW $25B0
|
|
DW $2636
|
|
DW $26BC
|
|
DW $2742
|
|
DW $27C8
|
|
DW $284E
|
|
DW $28D4
|
|
DW $295A
|
|
DW $29E0
|
|
DW $2A66
|
|
DW $2AEC
|
|
DW $2B72
|
|
DW $2BF8
|
|
DW $2C7E
|
|
DW $2D04
|
|
DW $2D8A
|
|
DW $2E10
|
|
DW $2E96
|
|
DW $2F1C
|
|
DW $2FA2
|
|
DW $3028
|
|
DW $30AE
|
|
DW $3134
|
|
DW $31BA
|
|
DW $3240
|
|
DW $32C6
|
|
DW $334C
|
|
DW $33D2
|
|
DW $3458
|
|
DW $34DE
|
|
DW $3564
|
|
DW $35EA
|
|
DW $3670
|
|
DW $36F6
|
|
DW $377C
|
|
DW $3802
|
|
DW $3888
|
|
DW $390E
|
|
DW $3994
|
|
DW $3A1A
|
|
DW $3AA0
|
|
DW $3B26
|
|
DW $3BAC
|
|
DW $3C32
|
|
DW $3CB8
|
|
DW $3D3E
|
|
DW $3DC4
|
|
DW $3E4A
|
|
DW $3ED0
|
|
DW $3F56
|
|
DW $3FDC
|
|
DW $4062
|
|
DW $40E8
|
|
DW $416E
|
|
DW $41F4
|
|
DW $427A
|
|
DW $4300
|
|
DW $4386
|
|
DW $440C
|
|
DW $4492
|
|
DW $4518
|
|
|
|
*--- Request memory
|
|
*
|
|
* X: size high
|
|
* A: size low
|
|
* Y: attributes
|
|
*
|
|
|
|
L018717 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PEA $0000
|
|
PEA $0000
|
|
PHX
|
|
PHA
|
|
LDA L01967F
|
|
PHA
|
|
PHY
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCC L01873B
|
|
PLA
|
|
PLA
|
|
PLB
|
|
SEC
|
|
RTL
|
|
|
|
L01873B PLA
|
|
STA $0A
|
|
PLA
|
|
STA $0C
|
|
PLB
|
|
CLC
|
|
RTL
|
|
|
|
L018744 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
JSR L013C36
|
|
JSR L015981
|
|
JSR L01192F
|
|
PLB
|
|
RTL
|
|
|
|
L018752 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA L019EE0+2
|
|
PHA
|
|
LDA L019EE0
|
|
PHA
|
|
_SetCursor
|
|
LDA #$0001
|
|
STA $54
|
|
PLB
|
|
RTL
|
|
|
|
L01876B PHB
|
|
PHK
|
|
PLB
|
|
PHA
|
|
PHA
|
|
_FrontWindow
|
|
PLA
|
|
STA L0187A6
|
|
PLA
|
|
STA L0187A6+2
|
|
ORA L0187A6
|
|
BEQ L0187A1
|
|
PHA
|
|
LDA L0187A6+2
|
|
PHA
|
|
LDA L0187A6
|
|
PHA
|
|
_GetWKind
|
|
PLA
|
|
BMI L01879C
|
|
LDA #$0001
|
|
PLB
|
|
RTL
|
|
|
|
L01879C LDA #$FFFF
|
|
PLB
|
|
RTL
|
|
|
|
L0187A1 LDA #$0000
|
|
PLB
|
|
RTL
|
|
|
|
L0187A6 ADRL $00000000
|
|
L0187AA DW $004E
|
|
DW $0020 ; frame bits
|
|
ADRL $00000000 ; title ptr
|
|
ADRL $00000005 ; refcon
|
|
DW $0000 ; zoom rect
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
ADRL $00000000 ; color table ptr
|
|
DW $0000 ; origin
|
|
DW $01F4
|
|
DW $0000 ; data size
|
|
DW $03E8
|
|
DW $0000 ; max size
|
|
DW $0000
|
|
DW $0000 ; scroll size
|
|
DW $0000
|
|
DW $0000 ; page size
|
|
DW $0000
|
|
ADRL $00000000 ; info bar refcon
|
|
DW $0000 ; info bar hite
|
|
ADRL $00000000 ; window defproc
|
|
ADRL $00000000 ; info bar defproc
|
|
ADRL $00000000 ; content defproc
|
|
L0187E8 DW $0000 ; content rect
|
|
L0187EA DW $0000
|
|
L0187EC DW $0000
|
|
L0187EE DW $0000
|
|
ADRL $FFFFFFFF ; starting plane
|
|
ADRL $00000000 ; storage ptr
|
|
L0187F8 STZ L019741
|
|
LDA $76
|
|
DEC
|
|
ASL
|
|
TAX
|
|
JMP (L01883D,X)
|
|
|
|
L018803 LDA $76
|
|
CMP #$000B
|
|
BEQ L01883C
|
|
LDA $3E
|
|
BNE L01883C
|
|
LDA $76
|
|
CMP #$000F
|
|
BEQ L01881F
|
|
CMP #$0002
|
|
BEQ L01881F
|
|
CMP #$000C
|
|
BNE L01883C
|
|
L01881F LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
JSR L01635D
|
|
LDA $78
|
|
STA $76
|
|
STA L01969D
|
|
JSR L01635D
|
|
JMP L016333
|
|
L01883C RTS
|
|
|
|
L01883D DA L018803
|
|
DA L0188CE
|
|
DA L018803
|
|
DA L0188F5
|
|
DA L018803
|
|
DA L018803
|
|
DA L018803
|
|
DA L018803
|
|
DA L018803
|
|
DA L018803
|
|
DA L0188A1
|
|
DA L011B55
|
|
DA L018803
|
|
DA L018918
|
|
DA L018865
|
|
DA L018803
|
|
DA L018803
|
|
DA L018803
|
|
DA L018803
|
|
DA L018803
|
|
L018865 LDA $3E
|
|
BNE L01889E
|
|
JSR L0118CC
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
PEA ^L019749
|
|
PEA L019749
|
|
_GetPortRect
|
|
PEA ^L019749
|
|
PEA L019749
|
|
LDX $74
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_FillRect
|
|
JSR L014117
|
|
L01889E BRL L018803
|
|
L0188A1 LDA $3E
|
|
BNE L0188CB
|
|
JSR L01192F
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA $56
|
|
STA $66
|
|
LDA $58
|
|
STA $68
|
|
LDA $5A
|
|
STA $6A
|
|
LDA $5C
|
|
STA $6C
|
|
JSR L018DDB
|
|
JSR L015F79
|
|
L0188CB BRL L018803
|
|
L0188CE LDA $3E
|
|
BNE L0188F2
|
|
PEA $FFFF
|
|
PEA $0004
|
|
_HiliteMenu
|
|
LDA #$000C
|
|
JSR L01080A
|
|
PEA $0000
|
|
PEA $0004
|
|
_HiliteMenu
|
|
L0188F2 BRL L018803
|
|
L0188F5 PEA $FFFF
|
|
PEA $0004
|
|
_HiliteMenu
|
|
LDA #$0004
|
|
JSR L01080A
|
|
PEA $0000
|
|
PEA $0004
|
|
_HiliteMenu
|
|
BRL L018803
|
|
L018918 LDA $3E
|
|
BNE L01891F
|
|
JSR L013F7B
|
|
L01891F BRL L018803
|
|
L018922 LDA #$0004
|
|
STA $46
|
|
PEA ^L019771
|
|
PEA L019771
|
|
_OpenPort
|
|
PEA ^L01999C
|
|
PEA L01999C
|
|
_SetPortLoc
|
|
STZ L019749
|
|
STZ L01974B
|
|
SEC
|
|
LDA $6A
|
|
SBC $66
|
|
STA L01974D
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
STA L01974F
|
|
PEA ^L019749
|
|
PEA L019749
|
|
_InvertRect
|
|
PEA ^L019771
|
|
PEA L019771
|
|
_ClosePort
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
RTS
|
|
|
|
L01898C SEC
|
|
LDA $6A
|
|
SBC $66
|
|
STA L018A44
|
|
SEC
|
|
LDA $6C
|
|
SBC $68
|
|
STA L018A46
|
|
LDA L018A46
|
|
LSR
|
|
AND #$FFFC
|
|
STA L018A46
|
|
LDA L019998
|
|
STA $0A
|
|
LDA L01999A
|
|
STA $0C
|
|
PHA
|
|
PHA
|
|
LDA L018A44
|
|
DEC
|
|
PHA
|
|
PEA $0086
|
|
_Multiply
|
|
CLC
|
|
PLA
|
|
ADC L0199AC
|
|
STA $0E
|
|
PLA
|
|
ADC L0199AE
|
|
STA $10
|
|
LDX L018A44
|
|
L0189D1 LDY L018A46
|
|
L0189D4 LDA [$0A],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L0189D4
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
SEC
|
|
LDA $0E
|
|
SBC #$0086
|
|
STA $0E
|
|
DEX
|
|
BNE L0189D1
|
|
LDA #$0008
|
|
STA $46
|
|
LDA L0199AC
|
|
STA $0A
|
|
LDA L0199AE
|
|
STA $0C
|
|
LDA L019998
|
|
STA $0E
|
|
LDA L01999A
|
|
STA $10
|
|
LDX L018A44
|
|
L018A0B LDY L018A46
|
|
L018A0E LDA [$0A],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L018A0E
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
DEX
|
|
BNE L018A0B
|
|
LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
RTS
|
|
|
|
MX %00
|
|
L018A44 DW $0000
|
|
L018A46 DW $0000
|
|
L018A48 TAX
|
|
LDA $36
|
|
PHA
|
|
EOR #$FFFF
|
|
INC
|
|
STA $36
|
|
PLA
|
|
CPX #$0000
|
|
BNE L018A88
|
|
CMP #$0001
|
|
BEQ L018A64
|
|
LDA #$0004
|
|
JMPL L0190DA
|
|
|
|
L018A64 LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
LDA $66
|
|
STA L0196C5
|
|
LDA $68
|
|
STA L0196C7
|
|
JSR L01618F
|
|
PLA
|
|
STA L0196C5
|
|
PLA
|
|
STA L0196C7
|
|
LDA #$0002
|
|
JMPL L0190DA
|
|
|
|
L018A88 LDA $36
|
|
CMP #$0001
|
|
BEQ L018A96
|
|
LDA #$0003
|
|
JMPL L0190DA
|
|
|
|
L018A96 LDA #$0001
|
|
JMPL L0190DA
|
|
|
|
L018A9D STZ $44
|
|
LDA $36
|
|
BEQ L018AA5
|
|
BPL L018AA6
|
|
L018AA5 RTS
|
|
|
|
L018AA6 LDA L0196C7
|
|
PHA
|
|
LDA L0196C5
|
|
PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GlobalToLocal
|
|
JSL L0181CE
|
|
LDA L0196C5
|
|
STA L019751
|
|
LDA L0196C7
|
|
STA L019753
|
|
PLA
|
|
STA L0196C5
|
|
PLA
|
|
STA L0196C7
|
|
PHA
|
|
PEA ^L019751
|
|
PEA L019751
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
_PtInRect
|
|
PLA
|
|
BEQ L018B28
|
|
PHA
|
|
PHA
|
|
SEC
|
|
LDA L019751
|
|
SBC $66
|
|
PHA
|
|
PEA $0086
|
|
_Multiply
|
|
PLA
|
|
CLC
|
|
ADC L01998A
|
|
STA $0A
|
|
PLA
|
|
ADC L01998C
|
|
STA $0C
|
|
SEC
|
|
LDA L019753
|
|
SBC $68
|
|
LSR
|
|
TAY
|
|
LDA [$0A],Y
|
|
BCC L018B1E
|
|
AND #$000F
|
|
BRA L018B21
|
|
L018B1E AND #$00F0
|
|
L018B21 BNE L018B28
|
|
LDA #$0001
|
|
STA $44
|
|
L018B28 RTS
|
|
|
|
L018B29 PLX
|
|
PLA
|
|
STA L018DD7
|
|
PLA
|
|
STA L018DD9
|
|
PLA
|
|
STA L018DBF
|
|
PLA
|
|
STA L018DC1
|
|
PLA
|
|
STA L018DBB
|
|
PLA
|
|
STA L018DBD
|
|
PHX
|
|
LDA $12
|
|
STA L018DD3
|
|
LDA $14
|
|
STA L018DD5
|
|
SEC
|
|
LDA $68
|
|
SBC $58
|
|
STA L018DC3
|
|
SEC
|
|
LDA $6C
|
|
SBC $58
|
|
STA L018DC5
|
|
_HideCursor
|
|
LDX L018DBB
|
|
L018B67 PHX
|
|
STZ L018DC7
|
|
CPX $66
|
|
BCC L018B79
|
|
CPX $6A
|
|
BCS L018B79
|
|
LDA #$0001
|
|
STA L018DC7
|
|
L018B79 STZ L018DCF
|
|
STZ L018DD1
|
|
LDY L018DBD
|
|
L018B82 PHY
|
|
LDA [$0A],Y
|
|
LDX L018DC7
|
|
BNE L018B8D
|
|
BRL L018D4D
|
|
L018B8D STA L018DC9
|
|
TYA
|
|
ASL
|
|
TAX
|
|
PHX
|
|
CPX L018DC3
|
|
BCS L018B9C
|
|
BRL L018C0D
|
|
L018B9C INX
|
|
INX
|
|
INX
|
|
CPX L018DC5
|
|
BCC L018BA7
|
|
BRL L018C0D
|
|
L018BA7 PLX
|
|
LDY L018DCF
|
|
TYA
|
|
INC
|
|
INC
|
|
STA L018DCF
|
|
BIT L018DD1
|
|
BMI L018BC3
|
|
LDA [$28],Y
|
|
EOR #$FFFF
|
|
STA L018DCD
|
|
AND [$12],Y
|
|
BRL L018D42
|
|
L018BC3 PHY
|
|
LDY L018DCF
|
|
LDA [$28],Y
|
|
XBA
|
|
STA L018DCB
|
|
PLY
|
|
LDA [$28],Y
|
|
XBA
|
|
ASL L018DCB
|
|
ROL
|
|
ASL L018DCB
|
|
ROL
|
|
ASL L018DCB
|
|
ROL
|
|
ASL L018DCB
|
|
ROL
|
|
XBA
|
|
EOR #$FFFF
|
|
STA L018DCD
|
|
PHY
|
|
LDY L018DCF
|
|
LDA [$12],Y
|
|
XBA
|
|
STA L018DCB
|
|
PLY
|
|
LDA [$12],Y
|
|
XBA
|
|
ASL L018DCB
|
|
ROL
|
|
ASL L018DCB
|
|
ROL
|
|
ASL L018DCB
|
|
ROL
|
|
ASL L018DCB
|
|
ROL
|
|
XBA
|
|
AND L018DCD
|
|
BRL L018D42
|
|
L018C0D PLX
|
|
STZ L018DCB
|
|
STZ L018DCD
|
|
CPX L018DC5
|
|
BCC L018C1C
|
|
BRL L018D3C
|
|
L018C1C CPX L018DC3
|
|
BCC L018C5C
|
|
LDY L018DCF
|
|
LDA [$28],Y
|
|
EOR #$FFFF
|
|
BIT L018DD1
|
|
BMI L018C33
|
|
AND #$00F0
|
|
BRA L018C3A
|
|
L018C33 AND #$000F
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
L018C3A TSB L018DCD
|
|
LDA [$12],Y
|
|
BIT L018DD1
|
|
BMI L018C4C
|
|
DEC L018DD1
|
|
AND #$00F0
|
|
BRA L018C59
|
|
L018C4C INC L018DD1
|
|
INC L018DCF
|
|
AND #$000F
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
L018C59 TSB L018DCB
|
|
L018C5C INX
|
|
CPX L018DC5
|
|
BCC L018C65
|
|
BRL L018D3C
|
|
L018C65 CPX L018DC3
|
|
BCC L018CA5
|
|
LDY L018DCF
|
|
LDA [$28],Y
|
|
EOR #$FFFF
|
|
BIT L018DD1
|
|
BMI L018C80
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
BRA L018C83
|
|
L018C80 AND #$000F
|
|
L018C83 TSB L018DCD
|
|
LDA [$12],Y
|
|
BIT L018DD1
|
|
BMI L018C99
|
|
DEC L018DD1
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
BRA L018CA2
|
|
L018C99 INC L018DD1
|
|
INC L018DCF
|
|
AND #$000F
|
|
L018CA2 TSB L018DCB
|
|
L018CA5 INX
|
|
CPX L018DC5
|
|
BCC L018CAE
|
|
BRL L018D3C
|
|
L018CAE CPX L018DC3
|
|
BCC L018CF2
|
|
LDY L018DCF
|
|
LDA [$28],Y
|
|
EOR #$FFFF
|
|
BIT L018DD1
|
|
BMI L018CC6
|
|
AND #$00F0
|
|
XBA
|
|
BRA L018CCE
|
|
L018CC6 AND #$000F
|
|
XBA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
L018CCE TSB L018DCD
|
|
LDA [$12],Y
|
|
BIT L018DD1
|
|
BMI L018CE1
|
|
DEC L018DD1
|
|
AND #$00F0
|
|
XBA
|
|
BRA L018CEF
|
|
L018CE1 INC L018DD1
|
|
INC L018DCF
|
|
AND #$000F
|
|
XBA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
L018CEF TSB L018DCB
|
|
L018CF2 INX
|
|
CPX L018DC5
|
|
BCS L018D3C
|
|
CPX L018DC3
|
|
BCC L018D3C
|
|
LDY L018DCF
|
|
LDA [$28],Y
|
|
EOR #$FFFF
|
|
BIT L018DD1
|
|
BMI L018D14
|
|
AND #$00F0
|
|
XBA
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
BRA L018D18
|
|
L018D14 AND #$000F
|
|
XBA
|
|
L018D18 TSB L018DCD
|
|
LDA [$12],Y
|
|
BIT L018DD1
|
|
BMI L018D2F
|
|
DEC L018DD1
|
|
AND #$00F0
|
|
XBA
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
BRA L018D39
|
|
L018D2F INC L018DD1
|
|
INC L018DCF
|
|
AND #$000F
|
|
XBA
|
|
L018D39 TSB L018DCB
|
|
L018D3C LDA L018DCB
|
|
AND L018DCD
|
|
L018D42 PHA
|
|
LDA L018DCD
|
|
TRB L018DC9
|
|
PLA
|
|
ORA L018DC9
|
|
L018D4D PLY
|
|
STA [$0E],Y
|
|
INY
|
|
INY
|
|
CPY L018DC1
|
|
BCS L018D5A
|
|
BRL L018B82
|
|
L018D5A CLC
|
|
LDA $0E
|
|
ADC #$00A0
|
|
STA $0E
|
|
CLC
|
|
LDA $0A
|
|
ADC #$00A0
|
|
STA $0A
|
|
LDA L018DC7
|
|
BEQ L018D87
|
|
CLC
|
|
LDA $12
|
|
ADC #$0086
|
|
CMP L018DD7
|
|
BNE L018D7D
|
|
LDA L018DD3
|
|
L018D7D STA $12
|
|
CLC
|
|
LDA $28
|
|
ADC #$0086
|
|
STA $28
|
|
L018D87 PLX
|
|
INX
|
|
CPX L018DBF
|
|
BCS L018D91
|
|
BRL L018B67
|
|
L018D91 _ShowCursor
|
|
PHA
|
|
PHA
|
|
_GetTick
|
|
LDA $01,S
|
|
STA L018DC9
|
|
L018DA6 _GetTick
|
|
SEC
|
|
LDA $01,S
|
|
SBC L018DC9
|
|
CMP #$0005
|
|
BCC L018DA6
|
|
PLA
|
|
PLA
|
|
RTS
|
|
|
|
L018DBB DW $0000
|
|
L018DBD DW $0000
|
|
L018DBF DW $0000
|
|
L018DC1 DW $0000
|
|
L018DC3 DW $0000
|
|
L018DC5 DW $0000
|
|
L018DC7 DW $0000
|
|
L018DC9 DW $0000
|
|
L018DCB DW $0000
|
|
L018DCD DW $0000
|
|
L018DCF DW $0000
|
|
L018DD1 DW $0000
|
|
L018DD3 DW $0000
|
|
L018DD5 DW $0000
|
|
L018DD7 DW $0000
|
|
L018DD9 DW $0000
|
|
L018DDB STZ L018F55
|
|
PEA ^L019A34
|
|
PEA L019A34
|
|
_SetPenPat
|
|
PEA $0002
|
|
_SetPenMode
|
|
LDA #$0001
|
|
STA L01975F
|
|
PHA
|
|
PHA
|
|
_SetPenSize
|
|
BRL L018E2E
|
|
L018E07 LDA $36
|
|
BMI L018E20
|
|
CMP #$0002
|
|
BNE L018E20
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
BRL L018DDB
|
|
L018E20 RTS
|
|
|
|
L018E21 LDA $36
|
|
BMI L018E2D
|
|
CMP #$0002
|
|
BNE L018E2D
|
|
JSR L018E2E
|
|
L018E2D RTS
|
|
|
|
L018E2E LDA L018F55
|
|
BPL L018E5D
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_SetPenPat
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
_FrameRect
|
|
PEA ^L019A34
|
|
PEA L019A34
|
|
_SetPenPat
|
|
L018E5D PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
_FrameRect
|
|
LDX $66
|
|
LDY $6A
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L018E75 LDA $36
|
|
CMP #$0002
|
|
BEQ L018EA8
|
|
CMP #$0001
|
|
BEQ L018E82
|
|
RTS
|
|
|
|
L018E82 SEC
|
|
LDA L0196C1
|
|
SBC L018F53
|
|
CMP #$000A
|
|
BCS L018E8F
|
|
RTS
|
|
|
|
L018E8F LDA L0196C1
|
|
STA L018F53
|
|
LDY #$010A
|
|
L018E98 LDA [$A4],Y
|
|
EOR #$FFFF
|
|
STA [$A4],Y
|
|
DEY
|
|
DEY
|
|
BPL L018E98
|
|
JSR L018EF6
|
|
BRA L018EEE
|
|
L018EA8 SEC
|
|
LDA L0196C1
|
|
SBC L018F53
|
|
CMP #$000A
|
|
BCS L018EB5
|
|
RTS
|
|
|
|
L018EB5 LDA L0196C1
|
|
STA L018F53
|
|
LDA L018F55
|
|
EOR #$FFFF
|
|
STA L018F55
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_SetPenPat
|
|
PEA $0000
|
|
CLC
|
|
TDC
|
|
ADC #$0066
|
|
PHA
|
|
_FrameRect
|
|
PEA ^L019A34
|
|
PEA L019A34
|
|
_SetPenPat
|
|
L018EEE LDX $66
|
|
LDY $6A
|
|
JSR L01412A
|
|
RTS
|
|
|
|
L018EF6 LDA $68
|
|
PHA
|
|
LDA $66
|
|
PHA
|
|
LDA $6C
|
|
PHA
|
|
LDA $6A
|
|
PHA
|
|
SEC
|
|
LDA $07,S
|
|
SBC $58
|
|
AND #$FFFC
|
|
LSR
|
|
STA $07,S
|
|
SEC
|
|
LDA $03,S
|
|
DEC
|
|
SBC $58
|
|
AND #$FFFC
|
|
LSR
|
|
INC
|
|
INC
|
|
STA $03,S
|
|
SEC
|
|
LDA $05,S
|
|
SBC $56
|
|
JSL L0182D0
|
|
CLC
|
|
ADC #$3197
|
|
STA $0E
|
|
STA $0A
|
|
LDA #$00E1
|
|
STA $10
|
|
STA $0C
|
|
LDA L0199B2
|
|
STA $28
|
|
LDA L0199B4
|
|
STA $2A
|
|
LDA $A4
|
|
STA $12
|
|
LDA $A6
|
|
STA $14
|
|
LDA $14
|
|
PHA
|
|
CLC
|
|
LDA $12
|
|
ADC #$010C
|
|
PHA
|
|
JSR L018B29
|
|
RTS
|
|
|
|
L018F53 DW $0000
|
|
L018F55 DW $0000
|
|
|
|
L018F57 LDA L019976
|
|
STA $0A
|
|
LDA L019978
|
|
STA $0C
|
|
LDA $A4
|
|
STA $0E
|
|
LDA $A6
|
|
STA $10
|
|
LDY #$0000
|
|
L018F6C LDA [$0E],Y
|
|
JSR L01902E
|
|
STA L0190B4,Y
|
|
LDA #$0000
|
|
STA L019074,Y
|
|
INY
|
|
INY
|
|
INX
|
|
INX
|
|
CPY #$0020
|
|
BNE L018F6C
|
|
LDY #$0000
|
|
L018F86 TYX
|
|
L018F87 INX
|
|
INX
|
|
LDA L0190B4,X
|
|
CMP L0190B4,Y
|
|
BCC L018F96
|
|
INC L019074,X
|
|
BRA L018F9C
|
|
L018F96 PHX
|
|
TYX
|
|
INC L019074,X
|
|
PLX
|
|
L018F9C CPX #$001E
|
|
BNE L018F87
|
|
INY
|
|
INY
|
|
CPY #$001E
|
|
BNE L018F86
|
|
LDY #$0000
|
|
STY L0190D8
|
|
L018FAE LDA L019074,Y
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
STA L019094,Y
|
|
TYA
|
|
CMP L019074,Y
|
|
BEQ L018FC1
|
|
INC L0190D8
|
|
L018FC1 INY
|
|
INY
|
|
CPY #$0020
|
|
BNE L018FAE
|
|
LDA L0190D8
|
|
BNE L018FCE
|
|
RTS
|
|
|
|
L018FCE LDY #$0000
|
|
L018FD1 LDA [$0A],Y
|
|
JSR L019009
|
|
XBA
|
|
JSR L019009
|
|
XBA
|
|
STA [$0A],Y
|
|
INY
|
|
INY
|
|
CPY #$F800
|
|
BNE L018FD1
|
|
LDY #$0000
|
|
L018FE7 LDA L019074,Y
|
|
ASL
|
|
TAX
|
|
LDA [$0E],Y
|
|
STA L019054,X
|
|
INY
|
|
INY
|
|
CPY #$0020
|
|
BNE L018FE7
|
|
PEA $0000
|
|
PEA ^L019054
|
|
PEA L019054
|
|
_SetColorTable
|
|
RTS
|
|
|
|
L019009 STA L0190D4
|
|
AND #$000F
|
|
ASL
|
|
TAX
|
|
LDA L0190D4
|
|
AND #$FFF0
|
|
ORA L019074,X
|
|
STA L0190D4
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
TAX
|
|
LDA L0190D4
|
|
AND #$FF0F
|
|
ORA L019094,X
|
|
RTS
|
|
|
|
L01902E STA L0190D6
|
|
AND #$000F
|
|
STA L0190D4
|
|
LDA L0190D6
|
|
AND #$00F0
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
CLC
|
|
ADC L0190D4
|
|
STA L0190D4
|
|
LDA L0190D6
|
|
AND #$0F00
|
|
XBA
|
|
CLC
|
|
ADC L0190D4
|
|
RTS
|
|
|
|
L019054 HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L019074 HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L019094 HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L0190B4 HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L0190D4 DW $0000
|
|
L0190D6 DW $0000
|
|
L0190D8 DW $0000
|
|
|
|
L0190DA DEC
|
|
ASL
|
|
TAX
|
|
JMP (L0190E0,X)
|
|
|
|
L0190E0 DA L0190F0
|
|
DA L019105
|
|
DA L01911A
|
|
DA L01912F
|
|
DA L019144
|
|
DA L01917B
|
|
DA L0191AE
|
|
DA L019221
|
|
|
|
L0190F0 LDX L01929A
|
|
L0190F3 PHX
|
|
LDA L01929A,X
|
|
PHA
|
|
_EnableMItem
|
|
PLX
|
|
DEX
|
|
DEX
|
|
BNE L0190F3
|
|
RTS
|
|
|
|
L019105 LDX L01929A
|
|
L019108 PHX
|
|
LDA L01929A,X
|
|
PHA
|
|
_DisableMItem
|
|
PLX
|
|
DEX
|
|
DEX
|
|
BNE L019108
|
|
RTS
|
|
|
|
L01911A LDX L0192A2
|
|
L01911D PHX
|
|
LDA L0192A2,X
|
|
PHA
|
|
_EnableMItem
|
|
PLX
|
|
DEX
|
|
DEX
|
|
BNE L01911D
|
|
RTS
|
|
|
|
L01912F LDX L0192A2
|
|
L019132 PHX
|
|
LDA L0192A2,X
|
|
PHA
|
|
_DisableMItem
|
|
PLX
|
|
DEX
|
|
DEX
|
|
BNE L019132
|
|
RTS
|
|
|
|
L019144 PEA $011C
|
|
_DisableMItem
|
|
PEA $011D
|
|
_DisableMItem
|
|
LDA $42
|
|
BEQ L019166
|
|
PEA $010F
|
|
_EnableMItem
|
|
L019166 LDX L0192B2
|
|
L019169 PHX
|
|
LDA L0192B2,X
|
|
PHA
|
|
_EnableMItem
|
|
PLX
|
|
DEX
|
|
DEX
|
|
BNE L019169
|
|
RTS
|
|
|
|
L01917B PEA $011C
|
|
_EnableMItem
|
|
PEA $011D
|
|
_EnableMItem
|
|
PEA $010F
|
|
_DisableMItem
|
|
LDX L0192B2
|
|
L01919C PHX
|
|
LDA L0192B2,X
|
|
PHA
|
|
_DisableMItem
|
|
PLX
|
|
DEX
|
|
DEX
|
|
BNE L01919C
|
|
RTS
|
|
|
|
L0191AE PEA $0100
|
|
_DisableMItem
|
|
PEA $0101
|
|
_DisableMItem
|
|
PEA $010D
|
|
_EnableMItem
|
|
PEA $010E
|
|
_EnableMItem
|
|
PEA $010F
|
|
_EnableMItem
|
|
PEA $0110
|
|
_EnableMItem
|
|
LDA #$0080
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PEA $0004
|
|
_SetMenuFlag
|
|
PEA $0005
|
|
_SetMenuFlag
|
|
PEA $0006
|
|
_SetMenuFlag
|
|
PEA $0002
|
|
_SetMenuFlag
|
|
_DrawMenuBar
|
|
RTS
|
|
|
|
L019221 PEA $0100
|
|
_EnableMItem
|
|
PEA $0101
|
|
_EnableMItem
|
|
PEA $010D
|
|
_DisableMItem
|
|
PEA $010E
|
|
_DisableMItem
|
|
LDA $42
|
|
BNE L019257
|
|
PEA $010F
|
|
_DisableMItem
|
|
L019257 PEA $0110
|
|
_DisableMItem
|
|
LDA #$FF7F
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PEA $0004
|
|
_SetMenuFlag
|
|
PEA $0005
|
|
_SetMenuFlag
|
|
PEA $0006
|
|
_SetMenuFlag
|
|
PEA $0002
|
|
_SetMenuFlag
|
|
_DrawMenuBar
|
|
RTS
|
|
|
|
DW $0000
|
|
L01929A DW $0006
|
|
DW $010D
|
|
DW $010E
|
|
DW $0110
|
|
L0192A2 DW $000E
|
|
DW $010D
|
|
DW $010E
|
|
DW $0110
|
|
DW $0111
|
|
DW $0112
|
|
DW $0113
|
|
DW $0114
|
|
L0192B2 DW $0016
|
|
DW $0117
|
|
DW $010C
|
|
DW $0118
|
|
DW $0116
|
|
DW $011E
|
|
DW $011F
|
|
DW $0104
|
|
DW $0105
|
|
DW $0106
|
|
DW $0107
|
|
DW $010A
|
|
|
|
L0192CA ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDA L019685
|
|
STA L0192ED+1
|
|
STA L019379+1
|
|
LDA #$0022
|
|
STA L019384
|
|
STZ L019384+2
|
|
TDC
|
|
CLC
|
|
ADC #$007E
|
|
STA L019384+1
|
|
SEP #$30
|
|
LDAL CLRROM
|
|
L0192ED LDAL $00C100
|
|
LDA L019686
|
|
STAL MSLOT
|
|
LDAL MSLOT
|
|
TAX
|
|
LDA #$00
|
|
STAL $0003B8,X
|
|
EOR #$25
|
|
ORA #$80
|
|
STAL $000438,X
|
|
LDA #$00
|
|
STAL $0005B8,X
|
|
STAL $0006B8,X
|
|
STAL $000538,X
|
|
LDA #$10
|
|
STAL $0004B8,X
|
|
LDA #$03
|
|
STAL $000638,X
|
|
LDA #$08
|
|
STAL $000738,X
|
|
REP #$30
|
|
PEA ^L01933C
|
|
PEA L01933C
|
|
_SetHeartBeat
|
|
PLB
|
|
RTL
|
|
|
|
L01933C ADRL $00000000
|
|
L019340 DW $0002
|
|
DW $A55A
|
|
PHB
|
|
PHK
|
|
PLB
|
|
REP #$30
|
|
LDA L019470
|
|
BNE L019369
|
|
INC L019470
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $000D
|
|
_GetAddr
|
|
PLA
|
|
STA L019472
|
|
PLA
|
|
STA L019472+2
|
|
L019369 LDA #$0002
|
|
STA L019340
|
|
TSC
|
|
STA L01947E
|
|
SEC
|
|
XCE
|
|
LDAL CLRROM
|
|
L019379 LDAL $00C100
|
|
LDA L019686
|
|
STAL MSLOT
|
|
L019384 JSL $FFFFFF
|
|
CLC
|
|
XCE
|
|
REP #$30
|
|
LDA L01947E
|
|
TCS
|
|
STZ L019476
|
|
LDA L019478
|
|
PHA
|
|
LDA L01947A
|
|
PHA
|
|
LDAL $000285
|
|
STA L019478
|
|
LDAL $000287
|
|
STA L01947A
|
|
PHD
|
|
LDA L019472+2
|
|
PHA
|
|
LDA L019472
|
|
PHA
|
|
TSC
|
|
TCD
|
|
LDA L019478
|
|
BMI L0193BD
|
|
CMP [$01]
|
|
BCS L0193C2
|
|
L0193BD LDA [$01]
|
|
STA L019478
|
|
L0193C2 LDY #$0004
|
|
CMP [$01],Y
|
|
BCC L0193CE
|
|
LDA [$01],Y
|
|
STA L019478
|
|
L0193CE LDY #$0002
|
|
LDA L01947A
|
|
BMI L0193DA
|
|
CMP [$01],Y
|
|
BCS L0193DF
|
|
L0193DA LDA [$01],Y
|
|
STA L01947A
|
|
L0193DF LDY #$0006
|
|
CMP [$01],Y
|
|
BCC L0193EB
|
|
LDA [$01],Y
|
|
STA L01947A
|
|
L0193EB PLA
|
|
PLA
|
|
PLD
|
|
PLA
|
|
CMP L01947A
|
|
BEQ L0193FA
|
|
LDA #$0002
|
|
STA L019476
|
|
L0193FA PLA
|
|
CMP L019478
|
|
BEQ L019406
|
|
LDA #$0002
|
|
STA L019476
|
|
L019406 LDA L01947C
|
|
AND #$9000
|
|
TAX
|
|
STZ L01947C
|
|
LDAL $000280
|
|
ROR
|
|
BCS L01941D
|
|
LDA #$8000
|
|
STA L01947C
|
|
L01941D TXA
|
|
CMP L01947C
|
|
BEQ L01942C
|
|
LDA L019476
|
|
ORA #$0004
|
|
STA L019476
|
|
L01942C TXA
|
|
AND #$8000
|
|
BEQ L01943B
|
|
LDA L01947C
|
|
ORA #$4000
|
|
STA L01947C
|
|
L01943B LDA L019476
|
|
BEQ L01946B
|
|
PHA
|
|
SEP #$30
|
|
LDAL KEYMODREG
|
|
PHA
|
|
LDA #$00
|
|
PHA
|
|
REP #$30
|
|
LDA L019478
|
|
PHA
|
|
LDA L01947A
|
|
PHA
|
|
LDA L01947C
|
|
PHA
|
|
_FakeMouse
|
|
BCC L01946B
|
|
STZ L019478
|
|
STZ L01947A
|
|
STZ L01947C
|
|
L01946B SEP #$30
|
|
PLB
|
|
CLC
|
|
RTL
|
|
|
|
L019470 DW $0000
|
|
L019472 ADRL $00000000
|
|
L019476 DW $0000
|
|
L019478 DW $0000
|
|
L01947A DW $0000
|
|
L01947C DW $0000
|
|
L01947E DW $0000
|
|
|
|
MX %00
|
|
L019480 PLA
|
|
STA L019679
|
|
PLA
|
|
STA $0A
|
|
PLA
|
|
STA $0C
|
|
SEC
|
|
LDY #$0004
|
|
LDA [$0A],Y
|
|
SBC [$0A]
|
|
STA L01966B
|
|
SEC
|
|
LDY #$0006
|
|
LDA [$0A],Y
|
|
LDY #$0002
|
|
SBC [$0A],Y
|
|
STA L019677
|
|
LSR
|
|
DEC
|
|
DEC
|
|
STA L01966D
|
|
PLA
|
|
STA L01966F
|
|
PLA
|
|
STA L019671
|
|
LDA L019679
|
|
PHA
|
|
LDA L01966F
|
|
STA $0A
|
|
LDA L019671
|
|
STA $0C
|
|
LDA L0199AC
|
|
STA $0E
|
|
LDA L0199AE
|
|
STA $10
|
|
LDX L01966B
|
|
L0194CC LDY L01966D
|
|
L0194CF LDA [$0A],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L0194CF
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
DEX
|
|
BNE L0194CC
|
|
CLC
|
|
LDA L01966F
|
|
ADC #$0086
|
|
STA $0A
|
|
LDA L019671
|
|
STA $0C
|
|
LDA L0199AC
|
|
STA $0E
|
|
LDA L0199AE
|
|
STA $10
|
|
LDA L01966B
|
|
DEC
|
|
STA L019673
|
|
LDA L01966D
|
|
STA L019675
|
|
JSR L019647
|
|
LDY L019675
|
|
LDA #$FFFF
|
|
L019518 STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L019518
|
|
LDA L01966F
|
|
STA $0A
|
|
LDA L019671
|
|
STA $0C
|
|
LDA L0199AC
|
|
STA $0E
|
|
LDA L0199AE
|
|
STA $10
|
|
LDY L019675
|
|
LDA #$FFFF
|
|
L019538 STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L019538
|
|
CLC
|
|
LDA L0199AC
|
|
ADC #$0086
|
|
STA $0E
|
|
JSR L019647
|
|
LDA L01966F
|
|
STA $0A
|
|
LDA L019671
|
|
STA $0C
|
|
LDA L0199AC
|
|
STA $0E
|
|
LDA L0199AE
|
|
STA $10
|
|
LDX L01966B
|
|
L019561 LDY #$0000
|
|
L019564 PHY
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
XBA
|
|
CPY L01966D
|
|
BEQ L019574
|
|
BCC L019574
|
|
LDA #$FFFF
|
|
L019574 STA L01967B
|
|
PLY
|
|
LDA [$0A],Y
|
|
XBA
|
|
ASL L01967B
|
|
ROL
|
|
ASL L01967B
|
|
ROL
|
|
ASL L01967B
|
|
ROL
|
|
ASL L01967B
|
|
ROL
|
|
XBA
|
|
ORA [$0E],Y
|
|
STA [$0E],Y
|
|
INY
|
|
INY
|
|
CPY L01966D
|
|
BEQ L019564
|
|
BCC L019564
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
DEX
|
|
BNE L019561
|
|
LDA L01966F
|
|
STA $0A
|
|
LDA L019671
|
|
STA $0C
|
|
LDA L0199AC
|
|
STA $0E
|
|
LDA L0199AE
|
|
STA $10
|
|
LDX L01966B
|
|
L0195C3 LDY #$0000
|
|
LDA #$FFFF
|
|
STA L01967B
|
|
L0195CC LDA [$0A],Y
|
|
XBA
|
|
STA L01967D
|
|
LSR L01967B
|
|
ROR
|
|
LSR L01967B
|
|
ROR
|
|
LSR L01967B
|
|
ROR
|
|
LSR L01967B
|
|
ROR
|
|
XBA
|
|
ORA [$0E],Y
|
|
STA [$0E],Y
|
|
LDA L01967D
|
|
STA L01967B
|
|
INY
|
|
INY
|
|
CPY L01966D
|
|
BEQ L0195CC
|
|
BCC L0195CC
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
DEX
|
|
BNE L0195C3
|
|
LDA L01966F
|
|
STA $0A
|
|
LDA L019671
|
|
STA $0C
|
|
LDA L0199AC
|
|
STA $0E
|
|
LDA L0199AE
|
|
STA $10
|
|
LDX L01966B
|
|
L019620 LDY L01966D
|
|
L019623 LDA [$0A],Y
|
|
EOR [$0E],Y
|
|
EOR #$FFFF
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L019623
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
DEX
|
|
BNE L019620
|
|
JMPL L018EF6
|
|
|
|
L019647 LDX L019673
|
|
L01964A LDY L019675
|
|
L01964D LDA [$0A],Y
|
|
ORA [$0E],Y
|
|
STA [$0E],Y
|
|
DEY
|
|
DEY
|
|
BPL L01964D
|
|
CLC
|
|
LDA $0A
|
|
ADC #$0086
|
|
STA $0A
|
|
CLC
|
|
LDA $0E
|
|
ADC #$0086
|
|
STA $0E
|
|
DEX
|
|
BNE L01964A
|
|
RTS
|
|
|
|
L01966B DW $0000
|
|
L01966D DW $0000
|
|
L01966F DW $0000
|
|
L019671 DW $0000
|
|
L019673 DW $0000
|
|
L019675 DW $0000
|
|
L019677 DW $0000
|
|
L019679 DW $0000
|
|
L01967B DW $0000
|
|
L01967D DW $0000
|
|
L01967F ENT
|
|
DW $0000
|
|
L019681 ENT
|
|
DW $0000
|
|
L019683 ENT
|
|
DW $0000
|
|
L019685 ENT
|
|
DB $00
|
|
L019686 ENT
|
|
DB $00
|
|
L019687 ENT ; type of loaded picture (BIN/PNT/PIC)
|
|
DW $0000
|
|
L019689 DW $0000
|
|
L01968B DW $0000
|
|
L01968D ENT
|
|
DW $0000
|
|
DW $0000
|
|
L019691 ENT
|
|
DW $0000
|
|
L019693 ENT
|
|
DW $0000
|
|
DW $0000
|
|
L019697 DW $0000
|
|
L019699 ENT
|
|
DW $0000
|
|
L01969B ENT
|
|
DW $0000
|
|
L01969D ENT
|
|
DW $0000
|
|
L01969F DW $0000
|
|
L0196A1 DW $0000
|
|
L0196A3 ENT
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $0F
|
|
DB $0F
|
|
DB $02
|
|
DB $F0
|
|
DB $F0
|
|
DB $F0
|
|
DB $00
|
|
L0196AD ENT
|
|
DW $0000
|
|
L0196AF ENT
|
|
DW $0000
|
|
L0196B1 ENT
|
|
DW $0000
|
|
L0196B3 ENT
|
|
DW $0000
|
|
L0196B5 ENT
|
|
DW $0000
|
|
DW $0000
|
|
L0196B9 ENT
|
|
DW $0000
|
|
L0196BB ENT
|
|
DW $0000 ; event code
|
|
L0196BD ENT
|
|
ADRL $00000000 ; event message
|
|
L0196C1 ENT
|
|
ADRL $00000000 ; tick count
|
|
L0196C5 ENT
|
|
DW $0000 ; mouse location
|
|
L0196C7 ENT
|
|
DW $0000
|
|
L0196C9 ENT
|
|
DW $0000 ; modifiers
|
|
L0196CB ENT
|
|
DW $0000
|
|
L0196CD DW $0000
|
|
L0196CF DW $0028 ; Alert rect
|
|
DW $003C
|
|
DW $006E
|
|
DW $012C
|
|
DW $0001 ; Alert ID
|
|
HEX 80 ; First stage byte
|
|
HEX 80 ; Second stage byte
|
|
HEX 80 ; Third stage byte
|
|
HEX 80 ; fourth stage byte
|
|
ADRL L0196ED ; Ptr to item template
|
|
ADRL L019705 ; Ptr to item template
|
|
ADRL L01971D ; Ptr to item template
|
|
ADRL $00000000
|
|
L0196ED DW $0001 ; Item ID
|
|
DW $002E ; Item rect
|
|
DW $0014
|
|
DW $003C
|
|
DW $005A
|
|
DW $000A ; Std button
|
|
ADRL L01046F ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L019705 DW $0002 ; Item ID
|
|
DW $002E ; Item rect
|
|
DW $0096
|
|
DW $003C
|
|
DW $00DC
|
|
DW $000A ; Std button
|
|
ADRL L010472 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L01971D DW $0003 ; Item ID
|
|
L01971F DW $0014 ; Item rect
|
|
L019721 DW $0000
|
|
L019723 DW $0022
|
|
L019725 DW $0000
|
|
DW $800F ; Static text
|
|
L019729 ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L019735 DW $0000
|
|
L019737 DW $0000
|
|
L019739 DW $0000
|
|
L01973B DW $0000
|
|
L01973D ENT
|
|
DW $0000
|
|
L01973F ENT
|
|
DW $0000
|
|
L019741 DW $0000
|
|
L019743 DW $0000
|
|
L019745 DW $0000
|
|
L019747 DW $0000
|
|
L019749 DW $0000
|
|
L01974B DW $0000
|
|
L01974D DW $0000
|
|
L01974F DW $0000
|
|
L019751 ENT
|
|
DW $0000
|
|
L019753 ENT
|
|
DW $0000
|
|
L019755 DW $0000
|
|
L019757 DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
L01975F DW $0000
|
|
L019761 DW $0000
|
|
L019763 DW $0000
|
|
L019765 DW $0000
|
|
L019767 DW $0000
|
|
L019769 DW $0000
|
|
L01976B DW $0000
|
|
L01976D DW $0000
|
|
L01976F DW $0000
|
|
L019771 DS $B4 ; a port
|
|
L019825 ENT ; a port
|
|
DS $B4
|
|
|
|
*--- replyPtr
|
|
|
|
L0198D9 ENT
|
|
DW $0000 ; good
|
|
L0198DB DW $0000 ; fileType
|
|
L0198DD DW $0000 ; auxFileType
|
|
L0198DF ENT
|
|
DS 16 ; fileName
|
|
L0198EF ENT
|
|
DS 129 ; fullPathname
|
|
|
|
*---
|
|
|
|
L019970 ENT
|
|
DB $00
|
|
DB $00
|
|
L019972 ENT
|
|
DB $00
|
|
DB $00
|
|
L019974 ENT
|
|
DB $00
|
|
DB $00
|
|
L019976 ENT
|
|
DB $00
|
|
DB $00
|
|
L019978 ENT
|
|
DB $00
|
|
DB $00
|
|
DB $A0
|
|
DB $00
|
|
L01997C ENT
|
|
DB $00
|
|
DB $00
|
|
L01997E DB $00
|
|
DB $00
|
|
L019980 ENT
|
|
DB $00
|
|
DB $00
|
|
L019982 DB $40
|
|
DB $01
|
|
L019984 ENT
|
|
DB $00
|
|
DB $00
|
|
L019986 ENT
|
|
DB $00
|
|
DB $00
|
|
L019988 DB $00
|
|
DB $00
|
|
L01998A DB $00
|
|
DB $00
|
|
L01998C DB $00
|
|
DB $00
|
|
DB $86
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $85
|
|
DB $00
|
|
DB $0C
|
|
DB $01
|
|
L019998 ENT
|
|
DW $0000
|
|
L01999A ENT
|
|
DW $0000
|
|
L01999C DW $0000
|
|
L01999E DW $0000
|
|
L0199A0 DW $0000
|
|
DW $0086
|
|
DW $0000
|
|
DW $0000
|
|
DW $0085
|
|
DW $010C
|
|
L0199AC ENT
|
|
DW $0000
|
|
L0199AE ENT
|
|
DW $0000
|
|
L0199B0 DW $0000
|
|
L0199B2 DW $0000
|
|
L0199B4 DW $0000
|
|
DW $0086
|
|
DW $0000
|
|
DW $0000
|
|
DW $0085
|
|
DW $010C
|
|
L0199C0 ENT
|
|
DW $0000
|
|
L0199C2 ENT
|
|
DW $0000
|
|
L0199C4 DW $0000
|
|
L0199C6 DW $0000
|
|
L0199C8 DW $0000
|
|
L0199CA DW $0000
|
|
L0199CC ENT
|
|
DW $0000
|
|
L0199CE ENT
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
L0199D4 DW $0096
|
|
DW $0004
|
|
DW $00C3
|
|
DW $0029
|
|
L0199DC DW $00A4
|
|
DW $002D
|
|
DW $00C3
|
|
DW $013B
|
|
L0199E4 DW $000F
|
|
DW $0004
|
|
DW $0092
|
|
DW $0029
|
|
L0199EC DW $0000
|
|
DW $0000
|
|
DW $00C8
|
|
DW $0140
|
|
L0199F4 ENT
|
|
HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
L019A14 ENT
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L019A34 HEX FFFF0000FFFF00000000FFFF0000FFFF
|
|
HEX FFFF0000FFFF00000000FFFF0000FFFF
|
|
L019A54 HEX 0F0F0F0FF0F0F0F00F0F0F0FF0F0F0F0
|
|
HEX 0F0F0F0FF0F0F0F00F0F0F0FF0F0F0F0
|
|
L019A74 HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
HEX EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
|
|
HEX EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
|
|
HEX DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
|
|
HEX DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
|
|
HEX CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
|
HEX CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
|
|
HEX BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
|
|
HEX BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
|
|
HEX AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
|
HEX AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
|
HEX 99999999999999999999999999999999
|
|
HEX 99999999999999999999999999999999
|
|
HEX 88888888888888888888888888888888
|
|
HEX 88888888888888888888888888888888
|
|
HEX 77777777777777777777777777777777
|
|
HEX 77777777777777777777777777777777
|
|
HEX 66666666666666666666666666666666
|
|
HEX 66666666666666666666666666666666
|
|
HEX 55555555555555555555555555555555
|
|
HEX 55555555555555555555555555555555
|
|
HEX 44444444444444444444444444444444
|
|
HEX 44444444444444444444444444444444
|
|
HEX 33333333333333333333333333333333
|
|
HEX 33333333333333333333333333333333
|
|
HEX 22222222222222222222222222222222
|
|
HEX 22222222222222222222222222222222
|
|
HEX 11111111111111111111111111111111
|
|
HEX 11111111111111111111111111111111
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L019C74 HEX 0FFFFFFFFFFFFFFF
|
|
HEX FFFF0FFFFFFFFFFF
|
|
HEX 0FFFFFFFFFFFFFFF
|
|
HEX FFFF0FFFFFFFFFFF
|
|
HEX 0FFF0FFFFF0FFF0F
|
|
HEX 0FFF0FFFFF0FFF0F
|
|
HEX 0FFF0FFFFF0FFF0F
|
|
HEX 0FFF0FFFFF0FFF0F
|
|
HEX 0F0F0F0FF0F0F0F0
|
|
HEX 0F0F0F0FF0F0F0F0
|
|
HEX 0F0F0F0FF0F0F0F0
|
|
HEX 0F0F0F0FF0F0F0F0
|
|
HEX F000000000000000
|
|
HEX 0000F00000000000
|
|
HEX F000000000000000
|
|
HEX 0000F00000000000
|
|
HEX F000F00000F000F0
|
|
HEX F000F00000F000F0
|
|
HEX F000F00000F000F0
|
|
HEX F000F00000F000F0
|
|
HEX FFF0FFF0FF0FFF0F
|
|
HEX F0FFF0FF0FFF0FFF
|
|
HEX FFF0FFF0FF0FFF0F
|
|
HEX F0FFF0FF0FFF0FFF
|
|
HEX FFFFFFF0FFFFFF0F
|
|
HEX FFFFF0FFFFFF0FFF
|
|
HEX FFF0FFFFFF0FFFFF
|
|
HEX F0FFFFFF0FFFFFFF
|
|
HEX 0FFFFFFFF0FFFFFF
|
|
HEX FF0FFFFFFFFFFFFF
|
|
HEX FFFFFF0FFFFFF0FF
|
|
HEX FFFF0FFFFFFFFFFF
|
|
HEX 00000000FFFFFFFF
|
|
HEX 00000000FFFFFFFF
|
|
HEX 00000000FFFFFFFF
|
|
HEX 00000000FFFFFFFF
|
|
HEX FFFF0FFFFFF000FF
|
|
HEX FF0FFF0F00FFFFF0
|
|
HEX 0FFFFFFFFFFFFFF0
|
|
HEX FFFFFF0FFFFFF0FF
|
|
HEX F000F0000FFF0FF0
|
|
HEX 0FFF00000FFF0000
|
|
HEX F000F0000FF00FFF
|
|
HEX 00000FFF00000FFF
|
|
HEX 000000000FFFFFFF
|
|
HEX 0FFFFFFF0FFFFFFF
|
|
HEX 00000000FFFF0FFF
|
|
HEX FFFF0FFFFFFF0FFF
|
|
HEX 00000FFFF000F0FF
|
|
HEX FF0FFF0FF0FFF000
|
|
HEX 0FFF0000FFF0F000
|
|
HEX FF0FFF0FF000FFF0
|
|
HEX 0FFFFF0FF0FFF0FF
|
|
HEX FF000FF0F0FFF0FF
|
|
HEX 0FFFFF0FFFFFFFF0
|
|
HEX FFFFFFF0FFFFFFF0
|
|
HEX FFFFFFFFFFFF0FFF
|
|
HEX FFF0F0FFFF0F0F0F
|
|
HEX F0F0F0F0FF0F0F0F
|
|
HEX FFF0F0FFFFFF0FFF
|
|
HEX 0F00FFF0FF00FFFF
|
|
HEX FFFFFF00FFF00F00
|
|
HEX 00F00FFF00FFFFFF
|
|
HEX FFFF00FF0FFF00F0
|
|
|
|
L019E74 ENT
|
|
DW $001C
|
|
DW $002E
|
|
DW $00A1
|
|
DW $013A
|
|
L019E7C DW $001C
|
|
DW $002E
|
|
DW $0032
|
|
DW $005A
|
|
DW $001B
|
|
DW $002D
|
|
DW $00A2
|
|
DW $013B
|
|
L019E8C DW $001B
|
|
DW $002D
|
|
DW $0033
|
|
DW $005B
|
|
DW $000F
|
|
DW $0004
|
|
DW $0093
|
|
DW $0029
|
|
DW $0096
|
|
DW $0004
|
|
DW $00C4
|
|
DW $0029
|
|
DW $00A5
|
|
DW $002D
|
|
DW $00C4
|
|
DW $013B
|
|
DW $000F
|
|
DW $002D
|
|
DW $001C
|
|
DW $013B
|
|
L019EB4 DW $00AA
|
|
DW $0030
|
|
DW $00BC
|
|
DW $0048
|
|
L019EBC DW $00AB
|
|
DW $0031
|
|
DW $00BB
|
|
DW $0047
|
|
L019EC4 DW $00A5
|
|
DW $002E
|
|
DW $00C2
|
|
DW $004A
|
|
L019ECC DW $0001
|
|
L019ECE DW $0001
|
|
DW $0002
|
|
DW $0003
|
|
DW $0003
|
|
DW $0004
|
|
DW $0004
|
|
DW $0005
|
|
L019EDC ENT
|
|
ADRL $00000000
|
|
L019EE0 ENT
|
|
ADRL $00000000
|
|
L019EE4 DW $0008
|
|
DW $0004
|
|
L019EE8 DS $84
|
|
L019F6C DS $40
|
|
L019FAC DS $40
|
|
|
|
L019FEC DW $0007 ; cursor height
|
|
DW $0003 ; cursor width
|
|
HEX 000F000F0000 ; cursor image
|
|
HEX F00000000000
|
|
HEX 000F00F00000
|
|
HEX 0F0000000000
|
|
HEX 0000F0000000
|
|
HEX F000000F0000
|
|
HEX 000F00000000
|
|
HEX 000000000000 ; cursor mask
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
DW $0000 ; hot spot
|
|
DW $0000
|
|
L01A048 DW $000A ; cursor height
|
|
DW $0004 ; cursor width
|
|
HEX FFFFFFFFFFFF0000 ; cursor image
|
|
HEX F0000000000F0000
|
|
HEX F0000000000F0000
|
|
HEX F0000000000F0000
|
|
HEX F0000000000F0000
|
|
HEX F0000000000F0000
|
|
HEX F0000000000F0000
|
|
HEX F0000000000F0000
|
|
HEX F0000000000F0000
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFFF0000 ; cursor mask
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFFF0000
|
|
HEX FFFFFFFFFFFF0000
|
|
DW $0000 ; hot spot
|
|
DW $0000
|
|
L01A0F0 DW $000A ; cursor height
|
|
DW $0004 ; cursor width
|
|
HEX 00000F0000000000 ; cursor image
|
|
HEX 0000F0F000000000
|
|
HEX 000F000FF0000000
|
|
HEX 00F00000FFF00000
|
|
HEX 0F000F000FFF0000
|
|
HEX F000FFF0F0FF0000
|
|
HEX 0F000FFF00FF0000
|
|
HEX 00F000F000FF0000
|
|
HEX 000F0F0000FF0000
|
|
HEX 0000F00000F00000
|
|
HEX 00000F0000000000 ; cursor mask
|
|
HEX 0000FFF000000000
|
|
HEX 000FFFFFF0000000
|
|
HEX 00FFFFFFFFF00000
|
|
HEX 0FFFFFFFFFFF0000
|
|
HEX FFFFFFFFF0FF0000
|
|
HEX 0FFFFFFF00FF0000
|
|
HEX 00FFFFF000FF0000
|
|
HEX 000FFF0000FF0000
|
|
HEX 0000F00000000000
|
|
DW $0009 ; hot spot
|
|
DW $000A
|
|
L01A198 DW $000A ; cursor height
|
|
DW $0005 ; cursor width
|
|
HEX 0000000FFFFF00000000 ; cursor image
|
|
HEX 0000FFF00000FF000000
|
|
HEX 00F00000000000F00000
|
|
HEX 0F00000000000F000000
|
|
HEX 0F000000000FF0000000
|
|
HEX 00FFF000FFF000000000
|
|
HEX 0FF0FFFF000000000000
|
|
HEX 0F0FF000000000000000
|
|
HEX 00FF0000000000000000
|
|
HEX 000F0000000000000000
|
|
HEX 00000000000000000000 ; cursor mask
|
|
HEX 00000000000000000000
|
|
HEX 00000000000000000000
|
|
HEX 00000000000000000000
|
|
HEX 00000000000000000000
|
|
HEX 00000000000000000000
|
|
HEX 00000000000000000000
|
|
HEX 00000000000000000000
|
|
HEX 00000000000000000000
|
|
HEX 00000000000000000000
|
|
DW $0009 ; hot spot
|
|
DW $0003
|
|
L01A268 DW $0007 ; cursor height
|
|
DW $0003 ; cursor width
|
|
HEX 000F00000000 ; cursor image
|
|
HEX 000F00000000
|
|
HEX 000F00000000
|
|
HEX FFFFFFF00000
|
|
HEX 000F00000000
|
|
HEX 000F00000000
|
|
HEX 000F00000000
|
|
HEX 000000000000 ; cursor mask
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
DW $0003 ; hot spot
|
|
DW $0003
|
|
L01A2C4 ENT
|
|
DW $0007 ; cursor height
|
|
DW $0003 ; cursor width
|
|
HEX 0000F0000000 ; cursor image
|
|
HEX 000FFF000000
|
|
HEX 00FFFFF00000
|
|
HEX FFFF0FFFF000
|
|
HEX 00FFFFF00000
|
|
HEX 000FFF000000
|
|
HEX 0000F0000000
|
|
HEX 000000000000 ; cursor mask
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
DW $0003 ; hot spot
|
|
DW $0004
|
|
L01A320 DW $0007 ; cursor height
|
|
DW $0003 ; cursor width
|
|
HEX 000F00000000 ; cursor image
|
|
HEX 000F00000000
|
|
HEX 000000000000
|
|
HEX FF0F0FF00000
|
|
HEX 000000000000
|
|
HEX 000F00000000
|
|
HEX 000F00000000
|
|
HEX 000000000000 ; cursor mask
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
DW $0003 ; hot spot
|
|
DW $0003
|
|
L01A37C DW $0009 ; cursor height
|
|
DW $0002 ; cursor width
|
|
HEX FF0FF000 ; cursor image
|
|
HEX 00F00000
|
|
HEX 00F00000
|
|
HEX 00F00000
|
|
HEX 00F00000
|
|
HEX 00F00000
|
|
HEX 0FFF0000
|
|
HEX 00F00000
|
|
HEX FF0FF000
|
|
HEX 00000000 ; cursor mask
|
|
HEX 00000000
|
|
HEX 00000000
|
|
HEX 00000000
|
|
HEX 00000000
|
|
HEX 00000000
|
|
HEX 00000000
|
|
HEX 00000000
|
|
HEX 00000000
|
|
DW $0007 ; hot spot
|
|
DW $0002
|
|
L01A3CC ENT
|
|
DW $000B ; cursor height
|
|
DW $0003 ; cursor width
|
|
HEX 000FFF000000 ; cursor image
|
|
HEX 000F00F00000
|
|
HEX 00FF00F00000
|
|
HEX 00F0FF000000
|
|
HEX 0F000F000000
|
|
HEX 0F00F0000000
|
|
HEX F000F0000000
|
|
HEX F00F00000000
|
|
HEX FFF000000000
|
|
HEX FF0000000000
|
|
HEX F00000000000
|
|
HEX 000FFF000000 ; cursor mask
|
|
HEX 000FFFF00000
|
|
HEX 00FFFFF00000
|
|
HEX 00FFFF000000
|
|
HEX 0FFFFF000000
|
|
HEX 0FFFF0000000
|
|
HEX FFFFF0000000
|
|
HEX FFFF00000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
HEX 000000000000
|
|
DW $000A ; hot spot
|
|
DW $0000
|
|
L01A458 ENT
|
|
DW $000A ; cursor height
|
|
DW $0004 ; cursor width
|
|
HEX 00FFFFF000000000 ; cursor image
|
|
HEX 00FFFFF000000000
|
|
HEX 0F00000F00000000
|
|
HEX F000F000F0000000
|
|
HEX F000F000FF000000
|
|
HEX F00FF000FF000000
|
|
HEX F0000000F0000000
|
|
HEX 0F00000F00000000
|
|
HEX 00FFFFF000000000
|
|
HEX 00FFFFF000000000
|
|
HEX 00FFFFF000000000 ; cursor mask
|
|
HEX 00FFFFF000000000
|
|
HEX 0FFFFFFF00000000
|
|
HEX FFFFFFFFF0000000
|
|
HEX FFFFFFFFFF000000
|
|
HEX FFFFFFFFFF000000
|
|
HEX FFFFFFFFF0000000
|
|
HEX 0FFFFFFF00000000
|
|
HEX 00FFFFF000000000
|
|
HEX 00FFFFF000000000
|
|
DW $0001 ; hot spot
|
|
DW $0001
|
|
L01A500 ENT
|
|
DW $000A ; cursor height
|
|
DW $0004 ; cursor width
|
|
HEX 000000F000000000 ; cursor image
|
|
HEX 0000FF0FF0000000
|
|
HEX 000F0F0F0F000000
|
|
HEX 00FF0F0F0FF00000
|
|
HEX 0F0F00000F0F0000
|
|
HEX 0F00F000000F0000
|
|
HEX 00F0000000F00000
|
|
HEX 000F000000F00000
|
|
HEX 0000F0000F000000
|
|
HEX 0000F0000F000000
|
|
HEX 000000F000000000 ; cursor mask
|
|
HEX 0000FFFFF0000000
|
|
HEX 000FFFFFFF000000
|
|
HEX 00FFFFFFFFF00000
|
|
HEX 0FFFFFFFFFFF0000
|
|
HEX 0FFFFFFFFFFF0000
|
|
HEX 00FFFFFFFFF00000
|
|
HEX 000FFFFFFFF00000
|
|
HEX 0000FFFFFF000000
|
|
HEX 0000FFFFFF000000
|
|
DW $0001 ; hot spot
|
|
DW $0006
|