371 lines
7.0 KiB
ArmAsm
371 lines
7.0 KiB
ArmAsm
*
|
|
* GS/Paint
|
|
* version 1.2
|
|
*
|
|
* (c) 1986-1987, Version Soft
|
|
* (s) 2020, Brutal Deluxe Software
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
use SEARCHC.X
|
|
lst off
|
|
|
|
*-------------------------------
|
|
|
|
use 4/Ctl.Macs
|
|
use 4/Desk.Macs
|
|
use 4/Dialog.Macs
|
|
use 4/Event.Macs
|
|
use 4/Font.Macs
|
|
use 4/Int.Macs
|
|
use 4/Line.Macs
|
|
use 4/List.Macs
|
|
use 4/Load.Macs
|
|
use 4/Locator.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Menu.Macs
|
|
use 4/Misc.Macs
|
|
use 4/Misc.Macs
|
|
use 4/Print.Macs
|
|
use 4/Qd.Macs
|
|
use 4/QdAux.Macs
|
|
use 4/Std.Macs
|
|
use 4/Util.Macs
|
|
use 4/Window.Macs
|
|
|
|
*-------------------------------
|
|
|
|
BRA L090004
|
|
LDA $A5
|
|
L090004 PHB
|
|
PHK
|
|
PLB
|
|
PEA $0000
|
|
PEA ^L09036E
|
|
PEA L09036E
|
|
_GetColorTable
|
|
PEA ^L01A2C4
|
|
PEA L01A2C4
|
|
_SetCursor
|
|
STZ L090362
|
|
STZ L090366
|
|
STZ L090364
|
|
STZ L090368
|
|
STZ L090398
|
|
STZ L09039A
|
|
L090036 PEA $0000
|
|
PEA $FFFF
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
SEC
|
|
LDAL L0196C1
|
|
SBC L090398
|
|
CMP #$000A
|
|
BCC L090082
|
|
LDAL L0196C1
|
|
STA L090398
|
|
LDA L090366
|
|
BEQ L090082
|
|
LDA L09039A
|
|
EOR #$FFFF
|
|
STA L09039A
|
|
BMI L090079
|
|
LDX L090366
|
|
LDA L090396
|
|
JSR L090201
|
|
BRA L090082
|
|
L090079 LDX L090366
|
|
LDA #$FFFF
|
|
JSR L090201
|
|
L090082 LDAL L0196BB
|
|
CMP #$0001
|
|
BNE L09008E
|
|
BRL L0902C9
|
|
L09008E PHA
|
|
PHA
|
|
_GetCursorAdr
|
|
PLA
|
|
STA L09036A
|
|
PLA
|
|
STA L09036A+2
|
|
PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L019E74
|
|
PEA L019E74
|
|
_PtInRect
|
|
PLA
|
|
BEQ L0900B9
|
|
BRL L090147
|
|
L0900B9 PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L09038E
|
|
PEA L09038E
|
|
_PtInRect
|
|
PLA
|
|
BNE L090108
|
|
LDA L09036A
|
|
CMPL L019EE0
|
|
BNE L0900E2
|
|
LDA L09036A+2
|
|
CMPL L019EE0+2
|
|
BEQ L090105
|
|
L0900E2 LDAL L019EE0+2
|
|
PHA
|
|
LDAL L019EE0
|
|
PHA
|
|
_SetCursor
|
|
JSR L09018A
|
|
STZ L090362
|
|
STZ L090366
|
|
STZ L09039A
|
|
JSR L09021E
|
|
JSR L0901D0
|
|
L090105 BRL L090036
|
|
L090108 LDA L09036A
|
|
CMP #L01A2C4
|
|
BNE L090118
|
|
LDA L09036A+2
|
|
CMP #^L01A2C4
|
|
BEQ L09012E
|
|
L090118 STZ L090368
|
|
STZ L090364
|
|
STZ L09039A
|
|
PEA ^L01A2C4
|
|
PEA L01A2C4
|
|
_SetCursor
|
|
L09012E JSL L014903
|
|
BCC L090144
|
|
CPX #$0010
|
|
BCS L090144
|
|
CPX #$0001
|
|
BEQ L090144
|
|
STX L090366
|
|
JSR L0901D0
|
|
L090144 BRL L090036
|
|
L090147 LDA L09036A
|
|
CMP #L01A2C4
|
|
BNE L090157
|
|
LDA L09036A+2
|
|
CMP #^L01A2C4
|
|
BEQ L090170
|
|
L090157 JSR L09018A
|
|
STZ L090364
|
|
STZ L090368
|
|
STZ L09039A
|
|
PEA ^L01A2C4
|
|
PEA L01A2C4
|
|
_SetCursor
|
|
L090170 PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GlobalToLocal
|
|
JSL L0181CE
|
|
JSR L090199
|
|
JSR L09021E
|
|
BRL L090036
|
|
L09018A LDA L090366
|
|
BEQ L090198
|
|
LDX L090368
|
|
LDA L090396
|
|
JSR L090201
|
|
L090198 RTS
|
|
|
|
L090199 LDAL L0196C5
|
|
JSL L0182D0
|
|
CLC
|
|
ADCL L019976
|
|
STA $0A
|
|
LDAL L019978
|
|
STA $0C
|
|
LDAL L0196C7
|
|
LSR
|
|
TAY
|
|
LDA [$0A],Y
|
|
XBA
|
|
PHA
|
|
LDAL L0196C7
|
|
LSR
|
|
PLA
|
|
BCS L0901C4
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
L0901C4 AND #$0F00
|
|
XBA
|
|
EOR #$000F
|
|
INC
|
|
STA L090362
|
|
RTS
|
|
|
|
L0901D0 LDA L090368
|
|
BEQ L0901E2
|
|
CMP L090366
|
|
BNE L0901DB
|
|
RTS
|
|
|
|
L0901DB TAX
|
|
LDA L090396
|
|
JSR L090201
|
|
L0901E2 LDA L090366
|
|
BNE L0901E8
|
|
RTS
|
|
|
|
L0901E8 STA L090368
|
|
DEC
|
|
EOR #$000F
|
|
ASL
|
|
TAX
|
|
LDA L09036E,X
|
|
STA L090396
|
|
LDA #$FFFF
|
|
LDX L090368
|
|
JSR L090201
|
|
RTS
|
|
|
|
L090201 PHA
|
|
TXA
|
|
DEC
|
|
EOR #$000F
|
|
ASL
|
|
TAX
|
|
PLA
|
|
STA L09036E,X
|
|
PEA $0000
|
|
PEA ^L09036E
|
|
PEA L09036E
|
|
_SetColorTable
|
|
RTS
|
|
|
|
L09021E LDA L090364
|
|
BEQ L090229
|
|
CMP L090362
|
|
BNE L090229
|
|
RTS
|
|
|
|
L090229 LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
JSR L090325
|
|
LDX L090362
|
|
STX L090364
|
|
BEQ L0902BB
|
|
PEA ^L090352
|
|
PEA L090352
|
|
JSL L01493B
|
|
LDA L090352
|
|
STA L09035A
|
|
LDA L090354
|
|
STA L09035C
|
|
LDA L090356
|
|
STA L09035E
|
|
LDA L090358
|
|
STA L090360
|
|
PEA ^L090352
|
|
PEA L090352
|
|
LDA #$0001
|
|
PHA
|
|
PHA
|
|
_InsetRect
|
|
PEA ^L09035A
|
|
PEA L09035A
|
|
LDA #$0002
|
|
PHA
|
|
PHA
|
|
_InsetRect
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_SetPenPat
|
|
PEA ^L090352
|
|
PEA L090352
|
|
_FrameRect
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
_SetPenPat
|
|
PEA ^L09035A
|
|
PEA L09035A
|
|
_FrameRect
|
|
L0902BB LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
RTS
|
|
|
|
L0902C9 LDA $8E
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
_SetPort
|
|
JSR L090325
|
|
PEA ^L019A14
|
|
PEA L019A14
|
|
_SetPenPat
|
|
LDA $92
|
|
PHA
|
|
LDA $90
|
|
PHA
|
|
_SetPort
|
|
JSR L09018A
|
|
PHA
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L019E74
|
|
PEA L019E74
|
|
_PtInRect
|
|
PLA
|
|
BNE L090323
|
|
PHA
|
|
PEA $0001
|
|
LDAL L0196BD+2
|
|
PHA
|
|
LDAL L0196BD
|
|
PHA
|
|
_PostEvent
|
|
PLA
|
|
L090323 PLB
|
|
RTL
|
|
|
|
L090325 LDX L090364
|
|
BEQ L090351
|
|
JSL L0149AE
|
|
PHX
|
|
PHA
|
|
_SetPenPat
|
|
PEA ^L090352
|
|
PEA L090352
|
|
_FrameRect
|
|
PEA ^L09035A
|
|
PEA L09035A
|
|
_FrameRect
|
|
L090351 RTS
|
|
|
|
L090352 DW $0000
|
|
L090354 DW $0000
|
|
L090356 DW $0000
|
|
L090358 DW $0000
|
|
L09035A DW $0000
|
|
L09035C DW $0000
|
|
L09035E DW $0000
|
|
L090360 DW $0000
|
|
L090362 DW $0000
|
|
L090364 DW $0000
|
|
L090366 DW $0000
|
|
L090368 DW $0000
|
|
L09036A ADRL $00000000
|
|
L09036E HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L09038E DW $00A5
|
|
DW $0059
|
|
DW $00B3
|
|
DW $012F
|
|
L090396 DW $0000
|
|
L090398 DW $0000
|
|
L09039A DW $0000
|