BINH   INX    H
 DCX    H
 PUSH   B
 MVI    C,3
 RLC
 RLC
 MOV    B,A
 ANA    C
STBN   INX    H
 ADI    48
 MOV    M,A
 DCR    C
 JZ     BHDN
 MOV    A,B
 RLC
 RLC
 RLC
 MOV    B,A
 ANI    7
 JMP    STBN
BHDN   POP    B
 RET
EDCR   LXI    H,ADMS
 CALL   OUTR
 CALL  HLIN
 SHLD   PNTR
 SHLD   TOPL
 CALL   EFFN
 SHLD   EFPN
 LHLD   PNTR
 LDA    MODE
 ORA    A
 JNZ    LIST
 CALL   CLRS
 JMP    LNOT
EFFN   LHLD   MMAX
 XCHG
 LHLD   PNTR
EFF1   CALL   OVTS
 JC     MOFL
 MOV    A,M
 CPI    1
 RZ
 INX    H
 JMP    EFF1
INSL   JC     INMD
 DCR    C
 DCR    C
 LXI    H,IBUF+2
 SHLD   IPNT
 CALL   NLST
 SHLD   MVAD
 SHLD   PNTR
 CALL   CENT
 RET
DELE   MVI    C,2
 JC     DLOC
 LHLD   IPNT
 MOV    B,H
 MOV    C,L
 CALL   DBCV
 MOV    C,L
 INR    C
 DCR    H
 JP     WHAT
DLOC   DCR    C
 RZ
 LHLD   EFPN
 SHLD   MVAD
 CALL   NLST
 JC     BOTM
 XCHG
 LHLD   PNTR
 CALL   LMOV
 SHLD   EFPN
 JMP    DLOC
APND   MOV    A,C
 SUI    3
 JC     WHAT
 DCR    C
 DCR    C
 CALL   NLST
 JC     BOTM
 DCX    H
 SHLD   TEMP
 LXI    H,IBUF+1
 SHLD   TEM1
 MVI    B,0
 JMP    CNGO
TEM1   DS     2
CNGO   MOV    A,B
 CMP    C
 JZ     EQUL
 JNC    LESS
 LHLD   TEMP
 ADD    L
 MOV    L,A
 MOV    A,H
 ACI    0
 MOV    H,A
 MOV    A,C
 SUB    B
 SHLD   MVAD
 LHLD   EFPN
 PUSH   B
 MOV    C,A
 MVI    B,0
 DAD    B
 XCHG
 LHLD   MMAX
 CALL   OVTS
 JNC    MOFL
 LHLD   EFPN
 CALL   RMOV
 LHLD   EFPN
 DAD    B
 SHLD   EFPN
 POP    B
 JMP    EQUL
EQUL   LHLD   TEMP
 XCHG
 LHLD   TEM1
 INX    H
EQLP   DCR    C
 JM     CCDN
 MOV    A,M
 STAX   D
 INX    H
 INX    D
 JMP    EQLP
CCDN   LHLD   PNTR
 LDA    MODE
 ORA    A
 JZ     LNOT
 JMP    LIST
LESS   LHLD   TEMP
 MOV    A,L
 ADD    C
 MOV  L,A
 MOV    A,H
 ACI    0
 MOV    H,A
 XCHG
 LHLD   EFPN
 SHLD   MVAD
 LHLD   TEMP
 MOV    A,L
 ADD    B
 MOV    L,A
 MOV    A,H
 ACI    0
 MOV    H,A
 XCHG
 CALL   LMOV
 SHLD   EFPN
 JMP    EQUL
CCRT   JC     WHAT
 LHLD   IPNT
 MOV    D,M
 MVI    B,0
CCR1   INX    H
 MOV    A,M
 CPI    0DH
 JZ     WHAT
 CMP    D
 JZ     LSTR
 INR    B
 JMP    CCR1
LSTR   SHLD   TEM1
 LHLD   IPNT
 INX    H
 SHLD   IPNT
 LHLD   PNTR
STSH   MOV    C,B
 SHLD   TEMP
 XCHG
 LHLD   IPNT
 CALL   SEAR
 JZ     STMT
 LHLD   TEMP
 MOV    A,M
 CPI    0DH
 JZ     CCDN
 JC     BOTM
 INX    H
 JMP    STSH
SEAR   LDAX   D
 CMP    M
 RNZ
 INX    H
 INX    D
 DCR    C
 JNZ    SEAR
 RET
STMT   LHLD   TEM1
 MVI    C,0
STM1   INX    H
 MOV    A,M
 CPI    0DH
 JZ     CNGO
 INR    C
 JMP    STM1
LOC1   LXI    H,IBUF+1
 MVI    B,-2
LNCX   MOV    A,M
 CPI    0DH
 JZ     LOC2
 INR    B
 INX    H
 JMP    LNCX
LOC2   MOV    A,B
 ORA    A
 JM     WHAT
 INR    B
 RET
LOCT   CALL   LOC1
 LXI    H,IBUF+2
 SHLD   IPNT
 CALL   NLST
 JC    BOTM
LNCH   MOV    C,B
 SHLD   TEMP
 XCHG
 LHLD   IPNT
 CALL   SEAR
 JZ     LMTH
 LHLD   TEMP
 INX    H
 MOV    A,M
 CPI    1
 JZ     BOTM
 JMP    LNCH
LMTH  LHLD   TEMP
 DCX    H
 MOV    A,M
 CPI    0DH
 JNZ    LMTH+3
 INX    H
 SHLD   PNTR
LMT1   LDA    MODE
 ORA    A
 JNZ    LIST
 CALL   CLRS
 JMP    LNOT
 COPY ED4:S