BOOB MACRO ASSEMBLER, VER 2.2 INT£L,L,EC 8/MOD B MONITOR, VERXXXX 3,0, 14 AXXXX. 1975 ERXXXX · 0 PAGE 9                                         7 IS AN ERROR CONDITION, I.E., NO COMMAND CORRESPONDING TO THAT                                        i CHARACTER EXISTS.                                        }                  3875                  TBL,:                  3875 AJ38                     D'n ASSIGN                       ; A - ASSIGN I/O UNITS                  3877 0E39                     Old xxNPF'                       : B - PUNCH BNPF"                  3879 6739                     Dfd CORP                         ; C " CUMPARE PROM NITF1 MEJ',0RY                  3BxX AC39                     DW DIXX                          ; X - DISPLAY RAbj KEMORY                  387D D739                     On ECIF                          : L " XXXXXXX A HEXADECIMAL FILE                  387f 033A                     DW f ILL                         } F " F'IL,L MEMOXX                  38BJ 163A                     Dbl GOTO                         ; G - GO TO MEMOKY ADDRESS                 3883 !D3A                      DH HEXN                          J H - HEXADECIMAL SUM ANX DIFFERENCE                 3885 4B3C                      Did LER                          J I "                 3887 4B3C                      DW LER                           ; J "                 x889 4ti3C                     DW L,XX                          6 K "                 Jb8b 4x3A                      Din LOAD                         $ L " LOAD BNPF TAPE                 388D 623A                      Dhl MOVE                         1 )q - MOVE MEMORY                 388F 8E3A                      Din NULL                         7 N - PUNCH NUL,LS FOR LEADER                 3891 483C                      Did LEX                          ; Cl "                 3893 943A                      DW PXXX                          1 P - PROGRAM A 1702A PROM                 JB95 483C                      Din LER                          1 Q -                 3897 Ft93A                     Ln READ                          J H - KLKD HEXAXXXXXXX FILE                 3899 6A3B                      Din SUBS                         1 S - SUBSTITUTE MEMOXX                 x898 B93B                      Dw TRAN                          7 T - XXXXXXXX A PRXX TU MEMORX                 389D 483C                      Ox L£F1                          J U "                 3b9f 483C                      DtN LER                          J V "                 38Ax DA3B                      Did WRITE                        J h - WRITE HEX TAPE                                        ;                                        j PROCESS I/O DEVICE ASSXXXXXXX COMMANDS.                                        :                                        ; THIS RXXXXXX MAPS SXxXxXXXX DEVICE IDENTIFIERS TO BITS                                        ; IN TXX I/O SXXXXX BYXX (IClbYT) TX ALLOW FOR CONSOLE                                        i MODIFICATION OF SYSTEM 1/0 CONFIGURATION.                                        $                 x8Ax                   ASSIGXX                 38A3 46493F                    CALL TI                          1 GET LOGICAL DEVICX CHARACTER                 38a6 3C43                      CPI 'C'                          7 CONSOL£?                 38A8 QBE438                    XXX ASO                          x TEST FOR REXXXX                        X+ KQDI(j 1CT,CMSK 7 MODIFY CONSOLE DEVICE                 38AB I 26541E3F+ L,Xx D,ICT                                     j ADDRESS OF PXXXXXXX UNIT TABLE                 3BAX I lbFC + MVI C,CMSK                                        J C · SELECX Xxx MASK                        2             + IF FIRST                                 1 XXXX THIS CODE ONCE,                        2             +                                          J' BRANCX TO IT THEXXXXXXX                 x8Bl 2               ·IO!'1ODU                 0000 2               +FIRXX SET FALSE                 38Bl 2 46bAjE + CAXX NOISE                                      J SCAX XXXXX AND ECHO UNTIL                        2             x                                          i PHYSICAL XXXXXX CHAR IS ENCOUNXXXXX                 3884 2 OE04 + MVI B,4                                           i SEX TABLE LENGTH                 3886 2 EB + MXX H,1)                 J8B7 2 F4 + HOV L,E                 3888 2 4x0238 + CALL TXXX                                       J COMPARE PHYSICAL DEVICE AGAINST