UCC TITLE 'DMKUCC (CP) VM/370 - RELEASE 6' 00001000 SPACE 4 00002000 MACRO 00003000 UCC &NAME 00004000 GBLA &SW 00005000 SPACE 2 00006000 *********************************************************************** 00007000 * * * * 00008000 * * UCC * UCC NAME * 00009000 * * * * 00010000 *********************************************************************** 00011000 SPACE 2 00012000 AIF ('&SW' EQ '1').ORG IS THIS THE 1ST UCC 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 UCC&NAME DS 0H 00022000 DC CL4'&NAME' UCC BUFFER NAME 00023000 DC AL2(NEXT&NAME-UCC&NAME) DISPLACEMENT TO NEXT HDR 00024000 DC AL2(DEND&NAME-DATA&NAME) LENGTH OF BUFFER DATA 00025000 DC AL2(CCW&NAME-UCC&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,'***UCC NAME -&NAME- OMITTED OR TOO LONG. 4 IS MAX.' 00030000 .END ANOP 00031000 SPACE 3 00032000 MEND 00033000 EJECT 00034000 MACRO 00035000 UCCCCW &NAME,&PRINT 00036000 LCLA &CNT,&DATA,&NUM,&A 00037000 SPACE 2 00038000 *********************************************************************** 00039000 * * * * 00040000 * * UCCCCW * UCC 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 UCC&NAME VERIFY UCC 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 '132').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 '240').ERR4 CHARACTER COUNT EXCEEDS 240 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'***UCC 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 132' 00087000 AGO .END 00088000 .ERR4 ANOP 00089000 SPACE 00090000 MNOTE 12,'***TOTAL CHARACTER COUNT -&DATA- TOO LARGE.240 MAX.' 00091000 AGO .END 00092000 .END ANOP 00093000 SPACE 3 00094000 MEND 00095000 EJECT 00096000 *. 00097000 * 00098000 * 00099000 * MODULE NAME - 00100000 * 00101000 * DMKUCC 00102000 * 00103000 * FUNCTION - 00104000 * 00105000 * 00106000 * THIS MODULE CONTAINS THE UCS BUFFER LOAD IMAGES THAT 00107000 * ARE USED BY THE OPERATOR COMMAND 'LOAD' TO LOAD THE 00108000 * UNIVERSAL CHARACTER SET BUFFER IN THE SKIPJACK ADAPTER. 00109000 * 00110000 * ATTRIBUTES - 00111000 * 00112000 * PAGEABLE, CALLED BY DMKCSB 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 * UCC MACRO 00132000 * 00133000 ****************************** 00134000 * 00135000 * 00136000 * THIS MACRO CREATES A 12 BYTE HEADER FOR THE BUFFER LOAD AND IS 00137000 * USED BY DMKCSB. 00138000 * 00139000 * 00140000 * +------+------+--------------------------------+ 00141000 * | | UCC | UCC NAME | 00142000 * +------+------+--------------------------------+ 00143000 * 00144000 * 00145000 * 00146000 * UCC NAME - 00147000 * 00148000 * ONE TO FOUR ALPHABETIC AND/OR NUMERIC CHARACTER NAME TO BE 00149000 * ASSIGNED TO BUFFER LOAD. 00150000 * 00151000 * 00152000 * 00153000 * 00154000 ****************************** 00155000 * 00156000 * UCCCCW MACRO 00157000 * 00158000 ****************************** 00159000 * 00160000 * 00161000 * 00162000 * THIS MACRO CREATES A CCW STRING TO PRINT THE BUFFER 00163000 * LOAD IMAGE WHEN VER IS SPECIFIED BY THE OPERATOR IN 00164000 * LOAD COMMAND. THIS MACRO MUST IMMEDIATELY 00165000 * FOLLOW THE BUFFER LOAD DATA. 00166000 * 00167000 * 00168000 * 00169000 * +------+------+----------------------------------------------+ 00170000 * | |UCCCCW| UCC NAME,(PRINT1,PRINT2,,,,,,PRINT12) | 00171000 * +------+------+----------------------------------------------+ 00172000 * 00173000 * 00174000 * 00175000 * UCC NAME - 00176000 * 00177000 * SAME AS PREVIOUS UCC MACRO 00178000 * 00179000 * (PRINT1,PRINT2,,,,PRINT12) - 00180000 * 00181000 * COUNT - ENTER NUMBER OF CHARACTERS (1 TO 132) TO BE PRINTED BY 00182000 * THE RESPECTIVE CCW IN A VERIFY OPERATION. A MAX OF 12 PRINT 00183000 * FIELDS CAN BE GIVEN. TOTAL PRINT CHARACTER COUNT MUST BE 00184000 * EQUAL OR LESS THAN 240. IF THIS OPERAND IS OMITTED, THE 00185000 * DEFAULT COUNT IS 48 PER CCW. THE DEFAULT CCW ARE 00186000 * LOCATED IN DMKCSB. 00187000 * 00188000 * EXAMPLES - 00189000 * 00190000 * UCC EX01 00191000 * 00192000 * DC 5CL48'1234567890..........WXYZ' 00193000 * 00194000 * UCCCCW EX01,(48,48,48,48,48) 00195000 * 00196000 * 00197000 * 00198000 * UCC EX02 00199000 * 00200000 * DC 5CL48'1234567890.....WXYZ' 00201000 * 00202000 * UCCCCW EX02 00203000 * 00204000 * 00205000 * 00206000 *. 00207000 EJECT 00208000 COPY OPTIONS 00209000 SPACE 00210000 COPY LOCAL OPTIONS 00211000 SPACE 00212000 PRINT DATA 00213000 DMKUCC CSECT 00214000 SPACE 3 00215000 DC CL8'DMKUCC' MODULE NAME 00216000 SPACE 3 00217000 ENTRY DMKUCCLD 00218000 DMKUCCLD DS 0H 00219000 * 'PCS-AN' - 3LEVEL SET, 48 'A' GRAPHICS 00220000 UCC PCAN 00221000 SPACE 00222000 DC C'1234567890,-PQR#$@/STUVWXYZ',X'9C' LOZENGE 00223000 DC C'.*1234567890,-JKLMNOABCDEFGHI+.*' 00224000 DC C'1234567890,-PQR&&$%/STUVWXYZ',X'9C' LOZENGE 00225000 DC C'.*1234567890,-JKLMNOABCDEFGHI+.*' 00226000 DC C'1234567890,-PQR#$@/STUVWXYZ',X'9C' LOZENGE 00227000 DC C'.*1234567890,-JKLMNOABCDEFGHI+.*' 00228000 DC C'1234567890,-PQR&&$%/STUVWXYZ',X'9C' LOZENGE 00229000 DC C'.*1234567890,-JKLMNOABCDEFGHI+.*' 00230000 DC X'00101010101010101010004000004000' 00231000 DC X'40101010101010101010004060000000' 00232000 DC X'40401010101010101010004040000000' 00233000 DC X'10101010101010101010004040000000' 00234000 SPACE 2 00235000 UCCCCW PCAN,(60,60,60,60) 00236000 EJECT 00237000 * 'PCS-HN' - 3 LEVEL SET, 48 'H' GRAPHICS 00238000 UCC PCHN 00239000 SPACE 00240000 DC C'1234567890,-PQR=$''/STUVWXYZ).*1234567890,-JKLMNOABCDEFGHI+.*' 00241000 DC C'1234567890,-PQR&&$(/STUVWXYZ).*1234567890,-JKLMNOABCDEFGHI+.*' 00242000 DC C'1234567890,-PQR=$''/STUVWXYZ).*1234567890,-JKLMNOABCDEFGHI+.*' 00243000 DC C'1234567890,-PQR&&$(/STUVWXYZ).*1234567890,-JKLMNOABCDEFGHI+.*' 00244000 DC X'00101010101010101010004000404000' @V3M4025 00245000 DC X'40101010101010101010004040400000' 00246000 DC X'40401010101010101010004000000000' @V3M4025 00247000 DC X'10101010101010101010000000404000' 00248000 SPACE 2 00249000 UCCCCW PCHN,(60,60,60,60) 00250000 EJECT 00251000 * NORMAL AN ARRANGEMENT 00252000 UCC AN 00253000 SPACE 00254000 DC C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.',X'4C' @V3M5007 00255000 DC C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.',X'4C' @V3M5007 00256000 DC C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.',X'4C' @V3M5007 00257000 DC C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.',X'4C' @V3M5007 00258000 DC C'1234567890#@/STUVWXYZ&&,%JKLMNOPQR-$*ABCDEFGHI+.',X'4C' @V3M5007 00259000 DC X'00101010101010101010004000424000' 00260000 DC X'40101010101010101010004060410000' @V3M4025 00261000 DC X'40401010101010101010004040000000' 00262000 DC X'10101010101010101010004040444800' 00263000 SPACE 2 00264000 UCCCCW AN,(48,48,48,48,48) 00265000 EJECT 00266000 * NORMAL HN ARRANGEMENT 00267000 UCC HN 00268000 SPACE 00269000 DC 5C'1234567890=''/STUVWXYZ&&,(JKLMNOPQR-$*ABCDEFGHI+.)' 00270000 DC X'00101010101010101010004000404000' 00271000 DC X'40101010101010101010004040400000' 00272000 DC X'40401010101010101010004000000000' 00273000 DC X'10101010101010101010000000404000' 00274000 SPACE 2 00275000 UCCCCW HN,(48,48,48,48,48) 00276000 EJECT 00277000 * 'QN' - PL/I - 60 GRAPHICS, 45 PREFERRED 00278000 UCC QN 00279000 SPACE 00280000 DC C'1234567890XY/STUVW_"$*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00281000 DC C'1234567890XY/STUVW<;#*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00282000 DC C'1234567890XY/STUVW?>@*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00283000 DC C'1234567890XY/STUVW¬''&&*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00284000 DC C'1234567890XY/STUVW|:%*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00285000 DC X'00101010101010101010004040404040' 00286000 DC X'40101010101010101010004040404040' 00287000 DC X'40401010101010101010004040404040' @V3M4025 00288000 DC X'10101010101010101010404040404040' 00289000 SPACE 2 00290000 UCCCCW QN,(48,48,48,48,48) 00291000 EJECT 00292000 * 'QNC' - PL/I - 60 GRAPHICS, 45 PREFERRED 00293000 UCC QNC 00294000 SPACE 00295000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI",=' 00296000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI|:_' 00297000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI<;¬' 00298000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI''?>' 00299000 DC C'1234567890#@/STUVWXYZ&&.%JKLMNOPQR-$*ABCDEFGHI)+(' 00300000 DC X'00101010101010101010004040404040' 00301000 DC X'40101010101010101010004040404040' 00302000 DC X'40401010101010101010004040404040' 00303000 DC X'10101010101010101010404040404040' @V3M4025 00304000 SPACE 2 00305000 UCCCCW QNC,(48,48,48,48,48) 00306000 EJECT 00307000 * 'RN' - FORTRAN,COBOL,COMMERCIAL - 52 GRAPHICS, 47 PRF 00308000 SPACE 00309000 UCC RN 00310000 SPACE 00311000 DC C'1234567890XY/STUVW''@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00312000 DC C'1234567890XY/STUVW%@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00313000 DC C'1234567890XY/STUVW#@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00314000 DC C'1234567890XY/STUVW',X'9C',C'@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00315000 DC C'1234567890XY/STUVW&&@$*,=JKLMNOPQR-Z(ABCDEFGHI+.)' 00316000 DC X'00101010101010101010004000404000' 00317000 DC X'40101010101010101010004060400000' 00318000 DC X'40401010101010101010004040000000' 00319000 DC X'10101010101010101010004040404000' @V3M4025 00320000 SPACE 2 00321000 UCCCCW RN,(48,48,48,48,48) 00322000 EJECT 00323000 * 'YN' - HIGH SPEED ALPHANUMERIC - 42 GRAPHICS, 39 PREF 00324000 SPACE 00325000 UCC YN 00326000 SPACE 00327000 DC 2C'1234567890STABCDEFGHIJKLMNOPQRUVWXYZ*,.' 00328000 DC C'#-$' 00329000 DC 3C'1234567890STABCDEFGHIJKLMNOPQRUVWXYZ*,.' 00330000 DC C'#-$' 00331000 DC C'1234567890STABCDEFGHIJKLMNOPQRUVWXYZ*,.' 00332000 DC X'00101010101010101010004000000000' 00333000 DC X'00101010101010101010004040000000' 00334000 DC X'40001010101010101010004000000000' 00335000 DC X'10101010101010101010004000000000' 00336000 SPACE 2 00337000 UCCCCW YN,(39,42,39,39,42,39) 00338000 EJECT 00339000 * 'TN' - TEXT PRINTING - 120 GRAPHICS 00340000 UCC TN 00341000 SPACE 00342000 DC C'1234567890=./STUVWXYZ,#&&JKLMNOPQR-":ABCDEFGHI+abcdefghijklmn' 00343000 DC X'96979899A2A3A4A5A6A7A8A97C7D6F5E9E5A5B5C6C9C' @VA05398 00344000 DC X'B1B2B3B4B5B6B7B8B9B0A08E8D9DA15F4D5DBE8F6E4C' @VA05398 00344100 DC X'8CAE4A9FADBD9B8BABBBACBCAF6DBF4F' @VA07205 00344210 DC C'1234567890=./STUVWXYZ,#&&JKLMNOPQR-":ABCDEFGHI+abcdefghijklmn' 00345000 DC X'96979899A2A3A4A5A6A7A8A97C7D6F5E9E5A5B5C6C9C' @VA05398 00346000 DC X'B1B2B3B4B5B6B7B8B9B0A08E8D9DA15F4D5DBE8F6E4C' @VA05398 00346100 DC X'8CAE4A9FADBD9B8BABBBACBCAF6DBF4F' @VA07205 00346210 DC X'00303030303030303030406060606060' @V3M4025 00347000 DC X'40303030303030303030406060606060' @V3M4025 00348000 DC X'60603030303030303030006060606060' @V3M4025 00349000 DC X'30303030303030303030406060606060' @V3M4025 00350000 SPACE 2 00351000 UCCCCW TN,(60,60,60,60) 00352000 EJECT 00353000 * 'PN' - PL/I - 60 GRAPHICS 00354000 SPACE 00355000 UCC PN 00356000 SPACE 00357000 DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;¬''?>' 00358000 DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;¬''?>' 00359000 DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;¬''?>' 00360000 DC C'1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;¬''?>' 00361000 DC X'00101010101010101010004040404040' @V3M4025 00362000 DC X'40101010101010101010004040404040' @V3M4025 00363000 DC X'40401010101010101010004040404040' @V3M4025 00364000 DC X'10101010101010101010404040404040' @V3M4025 00365000 SPACE 2 00366000 UCCCCW PN,(60,60,60,60) 00367000 EJECT 00368000 * 'SN' - TEXT PRINTING - 84 GRAPHICS, 78 PREFERRED 00369000 SPACE 00370000 UCC SN 00371000 SPACE 00372000 DC 3C'1234567890&&./STUVWXYZ,$*JKLMNOPQR-":ABCDEFGHI+abcdefghijklmnopqX00373000 rstuvwxyz@''()×|' @V3M5006 00374000 DC C'?!;¢%',X'9C' LOZENGE 00375000 DC X'00303030303030303030404000404040' @V3M4025 00376000 DC X'40303030303030303030404060404000' 00377000 DC X'40403030303030303030004040000040' @VA09244 00378050 DC X'10101010101010101010400040400060' @VA09244 00379050 SPACE 2 00380000 UCCCCW SN,(78,78,84) 00381000 EJECT 00382000 COPY EQU 00383000 END 00384000