UCB TITLE 'DMKUCB (CP) VM/370 - RELEASE 6' 00001000
SPACE 4 00002000
MACRO 00003000
UCB &NAME 00004000
GBLA &SW 00005000
SPACE 2 00006000
*********************************************************************** 00007000
* * * * 00008000
* * UCB * UCB NAME * 00009000
* * * * 00010000
*********************************************************************** 00011000
SPACE 2 00012000
AIF ('&SW' EQ '1').ORG IS THIS THE 1ST UCB MACRO 00013000
&SW SETA 1 NO - SET SW TO ONE 00014000
AGO .NORG 00015000
.ORG ANOP 00016000
SPACE 00017000
ORG *-8 OVERLAY LAST ZERO HEADER RECORD 00018000
.NORG ANOP 00019000
SPACE 00020000
AIF (K'&NAME GT 4).ERR1 NAME TOO LONG 00021000
UCB&NAME DS 0H 00022000
DC CL4'&NAME' UCB BUFFER NAME 00023000
DC AL2(NEXT&NAME-UCB&NAME) DISPLACEMENT TO NEXT HDR 00024000
DC AL2(DEND&NAME-DATA&NAME) LENGTH OF BUFFER DATA 00025000
DC AL2(CCW&NAME-UCB&NAME) DISPLACEMENT TO CCW 00026000
DC AL2(NEXT&NAME-CCW&NAME) LENGTH OF CCWS 00027000
DATA&NAME EQU * 00028000
AGO .END 00029000
.ERR1 MNOTE 12,'***UCB NAME -&NAME- OMITTED OR TOO LONG. 4 IS MAX.' 00030000
.END ANOP 00031000
SPACE 3 00032000
MEND 00033000
EJECT 00034000
MACRO 00035000
UCBCCW &NAME,&PRINT 00036000
LCLA &CNT,&DATA,&NUM,&A 00037000
SPACE 2 00038000
*********************************************************************** 00039000
* * * * 00040000
* * UCBCCW * UCB NAME,(PRINT1,PRINT2,PRINT3,,,,,,PRINT12) * 00041000
* * * * 00042000
*********************************************************************** 00043000
SPACE 2 00044000
AIF (K'&NAME GT 4).ERR1 NAME TOO LONG. 4 IS MAX. 00045000
AIF ('&NAME' EQ '').ERR1 INVALID NAME 00046000
DEND&NAME EQU * END OF BUFFER DATA 00047000
CCW&NAME DS 0D 00048000
ORG UCB&NAME VERIFY UCB MACRO WAS USED 00049000
ORG 00050000
SPACE 00051000
AIF ('&PRINT' EQ '').LAST NO PRINT CCW COUNT 00052000
&NUM SETA N'&PRINT NUMBER OF COUNT FIELDS 00053000
AIF ('&NUM' GT '12').ERR2 MAX. CCWS IS 12 00054000
.LOOP ANOP 00055000
&A SETA &A+1 ADD ONE TO FIELD 00056000
&DATA SETA &DATA+&CNT 00057000
&CNT SETA &PRINT(&A) SET UP DATA AND COUNT FIELDS 00058000
AIF ('&CNT' LT '1').ERR3 COUNT LESS THAN ONE 00059000
AIF ('&CNT' GT '150').ERR3 COUNT TOO HIGH 00060000
AIF ('&A' EQ '&NUM').CCW25 LAST CCW 00061000
CCW 9,&DATA,CC+SILI,&CNT PRINT VERIFY CCW 00062000
AGO .LOOP 00063000
.CCW25 ANOP 00064000
CCW 25,&DATA,CC+SILI,&CNT PRINT AND SPACE 3 00065000
&DATA SETA &DATA+&CNT 00066000
AIF ('&DATA' GT '432').ERR4 CHARACTER COUNT EXCEEDS 432 00067000
SPACE 00068000
MNOTE *,'TOTAL PRINT CHARACTER COUNT IS &DATA BYTES' 00069000
SPACE 00070000
.LAST ANOP 00071000
SPACE 00072000
NEXT&NAME DS 0H 00073000
SPACE 00074000
DC XL8'00' ZERO HEADER RECORD 00075000
AGO .END 00076000
.ERR1 ANOP 00077000
SPACE 00078000
MNOTE 12'***UCB NAME -&NAME- OMITTED OR TOO LONG. 4 IS MAX.' 00079000
AGO .END 00080000
.ERR2 ANOP 00081000
SPACE 00082000
MNOTE 12,'***PRINT HAS -&NUM- PARAMETERS. 12 IS MAX.' 00083000
AGO .END 00084000
.ERR3 ANOP 00085000
SPACE 00086000
MNOTE 12,'***PRINT -&CNT- NOT 1 TO 150' 00087000
AGO .END 00088000
.ERR4 ANOP 00089000
SPACE 00090000
MNOTE 12,'***TOTAL CHARACTER COUNT -&DATA- TOO LARGE.432 MAX.' 00091000
AGO .END 00092000
.END ANOP 00093000
SPACE 3 00094000
MEND 00095000
EJECT 00096000
*. 00097000
* 00098000
* 00099000
* MODULE NAME - 00100000
* 00101000
* DMKUCB 00102000
* 00103000
* FUNCTION - 00104000
* 00105000
* 00106000
* THIS MODULE CONTAINS THE UCB BUFFER LOAD IMAGES THAT 00107000
* ARE USED BY THE OPERATOR COMMAND 'LOAD' TO LOAD THE 00108000
* UNIVERSAL CHARACTER SET BUFFER IN THE 3811 CONTROL UNIT. 00109000
* 00110000
* ATTRIBUTES - 00111000
* 00112000
* PAGEABLE, CALLED BY DMKCSO 00113000
* 00114000
* 00115000
* NO EXECUTABLE CODE IN THIS MODULE. 00116000
* 00117000
* 00118000
* NOTES - 00119000
* 00120000
* 1. THIS MODULE MUST START ON A PAGE BOUNDARY. 00121000
* 2. THIS MODULE CANNOT EXCEED A FULL PAGE IN SIZE. 00122000
* 3. TWO MACRO ARE INCLUDED IN THIS MODULE TO ASSIST 00123000
* IN THE CREATION OF BUFFER LOAD IMAGES. 00124000
* 00125000
* 00126000
* 00127000
EJECT 00128000
* 00129000
****************************** 00130000
* 00131000
* UCB MACRO 00132000
* 00133000
****************************** 00134000
* 00135000
* 00136000
* THIS MACRO CREATES A 12 BYTE HEADER FOR THE BUFFER LOAD AND IS 00137000
* USED BY DMKCSO. 00138000
* 00139000
* 00140000
* +------+------+--------------------------------+ 00141000
* | | UCB | UCB NAME | 00142000
* +------+------+--------------------------------+ 00143000
* 00144000
* 00145000
* 00146000
* UCB NAME - 00147000
* 00148000
* ONE TO FOUR ALPHABETIC AND/OR NUMERIC CHARACTER NAME TO BE 00149000
* ASSIGNED TO BUFFER LOAD. 00150000
* 00151000
* 00152000
* 00153000
* 00154000
EJECT 00155000
****************************** 00156000
* 00157000
* UCBCCW MACRO 00158000
* 00159000
****************************** 00160000
* 00161000
* 00162000
* 00163000
* THIS MACRO CREATES A CCW STRING TO PRINT THE BUFFER 00164000
* LOAD IMAGE WHEN VER IS SPECIFIED BY THE OPERATOR IN 00165000
* LOAD COMMAND. THIS MACRO MUST IMMEDIATELY 00166000
* FOLLOW THE BUFFER LOAD DATA. 00167000
* 00168000
* 00169000
* 00170000
* +------+------+----------------------------------------------+ 00171000
* | |UCBCCW| UCB NAME,(PRINT1,PRINT2,,,,,,PRINT12) | 00172000
* +------+------+----------------------------------------------+ 00173000
* 00174000
* 00175000
* 00176000
* UCB NAME - 00177000
* 00178000
* SAME AS PREVIOUS UCB MACRO 00179000
* 00180000
* (PRINT1,PRINT2,,,,PRINT12) - 00181000
* 00182000
* PRINTN - ENTER NUMBER OF CHARACTERS (1 TO 150) TO BE PRINTED 00183000
* BY THE RESPECTIVE CCW IN A VERIFY OPERATION. A MAX OF 12 PRINT 00184000
* FIELDS CAN BE GIVEN. TOTAL PRINT CHARACTER COUNT MUST BE 00185000
* EQUAL OR LESS THAN 432. IF THIS OPERAND IS OMITTED, THE 00186000
* DEFAULT COUNT IS 48 PER CCW. THE DEFAULT CCW ARE 00187000
* LOCATED IN DMKCSO. 00188000
* 00189000
* EXAMPLES - 00190000
* 00191000
* UCB EX01 00192000
* 00193000
* DC 9CL48'1234567890..........WXYZ' 00194000
* 00195000
* UCBCCW EX01,(48,48,48,48,48,48,48,48,48) 00196000
* 00197000
* 00198000
* 00199000
* UCB EX02 00200000
* 00201000
* DC 9CL48'1234567890.....WXYZ' 00202000
* 00203000
* UCBCCW EX02 00204000
* 00205000
* 00206000
* 00207000
*. 00208000
EJECT 00209000
COPY OPTIONS 00210000
SPACE 00211000
COPY LOCAL OPTIONS 00212000
SPACE 00213000
PRINT DATA 00214000
EJECT 00215000
DMKUCB CSECT 00216000
SPACE 3 00217000
DC CL8'DMKUCB' MODULE NAME 00218000
SPACE 3 00219000
ENTRY DMKUCBLD 00220000
DMKUCBLD DS 0H 00221000
SPACE 3 00222000
* A11 STANDARD COMMERCIAL 48 GRAPHICS 3211 00223000
UCB A11 00224000
DC 9C'1<.+IHGFEDCBA*$-RQPONMLKJ%,&&ZYXWVUTS/@#098765432' 00225000
DC X'000000' 433-435 00226000
DC X'000000000000000000000000C01010' 436-450 @VA00975 00227000
DC X'101010101010100040404240004010' 451-465 00228000
DC X'101010101010101000404041000040' 466-480 00229000
DC X'401010101010101010004040000000' 481-495 00230000
DC X'101010101010101010100040404448' 496-510 00231000
DC X'0000' 511-512 00232000
SPACE 2 00233000
UCBCCW A11,(48,48,48,48,48,48,48,48,48) 00234000
EJECT 00235000
* H11 STANDARD SCIENTIFIC 3211 00236000
UCB H11 00237000
SPACE 00238000
DC 9C'1HGFE).+IDCBA*$-RQPONMLKJ(,&&ZYXWV8765''=09UTS/432' 00239300
* @VA09737 00239600
DC X'000000' 433-435 00240000
DC X'000000000000000000000000C01010' 436-450 00241000
DC X'101010101010100040004040004010' 451-465 @VA11585 00242200
DC X'101010101010101000404040000040' 466-480 @VA11585 00242700
DC X'401010101010101010004000000000' 481-495 @VA11209 00244100
DC X'101010101010101010100000004040' 496-510 @VA11585 00245200
DC X'0000' 511-512 00246000
SPACE 00247000
UCBCCW H11,(48,48,48,48,48,48,48,48,48) 00248000
EJECT 00249000
* G11 ASC11 00250000
UCB G11 00251000
SPACE 2 00252000
DC X'F17DC2C4D1D360F5D25CC34DD5F06F5DE2C17C7EC55F7BD96EE5' 00253000
DC X'F9F2E0E8E3ADC7F6F8BDE7C67FC84B4FE4D6F761D7F3E6D4C9D8' 00254000
DC X'6BF4F17DC2C4D1D360F5D25CC34DD5F05B5DE2C1507EC57A7BD9' 00255000
DC X'E9E5F9F25EE8E34EC7F6F84CE7C66CC84B6DE4D6F761D7F3E6D4' 00256000
DC X'C9D86BF4' 00257000
DC X'F17DC2C4D1D360F5D25CC34DD5F06F5DE2C17C7EC55F7BD96EE5' 00258000
DC X'F9F2E0E8E3ADC7F6F8BDE7C67FC84B4FE4D6F761D7F3E6D4C9D8' 00259000
DC X'6BF4F17DC2C4D1D360F5D25CC34DD5F05B5DE2C1507EC57A7BD9' 00260000
DC X'E9E5F9F25EE8E34EC7F6F84CE7C66CC84B6DE4D6F761D7F3E6D4' 00261000
DC X'C9D86BF4' 00262000
DC X'F17DC2C4D1D360F5D25CC34DD5F06F5DE2C17C7EC55F7BD96EE5' 00263000
DC X'F9F2E0E8E3ADC7F6F8BDE7C67FC84B4FE4D6F761D7F3E6D4C9D8' 00264000
DC X'6BF4F17DC2C4D1D360F5D25CC34DD5F05B5DE2C1507EC57A7BD9' 00265000
DC X'E9E5F9F25EE8E34EC7F6F84CE7C66CC84B6DE4D6F761D7F3E6D4' 00266000
DC X'C9D86BF4' 00267000
DC X'F17DC2C4D1D360F5D25CC34DD5F06F5DE2C17C7EC55F7BD96EE5' 00268000
DC X'F9F2E0E8E3ADC7F6F8BDE7C67FC84B4FE4D6F761D7F3E6D4C9D8' 00269000
DC X'6BF4F17DC2C4D1D360F5D25CC34DD5F05B5DE2C1507EC57A7BD9' 00270000
DC X'E9E5F9F25EE8E34EC7F6F84CE7C66CC84B6DE4D6F761D7F3E6D4' 00271000
DC X'C9D86BF4' 00272000
DC X'000000' 433-435 00273000
DC X'000000000000000000000000C01010' 436-450 00274000
DC X'101010101010100040404040404010' 451-465 00275000
DC X'101010101010101000404040404050' 466-480 00276000
DC X'401010101010101010004040604040' 481-495 00277000
DC X'101010101010101010104040406040' 495-510 00278000
DC X'4000' 511-512 00279000
SPACE 00280000
UCBCCW G11,(49,48,11) 00281000
EJECT 00282000
* P-11 PL1 00283000
UCB P11 00284000
SPACE 2 00285000
DC X'F17DC2C4D1D360F5D25CC34DD5C17C7EC5F06F5DE25F7BD96EE5' 00286000
DC X'F9F27FF6F84CE7E8E34FC7C66CC84B6DE4D6F761D7F3E6D4C9D8' 00287000
DC X'6BF4F17DC2C4D1D360F5D25CC34DD5F05B7EC57A7B5DE2C150D9' 00288000
DC X'E9E5F94EC7F6F8F25EE8E34CE7C66CC84B6DE4D6F761D7F3E6D4' 00289000
DC X'C9D86BF4' 00290000
DC X'F17DC2C4D1D360F5D25CC34DD5C17C7EC5F06F5DE25F7BD96EE5' 00291000
DC X'F9F27FF6F84CE7E8E34FC7C66CC84B6DE4D6F761D7F3E6D4C9D8' 00292000
DC X'6BF4F17DC2C4D1D360F5D25CC34DD5F05B7EC57A7B5DE2C150D9' 00293000
DC X'E9E5F94EC7F6F8F25EE8E34CE7C66CC84B6DE4D6F761D7F3E6D4' 00294000
DC X'C9D86BF4' 00295000
DC X'F17DC2C4D1D360F5D25CC34DD5C17C7EC5F06F5DE25F7BD96EE5' 00296000
DC X'F9F27FF6F84CE7E8E34FC7C66CC84B6DE4D6F761D7F3E6D4C9D8' 00297000
DC X'6BF4F17DC2C4D1D360F5D25CC34DD5F05B7EC57A7B5DE2C150D9' 00298000
DC X'E9E5F94EC7F6F8F25EE8E34CE7C66CC84B6DE4D6F761D7F3E6D4' 00299000
DC X'C9D86BF4' 00300000
DC X'F17DC2C4D1D360F5D25CC34DD5C17C7EC5F06F5DE25F7BD96EE5' 00301000
DC X'F9F27FF6F84CE7E8E34FC7C66CC84B6DE4D6F761D7F3E6D4C9D8' 00302000
DC X'6BF4F17DC2C4D1D360F5D25CC34DD5F05B7EC57A7B5DE2C150D9' 00303000
DC X'E9E5F94EC7F6F8F25EE8E34CE7C66CC84B6DE4D6F761D7F3E6D4' 00304000
DC X'C9D86BF4' 00305000
DC X'000000' 433-435 00306000
DC X'000000000000000000000000C01010' 436-450 00307000
DC X'101010101010100040404040404010' 451-465 00308000
DC X'101010101010101000404040404040' 466-480 00309000
DC X'401010101010101010004040404040' 481-495 00310000
DC X'101010101010101010104040404040' 496-510 00311000
DC X'4000' 511-512 00312000
SPACE 2 00313000
UCBCCW P11,(49,48,11) 00314000
EJECT 00315000
* T11 TEXT PRINTING 00316000
UCB T11 00317000
DC X'F1D8E787D98582D1C7F3C8E886C9E397944F60A4E48899F98393' 00318000
DC X'6BF4C284D4E2D76DC6F74B7ED5D3A3A2D695F8C59689C3C1816E' 00319000
DC X'4CF6F04A5A8FC45C9D9FA0F5B6B7B9BFBE9CA1F2F19EB0B8D9' 00320000
DC X'85AEB57FF3B35FB4C9E38C7C8D608EB1B299F95E8B9BF4ADBD6C' 00321000
DC X'E291A96FF74B50BCACA3BBAB7AF8C5987DAFC1E9A77BF6F0A5' 00322000
DC X'5B92C45CA64E5DF54DD2E6BF61A8E5F2' 00323000
DC X'F1D8E787D98582D1C7F3C8E886C9E397944F60A4E48899F98393' 00324000
DC X'6BF4C284D4E2D76DC6F74B7ED5D3A3A2D695F8C59689C3C1816E' 00325000
DC X'4CF6F04A5A8FC45C9D9FA0F5B6B7B9BFBE9CA1F2F19EB0B8D9' 00326000
DC X'85AEB57FF3B35FB4C9E38C7C8D608EB1B299F95E8B9BF4ADBD6C' 00327000
DC X'E291A96FF74B50BCACA3BBAB7AF8C5987DAFC1E9A77BF6F0A5' 00328000
DC X'5B92C45CA64E5DF54DD2E6BF61A8E5F2' 00329000
DC X'F1D8E787D98582D1C7F3C8E886C9E397944F60A4E48899F98393' 00330000
DC X'6BF4C284D4E2D76DC6F74B7ED5D3A3A2D695F8C59689C3C1816E' 00331000
DC X'4CF6F04A5A8FC45C9D9FA0F5B6B7B9BFBE9CA1F2F19EB0B8D9' 00332000
DC X'85AEB57FF3B35FB4C9E38C7C8D608EB1B299F95E8B9BF4ADBD6C' 00333000
DC X'E291A96FF74B50BCACA3BBAB7AF8C5987DAFC1E9A77BF6F0A5' 00334000
DC X'5B92C45CA64E5DF54DD2E6BF61A8E5F2' 00335000
DC X'000000' 433-435 00336000
DC X'000000000000000000000000C03030' 436-450 00337000
DC X'303030303030304060606060604030' 451-465 00338000
DC X'303030303030303040606060606060' 466-480 00339000
DC X'603030303030303030006060606060' 481-495 00340000
DC X'303030303030303030304060606060' 496-512 00341000
DC X'6000' 511-512 00342000
EJECT 00343000
UCBCCW T11,(49,48,47) 00344000
EJECT 00345000
COPY EQU 00346000
END 00347000