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]