//ASMTRTSC JOB (0517,COUR),'PEúAEB',REGION=1024K,MSGLEVEL=(2,0) 00010017 //ST1 EXEC PGM=IUM90,REGION=1024K, 00020008 // PARM='LOAD,LIST,NOXREF,LINECNT=60' 00030014 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00040008 //SYSUT1 DD SPACE=(1700,(800,200)),UNIT=SYSDA,DSN=&&SYSUT1 00050008 //SYSUT2 DD SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT2 00060008 //SYSUT3 DD SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT3 00070008 //SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=3146 00080008 //SYSTERM DD DUMMY DCB=(RECFM=FA,BLKSIZE=121) 00090009 //SYSPUNCH DD DSN=&&OBJ1,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(10,10)) 00100022 //SYSGO DD DUMMY 00110009 //SYSIN DD * 00120000 PRINT NOGEN 00130000 COURTRTS CSECT 00140013 ********************************************************************** 00150000 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00160020 ATOE DC X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F' 0 00170020 DC X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F' 1 00180020 DC X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61' 2 00190020 DC X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F' 3 00200020 DC X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6' 4 00210020 DC X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D' 5 00220020 DC X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB' 6 00230020 DC X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07' 7 00240020 DC X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F' 8 00250020 DC X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F' 9 00260020 DC X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61' A 00270020 DC X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F' B 00280020 DC X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6' C 00290020 DC X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D' D 00300020 DC X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB' E 00310020 DC X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07' F 00320020 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00330020 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00340020 ETOA DC X'0001,0203,9C09,007F,0000,000B,0C0D,0E0F' 0 00350020 DC X'1011,1213,000A,0800,1819,0000,1C1D,1E1F' 1 00360020 DC X'0000,0000,000A,171B,0000,0000,0005,0607' 2 00370020 DC X'0000,1600,0000,0004,0000,0000,1415,001A' 3 00380020 DC X'2000,0000,0000,0000,0000,5B2E,3C28,2B21' 4 00390020 DC X'2600,0000,0000,0000,0000,5D24,2A29,3B5E' 5 00400020 DC X'2D2F,0000,0000,0000,0000,7C2C,255F,3E3F' 6 00410020 DC X'0000,0000,0027,6061,6220,3A23,4027,3D22' 7 00420020 DC X'6341,4243,4445,4647,4849,6465,6667,6869' 8 00430020 DC X'6A4A,4B4C,4D4E,4F50,5152,6B6C,6D6E,6F70' 9 00440020 DC X'713F,5354,5556,5758,595A,7273,7475,7677' A 00450020 DC X'7879,7A7B,7C7D,7E27,6061,6263,6465,6667' B 00460020 DC X'2841,4243,4445,4647,4849,6869,6A6B,6C6D' C 00470020 DC X'294A,4B4C,4D4E,4F50,5152,6E6F,7071,7273' D 00480020 DC X'5C00,5354,5556,5758,595A,7475,7677,7879' E 00490020 DC X'3031,3233,3435,3637,3839,7A7B,7C7D,7E7F' F 00500020 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00510020 END 00520000 //ST2 EXEC PGM=IEWL, 00530009 // PARM='XREF,LET,LIST,SIZE=(224K,100K),AC=1', 00540009 // REGION=256K,COND=(0,NE,ST1) 00550009 //SYSLIN DD DSN=&&OBJ1,DISP=(OLD,PASS) 00560022 //SYSLMOD DD DSN=DIALOG2.VS.STATLIB(COURTRTS), 00570021 // UNIT=SYSDA,DISP=SHR 00580010 //SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 00590010 // SPACE=(3072,(20,10),,,ROUND),SPOOL=YES 00600010 //SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=3146 00610010 //************************************************************* 00620016 //ST3 EXEC PGM=IUM90,REGION=1024K, 00630016 // PARM='LOAD,LIST,NOXREF,LINECNT=60' 00640016 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00650016 //SYSUT1 DD SPACE=(1700,(800,200)),UNIT=SYSDA,DSN=&&SYSUT1 00660016 //SYSUT2 DD SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT2 00670016 //SYSUT3 DD SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT3 00680016 //SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=3146 00690016 //SYSTERM DD DUMMY DCB=(RECFM=FA,BLKSIZE=121) 00700016 //SYSPUNCH DD DSN=&&OBJ2,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(10,10)) 00710022 //SYSGO DD DUMMY 00720016 //SYSIN DD * 00730016 PRINT NOGEN 00740016 COURSTND CSECT 00750016 ********************************************************************** 00760016 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00770020 ATOE DC X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F' 0 00780020 DC X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F' 1 00790020 DC X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61' 2 00800020 DC X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F' 3 00810020 DC X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6' 4 00820020 DC X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D' 5 00830020 DC X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB' 6 00840020 DC X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07' 7 00850020 DC X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F' 8 00860020 DC X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F' 9 00870020 DC X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61' A 00880020 DC X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F' B 00890020 DC X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6' C 00900020 DC X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D' D 00910020 DC X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB' E 00920020 DC X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07' F 00930020 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00940020 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 00950020 ETOA DC X'0001,0203,9C09,007F,0000,000B,0C0D,0E0F' 0 00960020 DC X'1011,1213,000A,0800,1819,0000,1C1D,1E1F' 1 00970020 DC X'0000,0000,000A,171B,0000,0000,0005,0607' 2 00980020 DC X'0000,1600,0000,0004,0000,0000,1415,001A' 3 00990020 DC X'2000,0000,0000,0000,0000,5B2E,3C28,2B21' 4 01000020 DC X'2600,0000,0000,0000,0000,5D24,2A29,3B5E' 5 01010020 DC X'2D2F,0000,0000,0000,0000,7C2C,255F,3E3F' 6 01020020 DC X'0000,0000,0027,6061,6220,3A23,4027,3D22' 7 01030020 DC X'6341,4243,4445,4647,4849,6465,6667,6869' 8 01040020 DC X'6A4A,4B4C,4D4E,4F50,5152,6B6C,6D6E,6F70' 9 01050020 DC X'713F,5354,5556,5758,595A,7273,7475,7677' A 01060020 DC X'7879,7A7B,7C7D,7E27,6061,6263,6465,6667' B 01070020 DC X'2841,4243,4445,4647,4849,6869,6A6B,6C6D' C 01080020 DC X'294A,4B4C,4D4E,4F50,5152,6E6F,7071,7273' D 01090020 DC X'5C00,5354,5556,5758,595A,7475,7677,7879' E 01100020 DC X'3031,3233,3435,3637,3839,7A7B,7C7D,7E7F' F 01110020 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 01120020 END 01130016 //ST4 EXEC PGM=IEWL, 01140016 // PARM='XREF,LET,LIST,SIZE=(224K,100K),AC=1', 01150016 // REGION=256K,COND=(0,NE,ST3) 01160016 //SYSLIN DD DSN=&&OBJ2,DISP=(OLD,PASS) 01170022 //SYSLMOD DD DSN=DIALOG2.VS.STATLIB(COURSTND), 01180021 // UNIT=SYSDA,DISP=SHR 01190016 //SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 01200016 // SPACE=(3072,(20,10),,,ROUND),SPOOL=YES 01210016 //SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=3146 01220016 // 01230000