{"id":104,"date":"2011-08-22T18:18:17","date_gmt":"2011-08-22T23:18:17","guid":{"rendered":"http:\/\/tommysprinkle.com\/txxos\/?p=104"},"modified":"2021-04-17T18:30:26","modified_gmt":"2021-04-17T23:30:26","slug":"card80-assembly-listing","status":"publish","type":"post","link":"https:\/\/tommysprinkle.com\/txxos\/?p=104","title":{"rendered":"CARD80 Assembly Listing"},"content":{"rendered":"<pre>                                                                                                               PAGE    2\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08\/19\/11\r\n\r\n                                      1 **********************************************************************  00010000\r\n                                      2 * CARD80                                                                00020000\r\n                                      3 *                                                                       00030000\r\n                                      4 * PUNCH OUT A CARD DECK THAT WILL IPL AND THEN READ REMAINDING CARD     00040000\r\n                                      5 * IN CARD READER AND LIST THEM TO A PRINTER                             00050000\r\n                                      6 *                                                                       00060000\r\n                                      7 **********************************************************************  00070000\r\n000000                                8 CARD80   CSECT ,                                                        00080000\r\n000000 90EC D00C      0000C           9          STM   R14,R12,12(R13)    SAVE CALLERS REGISTERS                00090000\r\n000004 18CF                          10          LR    R12,R15            R12 IS PROGRAM BASE                   00100000\r\n                            00000    11          USING CARD80,R12                                               00110000\r\n                                     12 *                                                                       00120000\r\n000006 4110 C128      00128          13          LA    R1,SAVEA           POINT TO NEW SAVE AREA                00130000\r\n00000A 5010 D008      00008          14          ST    R1,8(,R13)         CHAIN                                 00140000\r\n00000E 50D0 1004      00004          15          ST    R13,4(,R1)              ON                               00150000\r\n000012 18D1                          16          LR    R13,R1                    SAVEAREA                       00160000\r\n                                     17 *                                                                       00170000\r\n                                     18 *                                                                       00180000\r\n                                     19          OPEN  (PUNCH,OUTPUT)     OPEN OUTPUT FILE                      00190000\r\n000014                               20+         CNOP  0,4                               ALIGN LIST TO FULLWORD 01740001\r\n000014 4510 C01C      0001C          21+         BAL   1,*+8                             LOAD REG1 W\/LIST ADDR. 01780000\r\n000018 8F                            22+         DC    AL1(143)                          OPTION BYTE            01900000\r\n000019 000170                        23+         DC    AL3(PUNCH)                        DCB ADDRESS            01920000\r\n00001C 0A13                          24+         SVC   19                                ISSUE OPEN SVC         04000000\r\n                                     25 **********************************************************************  00200000\r\n                                     26 *  WRITE FIRST IPL CARD WITH 24 BYTES OF DATA (PSW,CCW,CCW)             00210000\r\n                                     27 **********************************************************************  00220000\r\n                                     28          PUT   PUNCH,CARD0        WRITE INITIAL IPL RECORD              00230000\r\n00001E 4110 C170      00170          29+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n000022 4100 C1D0      001D0          30+         LA    0,CARD0                           LOAD PARAMETER REG 0   02500002\r\n000026 58F0 1030      00030          31+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n00002A 05EF                          32+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     33 **********************************************************************  00240000\r\n                                     34 *  WRITE SECOND IPL CARD WITH ADDITIONAL READ CCW'S                     00250000\r\n                                     35 **********************************************************************  00260000\r\n                                     36          PUT   PUNCH,CARD1        WRITE SECOND IPL RECORD               00270000\r\n00002C 4110 C170      00170          37+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n000030 4100 C220      00220          38+         LA    0,CARD1                           LOAD PARAMETER REG 0   02500002\r\n000034 58F0 1030      00030          39+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n000038 05EF                          40+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     41 **********************************************************************  00280000\r\n                                     42 *  WRITE 3 CARDS CONTAINING EXECUTABLE CODE                             00290000\r\n                                     43 **********************************************************************  00300000\r\n                                     44          PUT   PUNCH,CARD2        WRITE DATA                            00310000\r\n                                                                                                               PAGE    3\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08\/19\/11\r\n\r\n00003A 4110 C170      00170          45+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n00003E 4100 C270      00270          46+         LA    0,CARD2                           LOAD PARAMETER REG 0   02500002\r\n000042 58F0 1030      00030          47+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n000046 05EF                          48+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     49          PUT   PUNCH,CARD2+80     WRITE DATA                            00320000\r\n000048 4110 C170      00170          50+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n00004C 4100 C2C0      002C0          51+         LA    0,CARD2+80                        LOAD PARAMETER REG 0   02500002\r\n000050 58F0 1030      00030          52+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n000054 05EF                          53+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     54          PUT   PUNCH,CARD2+160    WRITE DATA                            00330000\r\n000056 4110 C170      00170          55+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n00005A 4100 C310      00310          56+         LA    0,CARD2+160                       LOAD PARAMETER REG 0   02500002\r\n00005E 58F0 1030      00030          57+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n000062 05EF                          58+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n                                     59 **********************************************************************  00340000\r\n                                     60 *                                                                       00350000\r\n                                     61 *        NOW WRITE SOME TEST DATA CARDS BECHIND IPL PROGRAM             00360000\r\n                                     62 *                                                                       00370000\r\n                                     63 **********************************************************************  00380000\r\n000064 4130 000A      0000A          64          LA    R3,10              TIMES TO REPEAT LOOP                  00390000\r\n000068 4140 C0B8      000B8          65          LA    R4,=C'01020304050607080910'                              00400000\r\n00006C 4150 C0CC      000CC          66          LA    R5,=C'*+@#$%-() '                                        00410000\r\n000070                               67 LOOP     DS    0H                                                       00420000\r\n000070 D200 C0D6 5000 000D6 00000    68          MVC   BUF(1),0(R5)       CHAR TO REPEAT                        00430000\r\n000076 D24E C0D7 C0D6 000D7 000D6    69          MVC   BUF+1(79),BUF      FILL BUFFER                           00440000\r\n00007C D201 C0D6 4000 000D6 00000    70          MVC   BUF(2),0(R4)       CARD NUMBER                           00450000\r\n000082 9240 C0D8      000D8          71          MVI   BUF+2,C' '         AND A SPACE                           00460000\r\n                                     72          PUT   PUNCH,BUF                                                00470000\r\n000086 4110 C170      00170          73+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002\r\n00008A 4100 C0D6      000D6          74+         LA    0,BUF                             LOAD PARAMETER REG 0   02500002\r\n00008E 58F0 1030      00030          75+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000\r\n000092 05EF                          76+         BALR  14,15                    LINK TO PUT ROUTINE             00600000\r\n000094 4140 4002      00002          77          LA    R4,2(,R4)          INCREMENT                             00480000\r\n000098 4150 5001      00001          78          LA    R5,1(,R5)                                                00490000\r\n00009C 4630 C070      00070          79          BCT   R3,LOOP            LOOP BACK                             00500000\r\n                                     80 *                                                                       00510000\r\n                                     81          CLOSE (PUNCH)                                                  00520000\r\n0000A0                               82+         CNOP  0,4                               ALIGN LIST TO FULLWORD 02420002\r\n0000A0 4510 C0A8      000A8          83+         BAL   1,*+8                             LOAD REG1 W\/LIST ADDR  02460002\r\n0000A4 80                            84+         DC    AL1(128)                          OPTION BYTE            02580000\r\n0000A5 000170                        85+         DC    AL3(PUNCH)                        DCB ADDRESS            02600000\r\n0000A8 0A14                          86+         SVC   20                                ISSUE CLOSE SVC        01640000\r\n                                     87 *                                                                       00530000\r\n                                     88 *                                                                       00540000\r\n                                                                                                               PAGE    4\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08\/19\/11\r\n\r\n0000AA 58D0 D004      00004          89          L     R13,4(,R13)        PREV SAVE AREA                        00550000\r\n0000AE 98EC D00C      0000C          90          LM    R14,R12,12(R13)    RESTORE CALLERS REGISTERS             00560000\r\n0000B2 1FFF                          91          SLR   R15,R15            RC=0                                  00570000\r\n0000B4 07FE                          92          BR    R14                                                      00580000\r\n                                     93 *                                                                       00590000\r\n0000B8                               94          LTORG ,                                                        00600000\r\n0000B8 F0F1F0F2F0F3F0F4              95                =C'01020304050607080910'\r\n0000CC 5C4E7C7B5B6C604D              96                =C'*+@#$%-() '\r\n                                     97 *                                                                       00610000\r\n0000D6                               98 BUF      DS    CL80               CARD BUFFER                           00620000\r\n                                     99 *                                                                       00630000\r\n000128                              100 SAVEA    DS    18F                SAVEA AREA                            00640000\r\n                                    101 *                                                                       00650000\r\n                                    102 *                                                                       00660000\r\n                                    103          PRINT NOGEN                                                    00670000\r\n                                    104 PUNCH    DCB   DSORG=PS,MACRF=PM,BLKSIZE=80,LRECL=80,RECFM=F,          +00680000\r\n                                                       DDNAME=PUNCH                                             00690000\r\n                                    158          PRINT GEN                                                      00700000\r\n                                    159 *                                                                       00710000\r\n                                    160 *                                                                       00720000\r\n                                    161          DROP  R12                                                      00730000\r\n                                    162 **********************************************************************  00740000\r\n                                    163 **********************************************************************  00750000\r\n                                    164 ** FRIST CARD OF OUR IPL DECK                                           00760000\r\n                                    165 **    IT CONTAINS 24 BYTES - PSW AND TWO CCW'S                          00770000\r\n                                    166 **********************************************************************  00780000\r\n                                    167 **********************************************************************  00790000\r\n                                    168 *                                                                       00800000\r\n0001D0                              169          DS    0D                                                       00810000\r\n0001D0 0000000000000000             170 CARD0    DC    80XL1'00'          INITIAL IPL CARD                      00820000\r\n000220                      001D0   171          ORG   CARD0                                                    00830000\r\n                                    172 *                                                                       00840000\r\n                                    173 **********************************************************************  00850000\r\n                                    174 *        PSW                                                            00860000\r\n                                    175 **********************************************************************  00870000\r\n                                    176 *                                                                       00880000\r\n0001D0 00                           177 IPLPSW   DC    X'00'              I\/O &amp; EXT INTERRUPTS DISABLED         00890000\r\n0001D1 00                           178          DC    X'00'              KEY=0; BC; EXT INT DISABLED; SUP      00900000\r\n0001D2 0000                         179          DC    X'0000'                                                  00910000\r\n0001D4 00                           180          DC    X'00'              PROG INT DISABLED                     00920000\r\n0001D5 000400                       181          DC    AL3(1024)          INITIAL EXECUTION ADDRESS             00930000\r\n                                    182 *                                                                       00940000\r\n                                    183 **********************************************************************  00950000\r\n                                    184 *        CCW                                                            00960000\r\n                                                                                                               PAGE    5\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08\/19\/11\r\n\r\n                                    185 **********************************************************************  00970000\r\n                                    186 *                                                                       00980000\r\n0001D8 02                           187 CCW1     DC    X'02'              READ                                  00990000\r\n0001D9 000200                       188          DC    AL3(512)           ADDRESS FOR DATA                      01000000\r\n0001DC 60                           189          DC    X'60'              CC + SLI                              01010000\r\n0001DD 00                           190          DC    X'00'                                                    01020000\r\n0001DE 0050                         191          DC    AL2(80)            LENGTH                                01030000\r\n                                    192 *                                                                       01040000\r\n                                    193 **********************************************************************  01050000\r\n                                    194 *        CCW                                                            01060000\r\n                                    195 **********************************************************************  01070000\r\n                                    196 *                                                                       01080000\r\n0001E0 08                           197 CCW2     DC    X'08'              TIC                                   01090000\r\n0001E1 000200                       198          DC    AL3(512)           NEXT CCW ADDRESS                      01100000\r\n0001E4 00                           199          DC    X'00'              CC + SLI                              01110000\r\n0001E5 00                           200          DC    X'00'                                                    01120000\r\n0001E6 0000                         201          DC    AL2(0)             LENGTH                                01130000\r\n                                    202 *                                                                       01140000\r\n                                    203 *                                                                       01150000\r\n0001E8                      00220   204          ORG   ,                  RESTORE LOC TO HIGHEST                01160000\r\n                                    205 *                                                                       01170000\r\n                                    206 **********************************************************************  01180000\r\n                                    207 **********************************************************************  01190000\r\n                                    208 ** SECOND CARD OF OUR IPL DECK                                          01200000\r\n                                    209 **    IT CONTAINS THREE CCW'S                                           01210000\r\n                                    210 **    THESE CCW'S READ THE THREE CARDS CONTAINING EXECUTABLE CODE       01220000\r\n                                    211 **********************************************************************  01230000\r\n                                    212 **********************************************************************  01240000\r\n000220                              213          DS    0D                                                       01250000\r\n000220 0000000000000000             214 CARD1    DC    80XL1'00'          SECOND IPL CARD                       01260000\r\n000270                      00220   215          ORG   CARD1                                                    01270000\r\n                                    216 *                                                                       01280000\r\n                                    217 **********************************************************************  01290000\r\n                                    218 *        CCW                                                            01300000\r\n                                    219 **********************************************************************  01310000\r\n                                    220 *                                                                       01320000\r\n000220 02                           221 CCW3     DC    X'02'              READ                                  01330000\r\n000221 000400                       222          DC    AL3(1024)          ADDRESS FOR DATA                      01340000\r\n000224 60                           223          DC    X'60'              CC + SLI                              01350000\r\n000225 00                           224          DC    X'00'                                                    01360000\r\n000226 0050                         225          DC    AL2(80)            LENGTH                                01370000\r\n                                    226 *                                                                       01380000\r\n                                    227 **********************************************************************  01390000\r\n                                    228 *        CCW                                                            01400000\r\n                                                                                                               PAGE    6\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08\/19\/11\r\n\r\n                                    229 **********************************************************************  01410000\r\n                                    230 *                                                                       01420000\r\n000228 02                           231 CCW4     DC    X'02'              READ                                  01430000\r\n000229 000450                       232          DC    AL3(1024+80)       ADDRESS FOR DATA                      01440000\r\n00022C 60                           233          DC    X'60'              CC + SLI                              01450000\r\n00022D 00                           234          DC    X'00'                                                    01460000\r\n00022E 0050                         235          DC    AL2(80)            LENGTH                                01470000\r\n                                    236 *                                                                       01480000\r\n                                    237 **********************************************************************  01490000\r\n                                    238 *        CCW                                                            01500000\r\n                                    239 **********************************************************************  01510000\r\n                                    240 *                                                                       01520000\r\n000230 02                           241 CCW5     DC    X'02'              READ                                  01530000\r\n000231 0004A0                       242          DC    AL3(1024+160)      ADDRESS FOR DATA                      01540000\r\n000234 20                           243          DC    X'20'              SLI                                   01550000\r\n000235 00                           244          DC    X'00'                                                    01560000\r\n000236 0050                         245          DC    AL2(80)            LENGTH                                01570000\r\n                                    246 *                                                                       01580000\r\n                                    247 *                                                                       01590000\r\n                                    248 *                                                                       01600000\r\n                                    249 *                                                                       01610000\r\n000238                      00270   250          ORG   ,                  RESTORE LOC TO HIGHEST                01620000\r\n                                    251 *                                                                       01630000\r\n                                    252 **********************************************************************  01640000\r\n                                    253 **********************************************************************  01650000\r\n                                    254 ** THIRD, FOURTH AND FIFTH CARDS OF IPL DECK                            01660000\r\n                                    255 **    IT CONTAINS THE EXECUTABLE PROGRAM                                01670000\r\n                                    256 **********************************************************************  01680000\r\n                                    257 **********************************************************************  01690000\r\n000270                              258          DS    0D                                                       01700000\r\n000270                              259 CARD2    DS    0X                 SECOND IPL CARD                       01710000\r\n                                    260 **********************************************************************  01720000\r\n                                    261 *        EXECUTABLE PROGRAM BEINGS HERE                                 01730000\r\n                                    262 **********************************************************************  01740000\r\n000270                              263 BEGIN    DS    0H                                                       01750000\r\n000270 05A0                         264          BALR  R10,0              ESTABLISH BASE REG                    01760000\r\n                            00272   265          USING *,R10                                                    01770000\r\n                                    266 *                                                                       01780000\r\n                                    267 **********************************************************************  01790000\r\n                                    268 *        GET DEVICE PHYSICAL ADDRESSES R3=RDR R4=PRT                    01800000\r\n                                    269 **********************************************************************  01810000\r\n                                    270 *                                                                       01820000\r\n000272 1F33                         271          SLR   R3,R3              CLEAR R3                              01830000\r\n000274 BF33 0002      00002         272          ICM   R3,B'0011',2       GET IPL DEVICE (CARD RDR)             01840000\r\n                                                                                                               PAGE    7\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08\/19\/11\r\n\r\n000278 4140 000E      0000E         273          LA    R4,X'E'            ASSUME PRINTER AT 00E                 01850000\r\n                                    274 *                                                                       01860000\r\n                                    275 **********************************************************************  01870000\r\n                                    276 *        PUT THE I\/O BUFFER ADDRESS INTO THE CCW'S                      01880000\r\n                                    277 **********************************************************************  01890000\r\n                                    278 *                                                                       01900000\r\n00027C 4110 A0C0      00332         279          LA    R1,RDBUF           READ BUFFER                           01910000\r\n000280 BE17 A067      002D9         280          STCM  R1,B'0111',RDCCW+1 ADDRESS TO READ CCW                   01920000\r\n000284 BE17 A06F      002E1         281          STCM  R1,B'0111',PRCCW+1 ADDRESS TO PRINT CCW                  01930000\r\n                                    282 *                                                                       01940000\r\n                                    283 **********************************************************************  01950000\r\n                                    284 *        PROGRAM MAIN LOOP                                              01960000\r\n                                    285 **********************************************************************  01970000\r\n                                    286 *                                                                       01980000\r\n000288                              287 RDLP     DS    0H                                                       01990000\r\n000288 4110 A066      002D8         288          LA    R1,RDCCW           GET ADDR OF READ CCW                  02000000\r\n00028C 5010 0048      00048         289          ST    R1,72              PUT INTO CAW                          02010000\r\n                                    290 *                                                                       02020000\r\n000290 9C00 3000      00000         291          SIO   0(R3)              ISSUE READ                            02030000\r\n000294 4770 A080      002F2         292          BNZ   ERR1               BRANCH IF ERROR                       02040000\r\n                                    293 *                                                                       02050000\r\n                                    294 **********************************************************************  02060000\r\n                                    295 *        WAIT FOR READ I\/O TO COMPLETE                                  02070000\r\n                                    296 **********************************************************************  02080000\r\n                                    297 *                                                                       02090000\r\n000298                              298 RDTIO    DS    0H                                                       02100000\r\n000298 9D00 3000      00000         299          TIO   0(R3)              CHECK FOR I\/O COMPLETION              02110000\r\n00029C 4780 A036      002A8         300          BZ    PRT                GO PRINT IF GOOD                      02120000\r\n0002A0 4710 A084      002F6         301          BC    1,ERR2             BRAHCH IF ERR                         02130000\r\n0002A4 47F0 A026      00298         302          B     RDTIO              WAIT AGAIN                            02140000\r\n                                    303 *                                                                       02150000\r\n                                    304 **********************************************************************  02160000\r\n                                    305 *        CHECK FOR SUCCESSFUL COMPLETION OF I\/O                         02170000\r\n                                    306 *                                                                       02180000\r\n                                    307 *        EXPECT ONLY CHANNEL END + DEVICE END                           02190000\r\n                                    308 *                                                                       02200000\r\n                                    309 *        ANYTHING ELSE WE QUIT                                          02210000\r\n                                    310 *                                                                       02220000\r\n                                    311 **********************************************************************  02230000\r\n                                    312 *                                                                       02240000\r\n0002A8                              313 PRT      DS    0H                                                       02250000\r\n0002A8 D501 A0BE 0044 00330 00044   314          CLC   CEDE,68            CE+DE                                 02260000\r\n0002AE 4770 A076      002E8         315          BNE   ERR0               NO - QUIT                             02270000\r\n                                    316 *                                                                       02280000\r\n                                                                                                               PAGE    8\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08\/19\/11\r\n\r\n                                    317 **********************************************************************  02290000\r\n                                    318 *        SET UP CAW FOR PRINT                                           02300000\r\n                                    319 **********************************************************************  02310000\r\n                                    320 *                                                                       02320000\r\n0002B2 4110 A06E      002E0         321          LA    R1,PRCCW           POINT TO PRINT CCW                    02330000\r\n0002B6 5010 0048      00048         322          ST    R1,72              SAVE ADDRESS IN CAW                   02340000\r\n                                    323 *                                                                       02350000\r\n0002BA 9C00 4000      00000         324          SIO   0(R4)              PRINT LINE                            02360000\r\n0002BE 4770 A088      002FA         325          BNZ   ERR3               BRANCH IF ERROR                       02370000\r\n                                    326 *                                                                       02380000\r\n                                    327 **********************************************************************  02390000\r\n                                    328 *        WAIT FOR I\/O TO COMPLETE                                       02400000\r\n                                    329 **********************************************************************  02410000\r\n                                    330 *                                                                       02420000\r\n0002C2                              331 PRTTIO   DS    0H                                                       02430000\r\n0002C2 9D00 4000      00000         332          TIO   0(R4)              CHECK FOR I\/O COMPLETE                02440000\r\n0002C6 4780 A016      00288         333          BZ    RDLP               DONE - GO READ NEXT CARD              02450000\r\n0002CA 4710 A08C      002FE         334          BC    1,ERR4             BRANCH IF ERROR                       02460000\r\n                                    335 *                                                                       02470000\r\n                                    336 **********************************************************************  02480000\r\n                                    337 *        LOOP BACK AND READ NEXT CARD                                   02490000\r\n                                    338 **********************************************************************  02500000\r\n                                    339 *                                                                       02510000\r\n0002CE 47F0 A050      002C2         340          B     PRTTIO             WAIT AGAIN                            02520000\r\n                                    341 *                                                                       02530000\r\n                                    342 *                                                                       02540000\r\n                                    343 **********************************************************************  02550000\r\n                                    344 *        CCW'S TO READ AND PRINT                                        02560000\r\n                                    345 **********************************************************************  02570000\r\n                                    346 *                                                                       02580000\r\n                                    347 *                                                                       02590000\r\n0002D8                              348          DS    0D                                                       02600000\r\n0002D8 0200000000000050             349 RDCCW    DC    X'02',AL3(0),X'0000',AL2(80)                             02610000\r\n0002E0 0900000000000050             350 PRCCW    DC    X'09',AL3(0),X'0000',AL2(80)                             02620000\r\n                                    351 *                                                                       02630000\r\n                                    352 *                                                                       02640000\r\n                                    353 **********************************************************************  02650000\r\n                                    354 *        ERROR ROUTINES                                                 02660000\r\n                                    355 *           LOAD PSW WITH WAIT BIT SET TO ONE                           02670000\r\n                                    356 **********************************************************************  02680000\r\n                                    357 *                                                                       02690000\r\n                                    358 *                                                                       02700000\r\n0002E8 D201 A09C 0044 0030E 00044   359 ERR0     MVC   PSWERR0+6(2),68                                          02710000\r\n0002EE 8200 A096      00308         360          LPSW  PSWERR0                                                  02720000\r\n                                                                                                               PAGE    9\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08\/19\/11\r\n\r\n0002F2 8200 A09E      00310         361 ERR1     LPSW  PSWERR1                                                  02730000\r\n0002F6 8200 A0A6      00318         362 ERR2     LPSW  PSWERR2                                                  02740000\r\n0002FA 8200 A0AE      00320         363 ERR3     LPSW  PSWERR3                                                  02750000\r\n0002FE 8200 A0B6      00328         364 ERR4     LPSW  PSWERR4                                                  02760000\r\n                                    365 *                                                                       02770000\r\n                                    366 *                                                                       02780000\r\n                                    367 **********************************************************************  02790000\r\n                                    368 *        WAIT PSW'S                                                     02800000\r\n                                    369 **********************************************************************  02810000\r\n                                    370 *                                                                       02820000\r\n                                    371 *                                                                       02830000\r\n000308                              372          DS    0D                                                       02840000\r\n000308 0002000000000000             373 PSWERR0  DC    X'00',X'02',X'0000',X'00',X'000000'                      02850000\r\n000310 0002000000EE0001             374 PSWERR1  DC    X'00',X'02',X'0000',X'00',X'EE0001'                      02860000\r\n000318 0002000000EE0002             375 PSWERR2  DC    X'00',X'02',X'0000',X'00',X'EE0002'                      02870000\r\n000320 0002000000EE0003             376 PSWERR3  DC    X'00',X'02',X'0000',X'00',X'EE0003'                      02880000\r\n000328 0002000000EE0004             377 PSWERR4  DC    X'00',X'02',X'0000',X'00',X'EE0004'                      02890000\r\n                                    378 *                                                                       02900000\r\n                                    379 *                                                                       02910000\r\n                                    380 **********************************************************************  02920000\r\n                                    381 *        CHANNEL END + DEVICE END                                       02930000\r\n                                    382 **********************************************************************  02940000\r\n                                    383 *                                                                       02950000\r\n                                    384 *                                                                       02960000\r\n000330 0C00                         385 CEDE     DC    X'0C00'            CHANNEL END + DEVICE END              02970000\r\n                                    386 *                                                                       02980000\r\n                                    387 *                                                                       02990000\r\n                                    388 **********************************************************************  03000000\r\n                                    389 *        I\/O BUFFER AREA                                                03010000\r\n                                    390 **********************************************************************  03020000\r\n                                    391 *                                                                       03030000\r\n                                    392 *                                                                       03040000\r\n                            000C2   393 CARD2LEN EQU   *-CARD2                                                  03050000\r\n000332                              394 RDBUF    DS    0C            I\/O BUFFER                                 03060000\r\n000332                      00332   395          ORG   ,                                                        03070000\r\n                                    396 *                                                                       03080000\r\n                                    397 *                                                                       03090000\r\n                                    398 **********************************************************************  03100000\r\n                                    399 *        BUFFER AREA TO MAKE SURE WE HAVE AT LEAST 80 BYTES FOR THE     03110000\r\n                                    400 *        LAST CARD WE WRINTE                                            03120000\r\n                                    401 **********************************************************************  03130000\r\n                                    402 *                                                                       03140000\r\n                                    403 *                                                                       03150000\r\n000332                              404          DS    CL80          *** EXTRA BUFFER AREA ***                  03160000\r\n                                                                                                               PAGE   10\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08\/19\/11\r\n\r\n                                    405 *                                                                       03170000\r\n                                    406 *                                                                       03180000\r\n                                    407 **********************************************************************  03190000\r\n                                    408 *        REGISTER EQUATES                                               03200000\r\n                                    409 **********************************************************************  03210000\r\n                                    410 *                                                                       03220000\r\n                                    411 *                                                                       03230000\r\n                            00000   412 R0       EQU   0                                                        03240000\r\n                            00001   413 R1       EQU   1                                                        03250000\r\n                            00002   414 R2       EQU   2                                                        03260000\r\n                            00003   415 R3       EQU   3                                                        03270000\r\n                            00004   416 R4       EQU   4                                                        03280000\r\n                            00005   417 R5       EQU   5                                                        03290000\r\n                            00006   418 R6       EQU   6                                                        03300000\r\n                            00007   419 R7       EQU   7                                                        03310000\r\n                            00008   420 R8       EQU   8                                                        03320000\r\n                            00009   421 R9       EQU   9                                                        03330000\r\n                            0000A   422 R10      EQU   10                                                       03340000\r\n                            0000B   423 R11      EQU   11                                                       03350000\r\n                            0000C   424 R12      EQU   12                                                       03360000\r\n                            0000D   425 R13      EQU   13                                                       03370000\r\n                            0000E   426 R14      EQU   14                                                       03380000\r\n                            0000F   427 R15      EQU   15                                                       03390000\r\n                                    428 *                                                                       03400000\r\n                                    429 *                                                                       03410000\r\n                                    430          END   ,                                                        03420000<\/pre>\n<p><a title=\"Assemble and Execute\" href=\"http:\/\/tommysprinkle.com\/txxos\/?p=111\">[Next &#8211; Assemble and Execute]<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>PAGE 2 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 17.10 08\/19\/11 1 ********************************************************************** 00010000 2 * CARD80 00020000 3 * 00030000 4 * PUNCH OUT A CARD DECK THAT WILL IPL AND THEN READ REMAINDING CARD 00040000 &hellip; <a href=\"https:\/\/tommysprinkle.com\/txxos\/?p=104\">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-104","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p1CPQT-1G","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/104","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=104"}],"version-history":[{"count":5,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/104\/revisions"}],"predecessor-version":[{"id":106,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/104\/revisions\/106"}],"wp:attachment":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=104"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=104"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=104"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}