{"id":128,"date":"2011-11-14T16:37:36","date_gmt":"2011-11-14T22:37:36","guid":{"rendered":"http:\/\/tommysprinkle.com\/txxos\/?p=128"},"modified":"2021-04-17T18:29:29","modified_gmt":"2021-04-17T23:29:29","slug":"absolute-loader-assembly-listing","status":"publish","type":"post","link":"https:\/\/tommysprinkle.com\/txxos\/?p=128","title":{"rendered":"Absolute Loader Assembly Listing"},"content":{"rendered":"<pre>\r\nABSLOAD   SD  0001 000000 000358\f                                                                                                               PAGE    2\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11\/11\/11\r\n\r\n                                      1 **********************************************************************  00010000\r\n                                      2 * ABSLOAD                                                               00020000\r\n                                      3 *                                                                       00030000\r\n                                      4 * ABSOLUTE OBJECT DECK LOADER.  WILL READ AN OBJECT DECK FROM THE       00040000\r\n                                      5 * READER IMMEDIATELY FOLLOWING THE LOADER AND TRANSFER CONTROL TO       00050000\r\n                                      6 * TO LOADED PROGRAM                                                     00060000\r\n                                      7 *                                                                       00070000\r\n                                      8 **********************************************************************  00080000\r\n000000                                9 ABSLOAD  CSECT ,                                                        00090000\r\n000000 90EC D00C      0000C          10          STM   R14,R12,12(R13)    SAVE CALLERS REGISTERS                00100000\r\n000004 18CF                          11          LR    R12,R15            R12 IS PROGRAM BASE                   00110000\r\n                            00000    12          USING ABSLOAD,R12                                              00120000\r\n                                     13 *                                                                       00130000\r\n000006 4110 C0D0      000D0          14          LA    R1,SAVEA           POINT TO NEW SAVE AREA                00140000\r\n00000A 5010 D008      00008          15          ST    R1,8(,R13)         CHAIN                                 00150000\r\n00000E 50D0 1004      00004          16          ST    R13,4(,R1)              ON                               00160000\r\n000012 18D1                          17          LR    R13,R1                    SAVEAREA                       00170000\r\n                                     18 *                                                                       00180000\r\n                                     19 *                                                                       00190000\r\n                                     20          OPEN  (PUNCH,OUTPUT)     OPEN OUTPUT FILE                      00200000\r\n000014                               21+         CNOP  0,4                               ALIGN LIST TO FULLWORD 01740001\r\n000014 4510 C01C      0001C          22+         BAL   1,*+8                             LOAD REG1 W\/LIST ADDR. 01780000\r\n000018 8F                            23+         DC    AL1(143)                          OPTION BYTE            01900000\r\n000019 000118                        24+         DC    AL3(PUNCH)                        DCB ADDRESS            01920000\r\n00001C 0A13                          25+         SVC   19                                ISSUE OPEN SVC         04000000\r\n                                     26 **********************************************************************  00210000\r\n                                     27 *  WRITE FIRST IPL CARD WITH 24 BYTES OF DATA (PSW,CCW,CCW)             00220000\r\n                                     28 **********************************************************************  00230000\r\n                                     29          PUT   PUNCH,CARD0        WRITE INITIAL IPL RECORD              00240000\r\n00001E 4110 C118      00118          30+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n000022 4100 C178      00178          31+         LA    0,CARD0                           LOAD PARAMETER REG 0   02500002\r\n000026 58F0 1030      00030          32+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n00002A 05EF                          33+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     34 **********************************************************************  00250000\r\n                                     35 *  WRITE SECOND IPL CARD WITH ADDITIONAL READ CCW'S                     00260000\r\n                                     36 **********************************************************************  00270000\r\n                                     37          PUT   PUNCH,CARD1        WRITE SECOND IPL RECORD               00280000\r\n00002C 4110 C118      00118          38+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n000030 4100 C1C8      001C8          39+         LA    0,CARD1                           LOAD PARAMETER REG 0   02500002\r\n000034 58F0 1030      00030          40+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n000038 05EF                          41+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     42 **********************************************************************  00290000\r\n                                     43 *  WRITE 3 CARDS CONTAINING EXECUTABLE CODE                             00300000\r\n                                     44 **********************************************************************  00310000\f                                                                                                               PAGE    3\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11\/11\/11\r\n\r\n                                     45          PUT   PUNCH,CARD2        WRITE DATA                            00320000\r\n00003A 4110 C118      00118          46+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n00003E 4100 C218      00218          47+         LA    0,CARD2                           LOAD PARAMETER REG 0   02500002\r\n000042 58F0 1030      00030          48+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n000046 05EF                          49+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     50          PUT   PUNCH,CARD2+80     WRITE DATA                            00330000\r\n000048 4110 C118      00118          51+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n00004C 4100 C268      00268          52+         LA    0,CARD2+80                        LOAD PARAMETER REG 0   02500002\r\n000050 58F0 1030      00030          53+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n000054 05EF                          54+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     55          PUT   PUNCH,CARD2+160    WRITE DATA                            00340000\r\n000056 4110 C118      00118          56+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n00005A 4100 C2B8      002B8          57+         LA    0,CARD2+160                       LOAD PARAMETER REG 0   02500002\r\n00005E 58F0 1030      00030          58+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n000062 05EF                          59+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     60 **********************************************************************  00350000\r\n                                     61 *                                                                       00360000\r\n                                     62 *        ALL DONE CLOSE UP AND EXIT                                     00370000\r\n                                     63 *                                                                       00380000\r\n                                     64 **********************************************************************  00390000\r\n                                     65 *                                                                       00400000\r\n                                     66          CLOSE (PUNCH)                                                  00410000\r\n000064                               67+         CNOP  0,4                               ALIGN LIST TO FULLWORD 02420002\r\n000064 4510 C06C      0006C          68+         BAL   1,*+8                             LOAD REG1 W\/LIST ADDR  02460002\r\n000068 80                            69+         DC    AL1(128)                          OPTION BYTE            02580000\r\n000069 000118                        70+         DC    AL3(PUNCH)                        DCB ADDRESS            02600000\r\n00006C 0A14                          71+         SVC   20                                ISSUE CLOSE SVC        01640000\r\n                                     72 *                                                                       00420000\r\n                                     73 *                                                                       00430000\r\n00006E 58D0 D004      00004          74          L     R13,4(,R13)        PREV SAVE AREA                        00440000\r\n000072 98EC D00C      0000C          75          LM    R14,R12,12(R13)    RESTORE CALLERS REGISTERS             00450000\r\n000076 1FFF                          76          SLR   R15,R15            RC=0                                  00460000\r\n000078 07FE                          77          BR    R14                                                      00470000\r\n                                     78 *                                                                       00480000\r\n000080                               79          LTORG ,                                                        00490000\r\n                                     80 *                                                                       00500000\r\n000080                               81 BUF      DS    CL80               CARD BUFFER                           00510000\r\n                                     82 *                                                                       00520000\r\n0000D0                               83 SAVEA    DS    18F                SAVEA AREA                            00530000\r\n                                     84 *                                                                       00540000\r\n                                     85 *                                                                       00550000\r\n                                     86          PRINT NOGEN                                                    00560000\r\n                                     87 PUNCH    DCB   DSORG=PS,MACRF=PM,BLKSIZE=80,LRECL=80,RECFM=F,          +00570000\r\n                                                       DDNAME=PUNCH                                             00580000\f                                                                                                               PAGE    4\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11\/11\/11\r\n\r\n                                    141          PRINT GEN                                                      00590000\r\n                                    142 *                                                                       00600000\r\n                                    143 *                                                                       00610000\r\n                                    144          DROP  R12                                                      00620000\r\n                                    145 *                                                                       00630000\r\n                                    146 *                                                                       00640000\r\n                            02000   147 CLA      EQU   1024*8             LOCATION TO LOAD THE LOADER           00650000\r\n                                    148 *                                                                       00660000\r\n                                    149 *                                                                       00670000\r\n                                    150 **********************************************************************  00680000\r\n                                    151 **********************************************************************  00690000\r\n                                    152 ** FRIST CARD OF OUR IPL DECK                                           00700000\r\n                                    153 **    IT CONTAINS 24 BYTES - PSW AND TWO CCW'S                          00710000\r\n                                    154 **********************************************************************  00720000\r\n                                    155 **********************************************************************  00730000\r\n                                    156 *                                                                       00740000\r\n000178                              157          DS    0D                                                       00750000\r\n000178 0000000000000000             158 CARD0    DC    80XL1'00'          INITIAL IPL CARD                      00760000\r\n0001C8                      00178   159          ORG   CARD0                                                    00770000\r\n                                    160 *                                                                       00780000\r\n                                    161 **********************************************************************  00790000\r\n                                    162 *        PSW                                                            00800000\r\n                                    163 **********************************************************************  00810000\r\n                                    164 *                                                                       00820000\r\n000178 00                           165 IPLPSW   DC    X'00'              I\/O &amp; EXT INTERRUPTS DISABLED         00830000\r\n000179 00                           166          DC    X'00'              KEY=0; BC; EXT INT DISABLED; SUP      00840000\r\n00017A 0000                         167          DC    X'0000'                                                  00850000\r\n00017C 00                           168          DC    X'00'              PROG INT DISABLED                     00860000\r\n00017D 002050                       169          DC    AL3(CLA+80)        INITIAL EXECUTION ADDRESS             00870000\r\n                                    170 *                                                                       00880000\r\n                                    171 **********************************************************************  00890000\r\n                                    172 *        CCW                                                            00900000\r\n                                    173 **********************************************************************  00910000\r\n                                    174 *                                                                       00920000\r\n000180 02                           175 CCW1     DC    X'02'              READ                                  00930000\r\n000181 002000                       176          DC    AL3(CLA+0)         ADDRESS FOR DATA                      00940000\r\n000184 60                           177          DC    X'60'              CC + SLI                              00950000\r\n000185 00                           178          DC    X'00'                                                    00960000\r\n000186 0050                         179          DC    AL2(80)            LENGTH                                00970000\r\n                                    180 *                                                                       00980000\r\n                                    181 **********************************************************************  00990000\r\n                                    182 *        CCW                                                            01000000\r\n                                    183 **********************************************************************  01010000\r\n                                    184 *                                                                       01020000\r\n\f                                                                                                               PAGE    5\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11\/11\/11\r\n\r\n000188 08                           185 CCW2     DC    X'08'              TIC                                   01030000\r\n000189 002000                       186          DC    AL3(CLA+0)         NEXT CCW ADDRESS                      01040000\r\n00018C 00                           187          DC    X'00'              CC + SLI                              01050000\r\n00018D 00                           188          DC    X'00'                                                    01060000\r\n00018E 0000                         189          DC    AL2(0)             LENGTH                                01070000\r\n                                    190 *                                                                       01080000\r\n                                    191 *                                                                       01090000\r\n000190                      001C8   192          ORG   ,                  RESTORE LOC TO HIGHEST                01100000\r\n                                    193 *                                                                       01110000\r\n                                    194 **********************************************************************  01120000\r\n                                    195 **********************************************************************  01130000\r\n                                    196 ** SECOND CARD OF OUR IPL DECK                                          01140000\r\n                                    197 **    IT CONTAINS THREE CCW'S                                           01150000\r\n                                    198 **    THESE CCW'S READ THE THREE CARDS CONTAINING EXECUTABLE CODE       01160000\r\n                                    199 **********************************************************************  01170000\r\n                                    200 **********************************************************************  01180000\r\n0001C8                              201          DS    0D                                                       01190000\r\n0001C8 0000000000000000             202 CARD1    DC    80XL1'00'          SECOND IPL CARD                       01200000\r\n000218                      001C8   203          ORG   CARD1                                                    01210000\r\n                                    204 *                                                                       01220000\r\n                                    205 **********************************************************************  01230000\r\n                                    206 *        CCW                                                            01240000\r\n                                    207 **********************************************************************  01250000\r\n                                    208 *                                                                       01260000\r\n0001C8 02                           209 CCW3     DC    X'02'              READ                                  01270000\r\n0001C9 002050                       210          DC    AL3(CLA+80)        ADDRESS FOR DATA                      01280000\r\n0001CC 60                           211          DC    X'60'              CC + SLI                              01290000\r\n0001CD 00                           212          DC    X'00'                                                    01300000\r\n0001CE 0050                         213          DC    AL2(80)            LENGTH                                01310000\r\n                                    214 *                                                                       01320000\r\n                                    215 **********************************************************************  01330000\r\n                                    216 *        CCW                                                            01340000\r\n                                    217 **********************************************************************  01350000\r\n                                    218 *                                                                       01360000\r\n0001D0 02                           219 CCW4     DC    X'02'              READ                                  01370000\r\n0001D1 0020A0                       220          DC    AL3(CLA+160)       ADDRESS FOR DATA                      01380000\r\n0001D4 60                           221          DC    X'60'              CC + SLI                              01390000\r\n0001D5 00                           222          DC    X'00'                                                    01400000\r\n0001D6 0050                         223          DC    AL2(80)            LENGTH                                01410000\r\n                                    224 *                                                                       01420000\r\n                                    225 **********************************************************************  01430000\r\n                                    226 *        CCW                                                            01440000\r\n                                    227 **********************************************************************  01450000\r\n                                    228 *                                                                       01460000\f                                                                                                               PAGE    6\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11\/11\/11\r\n\r\n0001D8 02                           229 CCW5     DC    X'02'              READ                                  01470000\r\n0001D9 0020F0                       230          DC    AL3(CLA+240)       ADDRESS FOR DATA                      01480000\r\n0001DC 20                           231          DC    X'20'              SLI                                   01490000\r\n0001DD 00                           232          DC    X'00'                                                    01500000\r\n0001DE 0050                         233          DC    AL2(80)            LENGTH                                01510000\r\n                                    234 *                                                                       01520000\r\n                                    235 *                                                                       01530000\r\n                                    236 *                                                                       01540000\r\n                                    237 *                                                                       01550000\r\n0001E0                      00218   238          ORG   ,                  RESTORE LOC TO HIGHEST                01560000\r\n                                    239 *                                                                       01570000\r\n                                    240 **********************************************************************  01580000\r\n                                    241 **********************************************************************  01590000\r\n                                    242 ** FOLLOWING CARDS CONTAIN THE EXECUTABLE PROGRAM                       01600000\r\n                                    243 **********************************************************************  01610000\r\n                                    244 **********************************************************************  01620000\r\n000218                              245          DS    0D                                                       01630000\r\n000218                              246 CARD2    DS    0X                 SECOND IPL CARD                       01640000\r\n                                    247 **********************************************************************  01650000\r\n                                    248 *        EXECUTABLE PROGRAM BEINGS HERE                                 01660000\r\n                                    249 **********************************************************************  01670000\r\n000218                              250 BEGIN    DS    0H                                                       01680000\r\n000218 05A0                         251          BALR  R10,0              ESTABLISH BASE REG                    01690000\r\n                            0021A   252          USING *,R10                                                    01700000\r\n                                    253 *                                                                       01710000\r\n                                    254 **********************************************************************  01720000\r\n                                    255 *        GET DEVICE PHYSICAL ADDRESSES R3=CARD READER                   01730000\r\n                                    256 **********************************************************************  01740000\r\n                                    257 *                                                                       01750000\r\n00021A 1F33                         258          SLR   R3,R3              CLEAR R3                              01760000\r\n00021C BF33 0002      00002         259          ICM   R3,B'0011',2       GET IPL DEVICE (CARD RDR)             01770000\r\n                                    260 *                                                                       01780000\r\n                                    261 **********************************************************************  01790000\r\n                                    262 *        PUT THE I\/O BUFFER ADDRESS INTO THE CCW'S                      01800000\r\n                                    263 **********************************************************************  01810000\r\n                                    264 *                                                                       01820000\r\n000220 4110 A0EE      00308         265          LA    R1,RDBUF           READ BUFFER                           01830000\r\n000224 BE17 A097      002B1         266          STCM  R1,B'0111',RDCCW+1 ADDRESS TO READ CCW                   01840000\r\n                                    267 *                                                                       01850000\r\n                                    268 **********************************************************************  01860000\r\n                                    269 *        PROGRAM MAIN LOOP                                              01870000\r\n                                    270 **********************************************************************  01880000\r\n                                    271 *                                                                       01890000\r\n000228                              272 RDLP     DS    0H                                                       01900000\f                                                                                                               PAGE    7\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11\/11\/11\r\n\r\n000228 4110 A096      002B0         273          LA    R1,RDCCW           GET ADDR OF READ CCW                  01910000\r\n00022C 5010 0048      00048         274          ST    R1,72              PUT INTO CAW                          01920000\r\n                                    275 *                                                                       01930000\r\n000230 9C00 3000      00000         276          SIO   0(R3)              ISSUE READ                            01940000\r\n000234 4770 A0A8      002C2         277          BNZ   ERR1               BRANCH IF ERROR                       01950000\r\n                                    278 *                                                                       01960000\r\n                                    279 **********************************************************************  01970000\r\n                                    280 *        WAIT FOR READ I\/O TO COMPLETE                                  01980000\r\n                                    281 **********************************************************************  01990000\r\n                                    282 *                                                                       02000000\r\n000238                              283 RDTIO    DS    0H                                                       02010000\r\n000238 9D00 3000      00000         284          TIO   0(R3)              CHECK FOR I\/O COMPLETION              02020000\r\n00023C 4780 A02E      00248         285          BZ    LOADIT             GO PRINT IF GOOD                      02030000\r\n000240 4710 A0AC      002C6         286          BC    1,ERR2             BRAHCH IF ERR                         02040000\r\n000244 47F0 A01E      00238         287          B     RDTIO              WAIT AGAIN                            02050000\r\n                                    288 *                                                                       02060000\r\n                                    289 **********************************************************************  02070000\r\n                                    290 *        CHECK FOR SUCCESSFUL COMPLETION OF I\/O                         02080000\r\n                                    291 *                                                                       02090000\r\n                                    292 *        EXPECT ONLY CHANNEL END + DEVICE END                           02100000\r\n                                    293 *                                                                       02110000\r\n                                    294 *        ANYTHING ELSE WE QUIT                                          02120000\r\n                                    295 *                                                                       02130000\r\n                                    296 **********************************************************************  02140000\r\n                                    297 *                                                                       02150000\r\n000248                              298 LOADIT   DS    0H                                                       02160000\r\n000248 D501 A0D6 0044 002F0 00044   299          CLC   CEDE,68            CE+DE                                 02170000\r\n00024E 4770 A09E      002B8         300          BNE   ERR0               NO - QUIT                             02180000\r\n                                    301 *                                                                       02190000\r\n                                    302 **********************************************************************  02200000\r\n                                    303 *        CHECK TYPE OF CARD JUST READ                                   02210000\r\n                                    304 **********************************************************************  02220000\r\n                                    305 *                                                                       02230000\r\n000252 9502 A0EE      00308         306          CLI   RDBUF,X'02'        OBJECT DECK CARD?                     02240000\r\n000256 4770 A0B0      002CA         307          BNE   ERR3               NO - ERROR                            02250000\r\n                                    308 *                                                                       02260000\r\n00025A D502 A0D8 A0EF 002F2 00309   309          CLC   K@SYM,RDBUF+1      SYM RECORD                            02270000\r\n000260 4780 A00E      00228         310          BE    RDLP               YES - IGNORE IT                       02280000\r\n                                    311 *                                                                       02290000\r\n000264 D502 A0DE A0EF 002F8 00309   312          CLC   K@ESD,RDBUF+1      ESD RECORD                            02300000\r\n00026A 4780 A00E      00228         313          BE    RDLP               YES - IGNORE IT                       02310000\r\n                                    314 *                                                                       02320000\r\n00026E D502 A0DB A0EF 002F5 00309   315          CLC   K@RLD,RDBUF+1      RLD RECORD                            02330000\r\n000274 4780 A00E      00228         316          BE    RDLP               YES - IGNORE IT                       02340000\f                                                                                                               PAGE    8\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11\/11\/11\r\n\r\n                                    317 *                                                                       02350000\r\n000278 D502 A0E1 A0EF 002FB 00309   318          CLC   K@TXT,RDBUF+1      TXT RECORD                            02360000\r\n00027E 4780 A076      00290         319          BE    LDTXT              YES - IGNORE IT                       02370000\r\n                                    320 *                                                                       02380000\r\n000282 D502 A0E4 A0EF 002FE 00309   321          CLC   K@END,RDBUF+1      END RECORD                            02390000\r\n000288 4780 A090      002AA         322          BE    LDEND              YES - IGNORE IT                       02400000\r\n                                    323 *                                                                       02410000\r\n00028C 47F0 A0B0      002CA         324          B     ERR3               INVALID CARD TYPE                     02420000\r\n                                    325 *                                                                       02430000\r\n                                    326 **********************************************************************  02440000\r\n                                    327 *        LOAD TEXT RECORD CONTENTS INTO MEMORY                          02450000\r\n                                    328 **********************************************************************  02460000\r\n                                    329 *                                                                       02470000\r\n000290                              330 LDTXT    DS    0H                                                       02480000\r\n000290 1F44                         331          SLR   R4,R4              ZERO R4                               02490000\r\n000292 BF47 A0F3      0030D         332          ICM   R4,B'0111',RDBUF+5 GET 24 BIT ADDDRESS FOR DATA          02500000\r\n000296 4850 A0F8      00312         333          LH    R5,RDBUF+10        GET DATA LENGTH                       02510000\r\n00029A 0650                         334          BCTR  R5,0               ADJUST FOR EXECUTE                    02520000\r\n00029C 4450 A08A      002A4         335          EX    R5,LDMVC           MOVE THE DATA                         02530000\r\n0002A0 47F0 A00E      00228         336          B     RDLP               GET NEXT CARD                         02540000\r\n                                    337 *                                                                       02550000\r\n0002A4 D200 4000 A0FE 00000 00318   338 LDMVC    MVC   0(1,R4),RDBUF+16   EXECUTED MOVE                         02560000\r\n                                    339 *                                                                       02570000\r\n                                    340 *                                                                       02580000\r\n                                    341 **********************************************************************  02590000\r\n                                    342 *        PROCESS END CARD                                               02600000\r\n                                    343 **********************************************************************  02610000\r\n                                    344 *                                                                       02620000\r\n0002AA                              345 LDEND    DS    0H                                                       02630000\r\n0002AA 8200 0000      00000         346          LPSW  0                  LOAD PSW CONTAINED AT LOCATION ZERO   02640000\r\n                                    347 *                                                                       02650000\r\n                                    348 *                                                                       02660000\r\n                                    349 **********************************************************************  02670000\r\n                                    350 *        CCW'S TO READ AND PRINT                                        02680000\r\n                                    351 **********************************************************************  02690000\r\n                                    352 *                                                                       02700000\r\n                                    353 *                                                                       02710000\r\n0002B0                              354          DS    0D                                                       02720000\r\n0002B0 0200000000000050             355 RDCCW    DC    X'02',AL3(0),X'0000',AL2(80)                             02730000\r\n                                    356 *                                                                       02740000\r\n                                    357 *                                                                       02750000\r\n                                    358 **********************************************************************  02760000\r\n                                    359 *        ERROR ROUTINES                                                 02770000\r\n                                    360 *           LOAD PSW WITH WAIT BIT SET TO ONE                           02780000\f                                                                                                               PAGE    9\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11\/11\/11\r\n\r\n                                    361 **********************************************************************  02790000\r\n                                    362 *                                                                       02800000\r\n                                    363 *                                                                       02810000\r\n0002B8 D201 A0BC 0044 002D6 00044   364 ERR0     MVC   PSWERR0+6(2),68                                          02820000\r\n0002BE 8200 A0B6      002D0         365          LPSW  PSWERR0                                                  02830000\r\n0002C2 8200 A0BE      002D8         366 ERR1     LPSW  PSWERR1                                                  02840000\r\n0002C6 8200 A0C6      002E0         367 ERR2     LPSW  PSWERR2                                                  02850000\r\n0002CA 8200 A0CE      002E8         368 ERR3     LPSW  PSWERR3                                                  02860000\r\n                                    369 *                                                                       02870000\r\n                                    370 *                                                                       02880000\r\n                                    371 **********************************************************************  02890000\r\n                                    372 *        WAIT PSW'S                                                     02900000\r\n                                    373 **********************************************************************  02910000\r\n                                    374 *                                                                       02920000\r\n                                    375 *                                                                       02930000\r\n0002D0                              376          DS    0D                                                       02940000\r\n0002D0 0002000000990000             377 PSWERR0  DC    X'00',X'02',X'0000',X'00',X'990000'                      02950000\r\n0002D8 0002000000EE0001             378 PSWERR1  DC    X'00',X'02',X'0000',X'00',X'EE0001'                      02960000\r\n0002E0 0002000000EE0002             379 PSWERR2  DC    X'00',X'02',X'0000',X'00',X'EE0002'                      02970000\r\n0002E8 0002000000EE0003             380 PSWERR3  DC    X'00',X'02',X'0000',X'00',X'EE0003'                      02980000\r\n                                    381 *                                                                       02990000\r\n                                    382 *                                                                       03000000\r\n                                    383 **********************************************************************  03010000\r\n                                    384 *        CONSTANTS                                                      03020000\r\n                                    385 **********************************************************************  03030000\r\n                                    386 *                                                                       03040000\r\n                                    387 *                                                                       03050000\r\n0002F0 0C00                         388 CEDE     DC    X'0C00'            CHANNEL END + DEVICE END              03060000\r\n                                    389 *                                                                       03070000\r\n                                    390 *                                                                       03080000\r\n0002F2 E2E8D4                       391 K@SYM    DC    C'SYM'                                                   03090000\r\n0002F5 D9D3C4                       392 K@RLD    DC    C'RLD'                                                   03100000\r\n0002F8 C5E2C4                       393 K@ESD    DC    C'ESD'                                                   03110000\r\n0002FB E3E7E3                       394 K@TXT    DC    C'TXT'                                                   03120000\r\n0002FE C5D5C4                       395 K@END    DC    C'END'                                                   03130000\r\n                                    396 *                                                                       03140000\r\n                                    397 *                                                                       03150000\r\n                                    398 **********************************************************************  03160000\r\n                                    399 *        I\/O BUFFER AREA                                                03170000\r\n                                    400 **********************************************************************  03180000\r\n                                    401 *                                                                       03190000\r\n                                    402 *                                                                       03200000\r\n                            000E9   403 CARD2LEN EQU   *-CARD2                                                  03210000\r\n                            00003   404 CARD2CNT EQU   ((CARD2LEN+79)\/80)                                       03220000\f                                                                                                               PAGE   10\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11\/11\/11\r\n\r\n000308                              405 RDBUF    DS    0D            I\/O BUFFER                                 03230000\r\n000308                      00308   406          ORG   ,                                                        03240000\r\n                                    407 *                                                                       03250000\r\n                                    408 *                                                                       03260000\r\n                                    409 **********************************************************************  03270000\r\n                                    410 *        BUFFER AREA TO MAKE SURE WE HAVE AT LEAST 80 BYTES FOR THE     03280000\r\n                                    411 *        LAST CARD WE WRINTE                                            03290000\r\n                                    412 **********************************************************************  03300000\r\n                                    413 *                                                                       03310000\r\n                                    414 *                                                                       03320000\r\n000308                              415          DS    CL80          *** EXTRA BUFFER AREA ***                  03330000\r\n                                    416 *                                                                       03340000\r\n                                    417 *                                                                       03350000\r\n                                    418 **********************************************************************  03360000\r\n                                    419 *        REGISTER EQUATES                                               03370000\r\n                                    420 **********************************************************************  03380000\r\n                                    421 *                                                                       03390000\r\n                                    422 *                                                                       03400000\r\n                            00000   423 R0       EQU   0                                                        03410000\r\n                            00001   424 R1       EQU   1                                                        03420000\r\n                            00002   425 R2       EQU   2                                                        03430000\r\n                            00003   426 R3       EQU   3                                                        03440000\r\n                            00004   427 R4       EQU   4                                                        03450000\r\n                            00005   428 R5       EQU   5                                                        03460000\r\n                            00006   429 R6       EQU   6                                                        03470000\r\n                            00007   430 R7       EQU   7                                                        03480000\r\n                            00008   431 R8       EQU   8                                                        03490000\r\n                            00009   432 R9       EQU   9                                                        03500000\r\n                            0000A   433 R10      EQU   10                                                       03510000\r\n                            0000B   434 R11      EQU   11                                                       03520000\r\n                            0000C   435 R12      EQU   12                                                       03530000\r\n                            0000D   436 R13      EQU   13                                                       03540000\r\n                            0000E   437 R14      EQU   14                                                       03550000\r\n                            0000F   438 R15      EQU   15                                                       03560000\r\n                                    439 *                                                                       03570000\r\n                                    440 *                                                                       03580000\r\n                                    441          END   ,                                                        03590000\f                                                  RELOCATION DICTIONARY                                        PAGE   11\r\n\r\nPOS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 12.09 11\/11\/11\r\n\r\n 0001     0001      08     000019\r\n 0001     0001      08     000069\r\n\f                                                  CROSS-REFERENCE                                              PAGE   12\r\n\r\nSYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 12.09 11\/11\/11\r\n\r\nABSLOAD  00001 00000000 00009  00012\r\nCARD0    00001 00000178 00158  00031 00159\r\nCARD1    00001 000001C8 00202  00039 00203\r\nCARD2    00001 00000218 00246  00047 00052 00057 00403\r\nCARD2LEN 00001 000000E9 00403  00404\r\nCEDE     00002 000002F0 00388  00299\r\nCLA      00001 00002000 00147  00169 00176 00186 00210 00220 00230\r\nERR0     00006 000002B8 00364  00300\r\nERR1     00004 000002C2 00366  00277\r\nERR2     00004 000002C6 00367  00286\r\nERR3     00004 000002CA 00368  00307 00324\r\nK@END    00003 000002FE 00395  00321\r\nK@ESD    00003 000002F8 00393  00312\r\nK@RLD    00003 000002F5 00392  00315\r\nK@SYM    00003 000002F2 00391  00309\r\nK@TXT    00003 000002FB 00394  00318\r\nLDEND    00002 000002AA 00345  00322\r\nLDMVC    00006 000002A4 00338  00335\r\nLDTXT    00002 00000290 00330  00319\r\nLOADIT   00002 00000248 00298  00285\r\nPSWERR0  00001 000002D0 00377  00364 00365\r\nPSWERR1  00001 000002D8 00378  00366\r\nPSWERR2  00001 000002E0 00379  00367\r\nPSWERR3  00001 000002E8 00380  00368\r\nPUNCH    00004 00000118 00091  00024 00030 00038 00046 00051 00056 00070\r\nRDBUF    00008 00000308 00405  00265 00306 00309 00312 00315 00318 00321 00332 00333 00338\r\nRDCCW    00001 000002B0 00355  00266 00273\r\nRDLP     00002 00000228 00272  00310 00313 00316 00336\r\nRDTIO    00002 00000238 00283  00287\r\nR1       00001 00000001 00424  00014 00015 00016 00017 00265 00266 00273 00274\r\nR10      00001 0000000A 00433  00251 00252\r\nR12      00001 0000000C 00435  00010 00011 00012 00075 00144\r\nR13      00001 0000000D 00436  00010 00015 00016 00017 00074 00074 00075\r\nR14      00001 0000000E 00437  00010 00075 00077\r\nR15      00001 0000000F 00438  00011 00076 00076\r\nR3       00001 00000003 00426  00258 00258 00259 00276 00284\r\nR4       00001 00000004 00427  00331 00331 00332 00338\r\nR5       00001 00000005 00428  00333 00334 00335\r\nSAVEA    00004 000000D0 00083  00014\f                                                  ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   13\r\n\r\n                                                                                                 ASM 0201 12.09 11\/11\/11\r\n\r\nNO STATEMENTS FLAGGED IN THIS ASSEMBLY\r\nHIGHEST SEVERITY WAS    0\r\nOPTIONS FOR THIS ASSEMBLY\r\n  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(44), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)\r\n  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)\r\n  SYSPARM()\r\nWORK FILE BUFFER SIZE\/NUMBER =19066\/ 1\r\nTOTAL RECORDS READ FROM SYSTEM INPUT        359\r\nTOTAL RECORDS READ FROM SYSTEM LIBRARY     3144\r\nTOTAL RECORDS PUNCHED                        19\r\nTOTAL RECORDS PRINTED                       469<\/pre>\n<p><a title=\"Absolute Loader Description\" href=\"http:\/\/tommysprinkle.com\/txxos\/?p=131\">[Next &#8211; Absolute Loader Description]<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>ABSLOAD SD 0001 000000 000358\f PAGE 2 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 12.09 11\/11\/11 1 ********************************************************************** 00010000 2 * ABSLOAD 00020000 3 * 00030000 4 * ABSOLUTE OBJECT DECK LOADER. WILL READ AN OBJECT DECK &hellip; <a href=\"https:\/\/tommysprinkle.com\/txxos\/?p=128\">Continue reading <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"template-page-builder-no-sidebar.php","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[1],"tags":[],"class_list":["post-128","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p1CPQT-24","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/128","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=128"}],"version-history":[{"count":4,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/128\/revisions"}],"predecessor-version":[{"id":521,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/128\/revisions\/521"}],"wp:attachment":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=128"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=128"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=128"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}