#0010 * 8080 MONITOR V2.0 (1ST 1K) 0020 * 8/10/76 0030 SVAL EQU 0 0040 USRLC EQU SVAL-1024 0050 SP EQU 6 0060 PSW EQU 6 0070 MBUF EQU SVAL-256 0080 CR EQU 0DH 0090 LF EQU 0AH 0100 START LXI SP,SVAL 0110 XRA A 0120 STA MBUF+21 0130 STA MBUF+15 0140 LXI H,HI 0150 MVI D,12 0160 SGNON MOV A,M 0170 INX H 0180 CALL OUTPT 0190 DCR D 0200 JNZ SGNON 0210 * 0220 BEGIN CALL CRLF 0230 ONE MVI A,'.' 0240 CALL OUTPT 0250 CGET CALL INPT1 0260 MVI B,19 0270 LXI H,TABLE 0280 MORE CMP M 0290 INX H 0300 JZ FOUND 0310 INX H 0320 INX H 0330 DCR B 0340 JNZ MORE 0350 CPI 0 0360 JZ CGET 0370 CRCK CPI CR 0380 JZ BEGIN 0390 EXIT MVI A,'?' 0400 CALL OUTPT 0410 REST1 CALL CRLF 0420 REST2 LXI SP,SVAL 0430 JMP ONE 0440 FOUND MOV A,M 0450 INX H 0460 MOV H,M 0470 MOV L,A 0480 MVI E,01 0490 PCHL 0500 * 0510 ADD3 CALL BLK 0520 MVI E,03 0530 CALL GBYTE 0540 JNC EXIT 0550 MOV B,H 0560 MOV C,L 0570 POP D 0580 POP H 0590 RET 0600 * 0610 ADD2 CALL BLK 0620 INR E 0630 CALL GBYTE 0640 JNC EXIT 0650 XCHG 0660 POP H 0670 RET 0680 * 0690 ADD1 CALL BLK 0700 CALL GBYTE 0710 RET 0720 * 0730 DISPY CALL ADD2 0740 CALL PRNTM 0750 PRNT1 MOV A,M 0760 CALL CNVT 0770 CALL BLK 0780 CALL ECH2 0790 JC REST1 0800 DCR B 0810 CZ PRNTM 0820 JMP PRNT1 0830 * 0840 GBYTE LXI H,0 0850 BYTE0 MVI D,0 0860 BYTE1 CALL INPT1 0870 CPI ',' 0880 JZ NEXTA 0890 CPI CR 0900 JZ BYTE2 0910 CPI '@' 0920 JZ REST1 0930 CPI ' ' 0940 RZ 0950 MVI D,1 0960 CALL HEXCK 0970 NXT DAD H 0980 DAD H 0990 DAD H 1000 DAD H 1010 ORA L 1020 MOV L,A 1030 JMP BYTE1 1040 NEXTA DCR E 1050 JZ EXIT 1060 XTHL 1070 PUSH H 1080 JMP GBYTE 1090 BYTE2 DCR E 1100 RNZ 1110 STC 1120 RET 1130 * 1140 HEXCK CPI 30H 1150 JM EXIT 1160 CPI 3AH 1170 JP CON1 1180 SUI 30H 1190 RET 1200 CON1 CPI 41H 1210 JM EXIT 1220 CPI 47H 1230 JP EXIT 1240 SUI 37H 1250 RET 1260 * 1270 CNVT MOV C,A 1280 RAR 1290 RAR 1300 RAR 1310 RAR 1320 CALL CV2 1330 MOV A,C 1340 CV2 ANI 0FH 1350 ADI 30H 1360 CPI 3AH 1370 JC OUTPT 1380 ADI 07H 1390 JMP OUTPT 1400 * 1410 CRLF MVI A,CR 1420 CALL OUTPT 1430 MVI A,LF 1440 CALL OUTPT 1450 XRA A 1460 JMP OUTPT 1470 * 1480 PRNTM CALL CRLF 1490 MOV A,H 1500 CALL CNVT 1510 MOV A,L 1520 CALL CNVT 1530 MVI B,16 1540 BLK MVI A,' ' 1550 JMP OUTPT 1560 * 1570 EXAM CALL ADD1 1580 JC EXIT 1590 CALL PRNTM 1600 EXAM1 MOV A,M 1610 CALL CNVT 1620 MVI A,'-' 1630 CALL OUTPT 1640 PUSH H 1650 CALL GBYTE 1660 DCR D 1670 JNZ EXAM2 1680 MOV A,L 1690 POP H 1700 MOV M,A 1710 JC CHK1 1720 CMP M 1730 JNZ EXIT 1740 INX H 1750 EXAM3 DCR B 1760 DCR B 1770 CZ PRNTM 1780 JMP EXAM1 1790 EXAM2 POP H 1800 JC REST1 1810 INX H 1820 JMP EXAM3 1830 * 1840 GOTO CALL ADD1 1850 JNC EXIT 1860 CALL CRLF 1870 PCHL 1880 * 1890 HLT IN 0 1900 RAR 1910 JC CON3 1920 HLT2 IN 1 1930 ANI 7FH 1940 CPI 03H 1950 JZ REST1 1960 CON3 RET 1970 * 1980 LOAD CALL ADD1 1990 JNC EXIT 2000 MVI B,0 2010 LOAD1 CALL INP 2020 ORA A 2030 JZ LOAD1 2040 LOAD2 MOV M,A 2050 INX H 2060 CALL INP 2070 JZ FFDEL 2080 JMP LOAD2 2090 * 2100 LEAD XRA A 2110 MVI B,70 2120 LED CALL OUTPT 2130 DCR B 2140 JNZ LED 2150 RET 2160 * 2170 UNLOD CALL ADD2 2180 CALL CRLF 2190 CALL INPUT 2200 CALL LEAD 2210 UNLD2 MOV A,M 2220 CALL OUTPT 2230 CALL ECH2 2240 JNC UNLD2 2250 MVI B,8 2260 LAP CALL RUB 2270 CALL OUTPT 2280 JZ NULL 2290 JMP LAP 2300 NULL CALL LEAD 2310 JMP CGET 2320 * 2330 FILL CALL ADD3 2340 CLRM MOV M,C 2350 CALL ECH2 2360 JNC CLRM 2370 JMP REST1 2380 * 2390 ECH2 INX H 2400 MOV A,L 2410 ORA H 2420 JZ REST1 2430 MOV A,E 2440 SUB L 2450 MOV A,D 2460 SBB H 2470 RET 2480 * 2490 OUTCS CALL ADD2 2500 CALL LEX 2510 MVI A,55H 2520 CALL OUT1 2530 BRA MOV A,M 2540 CALL OUT1 2550 CALL ECH2 2560 JNC BRA 2570 CALL LEX 2580 JMP REST1 2590 * 2600 INCS CALL ADD1 2610 JNC EXIT 2620 CALL CRLF 2630 CALL FCHK 2640 MVI A,'$' 2650 OUT 1 2660 MVI B,0 2670 LP2 CALL IN1 2680 ANI 2 2690 JNZ EXIT 2700 IN 7 2710 CALL INPT 2720 JZ FFDEL 2730 MOV M,A 2740 INX H 2750 JMP LP2 2760 * 2770 RUB MVI A,0FFH 2780 DCR B 2790 RET 2800 * 2810 CHK1 CMP M 2820 JNZ EXIT 2830 JMP REST1 2840 * 2850 LEX MVI B,8 2860 LEX1 CALL RUB 2870 CALL OUT1 2880 JNZ LEX1 2890 RET 2900 * 2910 MOVE CALL ADD3 2920 BT MOV A,M 2930 STAX B 2940 INX B 2950 CALL ECH2 2960 JC REST1 2970 JMP BT 2980 * 2990 RDR CALL ADD1 3000 JNC EXIT 3010 MVI B,0 3020 LP1 CALL INPT5 3030 ORA A 3040 JNZ LD 3050 JMP LP1 3060 LD CALL INPT 3070 JZ FFDEL 3080 MOV M,A 3090 INX H 3100 CALL INPT5 3110 JMP LD 3120 * 3130 INPT5 CALL HLT 3140 PUSH D 3150 LXI D,08FFH 3160 LP7 DCX D 3170 MOV A,D 3180 ORA E 3190 JNZ LP7 3200 POP D 3210 IN 5 3220 RET 3230 * 3240 VERIF CALL ADD2 3250 LP8 CALL INPT5 3260 CMP M 3270 JZ CNT 3280 PUSH PSW 3290 CALL ERROR 3300 CALL BLK 3310 POP PSW 3320 CALL CNVT 3330 CNT CALL ECH2 3340 JC REST1 3350 JMP LP8 3360 * 3370 ERROR MOV A,M 3380 PUSH PSW 3390 CALL PRNTM 3400 POP PSW 3410 JMP CNVT 3420 * 3430 PUNCH CALL ADD2 3440 CALL PLEAD 3450 PNLP MOV A,M 3460 CALL OUTP3 3470 CALL ECH2 3480 JNC PNLP 3490 MVI B,9 3500 FFOUT CALL RUB 3510 JZ LDR 3520 CALL OUTP3 3530 JMP FFOUT 3540 LDR CALL PLEAD 3550 JMP REST1 3560 * 3570 PLEAD MVI B,120 3580 PLED XRA A 3590 CALL OUTP3 3600 DCR B 3610 JNZ PLED 3620 RET 3630 * 3640 OUTP3 OUT 3 3650 PUSH B 3660 LXI B,0CFFH 3670 OTPN2 DCX B 3680 MOV A,B 3690 ORA C 3700 JNZ OTPN2 3710 POP B 3720 CALL HLT 3730 RET 3740 * 3750 USR CALL INPUT 3760 CPI CR 3770 JNZ REST1 3780 CALL CRLF 3790 JMP USRLC 3800 * 3810 FCHK MVI B,0 3820 FCH1 CALL TIN7 3830 CALL INPT 3840 JNZ FCH1 3850 FFCK CALL TIN7 3860 CPI 0FFH 3870 JZ FFCK 3880 CPI 55H 3890 JNZ FCHK 3900 RET 3910 * 3920 TYPE CALL ADD2 3930 ADRS CALL PRNTM 3940 MVI B,64 3950 DATA MOV A,M 3960 ANI 7FH 3970 CPI 21H 3980 JM PEROD 3990 CPI 7BH 4000 JM PRINT 4010 PEROD MVI A,'.' 4020 PRINT CALL OUTPT 4030 CALL ECH2 4040 JC REST1 4050 DCR B 4060 JNZ DATA 4070 JMP ADRS 4080 * 4090 INPT1 CALL INPUT 4100 CPI CR 4110 RZ 4120 CPI 'N' 4130 RZ 4140 OUTPT PUSH PSW 4150 LOOP IN 0 4160 RAL 4170 JC LOOP 4180 CALL HLT 4190 POP PSW 4200 OUT 1 4210 RET 4220 * 4230 INPUT IN 0 4240 RAR 4250 JC INPUT 4260 IN 1 4270 ANI 7FH 4280 RET 4290 * 4300 INP IN 0 4310 RAR 4320 JC INP 4330 IN 1 4340 INPT CPI 0FFH 4350 JZ CHK 4360 MVI B,0 4370 RET 4380 CHK INR B 4390 MOV C,A 4400 MOV A,B 4410 CPI 8 4420 MOV A,C 4430 RET 4440 * 4450 IN1 IN 6 4460 RAR 4470 JNC RTRN 4480 IN 0 4490 RAR 4500 CNC HLT2 4510 JMP IN1 4520 RTRN RET 4530 * 4540 OUT1 PUSH PSW 4550 OUT2 IN 6 4560 RAL 4570 JC OUT2 4580 CALL HLT 4590 POP PSW 4600 OUT 7 4610 RET 4620 * 4630 INDEV CALL INPT1 4640 MVI B,5 4650 LXI H,TABLI 4660 JMP MORE 4670 * 4680 OUTDV CALL INPT1 4690 MVI B,5 4700 LXI H,TABLO 4710 JMP MORE 4720 * 4730 TIN7 CALL IN1 4740 IN 7 4750 RET 4760 * 4770 FFDEL LXI D,0FFF9H 4780 DAD D 4790 MVI B,7 4800 XRA A 4810 ERAS MOV M,A 4820 DCR B 4830 JZ REST1 4840 INX H 4850 JMP ERAS 4860 * 4870 TABLE DB 'D' 4880 DW DISPY 4890 DB 'E' 4900 DW EXAM 4910 DB 'G' 4920 DW GOTO 4930 DB 'N' 4940 DW NULL 4950 DB 'F' 4960 DW FILL 4970 DB 'C' 4980 DW COMP 4990 DB 'O' 5000 DW OUTDV 5010 DB 'I' 5020 DW INDEV 5030 DB 'M' 5040 DW MOVE 5050 DB 'V' 5060 DW VERIF 5070 DB 'B' 5080 DW REST1 5090 DB 'K' 5100 DW KLEAR 5110 DB 'R' 5120 DW RTURN 5130 DB 'P' 5140 DW BRPT 5150 DB 'X' 5160 DW XAME 5170 DB 'S' 5180 DW SERCH 5190 DB 'T' 5200 DW TYPE 5210 DB 'L' 5220 DW LDR 5230 DB 'U' 5240 DW USR 5250 * 5260 TABLI DB 'C' 5270 DW INCS 5280 DB 'T' 5290 DW LOAD 5300 DB 'R' 5310 DW RDR 5320 DB 'H' 5330 DW HEXL 5340 DB 'F' 5350 DW AFILE 5360 * 5370 TABLO DB 'C' 5380 DW OUTCS 5390 DB 'T' 5400 DW UNLOD 5410 DB 'P' 5420 DW PUNCH 5430 DB 'H' 5440 DW HUNLD 5450 DB 'F' 5460 DW WFILE 5470 * 5480 HI DB CR 5490 DB LF 5500 DB LF 5510 DW '08' 5520 DW '08' 5530 DB ' ' 5540 DW '2V' 5550 DW '0.' 5560 * #5570 * 8080 MONITOR V2.0 (2ND 1K) 5580 * 8/10/76 5590 * !5600 JMP HERE * RETURN FROM BP 5610 * 5620 WFILE CALL ADD2 5630 CALL CRLF 5640 PUSH H 5650 CALL BEGN 5660 CALL INPUT 5670 CALL LEX 5680 MVI A,55H 5690 CALL OUT1 5700 MOV A,H 5710 CALL OUT1 5720 MOV A,L 5730 CALL OUT1 5740 POP H 5750 MVI B,0 5760 MOV A,L 5770 CALL OUT1 5780 MOV A,H 5790 CALL OUT1 5800 MOV A,E 5810 CALL OUT1 5820 MOV A,D 5830 CALL OUT1 5840 CON4 MOV A,M 5850 CALL OUT1 5860 ADD B 5870 MOV B,A 5880 CALL ECH2 5890 JNC CON4 5900 MOV A,B 5910 CALL OUT1 5920 JMP REST2 5930 * 5940 BEG CALL CRLF 5950 BEGN LXI H,TBLE 5960 MVI B,11 5970 LABL CALL PRNT 5980 LXI H,0 5990 CALL INOUT 6000 JZ BEG 6010 MOV H,A 6020 CALL INOUT 6030 JZ EXEC 6040 MOV L,A 6050 EXEC JMP CRLF 6060 * 6070 TBLE DW 'IF' 6080 DW 'EL' 6090 DW 'N ' 6100 DW 'MA' 6110 DW '?E' 6120 DB ':' 6130 * 6140 INOUT CALL INPUT 6150 CPI 03H 6160 JZ REST1 6170 CPI 0DH 6180 RZ 6190 JMP OUTPT 6200 * 6210 PRNT MOV A,M 6220 CALL OUTPT 6230 INX H 6240 DCR B 6250 JNZ PRNT 6260 RET 6270 * 6280 AFILE CALL BEG 6290 PUSH H 6300 LXI H,TBL2 6310 MVI B,6 6320 LABL2 CALL PRNT 6330 POP H 6340 MVI E,0 6350 CALL INOUT 6360 JZ LEN 6370 CPI 'Y' 6380 JNZ LEN 6390 INR E 6400 LEN CALL CRLF 6410 LM0 CALL FCHK 6420 MOV C,E 6430 CALL TIN7 6440 CMP H 6450 JNZ LM0 6460 CALL TIN7 6470 CMP L 6480 JNZ LM0 6490 MVI A,'$' 6500 OUT 1 6510 CALL INPT9 6520 MOV L,A 6530 CALL INPT9 6540 MOV H,A 6550 PUSH H 6560 CALL INPT9 6570 MOV E,A 6580 CALL INPT9 6590 MOV D,A 6600 MVI B,0 6610 CON1X CALL INPT9 6620 MOV M,A 6630 ADD B 6640 MOV B,A 6650 CALL ECH2 6660 JNC CON1X 6670 * 6680 CHEK CALL INPT9 6690 CMP B 6700 JNZ EXIT 6710 MOV A,C 6720 ORA A 6730 JNZ SRT 6740 MVI A,'G' 6750 OUT 1 6760 JMP REST1 6770 SRT CALL CRLF 6780 POP H 6790 PCHL 6800 * 6810 INPT9 CALL IN1 6820 ANI 2 6830 JNZ EXIT 6840 IN 7 6850 RET 6860 * 6870 TBL2 DW 'XE' 6880 DW 'CE' 6890 DW ':?' 6900 * 6910 HEXL CALL ADD1 6920 PUSH H 6930 MVI C,0 6940 LOOP1 CALL INCH 6950 CPI ':' 6960 JNZ LOOP1 6970 CALL GETBT 6980 ORA A 6990 JZ REST1 7000 MOV B,A 7010 CALL GETBT 7020 MOV H,A 7030 CALL GETBT 7040 MOV L,A 7050 POP D 7060 DAD D 7070 PUSH D 7080 CALL GETBT 7090 * 7100 LOOP2 CALL GETBT 7110 MOV M,A 7120 INX H 7130 DCR B 7140 JNZ LOOP2 7150 CALL GETCS 7160 JMP LOOP1 7170 * 7180 GETBT CALL CONVT 7190 PUSH PSW 7200 ADD C 7210 MOV C,A 7220 POP PSW 7230 RET 7240 * 7250 INCH CALL INPT5 7260 ANI 07FH 7270 RET 7280 * 7290 GETCS CALL CONVT 7300 ADD C 7310 JNZ EXIT 7320 MVI C,0 7330 RET 7340 * 7350 CONVT CALL INCH 7360 CALL HEXCK 7370 ADD A 7380 ADD A 7390 ADD A 7400 ADD A 7410 MOV D,A 7420 CALL INCH 7430 CALL HEXCK 7440 ORA D 7450 RET 7460 * 7470 HUNLD CALL ADD2 7480 WRI0 MOV A,L 7490 ADI 16 7500 MOV C,A 7510 MOV A,H 7520 ACI 0 7530 MOV B,A 7540 MOV A,E 7550 SUB C 7560 MOV C,A 7570 MOV A,D 7580 SBB B 7590 JC WRI1 7600 MVI A,16 7610 JMP WRI2 7620 * 7630 WRI1 MOV A,C 7640 ADI 17 7650 * 7660 WRI2 ORA A 7670 JZ EOF 7680 PUSH D 7690 MOV E,A 7700 MVI D,0 7710 CALL CRLF 7720 MVI A,':' 7730 CALL OUTPT 7740 MOV A,E 7750 CALL PBYTE 7760 CALL PADR 7770 XRA A 7780 CALL PBYTE 7790 WRI3 MOV A,M 7800 INX H 7810 CALL PBYTE 7820 DCR E 7830 JNZ WRI3 7840 XRA A 7850 SUB D 7860 CALL PBYTE 7870 POP D 7880 JMP WRI0 7890 * 7900 PADR MOV A,H 7910 CALL PBYTE 7920 MOV A,L 7930 PBYTE PUSH B 7940 CALL CNVT 7950 MOV A,C 7960 ADD D 7970 MOV D,A 7980 POP B 7990 RET 8000 * 8010 EOF CALL INPUT 8020 CPI 'E' 8030 JZ ENDOF 8040 JMP REST1 8050 * 8060 ENDOF CALL CRLF 8070 MVI A,':' 8080 CALL OUTPT 8090 XRA A 8100 CALL CNVT 8110 CALL CRLF 8120 JMP NULL 8130 * 8140 SERCH CALL BLK 8150 MVI E,04 8160 CALL GBYTE 8170 DCR E 8180 JZ ONEX 8190 JP EXIT 8200 MOV C,L 8210 POP H 8220 MOV B,L 8230 POP D 8240 POP H 8250 CHK1X MOV A,M 8260 CMP B 8270 JZ CHK2 8280 CALL ECH2 8290 JC REST1 8300 JMP CHK1X 8310 CHK2 INX H 8320 MOV A,M 8330 CMP C 8340 JZ PRNT2 8350 JMP CHK1X 8360 PRNT2 DCX H 8370 PUSH B 8380 CALL PRNTM 8390 POP B 8400 INX H 8410 JMP CHK1X 8420 ONEX MOV B,L 8430 POP D 8440 POP H 8450 CHK3 MOV A,M 8460 CMP B 8470 JZ PRNT3 8480 CALL ECH2 8490 JC REST1 8500 JMP CHK3 8510 PRNT3 PUSH B 8520 CALL PRNTM 8530 POP B 8540 INX H 8550 JMP CHK3 8560 * 8570 COMP CALL ADD3 8580 PUSH B 8590 LOOPX MOV A,M 8600 XTHL 8610 CMP M 8620 JNZ ERRR 8630 CONTX INX H 8640 XTHL 8650 CALL ECH2 8660 JC REST1 8670 JMP LOOPX 8680 * 8690 ERRR XTHL 8700 PUSH PSW 8710 CALL PRNTM 8720 POP PSW 8730 CALL CNVT 8740 CALL BLK 8750 XTHL 8760 MOV A,M 8770 CALL CNVT 8780 JMP CONTX 8790 * 8800 BRPT CALL ADD1 8810 LDA MBUF+15 8820 CPI 55H 8830 JZ EXIT 8840 SHLD MBUF+19 8850 MVI A,55H 8860 STA MBUF+15 8870 MOV A,M 8880 STA MBUF+16 8890 MVI A,0CDH 8900 MOV M,A 8910 INX H 8920 MOV A,M 8930 STA MBUF+17 8940 MVI A,00H 8950 MOV M,A 8960 INX H 8970 MOV A,M 8980 STA MBUF+18 8990 MVI A,84H 9000 MOV M,A 9001 JMP REST1 9002 HERE SHLD MBUF+6 9003 POP H 9004 SHLD MBUF+8 9005 SHLD MBUF+13 9006 PUSH PSW 9007 LXI H,0 9008 DAD SP 9009 INX H 9010 INX H 9011 SHLD MBUF+10 9012 POP PSW 9013 LXI SP,MBUF+6 9014 PUSH D 9015 PUSH B 9016 PUSH PSW 9017 LXI SP,SVAL 9018 MVI A,0C3H 9019 STA MBUF+12 9020 STA MBUF+21 9021 LDA MBUF+15 9022 CPI 55H 9023 JNZ REST1 9024 LHLD MBUF+8 9025 DCX H 9026 DCX H 9027 DCX H 9028 XCHG 9029 LHLD MBUF+19 9030 MOV A,L 9031 SUB E 9032 JNZ REST1 9033 MOV A,H 9034 SUB D 9035 JNZ REST1 9036 SHLD MBUF+8 9037 SHLD MBUF+13 9038 REPL LHLD MBUF+19 9039 LDA MBUF+16 9040 MOV M,A 9041 INX H 9042 LDA MBUF+17 9043 MOV M,A 9044 INX H 9045 LDA MBUF+18 9046 MOV M,A 9047 XRA A 9048 STA MBUF+15 9049 JMP REST1 9050 * 9051 KLEAR LDA MBUF+15 9052 CPI 55H 9053 JZ REPL 9054 JMP REST1 9055 * 9056 RTURN CALL INPUT 9057 CPI 0DH 9058 JNZ EXIT 9059 LDA MBUF+21 9060 ORA A 9061 JZ REST1 9062 CALL CRLF 9063 LXI SP,MBUF 9064 POP PSW 9065 MVI E,0 9066 LXI H,MBUF+21 9067 MOV M,E 9068 POP B 9069 POP D 9070 POP H 9071 POP H 9072 POP H 9073 SPHL 9074 LHLD MBUF+6 9075 JMP MBUF+12 9076 * 9077 XAME LXI H,MBUF+21 9078 MOV A,M 9079 ORA A 9080 JZ REST1 9081 CALL CRLF 9082 LXI H,MBUF 9083 PUSH H 9084 LXI H,MESG 9085 MVI B,4 9086 CNX JMP NXT1 9087 LOOPZ DCR B 9088 JZ LAST 9089 JMP CNX 9090 NXT1 MOV A,M 9091 CALL OUTPT 9092 CALL EQL 9093 XTHL 9094 INX H 9095 MOV A,M 9096 CALL CNVT 9097 DCX H 9098 XTHL 9099 CALL BLK 9100 INX H 9101 MOV A,M 9102 CALL OUTPT 9103 CALL EQL 9104 XTHL 9105 MOV A,M 9106 CALL CNVT 9107 INX H 9108 INX H 9109 XTHL 9110 INX H 9111 CALL BLK 9112 CALL BLK 9113 JMP LOOPZ 9114 LAST MVI A,'P' 9115 CALL OUTPT 9116 CALL EQL 9117 LHLD MBUF+8 9118 CALL SPPC 9119 CALL BLK 9120 CALL BLK 9121 MVI A,'S' 9122 CALL OUTPT 9123 CALL EQL 9124 LHLD MBUF+10 9125 CALL SPPC 9126 JMP REST1 9127 * 9128 MESG DW 'FA' 9129 DW 'CB' 9130 DW 'ED' 9131 DW 'LH' 9132 * 9133 SPPC MOV A,H 9134 CALL CNVT 9135 MOV A,L 9136 JMP CNVT 9137 * 9138 EQL MVI A,'=' 9139 JMP OUTPT 9140 *