8008 MACRO ASSEMBLER, VER 2.2 INTELLEC 8/MOD 8 MONIXXX, VXXXXXX 3,0, 14 APRIL 1975 ERRJXXX · 0 PAGE 5                              FIRST SET TRUE           FFFF                 X          KODIO MXXXX TA8LE,MASK                                  L,X1 D,TABLE             ; ADDRESS OF PHYSICAL UNIT TABLE                 1                                  KVI C,MASK               ] C · SELECT BXX MASK                 1                                  If FIRST                 } EKIT THIS CODE ONCE,                 2                                                           } BRANCH TO IT THEREAFTER                 2                 x          IOHOO::                 2          XXXXX SET FALSE                 2                CALL NUISE               i SCAN INPUT AND ECHQ UNTIX                                                           ; PHYSICAL DEVICE CHAR IS ENCOUNTERED                 2                 2                MVI B,4                  i SET TABLE LEHGTH                 2                HOV H,D                 2                XXX L,E                                  CALL TEST                i COMPARE PHYSICAL DEVICE AGAINST                 2                 2                FALL INCHX                 2                HOV E,K                  i TXXXX, RETURN HX -> BIT PATTERN                 2          SCANOU1N                 2                CAXX TI                 2                CPI CR                 2                JNZ SCAXXXX              : SCAN PAST CR                 2                LXJ H,I0BYT              1 GXX 1/0 STATUS                 2                M0\/ A,!(                 2                ANA X                    ; CLEAR FIELD                 2                ORA E                    i SET NEW STATUS                 2                HOV M,A                  ; RETURh XX ldEMQRY                 2                jµjp START                 2          TES7N                          i INDEX THROUGH PHYSICAL UNIT TABLE                 2                CMP K                    i compare device char u:ri lexal values                 2                RZ                       i RETURN KIXX HI, -> DEVICE SELECT BITS                 2                CALL INCHL                 2                CAXX INCHX                 2                OCR B                 2                JNZ TEST                 i CONTINUE LOOXXX                 2                JMP LEK                  i ERROR RETURN                 I                ENDIF                 2                JF' NXX FIRST                 2                JXX IOHx0                 1                ENDIF                                  ENDM                            0                            X                            i 1/0 STATUS BYTE KAXXX AND VALUES                            0                            I           00FC             CHSK EQU lllll100v i XASK FOR CONSOLE 1/0           0xFx                            RMSX EQU liliO(/llB i MASK FOR READER INPUT           QOXX                            PMSK EXX ilOXxxxxX ; RXXX FOR PUNCH OUTPUT           0Q3F                            LMSK EQU 00llilllB i XASK FJJR LIST OUTPUT                            i           0000                            CTTY EQU x00000008 ' i COXXXXX 1/0 · TTY           0001                            CCRT EQU 00000001B i CXXXXXX 1/0 · CRT           0002                            XXXXX EQU 00000010B i BATCH HODE,                                                           1 INPUT · XXXXXX, OUTPUT · LIST