PRTN MVI C,2
 JC PLP1
 LHLD IPNT
 MOV B,H
 MOV C,L
 CALL DBCV
 MOV C,L
 DCR H
 JP WHAT
 MOV A,C
 INR C
 ORA A
PLP1 CNZ CLRS
 LHLD PNTR
PLP2 DCR C
 RZ
 SHLD PNTR
 CALL LNOT
 JC BOTM
 JMP PLP2
CTB4 ASC 'EDIT'
 DW EDCR
 ASC 'CLRS'
 DW CLRS
 ASC 'INSM'
 DW IFMC
 ASC 'PAGE'
 DW LIST
 ASC 'NEWF'
 DW NEWF
 ASC 'KILL'
 DW KLRT
 ASC 'RUBO'
 DW RBCM
 ASC 'BOTM'
 DW BTMM
 ASC 'MODE'
 DW MSCR
 ASC 'LIST'
 DW LCHR
 ASC 'DLOD'
 DW DLOD
 ASC 'DSAV'
 DW DSAV
 ASC 'A'
 DW APND
 ASC 'D'
 DW DELE
 ASC 'I'
 DW INSL
 ASC 'E'
 DW EDCR
 ASC 'L'
 DW LOCT
 ASC 'N'
 DW NXTC
 ASC 'C'
 DW CCRT
 ASC 'T'
 DW TOPR
 ASC 'P'
 DW PRTN
 ASC 'F'
 DW FIND
 ASC 'R'
 DW RLCR
 ASC 'Q'
 DW MONT
EFER ASC 'FULL OR PARTIAL FILE?'
 DB ' '+80H
IFMC LHLD IPNT
 MOV B,H
 MOV C,L
 CALL DBCV
 DCR H
 JP WHAT
 MOV A,L
 ORA A
 JZ WHAT
 STA NCHR
 LXI H,ADMS
 CALL OUTR
 CALL HLIN
 XCHG
IFM4 MVI C,2
 LXI H,IBUF+2
IFM3 LDAX D
 ORA A
 JM BADT
 CPI ' '
 JNC IFM1
 CPI TAB
 JZ IFM1
 CPI 13
 JNZ BADT
IFM1 MOV M,A
 INX H
 INX D
 CPI 13
 JZ IFM2
 INR C
 MOV A,C
 CPI CMAX
 JNZ IFM3
IFM2 ORA A
 PUSH D
 CALL INSL
 POP D
 LDA NCHR
 DCR A
 STA NCHR
 JNZ IFM4
 CALL CRLF
 RET
BADT LXI B,BDMS
 LXI H,BDLC
 JMP EEOF
BDMS DB 0DH
 ASC 'BAD DATA '
BDLC DS 3
 DB ' '
 DS 3
 DB 8DH
FIND CALL LOC1
 LXI H,IBUF+2
 SHLD IPNT
FIN1 CALL NLST
 SHLD PNTR
 JC BOTM
 MOV C,B
 XCHG
 LHLD IPNT
 CALL SEAR
 LHLD PNTR
 JZ LMT1
 JMP FIN1
BTMM LHLD EFPN
 SHLD PNTR
 RET
RLCR MOV A,C
 SUI 3
 JC WHAT
 DCR C
 DCR C
 LXI H,IBUF+1
 SHLD TEM1
 LHLD PNTR
 SHLD TEMP
 MVI B,0
LNGT MOV A,M
 CPI 13
 JZ CNGO
 JC BOTM
 INX H
 INR B
 JMP LNGT
LCHR CALL CLRS
 LHLD TOPL
 CALL LNOT
 JNC LCHR+6
 RET
SCNB LHLD IPNT
 MOV A,M
 CPI ' '
 RNZ
 INX H
 SHLD IPNT
 JMP SCNB+3
INAD INX D
 DCR C
 JNZ INAD
 INR C
 RET
CTSH LHLD ADDS
 LDA NCHR
 MOV C,A
 CALL SEAR
 CNZ INAD
 LDAX D
 MOV L,A
 INX D
 LDAX D
 MOV H,A
 RZ
 INX D
 DCR B
 JNZ CTSH
 INR B
 RET
N4C5 EQU 11
N1C5 EQU 12
NCHR DS 1
MONT EQU 0C004H
HL MVI B,'>'
 CALL 0C019H
LOOP CALL TVTI
 CPI 0DH
 JNZ LOOP
 CALL 0C147H
 CALL 0C136H
 MVI C,1
 CALL 0C120H
 XCHG
 CALL 0C32EH
 CALL 0C340H
 RET
DSAV LXI H,SVMS
 CALL OUTR
 PUSH B
 PUSH D
 PUSH H
 MVI A,PSCO
 LXI D,DSKB
 CALL PSCAN
 JC DR
 JZ DR
 MOV A,E
 CPI 0FFH
 JZ DR
 STA FNUM
 JMP DSAV2
 DB 0AEH
 DW 4C0H
 DB 0
DSKB DS 20
DSAV2 MVI A,FNUM
 MVI B,6FFFH
 LXI D, MMIN
 MVI L,01
 CALL SYS
 DB DWROP
 JMP DR
 JMP 100H
FNUM DS 1
DR POP H
 POP D
 POP B
 JMP DSAV
DLOD LXI H,LDMS
 CALL OUTR
 PUSH B
 PUSH D
 PUSH H
 MVI H,PSOP
 LXI D,DSKB
 CALL PSCAN
 JC DL
 JZ DL
 MOV A,E
 CPI 0FFH
 JZ DL
 STA FNUM
 MVI B,6FFFH
 LXI D,MMIN
 MVI L,01
 CALL SYS
 DB DRDOP
 JMP DL
 POP H
 POP D
 POP B
 JMP EDIT
DL POP H
 POP D
 POP B
 JMP DLOD
 COPY NPTDEFS
 END