User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:u2card1_lst

U2CARD1

Table Of Contents
  • [00004] LIBF CARD1
u2card1.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \u2card1.asm 
LIBF CARD1
 
                             2 | *************************************************** U2B00020
                             3 | *                                                 * U2B00030
                             4 | *   SUBROUTINE NAME-                              * U2B00040
                             5 | *      FULL NAME- N/A                             * U2B00050
                             6 | *      CODE NAME- CARD1                           * U2B00060
                             7 | *   PURPOSE-                                      * U2B00070
                             8 | *     THIS 1130 SUBROUTINE OPERATES THE 1442 CARD * U2B00080
                             9 | *     READER PUNCH. IT INITIATES REQUESTED OPERA- * U2B00090
                            10 | *     TIONS, PROCESSES ANY COLUMN OR OPERATION    * U2B00100
                            11 | *     COMPLETE INTERRUPTS, AND, IF REQUESTED,     * U2B00110
                            12 | *     INITIATES ERROR RECOVERY PROCEDURES.        * U2B00120
                            13 | *   METHOD-                                       * U2B00130
                            14 | *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U2B00140
                            15 | *   CAPABILITIES AND LIMITATIONS-                 * U2B00150
                            16 | *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U2B00160
                            17 | *   SPECIAL FEATURES- THIS SUBROUTINE USES A USER-* U2B00170
                            18 | *      WRITTEN ERROR RECOVERY SUBROUTINE.         * U2B00180
                            19 | *   ADDITIONAL INFORMATION-                       * U2B00190
                            20 | *      ESTIMATED EXECUTION TIME-                  * U2B00200
                            21 | *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U2B00210
                            22 | *                                                 * U2B00220
                            23 | *************************************************** U2B00230
                            24 |       LIBR                                          U2B00240
0000                        25 | 1130  ISS  01 CARD1     0    4                      U2B00250
                            26 | *************************************************** U2B00260
                            27 | *             LOADER DEFINED LOCATIONS            * U2B00270
                            28 | *************************************************** U2B00280
0000 6979                   29 | CARD1 STX   1 CR42+1    LIBF ENTRANCE          (+0) U2B00290
0001 6580 0000              30 | LINK  LDX  I1 0         LOADER STORES TV ADDR  (+2) U2B00300
0003 7006                   31 |       MDX     CR10                                  U2B00310
0004 0000                   32 | INT1  DC      0         COLUMN INTERRUPT       (+4) U2B00320
0005 4C00 00A4R             33 |       BSC  L  CR50                                  U2B00330
0007 0000                   34 | INT2  DC      0         OP COMPLETE INTERRUPT (+7)  U2B00340
0008 4C00 00BCR             35 |       BSC  L  CR60                                  U2B00350
                            36 | *************************************************** U2B00360
                            37 | *             LIBF PROCESSING                     * U2B00370
                            38 | *************************************************** U2B00380
                            39 | *     THIS PORTION STORES CALLING SEQUENCE INFO   * U2B00390
                            40 | *     AND CHECKS THE DEVICE STATUS BEFORE ANY I/O * U2B00400
                            41 | *     OPERATION IS INITIATED. A CALLING ERROR OR  * U2B00410
                            42 | *     NOT READY 1442 CAUSES AN ERROR EXIT TO      * U2B00420
                            43 | *     LOCATION 41. IF THE OPERATION WILL CAUSE    * U2B00430
                            44 | *     INTERRUPTS, THE ROUTINE IS SET BUSY AND THE * U2B00440
                            45 | *     IOCS COUNTER IS INCREMENTED TO INDICATE     * U2B00450
                            46 | *     INTERRUPT(S) PENDING.                       * U2B00460
                            47 | *************************************************** U2B00470
