mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-29 11:30:55 +00:00
5084 lines
96 KiB
ArmAsm
5084 lines
96 KiB
ArmAsm
|
|
*---------------------------------------------------------*
|
|
* Disassembled with The Flaming Bird Disassembler *
|
|
* (c) Phoenix corp. 1992,93 - All rights reserved *
|
|
*---------------------------------------------------------*
|
|
|
|
mx %00
|
|
rel
|
|
lst off
|
|
|
|
*-----------------------
|
|
|
|
use 4/Mem.Macs
|
|
use 4/Util.Macs
|
|
|
|
use SCRIPTS.E
|
|
use SCRIPTS.X
|
|
|
|
*-----------------------
|
|
|
|
L050000 DB $00
|
|
DB $00
|
|
L050002 DB $00
|
|
DB $00
|
|
L050004 DB $00
|
|
DB $00
|
|
L050006 DB $00
|
|
DB $00
|
|
L050008 DB $00
|
|
DB $00
|
|
L05000A DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L050028 DB $00
|
|
DB $00
|
|
L05002A DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L050090 DB $00
|
|
L050091 DB $00
|
|
L050092 DB $00
|
|
L050093 DB $00
|
|
L050094 DB $00
|
|
DB $00
|
|
L050096 DB $00
|
|
DB $00
|
|
L050098 DB $00
|
|
DB $00
|
|
L05009A ADRL L0500AA
|
|
ADRL L040326
|
|
ADRL L0500D3
|
|
ADRL $00000000
|
|
|
|
L0500AA ASC "END"
|
|
ASC 'S'
|
|
ASC "I"
|
|
ASC 'F'
|
|
ASC "ELS"
|
|
ASC 'E'
|
|
ASC "FI"
|
|
ASC 'N'
|
|
ASC "G"
|
|
ASC 'O'
|
|
ASC "SCRIP"
|
|
ASC 'T'
|
|
ASC "EXE"
|
|
ASC 'C'
|
|
ASC "O"
|
|
ASC 'N'
|
|
ASC "REC"
|
|
ASC 'T'
|
|
ASC "CLEA"
|
|
ASC 'R'
|
|
ASC "ECH"
|
|
ASC 'O'00
|
|
|
|
L0500D3 ASC "M"
|
|
ASC 'X'
|
|
ASC "OR"
|
|
ASC 'G'
|
|
ASC "RE"
|
|
ASC 'L'
|
|
ASC "ERE"
|
|
ASC 'L'
|
|
ASC "DB"
|
|
ASC 'R'
|
|
ASC "OF"
|
|
ASC 'F'
|
|
ASC "CO"
|
|
ASC 'M'00
|
|
|
|
L0500E9 DB $00
|
|
DB $00
|
|
L0500EB DB $00
|
|
DB $00
|
|
L0500ED DB $00
|
|
DB $00
|
|
L0500EF DB $00
|
|
DB $00
|
|
L0500F1 DB $00
|
|
L0500F2 DB $00
|
|
|
|
L0500F3 DW $0002 ; Parms for ExpandPath
|
|
L0500F5 ADRL $00000000 ; path name
|
|
ADRL L050141 ; new pathname
|
|
|
|
L0500FD DW $0009 ; Parms for GetFileInfo
|
|
ADRL L050143 ; file name
|
|
DW $0000 ; access
|
|
DW $0000 ; file type
|
|
ADRL $00000000 ; aux type
|
|
DW $0000 ; storage
|
|
DS 8 ; creation date
|
|
DS 8 ; modification date
|
|
ADRL $00000000 ; option list
|
|
L050121 ADRL $00000000 ; end of file
|
|
|
|
L050125 DW $0002 ; Parms for Open
|
|
L050127 DW $0000 ; ref num
|
|
ADRL L050143 ; path name
|
|
|
|
L05012D DW $0004 ; Parms for Read
|
|
L05012F DW $0000 ; ref num
|
|
L050131 ADRL $00000000 ; buffer ptr
|
|
L050135 ADRL $00000000 ; request count
|
|
L050139 ADRL $00000000 ; transfer count
|
|
|
|
L05013D DW $0001 ; Parms for Close
|
|
L05013F DW $0000 ; ref num
|
|
L050141 DB $00
|
|
DB $01
|
|
L050143 ENT
|
|
DB $00
|
|
DB $00
|
|
L050145 ENT
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
|
|
L050245 PHP
|
|
REP #$30
|
|
LDA $D0
|
|
ORA $D2
|
|
BEQ L050260
|
|
LDY #$0002
|
|
LDA [$D0]
|
|
STA $D4
|
|
LDA [$D0],Y
|
|
STA $D6
|
|
ORA $D4
|
|
BEQ L050260
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050260 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050263 PHP
|
|
REP #$30
|
|
LDA $E0
|
|
ORA $E2
|
|
BEQ L05027E
|
|
LDY #$0002
|
|
LDA [$E0]
|
|
STA $E4
|
|
LDA [$E0],Y
|
|
STA $E6
|
|
ORA $E4
|
|
BEQ L05027E
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L05027E PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050281 BRK $00
|
|
L050283 PHP
|
|
REP #$30
|
|
LDA $D0
|
|
ORA $D2
|
|
BEQ L050299
|
|
LDY #$0004
|
|
LDA [$D0],Y
|
|
ORA #$8000
|
|
STA [$D0],Y
|
|
DEC L050281
|
|
L050299 PLP
|
|
RTS
|
|
|
|
PHP
|
|
REP #$30
|
|
LDA $D0
|
|
ORA $D2
|
|
BEQ L0502B3
|
|
INC L050281
|
|
BNE L0502B3
|
|
LDY #$0004
|
|
LDA [$D0],Y
|
|
AND #$7FFF
|
|
STA [$D0],Y
|
|
L0502B3 PLP
|
|
RTS
|
|
|
|
L0502B5 PHP
|
|
REP #$30
|
|
LDA $E2
|
|
ORA $E0
|
|
BEQ L0502D0
|
|
PEI $E2
|
|
PEI $E0
|
|
_DisposeHandle
|
|
STZ $E2
|
|
STZ $E0
|
|
STZ L0500E9
|
|
L0502D0 PLP
|
|
CLC
|
|
RTS
|
|
|
|
L0502D3 PHP
|
|
SEP #$20
|
|
REP #$10
|
|
LDY #$FFFF
|
|
L0502DB INY
|
|
LDA [$DC],Y
|
|
BEQ L050309
|
|
AND #$7F
|
|
CMP #$0D
|
|
BNE L0502DB
|
|
L0502E6 INY
|
|
LDA [$DC],Y
|
|
AND #$7F
|
|
CMP #$0D
|
|
BEQ L0502E6
|
|
CMP #$2A
|
|
BEQ L0502DB
|
|
CMP #$3B
|
|
BEQ L0502DB
|
|
REP #$20
|
|
TYA
|
|
CLC
|
|
ADC $DC
|
|
STA $DC
|
|
LDA #$0000
|
|
ADC $DE
|
|
STA $DE
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050309 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L05030C PHP
|
|
REP #$30
|
|
LDA $E2
|
|
ORA $E0
|
|
BNE L05031E
|
|
JSR L050379
|
|
BCS L050376
|
|
STX $E0
|
|
STY $E2
|
|
L05031E LDY #$0002
|
|
LDA [$E0]
|
|
STA $E4
|
|
LDA [$E0],Y
|
|
STA $E6
|
|
L050329 LDX #$00FF
|
|
LDY #$0002
|
|
L05032F LDA [$E4]
|
|
ORA [$E4],Y
|
|
BEQ L050363
|
|
CLC
|
|
LDA #$0004
|
|
ADC $E4
|
|
STA $E4
|
|
LDA #$0000
|
|
ADC $E6
|
|
STA $E6
|
|
DEX
|
|
BNE L05032F
|
|
LDA [$E4]
|
|
ORA [$E4],Y
|
|
BEQ L050366
|
|
L05034D LDA [$E4]
|
|
PHA
|
|
LDA [$E4],Y
|
|
STA $E6
|
|
PLA
|
|
STA $E4
|
|
LDA [$E4]
|
|
PHA
|
|
LDA [$E4],Y
|
|
STA $E6
|
|
PLA
|
|
STA $E4
|
|
BRA L050329
|
|
L050363 PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050366 JSR L050379
|
|
BCS L050376
|
|
TXA
|
|
STA [$E4]
|
|
TYA
|
|
LDY #$0002
|
|
STA [$E4],Y
|
|
BRA L05034D
|
|
L050376 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050379 PHA
|
|
PHA
|
|
PEA $0000
|
|
PEA $0400
|
|
LDA $FE
|
|
ORA #$0400
|
|
PHA
|
|
PEA $0008
|
|
PHA
|
|
PHA
|
|
_NewHandle
|
|
PLX
|
|
PLY
|
|
BCS L0503C4
|
|
PHP
|
|
PHY
|
|
PHX
|
|
PEI $00
|
|
PEI $02
|
|
STX $00
|
|
STY $02
|
|
LDY #$0002
|
|
LDA [$00]
|
|
PHA
|
|
LDA [$00],Y
|
|
STA $02
|
|
PLA
|
|
STA $00
|
|
LDY #$03FE
|
|
LDA #$0000
|
|
L0503B5 STA [$00],Y
|
|
DEY
|
|
DEY
|
|
BPL L0503B5
|
|
PLA
|
|
STA $02
|
|
PLA
|
|
STA $00
|
|
PLX
|
|
PLY
|
|
PLP
|
|
L0503C4 RTS
|
|
|
|
L0503C5 PHP
|
|
REP #$30
|
|
JSR L0502B5
|
|
JSR L050245
|
|
LDA $D6
|
|
STA $DE
|
|
LDA $D4
|
|
STA $DC
|
|
L0503D6 LDY #$0000
|
|
SEP #$20
|
|
LDA [$DC],Y
|
|
AND #$5F
|
|
CMP #$41
|
|
BCC L0503E7
|
|
CMP #$5B
|
|
BCC L0503EE
|
|
L0503E7 JSR L0502D3
|
|
BCC L0503D6
|
|
PLP
|
|
RTS
|
|
|
|
L0503EE INY
|
|
LDA [$DC],Y
|
|
AND #$7F
|
|
CMP #$20
|
|
BEQ L05040F
|
|
CMP #$5F
|
|
BEQ L0503EE
|
|
CMP #$30
|
|
BCC L0503E7
|
|
CMP #$3A
|
|
BCC L0503EE
|
|
AND #$5F
|
|
CMP #$41
|
|
BCC L0503E7
|
|
CMP #$5B
|
|
BCC L0503EE
|
|
BRA L0503E7
|
|
L05040F STY L050492
|
|
INY
|
|
LDX #$0000
|
|
L050416 LDA [$DC],Y
|
|
AND #$5F
|
|
CMP L05048C,X
|
|
BNE L0503E7
|
|
INY
|
|
INX
|
|
CPX #$0006
|
|
BCC L050416
|
|
JSR L05030C
|
|
REP #$20
|
|
PHA
|
|
PHA
|
|
PEA $0000
|
|
LDA L050492
|
|
INC
|
|
PHA
|
|
LDA $FE
|
|
ORA #$0400
|
|
PHA
|
|
PEA $0008
|
|
PHA
|
|
PHA
|
|
_NewHandle
|
|
PLA
|
|
STA $00
|
|
STA [$E4]
|
|
LDY #$0002
|
|
PLA
|
|
STA $02
|
|
STA [$E4],Y
|
|
LDA [$00]
|
|
PHA
|
|
LDA [$00],Y
|
|
STA $02
|
|
PLA
|
|
STA $00
|
|
SEP #$20
|
|
LDY #$0000
|
|
L050463 LDA [$DC],Y
|
|
AND #$7F
|
|
INY
|
|
STA [$00],Y
|
|
DEC L050492
|
|
BNE L050463
|
|
TYA
|
|
STA [$00]
|
|
REP #$20
|
|
LDY #$0004
|
|
SEC
|
|
LDA $DC
|
|
SBC $D4
|
|
STA [$E4],Y
|
|
INY
|
|
INY
|
|
LDA $DE
|
|
SBC $D6
|
|
STA [$E4],Y
|
|
INC L0500E9
|
|
BRL L0503E7
|
|
|
|
L05048C ASC 'SCRIPT'
|
|
|
|
L050492 DW $0000
|
|
|
|
L050494 PHP
|
|
REP #$30
|
|
JSR L050263
|
|
BCS L050513
|
|
L05049C LDX #$00FF
|
|
L05049F LDY #$0002
|
|
LDA [$E4]
|
|
STA $00
|
|
LDA [$E4],Y
|
|
STA $02
|
|
ORA $00
|
|
BEQ L050513
|
|
LDA [$00]
|
|
PHA
|
|
LDA [$00],Y
|
|
STA $02
|
|
PLA
|
|
STA $00
|
|
LDA [$DC]
|
|
AND #$00FF
|
|
TAY
|
|
SEP #$20
|
|
L0504C0 LDA [$DC],Y
|
|
EOR [$00],Y
|
|
AND #$7F
|
|
BNE L0504E5
|
|
DEY
|
|
BPL L0504C0
|
|
REP #$20
|
|
JSR L050245
|
|
CLC
|
|
LDY #$0004
|
|
LDA [$E4],Y
|
|
ADC $D4
|
|
STA $D4
|
|
INY
|
|
INY
|
|
LDA [$E4],Y
|
|
ADC $D6
|
|
STA $D6
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L0504E5 REP #$20
|
|
CLC
|
|
LDA #$0008
|
|
ADC $E4
|
|
STA $E4
|
|
BCC L0504F3
|
|
INC $E5
|
|
L0504F3 DEX
|
|
BNE L05049F
|
|
LDY #$0002
|
|
LDA [$E4]
|
|
PHA
|
|
LDA [$E4],Y
|
|
STA $E6
|
|
PLA
|
|
STA $E4
|
|
ORA $E6
|
|
BEQ L050513
|
|
LDA [$E4]
|
|
PHA
|
|
LDA [$E4],Y
|
|
STA $E6
|
|
PLA
|
|
STA $E4
|
|
BRA L05049C
|
|
L050513 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050516 PHP
|
|
REP #$30
|
|
LDA $D2
|
|
ORA $D0
|
|
BEQ L05052E
|
|
PEI $D2
|
|
PEI $D0
|
|
_DisposeHandle
|
|
STZ $D2
|
|
STZ $D0
|
|
L05052E JSR L0502B5
|
|
STZ L050281
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050537 ENT
|
|
PHP
|
|
REP #$30
|
|
LDA $FE
|
|
ORA #$0400
|
|
PHA
|
|
_DisposeAll
|
|
STZ $D8
|
|
PLP
|
|
CLC
|
|
RTL
|
|
|
|
L05054C ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PHP
|
|
REP #$30
|
|
STA L0500F5
|
|
STY L0500F5+2
|
|
ORA L0500F5+2
|
|
BEQ L05056C
|
|
JSL GSOS
|
|
DW $200E ; ExpandPath
|
|
ADRL L0500F3
|
|
BCC L05056C
|
|
BRL L050636
|
|
L05056C JSL GSOS
|
|
DW $2006 ; GetFileInfo
|
|
ADRL L0500FD
|
|
BCC L05057B
|
|
BRL L050636
|
|
L05057B LDA L050121
|
|
ORA L050121+2
|
|
BNE L050586
|
|
BRL L050623
|
|
L050586 LDX L050121
|
|
STX L050135
|
|
LDY L050121+2
|
|
BEQ L050594
|
|
STY L050135+2
|
|
L050594 JSR L050516
|
|
JSR L0518AD
|
|
BCC L05059F
|
|
BRL L050633
|
|
L05059F STX $D0
|
|
STY $D2
|
|
JSR L050245
|
|
BCC L0505AB
|
|
BRL L050633
|
|
L0505AB LDA $D4
|
|
STA L050131
|
|
LDA $D6
|
|
STA L050131+2
|
|
JSL GSOS
|
|
DW $2010 ; Open
|
|
ADRL L050125
|
|
BCC L0505C4
|
|
BRL L050636
|
|
L0505C4 LDA L050127
|
|
STA L05012F
|
|
STA L05013F
|
|
JSL GSOS
|
|
DW $2012 ; Read
|
|
ADRL L05012D
|
|
BCC L0505DE
|
|
CMP #$004C
|
|
BNE L050627
|
|
L0505DE JSL GSOS
|
|
DW $2014 ; Close
|
|
ADRL L05013D
|
|
LDA L050139
|
|
STA L050121
|
|
LDA L050139+2
|
|
STA L050121+2
|
|
LDY L050121+2
|
|
LDX L050121
|
|
INX
|
|
STX $D8
|
|
STY $DA
|
|
JSR L050245
|
|
LDY #$0000
|
|
L050605 LDA [$D4],Y
|
|
AND #$7F7F
|
|
STA [$D4],Y
|
|
INY
|
|
INY
|
|
BNE L050605
|
|
LDY $D8
|
|
DEY
|
|
LDA #$0000
|
|
STA [$D4],Y
|
|
JSR L0503C5
|
|
LDY #$0004
|
|
LDA #$0008
|
|
STA [$D0],Y
|
|
L050623 PLP
|
|
CLC
|
|
PLB
|
|
RTL
|
|
|
|
L050627 PHA
|
|
JSL GSOS
|
|
DW $2014 ; Close
|
|
ADRL L05013D
|
|
PLA
|
|
L050633 LDA #$0000
|
|
L050636 PLP
|
|
SEC
|
|
PLB
|
|
RTL
|
|
|
|
L05063A ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PHP
|
|
REP #$30
|
|
STZ L0500F1
|
|
LDAL $E0C025
|
|
AND #$0002
|
|
BEQ L050654
|
|
SEC
|
|
ROR L0500F1
|
|
JSL L0300D1
|
|
L050654 STZ L050006
|
|
LDA $3E
|
|
STA L050004
|
|
BNE L050661
|
|
INC L050006
|
|
L050661 STZ L050000
|
|
LDA $42
|
|
STA L050002
|
|
STZ L05000A
|
|
LDAL L0283E4
|
|
STA L050008
|
|
LDA $06,S
|
|
STA L050028
|
|
LDA $08,S
|
|
STA L05002A
|
|
LDA $0A,S
|
|
STA $DC
|
|
LDA $0C,S
|
|
STA $DE
|
|
LDA $04,S
|
|
STA $0C,S
|
|
LDA $02,S
|
|
STA $0A,S
|
|
LDA $01,S
|
|
STA $09,S
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
JSR L050283
|
|
LDA [$DC]
|
|
CMP #$2A01
|
|
BNE L0506BA
|
|
JSL L05171C
|
|
BCS L0506DF
|
|
PHX
|
|
JSR L050245
|
|
PLA
|
|
CLC
|
|
ADC $D4
|
|
STA $D4
|
|
LDA #$0000
|
|
ADC $D6
|
|
STA $D6
|
|
BRA L0506BF
|
|
L0506BA JSR L050494
|
|
BCS L0506E3
|
|
L0506BF LDA $D6
|
|
STA $DE
|
|
LDA $D4
|
|
STA $DC
|
|
STZ L0500ED
|
|
L0506CA JSR L050B55
|
|
BCS L0506E3
|
|
BVS L0506DF
|
|
JSL L03059F
|
|
BCS L0506CA
|
|
AND #$00FF
|
|
CMP #$0083
|
|
BNE L0506CA
|
|
L0506DF PLP
|
|
CLC
|
|
PLB
|
|
RTL
|
|
|
|
L0506E3 PLP
|
|
SEC
|
|
PLB
|
|
RTL
|
|
|
|
L0506E7 PHP
|
|
REP #$30
|
|
STZ L05079A
|
|
LDA [$DC]
|
|
AND #$007F
|
|
CMP #$002D
|
|
BNE L050705
|
|
STZ L050094
|
|
STZ L050096
|
|
LDA #$0002
|
|
STA L05079A
|
|
BRA L050781
|
|
L050705 LDA L05079A
|
|
PHA
|
|
JSR L05097D
|
|
PLA
|
|
STA L05079A
|
|
BCS L05078D
|
|
BNE L050790
|
|
L050714 LDA L050092
|
|
STA L050096
|
|
LDA L050090
|
|
STA L050094
|
|
SEP #$20
|
|
LDA [$DC]
|
|
AND #$7F
|
|
BEQ L05078A
|
|
CMP #$0D
|
|
BEQ L05078A
|
|
CMP #$2C
|
|
BEQ L05078A
|
|
CMP #$2E
|
|
BEQ L05078A
|
|
CMP #$20
|
|
BEQ L05078A
|
|
CMP #$3B
|
|
BEQ L05078A
|
|
CMP #$5D
|
|
BNE L050743
|
|
BRL L050920
|
|
L050743 CMP #$5E
|
|
BNE L05074A
|
|
BRL L05093F
|
|
L05074A STA L050799
|
|
CMP #$3C
|
|
BNE L05076B
|
|
LDY #$0001
|
|
LDA [$DC],Y
|
|
AND #$7F
|
|
CMP #$3E
|
|
BNE L05076B
|
|
LDA #$0B
|
|
STA L05079A
|
|
REP #$20
|
|
INC $DC
|
|
BNE L050769
|
|
INC $DE
|
|
L050769 BRA L050781
|
|
L05076B LDX #$0000
|
|
L05076E LDA L05079C,X
|
|
BEQ L05078D
|
|
CMP L050799
|
|
BEQ L05077B
|
|
INX
|
|
BRA L05076E
|
|
L05077B INX
|
|
STX L05079A
|
|
REP #$20
|
|
L050781 INC $DC
|
|
BNE L050787
|
|
INC $DE
|
|
L050787 BRL L050705
|
|
L05078A PLP
|
|
CLC
|
|
RTS
|
|
|
|
L05078D PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050790 DEC
|
|
ASL
|
|
TAX
|
|
STZ L05079A
|
|
JMP (L0507A8,X)
|
|
|
|
L050799 DB $00
|
|
L05079A DB $00
|
|
DB $00
|
|
|
|
L05079C ASC '+-*/_&!<>=~'00
|
|
|
|
L0507A8 DA L050821 ; +
|
|
DA L050837 ; -
|
|
DA L05084D ; *
|
|
DA L05088B ; /
|
|
DA L0508E1 ; _
|
|
DA L0508F6 ; &
|
|
DA L05090B ; !
|
|
DA L0507BE ; <
|
|
DA L0507E3 ; >
|
|
DA L0507F5 ; =
|
|
DA L05080B ; ~
|
|
|
|
L0507BE LDA L050096
|
|
CMP L050092
|
|
BCC L0507DB
|
|
LDA L050094
|
|
CMP L050090
|
|
BCC L0507DB
|
|
L0507CE LDA #$0000
|
|
TAY
|
|
L0507D2 STA L050090
|
|
STY L050092
|
|
BRL L050714
|
|
L0507DB LDA #$0001
|
|
LDY #$0000
|
|
BRA L0507D2
|
|
L0507E3 LDA L050092
|
|
CMP L050096
|
|
BCC L0507DB
|
|
LDA L050090
|
|
CMP L050094
|
|
BCC L0507DB
|
|
BRA L0507CE
|
|
L0507F5 LDA L050092
|
|
EOR L050096
|
|
PHA
|
|
LDA L050090
|
|
EOR L050094
|
|
ORA $01,S
|
|
STA $01,S
|
|
PLA
|
|
BEQ L0507DB
|
|
BRA L0507CE
|
|
L05080B LDA L050092
|
|
EOR L050096
|
|
PHA
|
|
LDA L050090
|
|
EOR L050094
|
|
ORA $01,S
|
|
STA $01,S
|
|
PLA
|
|
BEQ L0507CE
|
|
BRA L0507DB
|
|
L050821 CLC
|
|
LDA L050090
|
|
ADC L050094
|
|
STA L050090
|
|
LDA L050092
|
|
ADC L050096
|
|
STA L050092
|
|
BRL L050714
|
|
L050837 SEC
|
|
LDA L050094
|
|
SBC L050090
|
|
STA L050090
|
|
LDA L050096
|
|
SBC L050092
|
|
STA L050092
|
|
BRL L050714
|
|
L05084D LDA L050092
|
|
STA L0508DB
|
|
LDA L050090
|
|
STA L0508D9
|
|
STZ L050092
|
|
STZ L050090
|
|
LDX #$0020
|
|
L050862 DEX
|
|
BPL L050868
|
|
BRL L050714
|
|
L050868 ASL L050090
|
|
ROL L050092
|
|
ASL L050094
|
|
ROL L050096
|
|
BCC L050862
|
|
CLC
|
|
LDA L0508D9
|
|
ADC L050090
|
|
STA L050090
|
|
LDA #$0000
|
|
ADC L050092
|
|
STA L050092
|
|
BRA L050862
|
|
L05088B LDA L050090
|
|
STA L0508D9
|
|
LDA L050092
|
|
STA L0508DB
|
|
STZ L0508DD
|
|
STZ L0508DF
|
|
LDX #$0020
|
|
L0508A0 DEX
|
|
BPL L0508A6
|
|
BRL L050714
|
|
L0508A6 ASL L050094
|
|
ROL L050096
|
|
ROL L0508DD
|
|
ROL L0508DF
|
|
LDA L0508DF
|
|
CMP L0508DB
|
|
BCC L0508D1
|
|
LDA L0508DD
|
|
CMP L0508D9
|
|
BCC L0508D1
|
|
SBC L0508D9
|
|
STA L0508DD
|
|
LDA L0508DF
|
|
SBC L0508DB
|
|
STA L0508DF
|
|
L0508D1 ROL L050090
|
|
ROL L050092
|
|
BRA L0508A0
|
|
L0508D9 DB $00
|
|
DB $00
|
|
L0508DB DB $00
|
|
DB $00
|
|
L0508DD DB $00
|
|
DB $00
|
|
L0508DF DB $00
|
|
DB $00
|
|
L0508E1 LDA L050090
|
|
ORA L050094
|
|
STA L050090
|
|
LDA L050092
|
|
ORA L050096
|
|
STA L050092
|
|
BRL L050714
|
|
L0508F6 LDA L050090
|
|
AND L050094
|
|
STA L050090
|
|
LDA L050092
|
|
AND L050096
|
|
STA L050092
|
|
BRL L050714
|
|
L05090B LDA L050090
|
|
EOR L050094
|
|
STA L050090
|
|
LDA L050092
|
|
EOR L050096
|
|
STA L050092
|
|
BRL L050714
|
|
L050920 REP #$20
|
|
LDA L0500EB
|
|
BNE L05092A
|
|
BRL L05078D
|
|
L05092A LDY L050090
|
|
LDA [$3A],Y
|
|
STA L050090
|
|
INY
|
|
INY
|
|
LDA [$3A],Y
|
|
STA L050092
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
PLP
|
|
SEC
|
|
RTS
|
|
|
|
L05093F REP #$30
|
|
PEI $42
|
|
LDA L050090
|
|
PHA
|
|
PEA ^L050973
|
|
PEA L050973
|
|
JSL L045089
|
|
BCS L05096A
|
|
LDA L050973
|
|
CMP #$0003
|
|
BCS L05096A
|
|
LDA L050979
|
|
STA L050090
|
|
LDA L05097B
|
|
STA L050092
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L05096A STZ L050090
|
|
STZ L050092
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050973 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L050979 DB $00
|
|
DB $00
|
|
L05097B DB $00
|
|
DB $00
|
|
L05097D PHP
|
|
REP #$30
|
|
JSR L050A27
|
|
BCC L050988
|
|
BRL L050A24
|
|
L050988 SEP #$20
|
|
LDA [$DC]
|
|
AND #$7F
|
|
CMP #$7C
|
|
BEQ L050995
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050995 REP #$20
|
|
INC $DC
|
|
BNE L05099D
|
|
INC $DE
|
|
L05099D LDA [$DC]
|
|
AND #$007F
|
|
CMP #$0042
|
|
BNE L0509AF
|
|
INC $DC
|
|
BNE L0509AD
|
|
INC $DE
|
|
L0509AD BRA L050A0B
|
|
L0509AF CMP #$0057
|
|
BNE L0509BC
|
|
INC $DC
|
|
BNE L0509BA
|
|
INC $DE
|
|
L0509BA BRA L050A13
|
|
L0509BC CMP #$0041
|
|
BNE L0509DB
|
|
INC $DC
|
|
BNE L0509C7
|
|
INC $DE
|
|
L0509C7 LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
JSL L042ABB
|
|
STY L050092
|
|
STA L050090
|
|
BRA L050988
|
|
L0509DB LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
JSR L050A27
|
|
BCS L050A24
|
|
LDX L050090
|
|
PLA
|
|
STA L050090
|
|
PLA
|
|
STA L050092
|
|
BCS L050A24
|
|
TXA
|
|
BEQ L050A24
|
|
CMP #$0005
|
|
BCS L050A24
|
|
DEC
|
|
ASL
|
|
TAX
|
|
JMP (L050A03,X)
|
|
|
|
L050A03 DA L050A0B
|
|
DA L050A13
|
|
DA L050A1C
|
|
DA L050988
|
|
L050A0B LDX #$0000
|
|
STX L050091
|
|
BRA L050A16
|
|
L050A13 LDX #$0000
|
|
L050A16 STX L050092
|
|
BRL L050988
|
|
L050A1C SEP #$20
|
|
STZ L050093
|
|
BRL L050988
|
|
L050A24 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050A27 PHP
|
|
SEP #$20
|
|
REP #$10
|
|
LDA [$DC]
|
|
AND #$7F
|
|
CMP #$30
|
|
BCC L050A40
|
|
CMP #$47
|
|
BCS L050A40
|
|
CMP #$41
|
|
BCS L050A71
|
|
CMP #$3A
|
|
BCC L050A71
|
|
L050A40 PHA
|
|
REP #$20
|
|
LDA L050A67
|
|
AND #$00FF
|
|
TAX
|
|
SEP #$20
|
|
PLA
|
|
L050A4D CMP L050A67,X
|
|
BEQ L050A58
|
|
DEX
|
|
BNE L050A4D
|
|
PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050A58 REP #$20
|
|
INC $DC
|
|
BNE L050A60
|
|
INC $DE
|
|
L050A60 DEX
|
|
TXA
|
|
ASL
|
|
TAX
|
|
JMP (L050A6B,X)
|
|
|
|
L050A67 DB $03
|
|
DB $40
|
|
DB $24
|
|
DB $5B
|
|
L050A6B DA L050AC9
|
|
DA L050A71
|
|
DA L050B33
|
|
L050A71 REP #$20
|
|
JSR L050A9A
|
|
BCS L050AB3
|
|
STA L050090
|
|
STZ L050092
|
|
L050A7E JSR L050A9A
|
|
BCS L050A97
|
|
XBA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0004
|
|
L050A8B ASL
|
|
ROL L050090
|
|
ROL L050092
|
|
DEX
|
|
BNE L050A8B
|
|
BRA L050A7E
|
|
L050A97 PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050A9A PHP
|
|
SEP #$20
|
|
REP #$10
|
|
LDA [$DC]
|
|
AND #$7F
|
|
CMP #$30
|
|
BCC L050AB3
|
|
CMP #$47
|
|
BCS L050AB3
|
|
CMP #$3A
|
|
BCC L050ABB
|
|
CMP #$41
|
|
BCS L050AB6
|
|
L050AB3 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050AB6 SEC
|
|
SBC #$37
|
|
BRA L050ABE
|
|
L050ABB SEC
|
|
SBC #$30
|
|
L050ABE REP #$20
|
|
INC $DC
|
|
BNE L050AC6
|
|
INC $DE
|
|
L050AC6 PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050AC9 LDA [$DC]
|
|
AND #$007F
|
|
CMP #$0030
|
|
BCC L050AB3
|
|
CMP #$005B
|
|
BCS L050AB3
|
|
CMP #$003A
|
|
BCC L050AF7
|
|
CMP #$0041
|
|
BCC L050AB3
|
|
SEC
|
|
SBC #$0041
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L050028,X
|
|
STA L050090
|
|
LDA L05002A,X
|
|
STA L050092
|
|
BRA L050B0A
|
|
L050AF7 SEC
|
|
SBC #$0030
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L050000,X
|
|
STA L050090
|
|
LDA L050002,X
|
|
STA L050092
|
|
L050B0A SEP #$20
|
|
LDY #$0000
|
|
L050B0F INY
|
|
LDA [$DC],Y
|
|
AND #$5F
|
|
CMP #$30
|
|
BCC L050B24
|
|
CMP #$5B
|
|
BCS L050B24
|
|
CMP #$41
|
|
BCS L050B0F
|
|
CMP #$3A
|
|
BCC L050B0F
|
|
L050B24 REP #$20
|
|
TYA
|
|
CLC
|
|
ADC $DC
|
|
STA $DC
|
|
BCC L050B30
|
|
INC $DD
|
|
L050B30 PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050B33 INC L0500EB
|
|
LDA L050096
|
|
PHA
|
|
LDA L050094
|
|
PHA
|
|
JSR L0506E7
|
|
PLA
|
|
STA L050094
|
|
PLA
|
|
STA L050096
|
|
INC $DC
|
|
BNE L050B4F
|
|
INC $DE
|
|
L050B4F DEC L0500EB
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050B55 PHP
|
|
SEP #$20
|
|
REP #$10
|
|
BIT L0500F2
|
|
BPL L050B71
|
|
JSR L0513FA
|
|
L050B62 JSL L03059F
|
|
BCS L050B62
|
|
CMP #$83
|
|
BNE L050B71
|
|
PLP
|
|
CLC
|
|
SEP #$40
|
|
RTS
|
|
|
|
L050B71 JSR L050D7B
|
|
CMP #$00
|
|
BEQ L050BAA
|
|
CMP #$0D
|
|
BEQ L050B9E
|
|
CMP #$3A
|
|
BEQ L050B94
|
|
CMP #$5F
|
|
BEQ L050B94
|
|
CMP #$20
|
|
BEQ L050B94
|
|
CMP #$40
|
|
BEQ L050BAF
|
|
CMP #$41
|
|
BCC L050BA7
|
|
CMP #$5B
|
|
BCS L050BA7
|
|
L050B94 JSR L050D4A
|
|
JSR L050C66
|
|
BCS L050BA7
|
|
BVS L050BA3
|
|
L050B9E JSR L0502D3
|
|
BCS L050BAA
|
|
L050BA3 PLP
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L050BA7 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050BAA PLP
|
|
CLC
|
|
SEP #$40
|
|
RTS
|
|
|
|
L050BAF LDA L0500ED
|
|
BEQ L050BBC
|
|
LDA L0500EF
|
|
BNE L050BBC
|
|
BRL L050B9E
|
|
L050BBC JSR L050D7B
|
|
CMP #$41
|
|
BCC L050BF0
|
|
CMP #$5B
|
|
BCS L050BF0
|
|
SEC
|
|
SBC #$41
|
|
ASL
|
|
ASL
|
|
STA L050098
|
|
JSR L050D4A
|
|
JSR L050D7B
|
|
CMP #$3D
|
|
BNE L050BF0
|
|
JSR L050D4A
|
|
JSR L0506E7
|
|
BCS L050BF0
|
|
JSR L050D7B
|
|
CMP #$00
|
|
BEQ L050BF3
|
|
CMP #$0D
|
|
BEQ L050BF3
|
|
CMP #$20
|
|
BEQ L050BF3
|
|
L050BF0 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050BF3 REP #$20
|
|
LDX L050098
|
|
LDA L050092
|
|
STA L05002A,X
|
|
LDA L050090
|
|
STA L050028,X
|
|
BRL L050B9E
|
|
L050C07 LDA L0500ED
|
|
BEQ L050C14
|
|
LDA L0500EF
|
|
BNE L050C14
|
|
BRL L050C7B
|
|
MX %11
|
|
L050C14 JSR L050D7B
|
|
JSR L050D7B
|
|
CMP #$41
|
|
BCC L050BF0
|
|
CMP #$5B
|
|
BCS L050BF0
|
|
SEC
|
|
SBC #$41
|
|
ASL
|
|
ASL
|
|
STA L050098
|
|
JSR L050D7B
|
|
CMP #$3D
|
|
BNE L050BF0
|
|
LDA [$DC]
|
|
AND #$7F
|
|
CMP #$20
|
|
BNE L050C3C
|
|
JSR L050D4A
|
|
L050C3C JSR L0506E7
|
|
BCS L050BF0
|
|
JSR L050D7B
|
|
CMP #$00
|
|
BEQ L050BF3
|
|
CMP #$0D
|
|
BEQ L050C53
|
|
CMP #$20
|
|
BEQ L050C53
|
|
PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050C53 REP #$20
|
|
LDX L050098
|
|
LDA L050092
|
|
STA L05002A,X
|
|
LDA L050090
|
|
STA L050028,X
|
|
BRA L050C7B
|
|
L050C66 PHP
|
|
SEP #$20
|
|
LDA [$DC]
|
|
AND #$7F
|
|
BEQ L050C7B
|
|
CMP #$40
|
|
BEQ L050C07
|
|
CMP #$0D
|
|
BEQ L050C7B
|
|
CMP #$3B
|
|
BNE L050C7F
|
|
L050C7B PLP
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L050C7F REP #$30
|
|
LDX #$0000
|
|
L050C84 LDA L05009A+2,X
|
|
STA $02
|
|
LDA L05009A,X
|
|
STA $00
|
|
ORA $02
|
|
BEQ L050CB4
|
|
PHX
|
|
JSR L050CB7
|
|
PLX
|
|
BCC L050C9F
|
|
INX
|
|
INX
|
|
INX
|
|
INX
|
|
BRA L050C84
|
|
L050C9F LDA L050CF8+2,X
|
|
STA $02
|
|
LDA L050CF8,X
|
|
STA $00
|
|
TYA
|
|
ASL
|
|
TAY
|
|
LDA [$00],Y
|
|
DEC
|
|
PHA
|
|
JSR L050D4A
|
|
RTS
|
|
|
|
L050CB4 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050CB7 PHP
|
|
SEP #$20
|
|
STZ L050CF6
|
|
LDX #$0000
|
|
L050CC0 LDY #$0000
|
|
L050CC3 PHY
|
|
TXY
|
|
LDA [$00],Y
|
|
PLY
|
|
EOR [$DC],Y
|
|
AND #$7F
|
|
BEQ L050CE4
|
|
TXY
|
|
L050CCF LDA [$00],Y
|
|
BPL L050CD6
|
|
INY
|
|
BRA L050CCF
|
|
L050CD6 INY
|
|
LDA [$00],Y
|
|
BEQ L050CE1
|
|
TYX
|
|
INC L050CF6
|
|
BRA L050CC0
|
|
L050CE1 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050CE4 PHY
|
|
TXY
|
|
LDA [$00],Y
|
|
BPL L050CEF
|
|
PLY
|
|
INY
|
|
INX
|
|
BRA L050CC3
|
|
L050CEF PLY
|
|
LDY L050CF6
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050CF6 DW $0000
|
|
L050CF8 ADRL L050D04
|
|
ADRL L050D1A
|
|
ADRL L050D3C
|
|
|
|
L050D04 DA L050DB5
|
|
DA L050DC1
|
|
DA L050DFE
|
|
DA L050E12
|
|
DA L050E20
|
|
DA L050EDC
|
|
DA L051564
|
|
DA L051623
|
|
DA L05166C
|
|
DA L05169F
|
|
DA L0516A2
|
|
|
|
L050D1A DA L050EE5
|
|
DA L050F06
|
|
DA L050F22
|
|
DA L050F3E
|
|
DA L050F5B
|
|
DA L050F7B
|
|
DA L050F9B
|
|
DA L051014
|
|
DA L051035
|
|
DA L051056
|
|
DA L051077
|
|
DA L0510B4
|
|
DA L0510BA
|
|
DA L0510C0
|
|
DA L0510C6
|
|
DA L0510E8
|
|
DA L05110C
|
|
L050D3C DA L05112C
|
|
DA L051132
|
|
DA L051269
|
|
DA L051186
|
|
DA L05118C
|
|
DA L051192
|
|
DA L0511B2
|
|
L050D4A PHP
|
|
SEP #$20
|
|
REP #$10
|
|
LDY #$0000
|
|
L050D52 LDA [$DC],Y
|
|
AND #$7F
|
|
BEQ L050D6C
|
|
CMP #$20
|
|
BEQ L050D63
|
|
CMP #$0D
|
|
BEQ L050D6C
|
|
INY
|
|
BRA L050D52
|
|
L050D63 INY
|
|
LDA [$DC],Y
|
|
AND #$7F
|
|
CMP #$20
|
|
BEQ L050D63
|
|
L050D6C REP #$20
|
|
TYA
|
|
CLC
|
|
ADC $DC
|
|
STA $DC
|
|
BCC L050D78
|
|
INC $DD
|
|
L050D78 PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050D7B PHP
|
|
REP #$30
|
|
LDA [$DC]
|
|
AND #$007F
|
|
BEQ L050DA2
|
|
CMP #$000D
|
|
BEQ L050DA2
|
|
CMP #$0020
|
|
BEQ L050DA2
|
|
CMP #$0061
|
|
BCC L050D9C
|
|
CMP #$007B
|
|
BCS L050D9C
|
|
AND #$005F
|
|
L050D9C INC $DC
|
|
BNE L050DA2
|
|
INC $DE
|
|
L050DA2 PLP
|
|
CLC
|
|
RTS
|
|
|
|
L050DA5 LDA L0500ED
|
|
BEQ L050DB4
|
|
LDA L0500EF
|
|
BNE L050DB4
|
|
PLA
|
|
PLP
|
|
CLC
|
|
CLV
|
|
RTS
|
|
L050DB4 RTS
|
|
|
|
L050DB5 REP #$20
|
|
SEP #$10
|
|
PLX
|
|
PLA
|
|
PLX
|
|
PLA
|
|
PLP
|
|
CLC
|
|
PLB
|
|
RTL
|
|
|
|
L050DC1 JSR L0506E7
|
|
BCC L050DC9
|
|
PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050DC9 LDA L050090
|
|
ORA L050092
|
|
BEQ L050DD4
|
|
LDA #$FFFF
|
|
L050DD4 STA L0500EF
|
|
LDA #$FFFF
|
|
STA L0500ED
|
|
LDA [$DC]
|
|
AND #$007F
|
|
CMP #$002C
|
|
BEQ L050DEA
|
|
BRL L050EFF
|
|
L050DEA INC $DC
|
|
BNE L050DF0
|
|
INC $DE
|
|
L050DF0 STZ L0500ED
|
|
BIT L0500EF
|
|
BMI L050DFB
|
|
BRL L050EFF
|
|
L050DFB BRL L050E20
|
|
L050DFE LDA L0500ED
|
|
BNE L050E06
|
|
PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050E06 LDA #$FFFF
|
|
EOR L0500EF
|
|
STA L0500EF
|
|
BRL L050EFF
|
|
L050E12 LDA L0500ED
|
|
BNE L050E1A
|
|
PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050E1A STZ L0500ED
|
|
BRL L050EFF
|
|
L050E20 JSR L050DA5
|
|
LDA $DE
|
|
STA $02
|
|
LDA $DC
|
|
STA $00
|
|
LDA $D6
|
|
STA $DE
|
|
LDA $D4
|
|
STA $DC
|
|
SEP #$20
|
|
LDA [$00]
|
|
AND #$7F
|
|
CMP #$3A
|
|
BEQ L050E67
|
|
REP #$20
|
|
JSR L050245
|
|
LDA $D6
|
|
STA $DE
|
|
LDA $D4
|
|
STA $DC
|
|
SEP #$20
|
|
L050E4C JSR L0502D3
|
|
LDA [$DC]
|
|
BEQ L050E83
|
|
JSR L050EA6
|
|
BCS L050E4C
|
|
REP #$20
|
|
LDA $DE
|
|
STA $D6
|
|
LDA $DC
|
|
STA $D4
|
|
PLP
|
|
CLC
|
|
SEP #$40
|
|
RTS
|
|
|
|
MX %11
|
|
L050E67 JSR L0502D3
|
|
LDA [$DC]
|
|
AND #$7F
|
|
CMP #$3A
|
|
BEQ L050E86
|
|
CMP #$0D
|
|
BEQ L050E67
|
|
CMP #$40
|
|
BEQ L050E67
|
|
CMP #$20
|
|
BNE L050E83
|
|
JSR L050E90
|
|
BCS L050E67
|
|
L050E83 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050E86 JSR L050EA6
|
|
BCS L050E67
|
|
PLP
|
|
CLC
|
|
SEP #$40
|
|
RTS
|
|
|
|
MX %10
|
|
L050E90 JSR L050D4A
|
|
LDY #$0003
|
|
L050E96 LDA [$DC],Y
|
|
AND #$7F
|
|
CMP L050ED8,Y
|
|
BNE L050EA4
|
|
DEY
|
|
BPL L050E96
|
|
CLC
|
|
RTS
|
|
|
|
L050EA4 SEC
|
|
RTS
|
|
|
|
L050EA6 LDY #$0000
|
|
L050EA9 LDA [$00],Y
|
|
JSR L050EC4
|
|
BCC L050EB9
|
|
EOR [$DC],Y
|
|
AND #$7F
|
|
BNE L050EC0
|
|
INY
|
|
BRA L050EA9
|
|
L050EB9 LDA [$DC],Y
|
|
JSR L050EC4
|
|
BCC L050EC2
|
|
L050EC0 SEC
|
|
RTS
|
|
|
|
L050EC2 CLC
|
|
RTS
|
|
|
|
L050EC4 AND #$7F
|
|
BEQ L050ED6
|
|
CMP #$20
|
|
BEQ L050ED6
|
|
CMP #$0D
|
|
BEQ L050ED6
|
|
CMP #$2C
|
|
BEQ L050ED6
|
|
SEC
|
|
RTS
|
|
|
|
L050ED6 CLC
|
|
RTS
|
|
|
|
L050ED8 ASC 'ENDS'
|
|
|
|
MX %00
|
|
|
|
L050EDC BRL L050EFF
|
|
|
|
L050EDF DB $00
|
|
DB $00
|
|
L050EE1 DB $00
|
|
DB $00
|
|
L050EE3 DB $00
|
|
DB $00
|
|
|
|
L050EE5 JSR L050DA5
|
|
JSR L0506E7
|
|
BCS L050F03
|
|
LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA $0001
|
|
PEA $0000
|
|
JSL L043069
|
|
L050EFF PLP
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L050F03 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L050F06 JSR L050DA5
|
|
JSR L0506E7
|
|
BCS L050F03
|
|
LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA $0002
|
|
PEA $0001
|
|
JSL L043069
|
|
BRA L050EFF
|
|
L050F22 JSR L050DA5
|
|
JSR L0506E7
|
|
BCS L050F03
|
|
LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA $0002
|
|
PEA $0002
|
|
JSL L043069
|
|
BRA L050EFF
|
|
L050F3E JSR L050DA5
|
|
JSR L0506E7
|
|
BCS L050F03
|
|
LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA $0002
|
|
PEA $0003
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L050F5B JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L050F66
|
|
BRL L050F03
|
|
L050F66 LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA $0004
|
|
PEA $0004
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L050F7B JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L050F86
|
|
BRL L050F03
|
|
L050F86 LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA $0003
|
|
PEA $0005
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L050F9B JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L050FA6
|
|
BRL L050F03
|
|
L050FA6 LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA $000A
|
|
PEA $0006
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L050FBB JSR L0506E7
|
|
BCS L051012
|
|
LDA L050092
|
|
STA L050EE1
|
|
LDA L050090
|
|
STA L050EDF
|
|
JSR L050D7B
|
|
CMP #$002C
|
|
BEQ L051000
|
|
CMP #$000D
|
|
BEQ L05100A
|
|
CMP #$0000
|
|
BEQ L05100A
|
|
CMP #$002E
|
|
BNE L051012
|
|
JSR L0506E7
|
|
LDA L050092
|
|
CMP L050EE1
|
|
BEQ L050FF1
|
|
BRL L050F03
|
|
L050FF1 LDA L050090
|
|
SEC
|
|
SBC L050EDF
|
|
BMI L051012
|
|
INC
|
|
STA L050EE3
|
|
CLC
|
|
RTS
|
|
|
|
L051000 JSR L0506E7
|
|
LDA L050090
|
|
STA L050EE3
|
|
RTS
|
|
|
|
L05100A LDA #$0001
|
|
STA L050EE3
|
|
CLC
|
|
RTS
|
|
|
|
L051012 SEC
|
|
RTS
|
|
|
|
L051014 JSR L050DA5
|
|
JSR L050FBB
|
|
BCC L05101F
|
|
BRL L050F03
|
|
L05101F LDA L050EE1
|
|
PHA
|
|
LDA L050EDF
|
|
PHA
|
|
LDA L050EE3
|
|
PHA
|
|
PEA $0007
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L051035 JSR L050DA5
|
|
JSR L050FBB
|
|
BCC L051040
|
|
BRL L050F03
|
|
L051040 LDA L050EE1
|
|
PHA
|
|
LDA L050EDF
|
|
PHA
|
|
LDA L050EE3
|
|
PHA
|
|
PEA $0008
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L051056 JSR L050DA5
|
|
JSR L050FBB
|
|
BCC L051061
|
|
BRL L050F03
|
|
L051061 LDA L050EE1
|
|
PHA
|
|
LDA L050EDF
|
|
PHA
|
|
LDA L050EE3
|
|
PHA
|
|
PEA $0009
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L051077 JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L051082
|
|
BRL L050F03
|
|
L051082 LDY L050090
|
|
SEP #$20
|
|
LDA [$3A],Y
|
|
AND #$80
|
|
STA L0510B3
|
|
L05108E INY
|
|
LDA [$3A],Y
|
|
AND #$80
|
|
EOR L0510B3
|
|
BEQ L05108E
|
|
REP #$20
|
|
INY
|
|
SEC
|
|
SBC L050090
|
|
TAY
|
|
LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PHY
|
|
PEA $000A
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L0510B3 DB $00
|
|
L0510B4 JSR L050DA5
|
|
BRL L050EFF
|
|
L0510BA JSR L050DA5
|
|
BRL L050EFF
|
|
L0510C0 JSR L050DA5
|
|
BRL L050EFF
|
|
L0510C6 JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L0510D1
|
|
BRL L050F03
|
|
L0510D1 LDA L050092
|
|
PHA
|
|
LDY L050090
|
|
PHY
|
|
LDA [$3A],Y
|
|
INC
|
|
INC
|
|
PHA
|
|
PEA $000E
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L0510E8 JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L0510F3
|
|
BRL L050F03
|
|
L0510F3 LDA L050092
|
|
PHA
|
|
LDY L050090
|
|
PHY
|
|
LDA [$3A],Y
|
|
AND #$00FF
|
|
INC
|
|
PHA
|
|
PEA $000F
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L05110C JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L051117
|
|
BRL L050F03
|
|
L051117 LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA $0001
|
|
PEA $0010
|
|
JSL L043069
|
|
BRL L050EFF
|
|
L05112C JSR L050DA5
|
|
BRL L050EFF
|
|
L051132 JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L05113D
|
|
BRL L050F03
|
|
L05113D JSR L050D7B
|
|
CMP #$002C
|
|
BNE L051173
|
|
LDA L050090
|
|
STA L051182
|
|
LDA L050092
|
|
STA L051184
|
|
JSR L0506E7
|
|
BCC L051159
|
|
BRL L050F03
|
|
L051159 LDA L051184
|
|
PHA
|
|
LDA L051182
|
|
PHA
|
|
PEA $0000
|
|
LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
JSL L042BC0
|
|
BRL L050EFF
|
|
L051173 LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
JSL L042C85
|
|
BRL L050EFF
|
|
L051182 DB $00
|
|
DB $00
|
|
L051184 DB $00
|
|
DB $00
|
|
L051186 JSR L050DA5
|
|
BRL L050EFF
|
|
L05118C JSR L050DA5
|
|
BRL L050EFF
|
|
L051192 JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L05119D
|
|
BRL L050F03
|
|
L05119D LDA L050092
|
|
PHA
|
|
LDY L050090
|
|
PHY
|
|
LDA [$3A],Y
|
|
PHA
|
|
PEA $0000
|
|
JSL L043813
|
|
BRL L050EFF
|
|
L0511B2 JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L0511BD
|
|
BRL L050F03
|
|
L0511BD STZ L05121F
|
|
JSR L050D7B
|
|
CMP #$002C
|
|
BEQ L0511CB
|
|
BRL L050F03
|
|
L0511CB SEP #$20
|
|
LDA [$DC]
|
|
CMP #$22
|
|
BEQ L0511D7
|
|
CMP #$27
|
|
BNE L0511DF
|
|
L0511D7 JSR L050D7B
|
|
ORA #$80
|
|
STA L05121F
|
|
L0511DF LDY #$0000
|
|
L0511E2 LDA [$DC],Y
|
|
BEQ L0511F6
|
|
ORA #$80
|
|
CMP #$8D
|
|
BEQ L0511F6
|
|
STA L051221,Y
|
|
INY
|
|
CPY #$0049
|
|
BCC L0511E2
|
|
DEY
|
|
L0511F6 LDA L051220,Y
|
|
CMP L05121F
|
|
BNE L0511FF
|
|
DEY
|
|
L0511FF TYA
|
|
STA L051220
|
|
BNE L051208
|
|
BRL L050EFF
|
|
L051208 REP #$20
|
|
LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA ^L051220
|
|
PEA L051220
|
|
JSL L04386A
|
|
BRL L050EFF
|
|
L05121F DB $00
|
|
L051220 DB $00
|
|
L051221 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L051269 JSR L050DA5
|
|
STZ L0513BD
|
|
STZ L0513BF
|
|
JSR L0506E7
|
|
BCC L05127A
|
|
BRL L050F03
|
|
L05127A LDA L050090
|
|
STA L0513B7
|
|
LDA L050092
|
|
STA L0513B9
|
|
JSR L0513DA
|
|
BCC L05128E
|
|
BRL L050F03
|
|
L05128E BVC L051293
|
|
BRL L051316
|
|
L051293 JSR L0506E7
|
|
BCC L05129B
|
|
BRL L050F03
|
|
L05129B LDA L050092
|
|
BEQ L0512A3
|
|
BRL L050EFF
|
|
L0512A3 LDA L050090
|
|
CMP #$0005
|
|
BCC L0512AE
|
|
BRL L050EFF
|
|
L0512AE CMP #$0002
|
|
BCS L0512B6
|
|
BRL L050EFF
|
|
L0512B6 STA L0513BB
|
|
JSR L0513DA
|
|
BCC L0512C1
|
|
BRL L050F03
|
|
L0512C1 BVC L0512C6
|
|
BRL L05135E
|
|
L0512C6 JSR L0506E7
|
|
BCC L0512CE
|
|
BRL L050F03
|
|
L0512CE LDA L050090
|
|
STA L0513BD
|
|
JSR L0513DA
|
|
BCC L0512DC
|
|
BRL L050F03
|
|
L0512DC BVC L0512E1
|
|
BRL L05135E
|
|
L0512E1 JSR L0506E7
|
|
BCC L0512E9
|
|
BRL L050F03
|
|
L0512E9 LDA L050090
|
|
STA L0513C1
|
|
LDA L050092
|
|
STA L0513C3
|
|
JSR L0513C5
|
|
BCC L0512FD
|
|
BRL L050F03
|
|
L0512FD JSR L0513DA
|
|
BCC L051305
|
|
BRL L050F03
|
|
L051305 JSR L0506E7
|
|
BCC L05130D
|
|
BRL L050F03
|
|
L05130D LDA L050090
|
|
STA L0513BF
|
|
BRL L051390
|
|
L051316 LDA L0513B9
|
|
EOR $42
|
|
BEQ L051320
|
|
BRL L050F03
|
|
L051320 LDA L0513B7
|
|
JSL L0410BB
|
|
BCC L05132C
|
|
BRL L050F03
|
|
L05132C BIT #$8000
|
|
BNE L051348
|
|
LDA L0513B7
|
|
INC L0513B7
|
|
JSL L04037A
|
|
L05133B CPY #$0002
|
|
BCS L051343
|
|
BRL L050F03
|
|
L051343 STY L0513BB
|
|
BRA L05135E
|
|
L051348 LDA L0513B9
|
|
PHA
|
|
LDA L0513B7
|
|
PHA
|
|
JSL L04349E
|
|
CPY #$0005
|
|
BCC L05135C
|
|
BRL L050F03
|
|
L05135C BRA L05133B
|
|
L05135E LDA L0513B9
|
|
EOR $42
|
|
BEQ L051368
|
|
BRL L050F03
|
|
L051368 LDY L0513B7
|
|
LDA [$3A],Y
|
|
STA L0513C1
|
|
INY
|
|
LDA [$3A],Y
|
|
STA L0513C2
|
|
LDY L0513BB
|
|
CPY #$0002
|
|
BNE L05138D
|
|
LDA L0513B9
|
|
PHA
|
|
LDA L0513B7
|
|
PHA
|
|
JSL L042A5C
|
|
STY L0513C3
|
|
L05138D JSR L0513C5
|
|
L051390 LDA L0513B9
|
|
PHA
|
|
LDA L0513B7
|
|
PHA
|
|
LDA L0513BB
|
|
PHA
|
|
SEP #$20
|
|
LDA L0513BF
|
|
PHA
|
|
LDA L0513BD
|
|
PHA
|
|
REP #$20
|
|
LDA L0513C3
|
|
PHA
|
|
LDA L0513C1
|
|
PHA
|
|
JSL L043774
|
|
BRL L050EFF
|
|
L0513B7 DB $00
|
|
DB $00
|
|
L0513B9 DB $00
|
|
DB $00
|
|
L0513BB DB $00
|
|
DB $00
|
|
L0513BD DB $00
|
|
DB $00
|
|
L0513BF DB $00
|
|
DB $00
|
|
L0513C1 DB $00
|
|
L0513C2 DB $00
|
|
L0513C3 DB $00
|
|
DB $00
|
|
L0513C5 LDA L0513C3
|
|
PHA
|
|
LDA L0513C1
|
|
PHA
|
|
JSL L042ABB
|
|
BCS L0513D9
|
|
STY L0513C3
|
|
STA L0513C1
|
|
L0513D9 RTS
|
|
|
|
L0513DA JSR L050D7B
|
|
CMP #$002C
|
|
BEQ L0513F5
|
|
CMP #$0000
|
|
BEQ L0513F1
|
|
CMP #$0020
|
|
BEQ L0513F1
|
|
CMP #$000D
|
|
BNE L0513F8
|
|
L0513F1 SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L0513F5 CLV
|
|
CLC
|
|
RTS
|
|
|
|
L0513F8 SEC
|
|
RTS
|
|
|
|
L0513FA PHP
|
|
REP #$30
|
|
JSR L051408
|
|
JSR L05145A
|
|
JSR L051501
|
|
PLP
|
|
RTS
|
|
|
|
L051408 LDA #$0000
|
|
L05140B PHA
|
|
PHA
|
|
LDX #$0006
|
|
CMP #$000D
|
|
BCC L05141B
|
|
SBC #$000D
|
|
LDX #$0014
|
|
L05141B CLC
|
|
ADC #$0003
|
|
TAY
|
|
JSL L0300E2
|
|
LDA #$00C0
|
|
JSL L03022D
|
|
PLA
|
|
PHA
|
|
CLC
|
|
ADC #$00C1
|
|
JSL L03022D
|
|
JSL L0302E1
|
|
STR "= "
|
|
PLA
|
|
ASL
|
|
ASL
|
|
PHA
|
|
TAX
|
|
LDA L05002A,X
|
|
PHA
|
|
JSL L030670
|
|
PLX
|
|
LDA L050028,X
|
|
PHA
|
|
JSL L030670
|
|
PLA
|
|
INC
|
|
CMP #$001A
|
|
BCC L05140B
|
|
RTS
|
|
|
|
L05145A LDA #$0000
|
|
L05145D PHA
|
|
PHA
|
|
CLC
|
|
ADC #$0003
|
|
TAY
|
|
LDX #$0028
|
|
JSL L0300E2
|
|
LDA #$00C0
|
|
JSL L03022D
|
|
PLA
|
|
PHA
|
|
CLC
|
|
ADC #$00B0
|
|
JSL L03022D
|
|
JSL L0302E1
|
|
STR "= "
|
|
PLA
|
|
ASL
|
|
ASL
|
|
PHA
|
|
TAX
|
|
LDA L050002,X
|
|
PHA
|
|
JSL L030670
|
|
PLX
|
|
PHX
|
|
LDA L050000,X
|
|
PHA
|
|
JSL L030670
|
|
PLA
|
|
LSR
|
|
TAX
|
|
LDA L0514C3,X
|
|
BEQ L0514BB
|
|
STA L0514B1
|
|
JSL L0302E1
|
|
STR " ("
|
|
JSL L030314
|
|
L0514B1 ADR L0514B1
|
|
LDA #$00A9
|
|
JSL L03022D
|
|
L0514BB PLA
|
|
INC
|
|
CMP #$000A
|
|
BCC L05145D
|
|
RTS
|
|
|
|
L0514C3 DA L0514D7
|
|
DA L0514E5
|
|
DA L0514F4
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L0514D7 STR "Segment start"
|
|
L0514E5 STR "Segment length"
|
|
L0514F4 STR "Segment kind"
|
|
L051501 SEP #$30
|
|
JSL L030035
|
|
DB $11
|
|
DB $14
|
|
DB $00
|
|
DB $4F
|
|
JSL L030139
|
|
JSL L030035
|
|
DB $02
|
|
DB $15
|
|
DB $00
|
|
DB $4F
|
|
LDX #$00
|
|
LDY #$14
|
|
JSL L0300E2
|
|
LDY #$00
|
|
L051521 LDA [$DC],Y
|
|
BEQ L051559
|
|
ORA #$80
|
|
CMP #$8D
|
|
BEQ L051559
|
|
PHY
|
|
PHX
|
|
PHA
|
|
JSL L03022D
|
|
PLA
|
|
PLX
|
|
PLY
|
|
CMP #$A0
|
|
BNE L051554
|
|
CPX #$02
|
|
BCS L051554
|
|
INX
|
|
STY L051560
|
|
LDA L051560,X
|
|
CMP L051560
|
|
BCC L051554
|
|
PHY
|
|
PHX
|
|
TAX
|
|
LDY #$14
|
|
JSL L0300E2
|
|
PLX
|
|
PLY
|
|
L051554 INY
|
|
CPY #$4F
|
|
BCC L051521
|
|
L051559 JSL L0300F7
|
|
REP #$30
|
|
RTS
|
|
|
|
L051560 DB $00
|
|
DB $0C
|
|
DB $16
|
|
DB $20
|
|
L051564 JSR L050DA5
|
|
SEP #$20
|
|
LDY #$0000
|
|
L05156C LDA [$DC],Y
|
|
AND #$7F
|
|
BEQ L051580
|
|
CMP #$0D
|
|
BEQ L051580
|
|
CMP #$20
|
|
BEQ L051580
|
|
STA L05160F,Y
|
|
INY
|
|
BRA L05156C
|
|
L051580 TYA
|
|
STA L05160E
|
|
BNE L051589
|
|
BRL L050F03
|
|
L051589 REP #$30
|
|
JSR L050D4A
|
|
JSR L0506E7
|
|
BCC L05159F
|
|
LDA L050028
|
|
STA L050090
|
|
LDA L05002A
|
|
STA L050092
|
|
L05159F SEP #$30
|
|
LDX #$17
|
|
L0515A3 LDA $D0,X
|
|
PHA
|
|
DEX
|
|
BPL L0515A3
|
|
LDX #$67
|
|
L0515AB LDA L050028,X
|
|
PHA
|
|
DEX
|
|
BPL L0515AB
|
|
REP #$30
|
|
LDA L0500ED
|
|
PHA
|
|
LDA L0500F1
|
|
PHA
|
|
PEA ^L05160E
|
|
PEA L05160E
|
|
LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
JSL L05063A
|
|
PHP
|
|
SEP #$20
|
|
PLA
|
|
STA L05160D
|
|
REP #$20
|
|
PLA
|
|
STA L0500F1
|
|
PLA
|
|
STA L0500ED
|
|
BEQ L0515E7
|
|
LDA #$FFFF
|
|
STA L0500EF
|
|
L0515E7 SEP #$30
|
|
LDY #$68
|
|
LDX #$00
|
|
L0515ED PLA
|
|
STA L050028,X
|
|
INX
|
|
DEY
|
|
BNE L0515ED
|
|
LDY #$18
|
|
LDX #$00
|
|
L0515F9 PLA
|
|
STA $D0,X
|
|
INX
|
|
DEY
|
|
BNE L0515F9
|
|
LDA L05160D
|
|
PHA
|
|
PLP
|
|
BCC L05160A
|
|
BRL L050F03
|
|
L05160A BRL L050EFF
|
|
L05160D DB $00
|
|
L05160E DB $00
|
|
L05160F DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L051623 JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L05162E
|
|
BRL L050F03
|
|
L05162E SEP #$30
|
|
L051630 JSR L051642
|
|
BCS L05163F
|
|
DEC L050090
|
|
BPL L051630
|
|
REP #$30
|
|
BRL L050E20
|
|
L05163F BRL L050EFF
|
|
MX %11
|
|
L051642 LDY #$00
|
|
L051644 LDA [$DC],Y
|
|
AND #$7F
|
|
BEQ L051659
|
|
CMP #$0D
|
|
BEQ L051659
|
|
CMP #$20
|
|
BEQ L051659
|
|
CMP #$2C
|
|
BEQ L05165B
|
|
INY
|
|
BNE L051644
|
|
L051659 SEC
|
|
RTS
|
|
|
|
L05165B REP #$30
|
|
INY
|
|
TYA
|
|
CLC
|
|
ADC $DC
|
|
STA $DC
|
|
BCC L051668
|
|
INC $DE
|
|
L051668 SEP #$30
|
|
CLC
|
|
RTS
|
|
|
|
MX %00
|
|
L05166C JSR L050DA5
|
|
JSR L0506E7
|
|
BCC L051677
|
|
BRL L050F03
|
|
L051677 LDA #$0004
|
|
STA L05169D
|
|
L05167D LDA L050092
|
|
PHA
|
|
LDA L050090
|
|
PHA
|
|
PEA $0002
|
|
PEA $0001
|
|
JSL L043069
|
|
INC L050090
|
|
INC L050090
|
|
DEC L05169D
|
|
BNE L05167D
|
|
BRL L050EFF
|
|
L05169D DB $00
|
|
DB $00
|
|
L05169F BRL L050EFF
|
|
L0516A2 JSR L050DA5
|
|
BIT L0500F1
|
|
BMI L051717
|
|
SEP #$20
|
|
LDY #$0001
|
|
LDA [$DC]
|
|
STA L05171A
|
|
STZ L05171B
|
|
L0516B7 LDA [$DC],Y
|
|
BEQ L0516CA
|
|
CMP L05171A
|
|
BEQ L0516CA
|
|
CMP #$0D
|
|
BEQ L0516CA
|
|
INC L05171B
|
|
INY
|
|
BNE L0516B7
|
|
L0516CA LDA L05171B
|
|
BEQ L051717
|
|
JSL L03074E
|
|
DB $09
|
|
DB $0D
|
|
DB $14
|
|
DB $3B
|
|
LDA L05171B
|
|
CMP #$27
|
|
BCC L0516E3
|
|
LDA #$26
|
|
STA L05171B
|
|
L0516E3 SEC
|
|
LDA #$50
|
|
SBC L05171B
|
|
LSR
|
|
XBA
|
|
LDA #$00
|
|
XBA
|
|
TAX
|
|
LDY #$000B
|
|
JSL L0300E2
|
|
LDY #$0001
|
|
L0516F9 LDA [$DC],Y
|
|
PHY
|
|
ORA #$80
|
|
CMP #$A0
|
|
BCS L051704
|
|
LDA #$A0
|
|
L051704 JSL L0301F9
|
|
PLY
|
|
INY
|
|
DEC L05171B
|
|
BNE L0516F9
|
|
JSL L030035
|
|
DB $02
|
|
DB $15
|
|
DB $00
|
|
DB $4F
|
|
L051717 BRL L050EFF
|
|
L05171A DB $00
|
|
L05171B DB $00
|
|
L05171C PHB
|
|
PHK
|
|
PLB
|
|
PHP
|
|
REP #$30
|
|
JSR L050263
|
|
BCS L05175C
|
|
JSL L03074E
|
|
DB $08
|
|
DB $14
|
|
DB $1C
|
|
DB $33
|
|
STZ L05188E
|
|
STZ L051890
|
|
BRL L0517B5
|
|
L051738 SEP #$20
|
|
L05173A JSL L03059F
|
|
BCS L05173A
|
|
REP #$20
|
|
AND #$00FF
|
|
CMP #$008A
|
|
BEQ L051770
|
|
CMP #$008B
|
|
BEQ L051797
|
|
CMP #$008D
|
|
BEQ L051760
|
|
CMP #$009B
|
|
BNE L05173A
|
|
JSR L05187F
|
|
L05175C PLP
|
|
SEC
|
|
PLB
|
|
RTL
|
|
|
|
L051760 JSR L05187F
|
|
LDA L051892
|
|
LDY L051894
|
|
LDX L051896
|
|
PLP
|
|
CLC
|
|
PLB
|
|
RTL
|
|
|
|
L051770 CLC
|
|
LDA L051890
|
|
ADC L05188E
|
|
INC
|
|
CMP L0500E9
|
|
BEQ L051738
|
|
CMP #$0006
|
|
BCC L051792
|
|
LDA L05188E
|
|
ADC #$000A
|
|
CMP L0500E9
|
|
BCS L051792
|
|
INC L05188E
|
|
BRA L0517B5
|
|
L051792 INC L051890
|
|
BRA L0517B5
|
|
L051797 CLC
|
|
LDA L051890
|
|
ADC L05188E
|
|
BEQ L051738
|
|
ADC #$0005
|
|
CMP L0500E9
|
|
BCS L0517B2
|
|
LDA L05188E
|
|
BEQ L0517B2
|
|
DEC L05188E
|
|
BRA L0517B5
|
|
L0517B2 DEC L051890
|
|
L0517B5 LDA L05188E
|
|
STA L05188C
|
|
JSR L050263
|
|
L0517BE LDA L05188C
|
|
CMP #$007F
|
|
BCC L0517EB
|
|
SEC
|
|
SBC #$007F
|
|
STA L05188C
|
|
LDY #$03F8
|
|
LDA [$E4],Y
|
|
PHA
|
|
INY
|
|
INY
|
|
LDA [$E4],Y
|
|
STA $E6
|
|
PLA
|
|
STA $E4
|
|
LDY #$0002
|
|
LDA [$E4]
|
|
PHA
|
|
LDA [$E4],Y
|
|
STA $E6
|
|
PLA
|
|
STA $E4
|
|
BRA L0517BE
|
|
L0517EB LDX #$0000
|
|
L0517EE ASL
|
|
ASL
|
|
ASL
|
|
TAY
|
|
LDA [$E4],Y
|
|
STA $00
|
|
INY
|
|
INY
|
|
LDA [$E4],Y
|
|
STA $02
|
|
ORA $00
|
|
BNE L051803
|
|
BRL L051738
|
|
L051803 LDY #$0002
|
|
LDA [$00]
|
|
PHA
|
|
LDA [$00],Y
|
|
STA $02
|
|
PLA
|
|
STA $00
|
|
SEP #$30
|
|
LDA [$00]
|
|
PHA
|
|
TAY
|
|
L051816 LDA [$00],Y
|
|
ORA #$80
|
|
STA L051898,Y
|
|
DEY
|
|
BNE L051816
|
|
PLY
|
|
INY
|
|
LDA #$A0
|
|
L051824 CPY #$15
|
|
BCS L05182E
|
|
STA L051898,Y
|
|
INY
|
|
BRA L051824
|
|
L05182E REP #$30
|
|
PHX
|
|
CPX L051890
|
|
BNE L051853
|
|
JSL L030579
|
|
LDA $00
|
|
STA L051892
|
|
LDA $02
|
|
STA L051894
|
|
LDA L05188C
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ADC #$0004
|
|
TAY
|
|
LDA [$E4],Y
|
|
STA L051896
|
|
L051853 LDX #$001E
|
|
LDA #$0009
|
|
CLC
|
|
ADC $01,S
|
|
TAY
|
|
JSL L0300E2
|
|
JSL L030314
|
|
ADR L051898
|
|
JSL L030585
|
|
PLX
|
|
INC L05188C
|
|
LDA L05188C
|
|
INX
|
|
CPX #$000B
|
|
BCS L05187C
|
|
BRL L0517EE
|
|
L05187C BRL L051738
|
|
L05187F JSL L030035
|
|
DB $02
|
|
DB $15
|
|
DB $00
|
|
DB $4F
|
|
JSL L0300D1
|
|
RTS
|
|
|
|
L05188C DB $00
|
|
DB $00
|
|
L05188E DB $00
|
|
DB $00
|
|
L051890 DB $00
|
|
DB $00
|
|
L051892 DB $00
|
|
DB $00
|
|
L051894 DB $00
|
|
DB $00
|
|
L051896 DB $00
|
|
DB $00
|
|
L051898 DB $14
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
|
|
L0518AD PHP
|
|
REP #$30
|
|
JSR L050245
|
|
LDX $D0
|
|
LDY $D2
|
|
BCC L0518FF
|
|
PHA
|
|
PHA
|
|
PEA $0001
|
|
PEA $0000
|
|
LDA $FE
|
|
ORA #$0400
|
|
PHA
|
|
PEA $8008
|
|
PHA
|
|
PHA
|
|
_NewHandle
|
|
PLX
|
|
PLY
|
|
BCC L0518DA
|
|
PLP
|
|
SEC
|
|
RTS
|
|
|
|
L0518DA PHB
|
|
PHY
|
|
PLB
|
|
LDA |$0000,X
|
|
STA $D4
|
|
LDA |$0002,X
|
|
STA $D6
|
|
PLB
|
|
PLB
|
|
PHY
|
|
LDA #$0000
|
|
TAY
|
|
L0518EE STA [$D4],Y
|
|
INY
|
|
INY
|
|
BNE L0518EE
|
|
LDA #$0D20
|
|
STA [$D4]
|
|
LDA #$0002
|
|
STA $D8
|
|
PLY
|
|
L0518FF PLP
|
|
CLC
|
|
RTS
|
|
|
|
L051902 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PHP
|
|
REP #$30
|
|
JSR L0518AD
|
|
BCC L051911
|
|
PLP
|
|
PLB
|
|
SEC
|
|
RTL
|
|
|
|
L051911 STX $D0
|
|
STY $D2
|
|
JSL L030035
|
|
DB $00
|
|
DB $17
|
|
DB $00
|
|
DB $4F
|
|
JSL L0300D1
|
|
JSR L051C88
|
|
STZ L051978
|
|
LDA #$000A
|
|
CMP L051CA4
|
|
BCC L051933
|
|
LDA L051CA4
|
|
DEC
|
|
L051933 STA L05197A
|
|
PHA
|
|
SEC
|
|
SBC L051978
|
|
STA L051980
|
|
STZ L05197E
|
|
PLX
|
|
JSR L051ABC
|
|
STY L051B82
|
|
JSR L051984
|
|
L05194B JSR L0519A4
|
|
LDY L051B82
|
|
JSR L051AF1
|
|
L051954 JSR L051AD5
|
|
AND #$007F
|
|
PHA
|
|
LDAL $E0C025
|
|
AND #$0080
|
|
ORA $01,S
|
|
STA $01,S
|
|
PLA
|
|
JSR L051CD1
|
|
REP #$30
|
|
BCS L051972
|
|
BVS L05194B
|
|
BCC L051954
|
|
L051972 JSR L0503C5
|
|
PLP
|
|
PLB
|
|
RTL
|
|
|
|
L051978 DB $00
|
|
DB $00
|
|
L05197A DB $00
|
|
DB $00
|
|
L05197C DB $00
|
|
DB $00
|
|
L05197E DB $00
|
|
DB $00
|
|
L051980 DB $00
|
|
DB $00
|
|
L051982 DB $00
|
|
DB $00
|
|
|
|
L051984 LDA #$0009
|
|
STA L05197C
|
|
LDA #$FFFF
|
|
STA L051982
|
|
RTS
|
|
|
|
L051991 LDA L05197C
|
|
EOR #$0029
|
|
STA L05197C
|
|
LDA #$FFFF
|
|
EOR L051982
|
|
STA L051982
|
|
RTS
|
|
|
|
L0519A4 SEP #$20
|
|
L0519A6 LDAL $E0C019
|
|
BPL L0519A6
|
|
REP #$20
|
|
LDY L051B82
|
|
SEC
|
|
LDA L05197A
|
|
SBC L051978
|
|
TAX
|
|
BEQ L0519C1
|
|
L0519BB JSR L051CB9
|
|
DEX
|
|
BNE L0519BB
|
|
L0519C1 LDA #$0000
|
|
L0519C4 PHA
|
|
JSR L0519D0
|
|
PLA
|
|
INC
|
|
CMP #$0018
|
|
BCC L0519C4
|
|
RTS
|
|
|
|
L0519D0 PHY
|
|
JSL L03006F
|
|
JSR L051AA1
|
|
PLY
|
|
SEP #$20
|
|
LDA #$00
|
|
XBA
|
|
STZ L051A9A
|
|
STZ L051AA0
|
|
LDX #$0000
|
|
LDA [$D4],Y
|
|
CMP #$3B
|
|
BNE L0519F3
|
|
LDA L051A9D
|
|
TAX
|
|
LDA #$2A
|
|
L0519F3 STA L051A9F
|
|
L0519F6 LDA [$D4],Y
|
|
BNE L0519FD
|
|
BRL L051A92
|
|
L0519FD CMP #$0D
|
|
BNE L051A04
|
|
BRL L051A92
|
|
L051A04 CMP #$20
|
|
BNE L051A4F
|
|
LDA L051A9F
|
|
CMP #$2A
|
|
BEQ L051A4D
|
|
LDA L051AA0
|
|
BNE L051A4D
|
|
INY
|
|
LDA [$D4],Y
|
|
DEY
|
|
CMP #$3B
|
|
BEQ L051A29
|
|
LDA L051A9A
|
|
BEQ L051A3F
|
|
CMP #$03
|
|
BCS L051A4D
|
|
CMP #$02
|
|
BCC L051A34
|
|
L051A29 TXA
|
|
CMP L051A9D
|
|
BCS L051A4D
|
|
LDA L051A9D
|
|
BRA L051A48
|
|
L051A34 TXA
|
|
CMP L051A9C
|
|
BCS L051A4D
|
|
LDA L051A9C
|
|
BRA L051A48
|
|
L051A3F TXA
|
|
CMP L051A9B
|
|
BCS L051A4D
|
|
LDA L051A9B
|
|
L051A48 TAX
|
|
DEX
|
|
INC L051A9A
|
|
L051A4D LDA #$A0
|
|
L051A4F PHY
|
|
PHX
|
|
PHA
|
|
REP #$20
|
|
TXA
|
|
LSR
|
|
TAY
|
|
SEP #$20
|
|
STAL $E0C054
|
|
BCS L051A63
|
|
STAL $E0C055
|
|
L051A63 PLA
|
|
ORA #$80
|
|
STA [$28],Y
|
|
STAL $E0C054
|
|
EOR L051AA0
|
|
BEQ L051A7E
|
|
BPL L051A81
|
|
EOR L051AA0
|
|
CMP #$A7
|
|
BEQ L051A7E
|
|
CMP #$A2
|
|
BNE L051A81
|
|
L051A7E STA L051AA0
|
|
L051A81 PLX
|
|
PLY
|
|
INX
|
|
CPX #$0050
|
|
BCS L051A8F
|
|
INY
|
|
BEQ L051A8F
|
|
BRL L0519F6
|
|
L051A8F JSR L051CA6
|
|
L051A92 CMP #$01
|
|
BCC L051A97
|
|
INY
|
|
L051A97 REP #$20
|
|
RTS
|
|
|
|
L051A9A DB $00
|
|
L051A9B DB $11
|
|
L051A9C DB $19
|
|
L051A9D DB $23
|
|
DB $50
|
|
L051A9F DB $00
|
|
L051AA0 DB $00
|
|
|
|
L051AA1 PHP
|
|
SEP #$20
|
|
REP #$10
|
|
LDA #$A0
|
|
LDY #$0027
|
|
L051AAB STA [$28],Y
|
|
STAL $E0C055
|
|
STA [$28],Y
|
|
STAL $E0C054
|
|
DEY
|
|
BPL L051AAB
|
|
PLP
|
|
RTS
|
|
|
|
L051ABC SEP #$20
|
|
LDY #$0000
|
|
CPX #$0000
|
|
BEQ L051AD2
|
|
L051AC6 LDA [$D4],Y
|
|
BEQ L051AD2
|
|
INY
|
|
CMP #$0D
|
|
BNE L051AC6
|
|
DEX
|
|
BNE L051AC6
|
|
L051AD2 REP #$20
|
|
RTS
|
|
|
|
L051AD5 LDX L05197E
|
|
LDY L051980
|
|
JSL L0300E2
|
|
LDA L05197C
|
|
JSL L030593
|
|
JSL L03034A
|
|
RTS
|
|
|
|
LDX L05197A
|
|
JSR L051ABC
|
|
L051AF1 STY L051B82
|
|
LDA L051980
|
|
JSL L03006F
|
|
SEP #$20
|
|
LDX #$0000
|
|
L051B00 LDA [$D4],Y
|
|
STA L051B86,X
|
|
INY
|
|
INX
|
|
CMP #$00
|
|
BEQ L051B0F
|
|
CMP #$0D
|
|
BNE L051B00
|
|
L051B0F TXA
|
|
STA L051B85
|
|
STA L051B84
|
|
JSR L051B62
|
|
REP #$20
|
|
JSR L052093
|
|
RTS
|
|
|
|
L051B1F JSR L05210A
|
|
SEP #$21
|
|
LDY L051B82
|
|
LDA L051B85
|
|
SBC L051B84
|
|
BEQ L051B48
|
|
BPL L051B3E
|
|
EOR #$FF
|
|
INC
|
|
REP #$20
|
|
AND #$00FF
|
|
JSR L052358
|
|
BRA L051B46
|
|
L051B3E REP #$20
|
|
AND #$00FF
|
|
JSR L052317
|
|
L051B46 BCS L051B61
|
|
L051B48 SEP #$20
|
|
LDA L051B85
|
|
LDY L051B82
|
|
LDX #$0000
|
|
L051B53 PHA
|
|
LDA L051B86,X
|
|
STA [$D4],Y
|
|
INX
|
|
INY
|
|
PLA
|
|
DEC
|
|
BNE L051B53
|
|
REP #$20
|
|
L051B61 RTS
|
|
|
|
L051B62 PHP
|
|
SEP #$20
|
|
STZ L051C86
|
|
STZ L051C87
|
|
LDA L051B86
|
|
CMP #$3B
|
|
BNE L051B74
|
|
LDA #$2A
|
|
L051B74 CMP #$2A
|
|
BNE L051B80
|
|
LDA #$FF
|
|
STA L051C86
|
|
STA L051C87
|
|
L051B80 PLP
|
|
RTS
|
|
|
|
L051B82 DB $00
|
|
DB $00
|
|
L051B84 DB $00
|
|
L051B85 DB $00
|
|
L051B86 DB $00
|
|
L051B87 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L051C83 DB $00
|
|
L051C84 DB $00
|
|
L051C85 DB $00
|
|
L051C86 DB $00
|
|
L051C87 DB $00
|
|
|
|
L051C88 SEP #$20
|
|
LDX #$0000
|
|
TXY
|
|
L051C8E LDA [$D4],Y
|
|
INY
|
|
CMP #$00
|
|
BEQ L051C9C
|
|
CMP #$0D
|
|
BNE L051C8E
|
|
INX
|
|
BNE L051C8E
|
|
L051C9C REP #$20
|
|
INX
|
|
STX L051CA4
|
|
TXA
|
|
RTS
|
|
|
|
L051CA4 DW $0000
|
|
|
|
L051CA6 SEP #$20
|
|
L051CA8 LDA [$D4],Y
|
|
BEQ L051CB1
|
|
INY
|
|
CMP #$0D
|
|
BNE L051CA8
|
|
L051CB1 LDA [$D4],Y
|
|
REP #$20
|
|
AND #$007F
|
|
RTS
|
|
|
|
L051CB9 SEP #$20
|
|
CPY #$0000
|
|
BEQ L051CCE
|
|
DEY
|
|
L051CC1 CPY #$0000
|
|
BEQ L051CCE
|
|
DEY
|
|
LDA [$D4],Y
|
|
CMP #$0D
|
|
BNE L051CC1
|
|
INY
|
|
L051CCE REP #$20
|
|
RTS
|
|
|
|
L051CD1 SEP #$20
|
|
CMP #$80
|
|
BCC L051CDA
|
|
BRL L051CE7
|
|
L051CDA CMP #$20
|
|
BCS L051CE1
|
|
BRL L051F16
|
|
L051CE1 JSR L0521BC
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051CE7 LDX L051CFD
|
|
L051CEA CMP L051CFF-1,X
|
|
BEQ L051CF5
|
|
DEX
|
|
BNE L051CEA
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051CF5 REP #$20
|
|
TXA
|
|
ASL
|
|
TAX
|
|
JMP (L051D13-2,X)
|
|
|
|
L051CFD DW L051D13-L051CFF ; was $14 (= 20)
|
|
|
|
L051CFF DB $D1 ; Q
|
|
db $f1 ; q
|
|
DB $8A ; DOWN-ARROW
|
|
DB $8B ; UP-ARROW
|
|
DB $95 ; RIGHT-ARROW
|
|
DB $88 ; LEFT-ARROW
|
|
DB $DA ; Z
|
|
db $fa ; z
|
|
DB $C2 ; B
|
|
db $e2 ; b
|
|
DB $CE ; N
|
|
db $ee ; n
|
|
DB $D4 ; T
|
|
db $f4 ; t
|
|
DB $89 ; CTRL-I
|
|
DB $C4 ; D
|
|
db $e4 ; d
|
|
DB $C9 ; I
|
|
db $e9 ; i
|
|
DB $FF ; DEL
|
|
DB $D8 ; X - Not implemented
|
|
DB $C3 ; C - Not implemented
|
|
DB $D6 ; V - Not implemented
|
|
DB $C6 ; F - Not implemented
|
|
DB $D7 ; W - Not implemented
|
|
DB $C5 ; E - Not implemented
|
|
DB $CF ; O - Not implemented
|
|
|
|
L051D13 DA L051DFA ; Q
|
|
da L051DFA ; q
|
|
DA L051D73 ; DOWN-ARROW
|
|
DA L051D6E ; UP-ARROW
|
|
DA L051D7D ; RIGHT-ARROW
|
|
DA L051D78 ; LEFT-ARROW
|
|
DA L051D69 ; Z
|
|
da L051D69 ; z
|
|
DA L051D3E ; B
|
|
da L051D3E ; b
|
|
DA L051D51 ; N
|
|
da L051D51 ; n
|
|
DA L051DFF ; T
|
|
da L051DFF ; t
|
|
DA L051E11 ; CTRL-I
|
|
DA L051E6D ; D
|
|
da L051E6D ; d
|
|
DA L051E96 ; I
|
|
da L051E96 ; i
|
|
DA L051E3D ; DEL
|
|
DA L051EC6 ; X
|
|
DA L051EC6 ; C
|
|
DA L051EC6 ; V
|
|
DA L051EC6 ; F
|
|
DA L051EC6 ; W
|
|
DA L051EC6 ; E
|
|
DA L051EC6 ; O
|
|
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051D3E JSR L051B1F
|
|
STZ L051978
|
|
STZ L05197A
|
|
STZ L051B82
|
|
STZ L051980
|
|
SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L051D51 JSR L051B1F
|
|
LDA $D8
|
|
DEC
|
|
STA L051B82
|
|
LDA L051CA4
|
|
DEC
|
|
STA L05197A
|
|
L051D61 LDA #$0000
|
|
STA L051DF8
|
|
BRA L051D86
|
|
L051D69 LDA #$0000
|
|
BRA L051D80
|
|
L051D6E LDA #$FFF6
|
|
BRA L051D80
|
|
L051D73 LDA #$000A
|
|
BRA L051D80
|
|
L051D78 LDA #$FFE9
|
|
BRA L051D80
|
|
L051D7D LDA #$0017
|
|
L051D80 STA L051DF8
|
|
JSR L051B1F
|
|
L051D86 LDA L05197A
|
|
CLC
|
|
ADC L051DF8
|
|
BPL L051D9C
|
|
BIT L051DF8
|
|
BPL L051D9C
|
|
BIT L05197A
|
|
BMI L051D9C
|
|
LDA #$0000
|
|
L051D9C CMP L051CA4
|
|
BCC L051DA5
|
|
LDA L051CA4
|
|
DEC
|
|
L051DA5 TAY
|
|
SEC
|
|
SBC L05197A
|
|
BPL L051DB0
|
|
EOR #$FFFF
|
|
INC
|
|
L051DB0 TAX
|
|
TYA
|
|
STA L05197A
|
|
SEC
|
|
SBC #$000A
|
|
BPL L051DC3
|
|
BIT L05197A
|
|
BMI L051DC3
|
|
LDA #$0000
|
|
L051DC3 STA L051978
|
|
LDY L051B82
|
|
TXA
|
|
BEQ L051DDC
|
|
L051DCC BIT L051DF8
|
|
BPL L051DD6
|
|
JSR L051CB9
|
|
BRA L051DD9
|
|
L051DD6 JSR L051CA6
|
|
L051DD9 DEX
|
|
BNE L051DCC
|
|
L051DDC JSR L051AF1
|
|
SEC
|
|
LDA L05197A
|
|
SBC L051978
|
|
CMP #$000A
|
|
BCC L051DEE
|
|
LDA #$000A
|
|
L051DEE STA L051980
|
|
STZ L05197E
|
|
SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L051DF8 DB $00
|
|
DB $00
|
|
|
|
L051DFA JSR L051B1F
|
|
SEC
|
|
RTS
|
|
|
|
L051DFF JSR L051B1F
|
|
LDA L051FCE
|
|
STA L051B82
|
|
LDA L051FD0
|
|
STA L05197A
|
|
BRL L051D61
|
|
L051E11 PHP
|
|
SEP #$30
|
|
LDX L051C85
|
|
L051E17 CPX #$00
|
|
BEQ L051E33
|
|
DEX
|
|
LDA L051B86,X
|
|
CMP #$20
|
|
BEQ L051E17
|
|
CPX #$00
|
|
BEQ L051E33
|
|
L051E27 DEX
|
|
LDA L051B86,X
|
|
INX
|
|
CMP #$20
|
|
BEQ L051E33
|
|
DEX
|
|
BNE L051E27
|
|
L051E33 STX L051C85
|
|
JSR L051FF8
|
|
PLP
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
MX %00
|
|
L051E3D JSR L051B1F
|
|
LDA L05197A
|
|
BEQ L051E92
|
|
LDA L051980
|
|
AND #$00FF
|
|
BEQ L051E92
|
|
DEC L05197A
|
|
DEC L051980
|
|
LDY L051B82
|
|
JSR L051CB9
|
|
JSR L051AF1
|
|
JSR L051E6D
|
|
PHP
|
|
LDA L051978
|
|
BEQ L051E6B
|
|
DEC L051978
|
|
INC L051980
|
|
L051E6B PLP
|
|
RTS
|
|
|
|
L051E6D PHP
|
|
SEP #$30
|
|
STZ L05197E
|
|
REP #$30
|
|
JSR L05210A
|
|
LDA L051B86
|
|
AND #$00FF
|
|
BEQ L051E91
|
|
LDA L051B84
|
|
AND #$00FF
|
|
LDY L051B82
|
|
JSR L052358
|
|
BCS L051E91
|
|
DEC L051CA4
|
|
L051E91 PLP
|
|
L051E92 SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L051E96 JSR L051B1F
|
|
STZ L05197E
|
|
JSR L051EA3
|
|
SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L051EA3 PHP
|
|
SEP #$20
|
|
REP #$20
|
|
LDA #$0001
|
|
LDY L051B82
|
|
PHY
|
|
JSR L052317
|
|
PLY
|
|
BCS L051EC3
|
|
SEP #$20
|
|
LDA #$0D
|
|
STA [$D4],Y
|
|
REP #$20
|
|
INC L051CA4
|
|
PLP
|
|
CLC
|
|
RTS
|
|
|
|
L051EC3 PLP
|
|
SEC
|
|
RTS
|
|
|
|
L051EC6 JSR L051B1F
|
|
JSL L03074E
|
|
DB $06
|
|
DB $0C
|
|
DB $24
|
|
DB $4F
|
|
LDY #$0008
|
|
LDX #$0028
|
|
JSL L0300E2
|
|
JSL L0302E1
|
|
STR "Not yet implemented."
|
|
LDA #$00DF
|
|
JSL L030593
|
|
LDY #$000A
|
|
LDX #$0026
|
|
JSL L0300E2
|
|
JSL L03034A
|
|
JSL L030035
|
|
DB $00
|
|
DB $17
|
|
DB $00
|
|
DB $4F
|
|
JSR L0519A4
|
|
CLC
|
|
RTS
|
|
|
|
L051F16 LDX L051F2C
|
|
L051F19 CMP L051F2D,X
|
|
BEQ L051F24
|
|
DEX
|
|
BNE L051F19
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051F24 REP #$20
|
|
TXA
|
|
ASL
|
|
TAX
|
|
JMP (L051F39,X)
|
|
|
|
L051F2C DB $0D
|
|
L051F2D DB $00
|
|
DB $0A
|
|
DB $0B
|
|
DB $15
|
|
DB $08
|
|
DB $05
|
|
DB $14
|
|
DB $09
|
|
DB $02
|
|
DB $0E
|
|
DB $04
|
|
DB $19
|
|
L051F39 DB $0D
|
|
DB $1B
|
|
DA L051F58
|
|
DA L051F93
|
|
DA L051FD2
|
|
DA L051FE6
|
|
DA L051FB9
|
|
DA L051FBF
|
|
DA L052132
|
|
DA L052167
|
|
DA L052170
|
|
DA L052183
|
|
DA L052189
|
|
DA L0521A3
|
|
DA L051F58
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051F58 JSR L051B1F
|
|
LDA L05197A
|
|
INC
|
|
CMP L051CA4
|
|
BCC L051F72
|
|
LDY L051B82
|
|
JSR L051CA6
|
|
STY L051B82
|
|
JSR L051EA3
|
|
BCS L051F89
|
|
L051F72 INC L05197A
|
|
LDY L051B82
|
|
JSR L051CA6
|
|
JSR L051AF1
|
|
LDA L051980
|
|
CMP #$0017
|
|
BEQ L051F8C
|
|
INC L051980
|
|
L051F89 CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051F8C INC L051978
|
|
SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L051F93 LDA L05197A
|
|
BEQ L051FAF
|
|
JSR L051B1F
|
|
DEC L05197A
|
|
LDY L051B82
|
|
JSR L051CB9
|
|
JSR L051AF1
|
|
LDA L051980
|
|
BEQ L051FB2
|
|
DEC L051980
|
|
L051FAF CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051FB2 DEC L051978
|
|
SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L051FB9 JSR L051991
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051FBF LDA L051B82
|
|
STA L051FCE
|
|
LDA L05197A
|
|
STA L051FD0
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051FCE DB $00
|
|
DB $00
|
|
L051FD0 DB $00
|
|
DB $00
|
|
L051FD2 SEP #$30
|
|
LDA L05197E
|
|
CMP #$4F
|
|
BCS L051FDE
|
|
INC L051C85
|
|
L051FDE REP #$30
|
|
JSR L051FF8
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051FE6 SEP #$30
|
|
LDA L051C85
|
|
BEQ L051FDE
|
|
DEC L051C85
|
|
REP #$30
|
|
JSR L051FF8
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L051FF8 PHP
|
|
SEP #$30
|
|
JSR L051B62
|
|
STZ L051AA0
|
|
LDX L051C85
|
|
CPX L051B85
|
|
BCC L052024
|
|
LDX L051B85
|
|
DEX
|
|
LDA L051B86,X
|
|
PHA
|
|
LDA #$20
|
|
L052013 STA L051B86,X
|
|
INX
|
|
CPX L051C85
|
|
BCC L052013
|
|
PLA
|
|
STA L051B86,X
|
|
INX
|
|
STX L051B85
|
|
L052024 LDY #$00
|
|
TYX
|
|
STX L051A9A
|
|
LDA L051B86
|
|
CMP #$3B
|
|
BNE L052034
|
|
LDY L051A9D
|
|
L052034 CPX L051C85
|
|
BEQ L05208E
|
|
LDA L051B86,X
|
|
CMP #$20
|
|
BNE L052070
|
|
BIT L051C86
|
|
BMI L052070
|
|
BIT L051AA0
|
|
BMI L052070
|
|
LDA L051A9A
|
|
CMP #$03
|
|
BCS L052070
|
|
LDA L051B87,X
|
|
CMP #$3B
|
|
BNE L05205E
|
|
LDY L051A9D
|
|
DEY
|
|
BRA L052070
|
|
L05205E PHX
|
|
LDX L051A9A
|
|
TYA
|
|
CMP L051A9B,X
|
|
BCS L05206C
|
|
LDY L051A9B,X
|
|
DEY
|
|
L05206C INC L051A9A
|
|
PLX
|
|
L052070 LDA L051B86,X
|
|
ORA #$80
|
|
EOR L051AA0
|
|
BEQ L052087
|
|
BPL L05208A
|
|
EOR L051AA0
|
|
CMP #$A2
|
|
BEQ L052087
|
|
CMP #$A7
|
|
BNE L05208A
|
|
L052087 STA L051AA0
|
|
L05208A INY
|
|
INX
|
|
BRA L052034
|
|
L05208E STY L05197E
|
|
PLP
|
|
RTS
|
|
|
|
L052093 PHP
|
|
SEP #$30
|
|
STZ L051AA0
|
|
STZ L051A9A
|
|
LDY #$00
|
|
TYX
|
|
L05209F LDA L051B86,X
|
|
BEQ L0520A8
|
|
CMP #$0D
|
|
BNE L0520B3
|
|
L0520A8 STA L051B87,X
|
|
LDA #$20
|
|
STA L051B86,X
|
|
INC L051B85
|
|
L0520B3 CPY L05197E
|
|
BCS L0520FA
|
|
CMP #$20
|
|
BNE L0520DC
|
|
BIT L051C86
|
|
BMI L0520DC
|
|
BIT L051AA0
|
|
BMI L0520DC
|
|
PHX
|
|
LDX L051A9A
|
|
CPX #$03
|
|
BCS L0520D8
|
|
TYA
|
|
CMP L051A9B,X
|
|
BCS L0520D8
|
|
LDY L051A9B,X
|
|
DEY
|
|
L0520D8 PLX
|
|
INC L051A9A
|
|
L0520DC LDA L051B86,X
|
|
ORA #$80
|
|
EOR L051AA0
|
|
BEQ L0520F3
|
|
BPL L0520F6
|
|
EOR L051AA0
|
|
CMP #$A2
|
|
BEQ L0520F3
|
|
CMP #$A7
|
|
BNE L0520F6
|
|
L0520F3 STA L051AA0
|
|
L0520F6 INY
|
|
INX
|
|
BRA L05209F
|
|
L0520FA BEQ L0520FD
|
|
DEX
|
|
L0520FD STX L051C85
|
|
REP #$30
|
|
JSR L05210A
|
|
JSR L051FF8
|
|
PLP
|
|
RTS
|
|
|
|
L05210A PHP
|
|
SEP #$30
|
|
LDX L051B85
|
|
LDA L051B85,X
|
|
PHA
|
|
L052114 DEX
|
|
BEQ L05211E
|
|
LDA L051B85,X
|
|
CMP #$20
|
|
BEQ L052114
|
|
L05211E INX
|
|
PLA
|
|
STA L051B85,X
|
|
CMP #$0D
|
|
BEQ L05212D
|
|
LDA #$0D
|
|
STA L051B86,X
|
|
INX
|
|
L05212D STX L051B85
|
|
PLP
|
|
RTS
|
|
|
|
L052132 PHP
|
|
SEP #$30
|
|
LDA L05197E
|
|
CMP #$4F
|
|
BCS L052156
|
|
LDX L051C85
|
|
L05213F LDA L051B86,X
|
|
BEQ L05215A
|
|
CMP #$0D
|
|
BEQ L05215A
|
|
CMP #$20
|
|
BEQ L05214F
|
|
INX
|
|
BNE L05213F
|
|
L05214F INX
|
|
STX L051C85
|
|
JSR L051FF8
|
|
L052156 PLP
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L05215A STA L051B87,X
|
|
LDA #$20
|
|
STA L051B86,X
|
|
INC L051B85
|
|
BRA L05214F
|
|
L052167 STZ L051C85
|
|
JSR L051FF8
|
|
CLV
|
|
CLC
|
|
RTS
|
|
|
|
MX %00
|
|
L052170 JSR L05210A
|
|
LDA L051B85
|
|
AND #$00FF
|
|
DEC
|
|
STA L051C85
|
|
JSR L051FF8
|
|
CLV
|
|
CLC
|
|
RTS
|
|
|
|
L052183 JSR L0522F0
|
|
CLV
|
|
CLC
|
|
RTS
|
|
|
|
L052189 PHP
|
|
SEP #$30
|
|
LDX L051B85
|
|
LDA L051B85,X
|
|
LDX L051C85
|
|
INX
|
|
STA L051B85,X
|
|
STX L051B85
|
|
JSR L052214
|
|
PLP
|
|
CLV
|
|
CLC
|
|
RTS
|
|
|
|
L0521A3 STZ L05197E
|
|
LDA L05197A
|
|
INC
|
|
CMP L051CA4
|
|
BCC L0521B2
|
|
BRL L051F58
|
|
L0521B2 JSR L051F58
|
|
JSR L051EA3
|
|
SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L0521BC SEP #$30
|
|
CMP #$7F
|
|
BNE L0521C5
|
|
BRL L0522CE
|
|
L0521C5 PHA
|
|
LDX L051B85
|
|
BIT L051982
|
|
BMI L0521DF
|
|
DEX
|
|
CPX L051C85
|
|
BNE L0521ED
|
|
LDA L051B86,X
|
|
STA L051B87,X
|
|
INC L051B85
|
|
BRA L0521ED
|
|
L0521DF LDA L051B85,X
|
|
STA L051B86,X
|
|
DEX
|
|
BEQ L0521ED
|
|
CPX L051C85
|
|
BCS L0521DF
|
|
L0521ED LDX L051C85
|
|
PLA
|
|
STA L051B86,X
|
|
BIT L051982
|
|
BPL L05220B
|
|
LDA L051B85
|
|
CMP #$FE
|
|
BNE L052208
|
|
LDA L051C84
|
|
STA L051C83
|
|
BRA L05220B
|
|
L052208 INC L051B85
|
|
L05220B REP #$30
|
|
JSR L051FD2
|
|
JSR L052214
|
|
RTS
|
|
|
|
L052214 JSR L051FF8
|
|
JSR L051AA1
|
|
JSR L051B62
|
|
SEP #$30
|
|
STZ L051AA0
|
|
LDY #$00
|
|
LDA #$00
|
|
XBA
|
|
STZ L051A9A
|
|
LDX #$00
|
|
LDA L051B86
|
|
CMP #$3B
|
|
BNE L052238
|
|
LDX L051A9D
|
|
LDA #$2A
|
|
L052238 STA L051A9F
|
|
L05223B LDA L051B86,Y
|
|
BNE L052243
|
|
BRL L0522CB
|
|
L052243 CMP #$0D
|
|
BNE L05224A
|
|
BRL L0522CB
|
|
L05224A CMP #$20
|
|
BNE L052290
|
|
LDA L051A9F
|
|
CMP #$2A
|
|
BEQ L05228E
|
|
LDA L051AA0
|
|
BNE L05228E
|
|
LDA L051B87,Y
|
|
CMP #$3B
|
|
BEQ L05226E
|
|
LDA L051A9A
|
|
BEQ L052282
|
|
CMP #$03
|
|
BCS L05228E
|
|
CMP #$02
|
|
BCC L052278
|
|
L05226E CPX L051A9D
|
|
BCS L05228E
|
|
LDX L051A9D
|
|
BRA L05228A
|
|
L052278 CPX L051A9C
|
|
BCS L05228E
|
|
LDX L051A9C
|
|
BRA L05228A
|
|
L052282 CPX L051A9B
|
|
BCS L05228E
|
|
LDX L051A9B
|
|
L05228A INC L051A9A
|
|
DEX
|
|
L05228E LDA #$A0
|
|
L052290 PHY
|
|
PHX
|
|
PHA
|
|
TXA
|
|
LSR
|
|
TAY
|
|
STAL $E0C054
|
|
BCS L0522A0
|
|
STAL $E0C055
|
|
L0522A0 PLA
|
|
ORA #$80
|
|
STA [$28],Y
|
|
STAL $E0C054
|
|
EOR L051AA0
|
|
BEQ L0522BB
|
|
BPL L0522BE
|
|
EOR L051AA0
|
|
CMP #$A2
|
|
BEQ L0522BB
|
|
CMP #$A7
|
|
BNE L0522BE
|
|
L0522BB STA L051AA0
|
|
L0522BE PLX
|
|
PLY
|
|
INX
|
|
CPX #$50
|
|
BCS L0522CB
|
|
INY
|
|
BEQ L0522CB
|
|
BRL L05223B
|
|
L0522CB REP #$30
|
|
RTS
|
|
|
|
L0522CE SEP #$30
|
|
LDX L051C85
|
|
BEQ L0522E7
|
|
L0522D5 LDA L051B86,X
|
|
STA L051B85,X
|
|
BEQ L0522E4
|
|
CMP #$0D
|
|
BEQ L0522E4
|
|
INX
|
|
BNE L0522D5
|
|
L0522E4 STX L051B85
|
|
L0522E7 REP #$30
|
|
JSR L051FE6
|
|
JSR L052214
|
|
RTS
|
|
|
|
L0522F0 SEP #$30
|
|
LDX L051C85
|
|
INX
|
|
CPX L051B85
|
|
BEQ L052311
|
|
DEX
|
|
L0522FC LDA L051B86,X
|
|
BEQ L05230E
|
|
CMP #$0D
|
|
BEQ L05230E
|
|
LDA L051B87,X
|
|
STA L051B86,X
|
|
INX
|
|
BNE L0522FC
|
|
L05230E DEC L051B85
|
|
L052311 REP #$30
|
|
JSR L052214
|
|
RTS
|
|
|
|
L052317 PHP
|
|
REP #$30
|
|
CMP #$0000
|
|
BEQ L052355
|
|
STA L0523A8
|
|
STY $00
|
|
CLC
|
|
ADC $D8
|
|
BCC L05232C
|
|
PLP
|
|
SEC
|
|
RTS
|
|
|
|
L05232C LDY $D8
|
|
INY
|
|
STA $D8
|
|
TYA
|
|
EOR $00
|
|
LSR
|
|
BCC L052338
|
|
INY
|
|
L052338 CLC
|
|
LDA L0523A8
|
|
ADC $D4
|
|
STA $E4
|
|
LDA #$0000
|
|
ADC $D6
|
|
STA $E6
|
|
L052347 LDA [$D4],Y
|
|
STA [$E4],Y
|
|
DEY
|
|
DEY
|
|
CPY $00
|
|
BNE L052347
|
|
LDA [$D4],Y
|
|
STA [$E4],Y
|
|
L052355 PLP
|
|
CLC
|
|
RTS
|
|
|
|
L052358 PHP
|
|
REP #$30
|
|
CMP #$0000
|
|
BEQ L0523A3
|
|
STA L0523A8
|
|
SEC
|
|
LDA $D8
|
|
SBC L0523A8
|
|
BCS L05236E
|
|
PLP
|
|
SEC
|
|
RTS
|
|
|
|
L05236E PHA
|
|
CLC
|
|
LDA L0523A8
|
|
ADC $D4
|
|
STA $E4
|
|
LDA #$0000
|
|
ADC $D6
|
|
STA $E6
|
|
SEP #$20
|
|
LDA [$E4],Y
|
|
STA [$D4],Y
|
|
REP #$20
|
|
TYA
|
|
EOR $D8
|
|
LSR
|
|
BCC L05238D
|
|
INY
|
|
L05238D BRA L052395
|
|
L05238F LDA [$E4],Y
|
|
STA [$D4],Y
|
|
INY
|
|
INY
|
|
L052395 CPY $D8
|
|
BEQ L05238F
|
|
BCC L05238F
|
|
PLY
|
|
STY $D8
|
|
LDA #$0000
|
|
STA [$D4],Y
|
|
L0523A3 PLP
|
|
CLC
|
|
RTS
|
|
|
|
DB $00
|
|
DB $00
|
|
L0523A8 DB $00
|
|
DB $00
|
|
L0523AA ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PHP
|
|
REP #$30
|
|
STA L0500F5
|
|
STY L0500F5+2
|
|
STA $00
|
|
STY $02
|
|
ORA $02
|
|
BEQ L0523F0
|
|
PEA ^L0500F3
|
|
PEA L0500F3
|
|
PEA $200E ; ExpandPath
|
|
JSL GSOS2
|
|
BCS L05241D
|
|
LDA [$00]
|
|
TAY
|
|
INY
|
|
LDX L050143
|
|
INX
|
|
SEP #$20
|
|
L0523D7 LDA [$00],Y
|
|
AND #$7F
|
|
JSR L052478
|
|
CMP L050143,X
|
|
BNE L0523EE
|
|
LDA [$00],Y
|
|
AND #$7F
|
|
STA L050143,X
|
|
DEX
|
|
DEY
|
|
BNE L0523D7
|
|
L0523EE REP #$20
|
|
L0523F0 JSR L050245
|
|
BCC L0523F9
|
|
PLP
|
|
PLB
|
|
CLC
|
|
RTL
|
|
|
|
L0523F9 PEA ^L052483
|
|
PEA L052483
|
|
PEA $2001 ; Create
|
|
JSL GSOS2
|
|
BCC L05241F
|
|
CMP #$0047
|
|
BEQ L052410
|
|
BRL L05245F
|
|
L052410 PEA ^L052483
|
|
PEA L052483
|
|
PEA $2005 ; SetFileInfo
|
|
JSL GSOS2
|
|
L05241D BCS L05245F
|
|
L05241F PEA ^L052493
|
|
PEA L052493
|
|
PEA $2010 ; Open
|
|
JSL GSOS2
|
|
BCS L05245F
|
|
LDA L052495
|
|
STA L05249D
|
|
STA L0524AD
|
|
JSR L050245
|
|
LDA $D4
|
|
STA L05249F
|
|
LDA $D6
|
|
STA L05249F+2
|
|
LDA $D8
|
|
STA L0524A3
|
|
PEA ^L05249B
|
|
PEA L05249B
|
|
PEA $2013 ; Write
|
|
JSL GSOS2
|
|
BCS L05245F
|
|
JSR L052466
|
|
PLP
|
|
PLB
|
|
CLC
|
|
RTL
|
|
|
|
L05245F JSR L052466
|
|
PLP
|
|
PLB
|
|
SEC
|
|
RTL
|
|
|
|
L052466 PHP
|
|
PHA
|
|
PEA ^L0524AB
|
|
PEA L0524AB
|
|
PEA $2014 ; Close
|
|
JSL GSOS2
|
|
PLA
|
|
PLP
|
|
RTS
|
|
|
|
MX %11
|
|
L052478 CMP #$61
|
|
BCC L052482
|
|
CMP #$7B
|
|
BCS L052482
|
|
AND #$5F
|
|
L052482 RTS
|
|
|
|
L052483 DW $0005 ; Parms for SetFileInfo
|
|
ADRL L050143 ; file name
|
|
DW $00C3 ; access
|
|
DW $0004 ; file type
|
|
ADRL $00000000 ; aux type
|
|
DS 2 ; (null field)
|
|
L052493 DW $0002 ; Parms for Open
|
|
L052495 DW $0000 ; ref num
|
|
ADRL L050143 ; path name
|
|
L05249B DW $0004 ; Parms for Write
|
|
L05249D DW $0000 ; ref num
|
|
L05249F ADRL $00000000 ; buffer ptr
|
|
L0524A3 ADRL $00000000 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L0524AB DW $0001 ; Parms for Close
|
|
L0524AD DW $0000 ; ref num
|