* /* START OF SPECIFICATIONS **** @X50AC38 00050003 *02* PROCESSOR = ASSEMBLER @X50AC38 00100003 **** END OF SPECIFICATIONS ****/ @X50AC38 00150003 TITLE '***** IDCTSNC0 - NULLIFYC STATIC TEXT ****' @Z40LB38 00200003 ************************************************************ @Z40LB38 00250003 * * @Z40LB38 00300003 * MODULE NAME - IDCTSNC0 * @Z40LB38 00350003 * * @Z40LB38 00400003 * * @Z40LB38 00450003 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE NULLIFYC * @Z40LB38 00500003 * FUNCTION * @Z40LB38 00550003 * * @Z40LB38 00600003 * * @Z40LB38 00650003 * COPYRIGHT - NONE * @Z40LB38 00700003 * * @Z40LB38 00750003 * STATUS - RELEASE 0 LEVEL 0 * @Z40LB38 00800003 * * @Z40LB38 00850003 * FUNCTION - CONTAINS NO EXECTABLE CODE, ONLY STATIC TEXT * @Z40LB38 00900003 * ENTRIES FOR THE FUNCTION NULLIFYC * @Z40LB38 00950003 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC * @Z40LB38 01000003 * TEXT REQUEST IS MADE. * @Z40LB38 01050003 * * @Z40LB38 01100003 * NOTES - NONE * @Z40LB38 01150003 * * @Z40LB38 01200003 * DEPENDENCIES - NONE * @Z40LB38 01250003 * RESTRICTIONS - NONE * @Z40LB38 01300003 * REGISTER CONVENTIONS - NA * @Z40LB38 01350003 * PATCH AREA - NA * @Z40LB38 01400003 * * @Z40LB38 01450003 * MODULE TYPE - TABLES * @Z40LB38 01500003 * * @Z40LB38 01550003 * PROCESSOR - ASSEMBLER * @Z40LB38 01600003 * MODULE SIZE - 400 * @Z40LB38 01650003 * ATTRIBUTES - READ-ONLY * @Z40LB38 01700003 * * @Z40LB38 01750003 * ENTRY POINT - NA * @Z40LB38 01800003 * * @Z40LB38 01850003 * EXIT NORMAL - NA * @Z40LB38 01900003 * * @Z40LB38 01950003 * EXIT NORMAL - NA * @Z40LB38 02000003 * * @Z40LB38 02050003 * EXTERNAL REFERENCES - NA * @Z40LB38 02100003 * * @Z40LB38 02150003 * TABLES - NA * @Z40LB38 02200003 * * @Z40LB38 02250003 * MACROS - NA * @Z40LB38 02300003 * * @Z40LB38 02350003 * CHANGE ACTIVITY - * @Z40LB25 02400003 * CHANGE 01 PTM ZUP1130 7/22/75 IDC01190I TEXT * @Z40LB25 02430003 * * @Z40LB38 02450003 ************************************************************ @Z40LB38 02500003 EJECT @Z40LB38 02550003 ************************************************************ @Z40LB38 02600003 * * @Z40LB38 02650003 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Z40LB38 02700003 * BY THE NULLIFYC FSR * @Z40LB38 02750003 * * @Z40LB38 02800003 ************************************************************ @Z40LB38 02850003 * @Z40LB38 02900003 IDCTSNC0 CSECT @Z40LB38 02950003 * @Z40LB38 03000003 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Z40LB38 03050003 INDEX1 DC Y(TXT1-INDEX) MSG IDC01190I @Z40LB38 03100003 INDEXEND DS 0H @Z40LB38 03150003 EJECT @Z40LB38 03200003 ********************************************************** @Z40LB38 03250003 * * @Z40LB38 03300003 * IDC01190I CARTRIDGE (CSN) RETURNED TO * @Z40LB38 03350003 * SCRATCH CARTRIDGE LIST * @Z40LB38 03400003 * * @Z40LB38 03450003 ********************************************************** @Z40LB38 03500003 SPACE 3 @Z40LB38 03550003 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH @Z40LB38 03600003 DC X'0000' MESSAGE FLAG @Z40LB38 03650003 SPACE 1 @Z40LB38 03700003 * SPACING CONTROL SUB-STRUCTURE @Z40LB38 03750003 TXT1A DC X'4000' SPACE CONTROL FLAG @Z40LB38 03800003 DC H'2' SPACING FACTOR @Z40LB38 03850003 DC C'R ' SPACING TYPE @Z40LB38 03900003 SPACE 1 @Z40LB38 03950003 * STATIC TEXT SUB-STRUCTURE @Z40LB38 04000003 DC X'0400' STATIC TEXT FLAG @Z40LB38 04050003 DC Y(STE11B-STE11A) TEXT LENGTH @Z40LB38 04100003 DC Y(STE11A-TXT1A) TEXT OFFSET @Z40LB38 04150003 DC H'1' PRINT COLUMN @Z40LB38 04200003 DC Y(STE11B-STE11A) PRINT FIELD LENGTH @Z40LB38 04250003 DC H'0' CONVERSION FLAGS @Z40LB38 04300003 SPACE 1 @Z40LB38 04350003 * BLOCKED DATA FORMAT STRUCTURE @Z40LB38 04400003 DC X'9000' BLOCKED DATA FLAGS @Z40LB38 04450003 DC H'12' INPUT LENGTH @Z40LB38 04500003 DC H'00' INPUT DATA OFFSET @Z40LB38 04550003 DC H'21' OUTPUT COLUMN OFFSET @Z40LB38 04600003 DC H'12' MAX PRINT LENGTH @Z40LB38 04650003 DC H'0' NO CONVERSION @Z40LB38 04700003 SPACE 1 @Z40LB38 04750003 STE11A DC C'IDC01190I CARTRIDGE IS NOW A' @Z40LB25 04800003 DC C' SCRATCH CARTRIDGE' @Z40LB25 04850003 STE11B EQU * @Z40LB38 04900003 TXT1B EQU * @Z40LB38 04950003 END , @Z40LB38 05000003