* 00010051 * %GOTO UCML1; /* 00020051 MACRO 00030051 IEECUCM &D,&REPLY=1,&BUFFERS=1,&MCS=,&EXIT=,&MASTCON=, +00040051 &HARDCDE=,&OLDWCDE=,&HARDCPY=(SYSLOG,NOCMDS,NOHCPY), +00050051 &FORMAT=OLD,&SYS=AOS2,&DSECT=YES 00060051 GBLA &UCMINDX TOTAL CONSOLE COUNT Y02038 00070051 GBLC &UCMA(99),&UCMB(99),&UCMC(99) @Z02BP9A 00080051 GBLC &UCME(99),&UCMG(99),&UCMH(99) @Z02BP9A 00090051 GBLC &ROUTCDE(99),&AUTH(99),&ALTCON(99) Y02038 00100051 GBLC &COMPCON(99),&ALTCOMP(99) Y02038 00108051 LCLA &I,&M,&N,&Z,&RK,&RK1,&RK2,&RK3,&RK4 @G51AP9A 00116051 LCLA &RQENUM,&WQENUM,&SYSFLGS,&SYSFLG1 @G51AP9A 00124051 LCLA &AFLGS,&DFLGS,&SDS5G @G51AP9A 00132051 LCLB &AF(4),&DF(9),&DSECTY @G51AP9A 00140051 LCLB &OUT,&COMPOS,&JES @G51AP9A 00148051 .* CHANGE ACTIVITY 00156003 .* SET CONDITIONAL ASSEMBLY LOOP COUNTER TO VALUE OF Y02038 00180051 .* 60000 TO PROVIDE FOR GENERATION OF UP TO 99 Y02038 00189051 .* CONSOLE DEVICE ENTRIES Y02038 00198051 .* 00207051 .* DEFINE NEW BIT UCMSDS5D @ZA57016 00211503 ACTR 60000 */ 00216051 *%UCML1 : ; 00225051 * 00234051 */* **************************************************************** */ 00243051 */* */ 00252051 */* UNIT CONTROL MODULE (UCM) DEFINITION */ 00270051 */* */ 00279051 */* OS/VS2 SU64, 09/15/81, LEVEL=3 (PTF) */ 00283003 */* */ 00297051 */* METHOD OF ACCESS */ 00306051 */* PL/S - DCL (UCMEXTPT,UCMMCSPT,UCMBASPT) PTR @G51AP9A*/ 00315051 */* DCL (UCMEILPT,UCMUEWPT,UCMDVEPT) PTR */ 00324051 */* DCL (UCMFXPTR,UCMPXPTR) PTR @G51AP9A*/ 00333051 */* */ 00342051 */* BAL - DSECTS ARE PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00376051 */* DSECT=NO IS TO BE SPECIFIED ONLY AT SYSGEN. USING */ 00384051 */* ON A DSECT NAME GIVES ADDRESSABILITY FOR ALL SYMBOLS */ 00392051 */* IN THAT DSECT. IF FORMAT=OLD IS SPECIFIED OR */ 00400051 */* DEFAULTED, 3 DSECTS ARE PRODUCED. IF FORMAT=NEW */ 00408051 */* IS SPECIFIED, 10 DSECTS ARE PRODUCED. THE @G51AP9A*/ 00416051 */* DSECT NAMES AND THEIR CONTENTS ARE @ZA11870*/ 00424051 */* */ 00432051 */* CONTENTS OLD NEW */ 00452051 */* UCM EXTENSION UCM2EXT UCM2EXT */ 00462051 */* MCS PREFIX UCMPRFX UCMPRFX */ 00472051 */* UCM BASE ** UCM */ 00482051 */* EVENT INDICATION LIST UCMEIL */ 00492051 */* INDIVIDUAL DEVICE ENTRY (UCME) UCMLIST @G51AP9A*/ 00502051 */* USER EXIT WORK AREA UCMEXIT @G51AP9A*/ 00512051 */* (FORMAT=NEW ONLY) @G51AP9A*/ 00520051 */* UCM FIXED EXTENSION BASE UCMFEXTA @G51AP9A*/ 00528051 */* (FORMAT=NEW ONLY) @G51AP9A*/ 00536051 */* UCM PAGEABLE EXTENSION BASE UCMPEXTA @G51AP9A*/ 00544051 */* (FORMAT=NEW ONLY) @G51AP9A*/ 00552051 */* UCME FIXED EXTENSION UCMEFEXT @G51AP9A*/ 00560051 */* (FORMAT=NEW ONLY) @G51AP9A*/ 00568051 */* UCME PAGEABLE EXTENSION UCMEPEXT @G51AP9A*/ 00576051 */* (FORMAT=NEW ONLY) @G51AP9A*/ 00584051 */* */ 00592051 */* ** MEANS NAME ON DSECT WHICH IMMEDIATELY PRECEDED */ 00630051 */* THIS MACRO CALL. THIS NAME IS PICKED UP VIA THE */ 00638051 */* &SYSECT OPTION. THE UCM BASE AND THE NEXT 2 */ 00646051 */* SECTIONS ARE ALL MAPPED IN THE SAME DSECT IF */ 00654051 */* FORMAT=OLD. @G51AP9A*/ 00670051 */* */ 00677051 */* **************************************************************** */ 00698051 * 00705051 *%GOTO UCML2; /* 00712051 .* 00726051 .* 00733051 .* GLOBAL/ 00740051 .* OPERAND DESCRIPTION 00747051 .* 00754051 .* UCMA SUBLIST OF 3-BYTE UCB NAMES. @Z02BP9A 00761051 .* 00768051 .* UCMB SUBLIST OF CORRESPONDING 2-BYTE NAME MODIFIERS. @G51AP9A 00778051 .* XX WOULD RESULT IN IGCXX07B AS THE PROCESSOR @G51AP9A 00788051 .* MODULE NAME. @G51AP9A 00812051 .* 00824051 .* UCMC SUBLIST OF CORRESPONDING 4-BYTE INITIAL @G51AP9A 00827051 .* ATTRIBUTES, GIVEN IN THE FORM WAXA. (AN N IN @G51AP9A 00831051 .* ANY POSITION IMPLIES LACK OF THAT ATTRIBUTE.) @G51AP9A 00838051 .* CHARACTER MEANING 00852051 .* W ENTRY SUPPORTS WTO. 00859051 .* A ENTRY SUPPORTS ATTENTION 00866051 .* X ENTRY SUBJECT TO EXTERNAL INTERRUPT 00873051 .* A ENTRY ACTIVE AT IPL. 00880051 .* 00887051 .* EXAMP. NAXN ALTERNATE CARD READER. 00894051 .* WANA 1052 ONLY CONSOLE. 00901051 .* 00950051 .* D BUFFER TECHNIQUE TO BE USED 00967051 .* CHAR MEANING 00974051 .* U UNLIMITED(VARIABLE) NUMBER OF BUFFERS AND 00982051 .* WORK SPACE (OS/VS2 OPTION) 00987051 .* 01005951 .* UCME SUBLIST WHICH DIFFERENTIATES AMONG CONSOLE @G51AP9A 01008951 .* ENTRIES FOR 2250, 2260, 3066, 3277, 3215 AND @G51AP9A 01012951 .* 3213. THESE DEVICES ARE SPECIFIED BY THE @G51AP9A 01013551 .* FOLLOWING PARAMETERS. @G51AP9A 01014951 .* A FOR 3066 @G51AP9A 01039951 .* B FOR 2250 S21003 01054951 .* C FOR 2260 S21003 01056951 .* D FOR 3277 MODEL 1 01076051 .* E FOR 3277 MODEL 2 01083051 .* Y FOR 3215 (JES3 DUMMY CONSOLE) (MDC052) Y02038 01099951 .* Z FOR 3213 MDC043 01109951 .* 01111951 .* UCMG SUBLIST OF CORRESPONDING 1-BYTE DESCRIPTIONS OF @G51AP9A 01113951 .* A CONSOLE'S INPUT/OUTPUT CAPABILITY. @G51AP9A 01122351 .* CHAR MEANING 01140751 .* F ------- CONSOLE HAS FULL INPUT CAPABILITY S21002 01153451 .* AND OUTPUTS BOTH IN-LINE MESSAGES S21002 01160451 .* AND OUT-OF-LINE STATUS DISPLAYS. S21002 01175451 .* M ------- CONSOLE OUTPUTS ALL MESSAGES IN S21002 01182451 .* THE MESSAGE STREAM. @G51AP9A 01189451 .* S ------- CONSOLE OUTPUTS STATUS DISPLAYS IN S21002 01224851 .* SPECIFICALLY DEFINED AREAS ONLY. S21002 01238951 .* NOTE: THE DEFAULT VALUE IS F. S21002 01269051 .* 01278051 .* 01287051 .* UCMH SUBLIST OF CORRESPONDING BIT SETTINGS FOR @G51AP9A 01291051 .* UCMDISPH. @G51AP9A 01293051 .* CHAR MEANING MDC042 01305051 .* 0 NOT INTEGRATED OPERATOR'S CONSOLE MDC042 01314051 .* 1 INTEGRATED OPERATOR'S CONSOLE MDC042 01323051 .* 01332051 .* 01350001 .* REPLY MAXIMUM REPLY ID TO BE ASSIGNED, LESS THAN 100. 01359051 .* 01368051 .* 01377051 .* BUFFERS MAXIMUM ALLOWABLE NUMBER OF IN-CORE BUFFERS WAITING. 01386051 .* 01395051 .* 01404051 .* MCS MULTIPLE CONSOLE SUPPORT IS INCLUDED. SPECIFIED AS 01413051 .* MCS=MCS. (MCS IS STANDARD IN OS/VS.) 01422051 .* 01431051 .* 01440051 .* EXIT EQUALS 'USEREXIT' WHEN USER DESIRED THAT THIS EXIT BE 01445051 .* TAKEN PRIOR TO ROUTING OF EACH WTO/R FOR MCS. 01460051 .* (STANDARD FEATURE IN OS/VS2.) 01465051 .* 01480051 .* 01490051 .* MASTCON THE ADDRESS OF THE MASTER CONSOLE FOR MCS. 01500051 .* 01510051 .* 01530001 .* ROUTCDE A 4-DIGIT HEX SUBLIST CORRESPONDING TO THE 16 @G51AP9A 01534051 .* POSSIBLE ROUTING CODES FOR EACH CONSOLE. @G51AP9A 01539051 .* EX: ROUTCDE=(FFFF,0001); WHERE THE 1ST CONSOLE HAS 01557051 .* ALL ROUTE CODES AND THE 2ND HAS ONLY THE 16TH. 01566051 .* 01575051 .* 01584051 .* HARDCDE A 4-DIGIT HEX GROUP CORRESPONDING TO THE 16 @G51AP9A 01588051 .* POSSIBLE ROUTING CODES FOR HARD COPY. @G51AP9A 01593051 .* 01611051 .* 01620051 .* OLDWCDE A 4-DIGIT HEX GROUP CORRESPONDING TO THE 16 @G51AP9A 01624051 .* POSSIBLE ROUTING CODES THAT CAN BE ASSIGNED TO @G51AP9A 01628051 .* OLD WTO/R-S. @G51AP9A 01630051 .* 01644051 .* 01660051 .* AUTH A 2-DIGIT HEX SUBLIST (THE SECOND DIGIT OF @G51AP9A 01662051 .* WHICH IS PRESENTLY 0) CORRESPONDING TO THE 4 @G51AP9A 01664051 .* PRESENT COMMAND CODES. @G51AP9A 01665051 .* EX: AUTH=(E0,A0); WHERE THE FIRST CONSOLE @G51AP9A 01669051 .* HAS COMMAND GROUPS 1, 2 AND 3 AND THE SECOND @G51AP9A 01672051 .* CONSOLE HAS COMMAND GROUPS 1 AND 3. @G51AP9A 01678051 .* 01687051 .* 01696051 .* HARDCPY (SYSLOG, AN ADDRESS OR ZERO; CMDS,STCMDS, S21002 01705051 .* INCMDS, OR NOCMDS; HCPY OR NOHCPY) DESIGNATING S21002 01714051 .* RESPECTIVELY: WHERE HARDCOPY WILL GO; WHETHER S21002 01723051 .* COMMANDS AND ALL STATUS DISPLAYS, COMMANDS AND S21002 01732051 .* STATIC STATUS DISPLAYS, COMMANDS AND INLINE S21002 01741051 .* RESPONSES OR NO COMMANDS AND RESPONSES WILL GO S21002 01750051 .* TO HARDCOPY; AND WHETHER HARDCOPY EXISTS. S21002 01759051 .* 01768051 .* 01800001 .* COMPCON A 3 DIGIT ADDRESS SUBLIST FOR THE COMPOSITE CONSOLES 01809051 .* CORRESPONDING TO THE RELATIVE CONSOLE ADDRESS IN 01818051 .* THE 'A' PARAMETER: FFF IF NONE SPECIFIED M1717 01827051 .* 01836051 .* 01845051 .* ALTCON A 3 DIGIT ADDRESS SUBLIST FOR THE ALTERNATE CONSOLES 01854051 .* CORRESPONDING TO THE RELATIVE CONSOLE ADDRESS IN THE 01863051 .* 'A'PARAMETER: FFF IF NONE SPECIFIED M1717 01872051 .* 01881051 .* 01890051 .* ALTCOMP A 3 DIGIT ADDRESS SUBLIST FOR THE COMPOSITE CONSOLES 01900051 .* CORRESPONDING TO THE RELATIVE ALTERNATE CONSOLE 01910051 .* ADDRESS IN THE ALTCON PARAMETER. FFF IF NONE M1717 01930051 .* SPECIFIED. M1717 01938051 .* 01946051 .* FORMAT NEW - INDICATES THAT A SEPARATE DSECT STATEMENT IS TO 01954051 .* BE GENERATED FOR EACH MAJOR SECTION OF THE UCM 01962051 .* (UCM EXTENSION, MCS PREFIX, BASE SECTION, @G51AP9A 01980051 .* EIL, DEVICE ENTRY MAP (UCME), USER EXIT @G51AP9A 01989051 .* WORK AREA, FIXED EXTENSION BASE, PAGEABLE @G51AP9A 01998051 .* EXTENSION BASE, UCME FIXED EXTENSION AND @G51AP9A 02007051 .* UCME PAGEABLE EXTENSION) WHEN THE MACRO @G51AP9A 02016051 .* IS CALLED TO PROVIDE A DSECT MAPPING. @G51AP9A 02025051 .* 02034051 .* OLD - INDICATES THAT SEPARATE DSECT STATEMENTS ARE TO 02043051 .* BE GENERATED FOR THE UCM EXTENSION, @G51AP9A 02052051 .* MCS PREFIX, AND BASE SECTIONS ONLY. THE NAME 02061051 .* FIELD ON THE GENERATED DSECT STATEMENT FOR THE 02070051 .* BASE SECTION WILL BE TAKEN FROM THE NAME FIELD 02079051 .* OF A USER-ENTERED DSECT STATEMENT WHICH IS CODED 02088051 .* IMMEDIATELY PRIOR TO THE IEECUCM MACRO CALL 02097051 .* STATEMENT. THIS PROVIDES COMPATIBILITY WITH 02106051 .* OS/360 BAL CODE CARRIED OVER INTO OS/VS. @G51AP9A 02115051 .* 02124051 .* SET PARAMETER VALUES 02133051 .* 02160051 &RQENUM SETA &REPLY 02169051 &WQENUM SETA &BUFFERS 02178051 AIF (&RQENUM LT 100).UCM0000 @ZA11351 02187051 &RQENUM SETA 99 02196051 .UCM0000 ANOP 02205051 AIF ('&DSECT' EQ 'YES').UCM0001 Y02038 02214051 &N SETA &UCMINDX SET COUNT OF CONSOLES Y02038 02223051 AGO .UCM0002 Y02038 02232051 .UCM0001 ANOP Y02038 02250051 &N SETA 0 SET COUNT OF CONSOLES Y02038 02259051 &DSECTY SETB 1 INDICATE DSECT=YES Y02038 02268051 .UCM0002 ANOP Y02038 02277051 EJECT @G51AP9A 02281051 IEZBITS , - BIT DEFINITIONS 02286051 *********************************************************************** 02304051 * * 02313051 * UNIT CONTROL MODULE (UCM) EXTENSION * 02322051 * (PRESENT IN OS/VS2 ONLY) * 02340051 * * 02349051 *********************************************************************** 02358051 SPACE 1 02367051 AIF (&DSECTY).UCM0010 Y02038 02376051 DS 0D 02385051 UCM2EXT EQU * - START OF UCM EXTENSION 02394051 AGO .UCM0020 02403051 .UCM0010 ANOP 02412051 UCM2EXT DSECT , - START OF UCM EXTENSION 02430051 .UCM0020 ANOP 02439051 UCM2WID DC H'0' - ASID OF USER WAITING ON UCMWQECB MDC021 02448051 UCM2RID DC H'0' - ASID OF USER WAITING ON UCMRQECB MDC022 02457051 UCM2PST DC V(IEA0PT02) - BRANCH ENTRY POINT INTO 'POST' ROUTINE 02466051 UCM2STA DS 0A - POINTER TO STAR WORK AREA (SDWA) 02475051 UCM2SFLG DC XL1'00' - STAR CONTROL FLAGS @G51AP9A 02484051 UCM2SDWA EQU BIT0 - SDWA OBTAINED 02493051 UCM2SENT EQU BIT1 - STAR ENTERED 02502051 UCM2DTAK EQU BIT2 - DUMP TAKEN 02520051 UCM2DSTR EQU BIT3 - DUMP STARTED 02529051 UCM2WTOI EQU BIT4 - STAR ABEND MESSAGE ISSUED 02538051 * (MDC326) @ZA11373 02547051 UCMRSV33 EQU BIT5,,C'X' - RESERVED 02556051 UCMRSV34 EQU BIT6,,C'X' - RESERVED 02565051 UCMRV008 EQU BIT7,,C'X' - RESERVED (MDC055) YM5195 02574051 UCM2STAA DC AL3(0) - ADDRESS OF SDWA OR ZERO 02583051 UCMRSV78 DC A(0) - RESERVED (MDC303) @G64DP9A 02592064 UCMRSV73 DC A(0) - RESERVED (MDC386) @G51AP9A 02613051 UCMRSV74 DC A(0) - RESERVED (MDC387) @G51AP9A 02616051 EJECT @G51AP9A 02619051 *********************************************************************** 02628051 * * 02637051 * MULTIPLE CONSOLE SUPPORT (MCS) UCM PREFIX * 02646051 * * 02655051 * MCS IS STANDARD IN OS/VS. THE MCS PREFIX IS ALWAYS * 02664051 * PRESENT. * 02673051 * * 02682051 *********************************************************************** 02700051 SPACE 02709051 AIF (&DSECTY).UCM0045 Y02038 02718051 UCMPRFX EQU * - START OF MCS PREFIX 02727051 MCSUCM EQU * - ALIAS FOR START OF MCS PREFIX 02736051 UCMMCENT DC A(UCMMCUCM) - ADDRESS OF MASTER CONSOLE UCM ENTRY 02745051 AGO .UCM0050 02754051 .UCM0045 ANOP 02763051 UCMPRFX DSECT , - START OF MCS PREFIX 02772051 MCSUCM EQU * - ALIAS FOR START OF MCS PREFIX 02790051 UCMMCENT DS A - ADDRESS OF MASTER CONSOLE UCM ENTRY 02798051 .UCM0050 ANOP 02806051 UCMSAVE0 DS 0CL72 - RESIDENT REGISTER SAVE AREA FOR IEACVTSK 02814051 UCMSVA0 DC F'0' - WORD 1 @G51AP9A 02830051 UCMSVB0 DC F'0' - WORD 2 @G51AP9A 02838051 UCMSVC0 DC F'0' - WORD 3 @G51AP9A 02846051 UCMSVD0 DC F'0' - WORD 4 @G51AP9A 02854051 UCMSVE0 DC F'0' - WORD 5 @G51AP9A 02862051 UCMSVF0 DC F'0' - WORD 6 @G51AP9A 02880051 UCMSVG0 DC F'0' - WORD 7 @G51AP9A 02888051 UCMSVH0 DC F'0' - WORD 8 @G51AP9A 02896051 UCMSVI0 DC F'0' - WORD 9 @G51AP9A 02904051 UCMSVJ0 DC F'0' - WORD 10 @G51AP9A 02912051 UCMSVK0 DC F'0' - WORD 11 @G51AP9A 02920051 UCMSVL0 DC F'0' - WORD 12 @G51AP9A 02928051 UCMSVM0 DC F'0' - WORD 13 @G51AP9A 02936051 UCMSVN0 DC F'0' - WORD 14 @G51AP9A 02944051 UCMSVO0 DC F'0' - WORD 15 @G51AP9A 02952051 UCMSVP0 DC F'0' - WORD 16 @G51AP9A 02960051 UCMSVQ0 DC F'0' - WORD 17 @G51AP9A 02968051 UCMSVR0 DC F'0' - WORD 18 @G51AP9A 02976051 UCMDOME DC A(0) - ADDRESS OF FIRST DOM ELEMENT 02984051 UCMWTOX DC A(0) - ZERO (OS/VS2) (MDC383) @G51AP9A 02994051 UCMSFLGS DS 0BL2 - SYSTEM CONTROL FLAGS @G51AP9A 03036051 AIF (&DSECTY).UCM0180 Y02038 03044051 &Z SETA 0 @G51AP9A 03052051 .UCM0140 AIF (&Z EQ &N).UCM0180 @G51AP9A 03060051 &Z SETA &Z+1 03068051 AIF ('&UCMB(&Z)' NE '51').UCM0140 @Z02BP9A 03076051 &SYSFLGS SETA &SYSFLGS+4 VALUE FOR UCMSFLG1 @G51AP9A 03084051 &SYSFLG1 SETA &SYSFLG1+4 VALUE FOR UCMSFLG2 @G51AP9A 03092051 .UCM0180 ANOP 03100051 UCMSFLG1 DC AL1(&SYSFLGS) BYTE 1 OF SYSTEM CONTROL FLAGS @G51AP9A 03108051 UCMRSV01 EQU BIT0,,C'X' - RESERVED 03116051 UCMSYSB EQU BIT1 - HARD COPY SUPPORT REQUIRED 03124051 UCMSYSC EQU BIT2 - COMMANDS TO HARD COPY 03132051 UCMSYSD EQU BIT3 - CONSOLE SWITCH FOR MASTER 03170051 UCMSYSE EQU BIT4 - NO CONSOLES ACTIVE 03178051 UCMSYSF EQU BIT5 - GRAPHIC CONSOLES EXIST (MDC327) @G51AP9A 03186051 UCMSYSG EQU BIT6 - HARD COPY DEVICE IS SYSLOG 03194051 UCMRSV35 EQU BIT7,,C'X' - RESERVED 03202051 UCMSFLG2 DC AL1(&SYSFLG1) BYTE 2 OF SYSTEM CONTROL FLAGS @G51AP9A 03220051 UCMSYSI EQU BIT0 - WQE HOUSEKEEPING REQUIRED 03223051 UCMSYSJ EQU BIT1 - HARD COPY TO BE WRITTEN 03230051 UCMSYSK EQU BIT2 - NEW CONSOLE IS COMPOSITE 03239051 UCMSYSL EQU BIT3 - DEVICE BEING ACCESSED BY CONSOLE SWITCH 03240051 * TO SOUND CONSOLE ALARM (MDC384) @ZM44658 03242051 UCMSYSM EQU BIT4 - FAILING CONSOLE IS COMPOSITE 03257051 UCMSYSN EQU BIT5 - GRAPHIC CONSOLES ACTIVE 03266051 UCMSYSO EQU BIT6 - DUMMY ATTENTION BY WTL 03275051 UCMSYSP EQU BIT7 - DEVICE BEING ACCESSED BY CONSOLE SWITCH 03277051 * TO SOUND MAIN POWER ALARM 03279051 * (MDC329) @ZM44658 03283051 AIF (&DSECTY).UCM0240 Y02038 03302051 UCMOWTOR DC XL2'&OLDWCDE' DEFAULT VALUES FOR OLD WTO/R MACROS 03330051 AGO .UCM0260 03337051 .UCM0240 ANOP 03344051 UCMOWTOR DC XL2'0000' - DEFAULT VALUES FOR OLD WTO/R MACROS 03351051 .UCM0260 ANOP 03358051 UCMCMID DC F'1' - CURRENT MSG IDENTIFICATION NUMBER 03365051 UCMHCUCM DC A(0) - ADDRESS OF HARD COPY UCM ENTRY (OR ZERO) 03380051 UCMXCT DC FL1'0' - EXTERNAL REQUEST COUNT 03388051 UCMUEXIT DC AL3(0) - ZERO (WAS ADDRESS OF USER EXIT DATA) 03396051 * (MDC376) @G51AP9A 03404051 UCMHRDRT DC XL2'0000' - HARD COPY ROUTING CODE ASSIGNMENTS 03412051 UCMRSV03 DC XL2'0000' - RESERVED 03430051 UCMXSA DS 0XL24 - 6-WORD PARAMETER LIST FOR SVC 72 @G51AP9A 03440051 UCM1WD DC A(UCM3WD) - PTR TO 3RD WORD OF SVC 72 PARM LIST 03450051 UCM2WD DC A(0) - 2ND WORD OF SVC 72 PARM LIST @G51AP9A 03460051 UCM3WD DC A(0) - 3RD WORD OF SVC 72 PARM LIST @G51AP9A 03480051 UCM4WD DC A(0) - 4TH WORD OF SVC 72 PARM LIST @G51AP9A 03490051 UCM5WD DC A(0) - 5TH WORD OF SVC 72 PARM LIST @G51AP9A 03500051 UCM6WD DC A(0) - 6TH WORD OF SVC 72 PARM LIST @G51AP9A 03502051 UCMQRTN DC A(0) - ADDRESS OF ENQ ROUTINE ENTRY POINT YM2704 03510051 UCMSWSA1 DC F'0' - SAVE AREA FOR IEAVSWCH (MDC373) @G51AP9A 03518051 UCMSWSA2 DC F'0' - SAVE AREA FOR IEAVSWCH (MDC374) @G51AP9A 03526051 UCMRSV69 DC A(0) - RESERVED (MDC331) @G51AP9A 03534051 UCMNPECB DC F'0' - NIP ECB - POSTED WHEN NIP ROUTINE'S HARD 03542051 * COPY CAN BE WRITTEN 03560051 UCMLOGAD DC A(0) - ADDRESS OF WTL BUFFER MDC035 03570051 UCMRSV72 DC F'0' - RESERVED (MDC369) @G51AP9A 03590051 UCMSDS1 DC AL1(0) - SDS FLAGS @G51AP9A 03592051 UCMSDS1A EQU BIT0 - STCMDS TO HARDCOPY 03601051 UCMSDS1B EQU BIT1 - INCMDS TO HARDCOPY 03610051 UCMRSV04 EQU BIT2,,C'X' - RESERVED 03629951 UCMRSV05 EQU BIT3,,C'X' - RESERVED 03639951 UCMRSV06 EQU BIT4,,C'X' - RESERVED 03649951 UCMRSV07 EQU BIT5,,C'X' - RESERVED 03659951 UCMRSV08 EQU BIT6,,C'X' - RESERVED 03669951 UCMRSV09 EQU BIT7,,C'X' - RESERVED 03679951 UCMSDS2 DC X'00' - RESERVED FOR SDS FLAGS @G51AP9A 03682951 UCMRSV65 DC H'0' - RESERVED (MDC375) @G51AP9A 03698051 SPACE 4 @G51AP9A 03706051 *********************************************************************** 03714051 * * 03730051 * POINTERS TO UCM MCS PREFIX AND UCM EXTENSION * 03738051 * LOCATED IMMEDIATELY PRECEDING UCM BASE SECTION * 03746051 * * 03754051 *********************************************************************** 03762051 SPACE 1 03770051 AIF (&DSECTY).UCM0486 Y02038 03778051 UCM2PTR DC A(UCM2EXT) - ADDRESS OF UCM EXTENSION (OS/VS2 ONLY) 03786051 UCMPRFXP DC A(UCMPRFX) - ADDRESS OF UCM MCS PREFIX 03794051 AGO .UCM0488 03802051 .UCM0486 ANOP 03810051 UCM2PTR DS A - ADDRESS OF UCM EXTENSION (OS/VS2 ONLY) 03818051 UCMPRFXP DS A - ADDRESS OF UCM MCS PREFIX 03826051 .UCM0488 ANOP 03834051 EJECT @G51AP9A 03842051 *********************************************************************** 03850051 * * 03858051 * UNIT CONTROL MODULE (UCM) BASE * 03866051 * * 03874051 *********************************************************************** 03882051 SPACE 03890051 AIF (&DSECTY).UCM0490 Y02038 03898051 UCM EQU * - START OF UCM BASE 03906051 ENTRY IEECUCB 03960051 IEECUCB EQU * 03969051 ENTRY IEECVUCM 03978051 IEECVUCM EQU * 03987051 AGO .UCM0500 03996051 .UCM0490 ANOP 04005051 AIF ('&FORMAT' EQ 'OLD').UCM0492 04014051 UCM DSECT , - START OF UCM BASE 04023051 AGO .UCM0500 04032051 .UCM0492 ANOP 04050051 &SYSECT DSECT , - START OF UCM BASE 04056051 .UCM0500 ANOP 04062051 * 04068051 * FIXED ECBS 04074051 * 04090051 UCMXECB DC F'0' - EXTERNAL INTERRUPT ECB 04099051 UCMAECB DC F'0' - ATTENTION INTERRUPT ECB 04108051 UCMOECB DC F'0' - WTO/WTOR REQUEST ECB 04117051 UCMDECB DS 0F - DOM REQUEST ECB @G51AP9A 04121051 UCMLECB DC F'0' - WTL REQUEST ECB @G51AP9A 04126051 UCMARECB DC F'0' - CONSOLE RECOVERY ECB (OS/VS2) MDC019 04144051 SPACE 04153051 UCMLSTP DC A(UCMEIL) - ADDRESS OF EVENT INDICATION LIST (EIL) 04162051 SPACE 04171051 * WTO/WTOR CONTROL FIELDS 04180051 SPACE 04189051 UCMWTOQ DC A(0) - ADDRESS OF FIRST WQE (SYSOUT QUEUE) 04198051 UCMRPYQ DC A(0) - ADDRESS OF FIRST ORE (REPLY-Q ELEMENT) 04230051 UCMRPYI DC XL13'00' - REPLY ID ASSIGNMENT PATTERN (100 BITS) 04239051 UCMRQLM DC FL1'&RQENUM' I.D. ASSIGNMENT LIMIT @G51AP9A 04248051 UCMWQLM DC H'&WQENUM' WQE BUFFER LIMIT @G51AP9A 04257051 UCMRQECB DC F'0' - REPLY REQUEST WAITING ECB 04266051 UCMWQECB DC F'0' - BUFFER REQUEST WAITING ECB 04275051 UCMRQNR DC H'0' - CURRENT ORE COUNT 04284051 UCMWQNR DC H'0' - CURRENT WQE COUNT 04293051 UCMWQEND DC F'0' - ADDRESS OF LAST WQE - OR ZERO 04302051 UCMPXA DC V(IEECVTCB) - ADDR OF COMMUNICATIONS TASK TCB (OS/VS2) 04320051 UCMPXB DS 0B - @G51AP9A 04328051 UCMMODE DC AL1(2) - MODE FLAGS @G51AP9A 04336051 UCMRSV11 EQU BIT0,,C'X' - RESERVED 04344051 UCMRSV66 EQU BIT1,,C'X' - RESERVED (MDC370) @G51AP9A 04360051 UCMTPUTA EQU BIT2 - TPUTTER IS ACTIVE (OS/VS2) MDC017 04367051 UCMRSV14 EQU BIT3,,C'X' - RESERVED MDC018 04374051 UCMAMFA EQU BIT4 - ACCEPT 'VARY' CMD W/MSTCONS OPND FROM 04381051 * ANY MCS SECONDARY CONSOLE 04388051 UCMOGCE EQU BIT5 - ONLY GRAPHIC CONSOLES ACTIVE 04395051 UCMMCS EQU BIT6 - MCS GENERATED WITH SYSTEM 04410051 UCMFIX EQU BIT7 - CONTROL PROGRAM MODE (0 = OS/VS2) 04419051 * (1 = OS/VS1) 04428051 UCMRSV75 DC BL1'0' - RESERVED (MDC380) @G51AP9A 04432051 UCMRSV67 DC FL1'0' - RESERVED (MDC371) @G51AP9A 04446051 UCMRSV76 DC BL1'0' - RESERVED (MDC381) @G51AP9A 04450051 SPACE 2 04473051 * THE FOLLOWING FIELDS ARE USED FOR ACCESSING UCM INDIVIDUAL 04500051 * DEVICE ENTRIES. THEY MUST BE DEFINED IN THE ORDER SHOWN. 04509051 SPACE 04518051 UCMVDATA DS 0CL12 - UCM ENTRY ACCESSING DATA 04527051 UCMVEA DC A(UCMLIST) - ADDRESS OF FIRST UCM ENTRY 04536051 UCMVEZ DC A(UCMESIZE) - LENGTH OF A UCM ENTRY 04545051 UCMVEL DC A(UCMEND) - ADDRESS OF LAST UCM ENTRY 04554051 SPACE 2 @G64DP9A 04563064 * SAVE AREA FOR REFRESHABILITY ROUTINES @G64DP9A 04564064 SPACE 1 @G64DP9A 04565064 UCMRSV77 DC 56XL1'00' - RESERVED (MDC382) @G51AP9A 04567051 UCMSAVE4 DC 16F'0' - SAVE AREA FOR IEAVCTSK MDC034 04590051 UCMR9SV DC F'0' - SAVE AREA FOR IEAVMWSV (MDC385) @G51AP9A 04593051 SPACE 2 04602051 * THE FIELDS DEFINED FOLLOWING THIS STATEMENT ARE PRESENT 04608051 * ONLY IN VARIABLE MODE SYSTEMS (OS/VS2) 04614051 SPACE 2 04630051 DS 0D - DOUBLEWORD BOUNDARY ALIGNMENT 04638051 UCMMNTR DC A(0) - ADDRESS OF MONITOR ROUTINE MDC003 04646051 UCMMNECB DC F'0' - ECB INDICATING MONITOR TPUTS TO DO MDC004 04654051 UCMTRECB DC F'0' - ECB INDICATING TPUTTER SHOULD TERMINATE 04662051 * MDC005 04680051 UCMMQPTR DC A(0) - POINTER TO FIRST ELEMENT ON MONITOR 04689051 * QUEUE MDC006 04698051 UCMMQEND DC A(0) - POINTER TO LAST ELEMENT ON MONITOR 04707051 * QUEUE MDC007 04716051 UCMMQNXT DC A(0) - POINTER TO NEXT ELEMENT ON MONITOR QUEUE 04725051 * TO BE PROCESSED MDC008 04734051 UCMMBPTR DC A(0) - POINTER TO FIRST ELEMENT ON MONITOR 04743051 * MESSAGE BLOCK QUEUE MDC025 04752051 UCMRQLM1 DC FL1'0' - IPL-SPECIFIED ORE BUFFER LIMIT MDC010 04770051 UCMRV001 DC XL1'00' - RESERVED MDC024 04779051 UCMWQLM1 DC H'0' - IPL-SPECIFIED WQE BUFFER LIMIT MDC011 04788051 UCMBFEXT DC A(0) - ADDRESS OF UCM FIXED EXTENSION BASE 04792051 * (MDC379) @G51AP9A 04797051 UCMRP2AD DC A(0) - POINTER TO REPLY PROCESSOR, STAGE 2 04806051 * MDC013 04815051 UCMRSV61 DC H'0' - RESERVED MDC014 04824051 UCMCTID DC H'0' - ASID OF COMMUNICATIONS TASK MDC015 04833051 UCMMBEND DC A(0) - POINTER TO LAST ELEMENT ON MONITOR 04860051 * MESSAGE BLOCK QUEUE MDC026 04869051 UCMWECBH DC A(0) - POINTER TO START OF WQE ECB CHAIN MDC027 04878051 UCMWECBT DC A(0) - POINTER TO END OF WQE ECB CHAIN MDC028 04887051 UCMOECBH DC A(0) - POINTER TO START OF ORE ECB CHAIN MDC029 04896051 UCMOECBT DC A(0) - POINTER TO END OF ORE ECB CHAIN MDC030 04905051 UCMORECP DC F'0' - ORE CELLPOOL ID MDC031 04914051 UCMWQECP DC F'0' - WQE CELLPOOL ID MDC032 04923051 UCMASCB DC A(0) - ASCB ADDRESS OF COMMUNICATIONS TASK 04932051 * MDC036 04950051 UCMSWCH DC A(0) - ADDRESS OF CONSOLE SWITCH ROUTINE MDC040 04956051 UCMFRRAD DC A(0) - ADDRESS OF COMMUNICATIONS TASK'S 04962051 * RECOVERY ROUTINE (IEAVMFRR) MDC047 04968051 UCMWAKUP DC A(0) - ADDRESS OF COMMUNICATIONS TASK'S POST 04974051 * ERROR RECOVERY ROUTINE (IEAVMEST, ALIAS 04990051 * FOR IEAVMFRR) MDC048 04999051 UCMJES3T DC A(0) - ADDRESS OF SUBSYSTEM ASCB 05008064 * (MDC300) @G64DP9A 05014064 UCMRSV42 DC XL1'00' - RESERVED (MDC033) @G51AP9A 05026051 UCMRSV43 EQU BIT0,,C'X' - RESERVED MDC033 05035051 UCMRSV44 EQU BIT1,,C'X' - RESERVED MDC033 05044051 UCMRSV45 EQU BIT2,,C'X' - RESERVED MDC033 05053051 UCMRSV46 EQU BIT3,,C'X' - RESERVED MDC033 05062051 UCMRSV47 EQU BIT4,,C'X' - RESERVED MDC033 05071051 UCMRSV48 EQU BIT5,,C'X' - RESERVED MDC033 05080051 UCMRSV49 EQU BIT6,,C'X' - RESERVED MDC033 05089051 UCMRSV50 EQU BIT7,,C'X' - RESERVED MDC033 05098051 UCMRSV51 DC XL1'00' - RESERVED (MDC033) @G51AP9A 05130051 UCMRSV52 EQU BIT0,,C'X' - RESERVED MDC033 05139051 UCMRSV53 EQU BIT1,,C'X' - RESERVED MDC033 05148051 UCMRSV54 EQU BIT2,,C'X' - RESERVED MDC033 05157051 UCMRSV55 EQU BIT3,,C'X' - RESERVED MDC033 05166051 UCMRSV56 EQU BIT4,,C'X' - RESERVED MDC033 05175051 UCMRSV57 EQU BIT5,,C'X' - RESERVED MDC033 05184051 UCMRSV58 EQU BIT6,,C'X' - RESERVED MDC033 05193051 UCMRSV59 EQU BIT7,,C'X' - RESERVED MDC033 05202051 UCMRSV60 DC H'0' - RESERVED (MDC033) @G51AP9A 05220051 UCMMTPLP DC A(0) - IEETRACE PARAMETER LIST AND SAVE AREA 05223064 * POINTER (MDC394) @G64MP9A 05225064 UCMRSV62 DC 60XL1'00' - RESERVED (MDC330) @G64DP9A 05227064 EJECT @G51AP9A 05232051 *********************************************************************** 05238051 * * 05244051 * UCM EVENT INDICATION LIST (EIL) @G51AP9A 05260051 * * 05268051 *********************************************************************** 05276051 SPACE 05284051 AIF (&DSECTY AND '&FORMAT' EQ 'NEW').UCM0602 Y02038 05292051 UCMEIL EQU * - START OF EIL 05310051 AGO .UCM0604 05320051 .UCM0602 ANOP 05330051 UCMEIL DSECT , - START OF EIL 05340051 .UCM0604 ANOP 05350051 DC AL1(&N+7) LENGTH OF EIL (IN WORDS) @G51AP9A 05360051 UCMRPYL DC XL1'0' - LAST ASSIGNED REPLY I.D. 05370051 UCMRTCT DC FL1'0' - ROUTE COUNT @G51AP9A 05380051 UCMRSV15 DC XL1'00' - RESERVED @G51AP9A 05400051 UCMNIPTR DC A(0) - ADDRESS OF NIP'S 2K WTL BUFFER 05409051 UCMXECBA DC A(UCMXECB) - ADDRESS OF EXTERNAL INTRPT ECB 05418051 UCMAECBA DC A(UCMAECB) - ADDRESS OF ATTENTION INTRPT ECB 05427051 UCMOECBA DC A(UCMOECB) - ADDRESS OF WTO/R REQUEST ECB 05436051 UCMDECBA DC A(UCMDECB) - ADDRESS OF DOM REQUEST ECB 05445051 UCMRECBA DC A(UCMARECB) - ADDRESS OF CONSOLE RECOVERY ECB (ACR) 05454064 * (OS/VS2) (MDC395) @G64DP9A 05457064 SPACE 2 @G51AP9A 05463051 * THE FOLLOWING PART OF THE EIL IS A LIST OF POINTERS TO I/O 05472051 * ECBS FOR EACH CONSOLE DEVICE DEFINED AT SYSGEN. FOR OS/VS2, 05490051 * THE LIST CONTAINS A MINIMUM OF 2 ENTRIES. THE LIST IS 05499051 * VARIABLE ONLY AT SYSGEN. THE LAST ENTRY HAS A HIGH-ORDER 05508051 * BYTE OF X'80'. 05517051 SPACE 05526051 UCMIECBA DS 0F - I/O ECB PTR LIST ENTRY MAPPING 05535051 UCMIECBF DS CL1 - I/O ECB PTR LIST LAST ENTRY FLAG 05544051 UCMIECBP DS AL3 - ADDR OF I/O REQUEST ECB 05553051 AIF (&DSECTY).UCM0650 @G51AP9A 05557051 ORG UCMIECBA 05562051 .UCM0640 ANOP 05571051 DC A(UCMLIST+&I*UCMESIZE) @G51AP9A 05580051 &I SETA &I+1 05589051 AIF (&I LT &N-1).UCM0640 05598051 DC XL1'80' 05616051 DC AL3(UCMLIST+&I*UCMESIZE) @G51AP9A 05625051 .UCM0650 ANOP @G51AP9A 05629051 EJECT @G51AP9A 05634051 *********************************************************************** 05643051 * * 05670051 * UCM INDIVIDUAL DEVICE ENTRY MAP (UCME) @G51AP9A 05679051 * * 05688051 * EACH UCM DEVICE ENTRY DEFINES SUPPORT FOR A CONSOLE UNIT * 05697051 * SPECIFIED AT SYSGEN * 05706051 * * 05715051 *********************************************************************** 05724051 SPACE 05733051 AIF (&DSECTY AND '&FORMAT' EQ 'NEW').UCM0702 Y02038 05742051 DS 0F 05760051 UCMLIST EQU * - START OF DEVICE ENTRY 05766051 AGO .UCM0704 05772051 .UCM0702 ANOP 05778051 UCMLIST DSECT , - START OF DEVICE ENTRY 05784051 .UCM0704 ANOP 05800051 UCMECB DS A - I/O COMPLETION ECB OR, FOR 2740, 05808051 * ADDRESS OF I/O COMPLETION ECB 05816051 UCMSBR DS A - ADDRESS OF RESIDENT PROCESSOR MODULE 05824051 * MDC020 05832051 UCMDCB DS A - ADDRESS OF DCB 05850051 UCMUCB DS A - UCB NAME (DEV ADDR) OR PTR TO UCB 05859051 UCMNAME DS CL8 - PROCESSING MODULE NAME 05868051 UCMSTS DS B - STATUS FLAGS 05877051 UCMAF EQU BIT0 - ATTENTION PENDING 05886051 UCMPF EQU BIT1 - OUTPUT PENDING 05895051 UCMBF EQU BIT2 - DEVICE BUSY 05904051 UCMCF EQU BIT3 - CLOSE PENDING 05913051 UCMTA EQU BIT4 - OPEN PENDING 05922051 UCMTB EQU BIT5 - DEQ APPROPRIATE OUTPUT QUEUE ENTRIES 05931051 UCMEMCLS EQU BIT6 - EMERGENCY CLOSE PENDING 05940003 * (MDC471) @ZA39770 05944503 UCMTC EQU BIT7 - CONSOLE HAS INLINE WTO 05949051 UCMATR DS B - ATTRIBUTE FLAGS 05958051 UCMOF EQU BIT0 - WTO SUPPORT 05967051 UCMIF EQU BIT1 - ATTENTION SUPPORT 05976051 UCMXF EQU BIT2 - EXTERNAL INTERRUPT SUPPORT 05985051 UCMUF EQU BIT3 - DEVICE ACTIVE 05994051 UCMLF EQU BIT4 - LOAD FLAG 06030051 UCMAT04 EQU BIT5 - DEVICE STATUS TO CHANGE 06039051 UCMRSV16 EQU BIT6,,C'X' - RESERVED 06048051 UCMRSV17 EQU BIT7,,C'X' - RESERVED 06057051 UCMXA DS 0H 06066051 UCMID DS CL1 - UNIQUE ENTRY I.D. 06075051 UCMRSV18 DS XL1 - RESERVED 06084051 UCMXB DS A - ADDRESS OF DCM(GRAPHICS) OR ZERO 06093051 UCMRTCD DC XL2'0' - ROUTING CODES ASSIGNED TO THIS CONSOLE 06102051 DC XL2'0' - RESERVED 06120051 UCMOUTQ DC A(0) - ADDRESS OF CQE QUEUE (MDC301) @Z30AQ9A 06126051 UCMAUTH DS 0BL2 - COMMAND CODE AUTHORIZATION @G51AP9A 06132051 UCMAUTHA DC X'00' - 1ST BYTE OF COMMAND CODE AUTH FLAGS 06138051 UCMAUTH1 EQU BIT0 - COMMAND GROUP 1 (SYS) 06144051 UCMAUTH2 EQU BIT1 - COMMAND GROUP 2 (I/O) 06160051 UCMAUTH3 EQU BIT2 - COMMAND GROUP 3 (CONS) 06168051 UCMRSV19 EQU BIT3,,C'X' - RESERVED 06176051 UCMRSV20 EQU BIT4,,C'X' - RESERVED 06184051 UCMRSV21 EQU BIT5,,C'X' - RESERVED 06192051 UCMRSV22 EQU BIT6,,C'X' - RESERVED 06210051 UCMRSV23 EQU BIT7,,C'X' - RESERVED 06219051 UCMAUTHB DC X'00' - 2ND BYTE OF COMMAND CODE AUTH FLAGS 06228051 UCMDISP DS 0BL2 - DISPOSITION FLAGS (2 BYTES) 06237051 UCMDISP1 DS B - FIRST BYTE - DISPOSITION FLAGS 06246051 UCMDISPA EQU BIT0 - MASTER CONSOLE 06255051 UCMDISPB EQU BIT1 - HARD COPY DEVICE/CONSOLE 06264051 UCMDISPC EQU BIT2 - GRAPHICS 06273051 UCMDISPD EQU BIT3 - OUTPUT ONLY 06282051 UCMDISPE EQU BIT4 - CONSOLE HAS FULL I/O CAPABILITY 06291051 UCMDISPF EQU BIT5 - CONSOLE IS MESSAGE STREAM ONLY 06300051 UCMDISPG EQU BIT6 - CONSOLE IS STATUS DISPLAY ONLY 06309051 UCMDISPH EQU BIT7 - INTEGRATED OPERATOR'S CONSOLE (OS/VS2) 06318051 * MDC041 06327051 UCMDISP2 DS B - SECOND BYTE - DISPOSITION FLAGS 06336051 UCMDISPI EQU BIT0 - DISPLAY TIME AND JOB NAME (OS/VS2) MDC045 06345051 UCMDISPJ EQU BIT1 - DISPLAY JOB NAME ONLY (OS/VS2) MDC046 06354051 UCMDISPK EQU BIT2 - JES3 DUMMY CONSOLE FLAG (OS/VS2) 06390051 * (MDC053) Y02038 06399051 UCMRV003 EQU BIT3,,C'X' - RESERVED 06408051 UCMRV004 EQU BIT4,,C'X' - RESERVED 06417051 UCMRV005 EQU BIT5,,C'X' - RESERVED 06426051 UCMRV006 EQU BIT6,,C'X' - RESERVED 06435051 UCMRV007 EQU BIT7,,C'X' - RESERVED 06444051 UCMALTEN DC A(0) - ADDRESS OF ALTERNATE INPUT UCM ENTRY 06453051 UCMOAOEN DC A(0) - ADDRESS OF OUTPUT/ALTERNATE OUTPUT 06462051 * UCM ENTRY 06480051 UCMWLAST DC A(0) - ADDRESS OF LAST WQE SERVICED IN OUTPUT Q 06488051 UCMCOMPC DC A(0) - ADDRESS OF OTHER DEVICE ENTRY IF THIS IS 06496051 * A COMPOSITE CONSOLE 06504051 UCMMSG DS 0BL2 - MESSAGE FLAGS @G51AP9A 06520051 UCMMSG1 DS B - FIRST BYTE - MESSAGE FLAGS 06527051 UCMMSGA EQU BIT0 - 'DISPLAY JOBNAMES' REQUESTED 06534051 UCMMSGB EQU BIT1 - 'DISPLAY STATUS' REQUESTED 06541051 UCMRSV70 EQU BIT2,,C'X' - RESERVED (MDC377) @G51AP9A 06548051 UCMMSGD EQU BIT3 - RESQID REQUEST 06555051 UCMRSV71 EQU BIT4,,C'X' - RESERVED (MDC378) @G51AP9A 06570051 UCMMSGF EQU BIT5 - MONITOR SESSIONS @G51AP9A 06579051 UCMRSV26 EQU BIT6,,C'X' - RESERVED 06588051 UCMRSV27 EQU BIT7,,C'X' - RESERVED 06597051 UCMMSG2 DS B - SECOND BYTE - MESSAGE FLAGS 06606051 UCMXOR DC XL1'0' - XOR MASK - SET TO ZERO 06615051 UCMDEVC DS B - DEVICE CONTROL FLAGS 06624051 UCMDEVA EQU BIT0 - FULL SCREEN ON GRAPHICS CONSOLES 06633051 UCMDEVB EQU BIT1 - 'PREPARE' COMMAND ISSUED 06642051 UCMDEVCC EQU BIT2 - CONSOLE SWITCH INDICATOR 06651051 UCMDEVD EQU BIT3 - DOM ISSUED 06660051 UCMDEVE EQU BIT4 - I/O COMPLETE 06669051 UCMDEVF EQU BIT5 - DCM MODIFIED FOR DOM 06678051 UCMDEVG EQU BIT6 - HIO ISSUED ON THE 2740 06687051 UCMVHRSN EQU BIT7 - CONSOLE I/O PATH AFFECTED (OS/VS2) 06696051 * (MDC049) YM2236 06705051 UCMMLAST DC A(0) - ADDRESS OF LAST MINOR WQE HANDLED 06714051 UCMRCT DS 0A - POINTER TO RCT 06750051 UCMSDS5 DC X'00' - SDS FLAGS 06759051 UCMSDS5A EQU BIT0 - MLWTO LINE NEEDED TO KEEP WRITING 06768051 UCMSDS5B EQU BIT1 - INLINE OUTPUT PENDING 06777051 UCMSDS5C EQU BIT2 - OUT-OF-LINE OUTPUT PENDING 06786051 UCMSDS5D EQU BIT3 - K Q ISSUED FOR THIS CONSOLE @ZA57016 06795003 UCMRSV30 EQU BIT4,,C'X' - RESERVED 06804051 UCMSDS5F EQU BIT5 - FOR CRT, UCMMLAST VALID 06813051 UCMSDS5G EQU BIT6 - I/O HARDWARE IN OUTPUT-ONLY STATUS 06822051 UCMRSV31 EQU BIT7,,C'X' - RESERVED 06840051 UCMRCTA DC AL3(0) - ADDRESS OF RCT 06848051 UCMFEXTP DS A - ADDRESS OF UCME FIXED EXTENSION 06856051 * (MDC332) @G51AP9A 06864051 UCMRSV64 DS F - RESERVED (MDC333) @G51AP9A 06872051 SPACE 06890051 UCMESIZE EQU *-UCMLIST - LENGTH (BYTES) OF INDIV DEVICE ENTRY 06898051 AIF (&DSECTY).UCM1300 Y02038 06906051 EJECT 06914051 ORG UCMLIST 06922051 SPACE 06940051 *********************************************************************** 06948051 * * 06956051 * INDIVIDUAL ENTRIES FOR CONSOLE DEVICES SPECIFIED * 06964051 * AT SYSGEN * 06972051 * * 06990051 *********************************************************************** 06998051 SPACE 07006051 DS 0F 07014051 .UCM0740 ANOP 07022051 SPACE 07040051 &M SETA &M+1 07048051 AIF (&M GT &N).UCM1300 07056051 AIF ('&UCMA(&M)' NE '&MASTCON').UCM0780 @G51AP9A 07064051 UCMMCUCM EQU * - 07072051 .UCM0780 ANOP 07090051 &Z SETA 0 07098051 .UCM0800 AIF (&Z EQ &N).UCM0820 Y02038 07106051 &Z SETA &Z+1 07114051 AIF ('&ALTCON(&Z)' NE '&UCMA(&M)').UCM0800 @Z02BP9A 07122051 UCMALT&M EQU * - 07140051 .UCM0820 ANOP 07148051 &Z SETA 0 07156051 &COMPOS SETB 0 07164051 .UCM0840 AIF (&Z EQ &N).UCM0860 Y02038 07172051 &Z SETA &Z+1 07190051 AIF ('&COMPCON(&Z)' NE '&UCMA(&M)').UCM0840 @Z02BP9A 07199051 &COMPOS SETB 1 07208051 UCMCOM&M EQU * - 07217051 .UCM0860 ANOP 07226051 &Z SETA 0 07235051 .UCM0880 AIF (&Z EQ &N).UCM0900 Y02038 07244051 &Z SETA &Z+1 07253051 AIF ('&ALTCOMP(&Z)' NE '&UCMA(&M)').UCM0880 @Z02BP9A 07262051 UCMALC&M EQU * - 07266051 .UCM0900 ANOP 07290051 * 07299051 * UCM INDIVIDUAL DEVICE ENTRY (UCME) @G51AP9A 07308051 * 07317051 DC 3A(0) - UCMECB, UCMSBR AND UCMDCB @G51AP9A 07326051 AIF ('&UCME(&M)' NE 'Y').UCM0941 @Z02BP9A 07335051 DC A(UCBDUMY) - ADDRESS OF DUMMY UCB (MDC051) Y02038 07344051 &JES SETB 1 Y02038 07353051 AGO .UCM0942 Y02038 07362051 .UCM0941 ANOP Y02038 07380051 DC CL4'&UCMA(&M)' UCB NAME (DEVICE ADDR) @G51AP9A 07388051 .UCM0942 ANOP Y02038 07396051 DC CL8'IGC&UCMB(&M).07B' PROCESSOR MODULE NAME @G51AP9A 07404051 DC XL1'0' - STATUS FLAGS @G51AP9A 07412051 .* SET CONSOLE DEVICE ATTRIBUTE FLAGS 07427051 &AF(1) SETB ('&UCMC(&M)'(1,1) EQ 'W') @Z02BP9A 07434051 &AF(2) SETB ('&UCMC(&M)'(2,1) EQ 'A') @Z02BP9A 07441051 &AF(3) SETB ('&UCMC(&M)'(3,1) EQ 'X') @Z02BP9A 07448051 &AF(4) SETB ('&UCMC(&M)'(4,1) EQ 'A') @Z02BP9A 07455051 &AFLGS SETA 128*&AF(1)+64*&AF(2)+32*&AF(3)+16*&AF(4) 07470051 DC AL1(&AFLGS) ATTRIBUTE FLAGS @G51AP9A 07479051 DC AL1(&M) - ENTRY UNIQUE I.D. @G51AP9A 07483051 DC XL1'0' - RESERVED @G51AP9A 07488051 AIF ('&UCMB(&M)' EQ '51').UCM0960 TEST FOR GRAPHICS 07506051 .* SUPPORT @Z02BP9A 07515051 DC A(0) - NOT A GRAPHICS DEVICE @G51AP9A 07524051 AGO .UCM1020 07533051 .UCM0960 ANOP 07542051 AIF ('&UCME(&M)' NE 'A').UCM0980 TEST FOR 3066 DEVICE 07551051 .* @Z02BP9A 07569051 &RK SETA &RK+1 07578051 DC V(IEECVD&RK) ADDR OF DCM FOR 3066 @G51AP9A 07582051 AGO .UCM1020 07596051 .UCM0980 AIF ('&UCME(&M)' NE 'B').UCM1000 TEST FOR 2250 DEVICE 07605051 .* @Z02BP9A 07614051 &RK1 SETA &RK1+1 07623051 DC V(IEECVE&RK1) ADDR OF DCM FOR 2250 @G51AP9A 07632051 AGO .UCM1020 07641051 .UCM1000 AIF ('&UCME(&M)' NE 'C').UCM1002 TEST FOR 2260 DEVICE 07650051 .* @Z02BP9A 07659051 &RK2 SETA &RK2+1 07668051 DC V(IEECVF&RK2) ADDR OF DCM FOR 2260 @G51AP9A 07677051 AGO .UCM1020 07686051 .UCM1002 AIF ('&UCME(&M)' NE 'D').UCM1004 TEST FOR 3277-1 DEVICE 07695051 .* @Z02BP9A 07704051 &RK3 SETA &RK3+1 07740051 DC V(IEECVG&RK3) ADDR OF DCM FOR 3277 MODEL 1 @G51AP9A 07749051 AGO .UCM1020 07758051 .UCM1004 ANOP 07767051 &RK4 SETA &RK4+1 07776051 DC V(IEECVH&RK4) ADDR OF DCM FOR 3277 MODEL 2 @G51AP9A 07785051 .UCM1020 ANOP 07794051 DC XL2'&ROUTCDE(&M)' ROUTING CODES @G51AP9A 07803051 DC XL2'0' - RESERVED @G51AP9A 07807051 DC A(0) - ADDR OF CQE QUEUE 07830051 DC XL1'&AUTH(&M)' CMD AUTHORIZATION @G51AP9A 07836051 .* RESET DISPOSITION FLAGS PRIOR TO TESTING FOR INITIALIZATION 07842051 &DF(1) SETB 0 07848051 &DF(2) SETB 0 07854051 &DF(3) SETB 0 07870051 &DF(4) SETB 0 07878051 &DF(5) SETB 0 07886051 &DF(6) SETB 0 07894051 &DF(7) SETB 0 07902051 &DF(8) SETB 0 07920051 &DF(9) SETB 0 Y02038 07929051 .* SET DISPOSITION FLAGS 07938051 &DF(1) SETB ('&UCMA(&M)' EQ '&MASTCON') @Z02BP9A 07947051 &DF(3) SETB ('&UCMB(&M)' EQ '51') @Z02BP9A 07956051 AIF (&M EQ 1).UCM1050 @G51AP9A 07965051 AIF ('&UCMB(&M-1)' NE '02').UCM1050 @Z02BP9A 07974051 &DF(4) SETB 0 07983051 AGO .UCM1060 07992051 .UCM1050 ANOP 08010051 &DF(4) SETB ('&UCMB(&M)' EQ '01' OR '&UCMB(&M)' EQ '5W') @Z02BP9A 08019051 &DF(4) SETB (&DF(4) OR ('&UCMB(&M)' EQ '00' AND '&UCME(&M)' EQ 'Z')) 08028051 .* @Z02BP9A 08037051 &DF(4) SETB (&DF(4) OR ('&UCMB(&M)' EQ '51' AND '&UCME(&M)' EQ 'D')) 08046051 .* @Z02BP9A 08055051 &DF(4) SETB (&DF(4) OR ('&UCMB(&M)' EQ '51' AND '&UCMG(&M)' EQ 'M')) 08064051 .* @Z02BP9A 08073051 &DF(4) SETB (&DF(4) OR ('&UCMB(&M)' EQ '51' AND '&UCMG(&M)' EQ 'S')) 08082051 .* @Z02BP9A 08091051 .UCM1060 ANOP 08100051 AIF (&COMPOS AND '&UCMG(&M)' EQ '').UCM1066 08109051 .* COMPOSITE DEFAULTS @Z02BP9A 08118051 AIF (NOT &DF(3) AND NOT &AF(2) AND X08127051 '&UCMG(&M)' EQ '').UCM1062 @Z02BP9A 08136051 AIF ('&UCMG(&M)' EQ '').UCM1066 F IS THE DEFAULT @Z02BP9A 08145051 AIF ('&UCMG(&M)' NE 'M').UCM1064 @Z02BP9A 08154051 .UCM1062 ANOP 08190051 &DF(6) SETB 1 08199051 AGO .UCM1068 08208051 .UCM1064 AIF ('&UCMG(&M)' NE 'S').UCM1066 F IS THE DEFAULT @Z02BP9A 08217051 &DF(7) SETB 1 08226051 AGO .UCM1068 08235051 .UCM1066 ANOP 08244051 AIF (&DF(4)).UCM1062 XM0818 08253051 &DF(5) SETB 1 08262051 .UCM1068 ANOP 08280051 &DF(8) SETB ('&UCMH(&M)' EQ '1') @Z02BP9A 08286051 &DF(9) SETB ('&UCME(&M)' EQ 'Y') @Z02BP9A 08292051 &DFLGS SETA 128*&DF(1)+64*&DF(2)+32*&DF(3)+16*&DF(4) 08298051 &DFLGS SETA &DFLGS+8*&DF(5)+4*&DF(6)+2*&DF(7)+1*&DF(8) 08304051 DC XL1'0' - CMD AUTHORIZATION @G51AP9A 08312051 DC AL1(&DFLGS) DISPOSITION FLAG BYTE 1 @G51AP9A 08328051 &DFLGS SETA 32*&DF(9) Y02038 08336051 DC AL1(&DFLGS) DISPOSITION FLAG BYTE 2 @G51AP9A 08344051 AIF ('&ALTCON(&M)' NE 'FFF').UCM1070 08352051 AIF ('&ALTCOMP(&M)' EQ 'FFF').UCM1120 08370051 .UCM1070 ANOP 08379051 &Z SETA 0 08388051 .UCM1080 AIF (&Z EQ &N).UCM1120 08397051 &Z SETA &Z+1 08406051 AIF ('&UCMA(&Z)' NE '&ALTCON(&M)').UCM1080 @Z02BP9A 08415051 DC A(UCMALT&Z) ADDRESS OF ALTERNATE CONSOLE @G51AP9A 08424051 AIF ('&ALTCOMP(&M)' EQ 'FFF').UCM1140 08433051 &Z SETA 0 08442051 .UCM1100 AIF (&Z EQ &N).UCM1110 08460051 &Z SETA &Z+1 08469051 AIF ('&UCMA(&Z)' NE '&ALTCOMP(&M)').UCM1100 @Z02BP9A 08478051 DC A(UCMALC&Z) ADDR OF ALT COMPOSITE CONSOLE @G51AP9A 08487051 AGO .UCM1160 08496051 .UCM1110 AIF ('&ALTCON(&M)' NE 'FFF').UCM1140 08505051 .UCM1120 ANOP 08514051 DC A(0) - NO ALTERNATE CONSOLE 08523051 .UCM1140 ANOP 08532051 DC A(0) - ALT CONSOLE IS NOT COMPOSITE 08550051 .UCM1160 ANOP 08559051 DC A(0) - ADDR OF LAST WQE 08568051 AIF ('&COMPCON(&M)' EQ 'FFF').UCM1200 08577051 AIF ('&COMPCON(&M)' EQ '').UCM1200 08586051 &Z SETA 0 08595051 .UCM1180 AIF (&Z EQ &N).UCM1200 08604051 &Z SETA &Z+1 08613051 AIF ('&UCMA(&Z)' NE '&COMPCON(&M)').UCM1180 @Z02BP9A 08622051 DC A(UCMCOM&Z) ADDRESS OF COMPOSITE CONSOLE @G51AP9A 08631051 AGO .UCM1220 08640051 .UCM1200 ANOP 08649051 DC A(0) - NO COMPOSITE CONSOLE @G51AP9A 08658051 .UCM1220 ANOP 08667051 DC F'0' - MESSAGE, XOR AND DEVICE FIELDS 08676051 DC A(0) - ADDRESS OF LAST MINOR WQE HANDLED 08685051 &OUT SETB (&DF(3) AND &AF(2) AND NOT &DF(5)) 08694051 &SDS5G SETA 2*&OUT 08730051 DC AL1(&SDS5G) SDS FLAGS 08732051 DC AL3(0) - ADDRESS OF ROUTING CONTROL TABLE 08750051 DC A(0) - ADDRESS OF UCME FIXED EXTENSION @G51AP9A 08752051 DC F'0' - RESERVED @G51AP9A 08761051 AIF (NOT &AF(1) AND NOT &AF(2)).UCM1280 @G51AP9A 08776051 AIF (&AF(3) OR &AF(4)).UCM0740 08784051 .UCM1280 MNOTE *,'UNUSUAL ATTRIBUTES, ENTRY &M' 08792051 AGO .UCM0740 08800051 .UCM1300 ANOP 08820051 UCMEND EQU *-UCMESIZE - ADDR OF LAST DEVICE ENTRY 08829051 AIF (('&FORMAT' NE 'NEW') OR (NOT &DSECTY)).UCM1415 @G51AP9A 08838051 SPACE 4 @G51AP9A 08847051 *********************************************************************** 08856051 * * 08865051 * USER EXIT WORK AREA * 08869051 * * 08883051 * NOTE - THIS AREA IS NOT PART OF THE UCM. IT IS A * 08885051 * MAPPING OF THE SPACE GOTTEN AND FREED BY IEAVVWTO. * 08887051 * * 08889051 *********************************************************************** 08892051 SPACE 08910051 UCMEXIT DSECT , - START OF USER EXIT WORK AREA 08918051 UCMMSTXT DS CL128 - MESSAGE TEXT @G51AP9A 08926051 UCMROUTC DS F - ROUTE CODES @G51AP9A 08934051 UCMDESCD DS F - DESCRIPTOR CODES @G51AP9A 08950051 EJECT @G51AP9A 08959051 *********************************************************************** 08968051 * * 08977051 * UNIT CONTROL MODULE (UCM) FIXED EXTENSION BASE @G51AP9A 08986051 * (PRESENT IN OS/VS2 ONLY) @ZA11870 08995051 * * 09004051 *********************************************************************** 09013051 SPACE 09022051 UCMFEXTA DSECT , - UCM FIXED EXTENSION BASE 09031051 * (MDC304) @G51AP9A 09040051 UCMFUCMF DS CL4 - ACRONYM IN EBCDIC -UCMF- 09049051 * (MDC305) @ZA11870 09058051 UCMFPPTR DS A - ADDRESS OF UCM PAGEABLE EXTENSION BASE 09067051 * (MDC306) @G51AP9A 09090051 UCMFMGFS DS 0CL8 - FLAGS FOR FIXED EXTENSION BASE 09099051 * (MDC307) @G51AP9A 09108051 UCMFFLG1 DS B - MESSAGE FLAGS (MDC308) @ZA11870 09117051 UCMFMSGE EQU BIT0 - WQE SHORTAGE MESSAGE ISSUED 09126051 * (MDC309) @ZA11870 09135051 UCMFMSGA EQU BIT1 - WQE CRITICAL MESSAGE ISSUED 09144051 * (MDC310) @ZA11870 09153051 UCMFMSGN EQU BIT2 - NO WQE THRESHOLD MESSAGES SHOULD BE 09162051 * ISSUED (MDC311) @ZA11870 09180051 UCMFBR03 EQU BIT3,,C'X' - RESERVED (MDC312) @ZA11870 09189051 UCMFBR04 EQU BIT4,,C'X' - RESERVED (MDC312) @ZA11870 09198051 UCMFBR05 EQU BIT5,,C'X' - RESERVED (MDC312) @ZA11870 09207051 UCMFBR06 EQU BIT6,,C'X' - RESERVED (MDC312) @ZA11870 09216051 UCMFBR07 EQU BIT7,,C'X' - RESERVED (MDC312) @ZA11870 09225051 UCMFFLG2 DS B - RESERVED (MDC313) @ZA11870 09234051 UCMFRSV1 DS H - RESERVED (MDC314) @ZA11870 09243051 UCMFRSV2 DS F - RESERVED (MDC315) @ZA11870 09252051 UCMF60WQ DS H - 60% OF WQE LIMIT SPECIFIED AT IPL 09261051 * (MDC316) @ZA11870 09280051 UCMF80WQ DS H - 80% OF WQE LIMIT SPECIFIED AT IPL 09289051 * (MDC317) @ZA11870 09298051 UCMFRSV3 DS CL8 - RESERVED (MDC318) @G51AP9A 09307051 UCMFECBL DS 0CL8 - ECB LIST THAT IEAVMQWR WAITS ON IN A 09316051 * NO-CONSOLES CONDITION (MDC334) @G51AP9A 09325051 UCMFXECB DS A - ADDRESS OF EXTERNAL INTERRUPT ECB 09334051 * (MDC335) @G51AP9A 09343051 UCMFRECB DS 0A - ADDRESS OF CONSOLE RECOVERY ECB 09352051 * (MDC336) @G51AP9A 09361051 UCMFRBYT DS BL1 - HIGH-ORDER BYTE OF UCMFRECB 09370051 * (MDC337) @G51AP9A 09379051 UCMFRB0 EQU BIT0 - END OF LIST INDICATOR (MDC338) @G51AP9A 09388051 UCMFRAD DS AL3 - ADDRESS OF CONSOLE RECOVERY ECB 09397051 * (MDC339) @G51AP9A 09406051 UCMFATCN DS A - ADDRESS OF UCME CANDIDATE FOR NEW MASTER 09415051 * CONSOLE (ATTENTION WAS GENERATED ON THIS 09424051 * DEVICE WHEN IN A NO-CONSOLES CONDITION) 09433051 * (MDC340) @G51AP9A 09442051 UCMFE1ST DS A - ADDRESS OF FIRST UCME FIXED EXTENSION 09451051 * (MDC341) @G51AP9A 09460051 UCMFELEN DS F - LENGTH OF A UCME FIXED EXTENSION 09469051 * (MDC342) @G51AP9A 09478051 UCMFELST DS A - ADDRESS OF LAST UCME FIXED EXTENSION 09487051 * (MDC343) @G51AP9A 09496051 SPACE 4 @G51AP9A 09505051 *********************************************************************** 09540051 * * 09546051 * UNIT CONTROL MODULE (UCM) PAGEABLE EXTENSION BASE @G51AP9A 09560051 * (PRESENT IN OS/VS2 ONLY) @ZA11870 09566051 * * 09580051 *********************************************************************** 09586051 SPACE 09600051 UCMPEXTA DSECT , - UCM PAGEABLE EXTENSION BASE 09607051 * (MDC319) @G51AP9A 09614051 UCMPUCMP DS CL4 - ACRONYM IN EBCDIC -UCMP- 09630051 * (MDC320) @ZA11870 09638051 UCMPDM1 DS 0CL32 - DOM ID'S (MDC321) @G64DP9A 09646064 UCMPWQE DS F - WQE CRITICAL MESSAGE DOM ID 09654051 * (MDC322) @ZA11870 09670051 UCMPNMCC DS F - NO MASTER CONSOLE CONDITION MESSAGE DOM 09679051 * ID (MDC323) @ZA11870 09688051 UCMPNCC DS F - NO-CONSOLE CONDITION MESSAGE DOM ID 09697051 * (MDC344) @G51AP9A 09706051 UCMPWQES DS F - WQE SHORTAGE MESSAGE DOM ID 09715064 * (MDC396) @G64DP9A 09718064 UCMPRSV1 DS 4F - RESERVED (MDC324) @G64DP9A 09721064 UCMPRSV2 DS CL12 - RESERVED (MDC325) @G64DP9A 09724064 UCMPE1ST DS A - ADDRESS OF FIRST UCME PAGEABLE EXTENSION 09733051 * (MDC345) @G51AP9A 09742051 UCMPELEN DS F - LENGTH OF A UCME PAGEABLE EXTENSION 09751051 * (MDC346) @G51AP9A 09760051 UCMPELST DS A - ADDRESS OF LAST UCME PAGEABLE EXTENSION 09769051 * (MDC347) @G51AP9A 09778051 UCMPEDUM DS CL4 - DUMMY UCME PAGEABLE EXTENSION 09787051 * (MDC348) @G51AP9A 09796051 EJECT @G51AP9A 09805051 *********************************************************************** 09814051 * * 09823051 * INDIVIDUAL DEVICE ENTRY (UCME) FIXED EXTENSION @G51AP9A 09832051 * (PRESENT IN OS/VS2 ONLY) @G51AP9A 09841051 * * 09850051 *********************************************************************** 09859051 SPACE 1 @G51AP9A 09868051 UCMEFEXT DSECT , - UCME FIXED EXTENSION (MDC349) @G51AP9A 09877051 UCMEFLG1 DS BL1 - FLAGS FOR UCME FIXED EXTENSION 09886051 * (MDC350) @G51AP9A 09895051 UCMEFLGA EQU BIT0 - IF 1, ATTENTION INDEX IN UCMEFATT IS 09904051 * VALID (MDC351) @G51AP9A 09913051 UCMEFLGB EQU BIT1 - IF 1, UCBSYSR FOR THIS DEVICE WAS FORCED 09917051 * TO 1 AND SHOULD BE RESTORED TO 0 09922051 * (MDC352) @G51AP9A 09931051 UCMEFLGC EQU BIT2,,C'X' - RESERVED (MDC353) @G51AP9A 09949051 UCMEFLGD EQU BIT3,,C'X' - RESERVED (MDC354) @G51AP9A 09958051 UCMEFLGE EQU BIT4,,C'X' - RESERVED (MDC355) @G51AP9A 09967051 UCMEFLGF EQU BIT5,,C'X' - RESERVED (MDC356) @G51AP9A 09976051 UCMEFLGG EQU BIT6,,C'X' - RESERVED (MDC357) @G51AP9A 09985051 UCMEFLGH EQU BIT7,,C'X' - RESERVED (MDC358) @G51AP9A 09994051 UCMEFLG2 DS BL1 - RESERVED (MDC359) @G51AP9A 10003051 UCMEFATT DS FL1 - ATTENTION INDEX. VALID ONLY IF UCMEFLGA 10012051 * IS 1. (MDC360) @G51AP9A 10021051 UCMEFSA1 DS FL1 - ATTENTION INDEX SAVED BY 1052 DEVICE 10025051 * SERVICE PROCESSOR (MDC361) @ZM44658 10030051 UCMEFPEX DS A - ADDRESS OF UCME PAGEABLE EXTENSION 10039051 * (MDC362) @G51AP9A 10048051 UCMEFRV1 DS A - RESERVED (MDC393) @ZM44658 10052051 * 10057051 UCMEFLEN EQU *-UCMEFEXT - LENGTH OF A UCME FIXED EXTENSION 10066051 * (MDC363) @G51AP9A 10075051 SPACE 4 @G51AP9A 10084051 *********************************************************************** 10093051 * * 10102051 * INDIVIDUAL DEVICE ENTRY (UCME) PAGEABLE EXTENSION @G51AP9A 10111051 * (PRESENT IN OS/VS2 ONLY) @G51AP9A 10120051 * * 10129051 *********************************************************************** 10138051 SPACE 1 @G51AP9A 10147051 * CURRENTLY THE UCME PAGEABLE EXTENSION DOES NOT REQUIRE ANY @G51AP9A 10156051 * STORAGE AND IS CONSIDERED RESERVED FOR FUTURE USE. @G51AP9A 10165051 SPACE 1 @G51AP9A 10174051 UCMEPEXT DSECT , - RESERVED (MDC364) @G51AP9A 10183051 * 10192051 UCMEPLEN EQU *-UCMEPEXT - LENGTH OF A UCME PAGEABLE EXTENSION 10201051 * (MDC365) @G51AP9A 10210051 .UCM1415 AIF (NOT &JES OR &DSECTY).UCM1420 @ZA11870 10219051 SPACE 4 @G51AP9A 10228051 IECVUCB DUMY,000,UR,15,04,10,0,,10000823,0,0,0,1,,0,0,0,JES,0 10237051 * Y02038 10246051 IECVUCB DUMY,000,UR,15,04,10,0,,10000823,0,0,0,1,,0,1,0,JES,0 10255051 * Y02038 10264051 .UCM1420 ANOP 10273051 MEND , - */ 10282051 *%UCML2 : ; 10291051 * @EJECT; /* @G51AP9A*/ 10300051 */********************************************************************/ 10309051 */* */ 10318051 */* UNIT CONTROL MODULE (UCM) EXTENSION */ 10327051 */* (PRESENT IN OS/VS2 ONLY) */ 10336051 */* */ 10345051 */********************************************************************/ 10354051 * 10363051 *DECLARE 10372051 * 1 UCM2EXT BASED (UCMEXTPT) BDY(DWORD), /* UCM EXTENSION START */ 10381051 * 2 UCM2WID FIXED(15), /* ASID OF USER WAITING ON 10390051 * UCMWQECB MDC021*/ 10399051 * 2 UCM2RID FIXED(15), /* ASID OF USER WAITING ON 10408051 * UCMRQECB MDC022*/ 10417051 * 2 UCM2PST PTR(31), /* BRANCH ENTRY POINT INTO 'POST' 10426051 * ROUTINE */ 10435051 * 2 UCM2STA PTR(31), /* POINTER TO STAR WORK AREA 10444051 * (SDWA) */ 10453051 * 3 UCM2SFLG BIT(8), /* STAR CONTROL FLAGS */ 10462051 * 4 UCM2SDWA BIT(1), /* SDWA OBTAINED */ 10471051 * 4 UCM2SENT BIT(1), /* STAR ENTERED */ 10480051 * 4 UCM2DTAK BIT(1), /* DUMP TAKEN */ 10489051 * 4 UCM2DSTR BIT(1), /* DUMP STARTED */ 10498051 * 4 UCM2WTOI BIT(1), /* STAR ABEND MESSAGE ISSUED 10507051 * (MDC326) @ZA11373*/ 10516051 * 4 UCMRSV33 BIT(1), /* RESERVED */ 10525051 * 4 UCMRSV34 BIT(1), /* RESERVED */ 10534051 * 4 UCMRV008 BIT(1), /* RESERVED (MDC055) YM5195*/ 10543051 * 3 UCM2STAA PTR(24), /* ADDR OF SDWA, OR ZERO */ 10552051 * 2 UCMRSV78 PTR(31), /* RESERVED (MDC303) @G64DP9A*/ 10556064 * 2 UCMRSV73 PTR(31), /* RESERVED (MDC386) @G51AP9A*/ 10573051 * 2 UCMRSV74 PTR(31); /* RESERVED (MDC387) @G51AP9A*/ 10576051 * @EJECT; /* @G51AP9A*/ 10579051 */********************************************************************/ 10588051 */* */ 10597051 */* MULTIPLE CONSOLE SUPPORT (MCS) UCM PREFIX */ 10606051 */* */ 10615051 */* MCS IS STANDARD IN OS/VS. THE MCS PREFIX IS ALWAYS */ 10624051 */* PRESENT. */ 10633051 */* */ 10642051 */********************************************************************/ 10651051 * 10660051 *DECLARE 10669051 * 1 UCMPRFX BASED (UCMMCSPT) BDY(WORD), /* MCS UCM PREFIX START */ 10678051 * 2 UCMMCENT PTR(31), /* ADDRESS OF MASTER CONSOLE UCM 10687051 * ENTRY */ 10696051 * 2 UCMSAVE0 CHAR(72) BDY(WORD), /* RESIDENT REGISTER SAVE AREA 10705051 * FOR IEACVTSK */ 10714051 * 3 UCMSVA0 FIXED(31), /* WORD 1 */ 10723051 * 3 UCMSVB0 FIXED(31), /* WORD 2 */ 10732051 * 3 UCMSVC0 FIXED(31), /* WORD 3 */ 10741051 * 3 UCMSVD0 FIXED(31), /* WORD 4 */ 10750051 * 3 UCMSVE0 FIXED(31), /* WORD 5 */ 10759051 * 3 UCMSVF0 FIXED(31), /* WORD 6 */ 10890051 * 3 UCMSVG0 FIXED(31), /* WORD 7 */ 10899051 * 3 UCMSVH0 FIXED(31), /* WORD 8 */ 10908051 * 3 UCMSVI0 FIXED(31), /* WORD 9 */ 10917051 * 3 UCMSVJ0 FIXED(31), /* WORD 10 */ 10926051 * 3 UCMSVK0 FIXED(31), /* WORD 11 */ 10935051 * 3 UCMSVL0 FIXED(31), /* WORD 12 */ 10944051 * 3 UCMSVM0 FIXED(31), /* WORD 13 */ 10953051 * 3 UCMSVN0 FIXED(31), /* WORD 14 */ 10962051 * 3 UCMSVO0 FIXED(31), /* WORD 15 */ 10980051 * 3 UCMSVP0 FIXED(31), /* WORD 16 */ 10985051 * 3 UCMSVQ0 FIXED(31), /* WORD 17 */ 11000051 * 3 UCMSVR0 FIXED(31), /* WORD 18 */ 11000451 * 2 UCMDOME PTR(31), /* ADDRESS OF FIRST DOM ELEMENT */ 11020051 * 2 UCMWTOX PTR(31), /* ZERO (OS/VS2) 11020251 * (MDC383) @G51AP9A*/ 11020451 * 2 UCMSFLGS CHAR(2), /* SYSTEM CONTROL FLAGS */ 11038451 * 3 UCMSFLG1 BIT(8), /* BYTE 1 OF SYSTEM CONTROL FLAGS*/ 11042451 * 4 UCMRSV01 BIT(1), /* RESERVED */ 11056451 * 4 UCMSYSB BIT(1), /* HARD COPY SUPPORT REQUIRED */ 11080051 * 4 UCMSYSC BIT(1), /* COMMANDS TO HARD COPY */ 11089051 * 4 UCMSYSD BIT(1), /* CONSOLE SWITCH FOR MASTER */ 11098051 * 4 UCMSYSE BIT(1), /* NO CONSOLES ACTIVE */ 11107051 * 4 UCMSYSF BIT(1), /* GRAPHIC CONSOLES EXIST 11116051 * (MDC327) @G51AP9A*/ 11125051 * 4 UCMSYSG BIT(1), /* HARD COPY DEVICE IS SYSLOG */ 11134051 * 4 UCMRSV35 BIT(1), /* RESERVED ICB464*/ 11143051 * 3 UCMSFLG2 BIT(8), /* BYTE 2 OF SYSTEM CONTROL FLAGS*/ 11152051 * 4 UCMSYSI BIT(1), /* WQE HOUSEKEEPING REQUIRED */ 11161051 * 4 UCMSYSJ BIT(1), /* HARD COPY TO BE WRITTEN */ 11170051 * 4 UCMSYSK BIT(1), /* NEW CONSOLE IS COMPOSITE */ 11179051 * 4 UCMSYSL BIT(1), /* DEVICE BEING ACCESSED BY 11183051 * CONSOLE SWITCH TO SOUND 11188051 * CONSOLE ALARM 11192051 * (MDC384) @ZM44658*/ 11193051 * 4 UCMSYSM BIT(1), /* FAILING CONSOLE IS COMPOSITE */ 11206051 * 4 UCMSYSN BIT(1), /* GRAPHIC CONSOLES ACTIVE 11215051 * (MDC328) @G51AP9A*/ 11224051 * 4 UCMSYSO BIT(1), /* DUMMY ATTENTION BY WTL */ 11233051 * 4 UCMSYSP BIT(1), /* DEVICE BEING ACCESSED BY 11235051 * CONSOLE SWITCH TO SOUND 11237051 * MAIN POWER ALARM 11251051 * (MDC329) @ZM44658*/ 11255051 * 2 UCMOWTOR CHAR(2), /* DEFAULT VALUES FOR OLD WTO/R 11269051 * MACROS */ 11278051 * 2 UCMCMID FIXED(31), /* CURRENT MESSAGE IDENTIFICATION 11287051 * NUMBER */ 11296051 * 2 UCMHCUCM PTR(31), /* ADDRESS OF HARD COPY UCM ENTRY 11305051 * OR ZERO */ 11314051 * 2 UCMXCT PTR(8), /* EXTERNAL REQUEST COUNT */ 11323051 * 2 UCMUEXIT PTR(24), /* ZERO (WAS ADDRESS OF USER EXIT 11332051 * DATA) (MDC376) @G51AP9A*/ 11341051 * 2 UCMHRDRT CHAR(2), /* HARD COPY ROUTING CODE 11350051 * ASSIGNMENTS */ 11359051 * 2 UCMRSV03 FIXED(15), /* RESERVED */ 11368051 * 2 UCMXSA CHAR(24) BDY(WORD),/* 6-WORD SVC 72 PARAMETER LIST */ 11372051 * 3 UCM1WD PTR(31), /* POINTER TO 3RD WORD OF SVC 72 11386051 * PARM LIST */ 11395051 * 3 UCM2WD PTR(31), /* 2ND WORD OF SVC 72 PARM LIST */ 11404051 * 3 UCM3WD PTR(31), /* 3RD WORD OF SVC 72 PARM LIST */ 11413051 * 3 UCM4WD PTR(31), /* 4TH WORD OF SVC 72 PARM LIST */ 11422051 * 3 UCM5WD PTR(31), /* 5TH WORD OF SVC 72 PARM LIST */ 11431051 * 3 UCM6WD PTR(31), /* 6TH WORD OF SVC 72 PARM LIST */ 11440051 * 2 UCMQRTN PTR(31), /* ADDRESS OF ENQ ROUTINE 11449051 * (IEECMENQ) ENTRY POINT */ 11458051 * 2 UCMSWSA1 FIXED(31), /* SAVE AREA FOR IEAVSWCH 11467051 * (MDC373) @G51AP9A*/ 11476051 * 2 UCMSWSA2 FIXED(31), /* SAVE AREA FOR IEAVSWCH 11485051 * (MDC374) @G51AP9A*/ 11494051 * 2 UCMRSV69 PTR(31), /* RESERVED (MDC331) @G51AP9A*/ 11503051 * 2 UCMNPECB FIXED(31), /* NIP ECB - POSTED WHEN NIP 11512051 * ROUTINE'S HARD COPY CAN BE 11521051 * WRITTEN */ 11530051 * 2 UCMLOGAD PTR(31), /* ADDRESS OF WTL BUFFER MDC035*/ 11539051 * 2 UCMRSV72 FIXED(31), /* RESERVED (MDC369) @G51AP9A*/ 11548051 * 2 UCMSDS1 BIT(8), /* SDS FLAGS */ 11557051 * 3 UCMSDS1A BIT(1), /* STCMDS TO HARDCOPY */ 11566051 * 3 UCMSDS1B BIT(1), /* INCMDS TO HARDCOPY */ 11630051 * 3 UCMRSV04 BIT(1), /* RESERVED */ 11637051 * 3 UCMRSV05 BIT(1), /* RESERVED */ 11644051 * 3 UCMRSV06 BIT(1), /* RESERVED */ 11660051 * 3 UCMRSV07 BIT(1), /* RESERVED */ 11667051 * 3 UCMRSV08 BIT(1), /* RESERVED */ 11674051 * 3 UCMRSV09 BIT(1), /* RESERVED */ 11690051 * 2 UCMSDS2 CHAR(1), /* RESERVED FOR SDS FLAGS */ 11700051 * 2 UCMRSV65 FIXED(15); /* RESERVED (MDC375) @G51AP9A*/ 11705051 * @EJECT; /* @G51AP9A*/ 11720051 */********************************************************************/ 11722051 */* */ 11726051 */* POINTERS TO UCM MCS PREFIX AND UCM EXTENSION */ 11746051 */* LOCATED IMMEDIATELY PRECEDING UCM BASE SECTION */ 11755051 */* */ 11764051 */********************************************************************/ 11773051 * 11782051 *DECLARE 11791051 * UCM2PTR PTR(31) BASED(UCMBASPT-8); /* ADDRESS OF UCM EXTENSION 11800051 * (OS/VS2 OPTION ONLY) */ 11809051 * @SPACE(2); /* @G51AP9A*/ 11818051 *DECLARE 11827051 * UCMPRFXP PTR(31) BASED(UCMBASPT-4); /* ADDRESS OF MCS PREFIX */ 11836051 * @SPACE(4); /* @G51AP9A*/ 11845051 */********************************************************************/ 11854051 */* */ 11863051 */* UNIT CONTROL MODULE (UCM) BASE */ 11872051 */* */ 11881051 */********************************************************************/ 11890051 * 11899051 *DECLARE 11930051 * 1 UCM BASED(UCMBASPT) BDY(DWORD),/* START OF UCM BASE */ 11938051 * @SPACE(1); /* @G51AP9A*/ 11946051 */* FIXED ECBS */ 11954051 * 11970051 * 2 UCMXECB FIXED(31), /* EXTERNAL INTERRUPT ECB */ 11978051 * 2 UCMAECB FIXED(31), /* ATTENTION INTERRUPT ECB */ 11986051 * 2 UCMOECB FIXED(31), /* WTO/WTOR REQUEST ECB */ 11994051 * 2 UCMDECB FIXED(31), /* DOM REQUEST ECB */ 12002051 * 3 UCMLECB FIXED(31), /* WTL REQUEST ECB */ 12020051 * 2 UCMARECB FIXED(31), /* CONSOLE RECOVERY ECB 12027051 * (OS/VS2) MDC019*/ 12034051 * @SPACE(1); /* @G51AP9A*/ 12041051 * 2 UCMLSTP PTR(31), /* ADDRESS OF EVENT INDICATION 12048051 * LIST (EIL) */ 12062051 * @SPACE(1); /* @G51AP9A*/ 12071051 */* WTO/WTOR CONTROL FIELDS */ 12080051 * 12089051 * 2 UCMWTOQ PTR(31), /* ADDRESS OF FIRST WQE (SYSOUT 12098051 * QUEUE) */ 12107051 * 2 UCMRPYQ PTR(31), /* ADDRESS OF FIRST RQE (REPLY 12116051 * QUEUE ELEMENT) */ 12120051 * 2 UCMRPYI CHAR(13) BDY(WORD), /* REPLY I.D. ASSIGNMENTS */ 12134051 * 3 * BIT(100), /* 100 BITS USED FOR REPLY I.D. 12143051 * ASSIGNMENT PATTERN */ 12152051 * 2 UCMRQLM PTR(8), /* REPLY I.D. ASSIGNMENT LIMIT */ 12161051 * 2 UCMWQLM FIXED(15), /* WQE BUFFER LIMIT */ 12170051 * 2 UCMRQECB FIXED(31), /* REPLY REQUEST WAITING ECB */ 12179051 * 2 UCMWQECB FIXED(31), /* BUFF REQUEST WAITING ECB */ 12188051 * 2 UCMRQNR FIXED(15), /* CURRENT RQE COUNT */ 12197051 * 2 UCMWQNR FIXED(15), /* CURRENT WQE COUNT */ 12206051 * 2 UCMWQEND PTR(31), /* ADDRESS OF LAST WQE (OR ZERO) */ 12215051 * 2 UCMPXA PTR(31), /* ADDRESS OF COMMUNICATIONS TASK 12224051 * TCB */ 12233051 * 2 UCMPXB CHAR(1), 12242051 * 3 UCMMODE BIT(8), /* MODE FLAGS */ 12251051 * 4 UCMRSV11 BIT(1), /* RESERVED */ 12260051 * 4 UCMRSV66 BIT(1), /* RESERVED (MDC370) @G51AP9A*/ 12269051 * 4 UCMTPUTA BIT(1), /* TPUTTER IS ACTIVE 12278051 * (OS/VS2) MDC017*/ 12287051 * 4 UCMRSV14 BIT(1), /* RESERVED MDC018*/ 12330051 * 4 UCMAMFA BIT(1), /* ACCEPT 'VARY' CMD WITH MSTCONS 12338051 * OPND FROM ANY MCS SECONDARY 12346051 * CONSOLE */ 12354051 * 4 UCMOGCE BIT(1), /* ONLY GRAPHIC CONSOLES EXIST */ 12362051 * 4 UCMMCS BIT(1), /* MCS GENERATED WITH SYSTEM */ 12380051 * 4 UCMFIX BIT(1), /* CONTROL PROGRAM MODE 12389051 * 0 = OS/VS2, 1=OS/VS1 */ 12398051 * 2 UCMRSV75 CHAR(1), /* RESERVED (MDC380) @G51AP9A*/ 12402051 * 2 UCMRSV67 PTR(8), /* RESERVED (MDC371) @G51AP9A*/ 12416051 * 2 UCMRSV76 BIT(8), /* RESERVED (MDC381) @G51AP9A*/ 12420051 * @SPACE(1); /* @G51AP9A*/ 12443051 */* THE FOLLOWING FIELDS ARE USED FOR ACCESSING UCM INDIVIDUAL */ 12452051 */* DEVICE ENTRIES. THEY MUST BE DEFINED IN THE ORDER SHOWN. */ 12461051 * 12470051 * 2 UCMVDATA CHAR(12) BDY(WORD), /* UCM ENTRY ACCESSING DATA */ 12479051 * 3 UCMVEA PTR(31), /* ADDRESS OF FIRST UCM ENTRY */ 12488051 * 3 UCMVEZ FIXED(31), /* LENGTH OF A UCM ENTRY (IN 12510051 * BYTES) */ 12512051 * 3 UCMVEL PTR(31), /* ADDRESS OF LAST UCM ENTRY */ 12521051 * @SPACE(1); /* @G51AP9A*/ 12530051 */* SAVE AREAS FOR REFRESHABILTY ROUTINES */ 12539051 * 12560051 * 2 UCMRSV77 CHAR(56) BDY(WORD),/* RESERVED (MDC382) @G51AP9A*/ 12561051 * 2 UCMSAVE4 (16) FIXED(31), /* SAVE AREA FOR IEAVCTSK MDC034*/ 12571051 * 2 UCMR9SV FIXED(31), /* SAVE AREA FOR IEAVMWSV 12575051 * (MDC385) @G51AP9A*/ 12580051 * @SPACE(1); /* @G51AP9A*/ 12589051 */* THE FIELDS DEFINED FOLLOWING THIS STATEMENT ARE PRESENT */ 12598051 */* ONLY IN VARIABLE MODE SYSTEMS (OS/VS2) */ 12607051 * 12616051 * 2 UCMMNTR PTR(31), /* ADDRESS OF MONITOR 12625051 * ROUTINE MDC003*/ 12634051 * 2 UCMMNECB FIXED(31), /* ECB INDICATING MONITOR TPUTS 12643051 * TO DO MDC004*/ 12652051 * 2 UCMTRECB FIXED(31), /* ECB INDICATING TPUTTER SHOULD 12661051 * TERMINATE MDC005*/ 12690051 * 2 UCMMQPTR PTR(31), /* POINTER TO FIRST ELEMENT ON 12698051 * MONITOR QUEUE MDC006*/ 12706051 * 2 UCMMQEND PTR(31), /* POINTER TO LAST ELEMENT ON 12714051 * MONITOR QUEUE MDC007*/ 12722051 * 2 UCMMQNXT PTR(31), /* POINTER TO NEXT ELEMENT ON 12740051 * MONITOR QUEUE TO BE 12750051 * PROCESSED MDC008*/ 12752051 * 2 UCMMBPTR PTR(31), /* POINTER TO FIRST ELEMENT ON 12770051 * MONITOR MESSAGE BLOCK 12780051 * QUEUE MDC025*/ 12784051 * 2 UCMRQLM1 PTR(8), /* IPL-SPECIFIED ORE BUFFER 12788051 * LIMIT MDC010*/ 12800151 * 2 UCMRV001 CHAR(1), /* RESERVED MDC024*/ 12809151 * 2 UCMWQLM1 FIXED(15), /* IPL-SPECIFIED WQE BUFFER 12830051 * LIMIT MDC011*/ 12836051 * 2 UCMBFEXT PTR(31), /* ADDRESS OF UCM FIXED EXTENSION 12838051 * BASE (MDC379) @G51AP9A*/ 12842051 * 2 UCMRP2AD PTR(31), /* POINTER TO REPLY PROCESSOR, 12848051 * STAGE 2 MDC013*/ 12862051 * 2 UCMRSV61 FIXED(15), /* RESERVED MDC014*/ 12865051 * 2 UCMCTID FIXED(15), /* ASID OF COMMUNICATIONS 12881951 * TASK MDC015*/ 12893951 * 2 UCMMBEND PTR(31), /* POINTER TO LAST ELEMENT ON 12909951 * MONITOR MESSAGE BLOCK 12914951 * QUEUE MDC026*/ 12930051 * 2 UCMWECBH PTR(31), /* POINTER TO START OF WQE ECB 12938051 * CHAIN MDC027*/ 12946051 * 2 UCMWECBT PTR(31), /* POINTER TO END OF WQE ECB 12954051 * CHAIN MDC028*/ 12962051 * 2 UCMOECBH PTR(31), /* POINTER TO START OF ORE ECB 12970051 * CHAIN MDC029*/ 12978051 * 2 UCMOECBT PTR(31), /* POINTER TO END OF ORE ECB 12986051 * CHAIN MDC030*/ 12994051 * 2 UCMORECP FIXED(31), /* ORE CELLPOOL ID MDC031*/ 13002051 * 2 UCMWQECP FIXED(31), /* WQE CELLPOOL ID MDC032*/ 13010051 * 2 UCMASCB PTR(31), /* ASCB ADDRESS OF COMMUNICATIONS 13018051 * TASK MDC036*/ 13026051 * 2 UCMSWCH PTR(31), /* ADDRESS OF CONSOLE SWITCH 13034051 * ROUTINE MDC040*/ 13042051 * 2 UCMFRRAD PTR(31), /* ADDRESS OF COMMUNICATIONS 13050051 * TASK'S RECOVERY ROUTINE 13058051 * (IEAVMFRR) MDC047*/ 13066051 * 2 UCMWAKUP PTR(31), /* ADDRESS OF COMMUNICATIONS 13074051 * TASK'S POST ERROR RECOVERY 13082051 * ROUTINE (IEAVMEST, ALIAS FOR 13090051 * IEAVMFRR) MDC048*/ 13098051 * 2 UCMJES3T PTR(31), /* ADDRESS OF SUBSYSTEM ASCB 13106064 * (MDC300) @G64DP9A*/ 13111064 * 2 UCMRSV42 BIT(8), /* RESERVED MDC033*/ 13122051 * 3 UCMRSV43 BIT(1), /* RESERVED MDC033*/ 13130051 * 3 UCMRSV44 BIT(1), /* RESERVED MDC033*/ 13138051 * 3 UCMRSV45 BIT(1), /* RESERVED MDC033*/ 13146051 * 3 UCMRSV46 BIT(1), /* RESERVED MDC033*/ 13154051 * 3 UCMRSV47 BIT(1), /* RESERVED MDC033*/ 13162051 * 3 UCMRSV48 BIT(1), /* RESERVED MDC033*/ 13170051 * 3 UCMRSV49 BIT(1), /* RESERVED MDC033*/ 13178051 * 3 UCMRSV50 BIT(1), /* RESERVED MDC033*/ 13186051 * 2 UCMRSV51 BIT(8), /* RESERVED MDC033*/ 13194051 * 3 UCMRSV52 BIT(1), /* RESERVED MDC033*/ 13202051 * 3 UCMRSV53 BIT(1), /* RESERVED MDC033*/ 13210051 * 3 UCMRSV54 BIT(1), /* RESERVED MDC033*/ 13218051 * 3 UCMRSV55 BIT(1), /* RESERVED MDC033*/ 13226051 * 3 UCMRSV56 BIT(1), /* RESERVED MDC033*/ 13234051 * 3 UCMRSV57 BIT(1), /* RESERVED MDC033*/ 13320051 * 3 UCMRSV58 BIT(1), /* RESERVED MDC033*/ 13328051 * 3 UCMRSV59 BIT(1), /* RESERVED MDC033*/ 13336051 * 2 UCMRSV60 FIXED(15), /* RESERVED @G51AP9A*/ 13344051 * 2 UCMMTPLP PTR(31), /* IEETRACE PARAMETER LIST AND 13348064 * SAVE AREA POINTER 13352064 * (MDC394) @G64MP9A*/ 13356064 * 2 UCMRSV62 CHAR(60) BDY(WORD); /* RESERVED (MDC330) @G64DP9A*/ 13360064 * @EJECT; /* @G51AP9A*/ 13370051 */********************************************************************/ 13376051 */* */ 13382051 */* UCM EVENT INDICATION LIST (EIL) @G51AP9A*/ 13388051 */* */ 13394051 */********************************************************************/ 13400051 * 13420051 *DECLARE 13429051 * 1 UCMEIL BASED(UCMEILPT) BDY(WORD), /* BEGINNING OF EIL */ 13438051 * 2 * PTR(8), /* LENGTH OF EIL IN WORDS */ 13447051 * 2 UCMRPYL CHAR(1), /* LAST ASSIGNED REPLY I.D. */ 13456051 * 2 UCMRTCT PTR(8), /* ROUTE COUNT */ 13465051 * 2 UCMRSV15 PTR(8), /* RESERVED */ 13474051 * 2 UCMNIPTR PTR(31), /* ADDRESS OF NIP'S 2K WTL BUFFER*/ 13483051 * 2 UCMXECBA PTR(31), /* ADDRESS OF EXTERNAL INTERRUPT 13492051 * ECB */ 13501051 * 2 UCMAECBA PTR(31), /* ADDRESS OF ATTENTION 13510051 * INTERRUPT ECB */ 13519051 * 2 UCMOECBA PTR(31), /* ADDRESS OF WTO/R REQUEST ECB */ 13528051 * 2 UCMDECBA PTR(31), /* ADDRESS OF DOM REQUEST ECB */ 13537051 * 2 UCMRECBA PTR(31); /* ADDRESS OF CONSOLE RECOVERY 13546064 * ECB (ACR) (OS/VS2) 13550064 * (MDC395) @G64DP9A*/ 13554064 * @SPACE(2); /* @G51AP9A*/ 13564051 */* THE FOLLOWING PART OF THE EIL IS A VARIABLE LIST OF */ 13573051 */* POINTERS TO I/O REQUEST ECBS FOR EACH CONSOLE DEVICE */ 13582051 */* DEFINED AT SYSGEN. IN OS/VS2, THE LIST CONTAINS A MINIMUM */ 13591051 */* OF 2 ENTRIES. THE LIST IS VARIABLE ONLY AT SYSGEN. THE */ 13600051 */* LAST ENTRY HAS A HIGH-ORDER BYTE OF X'80'. */ 13609051 * 13618051 *DECLARE 13627051 * 1 UCMIECBA DEF(UCMRECBA) POS(5) BDY(WORD), 13636051 * 2 UCMIECBF CHAR(1), /* ECB LIST-END FLAG */ 13645051 * 2 UCMIECBP PTR(24); /* PTR TO I/O REQUEST ECB */ 13654051 * @EJECT; /* @G51AP9A*/ 13663051 */********************************************************************/ 13672051 */* */ 13681051 */* UCM INDIVIDUAL DEVICE ENTRY MAP (UCME) @G51AP9A*/ 13690051 */* */ 13699051 */********************************************************************/ 13708051 * 13717051 *DECLARE 13726051 * 1 UCMLIST BASED(UCMDVEPT) BDY(WORD), 13770051 * 2 UCMECB PTR(31), /* PTR TO I/O COMPLETION ECB OR 13777051 * ACTUAL I/O COMPLETION ECB FOR 13784051 * 2740 DEVICE */ 13791051 * 2 UCMSBR PTR(31), /* ADDRESS OF RESIDENT PROCESSOR 13798051 * MODULE MDC020*/ 13805051 * 2 UCMDCB PTR(31), /* ADDRESS OF DCB */ 13812051 * 2 UCMUCB PTR(31), /* UCB NAME (DEVICE ADDR) OR 13819051 * POINTER TO UCB */ 13826051 * 2 UCMNAME CHAR(8) BDY(WORD),/* PROCESSING MODULE NAME */ 13829051 * 2 UCMSTS BIT(8), /* STATUS FLAGS */ 13840051 * 3 UCMAF BIT(1), /* ATTENTION PENDING */ 13847051 * 3 UCMPF BIT(1), /* OUTPUT PENDING */ 13854051 * 3 UCMBF BIT(1), /* DEVICE BUSY */ 13861051 * 3 UCMCF BIT(1), /* CLOSE PENDING */ 13868051 * 3 UCMTA BIT(1), /* OPEN PENDING */ 13875051 * 3 UCMTB BIT(1), /* DEQ APPROPRIATE OUTPUT QUEUE 13882051 * ENTRIES */ 13889051 * 3 UCMEMCLS BIT(1), /* EMERGENCY CLOSE PENDING 13896003 * (MDC471) @ZA39770*/ 13899503 * 3 UCMTC BIT(1), /* CONSOLE HAS IN-LINE WTO */ 13903051 * 2 UCMATR BIT(8), /* ATTRIBUTE FLAGS */ 13910051 * 3 UCMOF BIT(1), /* WTO SUPPORT */ 13917051 * 3 UCMIF BIT(1), /* ATTENTION SUPPORT */ 13924051 * 3 UCMXF BIT(1), /* EXTERNAL INTERRUPT SUPPORT */ 13931051 * 3 UCMUF BIT(1), /* DEVICE ACTIVE */ 13938051 * 3 UCMLF BIT(1), /* LOAD FLAG */ 13945051 * 3 UCMAT04 BIT(1), /* DEVICE STATUS TO CHANGE */ 13952051 * 3 UCMRSV16 BIT(1), /* RESERVED */ 13959051 * 3 UCMRSV17 BIT(1), /* RESERVED */ 13966051 * 2 UCMXA FIXED(15), 13973051 * 3 UCMID CHAR(1), /* UNIQUE ENTRY I.D. */ 13980051 * 3 * CHAR(1), /* RESERVED */ 13987051 * 2 UCMXB PTR(31), /* ADDR OF DCM (GRAPHICS) OR ZERO*/ 13994051 * 2 UCMRTCD CHAR(2), /* ROUTING CODES ASSIGNED TO THIS 14001051 * CONSOLE */ 14008051 * 2 UCMRSV18 FIXED(15), /* RESERVED */ 14015051 * 2 UCMOUTQ PTR(31), /* ADDRESS OF CQE QUEUE 14130051 * (MDC301) @Z30AQ9A*/ 14139051 * 2 UCMAUTH CHAR(2), /* COMMAND CODE AUTHORIZATION */ 14148051 * 3 UCMAUTHA BIT(8), /* 1ST BYTE OF COMMAND CODE 14157051 * AUTHORIZATION FLAGS */ 14166051 * 4 UCMAUTH1 BIT(1), /* COMMAND GROUP 1 (SYS) */ 14175051 * 4 UCMAUTH2 BIT(1), /* COMMAND GROUP 2 (I/O) */ 14184051 * 4 UCMAUTH3 BIT(1), /* COMMAND GROUP 3 (CONS) */ 14193051 * 4 UCMRSV19 BIT(1), /* RESERVED */ 14202051 * 4 UCMRSV20 BIT(1), /* RESERVED */ 14211051 * 4 UCMRSV21 BIT(1), /* RESERVED */ 14220051 * 4 UCMRSV22 BIT(1), /* RESERVED */ 14229051 * 4 UCMRSV23 BIT(1), /* RESERVED */ 14238051 * 3 UCMAUTHB BIT(8), /* 2ND BYTE OF COMMAND CODE 14247051 * AUTHORIZATION FLAGS */ 14256051 * 2 UCMDISP CHAR(2), /* DISPOSITION FLAGS */ 14265051 * 3 UCMDISP1 BIT(8), /* FIRST BYTE - DISPOSITION FLAGS*/ 14274051 * 4 UCMDISPA BIT(1), /* MASTER CONSOLE */ 14283051 * 4 UCMDISPB BIT(1), /* HARD COPY DEV/CONSOLE */ 14310051 * 4 UCMDISPC BIT(1), /* GRAPHICS */ 14317051 * 4 UCMDISPD BIT(1), /* OUTPUT ONLY */ 14324051 * 4 UCMDISPE BIT(1), /* CONSOLE HAS FULL I/O 14331051 * CAPABILITY */ 14338051 * 4 UCMDISPF BIT(1), /* CONSOLE IS MESSAGE STREAM ONLY*/ 14345051 * 4 UCMDISPG BIT(1), /* CONSOLE IS STATUS DISPLAY ONLY*/ 14352051 * 4 UCMDISPH BIT(1), /* INTEGRATED OPERATOR'S CONSOLE 14359051 * (OS/VS2) MDC041*/ 14366051 * 3 UCMDISP2 BIT(8), /* SECOND BYTE - DISPOSITION 14373051 * FLAGS */ 14380051 * 4 UCMDISPI BIT(1), /* DISPLAY TIME AND JOB NAME 14387051 * (OS/VS2) MDC045*/ 14394051 * 4 UCMDISPJ BIT(1), /* DISPLAY JOB NAME ONLY 14401051 * (OS/VS2) MDC046*/ 14408051 * 4 UCMDISPK BIT(1), /* JES3 DUMMY CONSOLE FLAG 14415051 * (OS/VS2) (MDC053) Y02038*/ 14422051 * 4 UCMRV003 BIT(1), /* RESERVED */ 14429051 * 4 UCMRV004 BIT(1), /* RESERVED */ 14436051 * 4 UCMRV005 BIT(1), /* RESERVED */ 14443051 * 4 UCMRV006 BIT(1), /* RESERVED */ 14450051 * 4 UCMRV007 BIT(1), /* RESERVED */ 14522051 * 2 UCMALTEN PTR(31), /* ADDRESS OF ALTERNATE INPUT 14532051 * UCM ENTRY */ 14540051 * 2 UCMOAOEN PTR(31), /* ADDRESS OF OUTPUT/ALTERNATE 14548051 * OUTPUT UCM ENTRY */ 14556051 * 2 UCMWLAST PTR(31), /* ADDRESS OF LAST WQE ENTRY 14564051 * SERVICED IN OUTPUT QUEUE */ 14580051 * 2 UCMCOMPC PTR(31), /* ADDRESS OF OTHER HALF IF THIS 14588051 * IS A COMPOSITE CONSOLE */ 14596051 * 2 UCMMSG CHAR(2), /* MESSAGE FLAGS */ 14604051 * 3 UCMMSG1 BIT(8), /* FIRST BYTE - MESSAGE FLAGS */ 14612051 * 4 UCMMSGA BIT(1), /* DISPLAY JOBNAMES REQUESTED */ 14620051 * 4 UCMMSGB BIT(1), /* DISPLAY STATUS REQUESTED */ 14628051 * 4 UCMRSV70 BIT(1), /* RESERVED (MDC377) @G51AP9A*/ 14636051 * 4 UCMMSGD BIT(1), /* RESQID REQUEST */ 14644051 * 4 UCMRSV71 BIT(1), /* RESERVED (MDC378) @G51AP9A*/ 14652051 * 4 UCMMSGF BIT(1), /* MONITOR SESSIONS */ 14660051 * 4 UCMRSV26 BIT(1), /* RESERVED */ 14668051 * 4 UCMRSV27 BIT(1), /* RESERVED */ 14676051 * 3 UCMMSG2 BIT(8), /* SECOND BYTE - MESSAGE FLAGS */ 14684051 * 2 UCMXOR CHAR(1), /* XOR MASK - SET TO ZERO */ 14692051 * 2 UCMDEVC BIT(8), /* DEVICE CONTROL FLAGS */ 14700051 * 3 UCMDEVA BIT(1), /* FULL SCREEN ON GRAPHICS 14708051 * CONSOLE */ 14716051 * 3 UCMDEVB BIT(1), /* PREPARE COMMAND ISSUED */ 14724051 * 3 UCMDEVCC BIT(1), /* TESTED FOR CONSOLE SWITCH */ 14732051 * 3 UCMDEVD BIT(1), /* DOM ISSUED */ 14740051 * 3 UCMDEVE BIT(1), /* I/O COMPLETE */ 14748051 * 3 UCMDEVF BIT(1), /* MODIFIED DCM FOR DOM */ 14756051 * 3 UCMDEVG BIT(1), /* HIO ISSUED ON THE 2740 */ 14764051 * 3 UCMVHRSN BIT(1), /* CONSOLE I/O PATH AFFECTED 14772051 * (OS/VS2) (MDC049) YM2236*/ 14780051 * 2 UCMMLAST PTR(31), /* ADDRESS OF LAST MINOR WQE 14788051 * HANDLED */ 14850051 * 2 UCMRCT PTR(31), /* POINTER TO ROUTING CONTROL 14859051 * TABLE */ 14868051 * 3 UCMSDS5 BIT(8), /* SDS FLAGS */ 14877051 * 4 UCMSDS5A BIT(1), /* MLWTO LINE NEEDED TO KEEP 14886051 * WRITING */ 14895051 * 4 UCMSDS5B BIT(1), /* INLINE OUTPUT PENDING */ 14904051 * 4 UCMSDS5C BIT(1), /* OUT-OF-LINE OUTPUT PENDING */ 14913051 * 4 UCMSDS5D BIT(1), /* K Q ISSUED FOR THIS CONSOLE @ZA57016*/ 14922003 * 4 UCMRSV30 BIT(1), /* RESERVED */ 14940051 * 4 UCMSDS5F BIT(1), /* FOR CRT, UCMMLAST VALID */ 14948051 * 4 UCMSDS5G BIT(1), /* I/O HARDWARE IN OUTPUT-ONLY 14956051 * STATUS */ 14964051 * 4 UCMRSV31 BIT(1), /* RESERVED */ 14972051 * 3 UCMRCTA PTR(24), /* ADDRESS OF ROUTING CONTROL 14980051 * TABLE */ 14988051 * 2 UCMFEXTP PTR(31), /* ADDRESS OF THE UCME FIXED 14996051 * EXTENSION (MDC332) @G51AP9A*/ 15004051 * 2 UCMRSV64 FIXED(31); /* RESERVED (MDC333) @G51AP9A*/ 15012051 * @SPACE(4); /* @G51AP9A*/ 15040051 */********************************************************************/ 15050051 */* */ 15060051 */* USER EXIT WORK AREA */ 15065051 */* */ 15080051 */* NOTE - THIS AREA IS NOT PART OF THE UCM. IT IS A */ 15082051 */* MAPPING OF THE SPACE GOTTEN AND FREED BY IEAVVWTO. */ 15084051 */* */ 15086051 */********************************************************************/ 15090051 * 15100051 *DECLARE 15110051 * 1 UCMEXIT BASED(UCMUEWPT) BDY(WORD), /* START OF USER EXIT WORK 15120051 * AREA */ 15130051 * 2 UCMMSTXT CHAR(128) BDY(WORD), /* MESSAGE TEXT BUFFER */ 15140051 * 2 UCMROUTC FIXED(31), /* ROUTE CODES */ 15150051 * 2 UCMDESCD FIXED(31); /* MESSAGE DESCRIPTOR CODES */ 15160051 * @EJECT; /* @G51AP9A*/ 15170051 */********************************************************************/ 15180051 */* */ 15190051 */* UNIT CONTROL MODULE (UCM) FIXED EXTENSION BASE @G51AP9A*/ 15210051 */* (PRESENT IN OS/VS2 ONLY) @ZA11870*/ 15218051 */* */ 15226051 */********************************************************************/ 15234051 * 15242051 *DECLARE 15250051 * 1 UCMFEXTA BASED(UCMFXPTR) BDY(DWORD),/* UCM FIXED EXTENSION BASE 15258051 * (MDC304) @G51AP9A*/ 15266051 * 2 UCMFUCMF CHAR(4), /* ACRONYM IN EBCDIC -UCMF- 15274051 * (MDC305) @ZA11870*/ 15282051 * 2 UCMFPPTR PTR(31), /* ADDRESS OF UCM PAGEABLE 15300051 * EXTENSION BASE 15309051 * (MDC306) @G51AP9A*/ 15318051 * 2 UCMFMGFS CHAR(8) BDY(WORD),/* FLAGS FOR FIXED EXTENSION BASE 15327051 * (MDC307) @G51AP9A*/ 15336051 * 3 UCMFFLG1 BIT(8), /* MESSAGE FLAGS 15345051 * (MDC308) @ZA11870*/ 15354051 * 4 UCMFMSGE BIT(1), /* WQE SHORTAGE MESSAGE ISSUED 15363051 * (MDC309) @ZA11870*/ 15372051 * 4 UCMFMSGA BIT(1), /* WQE CRITICAL MESSAGE ISSUED 15390051 * (MDC310) @ZA11870*/ 15399051 * 4 UCMFMSGN BIT(1), /* NO WQE THRESHOLD MESSAGES 15408051 * SHOULD BE ISSUED 15417051 * (MDC311) @ZA11870*/ 15426051 * 4 UCMFBR03 BIT(1), /* RESERVED (MDC312) @ZA11870*/ 15435051 * 4 UCMFBR04 BIT(1), /* RESERVED (MDC312) @ZA11870*/ 15444051 * 4 UCMFBR05 BIT(1), /* RESERVED (MDC312) @ZA11870*/ 15453051 * 4 UCMFBR06 BIT(1), /* RESERVED (MDC312) @ZA11870*/ 15462051 * 4 UCMFBR07 BIT(1), /* RESERVED (MDC312) @ZA11870*/ 15480051 * 3 UCMFFLG2 BIT(8), /* RESERVED (MDC313) @ZA11870*/ 15488051 * 3 UCMFRSV1 FIXED(15), /* RESERVED (MDC314) @ZA11870*/ 15496051 * 3 UCMFRSV2 FIXED(31), /* RESERVED (MDC315) @ZA11870*/ 15504051 * 2 UCMF60WQ FIXED(15), /* 60% OF WQE LIMIT SPECIFIED AT 15520051 * IPL (MDC316) @ZA11870*/ 15528051 * 2 UCMF80WQ FIXED(15), /* 80% OF WQE LIMIT SPECIFIED AT 15536051 * IPL (MDC317) @ZA11870*/ 15544051 * 2 UCMFRSV3 CHAR(8), /* RESERVED (MDC318) @G51AP9A*/ 15552051 * 2 UCMFECBL CHAR(8) BDY(WORD),/* ECB LIST THAT IEAVMQWR WAITS 15560051 * ON IN A NO-CONSOLES CONDITION 15568051 * (MDC334) @G51AP9A*/ 15576051 * 3 UCMFXECB PTR(31), /* ADDRESS OF EXTERNAL INTERRUPT 15584051 * ECB (MDC335) @G51AP9A*/ 15592051 * 3 UCMFRECB PTR(31), /* ADDRESS OF CONSOLE RECOVERY 15600051 * ECB (MDC336) @G51AP9A*/ 15608051 * 4 UCMFRBYT BIT(8), /* HIGH-ORDER BYTE OF UCMFRECB 15616051 * (MDC337) @G51AP9A*/ 15624051 * 5 UCMFRB0 BIT(1), /* END OF LIST INDICATOR 15660051 * (MDC338) @G51AP9A*/ 15670051 * 4 UCMFRAD PTR(24), /* ADDRESS OF CONSOLE RECOVERY 15679051 * ECB (MDC339) @G51AP9A*/ 15688051 * 2 UCMFATCN PTR(31), /* ADDRESS OF UCME CANDIDATE FOR 15697051 * FOR NEW MASTER CONSOLE 15706051 * (ATTENTION WAS GENERATED ON 15715051 * THIS DEVICE WHEN IN A 15724051 * NO-CONSOLES CONDITION) 15733051 * (MDC340) @G51AP9A*/ 15742051 * 2 UCMFE1ST PTR(31), /* ADDRESS OF FIRST UCME FIXED 15751051 * EXTENSION (MDC341) @G51AP9A*/ 15760051 * 2 UCMFELEN FIXED(31), /* LENGTH OF A UCME FIXED 15769051 * EXTENSION (MDC342) @G51AP9A*/ 15778051 * 2 UCMFELST PTR(31); /* ADDRESS OF LAST UCME FIXED 15787051 * EXTENSION (MDC343) @G51AP9A*/ 15796051 * @SPACE(4); /* @G51AP9A*/ 15805051 */********************************************************************/ 15814051 */* */ 15823051 */* UNIT CONTROL MODULE (UCM) PAGEABLE EXTENSION BASE @G51AP9A*/ 15832051 */* (PRESENT IN OS/VS2 ONLY) @ZA11870*/ 15841051 */* */ 15850051 */********************************************************************/ 15859051 * 15868051 *DECLARE 15877051 * 1 UCMPEXTA BASED(UCMPXPTR) BDY(DWORD),/* UCM PAGEABLE EXTENSION 15886051 * BASE (MDC319) @G51AP9A*/ 15895051 * 2 UCMPUCMP CHAR(4), /* ACRONYM IN EBCDIC -UCMP- 15930051 * (MDC320) @ZA11870*/ 15939051 * 2 UCMPDM1 CHAR(32) BDY(WORD),/* DOM ID'S (MDC321) @G64DP9A*/ 15948064 * 3 UCMPWQE FIXED(31), /* WQE CRITICAL MESSAGE DOM ID 15957051 * (MDC322) @ZA11870*/ 15966051 * 3 UCMPNMCC FIXED(31), /* NO MASTER CONSOLE CONDITION 15975051 * MESSAGE DOM ID 15984051 * (MDC323) @ZA11870*/ 15993051 * 3 UCMPNCC FIXED(31), /* NO CONSOLE CONDITION MESSAGE 16002051 * DOM ID (MDC344) @G51AP9A*/ 16011051 * 3 UCMPWQES FIXED(31), /* WQE SHORTAGE MESSAGE DOM ID 16020064 * (MDC396) @G64DP9A*/ 16023064 * 3 UCMPRSV1 CHAR(16), /* RESERVED (MDC324) @G64DP9A*/ 16026064 * 2 UCMPRSV2 CHAR(12), /* RESERVED (MDC325) @G64DP9A*/ 16029064 * 2 UCMPE1ST PTR(31), /* ADDRESS OF FIRST UCME PAGEABLE 16038051 * EXTENSION (MDC345) @G51AP9A*/ 16047051 * 2 UCMPELEN FIXED(31), /* LENGTH OF A UCME PAGEABLE 16056051 * EXTENSION (MDC346) @G51AP9A*/ 16065051 * 2 UCMPELST PTR(31), /* ADDRESS OF LAST UCME PAGEABLE 16074051 * EXTENSION (MDC347) @G51AP9A*/ 16083051 * 2 UCMPEDUM CHAR(4); /* DUMMY UCME PAGEABLE EXTENSION 16092051 * (MDC348) @G51AP9A*/ 16101051 * @EJECT; /* @G51AP9A*/ 16110051 */********************************************************************/ 16119051 */* */ 16128051 */* INDIVIDUAL DEVICE ENTRY (UCME) FIXED EXTENSION @G51AP9A*/ 16137051 */* (PRESENT IN OS/VS2 ONLY) @G51AP9A*/ 16146051 */* */ 16155051 */********************************************************************/ 16164051 * 16173051 *DECLARE 16182051 * 1 UCMEFEXT BASED(UCMFEXTP) BDY(WORD), /* UCME FIXED EXTENSION 16191051 * (MDC349) @G51AP9A*/ 16200051 * 2 UCMEFLG1 BIT(8), /* FLAGS FOR THE UCME FIXED 16209051 * EXTENSION (MDC350) @G51AP9A*/ 16218051 * 3 UCMEFLGA BIT(1), /* IF 1, ATTENTION INDEX IN 16227051 * UCMEFATT IS VALID 16236051 * (MDC351) @G51AP9A*/ 16245051 * 3 UCMEFLGB BIT(1), /* IF 1, UCBSYSR FOR THIS DEVICE 16249051 * WAS FORCED TO 1 AND SHOULD BE 16254051 * RESTORED TO 0 16263051 * (MDC352) @G51AP9A*/ 16281051 * 3 UCMEFLGC BIT(1), /* RESERVED (MDC353) @G51AP9A*/ 16290051 * 3 UCMEFLGD BIT(1), /* RESERVED (MDC354) @G51AP9A*/ 16299051 * 3 UCMEFLGE BIT(1), /* RESERVED (MDC355) @G51AP9A*/ 16308051 * 3 UCMEFLGF BIT(1), /* RESERVED (MDC356) @G51AP9A*/ 16317051 * 3 UCMEFLGG BIT(1), /* RESERVED (MDC357) @G51AP9A*/ 16326051 * 3 UCMEFLGH BIT(1), /* RESERVED (MDC358) @G51AP9A*/ 16335051 * 2 UCMEFLG2 BIT(8), /* RESERVED (MDC359) @G51AP9A*/ 16344051 * 2 UCMEFATT PTR(8), /* ATTENTION INDEX. VALID ONLY 16353051 * IF UCMEFLGA IS 1. 16362051 * (MDC360) @G51AP9A*/ 16371051 * 2 UCMEFSA1 PTR(8), /* ATTENTION INDEX SAVED BY 1052 16375051 * DEVICE SERVICE PROCESSOR 16380051 * (MDC361) @ZM44658*/ 16381051 * 2 UCMEFPEX PTR(31), /* ADDRESS OF UCME PAGEABLE 16384051 * EXTENSION (MDC362) @G51AP9A*/ 16398051 * 2 UCMEFRV1 PTR(31); /* RESERVED (MDC393) @ZM44658*/ 16402051 * @SPACE(2); /* @G51AP9A*/ 16407051 */********************************************************************/ 16409051 */* */ 16411051 */* IF THE UCME FIXED EXTENSION CHAIN IS TO BE SCANNED, @G51AP9A*/ 16413051 */* THE POINTER UCMEFXPT SHOULD BE DECLARED. A RESPECIFY @G51AP9A*/ 16416051 */* STATEMENT SHOULD THEN BE USED TO BASE UCMEFEXT ON @G51AP9A*/ 16425051 */* UCMEFXPT. @G51AP9A*/ 16434051 */* */ 16443051 */********************************************************************/ 16452051 * @EJECT; /* @G51AP9A*/ 16470051 */********************************************************************/ 16479051 */* */ 16560051 */* INDIVIDUAL DEVICE ENTRY (UCME) PAGEABLE EXTENSION @G51AP9A*/ 16569051 */* (PRESENT IN OS/VS2 ONLY) @G51AP9A*/ 16578051 */* */ 16587051 */********************************************************************/ 16596051 * @SPACE(1); /* @G51AP9A*/ 16605051 */* CURRENTLY THE UCME PAGEABLE EXTENSION DOES NOT REQUIRE @G51AP9A*/ 16614051 */* ANY STORAGE AND IS CONSIDERED RESERVED FOR FUTURE USE. @G51AP9A*/ 16623051 * 16632051 *DECLARE 16650051 * UCMEPEXT CHAR(0) BASED(UCMEFPEX) BDY(WORD); /* RESERVED 16658051 * (MDC364) @G51AP9A*/ 16666051 * @SPACE(2); /* @G51AP9A*/ 16674051 */********************************************************************/ 16675051 */* */ 16676051 */* IF THE UCME PAGEABLE EXTENSION CHAIN IS TO BE SCANNED, @G51AP9A*/ 16677051 */* THE POINTER UCMEPXPT SHOULD BE DECLARED. A RESPECIFY @G51AP9A*/ 16678051 */* STATEMENT SHOULD THEN BE USED TO BASE UCMEPEXT ON @G51AP9A*/ 16679051 */* UCMEPXPT. @G51AP9A*/ 16680051 */* */ 16682051 */********************************************************************/ 16690051