Absolute Loader Assembly Listing

ABSLOAD   SD  0001 000000 000358                                                                                                               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 FROM THE       00040000
                                      5 * READER IMMEDIATELY FOLLOWING THE LOADER AND TRANSFER CONTROL TO       00050000
                                      6 * TO LOADED PROGRAM                                                     00060000
                                      7 *                                                                       00070000
                                      8 **********************************************************************  00080000
000000                                9 ABSLOAD  CSECT ,                                                        00090000
000000 90EC D00C      0000C          10          STM   R14,R12,12(R13)    SAVE CALLERS REGISTERS                00100000
000004 18CF                          11          LR    R12,R15            R12 IS PROGRAM BASE                   00110000
                            00000    12          USING ABSLOAD,R12                                              00120000
                                     13 *                                                                       00130000
000006 4110 C0D0      000D0          14          LA    R1,SAVEA           POINT TO NEW SAVE AREA                00140000
00000A 5010 D008      00008          15          ST    R1,8(,R13)         CHAIN                                 00150000
00000E 50D0 1004      00004          16          ST    R13,4(,R1)              ON                               00160000
000012 18D1                          17          LR    R13,R1                    SAVEAREA                       00170000
                                     18 *                                                                       00180000
                                     19 *                                                                       00190000
                                     20          OPEN  (PUNCH,OUTPUT)     OPEN OUTPUT FILE                      00200000
000014                               21+         CNOP  0,4                               ALIGN LIST TO FULLWORD 01740001
000014 4510 C01C      0001C          22+         BAL   1,*+8                             LOAD REG1 W/LIST ADDR. 01780000
000018 8F                            23+         DC    AL1(143)                          OPTION BYTE            01900000
000019 000118                        24+         DC    AL3(PUNCH)                        DCB ADDRESS            01920000
00001C 0A13                          25+         SVC   19                                ISSUE OPEN SVC         04000000
                                     26 **********************************************************************  00210000
                                     27 *  WRITE FIRST IPL CARD WITH 24 BYTES OF DATA (PSW,CCW,CCW)             00220000
                                     28 **********************************************************************  00230000
                                     29          PUT   PUNCH,CARD0        WRITE INITIAL IPL RECORD              00240000
00001E 4110 C118      00118          30+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
000022 4100 C178      00178          31+         LA    0,CARD0                           LOAD PARAMETER REG 0   02500002
000026 58F0 1030      00030          32+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
00002A 05EF                          33+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     34 **********************************************************************  00250000
                                     35 *  WRITE SECOND IPL CARD WITH ADDITIONAL READ CCW'S                     00260000
                                     36 **********************************************************************  00270000
                                     37          PUT   PUNCH,CARD1        WRITE SECOND IPL RECORD               00280000
00002C 4110 C118      00118          38+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
000030 4100 C1C8      001C8          39+         LA    0,CARD1                           LOAD PARAMETER REG 0   02500002
000034 58F0 1030      00030          40+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
000038 05EF                          41+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     42 **********************************************************************  00290000
                                     43 *  WRITE 3 CARDS CONTAINING EXECUTABLE CODE                             00300000
                                     44 **********************************************************************  00310000                                                                                                               PAGE    3

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11/11/11

                                     45          PUT   PUNCH,CARD2        WRITE DATA                            00320000
00003A 4110 C118      00118          46+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
00003E 4100 C218      00218          47+         LA    0,CARD2                           LOAD PARAMETER REG 0   02500002
000042 58F0 1030      00030          48+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
000046 05EF                          49+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     50          PUT   PUNCH,CARD2+80     WRITE DATA                            00330000
000048 4110 C118      00118          51+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
00004C 4100 C268      00268          52+         LA    0,CARD2+80                        LOAD PARAMETER REG 0   02500002
000050 58F0 1030      00030          53+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
000054 05EF                          54+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     55          PUT   PUNCH,CARD2+160    WRITE DATA                            00340000
000056 4110 C118      00118          56+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
00005A 4100 C2B8      002B8          57+         LA    0,CARD2+160                       LOAD PARAMETER REG 0   02500002
00005E 58F0 1030      00030          58+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
000062 05EF                          59+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     60 **********************************************************************  00350000
                                     61 *                                                                       00360000
                                     62 *        ALL DONE CLOSE UP AND EXIT                                     00370000
                                     63 *                                                                       00380000
                                     64 **********************************************************************  00390000
                                     65 *                                                                       00400000
                                     66          CLOSE (PUNCH)                                                  00410000