000A 6A71                   48 | CR10  STX   2 CR44+1    SAVE XR2                    U2B00480
000B 2871                   49 |       STS     CR46      SAVE STATUS                 U2B00490
000C D075                   50 |       STO     TEMP      SAVE A REG                  U2B00500
000D C100                   51 |       LD    1 0         XR1= ADDR OF CONTROL PARAM  U2B00510
000E 180C                   52 |       SRA     12        IS  FUNCTION TEST           U2B00520
000F 4C20 0015R             53 |       BSC  L  CR12,Z    NO,BRANCH                   U2B00530
0011 C078                   54 |       LD      RESTR+2   YES,IS PROGRAM BUSY         U2B00540
0012 4818                   55 |       BSC     +-        YES,EXIT TO CALL+2          U2B00550
0013 7101                   56 |       MDX   1 +1        NO,EXIT TO CALL+3           U2B00560
0014 7061                   57 |       MDX     CR38      GO EXIT                     U2B00570
0015 D012                   58 | CR12  STO     CR24+1                                U2B00580
0016 907F                   59 |       S       D0004     IS  FUNCTION LEGAL          U2B00590
0017 4C30 0020R             60 |       BSC  L  CR16,Z-   NO,ERROR                    U2B00600
0019 C070                   61 | CR14  LD      RESTR+2   IS  ROUTINE BUSY            U2B00610
001A 4C20 0019R             62 |       BSC  L  CR14,Z    YES,WAIT TILL NOT           U2B00620
001C C100                   63 | CR15  LD    1 0         NO,SET UP FOR FUNCTION      U2B00630
001D 100C                   64 |       SLA     12        IS  DEVICE 0                U2B00640
001E 4C18 0026R             65 |       BSC  L  CR22,+-   YES                         U2B00650
0020 C07C                   66 | CR16  LD      H1001     NO,LOAD ERROR CODE          U2B00660
0021 71FF                   67 | CR18  MDX   1 -1                                    U2B00670
0022 6D00 0028              68 |       STX  L1 $PRET     STORE CALL ADDR IN $PRET    U2B00680
0024 6129                   69 |       LDX   1 $PRET+1                               U2B00690
0025 7052                   70 |       MDX     CR40      SET EXIT FOR $PRET+1        U2B00700
0026 C066                   71 | CR22  LD      FEED      SET UP IOCC FOR FUNC        U2B00710
0027 6600 0000              72 | CR24  LDX  L2 0         XR2  = FUNCTION CODE        U2B00720
0029 8600 008ER             73 |       A    L2 SETUP-1                               U2B00730
002B D05B                   74 |       STO     INIT                                  U2B00740
002C 9600 0092R             75 |       S    L2 SETUP+3                               U2B00750
002E D056                   76 |       STO     COLM+1                                U2B00760
002F 085A                   77 | CR26  XIO     SENSE-1   IS  DEVICE READY            U2B00770
0030 4C04 0038R             78 |       BSC  L  CR30,E    NO                          U2B00780
0032 4E00 0033R             79 | CR28  BSC  L2 CR28+1    YES,INITIATE FUNCTION       U2B00790
0034 700E                   80 |       MDX     CR32                 = GET            U2B00800
0035 700D                   81 |       MDX     CR32                 = PUT            U2B00810
0036 7027                   82 |       MDX     CR33A                = FEED           U2B00820
0037 7038                   83 |       MDX     CR36                 = STK            U2B00830
0038 1801                   84 | CR30  SRA     1         IS  DEVICE BUSY             U2B00840
0039 4C04 002FR             85 |       BSC  L  CR26,E    YES,WAIT                    U2B00850
003B 1003                   86 |       SLA     3         NO,IS ERROR BIT ON          U2B00860
003C 4C10 0041R             87 |       BSC  L  CR31,-    NO                          U2B00870
003E C0E9                   88 |       LD      CR24+1    YES,IS FUNCT GET/FEED       U2B00880
003F 4804                   89 |       BSC     E         NO                          U2B00890
0040 D03F                   90 |       STO     ERROR     YES,SET SKIP CARD INDR      U2B00900
0041 C05A                   91 | CR31  LD      H1000     LOAD NOT READY CODE         U2B00910
0042 70DE                   92 |       MDX     CR18      EXIT                        U2B00920
0043 C580 0001              93 | CR32  LD   I1 1         INITIATE  FUNCTION          U2B00930
0045 4C08 0020R             94 |       BSC  L  CR16,+    ERROR    IF COUNT NEG OR 0  U2B00940
0047 D03E                   95 |       STO     COUNT                                 U2B00950
0048 D03F                   96 |       STO     RESTR     SAVE    WORD COUNT          U2B00960
0049 904E                   97 |       S       D0080     IS WORD COUNT OVER +80      U2B00970
004A 4C30 0020R             98 |       BSC  L  CR16,Z-   YES,GO TO ERROR EXIT        U2B00980
004C C101                   99 |       LD    1 1         NO                          U2B00990
004D D036                  100 |       STO     COLM      SAVE ADDR OF I/O AREA       U2B01000
004E D03A                  101 |       STO     RESTR+1                               U2B01010
004F D007                  102 |       STO     CR33+1                                U2B01020
0050 7101                  103 |       MDX   1 +1        SET XR1 TO SKIP THIRD PARAM U2B01030
0051 72FF                  104 |       MDX   2 -1        IS  FUNCTION =GET           U2B01040
0052 7014                  105 |       MDX     CR34      NO                          U2B01050
0053 6680 0086R            106 | CR32A LDX  I2 COUNT                                 U2B01060
0055 C03F                  107 |       LD      D0001     STORE +1 IN DATA AREA       U2B01070
0056 D600 0000             108 | CR33  STO  L2 0         (NOT READ INDICATOR)        U2B01080
0058 72FF                  109 |       MDX   2 -1        NEXT WORD                   U2B01090
0059 70FC                  110 |       MDX     CR33      LOOP                        U2B01100
005A C02B                  111 |       LD      COUNT     GET WORD COUNT              U2B01110
005B 8039                  112 |       A       D0001     INCREASE WORD COUNT BY      U2B01120
005C D029                  113 |       STO     COUNT     *+1 SO PROCESS LAST         U2B01130
005D D02A                  114 |       STO     RESTR     COLUMN                      U2B01140
005E 082B                  115 | CR33A XIO     SENSE-1   YES,IS LAST CD INDR ON      U2B01150
005F 1003                  116 |       SLA     3                                     U2B01160
0060 4C10 0067R            117 |       BSC  L  CR34,-    NO                          U2B01170
0062 0829                  118 |       XIO     FEED-1    EJECT CARD                  U2B01180
0063 7200                  119 |       MDX   2 0         IS FUNCTION GET             U2B01190
0064 70DC                  120 |       MDX     CR31      NO                          U2B01200
0065 71FF                  121 |       MDX   1 -1        YES,SET XR1=LIBF+1          U2B01210
0066 70DA                  122 |       MDX     CR31                                  U2B01220
0067 0822                  123 | CR34  XIO     SENSE-1   IS DEVICE READY         2-7 U2B01230
0068 4C04 009FR            124 |       BSC  L  CR47,E    BRANCH IF NOT READY     2-7 U2B01240
006A C101                  125 |       LD    1 1         SAVE USER RESTART SUBR      U2B01250
006B D01E                  126 |       STO     RESTR+2   *ADDRESS                    U2B01260
006C 7101                  127 |       MDX   1 +1        SET XR1 TO SKIP 2ND PARAM   U2B01270
006D 7401 0032             128 |       MDX  L  50,+1     INCREMENT IOCS COUNTER      U2B01280
006F 1000                  129 |       NOP                                           U2B01290
0070 C00F                  130 | CR36  LD      ERROR     IS SKIP CD INDR ON          U2B01300
0071 4C18 0075R            131 |       BSC  L  CR37,+-                               U2B01310
0073 0818                  132 |       XIO     FEED-1    YES,    FEED 1 CARD         U2B01320
0074 7001                  133 |       MDX     CR38                                  U2B01330
0075 0810                  134 | CR37  XIO     INIT-1    NO,    INITIATE FUNCTION    U2B01340
0076 7101                  135 | CR38  MDX   1 +1        SET XR1 TO SKIP FIRST PARAM U2B01350
0077 C00A                  136 |       LD      TEMP      RESTORE A REG               U2B01360
0078 6906                  137 | CR40  STX   1 EXIT+1    SET UP EXIT                 U2B01370
0079 6500 0000             138 | CR42  LDX  L1 *-*       RESTORE XR1                 U2B01380
007B 6600 0000             139 | CR44  LDX  L2 *-*       RESTORE XR2                 U2B01390
007D 2000                  140 | CR46  LDS     *-*       RESTORE STATUS              U2B01400
007E 4C00 0000             141 | EXIT  BSC  L  *-*       RETURN TO USER              U2B01410
                           142 | *************************************************** U2B01420
                           143 | *             CONSTANTS                           * U2B01430
                           144 | *************************************************** U2B01440
