User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:u2paptn_lst

U2PAPTN

Table Of Contents
  • [00004] LIBF PAPTN
u2paptn.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \u2paptn.asm 
LIBF PAPTN
 
                             2 | *************************************************** U2E00010
                             3 | *                                                 * U2E00020
                             4 | *   SUBROUTINE NAME-                              * U2E00030
                             5 | *      FULL NAME- N/A                             * U2E00040
                             6 | *      CODE NAME- PAPTN                           * U2E00050
                             7 | *   PURPOSE- THIS SUBROUTINE  OPERATES BOTH THE   * U2E00060
                             8 | *      IBM 1134 PAPER TAPE READER AND THE IBM     * U2E00070
                             9 | *      1055 PAPER TAPE PUNCH. IT IS ABLE TO       * U2E00080
                            10 | *      OPERATE THEM SIMULTANEOUSLY.               * U2E00090
                            11 | *   METHOD-                                       * U2E00100
                            12 | *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U2E00110
                            13 | *   CAPABILITIES AND LIMITATIONS-                 * U2E00120
                            14 | *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U2E00130
                            15 | *   SPECIAL FEATURES- THE READ AND PUNCH CAN BE   * U2E00140
                            16 | *      OPERATED AT THE SAME TIME.                 * U2E00150
                            17 | *   ADDITIONAL INFORMATION-                       * U2E00160
                            18 | *      ESTIMATED EXECUTION TIME-                  * U2E00170
                            19 | *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U2E00180
                            20 | *                                                 * U2E00190
                            21 | *************************************************** U2E00200
                            22 |       LIBR                                          U2E00220
                            23 |       ISS  03 PAPTN     4                           U2E00230
0000 691D                   24 | PAPTN STX   1 XR1+1     CALL  ENTRANCE       (+0)   U2E00240
0001 6580 0000              25 |       LDX  I1 0         LOADER STORES TV ADDR (+2)  U2E00250
0003 7004                   26 |       MDX     PT1       BR W/LIBF+1 IN XR1          U2E00260
0004 0000                   27 | INTN  DC      0         INTERRUPT  ENTRANCE  (+4)   U2E00270
0005 4C00 0077R             28 |       BSC  L  IPRG                                  U2E00280
0007 1800                   29 | AREA  DC      /1800                                 U2E00290
0008 6A17                   30 | PT1   STX   2 XR2+1     SAVE XR2                    U2E00300
0009 2817                   31 |       STS     XR2+2     SAVE STATUS                 U2E00310
000A D01C                   32 |       STO     SAVA      SAVE A REG                  U2E00320
000B C100                   33 |       LD    1 0         GET THE CONTROL WORD        U2E00330
000C 180C                   34 |       SRA     12        IS FUNCTION = TEST          U2E00340
000D 4C20 0029R             35 |       BSC  L  PT3,Z     NO, BR TO CONTINUE          U2E00350
000F C100                   36 |       LD    1 0         YES, WHAT IS THE DEVICE     U2E00360
0010 100C                   37 |       SLA     12                                    U2E00370
0011 4C18 0024R             38 |       BSC  L  RD,+-     READER                      U2E00380
0013 9014                   39 |       S       H1000                                 U2E00390
0014 4C20 0030R             40 |       BSC  L  PT36,Z    NOT READER,PUNCH- BAD CALL  U2E00400
0016 C400 011CR             41 |       LD   L  BUSY      DEVICE IS PUNCH             U2E00410
0018 4818                   42 | PT2   BSC     +-        IS  DEVICE BUSY             U2E00420
0019 7101                   43 |       MDX   1 1         NO,RET TO LIBF+3            U2E00430
001A 7101                   44 |       MDX   1 1         NO,RET TO LIBF+2            U2E00440
001B C00B                   45 | RESET LD      SAVA      RESTORE  ACCUMULATOR        U2E00450
001C 6906                   46 |       STX   1 RET+1     SET UP RETURN               U2E00460
001D 6500 0000              47 | XR1   LDX  L1 *-*       RESTORE XR1                 U2E00470
001F 6600 0000              48 | XR2   LDX  L2 *-*       RESTORE XR2                 U2E00480
0021 2000                   49 |       LDS     *-*       RESTORE STATUS              U2E00490
0022 4C00 0000              50 | RET   BSC  L  *-*       RETURN TO MAINLINE          U2E00500
0024 C400 0128R             51 | RD    LD   L  RBUSY     TEST  READER                U2E00510
0026 70F1                   52 |       MDX     PT2       *BUSY                       U2E00520
0027 0000                   53 | SAVA  DC      0         SAVE A REG                  U2E00530
0028 1000                   54 | H1000 DC      /1000     CON TO TEST FOR PNCH DVC    U2E00540
                            55 | *                                                   U2E00550
                            56 | *THIS SECTION  CONTINUES THE CALL PROCESSING        U2E00560
                            57 | *                                                   U2E00570
