mirror of
https://github.com/antoinevignau/source.git
synced 2024-11-02 20:06:21 +00:00
413 lines
7.7 KiB
ArmAsm
413 lines
7.7 KiB
ArmAsm
*
|
|
* GS/Paint
|
|
* version 1.2
|
|
*
|
|
* (c) 1986-1987, Version Soft
|
|
* (s) 2020, Brutal Deluxe Software
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
use EDITBRUSH.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 L040004
|
|
LDA $A5
|
|
L040004 PHB
|
|
PHK
|
|
PLB
|
|
PEA $0043
|
|
PEA $0028
|
|
PEA $00E1
|
|
PEA $005C
|
|
JSL L018223
|
|
JSR L040132
|
|
PEA $0002
|
|
PEA $0001
|
|
_SetPenSize
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_SetPenPat
|
|
PEA $0002
|
|
_SetPenMode
|
|
JSR L0400D1
|
|
L040041 PEA $0000
|
|
PEA $FFFF
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
LDAL L0196BB
|
|
CMP #$0001
|
|
BNE L040041
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
_GlobalToLocal
|
|
JSR L0400A8
|
|
BCC L040041
|
|
PHA
|
|
JSR L0400D1
|
|
PLA
|
|
STA $7A
|
|
JSR L0400D1
|
|
L04007A PEA $0000
|
|
PEA $0000
|
|
_StillDown
|
|
PLA
|
|
BNE L04007A
|
|
LDA $76
|
|
CMP #$0004
|
|
BNE L040095
|
|
JSL L016FC2
|
|
L040095 LDA $A2
|
|
PHA
|
|
LDA $A0
|
|
PHA
|
|
_CloseWindow
|
|
JSL L010D82
|
|
PLB
|
|
RTL
|
|
|
|
L0400A8 LDA #$001F
|
|
L0400AB PHA
|
|
JSR L0400E4
|
|
PEA $0000
|
|
PEA ^L0196C5
|
|
PEA L0196C5
|
|
PEA ^L040112
|
|
PEA L040112
|
|
_PtInRect
|
|
PLA
|
|
BNE L0400CE
|
|
PLA
|
|
DEC
|
|
BPL L0400AB
|
|
CLC
|
|
RTS
|
|
|
|
L0400CE PLA
|
|
SEC
|
|
RTS
|
|
|
|
L0400D1 LDA $7A
|
|
JSR L0400E4
|
|
PEA ^L040112
|
|
PEA L040112
|
|
_FrameRect
|
|
RTS
|
|
|
|
L0400E4 PHA
|
|
AND #$0003
|
|
ASL
|
|
TAX
|
|
LDA L04011A,X
|
|
SEC
|
|
SBC #$0008
|
|
STA L040112
|
|
CLC
|
|
ADC #$0010
|
|
STA L040116
|
|
PLA
|
|
LSR
|
|
LSR
|
|
ASL
|
|
TAX
|
|
LDA L040122,X
|
|
SEC
|
|
SBC #$000A
|
|
STA L040114
|
|
CLC
|
|
ADC #$0014
|
|
STA L040118
|
|
RTS
|
|
|
|
L040112 DW $0000
|
|
L040114 DW $0000
|
|
L040116 DW $0000
|
|
L040118 DW $0000
|
|
L04011A DW $0013
|
|
DW $0025
|
|
DW $0037
|
|
DW $0049
|
|
L040122 DW $0019
|
|
DW $0032
|
|
DW $004B
|
|
DW $0064
|
|
DW $007D
|
|
DW $0096
|
|
DW $00AF
|
|
DW $00C8
|
|
L040132 PEA ^L040232
|
|
PEA L040232
|
|
_PaintRect
|
|
PEA ^L04023A
|
|
PEA L04023A
|
|
_PaintRect
|
|
PEA ^L040242
|
|
PEA L040242
|
|
_PaintRect
|
|
PEA ^L04024A
|
|
PEA L04024A
|
|
_PaintRect
|
|
PEA ^L040252
|
|
PEA L040252
|
|
_PaintOval
|
|
PEA ^L04025A
|
|
PEA L04025A
|
|
_PaintOval
|
|
PEA ^L040262
|
|
PEA L040262
|
|
_PaintOval
|
|
PEA ^L04026A
|
|
PEA L04026A
|
|
_PaintOval
|
|
PEA $0002
|
|
PEA $0001
|
|
_SetPenSize
|
|
LDA #$0000
|
|
L0401AA PHA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L040272,X
|
|
PHA
|
|
LDA L040274,X
|
|
PHA
|
|
LDA L040276,X
|
|
PHA
|
|
LDA L040278,X
|
|
PHA
|
|
_MoveTo
|
|
_LineTo
|
|
PLA
|
|
INC
|
|
CMP #$000A
|
|
BNE L0401AA
|
|
LDA #$0001
|
|
PHA
|
|
PHA
|
|
_SetPenSize
|
|
LDA #$0000
|
|
L0401E3 PHA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L0402C2,X
|
|
PHA
|
|
LDA L0402C4,X
|
|
PHA
|
|
LDA L0402C6,X
|
|
PHA
|
|
LDA L0402C8,X
|
|
PHA
|
|
_MoveTo
|
|
_LineTo
|
|
PLA
|
|
INC
|
|
CMP #$0006
|
|
BNE L0401E3
|
|
LDA #$001E
|
|
L040210 PHA
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L0402F2,X
|
|
TAY
|
|
LDA L0402F4,X
|
|
PHA
|
|
PHY
|
|
PHA
|
|
PHY
|
|
_MoveTo
|
|
_LineTo
|
|
PLA
|
|
DEC
|
|
BPL L040210
|
|
RTS
|
|
|
|
L040232 DW $000F
|
|
DW $0014
|
|
DW $0017
|
|
DW $001E
|
|
L04023A DW $0023
|
|
DW $0016
|
|
DW $0028
|
|
DW $001D
|
|
L040242 DW $0036
|
|
DW $0017
|
|
DW $0039
|
|
DW $001B
|
|
L04024A DW $0048
|
|
DW $0018
|
|
DW $004A
|
|
DW $001A
|
|
L040252 DW $000F
|
|
DW $002D
|
|
DW $0017
|
|
DW $0037
|
|
L04025A DW $0022
|
|
DW $002E
|
|
DW $0029
|
|
DW $0036
|
|
L040262 DW $0035
|
|
DW $002F
|
|
DW $003A
|
|
DW $0035
|
|
L04026A DW $0047
|
|
DW $0030
|
|
DW $004B
|
|
DW $0034
|
|
L040272 DW $004E
|
|
L040274 DW $000F
|
|
L040276 DW $0047
|
|
L040278 DW $0016
|
|
DW $004D
|
|
DW $0022
|
|
DW $0048
|
|
DW $0027
|
|
DW $004C
|
|
DW $0035
|
|
DW $0048
|
|
DW $0039
|
|
DW $004B
|
|
DW $0048
|
|
DW $0049
|
|
DW $004A
|
|
DW $0067
|
|
DW $0016
|
|
DW $0060
|
|
DW $000F
|
|
DW $0065
|
|
DW $0027
|
|
DW $0060
|
|
DW $0022
|
|
DW $0065
|
|
DW $0039
|
|
DW $0061
|
|
DW $0035
|
|
DW $0064
|
|
DW $004A
|
|
DW $0062
|
|
DW $0048
|
|
DW $007C
|
|
DW $0016
|
|
DW $007C
|
|
DW $000F
|
|
DW $007C
|
|
DW $0027
|
|
DW $007C
|
|
DW $0022
|
|
L0402C2 DW $007C
|
|
L0402C4 DW $0039
|
|
L0402C6 DW $007C
|
|
L0402C8 DW $0035
|
|
DW $007C
|
|
DW $004A
|
|
DW $007C
|
|
DW $0048
|
|
DW $009A
|
|
DW $0013
|
|
DW $0091
|
|
DW $0013
|
|
DW $0099
|
|
DW $0025
|
|
DW $0092
|
|
DW $0025
|
|
DW $0098
|
|
DW $0037
|
|
DW $0093
|
|
DW $0037
|
|
DW $0097
|
|
DW $0049
|
|
DW $0094
|
|
DW $0049
|
|
L0402F2 DW $0016
|
|
L0402F4 DW $00AB
|
|
DW $0014
|
|
DW $00AD
|
|
DW $0012
|
|
DW $00AF
|
|
DW $0010
|
|
DW $00B1
|
|
DW $0026
|
|
DW $00AD
|
|
DW $0024
|
|
DW $00AF
|
|
DW $0033
|
|
DW $00AB
|
|
DW $0035
|
|
DW $00AD
|
|
DW $0037
|
|
DW $00AF
|
|
DW $0039
|
|
DW $00B1
|
|
DW $0047
|
|
DW $00AD
|
|
DW $0049
|
|
DW $00AF
|
|
DW $0010
|
|
DW $00C8
|
|
DW $0012
|
|
DW $00C8
|
|
DW $0014
|
|
DW $00C8
|
|
DW $0016
|
|
DW $00C8
|
|
DW $0025
|
|
DW $00C5
|
|
DW $0025
|
|
DW $00C7
|
|
DW $0025
|
|
DW $00C9
|
|
DW $0025
|
|
DW $00CB
|
|
DW $0034
|
|
DW $00C7
|
|
DW $0034
|
|
DW $00CB
|
|
DW $0035
|
|
DW $00C4
|
|
DW $0036
|
|
DW $00C7
|
|
DW $0036
|
|
DW $00CB
|
|
DW $0037
|
|
DW $00C5
|
|
DW $0038
|
|
DW $00C8
|
|
DW $0039
|
|
DW $00C4
|
|
DW $0039
|
|
DW $00CB
|
|
DW $003A
|
|
DW $00C7
|
|
DW $0049
|
|
DW $00C8
|