{"id":247,"date":"2011-12-11T16:14:02","date_gmt":"2011-12-11T22:14:02","guid":{"rendered":"http:\/\/tommysprinkle.com\/txxos\/?p=247"},"modified":"2021-04-17T18:25:48","modified_gmt":"2021-04-17T23:25:48","slug":"disk3-assembly-listing","status":"publish","type":"post","link":"https:\/\/tommysprinkle.com\/txxos\/?p=247","title":{"rendered":"DISK3 Assembly Listing &#8211; Part 1"},"content":{"rendered":"<pre>                                                                                                               PAGE    2\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n                                      1 *********************************************************************   00010000\r\n                                      2 *                                                                       00020000\r\n                                      3 *       XXXX   XXXXX   XXXX  X  X  XXXX                                 00030000\r\n                                      4 *       X   X    X    X      X X       X                                00040000\r\n                                      5 *       X   X    X     XXX   XX    XXXX                                 00050000\r\n                                      6 *       X   X    X        X  X X       X                                00060000\r\n                                      7 *       XXXX   XXXXX  XXXX   X  X  XXXX                                 00070000\r\n                                      8 *                                                                       00080000\r\n                                      9 *********************************************************************   00090000\r\n000000                               10 DISK3    START 0                                                        00100000\r\n000000 0000000000000800              11 STARTPSW DC    X'0000000000',AL3(BEGIN)                                 00110000\r\n                                     12 *                                                                       00120000\r\n                                     13 *                                                                       00130000\r\n000008                      00800    14          ORG   DISK3+2048    BEING AT 2K                                00140000\r\n                                     15 *                                                                       00150000\r\n000800 05C0                          16 BEGIN    BALR  R12,0         SET BASE REGISTER                          00160000\r\n                            00802    17          USING *,R12,R11                                                00170000\r\n                                     18 *                                                                       00180000\r\n000802 41B0 C800      00800          19          LA    R11,2048(,R12)  SET UP                                   00190000\r\n000806 41B0 B800      00800          20          LA    R11,2048(,R11)        SECOND BASE REGISTER               00200000\r\n                                     21 *                                                                       00210000\r\n00080A 41D0 C8E6      010E8          22          LA    R13,SAVEA     FIRST SAVE AREA                            00220000\r\n                                     23 *                                                                       00230000\r\n                                     24 *********************************************************************   00240000\r\n                                     25 * READ THE VOLUME LABLE TO GET THE VTOC BEGINNING ADDRESS               00250000\r\n                                     26 *                                                                       00260000\r\n                                     27 *   VOL1 LABEL RECORD AT CC=00 HH=00 R=3 DATA LENGTH=80                 00270000\r\n                                     28 *********************************************************************   00280000\r\n                                     29 *                                                                       00290000\r\n                                     30          @PRINT '---READ VOLUME LABEL'                                  00300000\r\n00080E 4110 C756      00F58          31+         LA     R1,=C'---READ VOLUME LABEL'                             00170000\r\n000812 4100 0014      00014          32+         LA     R0,20                                                   00200000\r\n000816 41F0 C43C      00C3E          33+         LA     R15,@PRINT                                              00210000\r\n00081A 05EF                          34+         BALR   R14,R15                                                 00220000\r\n                                     35 *                                                                       00310000\r\n00081C 4110 0050      00050          36          LA    R1,80              VOL1 LENGTH                           00320000\r\n000820 5010 C8BA      010BC          37          ST    R1,CCWREAD+4                                             00330000\r\n000824 4110 CAFE      01300          38          LA    R1,INBUF           BUFFER ADDRESS                        00340000\r\n000828 5010 C8B6      010B8          39          ST    R1,CCWREAD                                               00350000\r\n00082C 9206 C8B6      010B8          40          MVI   CCWREAD,X'06'      READ DATA                             00360000\r\n                                     41 *                                                                       00370000\r\n000830 D204 CA19 C7F0 0121B 00FF2    42          MVC   CCHHR(5),=X'0000000003'  CC=00 H=00 R=3 (VOL1)           00380000\r\n                                     43 *                                                                       00390000\r\n000836 4110 C9FE      01200          44          LA    R1,IORB                                                  00400000\r\n                                                                                                               PAGE    3\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n00083A 45E0 C31E      00B20          45          BAL   R14,XIO            EXECUTE THE CCW CHAIN                 00410000\r\n00083E 12FF                          46          LTR   R15,R15                                                  00420000\r\n000840 4770 C438      00C3A          47          BNZ   ERREXIT            BRANCH IF FAILED                      00430000\r\n                                     48 *                                                                       00440000\r\n                                     49 *********************************************************************   00450000\r\n                                     50 * READ THE FMT 4 DSCB                                                   00460000\r\n                                     51 *                                                                       00470000\r\n                                     52 *   VTOC BEGINNING CCHHR FROM VOL1 RECORD                               00480000\r\n                                     53 *********************************************************************   00490000\r\n                                     54 *                                                                       00500000\r\n                                     55          @PRINT '-----READ FORMAT 4 DSCB'                               00510000\r\n000844 4110 C7F5      00FF7          56+         LA     R1,=C'-----READ FORMAT 4 DSCB'                          00170000\r\n000848 4100 0017      00017          57+         LA     R0,23                                                   00200000\r\n00084C 41F0 C43C      00C3E          58+         LA     R15,@PRINT                                              00210000\r\n000850 05EF                          59+         BALR   R14,R15                                                 00220000\r\n                                     60 *                                                                       00520000\r\n000852 D204 C8BE CB09 010C0 0130B    61          MVC   VTOCADDR,INBUF+11  SAVE VTOC ADDRESS FROM VOL RECORD     00530000\r\n                                     62 *                                                                       00540000\r\n000858 D204 CA19 C8BE 0121B 010C0    63          MVC   CCHHR(5),VTOCADDR                                        00550000\r\n                                     64 *                                                                       00560000\r\n00085E 4110 0060      00060          65          LA    R1,96              DSCB DATA LENGTH                      00570000\r\n000862 5010 C8BA      010BC          66          ST    R1,CCWREAD+4                                             00580000\r\n000866 4110 C996      01198          67          LA    R1,DSCB1BUF        I\/O BUFFER                            00590000\r\n00086A 5010 C8B6      010B8          68          ST    R1,CCWREAD                                               00600000\r\n00086E 9206 C8B6      010B8          69          MVI   CCWREAD,X'06'      READ DATA                             00610000\r\n                                     70 *                                                                       00620000\r\n000872 4110 C9FE      01200          71          LA    R1,IORB                                                  00630000\r\n000876 45E0 C31E      00B20          72          BAL   R14,XIO            EXECUTE CCW CHAIN                     00640000\r\n00087A 12FF                          73          LTR   R15,R15                                                  00650000\r\n00087C 4770 C438      00C3A          74          BNZ   ERREXIT            BRANCH IF ERROR                       00660000\r\n                                     75 *                                                                       00670000\r\n000880 D203 C8C3 C9D9 010C5 011DB    76          MVC   VTOCEND,DSCB1BUF+67  ENDING CCHH OF VTOC EXTENT          00680000\r\n000886 D204 C8C7 C997 010C9 01199    77          MVC   HIWATER,DSCB1BUF+1   SAVE HIGHT WATER DSCB ADDRESS       00690000\r\n00088C 1F11                          78          SLR   R1,R1                                                    00700000\r\n00088E BF13 C9AA      011AC          79          ICM   R1,B'0011',DSCB1BUF+20  GET TRKS\/CYL                     00710000\r\n000892 4010 C8D0      010D2          80          STH   R1,TRKCYL          SAVE TRKS\/CYL                         00720000\r\n                                     81 *                                                                       00730000\r\n                                     82 *********************************************************************   00740000\r\n                                     83 * FIND FMT 1 DSCB FOR 'TXXOS.NUCLEUS'                                   00750000\r\n                                     84 *                                                                       00760000\r\n                                     85 *   SEARCH FOR FMT1 DSCB                                                00770000\r\n                                     86 *********************************************************************   00780000\r\n                                     87 *                                                                       00790000\r\n                                     88          @PRINT '-----FIND FORMAT 1 DSCB ''TXXOS.NUCLEUS'''             00800000\r\n                                                                                                               PAGE    4\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n000896 4110 C80C      0100E          89+         LA     R1,=C'-----FIND FORMAT 1 DSCB ''TXXOS.NUCLEUS'''        00170000\r\n00089A 4100 0029      00029          90+         LA     R0,41                                                   00200000\r\n00089E 41F0 C43C      00C3E          91+         LA     R15,@PRINT                                              00210000\r\n0008A2 05EF                          92+         BALR   R14,R15                                                 00220000\r\n                                     93 *                                                                       00810000\r\n0008A4 4110 0060      00060          94          LA    R1,96              DSCB DATA LENGTH                      00820000\r\n0008A8 5010 C8BA      010BC          95          ST    R1,CCWREAD+4                                             00830000\r\n0008AC 4110 CAFE      01300          96          LA    R1,INBUF           I\/O BUFFER ADDR                       00840000\r\n0008B0 5010 C8B6      010B8          97          ST    R1,CCWREAD                                               00850000\r\n0008B4 9206 C8B6      010B8          98          MVI   CCWREAD,X'06'      READ DATA                             00860000\r\n                                     99 *                                                                       00870000\r\n0008B8 4110 002C      0002C         100          LA    R1,44              KEY LENGTH FOR DSCB BLOCK             00880000\r\n0008BC 5010 C8AA      010AC         101          ST    R1,CCWSRCH+4                                             00890000\r\n0008C0 9240 C8AA      010AC         102          MVI   CCWSRCH+4,@CCW#CC  + COMMAND CHAIN                       00900000\r\n0008C4 4110 C868      0106A         103          LA    R1,DSNAME          KEY (NAME TO SEARCH FOR)              00910000\r\n0008C8 5010 C8A6      010A8         104          ST    R1,CCWSRCH                                               00920000\r\n0008CC 9229 C8A6      010A8         105          MVI   CCWSRCH,X'29'      SEARCH KEY EQUAL                      00930000\r\n                                    106 *                                                                       00940000\r\n0008D0                              107 FINDLOOP DS    0H                                                       00950000\r\n0008D0 D503 CA19 C8C3 0121B 010C5   108          CLC   CC(4),VTOCEND      CHECK FOR END OF EXTENT               00960000\r\n0008D6 4720 C130      00932         109          BH    DSCBNFND           BRANCH IF WE REACHED THE END          00970000\r\n                                    110 *                                                                       00980000\r\n0008DA 4110 C9FE      01200         111          LA    R1,IORB            ISSUE                                 00990000\r\n0008DE 45E0 C31E      00B20         112          BAL   R14,XIO                 I\/O REQUEST                      01000000\r\n                                    113 *                                                                       01010000\r\n0008E2 12FF                         114          LTR   R15,R15            BRANCH IF                             01020000\r\n0008E4 4780 C11C      0091E         115          BZ    DSCBFND                     FOUND                        01030000\r\n                                    116 *                                                                       01040000\r\n0008E8 D503 CA19 C8C7 0121B 010C9   117          CLC   CCHHR(4),HIWATER   HIT HIGH WATER DSCB ADDRESS ?         01050000\r\n0008EE 47B0 C130      00932         118          BNL   DSCBNFND             YES - STOP SEARCH                   01060000\r\n                                    119 *                                                                       01070000\r\n0008F2 1F11                         120          SLR   R1,R1              SET UP TO SEARCH NEXT TRACK           01080000\r\n0008F4 BF13 CA1B      0121D         121          ICM   R1,B'0011',HH      GET TRACK ADDRESS                     01090000\r\n0008F8 4110 1001      00001         122          LA    R1,1(,R1)          ADD ONE                               01100000\r\n0008FC BE13 CA1B      0121D         123          STCM  R1,B'0011',HH      SAVE BACK                             01110000\r\n                                    124 *                                                                       01120000\r\n000900 4910 C8D0      010D2         125          CH    R1,TRKCYL          COMPARE TO TRAKS\/CYLINDER             01130000\r\n000904 4740 C0CE      008D0         126          BL    FINDLOOP           LOOP BACK AND TRY AGAIN               01140000\r\n                                    127 *                                                                       01150000\r\n000908 D701 CA1B CA1B 0121D 0121D   128          XC    HH,HH              SET TRACK TO ZERO                     01160000\r\n00090E BF13 CA19      0121B         129          ICM   R1,B'0011',CC      GET CYLINDER                          01170000\r\n000912 4110 1001      00001         130          LA    R1,1(,R1)          ADD ONE                               01180000\r\n000916 BE13 CA19      0121B         131          STCM  R1,B'0011',CC      SAVE BACK                             01190000\r\n00091A 47F0 C0CE      008D0         132          B     FINDLOOP           ...AND LOOP BACK                      01200000\r\n\r\n                                                                                                               PAGE    5\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n                                    133 *                                                                       01210000\r\n                                    134 *                                                                       01220000\r\n                                    135 *                                                                       01230000\r\n00091E                              136 DSCBFND  DS    0H                 FOUND THE DSCB FOR OUR DATA SET       01240000\r\n00091E D203 CA19 CB3D 0121B 0133F   137          MVC   CCHHR(4),INBUF+105+2-44 BEGINNING FIRST EXTENT           01250000\r\n000924 D203 C8CC CA19 010CE 0121B   138          MVC   BEGEXT,CCHHR       SAVE BEGINNING EXTENT ADDRESS         01260000\r\n00092A 9200 CA1D      0121F         139          MVI   R,0                RESET RECORD NUMBER                   01270000\r\n                                    140 *                                                                       01280000\r\n00092E 47F0 C142      00944         141          B     DSCBDONE           NOW READ DATA SET DIR BLOCK           01290000\r\n                                    142 *                                                                       01300000\r\n                                    143 *                                                                       01310000\r\n                                    144 *                                                                       01320000\r\n000932                              145 DSCBNFND DS    0H                                                       01330000\r\n                                    146          @PRINT '*** TXXOS.NUCLEUS NOT FOUND ***'                       01340000\r\n000932 4110 C833      01035         147+         LA     R1,=C'*** TXXOS.NUCLEUS NOT FOUND ***'                  00170000\r\n000936 4100 001F      0001F         148+         LA     R0,31                                                   00200000\r\n00093A 41F0 C43C      00C3E         149+         LA     R15,@PRINT                                              00210000\r\n00093E 05EF                         150+         BALR   R14,R15                                                 00220000\r\n000940 47F0 C434      00C36         151          B     EXIT                                                     01350000\r\n                                    152 *                                                                       01360000\r\n                                    153 *                                                                       01370000\r\n                                    154 *                                                                       01380000\r\n                                    155 *                                                                       01390000\r\n                                    156 *********************************************************************   01400000\r\n                                    157 * NOW READ THE PDS DIRECTORY TO FIND REQUESTED MEMBER                   01410000\r\n                                    158 *                                                                       01420000\r\n                                    159 *   PDS DIR LOCATED AT BEGINNING OF PDS DATA SET                        01430000\r\n                                    160 *********************************************************************   01440000\r\n                                    161 *                                                                       01450000\r\n000944                              162 DSCBDONE DS    0H                                                       01460000\r\n                                    163          @PRINT '-----READ DIRECTORY BLOCKS'                            01470000\r\n000944 4110 C77A      00F7C         164+         LA     R1,=C'-----READ DIRECTORY BLOCKS'                       00170000\r\n000948 4100 001A      0001A         165+         LA     R0,26                                                   00200000\r\n00094C 41F0 C43C      00C3E         166+         LA     R15,@PRINT                                              00210000\r\n000950 05EF                         167+         BALR   R14,R15                                                 00220000\r\n                                    168 *                                                                       01480000\r\n000952 4110 0100      00100         169          LA    R1,256             DIR BLOCK DATA LENGTH                 01490000\r\n000956 5010 C8BA      010BC         170          ST    R1,CCWREAD+4                                             01500000\r\n00095A 4110 CAFE      01300         171          LA    R1,INBUF           I\/O BUFFER                            01510000\r\n00095E 5010 C8B6      010B8         172          ST    R1,CCWREAD                                               01520000\r\n000962 9206 C8B6      010B8         173          MVI   CCWREAD,X'06'      READ DATA                             01530000\r\n                                    174 *                                                                       01540000\r\n000966 4110 0005      00005         175          LA    R1,5               BLOCK ID LENGTH                       01550000\r\n00096A 5010 C8AA      010AC         176          ST    R1,CCWSRCH+4                                             01560000\r\n                                                                                                               PAGE    6\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n00096E 9240 C8AA      010AC         177          MVI   CCWSRCH+4,@CCW#CC  COMMAND CHAIN                         01570000\r\n000972 4110 CA19      0121B         178          LA    R1,MBBCCHHR+3      BLOCK ID (CCHHR)                      01580000\r\n000976 5010 C8A6      010A8         179          ST    R1,CCWSRCH                                               01590000\r\n00097A 9231 C8A6      010A8         180          MVI   CCWSRCH,X'31'      SEARCH ID EQUAL                       01600000\r\n                                    181 *                                                                       01610000\r\n                                    182 *                                                                       01620000\r\n00097E                              183 DIRBLOOP DS    0H                                                       01630000\r\n00097E 1F11                         184          SLR   R1,R1                                                    01640000\r\n000980 4310 CA1D      0121F         185          IC    R1,R               GET RECORD NUMBER                     01650000\r\n000984 4110 1001      00001         186          LA    R1,1(,R1)          ADD                                   01660000\r\n000988 4210 CA1D      0121F         187          STC   R1,R                  ONE                                01670000\r\n00098C 4110 C9FE      01200         188          LA    R1,IORB            EXECUTE                               01680000\r\n000990 45E0 C31E      00B20         189          BAL   R14,XIO                   I\/O REQUEST                    01690000\r\n                                    190 *                                                                       01700000\r\n000994 12FF                         191          LTR   R15,R15                                                  01710000\r\n000996 4770 C1E0      009E2         192          BNZ   DIREOF             ERR - NOT FOUND                       01720000\r\n                                    193 *                                                                       01730000\r\n                                    194 *                                                                       01740000\r\n00099A 4120 CAFE      01300         195          LA    R2,INBUF           POINTER TO PDS INDEX BLOCK            01750000\r\n00099E 1F33                         196          SLR   R3,R3              GET LENGTH                            01760000\r\n0009A0 BF33 2000      00000         197          ICM   R3,B'0011',0(R2)             USED                        01770000\r\n                                    198 *                                                                       01780000\r\n0009A4 4120 2002      00002         199          LA    R2,2(,R2)          POINT TO FIRST ENTRY                  01790000\r\n0009A8 5B30 C76A      00F6C         200          S     R3,=F'2'           ADJUST LENGTH                         01800000\r\n                                    201 *                                                                       01810000\r\n0009AC                              202 DIRLOOP  DS    0H                                                       01820000\r\n0009AC 5930 C76E      00F70         203          C     R3,=F'0'           MORE DATA AVAILABLE                   01830000\r\n0009B0 47D0 C17C      0097E         204          BNH   DIRBLOOP             NO - READ ANOTHER BLOCK             01840000\r\n                                    205 *                                                                       01850000\r\n0009B4 D507 C72E 2000 00F30 00000   206          CLC   =XL8'FFFFFFFFFFFFFFFF',0(R2)  END OF DIRECTORY?          01860000\r\n0009BA 4780 C1E0      009E2         207          BE    DIREOF                                                   01870000\r\n                                    208 *                                                                       01880000\r\n0009BE D507 C736 2000 00F38 00000   209          CLC   =CL8'TXXNUC28',0(R2) IS THIS OUR ENTRY                   01890000\r\n0009C4 4780 C1F2      009F4         210          BE    DIRFOUND                                                 01900000\r\n                                    211 *                                                                       01910000\r\n0009C8 1F11                         212          SLR   R1,R1                                                    01920000\r\n0009CA BF11 200B      0000B         213          ICM   R1,B'0001',11(R2)  GET C FIELD                           01930000\r\n0009CE 5410 C772      00F74         214          N     R1,=A(X'1F')       GET USER DATA LENGTH                  01940000\r\n0009D2 8910 0001      00001         215          SLL   R1,1               MULTIPLY BY 2                         01950000\r\n                                    216 *                                                                       01960000\r\n0009D6 4110 100C      0000C         217          LA    R1,12(,R1)         ADD IN FIXED LENGTH                   01970000\r\n                                    218 *                                                                       01980000\r\n0009DA 1A21                         219          AR    R2,R1              POINT TO NEXT ENTRY                   01990000\r\n0009DC 1B31                         220          SR    R3,R1              ADJUST LENGTH                         02000000\r\n                                                                                                               PAGE    7\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n                                    221 *                                                                       02010000\r\n0009DE 47F0 C1AA      009AC         222          B     DIRLOOP            PROCESS NEXT DIR ENTRY                02020000\r\n                                    223 *                                                                       02030000\r\n                                    224 *                                                                       02040000\r\n                                    225 *                                                                       02050000\r\n0009E2                              226 DIREOF   DS    0H                                                       02060000\r\n                                    227          @PRINT 'DIRECTORY ENTRY FOR TXXNUC28 NOT FOUND'                02070000\r\n0009E2 4110 C794      00F96         228+         LA     R1,=C'DIRECTORY ENTRY FOR TXXNUC28 NOT FOUND'           00170000\r\n0009E6 4100 0026      00026         229+         LA     R0,38                                                   00200000\r\n0009EA 41F0 C43C      00C3E         230+         LA     R15,@PRINT                                              00210000\r\n0009EE 05EF                         231+         BALR   R14,R15                                                 00220000\r\n0009F0 47F0 C434      00C36         232          B      EXIT                                                    02080000\r\n                                    233 *                                                                       02090000\r\n                                    234 *                                                                       02100000\r\n                                    235 *                                                                       02110000\r\n                                    236 **********************************************************************  02120000\r\n                                    237 *  NOW WE CAN READ THE DATA FOR THE MEMBER                              02130000\r\n                                    238 *                                                                       02140000\r\n                                    239 *    DIRECTORY ENTRY TTR IS OFFSET TO FIRST DATA RECORD                 02150000\r\n                                    240 **********************************************************************  02160000\r\n                                    241 *                                                                       02170000\r\n0009F4                              242 DIRFOUND DS    0H                                                       02180000\r\n0009F4 1882                         243          LR    R8,R2                   SAVE DIRECTORY ENTRY PTR         02190000\r\n                                    244 *                                                                       02200000\r\n0009F6 1F11                         245          SLR   R1,R1                                                    02210000\r\n0009F8 1F00                         246          SLR   R0,R0                                                    02220000\r\n0009FA 1F22                         247          SLR   R2,R2                                                    02230000\r\n                                    248 *                                                                       02240000\r\n0009FC BF13 C8CE      010D0         249          ICM   R1,B'0011',BEGEXT+2     GET HH OF EXTENT BEGIN           02250000\r\n000A00 BF23 8008      00008         250          ICM   R2,B'0011',8(R8)        GET RELATIVE TT OFFSET           02260000\r\n000A04 1A12                         251          AR    R1,R2                                                    02270000\r\n                                    252 *                                                                       02280000\r\n000A06 48F0 C8D0      010D2         253          LH    R15,TRKCYL              TRACKS\/CYLINDER                  02290000\r\n000A0A 1D0F                         254          DR    R0,R15                  GET CYL\/TRK OFFSET               02300000\r\n                                    255 *                                                                       02310000\r\n000A0C BF23 C8CC      010CE         256          ICM   R2,B'0011',BEGEXT       GET CC OF EXTENT BEGIN           02320000\r\n000A10 1A21                         257          AR    R2,R1                   GET CC OF FIRST DATA BLK         02330000\r\n000A12 BE23 CA19      0121B         258          STCM  R2,B'0011',CC                                            02340000\r\n                                    259 *                                                                       02350000\r\n000A16 BE03 CA1B      0121D         260          STCM  R0,B'0011',HH                                            02360000\r\n000A1A D200 CA1D 800A 0121F 0000A   261          MVC   R,10(R8)           GET RECORD FROM TTR                   02370000\r\n                                    262 *                                                                       02380000\r\n000A20 5810 C776      00F78         263          L     R1,=A(19069)       MAX BLOCK LENGTH                      02390000\r\n000A24 5010 C8BA      010BC         264          ST    R1,CCWREAD+4                                             02400000\r\n                                                                                                               PAGE    8\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n000A28 9220 C8BA      010BC         265          MVI   CCWREAD+4,@CCW#SLI SUPPRESS INCORRECT LENGTH             02410000\r\n000A2C 4110 CAFE      01300         266          LA    R1,INBUF           I\/O BUFFER                            02420000\r\n000A30 5010 C8B6      010B8         267          ST    R1,CCWREAD                                               02430000\r\n000A34 9206 C8B6      010B8         268          MVI   CCWREAD,X'06'      READ DATA                             02440000\r\n                                    269 *                                                                       02450000\r\n000A38 4110 0005      00005         270          LA    R1,5               BLOCK ID LENGTH                       02460000\r\n000A3C 5010 C8AA      010AC         271          ST    R1,CCWSRCH+4                                             02470000\r\n000A40 9240 C8AA      010AC         272          MVI   CCWSRCH+4,@CCW#CC  COMMAND CHAIN                         02480000\r\n000A44 4110 CA19      0121B         273          LA    R1,MBBCCHHR+3      BLOCK ID (CCHHR)                      02490000\r\n000A48 5010 C8A6      010A8         274          ST    R1,CCWSRCH                                               02500000\r\n000A4C 9231 C8A6      010A8         275          MVI   CCWSRCH,X'31'      SEARCH ID EQUAL                       02510000\r\n                                    276 *                                                                       02520000\r\n                                    277          @PRINT '----- READ PDS MEMBER DATA'                            02530000\r\n000A50 4110 C7BA      00FBC         278+         LA     R1,=C'----- READ PDS MEMBER DATA'                       00170000\r\n000A54 4100 001A      0001A         279+         LA     R0,26                                                   00200000\r\n000A58 41F0 C43C      00C3E         280+         LA     R15,@PRINT                                              00210000\r\n000A5C 05EF                         281+         BALR   R14,R15                                                 00220000\r\n                                    282          @PRINT ' '                                                     02540000\r\n000A5E 4110 C852      01054         283+         LA     R1,=C' '                                                00170000\r\n000A62 4100 0001      00001         284+         LA     R0,1                                                    00200000\r\n000A66 41F0 C43C      00C3E         285+         LA     R15,@PRINT                                              00210000\r\n000A6A 05EF                         286+         BALR   R14,R15                                                 00220000\r\n                                    287 *                                                                       02550000\r\n000A6C                              288 BREAD    DS    0H                                                       02560000\r\n000A6C 4110 C9FE      01200         289          LA    R1,IORB            EXECUTE                               02570000\r\n000A70 45E0 C31E      00B20         290          BAL   R14,XIO                   I\/O REQUEST                    02580000\r\n                                    291 *                                                                       02590000\r\n000A74 12FF                         292          LTR   R15,R15                                                  02600000\r\n000A76 4770 C2B2      00AB4         293          BNZ   BREAD010           BRANCH IF ERROR                       02610000\r\n                                    294 *                                                                       02620000\r\n000A7A 1F11                         295          SLR   R1,R1                                                    02630000\r\n000A7C 4310 CA1D      0121F         296          IC    R1,R               GET RECORD NUMBER                     02640000\r\n000A80 4110 1001      00001         297          LA    R1,1(,R1)          ADD                                   02650000\r\n000A84 4210 CA1D      0121F         298          STC   R1,R                  ONE                                02660000\r\n                                    299 *                                                                       02670000\r\n000A88 1F33                         300          SLR   R3,R3                                                    02680000\r\n000A8A BF33 C8BC      010BE         301          ICM   R3,B'0011',CCWREAD+6  LENGTH ATTEMPTED TO READ           02690000\r\n000A8E 1F11                         302          SLR   R1,R1                                                    02700000\r\n000A90 BF13 CA0C      0120E         303          ICM   R1,B'0011',IORB+(IORCSW-IOR)+6  GET RESUDUAL LENGTH      02710000\r\n000A94 1B31                         304          SR    R3,R1              CALC ACTUAL BLOCK LENGTH              02720000\r\n                                    305 *                                                                       02730000\r\n                                    306          @DUMP INBUF,(R3)         DUMP THE BLOCK                        02740000\r\n000A96 4110 CAFE      01300         307+         LA    R1,INBUF                                                 00360000\r\n000A9A 1803                         308+         LR    R0,R3                                                    00290000\r\n                                                                                                               PAGE    9\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n000A9C 41F0 C496      00C98         309+         LA    R15,@DUMP                                                00080000\r\n000AA0 05EF                         310+         BALR  R14,R15                                                  00090000\r\n                                    311          @PRINT ' '                                                     02750000\r\n000AA2 4110 C852      01054         312+         LA     R1,=C' '                                                00170000\r\n000AA6 4100 0001      00001         313+         LA     R0,1                                                    00200000\r\n000AAA 41F0 C43C      00C3E         314+         LA     R15,@PRINT                                              00210000\r\n000AAE 05EF                         315+         BALR   R14,R15                                                 00220000\r\n000AB0 47F0 C26A      00A6C         316          B      BREAD             LOOP BACK FOR NEXT BLOCK              02760000\r\n                                    317 *                                                                       02770000\r\n                                    318 *                                                                       02780000\r\n000AB4                              319 BREAD010 DS    0H                                                       02790000\r\n000AB4 9101 CA0A      0120C         320          TM    IORB+(IORCSW-IOR)+4,X'01'   UNIT EXCEPTION?              02800000\r\n000AB8 4710 C30C      00B0E         321          BO    BREAD030           YES - END OF FILE                     02810000\r\n                                    322 *                                                                       02820000\r\n000ABC 9102 CA0A      0120C         323          TM    IORB+(IORCSW-IOR)+4,X'02'   UNIT CHECK?                  02830000\r\n000AC0 47E0 C2FA      00AFC         324          BNO   BREAD020           NO - OTHER ERROR                      02840000\r\n                                    325 *                                                                       02850000\r\n000AC4 9108 CA0F      01211         326          TM    IORB+(IORSENS1-IOR),X'08'  NO RECORD FOUND?              02860000\r\n000AC8 47E0 C2FA      00AFC         327          BNO   BREAD020           NO - OTHER ERROR                      02870000\r\n                                    328 *                                                                       02880000\r\n000ACC 9201 CA1D      0121F         329          MVI   R,1                RESET TO RECORD 1                     02890000\r\n000AD0 1F11                         330          SLR   R1,R1                                                    02900000\r\n000AD2 BF13 CA1B      0121D         331          ICM   R1,B'0011',HH      GET HEAD                              02910000\r\n000AD6 4110 1001      00001         332          LA    R1,1(,R1)          ADD ONE                               02920000\r\n000ADA BE13 CA1B      0121D         333          STCM  R1,B'0011',HH      SAVE IT BACK                          02930000\r\n                                    334 *                                                                       02940000\r\n000ADE 4910 C8D0      010D2         335          CH    R1,TRKCYL          COMPARE TO TRKS\/CYL                   02950000\r\n000AE2 4740 C26A      00A6C         336          BL    BREAD              GO READ AGAIN                         02960000\r\n                                    337 *                                                                       02970000\r\n000AE6 D701 CA1B CA1B 0121D 0121D   338          XC    HH,HH              SET HH = 0                            02980000\r\n000AEC BF13 CA19      0121B         339          ICM   R1,B'0011',CC      GET CYLINDER                          02990000\r\n000AF0 4110 1001      00001         340          LA    R1,1(,R1)          ADD ONE                               03000000\r\n000AF4 BE13 CA19      0121B         341          STCM  R1,B'0011',CC      SAVE BACK                             03010000\r\n000AF8 47F0 C26A      00A6C         342          B     BREAD              GO READ AGAIN                         03020000\r\n                                    343 *                                                                       03030000\r\n                                    344 *                                                                       03040000\r\n000AFC                              345 BREAD020 DS    0H                                                       03050000\r\n                                    346          @PRINT '*** ERROR READING DATA ***'                            03060000\r\n000AFC 4110 C7D4      00FD6         347+         LA     R1,=C'*** ERROR READING DATA ***'                       00170000\r\n000B00 4100 001A      0001A         348+         LA     R0,26                                                   00200000\r\n000B04 41F0 C43C      00C3E         349+         LA     R15,@PRINT                                              00210000\r\n000B08 05EF                         350+         BALR   R14,R15                                                 00220000\r\n000B0A 47F0 C434      00C36         351          B     EXIT                                                     03070000\r\n                                    352 *                                                                       03080000\r\n                                                                                                               PAGE   10\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n                                    353 *                                                                       03090000\r\n000B0E                              354 BREAD030 DS    0H                                                       03100000\r\n                                    355          @PRINT '*** EOF READING DATA ***'                              03110000\r\n000B0E 4110 C73E      00F40         356+         LA     R1,=C'*** EOF READING DATA ***'                         00170000\r\n000B12 4100 0018      00018         357+         LA     R0,24                                                   00200000\r\n000B16 41F0 C43C      00C3E         358+         LA     R15,@PRINT                                              00210000\r\n000B1A 05EF                         359+         BALR   R14,R15                                                 00220000\r\n000B1C 47F0 C434      00C36         360          B     EXIT                                                     03120000\r\n                                    361 *                                                                       03130000\r\n                                    362 *                                                                       03140000\r\n                                    363 **********************************************************************  03150000\r\n                                    364 * XIO - PERFORM I\/O SUBROUTINE                                          03160000\r\n                                    365 *       R1 = A(IOR) I\/O REQUEST BLOCK                                   03170000\r\n                                    366 *       ON EXIT R15 CONTAINS A RETURN CODE                              03180000\r\n                                    367 **********************************************************************  03190000\r\n                                    368 *                                                                       03200000\r\n000B20                              369 XIO      DS    0H                                                       03210000\r\n000B20 90EC D00C      0000C         370          STM   R14,R12,12(R13)    SAVE CALLER'S REGISTERS               03220000\r\n000B24 41E0 C92E      01130         371          LA    R14,XIOSAVE        POINT TO OUR SAVE ADDRESS             03230000\r\n000B28 50E0 D008      00008         372          ST    R14,8(,R13)                                              03240000\r\n000B2C 50D0 E004      00004         373          ST    R13,4(,R14)                                              03250000\r\n000B30 18DE                         374          LR    R13,R14                                                  03260000\r\n                                    375 *                                                                       03270000\r\n000B32 18A1                         376          LR    R10,R1             IOR BLOCK ADDRESS                     03280000\r\n                            00000   377          USING IOR,R10                                                  03290000\r\n                                    378 *                                                                       03300000\r\n000B34 D700 A006 A006 00006 00006   379          XC    IORSIOCC,IORSIOCC                                        03310000\r\n000B3A D701 A010 A010 00010 00010   380          XC    IORSENS0(2),IORSENS0                                     03320000\r\n000B40 D707 A008 A008 00008 00008   381          XC    IORCSW,IORCSW                                            03330000\r\n                                    382 *                                                                       03340000\r\n000B46 5810 A000      00000         383          L     R1,IORCCW          POINT TO CCW  CHAIN                   03350000\r\n000B4A 5010 0048      00048         384          ST    R1,72              SAVE INTO CAW                         03360000\r\n000B4E 1F22                         385          SLR   R2,R2                                                    03370000\r\n000B50 BF23 A004      00004         386          ICM   R2,B'0011',IORUNIT DEVICE ADDRESS                        03380000\r\n000B54 9C00 2000      00000         387          SIO   0(R2)              START I\/O                             03390000\r\n000B58 4740 C3D0      00BD2         388          BC    4,SIOCC4           BRANCH IF SIO NOT ACCEPTED            03400000\r\n000B5C 4720 C3C4      00BC6         389          BC    2,SIOCC2           BRANCH IF SIO NOT ACCEPTED            03410000\r\n000B60 4710 C3B8      00BBA         390          BC    1,SIOCC1           BRANCH IF SIO NOT ACCEPTED            03420000\r\n                                    391 *                                                                       03430000\r\n000B64 9D00 2000      00000         392 WAITIO   TIO   0(R2)              WAIT FOR I\/O COMPLETION               03440000\r\n000B68 4710 C3DC      00BDE         393          BC    1,TIOCC1           BRANCH IF ERROR                       03450000\r\n000B6C 4770 C362      00B64         394          BC    7,WAITIO           KEEP WAITING...                       03460000\r\n                                    395 *                                                                       03470000\r\n000B70 D207 A008 0040 00008 00040   396          MVC    IORCSW,64         SAVE CSW                              03480000\r\n                                                                                                               PAGE   11\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n000B76 D501 C7EE A00C 00FF0 0000C   397          CLC    =X'0C00',IORCSW+4 CHANNEL END\/DEVICE END                03490000\r\n000B7C 4780 C3B0      00BB2         398          BE     WAITIO20          YES - GOOD COMPLETION                 03500000\r\n000B80 9102 A00C      0000C         399          TM     IORCSW+4,X'02'    UNIT CHECK?                           03510000\r\n000B84 47E0 C3A8      00BAA         400          BNO    WAITIO15          NO - DON'T NEED TO SO SENSE           03520000\r\n                                    401 *                                                                       03530000\r\n                                    402 *                                                                       03540000\r\n000B88 4110 C896      01098         403          LA    R1,CCWSENSE                                              03550000\r\n000B8C 5010 0048      00048         404          ST    R1,72              SAVE INTO CAW                         03560000\r\n000B90 9C00 2000      00000         405          SIO   0(R2)              START I\/O                             03570000\r\n000B94 4770 C3DC      00BDE         406          BC    7,WAITIO99         ERROR                                 03580000\r\n                                    407 *                                                                       03590000\r\n000B98 9D00 2000      00000         408 WAITIO10 TIO   0(R2)              WAIT FOR I\/O COMPLETION               03600000\r\n000B9C 4710 C3DC      00BDE         409          BC    1,WAITIO99         BRANCH IF ERROR                       03610000\r\n000BA0 4770 C396      00B98         410          BC    7,WAITIO10         KEEP WAITING...                       03620000\r\n                                    411 *                                                                       03630000\r\n000BA4 D201 A010 C976 00010 01178   412          MVC   IORSENS0(2),SENSE  SAVE SENSE BYTES 0 &amp; 1                03640000\r\n000BAA                              413 WAITIO15 DS    0H                 WAIT FOR I\/O COMPLETION               03650000\r\n000BAA 41F0 0004      00004         414          LA    R15,4              SET RC=4                              03660000\r\n000BAE 47F0 C3E4      00BE6         415          B     XIOXT                                                    03670000\r\n                                    416 *                                                                       03680000\r\n                                    417 *                                                                       03690000\r\n000BB2                              418 WAITIO20 DS    0H                                                       03700000\r\n000BB2 41F0 0000      00000         419          LA    R15,0                                                    03710000\r\n000BB6 47F0 C3E4      00BE6         420          B     XIOXT                                                    03720000\r\n                                    421 *                                                                       03730000\r\n                                    422 *                                                                       03740000\r\n000BBA                              423 SIOCC1   DS    0H                                                       03750000\r\n000BBA 9201 A006      00006         424          MVI   IORSIOCC,X'01'                                           03760000\r\n000BBE 41F0 0008      00008         425          LA    R15,8                                                    03770000\r\n000BC2 47F0 C3E4      00BE6         426          B     XIOXT                                                    03780000\r\n                                    427 *                                                                       03790000\r\n                                    428 *                                                                       03800000\r\n000BC6                              429 SIOCC2   DS    0H                                                       03810000\r\n000BC6 9202 A006      00006         430          MVI   IORSIOCC,X'02'                                           03820000\r\n000BCA 41F0 0008      00008         431          LA    R15,8                                                    03830000\r\n000BCE 47F0 C3E4      00BE6         432          B     XIOXT                                                    03840000\r\n                                    433 *                                                                       03850000\r\n                                    434 *                                                                       03860000\r\n000BD2                              435 SIOCC4   DS    0H                                                       03870000\r\n000BD2 9204 A006      00006         436          MVI   IORSIOCC,X'04'                                           03880000\r\n000BD6 41F0 0008      00008         437          LA    R15,8                                                    03890000\r\n000BDA 47F0 C3E4      00BE6         438          B     XIOXT                                                    03900000\r\n                                    439 *                                                                       03910000\r\n                                    440 *                                                                       03920000<\/pre>\n<p><a title=\"DISK3 Assembly Listing \u2013 Part 2\" href=\"http:\/\/tommysprinkle.com\/txxos\/?p=253\">[Next &#8211; DISK3 Assembly Listing &#8211; Part 2]<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>PAGE 2 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 15.58 12\/08\/11 1 ********************************************************************* 00010000 2 * 00020000 3 * XXXX XXXXX XXXX X X XXXX 00030000 4 * X X X X X X X 00040000 5 &hellip; <a href=\"https:\/\/tommysprinkle.com\/txxos\/?p=247\">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-247","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p1CPQT-3Z","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/247","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=247"}],"version-history":[{"count":7,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/247\/revisions"}],"predecessor-version":[{"id":498,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/247\/revisions\/498"}],"wp:attachment":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=247"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=247"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=247"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}