0029 6600 0126R             58 | PT3   LDX  L2 RDTBL     TABLE  FOR READ CONSTANTS   U2E00580
002B 900A                   59 |       S       D0002                                 U2E00590
002C 4C28 003AR             60 |       BSC  L  PT4+2,+Z  READ                        U2E00600
002E 4C08 0038R             61 |       BSC  L  PT4,+     PUNCH                       U2E00610
                            62 | *                                                   U2E00620
                            63 | *ILLEGAL CALL                                       U2E00630
                            64 | *                                                   U2E00640
0030 C006                   65 | PT36  LD      H3001     PUT ERROR CODE IN A REG     U2E00650
0031 71FF                   66 |       MDX   1 -1        XR1 PTS TO LIBF             U2E00660
0032 6D00 0028              67 |       STX  L1 40        SET UP RET FROM ERROR EXIT  U2E00670
0034 6129                   68 |       LDX   1 41        SET XR1 FOR ERROR EXIT      U2E00680
0035 70E6                   69 |       MDX     RESET+1   GO TO EXIT                  U2E00690
0036 0002                   70 | D0002 DC      2         CONSTANT TO TEST FUNCTION   U2E00700
0037 3001                   71 | H3001 DC      /3001     ILLEGAL CALL ERROR CODE     U2E00710
0038 6600 011AR             72 | PT4   LDX  L2 PNTBL     FUNC IS PUNCH,SO REF PNCH   U2E00720
003A C202                   73 |       LD    2 BUSY-TBL  GET BUSY INDR               U2E00730
003B 4C20 003AR             74 |       BSC  L  PT4+2,Z   IF BUSY,LOOP                U2E00740
003D C100                   75 |       LD    1 0         GET CHECK DIGIT             U2E00750
003E E031                   76 |       AND     H0F00                                 U2E00760
003F 9034                   77 |       S       H0100     IS IT VALID                 U2E00770
0040 4C30 0030R             78 |       BSC  L  PT36,-Z   NO,TAKE ERROR EXIT          U2E00780
0042 D203                   79 |       STO   2 CHECK-TBL ZERO MEANS NO CHECK         U2E00790
0043 C580 0001              80 |       LD   I1 1         IS  WORD COUNT VALID        U2E00800
0045 4C08 0030R             81 |       BSC  L  PT36,+    NO,TAKE ERROR EXIT          U2E00810
0047 D204                   82 |       STO   2 WDCNT-TBL YES,SAVE                    U2E00820
0048 C208                   83 |       LD    2 SFT-TBL   GET SHIFT TO NOT-RDY BIT    U2E00830
0049 D001                   84 |       STO     SHIFT     INST  FOR PNCH OR RD        U2E00840
004A 0825                   85 |       XIO     SENSE-1   SENSE                       U2E00850
004B 1005                   86 | SHIFT SLA     5          IS DEVICE READY            U2E00860
004C 4C28 0069R             87 |       BSC  L  PT37,+Z   NO, EXIT TO CORE LOC 41     U2E00870
004E C101                   88 |       LD    1 1         I/O  AREA ADDRESS           U2E00880
004F 801C                   89 |       A       D0001     BYPASS WD CNT               U2E00890
0050 D205                   90 |       STO   2 IOAR-TBL  SAVE I/O AREA ADDR          U2E00900
0051 C102                   91 |       LD    1 2         GET ADDR OF USER ERROR RTN  U2E00910
0052 D206                   92 |       STO   2 USER1-TBL SAVE                        U2E00920
0053 C207                   93 |       LD    2 FC-TBL    FUNCTION  CODE              U2E00930
0054 E8B2                   94 |       OR      AREA      +  AREA = IOCC+1            U2E00940
0055 D201                   95 |       STO   2 IOCC+1-TBL  ST IOCC CONTROL WD        U2E00950
0056 D018                   96 |       STO     IOCC2+1   SET IOCC FOR USE W/DELETE   U2E00960
0057 D202                   97 |       STO   2 BUSY-TBL  SET DEVICE BUSY INDR        U2E00970
0058 1010                   98 |       SLA     16                                    U2E00980
0059 D209                   99 |       STO   2 CHAR-TBL  ZERO THE CHAR COUNT         U2E00990
005A 7401 0032             100 |       MDX  L  +50,1     INCR ISS COUNTER            U2E01000
005C 1000                  101 |       NOP               MAY SKIP                    U2E01010
005D 4E80 000A             102 |       BSC  I2 WRIT-TBL  BR TO INITIATE OP           U2E01020
005F 0812                  103 | RDS   XIO     READS-1   START   READER              U2E01030
0060 7103                  104 |       MDX   1 3         SET UP EXIT TO SKIP 3 PARAM U2E01040
0061 70B9                  105 |       MDX     RESET     GO TO RET TO MAINLINE       U2E01050
0062 C680 0005             106 | WRT   LD   I2 IOAR-TBL                              U2E01060
0064 D20B                  107 |       STO   2 BUF-TBL   STORE  FIRST WORD TO PUNCH  U2E01070
0065 C006                  108 |       LD      D0001     ADD  1 TO CHARACTER COUNT   U2E01080
0066 D209                  109 |       STO   2 CHAR-TBL                              U2E01090
0067 0A00                  110 |       XIO   2 IOCC-TBL  PUNCH  1 CHARACTER          U2E01100
0068 70F7                  111 |       MDX     RDS+1     GO TO EXIT                  U2E01110
0069 C008                  112 | PT37  LD      H3000     DEVICE  NOT READY ERROR     U2E01120
006A 70C6                  113 |       MDX     PT36+1    TO ERROR EXIT               U2E01130
                           114 | *                                                   U2E01140
                           115 | *CONSTANTS AND BUFFER AREA                          U2E01150
                           116 | *                                                   U2E01160
006B 0000                  117 | BUF2  DC      0         I/O BUFFER FOR USE W/DELETE U2E01170
006C 0001                  118 | D0001 DC      0001      SET CHAR CNT TO 1           U2E01180
006E                       119 |       BSS  E  0                                     U2E01190
006E 006BR                 120 | IOCC2 DC      BUF2      IOCC WORD FOR DELETE        U2E01200
006F 0000                  121 |       DC      0                                     U2E01210
0070 0F00                  122 | H0F00 DC      /0F00     MASK ALL BUT CHK DIGIT      U2E01220
0071 1F00                  123 | SENSE DC      /1F00     SENSE                       U2E01230
0072 3000                  124 | H3000 DC      /3000     DVC NOT RDY ERROR CODE      U2E01240
0073 1C10                  125 | READS DC      /1C10     START  READER  O            U2E01250
0074 0100                  126 | H0100 DC      /0100     CON TO CHK THE CHK MODE     U2E01260
0075 0000                  127 | SENSR DC      0         SENSE,  RESET  O            U2E01270
0076 1F01                  128 | SDSW  DC      /1F01     SENSE DSW  AREA CODE    2-2 U2E01275
008D                       129 | $PST4 EQU     /8D       POST-OPERATIVE ERROR TRAP   U2E01280
                           130 | *                                                   U2E01290
                           131 | *   THIS PORTION OF THE PROGRAM IS ENTERED FROM     U2E01300
                           132 | *   INTERRUPT LEVEL 04. IT SERVICES THE OP COMPLETE U2E01310
                           133 | *   INTERRUPTS FROM BOTH THE READ AND PUNCH DEVICE. U2E01320
                           134 | *                                                   U2E01330
