NXTC LXI B,2 JC NXUP PUSH B CPI '-' JNZ CNVV POP B MVI B,1 PUSH B LHLD IPNT INX H SHLD IPNT CNVV LHLD IPNT MOV B,H MOV C,L CALL DBCV DCR H JP WHAT POP B MOV C,L INR C MOV A,B ORA A JZ NXUP MOV A,L NXBK STA TEMP LHLD TOPL XCHG LHLD PNTR NATP DCX H DCX H CALL OVTS JC NAOK XCHG SHLD PNTR JMP NDON NAOK MOV A,M CPI 0DH JNZ NATP+1 INX H SHLD PNTR LDA TEMP DCR A JNZ NXBK JMP NDON NXUP DCR C JZ NDON CALL NLST JC BOTM SHLD PNTR JMP NXUP NDON LDA MODE LHLD PNTR ORA A JNZ LIST CALL CLRS JMP LNOT DBCV LXI H,0 DBC1 LDAX B CPI 0DH RZ MOV D,H MOV E,L DAD H DAD H DAD D DAD H SUI 48 CPI 10 CMC JC WHAT MOV E,A MVI D,0 DAD D INX B JMP DBC1 WHAT LXI H,WTMS LXI SP,0CBFFH CALL OUTR JMP CMRT WTMS ASC 'WHAT?' DB 8DH TEMP DS 2 TOPL DS 2 PNTR DS 2 OVTS MOV A,E SUB L MOV A,D SBB H RET NLST LHLD PNTR MOV A,M INX H CPI 0DH RZ JNC NLST+3 DCX H RET BOTM LXI SP,0CBFFH LHLD EFPN SHLD PNTR LXI H,BTMS CALL OUTR JMP CMRT BTMS ASC 'BOTTOM' DB 8DH EFPN DS 2 LIST LHLD PNTR CALL CLRS CALL CRLF MVI D,16 NLS1 DCR D RZ CALL LNOT JMP NLS1 CLRS PUSH B PUSH D PUSH H PUSH PSW CALL 0C0D5H POP PSW POP H POP D POP B RET CRLF LDA 0DH CALL TVTO RET LNOT MVI B,1 MOV A,M CPI 2 RC INX H CPI TAB JNZ LNO1 CALL TBST JMP LNOT+2 LNO1 INR B CALL DTOT CPI 0DH RZ JMP LNOT+2 RBCM LHLD IPNT MOV A,M CPI ' '+1 JC WHAT STA RUBO RET MSCR LHLD IPNT MOV A,M CPI 'P' JZ STMD CPI 'L' JNZ WHAT XRA A STMD STA MODE RET TOPR LHLD TOPL SHLD PNTR LDA MODE ORA A JNZ LIST TPLE CALL CLRS JMP LNOT KLRT LHLD IPNT MOV A,M CPI ' '+1 JC WHAT STA KILL RET NEWF LXI H,ADMS CALL OUTR CALL HLIN SHLD PNTR SHLD EFPN SHLD TOPL MVI M,1 CALL CRLF JMP INMD ADMS ASC 'ADDR' DB ' '+80H HLIN CALL HL JNC WHAT XCHG LXI H,MMIN CALL OVTS XCHG RNC LXI B,UFMS POP H LXI H,CMRT PUSH H LXI H,UFLL JMP EEOF UFMS DB 0FH ASC 'MIN ADDRESS (LH)' UFLL DS 3 DB ' ' DS 3 DB 8DH INMD LXI SP,STAK LXI H,INMS CALL OUTR INLP CALL DTIN LXI H,IBUF MOV A,M CPI 0DH JZ IDON CALL NLST SHLD PNTR SHLD MVAD CALL CENT JMP INLP STAK EQU 0CBFFH INMS ASC 'INPUT' DB 8DH MVAD DS 2 CENT LHLD EFPN INR C MVI B,0 DAD B XCHG LHLD MMAX CALL OVTS JNC MOFL MSOK LHLD EFPN CALL RMOV LHLD EFPN DAD B SHLD EFPN LHLD IPNT DCR C DAD B SHLD MVAD LHLD IPNT XCHG LHLD PNTR CALL LMOV RET MOFL LXI H,OFMS LXI SP,STAK CALL CRLF CALL OUTR JMP CMRT OFMS ASC 'MEM OVERFLOW' DB 8DH RMOV PUSH B MOV B,H MOV C,L LHLD MVAD NXRM LDAX B STAX D MOV A,L CMP C JNZ RMCT MOV A,H CMP B JZ RDON RMCT DCX B DCX D JMP NXRM RDON POP B RET LMOV PUSH B MOV B,D MOV C,E XCHG LHLD MVAD XCHG LMLP LDAX B MOV M,A MOV A,C CMP E JNZ LMCT MOV A,B CMP D JZ LDON LMCT INX H INX B JMP LMLP LDON POP B RET COPY ED3:S