000064                               67+         CNOP  0,4                               ALIGN LIST TO FULLWORD 02420002
000064 4510 C06C      0006C          68+         BAL   1,*+8                             LOAD REG1 W/LIST ADDR  02460002
000068 80                            69+         DC    AL1(128)                          OPTION BYTE            02580000
000069 000118                        70+         DC    AL3(PUNCH)                        DCB ADDRESS            02600000
00006C 0A14                          71+         SVC   20                                ISSUE CLOSE SVC        01640000
                                     72 *                                                                       00420000
                                     73 *                                                                       00430000
00006E 58D0 D004      00004          74          L     R13,4(,R13)        PREV SAVE AREA                        00440000
000072 98EC D00C      0000C          75          LM    R14,R12,12(R13)    RESTORE CALLERS REGISTERS             00450000
000076 1FFF                          76          SLR   R15,R15            RC=0                                  00460000
000078 07FE                          77          BR    R14                                                      00470000
                                     78 *                                                                       00480000
000080                               79          LTORG ,                                                        00490000
                                     80 *                                                                       00500000
000080                               81 BUF      DS    CL80               CARD BUFFER                           00510000
                                     82 *                                                                       00520000
0000D0                               83 SAVEA    DS    18F                SAVEA AREA                            00530000
                                     84 *                                                                       00540000
                                     85 *                                                                       00550000
                                     86          PRINT NOGEN                                                    00560000
                                     87 PUNCH    DCB   DSORG=PS,MACRF=PM,BLKSIZE=80,LRECL=80,RECFM=F,          +00570000
                                                       DDNAME=PUNCH                                             00580000                                                                                                               PAGE    4

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11/11/11

                                    141          PRINT GEN                                                      00590000
                                    142 *                                                                       00600000
                                    143 *                                                                       00610000
                                    144          DROP  R12                                                      00620000
                                    145 *                                                                       00630000
                                    146 *                                                                       00640000
                            02000   147 CLA      EQU   1024*8             LOCATION TO LOAD THE LOADER           00650000
                                    148 *                                                                       00660000
                                    149 *                                                                       00670000
                                    150 **********************************************************************  00680000
                                    151 **********************************************************************  00690000
                                    152 ** FRIST CARD OF OUR IPL DECK                                           00700000
                                    153 **    IT CONTAINS 24 BYTES - PSW AND TWO CCW'S                          00710000
                                    154 **********************************************************************  00720000
                                    155 **********************************************************************  00730000
                                    156 *                                                                       00740000
000178                              157          DS    0D                                                       00750000
000178 0000000000000000             158 CARD0    DC    80XL1'00'          INITIAL IPL CARD                      00760000
0001C8                      00178   159          ORG   CARD0                                                    00770000
                                    160 *                                                                       00780000
                                    161 **********************************************************************  00790000
                                    162 *        PSW                                                            00800000
                                    163 **********************************************************************  00810000
                                    164 *                                                                       00820000
000178 00                           165 IPLPSW   DC    X'00'              I/O & EXT INTERRUPTS DISABLED         00830000
000179 00                           166          DC    X'00'              KEY=0; BC; EXT INT DISABLED; SUP      00840000
00017A 0000                         167          DC    X'0000'                                                  00850000
00017C 00                           168          DC    X'00'              PROG INT DISABLED                     00860000
00017D 002050                       169          DC    AL3(CLA+80)        INITIAL EXECUTION ADDRESS             00870000
                                    170 *                                                                       00880000
                                    171 **********************************************************************  00890000
                                    172 *        CCW                                                            00900000
                                    173 **********************************************************************  00910000
                                    174 *                                                                       00920000
000180 02                           175 CCW1     DC    X'02'              READ                                  00930000
000181 002000                       176          DC    AL3(CLA+0)         ADDRESS FOR DATA                      00940000
000184 60                           177          DC    X'60'              CC + SLI                              00950000
000185 00                           178          DC    X'00'                                                    00960000
000186 0050                         179          DC    AL2(80)            LENGTH                                00970000
                                    180 *                                                                       00980000
                                    181 **********************************************************************  00990000
                                    182 *        CCW                                                            01000000
                                    183 **********************************************************************  01010000
                                    184 *                                                                       01020000
                                                                                                               PAGE    5

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11/11/11