0077 C0FE                  135 | IPRG  LD      SDSW                              2-2 U2E01335
0078 D0FC                  136 |       STO     SENSR                                 U2E01340
0079 08FA                  137 |       XIO     SENSR-1   SENSE  AND RESET            U2E01350
007A D0FA                  138 |       STO     SENSR     SAVE DSW                    U2E01360
                           139 | *             READ ERROR HANDLED AFTER XIO READ     U2E01370
007B 1001                  140 |       SLA     1                                     U2E01380
007C 6A1C                  141 |       STX   2 IXR2+1    SAVE XR2                    U2E01390
007D 4C28 00BBR            142 |       BSC  L  READI,+Z  READER  SERVICE REQUEST     U2E01400
007F C0F5                  143 | PNQ   LD      SENSR                                 U2E01410
0080 1003                  144 |       SLA     3                                     U2E01420
0081 4C02 00B3R            145 |       BSC  L  PNERR,C   TEST FOR PUNCH ERROR        U2E01430
0083 4C10 0098R            146 |       BSC  L  IXR2,-    IS IT PUNCH SERVICE REQUEST U2E01440
0085 6600 011AR            147 | PN1   LDX  L2 PNTBL     XR2 SET TO REF PNCH TBL     U2E01450
0087 1010                  148 |       SLA     16        ZERO THE IOCC SENSE WD      U2E01460
0088 D0EC                  149 |       STO     SENSR                                 U2E01470
0089 407C                  150 |       BSI     CHKS      IS PREVIOUS CHAR= STOP      U2E01480
008A C209                  151 |       LD    2 CHAR-TBL                              U2E01490
008B 4C04 00B0R            152 |       BSC  L  PNODD,E   COMPLETE WD WAS PNCHED      U2E01500
008D 1010                  153 |       SLA     16        IF EVEN, ZERO CHAR CNT      U2E01510
008E D209                  154 |       STO   2 CHAR-TBL                              U2E01520
008F 74FF 011ER            155 |       MDX  L  WDCNT,-1  DECREMENT  WORD COUNT       U2E01530
0091 700A                  156 |       MDX     NEXT      GO GET NEXT WD TO BE PNCHED U2E01540
                           157 | *                                                   U2E01550
                           158 | *THIS SECTION PREPARES THE FINAL EXIT               U2E01560
                           159 | *                                                   U2E01570
0092 1010                  160 | IRET  SLA     16                                    U2E01580
0093 D202                  161 |       STO   2 BUSY-TBL  TURN OFF BUSY INDR IN PROG  U2E01590
0094 74FF 0032             162 |       MDX  L  +50,-1    DECR ISS COUNTER            U2E01600
0096 1000                  163 |       NOP               MAY SKIP                    U2E01610
0097 70E7                  164 |       MDX     PNQ       GO TO EXIT                  U2E01620
0098 6600 0000             165 | IXR2  LDX  L2 0         RESTORE XR2 BEFORE EXIT     U2E01630
009A 4C80 0004R            166 |       BSC  I  INTN      RETURN  TO ILS ROUTINE      U2E01640
009C 7401 011FR            167 | NEXT  MDX  L  IOAR,1    INCR I/O AREA ADDR          U2E01650
009E C480 011FR            168 |       LD   I  IOAR      GET NEXT WORD               U2E01660
00A0 D20B                  169 |       STO   2 BUF-TBL   NEXT  WORD IS IN BUF        U2E01670
00A1 08CE                  170 | PN2   XIO     SENSE-1   SENSE W/NO RESET            U2E01680
00A2 1007                  171 |       SLA     7         IS PUNCH READY              U2E01690
00A3 4C10 00ACR            172 |       BSC  L  PN3,-     YES,GO PNCH NEXT CHAR       U2E01700
00A5 C005                  173 |       LD      H0004     NO,EXIT TO USER ERROR RTN   U2E01710
00A6 4069                  174 |       BSI     USERR     WITH ERROR CODE IN ACC      U2E01720
00A7 C0CA                  175 |       LD      H3000     ERROR CODE INTO A REG       U2E01730
00A8 4400 008D             176 |       BSI  L  $PST4     TO ERROR TRAP               U2E01740
00AA 70F6                  177 |       MDX     PN2       RETRY--SENSE PNCH AGAIN     U2E01750
00AB 0004                  178 | H0004 DC      /0004     PNCH NOT RDY ERROR CODE     U2E01760
00AC 7401 0123R            179 | PN3   MDX  L  CHAR,1    INCR CHAR CNT               U2E01770
00AE 0A00                  180 |       XIO   2 IOCC-TBL  PUNCH  1 CHARACTER          U2E01780
00AF 70E8                  181 |       MDX     IXR2      RETURN  TO ILS ROUTINE      U2E01790
                           182 | *                                                   U2E01800
                           183 | *THIS SECTION GETS SECOND CHAR OF WD TO PNCH        U2E01810
                           184 | *                                                   U2E01820
