8008 XACi'.0 ASSEMBLER, VER 2,2                    INTXXXXX 8/.40x 8 MONITOR, VERSION 3,0, x4 APRIL, 1975 ERROXX · 0 PAGE 10          38t98 2 46IQJD t CALL                     INCKL        38xE 2 E7 t MO\/                          X,M                   j TXxXx, REXXXX HL -> BIT PATTERN        38EIF 2tSCANQUT:        38BF 2 46493F x Ci\L,L                    TI        38C2 2 3COX t CPI                         CH        38C4 2 48ilf38 t JNX                      SCANCUT               J SCAR PAST CR        38C7 2 36032E00t LXI                      H,ICBYT               J GET 1/0 STATUS        38ce1 2 C7 t MCV                          A,M     ' 38CC 2 A2 + ANA                            C                     } CLEAR FIELD        3CCD 2 b4 + ORA                           £                     } SET NEW STATUS        38CE 2 F8 + MQV                           M,A                   } RET'xRiv TX KER!0RY        3EICF 2 444438 + JMP                      START        3EID2 2+TESTU                                                   J INDEX THROUGH FHYSIXXX UNIT TABLE        38D2 2 13F + CMP                          M                     J CC.YPARE DEVICE CHAR vvITri LEGAL VALUES        39Dx 2 20 + RZ                                                  ; RETURN KITH HL, -> DE'v'ICE SELECT BITS        3LxD4 2 46FQ3D + CAXX                     INCHL        3807 2 ¢6F03J + CAXX                      INCHL        38DA 2 09 + OCR                           B        38DB 2 480238 + JNZ                       TEXX                  X CONTINUE LOOKUP        3dDE 2 U483C + JXX                        LER                   J ERROR RXXXXX               1             + ENDIF"               2             + IF                 NOT FIRST        J8U 2 448138 t JMP                        IOKCD               1             t ENDIF        38E4                  ASQ3        38E4 x?52                      CPI        'R'                   ) XXXXXX?        38E0 48F238                    JNZ        ASl                   ) 1£ST FCH PUNCH               1             t KODIQ              IRT,RMSK              ) MODJFI REAXXX DEVICE        3tlE9 1 265Cj£3ft [.XI                    X,1RT                 J ADb'RESS CI PHYoICAL UNIT TABLE        38ED 1 1OF'3 t M\/X                       C,RMSK                ) C · SELECT BIT MASK               2             + If                 FIRST                 ) XXXX THIS COJE OhCE,               2             +                                          j BRAXXX XX IT THEREAFTER               2             +I0MQDU               2             +XXXXX SET           FALSE               2             + CAXX,              NOISE                 J SCAN INPUT AND ICH0 UNTIL               2             +                                          } PHYSICAL DEVICE CHAR IS ENCOUNTERED               2             + !'1Vl              B,4                   } su TAE1L,L LENGTH               x             + MOV                H,D               x             + MUV                L,E               2             + CALL               TEST                  } CUKPARE PHYSICAL DEVICX AGAINST               2             + CALL               IKHL               2             + MOV                £,!'(                 } TABLE, XXXXXX HI. -> Bil PATTERN               2             +SCANQUIN               2             + 7ALL               TI               2             + CPI                CR               2             t JNZ                SCANOUT               ) SCAN PAST CR               2             t LXI                K,I0BYT               ; GET I/Cl STATUX               2             + MOV                A,K               2             + ANA                C                     ) CLEAR FIELD               2             + ORA                £                     J SET NEd STATUX               2             + HOV                M,A                   j RETURN TO KiMORY