antoine-source/gspaint/SEARCHC.S

371 lines
7.0 KiB
ArmAsm
Raw Normal View History

*
* 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