U2PNCH1

Table Of Contents
  • [00004] PNCH1,1442-5 CARD PUNCH IOCS ROUTINE
u2pnch1.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \u2pnch1.asm 
PNCH1,1442-5 CARD PUNCH IOCS ROUTINE*
 
                             2 | *************************************************** U2I00020
                             3 | *TITLE- PNCH1,1442-5 CARD PUNCH IOCS ROUTINE      * U2I00030
                             4 | *STATUS- CHANGE LEVEL 000                         * U2I00040
                             5 | *FUNCTION/OPERATION-                              * U2I00050
                             6 | *     THIS 1130 SUBROUTINE OPERATES THE 1442-5    * U2I00060
                             7 | *     CARD PUNCH.   IT INITIATES REQUESTED OPERA- * U2I00070
                             8 | *     TIONS, PROCESSES ANY COLUMN OR OPERATION    * U2I00080
                             9 | *     COMPLETE INTERRUPTS,AND EXITS TO THE USERS  * U2I00090
                            10 | *     ERROR SUBROUTINE WITH ERROR AND LAST CARD   * U2I00100
                            11 | *     INDICATIONS                                   U2I00110
                            12 | *                                                 * U2I00120
                            13 | *     IDENTIFYING FEATURE -    ERROR PARAMETER    * U2I00130
                            14 | *ENTRY POINTS-                                    * U2I00140
                            15 | *     1. PNCH1  CALL ENTRANCE FOR TEST, PUNCH     * U2I00150
                            16 | *               OR FEED OPERATIONS.               * U2I00160
                            17 | *                            E.G.  LIBF    PNCH1  * U2I00170
                            18 | *                                  DC      /2000  * U2I00180
                            19 | *                                  DC      IOBUF  * U2I00190
                            20 | *                                  DC      ERROR  * U2I00200
                            21 | *     2. INT1   COLUMN INTERRUPT ENTRY POINT.     * U2I00210
                            22 | *     3. INT2   OPERATION COMPLETE INTERRUPT ENTRY* U2I00220
                            23 | *               POINT.                            * U2I00230
                            24 | *INPUT- NONE OTHER THAN FROM THE PARAMETERS IN    * U2I00240
                            25 | *     LIBF CALLING SEQUENCE.                      * U2I00250
                            26 | *     VALID PARAMETERS ARE-                       * U2I00260
                            27 | *       /0000  TEST                               * U2I00270
                            28 | *       /2000  PUNCH                              * U2I00280
                            29 | *       /3000  FEED                               * U2I00290
                            30 | *OUTPUT- SUBR WILL PUNCH UP TO 80 COLUMNS FROM    * U2I00300
                            31 | *     I/O BUFFER TO CARD AS SPECIFIED BY CALL.    * U2I00310
                            32 | *     THE LEFT 12 BITS FROM EACH I/O BUFFER WORD  * U2I00320
                            33 | *     ARE PUNCHED INTO THE CARD COLUMNS.          * U2I00330
                            34 | *EXTERNAL SUBROUTINES- NONE.                      * U2I00340
                            35 | *EXITS-                                           * U2I00350
                            36 | *  NORMAL-                                        * U2I00360
                            37 | *     1. CA34   IF NO PRE-OP ERROR HAS BEEN DE-   * U2I00370
                            38 | *               TECTED, THE EXIT FROM CA34 IS BACK* U2I00380
                            39 | *               TO THE CALLER AFTER THE REQUESTED * U2I00390
                            40 | *               1442 OPERATION HAS BEEN INITIATED * U2I00400
                            41 | *     2. CR22   THE EXIT FROM CR22  IS BACK TO THE* U2I00410
                            42 | *               CALLER VIA ILS00 AFTER THE COLUMN * U2I00420
                            43 | *               INTERRUPT IS SERVICED.            * U2I00430
                            44 | *     3. CR66     CONTROL RETURNS TO CALLERS PRO- * U2I00440
                            45 | *               GRAM VIA ILS04 AFTER OP COMPLETE  * U2I00450
                            46 | *               PROCESSING HAS BEEN FINISHED.     * U2I00460
                            47 | *  ERROR-                                         * U2I00470
                            48 | *     1. CA34   IF A PRE-OP ERROR OR NOT READY    * U2I00480
                            49 | *               CONDITION IS DETECTED, THE SUBR   * U2I00490
                            50 | *               WILL BRANCH TO HEX 0029 VIA CA34  * U2I00500
                            51 | *               AND DISPLAY ONE OF TWO CODES IN   * U2I00510
                            52 | *               ACCUMULATOR.                      * U2I00520
                            53 | *               1000 IS DISPLAYED IF 1442 IS NOT  * U2I00530
                            54 | *               READY.  1001 IS DISPLAYED IF AN   * U2I00540
                            55 | *               ERROR IS DISCOVERED IN CALLING    * U2I00550
                            56 | *               PARAMETERS OR AREAS REFERENCED BY * U2I00560
                            57 | *               THEM.                             * U2I00570
                            58 | *     2. CR71A  IF A POST-OPERATIVE HARDWARE ERROR* U2I00580
                            59 | *               IS DETECTED, THE SUBR EXITS VIA   * U2I00590
                            60 | *               CR71A TO THE USERS ERROR SUBR     * U2I00600
                            61 | *               WITH AN ERROR CODE,0001,IN THE ACC* U2I00610
                            62 | *               UPON RETURN,THE FUNCTION IS TERM- * U2I00620
                            63 | *               INATED OR REINITIATED DEPENDING ON* U2I00630
                            64 | *               WHETHER OR NOT THE ACC. IS CLEARED* U2I00640
                            65 | *     3.  CR61A IF A LAST CARD CONDITION IS       * U2I00650
                            66 | *               DETECTED, THE SUBR EXITS TO THE   * U2I00660
                            67 | *               USER VIA CR61A WITH CODE 0000 IN  * U2I00670
                            68 | *               THE ACCUMULATOR.                  * U2I00680
                            69 | *TABLES/WORK AREAS- NONE.                         * U2I00690
                            70 | *ATTRIBUTES- REUSABLE.                            * U2I00700
                            71 | *NOTES- THIS SUBR CONTAINS NO WAIT INSTRUCTIONS.  * U2I00710
                            72 | *************************************************** U2I00720
                            73 |       LIBR                                          U2I00730
