antoine-source/gspaint/ANIMATION.S
2023-03-08 10:15:49 +01:00

1666 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
*-------------------------------
GSOS EQU $E100A8
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