000188 08                           185 CCW2     DC    X'08'              TIC                                   01030000
000189 002000                       186          DC    AL3(CLA+0)         NEXT CCW ADDRESS                      01040000
00018C 00                           187          DC    X'00'              CC + SLI                              01050000
00018D 00                           188          DC    X'00'                                                    01060000
00018E 0000                         189          DC    AL2(0)             LENGTH                                01070000
                                    190 *                                                                       01080000
                                    191 *                                                                       01090000
000190                      001C8   192          ORG   ,                  RESTORE LOC TO HIGHEST                01100000
                                    193 *                                                                       01110000
                                    194 **********************************************************************  01120000
                                    195 **********************************************************************  01130000
                                    196 ** SECOND CARD OF OUR IPL DECK                                          01140000
                                    197 **    IT CONTAINS THREE CCW'S                                           01150000
                                    198 **    THESE CCW'S READ THE THREE CARDS CONTAINING EXECUTABLE CODE       01160000
                                    199 **********************************************************************  01170000
                                    200 **********************************************************************  01180000
0001C8                              201          DS    0D                                                       01190000
0001C8 0000000000000000             202 CARD1    DC    80XL1'00'          SECOND IPL CARD                       01200000
000218                      001C8   203          ORG   CARD1                                                    01210000
                                    204 *                                                                       01220000
                                    205 **********************************************************************  01230000
                                    206 *        CCW                                                            01240000
                                    207 **********************************************************************  01250000
                                    208 *                                                                       01260000
0001C8 02                           209 CCW3     DC    X'02'              READ                                  01270000
0001C9 002050                       210          DC    AL3(CLA+80)        ADDRESS FOR DATA                      01280000
0001CC 60                           211          DC    X'60'              CC + SLI                              01290000
0001CD 00                           212          DC    X'00'                                                    01300000
0001CE 0050                         213          DC    AL2(80)            LENGTH                                01310000
                                    214 *                                                                       01320000
                                    215 **********************************************************************  01330000
                                    216 *        CCW                                                            01340000
                                    217 **********************************************************************  01350000
                                    218 *                                                                       01360000
0001D0 02                           219 CCW4     DC    X'02'              READ                                  01370000
0001D1 0020A0                       220          DC    AL3(CLA+160)       ADDRESS FOR DATA                      01380000
0001D4 60                           221          DC    X'60'              CC + SLI                              01390000
0001D5 00                           222          DC    X'00'                                                    01400000
0001D6 0050                         223          DC    AL2(80)            LENGTH                                01410000
                                    224 *                                                                       01420000
                                    225 **********************************************************************  01430000
                                    226 *        CCW                                                            01440000
                                    227 **********************************************************************  01450000
                                    228 *                                                                       01460000                                                                                                               PAGE    6

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11/11/11

0001D8 02                           229 CCW5     DC    X'02'              READ                                  01470000
0001D9 0020F0                       230          DC    AL3(CLA+240)       ADDRESS FOR DATA                      01480000
0001DC 20                           231          DC    X'20'              SLI                                   01490000
0001DD 00                           232          DC    X'00'                                                    01500000
0001DE 0050                         233          DC    AL2(80)            LENGTH                                01510000
                                    234 *                                                                       01520000
                                    235 *                                                                       01530000
                                    236 *                                                                       01540000
                                    237 *                                                                       01550000
0001E0                      00218   238          ORG   ,                  RESTORE LOC TO HIGHEST                01560000
                                    239 *                                                                       01570000
                                    240 **********************************************************************  01580000
                                    241 **********************************************************************  01590000
                                    242 ** FOLLOWING CARDS CONTAIN THE EXECUTABLE PROGRAM                       01600000
                                    243 **********************************************************************  01610000
                                    244 **********************************************************************  01620000
000218                              245          DS    0D                                                       01630000
000218                              246 CARD2    DS    0X                 SECOND IPL CARD                       01640000
                                    247 **********************************************************************  01650000
                                    248 *        EXECUTABLE PROGRAM BEINGS HERE                                 01660000
                                    249 **********************************************************************  01670000
