TITLE ' IGG1SN - IBM STANDARD UCS IMAGE - SN ' 00050002 * /* START OF SPECIFICATIONS **** 00100002 * 00150002 *01* MODULE-NAME = IGG1SN 00200002 * 00250002 *01* DESCRIPTIVE-NAME = UCS IMAGE TYPE=SN 00300002 * 00350002 *01* COPYRIGHT = NONE 00400002 * 00450002 *01* STATUS = RELEASE LEVEL 01 00500002 * 00550002 *01* FUNCTION = UCS IMAGE - SN - TEXT PRINTING 00600002 * (84 GRAPHICS-78 PREFERRED) 00610002 * 00650002 *01* NOTES = THIS MODULE CONTAINS THE UCS IMAGE SN 00700002 * THIS MODULE IS NOT EXECUTABLE 00750002 * THIS MODULE CONTAINS TWO CSECTS 00800002 * THE FIRST IS NAMED IGGDSN AND THE FLAG BYTE IS X'80' 00850002 * THE SECOND IS NAMED IGGNSN AND THE FLAG BYTE IS X'0' 00900002 * EITHER THE FIRST OR SECOND CSECT WILL BE LINK-EDITED 00950002 * INTO IMAGELIB DURING SYSGEN AS UCS1SN. THE ONE TO BE 01000002 * LINK EDITED IS DETERMINED DURING SYSGEN BY WHETHER 01050002 * SN IS TO BE A DEFAULT IMAGE. 01100002 * 01150002 *02* CHARACTER-CODE-DEPENDENCIES = NONE 01200002 * 01250002 *02* DEPENDENCIES = NONE 01300002 * 01350002 *02* RESTRICTIONS = NONE 01400002 * 01450002 *02* REGISTER-CONVENTIONS = NONE 01500002 * 01550002 *02* PATCH-LABEL = NONE 01600002 * 01650002 *01* MODULE-TYPE = MODULE 01700002 * 01750002 *02* PROCESSOR = ASSEM-370R 01800002 * 01850002 *02* MODULE-SIZE = 500 BYTES 01900002 * 01950002 *02* ATTRIBUTES = REENTERABLE 02000002 * 02050002 *01*ENTRY-POINT = IGG1SN 02100002 * 02150002 *02* PURPOSE = STANDARD UCS IMAGE 02200002 * 02250002 *02* LINKAGE = NONE 02300002 * 02350002 *02* INPUT = NONE 02400002 * 02450002 *02* OUTPUT = NONE 02500002 * 02550002 *02* EXIT-NORMAL = NONE 02600002 * 02650002 *02* EXIT-ERROR = NONE 02700002 * 02750002 *01*EXTERNAL-REFERENCES = NONE 02800002 * 02850002 *02* ROUTINES = NONE 02900002 * 02950002 *02* DATA-SETS = NONE 03000002 * 03050002 *02* DATA-AREA = NONE 03100002 * 03150002 *02* CONTROL-BLOCKS = NONE 03200002 * 03250002 *01*TABLES = NONE 03300002 * 03350002 *01*MACROS = NONE 03400002 * 03450002 *01* CHANGE-ACTIVITY = SEE BELOW 03500002 * 03550002 *02* VS2-02 03600002 * 03650002 * MODULE CREATED 03700002 * 03750002 **** END OF SPECIFICATIONS ***/ 03800002 IGGDSN CSECT 03850002 DC X'80' DEFAULT FLAG SET 03900002 DC AL1(3) NO. OF LINES FOR VERIFICATION 03950002 DC AL1(78) NO. OF CHARS. FIRST LINE 04000002 DC AL1(78) NO. OF CHARS. SECOND LINE 04010002 DC AL1(84) NO. OF CHARS. THIRD LINE 04020002 DC C'1234567890&&./STUVWXYZ,$*JKLMNOPQR-":ABCDEFGHI+abcdefgC04070037 hijklmnopqrstuvwxyz@''()ž|' @ZA12237 04100037 DC C'1234567890&&./STUVWXYZ,$*JKLMNOPQR-":ABCDEFGHI+abcdefgC04130037 hijklmnopqrstuvwxyz@''()ž|' @ZA12237 04160037 DC C'1234567890&&./STUVWXYZ,$*JKLMNOPQR-":ABCDEFGHI+abcdefgC04190037 hijklmnopqrstuvwxyz@''()ž|?!;½%<' @ZA12237 04220037 IGGNSN CSECT 04300002 DC X'00' DEFAULT FLAG NOT SET 04350002 DC AL1(3) NO. OF LINES FOR VERIFICATION 04400002 DC AL1(78) NO. OF CHARS. FIRST LINE 04450002 DC AL1(78) NO. OF CHARS. SECOND LINE 04460002 DC AL1(84) NO. OF CHARS. THIRD LINE 04470002 DC C'1234567890&&./STUVWXYZ,$*JKLMNOPQR-":ABCDEFGHI+abcdefgC04520037 hijklmnopqrstuvwxyz@''()ž|' @ZA12237 07520037 DC C'1234567890&&./STUVWXYZ,$*JKLMNOPQR-":ABCDEFGHI+abcdefgC10520037 hijklmnopqrstuvwxyz@''()ž|' @ZA12237 13520037 DC C'1234567890&&./STUVWXYZ,$*JKLMNOPQR-":ABCDEFGHI+abcdefgC16520037 hijklmnopqrstuvwxyz@''()ž|?!;½%<' @ZA12237 19520037 END 22520037