1664 lines
33 KiB
ArmAsm
1664 lines
33 KiB
ArmAsm
*
|
|
* GS/Paint
|
|
* version 1.2
|
|
*
|
|
* (c) 1986-1987, Version Soft
|
|
* (s) 2020, Brutal Deluxe Software
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
use ANIMATION.E
|
|
use ANIMATION.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 L080004
|
|
LDA $A5
|
|
L080004 PHB
|
|
PHK
|
|
PLB
|
|
_HideCursor
|
|
PEA $0000
|
|
PEA ^L080F23
|
|
PEA L080F23
|
|
_GetColorTable
|
|
LDA $DE
|
|
PHA
|
|
LDA $DC
|
|
PHA
|
|
_HUnlock
|
|
LDA $DE
|
|
PHA
|
|
LDA $DC
|
|
PHA
|
|
_DisposeHandle
|
|
LDA $E2
|
|
PHA
|
|
LDA $E0
|
|
PHA
|
|
_HUnlock
|
|
LDA $E2
|
|
PHA
|
|
LDA $E0
|
|
PHA
|
|
_DisposeHandle
|
|
LDA $E6
|
|
PHA
|
|
LDA $E4
|
|
PHA
|
|
_HUnlock
|
|
LDA $E6
|
|
PHA
|
|
LDA $E4
|
|
PHA
|
|
_DisposeHandle
|
|
LDAL L0196CB
|
|
CMP #$011C
|
|
BNE L080078
|
|
BRL L0800C0
|
|
L080078 LDA $EE
|
|
PHA
|
|
LDA $EC
|
|
PHA
|
|
_HUnlock
|
|
LDA $EE
|
|
PHA
|
|
LDA $EC
|
|
PHA
|
|
_DisposeHandle
|
|
JSR L0808D4
|
|
LDAL L019699
|
|
LDX #$0000
|
|
LDY #$8010
|
|
JSL L018717
|
|
BCC L0800A7
|
|
BRK $A1
|
|
L0800A7 LDA $0A
|
|
STA $EC
|
|
LDA $0C
|
|
STA $EE
|
|
LDA [$0A]
|
|
STAL L019976
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
STAL L019978
|
|
BRA L0800C3
|
|
L0800C0 JSR L080162
|
|
L0800C3 PEA $0000
|
|
PEA ^L080F23
|
|
PEA L080F23
|
|
_SetColorTable
|
|
_InitPalette
|
|
_DrawMenuBar
|
|
LDA #$459E
|
|
LDX #$0000
|
|
LDY #$8010
|
|
JSL L018717
|
|
BCC L0800F2
|
|
BRK $A2
|
|
L0800F2 LDA $0A
|
|
STA $DC
|
|
LDA $0C
|
|
STA $DE
|
|
LDA [$0A]
|
|
STAL L0199AC
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
STAL L0199AE
|
|
LDA #$459E
|
|
LDX #$0000
|
|
LDY #$8010
|
|
JSL L018717
|
|
BCC L08011A
|
|
BRK $A3
|
|
L08011A LDA $0A
|
|
STA $E0
|
|
LDA $0C
|
|
STA $E2
|
|
LDA [$0A]
|
|
STAL L019970
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
STAL L019972
|
|
LDA #$459E
|
|
LDX #$0000
|
|
LDY #$8010
|
|
JSL L018717
|
|
BCC L080142
|
|
BRK $A4
|
|
L080142 LDA $0A
|
|
STA $E4
|
|
LDA $0C
|
|
STA $E6
|
|
LDA [$0A]
|
|
STAL L019984
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
STAL L019986
|
|
_ShowCursor
|
|
PLB
|
|
RTL
|
|
|
|
L080162 PEA $0000
|
|
PEA ^L080F23
|
|
PEA L080F23
|
|
_GetColorTable
|
|
_ShowCursor
|
|
LDAL L019976
|
|
STA $C4
|
|
LDAL L019978
|
|
STA $C6
|
|
PEA $001E
|
|
PEA $001E
|
|
PEA ^L01068A
|
|
PEA L01068A
|
|
* PEA ^L080683
|
|
* PEA L080683
|
|
pea $0000
|
|
pea $0000
|
|
PEA ^L080F1D
|
|
PEA L080F1D
|
|
PEA ^L0198D9
|
|
PEA L0198D9
|
|
_SFGetFile
|
|
JSL L010D82
|
|
LDAL L0198D9
|
|
BNE L0801B5
|
|
L0801B4 RTS
|
|
|
|
L0801B5 LDAL L0198EF
|
|
AND #$003F
|
|
PHA
|
|
TAX
|
|
L0801BE LDAL L0198EF,X
|
|
AND #$007F
|
|
CMP #$002F
|
|
BEQ L0801CD
|
|
DEX
|
|
BNE L0801BE
|
|
L0801CD PHX
|
|
LDY #$FFFF
|
|
DEX
|
|
L0801D2 INX
|
|
INX
|
|
INY
|
|
INY
|
|
LDAL L0198EF,X
|
|
STA L080DA5,Y
|
|
TXA
|
|
CMP $03,S
|
|
BCC L0801D2
|
|
LDA $03,S
|
|
SEC
|
|
SBC $01,S
|
|
PHA
|
|
LDA L080DA5
|
|
AND #$FF00
|
|
ORA $01,S
|
|
STA L080DA5
|
|
PLA
|
|
PLA
|
|
PLA
|
|
LDA L080DA5
|
|
AND #$000F
|
|
TAX
|
|
L0801FD LDA L080DA5,X
|
|
AND #$007F
|
|
CMP #$0030
|
|
BCC L080210
|
|
CMP #$003A
|
|
BCS L080210
|
|
DEX
|
|
BNE L0801FD
|
|
L080210 CPX #$0000
|
|
BEQ L0801B4
|
|
PHX
|
|
LDA L080DA5
|
|
AND #$FF00
|
|
ORA $01,S
|
|
STA L080DA5
|
|
PLA
|
|
_HideCursor
|
|
LDA #$2000
|
|
STA $C8
|
|
LDA #$00E1
|
|
STA $CA
|
|
PEA $0000
|
|
PEA $0000
|
|
PHA
|
|
PHA
|
|
_MaxBlock
|
|
PLA
|
|
PLX
|
|
SEC
|
|
SBC #$1000
|
|
BCS L08024B
|
|
DEX
|
|
L08024B PHX
|
|
PHA
|
|
STA L080DC5
|
|
STX L080DC5+2
|
|
LDAL L01967F
|
|
PHA
|
|
PEA $8000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCC L08026C
|
|
BRK $02
|
|
L08026C PLA
|
|
STA $B8
|
|
PLA
|
|
STA $BA
|
|
LDA [$B8]
|
|
STA $BC
|
|
LDY #$0002
|
|
LDA [$B8],Y
|
|
STA $BE
|
|
LDA #$0004
|
|
STA L080DBF
|
|
STA [$BC]
|
|
LDY #$0002
|
|
LDA #$0000
|
|
STA L080DBF+2
|
|
STA [$BC],Y
|
|
JSR L080B52
|
|
LDA L080F13
|
|
CMP #$0002
|
|
BCS L08029E
|
|
JMP L0804EC
|
|
|
|
L08029E JSR L080D95
|
|
LDA #$0000
|
|
STA L080DBD
|
|
LDA [$AC]
|
|
AND #$FF0F
|
|
STA [$AC]
|
|
LDY #$000E
|
|
L0802B1 LDA [$AC],Y
|
|
STA L080E45,Y
|
|
TYX
|
|
STAL L0198EF,X
|
|
DEY
|
|
DEY
|
|
BPL L0802B1
|
|
LDY #$0010
|
|
LDA [$AC],Y
|
|
AND #$00FF
|
|
STA L080F1B
|
|
JSR L08058F
|
|
CLC
|
|
LDA #$0012
|
|
ADC $AC
|
|
STA $AC
|
|
LDA $AE
|
|
ADC #$0000
|
|
STA $AE
|
|
INC L080DBD
|
|
L0802DF LDA [$AC]
|
|
AND #$FF0F
|
|
STA [$AC]
|
|
LDY #$000E
|
|
L0802E9 LDA [$AC],Y
|
|
TYX
|
|
STAL L0198EF,X
|
|
DEY
|
|
DEY
|
|
BPL L0802E9
|
|
LDY #$0010
|
|
LDA [$AC],Y
|
|
AND #$00FF
|
|
JSR L08059E
|
|
JSR L0805BC
|
|
BCC L080307
|
|
BRL L08054C
|
|
L080307 LDA L080DBF
|
|
TAY
|
|
LDA #$0000
|
|
STA [$BC],Y
|
|
JSR L0805E8
|
|
BCC L080318
|
|
BRL L08054C
|
|
L080318 LDA #$0012
|
|
CLC
|
|
ADC $AC
|
|
STA $AC
|
|
LDA $AE
|
|
ADC #$0000
|
|
STA $AE
|
|
INC L080DBD
|
|
LDA L080DBD
|
|
CMP L080F13
|
|
BNE L0802DF
|
|
LDX #$000E
|
|
L080335 LDA L080E45,X
|
|
STAL L0198EF,X
|
|
DEX
|
|
DEX
|
|
BPL L080335
|
|
LDA L080F1B
|
|
JSR L08059E
|
|
JSR L0805BC
|
|
BCC L08034E
|
|
BRL L08054C
|
|
L08034E LDA L080DBF
|
|
TAY
|
|
LDA #$0000
|
|
STA [$BC],Y
|
|
JSR L0805E8
|
|
BCC L08035F
|
|
BRL L08054C
|
|
L08035F PEA $0000
|
|
PEA ^L080F23
|
|
PEA L080F23
|
|
_SetColorTable
|
|
PEA $0000
|
|
PEA $0000
|
|
_RefreshDesktop
|
|
_InitPalette
|
|
_DrawMenuBar
|
|
_ShowCursor
|
|
JSL L010D82
|
|
LDA L080DB7
|
|
AND #$000F
|
|
PHA
|
|
LDA L080DA5
|
|
AND #$000F
|
|
CMP #$000A
|
|
BCC L0803AA
|
|
LDA #$000A
|
|
L0803AA TAX
|
|
CLC
|
|
ADC $01,S
|
|
PHA
|
|
LDA L080DA5
|
|
AND #$FF00
|
|
ORA $01,S
|
|
STA L080DA5
|
|
PLA
|
|
LDY #$0001
|
|
L0803BE LDA L080DB7,Y
|
|
STA L080DA6,X
|
|
INX
|
|
INX
|
|
INY
|
|
INY
|
|
TYA
|
|
CMP $01,S
|
|
BCC L0803BE
|
|
BEQ L0803BE
|
|
PLA
|
|
LDAL L019EE0+2
|
|
PHA
|
|
LDAL L019EE0
|
|
PHA
|
|
_SetCursor
|
|
JSR L0806D5
|
|
PEA $0014
|
|
PEA $001E
|
|
PEA ^L0106A9
|
|
PEA L0106A9
|
|
PEA ^L080DA5
|
|
PEA L080DA5
|
|
PEA $000F
|
|
PEA ^L0198D9
|
|
PEA L0198D9
|
|
_SFPutFile
|
|
JSL L010D82
|
|
_ShowCursor
|
|
LDAL L0198D9
|
|
BNE L08041A
|
|
BRL L0804EC
|
|
L08041A PEA ^L01A458
|
|
PEA L01A458
|
|
_SetCursor
|
|
JSL GSOS
|
|
DW $0001 ; Create
|
|
ADRL L080E69
|
|
JSL GSOS
|
|
DW $0005 ; SetFileInfo
|
|
ADRL L080E69
|
|
JSL GSOS
|
|
DW $0010 ; Open
|
|
ADRL L080E7F
|
|
LDA L080E7F
|
|
STA L080E89
|
|
STA L080E8F
|
|
STA L080E9D
|
|
STA L080EAB
|
|
STA L080EB9
|
|
JSL GSOS
|
|
DW $0018 ; SetEOF
|
|
ADRL L080E89
|
|
LDA L080DBF
|
|
STA L080F0F
|
|
LDA L080DBF+2
|
|
STA L080F0F+2
|
|
LDA [$B8]
|
|
STA L080EBB
|
|
STA $BC
|
|
LDY #$0002
|
|
LDA [$B8],Y
|
|
STA L080EBB+2
|
|
STA $BE
|
|
LDA L080DBF
|
|
STA [$BC]
|
|
LDA L080DBF+2
|
|
STA [$BC],Y
|
|
LDA $C4
|
|
STA L080E91
|
|
LDA $C6
|
|
STA L080E91+2
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L080E8F
|
|
BCC L0804A1
|
|
BRL L080521
|
|
L0804A1 JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L080E9D
|
|
BCS L080521
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L080EAB
|
|
BCS L080521
|
|
LDA L080F0F
|
|
STA L080EBF
|
|
LDA L080F0F+2
|
|
STA L080EBF+2
|
|
JSL GSOS
|
|
DW $0013 ; Write
|
|
ADRL L080EB9
|
|
BCS L080521
|
|
JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L080E7F
|
|
LDAL L019EE0+2
|
|
PHA
|
|
LDAL L019EE0
|
|
PHA
|
|
_SetCursor
|
|
L0804EC LDA $BA
|
|
PHA
|
|
LDA $B8
|
|
PHA
|
|
_HUnlock
|
|
LDA $BA
|
|
PHA
|
|
LDA $B8
|
|
PHA
|
|
_DisposeHandle
|
|
LDA $AA
|
|
PHA
|
|
LDA $A8
|
|
PHA
|
|
_HUnlock
|
|
LDA $AA
|
|
PHA
|
|
LDA $A8
|
|
PHA
|
|
_DisposeHandle
|
|
RTS
|
|
|
|
L080521 STA L0808D2
|
|
JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L080E7F
|
|
LDAL L019EE0+2
|
|
PHA
|
|
LDAL L019EE0
|
|
PHA
|
|
_SetCursor
|
|
LDX #$0000
|
|
LDA L0808D2
|
|
JSL L017D37
|
|
BRL L0804EC
|
|
L08054C PEA $0000
|
|
PEA ^L080F23
|
|
PEA L080F23
|
|
_SetColorTable
|
|
PEA $0000
|
|
PEA $0000
|
|
_RefreshDesktop
|
|
_InitPalette
|
|
_DrawMenuBar
|
|
_ShowCursor
|
|
JSL L010D82
|
|
LDX #$0002
|
|
LDA L0808D2
|
|
JSL L017D37
|
|
BRL L0804EC
|
|
L08058F JSR L08059E
|
|
LDY #$7E1E
|
|
L080595 LDA [$C4],Y
|
|
STA [$C8],Y
|
|
DEY
|
|
DEY
|
|
BPL L080595
|
|
RTS
|
|
|
|
L08059E STA L080E67
|
|
CMP #$0006
|
|
BEQ L0805B7
|
|
CMP #$00C1
|
|
BEQ L0805B7
|
|
CMP #$00C0
|
|
BEQ L0805B2
|
|
BRK $FF
|
|
L0805B2 JSL L012828
|
|
RTS
|
|
|
|
L0805B7 JSL L01273C
|
|
RTS
|
|
|
|
L0805BC LDY #$0000
|
|
L0805BF LDA [$C4],Y
|
|
CMP [$C8],Y
|
|
BEQ L0805DF
|
|
STA [$C8],Y
|
|
TAX
|
|
PHY
|
|
LDA L080DBF
|
|
TAY
|
|
LDA $01,S
|
|
STA [$BC],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$BC],Y
|
|
JSR L0805E8
|
|
BCC L0805DE
|
|
PLA
|
|
SEC
|
|
RTS
|
|
|
|
L0805DE PLY
|
|
L0805DF INY
|
|
INY
|
|
CPY #$7E20
|
|
BNE L0805BF
|
|
CLC
|
|
RTS
|
|
|
|
L0805E8 LDA L080DBF
|
|
CLC
|
|
ADC #$0004
|
|
STA L080DBF
|
|
BCC L0805F9
|
|
INC L080DBF+2
|
|
INC $BE
|
|
L0805F9 LDA L080DBF+2
|
|
CMP L080DC5+2
|
|
BCC L08065A
|
|
BNE L08060B
|
|
LDA L080DBF
|
|
CMP L080DC5
|
|
BCC L08065A
|
|
L08060B LDA $BA
|
|
PHA
|
|
LDA $B8
|
|
PHA
|
|
_HUnlock
|
|
LDA L080DC5
|
|
CLC
|
|
ADC #$2000
|
|
STA L080DC5
|
|
BCC L080627
|
|
INC L080DC5+2
|
|
L080627 LDA L080DC5+2
|
|
PHA
|
|
LDA L080DC5
|
|
PHA
|
|
LDA $BA
|
|
PHA
|
|
LDA $B8
|
|
PHA
|
|
_SetHandleSize
|
|
BCS L08065C
|
|
LDA $BA
|
|
PHA
|
|
LDA $B8
|
|
PHA
|
|
_HLock
|
|
LDA [$B8]
|
|
STA $BC
|
|
LDY #$0002
|
|
LDA [$B8],Y
|
|
CLC
|
|
ADC L080DBF+2
|
|
STA $BE
|
|
L08065A CLC
|
|
RTS
|
|
|
|
L08065C STA L0808D2
|
|
LDA $BA
|
|
PHA
|
|
LDA $B8
|
|
PHA
|
|
_HLock
|
|
LDAL L019EE0+2
|
|
PHA
|
|
LDAL L019EE0
|
|
PHA
|
|
_SetCursor
|
|
JSL L010D82
|
|
SEC
|
|
RTS
|
|
|
|
*--- filterProc
|
|
|
|
L080683 PHB
|
|
PHD
|
|
PHK
|
|
PLB
|
|
LDAL L01968D
|
|
TCD
|
|
LDA $07,S
|
|
STA $0A
|
|
LDA $09,S
|
|
STA $0C
|
|
LDY #$0010
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP #$0006
|
|
BEQ L0806B9
|
|
CMP #$00C0
|
|
BEQ L0806B0
|
|
CMP #$00C1
|
|
BEQ L0806B9
|
|
L0806AB LDA #$0000
|
|
BRA L0806C6
|
|
L0806B0 LDY #$001F
|
|
LDA [$0A],Y
|
|
BNE L0806AB
|
|
BRA L0806C3
|
|
L0806B9 LDY #$0013
|
|
LDA [$0A],Y
|
|
CMP #$0041
|
|
BNE L0806AB
|
|
L0806C3 LDA #$0002
|
|
L0806C6 STA $0B,S
|
|
PLD
|
|
PLB
|
|
LDA $00,S
|
|
STA $04,S
|
|
LDA $02,S
|
|
STA $06,S
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L0806D5 PHA
|
|
PHA
|
|
PEA ^L0808AD
|
|
PEA L0808AD
|
|
PEA $0001
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewModalDialog
|
|
PLA
|
|
STA $A0
|
|
PLA
|
|
STA $A2
|
|
LDA $A2
|
|
PHA
|
|
LDA $A0
|
|
PHA
|
|
_SetPort
|
|
PEA $0000
|
|
PEA $0000
|
|
_SetOrigin
|
|
PEA $0055
|
|
LDA L0808C9
|
|
DEC
|
|
PHA
|
|
_MoveTo
|
|
PEA ^L010681
|
|
PEA L010681
|
|
_DrawString
|
|
LDA $A2
|
|
PHA
|
|
LDA $A0
|
|
PHA
|
|
PEA $0001
|
|
PEA ^L0808B5
|
|
PEA L0808B5
|
|
PEA $000A
|
|
PEA ^L01046F
|
|
PEA L01046F
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewDItem
|
|
LDA $A2
|
|
PHA
|
|
LDA $A0
|
|
PHA
|
|
PEA $0002
|
|
PEA ^L0808BD
|
|
PEA L0808BD
|
|
PEA $000D
|
|
PEA ^L0807A4
|
|
PEA L0807A4
|
|
PEA $0000
|
|
PEA $001C
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewDItem
|
|
L08077F LDA #$0000
|
|
PHA
|
|
PHA
|
|
PHA
|
|
_ModalDialog
|
|
PLA
|
|
CMP #$0001
|
|
BNE L08077F
|
|
LDA $A2
|
|
PHA
|
|
LDA $A0
|
|
PHA
|
|
_CloseDialog
|
|
JSL L010D82
|
|
RTS
|
|
|
|
L0807A4 NOP
|
|
PHD
|
|
PHB
|
|
PHK
|
|
PLB
|
|
LDAL L01968D
|
|
TCD
|
|
LDA $0D,S
|
|
DEC
|
|
ASL
|
|
TAX
|
|
JMP (L08089D,X)
|
|
|
|
L0807B6 LDA #$0000
|
|
STA $0F,S
|
|
BRL L08083F
|
|
L0807BE LDA #$007F
|
|
STA $0F,S
|
|
BRL L08083F
|
|
L0807C6 LDA #$0002
|
|
STA L080F19
|
|
STA $0F,S
|
|
JSR L08084E
|
|
BRL L08083F
|
|
L0807D4 LDA L080F19
|
|
BNE L0807DC
|
|
BRL L08083A
|
|
L0807DC DEC
|
|
JSR L08084E
|
|
BRL L08083A
|
|
L0807E3 LDA L080F19
|
|
CMP #$007F
|
|
BCC L0807EE
|
|
BRL L08083A
|
|
L0807EE INC
|
|
JSR L08084E
|
|
BRL L08083A
|
|
L0807F5 SEC
|
|
LDA L080F19
|
|
SBC #$0005
|
|
BPL L080804
|
|
STZ L080F19
|
|
LDA #$0000
|
|
L080804 JSR L08084E
|
|
BRL L08083A
|
|
L08080A CLC
|
|
LDA L080F19
|
|
ADC #$0005
|
|
CMP #$007F
|
|
BCC L08081C
|
|
LDA #$007F
|
|
STA L080F19
|
|
L08081C JSR L08084E
|
|
BRL L08083A
|
|
L080822 PHA
|
|
LDA $A2
|
|
PHA
|
|
LDA $A0
|
|
PHA
|
|
PEA $0002
|
|
_GetDItemValue
|
|
PLA
|
|
STA L080F19
|
|
JSR L08084E
|
|
L08083A LDA L080F19
|
|
STA $0F,S
|
|
L08083F PLB
|
|
PLD
|
|
LDA $00,S
|
|
STA $08,S
|
|
LDA $02,S
|
|
STA $0A,S
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L08084E STA L080F19
|
|
PEA ^L0808C5
|
|
PEA L0808C5
|
|
PEA ^L0199F4
|
|
PEA L0199F4
|
|
_FillRect
|
|
LDA L080F19
|
|
PHA
|
|
PEA ^L0808CD+1
|
|
PEA L0808CD+1
|
|
LDA L0808CD
|
|
AND #$00FF
|
|
PHA
|
|
PEA $0000
|
|
_Int2Dec
|
|
LDA L0808C7
|
|
PHA
|
|
LDA L0808C9
|
|
DEC
|
|
PHA
|
|
_MoveTo
|
|
PEA ^L0808CD
|
|
PEA L0808CD
|
|
_DrawString
|
|
RTS
|
|
|
|
L08089D DA L0807B6
|
|
DA L0807BE
|
|
DA L0807C6
|
|
DA L0807D4
|
|
DA L0807E3
|
|
DA L0807F5
|
|
DA L08080A
|
|
DA L080822
|
|
L0808AD DW $0028
|
|
DW $0037
|
|
DW $0064
|
|
DW $0131
|
|
L0808B5 DW $0028
|
|
DW $005A
|
|
DW $0036
|
|
DW $00A0
|
|
L0808BD DW $0015
|
|
DW $0019
|
|
DW $0022
|
|
DW $00E1
|
|
L0808C5 DW $0005
|
|
L0808C7 DW $008E
|
|
L0808C9 DW $000F
|
|
DW $00B4
|
|
L0808CD STR ' '
|
|
L0808D2 DW $0000
|
|
|
|
L0808D4 _ShowCursor
|
|
PEA $001E
|
|
PEA $001E
|
|
PEA ^L0106BE
|
|
PEA L0106BE
|
|
LDA #$0000
|
|
PHA
|
|
PHA
|
|
PEA ^L08090A
|
|
PEA L08090A
|
|
PEA ^L0198D9
|
|
PEA L0198D9
|
|
_SFGetFile
|
|
JSL L010D82
|
|
LDAL L0198D9
|
|
BNE L08090C
|
|
L080909 RTS
|
|
|
|
L08090A DB $01
|
|
DB $C2
|
|
|
|
L08090C PHA
|
|
PEA $FFFF
|
|
PEA $0000
|
|
_FlushEvents
|
|
PLA
|
|
LDAL L0198EF
|
|
AND #$003F
|
|
PHA
|
|
TAX
|
|
L080924 LDAL L0198EF,X
|
|
AND #$007F
|
|
CMP #$002F
|
|
BEQ L080933
|
|
DEX
|
|
BNE L080924
|
|
L080933 PHX
|
|
LDY #$FFFF
|
|
DEX
|
|
L080938 INX
|
|
INX
|
|
INY
|
|
INY
|
|
LDAL L0198EF,X
|
|
STA L080E45,Y
|
|
TXA
|
|
CMP $03,S
|
|
BCC L080938
|
|
LDA $03,S
|
|
SEC
|
|
SBC $01,S
|
|
PHA
|
|
LDA L080E45
|
|
AND #$FF00
|
|
ORA $01,S
|
|
STA L080E45
|
|
PLA
|
|
PLA
|
|
PLA
|
|
_HideCursor
|
|
JSL GSOS
|
|
DW $0010 ; Open
|
|
ADRL L080DC9
|
|
BCS L080909
|
|
LDA L080DC9
|
|
BEQ L080909
|
|
STA L080DFF
|
|
STA L080E0D
|
|
STA L080E29
|
|
STA L080E1B
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L080DFF
|
|
BCS L0809CE
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L080E0D
|
|
BCS L0809CE
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L080E1B
|
|
BCS L0809CE
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA L080F0F+2
|
|
PHA
|
|
LDA L080F0F
|
|
PHA
|
|
LDAL L01967F
|
|
PHA
|
|
PEA $8000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
STA L080B50
|
|
BCC L0809DB
|
|
PLA
|
|
PLA
|
|
L0809CE JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L080DC9
|
|
BRL L080AE4
|
|
L0809DB PLA
|
|
STA $B8
|
|
PLA
|
|
STA $BA
|
|
LDA [$B8]
|
|
STA $BC
|
|
STA L080E2B
|
|
LDY #$0002
|
|
LDA [$B8],Y
|
|
STA $BE
|
|
STA L080E2B+2
|
|
LDA #$0000
|
|
STA L080E2F+2
|
|
L0809F8 LDA L080F0F+2
|
|
BEQ L080A36
|
|
LDA #$FFFF
|
|
STA L080E2F
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L080E29
|
|
LDA #$FFFF
|
|
CLC
|
|
ADC L080E2B
|
|
STA L080E2B
|
|
LDA #$0000
|
|
ADC L080E2B+2
|
|
STA L080E2B+2
|
|
LDA L080F0F
|
|
SEC
|
|
SBC #$FFFF
|
|
STA L080F0F
|
|
LDA L080F0F+2
|
|
SBC #$0000
|
|
STA L080F0F+2
|
|
JMP L0809F8
|
|
|
|
L080A36 LDA L080F0F
|
|
BEQ L080A48
|
|
STA L080E2F
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L080E29
|
|
L080A48 JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L080DC9
|
|
BCC L080A56
|
|
BRK $10
|
|
L080A56 PEA $0000
|
|
PEA $FFFF
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
LDAL L0196C1
|
|
STA L080DC3
|
|
L080A71 LDA [$B8]
|
|
STA $BC
|
|
LDY #$0002
|
|
LDA [$B8],Y
|
|
STA $BE
|
|
LDA #$0004
|
|
STA L080DBF
|
|
STZ L080DBF+2
|
|
LDA #$2000
|
|
STA $C8
|
|
LDA #$00E1
|
|
STA $CA
|
|
LDA [$BC]
|
|
STA L080DC5
|
|
LDY #$0002
|
|
LDA [$BC],Y
|
|
STA L080DC5+2
|
|
L080A9C LDY L080DBF
|
|
LDA [$BC],Y
|
|
BEQ L080B10
|
|
PHA
|
|
INY
|
|
INY
|
|
LDA [$BC],Y
|
|
INY
|
|
INY
|
|
STY L080DBF
|
|
BNE L080AB4
|
|
INC $BE
|
|
INC L080DBF+2
|
|
L080AB4 PLY
|
|
STA [$C8],Y
|
|
L080AB7 LDA L080DBF+2
|
|
CMP L080DC5+2
|
|
BCC L080A9C
|
|
LDA L080DBF
|
|
CMP L080DC5
|
|
BCC L080A9C
|
|
JMP L080A71
|
|
|
|
L080ACA LDA $BA
|
|
PHA
|
|
LDA $B8
|
|
PHA
|
|
_HUnlock
|
|
LDA $BA
|
|
PHA
|
|
LDA $B8
|
|
PHA
|
|
_DisposeHandle
|
|
L080AE4 PEA $0000
|
|
PEA $0000
|
|
_RefreshDesktop
|
|
JSL L010D82
|
|
_DrawMenuBar
|
|
_ShowCursor
|
|
LDA L080B50
|
|
BEQ L080B0F
|
|
LDX #$0002
|
|
JSL L017D37
|
|
L080B0F RTS
|
|
|
|
L080B10 INC L080DBF
|
|
INC L080DBF
|
|
INC L080DBF
|
|
INC L080DBF
|
|
L080B1C PEA $0000
|
|
PEA $FFFF
|
|
PEA ^L0196BB
|
|
PEA L0196BB
|
|
_GetNextEvent
|
|
PLA
|
|
LDAL L0196BB
|
|
CMP #$0001
|
|
BEQ L080ACA
|
|
LDAL L0196C1
|
|
SEC
|
|
SBC L080DC3
|
|
CMP L080F19
|
|
BCC L080B1C
|
|
LDAL L0196C1
|
|
STA L080DC3
|
|
JMP L080AB7
|
|
|
|
L080B50 DW $0000
|
|
|
|
L080B52 PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
LDAL L01967F
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCC L080B78
|
|
BRL L080DA1
|
|
L080B78 PLA
|
|
STA $A8
|
|
PLA
|
|
STA $AA
|
|
LDA #$0001
|
|
STA L080F17
|
|
STZ L080F13
|
|
JSL GSOS
|
|
DW $000A ; GetPrefix
|
|
ADRL L080BF2
|
|
JSL GSOS
|
|
DW $0010 ; Open
|
|
ADRL L080BE2
|
|
BCC L080B9F
|
|
BRK $10
|
|
L080B9F LDA L080BE2
|
|
STA L080F15
|
|
STA L080BEC
|
|
JSL GSOS
|
|
DW $0016 ; SetMark
|
|
ADRL L080BEC
|
|
BCC L080BB6
|
|
BRK $16
|
|
L080BB6 JSR L080BF8
|
|
BCS L080BC5
|
|
JSR L080C59
|
|
BEQ L080BB6
|
|
JSR L080C9F
|
|
BRA L080BB6
|
|
L080BC5 CMP #$004C
|
|
BEQ L080BCC
|
|
BRK $12
|
|
L080BCC JSL GSOS
|
|
DW $0014 ; Close
|
|
ADRL L080BE2
|
|
LDA L080F13
|
|
BNE L080BE1
|
|
LDA #$FFFF
|
|
STA L080F21
|
|
L080BE1 RTS
|
|
|
|
L080BE2 DW $0000 ; ref num
|
|
ADRL L080EC7 ; path name
|
|
ADRL $00000000 ; reserved
|
|
L080BEC DW $0000 ; ref num
|
|
ADRL $0000002B ; position
|
|
L080BF2 DW $0000 ; prefix num
|
|
ADRL L080EC7 ; prefix ptr
|
|
|
|
L080BF8 LDA #L080F43
|
|
STA $B4
|
|
STA L080C4D
|
|
LDA #^L080F43
|
|
STA $B6
|
|
STA L080C4D+2
|
|
LDA L080F15
|
|
STA L080C4B
|
|
L080C0E LDA L080F17
|
|
CMP #$000D
|
|
BCC L080C31
|
|
STZ L080F17
|
|
LDA #$0005
|
|
STA L080C51
|
|
JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L080C4B
|
|
LDX #$0027
|
|
STX L080C51
|
|
BCS L080C4A
|
|
L080C31 JSL GSOS
|
|
DW $0012 ; Read
|
|
ADRL L080C4B
|
|
BCS L080C4A
|
|
INC L080F17
|
|
LDA [$B4]
|
|
AND #$000F
|
|
BEQ L080C0E
|
|
LDA #$0000
|
|
L080C4A RTS
|
|
|
|
L080C4B DW $0000 ; ref num
|
|
L080C4D ADRL $00000000 ; buffer ptr
|
|
L080C51 ADRL $00000027 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
|
|
L080C59 SEP #$30
|
|
LDY L080DA5
|
|
L080C5E LDA L080DA5,Y
|
|
AND #$7F
|
|
CMP #$61
|
|
BCC L080C69
|
|
AND #$5F
|
|
L080C69 CMP L080F43,Y
|
|
BNE L080C99
|
|
DEY
|
|
BNE L080C5E
|
|
LDY #$10
|
|
LDA L080F43,Y
|
|
CMP #$06
|
|
BEQ L080C82
|
|
CMP #$C0
|
|
BEQ L080C82
|
|
CMP #$C1
|
|
BNE L080C99
|
|
L080C82 LDY L080DA5
|
|
INY
|
|
LDA L080F43,Y
|
|
AND #$7F
|
|
CMP #$30
|
|
BCC L080C99
|
|
CMP #$3A
|
|
BCS L080C99
|
|
REP #$30
|
|
LDA #$FFFF
|
|
RTS
|
|
|
|
L080C99 REP #$30
|
|
LDA #$0000
|
|
RTS
|
|
|
|
L080C9F JSR L080D95
|
|
LDA L080F43
|
|
AND #$FF0F
|
|
STA L080F43
|
|
LDA $AC
|
|
STA $B0
|
|
LDA $AE
|
|
STA $B2
|
|
LDX #$0000
|
|
L080CB6 CPX L080F13
|
|
BCS L080CFA
|
|
SEP #$30
|
|
LDA [$B0]
|
|
CMP L080F43
|
|
BCC L080CE9
|
|
BNE L080CFA
|
|
LDA L080F43
|
|
INC
|
|
STA $B4
|
|
LDY #$01
|
|
L080CCE LDA [$B0],Y
|
|
CMP #$61
|
|
BCC L080CD6
|
|
AND #$DF
|
|
L080CD6 CMP L080F43,Y
|
|
BCC L080CE9
|
|
BNE L080CFA
|
|
INY
|
|
CPY $B4
|
|
BCC L080CCE
|
|
LDA [$B0]
|
|
CMP L080F43
|
|
BCS L080CFA
|
|
L080CE9 REP #$30
|
|
LDA $B0
|
|
CLC
|
|
ADC #$0012
|
|
STA $B0
|
|
BCC L080CF7
|
|
INC $B2
|
|
L080CF7 INX
|
|
BRA L080CB6
|
|
L080CFA REP #$30
|
|
INC L080F13
|
|
LDA $B0
|
|
SEC
|
|
SBC $AC
|
|
STA $B0
|
|
LDA $B2
|
|
SBC $AE
|
|
STA $B2
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA $AA
|
|
PHA
|
|
LDA $A8
|
|
PHA
|
|
_GetHandleSize
|
|
PLA
|
|
STA $B4
|
|
PLX
|
|
STX $B6
|
|
CLC
|
|
ADC #$0012
|
|
BCC L080D2C
|
|
INX
|
|
L080D2C PHX
|
|
PHA
|
|
LDA $AA
|
|
PHA
|
|
LDA $A8
|
|
PHA
|
|
_SetHandleSize
|
|
BCC L080D40
|
|
BRL L080DA3
|
|
L080D40 JSR L080D95
|
|
LDA $AC
|
|
CLC
|
|
ADC $B0
|
|
PHA
|
|
LDA $AE
|
|
ADC $B2
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
CLC
|
|
ADC #$0012
|
|
BCC L080D5A
|
|
INX
|
|
L080D5A PHX
|
|
PHA
|
|
LDA $B4
|
|
SEC
|
|
SBC $B0
|
|
TAX
|
|
LDA $B6
|
|
SBC $B2
|
|
BNE L080D6D
|
|
CPX #$0000
|
|
BEQ L080D78
|
|
L080D6D PHA
|
|
PHX
|
|
_BlockMove
|
|
BRA L080D7C
|
|
L080D78 PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
L080D7C LDA #L080F43
|
|
LDY #^L080F43
|
|
PLA
|
|
STA $B0
|
|
PLX
|
|
STX $B2
|
|
LDY #$0010
|
|
L080D8B LDA L080F43,Y
|
|
STA [$B0],Y
|
|
DEY
|
|
DEY
|
|
BPL L080D8B
|
|
RTS
|
|
|
|
L080D95 LDY #$0002
|
|
LDA [$A8]
|
|
STA $AC
|
|
LDA [$A8],Y
|
|
STA $AE
|
|
RTS
|
|
|
|
L080DA1 PLA
|
|
PLA
|
|
L080DA3 SEC
|
|
RTS
|
|
|
|
L080DA5 DB $00
|
|
L080DA6 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
|
|
L080DB7 STR '.show'
|
|
L080DBD DW $0000
|
|
L080DBF ADRL $00000000
|
|
L080DC3 DW $0000
|
|
L080DC5 ADRL $00000000
|
|
L080DC9 DW $0000 ; ref num
|
|
ADRL L080E45 ; path name
|
|
ADRL $00000000 ; reserved
|
|
BRK $00
|
|
ADRL L080E56
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
ADRL $00E19E00
|
|
DB $20
|
|
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
|
|
L080DFF DW $0000 ; ref num
|
|
ADRL $00E12000 ; buffer ptr
|
|
ADRL $00008000 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L080E0D DW $0000 ; ref num
|
|
ADRL L080F0F ; buffer ptr
|
|
ADRL $00000004 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L080E1B DW $0000 ; ref num
|
|
ADRL L080F19 ; buffer ptr
|
|
ADRL $00000004 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L080E29 DW $0000 ; ref num
|
|
L080E2B ADRL $00E12000 ; buffer ptr
|
|
L080E2F ADRL $00008000 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $20
|
|
DB $E1
|
|
DB $00
|
|
DB $00
|
|
DB $80
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L080E45 DB $0D
|
|
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
|
|
L080E56 DB $0D
|
|
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
|
|
L080E67 DW $0000 ; which file type is loaded?
|
|
|
|
L080E69 ADRL L0198EF ; file name
|
|
DW $00C3 ; access
|
|
DW $00C2 ; file type
|
|
ADRL $00000000 ; aux type
|
|
DS 2 ; (null field)
|
|
DS 4 ; creation date
|
|
DS 4 ; modification date
|
|
L080E7F DW $0000 ; ref num
|
|
ADRL L0198EF ; path name
|
|
ADRL $00000000 ; reserved
|
|
L080E89 DW $0000 ; ref num
|
|
ADRL $00000000 ; end of file
|
|
L080E8F DW $0000 ; ref num
|
|
L080E91 ADRL $00000000 ; buffer ptr
|
|
ADRL $00008000 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L080E9D DW $0000 ; ref num
|
|
ADRL L080F0F ; buffer ptr
|
|
ADRL $00000004 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L080EAB DW $0000 ; ref num
|
|
ADRL L080F19 ; buffer ptr
|
|
ADRL $00000004 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L080EB9 DW $0000 ; ref num
|
|
L080EBB ADRL $00000000 ; buffer ptr
|
|
L080EBF ADRL $00000000 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L080EC7 STR '/Pro/anime'
|
|
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
|
|
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
|
|
L080F0F ADRL $00000000
|
|
L080F13 DW $0000
|
|
L080F15 DW $0000
|
|
L080F17 DW $0000
|
|
L080F19 DW $0000
|
|
L080F1B DW $0000
|
|
L080F1D DB $03
|
|
HEX C0C106 ; PNT, PIC, BIN
|
|
|
|
L080F21 DW $0000
|
|
L080F23 DS 32
|
|
L080F43 DS 40
|