000218                              250 BEGIN    DS    0H                                                       01680000
000218 05A0                         251          BALR  R10,0              ESTABLISH BASE REG                    01690000
                            0021A   252          USING *,R10                                                    01700000
                                    253 *                                                                       01710000
                                    254 **********************************************************************  01720000
                                    255 *        GET DEVICE PHYSICAL ADDRESSES R3=CARD READER                   01730000
                                    256 **********************************************************************  01740000
                                    257 *                                                                       01750000
00021A 1F33                         258          SLR   R3,R3              CLEAR R3                              01760000
00021C BF33 0002      00002         259          ICM   R3,B'0011',2       GET IPL DEVICE (CARD RDR)             01770000
                                    260 *                                                                       01780000
                                    261 **********************************************************************  01790000
                                    262 *        PUT THE I/O BUFFER ADDRESS INTO THE CCW'S                      01800000
                                    263 **********************************************************************  01810000
                                    264 *                                                                       01820000
000220 4110 A0EE      00308         265          LA    R1,RDBUF           READ BUFFER                           01830000
000224 BE17 A097      002B1         266          STCM  R1,B'0111',RDCCW+1 ADDRESS TO READ CCW                   01840000
                                    267 *                                                                       01850000
                                    268 **********************************************************************  01860000
                                    269 *        PROGRAM MAIN LOOP                                              01870000
                                    270 **********************************************************************  01880000
                                    271 *                                                                       01890000
000228                              272 RDLP     DS    0H                                                       01900000                                                                                                               PAGE    7

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11/11/11

000228 4110 A096      002B0         273          LA    R1,RDCCW           GET ADDR OF READ CCW                  01910000
00022C 5010 0048      00048         274          ST    R1,72              PUT INTO CAW                          01920000
                                    275 *                                                                       01930000
000230 9C00 3000      00000         276          SIO   0(R3)              ISSUE READ                            01940000
000234 4770 A0A8      002C2         277          BNZ   ERR1               BRANCH IF ERROR                       01950000
                                    278 *                                                                       01960000
                                    279 **********************************************************************  01970000
                                    280 *        WAIT FOR READ I/O TO COMPLETE                                  01980000
                                    281 **********************************************************************  01990000
                                    282 *                                                                       02000000
000238                              283 RDTIO    DS    0H                                                       02010000
000238 9D00 3000      00000         284          TIO   0(R3)              CHECK FOR I/O COMPLETION              02020000
00023C 4780 A02E      00248         285          BZ    LOADIT             GO PRINT IF GOOD                      02030000
000240 4710 A0AC      002C6         286          BC    1,ERR2             BRAHCH IF ERR                         02040000
000244 47F0 A01E      00238         287          B     RDTIO              WAIT AGAIN                            02050000
                                    288 *                                                                       02060000
                                    289 **********************************************************************  02070000
                                    290 *        CHECK FOR SUCCESSFUL COMPLETION OF I/O                         02080000
                                    291 *                                                                       02090000
                                    292 *        EXPECT ONLY CHANNEL END + DEVICE END                           02100000
                                    293 *                                                                       02110000
                                    294 *        ANYTHING ELSE WE QUIT                                          02120000
                                    295 *                                                                       02130000
                                    296 **********************************************************************  02140000
                                    297 *                                                                       02150000
000248                              298 LOADIT   DS    0H                                                       02160000
000248 D501 A0D6 0044 002F0 00044   299          CLC   CEDE,68            CE+DE                                 02170000
00024E 4770 A09E      002B8         300          BNE   ERR0               NO - QUIT                             02180000
                                    301 *                                                                       02190000
                                    302 **********************************************************************  02200000
                                    303 *        CHECK TYPE OF CARD JUST READ                                   02210000
                                    304 **********************************************************************  02220000
                                    305 *                                                                       02230000
000252 9502 A0EE      00308         306          CLI   RDBUF,X'02'        OBJECT DECK CARD?                     02240000
000256 4770 A0B0      002CA         307          BNE   ERR3               NO - ERROR                            02250000
                                    308 *                                                                       02260000
