1895 lines
50 KiB
NASM
1895 lines
50 KiB
NASM
; Disassembly of the file "XPATCH-5510.bin"
|
|
;
|
|
; CPU Type: Z80
|
|
;
|
|
; Created with dZ80 2.1
|
|
;
|
|
; on Sunday, 04 of April 2021 at 03:43 PM
|
|
;
|
|
PRTC EQU 0FEH
|
|
PRTD EQU 0FFH
|
|
GETL EQU 00003H
|
|
LETNL EQU 00006H
|
|
NL EQU 00009H
|
|
PRNTS EQU 0000CH
|
|
PRNTT EQU 0000FH
|
|
PRNT EQU 00012H
|
|
MSG EQU 00015H
|
|
MSGX EQU 00018H
|
|
GETKY EQU 0001BH
|
|
BRKEY EQU 0001EH
|
|
?WRI EQU 00021H
|
|
?WRD EQU 00024H
|
|
?RDI EQU 00027H
|
|
?RDD EQU 0002AH
|
|
?VRFY EQU 0002DH
|
|
MELDY EQU 00030H
|
|
?TMST EQU 00033H
|
|
TIMRD EQU 0003BH
|
|
BELL EQU 0003EH
|
|
XTEMP EQU 00041H
|
|
MSTA EQU 00044H
|
|
MSTP EQU 00047H
|
|
MONIT EQU 00000H
|
|
SS EQU 00089H
|
|
ST1 EQU 00095H
|
|
HLHEX EQU 00410H
|
|
_2HEX EQU 0041FH
|
|
?MODE EQU 0074DH
|
|
?KEY EQU 008CAH
|
|
PRNT3 EQU 0096CH
|
|
?ADCN EQU 00BB9H
|
|
?DACN EQU 00BCEH
|
|
?DSP EQU 00DB5H
|
|
?BLNK EQU 00DA6H
|
|
?DPCT EQU 00DDCH
|
|
PRTHL EQU 003BAH
|
|
PRTHX EQU 003C3H
|
|
ASC EQU 003DAH
|
|
HEX EQU 003F9H
|
|
DPCT EQU 00DDCH
|
|
DLY12 EQU 00DA7H
|
|
DLY12A EQU 00DAAH
|
|
?RSTR1 EQU 00EE6H
|
|
MOTOR EQU 006A3H
|
|
CKSUM EQU 0071AH
|
|
GAP EQU 0077AH
|
|
WTAPE EQU 00485H
|
|
MSTOP EQU 00700H
|
|
TAPECOPY EQU 011FDH
|
|
COLDSTRT EQU 01200H
|
|
WARMSTRTMON EQU 01250H
|
|
CMDWORDTBL EQU 015A8H
|
|
CMDJMPTBL EQU 01BB2H
|
|
CMTBUF EQU 02E33H
|
|
CMTFNAME EQU 02E34H
|
|
CMDREMDATA EQU 01C3CH
|
|
SYNTAXERR EQU 013ABH
|
|
CMDREAD EQU 02D12H
|
|
CMDLIST EQU 01C4DH
|
|
CMDRUN EQU 01E91H
|
|
CMDNEW EQU 01C42H
|
|
CMDPRINT EQU 02B0DH
|
|
CMDLET EQU 01D6AH
|
|
CMDFOR EQU 01F2BH
|
|
CMDIF EQU 021ADH
|
|
CMDTHEN EQU 013ABH
|
|
CMDGOTO EQU 01EA6H
|
|
CMDGOSUB EQU 01EC7H
|
|
CMDRETURN EQU 01EF8H
|
|
CMDNEXT EQU 01FC0H
|
|
CMDSTOP EQU 01D2CH
|
|
CMDEND EQU 01D15H
|
|
CMDON EQU 0203EH
|
|
CMDLOAD EQU 02D75H
|
|
CMDSAVE EQU 02D82H
|
|
CMDVERIFY EQU 02EB3H
|
|
CMDPOKE EQU 02191H
|
|
CMDDIM EQU 02080H
|
|
CMDDEFFN EQU 02201H
|
|
CMDINPUT EQU 02BFFH
|
|
CMDRESTORE EQU 01D4DH
|
|
CMDCLS EQU 021A6H
|
|
CMDMUSIC EQU 02269H
|
|
CMDTEMPO EQU 02282H
|
|
CMDUSRN EQU 02942H
|
|
CMDWOPEN EQU 02D9FH
|
|
CMDROPEN EQU 02D92H
|
|
CMDCLOSE EQU 02DADH
|
|
CMDMON EQU 028B6H
|
|
CMDLIMIT EQU 02967H
|
|
CMDCONT EQU 029CEH
|
|
CMDGET EQU 02902H
|
|
CMDINP EQU 029FEH
|
|
CMDOUT EQU 02A1CH
|
|
CMDCURSOR EQU 028B9H
|
|
CMDSET EQU 02AA6H
|
|
CMDRESET EQU 02AAAH
|
|
CMDAUTO EQU 02A2FH
|
|
CMDCOPY EQU 033ABH
|
|
CMDPAGE EQU 032D4H
|
|
OVFLERR EQU 013AEH
|
|
ILDATERR EQU 013B1H
|
|
DATMISERR EQU 013B4H
|
|
STRLENERR EQU 013B7H
|
|
MEMERR EQU 013BAH
|
|
LINELENERR EQU 013C0H
|
|
GOSUBERR EQU 013C3H
|
|
FORNEXTERR EQU 013C6H
|
|
FUNCERR EQU 013C9H
|
|
NEXTFORERR EQU 013CCH
|
|
RETGOSBERR EQU 013CFH
|
|
UNDEFFNERR EQU 013D2H
|
|
LINEERR EQU 013D5H
|
|
CONTERR EQU 013D8H
|
|
BADWRERR EQU 013DBH
|
|
CMDSTMTERR EQU 013DEH
|
|
READDATAERR EQU 013E1H
|
|
OPENERR EQU 013E4H
|
|
UNKNWNERR EQU 013E7H
|
|
OUTFILEERR EQU 013EAH
|
|
PRTNRDYERR EQU 013EDH
|
|
PRTHWERR EQU 013F0H
|
|
PRTPAPERERR EQU 013F3H
|
|
CHKSUMERR EQU 013F6H
|
|
TITLEMSG EQU 01347H
|
|
COPYRMSG EQU 01364H
|
|
READYMSG EQU 01384H
|
|
ERRORMSG EQU 0138AH
|
|
INMSG EQU 01391H
|
|
BREAKMSG EQU 01395H
|
|
BYTESMSG EQU 0139CH
|
|
ERRCODE EQU 013A3H
|
|
MSGNL EQU 01332H
|
|
UNUSEDTBL1 EQU 0167BH
|
|
UNUSEDTBL2 EQU 0167DH
|
|
WARMSTRT EQU 0124EH
|
|
OPERATORTBL EQU 0167FH
|
|
STRTONUM EQU 017FCH
|
|
GETNUM EQU 01E88H
|
|
SKIPSPACE EQU 0173FH
|
|
INCSKIPSPCE EQU 0173EH
|
|
EXECHL EQU 0177BH
|
|
EXECNOTCHR EQU 01795H
|
|
MATCHCHR EQU 017A3H
|
|
LINEBUFR EQU 0490DH
|
|
ATRB EQU 010F0H
|
|
NAME EQU 010F1H
|
|
SIZE EQU 01102H
|
|
DTADR EQU 01104H
|
|
EXADR EQU 01106H
|
|
COMNT EQU 01108H
|
|
SWPW EQU 01164H
|
|
KDATW EQU 0116EH
|
|
KANAF EQU 01170H
|
|
DSPXY EQU 01171H
|
|
MANG EQU 01173H
|
|
MANGE EQU 01179H
|
|
PBIAS EQU 0117AH
|
|
ROLTOP EQU 0117BH
|
|
MGPNT EQU 0117CH
|
|
PAGETP EQU 0117DH
|
|
ROLEND EQU 0117FH
|
|
FLASH EQU 0118EH
|
|
SFTLK EQU 0118FH
|
|
REVFLG EQU 01190H
|
|
SPAGE EQU 01191H
|
|
FLSDT EQU 01192H
|
|
STRGF EQU 01193H
|
|
DPRNT EQU 01194H
|
|
TMCNT EQU 01195H
|
|
SUMDT EQU 01197H
|
|
CSMDT EQU 01199H
|
|
AMPM EQU 0119BH
|
|
TIMFG EQU 0119CH
|
|
SWRK EQU 0119DH
|
|
TEMPW EQU 0119EH
|
|
ONTYO EQU 0119FH
|
|
OCTV EQU 011A0H
|
|
RATIO EQU 011A1H
|
|
BUFER EQU 011A3H
|
|
PRGSTART EQU 0505CH
|
|
|
|
ORG PRGSTART
|
|
|
|
L505C: NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
L506B: NOP
|
|
NOP
|
|
L506D: LD BC,01B35H
|
|
PUSH BC
|
|
CALL L5098
|
|
JP Z,L5150
|
|
LD DE,L507D
|
|
JP MSGNL
|
|
|
|
L507D: DB "RANGE ERROR"
|
|
DB 00DH
|
|
L5089: DB "OVERFLOW ERROR",00DH
|
|
L5098: LD DE,MONIT
|
|
LD (05063H),DE
|
|
DEC DE
|
|
DEC DE
|
|
LD (05065H),DE
|
|
CALL 017D5H
|
|
OR C
|
|
INC DE
|
|
LD A,02DH
|
|
CP (HL)
|
|
JR NZ,L50C0 ; (+011H)
|
|
LD (05063H),DE
|
|
INC HL
|
|
CALL 048A0H
|
|
CPL
|
|
JR Z,L50D2 ; (+018H)
|
|
LD (05065H),DE
|
|
JR L50D2 ; (+012H)
|
|
|
|
L50C0: LD A,E
|
|
OR D
|
|
JR Z,L50CC ; (+008H)
|
|
LD (05063H),DE
|
|
LD (05065H),DE
|
|
L50CC: LD A,02FH
|
|
CP (HL)
|
|
JR NZ,L50D2 ; (+001H)
|
|
INC HL
|
|
L50D2: CALL 048A0H
|
|
INC L
|
|
JR NZ,L50DB ; (+003H)
|
|
LD DE,0000AH
|
|
L50DB: LD (05067H),DE
|
|
CALL 048A0H
|
|
NOP
|
|
JR NZ,L50E8 ; (+003H)
|
|
LD DE,0000AH
|
|
L50E8: LD (05069H),DE
|
|
LD (05051H),HL
|
|
LD BC,(05063H)
|
|
LD HL,(05065H)
|
|
OR A
|
|
SBC HL,BC
|
|
L50F9: JP C,SYNTAXERR
|
|
CALL L52BB
|
|
JR C,L50F9 ; (-008H)
|
|
CALL 01773H
|
|
JR Z,L5118 ; (+012H)
|
|
EX DE,HL
|
|
CALL 01867H
|
|
LD HL,(05067H)
|
|
EX DE,HL
|
|
SBC HL,DE
|
|
JR C,L5118 ; (+006H)
|
|
CALL L5118
|
|
L5115: XOR A
|
|
INC A
|
|
RET
|
|
|
|
L5118: LD BC,(05065H)
|
|
INC BC
|
|
CALL L52BB
|
|
JR NC,L5136 ; (+014H)
|
|
EX DE,HL
|
|
CALL 01867H
|
|
CALL L526C
|
|
EX DE,HL
|
|
CCF
|
|
JR C,L5149 ; (+01cH)
|
|
L512D: LD DE,L5089
|
|
CALL MSG
|
|
JP 01438H
|
|
|
|
L5136: PUSH DE
|
|
CALL 01867H
|
|
EX DE,HL
|
|
EX (SP),HL
|
|
CALL 01867H
|
|
CALL L526C
|
|
EX DE,HL
|
|
POP DE
|
|
JR C,L512D ; (-019H)
|
|
CALL 01773H
|
|
L5149: LD (L506B),HL
|
|
JR NC,L5115 ; (-039H)
|
|
XOR A
|
|
RET
|
|
|
|
L5150: CALL 01AF1H
|
|
LD HL,(01958H)
|
|
PUSH HL
|
|
POP DE
|
|
L5158: PUSH HL
|
|
OR A
|
|
SBC HL,DE
|
|
JP C,MEMERR
|
|
LD BC,00080H
|
|
SBC HL,BC
|
|
POP HL
|
|
JR NC,L517E ; (+017H)
|
|
LD BC,00100H
|
|
EX DE,HL
|
|
CALL 01888H
|
|
EX DE,HL
|
|
ADD HL,BC
|
|
PUSH HL
|
|
PUSH DE
|
|
CALL 018EAH
|
|
LD HL,(04E94H)
|
|
ADD HL,BC
|
|
LD (04E94H),HL
|
|
POP DE
|
|
POP HL
|
|
L517E: PUSH DE
|
|
LD A,(HL)
|
|
LDI
|
|
OR (HL)
|
|
JR Z,L519C ; (+017H)
|
|
LDI
|
|
LD A,(HL)
|
|
LDI
|
|
LD B,(HL)
|
|
LD C,A
|
|
LDI
|
|
INC BC
|
|
CALL L51D1
|
|
POP HL
|
|
LD C,(HL)
|
|
LD (HL),E
|
|
INC HL
|
|
LD B,(HL)
|
|
LD (HL),D
|
|
PUSH BC
|
|
POP HL
|
|
JR L5158 ; (-044H)
|
|
|
|
L519C: LD (DE),A
|
|
INC DE
|
|
EX DE,HL
|
|
LD (04E4EH),HL
|
|
POP HL
|
|
CALL 0195AH
|
|
LD BC,(05063H)
|
|
CALL L52BB
|
|
LD BC,(05067H)
|
|
L51B1: PUSH HL
|
|
CALL 01867H
|
|
JR Z,L51CF ; (+018H)
|
|
PUSH HL
|
|
LD HL,(05065H)
|
|
SBC HL,DE
|
|
POP HL
|
|
JR C,L51CF ; (+00fH)
|
|
EX (SP),HL
|
|
INC HL
|
|
INC HL
|
|
LD (HL),C
|
|
INC HL
|
|
LD (HL),B
|
|
LD HL,(05069H)
|
|
ADD HL,BC
|
|
PUSH HL
|
|
POP BC
|
|
POP HL
|
|
JR L51B1 ; (-01eH)
|
|
|
|
L51CF: POP HL
|
|
RET
|
|
|
|
L51D1: CALL L52D5
|
|
RET Z
|
|
CP 080H
|
|
JR NZ,L51D1 ; (-008H)
|
|
CALL L52D5
|
|
CP 08CH
|
|
JR Z,L51EC ; (+00cH)
|
|
CP 08DH
|
|
JR Z,L51EC ; (+008H)
|
|
CP 08EH
|
|
JR Z,L51EC ; (+004H)
|
|
CP 09CH
|
|
JR NZ,L51D1 ; (-01bH)
|
|
L51EC: CALL L52D5
|
|
DEC DE
|
|
DEC HL
|
|
SUB 030H
|
|
CP 00AH
|
|
JR NC,L51D1 ; (-026H)
|
|
CALL L5204
|
|
LD A,02CH
|
|
CP (HL)
|
|
JR NZ,L51D1 ; (-02eH)
|
|
LD (DE),A
|
|
INC DE
|
|
INC HL
|
|
JR L51EC ; (-018H)
|
|
|
|
L5204: PUSH DE
|
|
PUSH BC
|
|
CALL 017F6H
|
|
POP BC
|
|
CALL L526C
|
|
EX (SP),HL
|
|
JR NC,L523C ; (+02cH)
|
|
PUSH DE
|
|
PUSH HL
|
|
CALL NL
|
|
EX DE,HL
|
|
LD DE,L5255
|
|
LD A,00DH
|
|
LD (DSPXY),A
|
|
CALL L5244
|
|
LD DE,L525C
|
|
CALL MSG
|
|
XOR A
|
|
LD (DSPXY),A
|
|
LD D,B
|
|
LD E,C
|
|
CALL L526C
|
|
EX DE,HL
|
|
LD DE,L5257
|
|
CALL L5244
|
|
POP HL
|
|
LD (HL),070H
|
|
INC HL
|
|
POP DE
|
|
L523C: EX DE,HL
|
|
PUSH BC
|
|
CALL 01802H
|
|
POP BC
|
|
POP HL
|
|
RET
|
|
|
|
L5244: PUSH BC
|
|
CALL MSG
|
|
LD DE,L505C
|
|
PUSH DE
|
|
CALL STRTONUM
|
|
POP DE
|
|
CALL MSG
|
|
POP BC
|
|
RET
|
|
|
|
L5255: DB 03AH
|
|
DB 020H
|
|
L5257: DB "LINE"
|
|
DB 00DH
|
|
L525C: DB " DOES NOT EXIST"
|
|
DB 00DH
|
|
L526C: PUSH BC
|
|
PUSH HL
|
|
PUSH DE
|
|
XOR A
|
|
LD B,D
|
|
LD C,E
|
|
LD HL,(05065H)
|
|
SBC HL,DE
|
|
JR C,L52AB ; (+032H)
|
|
EX DE,HL
|
|
LD DE,(05063H)
|
|
SBC HL,DE
|
|
JR C,L52AB ; (+029H)
|
|
LD B,D
|
|
LD C,E
|
|
CALL L52BB
|
|
JR C,L52AB ; (+022H)
|
|
POP BC
|
|
LD DE,(05067H)
|
|
PUSH DE
|
|
L528F: CALL 01867H
|
|
JR Z,L52A7 ; (+013H)
|
|
EX DE,HL
|
|
XOR A
|
|
SBC HL,BC
|
|
JR Z,L52B2 ; (+018H)
|
|
JR NC,L52A7 ; (+00bH)
|
|
EX DE,HL
|
|
EX (SP),HL
|
|
LD DE,(05069H)
|
|
ADD HL,DE
|
|
EX (SP),HL
|
|
JR NC,L528F ; (-017H)
|
|
CPL
|
|
L52A7: OR A
|
|
CCF
|
|
JR L52AC ; (+001H)
|
|
|
|
L52AB: XOR A
|
|
L52AC: POP DE
|
|
L52AD: LD D,B
|
|
LD E,C
|
|
POP HL
|
|
POP BC
|
|
RET
|
|
|
|
L52B2: LD H,B
|
|
LD L,C
|
|
POP BC
|
|
SBC HL,BC
|
|
SCF
|
|
CCF
|
|
JR L52AD ; (-00eH)
|
|
|
|
L52BB: LD HL,(01958H)
|
|
PUSH HL
|
|
JR L52C3 ; (+002H)
|
|
|
|
L52C1: EX (SP),HL
|
|
EX DE,HL
|
|
L52C3: PUSH HL
|
|
CALL 01867H
|
|
JR Z,L52D1 ; (+008H)
|
|
EX DE,HL
|
|
SBC HL,BC
|
|
POP HL
|
|
JR C,L52C1 ; (-00eH)
|
|
POP DE
|
|
RET
|
|
|
|
L52D1: POP HL
|
|
POP DE
|
|
SCF
|
|
RET
|
|
|
|
L52D5: LD A,(HL)
|
|
LD (DE),A
|
|
CP 020H
|
|
INC HL
|
|
INC DE
|
|
JR Z,L52D5 ; (-008H)
|
|
CP 00DH
|
|
RET Z
|
|
CP 022H
|
|
RET NZ
|
|
L52E3: LD A,(HL)
|
|
LD (DE),A
|
|
INC HL
|
|
INC DE
|
|
CP 00DH
|
|
RET Z
|
|
CP 022H
|
|
JR NZ,L52E3 ; (-00bH)
|
|
OR A
|
|
RET
|
|
|
|
L52F0: CALL 03327H
|
|
LD HL,(04AB3H)
|
|
CALL 018B0H
|
|
OR C
|
|
INC DE
|
|
PUSH HL
|
|
POP DE
|
|
L52FD: PUSH DE
|
|
LD A,(HL)
|
|
LDI
|
|
OR (HL)
|
|
JR Z,L532B ; (+027H)
|
|
LDI
|
|
LD A,(HL)
|
|
LDI
|
|
LD B,(HL)
|
|
LD C,A
|
|
LDI
|
|
PUSH HL
|
|
LD HL,(04AB5H)
|
|
OR A
|
|
SBC HL,BC
|
|
POP HL
|
|
JR C,L531C ; (+005H)
|
|
CALL L5338
|
|
JR L5323 ; (+007H)
|
|
|
|
L531C: LD A,(HL)
|
|
LDI
|
|
CP 00DH
|
|
JR NZ,L531C ; (-007H)
|
|
L5323: EX (SP),HL
|
|
LD (HL),E
|
|
INC HL
|
|
LD (HL),D
|
|
EX (SP),HL
|
|
POP AF
|
|
JR L52FD ; (-02eH)
|
|
|
|
L532B: LDI
|
|
EX DE,HL
|
|
LD (04E4EH),HL
|
|
POP HL
|
|
CALL 0195AH
|
|
JP 01B35H
|
|
|
|
L5338: PUSH DE
|
|
L5339: CALL SKIPSPACE
|
|
CALL L52D5
|
|
JR NZ,L5343 ; (+002H)
|
|
POP BC
|
|
RET
|
|
|
|
L5343: CP 080H
|
|
JR NZ,L5339 ; (-00eH)
|
|
CP (HL)
|
|
JR NZ,L5339 ; (-011H)
|
|
DEC DE
|
|
CALL 0174EH
|
|
INC HL
|
|
CP 03AH
|
|
JR Z,L5339 ; (-01aH)
|
|
EX (SP),HL
|
|
OR A
|
|
SBC HL,DE
|
|
POP HL
|
|
DEC DE
|
|
LD A,00DH
|
|
LD (DE),A
|
|
INC DE
|
|
RET C
|
|
DEC DE
|
|
DEC DE
|
|
DEC DE
|
|
DEC DE
|
|
RET
|
|
|
|
L5363: XOR A
|
|
LD (L5465),A
|
|
CALL L536D
|
|
JP WARMSTRT
|
|
|
|
L536D: LD A,(0504EH)
|
|
OR A
|
|
JP NZ,SYNTAXERR
|
|
CALL 0193BH
|
|
RET Z
|
|
LD DE,LINEBUFR
|
|
PUSH DE
|
|
CALL 0150AH
|
|
POP HL
|
|
CALL L546D
|
|
LD (L5467),A
|
|
LD DE,BUFER
|
|
LDIR
|
|
LD A,(L5465)
|
|
CP 001H
|
|
JR NZ,L53B7 ; (+025H)
|
|
LD DE,L5446
|
|
CALL LETNL
|
|
CALL MSG
|
|
LD A,(DPRNT)
|
|
PUSH AF
|
|
LD DE,LINEBUFR
|
|
PUSH DE
|
|
CALL GETL
|
|
POP HL
|
|
XOR A
|
|
LD B,A
|
|
POP AF
|
|
LD C,A
|
|
ADD HL,BC
|
|
CALL L546D
|
|
LD DE,011CCH
|
|
LD (L5468),A
|
|
LDIR
|
|
L53B7: LD A,(L5467)
|
|
LD B,A
|
|
LD HL,(01958H)
|
|
L53BE: PUSH BC
|
|
PUSH HL
|
|
CALL 01867H
|
|
POP HL
|
|
JR NZ,L53D3 ; (+00dH)
|
|
CALL LETNL
|
|
POP BC
|
|
XOR A
|
|
RET
|
|
|
|
L53CC: POP BC
|
|
POP DE
|
|
LD HL,(04A0EH)
|
|
JR L53BE ; (-015H)
|
|
|
|
L53D3: CALL 018F2H
|
|
LD DE,04A0EH
|
|
CALL 018A5H
|
|
CALL 014F8H
|
|
POP BC
|
|
CALL BRKEY
|
|
JP Z,WARMSTRT
|
|
LD DE,BUFER
|
|
LD HL,0490FH
|
|
L53EC: LD A,(HL)
|
|
CP 020H
|
|
INC HL
|
|
JR NZ,L53EC ; (-006H)
|
|
L53F2: PUSH DE
|
|
PUSH BC
|
|
DEC HL
|
|
L53F5: INC HL
|
|
LD A,(HL)
|
|
CP 000H
|
|
JR Z,L53F5 ; (-006H)
|
|
CP 00DH
|
|
JR Z,L53CC ; (-033H)
|
|
EX DE,HL
|
|
CP (HL)
|
|
EX DE,HL
|
|
JR NZ,L53F5 ; (-00fH)
|
|
LD (L5469),HL
|
|
L5407: INC DE
|
|
DEC B
|
|
JR Z,L5423 ; (+018H)
|
|
LD A,(DE)
|
|
CP 020H
|
|
JR Z,L5407 ; (-009H)
|
|
L5410: INC HL
|
|
LD A,(HL)
|
|
CP 020H
|
|
JR Z,L5410 ; (-006H)
|
|
CP 00DH
|
|
JR Z,L53CC ; (-04eH)
|
|
EX DE,HL
|
|
CP (HL)
|
|
EX DE,HL
|
|
JR Z,L5407 ; (-018H)
|
|
POP BC
|
|
POP DE
|
|
JR L53F2 ; (-031H)
|
|
|
|
L5423: INC HL
|
|
LD (L546B),HL
|
|
LD DE,LINEBUFR
|
|
CALL LETNL
|
|
CALL L5589
|
|
POP BC
|
|
POP DE
|
|
LD A,(L5465)
|
|
OR A
|
|
RET NZ
|
|
CALL L543C
|
|
JR L53F2 ; (-04aH)
|
|
|
|
L543C: CALL 03302H
|
|
CALL BRKEY
|
|
JP Z,L57D8
|
|
RET
|
|
|
|
L5446: DB " CHANGE TO? "
|
|
DB 00DH
|
|
L5453: DB "CHANGE IT? (Y/N) "
|
|
DB 00DH
|
|
L5465: DB 000H
|
|
L5466: DB 000H
|
|
L5467: DB 001H
|
|
L5468: DB 000H
|
|
L5469: DB 000H
|
|
DB 000H
|
|
L546B: DB 000H
|
|
DB 000H
|
|
L546D: LD A,(HL)
|
|
CP 020H
|
|
JP C,WARMSTRT
|
|
CP 022H
|
|
JR NZ,L5478 ; (+001H)
|
|
INC HL
|
|
L5478: CALL 018FDH
|
|
LD A,C
|
|
CP 028H
|
|
JP NC,ILDATERR
|
|
INC C
|
|
RET
|
|
|
|
L5483: LD A,(HL)
|
|
CP 021H
|
|
JR NZ,L548A ; (+002H)
|
|
INC HL
|
|
XOR A
|
|
L548A: LD (L5466),A
|
|
RET
|
|
|
|
L548E: LD A,001H
|
|
LD (L5465),A
|
|
CALL L5483
|
|
CALL L536D
|
|
L5499: JP Z,WARMSTRT
|
|
CALL LETNL
|
|
LD A,(L5466)
|
|
OR A
|
|
JR NZ,L54BC ; (+017H)
|
|
LD DE,L5453
|
|
CALL L59E3
|
|
JR Z,L54BC ; (+00fH)
|
|
LD HL,(L546B)
|
|
LD DE,BUFER
|
|
LD A,(L5467)
|
|
LD B,A
|
|
CALL L53F2
|
|
JR L5499 ; (-023H)
|
|
|
|
L54BC: CALL 014F8H
|
|
LD HL,(L546B)
|
|
LD BC,(05469H)
|
|
OR A
|
|
SBC HL,BC
|
|
LD A,(L5468)
|
|
CP L
|
|
JR Z,L552E ; (+05fH)
|
|
JR C,L5517 ; (+046H)
|
|
PUSH BC
|
|
SUB L
|
|
LD C,A
|
|
LD B,000H
|
|
PUSH BC
|
|
LD HL,LINEBUFR
|
|
CALL 018FDH
|
|
INC C
|
|
LD A,C
|
|
POP BC
|
|
PUSH AF
|
|
ADD A,C
|
|
LD C,A
|
|
CP 050H
|
|
JR C,L5501 ; (+01aH)
|
|
LD DE,L55B3
|
|
CALL LETNL
|
|
CALL MSG
|
|
POP AF
|
|
POP BC
|
|
LD HL,(04A0EH)
|
|
LD A,(L5467)
|
|
LD B,A
|
|
LD C,000H
|
|
LD DE,BUFER
|
|
JP L5565
|
|
|
|
L5501: LD HL,LINEBUFR
|
|
PUSH HL
|
|
ADD HL,BC
|
|
EX DE,HL
|
|
POP HL
|
|
POP AF
|
|
LD C,A
|
|
ADD HL,BC
|
|
POP BC
|
|
PUSH HL
|
|
OR A
|
|
SBC HL,BC
|
|
LD B,H
|
|
LD C,L
|
|
POP HL
|
|
LDDR
|
|
JR L552E ; (+017H)
|
|
|
|
L5517: LD H,A
|
|
LD A,L
|
|
SUB H
|
|
LD L,A
|
|
LD H,000H
|
|
PUSH HL
|
|
LD HL,(L546B)
|
|
CALL 018FDH
|
|
INC C
|
|
POP DE
|
|
PUSH HL
|
|
OR A
|
|
SBC HL,DE
|
|
EX DE,HL
|
|
POP HL
|
|
LDIR
|
|
L552E: LD HL,011CCH
|
|
LD DE,(05469H)
|
|
LD A,(L5468)
|
|
OR A
|
|
JR Z,L5540 ; (+005H)
|
|
LD C,A
|
|
LD B,000H
|
|
LDIR
|
|
L5540: CALL 0146AH
|
|
L5543: LD HL,(04A10H)
|
|
CALL 018B0H
|
|
OR C
|
|
INC DE
|
|
CALL 01302H
|
|
CALL 018B3H
|
|
LD D,E
|
|
LD D,L
|
|
LD A,(L5465)
|
|
CP 001H
|
|
RET NZ
|
|
CALL 012F3H
|
|
LD DE,LINEBUFR
|
|
CALL MSGX
|
|
CALL LETNL
|
|
L5565: LD BC,L5499
|
|
PUSH BC
|
|
LD DE,BUFER
|
|
LD HL,(L5469)
|
|
LD A,(L5468)
|
|
ADD A,L
|
|
LD L,A
|
|
LD A,(L5467)
|
|
LD B,A
|
|
LD C,000H
|
|
PUSH HL
|
|
LD HL,(04A0EH)
|
|
LD A,(HL)
|
|
INC HL
|
|
LD H,(HL)
|
|
LD L,A
|
|
LD (04A0EH),HL
|
|
POP HL
|
|
JP L53F2
|
|
|
|
L5589: PUSH DE
|
|
LD DE,L55AB
|
|
CALL MSG
|
|
POP DE
|
|
PUSH HL
|
|
CALL 00FB1H
|
|
CALL MSGX
|
|
LD A,(L5469)
|
|
ADD A,01BH
|
|
LD C,A
|
|
LD B,000H
|
|
XOR A
|
|
ADC HL,BC
|
|
LD A,0C2H
|
|
LD (HL),A
|
|
POP HL
|
|
CALL LETNL
|
|
RET
|
|
|
|
L55AB: LD DE,01211H
|
|
LD (DE),A
|
|
DEC C
|
|
NOP
|
|
NOP
|
|
NOP
|
|
L55B3: DB "LINE IS TOO LONG!",00DH
|
|
L55C5: LD A,002H
|
|
LD (L5465),A
|
|
CALL L5483
|
|
CALL L536D
|
|
L55D0: JP Z,WARMSTRT
|
|
CALL LETNL
|
|
LD A,(L5466)
|
|
OR A
|
|
JR NZ,L55E9 ; (+00dH)
|
|
LD DE,L55F8
|
|
CALL L59E3
|
|
JR Z,L55E9 ; (+005H)
|
|
LD HL,(04A0EH)
|
|
JR L55EC ; (+003H)
|
|
|
|
L55E9: CALL L5543
|
|
L55EC: LD DE,BUFER
|
|
LD A,(L5467)
|
|
LD B,A
|
|
CALL L53BE
|
|
JR L55D0 ; (-028H)
|
|
|
|
L55F8: DB "DELETE THIS LINE (Y/N)? ",00DH
|
|
L5611: NOP
|
|
L5612: NOP
|
|
NOP
|
|
NOP
|
|
NOP
|
|
L5616: XOR A
|
|
LD (L5611),A
|
|
CALL EXECNOTCHR
|
|
CPL
|
|
DEC HL
|
|
LD D,(HL)
|
|
CALL EXECNOTCHR
|
|
LD D,B
|
|
XOR E
|
|
INC DE
|
|
LD A,001H
|
|
LD (L5611),A
|
|
CALL 03327H
|
|
LD HL,(04AB3H)
|
|
CALL 018B0H
|
|
OR C
|
|
INC DE
|
|
PUSH HL
|
|
CALL 01AF1H
|
|
POP HL
|
|
L563B: LD A,(HL)
|
|
INC HL
|
|
OR (HL)
|
|
JP Z,L574F
|
|
INC HL
|
|
LD C,(HL)
|
|
INC HL
|
|
LD B,(HL)
|
|
PUSH HL
|
|
OR A
|
|
LD HL,(04AB5H)
|
|
SBC HL,BC
|
|
POP HL
|
|
JP C,L574F
|
|
PUSH BC
|
|
POP IY
|
|
L5653: INC HL
|
|
L5654: LD A,(HL)
|
|
INC HL
|
|
CP 020H
|
|
JR Z,L5654 ; (-006H)
|
|
CP 00DH
|
|
JR Z,L563B ; (-023H)
|
|
CP 080H
|
|
JR C,L5676 ; (+014H)
|
|
JR NZ,L5654 ; (-010H)
|
|
CP (HL)
|
|
JR Z,L566C ; (+005H)
|
|
CALL L588A
|
|
JR NZ,L5654 ; (-018H)
|
|
L566C: CALL 0174EH
|
|
INC HL
|
|
CP 00DH
|
|
JR Z,L563B ; (-039H)
|
|
JR L5654 ; (-022H)
|
|
|
|
L5676: CP 022H
|
|
JR NZ,L5686 ; (+00cH)
|
|
L567A: LD A,(HL)
|
|
INC HL
|
|
CP 00DH
|
|
JR Z,L563B ; (-045H)
|
|
CP 022H
|
|
JR NZ,L567A ; (-00aH)
|
|
JR L5654 ; (-032H)
|
|
|
|
L5686: DEC HL
|
|
CALL 02640H
|
|
JR NC,L5653 ; (-039H)
|
|
LD A,046H
|
|
CP E
|
|
JR NZ,L5696 ; (+005H)
|
|
LD A,04EH
|
|
CP D
|
|
JR Z,L5653 ; (-043H)
|
|
L5696: LD BC,MONIT
|
|
LD A,(HL)
|
|
CP 024H
|
|
JR NZ,L56A1 ; (+003H)
|
|
LD C,006H
|
|
INC HL
|
|
L56A1: LD (05614H),DE
|
|
LD (L5612),HL
|
|
LD A,(HL)
|
|
CP 028H
|
|
JR Z,L56B3 ; (+006H)
|
|
LD A,C
|
|
ADD A,004H
|
|
LD C,A
|
|
JR L56CB ; (+018H)
|
|
|
|
L56B3: INC HL
|
|
L56B4: LD A,(HL)
|
|
INC HL
|
|
CP 028H
|
|
JR NZ,L56C1 ; (+007H)
|
|
L56BA: LD A,(HL)
|
|
INC HL
|
|
CP 029H
|
|
JR NZ,L56BA ; (-006H)
|
|
LD A,(HL)
|
|
L56C1: CP 02CH
|
|
JR Z,L56CB ; (+006H)
|
|
CP 029H
|
|
JR NZ,L56B4 ; (-015H)
|
|
INC C
|
|
INC C
|
|
L56CB: LD HL,04E86H
|
|
ADD HL,BC
|
|
LD A,(HL)
|
|
INC HL
|
|
LD H,(HL)
|
|
LD L,A
|
|
LD DE,(05614H)
|
|
L56D7: LD A,(HL)
|
|
INC HL
|
|
CP E
|
|
JR C,L56E6 ; (+00aH)
|
|
JR NZ,L56F2 ; (+014H)
|
|
LD A,(HL)
|
|
CP D
|
|
JR C,L56E9 ; (+007H)
|
|
JR Z,L5705 ; (+021H)
|
|
JR L56F2 ; (+00cH)
|
|
|
|
L56E6: OR (HL)
|
|
JR Z,L56F2 ; (+009H)
|
|
L56E9: INC HL
|
|
LD C,(HL)
|
|
LD B,000H
|
|
INC HL
|
|
ADD HL,BC
|
|
ADD HL,BC
|
|
JR L56D7 ; (-01bH)
|
|
|
|
L56F2: DEC HL
|
|
EX DE,HL
|
|
LD BC,GETL
|
|
CALL 019C0H
|
|
LD HL,(05614H)
|
|
EX DE,HL
|
|
LD (HL),E
|
|
INC HL
|
|
LD (HL),D
|
|
INC HL
|
|
XOR A
|
|
JR L570B ; (+006H)
|
|
|
|
L5705: INC HL
|
|
LD A,(HL)
|
|
CP PRTD
|
|
JR Z,L573C ; (+031H)
|
|
L570B: INC A
|
|
LD (HL),A
|
|
PUSH HL
|
|
LD B,A
|
|
L570F: INC HL
|
|
LD E,(HL)
|
|
INC HL
|
|
LD D,(HL)
|
|
PUSH HL
|
|
PUSH IY
|
|
POP HL
|
|
OR A
|
|
SBC HL,DE
|
|
POP HL
|
|
JR C,L5726 ; (+009H)
|
|
JR NZ,L5724 ; (+005H)
|
|
DEC A
|
|
POP HL
|
|
LD (HL),A
|
|
JR L5736 ; (+012H)
|
|
|
|
L5724: DJNZ L570F ; (-017H)
|
|
L5726: POP AF
|
|
DEC HL
|
|
EX DE,HL
|
|
LD BC,00002H
|
|
CALL 019C0H
|
|
EX DE,HL
|
|
PUSH IY
|
|
POP BC
|
|
LD (HL),C
|
|
INC HL
|
|
LD (HL),B
|
|
L5736: LD HL,(L5612)
|
|
JP L5654
|
|
|
|
L573C: LD A,E
|
|
CALL L57DE
|
|
LD A,D
|
|
CALL L57DE
|
|
LD DE,L5807
|
|
CALL L57FC
|
|
CALL L57ED
|
|
JR L5736 ; (-019H)
|
|
|
|
L574F: LD IX,04E84H
|
|
L5753: CALL L57FC
|
|
INC IX
|
|
INC IX
|
|
PUSH IX
|
|
POP HL
|
|
LD A,L
|
|
CP 092H
|
|
JR NC,L57D8 ; (+076H)
|
|
SUB 086H
|
|
LD B,000H
|
|
LD C,A
|
|
RLC C
|
|
RLC C
|
|
LD HL,L5820
|
|
CP 005H
|
|
JR C,L5775 ; (+003H)
|
|
LD HL,L5807
|
|
L5775: ADD HL,BC
|
|
PUSH HL
|
|
POP IY
|
|
LD L,(IX+000H)
|
|
LD H,(IX+001H)
|
|
L577F: PUSH IY
|
|
POP DE
|
|
LD A,(HL)
|
|
LD B,A
|
|
INC HL
|
|
OR (HL)
|
|
JR Z,L5753 ; (-035H)
|
|
LD A,B
|
|
CALL L57DE
|
|
LD A,(HL)
|
|
CP 020H
|
|
JR Z,L5799 ; (+008H)
|
|
CALL L57DE
|
|
CALL L57ED
|
|
JR L57A1 ; (+008H)
|
|
|
|
L5799: CALL L57ED
|
|
LD A,020H
|
|
CALL L57DE
|
|
L57A1: LD A,(DE)
|
|
CP 024H
|
|
LD A,020H
|
|
CALL NZ,L57DE
|
|
INC HL
|
|
LD B,(HL)
|
|
INC HL
|
|
L57AC: PUSH BC
|
|
LD E,(HL)
|
|
INC HL
|
|
LD D,(HL)
|
|
INC HL
|
|
PUSH HL
|
|
EX DE,HL
|
|
LD DE,LINEBUFR
|
|
PUSH DE
|
|
CALL STRTONUM
|
|
LD C,020H
|
|
EX DE,HL
|
|
L57BD: LD A,L
|
|
CP 015H
|
|
JR NC,L57C6 ; (+004H)
|
|
LD (HL),C
|
|
INC HL
|
|
JR L57BD ; (-009H)
|
|
|
|
L57C6: LD (HL),00DH
|
|
POP DE
|
|
CALL L57ED
|
|
POP HL
|
|
CALL L543C
|
|
POP BC
|
|
DJNZ L57AC ; (-027H)
|
|
CALL L57FC
|
|
JR L577F ; (-059H)
|
|
|
|
L57D8: CALL 01AF1H
|
|
JP WARMSTRT
|
|
|
|
L57DE: PUSH BC
|
|
LD B,A
|
|
CALL PRNT
|
|
LD A,(L5611)
|
|
OR A
|
|
LD A,B
|
|
POP BC
|
|
RET Z
|
|
JP 03291H
|
|
|
|
L57ED: PUSH BC
|
|
LD B,A
|
|
CALL MSG
|
|
LD A,(L5611)
|
|
OR A
|
|
LD A,B
|
|
POP BC
|
|
RET Z
|
|
JP 031B4H
|
|
|
|
L57FC: CALL LETNL
|
|
LD A,(L5611)
|
|
OR A
|
|
RET Z
|
|
JP 031A7H
|
|
|
|
L5807: DB " HAS MORE THAN 255 REFS"
|
|
DB 00DH
|
|
DB 024H
|
|
L5820: DB 028H
|
|
DB 02CH
|
|
DB 029H
|
|
DB 020H
|
|
DB 00DH
|
|
DB 00DH
|
|
DB 00DH
|
|
DB "$() "
|
|
DB 00DH
|
|
DB 00DH
|
|
DB 00DH
|
|
DB "$ "
|
|
DB 00DH
|
|
DB 00DH
|
|
DB 00DH
|
|
DB 000H
|
|
L5838: CALL 014C7H
|
|
JP Z,01497H
|
|
LD B,0B8H
|
|
LD DE,L585D
|
|
CALL 014C9H
|
|
JP 01495H
|
|
|
|
L5849: LD A,B
|
|
CP 039H
|
|
JR NC,L5854 ; (+006H)
|
|
LD HL,CMDWORDTBL
|
|
JP 01541H
|
|
|
|
L5854: SUB 038H
|
|
LD B,A
|
|
LD HL,L585D
|
|
JP 01541H
|
|
|
|
L585D: DB "RENU"
|
|
DB 0CDH
|
|
DB "APPEN"
|
|
DB 0C4H
|
|
DB "COMPRES"
|
|
DB 0D3H
|
|
DB "DELET"
|
|
DB 0C5H
|
|
DB "FIN"
|
|
DB 0C4H
|
|
DB "CHANG"
|
|
DB 0C5H
|
|
DB "SDE"
|
|
DB 0CCH
|
|
DB "XRE"
|
|
DB 0C6H
|
|
DB 000H
|
|
DB 000H
|
|
L588A: LD A,(HL)
|
|
CP 081H
|
|
RET Z
|
|
RET C
|
|
CALL INCSKIPSPCE
|
|
CP 02FH
|
|
RET NZ
|
|
INC HL
|
|
INC HL
|
|
OR A
|
|
RET
|
|
|
|
L5899: CALL LETNL
|
|
CALL LETNL
|
|
LD DE,L58A5
|
|
JP 01329H
|
|
|
|
L58A5: LD B,L
|
|
LD E,B
|
|
LD D,B
|
|
LD B,C
|
|
LD C,(HL)
|
|
LD B,H
|
|
LD B,L
|
|
LD B,H
|
|
JR NZ,L58F1 ; (+042H)
|
|
LD B,C
|
|
LD D,E
|
|
LD C,C
|
|
LD B,E
|
|
JR NZ,L58EA ; (+035H)
|
|
DEC (HL)
|
|
LD SP,02035H
|
|
DEC L
|
|
JR NZ,L5905 ; (+049H)
|
|
LD C,(HL)
|
|
LD B,E
|
|
LD C,H
|
|
LD D,L
|
|
LD B,H
|
|
LD B,L
|
|
LD D,E
|
|
LD A,(0430DH)
|
|
OR A
|
|
SBC A,(HL)
|
|
CP L
|
|
SBC A,L
|
|
AND (HL)
|
|
SUB A
|
|
SBC A,B
|
|
SUB (HL)
|
|
JR NZ,L5913 ; (+043H)
|
|
LD L,044H
|
|
LD L,020H
|
|
LD C,B
|
|
SUB D
|
|
AND C
|
|
SBC A,L
|
|
OR B
|
|
JR NZ,L590C ; (+031H)
|
|
ADD HL,SP
|
|
JR C,L5915 ; (+037H)
|
|
JR NZ,L58ED ; (+00dH)
|
|
L58E0: CALL 03296H
|
|
LD A,00AH
|
|
CALL 03296H
|
|
LD A,00DH
|
|
L58EA: RET
|
|
|
|
L58EB: CALL SKIPSPACE
|
|
CP 030H
|
|
JR NZ,L58F6 ; (+004H)
|
|
LD A,0C3H
|
|
JR L58FD ; (+007H)
|
|
|
|
L58F6: CP 031H
|
|
JP NZ,SYNTAXERR
|
|
LD A,0CDH
|
|
L58FD: LD (L58E0),A
|
|
INC HL
|
|
L5901: LD (05051H),HL
|
|
L5904: JP 01B35H
|
|
|
|
L5907: LD A,0C6H
|
|
CALL ?DPCT
|
|
L590C: JR L5901 ; (-00dH)
|
|
|
|
L590E: XOR A
|
|
LD (L5466),A
|
|
CALL L5098
|
|
L5915: JR NZ,L591C ; (+005H)
|
|
CALL L5150
|
|
JR L5904 ; (-018H)
|
|
|
|
L591C: LD BC,(05063H)
|
|
CALL L52BB
|
|
JR Z,L5935 ; (+010H)
|
|
PUSH HL
|
|
LD BC,(05065H)
|
|
INC BC
|
|
CALL L52BB
|
|
POP DE
|
|
OR A
|
|
SBC HL,DE
|
|
JP Z,WARMSTRT
|
|
L5935: LD HL,(01958H)
|
|
JR L593C ; (+002H)
|
|
|
|
L593A: POP HL
|
|
POP AF
|
|
L593C: PUSH HL
|
|
CALL 01867H
|
|
JR Z,L5989 ; (+047H)
|
|
PUSH HL
|
|
LD HL,(L506B)
|
|
SBC HL,DE
|
|
JR C,L593A ; (-010H)
|
|
LD HL,(05067H)
|
|
PUSH DE
|
|
EX DE,HL
|
|
SBC HL,DE
|
|
POP DE
|
|
JR C,L593A ; (-01aH)
|
|
LD HL,(05065H)
|
|
SBC HL,DE
|
|
JR C,L5963 ; (+008H)
|
|
LD HL,(05063H)
|
|
EX DE,HL
|
|
SBC HL,DE
|
|
JR NC,L593A ; (-029H)
|
|
L5963: LD A,(L5466)
|
|
OR A
|
|
JR NZ,L597B ; (+012H)
|
|
LD DE,L59C7
|
|
CALL L59E0
|
|
JR Z,L5976 ; (+005H)
|
|
POP HL
|
|
POP DE
|
|
JP 01B35H
|
|
|
|
L5976: LD A,001H
|
|
LD (L5466),A
|
|
L597B: POP HL
|
|
POP DE
|
|
OR A
|
|
SBC HL,DE
|
|
LD B,H
|
|
LD C,L
|
|
PUSH DE
|
|
CALL 01306H
|
|
POP HL
|
|
JR L593C ; (-04dH)
|
|
|
|
L5989: CALL L5150
|
|
L598C: LD HL,(01958H)
|
|
CALL 01867H
|
|
JR Z,L59C4 ; (+030H)
|
|
PUSH DE
|
|
POP BC
|
|
L5996: PUSH HL
|
|
CALL 01867H
|
|
JR Z,L59C4 ; (+028H)
|
|
LD A,B
|
|
SUB D
|
|
JR NZ,L59A2 ; (+002H)
|
|
LD A,C
|
|
SUB E
|
|
L59A2: LD C,E
|
|
LD B,D
|
|
POP DE
|
|
JR C,L5996 ; (-011H)
|
|
PUSH BC
|
|
SBC HL,DE
|
|
LD B,H
|
|
LD C,L
|
|
LD HL,04A0EH
|
|
EX DE,HL
|
|
PUSH HL
|
|
PUSH BC
|
|
LDIR
|
|
POP BC
|
|
POP DE
|
|
CALL 01306H
|
|
POP HL
|
|
CALL 018B0H
|
|
CP A
|
|
LD E,C
|
|
CALL 012F3H
|
|
JR L598C ; (-038H)
|
|
|
|
L59C4: JP WARMSTRT
|
|
|
|
L59C7: DB "OK TO DELETE DUP LINES? "
|
|
DB 00DH
|
|
L59E0: CALL LETNL
|
|
L59E3: CALL MSG
|
|
L59E6: CALL BRKEY
|
|
JP Z,01438H
|
|
CALL 009B3H
|
|
CALL ?DACN
|
|
CALL 02305H
|
|
CP 059H
|
|
JR Z,L59FE ; (+005H)
|
|
CP 04EH
|
|
JR NZ,L59E6 ; (-017H)
|
|
OR A
|
|
L59FE: PUSH AF
|
|
CALL LETNL
|
|
POP AF
|
|
RET
|
|
|
|
L5A04: DW L58EB
|
|
DW CMDAUTO
|
|
DW L5907
|
|
DW L590E
|
|
DW CMDCOPY
|
|
DW CMDPAGE
|
|
DW L506D
|
|
DW 04806H
|
|
DW L52F0
|
|
DW 0488EH
|
|
DW L5363
|
|
DW L548E
|
|
DW L55C5
|
|
DW L5616
|
|
L5A20: DB "LIN"
|
|
DB 0C5H
|
|
DB "AUT"
|
|
DB 0CFH
|
|
DB "CL"
|
|
DB 0D3H
|
|
DB "MOV"
|
|
DB 0C5H
|
|
DB "COPY/"
|
|
DB 0D0H
|
|
DB "PAGE/"
|
|
DB 0D0H
|
|
DB 000H
|
|
L5A3C: CP 091H
|
|
RET C
|
|
CP 0BEH
|
|
RET NC
|
|
CALL ?ADCN
|
|
CP 081H
|
|
JR C,L5A4F ; (+006H)
|
|
CP 09BH
|
|
JR NC,L5A4F ; (+002H)
|
|
SUB 080H
|
|
L5A4F: JP ?DACN
|
|
|
|
L5A52: DB "XP BASIC SA-551"
|
|
L5A61: DB 035H
|
|
DB 00DH
|
|
XPINIT: LD HL,L5A04
|
|
LD DE,01C16H
|
|
LD BC,0001CH
|
|
LDIR
|
|
LD HL,L5A3C
|
|
PUSH HL
|
|
LD DE,L5A20
|
|
SBC HL,DE
|
|
PUSH HL
|
|
POP BC
|
|
EX DE,HL
|
|
LD DE,0165EH
|
|
LDIR
|
|
POP HL
|
|
LD DE,02305H
|
|
LD BC,00016H
|
|
LDIR
|
|
LD HL,03338H
|
|
LD (022C9H),HL
|
|
LD HL,03302H
|
|
LD (01CCDH),HL
|
|
LD HL,MONIT
|
|
LD (01CCFH),HL
|
|
LD (01CD1H),HL
|
|
LD HL,03311H
|
|
LD (02B11H),HL
|
|
LD HL,048C1H
|
|
LD (0307BH),HL
|
|
LD (0318CH),HL
|
|
LD (03199H),HL
|
|
LD HL,02F6CH
|
|
LD (0315BH),HL
|
|
LD A,0CDH
|
|
LD (03140H),A
|
|
LD HL,0330BH
|
|
LD (03141H),HL
|
|
LD A,0C3H
|
|
LD HL,L5849
|
|
LD (0153EH),A
|
|
LD (0153FH),HL
|
|
LD HL,L5838
|
|
LD (01492H),A
|
|
LD (01493H),HL
|
|
LD A,(0322EH)
|
|
CP 0C3H
|
|
JR NZ,L5AF2 ; (+017H)
|
|
LD (031ADH),A
|
|
LD HL,L58E0
|
|
LD (031AEH),HL
|
|
LD A,036H
|
|
JR L5AF4 ; (+00cH)
|
|
|
|
LD A,0ABH
|
|
LD (01C16H),A
|
|
LD A,013H
|
|
LD (01C17H),A
|
|
L5AF2: LD A,035H
|
|
L5AF4: LD HL,L58B7
|
|
LD (HL),A
|
|
LD HL,L5A61
|
|
LD (HL),A
|
|
XOR A
|
|
LD (041ECH),A
|
|
LD HL,L5A52
|
|
LD DE,04224H
|
|
LD BC,00011H
|
|
LDIR
|
|
LD HL,L5A04
|
|
LD (01958H),HL
|
|
LD (018B4H),HL
|
|
LD (01AC8H),HL
|
|
LD (01AE2H),HL
|
|
LD (01B14H),HL
|
|
LD (01B1CH),HL
|
|
LD (01C7EH),HL
|
|
LD (01EC2H),HL
|
|
LD (02D44H),HL
|
|
LD (02F24H),HL
|
|
LD (0303CH),HL
|
|
LD (03042H),HL
|
|
INC HL
|
|
LD (01201H),HL
|
|
LD (041FFH),HL
|
|
LD HL,L5899
|
|
LD (01225H),HL
|
|
LD HL,RELOC3302
|
|
LD DE,03302H
|
|
LD BC,0005BH
|
|
LDIR
|
|
LD DE,04806H
|
|
LD BC,000F8H
|
|
LDIR
|
|
JP COLDSTRT
|
|
|
|
RELOC3302: CALL GETKY ; Relocated to 0x3302 for 0x5B bytes.
|
|
CP 020H
|
|
JP Z,009B3H
|
|
RET
|
|
|
|
LD HL,ATRB
|
|
JP 02F67H
|
|
|
|
CALL EXECNOTCHR
|
|
LD B,B
|
|
JR L5B95 ; (+02bH)
|
|
|
|
LD A,0C9H
|
|
LD (028F5H),A
|
|
CALL CMDCURSOR
|
|
LD A,0C3H
|
|
LD (028F5H),A
|
|
JP 02B18H
|
|
|
|
LD A,0C9H
|
|
LD (01C7DH),A
|
|
CALL 01C68H
|
|
LD A,021H
|
|
LD (01C7DH),A
|
|
RET
|
|
|
|
NOP
|
|
NOP
|
|
NOP
|
|
LD A,B
|
|
OR C
|
|
RET Z
|
|
LD A,B
|
|
SUB C
|
|
JR NC,L5B93 ; (+001H)
|
|
XOR A
|
|
L5B93: ADD A,C
|
|
LD B,A
|
|
L5B95: LD A,(DE)
|
|
CALL 02305H
|
|
LD C,A
|
|
PUSH AF
|
|
LD A,(HL)
|
|
CALL 02305H
|
|
LD C,A
|
|
POP AF
|
|
OR A
|
|
SUB C
|
|
JR NZ,L5BAA ; (+005H)
|
|
INC DE
|
|
INC HL
|
|
DJNZ L5B95 ; (-014H)
|
|
RET
|
|
|
|
L5BAA: LD A,001H
|
|
RET NC
|
|
LD A,080H
|
|
RET
|
|
|
|
RELOC4806: CALL 048EEH ; Relocated to 0x4806 for 0xF8 bytes.
|
|
LD HL,0FFFFH
|
|
CALL 018B0H
|
|
LD DE,0E548H
|
|
EX DE,HL
|
|
LD BC,(SIZE)
|
|
DEC BC
|
|
DEC BC
|
|
CALL 01888H
|
|
CALL 019C3H
|
|
LD (DTADR),DE
|
|
CALL 02F6CH
|
|
CALL ?RDD
|
|
JR C,L5BFB ; (+026H)
|
|
POP HL
|
|
CALL 01ACAH
|
|
LD HL,(DTADR)
|
|
PUSH HL
|
|
INC HL
|
|
INC HL
|
|
LD A,(HL)
|
|
INC HL
|
|
LD H,(HL)
|
|
LD L,A
|
|
CALL 018B0H
|
|
LD A,048H
|
|
POP BC
|
|
OR A
|
|
SBC HL,BC
|
|
JP NC,01B35H
|
|
LD DE,(DTADR)
|
|
CALL 0485EH
|
|
LD A,047H
|
|
JP 01403H
|
|
|
|
L5BFB: POP DE
|
|
PUSH DE
|
|
CALL 0485EH
|
|
POP HL
|
|
XOR A
|
|
LD (HL),A
|
|
INC HL
|
|
LD (HL),A
|
|
JP CHKSUMERR
|
|
|
|
LD BC,(SIZE)
|
|
DEC BC
|
|
DEC BC
|
|
JP 02F59H
|
|
|
|
CALL 03327H
|
|
LD HL,(04AB5H)
|
|
LD A,H
|
|
AND L
|
|
CP PRTD
|
|
JP Z,ILDATERR
|
|
PUSH HL
|
|
LD HL,(04AB3H)
|
|
LD A,H
|
|
OR L
|
|
JP Z,ILDATERR
|
|
CALL 018B0H
|
|
OR C
|
|
INC DE
|
|
EX (SP),HL
|
|
INC HL
|
|
CALL 018B0H
|
|
ADC A,C
|
|
LD C,B
|
|
POP DE
|
|
OR A
|
|
SBC HL,DE
|
|
RET
|
|
|
|
CALL 04867H
|
|
JR Z,L5C44 ; (+007H)
|
|
JR C,L5C47 ; (+008H)
|
|
PUSH HL
|
|
POP BC
|
|
CALL 01306H
|
|
L5C44: JP 01B35H
|
|
|
|
L5C47: JP OVFLERR
|
|
|
|
PUSH BC
|
|
CALL 017F6H
|
|
POP BC
|
|
LD A,E
|
|
OR D
|
|
EX (SP),HL
|
|
LD A,(HL)
|
|
INC HL
|
|
EX (SP),HL
|
|
PUSH AF
|
|
CP (HL)
|
|
JR Z,L5C66 ; (+00dH)
|
|
LD A,00DH
|
|
CP (HL)
|
|
JR Z,L5C63 ; (+005H)
|
|
LD A,03AH
|
|
CP (HL)
|
|
JR NZ,L5C47 ; (-01cH)
|
|
L5C63: POP AF
|
|
SCF
|
|
RET
|
|
|
|
L5C66: CALL INCSKIPSPCE
|
|
POP AF
|
|
RET
|
|
|
|
DI
|
|
PUSH DE
|
|
PUSH BC
|
|
PUSH HL
|
|
LD DE,0D753H
|
|
LD BC,(SIZE)
|
|
LD HL,(DTADR)
|
|
LD A,B
|
|
OR C
|
|
JP Z,004CBH
|
|
CALL CKSUM
|
|
CALL MOTOR
|
|
JP C,00552H
|
|
CALL 048E3H
|
|
JP 00461H
|
|
|
|
PUSH BC
|
|
PUSH DE
|
|
LD BC,00200H
|
|
LD DE,01414H
|
|
JP 0078EH
|
|
|
|
LD A,0C9H
|
|
LD (02F19H),A
|
|
CALL 02EDAH
|
|
LD A,0CDH
|
|
LD (02F19H),A
|
|
JP 01AF1H
|
|
|
|
NOP ; End of Relocated code.
|
|
NOP
|
|
NOP
|
|
NOP
|
|
NOP
|