0080                       145 |       BSS  E  0                                     U2B01450
0080 0000                  146 | SENSR DC      0                                     U2B01460
0081 1702                  147 |       DC      /1702     SENSE-RESET,LEVEL 4         U2B01470
0082 0000                  148 | TEMP  DC      0         SAVE ACCUM                  U2B01480
0083 1701                  149 | CHAR  DC      /1701     TEMP REG FOR INTERPTS (ODD) U2B01490
0084 0000                  150 | COLM  DC      0         IOCC  FOR COLUMN I/O (EVEN) U2B01500
0085 0000                  151 |       DC      0                              (ODD)  U2B01510
0086 0000                  152 | COUNT DC      0         NO. OF WDS TO TR            U2B01520
0087 0000                  153 | INIT  DC      0         IOCC  TO INITIATE I/O (ODD) U2B01530
0088 0000                  154 | RESTR DC      0         RESTART  INFO - COUNT       U2B01540
0089 0000                  155 |       DC      0                       - IOAR        U2B01550
008A 0000                  156 |       DC      0                       - ERROR ADDR  U2B01560
008B 1700                  157 | SENSE DC      /1700     IOCC  TO SENSE DEVICE (ODD) U2B01570
008C 0082R                 158 | ADDR  DC      CHAR-1    ADDR  TO REPLACE I/O AREA   U2B01580
008D 1402                  159 | FEED  DC      /1402     IOCC  TO FEED CARD    (ODD) U2B01590
0080R                      160 | ERROR EQU     SENSR     SKIP CARD INDR              U2B01600
008E 0000                  161 | INDIC DC      0         FEED CHK (RD STATION) INDR  U2B01610
008F 0002                  162 | SETUP DC      /0002     INITIATE  READ START        U2B01620
0090 FFFF                  163 |       DC      /FFFF               PUNCH START       U2B01630
0091 0000                  164 |       DC      /0000               FEED CYCLE        U2B01640
0092 007E                  165 |       DC      /007E               STACKER SELECT    U2B01650
0093 0204                  166 |       DC      /0204     INITIATE  READ COLUMN       U2B01660
0094 0301                  167 |       DC      /0301               PUNCH COLUMN      U2B01670
0095 0001                  168 | D0001 DC      +1        DECIMAL CONSTANTS           U2B01680
0096 0004                  169 | D0004 DC      +4        CONST TO CHECK FUNCTION     U2B01690
0097 0008                  170 | D0008 DC      8         CONST FOR PUNCH STOP BIT    U2B01700
0098 0050                  171 | D0080 DC      +80       CONST TO CHECK WD COUNT     U2B01710
0099 000F                  172 | H000F DC      /000F     MASKS AND HEXADECIMAL CONS  U2B01720
009A 0100                  173 | H0100 DC      /0100     MASK CONST                  U2B01730
009B 02FE                  174 | H02FE DC      /02FE     MASK CONST                  U2B01740
009C 1000                  175 | H1000 DC      /1000     NOT READY ERROR CODE        U2B01750
009D 1001                  176 | H1001 DC      /1001     ILLEGAL CALL ERROR CODE     U2B01760
009E 1701                  177 | SDSW  DC      /1701     SENSE DSW  AREA CODE    2-2 U2B01770
008D                       178 | $PST4 EQU     /8D       POST-OPERATIVE ERROR TRAP   U2B01780
0028                       179 | $PRET EQU     /28                                   U2B01790
                           180 | *                                                   U2B01800