00025A D502 A0D8 A0EF 002F2 00309   309          CLC   K@SYM,RDBUF+1      SYM RECORD                            02270000
000260 4780 A00E      00228         310          BE    RDLP               YES - IGNORE IT                       02280000
                                    311 *                                                                       02290000
000264 D502 A0DE A0EF 002F8 00309   312          CLC   K@ESD,RDBUF+1      ESD RECORD                            02300000
00026A 4780 A00E      00228         313          BE    RDLP               YES - IGNORE IT                       02310000
                                    314 *                                                                       02320000
00026E D502 A0DB A0EF 002F5 00309   315          CLC   K@RLD,RDBUF+1      RLD RECORD                            02330000
000274 4780 A00E      00228         316          BE    RDLP               YES - IGNORE IT                       02340000                                                                                                               PAGE    8

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11/11/11

                                    317 *                                                                       02350000
000278 D502 A0E1 A0EF 002FB 00309   318          CLC   K@TXT,RDBUF+1      TXT RECORD                            02360000
00027E 4780 A076      00290         319          BE    LDTXT              YES - IGNORE IT                       02370000
                                    320 *                                                                       02380000
000282 D502 A0E4 A0EF 002FE 00309   321          CLC   K@END,RDBUF+1      END RECORD                            02390000
000288 4780 A090      002AA         322          BE    LDEND              YES - IGNORE IT                       02400000
                                    323 *                                                                       02410000
00028C 47F0 A0B0      002CA         324          B     ERR3               INVALID CARD TYPE                     02420000
                                    325 *                                                                       02430000
                                    326 **********************************************************************  02440000
                                    327 *        LOAD TEXT RECORD CONTENTS INTO MEMORY                          02450000
                                    328 **********************************************************************  02460000
                                    329 *                                                                       02470000
000290                              330 LDTXT    DS    0H                                                       02480000
000290 1F44                         331          SLR   R4,R4              ZERO R4                               02490000
000292 BF47 A0F3      0030D         332          ICM   R4,B'0111',RDBUF+5 GET 24 BIT ADDDRESS FOR DATA          02500000
000296 4850 A0F8      00312         333          LH    R5,RDBUF+10        GET DATA LENGTH                       02510000
00029A 0650                         334          BCTR  R5,0               ADJUST FOR EXECUTE                    02520000
00029C 4450 A08A      002A4         335          EX    R5,LDMVC           MOVE THE DATA                         02530000
0002A0 47F0 A00E      00228         336          B     RDLP               GET NEXT CARD                         02540000
                                    337 *                                                                       02550000
0002A4 D200 4000 A0FE 00000 00318   338 LDMVC    MVC   0(1,R4),RDBUF+16   EXECUTED MOVE                         02560000
                                    339 *                                                                       02570000
                                    340 *                                                                       02580000
                                    341 **********************************************************************  02590000
                                    342 *        PROCESS END CARD                                               02600000
                                    343 **********************************************************************  02610000
                                    344 *                                                                       02620000
0002AA                              345 LDEND    DS    0H                                                       02630000
0002AA 8200 0000      00000         346          LPSW  0                  LOAD PSW CONTAINED AT LOCATION ZERO   02640000
                                    347 *                                                                       02650000
                                    348 *                                                                       02660000
                                    349 **********************************************************************  02670000
                                    350 *        CCW'S TO READ AND PRINT                                        02680000
                                    351 **********************************************************************  02690000
                                    352 *                                                                       02700000
                                    353 *                                                                       02710000
0002B0                              354          DS    0D                                                       02720000
0002B0 0200000000000050             355 RDCCW    DC    X'02',AL3(0),X'0000',AL2(80)                             02730000
                                    356 *                                                                       02740000
                                    357 *                                                                       02750000
                                    358 **********************************************************************  02760000
                                    359 *        ERROR ROUTINES                                                 02770000
                                    360 *           LOAD PSW WITH WAIT BIT SET TO ONE                           02780000                                                                                                               PAGE    9

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11/11/11

                                    361 **********************************************************************  02790000
                                    362 *                                                                       02800000
                                    363 *                                                                       02810000
