antoine-source/tfbd/DISASM.S
Antoine Vignau ff6645ec16 1.0.6 new RECT command
Addition of a RECT command to ease disassemblies.
2023-03-05 17:11:01 +01:00

17215 lines
342 KiB
ArmAsm

*---------------------------------------------------------*
* Disassembled with The Flaming Bird Disassembler *
* (c) Phoenix corp. 1992,93 - All rights reserved *
*---------------------------------------------------------*
mx %00
rel
lst off
*-----------------------
use 4/Desk.Macs
use 4/Event.Macs
use 4/Int.Macs
use 4/Load.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/Misc.Macs
use 4/QD.Macs
use 4/QDAux.Macs
use 4/Resource.Macs
use 4/SANE.Macs
use 4/Util.Macs
use 4/Window.Macs
use DISASM.E
use DISASM.X
*-----------------------
BRL L020D45
L020003 DW $0000
L020005 DW $0000
L020007 DW $0000
L020009 DB $00
L02000A 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
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
L020059 DB $00
DB $01
L02005B DB $00
L02005C DB $00
L02005D 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
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
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
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
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02015B DB $01
DB $10
L02015D DB $00
DB $00
DB $02
DB $10
DB $00
DB $00
DB $03
DB $10
DB $00
DB $00
DB $04
DB $10
DB $00
DB $00
DB $05
DB $10
DB $00
DB $00
DB $06
DB $10
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L020177 DB $00
L020178 DB $00
L020179 DB $00
DB $00
L02017B DB $00
L02017C DB $00
L02017D DB $00
DB $00
L02017F DB $00
L020180 DB $00
L020181 DB $00
DB $00
L020183 DB $00
L020184 DB $00
L020185 DB $00
DB $00
L020187 DB $00
L020188 DB $00
L020189 DB $00
DB $00
L02018B DB $00
L02018C DB $00
L02018D DB $00
DB $00
L02018F STRL '9:Expand:'
L02019A STRL '9:Configs:'
*L0201A6 STR "The Flaming Bird Disassembler Written by Ferox - (c) 1994 Phoenix corporation"
L0201A6 STR "The Flaming Bird Disassembler Written by Ferox - (c) 1994-2023 Phoenix Corp"
L0201F7 STR 87">ERR: "
L0201FF DA L020239 ; 0 Not enough memory
DA L02024C ; 1 Syntax
DA L020254 ; 2 Duplicate label
DA L020265 ; 3 Parameter out of range
DA L02027D ; 4 Invalid label
DA L02028C ; 5 Label not found
DA L02029D ; 6 Label expected
DA L0202AD ; 7 No such constant
DA L0202BF ; 8 File/Segment longer than 64K
DA L0202DD ; 9 File should be in OMF 1 or 2
DA L0202FB ; 10 No file in memory
DA L02030E ; 11 Not an OMF load file
DA L020324 ; 12 Invalid segment number
DA L02033C ; 13 Invalid file type
DA L02034F ; 14 No resource fork
DA L020361 ; 15 Specified resource not found
DA L02037F ; 16 Not a code resource
DA L020394 ; 17 File is empty
DA L0203A3 ; 18 Not a TFBD expansion file
DA L0203BE ; 19 This expansion can't be runned with this version of TFBD
DA L0203F8 ; 20 This expansion can't process that file
DA L020420 ; 21 Not a configuration file
DA L02043A ; 22 Not enough bank zero memory
DA L020457 ; 23 Structure too complex
DA L02046E ; 24 Resource fork is empty
DA L020486 ; 25 No string in memory
DA L02049B ; 26 Needs System v6.0 or higher
DA L0204B8 ; 27 Misformatted OMF segment
DA L0204D2 ; 28 Not a valid LNK file
L020239 STR "Not enough memory "
L02024C STR "Syntax "
L020254 STR "Duplicate label "
L020265 STR "Parameter out of range "
L02027D STR "Invalid label "
L02028C STR "Label not found "
L02029D STR "Label expected "
L0202AD STR "No such constant "
L0202BF STR "File/Segment longer than 64K "
L0202DD STR "File should be in OMF 1 or 2 "
L0202FB STR "No file in memory "
L02030E STR "Not an OMF load file "
L020324 STR "Invalid segment number "
L02033C STR "Invalid file type "
L02034F STR "No resource fork "
L020361 STR "Specified resource not found "
L02037F STR "Not a code resource "
L020394 STR "File is empty "
L0203A3 STR "Not a TFBD expansion file "
L0203BE STR "This expansion can't be runned with this version of TFBD "
L0203F8 STR "This expansion can't process that file "
L020420 STR "Not a configuration file "
L02043A STR "Not enough bank zero memory "
L020457 STR "Structure too complex "
L02046E STR "Resource fork is empty "
L020486 STR "No string in memory "
L02049B STR "Needs System v6.0 or higher "
L0204B8 STR "Misformatted OMF segment "
L0204D2 STR "Not a valid LNK file "
L0204E8 STR "GS/OS MLI $"
L0204F4 STR "Loader error $"
L020503 ASC "LOA" ; 0
ASC 'D'
ASC "TCL" ; 1
ASC 'R'
ASC "TLOA" ; 2
ASC 'D'
ASC "TSAV" ; 3
ASC 'E'
ASC "GENLA" ; 4
ASC 'B'
ASC "LIS" ; 5
ASC 'T'
ASC "RE" ; 6
ASC 'M'
ASC '?' ; 7
ASC "INFO" ; 8
ASC 'S'
ASC "QUI" ; 9
ASC 'T'
ASC "BY" ; 10
ASC 'E'
ASC "PF" ; 11
ASC 'X'
ASC "OF" ; 12
ASC 'F'
ASC "SE" ; 13
ASC 'G'
ASC "SLOA" ; 14
ASC 'D'
ASC '\' ; 15
ASC "PH" ; 16
ASC 'L'
ASC "RPH" ; 17
ASC 'L'
ASC "PHL" ; 18
ASC '2'
ASC "MATC" ; 19
ASC 'H'
ASC "SR" ; 20
ASC 'C'
ASC "CO" ; 21
ASC 'M'
ASC "TAB" ; 22
ASC 'S'
ASC "CA" ; 23
ASC 'T'
ASC "RO" ; 24
ASC 'M'
ASC "STOO" ; 25
ASC 'L'
ASC "MLAB" ; 26
ASC 'S'
ASC "MRE" ; 27
ASC 'L'
ASC "REL" ; 28
ASC '8'
ASC "RREL" ; 29
ASC '8'
ASC "RE" ; 30
ASC 'L'
ASC "T" ; 31
ASC 'C'
ASC "TRO" ; 32
ASC 'N'
ASC "TROF" ; 33
ASC 'F'
ASC "BU" ; 34
ASC 'G'
ASC "RLOA" ; 35
ASC 'D'
ASC '$' ; 36
ASC "SEDI" ; 37
ASC 'T'
ASC "PO" ; 38
ASC 'P'
ASC "DS" ; 39
ASC 'K'
ASC "SSAV" ; 40
ASC 'E'
ASC "HIS" ; 41
ASC 'T'
ASC '-' ; 42
ASC "CF" ; 43
ASC 'G'
ASC "C" ; 44
ASC 'S'
ASC "C" ; 45
ASC '1'
ASC '[' ; 46
ASC "M" ; 47
ASC 'D'
ASC "TS" ; 48
ASC 'T'
ASC "FIN" ; 49
ASC 'D'
ASC "SCA" ; 50
ASC 'N'
* AV 202010 - Two new commands
asc "CHO" ; 51
asc 'N'
asc "CHOF" ; 52
asc 'F'
ASC 00
*--- The commands
L0205B7 ADRL L020503 ; COMMANDS...
ADRL L040326 ; DB...
ADRL L040358 ; LAB...
ADRL L04036A ; ORG...
ADRL $00000000
*--- The routines
L0205CB ADRL L021AC8 ; COMMANDS...
ADRL L021758 ; DB...
ADRL L021F0A ; LAB...
ADRL L0220D2 ; ORG...
*--- The flags
L0205DB ADRL L021B94 ; COMMANDS...
ADRL L02179C ; DB...
ADRL L021F22 ; LAB...
ADRL L0220EA ; ORG...
L0205EB BRL L0205F8
DW $7771
STR 'InitAll'
L0205F8 PHP
REP #$30
JSR L02076E
_TLStartUp
PHA
_MMStartUp
PLA
STA $FE
STA L0209B1
ORA #$0100
STA $FC
JSR L020736
JSR L02067C
BCC L02066B
JSR L02084C
JSR L02095E
JSR L0208B1
JSR L0207C2
JSR L02077C
JSL L041D74
BCS L02066F
JSR L020694
JSR L0206CA
JSR L02071D
PEA ^L020678
PEA L020678
PEA $200F ; GetSysPrefs
JSL GSOS2
LDA L02067A
PHA
ORA #$8000
STA L02067A
PEA ^L020678
PEA L020678
PEA $200C ; SetSysPrefs
JSL GSOS2
PLA
STA L02067A
JSR L026659
PLP
RTS
L02066B LDA #$001A
DB $CF
L02066F LDA #$0000
JSR L020AB8
BRL L020A10
L020678 DW $0001 ; Parms for SetSysPrefs
L02067A DW $0000 ; preferences
L02067C JSL GSOS
DW $202A ; GetVersion
ADRL L020690
LDA L020692
AND #$7FFF
CMP #$0400
RTS
L020690 DW $0001 ; Parms for GetVersion
L020692 DW $0000 ; version number
L020694 LDA L020007
BEQ L0206C9
LDX #$0000
L02069C LDA L02015B,X
TAY
ORA L02015D,X
BEQ L0206C9
PHX
PHA
PHA
PEA $8022
LDA L02015D,X
PHA
PHY
_LoadResource
PLA
PLY
PLX
BCS L0206C3
STA L020177,X
TYA
STA L020179,X
L0206C3 INX
INX
INX
INX
BRA L02069C
L0206C9 RTS
L0206CA LDA L020178
BEQ L0206DE
LDX L020177
LDY L020179
JSR L023EF2
STX L020719
STY L020719+2
L0206DE LDA L02017C
BEQ L0206F2
LDX L02017B
LDY L02017D
JSR L023EF2
STX L020711
STY L020711+2
L0206F2 PEA ^L02070D
PEA L02070D
PEA $2009 ; SetPrefix
JSL GSOS2
PEA ^L020715
PEA L020715
PEA $2009 ; SetPrefix
JSL GSOS2
RTS
L02070D DW $0002 ; Parms for SetPrefix
DW $0002 ; prefix num
L020711 ADRL L02018F ; prefix ptr
L020715 DW $0002 ; Parms for SetPrefix
DW $0003 ; prefix num
L020719 ADRL L02019A ; prefix ptr
L02071D LDA L020180
BEQ L02072D
LDX L02017F
LDY L020181
JSR L023EF2
BRA L020731
L02072D LDX #$0000
TXY
L020731 JSL L044B1B
RTS
L020736 PHP
SEP #$30
JSL L030006
JSL L030314
ADR L0201A6
JSR L020A56
LDA #$16
JSL L03006F
JSR L020A56
LDX #$00
LDY #$02
JSL L0300E2
JSL L030035
DB $02
DB $15
DB $00
DB $4F
LDX #$24
STX $44
LDX #$2A
STX $45
LDX #$3A
STX $46
PLP
RTS
MX %00
L02076E PHP
REP #$30
LDX #$00FE
L020774 STZ $00,X
DEX
DEX
BPL L020774
PLP
RTS
L02077C PHP
REP #$30
LDA L0207BD
BEQ L020793
LDA L0207BE
PHA
LDA L0207BC
PHA
_DisposeHandle
L020793 PHA
PHA
PEA $0000
PEA $0FA0
PEI $FC
PEA $0008
PHA
PHA
_NewHandle
PLX
PLY
BCS L0207B9
STX L0207BC
STY L0207BE
STZ L0207C0
PLP
CLC
RTS
L0207B9 PLP
SEC
RTS
L0207BC DB $00
L0207BD DB $00
L0207BE DB $00
DB $00
L0207C0 DB $00
DB $00
L0207C2 JSR L020836
PHA
PHA
PEA $0000
PEA $0100
LDA $FE
PHA
PEA $C015
PEA $0000
PEA $0000
_NewHandle
PLX
PLY
BCC L0207E5
RTS
L0207E5 STY L02080D+2
STX L02080D
PHB
PHY
PLB
LDA |$0000,X
PLB
PLB
PHA
PEA $0800
PEA $0000
PEA $027F
PEA $0000
PEA $00C7
PEI $FE
_EMStartUp
RTS
L02080D ADRL $00000000
L020811 PHA
_EMStatus
PLA
BEQ L020835
_EMShutDown
LDA L02080D+2
PHA
LDA L02080D
PHA
_DisposeHandle
JSR L020836
L020835 RTS
L020836 PHP
SEP #$30
LDX #$10
L02083B LDAL $E0C019
BPL L02083B
L020841 LDAL $E0C019
BMI L020841
DEX
BNE L02083B
PLP
RTS
MX %00
L02084C PEA ^L020898
PEA L020898
PEA $2027 ; GetName
JSL GSOS2
LDX L021658
L02085C LDA L021658,X
STA L021656+4,X
DEX
BNE L02085C
LDA #$39
DEC
STA L021656+4
INC L021658
INC L021658
PEI $FE
_ResourceStartUp
PHA
PEA $0000
PEA $0000
PEA $0000
PEA ^L021658
PEA L021658
_OpenResourceFile
PLA
BCS L020897
STA L020007
L020897 RTS
L020898 DW $0001 ; Parms for GetName
ADRL L021656 ; buffer ptr
L02089E LDA L020007
PHA
_CloseResourceFile
_ResourceShutDown
RTS
L0208B1 PHA
_SANEStatus
PLA
BNE L0208F2
PHA
PHA
PEA $0000
PEA $0100
LDA $FE
PHA
PEA $C015
PEA $0000
PEA $0000
_NewHandle
PLX
PLY
BCC L0208DC
RTS
L0208DC STY L0208F5
STX L0208F3
PHB
PHY
PLB
LDA |$0000,X
PLB
PLB
PHA
_SANEStartUp
L0208F2 RTS
L0208F3 DB $00
DB $00
L0208F5 DB $00
DB $00
L0208F7 PHA
_SANEStatus
PLA
BEQ L020918
_SANEShutDown
LDA L0208F5
PHA
LDA L0208F3
PHA
_DisposeHandle
L020918 RTS
L020919 STR 'Phoenix~QuitCDA~'
L02092A ADR L0209AD
DB $00
L02092E DB $00
DB $00
L020930 DB $00
DB $00
L020932 STZ L020930
PEA $C300
PEA $8001
PEA ^L020919
PEA L020919
PEA $0000
PEA $0000
PEA ^L02092E
PEA L02092E
_SendRequest
BCS L02095C
LDA L020930
BEQ L02095C
RTS
L02095C SEC
RTS
L02095E LDA L020930
BNE L020987
JSR L020932
BCS L020987
PEA $C303
PEA $8001
PEA ^L020919
PEA L020919
PEA ^L02092A
PEA L02092A
PEA ^L02092E
PEA L02092E
_SendRequest
L020987 RTS
L020988 JSR L020932
BCS L0209AC
PEA $C304
PEA $8001
PEA ^L020919
PEA L020919
PEA ^L02092A
PEA L02092A
PEA ^L02092E
PEA L02092E
_SendRequest
L0209AC RTS
L0209AD DB $00
DB $00
DB $00
DB $00
L0209B1 DW $0000
DW $A55A
REP #$30
PHK
PLB
PHD
LDA L020005
TCD
JSR L020988
SEP #$20
LDAL $E0C025
REP #$20
BMI L0209EF
LDA $82
BEQ L0209EF
JSL L044EAB
LDA L02018C
BEQ L0209E5
LDX L02018B
LDY L02018D
JSR L023EF2
PHY
PHX
BRA L0209EB
L0209E5 PEA ^L020A05
PEA L020A05
L0209EB JSL L042166
L0209EF LDA L0267A9
BEQ L0209F7
JSR L0267B9
L0209F7 PLD
LDA $02,S
STA $08,S
LDA $01,S
STA $07,S
PLA
PLA
PLA
CLC
RTL
L020A05 STRL '0:TMP.BAK'
L020A10 REP #$30
JSL L050537
JSL L041DDC
JSL L040FF1
JSR L020988
JSR L020811
JSR L0208F7
JSR L02089E
LDA $FC
PHA
_DisposeAll
LDA $FE
PHA
_MMShutDown
JSL GSOS
DW $200C ; SetSysPrefs
ADRL L020678
JSL GSOS
DW $2029 ; Quit
ADRL L020A54
BRK $00
L020A54 DW $0000 ; Parms for Quit
L020A56 PHP
SEP #$30
LDX #$50
L020A5B PHX
LDA #$53
JSL L03022D
PLX
DEX
BNE L020A5B
PLP
RTS
L020A68 PHP
REP #$30
JSL L0300EE
PHX
PHY
L020A71 REP #$30
LDA #$0017
JSL L03006F
LDA #$FFFF
STA L020F6A
PEA ^L020F6C
PEA L020F6C
PEA ^L020009
PEA L020009
PEA $00BA
JSL L03050A
SEP #$30
LDX L020009
BEQ L020A71
L020A9A LDA L020009,X
CMP #$A0
BNE L020AA6
DEX
BNE L020A9A
BRA L020A71
L020AA6 REP #$30
PLY
PLX
JSL L0300E2
PLP
RTS
PHB
PHK
PLB
JSR L020AB8
PLB
RTL
L020AB8 PHP
REP #$20
SEP #$10
AND #$007F
ASL
TAX
LDAL L0201FF,X
STAL L020AE8
SEP #$20
JSL L0300EE
PHX
PHY
LDX #$00
LDY #$17
JSL L0300E2
JSR L020CED
JSL L030314
ADR L0201F7
JSL L030314
L020AE8 ADR L0201FF
JSL L03034A
PLY
PLX
JSL L0300E2
PLP
RTS
L020AF7 PHP
REP #$30
PHA
JSL L0300EE
PHX
PHY
LDX #$0000
LDY #$0017
JSL L0300E2
JSR L020CED
JSL L030314
ADR L0201F7
JSL L030314
ADR L0204E8
LDA $05,S
PHA
JSL L030670
LDA $05,S
LDX #$0000
L020B28 LDY L020B61,X
BEQ L020B4E
CMP L020B61,X
BEQ L020B38
INX
INX
INX
INX
BRA L020B28
L020B38 INX
INX
LDA L020B61,X
STA L020B4B
JSL L0302E1
STR ": "
JSL L030314
L020B4B ADR L020BB0
L020B4E JSL L0302E1
STR " "
JSL L03034A
PLY
PLX
JSL L0300E2
PLA
PLP
RTS
L020B61 DW $0010
DA L020B9F
DW $0027
DA L020BB0
DW $002B
DA L020BBA
DW $0040
DA L020BD2
DW $0044
DA L020BEA
DW $0045
DA L020BF9
DW $0046
DA L020C0A
DW $0048
DA L020C19
DW $0049
DA L020C25
DW $004A
DA L020C34
DW $004C
DA L020C4D
DW $004D
DA L020C64
DW $0050
DA L020C7A
DW $0051
DA L020C91
DW $0058
DA L020CA1
DW $0000
L020B9F STR "Device not found"
L020BB0 STR "I/O Error"
L020BBA STR "Disk is write-protected"
L020BD2 STR "Invalid pathname syntax"
L020BEA STR "Path not found"
L020BF9 STR "Volume not found"
L020C0A STR "File not found"
L020C19 STR "Volume full"
L020C25 STR "Directory full"
L020C34 STR "Incompatible file format"
L020C4D STR "Unexpected end of file"
L020C64 STR "Position out of range"
L020C7A STR "File is already opened"
L020C91 STR "Directory error"
L020CA1 STR "Not a block device"
L020CB4 PHP
REP #$30
PHA
JSL L0300EE
PHX
PHY
LDX #$0000
LDY #$0017
JSL L0300E2
JSR L020CED
JSL L030314
ADR L0201F7
JSL L030314
ADR L0204F4
LDA $05,S
PHA
JSL L030670
JSL L03034A
PLY
PLX
JSL L0300E2
PLA
PLP
RTS
L020CED PHP
SEP #$30
LDA #$A0
STAL $E0C055
JSR L020CFE
STAL $E0C054
PLP
L020CFE PHP
SEP #$30
LDX #$27
L020D03 STAL $E007D0,X
DEX
BPL L020D03
PLP
RTS
L020D0C PHP
SEP #$30
JSL L03074E
DB $0A
DB $0E
DB $1E
DB $31
LDX #$21
LDY #$0C
JSL L0300E2
JSL L0302E1
STR "Please wait..."
PLP
RTS
L020D34 PHP
SEP #$30
JSL L030035
DB $02
DB $15
DB $00
DB $4F
JSL L0300D1
PLP
RTS
L020D45 PHK
PLB
CLC
XCE
REP #$30
TSC
STA L020003
TDC
STA L020005
JSR L0205EB
JSR L02728C
LDY #$0014
LDX #$0015
JSL L0300E2
JSL L0302E1
STR "Type ? for help, $ for shareware page."
L020D8E JSR L020A68
JSR L020DE5
BCC L020D9B
BVC L020D9B
BRL L020A10
L020D9B LDA L0207BD
BNE L020DA5
JSR L02077C
BCS L020D8E
L020DA5 LDX L0207BC
LDY L0207BE
JSR L023EF2
STX $00
STY $02
CLC
LDA #$0050
ADC $00
STA $04
LDA #$0000
ADC $02
STA $06
LDY #$0F4E
L020DC4 LDA [$00],Y
STA [$04],Y
DEY
DEY
BPL L020DC4
LDY #$004E
L020DCF LDA L020009,Y
STA [$00],Y
DEY
DEY
BPL L020DCF
LDA L0207C0
CMP #$0032
BCS L020D8E
INC L0207C0
BRA L020D8E
L020DE5 BRL L020DF6
DW $7771
STR 'ExecCommand'
L020DF6 PHP
REP #$30
LDA L02000A
AND #$00FF
BNE L020E04
BRL L020EBD
L020E04 LDX #$0000
L020E07 LDA L0205B7+2,X
TAY
ORA L0205B7,X
BEQ L020E20
LDA L0205B7,X
PHX
JSR L020EE1
PLX
BCC L020E52
INX
INX
INX
INX
BRA L020E07
L020E20 LDA #L02000A
STA $F8
LDA #^L020009
STA $FA
JSR L020F52
JSR L027040
BCC L020E44
JSR L021586
JSR L026740
BCS L020EAA
LDA L0283C2
BEQ L020E71
JSR L0267F3
BRA L020E4C
L020E44 LDA L0283C2
BEQ L020E71
JSR L027076
L020E4C JSR L021E04
BRL L020EDC
L020E52 LDY L0205DB,X
STY $00
LDY L0205DB+2,X
STY $02
PHA
TAY
LDA [$00],Y
AND #$00FF
STA L020EDF
BIT #$0080
BEQ L020E7A
LDA L0283C2
BNE L020E7A
PLA
L020E71 LDA #$000A
JSR L020AB8
PLP
CLC
RTS
L020E7A PLA
LDY L0205CB,X
STY $00
LDY L0205CB+2,X
STY $02
ASL
ASL
TAY
LDA [$00],Y
BEQ L020EBD
DEC
PER L020EB4-1
PHA
LDA #$0000
TAX
TAY
PHP
SEP #$20
PHA
LDAL $E0C025
LSR
BCS L020EA5
PLA
PLP
BRA L020EA9
L020EA5 PLA
PLP
BRK $00
L020EA9 RTS
MX %00
L020EAA LDA #$0001
JSR L020AB8
PLP
SEC
CLV
RTS
L020EB4 REP #$30
BCC L020EC7
BVS L020EC1
JSR L020EC6
L020EBD PLP
SEC
CLV
RTS
L020EC1 PLP
SEC
SEP #$40
RTS
L020EC6 PHP
L020EC7 LDA L020EDF
BIT #$0020
BEQ L020ED4
PHA
JSR L020736
PLA
L020ED4 BIT #$0040
BEQ L020EDC
JSR L021E04
L020EDC PLP
CLC
RTS
L020EDF DB $00
DB $00
L020EE1 PHP
REP #$30
STA $00
STY $02
STZ $04
SEP #$30
L020EEC LDY #$00
LDX #$00
L020EF0 LDA [$00],Y
BEQ L020F4F
ORA #$80
CMP L02000A,X
BEQ L020F22
CMP #$C1
BCC L020F0A
CMP #$DB
BCS L020F0A
ORA #$20
CMP L02000A,X
BEQ L020F22
L020F0A LDA [$00],Y
BPL L020F11
INY
BRA L020F0A
L020F11 INY
TYA
CLC
ADC $00
STA $00
LDA #$00
ADC $01
STA $01
INC $04
BRA L020EEC
L020F22 LDA [$00],Y
BPL L020F2A
INX
INY
BRA L020EF0
L020F2A INX
CPX #$01
BEQ L020F38
LDA L02000A,X
BEQ L020F38
CMP #$A0
BNE L020F0A
L020F38 REP #$30
INX
TXA
CLC
ADC #L020009
STA $F8
LDA #^L020009
STA $FA
JSR L020F52
LDA $04
PLP
CLC
RTS
L020F4F PLP
SEC
RTS
L020F52 PHP
SEP #$30
LDY #$FF
L020F57 INY
LDA [$F8],Y
CMP #$A0
BEQ L020F57
REP #$30
TYA
CLC
ADC $F8
STA $F8
PLP
RTS
L020F68 DB $00
DB $00
L020F6A DB $00
DB $00
L020F6C PLA
PHK
PLB
SEP #$30
XBA
STA L020F98
XBA
LDX L020F9A
L020F79 CMP L020F9A,X
BEQ L020F83
DEX
BNE L020F79
SEC
RTL
L020F83 DEX
BIT L0283C2
BMI L020F8E
LDA L020FBC,X
BMI L020F96
L020F8E REP #$30
TXA
ASL
TAX
JSR (L020FA6,X)
L020F96 CLC
RTL
L020F98 DB $00
DB $00
L020F9A DB $0B
DB $0A
DB $0B
DB $08
DB $02
DB $0E
DB $12
DB $03
DB $13
DB $2B
DB $2D
DB $2A
L020FA6 DA L020FC7
DA L02104E
DA L021166
DA L021179
DA L02118D
DA L0211C2
DA L0211CE
DA L0211E0
DA L0211EA
DA L021208
DA L021251
L020FBC DB $00
DB $00
DB $80
DB $80
DB $80
DB $00
DB $00
DB $00
DB $80
DB $80
DB $00
L020FC7 LDA L020F98
AND #$0010
BEQ L020FD2
BRL L02125A
L020FD2 BIT L0283C2
BPL L020FDE
LDA $58
BIT L020F68
BPL L020FDF
L020FDE RTS
L020FDF BIT $5C
BMI L020FE7
CMP $3E
BCS L020FDE
L020FE7 LDA L020F98
AND #$0001
BEQ L021007
LDX #$0000
LDY #$0002
JSL L0300E2
LDA $5A
STA $56
LDA $58
STA $54
LDY #$0014
BRL L021034
L021007 JSL L030139
BIT $48
BPL L021019
LDA $54
CLC
ADC #$0010
STA $54
BRA L021025
L021019 PEI $54
PEI $56
JSL L0415A4
STA $54
STX $56
L021025 LDX #$0000
LDY #$0015
JSL L0300E2
LDA $58
LDY #$0001
L021034 JSL L0405F4
STA $58
STZ L020F68
CPY #$00EF
BNE L02104D
CPX #$6502
BNE L02104D
LDA #$FFFF
STA L020F68
L02104D RTS
L02104E LDA L020F98
AND #$0010
BEQ L021059
BRL L021278
L021059 BIT L0283C2
BMI L02105F
RTS
L02105F LDA $54
BNE L02106C
PHA
JSL L04155D
CPX $56
BEQ L0210DF
L02106C LDA L020F98
AND #$0001
BEQ L0210E0
L021074 BIT $48
BPL L0210A3
LDA $54
CMP #$0140
BCC L021085
SEC
SBC #$0140
BRA L021088
L021085 LDA #$0000
L021088 STA $54
LDX #$0000
LDY #$0002
JSL L0300E2
LDA $54
LDY #$0014
JSL L0405F4
STA $58
STZ L020F68
RTS
L0210A3 PEI $54
PEI $56
JSL L04163A
PHA
PHX
PEA $0013
JSL L041462
STA $54
STX $56
LDX #$0000
LDY #$0002
JSL L0300E2
LDA $56
STA $5A
LDA $54
LDY #$0014
JSL L0405F4
STA $58
STZ L020F68
CPY #$00EF
BNE L0210DF
LDA #$FFFF
STA L020F68
L0210DF RTS
L0210E0 BIT L020F68
BPL L021100
DEC $58
BPL L021100
STZ L020F68
LDA $3E
STA $58
BIT $48
BPL L0210FC
CLC
LDA $54
ADC #$0140
BRA L0210FE
L0210FC LDA $3E
L0210FE STA $58
L021100 BIT $48
BPL L021125
LDA $54
CMP #$0010
BCC L0210DF
SEC
SBC #$0010
BRA L021114
LDA #$0000
L021114 STA $54
LDA $58
BIT L020F68
BMI L021145
SEC
SBC #$0010
STA $58
BRA L021145
L021125 PEI $54
PEI $56
JSL L04163A
STA $54
STX $56
BIT L020F68
BMI L021145
PEI $58
PEI $5A
JSL L04163A
STA $58
STX $5A
STZ L020F68
L021145 JSL L030193
LDY #$0002
LDX #$0000
JSL L0300E2
PEI $5A
LDA $56
STA $5A
LDA $54
LDY #$0001
JSL L0405F4
PLA
STA $5A
RTS
L021166 LDA #$FFFF
EOR $48
STA $48
PEI $54
JSL L04155D
STX $56
JSR L021E04
RTS
L021179 PHP
REP #$30
LDA #$0000
STA $54
PHA
JSL L04155D
STX $56
JSR L021E04
PLP
RTS
L02118D STZ $56
LDA $3E
BIT $48
BPL L0211BD
BIT $5C
BMI L0211B4
AND #$000F
PHA
LDA $3E
AND #$FFF0
PLY
BEQ L0211A9
CLC
ADC #$0010
L0211A9 SEC
SBC #$0140
BCS L0211B7
LDA #$0000
BRA L0211B7
L0211B4 LDA #$FEC0
L0211B7 STA $54
JSR L021E04
RTS
L0211BD STA $54
BRL L021074
L0211C2 LDA #$8000
EOR $5E
AND #$BFFF
STA $5E
BRA L0211D8
L0211CE LDA #$4000
EOR $5E
AND #$7FFF
STA $5E
L0211D8 BIT $48
BPL L0211DF
BRL L021E04
L0211DF RTS
L0211E0 LDA #$2000
EOR $5E
STA $5E
BRL L021E04
L0211EA LDX #$001C
L0211ED LDA L021231,X
STA L021233,X
DEX
DEX
BPL L0211ED
LDA $54
STA L021231
LDA L02122F
CMP #$0010
BCS L021207
INC L02122F
L021207 RTS
L021208 LDA L02122F
BEQ L021207
DEC L02122F
LDY L021231
STY $54
LDX #$0000
L021218 LDA L021233,X
STA L021231,X
INX
INX
CPX #$001E
BCC L021218
PHY
JSL L04155D
STX $56
BRL L021E04
L02122F DB $00
DB $00
L021231 DB $00
DB $00
L021233 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
L021251 JSR L025DD4
JSR L020736
BRL L021E04
L02125A LDA L0207BD
BEQ L021277
LDA L0207C0
BEQ L021277
LDA L020F6A
DEC
CMP L0207C0
BCC L021271
LDA L0207C0
DEC
L021271 STA L020F6A
JSR L021295
L021277 RTS
L021278 LDA L0207BD
BEQ L021277
LDA L0207C0
BEQ L021277
LDA L020F6A
INC
CMP L0207C0
BCC L02128E
LDA #$0000
L02128E STA L020F6A
JSR L021295
RTS
L021295 LDX L0207BC
LDY L0207BE
JSR L023EF2
PHY
PHX
LDA L020F6A
ASL
ASL
ASL
ASL
PHA
ASL
ASL
ADC $01,S
TAY
PLA
LDX #$0000
LDA $03,S
XBA
PHA
PLB
PLB
L0212B7 LDA ($01,S),Y
STAL L020009,X
INY
INX
CPX #$0050
BCC L0212B7
PHK
PLB
PLA
PLA
RTS
L0212C9 PHP
REP #$30
AND #$007F
CMP #$0030
BCC L0212E6
CMP #$0047
BCS L0212E6
CMP #$003A
BCC L0212E3
CMP #$0041
BCC L0212E6
L0212E3 PLP
CLC
RTS
L0212E6 PLP
SEC
RTS
L0212E9 PHP
REP #$30
AND #$007F
CMP #$0041
BCC L021306
CMP #$007B
BCS L021306
CMP #$005B
BCC L021303
CMP #$0061
BCC L021306
L021303 PLP
CLC
RTS
L021306 PLP
SEC
RTS
L021309 PHP
REP #$30
L02130C LDA [$F8]
AND #$00FF
BEQ L02131D
INC $F8
CMP #$00A0
BEQ L02130C
PLP
CLC
RTS
L02131D PLP
SEC
RTS
L021320 PHP
REP #$30
L021323 LDA [$F8]
AND #$00FF
BEQ L021336
CMP #$00A0
BNE L021333
INC $F8
BRA L021323
L021333 PLP
CLC
RTS
L021336 PLP
SEC
RTS
L021339 PHP
REP #$30
JSR L021367
BCC L021344
PLP
SEC
RTS
L021344 BVS L021364
BIT $F6
BPL L021353
CPY #$0000
BNE L021353
LDY $42
BRA L021364
L021353 PHY
PHA
JSL L042ABB
BCC L021364
LDA #$0003
JSR L020AB8
PLP
SEC
RTS
L021364 PLP
CLC
RTS
L021367 PHP
REP #$30
LDA [$F8]
AND #$00FF
CMP #$00A4 ; $
BEQ L0213A6
CMP #$00B0 ; 0
BCC L0213BB
CMP #$00BA ; 9+1
BCC L0213A8
LDA #L0213D1
JSR L021F2A
BCS L0213C1
LDA L0213D1
AND #$00FF
BEQ L0213C4
PEA ^L0213D1
PEA L0213D1
JSL L0426C7
BCS L0213A1
CPX #$0004
BNE L0213C8
BRA L0213CD
L0213A1 LDA #$0005
BRA L0213BE
L0213A6 INC $F8
L0213A8 PEI $FA
PEI $F8
LDX #$0006
JSL L0306BD
PLX
STX $F8
PLX
STX $FA
BCC L0213CD
L0213BB LDA #$0001 ; Err: Syntax
L0213BE JSR L020AB8
L0213C1 PLP
SEC
RTS
L0213C4 LDA #$0000
TAY
L0213C8 PLP
CLC
SEP #$40
RTS
L0213CD PLP
CLC
CLV
RTS
L0213D1 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
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02141A CLC
HEX B0
L02141C SEC
PHP
REP #$30
BCS L02142C
STZ L021496
JSR L021309
BCS L021479
BRA L021442
L02142C JSR L021339
BCS L02148E
CPY $42
BNE L021488
STA L021496
JSR L021309
BCS L021479
CMP #$00AE ; .
BEQ L021465
L021442 CMP #$00AC ; ,
BNE L021491
JSR L021564
BCS L02148E
CMP #$0000
BEQ L021488
STA L021498
DEC
L021455 CLC
ADC L021496
BCS L021488
BIT $5C
BMI L02147F
CMP $3E
BCS L021488
BRA L02147F
L021465 JSR L021339
BCS L02148E
CMP L021496
BCC L021488
SEC
SBC L021496
INC
STA L021498
BRA L02147F
L021479 LDA #$0001
STA L021498
L02147F LDA L021496
LDY L021498
PLP
CLC
RTS
L021488 LDA #$0003
L02148B JSR L020AB8
L02148E PLP
SEC
RTS
L021491 LDA #$0001
BRA L02148B
L021496 DW $0000
L021498 DW $0000
L02149A PHP
REP #$30
JSR L021309
BCS L021511
CMP #$00DB
BNE L021511
STZ L02151F
LDA $3E
DEC
STA L021521
LDA $42
STA L021523
LDA [$F8]
AND #$00FF
CMP #$00AE
BNE L0214C3
INC $F8
BRA L0214E6
L0214C3 JSR L021339
BCS L02151C
STA L02151F
STY L021523
JSR L021309
BCS L021511
CMP #$00AE
BNE L02151C
LDA [$F8]
AND #$00FF
CMP #$00DD
BNE L0214E6
INC $F8
BRA L021502
L0214E6 JSR L021339
BCS L02151C
STA L021521
CPY L021523
BNE L021516
CMP L02151F
BCC L021516
JSR L021309
BCS L021511
CMP #$00DD
BNE L021511
L021502 JSR L020F52
LDA L02151F
LDX L021521
LDY L021523
PLP
CLC
RTS
L021511 LDA #$0001
BRA L021519
L021516 LDA #$0003
L021519 JSR L020AB8
L02151C PLP
SEC
RTS
L02151F DW $0000
L021521 DW $0000
L021523 DW $0000
L021525 PHP
REP #$30
JSR L02149A
BCS L02153A
CPY $42
BNE L021534
PLP
CLC
RTS
L021534 LDA #$0003
JSR L020AB8
L02153A PLP
SEC
RTS
L02153D LDA L021542
BRA L021542+2
L021542 BIT $0800
SEP #$20
REP #$10
AND #$7F
STA L021563
JSR L021309
AND #$7F
CMP L021563
BNE L02155B
PLP
CLC
RTS
L02155B LDA #$01
JSR L020AB8
PLP
SEC
RTS
L021563 DB $00
L021564 PHP
REP #$30
PEI $FA
PEI $F8
LDX #$0004
JSL L0306BD
PLX
STX $F8
PLX
STX $FA
BCS L02157D
PLP
CLC
RTS
L02157D LDA #$0001
JSR L020AB8
PLP
SEC
RTS
L021586 PHP
SEP #$20
REP #$10
LDY #$0000
L02158E JSR L021309
BCS L0215C2
AND #$7F
CMP #$27
BEQ L02159D
CMP #$22
BNE L0215A5
L02159D TYX
BNE L0215B9
STA L0215CC
BRA L02158E
L0215A5 CMP #$2C
BEQ L0215C0
CMP #$20
BEQ L0215C0
CMP #$2F
BNE L0215B3
LDA #$3A
L0215B3 STA L0215CF,Y
INY
BRA L02158E
L0215B9 CMP L0215CC
BNE L0215B3
BRA L0215C2
L0215C0 DEC $F8
L0215C2 LDA #$00
STA L0215CF,Y
STY L0215CD
PLP
RTS
L0215CC DB $00
L0215CD DB $00
L0215CE DB $00
L0215CF 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
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
L021631 PHP
REP #$30
JSR L021586
JSL GSOS
DW $200E ; ExpandPath
ADRL L02164C
BCC L021649
JSR L020AF7
PLP
SEC
RTS
L021649 PLP
CLC
RTS
L02164C DW $0002 ; Parms for ExpandPath
ADRL L0215CD ; path name
ADRL L021656 ; new pathname
L021656 DW $0100
L021658 DS $0002
L02165A DS $00FE
L021758 ADRL L0217D6 ; 0 DB
ADRL L0217D5 ; 1 DW
ADRL L0217D4 ; 2 DDB
ADRL L0217D3 ; 3 DA
ADRL L0217D2 ; 4 ADRL
ADRL L0217D1 ; 5 ADR
ADRL L0217D0 ; 6 FLO
ADRL L021858 ; 7 HEX
ADRL L02186B ; 8 DS
ADRL L0218B5 ; 9 ASC
ADRL L0219C7 ; 10 DCI
ADRL L0218B0 ; 11 REV
ADRL L0217AD ; 12 INV
ADRL L0217AD ; 13 FLS
ADRL L021A4A ; 14 STRL
ADRL L021A45 ; 15 STR
ADRL L0217C6 ; 16 CHK
adrl doRECT ; 17 - AV 202303 RECT
L02179C DB $C0 ; 0 DB
DB $C0 ; 1
DB $C0 ; 2
DB $C0 ; 3
DB $C0 ; 4
DB $C0 ; 5
DB $C0 ; 6
DB $C0 ; 7
DB $C0 ; 8
DB $C0 ; 9
DB $C0 ; 10
DB $C0 ; 11
DB $C0 ; 12
DB $C0 ; 13
DB $C0 ; 14
DB $C0 ; 15
DB $C0 ; 16
db $c0 ; 17 - AV 202303 RECT
L0217AD CLC
RTS
PHP
REP #$30
PHA
PHX
PEA $E030
PHA
PHX
PEA $E020
JSL L0435FB
JSL L0435FB
PLP
RTS
doRECT iny ; AV 202303 - a RECT is 4 DW
L0217C6 INY
INY
INY
INY
INY
INY
INY
INY
INY
INY
L0217D0 INY
L0217D1 INY
L0217D2 INY
L0217D3 INY
L0217D4 INY
L0217D5 INY
L0217D6 LDA L021847,Y
AND #$00FF
STA L021843 ; number of bytes to disassemble
STY L021841 ; Y is the index
JSR L021339 ; check syntax
BCS L0217F7
STA L02183F ; address
STY L02183D ; segment
JSR L02141A ; check count
BCS L0217F7
STY L021845 ; count
BRA L0217F9
L0217F7 CLC
RTS
* AV 202303 - check if a RECT is required
L0217F9 lda L021843 ; is that a rect
cmp #$0082
bne L0217FA ; not a rect
and #$007f ; yes, erase bit 7
sta L021843 ; we want 2 bytes as a word
lda #1 ; command is DW - disassemble 2 bytes (ie. a word)
sta L021841
lda L021845 ; but 4 times each count
asl ; as a RECT is 4 words
asl
sta L021845
L0217FA LDX L021845
DEX
BEQ L021819
LDA L021841
CMP #$0006
BCS L021819
INX
CLC
LDA #$0000
L02180C ADC L021843
DEX
BNE L02180C
STA L021843
INX
STX L021845
L021819 LDA L02183D ; segment
PHA
LDA L02183F ; address
PHA
LDA L021843 ; number of bytes
PHA
LDA L021841 ; command
PHA
JSL L043069
LDA L02183F ; address
ADC L021843 ; + length
STA L02183F ; = address
DEC L021845 ; count--
BNE L021819 ; loop
CLC
RTS
L02183D DW $0000
L02183F DW $0000
L021841 DW $0000
L021843 DW $0000
L021845 DW $0000
L021847 DB $01
DB $02
DB $02
DB $02
DB $04
DB $03
DB $0A
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $01
db $82 ; AV 202303 - bit 7 to ID a rect
L021858 JSR L02141C
BCS L021869
PEI $42
PHA
PHY
PEA $0007
JSL L043069
CLC
L021869 CLV
RTS
L02186B JSR L02141C
BCS L0218A9
STA L0218AB
STY L0218AD
TYX
TAY
SEP #$20
LDA [$3A],Y
STA L0218AF
L02187F INY
DEX
BEQ L021895
LDA [$3A],Y
EOR L0218AF
BEQ L02187F
REP #$20
LDA #$0007
JSR L020AB8
SEC
CLV
RTS
L021895 REP #$20
PEI $42
LDA L0218AB
PHA
LDA L0218AD
PHA
PEA $0008
JSL L043069
CLC
L0218A9 CLV
RTS
L0218AB DW $0000
L0218AD DW $0000
L0218AF DB $00
L0218B0 LDA #$000B
BRA L0218B8
L0218B5 LDA #$0009
L0218B8 STA L0219C4
CMP #$0009
BEQ L0218CB
JSR L02141C
BCS L021902
STA L0219BE
TYA
BRA L021920
L0218CB JSR L021339
BCS L021902
STA L0219BE
CPY $42
BNE L0218FC
JSR L021309
BCS L021956
CMP #$00AC
BEQ L021905
CMP #$00AE
BNE L0218F6
JSR L021339
BCS L021902
CMP L0219BE
BCC L0218FC
SBC L0219BE
INC
BRA L021920
L0218F6 LDA #$0001
BRA L0218FF
L0218FB PLA
L0218FC LDA #$0003
L0218FF JSR L020AB8
L021902 REP #$31
RTS
L021905 JSR L021564
BCS L021902
CMP #$0000
BEQ L021902
PHA
DEC
CLC
ADC L0219BE
BCS L0218FB
BIT $5C
BMI L02191F
CMP $3E
BCS L0218FB
L02191F PLA
L021920 STA L0219C2
CLC
ADC L0219BE
STA L0219C0
L02192A SEP #$20
LDY L0219BE
JSR L021978
LDX #$0001
L021935 LDA [$3A],Y
AND #$7F
CMP #$20
BCC L02194D
LDA [$3A],Y
EOR L0219C6
BPL L02194D
DEX
L021945 JSR L02198D
BCS L021902
JSR L021978
L02194D CPX L0219C2
BCS L021945
INY
INX
BRA L021935
L021956 SEP #$20
LDY L0219BE
LDX #$0001
L02195E LDA [$3A],Y
BEQ L021969
INX
INY
CPY $3E
BNE L02195E
DEX
L021969 STX L0219C2
REP #$20
TXA
CLC
ADC L0219BE
STA L0219C0
BRA L02192A
MX %10
L021978 PHY
L021979 LDA [$3A],Y
PHA
AND #$80
STA L0219C6
PLA
AND #$7F
CMP #$20
BCS L02198B
INY
BNE L021979
L02198B PLY
RTS
MX %00
L02198D REP #$20
PEI $42
LDA L0219BE
PHA
PHX
LDA L0219C4
PHA
TXA
CLC
ADC L0219BE
STA L0219BE
TXA
SEC
SBC L0219C2
EOR #$FFFF
INC
STA L0219C2
JSL L043069
LDX #$0001
LDY L0219BE
CPY L0219C0
SEP #$20
RTS
L0219BE DW $0000
L0219C0 DW $0000
L0219C2 DW $0000
L0219C4 DW $0000
L0219C6 DB $00
L0219C7 PHP
REP #$30
JSR L021339
BCS L021A35
STA L021A41
LDA #$0001
STA L021A43
JSR L021309
BCS L0219EF
CMP #$00AC
BEQ L0219E7
LDA #$0001
BRA L021A3B
L0219E7 JSR L021564
BCS L021A35
STA L021A43
L0219EF SEP #$20
LDY L021A41
LDA [$3A],Y
AND #$80
STA L021A40
L0219FB SEP #$20
LDY L021A41
LDX #$0001
BRA L021A11
L021A05 INX
INY
BEQ L021A38
BIT $5D
BMI L021A11
CPY $3E
BCS L021A38
L021A11 LDA [$3A],Y
EOR L021A40
BPL L021A05
REP #$20
PEI $42
LDA L021A41
PHA
PHX
TXA
CLC
ADC L021A41
STA L021A41
PEA $000A
JSL L043069
DEC L021A43
BNE L0219FB
L021A35 PLP
CLC
RTS
L021A38 LDA #$0007
L021A3B JSR L020AB8
BRA L021A35
L021A40 DB $00
L021A41 DW $0000
L021A43 DW $0000
L021A45 LDA #$000F
BRA L021A4D
L021A4A LDA #$000E
L021A4D STA L021AC4
JSR L021339
BCS L021ABF
CPY $42
BNE L021AB9
STA L021AC2
JSR L021309
TAX
LDA #$0001
BCS L021A6F
CPX #$00AC
BNE L021AB4
JSR L021564
BCS L021ABF
L021A6F STA L021AC6
L021A72 LDY L021AC2
LDA [$3A],Y
LDX L021AC4
CPX #$000E
BEQ L021A82
AND #$00FF
L021A82 INC
CPX #$000E
BNE L021A89
INC
L021A89 PEI $42
PHY
PHA
CLC
ADC L021AC2
BCC L021AA0
BEQ L021AA0
PLA
PLA
PLA
LDA L021AC6
DEC
BNE L021AAD
BRA L021AAF
L021AA0 STA L021AC2
PHX
JSL L043069
DEC L021AC6
BNE L021A72
L021AAD CLC
RTS
L021AAF LDA #$0007
BRA L021ABC
L021AB4 LDA #$0001
BRA L021ABC
L021AB9 LDA #$0003
L021ABC JSR L020AB8
L021ABF SEC
CLV
RTS
L021AC2 DW $0000
L021AC4 DW $0000
L021AC6 DW $0000
L021AC8 ADRL L028C04 ; 0 LOAD
ADRL L021BC7 ; 1 TCLR
ADRL L021BF3 ; 2 TLOAD
ADRL L021C54 ; 3 TSAVE
ADRL L021CA6 ; 4 GENLAB
ADRL L021D90 ; 5 LIST
ADRL L021CAC ; 6 REM
ADRL L02438E ; 7 ?
ADRL L029C1B ; 8 INFOS
ADRL L021D8C ; 9 QUIT
ADRL L021D8C ; 10 BYE
ADRL L021E48 ; 11 PFX
ADRL L021E80 ; 12 OFF
ADRL L028F53 ; 13 SEG
ADRL L025C74 ; 14 SLOAD
ADRL L025CF4 ; 15 \
ADRL L02238A ; 16 PHL
ADRL L02242B ; 17 RPHL
ADRL L0224CE ; 18 PHL2
ADRL L022578 ; 19 MATCH
ADRL L022D08 ; 20 SRC
ADRL L0225D9 ; 21 COM
ADRL L025AFE ; 22 TABS
ADRL L02269B ; 23 CAT
ADRL L023D1C ; 24 ROM
ADRL L023DD3 ; 25 STOOL
ADRL L023D77 ; 26 MLABS
ADRL L023B82 ; 27 MREL
ADRL L023CC4 ; 28 REL8
ADRL L023CC7 ; 29 RREL8
ADRL L0221D9 ; 30 RELL
ADRL L023F00 ; 31 TC
ADRL L023F10 ; 32 TRON
ADRL L023F13 ; 33 TROFF
ADRL L023F19 ; 34 BUG
ADRL L029066 ; 35 RLOAD
ADRL L025543 ; 36 $
ADRL L025D7E ; 37 SEDIT
ADRL L027365 ; 38 POP
ADRL L025DD4 ; 39 DSK
ADRL L025CC2 ; 40 SSAVE
ADRL L025B75 ; 41 HIST
ADRL L0267F2 ; 42 -
ADRL L0260AF ; 43 CFG
ADRL L024271 ; 44 CS
ADRL L0241FF ; 45 C1
ADRL L026F79 ; 46 [
ADRL L027330 ; 47 MD
ADRL L027798 ; 48 TST
ADRL L02779B ; 49 FIND
ADRL L027EB0 ; 50 SCAN
* AV 202010 - Two new commands
adrl doCHON ; 51 CHON
adrl doCHOFF ; 52 CHOFF
*---
L021B94 DB $00 ; 0 LOAD
DB $C0 ; 1 TCLR
DB $C0 ; 2 TLOAD
DB $80 ; 3 TSAVE
DB $C0 ; 4 GENLAB
DB $80 ; 5 LIST
DB $C0 ; 6 REM
DB $00 ; 7 ?
DB $C0 ; 8 INFOS
DB $00 ; 9 QUIT
DB $00 ; 10 BYE
DB $00 ; 11 PFX
DB $C0 ; 12 OFF
DB $80 ; 13 SEG
DB $00 ; 14 SLOAD
DB $C0 ; 15 \
DB $C0 ; 16 PHL
DB $C0 ; 17 RPHL
DB $C0 ; 18 PHL2
DB $C0 ; 19 MATCH
DB $C0 ; 20 SRC
DB $C0 ; 21 COM
DB $C0 ; 22 TABS
DB $00 ; 23 CAT
DB $40 ; 24 ROM
DB $C0 ; 25 STOOL
DB $C0 ; 26 MLABS
DB $C0 ; 27 MREL
DB $C0 ; 28 REL8
DB $C0 ; 29 RREL8
DB $C0 ; 30 RELL
DB $C0 ; 31 TC
DB $80 ; 32 TRON
DB $80 ; 33 TROFF
DB $80 ; 34 BUG
DB $00 ; 35 RLOAD
DB $00 ; 36 $
DB $60 ; 37 SEDIT
DB $00 ; 38 POP
DB $60 ; 39 DSK
DB $00 ; 40 SSAVE
DB $40 ; 41 HIST
DB $E0 ; 42 -
DB $00 ; 43 CFG
DB $C0 ; 44 CS
DB $C0 ; 45 C1
DB $00 ; 46 [
DB $00 ; 47 MD
DB $C0 ; 48 TST
DB $80 ; 49 FIND
DB $C0 ; 50 SCAN
* AV 202010 - Two new commands
db $00 ; 51 CHON
db $00 ; 52 CHOFF
*--- end of AV 202010
L021BC7 JSL L041D74
JSL L040F9B
LDA L0283CE
PHA
LDA L0283CC
PHA
JSL L0437E4
JSR L020D0C
PEA $0000
PEI $3E
PEA $FFFF
JSL L041015
JSL L0410DD
JSR L020D34
CLC
RTS
L021BF3 PHP
REP #$30
JSR L020D0C
LDA [$F8]
AND #$00FF
BEQ L021C0B
JSR L021586
PEA ^L0215CD
PEA L0215CD
BRA L021C31
L021C0B LDAL L041ACE
BNE L021C2B
LDA L020188
BNE L021C1E
PEA ^L021C9B
PEA L021C9B
BRA L021C31
L021C1E LDX L020187
LDY L020189
JSR L023EF2
PHY
PHX
BRA L021C31
L021C2B PEA $0000
PEA $0000
L021C31 JSL L041F95
BCC L021C3C
JSR L020AF7
BRA L021C4E
L021C3C REP #$20
LDA L0283CE
PHA
LDA L0283CC
PHA
JSL L0437E4
JSL L042328
L021C4E JSR L020D34
PLP
CLC
RTS
L021C54 PHP
REP #$30
LDA [$F8]
AND #$00FF
BEQ L021C69
JSR L021586
PEA ^L0215CD
PEA L0215CD
BRA L021C8F
L021C69 LDAL L041ACE
BNE L021C89
LDA L020188
BNE L021C7C
PEA ^L021C9B
PEA L021C9B
BRA L021C8F
L021C7C LDX L020187
LDY L020189
JSR L023EF2
PHY
PHX
BRA L021C8F
L021C89 PEA $0000
PEA $0000
L021C8F JSL L042166
BCC L021C98
JSR L020AF7
L021C98 PLP
CLC
RTS
L021C9B STRL '0:Temps.T'
L021CA6 JSL L0443B3
CLC
RTS
L021CAC PHP
REP #$30
STZ L021D33
L021CB2 JSR L021309
BCC L021CC3
LDA L021D33
BEQ L021CCD
LDA #$0000
LDY $3E
BRA L021D04
L021CC3 CMP #$00AC
BEQ L021CFF
JSR L021CD6
BCC L021CB2
L021CCD LDA #$0001
JSR L020AB8
L021CD3 PLP
CLC
RTS
L021CD6 CMP #$00C3
BNE L021CE3
LDA #$0001
TSB L021D33
CLC
RTS
L021CE3 CMP #$00CC
BNE L021CF0
LDA #$0002
TSB L021D33
CLC
RTS
L021CF0 CMP #$00C4
BNE L021CFD
LDA #$0004
TSB L021D33
CLC
RTS
L021CFD SEC
RTS
L021CFF JSR L02141C
BCS L021CD3
L021D04 STA L021D2D
TYA
BNE L021D0B
DEC
L021D0B ADC L021D2D
STA L021D2F
LDA L021D33
LSR
PHA
BCC L021D1B
JSR L021D35
L021D1B PLA
LSR
PHA
BCC L021D23
JSR L021D57
L021D23 PLA
LSR
BCC L021D2A
JSR L021D79
L021D2A PLP
CLC
RTS
L021D2D DB $00
DB $00
L021D2F DB $00
DB $00
DB $00
DB $00
L021D33 DB $00
DB $00
L021D35 LDA L021D2D
JSL L0416F3
TAY
L021D3D LDA #$8000
JSL L04172C
BCS L021D56
CPY L021D2F
BCS L021D56
PHY
PEI $42
PHY
JSL L043563
PLY
BRA L021D3D
L021D56 RTS
L021D57 LDA L021D2D
JSL L0416F3
L021D5E TAY
LDA #$4000
JSL L04172C
BCS L021D78
CPY L021D2F
BCS L021D78
PHY
PEI $42
PHY
JSL L0429D3
PLA
BRA L021D5E
L021D78 RTS
L021D79 PEI $42
LDA L021D2D
PHA
LDA L021D2F
SEC
SBC $01,S
INC
PHA
JSL L044E36
RTS
L021D8C SEP #$40
SEC
RTS
L021D90 PHP
REP #$30
JSR L021339
BCC L021D9B
L021D98 PLP
CLC
RTS
L021D9B CPY $42
BEQ L021DA7
LDA #$0003
JSR L020AB8
BRA L021D98
L021DA7 TAY
LDA [$F8]
AND #$00FF
CMP #$00AA
PHP
TYA
PLP
BEQ L021DBA
PHA
JSL L0416D7
L021DBA PLP
L021DBB PHP
REP #$30
BIT L0283C2
BPL L021E01
PHA
JSL L0300EE
PLA
PHY
PHX
PHA
LDY #$0002
LDX #$0000
JSL L0300E2
PLA
STA $54
PHA
PHA
JSL L04155D
STX $56
STX $5A
PLA
LDY #$0014
JSL L0405F4
STA $58
STZ L020F68
CPY #$00EF
BNE L021DFB
LDA #$FFFF
STA L020F68
L021DFB PLX
PLY
JSL L0300E2
L021E01 PLP
CLC
RTS
L021E04 PHP
REP #$30
BIT L0283C2
BPL L021E42
JSL L0300EE
PHY
PHX
LDX #$0000
LDY #$0002
JSL L0300E2
LDA $56
STA $5A
LDA $54
LDY #$0014
JSL L0405F4
STA $58
STZ L020F68
CPY #$00EF
BNE L021E39
LDA #$FFFF
STA L020F68
L021E39 PLX
PLY
JSL L0300E2
PLP
CLC
RTS
L021E42 JSR L020D34
PLP
CLC
RTS
L021E48 SEP #$20
LDA [$F8]
BNE L021E51
JMP L0273A6
L021E51 LDX #$0000
L021E54 JSR L021309
BCS L021E61
AND #$7F
STA L02005D,X
INX
BRA L021E54
L021E61 REP #$20
STX L02005B
JSL GSOS
DW $2009 ; SetPrefix
ADRL L021E78
BCC L021E75
JSR L020AF7
L021E75 CLC
CLV
RTS
L021E78 DW $0002 ; Parms for SetPrefix
DW $0000 ; prefix num
ADRL L02005B ; prefix ptr
L021E80 PHP
REP #$30
JSR L021339
BCC L021E8B
BRL L021F01
L021E8B STA L021F04
STY L021F06
JSR L021309
BCC L021EDF
LDA L021F04
LDY L021F06
CPY $42
BNE L021EFB
JSL L0410BB
BIT #$8000
BNE L021ED0
LDY L021F04
LDA [$3A],Y
JSL L04037A
TYX
INC L021F04
L021EB6 LDY L021F04
LDA [$3A],Y
CPX #$0002
BCS L021ECB
AND #$00FF
CMP #$0080
BCC L021ECB
ORA #$FF00
L021ECB STA L021F08
BRA L021EE1
L021ED0 LDY L021F06
PHY
LDA L021F04
PHA
JSL L04349E
TYX
BRA L021EB6
L021EDF BRA L021EF6
L021EE1 LDA L021F06
PHA
LDA L021F04
PHA
LDA L021F08
PHA
PEA $0000
JSL L043813
BRA L021F01
L021EF6 LDA #$0001
BRA L021EFE
L021EFB LDA #$0003
L021EFE JSR L020AB8
L021F01 PLP
CLC
RTS
L021F04 DB $00
DB $00
L021F06 DB $00
DB $00
L021F08 DB $00
DB $00
L021F0A ADRL L021FA1 ; 0 LAB
ADRL L021F9A ; 1 ENT
ADRL L021F28 ; 2 EXT
ADRL L021F28 ; 3 EXD
ADRL L021F93 ; 4 EQU
ADRL L021F28 ; 5 DP
L021F22 DB $C0 ; 0 LAB
DB $C0 ; 1 ENT
DB $C0 ; 2 EXT
DB $C0 ; 3 EXD
DB $C0 ; 4 EQU
DB $C0 ; 5 DP
L021F28 CLC
RTS
L021F2A PHP
REP #$30
STA $04
JSR L020F52
SEP #$30
LDY #$00
L021F36 LDA [$F8],Y
BEQ L021F85
cmp #'a'
bcc nochange
cmp #'z'+1
bcs nochange
sec
sbc #$20
nochange
CMP #$A0
BEQ L021F85
CMP #$AC ; ,
BEQ L021F85
CMP #$AE ; .
BEQ L021F85
CMP #$BA ; 9+1
BEQ L021F7C
CMP #$B0 ; 0
BCC L021F6E
CMP #$BA ; 9+1
BCC L021F76
CMP #$FE ; {
BEQ L021F80
CMP #$C1 ; A
BCC L021F6E
CMP #$FB ; z+1
BCS L021F6E
CMP #$DD ; ]
BEQ L021F7C
CMP #$DF ; _
BEQ L021F80
CMP #$DB ; [
BCC L021F80
CMP #$E1 ; a
BCS L021F80
L021F6E LDA #$04
JSR L020AB8
PLP
SEC
RTS
L021F76 CPY #$00
BNE L021F80
BRA L021F6E
L021F7C CPY #$00
BNE L021F6E
L021F80 INY
STA ($04),Y
BRA L021F36
L021F85 TYA
STA ($04)
REP #$20
TYA
CLC
ADC $F8
STA $F8
PLP
CLC
RTS
L021F93 PHP
SEP #$30
LDA #$04
BRA L021FA6
L021F9A PHP
SEP #$30
LDA #$01
BRA L021FA6
L021FA1 PHP
SEP #$30
LDA #$00
L021FA6 STA L022085
REP #$30
JSR L021367
BCS L022013
BVS L021FCD
STA L022081
STY L022083
LDX L022085
CPX #$0004
BCS L021FD3
PHY
PHA
JSL L042ABB
BCC L021FCD
LDA #$0003
BRA L022010
L021FCD STA L022081
STY L022083
L021FD3 JSR L021309
BCS L022035
CMP #$00AC
BEQ L021FE6
LDA #$0001
JSR L020AB8
PLP
CLC
RTS
L021FE6 LDA #L022089
JSR L021F2A
BCS L022013
LDA L022089
AND #$00FF
BEQ L022064
LDA L02208A
AND #$00FF
CMP #$00BA
BEQ L022016
PEA ^L022089
PEA L022089
JSL L0426C7
BCS L022016
LDA #$0002
L022010 JSR L020AB8
L022013 PLP
CLC
RTS
L022016 JSR L022063
LDA L022083
PHA
LDA L022081
PHA
PEA $0000
LDA L022085
PHA
PEA ^L022089
PEA L022089
JSL L042748
L022032 PLP
CLC
RTS
L022035 LDA L022085
CMP #$0001
BNE L022064
STZ L022089
LDA L022083
PHA
LDA L022081
PHA
PEA ^L022089
PEA L022089
JSL L0428B4
BCS L022032
LDA L022089
AND #$00FF
BEQ L02205E
BRA L022016
L02205E LDA #$0006
BRA L022010
L022063 PHP
L022064 LDA L022083
PHA
LDA L022081
PHA
LDA L022085
CMP #$0004
BCC L02207A
JSL L0429B6
BRA L02207E
L02207A JSL L0429D3
L02207E PLP
CLC
RTS
L022081 DB $00
DB $00
L022083 DB $00
DB $00
L022085 DB $00
DB $00
DB $00
DB $00
L022089 DB $00
L02208A 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
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0220D2 ADRL L02218E ; 0 ORG
ADRL L0220F0 ; 1 MX
ADRL $00000000 ; 2 ORG
ADRL $00000000 ; 3 " "
ADRL L02233C ; 4 DBR
ADRL $00000000 ; 5 B=K
L0220EA DB $C0 ; 0 ORG
DB $C0 ; 1 MX
DB $00 ; 2 ORG
DB $00 ; 3 " "
DB $C0 ; 4 DBR
DB $00 ; 5 B=K
L0220F0 PHP
REP #$30
LDA [$F8]
AND #$00FF
CMP #$00A5
BEQ L022139
JSR L021339
BCC L022105
BRL L022187
L022105 STA L02218A
JSR L021309
BCS L022114
CMP #$00AC
BNE L022181
BRA L022124
L022114 JSR L022119
BRA L022187
L022119 PEI $42
LDA L02218A
PHA
JSL L042D9E
RTS
L022124 JSR L022150
BCS L022181
PEI $42
LDA L02218A
PHA
LDA L02218C
PHA
JSL L042D43
BRA L022187
L022139 JSR L022150
BCS L022181
SEP #$20
PHA
AND #$0F
STA $31
PLA
LSR
LSR
LSR
LSR
STA $30
REP #$20
BRA L022187
L022150 SEP #$20
JSR L021309
BCS L022174
CMP #$A5
BNE L022174
JSR L022178
BCS L022174
ASL
ASL
ASL
ASL
STA L02218C
JSR L022178
BCS L022174
ORA L02218C
STA L02218C
CLC
HEX B0
L022174 SEC
REP #$20
RTS
MX %10
L022178 JSR L021309
SEC
SBC #$B0
CMP #$02
RTS
MX %00
L022181 LDA #$0001
JSR L020AB8
L022187 PLP
CLC
RTS
L02218A DB $00
DB $00
L02218C DB $00
DB $00
L02218E PHP
REP #$30
JSR L021339
BCC L022199
L022196 PLP
CLC
RTS
L022199 STA L0221D7
JSR L021309
BCS L0221CB
CMP #$00AC
BEQ L0221AE
LDA #$0001
JSR L020AB8
L0221AC BRA L022196
L0221AE JSR L021367
BCS L022196
LDX L0221D7
PEI $42
PHX
PEA $0000
PHY
PHA
PEI $42
PHX
JSL L042C85
JSL L042BC0
BRA L022196
L0221CB PEI $42
LDA L0221D7
PHA
JSL L042C85
BRA L022196
L0221D7 DB $00
DB $00
L0221D9 PHP
REP #$30
JSR L021339
BCC L0221E4
L0221E1 PLP
CLC
RTS
L0221E4 STA L022330
STZ L022334
STZ L022336
JSR L021309
BCC L02221B
LDA L022330
JSL L040586
STA L022332
CPY #$0000
BNE L02220F
DEC
STA L022332
INC L022330
CMP #$0002
BCC L0221E1
BRA L022244
L02220F CMP #$0005
BCS L0221E1
CMP #$0002
BCC L0221E1
BRA L022244
L02221B CMP #$00AC
BEQ L022223
BRL L022323
L022223 JSR L021309
SEC
SBC #$00B0
BNE L02222F
BRL L022328
L02222F CMP #$0005
BCC L022237
BRL L022328
L022237 STA L022332
STZ L022334
LDA [$F8]
AND #$00FF
BNE L022280
L022244 LDY L022330
LDA [$3A],Y
STA L022338
INY
INY
LDA [$3A],Y
AND #$00FF
STA L02233A
LDA L022332
CMP #$0003
BCS L02226B
PEI $42
LDA L022330
PHA
JSL L042A5C
STY L02233A
L02226B LDA L02233A
PHA
LDA L022338
PHA
JSL L042ABB
STA L022338
STY L02233A
BRL L0222FE
L022280 JSR L02153D
BCC L022288
BRL L022320
L022288 LDA [$F8]
AND #$00FF
CMP #$00AD
BNE L02229B
JSR L021309
LDA #$FFFF
STA L022334
L02229B PEI $FA
PEI $F8
LDX #$0002
JSL L0306BD
PLX
STX $F8
PLX
STX $FA
BCS L022323
BIT L022334
BPL L0222B7
EOR #$FFFF
INC
L0222B7 STA L022334
JSR L02153D
BCS L022320
JSR L021339
BCS L022320
STA L022338
STY L02233A
JSR L021309
BCS L0222FE
CMP #$00AB
BEQ L0222DF
CMP #$00AD
BNE L022323
LDA #$FFFF
STA L022336
L0222DF PEI $FA
PEI $F8
LDX #$0002
JSL L0306BD
PLX
STX $F8
PLX
STX $FA
BCS L022323
BIT L022336
BPL L0222FB
EOR #$FFFF
INC
L0222FB STA L022336
L0222FE PEI $42
LDA L022330
PHA
LDA L022332
PHA
SEP #$20
LDA L022336
PHA
LDA L022334
PHA
REP #$20
LDY L02233A
PHY
LDA L022338
PHA
JSL L043774
L022320 PLP
CLC
RTS
L022323 LDA #$0001
BRA L02232B
L022328 LDA #$0003
L02232B JSR L020AB8
BRA L022320
L022330 DB $00
DB $00
L022332 DB $00
DB $00
L022334 DB $00
DB $00
L022336 DB $00
DB $00
L022338 DB $00
DB $00
L02233A DB $00
DB $00
L02233C PHP
REP #$30
JSR L021339
BCS L022385
STA L022388
JSR L021309
BCS L022373
CMP #$00AC
BNE L02237F
PEI $FA
PEI $F8
LDX #$0002
JSL L0306BD
PLX
STX $F8
PLX
STX $FA
AND #$00FF
TAX
PEI $42
LDA L022388
PHA
PHX
JSL L042E01
BRA L022385
L022373 PEI $42
LDA L022388
PHA
JSL L042ED4
BRA L022385
L02237F LDA #$0001
JSR L020AB8
L022385 PLP
CLC
RTS
L022388 DB $00
DB $00
L02238A PHP
REP #$30
JSR L021339
BCS L0223EB
STA L022425
CPY $42
BNE L0223EB
TAY
INY
LDA [$3A],Y
STA L022429
PHA
INY
INY
INY
LDA [$3A],Y
STA L022427
PHA
JSL L042ABB
BCS L0223EE
STA L022427
STY L022429
PEI $42
LDA L022425
INC
PHA
PEA $0002
PEA $00F0
LDA L022429
PHA
LDA L022427
PHA
JSL L043774
PEI $42
LDA L022425
CLC
ADC #$0004
PHA
PEA $0002
PEA $0000
LDA L022429
PHA
LDA L022427
PHA
JSL L043774
L0223EB PLP
CLC
RTS
L0223EE PEI $42
LDA L022425
INC
PHA
PEA $0002
PEA $00F0
LDA L022429
PHA
LDA L022427
PHA
JSL L043772
PEI $42
LDA L022425
CLC
ADC #$0004
PHA
PEA $0002
PEA $0000
LDA L022429
PHA
LDA L022427
PHA
JSL L043772
BRA L0223EB
L022425 DB $00
DB $00
L022427 DB $00
DB $00
L022429 DB $00
DB $00
L02242B PHP
REP #$30
JSR L021339
BCS L02248E
CPY $42
BNE L02248E
STA L0224C8
TAY
INY
LDA [$3A],Y
STA L0224CA
PHA
INY
INY
INY
LDA [$3A],Y
STA L0224CC
PLX
PHA
PHX
JSL L042ABB
BCS L022491
STA L0224CA
STY L0224CC
PEI $42
LDA L0224C8
INC
PHA
PEA $0002
PEA $0000
LDA L0224CC
PHA
LDA L0224CA
PHA
JSL L043774
PEI $42
LDA L0224C8
CLC
ADC #$0004
PHA
PEA $0002
PEA $00F0
LDA L0224CC
PHA
LDA L0224CA
PHA
JSL L043774
L02248E PLP
CLC
RTS
L022491 PEI $42
LDA L0224C8
INC
PHA
PEA $0002
PEA $0000
LDA L0224CC
PHA
LDA L0224CA
PHA
JSL L043772
PEI $42
LDA L0224C8
CLC
ADC #$0004
PHA
PEA $0002
PEA $00F0
LDA L0224CC
PHA
LDA L0224CA
PHA
JSL L043772
BRA L02248E
L0224C8 DB $00
DB $00
L0224CA DB $00
DB $00
L0224CC DB $00
DB $00
L0224CE PHP
REP #$30
JSR L021339
BCS L02253B
CPY $42
BNE L02253B
STA L022570
TAY
LDA [$3A],Y
STA L022576
JSR L02153D
BCS L02253B
JSR L021339
BCS L02253B
CPY $42
BNE L02253B
STA L022572
TAY
LDA [$3A],Y
STA L022574
LDY L022576
PHY
PHA
JSL L042ABB
BCS L02253E
STA L022574
STY L022576
PEI $42
LDA L022570
PHA
PEA $0002
PEA $00F0
LDA L022576
PHA
LDA L022574
PHA
JSL L043774
PEI $42
LDA L022572
PHA
PEA $0002
PEA $0000
LDA L022576
PHA
LDA L022574
PHA
JSL L043774
L02253B PLP
CLC
RTS
L02253E PEI $42
LDA L022570
PHA
PEA $0002
PEA $00F0
LDA L022576
PHA
LDA L022574
PHA
JSL L043772
PEI $42
LDA L022572
PHA
PEA $0002
PEA $0000
LDA L022576
PHA
LDA L022574
PHA
JSL L043772
BRA L02253B
L022570 DB $00
DB $00
L022572 DB $00
DB $00
L022574 DB $00
DB $00
L022576 DB $00
DB $00
L022578 PHP
REP #$30
STZ L0225D7
L02257E JSR L021309
BCS L0225BA
JSR L022591
BCC L02257E
L022588 LDA #$0001
JSR L020AB8
PLP
CLC
RTS
L022591 CMP #$00C3
BNE L02259E
LDA #$0001
TSB L0225D7
CLC
RTS
L02259E CMP #$00CC
BNE L0225AB
LDA #$0002
TSB L0225D7
CLC
RTS
L0225AB CMP #$00C4
BNE L0225B8
LDA #$0004
TSB L0225D7
CLC
RTS
L0225B8 SEC
RTS
L0225BA LDA L0225D7
BEQ L022588
LSR
PHA
BCC L0225C3
L0225C3 PLA
LSR
PHA
BCC L0225D0
JSL L044A2D
JSL L044A71
L0225D0 PLA
LSR
BCC L0225D4
L0225D4 PLP
CLC
RTS
L0225D7 DB $00
DB $00
L0225D9 JSR L021339
BCS L02261B
STA L022650
STY L02264E
JSR L021309
BCS L022625
CMP #$00AC
BNE L02261D
SEP #$20
LDY #$0000
L0225F3 LDA [$F8],Y
BEQ L0225FD
STA L022653,Y
INY
BRA L0225F3
L0225FD SEP #$10
STY L022652
REP #$30
CPY #$0000
BEQ L02261D
LDA L02264E
PHA
LDA L022650
PHA
PEA ^L022652
PEA L022652
JSL L04386A
L02261B CLC
RTS
L02261D LDA #$0000
JSR L020AB8
CLC
RTS
L022625 LDA L02264E
EOR $42
BNE L02263A
LDA L022650
PHA
PEA $0001
PEA $0400
JSL L041015
L02263A LDA L02264E
PHA
LDA L022650
PHA
PEA $0001
PEA $FF66
JSL L0435FB
CLC
RTS
L02264E DB $00
DB $00
L022650 DB $00
DB $00
L022652 DB $00
L022653 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
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L02269B JSR L020D34
JSL L030314
ADR L0228A4
JSL L030314
ADR L0228F5
JSL L030035
DB $04
DB $15
DB $00
DB $4F
JSR L021586
LDA L0215CD
BNE L0226C5
INC L0215CD
LDA #$0030
STA L0215CF
L0226C5 PEA ^L022838
PEA L022838
PEA $2010 ; Open
JSL GSOS2
BCC L0226D7
BRL L02275C
L0226D7 LDA L02283A
STA L022846
STA L022842
STZ L02284A
STZ L02284C
PEA ^L022844
PEA L022844
PEA $201C ; GetDirEntry
JSL GSOS2
BCS L022759
LDA #$0001
STA L022832
LDA L022852
STA L022836
BEQ L02272F
CMP #$0012
BCC L02270B
LDA #$0012
L02270B STA L022834
LDA L022832
L022711 STA L02284C
JSR L022824
BCS L022759
JSR L022946
LDA L02284C
INC
CMP L022834
BEQ L022727
BCS L02272F
L022727 PHA
JSL L0302D4
PLA
BRA L022711
L02272F SEP #$20
L022731 JSL L03059F
BCS L022731
XBA
TAY
XBA
REP #$20
AND #$00FF
CMP #$008D
BEQ L022769
CMP #$009B
BEQ L022769
CMP #$008A
BEQ L022786
CMP #$008B
BNE L02272F
BRL L0227DA
JSR L020AF7
L022759 JSR L022774
L02275C SEP #$20
STAL $E0C001
REP #$20
JSR L020AF7
BRA L02276C
L022769 JSR L022774
L02276C JSR L020D34
JSR L021E04
CLC
RTS
L022774 PHP
PHA
PEA ^L022840
PEA L022840
PEA $2014 ; Close
JSL GSOS2
PLA
PLP
RTS
L022786 LDA L022834
CMP L022836
BCS L02272F
TYA
LSR
BCC L0227B4
JSL L0300D1
LDA L022834
CLC
ADC #$0012
CMP L022836
BCC L0227A7
LDA L022836
BRA L0227A7
L0227A7 STA L022834
SEC
SBC #$0011
STA L022832
BRL L022711
L0227B4 LDA L022834
INC
STA L022834
STA L02284C
INC L022832
JSR L022824
BCS L022759
JSL L030139
LDX #$0000
LDY #$0015
L0227D0 JSL L0300E2
JSR L022946
BRL L02272F
L0227DA LDA L022832
DEC
BNE L0227E3
BRL L02272F
L0227E3 TYA
LSR
BCC L022803
JSL L0300D1
LDA L022832
SEC
SBC #$0012
BMI L0227F6
BNE L0227F9
L0227F6 LDA #$0001
L0227F9 STA L022832
CLC
ADC #$0011
BRL L02270B
L022803 LDA L022832
DEC
STA L022832
STA L02284C
DEC L022834
JSR L022824
BCC L022818
BRL L022759
L022818 JSL L030193
LDX #$0000
LDY #$0004
BRA L0227D0
L022824 PEA ^L022844
PEA L022844
PEA $201C ; GetDirEntry
JSL GSOS2
RTS
L022832 DB $00
DB $00
L022834 DB $00
DB $00
L022836 DB $00
DB $00
L022838 DW $0002 ; Parms for Open
L02283A DW $0000 ; ref num
ADRL L0215CD ; path name
L022840 DW $0001 ; Parms for Close
L022842 DW $0000 ; ref num
L022844 DW $0011 ; Parms for GetDirEntry
L022846 DW $0000 ; ref num
DW $0000 ; flags
L02284A DW $0000 ; base
L02284C DW $0000 ; displacement
ADRL L022882 ; file name
L022852 DW $0000 ; entry num
L022854 DW $0000 ; file type
L022856 ADRL $00000000 ; end of file
L02285A ADRL $00000000 ; blocks used
DS 8 ; creation date
L022866 DS 8 ; modification date
DW $0000 ; access
L022870 ADRL $00000000 ; aux type
DW $0000 ; file system
ADRL $00000000 ; option list
L02287A ADRL $00000000 ; resource eof
L02287E ADRL $00000000 ; resource blocks
L022882 DW $0020
L022884 DB $00
L022885 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
L0228A4 STR " Name Type Blocks| Rez Last modif Length| Rez Auxtype"8D
*L0228F5 STR " LLLL LLLL LLLLLLLLLLLL LLLLLLLLLL LLLLLLLLLLLLLL LLLLLLL "
L0228F5 DB $50
HEX A04C4C4C4CA0A0A0A0A0A0A0A0A0A0A0
HEX A04C4C4C4CA0A04C4C4C4C4C4C4C4C4C
HEX 4C4C4CA0A0A0A0A04C4C4C4C4C4C4C4C
HEX 4C4CA0A0A0A0A0A04C4C4C4C4C4C4C4C
HEX 4C4C4C4C4C4C4CA0A04C4C4C4C4C4CA0
L022946 PHP
SEP #$30
LDX L022884
STX L022885
L02294F LDA L022885,X
ORA #$80
STA L022885,X
DEX
BNE L02294F
JSL L0300EE
LDX #$01
JSL L0300E2
JSL L030314
ADR L022885
STZ L022885
JSL L0300EE
LDX #$12
JSL L0300E2
LDX L022C57
LDA L022854
L02297E CMP L022C57,X
BEQ L0229A0
DEX
BNE L02297E
PHA
LDA #$A4
JSL L03022D
PLA
JSL L030837
XBA
PHA
XBA
JSL L03022D
PLA
JSL L03022D
BRA L0229C2
L0229A0 REP #$30
DEX
TXA
PHA
ASL
ADC $01,S
STA $01,S
PLA
TAX
SEP #$20
LDY #$0003
L0229B1 LDA L022C84,X
PHY
PHX
JSL L03022D
PLX
PLY
INX
DEY
BNE L0229B1
SEP #$10
L0229C2 JSL L0300EE
LDX #$18
JSL L0300E2
REP #$30
LDA L02285A
JSR L022B58
LDX #$0005
JSR L022AE5
LDA #$00A0
JSL L0301F9
LDA L02287E
JSR L022B58
LDX #$0005
JSR L022AE5
SEP #$30
JSL L0300EE
LDX #$26
JSL L0300E2
LDX #$07
L0229FB LDA L022866,X
STA L022AAC,X
DEX
BPL L0229FB
JSR L022A4D
JSL L0300EE
LDX #$37
JSL L0300E2
REP #$30
LDY L022856+2
LDA L022856
LDX #$0006
JSR L022BD4
JSL L0302E1
STR " "
LDY L02287A+2
LDA L02287A
LDX #$0006
JSR L022BD4
JSL L0300EE
LDX #$004A
JSL L0300E2
LDA #$00A4
JSL L03022D
LDA L022870
PHA
JSL L030670
PLP
RTS
L022A4D PHP
REP #$30
LDA L022AB0
INC
JSR L022AD8
SEP #$30
LDA #$AD
JSL L03022D
LDA L022AB1
PHA
ASL
ADC $01,S
STA $01,S
PLX
LDY #$03
L022A6B LDA L022AB4,X
PHY
PHX
JSL L03022D
PLX
PLY
INX
DEY
BNE L022A6B
LDA #$AD
JSL L03022D
REP #$30
LDA L022AAF
JSR L022AD8
LDA #$00A0
JSL L03022D
LDA L022AAE
JSR L022AD8
LDA #$00BA
JSL L03022D
LDA L022AAD
AND #$00FF
JSR L022B58
PHA
JSL L03065A
PLP
RTS
L022AAC DB $00
L022AAD DB $00
L022AAE DB $00
L022AAF DB $00
L022AB0 DB $00
L022AB1 DB $00
DB $00
DB $00
L022AB4 ASC "JAN"
ASC "FEB"
ASC "MAR"
ASC "APR"
ASC "MAY"
ASC "JUN"
ASC "JUL"
ASC "AUG"
ASC "SEP"
ASC "OCT"
ASC "NOV"
ASC "DEC"
L022AD8 AND #$00FF
JSR L022B58
LDX #$0002
JSR L022AFC
RTS
L022AE5 CMP #$0000
BNE L022AFC
CPY #$0000
BNE L022AFC
L022AEF PHX
LDA #$00A0
JSL L03022D
PLX
DEX
BNE L022AEF
RTS
L022AFC PHA
LSR L022B54
DEX
STX L022B52
CPX #$0004
BCS L022B17
L022B09 CPX #$0003
BEQ L022B1E
PLA
ASL
ASL
ASL
ASL
PHA
INX
BRA L022B09
L022B17 TYA
L022B18 JSL L030823
BRA L022B2F
L022B1E PLA
LDX #$0004
L022B22 ASL
ROL L022B56
DEX
BNE L022B22
PHA
LDA L022B56
BRA L022B18
L022B2F DEC L022B52
BMI L022B47
BIT L022B54
BMI L022B47
CMP #$00B0
BNE L022B43
LDA #$00A0
BRA L022B47
L022B43 SEC
ROR L022B54
L022B47 JSL L03022D
BIT L022B52
BPL L022B1E
PLA
RTS
L022B52 DB $00
DB $00
L022B54 DB $00
DB $00
L022B56 DB $00
DB $00
L022B58 STA L022B8E
STZ L022B92
STZ L022B90
LDX #$0000
L022B64 LSR L022B8E
BCC L022B7E
SED
CLC
LDA L022B94,X
ADC L022B90
STA L022B90
LDA L022B94+2,X
ADC L022B92
STA L022B92
CLD
L022B7E INX
INX
INX
INX
CPX #$0040
BCC L022B64
LDY L022B92
LDA L022B90
RTS
L022B8E DB $00
DB $00
L022B90 DB $00
DB $00
L022B92 DB $00
DB $00
L022B94 ADRL $00000001
ADRL $00000002
ADRL $00000004
ADRL $00000008
ADRL $00000016
ADRL $00000032
ADRL $00000064
ADRL $00000128
ADRL $00000256
ADRL $00000512
ADRL $00001024
ADRL $00002048
ADRL $00004096
ADRL $00008192
ADRL $00016384
ADRL $00032768
MX %00
L022BD4 CMP #$0000
BNE L022BEB
CPY #$0000
BNE L022BEB
L022BDE PHX
LDA #$00A0
JSL L03022D
PLX
DEX
BPL L022BDE
RTS
L022BEB DEX
STX L022C4F
STY L022C55
STA L022C53
L022BF5 CPX #$0007
BEQ L022C10
ASL
ROL L022C55
ASL
ROL L022C55
ASL
ROL L022C55
ASL
ROL L022C55
STA L022C53
INX
BRA L022BF5
L022C10 LSR L022C51
L022C13 LDX #$0004
L022C16 ASL L022C53
ROL L022C55
ROL
DEX
BNE L022C16
JSL L030823
BIT L022C51
BMI L022C45
CMP #$00B0
BNE L022C38
LDY L022C4F
BEQ L022C38
LDA #$00A0
BRA L022C45
L022C38 PHA
LDA #$00A4
JSL L03022D
PLA
SEC
ROR L022C51
L022C45 JSL L03022D
DEC L022C4F
BPL L022C13
RTS
L022C4F DB $00
DB $00
L022C51 DB $00
DB $00
L022C53 DB $00
DB $00
L022C55 DB $00
DB $00
L022C57 DB $2C
DB $00
DB $04
DB $06
DB $0F
DB $B3
DB $FF
DB $F8
DB $FC
DB $C9
DB $CA
DB $B0
DB $B1
DB $B2
DB $B4
DB $B5
DB $B6
DB $B7
DB $B8
DB $B9
DB $BA
DB $BB
DB $BC
DB $BD
DB $C7
DB $F9
DB $FA
DB $FB
DB $FD
DB $FE
DB $C0
DB $C1
DB $E0
DB $01
DB $5A
DB $19
DB $1A
DB $1B
DB $FE
DB $07
DB $D5
DB $D6
DB $D7
DB $D8
DB $5E
L022C84 ASC "UNKTXTBINDIRS16SYSLNKBASFNDICNSRCOBJLIBR"
ASC "TLEXEPIFTIFNDACDATOLDRVTLKFSTCDVOS INTIV"
ASC "RVARRELPNTPICLBRBADCFGADBAWPASPRELFNTMUS"
ASC "INSMDISNDDVU"
*--- Command SRC (20)
L022D08 PHP ; 20 SRC
SEP #$20
REP #$10
JSR L022F65
BCC L022D15
BRL L022DB7
L022D15 LDX #$0000
L022D18 JSR L021309
BCS L022D25
AND #$7F
STA L02331D+2,X
INX
BNE L022D18
L022D25 REP #$20
CPX #$0000
BEQ L022D37
LDA #$532E ; .S
STA L02331D+2,X
INX
INX
STX L02331D
L022D37 JSR L022E10 ; create file
BCC L022D3F
BRL L022DB7
L022D3F JSR L0233DD
LDX #$0024
LDY #$000D
JSL L0300E2
LDA L0230B5
PHA
JSL L030670
LDA L0230C5
XBA
STA L0230C5
CLC
ADC L02338F
STA L02338F
PEA ^L0230C5
PEA L0230C5
LDA L0230B1
PHA
LDA L0230AF
PHA
JSL L030852
STZ L0230C5
CLC
LDA L0230BD
ADC L0230B5
STA L0230B5
BCS L022D9A
BIT L0230B9
BMI L022D8D
CMP L0230B7
BCS L022D9A
L022D8D LDA L02338F ; length of source
CMP #$BF00
BCC L022D98
BRL L022F28 ; must create another file because it is a big source file
L022D98 BRA L022D3F
L022D9A JSL GSOS
DW $2013 ; Write
ADRL L023387
BCS L022DBD
JSR L022DC5 ; GetMark + Close
BCC L022DAE
BRL L022E34
L022DAE JSR L0239B0
JSR L02308D ; disposehandle
JSR L023AF9
L022DB7 JSR L023079
PLP
CLC
RTS
L022DBD JSR L022DE7
JSR L020AF7
BRA L022DB7
L022DC5 JSL GSOS
DW $2017 ; GetMark
ADRL L0233C7
BCS L022DE7
LDA L0233CB ; position
STA L0233D5 ; eof
LDA L0233CB+2 ; position+2
STA L0233D5+2 ; eof+2
JSL GSOS
DW $2018 ; SetEOF
ADRL L0233CF
L022DE7 PHP
PHA
* AV 202010 - Output one or more source files?
lda fgOUTPUT
bne L022DE8
JSL GSOS
DW $2014 ; Close
ADRL L0233D9
L022DE8 PLA
PLP
RTS
L022DF6 JSL GSOS
DW $2006 ; GetFileInfo
ADRL L023375
BCS L022E0F
LDA L02337D
SEC
SBC #$0004
CMP #$0001
LDA #$0000
L022E0F RTS
*--- Create file
L022E10 JSL GSOS
DW $2001 ; Create
ADRL L023367
BCC L022E39
CMP #$0047
BNE L022E34
JSR L022DF6
BCC L022E39
CMP #$0000
BNE L022E34
LDA #$000D
JSR L020AB8
BRL L022DB7
L022E34 JSR L020AF7
SEC
RTS
L022E39 JSL GSOS
DW $2010 ; Open
ADRL L02337F
BCS L022E34
LDA L023381
STA L023389
STA L023399
STA L0233A9
STA L0233B9
STA L0233C9
STA L0233D1
STA L0233DB
LDA L0230B3 ; first pass?
BNE L022E65 ; no
JSR L022E67 ; yes, write header
L022E65 CLC
RTS
*--- Output Disassembled with the Flaming Bird Disassembler
L022E67 JSL GSOS
DW $2013 ; Write
ADRL L023397
STZ L0230C5
LDA L0283CA
BEQ L022E8B
PEA ^L022F16
PEA L022F16
PEA ^L0230C6
PEA L0230C6
JSL L0307DD
BRA L022EE6
L022E8B LDA #$B0A4
STA L022F1C+6
LDA L028451
AND #$00FF
PHA
PHA
PHA
PHA
_HexIt
PLA
PLA
ORA #$8080
STA L022F1C+7
LDA L022C57
AND #$00FF
TAX
PLA
SEP #$20
L022EB4 CMP L022C57,X
BEQ L022EBE
DEX
BNE L022EB4
BRA L022ED4
L022EBE REP #$20
DEX
TXA
PHA
ASL
ADC $01,S
PLX
TAX
LDA L022C84,X
STA L022F1C+6
LDA L022C84+1,X
STA L022F1C+7
L022ED4 REP #$20
PEA ^L022F1C
PEA L022F1C
PEA ^L0230C6
PEA L0230C6
JSL L0307DD
L022EE6 PEA ^L022F26
PEA L022F26
PEA ^L0230C6
PEA L0230C6
JSL L0307DD
LDA L0230C5
XBA
STA L0230C5
STA L02338F
PEA ^L0230C5
PEA L0230C5
LDA L0230B1
PHA
LDA L0230AF
PHA
JSL L030852
STZ L0230C5
RTS
L022F16 STR " REL"8D
L022F1C STR " TYP $00"8D
L022F26 STR 8D
*--- Write
L022F28 JSL GSOS
DW $2013 ; Write
ADRL L023387
BCC L022F37
BRL L022DBD
L022F37 JSR L022DC5 ; GetMark + close
BCC L022F3F
BRL L022E34
* AV 202010 - Shall we output one or more files?
L022F3F lda fgOUTPUT ; one file?
beq L022F40 ; no, multiple
jsr L023064 ; yes, deref
brl L022D3F ; loop there if one file
L022F40 LDX L02331D
LDA L0230B3 ; is that first pass?
BNE L022F4C
LDA #$312E ; .1
INX
INX
L022F4C CLC
ADC #$0100
STA L0230B3
STA L0232E9+$32,X
LDA #$532E ; .S
STA L02331D,X
STX L02331D ; save counter
JSR L023064 ; deref
BRL L022D37 ; loop
L022F65 PHP
SEP #$20
REP #$10
LDX #$0157
L022F6D LDA L0231C5,X
CMP #$A0
BNE L022F79
AND #$7F
STA L0231C5,X
L022F79 DEX
BNE L022F6D
REP #$30
STZ L0230B5
LDA $3E
STA L0230B7
LDA $5C
STA L0230B9
LDA [$F8]
AND #$007F
CMP #$005B
BNE L022FB5
STZ L0230B9
JSR L021525
BCC L022FA0
BRL L023061
L022FA0 PHX
JSL L0416F3
STA L0230B5
PLX
STX L0230B7
BNE L022FB2
DEX
STX L0230B9
L022FB2 JSR L020F52
L022FB5 JSL L03074E
DB $09
DB $0F
DB $18
DB $37
LDX #$001E
LDY #$000B
JSL L0300E2
JSL L0302E1
STR "Generating source..."
LDX #$0023
LDY #$000D
JSL L0300E2
JSL L0302E1
STR "$0000/$"
SEC
LDA L0230B7
SBC L0230B5
INC
PHA
JSL L030670
JSL L0424A8
LDA #$0000
PHA
PHA
PEA $0000
PEA $C000
PEI $FC
PEA $8008
PHA
PHA
_NewHandle
PLX
PLY
BCS L02305B
STY L0230AD
STX L0230AB
TYA
XBA
PHB
PHA
PLB
PLB
LDA |$0000,X
STAL L0230AF
LDA |$0002,X
STAL L0230B1
PLB
CLC
LDA L0230AF
ADC #$0002
STA L02338B
LDA L0230B1
ADC #$0000
STA L02338B+2
JSR L023064
STZ L0230B3
PLP
CLC
RTS
L02305B LDA #$0000
JSR L020AB8
L023061 PLP
SEC
RTS
L023064 LDA L0230B1
LDX L0230AF
PHB
PHA
PLB
LDA #$0000
STA |$0000,X
PLB
PLB
STZ L02338F
RTS
L023079 PHP
REP #$30
JSR L02308D
JSL L030035
DB $02
DB $15
DB $00
DB $4F
JSL L0300D1
PLP
RTS
L02308D LDA L0230AD
ORA L0230AB
BEQ L0230AA
LDA L0230AD
PHA
LDA L0230AB
PHA
_DisposeHandle
STZ L0230AD
STZ L0230AB
L0230AA RTS
L0230AB DB $00
DB $00
L0230AD DB $00
DB $00
L0230AF DB $00
DB $00
L0230B1 DB $00
DB $00
L0230B3 DB $00
DB $00
L0230B5 DB $00
DB $00
L0230B7 DB $00
DB $00
L0230B9 DB $00
DB $00
L0230BB DB $00
DB $00
L0230BD DB $00
DB $00
L0230BF DB $00
DB $00
L0230C1 DB $00
DB $00
L0230C3 DB $00
DB $00
L0230C5 DB $00
L0230C6 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
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
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
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
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0231C5 DB $00
L0231C6 ASC 8D
ASC "*---------------------------------------------------------*"8D
ASC "* Disassembled with The Flaming Bird Disassembler *"8D
ASC "* (c) Phoenix corp. 1992,93 - All rights reserved *"8D
ASC "*---------------------------------------------------------*"8D8D
L0232B8 ASC 8D
ASC "* TFBD generated equates"8D
ASC "* (c) PHC 1992,93"8D8D8D
L0232E9 ASC 8D
ASC "* TFBD generated externals"8D
ASC "* (c) PHC 1992,93"8D8D8D
L02331D STRL '0:Source.S'
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
DB $00
L023367 DW $0004 ; Parms for Create
ADRL L02331D ; file name
DW $00E3 ; access
DW $0004 ; file type
ADRL $00000000 ; aux type
L023375 DW $0003 ; Parms for GetFileInfo
ADRL L02331D ; file name
DW $0000 ; access
L02337D DW $0000 ; file type
L02337F DW $0002 ; Parms for Open
L023381 DW $0000 ; ref num
ADRL L02331D ; path name
L023387 DW $0004 ; Parms for Write
L023389 DW $0000 ; ref num
L02338B ADRL $00000000 ; buffer ptr
L02338F ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L023397 DW $0004 ; Parms for Write
L023399 DW $0000 ; ref num
ADRL L0231C6 ; buffer ptr
ADRL $000000F2 ; request count
ADRL $00000000 ; transfer count
L0233A7 DW $0004 ; Parms for Write
L0233A9 DW $0000 ; ref num
ADRL L0232B8 ; buffer ptr
ADRL $00000031 ; request count
ADRL $00000000 ; transfer count
L0233B7 DW $0004 ; Parms for Write
L0233B9 DW $0000 ; ref num
ADRL L0232E9 ; buffer ptr
ADRL $00000034 ; request count
ADRL $00000000 ; transfer count
L0233C7 DW $0002 ; Parms for GetMark
L0233C9 DW $0000 ; ref num
L0233CB ADRL $00000000 ; position
L0233CF DW $0003 ; Parms for SetEOF
L0233D1 DW $0000 ; ref num
DW $0000 ; base
L0233D5 ADRL $00000000 ; displacement
L0233D9 DW $0001 ; Parms for Close
L0233DB DW $0000 ; ref num
L0233DD STZ L0230C6
LDA L0230B5
PHA
JSL L041719
LDA $01,S
JSL L0410BB
STA L0230BB
PLA
JSL L040586
STY L0230BF
STA L0230BD
LDA #$8080
AND L0230BB
CMP #$8000
BEQ L023413
JSR L0234CF
JSR L023527
JSR L02356B
JSR L0235A0
L023413 JSR L0235BC
JSR L023671
JSR L023465
JSR L023423
JSR L02348D
RTS
L023423 PHP
REP #$30
LDA L0230BB
BMI L02344C
LDY L0230B5
SEP #$20
LDA [$3A],Y
JSR L02344E
BCS L02344C
REP #$20
TYA
ADC L0230BD
TAY
SEP #$20
LDA [$3A],Y
JSR L02344E
BCC L02344C
REP #$20
JSR L0234A9
L02344C PLP
RTS
L02344E LDX #$0007
L023451 CMP L02345D,X
BEQ L02345B
DEX
BPL L023451
SEC
RTS
L02345B CLC
RTS
L02345D DB $60
DB $40
DB $6B
DB $4C
DB $5C
DB $6C
DB $7C
DB $DC
L023465 LDA L0230BB
BIT #$0400
BEQ L023489
JSR L0234A4
LDA #$00BB
JSR L0234BE
JSR L0234A4
PEI $42
LDA L0230B5
PHA
PEA ^L0230C6
PEA L0230C6
JSL L04392C
L023489 JSR L0234A9
RTS
L02348D SEP #$30
LDX L0230C6
L023492 LDA L0230C6,X
ORA #$80
CMP #$A0
BEQ L02349E
STA L0230C6,X
L02349E DEX
BNE L023492
REP #$30
RTS
L0234A4 LDA #$00A0
BRA L0234BE
L0234A9 LDA #$008D
BRA L0234BE
L0234AE PHY
PHP
JSL L030837
REP #$30
PHA
JSR L0234BE
PLA
XBA
PLP
PLY
L0234BE PHY
PHP
SEP #$30
LDX L0230C6
INX
STA L0230C6,X
STX L0230C6
PLP
PLY
RTS
MX %00
L0234CF LDA L0230BB
L0234D2 BIT #$0018
BEQ L023521
PHA
PEA ^L023522
PEA L023522
PEA ^L0230C6
PEA L0230C6
JSL L0307DD
PLA
BIT #$0008
BEQ L023502
AND #$FFF7
PHA
JSR L0234A9
PLA
BIT #$0010
BEQ L023521
PHA
JSR L0234A4
PLA
BRA L0234D2
L023502 JSR L0234A4
PEI $42
LDA L0230B5
PHA
JSL L042D12
PHY
PHA
PEA $0003
PEA ^L0230C6
PEA L0230C6
JSL L044315
JSR L0234A9
L023521 RTS
L023522 STR " ORG"
L023527 LDA L0230BB
BIT #$0001
BEQ L023543
LDY L0230B5
LDA [$3A],Y
AND #$00DF
CMP #$00C2
BNE L023544
LDA [$3A],Y
AND #$3000
BEQ L023544
L023543 RTS
L023544 PEA ^L023565
PEA L023565
PEA ^L0230C6
PEA L0230C6
JSL L0307DD
PEI $42
LDA L0230B5
PHA
JSL L042DD9
JSR L0234AE
JSR L0234A9
RTS
L023565 STR " MX %"
L02356B LDA L0230BB
BIT #$2000
BEQ L023599
PEI $42
LDA L0230B5
PHA
PEA ^L0230C6
PEA L0230C6
JSL L0428B4
PEA ^L02359A
PEA L02359A
PEA ^L0230C6
PEA L0230C6
JSL L0307DD
LDA #$6000
TRB L0230BB
L023599 RTS
L02359A STR " ENT"8D
L0235A0 LDA L0230BB
BIT #$4000
BEQ L0235B8
PEI $42
LDA L0230B5
PHA
PEA ^L0230C6
PEA L0230C6
JSL L0428B4
L0235B8 JSR L0234A4
RTS
L0235BC LSR L0230C1
LSR L0230C3
LDA L0230BB
BMI L023620
LDY L0230B5
LDA [$3A],Y
AND #$00FF
CMP #$00A2
BNE L023607
INY
INY
INY
LDA [$3A],Y
CMP #$0022
BNE L0235FF
INY
INY
LDA [$3A],Y
CMP #$E100
BNE L0235FF
LDY L0230B5
INY
LDA [$3A],Y
PHA
PEA ^L0230C6
PEA L0230C6
JSL L044C72
BCS L0235FF
SEC
ROR L0230C1
RTS
L0235FF LDY L0230B5
LDA [$3A],Y
AND #$00FF
L023607 PHA
PHA
PEA ^L0230C6
PEA L0230C6
JSL L0403B6
PLA
AND #$00EF
CMP #$0044
BNE L02361F
ROR L0230C3
L02361F RTS
L023620 LDA L0230BB
BIT #$0080
BNE L02362B
JSR L0234A4
L02362B LDA L0230BF
AND #$001F
TAY
LDX #$0000
SEP #$20
L023637 DEY
BMI L023644
L02363A INX
LDAL L040326,X
BMI L02363A
INX
BRA L023637
L023644 LDAL L040326,X
PHA
PHX
JSR L023658
JSR L0234BE
PLX
INX
PLA
BMI L023644
REP #$20
RTS
MX %10
L023658 PHA
LDA $5F
AND #$20
BEQ L02366F
LDA $01,S
AND #$7F
CMP #$41
BCC L02366F
CMP #$5B
BCS L02366F
PLA
ORA #$20
RTS
L02366F PLA
RTS
MX %00
L023671 LDA L0230BB
BMI L0236D7
BIT L0230C1
BMI L0236C2
LDA L0230BD
DEC
BEQ L0236C2
JSR L0234A4
PEI $42
LDY L0230B5
INY
PHY
BIT L0230C3
BPL L02369B
PEA ^L0230C6
PEA L0230C6
JSL L045887
RTS
L02369B PHA
STZ L0236C3
PEA ^L0236C3
PEA L0236C3
JSL L04397A
LDY L0230B5
LDA [$3A],Y
AND #$00FF
PHA
PEA ^L0236C3
PEA L0236C3
PEA ^L0230C6
PEA L0230C6
JSL L040456
L0236C2 RTS
L0236C3 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
L0236D7 LDA L0230BD
BEQ L0236C2
JSR L0234A4
LDA L0230BF
AND #$001F
ASL
TAX
JMP (L0236EA,X)
L0236EA DA L023711
DA L023726
DA L02372D
DA L023711
DA L023711
DA L023711
DA L023745
DA L02379C
DA L0237C4
DA L023947
DA L023839
DA L023822
DA L02370C
DA L02370C
DA L02385B
DA L02386B
DA L02370D
L02370C RTS
L02370D DEC L0230C6
RTS
L023711 PEI $42
LDA L0230B5
PHA
LDA L0230BD
PHA
PEA ^L0230C6
PEA L0230C6
JSL L04397A
RTS
L023726 LDY L0230B5
LDA [$3A],Y
BRA L023733
L02372D LDY L0230B5
LDA [$3A],Y
XBA
L023733 PEA $0000
PHA
PEA $0002
PEA ^L0230C6
PEA L0230C6
JSL L044315
RTS
L023745 CLC
LDA L0230B5
ADC $3A
PHA
PHA
LDA #$0000
ADC $3C
STA $03,S
PEA ^L02377D
PEA L02377D
JSL L040D34
SEP #$30
LDA #$A2
JSR L0234BE
LDX #$00
L023767 LDA L02377E,X
PHX
JSR L0234BE
PLX
INX
CPX L02377D
BCC L023767
LDA #$A2
JSR L0234BE
REP #$30
RTS
L02377D DB $00
L02377E 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
L02379C LDA L0230BD
CMP #$0011
BCC L0237AA
LDA #$0010
STA L0230BD
L0237AA STA L0237C2
LDY L0230B5
L0237B0 SEP #$20
LDA [$3A],Y
PHY
JSR L0234AE
PLY
INY
REP #$20
DEC L0237C2
BNE L0237B0
RTS
L0237C2 DW $0000
L0237C4 LDA L0230BD
PHA
CMP #$000A
BCC L0237D3
LDA #$00A4
JSR L0234BE
L0237D3 LSR L023820
PLA
LDX #$0004
L0237DA PHX
LDX #$0004
L0237DE ASL
ROL L02381E
DEX
BNE L0237DE
PHA
LDA L02381E
JSL L030823
BIT L023820
BMI L0237FA
CMP #$00B0
BEQ L0237FD
ROR L023820
L0237FA JSR L0234BE
L0237FD PLA
PLX
DEX
BNE L0237DA
LDY L0230B5
LDA [$3A],Y
AND #$00FF
BEQ L02381D
PHA
LDA #$00AC
JSR L0234BE
LDA #$00A4
JSR L0234BE
PLA
JSR L0234AE
L02381D RTS
L02381E DB $00
DB $00
L023820 DB $00
DB $00
L023822 LDA #$FFFF
STA L0238B3
CLC
LDA L0230B5
ADC L0230BD
DEC
TAY
LDA L0230BD
STA L0238B5
BRA L02387C
L023839 LDY L0230B5
LDA L0230BD
STA L0238B5
STZ L0238B3
CMP #$0001
BNE L02387C
LDA [$3A],Y
PHA
EOR #$0080
STA [$3A],Y
PHY
JSR L023893
PLY
PLA
STA [$3A],Y
RTS
L02385B LDY L0230B5
LDA [$3A],Y
STA L0238B5
BEQ L023880
INY
STZ L0238B3
BRA L02387B
L02386B LDY L0230B5
LDA [$3A],Y
AND #$00FF
STA L0238B5
BEQ L023880
STZ L0238B3
L02387B INY
L02387C JSR L023893
RTS
L023880 SEP #$10
LDX L0230C6
INX
LDA #$A7A7
STA L0230C6,X
INX
STX L0230C6
REP #$10
RTS
L023893 SEP #$20
JSR L0238D2
BCS L0238B0
JSR L0238BA
STA L0238B9
JSR L0234BE
JSR L0238F6
PHP
LDA L0238B9
JSR L0234BE
PLP
BCC L023893
L0238B0 REP #$20
RTS
L0238B3 DB $00
DB $00
L0238B5 DB $00
DB $00
L0238B7 DB $00
DB $00
L0238B9 DB $00
MX %10
L0238BA PHY
L0238BB LDA [$3A],Y
AND #$7F
CMP #$20
BCS L0238C6
INY
BNE L0238BB
L0238C6 LDA [$3A],Y
BPL L0238CE
LDA #$A2
PLY
RTS
L0238CE LDA #$A7
PLY
RTS
L0238D2 LDA [$3A],Y
AND #$7F
CMP #$20
BCC L0238DC
CLC
RTS
L0238DC LDA [$3A],Y
PHY
JSR L0234AE
PLY
INY
BIT L0238B3
BPL L0238EB
DEY
DEY
L0238EB REP #$20
DEC L0238B5
SEP #$20
BNE L0238D2
SEC
RTS
L0238F6 REP #$20
LDA #$FFFF
STA L0238B7
L0238FE SEP #$20
LDA [$3A],Y
ORA #$80
CMP #$A0
BCS L023909
RTS
L023909 BNE L02390F
AND #$7F
BRA L023926
L02390F CMP L0238B9
BNE L023926
PHY
PHA
JSR L0234BE
PLA
PHA
CMP #$A7
BNE L023921
AND #$7F
L023921 JSR L0234AE
PLA
PLY
L023926 PHY
JSR L0234BE
PLY
INY
BIT L0238B3
BPL L023933
DEY
DEY
L023933 REP #$20
DEC L0238B5
BEQ L023943
DEC L0238B7
BNE L0238FE
SEP #$20
CLC
RTS
L023943 SEP #$20
SEC
RTS
L023947 STZ L0238B3
LDA L0230BD
STA L0238B5
SEP #$20
LDY L0230B5
JSR L0238D2
BCS L023984
CPY L0230B5
BNE L023987
JSR L0238BA
STA L0238B9
JSR L0234BE
REP #$20
LDA #$0028
STA L0238B7
SEP #$20
JSR L0238FE
PHP
LDA L0238B9
JSR L0234BE
PLP
BCS L023984
JSR L0238D2
BCC L023987
L023984 REP #$20
RTS
L023987 REP #$20
TYA
SEC
SBC L0230B5
STA L0230BD
RTS
L023992 DB $00
DB $00
L023994 DB $00
DB $00
L023996 DB $00
DB $00
L023998 DB $00
DB $00
L02399A DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $E1
DB $00
DB $E0
DB $00
DB $01
DB $00
DB $00
DB $00
L0239A8 STRL " EQU $"
L0239B0 JSL L044C3E
BCC L0239B7
RTS
L0239B7 JSL L0300D1
LDX #$001B
LDY #$000C
JSL L0300E2
JSL L0302E1
STR "Generating Equates file..."
JSR L023064
LDY #$000C
L0239EA STY L023992
PHY
JSL L044C3E
PLY
LDA [$CA],Y
CLC
ADC $CA
STA $CA
BCC L0239FE
INC $CC
L0239FE LDY #$0000
L023A01 LDA [$CA],Y
BNE L023A08
BRL L023AAC
L023A08 STA L023994
INY
INY
LDA [$CA],Y
BIT #$8000
BNE L023A17
BRL L023A9C
L023A17 INY
LDA [$CA],Y
PHY
PHA
XBA
AND #$00FF
STA [$CA],Y
CLC
ADC #$000B
ADC L02338F
STA L02338F
STY L023998
PEA ^L0239A8
PEA L0239A8
LDY L0230B1
PHY
LDX L0230AF
PHX
PEI $CC
LDY L023998
TYA
CLC
ADC $CA
PHA
BCC L023A4E
LDA $03,S
INC
STA $03,S
L023A4E LDY L0230B1
PHY
PHX
JSL L030852
JSL L030852
LDX L023992
LDA L02399A,X
BEQ L023A73
LDY L0230B1
LDX L0230AF
JSL L0308AF
INC L02338F
INC L02338F
L023A73 LDY L0230B1
LDX L0230AF
PHY
PHX
LDA L023994
JSL L0308D1
PHD
TSC
TCD
LDA [$03]
INC
STA [$03]
INC
TAY
LDA #$008D
STA [$03],Y
PLD
PLX
PLY
PLA
PLY
STA [$CA],Y
INC L023996
DEY
L023A9C INY
INY
LDA [$CA],Y
AND #$00FF
PHY
SEC
ADC $01,S
PLY
TAY
BRL L023A01
L023AAC LDY L023992
DEY
DEY
CPY #$0006
BCC L023AB9
BRL L0239EA
L023AB9 LDA L023996
BNE L023ABF
RTS
L023ABF LDX L02331D
LDA L0230B3
BNE L023AC9
INX
INX
L023AC9 LDA #$452E ; .E
STA L0232E9+$32,X
LDA #$532E ; .S
STA L02331D,X
STX L02331D
INC L0230B3
JSR L022E10 ; create file
BCC L023AE1
RTS
L023AE1 JSL GSOS
DW $2013 ; Write
ADRL L0233A7
JSL GSOS
DW $2013 ; Write
ADRL L023387
JSR L022DC5
RTS
L023AF9 JSL L0300D1
LDX #$001C
LDY #$000C
JSL L0300E2
JSL L0302E1
STR "Generating Externals..."
PEI $42
JSL L0456A6
BCC L023B2C
RTS
L023B2C CMP #$0000
BEQ L023B81
STA L02338F
STZ L02338F+2
PHY
PHX
JSR L023EF2
STX L02338B
STY L02338B+2
LDX L02331D
LDA L0230B3
BNE L023B4C
INX
INX
L023B4C LDA #$582E ; .X
STA L0232E9+$32,X
LDA #$532E
STA L02331D,X
STX L02331D
INC L0230B3
JSR L022E10 ; create file
BCS L023B7A
JSL GSOS
DW $2013 ; Write
ADRL L0233B7
JSL GSOS
DW $2013 ; Write
ADRL L023387
JSR L022DC5
L023B7A _DisposeHandle
L023B81 RTS
L023B82 STZ L023CC2
LDA [$F8]
AND #$00FF
CMP #$00AB
BNE L023B9E
INC $F8
JSR L021564
CMP #$0080
BCS L023BEC
STA L023CC2
BRA L023BB4
L023B9E CMP #$00AD
BNE L023BB9
INC $F8
JSR L021564
CMP #$0081
BCS L023BEC
EOR #$FFFF
INC
STA L023CC2
L023BB4 JSR L02153D
BCS L023BF2
L023BB9 JSR L021339
BCS L023BF2
STA L023CBA
CPY $42
BNE L023BEC
JSR L02153D
BCS L023BF2
JSR L021564
STA L023CC0
LDA [$F8]
AND #$00FF
BNE L023BF4
LDA #$FFFF
STA L023CB8
PEI $42
LDA L023CBA
PHA
JSL L042A5C
STY L023CB2
BRA L023C07
L023BEC LDA #$0003
JSR L020AB8
L023BF2 CLC
RTS
L023BF4 JSR L02153D
BCS L023BF2
STZ L023CB8
JSR L021367
BCS L023BF2
STA L023CB0
STY L023CB2
L023C07 LDA L023CBA
JSL L041993
STA L023CBC
CMP #$0004
BCC L023C19
LDA #$0003
L023C19 STA L023CBE
LDX #$0000
LDY L023CBA
SEP #$20
L023C24 LDA [$3A],Y
STA L023CB4,X
INY
INX
CPX L023CBE
BNE L023C24
L023C30 STZ L023CB4,X
INX
CPX #$0004
BNE L023C30
REP #$20
BIT L023CB8
BPL L023C52
LDA L023CBE
CMP #$0002
BCC L023C9A
BNE L023C65
LDA L023CB2
STA L023CB6
BRA L023C65
L023C52 SEP #$20
LDX L023CBE
L023C57 CPX #$0003
BEQ L023C65
LDA L023CB0,X
STA L023CB4,X
INX
BRA L023C57
L023C65 REP #$30
PEI $42
LDA L023CBA
PHA
LDA L023CBE
PHA
SEP #$20
LDA L023CC2
PHA
LDA #$00
PHA
REP #$20
LDA L023CB6
PHA
L023C80 LDA L023CB4
SEC
SBC L023CC2
PHA
JSL L042ABB
PHY
PHA
BCS L023C96
JSL L043774
BRA L023C9A
L023C96 JSL L043772
L023C9A CLC
LDA L023CBA
ADC L023CBC
STA L023CBA
BCS L023CAE
DEC L023CC0
BEQ L023CAE
BRL L023C07
L023CAE CLC
RTS
L023CB0 DB $00
DB $00
L023CB2 DB $00
DB $00
L023CB4 DB $00
DB $00
L023CB6 DB $00
DB $00
L023CB8 DB $00
DB $00
L023CBA DB $00
DB $00
L023CBC DB $00
DB $00
L023CBE DB $00
DB $00
L023CC0 DB $00
DB $00
L023CC2 DB $00
DB $00
L023CC4 SEP #$40
HEX 50
L023CC7 CLV
JSR L021339
BCS L023D1A
TAY
LDX #$0001
SEP #$20
INY
PEI $42
PHY
PHX
PHX
PHX
PHX
LDA [$3A],Y
XBA
INY
INY
PEI $42
PHY
PHX
LDA [$3A],Y
REP #$20
BVS L023CEB
XBA
L023CEB TAX
LDA #$00F8
BVS L023CF4
LDA #$0000
L023CF4 STA $0B,S
EOR #$00F8
PHA
PHX
PEI $42
PHY
JSL L042A5C
PLA
PHY
PHA
JSL L042ABB
PHA
PHA
STA $0D,S
TYA
STA $03,S
STA $0F,S
JSL L043774
JSL L043774
L023D1A CLC
RTS
L023D1C BIT L0283C2
BPL L023D4A
PEI $38
PEI $36
_DisposeHandle
STZ $38
STZ $36
BIT L0283CA
BPL L023D4A
LDA L0283CE
PHA
LDA L0283CC
PHA
_DisposeHandle
STZ L0283CE
STZ L0283CC
L023D4A STZ $3E
SEC
ROR $5C
STZ $3A
STZ $32
LDA #$FE00
STA $3B
STA $33
LDA #$0001
STA $42
INC
STA $40
STZ L0283CA
LDA #$FFFF
STA L0283C2
STA $F6
STZ $54
LDA #$0004
STA $56
BRL L021BC7
L023D77 BIT $F6
BMI L023D7D
L023D7B CLC
RTS
L023D7D JSL L044C3E
BCS L023D7B
LDY #$000C
LDA [$CA],Y
ADC $CA
STA $CA
BCC L023D90
INC $CC
L023D90 LDY #$0000
L023D93 LDA [$CA],Y
BEQ L023D7B
CMP #$C100
BCC L023DC3
PHY
PEA $0002
PHA
INY
INY
LDA [$CA],Y
AND #$00FF
PHA
PEA $0000
INY
PEI $CC
PEI $CA
TYA
CLC
ADC $01,S
STA $01,S
BCC L023DBE
LDA $03,S
INC
STA $03,S
L023DBE JSL L042748
PLY
L023DC3 INY
INY
INY
LDA [$CA],Y
AND #$00FF
PHY
SEC
ADC $01,S
TAY
PLA
BRA L023D93
L023DD3 JSR L021339
CPY $42
BNE L023DFD
STA L023EAC
TAY
LDA [$3A],Y
STA L023EAE
CMP #$0101
BCS L023E03
INY
INY
LDA [$3A],Y
BNE L023E03
JSR L02153D
BCS L023E03
JSR L021564
BCS L023E03
STA L023EB0
BRA L023E21
L023DFD LDA #$0003
JSR L020AB8
L023E03 CLC
RTS
L023E05 PEI $42
LDA L023EAC
PHA
PEA $0004
PEA $0004
JSL L043069
RTS
L023E16 CLC
LDA #$0004
ADC L023EAC
STA L023EAC
RTS
L023E21 JSR L023E05
L023E24 JSR L023E16
DEC L023EAE
BEQ L023E03
LDA L023EB0
CLC
ADC #$0100
STA L023EB0
JSR L023E05
LDY L023EAC
LDA [$3A],Y
TAX
INY
INY
LDA [$3A],Y
PHA
PHX
ORA $01,S
BNE L023E4D
PLA
PLA
BRA L023E24
L023E4D JSL L042ABB
STY L023EB4
INC
STA L023EB2
PEI $42
LDX L023EAC
PHX
PEA $0004
PEA $FF00
PHY
PHA
JSL L043774
LDA L023EB0
PHA
STZ L023EB6
PEA ^L023EB6
PEA L023EB6
JSL L044C72
LDA L023EB7
AND #$00FF
CMP #$00DF
BNE L023E24
SEP #$20
LDA L023EB6
DEC
STA L023EB7
REP #$30
LDA L023EB4
PHA
LDA L023EB2
PHA
PEA $0000
PEA $0000
PEA ^L023EB7
PEA L023EB7
JSL L042748
BRL L023E24
L023EAC DB $00
DB $00
L023EAE DB $00
DB $00
L023EB0 DB $00
DB $00
L023EB2 DB $00
DB $00
L023EB4 DB $00
DB $00
L023EB6 DB $00
L023EB7 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
L023ED6 PHA
PHA
PHY
PHX
PEI $FC
PHA
PHA
PHA
_NewHandle
PLX
PLY
BCC L023EF1
LDA #$0000
JSR L020AB8
SEC
L023EF1 RTS
L023EF2 PHB
PHY
PLB
LDA |$0002,X
TAY
LDA |$0000,X
TAX
PLB
PLB
RTS
L023F00 JSR L020D0C
JSL L044EAB
JSL L042328
JSR L020D34
CLC
RTS
L023F10 EOR #$FFFF ; 32 TRON
L023F13 JSL L04507E ; 33 TROFF
CLC
RTS
* AV 202010 - Two new commands
doCHON stz fgOUTPUT ; we want multiple files (default)
clc
rts
doCHOFF lda #-1 ; we want one file only
sta fgOUTPUT
clc
rts
fgOUTPUT ds 2
*--- end of AV 202010
L023F19 LDA [$F8]
AND #$00FF
BEQ L023F72
JSR L023F44
BCC L023F72
JSR L021339
BCS L023F42
STA L023F68
STA L023F6A
STZ L023F6C
CPY $42
BNE L023F3C
JSR L023F44
BRA L023F72
L023F3C LDA #$0003
JSR L020AB8
L023F42 CLC
RTS
L023F44 LDA [$F8]
AND #$00FF
BEQ L023F61
CMP #$00AF
BNE L023F61
INC $F8
JSR L021309
SEC
SBC #$00B0
CMP #$0003
BCC L023F63
JSR L023F3C
L023F61 SEC
RTS
L023F63 STA L023F6C
CLC
RTS
L023F68 DB $00
DB $00
L023F6A DB $00
DB $00
L023F6C DB $00
DB $00
L023F6E DB $00
DB $00
L023F70 DB $00
DB $00
L023F72 LDA L023F6A
JSL L0416F3
STA L023F6A
STZ L0240B1
L023F7F LDA L023F6A
PHA
JSL L0410BB
STA L023F6E
PLA
JSL L041993
STA L023F70
BIT L023F6E
BMI L023FA6
LDA L023F6C
ASL
TAX
LDY L023F6A
JSR (L023FD7,X)
BCC L023FA6
CLC
RTS
L023FA6 LDA L023F6A
CLC
ADC L023F70
BCS L023FBA
STA L023F6A
BIT $5C
BMI L023F7F
CMP $3E
BCC L023F7F
L023FBA LDA L023F68
STA L023F6A
LDA L023F6C
INC
STA L023F6C
CMP #$0003
BCC L023F7F
STZ L023F6C
LDA #$0000
JSR L023FDD
CLC
RTS
L023FD7 DA L02408D
DA L0240B3
DA L02411E
L023FDD PHA
JSR L020CED
PLA
ASL
TAX
LDA L02401C,X
STA L023FFF
LDY #$0017
LDX #$0000
JSL L0300E2
JSL L0302E1
STR "> "
JSL L030314
L023FFF ADR L023FFF
JSL L03034A
PHA
JSR L020CED
PLA
AND #$00FF
CMP #$008D
SEC
BEQ L02401B
CMP #$009B
SEC
BEQ L02401B
CLC
L02401B RTS
L02401C DA L024026
DA L02403B
DA L024042
DA L024063
DA L024079
L024026 STR "No more bugs found. "
L02403B STR "Break "
L024042 STR "Branch on middle of instruction "
L024063 STR "Branch on a constant "
L024079 STR "Never taken branch "
L02408D LDA [$3A],Y
AND #$00FF
BEQ L024099
STZ L0240B1
CLC
RTS
L024099 LDA L0240B1
BEQ L0240A0
CLC
RTS
L0240A0 LDA #$0001
STA L0240B1
L0240A6 PHA
LDA L023F6A
JSR L021DBB
PLA
BRL L023FDD
L0240B1 DB $00
DB $00
L0240B3 LDA [$3A],Y
AND #$00FF
CMP #$004C
BEQ L0240D1
CMP #$0020
BEQ L0240D1
CMP #$0082
BEQ L024100
AND #$001F
CMP #$0010
BEQ L02410D
L0240CF CLC
RTS
L0240D1 PHY
PEI $42
PHY
JSL L042A5C
PLA
PHY
TAY
INY
LDA [$3A],Y
PHA
JSL L042ABB
BCS L0240CF
L0240E6 JSL L0410BB
BCS L0240CF
BIT #$8000
BNE L0240FB
BIT #$0080
BNE L0240CF
LDA #$0002
BRA L0240A6
L0240FB LDA #$0003
BRA L0240A6
L024100 INY
LDA [$3A],Y
L024103 CLC
ADC L023F6A
CLC
ADC #$0003
BRA L0240E6
L02410D INY
LDA [$3A],Y
AND #$00FF
BIT #$0080
BEQ L02411B
ORA #$FF00
L02411B DEC
BRA L024103
L02411E LDA [$3A],Y
CMP #$40E2
BEQ L024136
CMP #$B018
BEQ L02413E
CMP #$9038
BEQ L02413E
CMP #$70B8
BEQ L02413E
L024134 CLC
RTS
L024136 INY
LDA [$3A],Y
CMP #$5040
BNE L024134
L02413E LDA #$0004
BRL L0240A6
L024144 PHP
REP #$30
LDY #$0000
L02414A SEP #$20
PHY
LDA [$3A],Y
CMP #$82
BNE L02417E
INY
REP #$20
LDA [$3A],Y
INY
INY
PHY
CLC
ADC $01,S
STA L0241B3
PLY
LDA [$3A],Y
AND #$FFF0
CMP #$7770
BNE L02417E
INY
INY
LDA [$3A],Y
AND #$00FF
INC
PHY
CLC
ADC $01,S
PLY
CMP L0241B3
BEQ L024187
L02417E PLY
INY
CPY $3E
BNE L02414A
PLP
CLC
RTS
L024187 PLY
INY
INY
INY
PHY
PEI $42
PHY
PEA $0002
PEA $0001
JSL L043069
PLY
INY
INY
PEI $42
PHY
LDA [$3A],Y
AND #$00FF
INC
PHA
PEA $000F
JSL L043069
LDY L0241B3
BRL L02414A
L0241B3 DW $0000
L0241B5 JSR L020D34
JSL L040FF1
JSL L041D74
JSR L02A229
LDA $37
BEQ L0241D6
PEI $38
PEI $36
_DisposeHandle
STZ $36
STZ $38
L0241D6 LDA L0283CD
BEQ L0241F0
LDA L0283CE
PHA
LDA L0283CC
PHA
_DisposeHandle
STZ L0283CC
STZ L0283CE
L0241F0 STZ L0283C2
STZ $40
STZ $42
STZ $5C
STZ $F6
STZ L0283C8
RTS
L0241FF JSR L021339
BCC L024206
CLV
RTS
L024206 STA L02426D
LDA #$0001
STA L02426F
JSR L021309
BCS L024226
CMP #$00AC
BNE L02425F
JSR L021564
BCS L02426A
STA L02426F
CMP #$0000
BEQ L02425D
L024226 LDY L02426D
L024229 LDA [$3A],Y
TAX
CLC
ADC L02426D
BCS L024264
BIT $5C
BMI L02423A
CMP $3E
BCS L024264
L02423A PHX
PHY
PEI $42
PHY
PEA $0002
PEA $0001
JSL L043069
PLY
INY
INY
PLA
JSR L0242DC
BIT $5C
BMI L024258
CPY $3E
BCS L02425D
L024258 DEC L02426F
BNE L024229
L02425D CLC
RTS
L02425F LDA #$0001
BRA L024267
L024264 LDA #$0007
L024267 JSR L020AB8
L02426A SEC
CLV
RTS
L02426D DB $00
DB $00
L02426F DB $00
DB $00
L024271 JSR L021339
BCC L024278
L024276 CLV
RTS
L024278 STA L0242D8
LDA #$0001
STA L0242DA
JSR L021309
BCS L024298
CMP #$00AC
BNE L0242CF
JSR L021564
BCS L024276
STA L0242DA
CMP #$0000
BEQ L0242CD
L024298 LDY L0242D8
L02429B LDX #$0000
L02429E INX
LDA [$3A],Y
AND #$00FF
BEQ L0242B1
INY
BEQ L0242B1
BIT $5C
BMI L02429E
CPY $3E
BCC L02429E
L0242B1 TXA
LDY L0242D8
JSR L0242DC
STY L0242D8
CPY #$0000
BEQ L0242CD
BIT $5C
BMI L0242C8
CPY $3E
BCS L0242CD
L0242C8 DEC L0242DA
BNE L02429B
L0242CD CLC
RTS
L0242CF LDA #$0001
JSR L020AB8
SEC
BRA L024276
L0242D8 DB $00
DB $00
L0242DA DB $00
DB $00
L0242DC STY L02438A
CLC
ADC L02438A
STA L02438C
L0242E6 JSR L0242ED
BNE L0242E6
CLC
RTS
L0242ED SEP #$20
STY L02438A
LDX #$0001
LDA [$3A],Y
AND #$7F
CMP #$20
BCS L02432C
L0242FD LDA [$3A],Y
JSR L024374
BCS L02434D
INX
CPX #$0028
BCS L02434D
AND #$7F
CMP #$0D
BEQ L02431E
CMP #$0A
BEQ L02431E
LDA [$3A],Y
AND #$7F
CMP #$20
BCC L0242FD
BRA L02432C
L02431E LDA [$3A],Y
AND #$7F
CMP #$0D
BEQ L0242FD
CMP #$0A
BEQ L0242FD
BRA L02434D
L02432C LDA [$3A],Y
AND #$80
STA L024373
L024333 JSR L024374
BCS L02434D
INX
LDA [$3A],Y
AND #$7F
CMP #$20
BCC L0242FD
CPX #$0028
BCS L02434D
LDA [$3A],Y
EOR L024373
BPL L024333
L02434D REP #$20
PHY
PEI $42
LDA L02438A
PHA
PHX
PEA $0009
JSL L043069
PLY
STY L02438A
DEY
JSR L024374
BCC L02436D
LDA #$0000
BRA L024372
L02436D LDA [$3A],Y
AND #$00FF
L024372 RTS
L024373 DB $00
L024374 INY
BEQ L024388
PHY
LDY L02438C
BEQ L024385
PLY
CPY L02438C
BCS L024388
CLC
RTS
L024385 PLY
CLC
RTS
L024388 SEC
RTS
L02438A DB $00
DB $00
L02438C DB $00
DB $00
L02438E LDX #$0000
L024391 LDA L0243C9+1,X
STA L0243AF+1
LDA L0243C9,X
STA L0243AF
BEQ L0243C0
PHX
JSL L0300D1
PLX
PHX
BNE L0243AB
JSR L02728C
L0243AB JSL L030719
L0243AF ADR $000000
JSR L025A40
PLX
BCS L0243C0
TXA
CLC
ADC #$0004
TAX
BRA L024391
L0243C0 JSL L0300D1
JSR L021E04
CLC
RTS
L0243C9 ADRL L0243E9
ADRL L0245B9
ADRL L02483E
ADRL L024B44
ADRL L024DC1
ADRL L024FE3
ADRL L025254
ADRL $00000000
L0243E9 DW L0245B9-L0243EB
L0243EB ASC 8D
ASC " Phoenix wings: Ferox, Bandit II, Nibble, Perfect Bug."8D8D8D8D
ASC "Single-key ops:"8D8D
ASC " "
ASC 'J'
ASC " one line down ^* access desktop "
ASC " ^+ stack position"8D
ASC " "
ASC 'K'
ASC " one line up "
ASC " ^- unstack position"8D
ASC " ^S lower/upper"
ASC "case opcodes"8D
ASC " "
ASC 'AJ'
ASC " one page down"8D
ASC " "
ASC 'AK'
ASC " one page up ^H hex dump mode"8D8D
ASC " ^"
ASC 'J'
ASC " line history down ^R hilite relocs i"
ASC "n hex"8D
ASC " ^"
ASC 'K'
ASC " line history up ^C hilite constant"
ASC "s in hex"8D
L0245B9 DW L02483E-L0245BB
L0245BB ASC 8D
ASC "Disk commands:"8D8D
ASC " PFX [Path] ................ Set/choose prefix 0"8D
ASC " CAT [Path] ................ Catalog a directory or prefix 0"8D
ASC " MD DirName ............... Create directory"8D8D
ASC " LOAD FileName .............. Load the file to disassemble"8D
ASC " RLOAD Filename[,rType,ID] ... Load and disassemble a resource"8D
ASC 8D" SEG [SegNum] .............. Load specified segment"8D
ASC 8D" SLOAD [FileName] ............ Load a scripts file"8D
ASC " SSAVE [FileName] ............ Save script file"8D
ASC 8D" TLOAD [FileName] ............ Load a template file"8D
ASC " TSAVE [FileName] ............ Save a template file"8D
ASC 8D" QUIT or BYE .................. Quit TFBD back to launcher"
L02483E DW L024B44-L024840
L024840 ASC 8D
ASC "Constants (followed by address [,num]):"8D8D
ASC " DB/DW/RECT ................... Byte/Word/Rect"8D
ASC " DDB .......................... Double byte"8D
ASC " DA/ADR/ADRL .................. 2/3/4 bytes address"8D
ASC " DCI .......................... Hi-bit ended string"8D
ASC " STR .......................... Pascal string"8D
ASC " STRL ......................... C1 (GS/OS) string"8D
ASC " FLO .......................... 80-bits IEEE number"8D
ASC " CHK .......................... CheckSum byte"8D
ASC " OFF .......................... Offset (xxxx-*)"8D
ASC " C1 ........................... Word-lengthed text (DW + ASC)"8D
ASC " CS ........................... CString"8D
ASC 8D" ASC adr,len | adr1.adr2 ...... ASCII zone"8D
ASC " REV (Idem) .................. Reversed ASCII"8D
ASC " HEX (Idem) .................. Hexa datas"8D
ASC " DS (Idem) .................. Reserved space"8D
L024B44 DW L024DC1-L024B46
L024B46 ASC 8D
ASC "Labels:"8D8D
ASC " LAB adr,Label ................ Define label"8D
ASC " LAB adr ...................... Delete label at adr"8D
ASC " LAB Label .................... Delete label "A2"Label"A2""8D
ASC " ENT adr,Label ................ Define entry label"8D
ASC " EQU adr,Label ................ Define Equate label"8D
ASC " TRON / TROFF ................. 16/24-bits labels for GENLAB"8D
ASC " CHON / CHOFF ................. Multiple or one file for SRC"8D
ASC " GENLAB ....................... Generate labels"8D
ASC 8D"Directives:"8D8D
ASC " MX adr,%xx .................. Registers size"8D
ASC " ORG adr,orgadr ............... Re-org code"8D
ASC " ORG adr ...................... Reset org"8D
ASC " DBR adr,xx ................... Assume Data Bank Reg"8D
ASC " DBR adr ...................... DBR = Program bank"
L024DC1 DW L024FE3-L024DC3
L024DC3 ASC 8D
ASC "Relocations:"8D8D
ASC " REL adr [,size,shift,refadr,disp] .. Set reloc record"8D
ASC " MREL [+/-disp,] adr,n [,refadr] ..... Multiple REL"8D
ASC " PHL adr ............................ 2xPEA relocation"8D
ASC " PHL2 adr1,adr2 ...................... HiWord,LoWord"8D
ASC " RPHL adr ............................ PHL with LoWord first"8D
ASC " REL8 ................................ 2x8 bits relocation"8D
ASC " RREL8 ............................... Idem, reversed"8D
ASC 8D8D"Comments:"8D8D
ASC " COM adr,text ........................ Set comment text at adr"8D
ASC " COM adr ............................. Remove comment"
L024FE3 DW L025254-L024FE5
L024FE5 ASC 8D
ASC "Miscellaneous:"8D8D
ASC " LIST adr ..................... List from adr"8D
ASC " TABS x,y,z ................... Set tabs"8D8D
ASC " INFOS ........................ Infos about segment"8D8D
ASC " \ ScrName [adr] .............. Execute script"8D
ASC " \ * [adr] .................... Choose & exec script"8D
ASC " SEDIT ........................ Edit script file"8D8D
ASC " SRC [range] Name ............. Generate Name.S source file"8D8D
ASC " ROM .......................... Disassemble ROMs"8D
ASC " STOOL adr,toolnum ............ Disasm toolset header with routines names"8D
ASC " MLABS ........................ Generate monitor labels (when in ROM)"8D8D
ASC " [Const list] Name ............ Define structure"8D
L025254 DW L025543-L025256
L025256 ASC 8D
ASC "Miscellaneous:"8D8D
ASC " MATCH [C][L][D] .............. Align or Purge Consts, Labs & Directives"8D
ASC " REM [C][L][D][,Range] ...... Remove Consts, Labs & Directives"8D
ASC " TCLR ......................... Clear all templates"8D
ASC " TC ........................... Templates correction"8D8D
ASC " DOS .......................... Search for OS calls & disasm parms tables"8D
ASC " BUG [adr][/n] ................ Search for bugs in disassembly"8D8D
ASC " DSK .......................... Access desktop"8D
ASC " HIST ......................... Commands history"8D8D
ASC " -FileName .................... Call an expansion file"8D
ASC " CFG [/S or /D] Name .......... Save, Delete or load configuration"8D8D
ASC " FIND [range] [objects] ....... Locate a string in object code"8D
ASC " SCAN [range] [kinds] ......... Scan for a kind of data"
L025543 JSR L025566
JSL L030719
ADR L0255A7
JSR L025A40
JSR L025566
JSL L030719
ADR L025822
JSR L025A40
JSR L020D34
JSR L021E04
CLC
CLV
RTS
L025566 JSR L020D34
JSL L030719
ADR L025571
RTS
L025571 dw L0255A7-L025573
L025573 asc 8D" - Shareware info -"8D8D
L0255A7 dw L025822-L0255A9
L0255A9 asc 8D"TFB-Disasm is a usefull and a powerfull utility. But it's also a very long and"
asc 8D"hard-to-think program. It's been thousands hours of programming and testing. By."
asc 8D"the way, it should cost thousands of dollars. But who -except governments- wouldpay such a fee for a soft ? You ?"
asc 8D8D8D" TFB-Disasm is a Shareware. But an unusual shareware."
asc 8D8D" There's no evaluation period. I don't ask you to delete or to stop using TFBD"
asc 8D"within 15 or 30 days. There's no hidden option that some voodoo magic, using a"
asc 8D"shareware fee, will make accessible, and the version I send is up-to-date."
asc 8D8D8D" So, what am I asking you ?"
L025822 dw L025A40-L025824
L025824 asc " Whatever you want."
asc 8D8D" You feel it's worth sending any fee ? - Do it."
asc 8D" How much ? $1 ? $5 ? $10 ? $30 ? - As you see."
asc 8D" And why not your last production ? - I may need it."
asc 8D8D8D" Just remember that everything I can receive is only used for the"
asc 8D" expansion of my Apple II developpement configuration - for YOU."
asc 8D8D8D8D" Send anything to: Philippe Savitch"
asc 8D" 19, rue de la Duee"
asc 8D" 75020 Paris - France"
L025A40 JSR L020CED
LDY #$0017
LDX #$0000
JSL L0300E2
JSL L0302E1
STR "> Press any key "
JSL L03034A
PHA
JSR L020CED
PLA
AND #$00FF
CMP #$009B
BEQ L025A74
CLC
L025A74 RTS
L025A75 PHP
SEP #$20
REP #$10
LDY #$0000
L025A7D LDX #$0000
L025A80 LDA [$3A],Y
CMP L025AF7,X
BEQ L025A8A
BRL L025AB6
L025A8A INY
INX
CPX #$0004
BCC L025A80
PHY
PEI $42
PHY
PEA $0002
PEA $0001
JSL L043069
PLY
INY
INY
PHY
PEI $42
PHY
PEA $0004
PEA $0004
JSL L043069
PLY
INY
INY
INY
BRA L025AE7
L025AB6 LDX #$0000
L025AB9 LDA [$3A],Y
CMP L025AFB,X
BNE L025AE7
INY
INX
CPX #$0003
BCC L025AB9
PHY
PEI $42
PHY
PEA $0001
PEA $0000
JSL L043069
PLY
INY
PHY
PEI $42
PHY
PEA $0002
PEA $0003
JSL L043069
PLY
INY
L025AE7 INY
BEQ L025AF5
BIT $5C
BMI L025A7D
CPY $3E
BCS L025AF5
BRL L025A7D
L025AF5 PLP
RTS
L025AF7 HEX 22A800E1
L025AFB HEX 2000BF
L025AFE SEP #$30
LDA [$F8]
BNE L025B15
LDX #$0E
STX L025B72
LDX #$06
STX L025B73
LDX #$10
STX L025B74
BRA L025B4B
L025B15 LDX #$00
L025B17 PHX
JSR L025B2F
PLX
BCS L025B2D
STA L025B72,X
INX
CPX #$03
BEQ L025B4B
PHX
JSR L02153D
PLX
BCC L025B17
L025B2D CLC
RTS
L025B2F PEI $FA
PEI $F8
LDX #$02
JSL L0306BD
REP #$10
PLX
STX $F8
PLX
STX $FA
SEP #$10
RTS
L025B44 LDA #$03
JSR L020AB8
CLC
RTS
L025B4B CLC
LDA #$16
ADC L025B72
ADC L025B73
CMP #$2F
BCS L025B44
ADC L025B74
CMP #$50
BCS L025B44
LDA #$16
ADC L025B72
STA $44
ADC L025B73
STA $45
ADC L025B74
STA $46
CLC
RTS
L025B72 DB $00
L025B73 DB $00
L025B74 DB $00
MX %00
L025B75 JSR L020D34
LDA L0207BD
BNE L025BBE
LDX #$0001
LDY #$0014
JSL L0300E2
JSL L0302E1
STR "Sorry, not enough memory for history buffer."
L025BB8 JSR L02A0C1
SEC
CLV
RTS
L025BBE JSL L0302E1
STR " Command-line history from latest:"8D8D
LDX L0207BC
LDY L0207BE
JSR L023EF2
STX $0A
STY $0C
LDX L0207C0
BNE L025C24
JSL L0302E1
STR " --- History buffer is empty ---"
BRA L025BB8
L025C24 STZ L025C72
CPX #$0013
BCC L025C2F
LDX #$0012
L025C2F PHX
LDA #$00A0
JSL L03022D
CLC
LDA L025C72
ADC $0A
STA L025C50
LDA #$0000
ADC $0C
SEP #$20
STA L025C52
REP #$20
JSL L030314
L025C50 DB $00
DB $00
L025C52 DB $00
PLX
CPX #$0001
BEQ L025C6C
PHX
JSL L0302C3
PLX
CLC
LDA L025C72
ADC #$0050
STA L025C72
DEX
BNE L025C2F
L025C6C JSR L02A0C1
SEC
CLV
RTS
L025C72 DB $00
DB $00
L025C74 PHP
REP #$30
LDA [$F8]
AND #$00FF
BEQ L025C89
JSR L021586
LDY #^L0215CD
LDA #L0215CD
BRA L025CAC
L025C89 LDAL L050143
BNE L025CA8
LDA L020184
BNE L025C9C
LDA #L025CE4
LDY #^L025CE4
BRA L025CAC
L025C9C LDX L020183
LDY L020185
JSR L023EF2
TXA
BRA L025CAC
L025CA8 LDA #$0000
TAY
L025CAC JSL L05054C
BCC L025CBF
CMP #$0000
BNE L025CBC
JSR L020AB8
BRA L025CBF
L025CBC JSR L020AF7
L025CBF PLP
CLC
RTS
L025CC2 PHP
REP #$30
LDA [$F8]
AND #$00FF
BEQ L025CD7
JSR L021586
LDY #^L0215CD
LDA #L0215CD
BRA L025CD8
L025CD7 TAY
L025CD8 JSL L0523AA
BCC L025CE1
JSR L020AF7
L025CE1 PLP
CLC
RTS
L025CE4 STRL '9:ScriptFile.S'
L025CF4 PHP
REP #$30
LDX #$0000
L025CFA LDA [$F8]
INC $F8
AND #$00FF
BEQ L025D11
AND #$007F
CMP #$0020
BEQ L025D11
STA L025D36,X
INX
BRA L025CFA
L025D11 SEP #$10
STX L025D35
REP #$10
PEA ^L025D35
PEA L025D35
CMP #$0000
BEQ L025D2A
JSR L021339
PHY
PHA
BRA L025D2E
L025D2A PEI $42
PEI $54
L025D2E JSL L05063A
PLP
CLC
RTS
L025D35 DB $00
L025D36 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
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L025D7E JSL L051902
CLC
RTS
L025D84 DB $00
DB $00
L025D86 DB $80
DB $C0
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DW $0011 ; number of tools
DW $0004 ; quickdraw II
DW $0301
DW $0005 ; desk manager
DW $0302
DW $0006 ; event manager
DW $0300
DW $000B ; int math tool set
DW $0200
DW $000E ; window manager
DW $0301
DW $000F ; menu manager
DW $0301
DW $0010 ; control manager
DW $0301
DW $0012 ; quickdraw II aux
DW $0301
DW $0013 ; print manager
DW $0300
DW $0014 ; lineedit tool set
DW $0301
DW $0015 ; dialog manager
DW $0301
DW $0016 ; scrap manager
DW $0300
DW $0017 ; std file tool set
DW $0301
DW $001B ; font manager
DW $0301
DW $001C ; list manager
DW $0301
DW $001E
DW $0100
DW $0022
DW $0101
L025DD4 JSR L02089E
JSR L020811
SEP #$20
LDAL $E0C025
REP #$20
AND #$0080
EOR #$0080
PHA
LDA L025D86
AND #$FF7F
ORA $01,S
STA L025D86
PHA
LDA $FE
PHA
PEA $0000
PEA ^L025D84
PEA L025D84
_StartUpTools
PLA
STA L025E5C
PLA
STA L025E5E
LDA #$0000
PHA
PHA
PHA
PHA
PHA
PEA $8000
_UseColorTable
_DisposeHandle
JSR L025E60
JSR L025FE3
PHP
PHA
PEA $FFFF
PEA $0000
_FlushEvents
PLA
PEA $0004
PEA ^L025D84
PEA L025D84
_ShutDownTools
JSR L0207C2
JSR L02084C
PLP
BVS L025E5A
CLC
RTS
L025E5A SEC
RTS
L025E5C DB $00
DB $00
L025E5E DB $00
DB $00
L025E60 PEA $0000
PEA $0000
PEA ^L025F57
PEA L025F57
_NewMenu
PEA $0000
_InsertMenu
PEA $0000
PEA $0000
PEA ^L025F15
PEA L025F15
_NewMenu
PEA $0000
_InsertMenu
PEA $0000
PEA $0000
PEA ^L025EE6
PEA L025EE6
_NewMenu
PEA $0000
_InsertMenu
PEA $0001
_FixAppleMenu
PEA $0000
_FixMenuBar
PLA
PEA $000A
_SetMTitleStart
_DrawMenuBar
_InitCursor
CLC
RTS
L025EE6 ASC '>>@\XH'01000D
ASC '==About TFB-Disasm'
ASC "I"
ASC '\BH'00010D
ASC '==-\N500D\0'0D
ASC '.'
L025F15 ASC '>> File \H'02000D
ASC '==Return\BV*RrH'01010D
ASC '==Quit\BV*QqH'02010D
ASC '==Close\D*WwH'03010D
ASC '.'
L025F57 ASC '>> Edit \H'03000D
ASC '==Undo\*ZzH'
ASC "z"000D
ASC '==-\N500D'0D
ASC '==Cut\*XxH'
ASC "{"000D
ASC '==Copy\*CcH'
ASC "|"000D
ASC '==Paste\*VvH'
ASC "}"000D
ASC '==Clear\H'
ASC "~"000D
ASC '.'
L025FB5 DW $0000 ; event code
ADRL $00000000 ; event message
ADRL $00000000 ; tick count
DW $0000 ; mouse location
DW $0000
DW $0000 ; modifiers
L025FC5 ADRL $00000000 ; task data
ADRL $001FFFFF ; task mask
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
MX %00
L025FE3 PHA
PHA
_FrontWindow
PLA
ORA $01,S
STA $01,S
PLA
BEQ L02600B
BIT L026063
BMI L02601D
PEA $0103
_EnableMItem
LDA #$FFFF
STA L026063
BRA L02601D
L02600B BIT L026063
BPL L02601D
PEA $0103
_DisableMItem
STZ L026063
L02601D PEA $0000
PEA $FFFF
PEA ^L025FB5
PEA L025FB5
_TaskMaster
PLA
BEQ L025FE3
CMP #$0011
BEQ L02603F
CMP #$0019
BNE L025FE3
BRA L026052
L02603F LDA L025FC5
CMP #$0104
BCS L026052
SEC
SBC #$00FA
ASL
TAX
JSR (L026065,X)
BCS L026062
L026052 PEA $0000
LDA L025FC5+2
PHA
_HiliteMenu
BRA L025FE3
L026062 RTS
L026063 DB $00
DB $00
L026065 DA L026062
DA L026062
DA L026062
DA L026062
DA L026062
DA L026062
DA L026079
DA L02607B
DA L02607E
DA L026095
L026079 CLC
RTS
L02607B SEC
CLV
RTS
L02607E PEA $0004
PEA ^L025D84
PEA L025D84
_ShutDownTools
LDA L020003
TCS
JMP L020A10
L026095 PHA
PHA
_FrontWindow
LDA $02,S
BEQ L0260AB
_CloseNDAbyWinPtr
CLC
RTS
L0260AB PLA
PLA
CLC
RTS
L0260AF JSR L021309
BCC L0260BE
JSR L026659
PHP
JSR L021E04
PLP
CLV
RTS
L0260BE CMP #$00AF
BEQ L0260C8
DEC $F8
BRL L0264AD
L0260C8 JSR L021309
CMP #$00C4
BNE L0260E6
JSR L02635B
BCC L0260D6
RTS
L0260D6 PEA ^L0263B1
PEA L0263B1
PEA $2002 ; Destroy
JSL GSOS2
BCS L026112
RTS
L0260E6 CMP #$00D3
BEQ L0260EE
BRL L026352
L0260EE JSR L021320
BCC L0260F8
JSR L026698
CLV
RTS
L0260F8 JSR L02635B
BCC L0260FE
RTS
L0260FE PEA ^L026395
PEA L026395
PEA $2006 ; GetFileInfo
JSL GSOS2
BCC L026126
CMP #$0046
BEQ L026115
L026112 BRL L026348
L026115 PEA ^L0263A3
PEA L0263A3
PEA $2001 ; Create
JSL GSOS2
BCS L026112
BRA L0260FE
L026126 LDA L02639D
CMP #$005A
BEQ L026131
L02612E BRL L02634D
L026131 LDA L02639F
CMP #$8040
BNE L02612E
JSR L02629F
BCS L026112
LDA L0263DD
STA L0263F1
STA L026417
STZ L026417+2
PEA ^L026411
PEA L026411
PEA $2018 ; SetEOF
JSL GSOS2
BCC L02615C
L026159 BRL L026345
L02615C PEA ^L026411
PEA L026411
PEA $2016 ; SetMark
JSL GSOS2
BCS L026159
LDA #$C6D4
STA L0263E5
LDA #$C4C2
STA L0263E5+2
LDA #$0100
STA L0263E9
LDA $F6
ASL
LDA #$0000
ROL
ORA $5E
STA L0263EB
LDA $44
STA L0263ED
LDA $46
AND #$00FF
STA L0263EF
LDA $54
STA L0263FB
LDA $56
STA L0263FD
LDA L02845D
STA L0263FF
LDA L02845F
STA L026401
LDA L028461
STA L026403
LDA L028463
STA L026405
LDA $42
STA L0263F9
PEA ^L026385
PEA L026385
PEA $200A ; GetPrefix
JSL GSOS2
BCS L026159
LDA L021658
INC
INC
STA L026435
CLC
ADC L0263F1
STA L0263F3
PEA ^L02642D
PEA L02642D
PEA $2013 ; Write
JSL GSOS2
BCC L0261ED
BRL L026345
L0261ED BIT $F6
BMI L0261F6
BIT L0283C2
BMI L026201
L0261F6 LDA L0263F3
STA L0263F5
STZ L0263F3
BRA L02621F
L026201 LDA L0282C2
INC
INC
STA L026445
CLC
ADC L0263F3
STA L0263F5
PEA ^L02643D
PEA L02643D
PEA $2013 ; Write
JSL GSOS2
BCS L026270
L02621F LDAL L041ACA
BNE L026230
STZ L0263F5
JSR L026302
STA L0263F7
BRA L02624F
L026230 LDAL L041ACE
INC
INC
STA L026455
CLC
ADC L0263F5
STA L0263F7
PEA ^L02644D
PEA L02644D
PEA $2013 ; Write
JSL GSOS2
BCS L026270
L02624F LDA $D8
BNE L026258
STZ L0263F7
BRA L026273
L026258 LDAL L050143
INC
INC
STA L026465
PEA ^L02645D
PEA L02645D
PEA $2013 ; Write
JSL GSOS2
BCC L026273
L026270 BRL L026345
L026273 JSR L026313
BCS L026270
LDA #$0000
JSR L0262F1
PEA ^L0263D5
PEA L0263D5
PEA $2013 ; Write
JSL GSOS2
BCS L026270
PEA ^L026407
PEA L026407
PEA $2018 ; SetEOF
JSL GSOS2
JSR L0262DF
CLC
RTS
L02629F PEA ^L0263B7
PEA L0263B7
PEA $2010 ; Open
JSL GSOS2
BCS L0262DE
LDA L0263B9
STA L0263C1
STA L0263C5
STA L0263D7
STA L026409
STA L026413
STA L02641D
STA L026425
STA L02642F
STA L02643F
STA L02644F
STA L02645F
STA L02646F
STA L02647F
STA L02648F
STA L02649F
L0262DE RTS
L0262DF PHP
PHA
PEA ^L0263BF
PEA L0263BF
PEA $2014 ; Close
JSL GSOS2
PLA
PLP
RTS
L0262F1 STA L026429
PEA ^L026423
PEA L026423
PEA $2016 ; SetMark
JSL GSOS2
RTS
L026302 PEA ^L02641B
PEA L02641B
PEA $2017 ; GetMark
JSL GSOS2
LDA L02641F
RTS
L026313 PEA ^L02641B
PEA L02641B
PEA $2017 ; GetMark
JSL GSOS2
PHA
LDA L02641F
LDA L02641F+2
STA L02640D+2
LDA L02641F
STA L02640D
PLA
RTS
L026332 PEA ^L0263C3
PEA L0263C3
PEA $2012 ; Read
JSL GSOS2
BCS L026344
LDA L0263D3
L026344 RTS
L026345 JSR L0262DF
L026348 JSR L020AF7
BRA L026358
L02634D LDA #$0015
BRA L026355
L026352 LDA #$0001
L026355 JSR L020AB8
L026358 SEC
CLV
RTS
L02635B JSR L021586
LDA L0215CD
BEQ L026352
LDA #$3A33
STA L021656+4
SEP #$20
LDX #$0002
LDY #$0000
L026371 LDA L0215CF,Y
INY
STA L021656+4,X
INX
CPY L0215CD
BCC L026371
STX L021658
REP #$20
CLC
RTS
L026385 DW $0002 ; Parms for GetPrefix
DW $0000 ; prefix num
ADRL L021656 ; prefix ptr
L02638D DW $0002 ; Parms for SetPrefix
DW $0000 ; prefix num
ADRL L021658 ; prefix ptr
L026395 DW $0004 ; Parms for GetFileInfo
ADRL L021658 ; file name
DW $0000 ; access
L02639D DW $0000 ; file type
L02639F ADRL $00000000 ; aux type
L0263A3 DW $0004 ; Parms for Create
ADRL L021658 ; file name
DW $00C3 ; access
DW $005A ; file type
ADRL $00008040 ; aux type
L0263B1 DW $0001 ; Parms for Destroy
ADRL L021658 ; file name
L0263B7 DW $0002 ; Parms for Open
L0263B9 DW $0000 ; ref num
ADRL L021658 ; path name
L0263BF DW $0001 ; Parms for Close
L0263C1 DW $0000 ; ref num
L0263C3 DW $0004 ; Parms for Read
L0263C5 DW $0000 ; ref num
ADRL L0263D3 ; buffer ptr
ADRL $00000002 ; request count
ADRL $00000000 ; transfer count
L0263D3 DW $0000
L0263D5 DW $0004 ; Parms for Read
L0263D7 DW $0000 ; ref num
ADRL L0263E5 ; buffer ptr
L0263DD ADRL $00000022 ; request count
ADRL $00000000 ; transfer count
L0263E5 ASC "TFBD"
L0263E9 DB $00
DB $01
L0263EB DB $00
DB $00
L0263ED DB $00
L0263EE DB $00
L0263EF DB $00
DB $00
L0263F1 DB $22
DB $00
L0263F3 DB $00
DB $00
L0263F5 DB $00
DB $00
L0263F7 DB $00
DB $00
L0263F9 DB $00
DB $00
L0263FB DB $00
DB $00
L0263FD DB $00
DB $00
L0263FF DB $00
DB $00
L026401 DB $00
DB $00
L026403 DB $00
DB $00
L026405 DB $00
DB $00
L026407 DW $0003 ; Parms for SetEOF
L026409 DW $0000 ; ref num
DW $0000 ; base
L02640D ADRL $00000000 ; displacement
L026411 DW $0003 ; Parms for SetMark
L026413 DW $0000 ; ref num
DW $0000 ; base
L026417 ADRL $00000000 ; displacement
L02641B DW $0002 ; Parms for GetMark
L02641D DW $0000 ; ref num
L02641F ADRL $00000000 ; position
L026423 DW $0003 ; Parms for SetMark
L026425 DW $0000 ; ref num
DW $0000 ; base
L026429 ADRL $00000000 ; displacement
L02642D DW $0004 ; Parms for Write
L02642F DW $0000 ; ref num
ADRL L021658 ; buffer ptr
L026435 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02643D DW $0004 ; Parms for Write
L02643F DW $0000 ; ref num
ADRL L0282C2 ; buffer ptr
L026445 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02644D DW $0004 ; Parms for Write
L02644F DW $0000 ; ref num
ADRL L041ACE ; buffer ptr
L026455 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02645D DW $0004 ; Parms for Write
L02645F DW $0000 ; ref num
ADRL L050143 ; buffer ptr
L026465 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02646D DW $0004 ; Parms for Read
L02646F DW $0000 ; ref num
ADRL L021656+4 ; buffer ptr
L026475 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02647D DW $0004 ; Parms for Read
L02647F DW $0000 ; ref num
ADRL L0282C4 ; buffer ptr
L026485 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02648D DW $0004 ; Parms for Read
L02648F DW $0000 ; ref num
ADRL L041AD0 ; buffer ptr
L026495 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02649D DW $0004 ; Parms for Read
L02649F DW $0000 ; ref num
ADRL L050145 ; buffer ptr
L0264A5 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L0264AD JSR L02635B
BCC L0264B3
RTS
L0264B3 PEA ^L026395
PEA L026395
PEA $2006 ; GetFileInfo
JSL GSOS2
L0264C0 BCC L0264C5
BRL L026348
L0264C5 LDA L02639D
CMP #$005A
BEQ L0264D0
L0264CD BRL L02634D
L0264D0 LDA L02639F
CMP #$8040
BNE L0264CD
JSR L02629F
BCS L0264C0
PEA ^L0263D5
PEA L0263D5
PEA $2012 ; Read
JSL GSOS2
BCC L0264EF
L0264EC BRL L026345
L0264EF LDA L0263F1
JSR L0262F1
JSR L026332
BCS L0264EC
STA L021658
STA L026475
PEA ^L02646D
PEA L02646D
PEA $2012 ; Read
JSL GSOS2
BCS L0264EC
PEA ^L02638D
PEA L02638D
PEA $2009 ; SetPrefix
JSL GSOS2
BCS L0264EC
LDA L0263F3
BEQ L026540
JSR L0262F1
JSR L026332
BCS L0264EC
STA L0282C2
STA L026485
PEA ^L02647D
PEA L02647D
PEA $2012 ; Read
JSL GSOS2
L02653E BCS L0264EC
L026540 LDA L0263F5
BEQ L026563
JSR L0262F1
JSR L026332
BCS L0264EC
STAL L041ACE
STA L026495
PEA ^L02648D
PEA L02648D
PEA $2012 ; Read
JSL GSOS2
BCS L02653E
L026563 LDA L0263F7
BEQ L026586
JSR L0262F1
JSR L026332
BCS L02653E
STAL L050143
STA L0264A5
PEA ^L02649D
PEA L02649D
PEA $2012 ; Read
JSL GSOS2
BCS L02653E
L026586 LDA L0263EB
PHA
AND #$FFFE
STA $5E
STZ $F6
PLA
AND #$0001
BEQ L02659C
LDA #$FFFF
STA $F6
L02659C LDA L0263ED
STA $44
LDA L0263EE
STA $45
LDA L0263FB
STA $54
LDA L0263FD
STA $56
LDA L0263FF
STA L02845D
LDA L026401
STA L02845F
LDA L026403
STA L028461
LDA L026405
STA L028463
JSR L0262DF
LDA L0263F3
BNE L0265F7
BIT $F6
BPL L0265DC
JSR L023D1C
JSR L021E04
BRA L02660B
L0265DC JSR L020D34
JSL L040FF1
JSL L041D74
JSR L02A229
STZ L0283C2
STZ $40
STZ $42
STZ $5C
STZ $F6
BRA L02663D
L0265F7 LDA L0263F9
BIT L02845D
BPL L026604
JSR L0290DD
BRA L026607
L026604 JSR L028C22
L026607 BCC L02660B
CLV
RTS
L02660B LDA L0263F5
BEQ L02663D
JSR L020D0C
PEA $0000
PEA $0000
JSL L041F95
BCC L026625
JSR L021E04
L026622 BRL L026348
L026625 REP #$20
LDA L0283CE
PHA
LDA L0283CC
PHA
JSL L0437E4
JSL L042328
JSR L020D34
JSR L021E04
L02663D LDA L0263F7
BEQ L02664C
LDA #$0000
TAY
JSL L05054C
BCS L02664E
L02664C CLC
RTS
L02664E CMP #$0000
BNE L026622
JSR L020AB8
SEC
CLV
RTS
L026659 SEC
LDA L020007
BEQ L026697
PHA
PHA
PEA $0001
PEA $0000
PEA $0001
_LoadResource
PLX
PLY
BCS L026697
JSR L023EF2
STX $10
STY $12
LDA [$10]
STA $5E
SEP #$30
LDY #$02
CLC
LDA #$16
ADC [$10],Y
INY
STA $44
ADC [$10],Y
INY
STA $45
ADC [$10],Y
STA $46
REP #$31
L026697 RTS
L026698 SEC
LDA L020007
BEQ L0266ED
PHA
PHA
PEA $0001
PEA $0000
PEA $0001
_LoadResource
PLX
PLY
BCS L0266ED
JSR L023EF2
STX $10
STY $12
LDA $5E
STA [$10]
SEP #$30
LDY #$02
LDA $44
SEC
SBC #$16
STA [$10],Y
INY
LDA $45
SBC $44
STA [$10],Y
INY
LDA $46
SBC $45
STA [$10],Y
REP #$30
PEA $0001
PEA $0001
PEA $0000
PEA $0001
_MarkResourceChange
L0266ED RTS
L0266EE DB $00
L0266EF DB $00
L0266F0 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
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
L026740 LDA L0215CD
BEQ L02678A
TAX
INC
INC
TAY
SEP #$20
LDA L0215CF
CMP #$3A
BNE L026754
DEY
DEY
L026754 STY L0266EE
L026757 LDA L0215CE,X
STA L0266EF,Y
DEY
DEX
BNE L026757
REP #$20
AND #$007F
CMP #$003A
BEQ L026771
LDA #$3A32
STA L0266F0
L026771 PEA ^L026797
PEA L026797
PEA $2006 ; GetFileInfo
JSL GSOS2
BCS L026795
LDA L02679F
CMP #$00BC
BNE L02678F
CLC
RTS
L02678A LDX #$0001
BRA L026792
L02678F LDX #$0012
L026792 LDA #$0000
L026795 SEC
RTS
L026797 DW $0004 ; Parms for GetFileInfo
ADRL L0266EE ; file name
DW $0000 ; access
L02679F DW $0000 ; file type
L0267A1 ADRL $00000000 ; aux type
L0267A5 DB $00
DB $00
L0267A7 DB $00
DB $00
L0267A9 DB $00
DB $00
L0267AB DB $00
DB $00
L0267AD DB $00
L0267AE DB $00
L0267AF PHK
PLB
LDA L0267A5
TCS
LDA L0267A7
TCD
L0267B9 LDA L0267AD
BEQ L0267D2
PHA
PHA
PEA $0000
PHA
_FindHandle
_DisposeHandle
L0267D2 LDA L0267A9
BEQ L0267F0
PHA
LDA L0267A9
PHA
PEA $0000
_UserShutDown
_DeleteID
STZ L0267A9
L0267F0 CLC
RTS
L0267F2 HEX 2C
L0267F3 BRA L026809
JSR L021586
JSR L026740
BCC L026809
CMP #$0000
BEQ L026805
BRL L026958
L026805 TXA
BRL L026979
L026809 LDA L0267A1
BEQ L026825
BPL L026818
BIT L0283CA
BMI L026818
BRL L026976
L026818 AND #$7FFF
BEQ L026825
CMP L028451
BEQ L026825
BRL L026976
L026825 STZ L0267AB
STZ L0267AD
PHA
PHA
PHA
PHA
PHA
PHA
PEI $FE
_GetNewID
PEA ^L0266EE
PEA L0266EE
PEA $0000
PEA $0001
_InitialLoad2
STA L026986
PLA
STA L0267A9
PLA
STA L026982
STA $00
PLA
STA L026984
STA $02
PLA
STA L0267AB
CLC
ADC $01,S
STA L0267AD
PLA
LDA L026986
BEQ L026873
BRL L02695D
L026873 LDA L0267AD
BNE L0268A9
PHA
PHA
PEA $0000
PEA $0800
LDA L0267A9
PHA
PEA $C015
PEA $0000
PEA $0000
_NewHandle
PLX
PLY
BCC L02689B
BRL L026962
L02689B JSR L023EF2
STX L0267AB
TXA
CLC
ADC #$0800
STA L0267AD
L0268A9 LDA [$00]
CMP #$C6D4
BEQ L0268B3
BRL L02696C
L0268B3 LDY #$0002
LDA [$00],Y
CMP #$C4C2
BEQ L0268C0
BRL L02696C
L0268C0 INY
INY
LDA [$00],Y
CMP #$0101
BCC L0268CC
BRL L026971
L0268CC INY
INY
INY
INY
LDA #$005C
STA [$00],Y
INY
LDA #L0269D2
STA [$00],Y
INY
LDA #>L0269D2
STA [$00],Y
TSC
STA L0267A5
TDC
STA L0267A7
LDA L0267AD
DEC
TCS
LDA $42
PHA
LDA $3A
PHA
LDA $3C
PHA
LDA $3E
PHA
LDA #$0000
BIT $5C
BPL L026902
INC
L026902 PHA
LDA L0267AB
TCD
PLA
STA $86
PLA
STA $84
PLA
STA $82
PLA
STA $80
PLA
STA $88
LDA L0283CC
STA $94
LDA L0283CE
STA $96
LDA L0267A9
STA $98
LDA L028451
STA $8A
LDA L028453
STA $8C
LDA L028455
STA $8E
LDA #L0283D0
STA $90
LDA #^L0283D0
STA $92
PHK
PEA L0267AE
SEP #$20
LDA L026984
PHA
REP #$21
LDA L026982
ADC #$000B
PHA
LDA L026983
PHA
PLB
PLB
RTL
L026958 JSR L020AF7
BRA L02697C
L02695D JSR L020CB4
BRA L02697C
L026962 LDA #$0000
BRA L026979
LDA #$0001
BRA L026979
L02696C LDA #$0012
BRA L026979
L026971 LDA #$0013
BRA L026979
L026976 LDA #$0014
L026979 JSR L020AB8
L02697C JSR L0267B9
SEC
CLV
RTS
L026982 DB $00
L026983 DB $00
L026984 DB $00
DB $00
L026986 DB $00
DB $00
L026988 DB $00
DB $00
L02698A DB $00
DB $00
L02698C DB $00
DB $00
L02698E DB $00
L02698F JSR L020CED
LDY #$0017
LDX #$0000
JSL L0300E2
JSL L0302E1
STR "> Abort expansion execution ? "
JSL L03034A
PHA
JSR L020CED
PLA
AND #$005F
CMP #$0059
BEQ L0269D1
CLC
L0269D1 RTS
L0269D2 PHB
PHP
REP #$30
PHK
PLB
LDA L0267A7
TCD
PLA
AND #$FFFE
STA L02698A
STX L026988
PLA
STA L02698C
SEP #$20
PLA
STA L02698E
LDAL $E0C025
BPL L026A0A
LDAL $E0C000
AND #$7F
CMP #$2E
BNE L026A0A
REP #$20
JSR L02698F
BCC L026A0A
BRL L0267AF
L026A0A REP #$20
LDA L026988
AND #$00FF
CMP #$0002
BCS L026A53
ASL
TAX
LDA L026A59,X
PHA
LDA L026988
XBA
AND #$00FF
RTS
L026A25 LDA #$0000
L026A28 STA L026A51
SEP #$20
LDA L02698E
PHA
REP #$20
LDA L02698C
PHA
LDA L026A51
BEQ L026A42
LDA #$0001
TSB L02698A
L026A42 LDA L02698A
PHA
LDA L0267AB
PHA
LDA L026A51
PLD
PLP
PLB
RTL
L026A51 DB $00
DB $00
L026A53 LDA #$0001
BRL L026A28
L026A59 DA L026A5D-1
DA L026B36-1
L026A5D CMP #$0003
BCS L026A53
ASL
TAX
JMP (L026A67,X)
L026A67 DA L026A6D
DA L026AAA
DA L026A70
L026A6D BRL L026A25
L026A70 PLA
STA L026A9B
SEP #$20
PLA
STA L026A9B+2
PLA
REP #$20
JSL L0300EE
PHX
PHY
LDX #$0000
LDY #$0017
JSL L0300E2
JSR L020CED
JSL L030314
ADR L0201F7
JSL L030314
L026A9B ADR $000000
JSL L03034A
PLY
PLX
JSL L0300E2
BRA L026A6D
L026AAA PLA
STA L026AD5
SEP #$20
PLA
STA L026AD5+2
PLA
REP #$20
JSL L0300EE
PHX
PHY
LDX #$0000
LDY #$0017
JSL L0300E2
JSR L020CED
JSL L0302E1
STR "> "
JSL L030314
L026AD5 ADR $000000
PLY
PLX
JSL L0300E2
BRA L026A6D
L026AE0 DB $06
DB $00
DB $11
DB $00
DB $05
DB $00
DB $07
DB $00
L026AE8 DA L026AF0
DA L026AFC
DA L026B1E
DA L026B28
L026AF0 DA L026B70
DA L026B81
DA L026B92
DA L026BA1
DA L026BAC
DA L026BB9
L026AFC DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
DA L026BC2
L026B1E DA L026C53
DA L026C53
DA $0000
DA $0000
DA L026C53
L026B28 DA L026C62
DA L026C78
DA L026C86
DA L026CA7
DA L026CAE
DA L026CC8
DA L026CDF
L026B36 PHA
AND #$001F
STA L026B6E
PLA
AND #$00E0
LSR
LSR
LSR
LSR
CMP #$0008
BCC L026B4D
BRL L026A53
L026B4D TAX
LDA L026B6E
CMP L026AE0,X
BCC L026B59
BRL L026A53
L026B59 ASL
PHA
LDA L026AE8,X
CLC
ADC $01,S
PLY
TAX
LDA |$0000,X
BNE L026B6B
BRL L026A53
L026B6B DEC
PHA
RTS
L026B6E DB $00
DB $00
L026B70 JSL L042ABB
PHY
PHA
BCS L026B7B
BRL L026A6D
L026B7B LDA #$0102
BRL L026A28
L026B81 JSL L042A5C
PHY
PHA
BCS L026B8C
BRL L026A6D
L026B8C LDA #$0101
BRL L026A28
L026B92 JSL L045089
BCS L026B9B
BRL L026A6D
L026B9B LDA #$0103
BRL L026A28
L026BA1 PEA $0001
JSL L0413FC
PHA
BRL L026A6D
L026BAC PLY
INY
LDA #$0080
JSL L04172C
PHY
BRL L026A6D
L026BB9 PLA
JSL L0416F3
PHA
BRL L026A6D
L026BC2 LDX L026B6E
PHX
CPX #$0006
BCC L026BED
LDA L026BDC,X
AND #$00FF
BEQ L026BD5
STA $03,S
L026BD5 JSL L043069
BRL L026A25
L026BDC DB $01
DB $02
DB $02
DB $02
DB $04
DB $03
DB $0A
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $01
L026BED TXA
ASL
TAX
LDA $03,S
JSR (L026BF9,X)
STA $03,S
BRA L026BD5
L026BF9 DA L026C05
DA L026C06
DA L026C06
DA L026C06
DA L026C0D
DA L026C15
L026C05 RTS
L026C06 BIT #$0001
BEQ L026C05
INC
RTS
L026C0D BIT #$0003
BEQ L026C05
INC
BRA L026C0D
L026C15 PHA
JSR L026C1F
PLA
BCC L026C05
INC
BRA L026C15
L026C1F STA L026C4F
STZ L026C51
LDX #$0008
L026C28 LDA #$0000
ASL L026C4F
ROL
ASL L026C4F
ROL
ADC L026C51
STA L026C51
DEX
BNE L026C28
LDA L026C51
BEQ L026C4A
CMP #$0003
BEQ L026C4A
BCS L026C1F
SEC
RTS
L026C4A LDA #$0000
CLC
RTS
L026C4F DB $00
DB $00
L026C51 DB $00
DB $00
L026C53 PLX
PLY
LDA L026B6E
PHA
PHY
PHX
JSL L042748
BRL L026A25
L026C62 LDA $01,S
ORA $03,S
BNE L026C71
PLA
PLA
JSL L042C85
BRL L026A25
L026C71 JSL L042BC0
BRL L026A25
L026C78 LDA $01,S
AND #$FEFE
STA $01,S
JSL L042D43
BRL L026A25
L026C86 LDA $07,S
XBA
AND #$FF00
STA $07,S
LDA $05,S
AND #$00FF
ORA $07,S
STA $07,S
LDA $03,S
STA $05,S
LDA $01,S
STA $03,S
PLA
JSL L043774
BRL L026A25
L026CA7 JSL L043772
BRL L026A25
L026CAE LDA $01,S
CMP #$8000
BNE L026CBE
PLA
PLA
JSL L042ED4
BRL L026A25
L026CBE STA $03,S
PLA
JSL L042E01
BRL L026A25
L026CC8 LDA $07,S
EOR $42
BEQ L026CD1
BRL L026B8C
L026CD1 LDA $05,S
TAY
LDA [$3A],Y
STA $03,S
JSL L043813
BRL L026A25
L026CDF LDA $01,S
ORA $03,S
BNE L026CF4
PLA
PLA
PEA $0001
PEA $FF66
JSL L0435FB
BRL L026A25
L026CF4 JSL L04386A
BRL L026A25
L026CFB DB $00
L026CFC DB $00
L026CFD DB $00
DB $00
L026CFF DB $00
L026D00 DB $00
L026D01 DB $00
DB $00
L026D03 DB $00
L026D04 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
L026D13 DB $00
DB $00
L026D15 DB $00
DB $00
L026D17 LDA L026CFC
BEQ L026D60
LDY L026CFD
LDX L026CFB
L026D22 STY L026D01
STX L026CFF
PHB
PHY
PLB
LDA |$0002,X
STA $12
LDA |$0000,X
STA $10
PLB
PLB
SEP #$30
LDY #$04
LDX #$00
L026D3D LDA [$10],Y
CMP L026D03,X
BNE L026D51
INY
INX
CPX L026D03
BEQ L026D3D
BCC L026D3D
REP #$30
CLC
RTS
L026D51 REP #$30
LDA [$10]
TAX
LDY #$0002
LDA [$10],Y
TAY
ORA [$10]
BNE L026D22
L026D60 SEC
RTS
L026D62 LDA L026CFC
BEQ L026DA1
LDA L026D00
BEQ L026DA1
LDY L026CFD
LDX L026CFB
CPX L026CFF
BNE L026DA3
CPY L026D01
BNE L026DA3
PHB
PHY
PLB
LDA |$0002,X
STA $12
LDA |$0000,X
STA $10
PLB
PLB
PHY
PHX
LDY #$0002
LDA [$10]
STA L026CFB
LDA [$10],Y
STA L026CFD
L026D9A _DisposeHandle
L026DA1 CLC
RTS
L026DA3 PHB
PHY
PLB
LDA |$0002,X
STA $12
LDA |$0000,X
STA $10
PLB
PLB
LDY #$0002
LDA [$10]
TAX
LDA [$10],Y
TAY
ORA [$10]
BEQ L026DA1
CPX L026CFF
BNE L026DA3
CPY L026D01
BNE L026DA3
PHY
PHX
PHB
PHY
PLB
LDA |$0002,X
STA $16
LDA |$0000,X
STA $14
PLB
PLB
LDY #$0002
LDA [$14]
STA [$10]
LDA [$14],Y
STA [$10],Y
BRA L026D9A
L026DE7 LDA $F8
STA L026E62
LDA #$0006
STA L026D13
STZ L026D15
L026DF5 JSR L021320
BCS L026E28
CMP #$00DD
BEQ L026E30
JSR L026E64
BCS L026E28
LDA #$0006
ADC L026D13
STA L026D13
INC L026D15
SEP #$30
LDY #$FF
L026E14 INY
LDA [$F8],Y
CMP #$A0
BEQ L026E1F
CMP #$DD
BNE L026E14
L026E1F REP #$31
TYA
ADC $F8
STA $F8
BRA L026DF5
L026E28 LDA #$0001
L026E2B JSR L020AB8
SEC
RTS
L026E30 INC $F8
LDX #$FFFF
L026E35 INX
JSR L021309
SEP #$20
STA L026D04,X
REP #$20
BCC L026E35
CPX #$0000
BEQ L026E28
LDA L026E62
STA $F8
TXA
SEP #$21
STA L026D03
REP #$20
ADC L026D13
STA L026D13
BCC L026E61
LDA #$0017
BRA L026E2B
L026E61 RTS
L026E62 DB $00
DB $00
L026E64 LDX #$0000
STX L026F5A
SEP #$20
L026E6C LDY #$0000
L026E6F JSR L026F4B
EORL L040326,X
AND #$7F
BNE L026E84
LDAL L040326,X
BPL L026E98
INX
INY
BNE L026E6F
L026E84 INX
LDAL L040326-1,X
BMI L026E84
INC L026F5A
LDAL L040326,X
BNE L026E6C
REP #$20
BRA L026EB4
L026E98 REP #$21
INY
TYA
ADC $F8
STA $F8
LDA #$0001
STA L026F5E
LDX L026F5A
LDA L026F60,X
AND #$00FF
STA L026F5C
BRA L026EFC
L026EB4 LDA #$8000
STA L026F5A
SEP #$20
LDX #$0000
L026EBF LDY #$0000
L026EC2 JSR L026F4B
EORL L026F71,X
AND #$7F
BNE L026ED7
LDAL L026F71,X
BPL L026EEB
INX
INY
BNE L026EC2
L026ED7 INX
LDAL L026F70,X
BMI L026ED7
INC L026F5A
LDAL L026F71,X
BNE L026EBF
REP #$20
L026EE9 SEC
RTS
L026EEB REP #$21
INY
TYA
ADC $F8
STA $F8
STZ L026F5C
LDA #$0001
STA L026F5E
L026EFC LDA [$F8]
AND #$00FF
BEQ L026F40
CMP #$00DD
BEQ L026F40
CMP #$00A0
BEQ L026F40
CMP #$00A8
BEQ L026F23
CMP #$00AA
BNE L026EE9
INC $F8
JSR L021564
BCS L026EE9
STA L026F5E
BRA L026EFC
L026F23 INC $F8
JSR L021564
BCS L026EE9
LDX L026F5C
BNE L026F32
STA L026F5C
L026F32 LDA [$F8]
AND #$00FF
CMP #$00A9
BNE L026EE9
INC $F8
BRA L026EFC
L026F40 LDA L026F5A
LDX L026F5E
LDY L026F5C
CLC
RTS
MX %10
L026F4B LDA [$F8],Y
CMP #$E1
BCC L026F59
CMP #$FB
BCS L026F59
AND #$DF
STA [$F8],Y
L026F59 RTS
L026F5A DB $00
DB $00
L026F5C DB $00
DB $00
L026F5E DB $00
DB $00
L026F60 DB $01
DB $02
DB $02
DB $02
DB $04
DB $03
DB $0A
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L026F70 DB $01
L026F71 ASC "SK"
ASC 'P'
ASC "C"
ASC 'S'
ASC "C"
DB $31
DB $00
MX %00
L026F79 JSR L026DE7
BCC L026F81
L026F7E BRL L02703E
L026F81 JSR L026D17
BCS L026F89
JSR L026D62
L026F89 LDX L026D13
LDY #$0000
LDA $08
JSR L023ED6
BCS L026F7E
PHY
PHX
LDA L026D03
PHA
STZ L026D03
JSR L026D17
PLA
STA L026D03
LDA L026CFC
BNE L026FB5
PLX
PLY
STY L026CFD
STX L026CFB
BRA L026FC2
L026FB5 LDY #$0002
LDA $01,S
STA [$10]
LDA $03,S
STA [$10],Y
PLX
PLY
L026FC2 STY L026D01
STX L026CFF
PHB
PHY
PLB
LDA |$0000,X
STA $10
LDA |$0002,X
STA $12
PLB
PLB
LDY #$0002
LDA #$0000
STA [$10]
STA [$10],Y
INY
INY
SEP #$30
LDX #$00
L026FE7 LDA L026D03,X
INX
STA [$10],Y
INY
CPX L026D03
BEQ L026FE7
BCC L026FE7
REP #$30
LDA L026D15
STA [$10],Y
INY
INY
L026FFE PHY
JSR L021320
PLY
CMP #$00DD
BEQ L02703D
PHY
PHY
PHY
JSR L026E64
STA $03,S
TYA
STA $05,S
PLY
PLA
STA [$10],Y
INY
INY
PLA
STA [$10],Y
INY
INY
TXA
STA [$10],Y
INY
INY
PHY
SEP #$30
LDY #$FF
L027028 INY
LDA [$F8],Y
CMP #$A0
BEQ L027033
CMP #$DD
BNE L027028
L027033 REP #$31
TYA
ADC $F8
STA $F8
PLY
BRA L026FFE
L02703D CLC
L02703E CLV
RTS
L027040 SEP #$30
LDY #$00
L027044 LDA [$F8],Y
BEQ L02705C
CMP #$A0
BEQ L027060
CMP #$E1
BCC L027056
CMP #$FB
BCS L027056
AND #$DF
L027056 STA L026D04,Y
INY
BRA L027044
L02705C REP #$30
SEC
RTS
L027060 STY L026D03
REP #$30
CPY #$0000
BEQ L02705C
TYA
ADC $F8
STA $F8
JSR L020F52
JSR L026D17
RTS
L027076 JSR L021339
BCC L02707D
L02707B SEC
RTS
L02707D STA L027121
LDA #$0001
STA L027123
JSR L021309
BCS L02709D
CMP #$00AC
BNE L02707B
JSR L021564
BCS L02707B
CMP #$0000
BEQ L02709D
STA L027123
L02709D LDX L026CFF
LDY L026D01
JSR L023EF2
STX $10
STY $12
LDY #$0004
LDA [$10],Y
AND #$00FF
CLC
ADC #$0005
ADC $10
STA $10
BCC L0270BE
INC $12
L0270BE LDA [$10]
STA L026D15
LDY #$0002
L0270C6 LDA [$10],Y
INY
INY
STA L027125
PHA
LDA [$10],Y
INY
INY
STA L027127
LDA [$10],Y
INY
INY
STA L027129
PLA
PHY
ASL
TAX
BCC L0270E7
JSR (L02711B,X)
BRA L0270EA
L0270E7 JSR (L0270F9,X)
L0270EA PLY
BCS L0270F7
DEC L026D15
BNE L0270C6
DEC L027123
BNE L0270BE
L0270F7 CLC
RTS
L0270F9 DA L027152
DA L027152
DA L027152
DA L027152
DA L027152
DA L027152
DA L027164
DA L027170
DA L02717A
DA L027170
DA L0271BB
DA L027170
DA L02718B
DA L02718B
DA L02718D
DA L0271A3
DA L027164
L02711B DA L0271EF
DA L027250
DA L027219
L027121 DB $00
DB $00
L027123 DB $00
DB $00
L027125 DB $00
DB $00
L027127 DB $00
DB $00
L027129 DB $00
DB $00
L02712B PEI $42
LDA L027121
PHA
LDA L027127
PHA
JSR L0271EF
BCC L02713F
PLA
PLA
PLA
L02713D SEC
RTS
L02713F LDA L027125
PHA
JSL L043069
LDA L027121
BEQ L02713D
CMP $3E
BEQ L02713D
CLC
RTS
L027152 CLC
LDA #$0000
L027156 ADC L027127
DEC L027129
BNE L027156
INC L027129
STA L027127
L027164 JSR L02712B
BCS L02716F
DEC L027129
BNE L027164
L02716E CLC
L02716F RTS
L027170 LDA L027127
BNE L027164
L027175 INC L027127
BRA L027164
L02717A LDA L027127
BNE L027164
LDY L027121
LDA [$3A],Y
AND #$00FF
BNE L02716E
BRA L027175
L02718B CLC
RTS
L02718D LDY L027121
LDA [$3A],Y
INC
INC
STA L027127
JSR L02712B
BCS L02716F
DEC L027129
BNE L02718D
CLC
RTS
L0271A3 LDY L027121
LDA [$3A],Y
AND #$00FF
INC
STA L027127
JSR L02712B
BCS L02716F
DEC L027129
BNE L0271A3
CLC
RTS
L0271BB SEP #$20
LDY L027121
LDA [$3A],Y
STA L0271EE
LDX #$0001
L0271C8 INX
INY
BEQ L0271EC
BIT $5D
BMI L0271D4
CPY $3E
BCS L0271EC
L0271D4 LDA [$3A],Y
EOR L0271EE
BPL L0271C8
STX L027127
REP #$20
JSR L02712B
BCS L0271EC
DEC L027129
BNE L0271BB
CLC
RTS
L0271EC SEC
RTS
L0271EE DB $00
L0271EF LDA L027121
CMP $3E
BEQ L02720B
CLC
ADC L027127
BIT $5C
BMI L027210
BCS L02720B
CMP $3E
BEQ L027206
BCS L02720B
L027206 STA L027121
CLC
RTS
L02720B STZ L027121
SEC
L02720F RTS
L027210 BCC L027206
CMP #$0001
BCS L02720B
BRA L027206
L027219 LDY L027121
LDA [$3A],Y
STA L027127
PHY
PEI $42
PHY
PEA $0002
PEA $0001
JSL L043069
PLY
INY
INY
STY L027121
PHY
JSR L0271EF
PLY
BCS L02720F
LDA L027127
JSR L0242DC
LDY L027121
BEQ L02724E
DEC L027129
BNE L027219
CLC
RTS
L02724E SEC
RTS
L027250 LDY L027121
LDX #$0001
L027256 LDA [$3A],Y
AND #$00FF
BEQ L027269
INX
INY
BEQ L027269
BIT $5C
BMI L027256
CPY $3E
BCC L027256
L027269 TXA
LDY L027121
JSR L0242DC
STY L027121
CPY #$0000
BEQ L027287
BIT $5C
BMI L027280
CPY $3E
BCS L027287
L027280 DEC L027129
BNE L027250
CLC
RTS
L027287 STZ L027121
SEC
RTS
L02728C LDA L020007
BEQ L0272C5
PHA
PHA
PEA $8029
PEA $0000
PEA $0001
_LoadResource
PLX
PLY
BCS L0272C5
JSR L023EF2
STX $10
STY $12
LDY #$0004
L0272B1 LDA [$10],Y
PHA
DEY
DEY
BPL L0272B1
PEA ^L027318
PEA L027318
_VersionString
L0272C5 SEP #$30
LDX L027318
L0272CA LDA L027318,X
ORA #$80
STA L027318,X
DEX
BNE L0272CA
CLC
LDA L027318
ADC L02730B
ADC L027322
REP #$30
AND #$00FF
PHA
LDA #$0050
SEC
SBC $01,S
PLX
LSR
TAX
LDY #$0003
JSL L0300E2
JSL L030314
ADR L02730B
JSL L030314
ADR L027318
JSL L030314
ADR L027322
RTS
L02730B STR "TFB-Disasm v"
L027318 STR "1.0.6" ; was "1.0.5" "1.0.4" was "1.0.2"
DB $00
DB $00
DB $00
DB $00
*L027322 STR " 19-SEP-2020"8D ; was "10-MAY-94"
*L027322 STR " 21-MAR-2021"8D ; was "10-MAY-94"
L027322 STR " 5-MAR-2023"8D ; was "21-MAR-2021"
L027330 JSR L021586
LDA L0215CD
BEQ L02734D
PEA ^L027355
PEA L027355
PEA $2001 ; Create
JSL GSOS2
BCS L027348
RTS
L027348 JSR L020AF7
BRA L027353
L02734D LDA #$0001
JSR L020AB8
L027353 SEC
RTS
L027355 DW $0005 ; Parms for Create
ADRL L0215CD ; file name
DW $00E3 ; access
DW $000F ; file type
ADRL $00000000 ; aux type
DW $000D ; storage
L027365 JSL GSOS
DW $200A ; GetPrefix
ADRL L02739E
SEP #$20
LDX L02005B
BEQ L027392
L027376 DEX
BEQ L027392
LDA L02005C,X
CMP #$3A
BNE L027376
CPX #$0001
BEQ L027392
STX L02005B
JSL GSOS
DW $2009 ; SetPrefix
ADRL L027396
L027392 REP #$30
CLC
RTS
L027396 DW $0002 ; Parms for SetPrefix
DW $0000 ; prefix num
ADRL L02005B ; prefix ptr
L02739E DW $0002 ; Parms for GetPrefix
DW $0000 ; prefix num
ADRL L020059 ; prefix ptr
L0273A6 REP #$30
BRL L0273B2
DW $7771
STR 'CPFX'
L0273B2 PEA ^L0276FE
PEA L0276FE
PEA $200A ; GetPrefix
JSL GSOS2
BCS L0273FD
PEA ^L027706
PEA L027706
PEA $200E ; ExpandPath
JSL GSOS2
BCS L0273FD
JSR L02765E
BCS L027400
JSR L027535
L0273D8 JSR L0276B0
L0273DB JSL L03059F
BCS L0273DB
AND #$007F
CMP #$000D
BEQ L0273F5
CMP #$001B
BEQ L0273F8
JSR L027458
BCS L027400
BRA L0273D8
L0273F5 JSR L027437
L0273F8 JSR L027447
CLC
RTS
L0273FD JSR L020AF7
L027400 JSR L027447
SEC
CLV
RTS
L027406 LDA L02771A
BEQ L02740E
JSR L027447
L02740E PEA ^L027718
PEA L027718
PEA $2010 ; Open
JSL GSOS2
BCS L0273FD
LDA L02771A
STA L027738
STA L027722
RTS
L027427 PEA ^L027736
PEA L027736
PEA $201C ; GetDirEntry
JSL GSOS2
BCS L0273FD
RTS
L027437 PEA ^L027710
PEA L027710
PEA $2009 ; SetPrefix
JSL GSOS2
BCS L0273FD
RTS
L027447 PEA ^L027720
PEA L027720
PEA $2014 ; Close
JSL GSOS2
STZ L02771A
RTS
L027458 LDX #$0000
L02745B CMP L027472,X
BEQ L02746F
INX
INX
CPX #$0008
BCC L02745B
_SysBeep
RTS
L02746F JMP (L02747A,X)
L027472 DW $000A
DW $000B
DW $0008
DW $0015
L02747A DA L0274D5
DA L0274E4
DA L027699
DA L02766A
L027482 LDA #$0001
BNE L02748A
L027487 LDA #$FFFF
L02748A STA L0274D3
LDA L02771A
BNE L02749A
JSR L027591
CPX #$0002
BCC L0274F6
L02749A LDX L027748
L02749D CLC
LDA L02773E
ADC L0274D3
STA L02773E
DEC
CMP L027748
BCC L0274BB
LDA #$0001
BIT L0274D3
BPL L0274B8
LDA L027748
L0274B8 STA L02773E
L0274BB PHX
JSR L027427
PLX
BCC L0274C3
RTS
L0274C3 CLV
LDA L027746
CMP #$000F
BEQ L0274D1
DEX
BNE L02749D
SEP #$40
L0274D1 CLC
RTS
L0274D3 DB $00
DB $00
L0274D5 LDA L02005B
BEQ L0274D1
JSR L027482
JSR L027588
JSR L027535
RTS
L0274E4 LDA L02005B
BEQ L0274D1
JSR L027487
JSR L027588
JSR L027535
RTS
L0274F3 STZ L027726
L0274F6 INC L027726
PEA ^L027724
PEA L027724
PEA $202C ; DInfo
JSL GSOS2
BCS L0274F3
PEA ^L02772C
PEA L02772C
PEA $2008 ; Volume
JSL GSOS2
BCS L0274F6
LDX #$0010
L02751A LDA L02005B,X
STA L02774C,X
DEX
DEX
BPL L02751A
RTS
L027525 STZ L02773E
JSR L027427
BCS L027534
LDA L027744
STA L027748
CLC
L027534 RTS
L027535 LDA L02774C
STA L027787
BEQ L02756E
SEP #$20
LDX L02005B
LDY #$0000
LDA L02774E
CMP #$3A
BEQ L027559
LDA L02005C,X
CMP #$3A
BEQ L027559
LDA #$3A
STA L02005D,X
INX
L027559 LDA L02774E,Y
STA L027789,Y
STA L02005D,X
INY
INX
DEC L02774C
BNE L027559
REP #$20
STX L02005B
L02756E CLC
RTS
SEP #$20
LDX L02005B
BEQ L027585
INX
LDA #$3A
CMP L02005B,X
BEQ L027585
STA L02005C,X
STX L02005B
L027585 REP #$20
RTS
L027588 JSR L027591
DEX
STX L02005B
CLC
RTS
L027591 SEP #$20
LDX L02005B
L027596 DEX
LDA L02005C,X
CMP #$3A
BNE L027596
REP #$20
RTS
L0275A1 JSR L027591
PHX
CPX #$0001
BEQ L0275AB
INX
L0275AB LDY #$0000
SEP #$20
L0275B0 LDA L02005C,X
STA L027789,Y
INY
INX
CPX L02005B
BCC L0275B0
BNE L0275CA
LDA L02005C,X
CMP #$3A
BEQ L0275CA
STA L027789,Y
INY
L0275CA STY L027787
REP #$20
PLX
DEX
STX L02005B
CLC
RTS
L0275D6 LDA L02005B
BNE L0275E7
L0275DB JSR L0274F6
JSR L027624
STZ L02005B
BCS L0275DB
RTS
L0275E7 JSR L027406
BCC L0275ED
L0275EC RTS
L0275ED JSR L027525
BCS L0275EC
LDA L027748
STA L02764D
BEQ L02761E
L0275FA INC L02773E
JSR L027427
BCS L0275EC
LDA L027746
CMP #$000F
BNE L027617
JSR L027624
BCS L027617
LDA L027744
STA L027785
CLC
RTS
L027617 REP #$20
DEC L02764D
BNE L0275FA
L02761E LDA #$0044
BRL L0273FD
L027624 LDA L02774C
TAX
CMP L027787
BNE L027649
SEP #$20
L02762F LDA L02774D,X
JSR L027651
STA L02764F
LDA L027788,X
JSR L027651
CMP L02764F
BNE L027649
DEX
BNE L02762F
REP #$21
RTS
L027649 REP #$20
SEC
RTS
L02764D DB $00
DB $00
L02764F DB $00
DB $00
MX %11
L027651 AND #$7F
CMP #$61
BCC L02765D
CMP #$7B
BCS L02765D
AND #$5F
L02765D RTS
MX %00
L02765E LDA L02005B
BEQ L027669
JSR L0275A1
JSR L0275D6
L027669 RTS
L02766A LDA L02005B
BNE L027672
BRL L0274F3
L027672 JSR L027406
BCS L027694
JSR L027525
BCS L027694
LDA L027748
BEQ L027688
JSR L027482
BCS L027694
BVC L027690
L027688 JSR L027447
JSR L02765E
BCS L027694
L027690 JSR L027535
RTS
L027694 JSR L027447
SEC
RTS
L027699 LDA L02005B
BEQ L0276AE
JSR L027447
JSR L027588
BEQ L0276AE
JSR L02765E
BCS L0276AF
JSR L027535
L0276AE CLC
L0276AF RTS
L0276B0 JSR L020CED
LDX #$0000
LDY #$0017
JSL L0300E2
LDA #$00BE
JSR L0276F7
LDX #$0000
LDA L02005B
BNE L0276D8
JSL L0302E1
STR "[clear]"
RTS
L0276D8 CMP #$004F
BCC L0276E7
SBC #$004D
TAX
LDA #$0049
JSR L0276F7
L0276E7 LDA L02005D,X
ORA #$0080
JSR L0276F7
INX
CPX L02005B
BCC L0276E7
RTS
L0276F7 PHX
JSL L0301F9
PLX
RTS
L0276FE DW $0002 ; Parms for GetPrefix
DW $0000 ; prefix num
ADRL L021656 ; prefix ptr
L027706 DW $0002 ; Parms for ExpandPath
ADRL L021658 ; path name
ADRL L020059 ; new pathname
L027710 DW $0002 ; Parms for SetPrefix
DW $0000 ; prefix num
ADRL L02005B ; prefix ptr
L027718 DW $0003 ; Parms for Open
L02771A DW $0000 ; ref num
ADRL L02005B ; path name
L027720 DW $0001 ; Parms for Close
L027722 DW $0000 ; ref num
L027724 DW $0002 ; Parms for DInfo
L027726 DW $0000 ; device num
ADRL L02775E ; device name
L02772C DW $0002 ; Parms for Volume
ADRL L027760 ; device name
ADRL L020059 ; volume name
L027736 DW $0007 ; Parms for GetDirEntry
L027738 DW $0000 ; ref num
DW $0000 ; flags
DW $0000 ; base
L02773E DW $0000 ; displacement
ADRL L02774A ; file name
L027744 DW $0000 ; entry num
L027746 DW $0000 ; file type
L027748 DB $00
DB $00
L02774A DB $13
DB $00
L02774C DB $00
L02774D DB $00
L02774E 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
L02775E DB $27
DB $00
L027760 DB $23
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
L027785 DB $00
DB $00
L027787 DB $00
L027788 DB $00
L027789 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
L027798 SEC
CLV
RTS
L02779B LDA [$F8]
AND #$007F
BNE L0277A5
BRL L027957
L0277A5 STZ L027D43
LDA $3E
STA L027D47
LDA $5C
STA L027D49
LDA [$F8]
AND #$007F
CMP #$005B
BNE L0277D6
STZ L027D49
JSR L021525
BCC L0277C7
BRL L0278CC
L0277C7 STA L027D43
INX
STX L027D47
BNE L0277D6
LDA #$FFFF
STA L027D49
L0277D6 STZ L027D82
STZ L027D4B
SEP #$20
L0277DE LDA [$F8]
BEQ L027830
AND #$7F
CMP #$20
BEQ L027830
CMP #$3F
BEQ L02782B
CMP #$22
BNE L0277F3
BRL L02788C
L0277F3 CMP #$3E
BNE L0277FA
BRL L0278D6
L0277FA CMP #$5E
BNE L027801
BRL L0278CF
L027801 CMP #$3A
BNE L027808
BRL L027903
L027808 JSR L0212C9
BCS L027888
SEC
SBC #$30
CMP #$0A
BCC L027816
SBC #$07
L027816 PHA
JSR L027ADF
PLA
TSB L027D78
LDA #$0F
TSB L027D7C
L027823 INC L027D77
L027826 JSR L027AF6
BRA L0277DE
L02782B JSR L027ADF
BRA L027823
L027830 LDA L027D77
BEQ L02787B
CMP #$09
BCC L02783E
LDA #$08
STA L027D77
L02783E BIT #$01
BEQ L027859
INC
STA L027D77
LSR
DEC
TAX
LDA #$0F
AND L027D78,X
STA L027D78,X
LDA #$F0
ORA L027D7C,X
STA L027D7C,X
L027859 LSR L027D77
LDY #$0000
LDX L027D82
L027862 LDA L027D78,Y
STA L027D84,X
LDA L027D7C,Y
STA L027DE8,X
STZ L027E4C,X
INY
INX
DEC L027D77
BNE L027862
STX L027D82
L02787B JSR L020F52
LDA [$F8]
BEQ L027885
BRL L0277DE
L027885 BRL L027957
L027888 LDA #$01
BRA L0278C9
L02788C JSR L027AF6
LDA [$F8]
BEQ L027885
AND #$7F
CMP #$22
BEQ L027826
LDX L027D82
STA L027D84,X
PHA
LDA #$7F
STA L027DE8,X
STZ L027E4C,X
PLA
CMP #$3F
BNE L0278B2
STZ L027DE8,X
BRA L0278C4
L0278B2 JSR L0212E9
BCS L0278C4
AND #$5F
STA L027D84,X
LDA #$5F
STA L027DE8,X
STZ L027E4C,X
L0278C4 INC L027D82
BRA L02788C
L0278C9 JSR L020AB8
L0278CC CLV
SEC
RTS
L0278CF REP #$20
LDA #$0101
BRA L0278EF
L0278D6 REP #$20
LDY #$0001
LDA [$F8],Y
AND #$007F
CMP #$003E
BEQ L0278EA
LDA #$0202
BRA L0278EF
L0278EA INC $F8
LDA #$0303
L0278EF JSR L027ABD
BCS L0278CC
SEP #$20
LDA [$F8]
AND #$7F
BEQ L027957
CMP #$20
BNE L027888
BRL L0277DE
L027903 REP #$20
INC $F8
JSR L026E64
BCS L0278CC
ASL
XBA
ROR
XBA
PHX
PHY
LDX L027D82
STA L027D84,X
CMP #$0080
BEQ L027922
CMP #$0006
BCS L027936
L027922 LDA $03,S
TAY
LDA $01,S
L027927 DEY
BEQ L02792F
CLC
ADC $01,S
BRA L027927
L02792F STA $01,S
LDA #$0001
STA $03,S
L027936 LDA #$0004
STA L027E4C,X
INX
PLA
STA L027D84,X
INX
INX
PLA
STA L027D84,X
INX
INX
STX L027D82
LDA #$FFFF
STA L027D4B
SEP #$20
BRL L02787B
L027957 REP #$20
LDA L027D82
BNE L027964
LDA #$0019
BRL L0278C9
L027964 LDAL $E0BFFF
BPL L02797B
STAL $E0C010
AND #$7F00
CMP #$1B00
BEQ L027998
CMP #$0300
BEQ L027998
L02797B JSR L027AFD
BCC L02799B
L027980 INC L027D43
BEQ L027998
BIT L027D49
BMI L027964
LDA L027D43
CMP L027D47
BCC L027964
LDA L027D45
STA L027D43
L027998 CLC
CLV
RTS
L02799B BIT $48
BPL L0279B6
LDX #$0000
LDA L027D43
AND #$FFF0
CMP #$00A0
BCS L0279B0
LDA #$00A0
L0279B0 SEC
SBC #$00A0
BRA L0279C8
L0279B6 LDA L027D43
JSL L0416F3
PHA
PEA $0000
PEA $0008
JSL L041462
L0279C8 STA $54
STX $56
JSR L021E04
JSR L027CCA
BCS L027A2B
AND #$005F
CMP #$0059
BNE L027A19
BIT L027D4B
BPL L027A19
LDX #$0000
L0279E4 LDA L027E4C,X
AND #$00FF
CMP #$0004
BNE L027A10
LDA L027E4D,X
STA L027D6F
LDA L027D85,X
STA L027D73
LDA L027D87,X
STA L027D75
LDA L027D84,X
AND #$00FF
PHX
JSR L027A2E
PLX
INX
INX
INX
INX
L027A10 INX
CPX L027D82
BCC L0279E4
JSR L021E04
L027A19 CLC
LDA L027D80
ADC L027D43
BCS L027A2B
DEC
STA L027D43
BCS L027A2B
BRL L027980
L027A2B CLC
CLV
L027A2D RTS
L027A2E CMP #$0080
BEQ L027A2D
BCS L027A6D
L027A35 PHA
PEI $42
LDY L027D6F
PHY
LDX L027D73
BNE L027A56
PHA
ASL
TAX
LDA L027C5C,X
BEQ L027A4E
JSR (L027C5C,X)
BRA L027A51
L027A4E LDA #$0001
L027A51 STA L027D73
TAX
PLA
L027A56 PHX
PHA
JSL L043069
CLC
LDA L027D73
ADC L027D6F
STA L027D6F
PLA
DEC L027D75
BNE L027A35
RTS
L027A6D AND #$007F
ASL
TAX
JMP (L027A75,X)
L027A75 DA $0000
DA L027A7B
DA L027A90
L027A7B LDY L027D6F
PHY
JSR L027C90
INY
STY L027D6F
PLY
JSR L0242DC
DEC L027D75
BNE L027A7B
RTS
L027A90 LDY L027D6F
PHY
JSR L027C8B
PHA
CLC
ADC L027D6F
STA L027D6F
LDA $03,S
PEI $42
PHA
PEA $0002
PEA $0001
JSL L043069
PLA
DEC
DEC
PLY
INY
INY
JSR L0242DC
DEC L027D75
BNE L027A90
RTS
L027ABD LDX L027D82
STA L027E4C,X
STA L027E4E,X
INC $F8
JSR L021339
BCS L027ADE
LDX L027D82
STA L027D84,X
TYA
STA L027D86,X
INX
INX
INX
INX
STX L027D82
L027ADE RTS
L027ADF PHP
REP #$30
LDX #$0004
L027AE5 ASL L027D78
ROL L027D7A
ASL L027D7C
ROL L027D7E
DEX
BNE L027AE5
PLP
RTS
L027AF6 REP #$20
INC $F8
SEP #$20
RTS
L027AFD SEP #$20
LDY L027D43
LDX #$0000
L027B05 LDA L027E4C,X
BNE L027B0D
BRL L027BF1
L027B0D DEC
BNE L027B13
BRL L027BA6
L027B13 PHX
PHY
LDX #$0005
STX L027CBA
DEC
BEQ L027B7F
LDX #$000E
STX L027CBA
DEC
BEQ L027B7F
PLY
PLX
PHY
INX
REP #$21
TYA
STA L027E4C,X
LDA L027D86,X
STA L027D75
LDA L027D83,X
AND #$00FF
CMP #$0080
BCS L027B4E
PHX
ASL
TAX
LDA L027D4D,X
PLX
CMP #$0000
BEQ L027B5E
L027B4E LDA L027D84,X
BEQ L027B5E
L027B53 DEC L027D75
BEQ L027B6C
CLC
ADC L027D84,X
BRA L027B53
L027B5E LDA L027D83,X
AND #$00FF
PHX
JSR L027C15
PLX
STA L027D84,X
L027B6C INX
INX
INX
CLC
ADC $01,S
STA $01,S
PLY
SEP #$20
BCS L027B7C
BRL L027BFC
L027B7C BRL L027C11
L027B7F REP #$20
TYA
JSL L0410BB
SEP #$20
PLY
ASL
BCC L027B9F
XBA
BMI L027B9F
LDA [$3A],Y
LDX #$0000
L027B94 CMP L027CBC,X
BEQ L027BA2
INX
CPX L027CBA
BCC L027B94
L027B9F PLX
BRA L027C11
L027BA2 PLX
INY
BRA L027BB7
L027BA6 REP #$20
PHY
TYA
JSL L0410BB
PLY
AND #$9880
CMP #$0080
BEQ L027C11
L027BB7 REP #$20
PHY
PHX
PEI $42
PHY
PEA ^L027D39
PEA L027D39
JSL L045089
PLX
PLY
BCS L027C11
LDA L027D39
CMP #$0004
BCS L027C11
LDA L027D84,X
CMP L027D3F
BNE L027C11
LDA L027D86,X
CMP L027D41
BNE L027C11
TYA
CLC
ADC L027D3B
TAY
SEP #$20
INX
INX
INX
BRA L027BFC
L027BF1 LDA [$3A],Y
AND L027DE8,X
CMP L027D84,X
BNE L027C11
INY
L027BFC INX
CPX L027D82
BCS L027C05
BRL L027B05
L027C05 REP #$20
SEC
TYA
SBC L027D43
STA L027D80
CLC
RTS
L027C11 REP #$20
SEC
RTS
L027C15 STZ L027D73
STY L027D6F
STA L027D71
L027C1E LDA L027D71
XBA
ASL
XBA
TAX
BCS L027C53
LDA L027D4D,X
BNE L027C31
BPL L027C4A
L027C2E LDA #$0001
L027C31 CLC
PHA
ADC L027D73
STA L027D73
PLA
ADC L027D6F
STA L027D6F
TAY
DEC L027D75
BNE L027C1E
LDA L027D73
RTS
L027C4A LDA L027C5C,X
BEQ L027C2E
JSR (L027C5C,X)
RTS
L027C53 LDA L027C7E,X
BEQ L027C2E
JSR (L027C7E,X)
RTS
L027C5C DA $0000
DA $0000
DA $0000
DA $0000
DA $0000
DA $0000
DA $0000
DA $0000
DA $0000
DA $0000
DA L027CA2
DA $0000
DA $0000
DA $0000
DA L027C8B
DA L027C84
DA $0000
L027C7E DA $0000
DA L027C90
DA L027C8B
L027C84 LDA [$3A],Y
AND #$00FF
INC
RTS
L027C8B LDA [$3A],Y
INC
INC
RTS
L027C90 LDX #$0001
SEP #$20
L027C95 LDA [$3A],Y
BEQ L027CB5
INX
INY
CPY L027D47
BNE L027C95
BRA L027CB5
L027CA2 LDX #$0001
SEP #$20
LDA [$3A],Y
STA L027CB9
L027CAC INY
INX
LDA [$3A],Y
EOR L027CB9
BPL L027CAC
L027CB5 REP #$20
TXA
RTS
L027CB9 DB $00
L027CBA DB $05
DB $00
L027CBC DB $20
DB $22
DB $4C
DB $5C
DB $82
DB $80
DB $90
DB $B0
DB $10
DB $30
DB $D0
DB $F0
DB $50
DB $70
L027CCA JSR L020CED
LDY #$0017
LDX #$0000
JSL L0300E2
JSL L0302E1
STR "> Found at: "
PEI $42
LDA L027D43
PHA
JSL L042A5C
PHA
PHY
JSL L03065A
LDA #$00AF
JSL L03022D
JSL L030670
JSL L0302E1
STR ". "
BIT L027D4B
BPL L027D1F
JSL L0302E1
STR "Set csts ? "
L027D1F JSL L03034A
PHA
JSR L020CED
PLA
AND #$007F
CMP #$000D
SEC
BEQ L027D38
CMP #$001B
SEC
BEQ L027D38
CLC
L027D38 RTS
L027D39 DB $00
DB $00
L027D3B DB $00
DB $00
DB $00
DB $00
L027D3F DB $00
DB $00
L027D41 DB $00
DB $00
L027D43 DB $00
DB $00
L027D45 DB $00
DB $00
L027D47 DB $00
DB $00
L027D49 DB $00
DB $00
L027D4B DB $00
DB $00
L027D4D DB $01
DB $00
DB $02
DB $00
DB $02
DB $00
DB $02
DB $00
DB $04
DB $00
DB $03
DB $00
DB $0A
DB $00
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $00
DB $00
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $FF
DB $00
DB $00
DB $00
DB $00
DB $01
DB $00
L027D6F DB $00
DB $00
L027D71 DB $00
DB $00
L027D73 DB $00
DB $00
L027D75 DB $00
DB $00
L027D77 DB $00
L027D78 DB $00
DB $00
L027D7A DB $00
DB $00
L027D7C DB $00
DB $00
L027D7E DB $00
DB $00
L027D80 DB $00
DB $00
L027D82 DB $00
L027D83 DB $00
L027D84 DB $00
L027D85 DB $00
L027D86 DB $00
L027D87 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
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
L027DE8 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
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
L027E4C DB $00
L027E4D DB $00
L027E4E 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
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
L027EB0 LDA $5E
STA L027F2B
STZ L027F23
LDA $3E
STA L027F25
LDA $5C
STA L027F27
LDA [$F8]
AND #$007F
CMP #$005B
BNE L027EE3
STZ L027F27
JSR L021525
CLV
BCC L027ED6
RTS
L027ED6 STA L027F23
STX L027F25
TXA
BNE L027EE3
DEC
STA L027F27
L027EE3 LDA #$0003
STA L027F21
LDA [$F8]
AND #$00FF
BEQ L027F2D
STZ L027F21
L027EF3 JSR L021309
BCS L027F2D
CMP #$00C1
BNE L027F08
LDA #$0001
ORA L027F21
STA L027F21
BRA L027EF3
L027F08 CMP #$00D3
BNE L027F18
LDA #$0002
ORA L027F21
STA L027F21
BRA L027EF3
L027F18 LDA #$0001
JSR L020AB8
CLV
SEC
RTS
L027F21 DB $00
DB $00
L027F23 DB $00
DB $00
L027F25 DB $00
DB $00
L027F27 DB $00
DB $00
L027F29 DB $00
DB $00
L027F2B DB $00
DB $00
L027F2D LSR L027F21
BCC L027F3C
JSR L027F80
LDA L027F2B
STA $5E
BCS L027F49
L027F3C LSR L027F21
BCC L027F49
JSR L0281DD
LDA L027F2B
STA $5E
L027F49 CLC
RTS
L027F4B LDA L027F29
INC
BEQ L027F5B
L027F51 BIT L027F27
BMI L027F5D
CMP L027F25
BCC L027F5D
L027F5B SEC
RTS
L027F5D STA L027F29
CLC
RTS
L027F62 CLC
ADC L027F29
BCS L027F5B
BRA L027F51
L027F6A LDY #$FFFF
STY $48
SEC
SBC #$0030
BCS L027F78
LDA #$0000
L027F78 STA $54
STZ $56
JSR L021E04
RTS
L027F80 LDA L027F23
STA L027F29
LDA $5E
AND #$3FFF
ORA #$8000
STA $5E
L027F90 LDY L027F29
LDA #$1800
JSL L041764
BCS L027FB4
STY L027F29
BIT L027F27
BMI L027FA9
CPY L027F25
BCS L027FB4
L027FA9 JSR L0280B9
BCS L027FB6
JSR L027FC0
BCC L027F90
RTS
L027FB4 CLC
RTS
L027FB6 LDA L028096
JSR L027F62
BCC L027F90
CLC
RTS
L027FC0 LDA L028092
JSR L027F6A
LDA L028096
DEC
ASL
ASL
TAX
LDA L02809A,X
STA L027FEA+$D
LDA L02809A+2,X
STA L027FEA+$F
JSR L020CED
LDY #$0017
LDX #$0000
JSL L0300E2
JSL L0302E1
L027FEA STR "> adresses: ....x"
LDA L028098
PHA
JSL L030670
JSL L0302E1
STR " in ["
LDA L028092
JSR L02806B
LDA #$00AE
JSL L03022D
LDA L028094
DEC
JSR L02806B
JSL L0302E1
STR "]. Set ? "
JSR L02807D
BCS L028065
AND #$00DF
CMP #$00D9
BNE L02805E
JSL L03022D
PEI $42
LDA L028092
PHA
SEC
LDA L028094
SBC L028092
PHA
LDX L028096
LDA L0280AA,X
AND #$00FF
PHA
JSL L043069
L02805E LDA L028094
STA L027F29
CLC
L028065 PHP
JSR L020CED
PLP
RTS
L02806B PEI $42
PHA
JSL L042A5C
PHA
PHY
JSL L03065A
JSL L030670
RTS
L02807D JSL L03034A
AND #$00FF
CMP #$008D
SEC
BEQ L028091
CMP #$009B
SEC
BEQ L028091
CLC
L028091 RTS
L028092 DB $00
DB $00
L028094 DB $00
DB $00
L028096 DB $00
DB $00
L028098 DB $00
DB $00
L02809A ASC " DB"
ASC " DA"
ASC " ADR"
ASC "ADRL"
L0280AA DB $00
DB $00
DB $03
DB $05
DB $04
L0280AF DB $00
DB $00
L0280B1 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0280B9 LDA L027F29
STA L028092
LDA #$0001
STA L028096
JSL L0410BB
BIT #$8000
BNE L028145
PEI $42
LDA L027F29
PHA
PEA ^L0280AF
PEA L0280AF
JSL L045089
BCS L028145
LDA L0280AF
CMP #$0004
BCS L028145
LDA #$0001
STA L028098
JSR L0281BA
LDA L0280B1
STA L028096
L0280F7 CLC
LDA L028096
ADC L027F29
BCS L02814D
BIT L027F27
BMI L02810A
CMP L027F25
BCS L02814D
L02810A STA L027F29
JSL L0410BB
BIT #$8000
BNE L02814D
BIT #$1800
BEQ L02814D
PEI $42
LDA L027F29
PHA
PEA ^L0280AF
PEA L0280AF
JSL L045089
BCS L02814D
LDA L0280AF
CMP #$0004
BCS L02814D
JSR L0281BA
LDA L0280B1
CMP L028096
BNE L02814D
INC L028098
BRA L0280F7
L028145 LDA L028092
STA L027F29
SEC
RTS
L02814D LDA L028098
CMP #$0001
BEQ L028145
LDA L027F29
STA L028094
LDX L028096
CPX #$0001
BEQ L0281B8
CPX #$0004
BEQ L0281B8
LDA L028092
BEQ L0281B8
DEC
PHA
JSL L0410BB
PLY
BIT #$9800
BNE L0281B8
LDA [$3A],Y
AND #$00FF
CPX #$0002
BEQ L0281A4
CMP #$005C
BEQ L028195
CMP #$0022
BNE L0281B8
LDA L028098
CMP #$0002
BEQ L028145
L028195 CLC
LDA L028096
ADC L028092
STA L028092
DEC L028098
BRA L0281B8
L0281A4 CMP #$007C
BEQ L028195
CMP #$006C
BEQ L028195
CMP #$00DC
BEQ L028195
CMP #$004C
BEQ L028195
L0281B8 CLC
RTS
L0281BA LDA L0280B1
CMP #$0003
BNE L0281DC
LDY L027F29
INY
INY
INY
LDA [$3A],Y
AND #$00FF
BNE L0281DC
TYA
JSL L0410BB
BIT #$1800
BNE L0281DC
INC L0280B1
L0281DC RTS
L0281DD LDA L027F23
STA L027F29
LDA $5E
AND #$3FFF
ORA #$4000
STA $5E
L0281ED LDY L027F29
JSR L02820E
BCS L028207
LDA L027F29
JSL L0410BB
AND #$8000
BNE L028207
JSR L02824D
BCC L0281ED
RTS
L028207 JSR L027F4B
BCC L0281ED
CLC
RTS
L02820E LDA [$3A],Y
AND #$00FF
CMP #$0005
BCC L028249
CMP #$0051
BCS L028249
TAX
SEP #$20
L028220 INY
LDA [$3A],Y
AND #$7F
CMP #$07
BEQ L028243
CMP #$0A
BEQ L028243
CMP #$0D
BEQ L028243
CMP #$20
BCC L028249
LDA [$3A],Y
CMP #$40
BCC L028249
CMP #$A0
BCS L028243
CMP #$60
BCS L028249
L028243 DEX
BNE L028220
REP #$21
RTS
L028249 REP #$20
SEC
RTS
L02824D LDA L027F29
JSR L027F6A
JSR L020CED
LDY #$0017
LDX #$0000
JSL L0300E2
JSL L0302E1
STR "> string: STR at $"
LDA L027F29
JSR L02806B
JSL L0302E1
STR ". Set ? "
JSR L02807D
BCS L0282BC
AND #$00DF
CMP #$00D9
BNE L0282B9
JSL L03022D
PEI $42
LDY L027F29
PHY
LDA [$3A],Y
AND #$00FF
INC
PHA
CLC
ADC L027F29
DEC
STA L027F29
PEA $000F
JSL L043069
L0282B9 JSR L027F4B
L0282BC PHP
JSR L020CED
PLP
RTS
L0282C2 DB $00
DB $00
L0282C4 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
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
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
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
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0283C2 DB $00
DB $00
L0283C4 DB $00
DB $00
L0283C6 ENT
DB $00
DB $00
L0283C8 DB $00
DB $00
L0283CA ENT
DB $00
DB $00
L0283CC DB $00
L0283CD DB $00
L0283CE DB $00
DB $00
L0283D0 DB $00
L0283D1 DB $00
L0283D2 DB $00
DB $00
L0283D4 DB $00
DB $00
L0283D6 DB $00
DB $00
L0283D8 DB $00
DB $00
L0283DA DB $00
DB $00
L0283DC DB $00
L0283DD DB $00
L0283DE DB $00
L0283DF DB $00
L0283E0 DB $00
DB $00
L0283E2 DB $00
DB $00
L0283E4 ENT
DB $00
DB $00
L0283E6 DB $00
DB $00
L0283E8 DB $00
DB $00
L0283EA DB $00
DB $00
L0283EC DB $00
DB $00
L0283EE DB $00
DB $00
L0283F0 DB $00
L0283F1 DB $00
L0283F2 DB $00
L0283F3 DB $00
L0283F4 DB $00
DB $00
L0283F6 DB $00
DB $00
L0283F8 DB $00
DB $00
L0283FA DB $00
DB $00
L0283FC DB $0A
L0283FD DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L028407 DB $00
L028408 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
L028428 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
L028449 DB $00
DB $00
L02844B DB $00
DB $00
L02844D DB $00
DB $00
L02844F DB $00
DB $00
L028451 DB $00
DB $00
L028453 DB $00
DB $00
L028455 DB $00
DB $00
L028457 DB $00
DB $00
L028459 DB $00
DB $00
L02845B DB $00
DB $00
L02845D DB $00
DB $00
L02845F DB $00
DB $00
L028461 DB $00
DB $00
L028463 DB $00
DB $00
L028465 DB $00
DB $00
L028467 DB $00
DB $00
L028469 DB $00
DB $00
L02846B DB $00
DB $00
L02846D DB $00
DB $00
L02846F DB $00
DB $00
L028471 STZ L02844D
LDA L028457
STA L028671
STA L028679
STA L028683
STA L028695
STA L0286A7
PEA ^L02866F
PEA L02866F
PEA $2017 ; GetMark
JSL GSOS2
BCC L028498
BRL L0285D3
L028498 PEA ^L028681
PEA L028681
PEA $2012 ; Read
JSL GSOS2
BCC L0284AA
BRL L0285D3
L0284AA JSR L02862C
BCC L0284B0
RTS
L0284B0 LDA L0283F8
CLC
ADC L028673
STA L02867D
LDA #$0000
ADC L028673+2
STA L02867D+2
PEA ^L028677
PEA L028677
PEA $2016 ; SetMark
JSL GSOS2
BCC L0284D5
BRL L0285D3
L0284D5 LDA #$000A
STA L02869B
LDA L0283DD
AND #$00FF
STA L028407
BNE L0284E9
INC L02869B
L0284E9 PEA ^L028693
PEA L028693
PEA $2012 ; Read
JSL GSOS2
BCC L0284FB
BRL L0285D3
L0284FB LDA L028407
AND #$00FF
CMP #$0020
BCC L02850C
LDA #$0020
STA L028407
L02850C STA L0286AD
PEA ^L0286A5
PEA L0286A5
PEA $2012 ; Read
JSL GSOS2
BCC L028521
BRL L0285D3
L028521 SEP #$20
LDX #$000A
L028526 LDA L0283FC,X
JSR L0285D8
STA L0283FC,X
DEX
BNE L028526
LDX #$0020
L028535 LDA L028407,X
JSR L0285D8
STA L028407,X
STA L028428,X
DEX
BNE L028535
LDA L028407
STA L028428
TAX
BEQ L02856B
L02854D LDA L028428,X
CMP #$A0
BNE L028568
DEX
DEC L028428
BNE L02854D
BRA L02856B
L02855C LDA L028428,X
CMP #$A0
BNE L028568
LDA #$DF
STA L028428,X
L028568 DEX
BNE L02855C
L02856B JSR L0285EC
REP #$20
LDA #$002D
STA L0283F8
LDA L0283FA
CLC
ADC L028673
STA L02867D
LDA #$0000
ADC L028673+2
STA L02867D+2
PEA ^L028677
PEA L028677
PEA $2016 ; SetMark
JSL GSOS2
BCS L0285D3
LDA L0283DF
AND #$00FF
DEC
BNE L0285D1
JSR L0286B7
CLC
LDA L028673
ADC L0283D0
TAX
LDA L028673+2
ADC L0283D2
CMP L02845B
BCC L0285D1
BNE L0285BE
CPX L028459
BCC L0285D1
L0285BE SEC
LDA L028459
SBC L028673
STA L0283D0
LDA L02845B
SBC L028673+2
STA L0283D2
L0285D1 CLC
RTS
L0285D3 JSR L020AF7
SEC
RTS
MX %11
L0285D8 ORA #$80
CMP #$A0
BCS L0285E0
LDA #$A0
L0285E0 RTS
L0285E1 CMP #$E1
BCC L0285EB
CMP #$FB
BCS L0285EB
AND #$DF
L0285EB RTS
L0285EC PHP
SEP #$30
LDX L028407
CPX L028656
BCC L0285FA
LDX L028656
L0285FA LDA L028407,X
JSR L0285E1
CMP L028656,X
BNE L02860A
DEX
BNE L0285FA
BEQ L028623
L02860A LDX L028407
CPX L028662
BCC L028615
LDX L028662
L028615 LDA L028407,X
JSR L0285E1
CMP L028662,X
BNE L02862A
DEX
BNE L028615
L028623 REP #$30
DEC L02844D
PLP
RTS
L02862A PLP
RTS
L02862C LDA L0283D2
CMP #$0100
BCS L02864E
ORA L0283D0
BEQ L02864E
LDA L0283D6
ORA L0283DA
AND #$FF00
BNE L02864E
LDA L0283F8
CMP L0283FA
BCS L02864E
CLC
RTS
L02864E LDA #$001B
JSR L020AB8
SEC
RTS
L028656 STR "EXPRESSLOAD"
L028662 STR "~EXPRESSLOAD"
L02866F DW $0002 ; Parms for GetMark
L028671 DW $0000 ; ref num
L028673 ADRL $00000000 ; position
L028677 DW $0003 ; Parms for SetMark
L028679 DW $0000 ; ref num
DW $0000 ; base
L02867D ADRL $00000000 ; displacement
L028681 DW $0005 ; Parms for Read
L028683 DW $0000 ; ref num
ADRL L0283D0 ; buffer ptr
ADRL $0000002C ; request count
ADRL $00000000 ; transfer count
DW $0001 ; cache priority
L028693 DW $0005 ; Parms for Read
L028695 DW $0000 ; ref num
ADRL L0283FD ; buffer ptr
L02869B ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
DW $0001 ; cache priority
L0286A5 DW $0005 ; Parms for Read
L0286A7 DW $0000 ; ref num
ADRL L028408 ; buffer ptr
L0286AD ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
DW $0001 ; cache priority
L0286B7 LDA L0283DF
AND #$00FF
CMP #$0001
BNE L0286E0
LDA L0283D0
STZ L0283D0
STA L0283D1
ASL L0283D0
ROL L0283D2
LDA L0283DC
AND #$00FF
SEP #$20
ASL
REP #$20
ROR
STA L0283E4
L0286E0 CLC
RTS
L0286E2 LDA L028457
STA L028765
STA L02876D
LDA L028469
STA L028767
LDA L02846B
STA L028767+2
BIT L02845D
BMI L02870B
PEA ^L028763
PEA L028763
PEA $2019 ; GetEOF
JSL GSOS2
BCS L02875E
L02870B STZ L02844F
STZ L028771+2
STZ L028771
BIT L02845D
BPL L028725
LDA L028467
STA L028771+2
LDA L028465
STA L028771
L028725 PEA ^L02876B
PEA L02876B
PEA $2016 ; SetMark
JSL GSOS2
BCS L02875E
JSR L028471
BCS L02875D
INC L02844F
CLC
LDA L0283D0
ADC L028771
STA L028771
LDA L0283D2
ADC L028771+2
STA L028771+2
CMP L028767+2
BNE L028725
LDA L028771
CMP L028767
BNE L028725
CLC
L02875D RTS
L02875E JSR L020AF7
SEC
RTS
L028763 DW $0002 ; Parms for GetEOF
L028765 DW $0000 ; ref num
L028767 ADRL $00000000 ; end of file
L02876B DW $0003 ; Parms for SetMark
L02876D DW $0000 ; ref num
DW $0000 ; base
L028771 ADRL $00000000 ; displacement
L028775 STA L02887A
STA L028878
LDA L028457
STA L028890
STA L02887E
STA L028886
LDA L028469
STA L028892
LDA L02846B
STA L028892+2
LDA L028465
STA L02888A
LDA L028467
STA L02888A+2
BIT L02845D
BMI L0287B9
PEA ^L02888E
PEA L02888E
PEA $2019 ; GetEOF
JSL GSOS2
BCS L0287F4
STZ L02888A+2
STZ L02888A
L0287B9 PEA ^L028884
PEA L028884
PEA $2016 ; SetMark
JSL GSOS2
BCS L0287F4
JSR L028471
BCS L0287F3
DEC L028878
BEQ L0287F9
CLC
LDA L0283D0
ADC L02888A
STA L02888A
LDA L0283D2
ADC L02888A+2
STA L02888A+2
CMP L028892+2
BNE L0287B9
LDA L02888A
CMP L028892
BNE L0287B9
CLC
L0287F3 RTS
L0287F4 JSR L020AF7
SEC
RTS
L0287F9 PEA ^L02887C
PEA L02887C
PEA $2017 ; GetMark
JSL GSOS2
BCS L0287F4
LDA L0283D8
LDY L0283DA
CPY #$0000
BEQ L028823
DEY
BNE L02881B
CMP #$0000
BEQ L028823
L02881B LDA #$0008 ; File/Segment longer than 64K
JSR L020AB8
SEC
RTS
L028823 LDA L0283F2
BNE L02882B
LDA L02887A
L02882B STA $42
STA L0283F2
JSR L02A241
BCS L0287F3
LDA L0283CE
PHA
LDA L0283CC
PHA
_DisposeHandle
PEI $38
PEI $36
_DisposeHandle
PLX
PLY
STX $36
STY $38
PHB
PHY
PLB
LDA |$0000,X
STA $3A
LDA |$0002,X
STA $3C
PLB
PLB
PLA
STA L028449
PLA
STA L02844B
PLX
PLY
STX L0283CC
STY L0283CE
PLA
PLA
CLC
RTS
L028878 DB $00
DB $00
L02887A DB $00
DB $00
L02887C DW $0002 ; Parms for GetMark
L02887E DW $0000 ; ref num
ADRL $00000000 ; position
L028884 DW $0003 ; Parms for SetMark
L028886 DW $0000 ; ref num
DW $0000 ; base
L02888A ADRL $00000000 ; displacement
L02888E DW $0002 ; Parms for GetEOF
L028890 DW $0000 ; ref num
L028892 ADRL $00000000 ; end of file
L028896 STA L028918
STY L028918+2
PHA
PHA
PEA $0001
PEA $0000
PEI $FC
PEA $8008
PHA
PHA
_NewHandle
PLX
PLY
BCC L0288BE
LDA #$0000
JSR L020AB8
SEC
RTS
L0288BE PHB
PHY
PLB
LDA |$0000,X
STA $00
STAL L028914
LDA |$0002,X
STA $02
PLB
PLB
STA L028914+2
PHY
PHX
LDY #$0000
TYA
L0288DA STA [$00],Y
INY
INY
BNE L0288DA
LDA L028457
STA L028912
PEA ^L028910
PEA L028910
PEA $2012 ; Read
JSL GSOS2
BCS L028904
LDA L028918
STA L028449
LDA L028918+2
STA L02844B
PLX
PLY
RTS
L028904 JSR L020AF7
_DisposeHandle
SEC
RTS
L028910 DW $0004 ; Parms for Read
L028912 DW $0000 ; ref num
L028914 ADRL $00000000 ; buffer ptr
L028918 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L028920 LDA L028459
SEC
SBC $3E
STA L028BF2
LDA L02845B
SBC #$0000
BIT $5C
BPL L028934
DEC
L028934 BNE L02894C
LDY #$0000
LDX L028BF2
STX L028BFC
LDA #$8008
JSR L023ED6
BCC L028954
LDA #$0000
BRA L02894F
L02894C LDA #$001C
L02894F JSR L020AB8
SEC
RTS
L028954 STX L028BEE
STY L028BF0
PHB
PHY
PLB
LDA |$0002,X
TAY
LDA |$0000,X
TAX
PLB
PLB
STX $AE
STY $B0
STX L028BF8
STY L028BF8+2
LDA L028457
STA L028BF6
PEA ^L028BF4
PEA L028BF4
PEA $2012 ; Read
JSL GSOS2
BCC L02898C
JSR L020AF7
SEC
BRA L028994
L02898C JSR L0289A6
BCS L028994
JSR L028B56
L028994 PHP
LDA L028BF0
PHA
LDA L028BEE
PHA
_DisposeHandle
PLP
RTS
L0289A6 LDY #$0000
L0289A9 LDA [$AE],Y
INY
AND #$00FF
BEQ L0289CA
LDX #$0000
L0289B4 CMP L0289CC,X
BEQ L0289C3
INX
INX
CPX #$0010
BCC L0289B4
L0289C0 BRL L02894C
L0289C3 JSR (L0289DC,X)
BCS L0289C0
BRA L0289A9
L0289CA CLC
RTS
L0289CC DW $000F
DW $001F
DW $002F
DW $003F
DW $004F
DW $008F
DW $009F
DW $00FF
L0289DC DA L0289EC
DA L0289F1
DA L028A4A
DA L028A1B
DA L0289EC
DA L028A4F
DA L028A20
DA L028A6D
L0289EC INY
INY
INY
CLC
RTS
L0289F1 LDA #$0001
STA L028AB5
PHY
LDA [$AE],Y
STA L028AB3
TAX
INY
INY
LDA [$AE],Y
AND #$00FF
STA L028ABF
STZ L028AB9
TXY
LDA [$3A],Y
AND #$00FF
BIT #$0080
BEQ L028A19
ORA #$FF00
L028A19 BRA L028A41
L028A1B LDA #$0003
BRA L028A23
L028A20 LDA #$0002
L028A23 PHY
STA L028AB5
LDA [$AE],Y
STA L028AB3
TAX
INY
INY
LDA [$AE],Y
AND #$00FF
STA L028ABF
STZ L028AB9
TXY
SEC
LDA [$3A],Y
SBC #$8000
L028A41 STA L028AB7
JSR L028B03
PLY
L028A48 BRA L0289EC
L028A4A LDX #$0003
BRA L028A52
L028A4F LDX #$0002
L028A52 PHY
PEI $42
LDA [$AE],Y
PHA
PHX
PEA $0000
TAY
LDA [$3A],Y
PEI $42
SEC
SBC #$8000
PHA
JSL L043774
PLY
BRA L028A48
L028A6D LDA [$AE],Y
STA L028AB3
INY
INY
LDA [$AE],Y
AND #$00FF
STA L028ABF
INY
LDA [$AE],Y
AND #$00FF
TAX
INY
SEC
LDA [$AE],Y
SBC #$8000
STA L028ABB
INY
INY
LDA [$AE],Y
AND #$00FF
SBC #$0000
STA L028ABD
INY
PHY
TXA
SEC
SBC #$00D0
CMP #$0008
BCC L028AAA
L028AA6 PLY
BRL L02894C
L028AAA ASL
TAX
JSR (L028AC1,X)
BCS L028AA6
PLY
RTS
L028AB3 DB $00
DB $00
L028AB5 DB $00
DB $00
L028AB7 DB $00
DB $00
L028AB9 DB $00
DB $00
L028ABB DB $00
DB $00
L028ABD DB $00
DB $00
L028ABF DB $00
DB $00
L028AC1 DA L028AD3
DA L028B45
DA L028AD1
DA L028AD1
DA L028AF7
DA L028AE4
DA L028AD1
DA L028AEF
L028AD1 SEC
RTS
L028AD3 LDA #$0001
STA L028AB5
LDA #$FFF0
STA L028AB9
STZ L028AB7
BRA L028B12
L028AE4 LDA #$FFF8
STA L028AB9
LDA #$0002
BRA L028B00
L028AEF LDA #$FFF8
STA L028AB9
BRA L028AFD
L028AF7 LDA #$FFF0
STA L028AB9
L028AFD LDA #$0001
L028B00 STA L028AB5
L028B03 CLC
LDA L028ABF
STA L028ABB
LDA $42
ADC #$0080
STA L028ABD
L028B12 CLC
LDA L028AB7
ADC #$0080
CMP #$0100
BCS L028B43
PEI $42
LDA L028AB3
PHA
LDA L028AB5
PHA
SEP #$20
LDA L028AB7
PHA
LDA L028AB9
PHA
REP #$20
CLC
LDA L028ABD
ADC $42
PHA
LDA L028ABB
PHA
JSL L043774
L028B43 CLC
RTS
L028B45 LDA #$0002
STA L028AB5
LDA #$FFF8
STA L028AB9
STZ L028AB7
BRA L028B12
L028B56 TYA
CLC
ADC $AE
STA L028BEA
LDA #$0000
ADC $B0
STA L028BEC
LDA [$AE],Y
PHA
AND #$00FF
BEQ L028BE7
PLA
PHA
AND #$FF1F
STA [$AE],Y
AND #$001F
PHA
TYA
SEC
ADC $01,S
TAY
PLA
PLA
AND #$00E0
CMP #$0040
BEQ L028BC4
CMP #$0060
BEQ L028BBF
CMP #$0080
BNE L028BE4
SEC
LDA [$AE],Y
SBC #$8000
TAX
INY
INY
LDA [$AE],Y
INY
PHY
AND #$00FF
SBC #$0000
CLC
ADC #$0080
PHA
PHX
PEA $0000
PEA $0000
L028BB0 LDA L028BEC
PHA
LDA L028BEA
PHA
JSL L042748
PLY
BRA L028B56
L028BBF INY
INY
INY
BRA L028B56
L028BC4 SEC
LDA [$AE],Y
SBC #$8000
TAX
INY
INY
LDA [$AE],Y
INY
PHY
AND #$00FF
SBC #$0000
CLC
ADC $42
PHA
PHX
PEA $0000
PEA $0001
BRA L028BB0
L028BE4 BRL L02894C
L028BE7 PLA
CLC
RTS
L028BEA DB $00
DB $00
L028BEC DB $00
DB $00
L028BEE DB $00
DB $00
L028BF0 DB $00
DB $00
L028BF2 DB $00
DB $00
L028BF4 DW $0004 ; Parms for Read
L028BF6 DW $0000 ; ref num
L028BF8 ADRL $00000000 ; buffer ptr
L028BFC ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L028C04 LDA [$F8]
AND #$00FF
BEQ L028C1F
JSR L021631
BCC L028C12
CLC
RTS
L028C12 LDX #$00FE
L028C15 LDA L021658,X
STA L0282C2,X
DEX
DEX
BPL L028C15
L028C1F LDA #$0001
L028C22 STA L028F0D
PEA ^L028F13
PEA L028F13
PEA $2006 ; GetFileInfo
JSL GSOS2
BCC L028C37
BRL L028D1A
L028C37 LDA L028F37
ORA L028F37+2
BNE L028C47
LDA #$0011
JSR L020AB8
CLC
RTS
L028C47 LDA L028F37
STA L028459
LDA L028F37+2
STA L02845B
STZ L028F09
STZ L028F0B
LDA L02845D
STA L028F07
STZ L02845D
LDA L028F1B
STA L028451
STZ L0283C8
CMP #$00B1
BCC L028C7D
CMP #$00BF
BCS L028C7D
LDA #$FFFF
STA L028F09
BRA L028C88
L028C7D CMP #$00F8
BNE L028C88
LDA #$FFFF
STA L028F0B
L028C88 PEA ^L028F47
PEA L028F47
PEA $2010 ; Open
JSL GSOS2
BCC L028C9A
BRL L028D1A
L028C9A LDA L028F49
STA L028F11
STA L028457
LDAL $E0C025
AND #$0080
BEQ L028CBC
BIT L028F0B
BPL L028CB9
LDA #$0000
STA L028F0B
BRA L028CBC
L028CB9 LDA #$FFFF
L028CBC EOR L028F09
STA L028F09
BNE L028CC7
BRL L028E8C
L028CC7 JSR L028471
BCS L028D1D
LDA L0283DF
AND #$00FF
DEC
CMP #$0002
BCC L028CE0
LDA #$0009
JSR L020AB8
BRA L028D1D
L028CE0 BIT L02844D
BPL L028CEE
LDA L028F0D
DEC
BNE L028CEE
INC L028F0D
L028CEE JSR L0286E2
BCS L028D1D
JSR L02A0EA
BCS L028D1D
LDA L028451
CMP #$00B1
BEQ L028D33
CMP #$00B2
BEQ L028D33
LDA L028F0D
CMP L02844F
BEQ L028D13
BCC L028D13
DEC L028F0D
DEC
L028D13 JSR L028775
BCS L028D1D
BRA L028D33
L028D1A JSR L020AF7
L028D1D PEA ^L028F0F
PEA L028F0F
PEA $2014 ; Close
JSL GSOS2
LDA L028F07
STA L02845D
SEC
CLV
RTS
L028D33 LDA #$FFFF
STA L0283C2
STZ L0283C8
STZ L0283C6
STZ $F6
STZ L02845D
LDA L028F09
STA L0283CA
BPL L028D6F
STZ $32
LDA L02844F
STA $40
LDA $42
XBA
STA $33
LDA L0283E4
AND #$0100
BNE L028D6A
LDA L0283EE
CMP #$0001
BEQ L028D6A
BRA L028D7D
L028D6A DEC L0283C6
BRA L028D7D
L028D6F LDA L028F1D
STA $32
LDA L028F1D+1
STA $33
STZ $40
STZ $42
L028D7D JSL L041D74
LDA L0283CA
BEQ L028DB3
LDA L028451
CMP #$00B1
BEQ L028D93
CMP #$00B2
BNE L028DB3
L028D93 JSR L020D34
LDA #$FFFF
STA L0283C8
INC
STA $42
INC
JSR L028775
BCC L028DB3
L028DA5 STZ L0283C2
JSL L040FF1
JSL L041DDC
BRL L028D1D
L028DB3 STZ $5C
LDA L028449
STA $3E
BNE L028DBF
SEC
ROR $5C
L028DBF JSR L020D34
JSL L040F9B
BCS L028DA5
LDA L0283CA
BEQ L028DD9
LDA L0283CE
PHA
LDA L0283CC
PHA
JSL L0437E4
L028DD9 JSR L020D0C
JSR L029A36
JSL L042328
LDA L0283CA
BNE L028E04
LDA #$0000
JSL L0410BB
AND #$0010
BNE L028E04
PEI $42
PEA $0000
PEI $3E
JSR L028E53
PHY
PHX
JSL L042BC0
L028E04 JSR L028E33
JSR L025A75
JSR L024144
BIT L0283C4
BPL L028E15
JSR L028920
L028E15 JSR L020D34
LDA #$0000
JSR L021DBB
LDA L028F1D
STA L028453
PEA ^L028F0F
PEA L028F0F
PEA $2014 ; Close
JSL GSOS2
CLC
RTS
L028E33 LDA L0283CA
BEQ L028E4B
LDA $40
BIT L02844D
BPL L028E40
DEC
L028E40 CMP #$0002
LDA #$0000
SBC #$0000
BRA L028E4E
L028E4B EOR #$FFFF
L028E4E JSL L04507E
RTS
L028E53 LDA L028F1B
CMP #$0006
BEQ L028E6C
LDX L028E7E
L028E5E CMP L028E80,X
BEQ L028E73
DEX
DEX
BPL L028E5E
LDY #$0000
TYX
RTS
L028E6C LDY L028F1D+2
LDX L028F1D
RTS
L028E73 TXA
ASL
TAX
LDY L028E86,X
LDA L028E84,X
TAX
RTS
L028E7E DB $02
DB $00
L028E80 DB $F8
DB $00
DB $FF
DB $00
L028E84 DB $00
DB $80
L028E86 DB $00
DB $00
DB $00
DB $20
DB $00
DB $00
L028E8C LDA L028F0B
STA L0283C4
BEQ L028EA2
STZ L028F37+2
LDA L028F1D
STA L028F37
BNE L028EA2
INC L028F37+2
L028EA2 LDY L028F37+2
BEQ L028EB9
DEY
BNE L028EB0
INY
LDA L028F37
BEQ L028EB9
L028EB0 LDA #$0008 ; File/Segment longer than 64K
JSR L020AB8
BRL L028D1D
L028EB9 LDA L028F37
JSR L028896
BCC L028EC4
BRL L028D1D
L028EC4 LDA #$0001
STA L02844F
PHY
PHX
PEI $38
PEI $36
_DisposeHandle
LDA L0283CE
PHA
LDA L0283CC
PHA
_DisposeHandle
STZ L0283CE
STZ L0283CC
PLX
PLY
STY $38
STX $36
PHB
PHY
PLB
LDA |$0000,X
STA $3A
LDA |$0002,X
STA $3C
PLB
PLB
JSR L02A229
BRL L028D33
L028F07 DB $00
DB $00
L028F09 DB $00
DB $00
L028F0B DB $00
DB $00
L028F0D DB $00
DB $00
L028F0F DW $0001 ; Parms for Close
L028F11 DW $0000 ; ref num
L028F13 DW $000C ; Parms for GetFileInfo
ADRL L0282C2 ; file name
DW $0000 ; access
L028F1B DW $0000 ; file type
L028F1D ADRL $00000000 ; aux type
DW $0000 ; storage
DS 8 ; creation date
DS 8 ; modification date
ADRL $00000000 ; option list
L028F37 ADRL $00000000 ; end of file
ADRL $00000000 ; blocks used
ADRL $00000000 ; resource eof
ADRL $00000000 ; resource blocks
L028F47 DW $0003 ; Parms for Open
L028F49 DW $0000 ; ref num
ADRL L0282C2 ; path name
DW $0000 ; req access
DW $0000
L028F53 BIT $F6
BPL L028FAB
JSR L021309
BCS L028F8F
SEC
SBC #$00B1
CMP #$0002
BCS L028F94
INC
STA $42
SEP #$20
CLC
ADC #$FD
STA $3C
STA $34
REP #$20
JSR L020D0C
JSL L040F9B
JSL L042328
JSR L025A75
JSR L024144
JSR L020D34
LDA #$0000
JSR L021DBB
CLC
RTS
L028F8F LDA #$0001
BRA L028FA1
L028F94 LDA #$0003
BRA L028FA1
L028F99 LDA #$000C
BRA L028FA1
L028F9E LDA #$000B
L028FA1 JSR L020AB8
L028FA4 CLC
RTS
L028FA6 JSR L020AF7
BRA L028FA4
L028FAB BIT L0283CA
BPL L028F9E
LDA [$F8]
AND #$00FF
BNE L028FC1
JSR L02A20D
BCC L028FDB
JSR L021E04
CLC
RTS
L028FC1 PEI $FA
PEI $F8
LDX #$0002
JSL L0306BD
PLX
PLX
BCS L028F8F
TYX
BNE L028F94
DEC
BMI L028F94
CMP $40
BCS L028F99
INC
L028FDB PHA
LDA L02845D
AND #$0001
STA L029060
PEA ^L029056
PEA L029056
PEA $2010 ; Open
JSL GSOS2
PLX
BCS L028FA6
LDA L029058
STA L029064
STA L028457
TXA
JSR L028775
PHP
PEA ^L029062
PEA L029062
PEA $2014 ; Close
JSL GSOS2
PLP
BCS L028FA4
STZ $32
LDA $42
XBA
STA $33
LDA L028449
STA $3E
STZ $5C
CMP #$0000
BNE L029029
SEC
ROR $5C
L029029 JSL L040F9B
BCS L02904B
LDA L0283CE
PHA
LDA L0283CC
PHA
JSL L0437E4
JSR L020D0C
JSR L029A36
JSL L042328
JSR L025A75
JSR L024144
L02904B JSR L020D34
LDA #$0000
JSR L021DBB
CLC
RTS
L029056 DW $0004 ; Parms for Open
L029058 DW $0000 ; ref num
ADRL L0282C2 ; path name
DW $0000 ; req access
L029060 DW $0000 ; res num
L029062 DW $0001 ; Parms for Close
L029064 DW $0000 ; ref num
L029066 STZ L0293DA
LDA [$F8]
AND #$00FF
BNE L02907D
LDA L0283C2
BEQ L0290C5
DEC L0293DA
LDA #$0001
BRA L0290DD
L02907D JSR L021631
BCS L0290B3
LDA [$F8]
AND #$00FF
BNE L02908E
DEC L0293DA
BRA L0290CD
L02908E JSR L02153D
BCS L0290B3
LDX #$0004
JSR L0290B5
BCS L0290B3
STA L02845F
JSR L02153D
BCS L0290B3
LDX #$0008
JSR L0290B5
BCS L0290B3
STA L028461
STY L028463
BRA L0290CD
L0290B3 CLV
RTS
L0290B5 PEI $FA
PEI $F8
JSL L0306BD
PLX
STX $F8
PLX
STX $FA
BCC L0290CC
L0290C5 LDA #$0001
JSR L020AB8
SEC
L0290CC RTS
L0290CD LDX #$00FE
L0290D0 LDA L021658,X
STA L0282C2,X
DEX
DEX
BPL L0290D0
LDA #$0001
L0290DD STA L02934E
JSL GSOS
DW $2006 ; GetFileInfo
ADRL L029364
BCC L0290EF
L0290EC BRL L029251
L0290EF LDA L029372
CMP #$0005
BEQ L029100
LDA #$000E
JSR L020AB8
BRL L029245
L029100 JSL GSOS
DW $2010 ; Open
ADRL L029358
BCS L0290EC
LDA L02935A
STA L028457
STA L02939A
STA L0293A4
STA L0293B4
STA L0293D8
LDA L0293DA
BEQ L02912B
JSR L02949A
BCC L02912B
BRL L029245
L02912B STZ L029352
LDAL $E0C025
AND #$0080
BEQ L02913A
DEC L029352
L02913A LDA #$0004
STA L02939E
STZ L02939E+2
JSR L029308
BCS L0290EC
LDA #$0004
STA L0293BA
STZ L0293BA+2
JSR L029313
BCS L0290EC
LDA L0293C2
STA L02939E
LDA L0293C4
STA L02939E+2
JSR L029308
BCS L0290EC
LDA #$0010
STA L0293BA
JSR L029313
BCS L029194
LDA L0293D0
ADC L02939E
STA L02939E
LDA #$0000
ADC L02939E+2
STA L02939E+2
JSR L029308
BCS L029194
LDA #$0014
STA L0293BA
L02918F JSR L029313
BCC L029197
L029194 BRL L029251
L029197 LDA L0293C2
BEQ L0291C4
CMP L02845F
BNE L02918F
LDA L0293C4
CMP L028461
BNE L02918F
LDA L0293C6
CMP L028463
BNE L02918F
LDA L0293CC
BIT #$0800
BEQ L0291CD
LDA #$FFFF
EOR L029352
STA L029352
BRA L0291CD
L0291C4 LDA #$000F
JSR L020AB8
BRL L029245
L0291CD LDA L0293C8
STA L02939E
STA L028465
CLC
ADC L0293CE
STA L028469
LDA L0293CA
STA L02939E+2
STA L028467
ADC L0293D0
STA L02846B
JSR L029308
BCS L029194
JSR L0241B5
LDA #$FFFF
STA L02845D
LDA L029352
BEQ L029259
JSR L028471
BCC L029207
BRL L029245
L029207 LDA L0283DF
AND #$00FF
DEC
CMP #$0002
BCC L029218
STZ L029352
BRA L029259
L029218 BIT L02844D
BPL L029220
INC L02934E
L029220 JSR L0286E2
BCS L029245
JSR L02A0EA
BCS L029245
LDA L02934E
CMP L02844F
BEQ L029238
BCC L029238
DEC L02934E
DEC
L029238 JSR L028775
BCS L029245
JSR L02929F
L029240 JSR L029329
CLC
RTS
L029245 JSR L029329
JSR L020D34
JSR L021E04
SEC
CLV
RTS
L029251 JSR L029329
JSR L020AF7
BRA L029245
L029259 LDA L0293CE
LDY L0293D0
BEQ L029271
CPY #$0002
BCS L029269
TAX
BEQ L029271
L029269 LDA #$0008 ; File/Segment longer than 64K
JSR L020AB8
BRA L029245
L029271 STA $3E
TYX
BEQ L02927B
LDX #$FFFF
STX $5C
L02927B JSR L028896
BCS L029245
LDA #$0001
STA L02844F
STY $38
STX $36
JSR L023EF2
STY $3C
STX $3A
STZ $40
STZ $42
STZ $33
STZ $32
JSR L0292BE
BRL L029240
L02929F LDA L02844F
STA $40
LDA L02934E
STA $42
AND #$00FF
XBA
STA $33
STZ $32
STZ $5C
CLC
LDA L028449
STA $3E
BNE L0292BE
SEC
ROR $5C
L0292BE LDA #$FFFF
STA L0283C2
LDA L029352
STA L0283CA
JSL L040F9B
BCS L0292F2
LDA L0283CC
TAX
ORA L0283CE
BEQ L0292E2
LDY L0283CE
PHY
PHX
JSL L0437E4
L0292E2 JSR L020D0C
JSR L029A36
JSL L042328
JSR L025A75
JSR L024144
L0292F2 JSR L020D34
LDA #$0000
JSR L021DBB
LDA L02936C
STA L028451
LDA L02936E
STA L028453
RTS
L029308 JSL GSOS
DW $2016 ; SetMark
ADRL L029398
RTS
L029313 JSL GSOS
DW $2012 ; Read
ADRL L0293B2
RTS
JSL GSOS
DW $2012 ; Read
ADRL L0293A2
RTS
L029329 PHA
JSL GSOS
DW $2014 ; Close
ADRL L0293D6
PLA
RTS
PEI $FA
PEI $F8
JSL L0306BD
PLX
STX $F8
PLX
STX $FA
BCC L02934D
LDA #$0001
JSR L020AB8
SEC
L02934D RTS
L02934E DW $0000
DW $0000
L029352 DW $0000
DW $0000
DW $0000
L029358 DW $0004 ; Parms for Open
L02935A DW $0000 ; ref num
ADRL L0282C2 ; path name
DW $0000 ; req access
DW $0001 ; res num
L029364 DW $000C ; Parms for GetFileInfo
ADRL L0282C2 ; file name
DW $0000 ; access
L02936C DW $0000 ; file type
L02936E ADRL $00000000 ; aux type
L029372 DW $0000 ; storage
DS 8 ; creation date
DS 8 ; modification date
ADRL $00000000 ; option list
ADRL $00000000 ; end of file
ADRL $00000000 ; blocks used
ADRL $00000000 ; resource eof
ADRL $00000000 ; resource blocks
L029398 DW $0003 ; Parms for SetMark
L02939A DW $0000 ; ref num
DW $0000 ; base
L02939E ADRL $00000000 ; displacement
L0293A2 DW $0004 ; Parms for Read
L0293A4 DW $0000 ; ref num
ADRL $00000000 ; buffer ptr
ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L0293B2 DW $0004 ; Parms for Read
L0293B4 DW $0000 ; ref num
ADRL L0293C2 ; buffer ptr
L0293BA ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L0293C2 DB $00
DB $00
L0293C4 DB $00
DB $00
L0293C6 DB $00
DB $00
L0293C8 DB $00
DB $00
L0293CA DB $00
DB $00
L0293CC DB $00
DB $00
L0293CE DB $00
DB $00
L0293D0 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0293D6 DW $0001 ; Parms for Close
L0293D8 DW $0000 ; ref num
L0293DA DB $00
DB $00
L0293DC LDA L028457
STA L029492
STA L029466
STA L029480
LDA #$0004
STA L029496
STZ L029496+2
JSR L029456
BCS L029449
PEA ^L029464
PEA L029464
PEA $2012 ; Read
JSL GSOS2
BCS L029449
LDA L029476
STA L029496
LDA L029478
STA L029496+2
JSR L029456
BCS L029449
LDX L02947A
LDY L02947C
STX L029486
STY L029486+2
LDA #$8008
JSR L023ED6
BCS L02944E
STX L02846D
STY L02846F
JSR L023EF2
STX L029482
STY L029482+2
PEA ^L02947E
PEA L02947E
PEA $2012 ; Read
JSL GSOS2
BCS L029449
RTS
L029449 JSR L020AF7
SEC
RTS
L02944E LDA #$0000
JSR L020AB8
SEC
RTS
L029456 PEA ^L029490
PEA L029490
PEA $2016 ; SetMark
JSL GSOS2
RTS
L029464 DW $0005 ; Parms for Read
L029466 DW $0000 ; ref num
ADRL L029476 ; buffer ptr
ADRL $00000008 ; request count
ADRL $00000000 ; transfer count
DW $0001 ; cache priority
L029476 DB $00
DB $00
L029478 DB $00
DB $00
L02947A DB $00
DB $00
L02947C DB $00
DB $00
L02947E DW $0005 ; Parms for Read
L029480 DW $0000 ; ref num
L029482 ADRL $00000000 ; buffer ptr
L029486 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
DW $0001 ; cache priority
L029490 DW $0003 ; Parms for SetMark
L029492 DW $0000 ; ref num
DW $0000 ; base
L029496 ADRL $00000000 ; displacement
L02949A JSR L0293DC
BCC L0294A0
RTS
L0294A0 LDX L02846D
LDY L02846F
JSR L023EF2
STX $10
STY $12
LDY #$0018
LDA [$10],Y
STA L02953C
BEQ L029507
LDY #$000E
LDA [$10],Y
CLC
ADC $10
STA $10
BCC L0294C5
INC $12
L0294C5 JSL L030B27
DB $05
DB $12
DB $14
DB $3B
ADR L02950F
DB $00
DB $00
DB $00
DB $00
DB $00
BCS L0294F5
ASL
ASL
PHA
ASL
ASL
ADC $01,S
STA $01,S
PLY
LDA [$10],Y
STA L02845F
INY
INY
LDA [$10],Y
STA L028461
INY
INY
LDA [$10],Y
STA L028463
CLC
L0294F5 PHP
LDA L02846F
PHA
LDA L02846D
PHA
_DisposeHandle
PLP
RTS
L029507 LDA #$0018
JSR L020AB8
SEC
RTS
L02950F LDA $04,S
CMP #$FFFF
BNE L02951D
LDAL L02953C
STA $06,S
RTL
L02951D CMPL L02953C
BCC L02952E
LDA #^L02953E
STA $08,S
LDA #L02953E
STA $06,S
RTL
L02952E JSR L029568
LDA #^L02953F
STA $08,S
LDA #L02953F
STA $06,S
RTL
L02953C DB $00
DB $00
L02953E DB $00
L02953F DB $24
L029540 ASC " 0000 "
L029548 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
L02955C ASC "00000000"
L029564 DB $00
DB $00
L029566 DB $00
DB $00
L029568 PHB
PHK
PLB
JSR L02962F
TAY
LDA [$10],Y
STA L029566
PHA
PHA
PHA
INY
INY
LDA [$10],Y
PHA
PHA
PHA
INY
INY
LDA [$10],Y
PHA
PHA
PHA
INY
INY
INY
INY
INY
INY
LDA [$10],Y
STA L029564
_HexIt
PLA
ORA #$8080
STA L02955C
PLA
ORA #$8080
STA L02955C+2
_HexIt
PLA
ORA #$8080
STA L02955C+4
PLA
ORA #$8080
STA L02955C+6
_HexIt
PLA
ORA #$8080
STA L029540+2
PLA
ORA #$8080
STA L029540+4
LDA #$A0A0
STA L029540
LDA L029564
BIT #$0800
BEQ L0295E3
LDA #$A0E3
STA L029540
L0295E3 LDA L029566
PHA
AND #$3FFF
TAY
PLA
AND #$C000
CMP #$C000
BEQ L029608
CMP #$8000
BNE L02962A
TYA
CMP #$0030
BCS L02962A
DEC
JSR L02962F
ADC #L02964E
BRA L029615
L029608 TYA
CMP #$0003
BCS L02962A
DEC
JSR L02962F
ADC #L0299FA
L029615 TAX
LDY #$0000
L029619 LDA |$0000,X
STA L029548,Y
INX
INX
INY
INY
CPY #$0014
BCC L029619
PLB
RTS
L02962A LDA #L02963A
BRA L029615
L02962F ASL
ASL
PHA
ASL
ASL
ADC $01,S
STA $01,S
PLA
RTS
L02963A ASC "? "
L02964E ASC "rIcon "
ASC "rPicture "
ASC "rControlList "
ASC "rControlTemplate "
ASC "rC1InputString "
ASC "rPString "
ASC "rStringList "
ASC "rMenuBar "
ASC "rMenu "
ASC "rMenuItem "
ASC "rTextForLETextBox2 "
ASC "rCtlDefProc "
ASC "rCtlColorTbl "
ASC "rWindParam1 "
ASC "rWindParam2 "
ASC "rWindColor "
ASC "rTextBlock "
ASC "rStyleBlock "
ASC "rToolStartUp "
ASC "rResName "
ASC "rAlertString "
ASC "rText "
ASC "rCodeResource "
ASC "rCDEVCode "
ASC "rCDEVFlags "
ASC "rTwoRects "
ASC "rFileType "
ASC "rListRef "
ASC "rCString "
ASC "rXCMD "
L0298A6 ASC "rXFCN "
ASC "rErrorString "
ASC "rKTransTable "
ASC "rWString "
ASC "rC1OutputString "
ASC "rSoundSample "
ASC "rTERuler "
ASC "rFSequence "
ASC "rCursor "
ASC "rItemStruct "
ASC "rVersion "
ASC "rComment "
ASC "rBundle "
ASC "rFinderPath "
ASC "rPaletteWindow "
ASC "rTaggedString "
ASC "rPatternList "
L0299FA ASC "rRectList "
ASC "rPrintRecord "
ASC "rFont "
L029A36 PHP
REP #$30
LDA $AA
ORA $AC
BNE L029A41
L029A3F PLP
RTS
L029A41 LDY #$0002
LDA [$AA]
TAX
LDA [$AA],Y
TAY
BNE L029A4F
TXA
BEQ L029A3F
L029A4F STX $AE
STY $B0
L029A53 LDA [$AE]
INC $AE
BNE L029A5B
INC $B0
L029A5B AND #$00FF
BEQ L029A3F
CMP #$00E0
BCS L029A70
CLC
ADC $AE
STA $AE
BCC L029A53
INC $B0
BRA L029A53
L029A70 ASL
TAX
JMP (L029A75-$1C0,X)
L029A75 DA L029AB5
DA L029AB5
DA L029AC3
DA L029AF3
DA L029AB5
DA L029AB5
DA L029AB5
DA L029B48
DA L029AB5
DA L029AB5
DA L029AB5
DA L029B5C
DA L029B5C
DA L029B5C
DA L029B50
DA L029AB5
DA L029B48
DA L029AB5
DA L029AB5
DA L029B5C
DA L029AB5
DA L029ADB
DA L029B0E
DA L029B2B
DA L029AB5
DA L029AB5
DA L029AB5
DA L029AB5
DA L029AB5
DA L029AB5
DA L029AB5
DA L029AB5
L029AB5 PLP
RTS
L029AB7 CLC
ADC $AE
STA $AE
BCC L029AC0
INC $B0
L029AC0 BRL L029A53
L029AC3 JSR L029BB8
LDY #$0006
LDA [$AE],Y
STA L029BDB
LDA $42
STA L029BDD
JSR L029BE3
LDA #$000A
BRA L029AB7
L029ADB JSR L029BB8
LDY #$0004
LDA [$AE],Y
STA L029BDB
LDA $42
STA L029BDD
JSR L029BE3
LDA #$0006
BRA L029AB7
L029AF3 JSR L029BB8
LDY #$0008
LDA [$AE],Y
STA L029BDD
INY
INY
LDA [$AE],Y
STA L029BDB
JSR L029BE3
LDA #$000E
BRL L029AB7
L029B0E JSR L029BB8
LDY #$0004
LDA [$AE],Y
AND #$00FF
STA L029BDD
INY
LDA [$AE],Y
STA L029BDB
JSR L029BE3
LDA #$0007
BRL L029AB7
L029B2B LDY #$0002
LDA [$AE],Y
BEQ L029B35
BRL L029A3F
L029B35 LDA [$AE]
PHA
LDA #$0004
CLC
ADC $AE
STA $AE
BCC L029B44
INC $B0
L029B44 PLA
BRL L029AB7
L029B48 JSR L029BA8
LDA #$0004
BRA L029B5F
L029B50 CLC
LDA #$0004
ADC $AE
STA $AE
BCC L029B5C
INC $B0
L029B5C LDA #$0003
L029B5F CLC
ADC $AE
STA $AE
BCC L029B68
INC $B0
L029B68 LDA [$AE]
INC $AE
BNE L029B70
INC $B0
L029B70 AND #$00FF
BEQ L029B86
CMP #$0080
BCC L029B68
AND #$007F
BEQ L029B68
CMP #$0008
BCC L029B89
PLP
RTS
L029B86 BRL L029A53
L029B89 ASL
TAX
JMP (L029B8E,X)
L029B8E DA $0000
DA L029B9E
DA L029BA3
DA L029BA3
DA L029BA3
DA L029BA3
DA L029BA3
DA L029B9E
L029B9E LDA #$0004
BRA L029B5F
L029BA3 JSR L029BA8
BRA L029B68
L029BA8 LDA [$AE]
AND #$00FF
INC
CLC
ADC $AE
STA $AE
BCC L029BB7
INC $B0
L029BB7 RTS
L029BB8 LDA [$AE]
AND #$00FF
STA L029BDF
LDY #$0001
LDA [$AE],Y
AND #$00FF
STA L029BE1
INY
LDA [$AE],Y
STA L029BD7
LDA $42
STA L029BD9
RTS
L029BD7 DB $00
DB $00
L029BD9 DB $00
DB $00
L029BDB DB $00
DB $00
L029BDD DB $00
DB $00
L029BDF DB $00
DB $00
L029BE1 DB $00
DB $00
L029BE3 LDA L029BE1
BEQ L029C04
BIT #$0080
BEQ L029BFB
ORA #$FF00
L029BF0 LSR L029BDD
ROR L029BDB
INC
BNE L029BF0
BRA L029C04
L029BFB ASL L029BDB
ROL L029BDD
DEC
BNE L029BFB
L029C04 SEP #$20
LDX #$0000
LDY L029BD7
L029C0C LDA L029BDB,X
STA [$3A],Y
INX
INY
CPX L029BDF
BCC L029C0C
REP #$20
RTS
L029C1B BIT L0283C2
BMI L029C23
SEC
CLV
RTS
L029C23 JSR L020D34
LDA L0283CA
BNE L029C2E
BRL L029F92
L029C2E LDY #$0002
LDX #$001C
BIT L02845D
BMI L029C5C
JSL L0300E2
JSL L0302E1
STR "Infos on current segment"
BRA L029C7F
L029C5C DEX
JSL L0300E2
JSL L0302E1
STR "Infos on resource segment"
L029C7F JSR L02A0B4
JSR L02A0B4
JSL L0302E1
STR "Byte count ....... $"
LDA L0283D2
PHA
JSL L03065A
LDA L0283D0
PHA
JSL L030670
JSR L02A0B4
JSL L0302E1
STR "Reserved space ... $"
LDA L0283D6
PHA
JSL L03065A
LDA L0283D4
PHA
JSL L030670
JSR L02A0B4
JSL L0302E1
STR "Segment length ... $"
LDA L0283DA
PHA
JSL L03065A
LDA L0283D8
PHA
JSL L030670
JSR L02A0B4
JSL L0302E1
STR " Unused .......... $"
LDA L0283DC
PHA
JSL L03065A
JSR L02A0B4
JSL L0302E1
STR "Label length ..... $"
LDA L0283DD
PHA
JSL L03065A
JSR L02A0B4
JSL L0302E1
STR "Number length .... $"
LDA L0283DE
PHA
JSL L03065A
JSR L02A0B4
JSL L0302E1
STR "OMF version ...... $"
LDA L0283DF
PHA
JSL L03065A
JSR L02A0B4
JSL L0302E1
STR "Bank size ........ $"
LDA L0283E2
PHA
JSL L03065A
LDA L0283E0
PHA
JSL L030670
JSR L02A0B4
JSL L0302E1
STR "Kind ............. $"
LDA L0283E4
PHA
PHA
JSL L030670
JSL L0302E1
STR " "
PLA
AND #$001F
ASL
TAX
LDA L02A024,X
STA L029E34
JSL L0302E1
STR "("
BIT L0283E4
BPL L029E16
JSL L0302E1
STR "Dynamic, "
L029E16 LDA #$1000
AND L0283E4
BEQ L029E30
JSL L0302E1
STR "No spec mem, "
L029E30 JSL L030314
L029E34 ADR L02A064
JSR L02A0B4
JSL L0302E1
STR " Unused .......... $"
LDA L0283E6
PHA
JSL L030670
JSR L02A0B4
JSL L0302E1
STR "Origin ........... $"
LDA L0283EA
PHA
JSL L03065A
LDA L0283E8
PHA
JSL L030670
JSR L02A0B4
JSL L0302E1
STR "Align ............ $"
LDA L0283EE
PHA
JSL L03065A
LDA L0283EC
PHA
JSL L030670
JSR L02A0B4
JSL L0302E1
STR "Number sex ....... $"
LDA L0283F0
PHA
JSL L03065A
JSR L02A0B4
JSL L0302E1
STR " Unused .......... $"
LDA L0283F1
PHA
JSL L03065A
JSR L02A0B4
JSL L0302E1
STR "Segment number.... $"
LDA L0283F2
PHA
JSL L030670
JSR L02A0B4
JSL L0302E1
STR "Entry ............ $"
LDA L0283F6
PHA
JSL L03065A
LDA L0283F4
PHA
JSL L030670
JSR L02A0B4
JSL L0302E1
STR "Load name ........ "
JSL L030314
ADR L0283FC
JSR L02A0B4
JSL L0302E1
STR "Segment name ..... "
JSL L030314
ADR L028407
BRL L02A0C1
L029F92 LDY #$0002
LDX #$0019
JSL L0300E2
JSL L0302E1
STR "Infos on non-relocatable file"
JSR L02A0B4
JSR L02A0B4
JSL L0302E1
STR "File length ...... $"
LDA #$0000
BIT $5C
BPL L029FE5
INC
L029FE5 PHA
JSL L03065A
PEI $3E
JSL L030670
JSR L02A0B4
JSR L02A0B4
JSL L0302E1
STR "(Sorry, nothing more for the moment..)"
BRL L02A0C1
L02A024 DA L02A06A
DA L02A064
DA L02A070
DA L02A064
DA L02A07C
DA L02A064
DA L02A064
DA L02A064
DA L02A086
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A09A
DA L02A064
DA L02A0AA
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
DA L02A064
L02A064 STR "Data)"
L02A06A STR "Code)"
L02A070 STR "Jump Table)"
L02A07C STR "Pathname)"
L02A086 STR "Library dictionary)"
L02A09A STR "Initialization)"
L02A0AA STR "DP/Stack)"
L02A0B4 JSL L0300EE
INY
LDX #$0014
JSL L0300E2
RTS
L02A0C1 LDY #$0017
LDX #$0000
JSL L0300E2
JSL L0302E1
STR "> Press any key "
JSL L03034A
CLC
RTS
L02A0E6 DB $00
L02A0E7 DB $00
L02A0E8 DB $00
DB $00
L02A0EA JSR L02A229
LDA L02844F
STA L02A1FF
ASL
PHA
ASL
PHA
ASL
PHA
ASL
ADC $01,S
ADC $03,S
ADC $05,S
INC
PLX
PEA $0000
PHA
PEI $FC
PEA $8008
PHA
PHA
_NewHandle
PLX
PLY
BCC L02A120
LDA #$0000
JSR L020AB8
SEC
RTS
L02A120 STX L02A0E6
STY L02A0E8
PHB
PHY
PLB
LDA |$0000,X
STA $10
STAL L02A21C
LDA |$0002,X
STA $12
PLB
PLB
STA L02A21E
STZ L02A201
LDA L028457
STA L02A205
STZ L02A209
STZ L02A209+2
BIT L02845D
BPL L02A15C
LDA L028465
STA L02A209
LDA L028467
STA L02A209+2
L02A15C JSL GSOS
DW $2016 ; SetMark
ADRL L02A203
BCS L02A181
JSR L028471
BCS L02A184
LDA L0283D0
ADC L02A209
STA L02A209
LDA L0283D2
ADC L02A209+2
STA L02A209+2
BRA L02A189
L02A181 JSR L020AF7
L02A184 JSR L02A229
SEC
RTS
L02A189 SEP #$20
LDY L02A201
LDA L028407
CMP #$19
BCC L02A19B
LDA #$18
STA L028407
CLC
L02A19B ADC #$05
STA [$10],Y
INY
REP #$20
PHY
LDA L0283F3
JSL L030837
PLY
STA [$10],Y
INY
INY
PHY
LDA L0283F2
BNE L02A1BD
SEC
LDA L02844F
SBC L02A1FF
INC
L02A1BD JSL L030837
PLY
STA [$10],Y
INY
INY
SEP #$20
LDA #$A0
STA [$10],Y
INY
LDA L028407
BEQ L02A1E9
LDX #$0001
L02A1D5 LDA L028407,X
INX
ORA #$80
CMP #$A0
BCS L02A1E1
LDA #$A0
L02A1E1 STA [$10],Y
INY
DEC L028407
BNE L02A1D5
L02A1E9 STY L02A201
REP #$20
DEC L02A1FF
BEQ L02A1F6
BRL L02A15C
L02A1F6 SEP #$20
LDA #$00
STA [$10],Y
REP #$21
RTS
L02A1FF DB $00
DB $00
L02A201 DB $00
DB $00
L02A203 DW $0003 ; Parms for SetMark
L02A205 DW $0000 ; ref num
DW $0000 ; base
L02A209 ADRL $00000000 ; displacement
L02A20D LDA L02A0E7
BNE L02A214
SEC
RTS
L02A214 JSL L0308F3
DB $06
DB $12
DB $18
DB $37
L02A21C DB $00
DB $00
L02A21E DB $00
DB $00
PHP
INC
PHA
JSR L020D34
PLA
PLP
RTS
L02A229 LDA L02A0E7
BEQ L02A240
LDA L02A0E8
PHA
LDA L02A0E6
PHA
_DisposeHandle
STZ L02A0E7
L02A240 RTS
L02A241 LDY #$0001
TYX
DEX
LDA #$8008
JSR L023ED6
BCC L02A24F
RTS
L02A24F PHB
PHY
PLB
LDA |$0000,X
STA $00
STAL L02A831
LDA |$0002,X
STA $02
PLB
PLB
STA L02A831+2
STX L02A89B
STY L02A89D
LDY #$0000
TYA
L02A26F STA [$00],Y
INY
INY
BNE L02A26F
LDY #$0001
TYX
DEX
LDA #$8008
JSR L023ED6
BCC L02A283
RTS
L02A283 PHB
PHY
PLB
LDA |$0000,X
STA $00
STAL L02A80E
LDA |$0002,X
STA $02
PLB
PLB
STA L02A80E+2
STX L02A89F
STY L02A8A1
LDA L028457
STA L02A82F
STA L02A80C
STA L02A7C0
STA L02A7E5
STA L02A865
STA L02A7A3
STZ L02A893
STZ L02A897
STZ L02A895
STZ L02A899
L02A2C0 JSR L02A7AB
BNE L02A327
STA [$00]
INC L02A897
BNE L02A2CF
INC L02A899
L02A2CF LDA L0283D4
STA L02A7F3
LDA L0283D6
STA L02A7F5
JSR L02A6DD
BCS L02A339
JSR L02A33E
LDA L02A899
PHA
LDA L02A897
PHA
LDY L02A8A1
PHY
LDX L02A89F
PHX
PHY
PHX
_HUnlock
_SetHandleSize
PLX
LDA L02A899
PHA
LDA L02A897
PHA
LDA L02A8A1
PHA
LDA L02A89F
PHA
LDA L02A895
PHA
LDA L02A893
PHA
LDA L02A89D
PHA
LDA L02A89B
PHA
PHX
CLC
RTS
L02A327 CMP #$00E0
BCS L02A331
JSR L02A71E
BRA L02A337
L02A331 ASL
TAX
LSR
JSR (L02A36E-$1C0,X)
L02A337 BCC L02A2C0
L02A339 JSR L02A761
SEC
RTS
L02A33E LDA L0283C8
BEQ L02A36D
LDA L0283E4
AND #$00FF
CMP #$0008
BEQ L02A36D
LDA L028428
AND #$00FF
BEQ L02A36D
LDA L0283F2
PHA
PEA $0000
PEA $0001
PEA $0001
PEA ^L028428
PEA L028428
JSL L042748
L02A36D RTS
L02A36E DA L02A3AE
DA L02A3AE
DA L02A622
DA L02A622
DA L02A3B4
DA L02A3B4
DA L02A40F
DA L02A583
DA L02A3C0
DA L02A3C0
DA L02A3C0
DA L02A4A2
DA L02A4A2
DA L02A4A2
DA L02A43F
DA L02A40A
DA L02A583
DA L02A6C4
DA L02A726
DA L02A4A2
DA L02A3B7
DA L02A622
DA L02A622
DA L02A5E8
DA L02A3C0
DA L02A3C0
DA L02A3C0
DA L02A3C0
DA L02A3C0
DA L02A3C0
DA L02A3C0
DA L02A3C0
L02A3AE LDA #$0004
BRL L02A78E
L02A3B4 BRL L02A780
L02A3B7 LDA #$0006
JSR L02A78E
BRL L02A780
L02A3C0 PHA
JSR L02A5CA
JSL L0302E1
STR "Unsupported OMF type $"
JSL L03065A
JSL L0302E1
STR " "
JSL L03034A
JSR L020CED
SEC
RTS
L02A3F2 LDA L0283DD
AND #$00FF
BNE L02A400
JSR L02A7AB
BCC L02A400
RTS
L02A400 STA L02A86B
STA L02A873
JSR L02A83D
RTS
L02A40A LDA #$0000
BRA L02A412
L02A40F LDA #$0001
L02A412 STA L02A43D
JSR L02A3F2
BCC L02A41B
RTS
L02A41B LDA L0283F2
PHA
LDA L02A893
PHA
PEA $0001
LDA L02A43D
PHA
PEA ^L02A873
PEA L02A873
JSL L042748
LDA L0283DF
INC
INC
JSR L02A78E
RTS
L02A43D DB $00
DB $00
L02A43F STZ L02A581
STA [$00]
INC $00
BNE L02A44A
INC $02
L02A44A INC L02A581
JSR L02A7AB
BCC L02A453
RTS
L02A453 PHA
STA [$00]
INC $00
BNE L02A45C
INC $02
L02A45C INC L02A581
JSR L02A7D0
PLA
BCC L02A466
RTS
L02A466 PHA
LDA L02A7F3
STA [$00]
LDY #$0002
LDA L02A7F5
STA [$00],Y
CLC
LDA #$0004
PHA
ADC $00
STA $00
BCC L02A481
INC $02
L02A481 PLA
ADC L02A581
STA L02A581
LDA L02A893
STA [$00]
INC $00
BNE L02A493
INC $02
L02A493 INC $00
BNE L02A499
INC $02
L02A499 INC L02A581
INC L02A581
PLA
BRA L02A4D8
L02A4A2 STZ L02A581
STA [$00]
INC $00
BNE L02A4AD
INC $02
L02A4AD INC L02A581
LDA L02A893
STA [$00]
INC $00
BNE L02A4BB
INC $02
L02A4BB INC $00
BNE L02A4C1
INC $02
L02A4C1 INC L02A581
INC L02A581
JSR L02A7AB
BCC L02A4CD
RTS
L02A4CD STA [$00]
INC $00
BNE L02A4D5
INC $02
L02A4D5 INC L02A581
L02A4D8 PHA
CLC
ADC L02A893
STA L02A893
BCC L02A4E5
INC L02A895
L02A4E5 PLA
CLC
ADC L02A831
STA L02A831
BCC L02A4F2
INC L02A831+2
L02A4F2 JSR L02A7AB
BCC L02A4F8
RTS
L02A4F8 STA [$00]
INC $00
BNE L02A500
INC $02
L02A500 INC L02A581
CMP #$0000
BEQ L02A517
CMP #$0080
BCC L02A4F2
AND #$007F
BEQ L02A4F2
ASL
TAX
JMP (L02A521,X)
L02A517 LDY #$0000
LDX L02A581
JSR L02A66F
RTS
L02A521 DA $0000
DA L02A531
DA L02A55D
DA L02A55D
DA L02A55D
DA L02A55D
DA L02A55D
DA L02A531
L02A531 JSR L02A7D0
BCC L02A537
RTS
L02A537 LDA L02A7F3
STA [$00]
LDY #$0002
LDA L02A7F5
STA [$00],Y
LDA #$0004
L02A547 CLC
PHA
ADC $00
STA $00
LDA #$0000
ADC $02
STA $02
PLA
ADC L02A581
STA L02A581
BRA L02A4F2
L02A55D JSR L02A3F2
BCC L02A563
RTS
L02A563 LDA L02A873
AND #$00FF
INC
PHA
SEP #$30
LDX #$00
TXY
L02A570 LDA L02A873,X
STA [$00],Y
INX
INY
DEC L02A873
BPL L02A570
REP #$30
PLA
BRA L02A547
L02A581 DB $00
DB $00
L02A583 STZ L02A581
STA [$00]
INC $00
BNE L02A58E
INC $02
L02A58E INC L02A581
JSR L02A3F2
BCC L02A597
RTS
L02A597 LDA L02A873
AND #$00FF
INC
PHA
SEP #$30
LDX #$00
TXY
L02A5A4 LDA L02A873,X
STA [$00],Y
INX
INY
DEC L02A873
BPL L02A5A4
REP #$30
PLA
CLC
PHA
ADC $00
STA $00
LDA #$0000
ADC $02
STA $02
PLA
ADC L02A581
STA L02A581
BRL L02A531
L02A5CA JSR L020CED
L02A5CD LDY #$0017
LDX #$0000
JSL L0300E2
JSL L0302E1
STR 87"> Loader: "
RTS
L02A5E8 STA [$00]
INC $00
BNE L02A5F0
INC $02
L02A5F0 JSR L02A7D0
BCC L02A5F6
RTS
L02A5F6 LDA L02A7F3
STA [$00]
LDY #$0002
LDA L02A7F5
BEQ L02A606
BRL L02A68A
L02A606 STA [$00],Y
CLC
LDA #$0004
ADC $00
STA $00
LDA #$0000
ADC $02
STA $02
LDX #$0005
LDY #$0000
JSR L02A66F
BRA L02A63F
L02A622 STA [$00]
INC $00
BNE L02A62A
INC $02
L02A62A INC L02A897
BNE L02A632
INC L02A899
L02A632 TAX
LDA L02A5CD,X
AND #$00FF
STA L02A7F3
STZ L02A7F5
L02A63F LDA L02A7F3
STA L02A812
STZ L02A812+2
LDA $00
STA L02A80E
LDA $02
STA L02A80E+2
LDX L02A7F3
LDY #$0000
JSR L02A66F
BCC L02A65E
RTS
L02A65E LDA L02A7F3
ADC $00
STA $00
LDA #$0000
ADC $02
STA $02
BRL L02A7F7
L02A66F CLC
TXA
ADC L02A897
STA L02A897
TYA
ADC L02A899
STA L02A899
BEQ L02A688
DEC
BNE L02A68A
LDA L02A897
BNE L02A68A
L02A688 CLC
RTS
L02A68A JSR L02A5CA
JSL L0302E1
STR "Too many OMF records "
L02A6A7 JSL L03034A
SEC
RTS
DB $00
DB $00
DB $0A
DB $0E
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 $06
DB $07
L02A6C4 JSR L02A7D0
BCC L02A6CA
RTS
L02A6CA CLC
LDA L02A7F3
ADC L02A831
STA L02A831
LDA L02A7F5
ADC L02A831+2
STA L02A831+2
L02A6DD LDA L02A7F3
ADC L02A893
STA L02A893
LDA L02A7F5
ADC L02A895
STA L02A895
BEQ L02A6F9
DEC
BNE L02A6FB
LDA L02A893
BNE L02A6FB
L02A6F9 CLC
RTS
L02A6FB JSR L02A5CA
JSL L0302E1
STR "Segment longer than 64K "
BRL L02A6A7
L02A71E STA L02A7F3
STZ L02A7F5
BRA L02A72C
L02A726 JSR L02A7D0
BCC L02A72C
RTS
L02A72C CLC
LDA L02A7F3
STA L02A835
LDA L02A7F5
STA L02A835+2
JSR L02A6DD
BCC L02A73F
RTS
L02A73F JSR L02A81A
BCC L02A745
RTS
L02A745 LDA L02A7F3
ADC L02A831
STA L02A831
LDA L02A7F5
ADC L02A831+2
STA L02A831+2
CLC
RTS
L02A759 JSR L020AF7
JSR L02A761
SEC
RTS
L02A761 LDA L02A89D
PHA
LDA L02A89B
PHA
_DisposeHandle
LDA L02A8A1
PHA
LDA L02A89F
PHA
_DisposeHandle
RTS
L02A780 LDA L0283DD
AND #$00FF
BNE L02A78E
JSR L02A7AB
BCC L02A78E
RTS
L02A78E STA L02A7A7
PEA ^L02A7A1
PEA L02A7A1
PEA $2016 ; SetMark
JSL GSOS2
BCS L02A759
RTS
L02A7A1 DW $0003 ; Parms for SetMark
L02A7A3 DW $0000 ; ref num
DW $0002 ; base
L02A7A7 ADRL $00000000 ; displacement
L02A7AB PEA ^L02A7BE
PEA L02A7BE
PEA $2012 ; Read
JSL GSOS2
BCS L02A759
LDA L02A7CE
RTS
L02A7BE DW $0004 ; Parms for Read
L02A7C0 DW $0000 ; ref num
ADRL L02A7CE ; buffer ptr
ADRL $00000001 ; request count
ADRL $00000000 ; transfer count
L02A7CE DW $0000
L02A7D0 PEA ^L02A7E3
PEA L02A7E3
PEA $2012 ; Read
JSL GSOS2
BCC L02A7E2
BRL L02A759
L02A7E2 RTS
L02A7E3 DW $0004 ; Parms for Read
L02A7E5 DW $0000 ; ref num
ADRL L02A7F3 ; buffer ptr
ADRL $00000004 ; request count
ADRL $00000000 ; transfer count
L02A7F3 DW $0000
L02A7F5 DW $0000
L02A7F7 PEA ^L02A80A
PEA L02A80A
PEA $2012 ; Read
JSL GSOS2
BCC L02A809
BRL L02A759
L02A809 RTS
L02A80A DW $0004 ; Parms for Read
L02A80C DW $0000 ; ref num
L02A80E ADRL $00000000 ; buffer ptr
L02A812 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02A81A PEA ^L02A82D
PEA L02A82D
PEA $2012 ; Read
JSL GSOS2
BCC L02A82C
BRL L02A759
L02A82C RTS
L02A82D DW $0004 ; Parms for Read
L02A82F DW $0000 ; ref num
L02A831 ADRL $00000000 ; buffer ptr
L02A835 ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02A83D PEA ^L02A863
PEA L02A863
PEA $2012 ; Read
JSL GSOS2
BCC L02A84F
BRL L02A759
L02A84F SEP #$30
LDX L02A873
L02A854 LDA L02A873,X
ORA #$80
STA L02A873,X
DEX
BNE L02A854
REP #$30
CLC
RTS
L02A863 DW $0004 ; Parms for Read
L02A865 DW $0000 ; ref num
ADRL L02A874 ; buffer ptr
L02A86B ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
L02A873 DB $00
L02A874 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
L02A893 DB $00
DB $00
L02A895 DB $00
DB $00
L02A897 DB $00
DB $00
L02A899 DB $00
DB $00
L02A89B DB $00
DB $00
L02A89D DB $00
DB $00
L02A89F DB $00
DB $00
L02A8A1 DB $00
DB $00