009F C088                  181 | CR47  LD      CR24+1    IS XR1                  2-7 U2B01810
00A0 90EE                  182 |       S       SETUP     INCREASED               2-7 U2B01820
00A1 4808                  183 |       BSC     +         *                       2-7 U2B01830
00A2 71FF                  184 |       MDX   1 -1        YES                     2-7 U2B01840
00A3 7094                  185 |       MDX     CR30      *                       2-7 U2B01850
                           186 | *************************************************** U2B01860
                           187 | *             COLUMN INTERRUPT PROCESSING         * U2B01870
                           188 | *************************************************** U2B01880
                           189 | *     THIS PORTION IS ENTERED FROM INTERPT LEVEL  * U2B01890
                           190 | *     SUBROUTINE 00. AFTER THE REQUESTED NO. OF   * U2B01900
                           191 | *     COLUMNS HAS BEEN READ, THE REMAINING COLUMN * U2B01910
                           192 | *     INTERRUPTS ARE MERELY TURNED OFF AS THEY    * U2B01920
                           193 | *     OCCUR. WHEN THE LAST COLUMN REQUESTED IS    * U2B01930
                           194 | *     PUNCHED, AN INDICATION IS GIVEN TO THE 1442 * U2B01940
                           195 | *     TO INITIATE AN OP COMPLETE INTERRUPT.       * U2B01950
                           196 | *************************************************** U2B01960
00A4 C0F9                  197 | CR50  LD      SDSW                              2-2 U2B01970
00A5 D0DD                  198 |       STO     CHAR      RESTORE SENSE IOCC          U2B01980
00A6 08DB                  199 |       XIO     CHAR-1    SENSE DEVICE STATUS WORD    U2B01990
00A7 74FF 0086R            200 |       MDX  L  COUNT,-1  ANY MORE COLUMNS            U2B02000
00A9 700D                  201 |       MDX     CR54      YES                         U2B02010
00AA 4C10 00AFR            202 |       BSC  L  CR52,-    IS READ CC INTERPT          U2B02020
00AC 7401 0086R            203 |       MDX  L  COUNT,+1  YES,SET COUNT TO SKIP       U2B02030
00AE 700B                  204 |       MDX     CR56      *NEXT CC                    U2B02040
00AF 7401 0084R            205 | CR52  MDX  L  COLM,+1   NO,SET FOR NEXT WORD        U2B02050
00B1 C480 0084R            206 |       LD   I  COLM      STORE STOP PUNCH            U2B02060
00B3 E8E3                  207 |       OR      D0008     *      BIT (BIT 12) IN      U2B02070
00B4 D0CE                  208 |       STO     CHAR      *      WORD & PUNCH FROM    U2B02080
00B5 C0D6                  209 |       LD      ADDR      *      TEMPORARY ADDRESS    U2B02090
00B6 D0CD                  210 |       STO     COLM                                  U2B02100
00B7 7401 0084R            211 | CR54  MDX  L  COLM,+1   SET FOR NEXT I/O WORD       U2B02110
00B9 08CA                  212 |       XIO     COLM      EXECUTE COLUMN I/O          U2B02120
00BA 4C80 0004R            213 | CR56  BSC  I  INT1      RETURN TO INTERPT LEVEL     U2B02130
                           214 | *************************************************** U2B02140
                           215 | *             OP COMPLETE INTERRUPT PROCESSING    * U2B02150
                           216 | *************************************************** U2B02160
                           217 | *     THIS PORTION IS ENTERED FROM INTERPT LEVEL  * U2B02170
                           218 | *     SUBROUTINE 04. IF AN ERROR IS DETECTED,     * U2B02180
                           219 | *     THE SUBROUTINE EXITS TO THE USERS ERROR     * U2B02190
                           220 | *     ROUTINE VIA THE ERROR PARAMETER, AND        * U2B02200
                           221 | *     GIVES THE USER THE OPTION OF TERMINATING    * U2B02210
                           222 | *     OR RETRYING THE OPERATION. IF TERMINATION   * U2B02220
                           223 | *     IS SELECTED OR IF NO ERROR IS DETECTED, THE * U2B02230
                           224 | *     ROUTINE IS SET NOT BUSY AND THE IOCS        * U2B02240
                           225 | *     COUNTER IS DECREMENTED TO INDICATE INTERPT  * U2B02250
                           226 | *     PROCESSING COMPLETED. OTHERWISE THE SUBRT   * U2B02260
                           227 | *     WAITS AT THE POST-OPERATIVE ERROR TRAP        U2B02270
                           228 | *     UNTIL THE 1442 IS READY AND THE OPERATOR   *  U2B02280
                           229 | *     PUSHES START,AT WHICH TIME THE CARDS ARE   *  U2B02290
                           230 | *     POSITIONED AND THE I/O OP IS RE-INITIATED.  * U2B02300
                           231 | *************************************************** U2B02310