0002B8 D201 A0BC 0044 002D6 00044   364 ERR0     MVC   PSWERR0+6(2),68                                          02820000
0002BE 8200 A0B6      002D0         365          LPSW  PSWERR0                                                  02830000
0002C2 8200 A0BE      002D8         366 ERR1     LPSW  PSWERR1                                                  02840000
0002C6 8200 A0C6      002E0         367 ERR2     LPSW  PSWERR2                                                  02850000
0002CA 8200 A0CE      002E8         368 ERR3     LPSW  PSWERR3                                                  02860000
                                    369 *                                                                       02870000
                                    370 *                                                                       02880000
                                    371 **********************************************************************  02890000
                                    372 *        WAIT PSW'S                                                     02900000
                                    373 **********************************************************************  02910000
                                    374 *                                                                       02920000
                                    375 *                                                                       02930000
0002D0                              376          DS    0D                                                       02940000
0002D0 0002000000990000             377 PSWERR0  DC    X'00',X'02',X'0000',X'00',X'990000'                      02950000
0002D8 0002000000EE0001             378 PSWERR1  DC    X'00',X'02',X'0000',X'00',X'EE0001'                      02960000
0002E0 0002000000EE0002             379 PSWERR2  DC    X'00',X'02',X'0000',X'00',X'EE0002'                      02970000
0002E8 0002000000EE0003             380 PSWERR3  DC    X'00',X'02',X'0000',X'00',X'EE0003'                      02980000
                                    381 *                                                                       02990000
                                    382 *                                                                       03000000
                                    383 **********************************************************************  03010000
                                    384 *        CONSTANTS                                                      03020000
                                    385 **********************************************************************  03030000
                                    386 *                                                                       03040000
                                    387 *                                                                       03050000
0002F0 0C00                         388 CEDE     DC    X'0C00'            CHANNEL END + DEVICE END              03060000
                                    389 *                                                                       03070000
                                    390 *                                                                       03080000
0002F2 E2E8D4                       391 K@SYM    DC    C'SYM'                                                   03090000
0002F5 D9D3C4                       392 K@RLD    DC    C'RLD'                                                   03100000
0002F8 C5E2C4                       393 K@ESD    DC    C'ESD'                                                   03110000
0002FB E3E7E3                       394 K@TXT    DC    C'TXT'                                                   03120000
0002FE C5D5C4                       395 K@END    DC    C'END'                                                   03130000
                                    396 *                                                                       03140000
                                    397 *                                                                       03150000
                                    398 **********************************************************************  03160000
                                    399 *        I/O BUFFER AREA                                                03170000
                                    400 **********************************************************************  03180000
                                    401 *                                                                       03190000
                                    402 *                                                                       03200000
                            000E9   403 CARD2LEN EQU   *-CARD2                                                  03210000
                            00003   404 CARD2CNT EQU   ((CARD2LEN+79)/80)                                       03220000                                                                                                               PAGE   10

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 12.09 11/11/11

000308                              405 RDBUF    DS    0D            I/O BUFFER                                 03230000
000308                      00308   406          ORG   ,                                                        03240000
                                    407 *                                                                       03250000
                                    408 *                                                                       03260000
                                    409 **********************************************************************  03270000
                                    410 *        BUFFER AREA TO MAKE SURE WE HAVE AT LEAST 80 BYTES FOR THE     03280000
                                    411 *        LAST CARD WE WRINTE                                            03290000
                                    412 **********************************************************************  03300000
                                    413 *                                                                       03310000
                                    414 *                                                                       03320000
000308                              415          DS    CL80          *** EXTRA BUFFER AREA ***                  03330000
                                    416 *                                                                       03340000
                                    417 *                                                                       03350000
                                    418 **********************************************************************  03360000
                                    419 *        REGISTER EQUATES                                               03370000
                                    420 **********************************************************************  03380000
                                    421 *                                                                       03390000
                                    422 *                                                                       03400000
                            00000   423 R0       EQU   0                                                        03410000
                            00001   424 R1       EQU   1                                                        03420000
                            00002   425 R2       EQU   2                                                        03430000
                            00003   426 R3       EQU   3                                                        03440000
                            00004   427 R4       EQU   4                                                        03450000
                            00005   428 R5       EQU   5                                                        03460000
                            00006   429 R6       EQU   6                                                        03470000
                            00007   430 R7       EQU   7                                                        03480000
                            00008   431 R8       EQU   8                                                        03490000
                            00009   432 R9       EQU   9                                                        03500000
                            0000A   433 R10      EQU   10                                                       03510000
                            0000B   434 R11      EQU   11                                                       03520000
                            0000C   435 R12      EQU   12                                                       03530000
                            0000D   436 R13      EQU   13                                                       03540000
                            0000E   437 R14      EQU   14                                                       03550000
                            0000F   438 R15      EQU   15                                                       03560000
                                    439 *                                                                       03570000
                                    440 *                                                                       03580000
                                    441          END   ,                                                        03590000                                                  RELOCATION DICTIONARY                                        PAGE   11