00B0 C20B                  185 | PNODD LD    2 BUF-TBL   GET SAME WD AS FOR LAST     U2E01830
00B1 1008                  186 |       SLA     8         PUT 2ND CHAR IN 1ST HALF    U2E01840
00B2 70ED                  187 |       MDX     NEXT+4    GO PUT IN O/P BUFFER        U2E01850
                           188 | *                                                   U2E01860
                           189 | *THIS SECTION TAKES CARE OF A PUNCH ERROR (NOT      U2E01870
                           190 | *RECOGNIZED ON THE 1130, BUT IS ON 1800).           U2E01880
                           191 | *                                                   U2E01890
00B3 C082                  192 | PNERR LD      D0002     GET ERROR CODE INTO A REG   U2E01900
00B4 405B                  193 |       BSI     USERR     GO TO USER ERROR RTN        U2E01910
00B5 4C08 00CER            194 |       BSC  L  MOCK1,+   IF RETRY,ACC NEG,O/P DELETE U2E01920
00B7 C203                  195 |       LD    2 CHECK-TBL IS IT CHECK MODE            U2E01930
00B8 4C20 00AER            196 |       BSC  L  PN3+2,Z   YES,GO REPNCH CHAR          U2E01940
00BA 70CA                  197 |       MDX     PN1       NO,GO GET NEXT CHAR         U2E01950
                           198 | *                                                   U2E01960
                           199 | *THIS SECTION SERVICES A READER REQUEST INTERRUPT   U2E01970
                           200 | *                                                   U2E01980
00BB 6600 0126R            201 | READI LDX  L2 RDTBL     READER  SERVICE REQUEST     U2E01990
00BD 1010                  202 |       SLA     16                                    U2E02000
00BE D20B                  203 |       STO   2 BUF-TBL   CLEAR BUFFER WORD           U2E02010
00BF 0A00                  204 |       XIO   2 IOCC-TBL  READ  1 CHARACTER           U2E02020
00C0 08AF                  205 |       XIO     SENSE-1   IS THERE A READER ERROR     U2E02030
00C1 4C10 00D6R            206 |       BSC  L  RD2,-     NO,GO CHK FOR DELETE CHAR   U2E02040
00C3 C011                  207 |       LD      THREE     YES,LD READER ERROR CODE    U2E02050
00C4 404B                  208 |       BSI     USERR     EXIT TO USER ERROR RTN      U2E02060
00C5 4C10 00F1R            209 |       BSC  L  RD5,-     RETRY,ACC PTV, RD CHAR OVER U2E02070
00C7 C203                  210 |       LD    2 CHECK-TBL IS IT CHK MODE              U2E02080
00C8 4C18 00DDR            211 |       BSC  L  RD3,+-    NO,GO READ NEXT CHAR        U2E02090
00CA C002                  212 |       LD      BLANK     YES, INPUT BLANK            U2E02100
00CB D059                  213 |       STO     BUF                                   U2E02110
00CC 7010                  214 |       MDX     RD3       GO READ NEXT CHAR           U2E02120
00CD 1000                  215 | BLANK DC      /1000     PTTC/8 BLANK                U2E02130
                           216 | *                                                   U2E02140
                           217 | *THIS SECTION OUTPUTS A DELETE IF CHK MODE AND RETS U2E02150
                           218 | *                                                   U2E02160