0000                        74 | 1130  ISS  01 PNCH1     0    4                      U2I00740
                            75 | *************************************************** U2I00750
                            76 | *             LOADER DEFINED LOCATIONS            * U2I00760
                            77 | *************************************************** U2I00770
0000 6948                   78 | PNCH1 STX   1 CA30+1     LIBF ENTRANCE         (+0) U2I00780
0001 6580 0000              79 | LINK  LDX  I1 0          LOADER STORES TV ADDR (+2) U2I00790
0003 7006                   80 |       MDX     CA10       TO PROCESS CALL            U2I00800
0004 0000                   81 | INT1  DC      0          COLUMN INTERRUPT      (+4) U2I00810
0005 4C00 008AR             82 |       BSC  L  CR14                                  U2I00820
0007 0000                   83 | INT2  DC      0          OP COMPLETE INTERRUPT (+7) U2I00830
0008 4C00 009BR             84 |       BSC  L  CR60                                  U2I00840
                            85 | *************************************************** U2I00850
                            86 | *             LIBF PROCESSING                     * U2I00860
                            87 | *************************************************** U2I00870
                            88 | *     THIS PORTION STORES CALLING SEQUENCE INFO   * U2I00880
                            89 | *     AND CHECKS THE DEVICE STATUS BEFORE ANY I/O * U2I00890
                            90 | *     OPERATION IS INITIATED. A CALLING ERROR OR  * U2I00900
                            91 | *     NOT READY 1442 CAUSES AN ERROR EXIT TO      * U2I00910
                            92 | *     LOCATION 41. IF THE OPERATION WILL CAUSE    * U2I00920
                            93 | *     INTERRUPTS, THE ROUTINE IS SET BUSY AND THE * U2I00930
                            94 | *     IOCS COUNTER IS INCREMENTED TO INDICATE     * U2I00940
                            95 | *     INTERRUPT(S) PENDING.                       * U2I00950
                            96 | *************************************************** U2I00960
