DISK3 Assembly Listing – Part 2

                                                                                                               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     XIOXT                                                    03960000
                                    445 *                                                                       03970000
                                    446 *                                                                       03980000
000BE6                              447 XIOXT    DS    0H                                                       03990000
000BE6 5810 D004      00004         448          L     R1,4(,R13)                                               04000000
000BEA 50F0 1010      00010         449          ST    R15,16(,R1)                                              04010000
                                    450 *                                                                       04020000
000BEE 12FF                         451          LTR   R15,R15                                                  04030000
000BF0 4780 C42A      00C2C         452          BZ    XIOXT10                                                  04040000
                                    453 *                                                                       04050000
                                    454          @PRINT '-------- IOR --------'                                 04060000
000BF4 4110 C853      01055         455+         LA     R1,=C'-------- IOR --------'                            00170000
000BF8 4100 0015      00015         456+         LA     R0,21                                                   00200000
000BFC 41F0 C43C      00C3E         457+         LA     R15,@PRINT                                              00210000
000C00 05EF                         458+         BALR   R14,R15                                                 00220000
                                    459          @DUMP IORB,IORLEN                                              04070000
000C02 4110 C9FE      01200         460+         LA    R1,IORB                                                  00360000
000C06 4100 0012      00012         461+         LA    R0,IORLEN                                                00360000
000C0A 41F0 C496      00C98         462+         LA    R15,@DUMP                                                00080000
000C0E 05EF                         463+         BALR  R14,R15                                                  00090000
                                    464          @PRINT ' '                                                     04080000
000C10 4110 C852      01054         465+         LA     R1,=C' '                                                00170000
000C14 4100 0001      00001         466+         LA     R0,1                                                    00200000
000C18 41F0 C43C      00C3E         467+         LA     R15,@PRINT                                              00210000
000C1C 05EF                         468+         BALR   R14,R15                                                 00220000
                                    469          @PRINT ' '                                                     04090000
000C1E 4110 C852      01054         470+         LA     R1,=C' '                                                00170000
000C22 4100 0001      00001         471+         LA     R0,1                                                    00200000
000C26 41F0 C43C      00C3E         472+         LA     R15,@PRINT                                              00210000
000C2A 05EF                         473+         BALR   R14,R15                                                 00220000
                                    474 *                                                                       04100000
000C2C                              475 XIOXT10  DS    0H                                                       04110000
000C2C 58D0 D004      00004         476          L     R13,4(,R13)                                              04120000
000C30 98EC D00C      0000C         477          LM    R14,R12,12(R13)    RESTORE CALLER'S REGS                 04130000
000C34 07FE                         478          BR    R14                RETURN TO CALLER                      04140000
                                    479 *                                                                       04150000
                                    480 *                                                                       04160000
                                    481 **********************************************************************  04170000
                                    482 *                                                                       04180000
                                    483 *   LOAD WAIT STATE PSW TO HALT EXECUTION                               04190000
                                    484 *                                                                       04200000
                                                                                                               PAGE   13

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12/08/11

                                    485 **********************************************************************  04210000
                                    486 *                                                                       04220000
000C36 8200 C8D6      010D8         487 EXIT     LPSW   DONE             LOAD A WAIT PSW                        04230000
000C3A 8200 C8DE      010E0         488 ERREXIT  LPSW   ERRPSW           LOAD A WAIT PSW                        04240000
                                    489 *                                                                       04250000
                                    490 **********************************************************************  04260000
                                    491 *                                                                       04270000
                                    492 *   UTILITY SUBROUTINES                                                 04280000
                                    493 *                                                                       04290000
                                    494 **********************************************************************  04300000
                                    495 *                                                                       04310000
                                    496          PUSH   PRINT                                                   04320000
                                    497 *        PRINT  NOGEN                                                   04330000
                                    498          @PRINT GEN=YES                                                 04340000