00CE C203                  219 | MOCK1 LD    2 CHECK-TBL IS IT CHK MODE              U2E02170
00CF 4C18 0085R            220 |       BSC  L  PN1,+-    NO,GO TO READ NEXT CHAR     U2E02180
00D1 C045                  221 |       LD      DEL       YES,OUTPUT A DELETE CHAR    U2E02190
00D2 D098                  222 |       STO     BUF2                                  U2E02200
00D3 089A                  223 |       XIO     IOCC2     START READER                U2E02210
00D4 70C3                  224 |       MDX     IXR2      RTN TO ILS ROUTINE          U2E02220
00D5 0003                  225 | THREE DC      +3        READER ERROR CODE           U2E02230
00D6 C203                  226 | RD2   LD    2 CHECK-TBL IF CHECK MODE,              U2E02240
00D7 4C18 00DDR            227 |       BSC  L  RD3,+-                                U2E02250
00D9 C20B                  228 |       LD    2 BUF-TBL   CHECK  FOR DELETE CHARACTER U2E02260
00DA 903C                  229 |       S       DEL                                   U2E02270
00DB 4C18 00F1R            230 |       BSC  L  RD5,+-    YES                         U2E02280
00DD 7401 012FR            231 | RD3   MDX  L  RCHAR,1   NO,  ADD 1 TO CHAR. COUNT   U2E02290
00DF C209                  232 |       LD    2 CHAR-TBL  IS CHAR COUNT EVEN          U2E02300
00E0 4C04 0102R            233 |       BSC  L  RDODD,E   NO,FIRST CHAR OF WD         U2E02310
00E2 1010                  234 |       SLA     16        YES,SECOND CHAR OF WD       U2E02320
00E3 D209                  235 |       STO   2 CHAR-TBL  ZERO CHAR COUNT             U2E02330
00E4 C20B                  236 |       LD    2 BUF-TBL   COMBINE  2 CHARACTERS       U2E02340
00E5 1808                  237 |       SRA     8         *INTO ONE WORD              U2E02350
00E6 EE80 0005             238 |       OR   I2 IOAR-TBL                              U2E02360
00E8 D680 0005             239 |       STO  I2 IOAR-TBL                              U2E02370
00EA 74FF 012AR            240 |       MDX  L  RWDCT,-1  DECREMENT  WORD COUNT       U2E02380
00EC 7001                  241 |       MDX     *+1       MAY SKIP                    U2E02390
00ED 70A4                  242 |       MDX     IRET      EXIT  ON ZERO WORD COUNT    U2E02400
00EE 7401 012BR            243 |       MDX  L  RIOAR,1   NEXT  WORD                  U2E02410
00F0 4015                  244 | RD4   BSI     CHKS      CHK FOR STOP CHAR           U2E02420
                           245 | *                                                   U2E02430
                           246 | *THIS SECTION TESTS FOR READER READY                U2E02440
                           247 | *                                                   U2E02450
00F1 0C00 0070R            248 | RD5   XIO  L  SENSE-1   SENSE W/O RESET             U2E02460
00F3 1005                  249 |       SLA     5         IS READER READY             U2E02470
00F4 4C10 00FER            250 |       BSC  L  RD6,-     YES,GO START READER         U2E02480
00F6 C006                  251 |       LD      H0005     NO,LOAD ERROR CODE AND      U2E02490
00F7 4018                  252 |       BSI     USERR     EXIT TO USERS ERROR ROUTINE U2E02500
00F8 C400 0072R            253 |       LD   L  H3000     ERROR CODE INTO A REG       U2E02510
00FA 4400 008D             254 |       BSI  L  $PST4     TO ERROR TRAP               U2E02520
00FC 70F4                  255 |       MDX     RD5       RETRY REQUEST, TEST AGAIN   U2E02530
00FD 0005                  256 | H0005 DC      /0005     READER NOT READY ERROR CODE U2E02540
00FE 0C00 0072R            257 | RD6   XIO  L  READS-1   START  READER               U2E02550
0100 4C00 007FR            258 |       BSC  L  PNQ       GO TEST FOR REQUEST AND RET U2E02560
                           259 | *                                                   U2E02570
                           260 | *ODD CHAR COUNT, PUT IN FIRST HALF OF WORD          U2E02580
                           261 | *                                                   U2E02590
0102 C20B                  262 | RDODD LD    2 BUF-TBL   GET CHAR JUST READ AND      U2E02600
0103 D680 0005             263 |       STO  I2 IOAR-TBL  STORE IN I/O AREA           U2E02610
0105 70EA                  264 |       MDX     RD4       RET TO SENSE READER         U2E02620
                           265 | *                                                   U2E02630
                           266 | *CHECK IF STOP CHAR WAS LAST READ                   U2E02640
                           267 | *                                                   U2E02650
0106 0000                  268 | CHKS  DC      0         SAVE RET ADDR               U2E02660
0107 C203                  269 |       LD    2 CHECK-TBL IS IT CHECK MODE            U2E02670
0108 4C98 0106R            270 |       BSC  I  CHKS,+-   NO,RET                      U2E02680
010A C20B                  271 |       LD    2 BUF-TBL   YES, WAS LAST CHAR = STOP   U2E02690
010B 1808                  272 |       SRA     8                                     U2E02700
010C 900B                  273 |       S       STOP                                  U2E02710
010D 4CA0 0106R            274 |       BSC  I  CHKS,Z    NOT STOP CHAR,RET           U2E02720
010F 7082                  275 |       MDX     IRET      STOP CHAR,DO FINAL EXIT     U2E02730
                           276 | *                                                   U2E02740
                           277 | *SETS UP EXIT TO USER ERROR ROUTINE                 U2E02750
                           278 | *                                                   U2E02760
0110 0000                  279 | USERR DC      0         SAVE RET ADDR               U2E02770
0111 4680 0006             280 |       BSI  I2 USER1-TBL EXIT TO USER ERROR RTN      U2E02780
0113 4CA0 0110R            281 |       BSC  I  USERR,Z   TRY  AGAIN                  U2E02790
0115 4C00 0092R            282 |       BSC  L  IRET      TERMINATE                   U2E02800
                           283 | *                                                   U2E02810
                           284 | *CONSTANTS AND BUFFER AREA.-- THERE ARE TWO PARA-   U2E02820
                           285 | *LLEL TABLES FOR READING AND PUNCHING OPERATIONS,   U2E02830
                           286 | *SO THAT BOTH CAN BE DONE AT THE SAME TIME.         U2E02840
                           287 | *                                                   U2E02850
0117 7F00                  288 | DEL   DC      /7F00     PTTC/8 DELETE CHAR          U2E02860
0118 00DD                  289 | STOP  DC      /00DD     PTTC/8 STOP CHAR            U2E02870
                           290 | * TABLE OF PUNCH CONSTANTS                          U2E02880
011A                       291 | TBL   BSS  E  0                                     U2E02890
011A                       292 | PNTBL BSS     0         ADDR OF TBL                 U2E02900
011A 0125R                 293 | IOCC  DC      BUF       IOCC WORDS FOR PUNCHING     U2E02910
011B 0000                  294 |       DC      0                                     U2E02920
011C 0000                  295 | BUSY  DC      0         BUSY INDR WORD              U2E02930
011D 0000                  296 | CHECK DC      0         CHK MODE INDR (0= NO CHK)   U2E02940
011E 0000                  297 | WDCNT DC      0         WORD COUNT                  U2E02950
011F 0000                  298 | IOAR  DC      0         I/O AREA ADDR               U2E02960
0120 0000                  299 | USER1 DC      0         USER ERROR RTN ADDR         U2E02970
0121 0100                  300 | FC    DC      /0100     FUNCTION CODE TEST CON      U2E02980
0122 1007                  301 | SFT   SLA     7         SHIFT FOR NOT RDY INDR      U2E02990
0123 0000                  302 | CHAR  DC      0         BUFFER TO PACK CHARS        U2E03000
0124 0062R                 303 | WRIT  DC      WRT       SET UP BR TO PUNCH A CD     U2E03010
0125 0000                  304 | BUF   DC      0         I/O BUFFER FOR PUNCH        U2E03020
                           305 | * TABLE OF READ CONSTANTS                           U2E03030
0126                       306 | RDTBL BSS  E  0         ADDR OF TBL                 U2E03040
0126 0131R                 307 | RIOCC DC      RBUF      IOCC WORDS FOR READING      U2E03050
0127 0000                  308 |       DC      0                                     U2E03060
0128 0000                  309 | RBUSY DC      0         BUSY INDR WORD              U2E03070
0129 0000                  310 | RCHEK DC      0         CHECK MODE INDR (0= NO CHK) U2E03080
012A 0000                  311 | RWDCT DC      0         WORD COUNT                  U2E03090
012B 0000                  312 | RIOAR DC      0         I/O AREA ADDR               U2E03100
012C 0000                  313 | RUSE1 DC      0         ADDR OF USER ERROR RTN      U2E03110
012D 0200                  314 | RFC   DC      /0200     FUNCTION CODE TEST CON      U2E03120
012E 1005                  315 | RSFT  SLA     5         SHIFT FOR NOT RDY INDR      U2E03130
012F 0000                  316 | RCHAR DC      0         BUFFER TO PACK CHARS        U2E03140
0130 005FR                 317 | RWRT  DC      RDS       SET UP BR TO READ           U2E03150
0131 0000                  318 | RBUF  DC      0         I/O BUFFER FOR READ         U2E03160
0132                       319 |       END                                           U2E03170
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$PST4 008D   129  176  254
AREA  0007R   29   94
BLANK 00CDR  215  212
BUF   0125R  304  107  169  185  203  213  228  236  262  271  293
BUF2  006BR  117  120  222
BUSY  011CR  295   41   73   97  161
CHAR  0123R  302   99  109  151  154  179  232  235
CHECK 011DR  296   79  195  210  219  226  269
CHKS  0106R  268  150  244  270  274
D0001 006CR  118   89  108
D0002 0036R   70   59  192
DEL   0117R  288  221  229
FC    0121R  300   93
H0004 00ABR  178  173
H0005 00FDR  256  251
H0100 0074R  126   77
H0F00 0070R  122   76
H1000 0028R   54   39
H3000 0072R  124  112  175  253
H3001 0037R   71   65
INTN  0004R   27  166
IOAR  011FR  298   90  106  167  168  238  239  263
IOCC  011AR  293   95  110  180  204
IOCC2 006ER  120   96  223
IPRG  0077R  135   28
IRET  0092R  160  242  275  282
IXR2  0098R  165  141  146  181  224
MOCK1 00CER  219  194
NEXT  009CR  167  156  187
PAPTN 0000R   24
PN1   0085R  147  197  220
PN2   00A1R  170  177
PN3   00ACR  179  172  196
PNERR 00B3R  192  145
PNODD 00B0R  185  152
PNQ   007FR  143  164  258
PNTBL 011AR  292   72  147
PT1   0008R   30   26
PT2   0018R   42   52
PT3   0029R   58   35
PT36  0030R   65   40   78   81  113
PT37  0069R  112   87
PT4   0038R   72   60   61   74
RBUF  0131R  318  307
RBUSY 0128R  309   51
RCHAR 012FR  316  231
RCHEK 0129R  310
RD    0024R   51   38
RD2   00D6R  226  206
RD3   00DDR  231  211  214  227
RD4   00F0R  244  264
RD5   00F1R  248  209  230  255
RD6   00FER  257  250
RDODD 0102R  262  233
RDS   005FR  103  111  317
RDTBL 0126R  306   58  201
READI 00BBR  201  142
READS 0073R  125  103  257
RESET 001BR   45   69  105
RET   0022R   50   46
RFC   012DR  314
RIOAR 012BR  312  243
RIOCC 0126R  307
RSFT  012ER  315
RUSE1 012CR  313
RWDCT 012AR  311  240
RWRT  0130R  317
SAVA  0027R   53   32   45
SDSW  0076R  128  135
SENSE 0071R  123   85  170  205  248
SENSR 0075R  127  136  137  138  143  149
SFT   0122R  301   83
SHIFT 004BR   86   84
STOP  0118R  289  273
TBL   011AR  291   73   79   82   83   90   92   93   95   97   99  102  106
                  107  109  110  151  154  161  169  180  185  195  203  204
                  210  219  226  228  232  235  236  238  239  262  263  269
                  271  280
THREE 00D5R  225  207
USER1 0120R  299   92  280
USERR 0110R  279  174  193  208  252  281
WDCNT 011ER  297   82  155
WRIT  0124R  303  102
WRT   0062R  106  303
XR1   001DR   47   24
XR2   001FR   48   30   31
ibm/ibm1130-lib/dmsr2v12/u2paptn_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator