* 00050002 * %GOTO WSAVTL1; /* 00100002 MACRO 00150002 IHAWSAVT &CLASS=LOCAL,&DSECT=YES,&FUNC=,&ACR=YES */ 00200002 *%WSAVTL1 : ; 00250002 * 00300002 */* **************************************************************** */ 00350002 */* */ 00400002 */* WORK/SAVE AREA VECTOR TABLES (WSAVT) */ 00450002 */* */ 00500002 */* OS/VS2 SU64, 10/24/78, LEVEL=6 */ 00550064 */* */ 00600002 */* METHOD OF ACCESS */ 00650002 */* PL/S - INCLUDE IHAASXB TO DEFINE ASXBSPSA FOR LOCAL WSAVT. */ 00700002 */* INCLUDE CVT TO DEFINE CVTSPSA FOR GLOBAL WSAVT. */ 00750002 */* INCLUDE IHALCCA TO DEFINE LCCACPUS FOR CPU WSAVT. */ 00800002 */* */ 00850002 */* ALL 3 WSAVT'S ARE MAPPED UNLESS MACRO VARIABLE(S) */ 00900002 */* ARE SET TO NO. CODING %WSALOCAL='NO' BEFORE INCLUDE */ 00950002 */* MEANS THAT A MAPPING OF LOCAL WSAVT WILL NOT BE */ 01000002 */* PRODUCED. %WSAGLOBL='NO' SUPPRESSES GLOBAL WSAVT */ 01050002 */* MAPPING. %WSACPU='NO' SUPPRESSES CPU WSAVT MAPPING. */ 01100002 */* */ 01150002 */* BAL - THERE ARE 4 KEYWORD PARAMETERS AS FOLLOWS - */ 01200002 */* */ 01250002 */* 1. CLASS=LOCAL/GLOBAL/CPU WITH A DEFAULT OF LOCAL. */ 01300002 */* THIS PARAMETER DETERMINES WHICH WSAVT MAPPING IS */ 01350002 */* PRODUCED. */ 01400002 */* */ 01450002 */* 2. DSECT=YES/NO WITH A DEFAULT OF YES. IF YES, A */ 01500002 */* DSECT IS PRODUCED FOR MAPPING REQUESTED BY CLASS */ 01550002 */* PARAMETER. THE DSECT NAMES ARE - */ 01600002 */* WSAL - LOCAL WSAVT */ 01650002 */* WSAG - GLOBAL WSAVT */ 01700002 */* WSAC - CPU WSAVT */ 01750002 */* */ 01800002 */* 3. FUNC=INIT. IF THIS PARAMETER IS SPECIFIED, AN */ 01850002 */* INITIALIZED TABLE OF HALF-WORD LENGTH VALUES */ 01900002 */* DESCRIBING THE NUMBER OF ENTRIES AND LENGTH OF */ 01950002 */* EACH ENTRY IN WSAVT SPECIFIED BY CLASS PARAMETER */ 02000002 */* IS PRODUCED. */ 02050002 */* */ 02052002 */* 4. ACR=YES/NO WITH A DEFAULT OF YES. IF CLASS=CPU */ 02060002 */* AND DSECT=NO, ACR=YES CREATES A WORK/SAVE AREA */ 02070002 */* FOR ACR, AND ACR=NO CREATES A RESERVED 8-BYTE */ 02080002 */* AREA BECAUSE ACR IS NOT IN THE SYSTEM. */ 02090002 */* */ 02100002 */* DSECT=NO MUST BE SPECIFIED IF FUNC=INIT IS SPECIFIED.*/ 02150002 */* */ 02200002 */* IF DSECT=NO IS SPECIFIED AND FUNC=INIT IS NOT */ 02250002 */* SPECIFIED, THE MAPPING OF WSAVT WILL BE FOLLOWED BY */ 02260002 */* MAPPING OF ACTUAL WORK/SAVE AREAS. */ 02350002 */* */ 02400002 */* **************************************************************** */ 02450002 *%GOTO WSAVTL2; /* 02500002 SPACE 1 02550002 AIF ('&FUNC' EQ 'INIT').WSAVT60 02600002 AIF ('&CLASS' EQ 'GLOBAL' OR '&CLASS' EQ 'CPU').WSAVT20 02650002 AIF ('&DSECT' EQ 'NO').WSAVT05 02700002 WSAL DSECT , - LOCAL WORK/SAVE AREA VECTOR TABLE 02750002 * ASXBSPSA POINTS TO THIS AREA 02751002 WSALCWSA DC A(0) - ADDRESS OF LOW-LEVEL COMMON SAVE AREA 02752002 * (104 BYTES) 02753002 WSALVALC DC A(0) - ADDRESS OF VALIDITY CHECK SAVE AREA 02754002 * (64 BYTES) 02755002 WSALRTM2 DC A(0) - ADDRESS OF RECOVERY TERMINATION MONITOR 02756002 * (RTM) SAVE AREA (80 BYTES) 02757002 WSALSDMP DC A(0) - ADDRESS OF SDUMP SAVE AREA (80 BYTES) 02758002 WSALABTM DC A(0) - ADDRESS OF ABTERM SAVE AREA (80 BYTES) 02759002 WSALCIRB DC A(0) - ADDRESS OF CIRB SAVE AREA (80 BYTES) 02760002 * MDC005 02760202 WSALS2EE DC A(0) - ADDRESS OF STAGE 2 EXIT EFFECTOR SAVE 02761002 * AREA (80 BYTES) 02762002 WSALEXIT DC A(0) - ADDRESS OF EXIT (SVC 3) SAVE AREA 02763002 * (128 BYTES) 02764002 WSALPOST DC A(0) - ADDRESS OF POST SAVE AREA (160 BYTES) 02765004 * (MDC303) @Z40EP9A 02765304 WSALWAIT DC A(0) - ADDRESS OF WAIT SAVE AREA (72 BYTES) 02766002 WSALSTAT DC A(0) - ADDRESS OF STATUS SAVE AREA (72 BYTES) 02767002 WSALSTAE DC A(0) - ADDRESS OF STAE SAVE AREA (112 BYTES) 02768002 * MDC003 02768202 WSALEVNT DC A(0) - ADDRESS OF EVENTS (FAST MULTIPLE WAIT) 02768603 * SAVE AREA (72 BYTES) (MDC300) @Z30HP9A 02769003 WSALRSM DC A(0) - ADDRESS OF REAL STORAGE MANAGEMENT (RSM) 02770002 * SAVE AREA (72 BYTES) (MDC025) YM2689 02771002 WSALACHP DC A(0) - ADDRESS OF ASCB CHAP ROUTINE SAVE AREA 02773002 * (40 BYTES) 02774002 MEXIT 02775002 .WSAVT05 ANOP 02850002 DS 0D 02900002 WSAL EQU * - LOCAL WORK/SAVE AREA VECTOR TABLE 02950002 * ASXBSPSA POINTS TO THIS AREA 03050002 WSALCWSA DC A(LWSACWSA) - ADDRESS OF LOW-LEVEL COMMON SAVE AREA 03100002 * (104 BYTES) 03110002 WSALVALC DC A(LWSAVALC) - ADDRESS OF VALIDITY CHECK SAVE AREA 03150002 * (64 BYTES) 03160002 WSALRTM2 DC A(LWSARTM2) - ADDRESS OF RECOVERY TERMINATION MONITOR 03200002 * (RTM) SAVE AREA (80 BYTES) 03210002 WSALSDMP DC A(LWSASDMP) - ADDRESS OF SDUMP SAVE AREA (80 BYTES) 03250002 WSALABTM DC A(LWSAABTM) - ADDRESS OF ABTERM SAVE AREA (80 BYTES) 03300002 WSALCIRB DC A(LWSACIRB) - ADDRESS OF CIRB SAVE AREA (80 BYTES) 03350002 * MDC005 03351002 WSALS2EE DC A(LWSAS2EE) - ADDRESS OF STAGE 2 EXIT EFFECTOR SAVE 03400002 * AREA (80 BYTES) 03450002 WSALEXIT DC A(LWSAEXIT) - ADDRESS OF EXIT (SVC 3) SAVE AREA 03500002 * (128 BYTES) 03510002 WSALPOST DC A(LWSAPOST) - ADDRESS OF POST SAVE AREA (160 BYTES) 03550004 * (MDC303) @Z40EP9A 03560004 WSALWAIT DC A(LWSAWAIT) - ADDRESS OF WAIT SAVE AREA (72 BYTES) 03600002 WSALSTAT DC A(LWSASTAT) - ADDRESS OF STATUS SAVE AREA (72 BYTES) 03650002 WSALSTAE DC A(LWSASTAE) - ADDRESS OF STAE SAVE AREA (112 BYTES) 03700002 * MDC003 03701002 WSALEVNT DC A(LWSAEVNT) - ADDRESS OF EVENTS (FAST MULTIPLE WAIT) 03750003 * SAVE AREA (72 BYTES) (MDC300) @Z30HP9A 03755003 WSALRSM DC A(LWSARSM) - ADDRESS OF REAL STORAGE MANAGEMENT (RSM) 03760002 * SAVE AREA (72 BYTES) (MDC025) YM2689 03770002 WSALACHP DC A(LWSAACHP) - ADDRESS OF ASCB CHAP ROUTINE SAVE AREA 03790002 * (40 BYTES) 03792002 SPACE 2 03793002 DS 0D - LOCAL WORK/SAVE AREAS 03794002 LWSACWSA DC 104XL1'00' - LOW-LEVEL COMMON SAVE AREA 03795002 LWSAVALC DC 64XL1'00' - VALIDITY CHECK SAVE AREA 03796002 LWSARTM2 DC 80XL1'00' - RECOVERY TERMINATION MONITOR (RTM) SAVE 03797002 * AREA 03798002 LWSASDMP DC 80XL1'00' - SDUMP SAVE AREA 03799002 LWSAABTM DC 80XL1'00' - ABTERM SAVE AREA 03799202 LWSACIRB DC 80XL1'00' - CIRB SAVE AREA MDC005 03799402 LWSAS2EE DC 80XL1'00' - STAGE 2 EXIT EFFECTOR SAVE AREA 03799602 LWSAEXIT DC 128XL1'00' - EXIT (SVC 3) SAVE AREA 03799802 LWSAPOST DC 160XL1'00' - POST SAVE AREA (MDC303) @Z40EP9A 03799904 LWSAWAIT DC 72XL1'00' - WAIT SAVE AREA 03800902 LWSASTAT DC 72XL1'00' - STATUS SAVE AREA 03801102 LWSASTAE DC 112XL1'00' - STAE SAVE AREA MDC003 03801202 LWSAEVNT DC 72XL1'00' - EVENTS (FAST MULTIPLE WAIT) SAVE AREA 03801303 * (MDC300) @Z30HP9A 03801403 LWSARSM DC 72XL1'00' - REAL STORAGE MANAGEMENT (RSM) SAVE AREA 03801502 * (MDC025) YM2689 03801602 LWSAACHP DC 40XL1'00' - ASCB CHAP ROUTINE SAVE AREA 03801802 MEXIT 03801902 .WSAVT20 AIF ('&CLASS' EQ 'CPU').WSAVT40 03850002 AIF ('&DSECT' EQ 'NO').WSAVT25 03900002 WSAG DSECT , - GLOBAL WORK/SAVE AREA VECTOR TABLE 03950002 * CVTSPSA POINTS TO THIS AREA 04000002 WSAGPGIO DC A(0) - ADDRESS OF PAGE I/O ERROR SAVE AREA 04030002 * (80 BYTES) 04040002 WSAGGMFM DC A(0) - ADDRESS OF GETMAIN/FREEMAIN SAVE AREA 04042002 * (1168 BYTES) (MDC301) @Z30EN9A 04044003 WSAGRV01 DC A(0) - RESERVED (MDC312) @G64UP9A 04048064 WSAGSSRS DC A(0) - ADDRESS OF SUSPEND/RESET FOR RSM SAVE 04048802 * AREA (80 BYTES) 04049202 WSAGEMS0 DC A(0) - ADDRESS OF MEMORY SWITCH SAVE AREA 04049602 * (56 BYTES) 04049702 WSAGSTAT DC A(0) - ADDRESS OF STATUS SAVE AREA (72 BYTES) 04049802 WSAGOPTM DC A(0) - ADDRESS OF SYSTEM RESOURCES MANAGER (SRM) 04049902 * SAVE AREA (400 BYTES) MDC017 04066602 WSAGMEMT DC A(0) - ADDRESS OF MEMORY TERMINATION SAVE AREA 04076602 * (80 BYTES) 04078602 WSAGNQDQ DC A(0) - ADDRESS OF ENQ/DEQ SAVE AREA (296 BYTES) 04079602 * MDC011 04080002 WSAGREST DC A(0) - ADDRESS OF WORK/SAVE AREA FOR STATUS 04080402 * SAVING BY STOP AND RESTART SUBROUTINE 04080502 * (168 BYTES) MDC018 04085302 WSAGSCHE DC A(0) - ADDRESS OF SCHEDULE ROUTINE (IEAVESC0) 04087302 * SAVE AREA FOR SYSEVENT BRANCH ENTRY 04089302 * INTERFACE (72 BYTES) MDC014 04089702 WSAGEXSN DC A(0) - ADDRESS OF WORK/SAVE AREA FOR EXCESSIVE 04089864 * SPIN NOTIFICATION (400 BYTES) 04089964 * (MDC311) @ZM49391 04090064 WSAGDCCR DC A(0) - ADDRESS OF WORK/SAVE AREA FOR DISABLED 04090164 * CONSOLE COMMUNICATION(1496 BYTES) 04090264 * (MDC313) @ZM49423 04090364 MEXIT 04094264 .WSAVT25 ANOP 04095202 DS 0D 04100002 WSAG EQU * - GLOBAL WORK/SAVE AREA VECTOR TABLE 04150002 * CVTSPSA POINTS TO THIS AREA 04250002 WSAGPGIO DC A(GWSAPGIO) - ADDRESS OF PAGE I/O ERROR SAVE AREA 04350002 * (80 BYTES) 04360002 WSAGGMFM DC A(GWSAGMFM) - ADDRESS OF GETMAIN/FREEMAIN SAVE AREA 04400002 * (1168 BYTES) (MDC301) @Z30EN9A 04410003 WSAGRV01 DC A(GWSARV01) - RESERVED (MDC312) @G64UP9A 04500064 WSAGSSRS DC A(GWSASSRS) - ADDRESS OF SUSPEND/RESET FOR RSM SAVE 04550002 * AREA (80 BYTES) 04600002 WSAGEMS0 DC A(GWSAEMS0) - ADDRESS OF MEMORY SWITCH SAVE AREA 04650002 * (56 BYTES) 04660002 WSAGSTAT DC A(GWSASTAT) - ADDRESS OF STATUS SAVE AREA (72 BYTES) 04700002 WSAGOPTM DC A(GWSAOPTM) - ADDRESS OF SYSTEM RESOURCES MANAGER (SRM) 04750002 * SAVE AREA (400 BYTES) MDC017 04760002 WSAGMEMT DC A(GWSAMEMT) - ADDRESS OF MEMORY TERMINATION SAVE AREA 04800002 * (80 BYTES) 04850002 WSAGNQDQ DC A(GWSANQDQ) - ADDRESS OF ENQ/DEQ SAVE AREA (296 BYTES) 04851002 * MDC011 04861002 WSAGREST DC A(GWSAREST) - ADDRESS OF WORK/SAVE AREA FOR STATUS 04871002 * SAVING BY STOP AND RESTART SUBROUTINE 04881002 * (168 BYTES) MDC018 04891002 WSAGSCHE DC A(GWSASCHE) - ADDRESS OF SCHEDULE ROUTINE (IEAVESC0) 04893002 * SAVE AREA FOR SYSEVENT BRANCH ENTRY 04895002 * INTERFACE (72 BYTES) MDC014 04897002 WSAGEXSN DC A(GWSAEXSN) - ADDRESS OF WORK/SAVE AREA FOR EXCESSIVE 04897764 * SPIN NOTIFICATION (400 BYTES) 04898464 * (MDC311) @ZM49391 04898964 WSAGDCCR DC A(GWSADCCR) - ADDRESS OF WORK/SAVE AREA FOR DISABLED 04899164 * CONSOLE COMMUNICATION(1496 BYTES) 04899364 * (MDC313) @ZM49423 04899564 SPACE 2 04900002 DS 0D - GLOBAL WORK/SAVE AREAS 05050002 GWSAPGIO DC 80XL1'00' - PAGE I/O ERROR SAVE AREA 05150002 GWSAGMFM DC 1168XL1'00' - GETMAIN/FREEMAIN SAVE AREA (MDC301) 05200003 * @Z30EN9A 05250003 GWSARV01 DC 8XL1'00' - RESERVED (MDC312) @G64UP9A 05300064 GWSASSRS DC 80XL1'00' - SUSPEND/RESET FOR RSM SAVE AREA 05350002 GWSAEMS0 DC 56XL1'00' - MEMORY SWITCH SAVE AREA 05400002 GWSASTAT DC 72XL1'00' - STATUS SAVE AREA 05450002 GWSAOPTM DC 400XL1'00' - SYSTEM RESOURCES MANAGER (SRM) SAVE AREA 05500002 * MDC017 05510002 GWSAMEMT DC 80XL1'00' - MEMORY TERMINATION SAVE AREA 05550002 GWSANQDQ DC 296XL1'00' - ENQ/DEQ SAVE AREA MDC011 05551002 GWSAREST DC 168XL1'00' - WORK/SAVE AREA FOR STATUS SAVING BY STOP 05561002 * AND RESTART SUBROUTINE MDC018 05571002 GWSASCHE DC 72XL1'00' - SCHEDULE ROUTINE (IEAVESC0) SAVE AREA FOR 05581002 * SYSEVENT BRANCH ENTRY INTERFACE MDC014 05591002 GWSAEXSN DC 400XL1'00' - WORK/SAVE AREA FOR EXCESSIVE SPIN 05594064 * NOTIFICATION (MDC311) @ZM49391 05596064 GWSADCCR DC 1496XL1'00' - ADDRESS OF WORK/SAVE AREA FOR DISABLED 05597064 * CONSOLE COMMUNICATION(1496 BYTES) 05598064 * (MDC313) @ZM49423 05599064 MEXIT 05600002 .WSAVT40 AIF ('&DSECT' EQ 'NO').WSAVT45 05650002 WSAC DSECT , - CPU WORK/SAVE AREA VECTOR TABLE 05700002 * LCCACPUS POINTS TO THIS AREA 05701002 WSACCWSA DC A(0) - ADDRESS OF LOW-LEVEL COMMON SAVE AREA 05702002 * (104 BYTES) 05703002 WSACGTF DC A(0) - ADDRESS OF GTF SAVE AREA (208 BYTES) 05704064 * (MDC309) @ZM49114 05704364 WSACOPTM DC A(0) - ADDRESS OF SYSTEM RESOURCES MANAGER (SRM) 05705002 * SAVE AREA (192 BYTES) MDC016 05706002 WSACTIME DC A(0) - ADDRESS OF TIMER SAVE AREA (96 BYTES) 05707002 * MDC008 05707202 WSACACR DC A(0) - ADDRESS OF AUTOMATIC CPU RECONFIGURATION 05708002 * (ACR) SAVE AREA (2640 BYTES) 05709064 * (396 BYTES + SOFTWARE FIELDS FROM PSA + 05709264 * SIZE OF MCH FRR STACK AREA + SIZE OF 05709464 * IEAVTRTH SAVE AREA - WSACRTMK) 05709664 * OR ADDRESS OF 8-BYTE RESERVED AREA IF ACR 05709864 * IS NOT IN THE SYSTEM (MDC307) @G64UP9A 05710064 WSACRTMK DC A(0) - ADDRESS OF RECOVERY TERMINATION MONITOR 05711002 * MACHINE CHECK HANDLER (RTM/MACHK) SAVE 05712002 * AREA (88 BYTES) 05713002 WSACIOS DC A(0) - ADDRESS OF IOS (FLIH) SAVE AREA 05714002 * (80 BYTES) 05715002 WSACEDS0 DC A(0) - ADDRESS OF DISPATCHER SAVE AREA 05716002 * (80 BYTES) 05717002 WSACMF1 DC A(0) - ADDRESS OF MEASUREMENT FACILITY 1 SAVE 05718002 * AREA (144 BYTES) MDC019 05719002 WSACABTM DC A(0) - ADDRESS OF ABTERM SAVE AREA (72 BYTES) 05719202 * MDC006 05719402 WSACRSTI DC A(0) - ADDRESS OF I/O RESTART SAVE AREA 05719802 * (128 BYTES) MDC009 05719902 WSACREST DC A(0) - ADDRESS OF WORK/SAVE AREA FOR STATUS 05746602 * SAVING BY STOP AND RESTART SUBROUTINE 05756602 * (80 BYTES) MDC013 05766602 WSACRRSA DC A(0) - ADDRESS OF SUPERVISOR REPAIR ROUTINE 05768602 * SAVE AREA (64 BYTES) MDC022 05770602 WSACCCH DC A(0) - ADDRESS OF RECOVERY MANAGEMENT SERVICES - 05772602 * CHANNEL CHECK HANDLER (RMS-CCH) SAVE AREA 05773002 * (72 BYTES) MDC023 05773102 WSACASMD DC A(0) - ADDRESS OF AUXILIARY STORAGE MANAGEMENT 05775104 * (ASM) DISABLED INTERRUPT EXIT (DIE) 05777104 * WORK/SAVE AREA (256 BYTES) 05779104 * (MDC304) @Z40WP9A 05781104 WSACASMS DC A(0) - ADDRESS OF AUXILIARY STORAGE MANAGEMENT 05783104 * (ASM) SRB DRIVEN I/O ROUTINES WORK/SAVE 05785104 * AREA (512 BYTES) (MDC305) @Z40WP9A 05787104 WSACRV01 DC A(0) - RESERVED @G64UP9A 05789164 WSACDCCR DC A(0) - ADDRESS OF DISABLED CONSOLE COMMUNICATION 05791164 * WORK/SAVE AREA (304 BYTES) 05793164 * (MDC310) @G64UP9A 05795164 MEXIT 05798004 .WSAVT45 ANOP 05800002 DS 0D 05850002 WSAC EQU * - CPU WORK/SAVE AREA VECTOR TABLE 05900002 * LCCACPUS POINTS TO THIS AREA 06000002 WSACCWSA DC A(CWSACWSA) - ADDRESS OF LOW-LEVEL COMMON SAVE AREA 06050002 * (104 BYTES) 06060002 WSACGTF DC A(CWSAGTF) - ADDRESS OF GTF SAVE AREA (208 BYTES) 06100064 * (MDC309) @ZM49114 06110064 WSACOPTM DC A(CWSAOPTM) - ADDRESS OF SYSTEM RESOURCES MANAGER (SRM) 06150002 * SAVE AREA (192 BYTES) MDC016 06160002 WSACTIME DC A(CWSATIME) - ADDRESS OF TIMER SAVE AREA (96 BYTES) 06200002 * MDC008 06201002 AIF ('&ACR' EQ 'NO').WSAVT50 06211002 WSACACR DC A(CWSAACR) - ADDRESS OF AUTOMATIC CPU RECONFIGURATION 06250002 * (ACR) SAVE AREA (2640 BYTES) 06300064 * (396 BYTES + SOFTWARE FIELDS FROM PSA + 06308064 * SIZE OF MCH FRR STACK AREA + SIZE OF 06316064 * IEAVTRTH SAVE AREA - WSACRTMK) 06324064 * (MDC307) @G64UP9A 06332064 AGO .WSAVT51 06352002 .WSAVT50 ANOP 06354002 WSACACR DC A(CWSAACR) - ADDRESS OF 8-BYTE RESERVED AREA (ACR IS 06356002 * NOT IN THE SYSTEM) MDC020 06358002 .WSAVT51 ANOP 06358402 WSACRTMK DC A(CWSARTMK) - ADDRESS OF RECOVERY TERMINATION MONITOR 06360002 * MACHINE CHECK HANDLER (RTM/MACHK) SAVE 06370002 * AREA (88 BYTES) 06380002 WSACIOS DC A(CWSAIOS) - ADDRESS OF IOS (FLIH) SAVE AREA 06400002 * (80 BYTES) 06410002 WSACEDS0 DC A(CWSAEDS0) - ADDRESS OF DISPATCHER SAVE AREA 06450002 * (80 BYTES) 06460002 WSACMF1 DC A(CWSAMF1) - ADDRESS OF MEASUREMENT FACILITY 1 SAVE 06500002 * AREA (144 BYTES) MDC019 06510002 WSACABTM DC A(CWSAABTM) - ADDRESS OF ABTERM SAVE AREA (72 BYTES) 06510202 * MDC006 06510402 WSACRSTI DC A(CWSARSTI) - ADDRESS OF I/O RESTART SAVE AREA 06510802 * (128 BYTES) MDC009 06510902 WSACREST DC A(CWSAREST) - ADDRESS OF WORK/SAVE AREA FOR STATUS 06512302 * SAVING BY STOP AND RESTART SUBROUTINE 06514102 * (80 BYTES) MDC013 06514202 WSACRRSA DC A(CWSARRSA) - ADDRESS OF SUPERVISOR REPAIR ROUTINE 06514302 * SAVE AREA (64 BYTES) MDC022 06517402 WSACCCH DC A(CWSACCH) - ADDRESS OF RECOVERY MANAGEMENT SERVICES - 06519402 * CHANNEL CHECK HANDLER (RMS-CCH) SAVE AREA 06521402 * (72 BYTES) MDC023 06521802 WSACASMD DC A(CWSAASMD) - ADDRESS OF AUXILIARY STORAGE MANAGEMENT 06522204 * (ASM) DISABLED INTERRUPT EXIT (DIE) 06522604 * WORK/SAVE AREA (256 BYTES) 06523004 * (MDC304) @Z40WP9A 06523404 WSACASMS DC A(CWSAASMS) - ADDRESS OF AUXILIARY STORAGE MANAGEMENT 06523804 * (ASM) SRB DRIVEN I/O ROUTINES WORK/SAVE 06524204 * AREA (512 BYTES) (MDC305) @Z40WP9A 06524604 WSACRV01 DC A(CWSARV01) - RESERVED @G64UP9A 06524764 WSACDCCR DC A(CWSADCCR) - ADDRESS OF DISABLED CONSOLE COMMUNICATION 06524864 * WORK/SAVE AREA (304 BYTES) 06524964 * (MDC310) @G64UP9A 06525164 SPACE 2 06525204 DS 0D - CPU WORK/SAVE AREA 06525602 CWSACWSA DC 104XL1'00' - LOW-LEVEL COMMON SAVE AREA 06528702 CWSAGTF DC 208XL1'00' - GTF SAVE AREA (MDC309) @ZM49114 06531864 CWSAOPTM DC 192XL1'00' - SYSTEM RESOURCES MANAGER (SRM) SAVE AREA 06534902 * MDC016 06538002 CWSATIME DC 96XL1'00' - TIMER SAVE AREA MDC008 06541102 AIF ('&ACR' EQ 'NO').WSAVT55 06544202 CWSAACR DC 2640XL1'00' - AUTOMATIC CPU RECONFIGURATION (ACR) 06547364 * SAVE AREA (MDC307) @G64UP9A 06549364 AGO .WSAVT56 06553502 .WSAVT55 ANOP 06556602 CWSAACR DC 8XL1'00' - RESERVED AREA (ACR IS NOT IN THE SYSTEM) 06559702 * MDC020 06562802 .WSAVT56 ANOP 06565902 CWSARTMK DC 88XL1'00' - RECOVERY TERMINATION MONITOR MACHINE 06569002 * CHECK HANDLER (RTM/MACHK) SAVE AREA 06572102 CWSAIOS DC 80XL1'00' - IOS (FLIH) SAVE AREA 06575202 CWSAEDS0 DC 80XL1'00' - DISPATCHER SAVE AREA 06578302 CWSAMF1 DC 144XL1'00' - MEASUREMENT FACILITY 1 SAVE AREA MDC019 06581402 CWSAABTM DC 72XL1'00' - ABTERM SAVE AREA MDC006 06584502 CWSARSTI DC 128XL1'00' - I/O RESTART SAVE AREA MDC009 06587602 CWSAREST DC 80XL1'00' - WORK/SAVE AREA FOR STATUS SAVING BY STOP 06590702 * AND RESTART SUBROUTINE MDC013 06593802 CWSARRSA DC 64XL1'00' - SUPERVISOR REPAIR ROUTINE SAVE AREA 06595802 * MDC022 06596202 CWSACCH DC 72XL1'00' - RECOVERY MANAGEMENT SERVICES - CHANNEL 06596602 * CHECK HANDLER (RMS-CCH) SAVE AREA MDC023 06596702 CWSAASMD DC 256XL1'00' - AUXILIARY STORAGE MANAGEMENT (ASM) 06597104 * DISABLED INTERRUPT EXIT (DIE) WORK/SAVE 06597504 * AREA (MDC304) @Z40WP9A 06597904 CWSAASMS DC 512XL1'00' - AUXILIARY STORAGE MANAGEMENT (ASM) SRB 06598304 * DRIVEN I/O ROUTINES WORK/SAVE AREA 06598704 * (MDC305) @Z40WP9A 06599104 CWSARV01 DC 8XL1'00' - RESERVED @G64UP9A 06599264 CWSADCCR DC 304XL1'00' - DISABLED CONSOLE COMMUNICATION WORK/SAVE 06599364 * AREA (MDC310) @G64UP9A 06599564 MEXIT 06599604 .WSAVT60 AIF ('&CLASS' EQ 'GLOBAL' OR '&CLASS' EQ 'CPU').WSAVT70 06600002 DS 0D - LENGTH TABLE FOR LOCAL WSAVT 06650002 DC H'15' - NUMBER OF ENTRIES IN LOCAL WORK/SAVE 06700002 * AREA VECTOR TABLE 06750002 DC H'170' - TOTAL LENGTH OF LOCAL WORK/SAVE AREA 06800004 * VECTOR TABLE AND ASSOCIATED WORK/SAVE 06801002 * AREAS IN DOUBLEWORDS (MDC303) @Z40EP9A 06802004 DC H'104' - LENGTH OF LOW-LEVEL COMMON WORK/SAVE 06900002 * AREA IN BYTES 06950002 DC H'64' - LENGTH OF VALIDITY CHECK WORK/SAVE AREA 07000002 * IN BYTES 07050002 DC H'80' - LENGTH OF RECOVERY TERMINATION MONITOR 07100002 * (RTM) WORK/SAVE AREA IN BYTES 07110002 DC H'80' - LENGTH OF SDUMP WORK/SAVE AREA IN BYTES 07150002 DC H'80' - LENGTH OF ABTERM WORK/SAVE AREA IN BYTES 07200002 DC H'80' - LENGTH OF CIRB WORK/SAVE AREA IN BYTES 07250002 * MDC005 07251002 DC H'80' - LENGTH OF STAGE 2 EXIT EFFECTOR WORK/ 07300002 * SAVE AREA IN BYTES 07350002 DC H'128' - LENGTH OF EXIT (SVC 3) WORK/SAVE AREA 07400002 * IN BYTES 07450002 DC H'160' - LENGTH OF POST WORK/SAVE AREA IN BYTES 07500004 * (MDC303) @Z40EP9A 07510004 DC H'72' - LENGTH OF WAIT WORK/SAVE AREA IN BYTES 07550002 DC H'72' - LENGTH OF STATUS WORK/SAVE AREA IN BYTES 07600002 DC H'112' - LENGTH OF STAE WORK/SAVE AREA IN BYTES 07650002 * MDC003 07651002 DC H'72' - LENGTH OF EVENTS (FAST MULTIPLE WAIT) 07700003 * WORK/SAVE AREA IN BYTES (MDC300) @Z30HP9A 07730003 DC H'72' - LENGTH OF REAL STORAGE MANAGEMENT (RSM) 07760002 * WORK/SAVE AREA IN BYTES (MDC025) YM2689 07770002 DC H'40' - LENGTH OF ASCB CHAP ROUTINE WORK/SAVE 07790002 * AREA IN BYTES 07792002 DC H'0' - END OF TABLE 07800002 MEXIT 07850002 .WSAVT70 AIF ('&CLASS' EQ 'CPU').WSAVT80 07900002 DS 0D - LENGTH TABLE FOR GLOBAL WSAVT 07950002 DC H'13' - NUMBER OF ENTRIES IN GLOBAL WORK/SAVE 08000064 * AREA VECTOR TABLE (MDC311) @ZM49423 08050064 DC H'544' - TOTAL LENGTH OF GLOBAL WORK/SAVE AREA 08100064 * VECTOR TABLE AND ASSOCIATED WORK/SAVE 08150064 * AREAS IN DOUBLEWORDS (MDC312) @ZM49423 08200064 DC H'80' - LENGTH OF PAGE I/O ERROR WORK/SAVE AREA 08300002 * IN BYTES 08350002 DC H'1168' - LENGTH OF GETMAIN/FREEMAIN WORK/SAVE 08400003 * AREA IN BYTES (MDC301) @Z30EN9A 08470003 DC H'8' - LENGTH OF RESERVED WORK/SAVE AREA IN 08550064 * BYTES (MDC312) @G64UP9A 08560064 DC H'80' - LENGTH OF SUSPEND/RESET FOR RSM WORK/ 08600002 * SAVE AREA IN BYTES 08650002 DC H'56' - LENGTH OF MEMORY SWITCH WORK/SAVE AREA 08700002 * IN BYTES 08750002 DC H'72' - LENGTH OF STATUS WORK/SAVE AREA IN BYTES 08800002 DC H'400' - LENGTH OF SYSTEM RESOURCES MANAGER (SRM) 08850002 * WORK/SAVE AREA IN BYTES MDC017 08900002 DC H'80' - LENGTH OF MEMORY TERMINATION WORK/SAVE 08950002 * AREA IN BYTES 09000002 DC H'296' - LENGTH OF ENQ/DEQ WORK/SAVE AREA IN BYTES 09001002 * MDC011 09011002 DC H'168' - LENGTH OF WORK/SAVE AREA FOR STATUS 09021002 * SAVING BY STOP AND RESTART SUBROUTINE IN 09031002 * BYTES MDC018 09041002 DC H'72' - LENGTH OF SCHEDULE ROUTINE (IEAVESC0) 09043002 * WORK/SAVE AREA FOR SYSEVENT BRANCH 09045002 * ENTRY INTERFACE IN BYTES MDC014 09047002 DC H'400' - LENGTH OF WORK/SAVE AREA FOR EXCESSIVE 09047764 * SPIN NOTIFICATION IN BYTES 09048264 * (MDC311) @ZM49391 09048764 DC H'1496' LENGTH OF WORK/SAVE AREA FOR DISABLED 09049164 * CONSOLE COMMUNICATION (MDC313) @ZM49423 09049564 DC H'0' - END OF TABLE 09050002 MEXIT 09100002 .WSAVT80 ANOP 09150002 DS 0D - LENGTH TABLE FOR CPU WSAVT 09200002 DC H'18' - NUMBER OF ENTRIES IN CPU WORK/SAVE AREA 09250064 * VECTOR TABLE (MDC310) @G64UP9A 09260064 AIF ('&ACR' EQ 'NO').WSAVT85 09270064 DC H'650' - TOTAL LENGTH OF CPU WORK/SAVE 09280064 * AREA (MDC313) @ZM49423 09285064 AGO .WSAVT86 09290064 .WSAVT85 ANOP 09295064 DC H'321' - TOTAL LENGTH OF CPU WORK/SAVE AREA 09300064 * (MDC313) @ZM49423 09305064 .WSAVT86 ANOP 09320064 * VECTOR TABLE AND ASSOCIATED WORK/SAVE 09330064 * AREAS IN DOUBLEWORDS (MDC310) @G64UP9A 09340064 DC H'104' - LENGTH OF LOW-LEVEL COMMON WORK/SAVE 09450002 * AREA IN BYTES 09500002 DC H'208' - LENGTH OF GTF WORK/SAVE AREA IN BYTES 09550064 * (MDC309) @ZM49114 09560064 DC H'192' - LENGTH OF SYSTEM RESOURCES MANAGER (SRM) 09600002 * WORK/SAVE AREA IN BYTES MDC016 09650002 DC H'96' - LENGTH OF TIMER WORK/SAVE AREA IN BYTES 09700002 * MDC008 09701002 AIF ('&ACR' EQ 'NO').WSAVT90 09711002 DC H'2640' - LENGTH OF AUTOMATIC CPU RECONFIGURATION 09750064 * (ACR) WORK/SAVE AREA IN BYTES 09760064 * (MDC307) @G64UP9A 09770064 AGO .WSAVT91 09802002 .WSAVT90 ANOP 09804002 DC H'8' - LENGTH OF RESERVED AREA IN BYTES (ACR IS 09806002 * NOT IN THE SYSTEM) MDC020 09808002 .WSAVT91 ANOP 09808402 DC H'88' - LENGTH OF RECOVERY TERMINATION MONITOR 09810002 * MACHINE CHECK HANDLER (RTM/MACHK) SAVE 09820002 * AREA IN BYTES 09830002 DC H'80' - LENGTH OF IOS (FLIH) WORK/SAVE AREA IN 09850002 * BYTES 09900002 DC H'80' - LENGTH OF DISPATCHER WORK/SAVE AREA IN 09950002 * BYTES 10000002 DC H'144' - LENGTH OF MEASUREMENT FACILITY 1 WORK/ 10050002 * SAVE AREA IN BYTES MDC019 10100002 DC H'72' - LENGTH OF ABTERM WORK/SAVE AREA IN 10101002 * BYTES MDC006 10102002 DC H'128' - LENGTH OF I/O RESTART WORK/SAVE AREA IN 10112002 * BYTES MDC009 10122002 DC H'80' - LENGTH OF WORK/SAVE AREA FOR STATUS 10132002 * SAVING BY STOP AND RESTART SUBROUTINE IN 10142002 * BYTES MDC013 10144002 DC H'64' - LENGTH OF SUPERVISOR REPAIR ROUTINE 10146002 * WORK/SAVE AREA IN BYTES MDC022 10148002 DC H'72' - LENGTH OF RECOVERY MANAGEMENT SERVICES - 10148402 * CHANNEL CHECK HANDLER (RMS-CCH) WORK/SAVE 10148802 * AREA IN BYTES MDC023 10149202 DC H'256' - LENGTH OF AUXILIARY STORAGE MANAGEMENT 10149304 * (ASM) DISABLED INTERRUPT EXIT (DIE) 10149404 * WORK/SAVE AREA IN BYTES (MDC304) @Z40WP9A 10149504 DC H'512' - LENGTH OF AUXILIARY STORAGE MANAGEMENT 10149604 * (ASM) SRB DRIVEN I/O ROUTINES WORK/SAVE 10149704 * AREA IN BYTES (MDC305) @Z40WP9A 10149804 DC H'8' - LENGTH OF RESERVED WORK/SAVE AREA IN 10150064 * BYTES @G64UP9A 10158064 DC H'304' - LENGTH OF DISABLED CONSOLE COMMUNICATION 10166064 * WORK/SAVE AREA IN BYTES 10170064 * (MDC310) @ZM49423 10174064 DC H'0' - END OF TABLE 10182064 MEND , - */ 10200002 *%WSAVTL2 : ; 10250002 *%IF WSALOCAL='NO' % THEN 10350002 * %GOTO WSAVT10; 10400002 * 10450002 *DECLARE 10500002 * 1 WSAL BASED(ASXBSPSA) BDY(DWORD),/* LOCAL WORK/SAVE AREA 10550002 * VECTOR TABLE */ 10600002 * 2 WSALCWSA PTR(31), /* ADDRESS OF LOW-LEVEL 10650002 * COMMON SAVE AREA 10700002 * (104 BYTES) */ 10750002 * 2 WSALVALC PTR(31), /* ADDRESS OF VALIDITY CHECK 10800002 * SAVE AREA (64 BYTES) */ 10850002 * 2 WSALRTM2 PTR(31), /* ADDRESS OF RECOVERY 10900002 * TERMINATION MONITOR (RTM) 10910002 * SAVE AREA (80 BYTES) */ 10920002 * 2 WSALSDMP PTR(31), /* ADDRESS OF SDUMP SAVE 11000002 * AREA (80 BYTES) */ 11050002 * 2 WSALABTM PTR(31), /* ADDRESS OF ABTERM SAVE 11100002 * AREA (80 BYTES) */ 11150002 * 2 WSALCIRB PTR(31), /* ADDRESS OF CIRB SAVE AREA 11200002 * (80 BYTES) MDC005*/ 11250002 * 2 WSALS2EE PTR(31), /* ADDRESS OF STAGE 2 EXIT 11300002 * EFFECTOR SAVE AREA 11350002 * (80 BYTES) */ 11400002 * 2 WSALEXIT PTR(31), /* ADDRESS OF EXIT (SVC 3) 11450002 * SAVE AREA (128 BYTES) */ 11500002 * 2 WSALPOST PTR(31), /* ADDRESS OF POST SAVE AREA 11550002 * (160 BYTES) 11600004 * (MDC303) @Z40EP9A*/ 11610004 * 2 WSALWAIT PTR(31), /* ADDRESS OF WAIT SAVE AREA 11650002 * (72 BYTES) */ 11700002 * 2 WSALSTAT PTR(31), /* ADDRESS OF STATUS SAVE 11750002 * AREA (72 BYTES) */ 11800002 * 2 WSALSTAE PTR(31), /* ADDRESS OF STAE SAVE AREA 11850002 * (112 BYTES) MDC003*/ 11900002 * 2 WSALEVNT PTR(31), /* ADDRESS OF EVENTS (FAST 11950003 * MULTIPLE WAIT) SAVE AREA 11960003 * (72 BYTES) 11970004 * (MDC300) @Z30HP9A*/ 11980004 * 2 WSALRSM PTR(31), /* ADDRESS OF REAL STORAGE 12002002 * MANAGEMENT (RSM) SAVE 12004002 * AREA (72 BYTES) (MDC025) 12006002 * YM2689*/ 12007002 * 2 WSALACHP PTR(31); /* ADDRESS OF ASCB CHAP 12008402 * ROUTINE SAVE AREA 12008802 * (40 BYTES) */ 12009202 *%WSAVT10 : ; 12010002 *%IF WSAGLOBL='NO' % THEN 12050002 * %GOTO WSAVT30; 12100002 * 12150002 *DECLARE 12200002 * 1 WSAG BASED(CVTSPSA) BDY(DWORD), /* GLOBAL WORK/SAVE AREA 12250002 * VECTOR TABLE */ 12300002 * 2 WSAGPGIO PTR(31), /* ADDRESS OF PAGE I/O 12500002 * ERROR SAVE AREA 12550002 * (80 BYTES) */ 12600002 * 2 WSAGGMFM PTR(31), /* ADDRESS OF GETMAIN/ 12650002 * FREEMAIN SAVE AREA 12700002 * (1168 BYTES) 12750003 * (MDC301) @Z30EN9A*/ 12820003 * 2 WSAGRV01 PTR(31), /* RESERVED 12900064 * (MDC312) @G64UP9A*/ 12930064 * 2 WSAGSSRS PTR(31), /* ADDRESS OF SUSPEND/RESET 13000002 * FOR RSM SAVE AREA 13050002 * (80 BYTES) */ 13100002 * 2 WSAGEMS0 PTR(31), /* ADDRESS OF MEMORY SWITCH 13150002 * SAVE AREA (56 BYTES) */ 13200002 * 2 WSAGSTAT PTR(31), /* ADDRESS OF STATUS SAVE 13250002 * AREA (72 BYTES) */ 13300002 * 2 WSAGOPTM PTR(31), /* ADDRESS OF SYSTEM 13350002 * RESOURCES MANAGER (SRM) 13360002 * SAVE AREA (400 BYTES) 13370002 * MDC017*/ 13400002 * 2 WSAGMEMT PTR(31), /* ADDRESS OF MEMORY 13450002 * TERMINATION SAVE AREA 13500002 * (80 BYTES) */ 13550002 * 2 WSAGNQDQ PTR(31), /* ADDRESS OF ENQ/DEQ SAVE 13551002 * AREA (296 BYTES) MDC011*/ 13552002 * 2 WSAGREST PTR(31), /* ADDRESS OF WORK/SAVE AREA 13554002 * FOR STATUS SAVING BY STOP 13556002 * AND RESTART SUBROUTINE 13558002 * (168 BYTES) MDC018*/ 13558402 * 2 WSAGSCHE PTR(31), /* ADDRESS OF SCHEDULE 13558864 * ROUTINE (IEAVESC0) SAVE 13558964 * AREA FOR SYSEVENT BRANCH 13559064 * ENTRY INTERFACE (72 13559164 * BYTES) (MDC014) @G64UP9A*/ 13559264 * 2 WSAGEXSN PTR(31), /* ADDRESS OF WORK/SAVE AREA 13559364 * FOR EXCESSIVE SPIN 13563364 * NOTIFICATION (400 BYTES) 13567364 * (MDC311) @ZM49391*/ 13571364 * 2 WSAGDCCR PTR(31); /* ADDRESS OF WORK/SAVE AREA 13575364 * FOR DISABLED CONSOLE 13579364 * COMMUNICATION (1496 BYTES) 13583364 * (MDC313) @ZM49423*/ 13587364 *%WSAVT30 : ; 13591364 *%IF WSACPU='NO' % THEN 13600002 * %GOTO WSAVT50; 13650002 * 13700002 *DECLARE 13750002 * 1 WSAC BASED(LCCACPUS) BDY(DWORD),/* CPU WORK/SAVE AREA 13800002 * VECTOR TABLE */ 13850002 * 2 WSACCWSA PTR(31), /* ADDRESS OF LOW-LEVEL 13900002 * COMMON SAVE AREA 13950002 * (104 BYTES) */ 14000002 * 2 WSACGTF PTR(31), /* ADDRESS OF GTF SAVE AREA 14050002 * (208 BYTES) 14100064 * (MDC309) @ZM49114*/ 14110064 * 2 WSACOPTM PTR(31), /* ADDRESS OF SYSTEM 14150002 * RESOURCES MANAGER (SRM) 14160002 * SAVE AREA (192 BYTES) 14170002 * MDC016*/ 14200002 * 2 WSACTIME PTR(31), /* ADDRESS OF TIMER SAVE 14250002 * AREA (96 BYTES) MDC008*/ 14300002 * 2 WSACACR PTR(31), /* ADDRESS OF AUTOMATIC CPU 14350002 * RECONFIGURATION (ACR) 14400002 * SAVE AREA (2640 BYTES) 14450064 * (396 BYTES + SOFTWARE 14460064 * FIELDS OF PSA + SIZE OF 14470064 * MCH FRR STACK AREA + SIZE 14480064 * OF IEAVTRTH SAVE AREA - 14490064 * WSACRTMK) OR ADDRESS OF 14500064 * 8-BYTE RESERVED AREA IF 14510064 * ACR IF NOT IN THE SYSTEM 14520064 * (MDC307) @G64UP9A*/ 14530064 * 2 WSACRTMK PTR(31), /* ADDRESS OF RECOVERY 14560002 * TERMINATION MONITOR 14570002 * MACHINE CHECK HANDLER 14580002 * (RTM/MACHK) SAVE AREA 14590002 * (88 BYTES) */ 14592002 * 2 WSACIOS PTR(31), /* ADDRESS OF IOS (FLIH) 14600002 * SAVE AREA (80 BYTES) */ 14650002 * 2 WSACEDS0 PTR(31), /* ADDRESS OF DISPATCHER 14700002 * SAVE AREA (80 BYTES) */ 14750002 * 2 WSACMF1 PTR(31), /* ADDRESS OF MEASUREMENT 14800002 * FACILITY 1 SAVE AREA 14850002 * (144 BYTES) MDC019*/ 14900002 * 2 WSACABTM PTR(31), /* ADDRESS OF ABTERM SAVE 14901002 * AREA (72 BYTES) MDC006*/ 14902002 * 2 WSACRSTI PTR(31), /* ADDRESS OF I/O RESTART 14912002 * SAVE AREA (128 BYTES) 14922002 * MDC009*/ 14932002 * 2 WSACREST PTR(31), /* ADDRESS OF WORK/SAVE AREA 15000002 * FOR STATUS SAVING BY STOP 15050002 * AND RESTART SUBROUTINE 15100002 * (80 BYTES) MDC013*/ 15150002 * 2 WSACRRSA PTR(31), /* ADDRESS OF SUPERVISOR 15250002 * REPAIR ROUTINE SAVE AREA 15300002 * (64 BYTES) MDC022*/ 15350002 * 2 WSACCCH PTR(31), /* ADDRESS OF RECOVERY 15450004 * MANAGEMENT SERVICES - 15500002 * CHANNEL CHECK HANDLER 15550002 * (RMS-CCH) SAVE AREA 15600002 * (72 BYTES) MDC023*/ 15650002 * 2 WSACASMD PTR(31), /* ADDRESS OF AUXILIARY 15654004 * STORAGE MANAGEMENT (ASM) 15658004 * DISABLED INTERRUPT EXIT 15662004 * (DIE) WORK/SAVE AREA 15666004 * (256 BYTES) 15670004 * (MDC304) @Z40WP9A*/ 15674004 * 2 WSACASMS PTR(31), /* ADDRESS OF AUXILIARY 15678064 * STORAGE MANAGEMENT (ASM) 15728064 * SRB DRIVEN I/O ROUTINES 15778064 * WORK/SAVE AREA (512 15828064 * BYTES) (MDC305) @G64UP9A*/ 15878064 * 2 WSACRV01 PTR(31), /* RESERVED @G64UP9A*/ 15928064 * 2 WSACDCCR PTR(31); /* ADDRESS OF DISABLED 15978064 * CONSOLE COMMUNICATION 16028064 * WORK/SAVE AREA (304 16078064 * BYTES) (MDC310) @ZM49423*/ 16128064 *%WSAVT50 : ; 16178064