User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:t5readz_lst

T5READZ

Table Of Contents
  • [00005] READZ
t5readz.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \t5readz.asm 
                             1 | *             JULY 6,1967                           T5J00010
READZ
 
                             3 |       LIBR                                          T5J00030
                             4 |       ISS  04 READZ     4                           T5J00040
                             5 | *************************************************** T5J00050
                             6 | *                                                 * T5J00060
                             7 | *STATUS-VERSION 2, MODIFICATION 5                 * T5J00070
                             8 | *                                                 * T5J00080
                             9 | *FUNCTION/OPERATION-                              * T5J00090
                            10 | *   READZ IS CALLED BY FORTRAN PROGRAMS TO READ   * T5J00100
                            11 | *   CARDS FROM THE 2501 CARD READER.              * T5J00110
                            12 | *                                                 * T5J00120
                            13 | *ENTRY POINTS-                                    * T5J00130
                            14 | *   * READZ-CALL PORTION-ENTERED FROM SFIO        * T5J00140
                            15 | *   * RZ060-INTERRUPT PORTION-ENTERED FROM THE ILS* T5J00150
                            16 | *                                                 * T5J00160
                            17 | *INPUT-                                           * T5J00170
                            18 | *   * XR1 CONTAINS THE I/O BUFFER ADDRESS         * T5J00180
                            19 | *                                                 * T5J00190
                            20 | *OUTPUT-                                          * T5J00200
                            21 | *   * A BUFFER OF DATA IN EBC CODE                * T5J00210
                            22 | *                                                 * T5J00220
                            23 | *EXTERNAL REFERENCES-                             * T5J00230
                            24 | *   * $PRET                                       * T5J00240
                            25 | *   * $PST4                                       * T5J00250
                            26 | *   * $EXIT                                       * T5J00260
                            27 | *   * HOLEZ                                       * T5J00270
                            28 | *                                                 * T5J00280
                            29 | *EXITS-                                           * T5J00290
                            30 | *   NORMAL-                                       * T5J00300
                            31 | *      * CALL PORTION-RZ040,   BACK TO SFIO       * T5J00310
                            32 | *      * INTERRUPT PORTION-RZ060, BACK TO ILS     * T5J00320
                            33 | *      * $EXIT WHEN // CARD ENCOUNTERED           * T5J00330
                            34 | *                                                 * T5J00340
                            35 | *   ERROR-                                        * T5J00350
                            36 | *      * $PRET-PRE-OPERATIVE ERROR TRAP WHEN      * T5J00360
                            37 | *        DEVICE NOT READY                         * T5J00370
                            38 | *      * $PST4-POST OPERATIVE ERROR TRAP WHEN     * T5J00380
                            39 | *        ERROR CONDITION                          * T5J00390
                            40 | *                                                 * T5J00400
                            41 | *TABLES/WORK AREAS-N/A                            * T5J00410
                            42 | *                                                 * T5J00420
                            43 | *ATTRIBUTES-RELOCATABLE                           * T5J00430
                            44 | *                                                 * T5J00440
                            45 | *NOTES-REGISTERS NOT SAVED                        * T5J00450
                            46 | *                                                 * T5J00460
                            47 | *************************************************** T5J00470
                            48 | *************************************************** T5J00480
READZ
 
                            50 | *                                                 * T5J00500
                            51 | *             NOTE-COMMENTS START IN COL 45 FOR   * T5J00510
                            52 | *             FUTURE CHANGES                      * T5J00520
                            53 | *                                                 * T5J00530
                            54 | *************************************************** T5J00540
                            55 | *                                                   T5J00550
                            56 | *             WORDS FROM COMMA                      T5J00560
                            57 | *                                                   T5J00570
0028                        58 | $PRET EQU     /28       PRE-OPERATIVE ERROR TRAP    T5J00580
008D                        59 | $PST4 EQU     /8D       POST-OPERATIVE ERROR TRAP   T5J00590
0038                        60 | $EXIT EQU     /38       SYSTEM EXIT ADDR            T5J00600
                            61 | *                                                   T5J00610
                            62 | *             PROGRAM ENTRY FROM SFIO               T5J00620
                            63 | *                                                   T5J00630
0000 7016                   64 | READZ MDX     RZ100     BRANCH TO CALL PROCESSING   T5J00640
0001 4C80 0000              65 | RZ020 BSC  I  *-*       LOADER STORES TV ADDRESS.   T5J00650
0003 3000                   66 | RZ040 DC      /3000     CONSTANT - HOLLERITH /.     T5J00660
                            67 | *                       MUST BE ODD ADDR FOR SD     T5J00670
0004 0000                   68 | RZ060 DC      *-*       INTERRUPT ENTRANCE.         T5J00680
                            69 | *                                                   T5J00690
                            70 | *             INTERRUPT PROCESSING                  T5J00700
                            71 | *                                                   T5J00710
0005 082C                   72 |       XIO     RZ340     SENSE WITH RESET.           T5J00740
0006 1002                   73 |       SLA     2         TEST FOR ERROR.             T5J00750
0007 4C28 000DR             74 |       BSC  L  RZ080,Z+  BR IF THERE WAS AN ERROR    T5J00760
0009 1010                   75 |       SLA     16        CLEAR ACC               2-5 T5J00762
000A D02C                   76 |       STO     RZ380     RESET INT SWITCH        2-5 T5J00764
000B 4C80 0004R             77 | RZ070 BSC  I  RZ060     RETURN TO ILS               T5J00770
000D C024                   78 | RZ080 LD      RZ340     SET UP NEW ENTRY POINT      T5J00780
000E D480 000C              79 |       STO  I  12        *FOR RETRY OF OPERATION.    T5J00790
                            80 | *                                                   T5J00800
                            81 | *             POST OPERATIVE ERROR TRAP             T5J00810
                            82 | *                                                   T5J00820
0010 C025                   83 |       LD      RZ370     LOAD ERROR INDICATOR WORD   T5J00830
0011 4400 008D              84 |       BSI  L  $PST4     BR TO POST-OP ERROR         T5J00840
0013 70F7                   85 |       MDX     RZ070     BR TO INTERRUPT EXIT        T5J00850
                            86 | *                                                   T5J00860
                            87 | *             PRE-OPERATIVE ERROR                   T5J00870
                            88 | *                                                   T5J00880
0014 C021                   89 | RZ090 LD      RZ370     GET ERR DISPLAY CONSTANT    T5J00890
0015 4400 0028              90 |       BSI  L  $PRET     BR TO PRE-OPERATIVE ERROR   T5J00900
                            91 | *                                                   T5J00910
                            92 | *             CALL PROCESSING                       T5J00920
                            93 | *                                                   T5J00930
0017 081A                   94 | RZ100 XIO     RZ340     SENSE WITH RESET.           T5J00940
0018 4804                   95 |       BSC     E         SKIP IF 2501 IS READY.      T5J00950
0019 70FA                   96 |       MDX     RZ090     BR TO PRE-OP ERROR TRAP     T5J00960
                            97 | *                                                   T5J00970
001A C01D                   98 |       LD      RZ390      SET WORD COUNT INTO READ   T5J00980
001B D1FF                   99 |       STO   1 -1         *BUFFER                    T5J00990
                           100 | *                                                   T5J01000
001C 6917                  101 |       STX   1 RZ360     SAVE ADDR I/O BUFFER        T5J01010
001D 74FF 0034R            102 |       MDX  L  RZ360,-1   POINT AT WD CNT            T5J01020
001F 0814                  103 |       XIO     RZ360     READ A CARD.                T5J01030
                           104 | *                                                   T5J01040
                           105 | *             WAIT FOR INTERRUPT                    T5J01050
                           106 | *                                                   T5J01060
0020 7400 0037R            107 | RZ110 MDX  L  RZ380,0   TEST INTERRUPT SW           T5J01070
0022 70FD                  108 |       MDX     RZ110     SWITCH NOT SET, WAIT        T5J01080
                           109 | *                                                   T5J01090
0023 6813                  110 |       STX     RZ380     SET SW FOR NEXT INTERRUPT   T5J01100
                           111 | *                                                   T5J01110
                           112 | *             TEST FOR // CONTROL RECORD            T5J01120
                           113 | *                                                   T5J01130
0024 C900                  114 |       LDD   1 0         LOAD 1ST 2 WORDS OF BUFFER. T5J01140
0025 98DD                  115 |       SD      RZ040     SUBTR DOUBLE HEX 3000 3000. T5J01150
0026 4C20 002ER            116 |       BSC  L  RZ130,Z   BR IF WORD WAS NOT A SLASH  T5J01160
0028 1090                  117 |       SLT     16        SHIFT IN 2ND WORD OF BUFFER T5J01170
0029 4C20 002ER            118 |       BSC  L  RZ130,Z   BR IF WORD WAS NOT A SLASH  T5J01180
002B C102                  119 |       LD    1 2         LOAD 3RD WORD OF BUFFER.    T5J01190
002C 4818                  120 |       BSC     +-        SKIP IF WORD NOT A BLANK    T5J01200
002D 6038                  121 |       LDX     $EXIT     EXIT TO MONITOR CONTROL     T5J01210
002E 6250                  122 | RZ130 LDX   2 80        PUT CNT OF CHARS TO CONVERT T5J01220
002F 1010                  123 |       SLA     16        CLEAR ACCUMULATOR.          T5J01230
0030 0859*3169             124 |       LIBF    HOLEZ     CONVERT BUFFER TO EBCDIC.   T5J01240
0031 70CF                  125 |       MDX     RZ020     BRANCH TO RETURN TO USER.   T5J01250
0032                       126 |       BSS  E  0                                     T5J01260
0032 0017R                 127 | RZ340 DC      RZ100     ERROR RETRY ENTRY POINT.    T5J01270
0033 4F01                  128 |       DC      /4F01     WRD 2 OF SENSE W/RESET IOCC T5J01280
0034 0000                  129 | RZ360 DC      *-*       READ                        T5J01290
0035 4E00                  130 |       DC      /4E00     *IOCC.                      T5J01300
0036 4000                  131 | RZ370 DC      /4000     ERROR ID                    T5J01310
0037 0038R                 132 | RZ380 DC      *         INTERRUPT SW. SET NON ZERO  T5J01320
0038 0050                  133 | RZ390 DC      80         COUNT OF CHARACTERS TO RD  T5J01330
0039                       134 |       END                                           T5J01340
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$EXIT 0038    60  121
$PRET 0028    58   90
$PST4 008D    59   84
READZ 0000R   64
RZ020 0001R   65  125
RZ040 0003R   66  115
RZ060 0004R   68   77
RZ070 000BR   77   85
RZ080 000DR   78   74
RZ090 0014R   89   96
RZ100 0017R   94   64  127
RZ110 0020R  107  108
RZ130 002ER  122  116  118
RZ340 0032R  127   72   78   94
RZ360 0034R  129  101  102  103
RZ370 0036R  131   83   89
RZ380 0037R  132   76  107  110
RZ390 0038R  133   98
ibm/ibm1130-lib/dmsr2v12/t5readz_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator