8008 MACRO ASSEMBLER, VER 2.2 INTELLEC b/b'lQD 8 MONITOR, VERSION 3.0, 14 APRIL, 1975 ERRORS · 0 PAXX 26 3CAf CR'[IN: 3CAf 4B IN CRTS ; CRT STATUS PORT 3CB0 2401 AN1 CRTDA ; CHEXX FOR DATA AVAILABLE 3CBZ 48AF3C jtvz CRTIX : NOT RXXXX, XXXXXXXX LUQPING 3Cb$ 49 IX CHTX b READ THE CHXXXXXXX 3CBb 44A73C JXX ClX 3CB9 ciz: 3CB9 3702 CPI BATCH 3CBt3 btIDB3E JZ Rl 7 BA7CH MODE, INPUT · READER 3CBE 44\)x37 JMP CILUC ; CONS0[.£ · UXXX XXXXXX i ; CONVLR7 4 BXX HEX VALUE TO ASCII CHARACTER ; 3CXx ccmv: 3CCJ xCQA CPI JO 3CC3 70CB3C JM CNO j LXXX THAN 10, (0-9) 3CCb 04U7 ADI 'A'-'0'-10 ] ADJUST OF (A-Fj 3CC8 CNO: 3CC8 0430 AUI '0' ; ADD BIAS FOX ASCII 3CCA CB XXX B,A 3CCB 0x RET ; RETURN } 1 TYPE CARRIAGE RETURN AND LINE XXXX (jK CONXXXX ; 3CCC CRi.f: 3CCC 0EQD !'1VI B,CR ; 3CCE 465x3? CALL CO 3CDl 0£0A 1',VI t3,L,F ; 3CD3 44523C XXX' CO X f ; EXTERNALLY HEFEREivCEC ROUTXXX ; CONSOLE 1NPUT STATUS CODE ; A, FXXXX MODIFIED i STA¢K USACji: 2 6YTES j 3CD6 CSTSt; CONSOXX INPUT SFATUS 3CD6 36032EXX LXI H,I0BYT xXXx C7XXX A,M I GET STATUS BYTE 3CDB 2q03 ANI NOT CMSX : CONSOLE " TTY? 3CDD 4BE43C JNZ CSX ; CONSOLE · CRT 3CE0 43 XX TTS J GET TTY STAXXX xCEJ 44EAK JXP CSl 3CE4 CSO: 3CEQ 3?01 CPI CCHT 3CEb 48F23C JNZ CS3 3CE9 4b in ctds j GET CRX STATUS 3CEA csi: 3CEA 2401 ' ANI TTY1)A 3CEC 0x00 MVI A,FA1,SE $ RETURN FALSE IF NO DATA AVAILABLE 3CEL CS21 3CEE DB " RNX