000C3E 90EC D00C      0000C         499+@PRINT   STM    R14,R12,12(R13)        SAVE CALLERS REGISTERS           00270000
000C42 1821                         500+         LR     R2,R1                  POINT TO DATA TO PRINT           00280000
000C44 1830                         501+         LR     R3,R0                  LENGTH OF DATA TO PRINT          00290000
000C46 4110 0084      00084         502+         LA     R1,132                 MAX LENGTH WE CAN PRINT          00300000
000C4A 1931                         503+         CR     R3,R1                  TOO BIG                          00310000
000C4C 47D0 C450      00C52         504+         BNH    @002101                NO - BRANCH                      00320000
000C50 1831                         505+         LR     R3,R1                  SET TO MAX                       00330000
000C52                              506+@002101  DS     0H                                                      00340000
000C52 5020 C48E      00C90         507+         ST     R2,@002190             SAVE DATA ADDR INTO CCW          00350000
000C56 9209 C48E      00C90         508+         MVI    @002190,X'09'          PRINT: SINGLE SPACE              00360000
000C5A 5030 C492      00C94         509+         ST     R3,@002190+4           SAVE LENGTH INTO CCW             00370000
000C5E 4110 C48E      00C90         510+         LA     R1,@002190             POINT TO CCW                     00380000
000C62 5010 0048      00048         511+         ST     R1,72                  SAVE INTO CAW                    00390000
000C66 4120 000E      0000E         512+         LA     R2,X'00E'              GET PRINT DEVICE ADDRESS         00400000
000C6A 9C00 2000      00000         513+         SIO    0(R2)                                                   00410000
000C6E 4770 C486      00C88         514+         BNZ    @002181                BRANCH IF ERROR                  00420000
000C72                              515+@002102  DS     0H                                                      00430000
000C72 9D00 2000      00000         516+         TIO    0(R2)                  WAIT FOR I/O TO COMPLETE         00440000
000C76 4780 C480      00C82         517+         BZ     @002103                COMPLETE                         00450000
000C7A 4710 C48A      00C8C         518+         BC     1,@002182              BRANCH IF ERROR                  00460000
000C7E 47F0 C470      00C72         519+         B      @002102                LOOP BACK AND WAIT               00470000
                                    520+*                                                                       00480000
000C82                              521+@002103  DS     0H                                                      00490000
000C82 98EC D00C      0000C         522+         LM     R14,R12,12(R13)        RESTORE REGISTERS                00500000
000C86 07FE                         523+         BR     R14                                                     00510000
                                    524+*                                                                       00520000
000C88 8200 C71E      00F20         525+@002181  LPSW   @ERRPRT1               LOAD WAIT PSW                    00530000
000C8C 8200 C726      00F28         526+@002182  LPSW   @ERRPRT2               LOAD WAIT PSW                    00540000
000C90                              527+         DS     0D                                                      00550000
000C90 0000000000000000             528+@002190  DC     X'00',AL3(0),X'00',X'00',AL2(0)  CCW                    00560000
                                                                                                               PAGE   14

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12/08/11

                                    529 *        @CARD  GEN=YES                                                 04350000
                                    530          @DUMP  GEN=YES                                                 04360000
000C98 90EC D00C      0000C         531+@DUMP    STM   R14,R12,12(R13)                                          00140000
000C9C 41F0 C5AE      00DB0         532+         LA    R15,@002280        NEW SAVE AREA                         00150000
000CA0 50F0 D008      00008         533+         ST    R15,8(,R13)                                              00160000
000CA4 50D0 F004      00004         534+         ST    R13,4(,R15)                                              00170000
000CA8 18DF                         535+         LR    R13,R15                                                  00180000
                                    536+*                                                                       00190000
000CAA 18A1                         537+         LR    R10,R1             DATA ADDRESS                          00200000
000CAC 18B0                         538+         LR    R11,R0             LENGTH                                00210000
000CAE 1ABA                         539+         AR    R11,R10            END ADDRESS                           00220000
                                    540+*                                                                       00230000
000CB0 54A0 C606      00E08         541+         N     R10,@002283        ALIGN                                 00240000
000CB4                              542+@002201  DS    0H                                                       00250000
000CB4 9240 C528      00D2A         543+         MVI   @002270,C' '       CLEAR PRINT BUFFER                    00260000
000CB8 D282 C529 C528 00D2B 00D2A   544+         MVC   @002270+1(L'@002270-1),@002270                           00270000
000CBE 50A0 C5F6      00DF8         545+         ST    R10,@002281        ADDRESS                               00280000
000CC2 F384 C5FA C5F6 00DFC 00DF8   546+         UNPK  @002282(9),@002281(5)                                    00290000
000CC8 DC07 C5FA C61A 00DFC 00E1C   547+         TR    @002282(8),@002299-C'0'                                  00300000
000CCE D207 C528 C5FA 00D2A 00DFC   548+         MVC   @002271,@002282                                          00310000
                                    549+*                                                                       00320000
000CD4 D20F C557 A000 00D59 00000   550+         MVC   @002274,0(R10)                                           00330000
000CDA DC0F C557 C60A 00D59 00E0C   551+         TR    @002274,@002298    KEEP ONLY PRINTABLE                   00340000
                                    552+*                                                                       00350000
000CE0 4120 C532      00D34         553+         LA    R2,@002272         FIRST DATA AREA                       00360000
000CE4 4130 0004      00004         554+         LA    R3,4                                                     00370000
000CE8                              555+@002202  DS    0H                                                       00380000
000CE8 D203 C5F6 A000 00DF8 00000   556+         MVC   @002281(4),0(R10)                                        00390000
000CEE F384 C5FA C5F6 00DFC 00DF8   557+         UNPK  @002282(9),@002281(5)                                    00400000
000CF4 DC07 C5FA C61A 00DFC 00E1C   558+         TR    @002282(8),@002299-C'0'                                  00410000
000CFA D207 2000 C5FA 00000 00DFC   559+         MVC   0(8,R2),@002282                                          00420000
000D00 41A0 A004      00004         560+         LA    R10,4(,R10)                                              00430000
000D04 4120 2009      00009         561+         LA    R2,9(,R2)                                                00440000
000D08 4630 C4E6      00CE8         562+         BCT   R3,@002202                                               00450000
                                    563+*                                                                       00460000
                                    564+*                                                                       00470000
000D0C 4110 C528      00D2A         565+         LA    R1,@002270                                               00360000
000D10 4100 0084      00084         566+         LA    R0,132                                                   00360000
000D14 41F0 C43C      00C3E         567+         LA     R15,@PRINT                                              00110000
000D18 05EF                         568+         BALR   R14,R15                                                 00120000
                                    569+*                                                                       00490000
                                    570+*                                                                       00500000
000D1A 19AB                         571+         CR    R10,R11            STILL MORE TO DO                      00510000
000D1C 4740 C4B2      00CB4         572+         BL    @002201            YES - LOOP BACK                       00520000
                                                                                                               PAGE   15

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12/08/11

                                    573+*                                                                       00530000
                                    574+*                                                                       00540000
000D20 58D0 D004      00004         575+         L     R13,4(,R13)                                              00550000
000D24 98EC D00C      0000C         576+         LM    R14,R12,12(R13)                                          00560000
000D28 07FE                         577+         BR    R14                                                      00570000
                                    578+*                                                                       00580000
                                    579+*                                                                       00590000
000D2A 4040404040404040             580+@002270  DC    CL132' '                                                 00600000
000DAE                      00D2A   581+         ORG   @002270                                                  00610000
000D2A                              582+@002271  DS    CL8                                                      00620000
000D32                              583+         DS    CL2                                                      00630000
000D34                              584+@002272  DS    CL8,CL1,CL8,CL1,CL8,CL1,CL8,CL2                          00640000
000D59                              585+@002274  DS    CL16                                                     00650000
000D69                      00DAE   586+         ORG   ,                                                        00660000
                                    587+*                                                                       00670000
000DAE 0000
000DB0 0000000000000000             588+@002280  DC    18F'0'                                                   00680000
000DF8 00000000                     589+@002281  DC    F'0'                                                     00690000
000DFC F040404040404040             590+@002282  DC    CL9'0'                                                   00700000
000E08                              591+         DS    0F                                                       00710000
000E08 00FFFFF0                     592+@002283  DC    X'00FFFFF0'                                              00720000
                                    593+*                                                                       00730000
                                    594+*                                                                       00740000
000E0C                              595+@002298  DS    0C                                                       00750000
                                    596+*                 0 1 2 3 4 5 6 7 8 9 A B C D E F                       00760000
000E0C 4B4B4B4B4B4B4B4B             597+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  00                  00770000
000E1C 4B4B4B4B4B4B4B4B             598+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  10                  00780000
000E2C 4B4B4B4B4B4B4B4B             599+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  20                  00790000
000E3C 4B4B4B4B4B4B4B4B             600+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  30                  00800000
000E4C 4B4B4B4B4B4B4B4B             601+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  40                  00810000
000E5C 504B4B4B4B4B4B4B             602+         DC    X'504B4B4B4B4B4B4B4B4B5A5B5C5D5E5F'  50                  00820000
000E6C 60614B4B4B4B4B4B             603+         DC    X'60614B4B4B4B4B4B4B4B6A6B6C6D6E6F'  60                  00830000
000E7C 4B4B4B4B4B4B4B4B             604+         DC    X'4B4B4B4B4B4B4B4B4B4B7A7B7C7D7E7F'  70                  00840000
000E8C 4BC1C2C3C4C5C6C7             605+         DC    X'4BC1C2C3C4C5C6C7C8C94B4B4B4B4B4B'  80                  00850000
000E9C 4BD1D2D3D4D5D6D7             606+         DC    X'4BD1D2D3D4D5D6D7D8D94B4B4B4B4B4B'  90                  00860000
000EAC 4B4BE2E3E4E5E6E7             607+         DC    X'4B4BE2E3E4E5E6E7E8E94B4B4B4B4B4B'  A0                  00870000
000EBC 4B4B4B4B4B4B4B4B             608+         DC    X'4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B4B'  B0                  00880000
000ECC 4BC1C2C3C4C5C6C7             609+         DC    X'4BC1C2C3C4C5C6C7C8C94B4B4B4B4B4B'  C0                  00890000
000EDC 4BD1D2D3D4D5D6D7             610+         DC    X'4BD1D2D3D4D5D6D7D8D94B4B4B4B4B4B'  D0                  00900000
000EEC 4B4BE2E3E4E5E6E7             611+         DC    X'4B4BE2E3E4E5E6E7E8E94B4B4B4B4B4B'  E0                  00910000
000EFC F0F1F2F3F4F5F6F7             612+         DC    X'F0F1F2F3F4F5F6F7F8F94B4B4B4B4B4B'  F0                  00920000
                                    613+*                                                                       00930000
                                    614+*                                                                       00940000
000F0C F0F1F2F3F4F5F6F7             615+@002299  DC    C'0123456789ABCDEF'                                      00950000
                                                                                                               PAGE   16

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12/08/11

                                    616          @ERR  ,                                                        04370000
000F20                              617+         DS   0D                                                        00030000
000F20 0002000000BE0001             618+@ERRPRT1 DC   X'0002000000',X'BE0001'                                   00040000
000F28 0002000000BE0002             619+@ERRPRT2 DC   X'0002000000',X'BE0002'                                   00050000
                                    620          @REGS ,                                                        04380000
                            00000   621+R0       EQU   0                                                        00030000
                            00001   622+R1       EQU   1                                                        00040000
                            00002   623+R2       EQU   2                                                        00050000
                            00003   624+R3       EQU   3                                                        00060000
                            00004   625+R4       EQU   4                                                        00070000
                            00005   626+R5       EQU   5                                                        00080000
                            00006   627+R6       EQU   6                                                        00090000
                            00007   628+R7       EQU   7                                                        00100000
                            00008   629+R8       EQU   8                                                        00110000
                            00009   630+R9       EQU   9                                                        00120000
                            0000A   631+R10      EQU   10                                                       00130000
                            0000B   632+R11      EQU   11                                                       00140000
                            0000C   633+R12      EQU   12                                                       00150000
                            0000D   634+R13      EQU   13                                                       00160000
                            0000E   635+R14      EQU   14                                                       00170000
                            0000F   636+R15      EQU   15                                                       00180000
                                    637          POP   PRINT                                                    04390000
                                    638 *                                                                       04400000
                                    639 **********************************************************************  04410000
                                    640 *                                                                       04420000
000F30                              641          LTORG ,                                                        04430000
000F30 FFFFFFFFFFFFFFFF             642                =XL8'FFFFFFFFFFFFFFFF'
000F38 E3E7E7D5E4C3F2F8             643                =CL8'TXXNUC28'
000F40 5C5C5C40C5D6C640             644                =C'*** EOF READING DATA ***'
000F58 606060D9C5C1C440             645                =C'---READ VOLUME LABEL'
000F6C 00000002                     646                =F'2'
000F70 00000000                     647                =F'0'
000F74 0000001F                     648                =A(X'1F')
000F78 00004A7D                     649                =A(19069)
000F7C 6060606060D9C5C1             650                =C'-----READ DIRECTORY BLOCKS'
000F96 C4C9D9C5C3E3D6D9             651                =C'DIRECTORY ENTRY FOR TXXNUC28 NOT FOUND'
000FBC 606060606040D9C5             652                =C'----- READ PDS MEMBER DATA'
000FD6 5C5C5C40C5D9D9D6             653                =C'*** ERROR READING DATA ***'
000FF0 0C00                         654                =X'0C00'
000FF2 0000000003                   655                =X'0000000003'
000FF7 6060606060D9C5C1             656                =C'-----READ FORMAT 4 DSCB'
00100E 6060606060C6C9D5             657                =C'-----FIND FORMAT 1 DSCB ''TXXOS.NUCLEUS'''
001035 5C5C5C40E3E7E7D6             658                =C'*** TXXOS.NUCLEUS NOT FOUND ***'
001054 40                           659                =C' '
                                                                                                               PAGE   17

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12/08/11

001055 6060606060606060             660                =C'-------- IOR --------'
                                    661 *                                                                       04440000
                                    662 **********************************************************************  04450000
                                    663 *                                                                       04460000
00106A E3E7E7D6E24BD5E4             664 DSNAME   DC    CL44'TXXOS.NUCLEUS'                                      04470000
                                    665 *                                                                       04480000
                                    666 *                                                                       04490000
                                    667 *                                                                       04500000
001098                              668          DS    0D                                                       04510000
001098 0400117820000020             669 CCWSENSE DC    X'04',AL3(SENSE),AL1(@CCW#SLI,0),AL2(32)                 04520000
                                    670 *                                                                       04530000
                                    671 *                                                                       04540000
0010A0                              672          DS    0D                                                       04550000
0010A0 0700121940000006             673 CCWSEEK  DC    X'07',AL3(MBBCCHHR+1),AL1(@CCW#CC),X'00',AL2(6)          04560000
0010A8 3100121B40000005             674 CCWSRCH  DC    X'31',AL3(MBBCCHHR+3),AL1(@CCW#CC),X'00',AL2(5)          04570000
0010B0 080010A840000000             675          DC    X'08',AL3(CCWSRCH),AL1(@CCW#CC),X'00',AL2(0)             04580000
0010B8 0600130020000800             676 CCWREAD  DC    X'06',AL3(INBUF),AL1(@CCW#SLI),X'00',AL2(2048)           04590000
                                    677 *                                                                       04600000
                                    678 *                                                                       04610000
                                    679 *                                                                       04620000
0010C0 0000000000                   680 VTOCADDR DC   XL5'00'        ADDR OF VTOC FROM VOLUME LABEL RECORD      04630000
0010C5 00000000                     681 VTOCEND  DC   XL4'00'        ENDING ADDRESS OF VTOC EXTENT (CCHH)       04640000
0010C9 0000000000                   682 HIWATER  DC   XL5'00'        HIGH WATER DSCB ADDRESS (CCHHR)            04650000
                                    683 *                                                                       04660000
0010CE 00000000                     684 BEGEXT   DC   XL4'00'        BEGINNING CCHH OF DATA SET                 04670000
                                    685 *                                                                       04680000
0010D2 0000                         686 TRKCYL   DC   H'0'           TRACKS/CYLINDER                            04690000
                                    687 *                                                                       04700000
                                    688 *                                                                       04710000
                                    689 **********************************************************************  04720000
                                    690 *                                                                       04730000
                                    691 *   WAIT STATE PSW                                                      04740000
                                    692 *                                                                       04750000
                                    693 **********************************************************************  04760000
                                    694 *                                                                       04770000
0010D8                              695          DS    0D                                                       04780000
0010D8 0002000000000ACE             696 DONE     DC    X'0002000000',X'000ACE'                                  04790000
0010E0 0002000000000BAD             697 ERRPSW   DC    X'0002000000',X'000BAD'                                  04800000
                                    698 *                                                                       04810000
                                    699 **********************************************************************  04820000
                                    700 *   SAVE AREAS                                                          04830000
                                    701 *                                                                       04840000
                                    702 **********************************************************************  04850000
                                    703 *                                                                       04860000
                                                                                                               PAGE   18

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12/08/11

0010E8                              704 SAVEA    DS    18F                                                      04870000
001130                              705 XIOSAVE  DS    18F                                                      04880000
                                    706 *                                                                       04890000
001178                              707 SENSE    DS    XL32          SENSE I/O BUFFER                           04900000
001198                              708 DSCB1BUF DS    CL96          DSCB  I/O BUFFER                           04910000
                                    709 *                                                                       04920000
                                    710 *                                                                       04930000
                                    711 **********************************************************************  04940000
                                    712 * IOR (I/O REQUEST) BLOCK                                               04950000
                                    713 *                                                                       04960000
                                    714 **********************************************************************  04970000
0011F8                              715          DS    XL((((*-BEGIN+16)/16)*16)-(*-BEGIN))                     04980000
                                    716 *                                                                       04990000
001200 000010A003450000             717 IORB     DC    A(CCWSEEK),AL2(X'345'),AL2(0),XL8'00',XL2'0'             05000000
                                    718 *                                                                       05010000
                                    719 **********************************************************************  05020000
                                    720 *  MBBCCHHR - BLOCK ID AREA                                             05030000
                                    721 **********************************************************************  05040000
                                    722 *                                                                       05050000
001218                              723          DS    0D                                                       05060000
                                    724 *                                                                       05070000
                                    725 *               +0+1+2+3+4+5+6+7                                        05080000
                                    726 *                 M B B C C H H R                                       05090000
                                    727 **********     X'0000000000000001'                                      05100000
                                    728 *                                                                       05110000
001218                              729 MBBCCHHR DS    0XL8                                                     05120000
001218 000000                       730 MBB      DC    X'000000'                                                05130000
00121B                              731 CCHHR    DS    0XL5                                                     05140000
00121B                              732 CCHH     DS    0CL4                                                     05150000
00121B 0000                         733 CC       DC    X'0000'                                                  05160000
00121D 0000                         734 HH       DC    X'0000'                                                  05170000
00121F 01                           735 R        DC    X'01'                                                    05180000
                                    736 *                                                                       05190000
                                    737 *********************************************************************   05200000
                                    738 *                                                                       05210000
                                    739 *   INBUF - MUST BE LAST                                                05220000
                                    740 *                                                                       05230000
                                    741 *********************************************************************   05240000
                                    742 *                                                                       05250000
001220                              743          DS    0D                                                       05260000
001220                              744          DS    XL((((*-BEGIN+256)/256)*256)-(*-BEGIN))                  05270000
001300                              745 INBUF    DS    0X   L19069                                              05280000
                                    746 *                                                                       05290000
                                    747 *********************************************************************   05300000
                                                                                                               PAGE   19

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12/08/11

                                    748 *                                                                       05310000
                                    749 *  XXXXX   XXX   XXXX                                                   05320000
                                    750 *    X    X   X  X   X                                                  05330000
                                    751 *    X    X   X  X   X                                                  05340000
                                    752 *    X    X   X  XXXX                                                   05350000
                                    753 *    X    X   X  X  X                                                   05360000
                                    754 *  XXXXX   XXX   X   X                                                  05370000
                                    755 *                                                                       05380000
                                    756 *********************************************************************   05390000
                                    757 *                                                                       05400000
000000                              758 IOR      DSECT ,                                                        05410000
000000                              759 IORCCW   DS    A             ADDRESS OF CCW                             05420000
000004                              760 IORUNIT  DS    XL2           DEVICE ADDRESS                             05430000
000006                              761 IORSIOCC DS    X             SIO CONDITION CODE                         05440000
000007                              762          DS    X                                                        05450000
000008                              763 IORCSW   DS    XL8           CHANNEL STATUS WORD                        05460000
000010                              764 IORSENS0 DS    X             SENSE BYTE 0                               05470000
000011                              765 IORSENS1 DS    X             SENSE BYTE 1                               05480000
                                    766 *                                                                       05490000
                            00012   767 IORLEN   EQU   *-IOR                                                    05500000
                                    768 *                                                                       05510000
                                    769 *                                                                       05520000
                                    770 *********************************************************************   05530000
                                    771 *                                                                       05540000
                                    772          @CCW  ,                                                        05550000
                            00080   773+@CCW#CD  EQU   X'80'         * CHAIN DATA                               00030000
                            00040   774+@CCW#CC  EQU   X'40'         * COMMAND CHAIN                            00040000
                            00020   775+@CCW#SLI EQU   X'20'         * SUPPRESS LENGTH INDICATION               00050000
                            00010   776+@CCW#SKP EQU   X'10'         * SKIP                                     00060000
                            00008   777+@CCW#PCI EQU   X'08'         * PROGRAM CONTROLLED INTERRUPT             00070000
                            00004   778+@CCW#IDA EQU   X'04'         * INDIRECT ADDRESS                         00080000
                                    779+*                                                                       00090000
                                    780+*                                                                       00100000
000000                              781+@CCW     DSECT ,                                                        00110000
000000                              782+@CCWCMD  DS    X             - COMMAND CODE                             00120000
000001                              783+@CCWDATA DS    AL3           - DATA ADDRESS                             00130000
000004                              784+@CCWFLAG DS    X             - FLAGS                                    00140000
000005                              785+         DS    X             - RESERVED (ZERO)                          00150000
000006                              786+@CCWLEN  DS    AL2 N         - LENGTH                                   00160000
                                    787+*                                                                       00170000
                                    788 *                                                                       05560000
                                    789 *********************************************************************   05570000
                                    790 *                                                                       05580000
                                    791          @DSCB4 ,                                                       05590000
                                                                                                               PAGE   20

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12/08/11

000000                              792+DSCB4    DSECT ,                                                        00030000
000000                              793+DS4IDFMT DS    X              FORMAT IDENTIFIER X'F4'                   00040000
000001                              794+DS4HPCHR DS    XL5            HIGHEST ADDRESS OF A FORMAT 1 DSCB        00050000
000006                              795+DS4DSREC DS    XL2            NUMBER OF AVAILABLE DSCB'S                00060000
                                    796+*                                                                       00070000
000008                              797+DS4HCCHH DS    XL4            CCHH OF NEXT AVAILABLE ALTERNATE TRK      00080000
00000C                              798+DS4NOATK DS    XL2            NUMBER OF REMAINING ALTERNATE TRACKS      00090000
                                    799+*                                                                       00100000
00000E                              800+DS4VTOCI DS    X              VTOC INDICATORS                           00110000
                            00080   801+DS4DOSBT EQU   X'80'          * DOS BIT                                 00120000
                            00010   802+DS4DSTKP EQU   X'10'          * DOS STACKED BIT                         00130000
                            00008   803+DS4DOCVT EQU   X'08'          * DOS CONVERTED VTOC                      00140000
                            00004   804+DS4DIRF  EQU   X'04'          * DIRF BIT                                00150000
                            00002   805+DS4DICVT EQU   X'02'          * DIRF RECLAIMED                          00160000
                            00001   806+DS4IVTOC EQU   X'01'          * VOLUME USES AN INDEXED VTOC             00170000
                                    807+*                                                                       00180000
00000F                              808+DS4NOEXT DS    X              NUMBER OF EXTENTS IN THE VTOC             00190000
                                    809+*                                                                       00200000
000010                              810+         DS    XL2            RESERVED                                  00210000
000012                              811+DS4DEVCT DS    0XL14          DEVICE CONSTANTS                          00220000
000012                              812+DS4DEVSZ DS    XL4            DEVICE SIZE                               00230000
                                    813+*                            * XL2 CYLS/DEVICE                          00240000
                                    814+*                            * XL2 TRKS/CYL                             00250000
000016                              815+DS4DEVTK DS    XL2            DEVICE TRACK LENGTH                       00260000
000018                              816+DS4DEVOV DS    XL2            KEYED RECORD OVERHEAD                     00270000
00001A                              817+DS4DEVI  DS    X              NON-LAST KEYED RECORD OVERHEAD            00280000
00001B                              818+DS4DEVL  DS    X              LAST KEYED RECORD OVERHEAD                00290000
00001C                              819+DS4DEVK  DS    X              NON-KEYED RECORD OVERHEAD DIFFERENTIAL    00300000
00001D                              820+DS4DEVFG DS    X              FLAG BYTE                                 00310000
                                    821+*                                                                       00320000
00001E                              822+DS4DEVTL DS    XL2            DEVICE TOLERANCE                          00330000
000020                              823+DS4DEVDT DS    X              NUMBER OF DSCB'S PER TRACK                00340000
000021                              824+DS4DEVDB DS    X              NUMBER OF DIRECTORY BLOCKS PER TRACK      00350000
                                    825+*                                                                       00360000
000022                              826+DS4AMTIM DS    XL8            VSAM TIME STAMP                           00370000
                                    827+*                                                                       00380000
00002A                              828+DS4AMCAT DS    0XL3           VSAM CATALOG INDICATOR                    00390000
00002A                              829+DS4VSIND DS    X              VSAM INDICATORS                           00400000
00002B                              830+DS4VSCRA DS    XL2            RELATIVE TRACK LOCATION OF THE CRA        00410000
                                    831+*                                                                       00420000
00002D                              832+DS4R2TIM DS    XL8            VSAM VOLUME/CATALOG MATCH TIME STAMP      00430000
000035                              833+         DS    CL5            RESERVED                                  00440000
                                    834+*                                                                       00450000
00003A                              835+DS4F6PTR DS    CL5            POINTER TO FIRST FORMAT 6 DSCB            00460000
                                                                                                               PAGE   21

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 15.58 12/08/11

00003F                              836+DS4VTOCE DS    CL10           VTOC EXTENT DESCRIPTION                   00470000
000049                              837+         DS    XL25           RESERVED                                  00480000
                            00062   838+DS4END   EQU   *                                                        00490000
                                    839 *                                                                       05600000
                                    840 *********************************************************************   05610000
                                    841 *                                                                       05620000
                                    842          END   ,                                                        05630000

[Next – DISK3 Output]

Leave a Reply

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