
*---------------------------------------------------------*
*     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-2021 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  DB    $00
         DB    $00
L021498  DB    $00
         DB    $00
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  DB    $00
         DB    $00
L021521  DB    $00
         DB    $00
L021523  DB    $00
         DB    $00
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
         ADRL  L0217D4	; 2
         ADRL  L0217D3	; 3
         ADRL  L0217D2	; 4
         ADRL  L0217D1	; 5
         ADRL  L0217D0	; 6
         ADRL  L021858	; 7
         ADRL  L02186B	; 8
         ADRL  L0218B5	; 9
         ADRL  L0219C7	; 10
         ADRL  L0218B0	; 11
         ADRL  L0217AD	; 12
         ADRL  L0217AD	; 13
         ADRL  L021A4A	; 14
         ADRL  L021A45	; 15
         ADRL  L0217C6	; 16
	 
L02179C  DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0
         DB    $C0

L0217AD  CLC
         RTS

         PHP
         REP   #$30
         PHA
         PHX
         PEA   $E030
         PHA
         PHX
         PEA   $E020
         JSL   L0435FB
         JSL   L0435FB
         PLP
         RTS

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
         STY   L021841
         JSR   L021339
         BCS   L0217F7
         STA   L02183F
         STY   L02183D
         JSR   L02141A
         BCS   L0217F7
         STY   L021845
         BRA   L0217F9
L0217F7  CLC
         RTS

L0217F9  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
         PHA
         LDA   L02183F
         PHA
         LDA   L021843
         PHA
         LDA   L021841
         PHA
         JSL   L043069
         LDA   L02183F
         ADC   L021843
         STA   L02183F
         DEC   L021845
         BNE   L021819
         CLC
         RTS

L02183D  DB    $00
         DB    $00
L02183F  DB    $00
         DB    $00
L021841  DB    $00
         DB    $00
L021843  DB    $00
         DB    $00
L021845  DB    $00
         DB    $00
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
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  DB    $00
         DB    $00
L0218AD  DB    $00
         DB    $00
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  DB    $00
         DB    $00
L0219C0  DB    $00
         DB    $00
L0219C2  DB    $00
         DB    $00
L0219C4  DB    $00
         DB    $00
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  DB    $00
         DB    $00
L021A43  DB    $00
         DB    $00
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  DB    $00
         DB    $00
L021AC4  DB    $00
         DB    $00
L021AC6  DB    $00
         DB    $00

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 ONEON
	adrl	doCHOFF	; 52 ONEOFF

*---

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 ONEON
	db	$00	; 52 ONEOFF

*--- 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 ........................ Byte/Word"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.5"	; was "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"

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
