BOOB MACRO ASSEMBLER, VER 2.2 INTELLXX B/XXX B MONXXXX, VERSION 3.0, 14 APRIL 1975 ERRORS · 0 PAGE 12 38FD 2 448138 + Jl4P XXXXx 1 + £N1)JF 3900 AS2 : 3900 3C4C CPI 'L' } LIST? 3902 48483C JNZ LLR ; ERXXX I + MODI0 0LI,LMXX J MXXXXX LIST DEVICE 39x5 I xbxClE3F+ LXl D,CJLT J AbDRESS OF PHYSICAL, UNIT TABLE 3909 1 163F + MVI C,LMSK J C " SELLCT Bil' MASK 2 + IF FIRXX 7 EXXX XXXX C0£E ONCX, 2 + ; BRKNCH TU IT THFHEAFTLR 2 tICxMCjO:: 2 +first Set FALSE x + CXXX NOISE : SCAN INPUT AND ECHO UNTIL 2 + : PHYSICAL, DEVICE CHAR IS ENCOUNTEREX 2 + MVI B,4 j SET TAULE LLNGTH 2 + MOV H,D 2 + HOV L,E 2 + CALL TEST 7 COMPARX PHYXXXXX DEVICE AGAINST 2 + CALL INCHL 2 + MOV E,M $ TABLE, R£xUKX XX. -> XXX PATTERN 2 +SXXXXXX 2 + CALL TI 2 + CPl CR 2 + JNZ SCANOUT $ SCAi'i PAST CR 2 + LXI H,1OBYT J GET 1/0 STATUS 2 + HOV A,1'5 2 + ANA C $ XXXXX FXXXX 2 + ORA E $ SET NEW STATUS 2 + HXX MA $ RETURN TD MEMORY' 2 + JMP START 2 +TEST1 $ INDEX THRXXXX PHYSICAL UNIT TABLE 2 + CMX PC b CQXXXXX DEVICE CHAR JTH LEGAL VALUES 2 + RZ } RXXXXX WITH rib -> DEXXXX SELECT BXXX 2 + CALL INCKL 2 + CALL INCHL 2 + OCR B 2 + JNZ TLST I CONTINUE LXXXXX x + JMP XXX x ERRXX RETuRN I + ENDIF 2 + IF NOT FIRST 3908 2 448138 + JMP IOMOD I + EHDJF $ $ PUNCH A BNPF TAPE. $ 1 XXXX ROUTINE EXPECTS TWO HEXADECIMAL PARM°!ETERS TO BE 1 ENTERED FROM THE KEYBOARD AND INTERPRETS THEM AS } THE BUUNDS OF A MEM(JKY AREA TO BE PUNCHED ON THE i ASSIGNED PUNCH DEVICE IN BNPF FURMAL. THE TAPE ; PRODUCED IS FOKMATTED WITH 4 BNXX B-BIT WORDS PER t LINE, WITH A REFEREXXX ADDRESS IN DECIMAL PRECEDING