{"id":253,"date":"2011-12-11T16:25:47","date_gmt":"2011-12-11T22:25:47","guid":{"rendered":"http:\/\/tommysprinkle.com\/txxos\/?p=253"},"modified":"2021-04-17T18:25:40","modified_gmt":"2021-04-17T23:25:40","slug":"disk3-assembly-listing-part-2","status":"publish","type":"post","link":"https:\/\/tommysprinkle.com\/txxos\/?p=253","title":{"rendered":"DISK3 Assembly Listing &#8211; Part 2"},"content":{"rendered":"<pre>                                                                                                               PAGE   12\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n000BDE                              441 WAITIO99 DS    0H                                                       03930000\r\n000BDE                              442 TIOCC1   DS    0H                                                       03940000\r\n000BDE 41F0 0010      00010         443          LA    R15,16                                                   03950000\r\n000BE2 47F0 C3E4      00BE6         444          B     XIOXT                                                    03960000\r\n                                    445 *                                                                       03970000\r\n                                    446 *                                                                       03980000\r\n000BE6                              447 XIOXT    DS    0H                                                       03990000\r\n000BE6 5810 D004      00004         448          L     R1,4(,R13)                                               04000000\r\n000BEA 50F0 1010      00010         449          ST    R15,16(,R1)                                              04010000\r\n                                    450 *                                                                       04020000\r\n000BEE 12FF                         451          LTR   R15,R15                                                  04030000\r\n000BF0 4780 C42A      00C2C         452          BZ    XIOXT10                                                  04040000\r\n                                    453 *                                                                       04050000\r\n                                    454          @PRINT '-------- IOR --------'                                 04060000\r\n000BF4 4110 C853      01055         455+         LA     R1,=C'-------- IOR --------'                            00170000\r\n000BF8 4100 0015      00015         456+         LA     R0,21                                                   00200000\r\n000BFC 41F0 C43C      00C3E         457+         LA     R15,@PRINT                                              00210000\r\n000C00 05EF                         458+         BALR   R14,R15                                                 00220000\r\n                                    459          @DUMP IORB,IORLEN                                              04070000\r\n000C02 4110 C9FE      01200         460+         LA    R1,IORB                                                  00360000\r\n000C06 4100 0012      00012         461+         LA    R0,IORLEN                                                00360000\r\n000C0A 41F0 C496      00C98         462+         LA    R15,@DUMP                                                00080000\r\n000C0E 05EF                         463+         BALR  R14,R15                                                  00090000\r\n                                    464          @PRINT ' '                                                     04080000\r\n000C10 4110 C852      01054         465+         LA     R1,=C' '                                                00170000\r\n000C14 4100 0001      00001         466+         LA     R0,1                                                    00200000\r\n000C18 41F0 C43C      00C3E         467+         LA     R15,@PRINT                                              00210000\r\n000C1C 05EF                         468+         BALR   R14,R15                                                 00220000\r\n                                    469          @PRINT ' '                                                     04090000\r\n000C1E 4110 C852      01054         470+         LA     R1,=C' '                                                00170000\r\n000C22 4100 0001      00001         471+         LA     R0,1                                                    00200000\r\n000C26 41F0 C43C      00C3E         472+         LA     R15,@PRINT                                              00210000\r\n000C2A 05EF                         473+         BALR   R14,R15                                                 00220000\r\n                                    474 *                                                                       04100000\r\n000C2C                              475 XIOXT10  DS    0H                                                       04110000\r\n000C2C 58D0 D004      00004         476          L     R13,4(,R13)                                              04120000\r\n000C30 98EC D00C      0000C         477          LM    R14,R12,12(R13)    RESTORE CALLER'S REGS                 04130000\r\n000C34 07FE                         478          BR    R14                RETURN TO CALLER                      04140000\r\n                                    479 *                                                                       04150000\r\n                                    480 *                                                                       04160000\r\n                                    481 **********************************************************************  04170000\r\n                                    482 *                                                                       04180000\r\n                                    483 *   LOAD WAIT STATE PSW TO HALT EXECUTION                               04190000\r\n                                    484 *                                                                       04200000\r\n                                                                                                               PAGE   13\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n                                    485 **********************************************************************  04210000\r\n                                    486 *                                                                       04220000\r\n000C36 8200 C8D6      010D8         487 EXIT     LPSW   DONE             LOAD A WAIT PSW                        04230000\r\n000C3A 8200 C8DE      010E0         488 ERREXIT  LPSW   ERRPSW           LOAD A WAIT PSW                        04240000\r\n                                    489 *                                                                       04250000\r\n                                    490 **********************************************************************  04260000\r\n                                    491 *                                                                       04270000\r\n                                    492 *   UTILITY SUBROUTINES                                                 04280000\r\n                                    493 *                                                                       04290000\r\n                                    494 **********************************************************************  04300000\r\n                                    495 *                                                                       04310000\r\n                                    496          PUSH   PRINT                                                   04320000\r\n                                    497 *        PRINT  NOGEN                                                   04330000\r\n                                    498          @PRINT GEN=YES                                                 04340000\r\n000C3E 90EC D00C      0000C         499+@PRINT   STM    R14,R12,12(R13)        SAVE CALLERS REGISTERS           00270000\r\n000C42 1821                         500+         LR     R2,R1                  POINT TO DATA TO PRINT           00280000\r\n000C44 1830                         501+         LR     R3,R0                  LENGTH OF DATA TO PRINT          00290000\r\n000C46 4110 0084      00084         502+         LA     R1,132                 MAX LENGTH WE CAN PRINT          00300000\r\n000C4A 1931                         503+         CR     R3,R1                  TOO BIG                          00310000\r\n000C4C 47D0 C450      00C52         504+         BNH    @002101                NO - BRANCH                      00320000\r\n000C50 1831                         505+         LR     R3,R1                  SET TO MAX                       00330000\r\n000C52                              506+@002101  DS     0H                                                      00340000\r\n000C52 5020 C48E      00C90         507+         ST     R2,@002190             SAVE DATA ADDR INTO CCW          00350000\r\n000C56 9209 C48E      00C90         508+         MVI    @002190,X'09'          PRINT: SINGLE SPACE              00360000\r\n000C5A 5030 C492      00C94         509+         ST     R3,@002190+4           SAVE LENGTH INTO CCW             00370000\r\n000C5E 4110 C48E      00C90         510+         LA     R1,@002190             POINT TO CCW                     00380000\r\n000C62 5010 0048      00048         511+         ST     R1,72                  SAVE INTO CAW                    00390000\r\n000C66 4120 000E      0000E         512+         LA     R2,X'00E'              GET PRINT DEVICE ADDRESS         00400000\r\n000C6A 9C00 2000      00000         513+         SIO    0(R2)                                                   00410000\r\n000C6E 4770 C486      00C88         514+         BNZ    @002181                BRANCH IF ERROR                  00420000\r\n000C72                              515+@002102  DS     0H                                                      00430000\r\n000C72 9D00 2000      00000         516+         TIO    0(R2)                  WAIT FOR I\/O TO COMPLETE         00440000\r\n000C76 4780 C480      00C82         517+         BZ     @002103                COMPLETE                         00450000\r\n000C7A 4710 C48A      00C8C         518+         BC     1,@002182              BRANCH IF ERROR                  00460000\r\n000C7E 47F0 C470      00C72         519+         B      @002102                LOOP BACK AND WAIT               00470000\r\n                                    520+*                                                                       00480000\r\n000C82                              521+@002103  DS     0H                                                      00490000\r\n000C82 98EC D00C      0000C         522+         LM     R14,R12,12(R13)        RESTORE REGISTERS                00500000\r\n000C86 07FE                         523+         BR     R14                                                     00510000\r\n                                    524+*                                                                       00520000\r\n000C88 8200 C71E      00F20         525+@002181  LPSW   @ERRPRT1               LOAD WAIT PSW                    00530000\r\n000C8C 8200 C726      00F28         526+@002182  LPSW   @ERRPRT2               LOAD WAIT PSW                    00540000\r\n000C90                              527+         DS     0D                                                      00550000\r\n000C90 0000000000000000             528+@002190  DC     X'00',AL3(0),X'00',X'00',AL2(0)  CCW                    00560000\r\n                                                                                                               PAGE   14\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n                                    529 *        @CARD  GEN=YES                                                 04350000\r\n                                    530          @DUMP  GEN=YES                                                 04360000\r\n000C98 90EC D00C      0000C         531+@DUMP    STM   R14,R12,12(R13)                                          00140000\r\n000C9C 41F0 C5AE      00DB0         532+         LA    R15,@002280        NEW SAVE AREA                         00150000\r\n000CA0 50F0 D008      00008         533+         ST    R15,8(,R13)                                              00160000\r\n000CA4 50D0 F004      00004         534+         ST    R13,4(,R15)                                              00170000\r\n000CA8 18DF                         535+         LR    R13,R15                                                  00180000\r\n                                    536+*                                                                       00190000\r\n000CAA 18A1                         537+         LR    R10,R1             DATA ADDRESS                          00200000\r\n000CAC 18B0                         538+         LR    R11,R0             LENGTH                                00210000\r\n000CAE 1ABA                         539+         AR    R11,R10            END ADDRESS                           00220000\r\n                                    540+*                                                                       00230000\r\n000CB0 54A0 C606      00E08         541+         N     R10,@002283        ALIGN                                 00240000\r\n000CB4                              542+@002201  DS    0H                                                       00250000\r\n000CB4 9240 C528      00D2A         543+         MVI   @002270,C' '       CLEAR PRINT BUFFER                    00260000\r\n000CB8 D282 C529 C528 00D2B 00D2A   544+         MVC   @002270+1(L'@002270-1),@002270                           00270000\r\n000CBE 50A0 C5F6      00DF8         545+         ST    R10,@002281        ADDRESS                               00280000\r\n000CC2 F384 C5FA C5F6 00DFC 00DF8   546+         UNPK  @002282(9),@002281(5)                                    00290000\r\n000CC8 DC07 C5FA C61A 00DFC 00E1C   547+         TR    @002282(8),@002299-C'0'                                  00300000\r\n000CCE D207 C528 C5FA 00D2A 00DFC   548+         MVC   @002271,@002282                                          00310000\r\n                                    549+*                                                                       00320000\r\n000CD4 D20F C557 A000 00D59 00000   550+         MVC   @002274,0(R10)                                           00330000\r\n000CDA DC0F C557 C60A 00D59 00E0C   551+         TR    @002274,@002298    KEEP ONLY PRINTABLE                   00340000\r\n                                    552+*                                                                       00350000\r\n000CE0 4120 C532      00D34         553+         LA    R2,@002272         FIRST DATA AREA                       00360000\r\n000CE4 4130 0004      00004         554+         LA    R3,4                                                     00370000\r\n000CE8                              555+@002202  DS    0H                                                       00380000\r\n000CE8 D203 C5F6 A000 00DF8 00000   556+         MVC   @002281(4),0(R10)                                        00390000\r\n000CEE F384 C5FA C5F6 00DFC 00DF8   557+         UNPK  @002282(9),@002281(5)                                    00400000\r\n000CF4 DC07 C5FA C61A 00DFC 00E1C   558+         TR    @002282(8),@002299-C'0'                                  00410000\r\n000CFA D207 2000 C5FA 00000 00DFC   559+         MVC   0(8,R2),@002282                                          00420000\r\n000D00 41A0 A004      00004         560+         LA    R10,4(,R10)                                              00430000\r\n000D04 4120 2009      00009         561+         LA    R2,9(,R2)                                                00440000\r\n000D08 4630 C4E6      00CE8         562+         BCT   R3,@002202                                               00450000\r\n                                    563+*                                                                       00460000\r\n                                    564+*                                                                       00470000\r\n000D0C 4110 C528      00D2A         565+         LA    R1,@002270                                               00360000\r\n000D10 4100 0084      00084         566+         LA    R0,132                                                   00360000\r\n000D14 41F0 C43C      00C3E         567+         LA     R15,@PRINT                                              00110000\r\n000D18 05EF                         568+         BALR   R14,R15                                                 00120000\r\n                                    569+*                                                                       00490000\r\n                                    570+*                                                                       00500000\r\n000D1A 19AB                         571+         CR    R10,R11            STILL MORE TO DO                      00510000\r\n000D1C 4740 C4B2      00CB4         572+         BL    @002201            YES - LOOP BACK                       00520000\r\n                                                                                                               PAGE   15\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n                                    573+*                                                                       00530000\r\n                                    574+*                                                                       00540000\r\n000D20 58D0 D004      00004         575+         L     R13,4(,R13)                                              00550000\r\n000D24 98EC D00C      0000C         576+         LM    R14,R12,12(R13)                                          00560000\r\n000D28 07FE                         577+         BR    R14                                                      00570000\r\n                                    578+*                                                                       00580000\r\n                                    579+*                                                                       00590000\r\n000D2A 4040404040404040             580+@002270  DC    CL132' '                                                 00600000\r\n000DAE                      00D2A   581+         ORG   @002270                                                  00610000\r\n000D2A                              582+@002271  DS    CL8                                                      00620000\r\n000D32                              583+         DS    CL2                                                      00630000\r\n000D34                              584+@002272  DS    CL8,CL1,CL8,CL1,CL8,CL1,CL8,CL2                          00640000\r\n000D59                              585+@002274  DS    CL16                                                     00650000\r\n000D69                      00DAE   586+         ORG   ,                                                        00660000\r\n                                    587+*                                                                       00670000\r\n000DAE 0000\r\n000DB0 0000000000000000             588+@002280  DC    18F'0'                                                   00680000\r\n000DF8 00000000                     589+@002281  DC    F'0'                                                     00690000\r\n000DFC F040404040404040             590+@002282  DC    CL9'0'                                                   00700000\r\n000E08                              591+         DS    0F                                                       00710000\r\n000E08 00FFFFF0                     592+@002283  DC    X'00FFFFF0'                                              00720000\r\n                                    593+*                                                                       00730000\r\n                                    594+*                                                                       00740000\r\n000E0C                              595+@002298  DS    0C                                                       00750000\r\n                                    596+*                 0 1 2 3 4 5 6 7 8 9 A B C D E F                       00760000\r\n000E0C 4B4B4B4B4B4B4B4B             597+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  00                  00770000\r\n000E1C 4B4B4B4B4B4B4B4B             598+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  10                  00780000\r\n000E2C 4B4B4B4B4B4B4B4B             599+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  20                  00790000\r\n000E3C 4B4B4B4B4B4B4B4B             600+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  30                  00800000\r\n000E4C 4B4B4B4B4B4B4B4B             601+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  40                  00810000\r\n000E5C 504B4B4B4B4B4B4B             602+         DC    X'504B4B4B4B4B4B4B4B4B5A5B5C5D5E5F'  50                  00820000\r\n000E6C 60614B4B4B4B4B4B             603+         DC    X'60614B4B4B4B4B4B4B4B6A6B6C6D6E6F'  60                  00830000\r\n000E7C 4B4B4B4B4B4B4B4B             604+         DC    X'4B4B4B4B4B4B4B4B4B4B7A7B7C7D7E7F'  70                  00840000\r\n000E8C 4BC1C2C3C4C5C6C7             605+         DC    X'4BC1C2C3C4C5C6C7C8C94B4B4B4B4B4B'  80                  00850000\r\n000E9C 4BD1D2D3D4D5D6D7             606+         DC    X'4BD1D2D3D4D5D6D7D8D94B4B4B4B4B4B'  90                  00860000\r\n000EAC 4B4BE2E3E4E5E6E7             607+         DC    X'4B4BE2E3E4E5E6E7E8E94B4B4B4B4B4B'  A0                  00870000\r\n000EBC 4B4B4B4B4B4B4B4B             608+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  B0                  00880000\r\n000ECC 4BC1C2C3C4C5C6C7             609+         DC    X'4BC1C2C3C4C5C6C7C8C94B4B4B4B4B4B'  C0                  00890000\r\n000EDC 4BD1D2D3D4D5D6D7             610+         DC    X'4BD1D2D3D4D5D6D7D8D94B4B4B4B4B4B'  D0                  00900000\r\n000EEC 4B4BE2E3E4E5E6E7             611+         DC    X'4B4BE2E3E4E5E6E7E8E94B4B4B4B4B4B'  E0                  00910000\r\n000EFC F0F1F2F3F4F5F6F7             612+         DC    X'F0F1F2F3F4F5F6F7F8F94B4B4B4B4B4B'  F0                  00920000\r\n                                    613+*                                                                       00930000\r\n                                    614+*                                                                       00940000\r\n000F0C F0F1F2F3F4F5F6F7             615+@002299  DC    C'0123456789ABCDEF'                                      00950000\r\n                                                                                                               PAGE   16\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n                                    616          @ERR  ,                                                        04370000\r\n000F20                              617+         DS   0D                                                        00030000\r\n000F20 0002000000BE0001             618+@ERRPRT1 DC   X'0002000000',X'BE0001'                                   00040000\r\n000F28 0002000000BE0002             619+@ERRPRT2 DC   X'0002000000',X'BE0002'                                   00050000\r\n                                    620          @REGS ,                                                        04380000\r\n                            00000   621+R0       EQU   0                                                        00030000\r\n                            00001   622+R1       EQU   1                                                        00040000\r\n                            00002   623+R2       EQU   2                                                        00050000\r\n                            00003   624+R3       EQU   3                                                        00060000\r\n                            00004   625+R4       EQU   4                                                        00070000\r\n                            00005   626+R5       EQU   5                                                        00080000\r\n                            00006   627+R6       EQU   6                                                        00090000\r\n                            00007   628+R7       EQU   7                                                        00100000\r\n                            00008   629+R8       EQU   8                                                        00110000\r\n                            00009   630+R9       EQU   9                                                        00120000\r\n                            0000A   631+R10      EQU   10                                                       00130000\r\n                            0000B   632+R11      EQU   11                                                       00140000\r\n                            0000C   633+R12      EQU   12                                                       00150000\r\n                            0000D   634+R13      EQU   13                                                       00160000\r\n                            0000E   635+R14      EQU   14                                                       00170000\r\n                            0000F   636+R15      EQU   15                                                       00180000\r\n                                    637          POP   PRINT                                                    04390000\r\n                                    638 *                                                                       04400000\r\n                                    639 **********************************************************************  04410000\r\n                                    640 *                                                                       04420000\r\n000F30                              641          LTORG ,                                                        04430000\r\n000F30 FFFFFFFFFFFFFFFF             642                =XL8'FFFFFFFFFFFFFFFF'\r\n000F38 E3E7E7D5E4C3F2F8             643                =CL8'TXXNUC28'\r\n000F40 5C5C5C40C5D6C640             644                =C'*** EOF READING DATA ***'\r\n000F58 606060D9C5C1C440             645                =C'---READ VOLUME LABEL'\r\n000F6C 00000002                     646                =F'2'\r\n000F70 00000000                     647                =F'0'\r\n000F74 0000001F                     648                =A(X'1F')\r\n000F78 00004A7D                     649                =A(19069)\r\n000F7C 6060606060D9C5C1             650                =C'-----READ DIRECTORY BLOCKS'\r\n000F96 C4C9D9C5C3E3D6D9             651                =C'DIRECTORY ENTRY FOR TXXNUC28 NOT FOUND'\r\n000FBC 606060606040D9C5             652                =C'----- READ PDS MEMBER DATA'\r\n000FD6 5C5C5C40C5D9D9D6             653                =C'*** ERROR READING DATA ***'\r\n000FF0 0C00                         654                =X'0C00'\r\n000FF2 0000000003                   655                =X'0000000003'\r\n000FF7 6060606060D9C5C1             656                =C'-----READ FORMAT 4 DSCB'\r\n00100E 6060606060C6C9D5             657                =C'-----FIND FORMAT 1 DSCB ''TXXOS.NUCLEUS'''\r\n001035 5C5C5C40E3E7E7D6             658                =C'*** TXXOS.NUCLEUS NOT FOUND ***'\r\n001054 40                           659                =C' '\r\n                                                                                                               PAGE   17\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n001055 6060606060606060             660                =C'-------- IOR --------'\r\n                                    661 *                                                                       04440000\r\n                                    662 **********************************************************************  04450000\r\n                                    663 *                                                                       04460000\r\n00106A E3E7E7D6E24BD5E4             664 DSNAME   DC    CL44'TXXOS.NUCLEUS'                                      04470000\r\n                                    665 *                                                                       04480000\r\n                                    666 *                                                                       04490000\r\n                                    667 *                                                                       04500000\r\n001098                              668          DS    0D                                                       04510000\r\n001098 0400117820000020             669 CCWSENSE DC    X'04',AL3(SENSE),AL1(@CCW#SLI,0),AL2(32)                 04520000\r\n                                    670 *                                                                       04530000\r\n                                    671 *                                                                       04540000\r\n0010A0                              672          DS    0D                                                       04550000\r\n0010A0 0700121940000006             673 CCWSEEK  DC    X'07',AL3(MBBCCHHR+1),AL1(@CCW#CC),X'00',AL2(6)          04560000\r\n0010A8 3100121B40000005             674 CCWSRCH  DC    X'31',AL3(MBBCCHHR+3),AL1(@CCW#CC),X'00',AL2(5)          04570000\r\n0010B0 080010A840000000             675          DC    X'08',AL3(CCWSRCH),AL1(@CCW#CC),X'00',AL2(0)             04580000\r\n0010B8 0600130020000800             676 CCWREAD  DC    X'06',AL3(INBUF),AL1(@CCW#SLI),X'00',AL2(2048)           04590000\r\n                                    677 *                                                                       04600000\r\n                                    678 *                                                                       04610000\r\n                                    679 *                                                                       04620000\r\n0010C0 0000000000                   680 VTOCADDR DC   XL5'00'        ADDR OF VTOC FROM VOLUME LABEL RECORD      04630000\r\n0010C5 00000000                     681 VTOCEND  DC   XL4'00'        ENDING ADDRESS OF VTOC EXTENT (CCHH)       04640000\r\n0010C9 0000000000                   682 HIWATER  DC   XL5'00'        HIGH WATER DSCB ADDRESS (CCHHR)            04650000\r\n                                    683 *                                                                       04660000\r\n0010CE 00000000                     684 BEGEXT   DC   XL4'00'        BEGINNING CCHH OF DATA SET                 04670000\r\n                                    685 *                                                                       04680000\r\n0010D2 0000                         686 TRKCYL   DC   H'0'           TRACKS\/CYLINDER                            04690000\r\n                                    687 *                                                                       04700000\r\n                                    688 *                                                                       04710000\r\n                                    689 **********************************************************************  04720000\r\n                                    690 *                                                                       04730000\r\n                                    691 *   WAIT STATE PSW                                                      04740000\r\n                                    692 *                                                                       04750000\r\n                                    693 **********************************************************************  04760000\r\n                                    694 *                                                                       04770000\r\n0010D8                              695          DS    0D                                                       04780000\r\n0010D8 0002000000000ACE             696 DONE     DC    X'0002000000',X'000ACE'                                  04790000\r\n0010E0 0002000000000BAD             697 ERRPSW   DC    X'0002000000',X'000BAD'                                  04800000\r\n                                    698 *                                                                       04810000\r\n                                    699 **********************************************************************  04820000\r\n                                    700 *   SAVE AREAS                                                          04830000\r\n                                    701 *                                                                       04840000\r\n                                    702 **********************************************************************  04850000\r\n                                    703 *                                                                       04860000\r\n                                                                                                               PAGE   18\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n0010E8                              704 SAVEA    DS    18F                                                      04870000\r\n001130                              705 XIOSAVE  DS    18F                                                      04880000\r\n                                    706 *                                                                       04890000\r\n001178                              707 SENSE    DS    XL32          SENSE I\/O BUFFER                           04900000\r\n001198                              708 DSCB1BUF DS    CL96          DSCB  I\/O BUFFER                           04910000\r\n                                    709 *                                                                       04920000\r\n                                    710 *                                                                       04930000\r\n                                    711 **********************************************************************  04940000\r\n                                    712 * IOR (I\/O REQUEST) BLOCK                                               04950000\r\n                                    713 *                                                                       04960000\r\n                                    714 **********************************************************************  04970000\r\n0011F8                              715          DS    XL((((*-BEGIN+16)\/16)*16)-(*-BEGIN))                     04980000\r\n                                    716 *                                                                       04990000\r\n001200 000010A003450000             717 IORB     DC    A(CCWSEEK),AL2(X'345'),AL2(0),XL8'00',XL2'0'             05000000\r\n                                    718 *                                                                       05010000\r\n                                    719 **********************************************************************  05020000\r\n                                    720 *  MBBCCHHR - BLOCK ID AREA                                             05030000\r\n                                    721 **********************************************************************  05040000\r\n                                    722 *                                                                       05050000\r\n001218                              723          DS    0D                                                       05060000\r\n                                    724 *                                                                       05070000\r\n                                    725 *               +0+1+2+3+4+5+6+7                                        05080000\r\n                                    726 *                 M B B C C H H R                                       05090000\r\n                                    727 **********     X'0000000000000001'                                      05100000\r\n                                    728 *                                                                       05110000\r\n001218                              729 MBBCCHHR DS    0XL8                                                     05120000\r\n001218 000000                       730 MBB      DC    X'000000'                                                05130000\r\n00121B                              731 CCHHR    DS    0XL5                                                     05140000\r\n00121B                              732 CCHH     DS    0CL4                                                     05150000\r\n00121B 0000                         733 CC       DC    X'0000'                                                  05160000\r\n00121D 0000                         734 HH       DC    X'0000'                                                  05170000\r\n00121F 01                           735 R        DC    X'01'                                                    05180000\r\n                                    736 *                                                                       05190000\r\n                                    737 *********************************************************************   05200000\r\n                                    738 *                                                                       05210000\r\n                                    739 *   INBUF - MUST BE LAST                                                05220000\r\n                                    740 *                                                                       05230000\r\n                                    741 *********************************************************************   05240000\r\n                                    742 *                                                                       05250000\r\n001220                              743          DS    0D                                                       05260000\r\n001220                              744          DS    XL((((*-BEGIN+256)\/256)*256)-(*-BEGIN))                  05270000\r\n001300                              745 INBUF    DS    0X   L19069                                              05280000\r\n                                    746 *                                                                       05290000\r\n                                    747 *********************************************************************   05300000\r\n                                                                                                               PAGE   19\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n                                    748 *                                                                       05310000\r\n                                    749 *  XXXXX   XXX   XXXX                                                   05320000\r\n                                    750 *    X    X   X  X   X                                                  05330000\r\n                                    751 *    X    X   X  X   X                                                  05340000\r\n                                    752 *    X    X   X  XXXX                                                   05350000\r\n                                    753 *    X    X   X  X  X                                                   05360000\r\n                                    754 *  XXXXX   XXX   X   X                                                  05370000\r\n                                    755 *                                                                       05380000\r\n                                    756 *********************************************************************   05390000\r\n                                    757 *                                                                       05400000\r\n000000                              758 IOR      DSECT ,                                                        05410000\r\n000000                              759 IORCCW   DS    A             ADDRESS OF CCW                             05420000\r\n000004                              760 IORUNIT  DS    XL2           DEVICE ADDRESS                             05430000\r\n000006                              761 IORSIOCC DS    X             SIO CONDITION CODE                         05440000\r\n000007                              762          DS    X                                                        05450000\r\n000008                              763 IORCSW   DS    XL8           CHANNEL STATUS WORD                        05460000\r\n000010                              764 IORSENS0 DS    X             SENSE BYTE 0                               05470000\r\n000011                              765 IORSENS1 DS    X             SENSE BYTE 1                               05480000\r\n                                    766 *                                                                       05490000\r\n                            00012   767 IORLEN   EQU   *-IOR                                                    05500000\r\n                                    768 *                                                                       05510000\r\n                                    769 *                                                                       05520000\r\n                                    770 *********************************************************************   05530000\r\n                                    771 *                                                                       05540000\r\n                                    772          @CCW  ,                                                        05550000\r\n                            00080   773+@CCW#CD  EQU   X'80'         * CHAIN DATA                               00030000\r\n                            00040   774+@CCW#CC  EQU   X'40'         * COMMAND CHAIN                            00040000\r\n                            00020   775+@CCW#SLI EQU   X'20'         * SUPPRESS LENGTH INDICATION               00050000\r\n                            00010   776+@CCW#SKP EQU   X'10'         * SKIP                                     00060000\r\n                            00008   777+@CCW#PCI EQU   X'08'         * PROGRAM CONTROLLED INTERRUPT             00070000\r\n                            00004   778+@CCW#IDA EQU   X'04'         * INDIRECT ADDRESS                         00080000\r\n                                    779+*                                                                       00090000\r\n                                    780+*                                                                       00100000\r\n000000                              781+@CCW     DSECT ,                                                        00110000\r\n000000                              782+@CCWCMD  DS    X             - COMMAND CODE                             00120000\r\n000001                              783+@CCWDATA DS    AL3           - DATA ADDRESS                             00130000\r\n000004                              784+@CCWFLAG DS    X             - FLAGS                                    00140000\r\n000005                              785+         DS    X             - RESERVED (ZERO)                          00150000\r\n000006                              786+@CCWLEN  DS    AL2 N         - LENGTH                                   00160000\r\n                                    787+*                                                                       00170000\r\n                                    788 *                                                                       05560000\r\n                                    789 *********************************************************************   05570000\r\n                                    790 *                                                                       05580000\r\n                                    791          @DSCB4 ,                                                       05590000\r\n                                                                                                               PAGE   20\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n000000                              792+DSCB4    DSECT ,                                                        00030000\r\n000000                              793+DS4IDFMT DS    X              FORMAT IDENTIFIER X'F4'                   00040000\r\n000001                              794+DS4HPCHR DS    XL5            HIGHEST ADDRESS OF A FORMAT 1 DSCB        00050000\r\n000006                              795+DS4DSREC DS    XL2            NUMBER OF AVAILABLE DSCB'S                00060000\r\n                                    796+*                                                                       00070000\r\n000008                              797+DS4HCCHH DS    XL4            CCHH OF NEXT AVAILABLE ALTERNATE TRK      00080000\r\n00000C                              798+DS4NOATK DS    XL2            NUMBER OF REMAINING ALTERNATE TRACKS      00090000\r\n                                    799+*                                                                       00100000\r\n00000E                              800+DS4VTOCI DS    X              VTOC INDICATORS                           00110000\r\n                            00080   801+DS4DOSBT EQU   X'80'          * DOS BIT                                 00120000\r\n                            00010   802+DS4DSTKP EQU   X'10'          * DOS STACKED BIT                         00130000\r\n                            00008   803+DS4DOCVT EQU   X'08'          * DOS CONVERTED VTOC                      00140000\r\n                            00004   804+DS4DIRF  EQU   X'04'          * DIRF BIT                                00150000\r\n                            00002   805+DS4DICVT EQU   X'02'          * DIRF RECLAIMED                          00160000\r\n                            00001   806+DS4IVTOC EQU   X'01'          * VOLUME USES AN INDEXED VTOC             00170000\r\n                                    807+*                                                                       00180000\r\n00000F                              808+DS4NOEXT DS    X              NUMBER OF EXTENTS IN THE VTOC             00190000\r\n                                    809+*                                                                       00200000\r\n000010                              810+         DS    XL2            RESERVED                                  00210000\r\n000012                              811+DS4DEVCT DS    0XL14          DEVICE CONSTANTS                          00220000\r\n000012                              812+DS4DEVSZ DS    XL4            DEVICE SIZE                               00230000\r\n                                    813+*                            * XL2 CYLS\/DEVICE                          00240000\r\n                                    814+*                            * XL2 TRKS\/CYL                             00250000\r\n000016                              815+DS4DEVTK DS    XL2            DEVICE TRACK LENGTH                       00260000\r\n000018                              816+DS4DEVOV DS    XL2            KEYED RECORD OVERHEAD                     00270000\r\n00001A                              817+DS4DEVI  DS    X              NON-LAST KEYED RECORD OVERHEAD            00280000\r\n00001B                              818+DS4DEVL  DS    X              LAST KEYED RECORD OVERHEAD                00290000\r\n00001C                              819+DS4DEVK  DS    X              NON-KEYED RECORD OVERHEAD DIFFERENTIAL    00300000\r\n00001D                              820+DS4DEVFG DS    X              FLAG BYTE                                 00310000\r\n                                    821+*                                                                       00320000\r\n00001E                              822+DS4DEVTL DS    XL2            DEVICE TOLERANCE                          00330000\r\n000020                              823+DS4DEVDT DS    X              NUMBER OF DSCB'S PER TRACK                00340000\r\n000021                              824+DS4DEVDB DS    X              NUMBER OF DIRECTORY BLOCKS PER TRACK      00350000\r\n                                    825+*                                                                       00360000\r\n000022                              826+DS4AMTIM DS    XL8            VSAM TIME STAMP                           00370000\r\n                                    827+*                                                                       00380000\r\n00002A                              828+DS4AMCAT DS    0XL3           VSAM CATALOG INDICATOR                    00390000\r\n00002A                              829+DS4VSIND DS    X              VSAM INDICATORS                           00400000\r\n00002B                              830+DS4VSCRA DS    XL2            RELATIVE TRACK LOCATION OF THE CRA        00410000\r\n                                    831+*                                                                       00420000\r\n00002D                              832+DS4R2TIM DS    XL8            VSAM VOLUME\/CATALOG MATCH TIME STAMP      00430000\r\n000035                              833+         DS    CL5            RESERVED                                  00440000\r\n                                    834+*                                                                       00450000\r\n00003A                              835+DS4F6PTR DS    CL5            POINTER TO FIRST FORMAT 6 DSCB            00460000\r\n                                                                                                               PAGE   21\r\n\r\n  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12\/08\/11\r\n\r\n00003F                              836+DS4VTOCE DS    CL10           VTOC EXTENT DESCRIPTION                   00470000\r\n000049                              837+         DS    XL25           RESERVED                                  00480000\r\n                            00062   838+DS4END   EQU   *                                                        00490000\r\n                                    839 *                                                                       05600000\r\n                                    840 *********************************************************************   05610000\r\n                                    841 *                                                                       05620000\r\n                                    842          END   ,                                                        05630000<\/pre>\n<p>[Next &#8211; <a title=\"DISK3 Output\" href=\"http:\/\/tommysprinkle.com\/txxos\/?p=262\">DISK3 Output<\/a>]<\/p>\n","protected":false},"excerpt":{"rendered":"<p>PAGE 12 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM 0201 15.58 12\/08\/11 000BDE 441 WAITIO99 DS 0H 03930000 000BDE 442 TIOCC1 DS 0H 03940000 000BDE 41F0 0010 00010 443 LA R15,16 03950000 000BE2 47F0 C3E4 00BE6 444 B &hellip; <a href=\"https:\/\/tommysprinkle.com\/txxos\/?p=253\">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-253","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p1CPQT-45","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/253","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=253"}],"version-history":[{"count":4,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/253\/revisions"}],"predecessor-version":[{"id":497,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=\/wp\/v2\/posts\/253\/revisions\/497"}],"wp:attachment":[{"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=253"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=253"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/tommysprinkle.com\/txxos\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=253"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}