000A D067                   97 | CA10  STO     TEMP       SAVE STATUS                U2I00970
000B 2840                   98 |       STS     CA32                                  U2I00980
000C 6A3E                   99 |       STX   2 CA31+1                                U2I00990
000D C100                  100 |       LD    1 0          X1= ADDR OF CALL+1         U2I01000
000E 180C                  101 |       SRA     12         IS FUNCTION TEST           U2I01010
000F 4C20 0015R            102 |       BSC  L  CA14,Z     NO                         U2I01020
0011 C064                  103 |       LD      BUSY       YES, IS SUBROUTINE BUSY    U2I01030
0012 4818                  104 |       BSC     +-         SKIP IF YES                U2I01040
0013 7101                  105 |       MDX   1 +1         NO, EXIT TO CALL+3         U2I01050
0014 7030                  106 |       MDX     CA28       YES, EXIT TO CALL+2        U2I01060
0015 9063                  107 | CA14  S       D0004      IS FUNCTION LEGAL          U2I01070
0016 4C30 005AR            108 |       BSC  L  CA40,Z-    NO, ERROR                  U2I01080
0018 8063                  109 |       A       H7003      RESULT WILL BE 7003, 7002  U2I01090
0019 D00B                  110 |       STO     CA20       *7001, OR 7000             U2I01100
001A 8059                  111 |       A       CONST      MODIFY THE COMMAND         U2I01110
001B D007                  112 |       STO     CA18       *AT CA18                   U2I01120
001C C059                  113 | CA15  LD      BUSY       IS SUBROUTINE BUSY         U2I01130
001D 4C20 001CR            114 |       BSC  L  CA15,Z     YES, WAIT TIL NOT          U2I01140
001F 0854                  115 | CA17  XIO     SENSE-1    IS DEVICE READY            U2I01150
0020 4C04 005CR            116 |       BSC  L  CA42,E     NO, ERROR                  U2I01160
0022 C052                  117 |       LD      SENSE      SETUP CONTROL IOCC         U2I01170
0023 905F                  118 | CA18  S       SETUP      MODIFIED INSTRUCTION       U2I01180
0024 D04E                  119 |       STO     INIT                                  U2I01190
0025 7000                  120 | CA20  MDX     CA20+1     WHAT IS FUNCTION           U2I01200
0026 7033                  121 |       MDX     CA40       READ IS ILLEGAL            U2I01210
0027 7027                  122 |       MDX     CA36       = PUT  -- PUNCH--          U2I01220
0028 7005                  123 |       MDX     CA25       = FEED                     U2I01230
0029 7030                  124 |       MDX     CA40       STK IS ILLEGAL             U2I01240
002A C101                  125 | CA24  LD    1 1          SAVE DATA ADDRESS          U2I01250
002B D044                  126 |       STO     COLM                                  U2I01260
002C D054                  127 |       STO     RSTRT+1                               U2I01270
002D 7101                  128 |       MDX   1 1                                     U2I01280
002E 7101                  129 | CA25  MDX   1 +1         SET X1 TO SKIP 2ND PARAM   U2I01290
002F C100                  130 |       LD    1 0                                     U2I01300
0030 D051                  131 |       STO     RSTRT+2                               U2I01310
0031 0842                  132 |       XIO     SENSE-1                               U2I01320
0032 1003                  133 |       SLA     3          IS LAST CARD IND ON        U2I01330
0033 4C10 003AR            134 |       BSC  L  CA25B,-    NO                         U2I01340
0035 C0EF                  135 |       LD      CA20       IS FUNCTION A FEED         U2I01350
0036 4C04 003AR            136 |       BSC  L  CA25B,E    NO, PUNCH                  U2I01360
0038 083D                  137 |       XIO     FEED-1     EJECT CARD                 U2I01370
0039 702C                  138 |       MDX     CA43       TO DISPLAY NR CODE         U2I01380
003A 7401 0032             139 | CA25B MDX  L  50,+1      INCREMENT IOCS COUNTER     U2I01390
003C 1000                  140 |       NOP                                           U2I01400
003D C03A                  141 |       LD      D0001                                 U2I01410
003E D037                  142 |       STO     BUSY       SET ROUTINE BUSY           U2I01420
003F C03E                  143 | CA26  LD      ERROR                                 U2I01430
0040 4C20 0044R            144 |       BSC  L  CA27,Z                                U2I01440
0042 082F                  145 |       XIO     INIT-1     INITIATE I/O               U2I01450
0043 7001                  146 |       MDX     CA28       SKIP FEED OPERATION        U2I01460
0044 0831                  147 | CA27  XIO     FEED-1                                U2I01470
0045 7101                  148 | CA28  MDX   1 +1                                    U2I01480
0046 C02B                  149 |       LD      TEMP                                  U2I01490
0047 6906                  150 | CA29  STX   1 CA34+1     SET EXIT TO SKIP 1ST PARAM U2I01500
0048 6500 0000             151 | CA30  LDX  L1 0          RESTORE STATUS             U2I01510
004A 6600 0000             152 | CA31  LDX  L2 0          *AND INDEX REGISTERS       U2I01520
004C 2000                  153 | CA32  LDS     0                                     U2I01530
004D 4C00 0000             154 | CA34  BSC  L  0          EXIT                       U2I01540
004F 9038                  155 | CA36  S       SETUP+5                               U2I01550
0050 D020                  156 |       STO     COLM+1     SETUP PUNCH I/O            U2I01560
0051 C580 0001             157 |       LD   I1 1                                     U2I01570
0053 4C08 005AR            158 |       BSC  L  CA40,+     = ERROR IF ZERO OR NEG     U2I01580
0055 D027                  159 |       STO     COUNT                                 U2I01590
0056 D029                  160 |       STO     RSTRT      SAVE WORD COUNT            U2I01600
0057 9023                  161 |       S       D0080      DO NOT PUNCH OVER 80 COL   U2I01610
0058 4808                  162 |       BSC     +          SKIP ON ERROR              U2I01620
0059 70D0                  163 |       MDX     CA24       GO GET DATA                U2I01630
005A C02C                  164 | CA40  LD      H1001      ERROR CODE - ILLEGAL CALL  U2I01640
005B 700B                  165 |       MDX     CA44       TO ERROR EXIT  --LOC 41    U2I01650
005C 1801                  166 | CA42  SRA     1          IS DEVICE BUSY             U2I01660
005D 4C04 001FR            167 |       BSC  L  CA17,E     YES, WAIT TIL NOT          U2I01670
005F 1003                  168 |       SLA     3          IS DSW ERROR INDIC ON      U2I01680
0060 4C10 0066R            169 |       BSC  L  CA43,-     NO                         U2I01690
0062 C0C2                  170 |       LD      CA20       YES, IS FUNCTION FEED      U2I01700
0063 4C04 0066R            171 |       BSC  L  CA43,E     NO                         U2I01710
0065 D018                  172 |       STO     ERROR      YES, INDIC SKIP 1ST CD     U2I01720
0066 C01F                  173 | CA43  LD      H1000      ERROR CODE - DVCE NOT RDY  U2I01730
0067 71FF                  174 | CA44  MDX   1 -1                                    U2I01740
0068 6D00 0028             175 |       STX  L1 40         STORE CALL ADDR IN 40      U2I01750
006A 6129                  176 |       LDX   1 41         SET EXIT FOR 41            U2I01760
006B 70DB                  177 |       MDX     CA29       TO SOFT ERROR TRAP         U2I01770
                           178 | *************************************************** U2I01780
                           179 | *             CONSTANTS                           * U2I01790
                           180 | *************************************************** U2I01800
006C                       181 |       BSS  E  0                                     U2I01810
006C 0000                  182 | SENSR DC      0                                   E U2I01820
006D 1702                  183 |       DC      /1702      SENSE-RESET LEVEL 4      O U2I01830
006E 0088R                 184 | ADDR  DC      PLC-1      ADDR TO REPLACE O/P AREA E U2I01840
006F 1701                  185 | CHAR  DC      /1701      SENSE-RESET LEVEL 0      O U2I01850
0070 0000                  186 | COLM  DC      0          IOCC FOR COLUMN I/O      E U2I01860
0071 0000                  187 |       DC      0          IOCC FOR PUNCH           O U2I01870
0072 0000                  188 | TEMP  DC      0          TEMPORARY STORAGE          U2I01880
0073 0400                  189 | INIT  DC      /0400      IOCC TO INITIATE I/O     O U2I01890
0074 205F                  190 | CONST DC      SETUP-CA18-1+/2000                    U2I01900
0075 1700                  191 | SENSE DC      /1700      SENSE DSW WITHOUT RESET  O U2I01910
0076 0000                  192 | BUSY  DC      0          ROUTINE BUSY INDICATOR     U2I01920
0077 1402                  193 | FEED  DC      /1402      IOCC TO FEED 1 CARD      O U2I01930
0078 0001                  194 | D0001 DC      +1         CONSTANT                   U2I01940
0079 0004                  195 | D0004 DC      +4         CONSTANT                   U2I01950
007A 0008                  196 | D0008 DC      +8         CONSTANT                   U2I01960
007B 0050                  197 | D0080 DC      +80        CONSTANT                   U2I01970
007C 7003                  198 | H7003 DC      /7003      INSTRUCTIONS = MDX X +3    U2I01980
007D 0000                  199 | COUNT DC      0          NO. WORDS TO XFER          U2I01990
007E 0000                  200 | ERROR DC      0          SKIP ONE CARD INDIC        U2I02000
007F 0000                  201 | INDIC DC      0          RD STATION FEED CHK IND    U2I02010
0080 0000                  202 | RSTRT DC      0          RESTART INFO - WORD COUNT  U2I02020
0081 0000                  203 |       DC      0                         DATA ADDR   U2I02030
0082 0000                  204 |       DC      0                       - ERROR PARAM U2I02040
0083 02FC                  205 | SETUP DC      /02FC      INITIATE IOCC SETUP - GET  U2I02050
0084 02FF                  206 |       DC      /02FF                          - PUT  U2I02060
0085 02FE                  207 |       DC      /02FE                          - FEED U2I02070
0086 1000                  208 | H1000 DC      /1000      CONSTANT                   U2I02080
0087 1001                  209 | H1001 DC      /1001      CONSTANT                   U2I02090
0088 0301                  210 |       DC      /0301                          - PUT  U2I02100
0089 0000                  211 | PLC   DC      *-*        WD FOR LAST CHAR PUNCHED   U2I02110
008D                       212 | $PST4 EQU     /8D        POST-OPERATIVE ERROR TRAP  U2I02120
                           213 | *************************************************** U2I02130
                           214 | *             COLUMN INTERRUPT PROCESSING         * U2I02140
                           215 | *************************************************** U2I02150
                           216 | *     THIS PORTION IS ENTERED FROM INTERR LEVEL   * U2I02160
                           217 | *     SUBROUTINE 00.                              * U2I02170
                           218 | *            WHEN THE LAST COLUMN REQUESTED IS    * U2I02180
                           219 | *     PUNCHED, AN INDICATION IS GIVEN TO THE 1442 * U2I02190
                           220 | *     TO INITIATE AN OP COMPLETE INTERRUPT.       * U2I02200
                           221 | *************************************************** U2I02210
008A 08E3                  222 | CR14  XIO     CHAR-1     SENSE DSW WITH RESET       U2I02220
008B 74FF 007DR            223 |       MDX  L  COUNT,-1   ANY MORE COLS TO PROCESS   U2I02230
008D 7008                  224 |       MDX     CR18       YES                        U2I02240
008E 7401 0070R            225 | CR16  MDX  L  COLM,+1    NO, STORE STOP PUNCH       U2I02250
0090 C480 0070R            226 |       LD   I  COLM       *BIT (BIT 12) IN COL       U2I02260
0092 E8E7                  227 |       OR      D0008      *DATA                      U2I02270
0093 D0F5                  228 |       STO     PLC                                   U2I02280
0094 C0D9                  229 |       LD      ADDR       PUNCH FROM TEMPORARY       U2I02290
0095 D0DA                  230 |       STO     COLM       *LOCATION                  U2I02300
0096 7401 0070R            231 | CR18  MDX  L  COLM,+1    SET ADDR FOR NEXT COLUMN   U2I02310
0098 08D7                  232 | CR20  XIO     COLM       EXECUTE COLUMN I/O         U2I02320
0099 4C80 0004R            233 | CR22  BSC  I  INT1       EXIT                       U2I02330
                           234 | *************************************************** U2I02340
                           235 | *             OP COMPLETE INTERRUPT PROCESSING    * U2I02350
                           236 | *************************************************** U2I02360
                           237 | *     THIS PORTION IS ENTERED FROM INTERR LEVEL   * U2I02370
                           238 | *     SUBROUTINE 04. IF AN ERROR IS DETECTED,     * U2I02380
                           239 | *     THE SUBROUTINE EXITS TO THE USERS ERROR     * U2I02390
                           240 | *     ROUTINE VIA THE ERROR PARAMETER, AND        * U2I02400
                           241 | *     GIVES THE USER THE OPTION OF TERMINATING    * U2I02410
                           242 | *     OR RETRYING THE OPERATION. IF TERMINATION   * U2I02420
                           243 | *     IS SELECTED OR IF NO ERROR IS DETECTED, THE * U2I02430
                           244 | *     ROUTINE IS SET NOT BUSY AND THE IOCS        * U2I02440
                           245 | *     COUNTER IS DECREMENTED TO INDICATE INTERR   * U2I02450
                           246 | *     PROCESSING COMPLETED. OTHERWISE THE SUBRT   * U2I02460
                           247 | *     WAITS AT POST-OPERATIVE ERROR TRAP UNTIL    * U2I02470
                           248 | *     THE OPERATOR HAS INTERVENED                 * U2I02480
                           249 | *     AND THE 1442 BECOMES READY, AT WHICH TIME   * U2I02490
                           250 | *     THE CARDS ARE POSITIONED AND THE I/O OPERA- * U2I02500
                           251 | *     TION IS RE-INITIATED.                       * U2I02510
                           252 | *************************************************** U2I02520
009B 08D0                  253 | CR60  XIO     SENSR      SENSE WITH RESET           U2I02530
009C 1003                  254 |       SLA     3          IS OPERATION OK            U2I02540
009D 4C02 00B7R            255 |       BSC  L  CR70,C     NO, ERROR                  U2I02550
009F 4C10 00ACR            256 | CR61  BSC  L  CR62,-     YES, CHK FOR LAST CARD     U2I02560
00A1 1810                  257 |       SRA     16         GO TO USER WITH            U2I02570
00A2 4480 0082R            258 | CR61A BSI  I  RSTRT+2    LAST CARD CODE             U2I02580
00A4 C0C9                  259 |       LD      ADDR       RETURN FROM USER           U2I02590
00A5 80D2                  260 |       A       D0001      CHECK FUNCTION             U2I02600
00A6 F0C9                  261 |       EOR     COLM       IS FUNCTION PUT            U2I02610
00A7 4C20 00ACR            262 |       BSC  L  CR62,Z     NO, GO TO CR62             U2I02620
00A9 7401 0073R            263 |       MDX  L  INIT,+1                               U2I02630
00AB 08C6                  264 |       XIO     INIT-1     YES, EJECT LAST CD         U2I02640
00AC C0D1                  265 | CR62  LD      ERROR      WAS THIS A SKIP OPERATION  U2I02650
00AD 1010                  266 |       SLA     16                                    U2I02660
00AE D0CF                  267 |       STO     ERROR                                 U2I02670
00AF 4C02 00C1R            268 |       BSC  L  CR72,C     YES, INITIATE FUNCTION     U2I02680
00B1 D0C4                  269 | CR64  STO     BUSY       NO, CLEAR ROUTINE BUSY IND U2I02690
00B2 74FF 0032             270 |       MDX  L  50,-1      DECREMENT IOCS COUNTER     U2I02700
00B4 1000                  271 |       NOP                                           U2I02710
00B5 4C80 0007R            272 | CR66  BSC  I  INT2       RETURN TO INTERRUPT LEVEL  U2I02720
00B7 D0C7                  273 | CR70  STO     INDIC      SAVE FD CHK (RD STAT) IND  U2I02730
00B8 C0BF                  274 |       LD      D0001                                 U2I02740
00B9 4480 0082R            275 | CR71A BSI  I  RSTRT+2    EXIT TO USER               U2I02750
00BB 4C18 00B1R            276 |       BSC  L  CR64,+-    RESTART NOT REQUESTED      U2I02760
00BD C0B5                  277 |       LD      INIT       IS FUNCTION PUNCH          U2I02770
00BE 4C04 00C1R            278 |       BSC  L  CR72,E     YES, DONT SKIP             U2I02780
00C0 700E                  279 |       MDX     CR73B      NO, GO CHK FEED CHECK ERRO U2I02790
00C1 08B2                  280 | CR72  XIO     SENSE-1    IS DEVICE READY            U2I02800
00C2 4C04 00D6R            281 |       BSC  L  CR75,E     TO ERROR-TRAP IF NOT READY U2I02810
00C4 C0B9                  282 |       LD      ERROR      IS CARD SKIP NECESSARY     U2I02820
00C5 4C18 00C9R            283 |       BSC  L  CR73,+-    NO                         U2I02830
00C7 08AE                  284 |       XIO     FEED-1     SKIP 1ST CARD              U2I02840
00C8 70EC                  285 |       MDX     CR66       RETURN TO INTRP.LVL. TRN   U2I02850
00C9 C0B6                  286 | CR73  LD      RSTRT      REINITIATE I/O             U2I02860
00CA D0B2                  287 |       STO     COUNT      *OPERATION FROM            U2I02870
00CB C0B5                  288 |       LD      RSTRT+1    *SAVED INFO                U2I02880
00CC D0A3                  289 |       STO     COLM                                  U2I02890
00CD 08A4                  290 |       XIO     INIT-1     REINITIATE AND EXIT        U2I02900
00CE 70E6                  291 |       MDX     CR66       WITHOUT CLEARING BUSY      U2I02910
00CF C0AF                  292 | CR73B LD      INDIC      WAS ERROR FD CHK (RD ST)   U2I02920
00D0 1004                  293 |       SLA     4                                     U2I02930
00D1 4C28 00C1R            294 |       BSC  L  CR72,Z+    YES, DONT SKIP             U2I02940
00D3 C0A4                  295 | CR73E LD      D0001                                 U2I02950
00D4 D0A9                  296 |       STO     ERROR      SET BIT 1 OF INDIC         U2I02960
00D5 70EB                  297 |       MDX     CR72                                  U2I02970
00D6 C0AF                  298 | CR75  LD      H1000      LD NOT READY ERROR CODE    U2I02980
00D7 4400 008D             299 |       BSI  L  $PST4      POST-OPERATIVE ERROR TRAP  U2I02990
00D9 70E7                  300 |       MDX     CR72       TRY AGAIN                  U2I03000
00DA                       301 |       END                                           U2I03010
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$PST4 008D   212  299
ADDR  006ER  184  229  259
BUSY  0076R  192  103  113  142  269
CA10  000AR   97   80
CA14  0015R  107  102
CA15  001CR  113  114
CA17  001FR  115  167
CA18  0023R  118  112  190
CA20  0025R  120  110  135  170
CA24  002AR  125  163
CA25  002ER  129  123
CA25B 003AR  139  134  136
CA26  003FR  143
CA27  0044R  147  144
CA28  0045R  148  106  146
CA29  0047R  150  177
CA30  0048R  151   78
CA31  004AR  152   99
CA32  004CR  153   98
CA34  004DR  154  150
CA36  004FR  155  122
CA40  005AR  164  108  121  124  158
CA42  005CR  166  116
CA43  0066R  173  138  169  171
CA44  0067R  174  165
CHAR  006FR  185  222
COLM  0070R  186  126  156  225  226  230  231  232  261  289
CONST 0074R  190  111
COUNT 007DR  199  159  223  287
CR14  008AR  222   82
CR16  008ER  225
CR18  0096R  231  224
CR20  0098R  232
CR22  0099R  233
CR60  009BR  253   84
CR61  009FR  256
CR61A 00A2R  258
CR62  00ACR  265  256  262
CR64  00B1R  269  276
CR66  00B5R  272  285  291
CR70  00B7R  273  255
CR71A 00B9R  275
CR72  00C1R  280  268  278  294  297  300
CR73  00C9R  286  283
CR73B 00CFR  292  279
CR73E 00D3R  295
CR75  00D6R  298  281
D0001 0078R  194  141  260  274  295
D0004 0079R  195  107
D0008 007AR  196  227
D0080 007BR  197  161
ERROR 007ER  200  143  172  265  267  282  296
FEED  0077R  193  137  147  284
H1000 0086R  208  173  298
H1001 0087R  209  164
H7003 007CR  198  109
INDIC 007FR  201  273  292
INIT  0073R  189  119  145  263  264  277  290
INT1  0004R   81  233
INT2  0007R   83  272
LINK  0001R   79
PLC   0089R  211  184  228
PNCH1 0000R   78
RSTRT 0080R  202  127  131  160  258  275  286  288
SENSE 0075R  191  115  117  132  280
SENSR 006CR  182  253
SETUP 0083R  205  118  155  190
TEMP  0072R  188   97  149