00BC 08C3                  232 | CR60  XIO     SENSR     OP COMPLETE, SENSE W/RESET  U2B02320
00BD 1003                  233 |       SLA     3         IS OPERATION OK             U2B02330
00BE 4C02 00D9R            234 |       BSC  L  CR70,C    NO,ERROR                    U2B02340
00C0 4C10 00CDR            235 | CR61  BSC  L  CR62,-    YES                         U2B02350
00C2 1810                  236 |       SRA     16                                    U2B02360
00C3 4480 008AR            237 |       BSI  I  RESTR+2   NO,LAST CARD                U2B02370
00C5 C0C6                  238 |       LD      ADDR                                  U2B02380
00C6 80CE                  239 |       A       D0001                                 U2B02390
00C7 F0BC                  240 |       EOR     COLM      IS FUNCTION PUT             U2B02400
00C8 4C20 00CDR            241 |       BSC  L  CR62,Z    NO                          U2B02410
00CA 7401 0087R            242 |       MDX  L  INIT,+1                               U2B02420
00CC 08B9                  243 |       XIO     INIT-1    YES,EJECT LAST CARD         U2B02430
00CD C0B2                  244 | CR62  LD      ERROR     WAS  THIS A SKIP OPERATION  U2B02440
00CE 1000                  245 |       NOP                                       2-3 U2B02450
00CF 1010                  246 |       SLA     16                                2-3 U2B02460
00D0 D0AF                  247 |       STO     ERROR                                 U2B02470
00D1 4C02 00E9R            248 |       BSC  L  CR72,C    YES,    INITIATE FUNCTION   U2B02480
00D3 D0B6                  249 | CR64  STO     RESTR+2   CLEAR   ROUTINE BUSY INDR   U2B02490
00D4 74FF 0032             250 |       MDX  L  50,-1     DECREMENT IOCS COUNTER      U2B02500
00D6 1000                  251 |       NOP                                           U2B02510
00D7 4C80 0007R            252 | CR66  BSC  I  INT2      RETURN  TO INTERRUPT LEVEL  U2B02520
00D9 D0B4                  253 | CR70  STO     INDIC     SAVE FEED CHECK (READ STA-  U2B02530
00DA C0BA                  254 |       LD      D0001     TION) INDR.                 U2B02540
00DB 4480 008AR            255 |       BSI  I  RESTR+2                               U2B02550
00DD 4C18 00D3R            256 |       BSC  L  CR64,+-   RESTART NOT REQUESTED       U2B02560
00DF C0A7                  257 |       LD      INIT      IS FUNCTION PUNCH           U2B02570
00E0 4C04 00E9R            258 |       BSC  L  CR72,E    YES,DONT SKIP               U2B02580
00E2 1801                  259 |       SRA     1         IS FUNCTION FEED            U2B02590
00E3 4C04 00F7R            260 |       BSC  L  CR73B,E   YES                         U2B02600
00E5 C0A3                  261 |       LD      RESTR+1   FUNCTION IS GET             U2B02610
00E6 F09D                  262 |       EOR     COLM      WAS FIRST CC READ           U2B02620
00E7 4C18 00FBR            263 |       BSC  L  CR73E,+-  NO,SKIP ONE CARD            U2B02630
00E9 08A0                  264 | CR72  XIO     SENSE-1   IS DEVICE READY             U2B02640
00EA 4C04 00FER            265 |       BSC  L  CR75,E    NO,GO TO ERROR TRAP         U2B02650
00EC C093                  266 |       LD      ERROR     IS  CARD SKIP NECESSARY     U2B02660
00ED 4C18 00F1R            267 |       BSC  L  CR73,+-   NO                          U2B02670
00EF 089C                  268 |       XIO     FEED-1    SKIP FIRST CARD             U2B02680
00F0 70E6                  269 |       MDX     CR66                                  U2B02690
00F1 C096                  270 | CR73  LD      RESTR     REINITIATE I/O              U2B02700
00F2 D093                  271 |       STO     COUNT     *OPERATION FROM             U2B02710
00F3 C095                  272 |       LD      RESTR+1   *SAVED INFORMATION          U2B02720
00F4 D08F                  273 |       STO     COLM                                  U2B02730
00F5 0890                  274 |       XIO     INIT-1                                U2B02740
00F6 70E0                  275 |       MDX     CR66      RETURN                      U2B02750
00F7 C096                  276 | CR73B LD      INDIC     WAS ERROR FEED CHK(READ     U2B02760
00F8 1004                  277 |       SLA     4         *STATION)                   U2B02770
00F9 4C28 00E9R            278 |       BSC  L  CR72,Z+   YES,DONT SKIP               U2B02780
00FB C099                  279 | CR73E LD      D0001                             2-3 U2B02790
00FC D083                  280 |       STO     ERROR     SET BIT 1 OF INDR           U2B02800
00FD 70EB                  281 |       MDX     CR72      GO SENSE DEVICE READY       U2B02810
                           282 | *                                                   U2B02820
                           283 | *EXIT TO POST-OPERATIVE ERROR TRAP WITH NOT READY   U2B02830
                           284 | *ERROR CODE IN THE ACCUMULATOR.                     U2B02840
                           285 | *                                                   U2B02850