POS.ID   REL.ID   FLAGS   ADDRESS                                                                ASM 0201 12.09 11/11/11

 0001     0001      08     000019
 0001     0001      08     000069
                                                  CROSS-REFERENCE                                              PAGE   12

SYMBOL    LEN   VALUE   DEFN    REFERENCES                                                       ASM 0201 12.09 11/11/11

ABSLOAD  00001 00000000 00009  00012
CARD0    00001 00000178 00158  00031 00159
CARD1    00001 000001C8 00202  00039 00203
CARD2    00001 00000218 00246  00047 00052 00057 00403
CARD2LEN 00001 000000E9 00403  00404
CEDE     00002 000002F0 00388  00299
CLA      00001 00002000 00147  00169 00176 00186 00210 00220 00230
ERR0     00006 000002B8 00364  00300
ERR1     00004 000002C2 00366  00277
ERR2     00004 000002C6 00367  00286
ERR3     00004 000002CA 00368  00307 00324
K@END    00003 000002FE 00395  00321
K@ESD    00003 000002F8 00393  00312
K@RLD    00003 000002F5 00392  00315
K@SYM    00003 000002F2 00391  00309
K@TXT    00003 000002FB 00394  00318
LDEND    00002 000002AA 00345  00322
LDMVC    00006 000002A4 00338  00335
LDTXT    00002 00000290 00330  00319
LOADIT   00002 00000248 00298  00285
PSWERR0  00001 000002D0 00377  00364 00365
PSWERR1  00001 000002D8 00378  00366
PSWERR2  00001 000002E0 00379  00367
PSWERR3  00001 000002E8 00380  00368
PUNCH    00004 00000118 00091  00024 00030 00038 00046 00051 00056 00070
RDBUF    00008 00000308 00405  00265 00306 00309 00312 00315 00318 00321 00332 00333 00338
RDCCW    00001 000002B0 00355  00266 00273
RDLP     00002 00000228 00272  00310 00313 00316 00336
RDTIO    00002 00000238 00283  00287
R1       00001 00000001 00424  00014 00015 00016 00017 00265 00266 00273 00274
R10      00001 0000000A 00433  00251 00252
R12      00001 0000000C 00435  00010 00011 00012 00075 00144
R13      00001 0000000D 00436  00010 00015 00016 00017 00074 00074 00075
R14      00001 0000000E 00437  00010 00075 00077
R15      00001 0000000F 00438  00011 00076 00076
R3       00001 00000003 00426  00258 00258 00259 00276 00284
R4       00001 00000004 00427  00331 00331 00332 00338
R5       00001 00000005 00428  00333 00334 00335
SAVEA    00004 000000D0 00083  00014                                                  ASSEMBLER DIAGNOSTICS AND STATISTICS                         PAGE   13

                                                                                                 ASM 0201 12.09 11/11/11

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS    0
OPTIONS FOR THIS ASSEMBLY
  ALIGN, ALOGIC, BUFSIZE(STD), DECK, ESD, FLAG(0), LINECOUNT(44), LIST, NOMCALL, YFLAG, WORKSIZE(2097152)
  NOMLOGIC, NONUMBER, NOOBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST, XREF(SHORT)
  SYSPARM()
WORK FILE BUFFER SIZE/NUMBER =19066/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT        359
TOTAL RECORDS READ FROM SYSTEM LIBRARY     3144
TOTAL RECORDS PUNCHED                        19
TOTAL RECORDS PRINTED                       469

[Next – Absolute Loader Description]

Leave a Reply

Your email address will not be published. Required fields are marked *