00FE C09D                  286 | CR75  LD      H1000     ERROR CODE INTO A REG       U2B02860
00FF 4400 008D             287 |       BSI  L  $PST4                                 U2B02870
0101 70E7                  288 |       MDX     CR72      TRY AGAIN                   U2B02880
0102                       289 |       END                                           U2B02890
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$PRET 0028   179   68   69
$PST4 008D   178  287
ADDR  008CR  158  209  238
CARD1 0000R   29
CHAR  0083R  149  158  198  199  208
COLM  0084R  150   76  100  205  206  210  211  212  240  262  273
COUNT 0086R  152   95  106  111  113  200  203  271
CR10  000AR   48   31
CR12  0015R   58   53
CR14  0019R   61   62
CR15  001CR   63
CR16  0020R   66   60   94   98
CR18  0021R   67   92
CR22  0026R   71   65
CR24  0027R   72   58   88  181
CR26  002FR   77   85
CR28  0032R   79
CR30  0038R   84   78  185
CR31  0041R   91   87  120  122
CR32  0043R   93   80   81
CR32A 0053R  106
CR33  0056R  108  102  110
CR33A 005ER  115   82
CR34  0067R  123  105  117
CR36  0070R  130   83
CR37  0075R  134  131
CR38  0076R  135   57  133
CR40  0078R  137   70
CR42  0079R  138   29
CR44  007BR  139   48
CR46  007DR  140   49
CR47  009FR  181  124
CR50  00A4R  197   33
CR52  00AFR  205  202
CR54  00B7R  211  201
CR56  00BAR  213  204
CR60  00BCR  232   35
CR61  00C0R  235
CR62  00CDR  244  235  241
CR64  00D3R  249  256
CR66  00D7R  252  269  275
CR70  00D9R  253  234
CR72  00E9R  264  248  258  278  281  288
CR73  00F1R  270  267
CR73B 00F7R  276  260
CR73E 00FBR  279  263
CR75  00FER  286  265
D0001 0095R  168  107  112  239  254  279
D0004 0096R  169   59
D0008 0097R  170  207
D0080 0098R  171   97
ERROR 0080R  160   90  130  244  247  266  280
EXIT  007ER  141  137
FEED  008DR  159   71  118  132  268
H000F 0099R  172
H0100 009AR  173
H02FE 009BR  174
H1000 009CR  175   91  286
H1001 009DR  176   66
INDIC 008ER  161  253  276
INIT  0087R  153   74  134  242  243  257  274
INT1  0004R   32  213
INT2  0007R   34  252
LINK  0001R   30
RESTR 0088R  154   54   61   96  101  114  126  237  249  255  261  270  272
SDSW  009ER  177  197
SENSE 008BR  157   77  115  123  264
SENSR 0080R  146  160  232
SETUP 008FR  162   73   75  182
TEMP  0082R  148   50  136
ibm/ibm1130-lib/dmsr2v12/u2card1_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator