MACRO 00001000
NUCON &SECT 00002000
PUSH PRINT 00002200
AIF ('&SYSPARM' NE 'SUP').ACC01 00002400
PRINT OFF,NOGEN 00002600
.ACC01 ANOP 00002800
LCLC &T 00003000
AIF ('&SECT' EQ 'CSECT').CSECT 00004000
NUCON DSECT 00005000
&T SETC 'V' 00006000
AGO .CONT 00007000
.CSECT ANOP 00008000
NUCON DS 0D 00009000
&T SETC 'A' 00010000
ENTRY NUCON 00011000
ENTRY SYSREF 00012000
ENTRY FEIBM 00013000
ENTRY CMNDLINE 00014000
ENTRY SUBFLAG 00015000
ENTRY IADT 00016000
ENTRY DEVICE 00017000
EXTRN TRANSAR 00018000
.CONT ANOP 00019000
* 00020000
*** NUCON - NUCLEUS CONSTANT AREA 00021000
* 00022000
* 0 +-------------------+-------------------+ 00023000
* | RSTNPSW | RSTOPSW | 00024000
* 10 +-------------------+-------------------+ 00025000
* | ACMSCVT | ASYSREF | EXTOPSW | 00026000
* 20 +-------------------+-------------------+ 00027000
* | SVCOPSW | PGMOPSW | 00028000
* 30 +-------------------+-------------------+ 00029000
* | MCKOPSW | IOOPSW | 00030000
* 40 +-------------------+---------+---------+ 00031000
* | CSW | CAW | NUCRSV1 | 00032000
* 50 +---------+---------+---------+---------+ 00033000
* | TIMER | NUCRSV2 | EXTNPSW | 00034000
* 60 +---------+---------+-------------------+ 00035000
* | SVCNPSW | PGMNPSW | 00036000
* 70 +-------------------+-------------------+ 00037000
* | MCKNPSW | IONPSW | 00038000
* 80 +-------------------+-------------------+ 00039000
* | NUCRSV3 | 00040000
* 90 +---------+----+----+---------+---------+ 00041000
* | NUCRSV4 |N*1 |N*2 | PERADDR | MONCODE | 00042000
* A0 +---------+----+----+---------+---------+ 00043000
* | NUCRSV5 | 00044000
* B0 +---------------------------------------+ 00045000
* | | 00046000
* = LOWSAVE = 00047000
* | | 00048000
* 160 +---------------------------------------+ 00049000
* | | 00050000
* = FPRLOG = 00051000
* | | 00052000
* 180 +---------------------------------------+ 00053000
* | | 00054000
* = GPRLOG = 00055000
* | | 00056000
* 1C0 +---------------------------------------+ 00057000
* | | 00058000
* = ECRLOG = 00059000
* | | 00060000
* 200 +---------------------------------------+ 00061000
* | (CONT) | 00062000
* 00063000
*** NUCON - NUCLEUS CONSTANT AREA 00064000
* 00065000
EJECT 00066000
* 00067000
*** NUCON - NUCLEUS CONSTANT AREA 00068000
* 00069000
* | (CONT) | 00070000
* 200 +---------------------------------------+ 00071000
* | | 00072000
* = SYSTEMID = 00073000
* | | 00074000
* 220 +---------------------------------------+ 00075000
* | | 00076000
* = INSTALID = 00077000
* | | 00078000
* 260 +-------------------+----+----+---------+ 00079000
* | SYSNAME |N*3 |N*4 | NUCRSV6 | 00080000
* 270 +-------------------+----+----+---------+ 00081000
* | FEIBM | 00082000
* 280 +-------------------+-------------------+ 00083000
* | CURRDATE | CURRTIME | 00084000
* 290 +---------+---------+---------+---------+ 00085000
* |CURRVIRT |CURRCPUT |LASTVIRT |LASTCPUT | 00086000
* 2A0 +---------+---------+---------+---------+ 00087000
* | LASTCMND | LASTEXEC | 00088000
* 2B0 +-------------------+-------------------+ 00089000
* | LASTLMOD | LASTTMOD | 00090000
* 2C0 +-------------------+-------------------+ 00091000
* | | 00092000
* = = 00093000
* | | 00094000
* 300 +---------+---------+---------+---------+ 00095000
EJECT 00096000
* MACHINE USAGE 00097000
SPACE 00098000
IPLPSW DS 1D - INITIAL PROGRAM LOADING PSW 00099000
IPLCCW1 DS 1D - INITIAL PROGRAM LOADING CCW1 00100000
IPLCCW2 DS 1D - INITIAL PROGRAM LOADING CCW2 00101000
ORG IPLPSW 00102000
RSTNPSW DS 1D - PSW RESTART NEW PSW 00103000
RSTOPSW DS 1D - PSW RESTART OLD PSW 00104000
ACMSCVT DS 1F - ADDRESS OF SIMULATED OS CVT 00105000
ASYSREF DS 1F - ADDRESS OF NUCLEUS ADDRESS TABLE 00106000
SPACE 00107000
EXTOPSW DS 1D - EXTERNAL OLD PSW 00108000
SVCOPSW DS 1D - SUPERVISOR CALL OLD PSW 00109000
PGMOPSW DS 1D - PROGRAM OLD PSW 00110000
MCKOPSW DS 1D - MACHINE-CHECK OLD PSW 00111000
IOOPSW DS 1D - INPUT/OUTPUT OLD PSW 00112000
SPACE 00113000
CSW DS 1D - CHANNEL STATUS WORD 00114000
CAW DS 1F - CHANNEL ADDRESS WORD 00115000
SPACE 00116000
NUCRSV1 DS 1F - RESERVED FOR FUTURE USE 00117000
TIMER DS 1F - INTERVAL TIMER 00118000
NUCRSV2 DS 1F - RESERVED FOR FUTURE USE 00119000
SPACE 00120000
EXTNPSW DS 1D - EXTERNAL NEW PSW 00121000
SVCNPSW DS 1D - SUPERVISOR CALL NEW PSW 00122000
PGMNPSW DS 1D - PROGRAM NEW PSW 00123000
MCKNPSW DS 1D - MACHINE-CHECK NEW PSW 00124000
IONPSW DS 1D - INPUT/OUTPUT NEW PSW 00125000
SPACE 00126000
CPULOG DS 48D - CPU LOGOUT AREA 00127000
ORG CPULOG 00128000
NUCRSV3 DS 2D - RESERVED FOR FUTURE USE 00129000
NUCRSV4 DS 1F - RESERVED FOR FUTURE USE 00130000
MONCLASS DS 1H - N*1 - MONITOR CALL CLASS NUMBER 00131000
PERCODE DS 1H - N*2 - PROGRAM EVENT RECORDER CODE 00132000
PERADDR DS 1F - PROGRAM EVENT RECORDER ADDRESS 00133000
MONCODE DS 1F - MONITOR CALL CODE 00134000
NUCRSV5 DS 4D - RESERVED FOR FUTURE USE 00135000
SPACE 00136000
LOWSAVE DS XL160 - SAVE AREA FOR 1ST 160 BYTES OF STORAGE 00137000
SPACE 00138000
FPRLOG DS 4D - FLOATING POINT REGISTER LOGOUT AREA 00139000
GPRLOG DS 16F - GENERAL PURPOSE REGISTER LOGOUT AREA 00140000
ECRLOG DS 16F - EXTENDED CONTROL REGISTER LOGOUT AREA 00141000
SPACE 00142000
EJECT 00143000
* SYSTEM USAGE 00144000
SPACE 00145000
SYSTEMID DS CL32 - SYSTEM NAME AND DATE 00146000
INSTALID DS CL64 - INSTALLATION IDENTIFICATION 00147000
SYSNAME DS CL8 - NAME OF IPLED SAVED SYSTEM 00148000
IPLADDR DS 1H - N*3 - ADDRESS OF IPLED DEVICE 00149000
SYSADDR DS 1H - N*4 - ADDRESS OF SYSTEM DISK 00150000
DEVICE DS 1F - NAME OF DEVICE CAUSING LAST I/O INTERRUPT 00151000
ABNCOMND DC F'0' ADDRESS OF ABEND COMMAND HRC009DS 00152490
FEIBM DC CL12'FEIBM154067' - FE SERVICE NUMBER 00153000
SPACE 00154000
DIAGTIME DS CL24 - BUFFER FOR DIAGNOSE TIMER 00155000
ORG DIAGTIME 00156000
CURRDATE DS CL8 - CURRENT DATE - MM/DD/YY 00157000
CURRTIME DS CL8 - CURRENT TIME - HH.MM.SS 00158000
CURRVIRT DS 1F - CURRENT ELAPSED VIRTUAL TIME USED 00159000
CURRCPUT DS 1F - CURRENT ELAPSED CPU TIME USED 00160000
LASTVIRT DS 1F - PREVIOUS ELAPSED VIRTUAL TIME USED 00161000
LASTCPUT DS 1F - PREVIOUS ELAPSED CPU TIME USED 00162000
SPACE 00163000
LASTCMND DC CL8' ' - LAST COMMAND ISSUED 00164000
PREVCMND DC CL8' ' - NEXT TO LAST COMMAND 00165000
LASTEXEC DC CL8' ' - LAST EXEC PROCEDURE 00166000
PREVEXEC DC CL8' ' - NEXT TO LAST EXEC 00167000
SPACE 00168000
LASTLMOD DC CL8' ' LAST MODULE LOADMODED INTO MAIN STORAGE 00169000
LASTTMOD DC CL8'ACCESS' LAST MODULE LOADMODED INTO TRANSIENT AREA 00170000
SPACE 00171100
DATIPCMS DC D'0' DATE (MM/DD/YY) AT LAST IPL CMS 00171200
CLKVALMD DC D'0' TIME (STCK FORM) AT MIDNIGHT (0000 HOURS) 00171300
SPACE 00172000
* MACRO AND TEXT LIBRARY POINTERS 00173000
MACDIRC DC 8A(0) - ADDRESS OF MACRO LIBRARY DIRECTORIES 00174000
MACLIBL DC 18F'-1' - CURRENT MACRO LIBRARY NAMES 00175000
TXLIBSV DC F'0' LIBE SAVE AREA TXTLIBS @VM04102 00175400
MACLBSV DC F'0' LIBE SAVE AREA MACLIBS @VM04102 00175800
TOTLIBS DC F'0' TOTAL GLOBAL CHAINS (BYTES) @VM04102 00176200
TXTDIRC DC A(0) - ADDRESS OF TEXT LIBRARY DIRECTORIES 00177000
TXTLIBS DC 18F'-1' - CURRENT TEXT LIBRARY NAMES 00178000
SPACE 00179000
* DEBUG DUMP PARAMETERS 00180000
DUMPLIST DS 0D - DEBUG DUMP PARAMETER LIST 00181000
GRS015 DC A(GPRLOG) - ADDRESS OF GPR SAVE AREA 00182000
LOC0176 DC A(LOWSAVE) - ADDRESS OF LOW CORE SAVE AREA 00183000
FIRSTDMP DC A(0) - ADDRESS OF FIRST LOCATION TO DUMP 00184000
LASTDMP DC A(0) - ADDRESS OF LAST LOCATION TO DUMP 00185000
FRS06 DC A(FPRLOG) - ADDRESS OF FPR SAVE AREA 00186000
DMPTIT DC A(DMPTITLE) - ADDRESS OF DUMP TITLE LINE 00187000
DC 4X'FF' - RESERVED FOR FUTURE USE 00188000
DMPTITLE DC CL132' ' - DUMP TITLE LINE 00189000
SPACE 00190000
GLBLTABL DC F'0' RESERVED 00191100
DC H'0' RESERVED FOR ALIGNMENT 00191200
SPACE 1 00191300
SVC$202 SVC 202 COMMON SVC FOR REENTRANT CODE 00191400
ERR$202 DC A(*+4) USER WILL FILL IN IF NECESSARY 00191500
BR 14 RETURN TO CALLER 00191600
SPACE 1 00191700
DC H'0' RESERVED FOR FUTURE USE 00191800
SPACE 1 00191900
SPACE 00192000
* BATCH MONITOR INFORMATION 00193000
BATFLAGS DC 1X'00' - BATCH FLAGS 00194000
BATRUN EQU X'80' - BATCH MONITOR RUNNING 00195000
BATLOAD EQU X'40' - LOADING BATCH PROCESSOR 00196000
BATNOEX EQU X'20' - SUPPRESS USER JOB EXECUTION 00197000
BATRERR EQU X'10' - BATCH READER ERROR 00198000
BATCPEX EQU X'08' - CP COMMAND EXECUTING 00199000
BATUSEX EQU X'04' - USER JOB EXECUTING 00200000
BATMOVE EQU X'02' - MOVEFILE EXECUTING FROM TERMINAL 00201000
BATTERM EQU X'01' - USER JOB BEING FLUSHED 00202000
SPACE 00203000
BATFLAG2 DC 1X'00' - MORE BATCH FLAGS 00204000
BATXLIM EQU X'80' - USER JOB LIMIT EXCEEDED 00205000
BATXCPU EQU X'40' - CPU TIME EXCEEDED 00206000
BATXPRT EQU X'20' - NO. PRINTED LINES EXCEEDED 00207000
BATXPUN EQU X'10' - NO. PUNCHED CARDS EXCEEDED 00208000
BATDCMS EQU X'08' - DISABLED CMS COMMAND CALLED 00209000
BATIPLSS EQU X'04' - BATCH IPLING SAVED SYSTEM 00210100
BATSTOP EQU X'02' - BATCH STOPPING AFTER CURRENT JOB 00211000
BATSYSAB EQU X'01' SYSTEM ABEND IN PROCESS @VA05162 00211100
DC 2X'00' - RESERVED FOR FUTURE USE 00212000
SPACE 00213000
* BATCH PROCESSOR ENTRY POINTS 00214000
ABATPROC DC A(0) - MAIN ENTRY 00215000
ABATABND DC A(0) - USER JOB ABEND ENTRY 00216000
ABATLIMT DC A(0) - USER JOB LIMITS TABLE 00217000
AUSERRST DC A(0) VIRTUAL MACHINE RESTART ENTRY POINT @V60C5BE 00218500
NUSERFWD DC F'0' FULLWORD FOR EXCLUSIVE USE OF USER @VMI0066 00218610
NUCRSV7 DC 1F'0' - RESERVED FOR FUTURE USE @VMI0066 00218710
SPACE 00219000
* DOS LIBRARY POINTERS 00220050
DOSLBSV DC F'0' LIBE SAVE AREA DOSLIBS @VM04102 00220060
DOSDIRC DC 8A(0) - ADDRESS OF DOS LIBRARY DIRECTORIES 00220075
DOSLIBL DC 18F'-1' - CURRENT DOS LIBRARY NAMES 00220100
DOSFLAGS DC X'00' - DOS SIMULATION FLAGS 00220125
DOSMODE EQU X'80' - DOS ENVIRONMENT FLAG 00220150
DOSSVC EQU X'40' - DOS SVC SIMULATION FLAG 00220175
DOSVSAM EQU X'20' - DOS VSAM RUNNING FLAG 00220200
DOSCOMP EQU X'10' - DOS COMPILER RUNNING FLAG 00220225
DOSPIO EQU X'08' DOS PRINTER INDICATOR 00220250
VSMINSTL EQU X'04' VSAM INSTAL FLAG TO RELOCATE DCSS TABLE 00220260
DOSRC DC X'00' - DOS RETURN CODE TO USER 00220275
DC 2X'00' - RESERVED FOR FUTURE USE 00220300
ALTASAVE DC &T.(LTASAVE) - ADDRESS OF LTA SAVE AREA 00220325
ABGCOM DC &T.(BGCOM) - ADDRESS OF PARTITION COMM. REGION 00220350
ASYSCOM DC &T.(SYSCOM) - ADDRESS OF SYSTEM COMM. REGION 00220375
ADOSDCSS DC A(0) - ADDRESS OF DOS DCSS 00220400
SVC12SAV DC F'0' - WORK AREA FOR SVC12 00220425
DOSFIRST DC A(0) - ADDRESS OF FIRST DOSCB IN CHAIN 00220450
DOSNUM DC H'0' - NUMBER DOSCB'S IN CHAIN 00220475
DOSKPART DC H'0' - NUMBER K-BYTES IN DOS PARTITION 00220500
APPSAVE DC &T.(PPSAVE) - ADDRESS OF PROB. PROG. SAVE AREA 00220525
DOSTRANS DC A(0) ADDRESS OF DOS TRANSIENT AREA 00220550
SPACE 00221000
* FREE STORAGE POINTERS 00222000
MAINLIST DC A(0) - ADDR 1ST BLK USER FREE STORAGE 00223000
MAINSTRT DC V(USERAREA) - ADDRESS OF THE START OF USER FREE STORAGE 00224000
FREELIST DC &T.(NUCEND) - ADDRESS OF 1ST BLOCK OF SYSTEM STORAGE 00225000
FREENUM DC F'1' - NUMBER OF BLOCKS OF SYSTEM STORAGE 00226000
MAINHIGH DC V(USERAREA) - HIGH EXTEND OF USER FREE STORAGE 00227000
FREELOWE DC &T.(NUCEND) - LOW EXTEND OF SYSTEM FREE STORAGE 00228000
FREELOWR DC &T.(TRANSAR) - LOWER LIMIT OF SYSTEM FREE STORAGE 00229000
FREEUPPR DC A(0) - UPPER LIMIT OF SYSTEM FREE STORAGE 00230000
ANUCEND DC &T.(NUCEND) - ADDRESS OF END OF NUCLEUS STORAGE AREA 00231000
AUSRAREA DC V(INITSUB) - ADDRESS OF BEGINNING OF USER AREA 00232000
CURRSAVE DC A(0) - ADDRESS OF CURRENT SAVE AREA 00233000
CODE203 DC H'0' - CODE NUMBER OF LAST SVC 203 00234000
FRERESPG DC H'2' - AMOUNT OF USER STORAGE TO RESERVE *00235000
FOR CMS FREE STORAGE (PAGES: >=2) 00235010
ADMSFRT DC &T.(DMSFRT) DMSFRE WORK AREA 00236000
SPACE 00237000
* V-CONSTANTS FOR CALLING "ADTLKP/ADTNXT/ADTLKW" VIA BALR CALLS: 00237100
VCADTLKP DC V(DMSLAD) BALR EQUIVALENT OF "ADTLKP" 00237200
VCADTNXT DC V(DMSLADN) BALR EQUIVALENT OF "ADTNXT" 00237300
VCADTLKW DC V(DMSLADW) BALR EQUIVALENT OF "ADTLKW" 00237400
SPACE 00238000
* CONSOLE I/O POINTERS 00239000
CURRIOOP DC A(0) - ADDRESS OF CURRENT I/O BUFFER 00240000
PENDREAD DC A(0) - ADDRESS OF PENDING READ OPERATION 00241000
PENDWRIT DC A(CONSTACK) - ADDRESS OF PENDING WRITE OPERATION 00242000
FSTFINRD DC A(0) - ADDRESS OF FINISHED READ BUFFER 00243000
LSTFINRD DC A(0) - ADDRESS OF LAST FINISHED READ BUFFER 00244000
AINTRTBL DC A(0) - ADDRESS OF USER INPUT TRANSLATE TABLE 00245000
AOUTRTBL DC A(0) - ADDRESS OF USER OUTPUT TRANSLATE TABLE 00246000
NUMFINRD DC H'0' - NUMBER OF FINISHED READ BUFFERS 00247000
NUMPNDWR DC H'0' - NUMBER OF PENDING WRITE OPERATIONS 00248000
SPACE 00249000
* LOADER INFORMATION 00250000
VMSIZE DS 1F - VIRTUAL MEMORY SIZE 00251000
ALDRTBLS DC 1F'0' ADDRESS OF LOADER TABLES 00252000
STRTADDR DC 1F'0' MODULE STARTING ADDRESS 00252100
FRSTLOC DC 1F'0' MODULE BEGINNING ADDRESS 00252200
LASTLOC DC 1F'0' MODULE ENDING ADDRESS 00252300
LOCCNT DC 1F'0' LOADER LOCATION COUNTER 00252400
LDRADDR DC 1F'0' LOADER RETURN ADDRESS 00252500
LDRRTCD DC 1F'0' LOADER RETURN CODE 00252600
PSW DC 1D'0' USER'S STARTING PSW 00252700
LDRFLAGS DC 1F'0' LOADER FLAGS 00252800
PRHOLD DC 1F'0' PSEUDO REGISTER COUNTER 00252900
TBENT DC H'0' INITIALIZE TABLE ENTRIES TO 00262000
* ZEROES 00262100
UNRES DC X'00' 00263050
MODFLGS DC 1X'00' MOD FLAGS 00263150
NOMAPFLG EQU X'80' NOMAP FLAG 00263200
CLEAROP EQU X'40' CLEAR OPTION FLAG 00263250
MODGNDOS EQU X'20' MODULE GENERATED WITH DOS OPTION 00263300
MODGNALL EQU X'10' MODULE GENERATED WITH ALL OPTION 00263350
SYSLOAD EQU X'08' ALLOW LOAD >FREELOWE OR <TRANS @VA04666 00263410
MDPCALL EQU X'04' INDICATE CALL FROM DMSMDP 00263450
MOD6 EQU X'02' RESERVED FOR FUTURE USE 00263500
MOD7 EQU X'01' RESERVED FOR FUTURE USE 00263550
GET1 DC 1F'0' DMSLSY R1 SAVE LOC 00264000
DSYM DC 2F'0' - DMSLSY WORK SPACE 00265000
JSYM DC F'0' - DMSLSY UNIQUE SYMBOL BASE 00266000
NXTSYM DC C'Z' - 1ST CHAR OF UNIQUE SYMBOL 00267000
DC XL7'0' - REST OF UNIQUE SYMBOL 00268000
ALIASENT DC 1F'0' ALIAS ENTRY POINT (DYNAMIC LOAD) 00269000
DYNAEND DC 1F'0' MAX. LOAD LOC (DYNAMIC LOAD) 00269100
OSMODLDW DC F'0' SIZE OF OS SIM. IN DWORDS @VA05055 00271100
DS 2F RESERVED FOR FUTURE USE @VA05055 00271150
SPACE 00272000
* OS SIMULATION POINTERS 00273000
FCBTAB DS 0D - FCB CHAIN ANCHOR 00274000
FCBFIRST DC A(0) - ADDRESS OF FIRST FCB 00275000
FCBNUM DC H'0' - NUMBER OF FCB'S IN CHAIN 00276000
DC X'00' - RESERVED FOR WPL **************** 00277000
OSSFLAGS DC X'00' - OS SIMULATION FLAGS 00278000
COMPSWT EQU X'80' - COMPILER SWITCH 00279000
OSSMNU EQU X'40' - DMSSMN UNCONDITIONAL FLAG 00280000
OSRESET EQU X'20' - 00281000
OSWAIT EQU X'10' 00281100
DYLD EQU X'08' - DYNAMIC LOADING IN PROCESS 00282000
DYLIBO EQU X'04' - OMIT DYNAMIC LIBRARY SCAN 00283000
DYLIBNOW EQU X'02' - DYNAMIC LIBRARY SCAN 00284000
DYMBRNM EQU X'01' - LINKED VIA MEMBER NAME 00285000
DC A(0) - RESERVED FOR WPL **************** 00286000
LINKLAST DC A(0) - ADDRESS OF LAST OS LINKAGE BLOCK 00287000
LINKSTRT DC A(0) - ADDRESS OF ENTRY POINT OF LAST MODULE 00288000
TAXEADDR DC A(0) - TERMINAL ATTENTION EXIT ELEMENT ADDRESS 00289000
ATSOCPPL DC &T.(CPPL) - ADDRESS OF TMP PLIST FOR TSO PROGRAMS 00290000
DCBSAV DC 1F'0' DCB RESTORATION ADDRESS 00291000
SPACE 00292000
* SWITCHES 00293000
OPTFLAGS DC 1X'00' - OPTION FLAGS 00294000
NOIMPEX EQU X'80' - NO IMPLIED EXEC COMMANDS 00295000
NOIMPCP EQU X'40' - NO IMPLIED CP COMMANDS 00296000
NOSTDSYN EQU X'20' - NO STANDARD SYNONYMS 00297000
NOABBREV EQU X'10' - NO COMMAND ABBREVIATIONS 00298000
NOPAGREL EQU X'08' - NO AUTOMATIC PAGE RELEASE 00299000
NOVMREAD EQU X'04' - NO AUTOMATIC VM CONSOLE READ 00300000
SPACE 00301000
MISFLAGS DC 1X'00' - MISCELLANEOUS FLAGS 00302000
KXSWITCH EQU X'80' - KILL EXECUTION SWITCH 00303000
KOSWITCH EQU X'40' - KILL TRACING SWITCH 00304000
RELPAGES EQU X'20' - RELEASE PAGES SWITCH 00305000
GRAFDEV EQU X'10' - GRAPHICS CONSOLE 00306000
QSWITCH EQU X'08' - QUIET SW FOR CRD 00307000
NODDSK EQU X'04' - DON'T ACCESS D DISK.. 00308000
NEGITS EQU X'02' NEGATIVE RETURN CODE FROM DMSITS 00309000
ATTNHIT EQU X'01' ATTENTION POSTED @VA05051 00310100
SPACE 00311000
MSGFLAGS DC 1X'00' - MESSAGE FLAGS 00312000
NOTYPOUT EQU X'80' - NO TYPING - SET BY EXEC 00313000
NOTYPING EQU X'40' - NO TYPING - SET BY KT 00314000
NORDYMSG EQU X'20' - NO READY MESSAGE TO BE TYPED 00315000
NORDYTIM EQU X'10' - NO TIME ON READY MESSAGE 00316000
REDERRID EQU X'08' - ERROR CODE TO BE TYPED IN RED 00317000
NOERRMSG EQU X'04' - NO ERROR MESSAGES TO BE TYPED 00318000
NOERRTXT EQU X'02' - NO TEXT ON ERROR MESSAGES 00319000
SPECLF EQU X'01' - LINEFEED FOR TYPEWRITER CCW 00319100
SPACE 00320000
DBGFLAGS DC 1X'00' - DEBUG FLAGS 00321000
DBGEXEC EQU X'80' - DEBUG EXECUTING 00322000
DBGPGMCK EQU X'40' - DEBUG ENTERED BY A PROGRAM CHECK 00323000
DBGEXINT EQU X'20' - DEGUB ENTERED BY AN EXTERNAL INTERRUPT 00324000
DBGABN EQU X'10' - DEBUG ENTERED FROM DMSABN 00325000
DBGNSHR EQU X'08' - NO SHARED-SEGMENT PRESENT 00326000
DBGSHR EQU X'04' - SHARED-SEGMENT PRESENT 00327000
DBGRECUR EQU X'02' - RECURSION FLAG 00328000
SPACE 00329000
DC 2X'00' - RESERVED 00330000
SPACE 00331000
EXECFLAG DC 1X'00' - EXEC FLAGS 00332000
EXECRUN EQU X'80' - EXEC COMMAND RUNNING 00333000
SPACE 00334000
PROTFLAG DC 1X'00' - STORAGE PROTECTION FLAGS 00335000
PRFPOFF EQU X'80' - STORAGE PROTECTION IS SHUT OFF 00336000
PRFTSYS EQU X'40' - SYSTEM ROUTINE IN TRANSIENT AREA 00337000
PRFUSYS EQU X'20' - SYSTEM ROUTINE IN USER AREA 00338000
SPACE 00339000
TSOFLAGS DC 1X'00' - TSO FLAG BYTE 00340000
TSOATCNL EQU X'80' - READ CANCELED BY ATTENTION 00341000
SPACE 00342000
SUBFLAG DC 1X'00' - CMS SUBSET FLAG-BYTE 00343000
SUBREJ EQU X'08' SUBSET COMMAND REJECT 00343100
SUBRTN EQU X'04' - SUBSET-RETURN 00344000
SUBINIT EQU X'02' - SUBSET INITIALIZATION 00345000
SUBACT EQU X'01' - SUBSET ACTIVE 00346000
SPACE 00347000
DCSSFLAG DC X'00' DCSS INDICATORS 00348100
DCSSAVAL EQU X'80' CMSSEG SEGMENT EXISTS 00348200
DCSSLDED EQU X'40' CMSSEG LOADED 00348300
DCSSCPNV EQU X'20' CP OR NOTVALID COMMAND ISSUED 00348400
DCSSLDSD EQU X'10' LOADING 'S' DISK 00348500
DCSSVTNA EQU X'08' SVT MODULE NOT AVAILABLE 00348600
DCSSVTLD EQU X'04' SVT MODULE IS LOADED 00348700
DCSSOVLP EQU X'02' VM STORAGE OVERLAY BY DCSS 00348800
DCSSJLNS EQU X'01' CMSSEG JUST LOADED NON-SHARED 00348900
SPACE 1 00349000
DC X'00' RESERVED FOR FUTURE USE 00349100
ASYSNAMS DC &T.(SYSNAMES) - 00349200
ACMSSEG DC F'0' ADR OF CMS SAVED SEGMENT 00349300
ADMSLIO DC V(DMSLIO) 00349400
SPACE 00349500
* V-CONSTANTS FOR CALLING "FSTLKP/FSTLKW" VIA BALR CALLS: 00349600
VCFSTLKP DC V(DMSLFS) BALR EQUIVALENT OF "FSTLKP" 00349700
VCFSTLKW DC V(DMSLFSW) BALR EQUIVALENT OF "FSTLKW" 00349800
EJECT 00350000
* NUCLEUS ADDRESS TABLE 00351000
SPACE 00352000
SYSREF DS 0D 00353000
AFVS DC &T.(FVS) - 00354000
AOPSECT DC &T.(OPSECT) - 00355000
ADEVTAB DC &T.(DEVTAB) - 00356000
AFSTLKP DC V(FSTLKP) - 00357000
AGETCLK DC V(DMSINM) - 00358000
AFSTLKW DC V(FSTLKW) - 00359000
APIE DC &T.(PIE) - 00360000
AIADT DC &T.(IADT) - 00361000
AUSER DC &T.(USERSECT) - 00362000
ARDTK DC V(DMSDIOR) - 00363000
ASCANN DC V(DMSSCNN) - 00364000
ASSTAT DC A(0) - 00365000
ATABEND DC &T.(TABEND) - 00366000
ASUBSECT DC &T.(SUBSECT) - 00367000
AOSMODL DC A(0) 00368100
AWRTK DC V(DMSDIOW) - 00369000
ASTRINIT DC V(DMSSTGST) 00370100
IADT DC &T.(ADTSECT) - 00371000
AFREE DC V(FREE) - 00372000
AFRET DC V(FRET) - 00373000
ADMSPIOC DC V(DMSPIOCC) - 00374000
APGMSECT DC &T.(PGMSECT) - 00375000
AIOSECT DC &T.(IOSECT) - 00376000
ADMPEXEC DC V(DMSDBD) - 00377000
ADIOSECT DC &T.(DIOSECT) - 00378000
AABNSVC DC V(DMSABNUA) 00379100
ADMSERL DC &T.(DMSERL) - 00380000
ADMSCRD DC V(DMSCRD) - 00381000
ADMSFREB DC V(DMSFREB) - 00382000
ASVCSECT DC &T.(SVCSECT) - 00383000
AADTLKP DC V(ADTLKP) - 00384000
AUPUFD DC V(DMSAUDUP) - 00385000
ASTATEXT DC A(0) - 00386000
AOSRET DC V(OSRET) - 00387000
ACMSRET DC V(CMSRET) - 00388000
ASCANO DC V(DMSSCNO) - 00389000
AEXEC DC V(DMSEXC) - 00390000
ASTART DC V(DMSLDRA) 00391000
AADTLKW DC V(ADTLKW) - 00392000
AUSABRV DC &T.(USABRV) - 00393100
AEXTSECT DC &T.(EXTSECT) - 00394000
ASCBPTR DC &T.(SCBPTR) - 00395000
ADMSROS DC A(0) - 00396000
LDMSROS DC H'0' - 00397000
CDMSROS DC H'0' - 00398000
AACTLKP DC V(DMSLAF) - 00399000
AACTNXT DC V(DMSLAFNX) - 00400000
AACTFREE DC V(DMSLAFFE) - 00401000
AACTFRET DC V(DMSLAFFT) - 00402000
AADTNXT DC V(ADTNXT) 00403000
ATRKLKP DC V(DMSTRK) - 00404000
ATRKLKPX DC V(DMSTRKX) - 00405000
AQQTRK DC V(DMSTQQ) - 00406000
AQQTRKX DC V(DMSTQQX) - 00407000
AERASE DC V(DMSERS) - 00408000
ATYPSRCH DC V(TYPSRCH) 00409000
AUPDISK DC V(DMSAUD) - 00410000
AKILLEX DC V(KILLEX) 00411000
ATFINIS DC V(DMSFNST) - 00412000
ARDBUF DC V(DMSBRD) - 00413000
AWRBUF DC V(DMSBWR) - 00414000
AFINIS DC V(DMSFNS) - 00415000
ASTATE DC V(DMSSTTE) 00416000
ASTATEW DC V(DMSSTTW) 00417000
APOINT DC V(POINT) - 00418000
EJECT 00419000
* TERMINAL BUFFERS 00420000
SPACE 00421000
DS 0D 00422000
CONCCWS CCW 0,0,X'60',0 CONSOLE READ AND WRITE CCW 00423000
CCW 3,0,X'20',1 NOP TO GET CE AND DE TOGETHER 00424000
SPACE 00425000
CONINBLK DC A(0) - 00426000
DC XL1'0A' - 00427000
DC AL1(134) - 00428000
CONINBUF DS CL134 - 00429000
DS 0D 00430000
CMNDLINE DS CL160 - 00431000
DS 0D 00432000
DC CL8'EXEC' - 00433000
CMNDLIST DS CL536 - 00434000
DS 0D 00435000
CONSTACK DS CL320 - 00436000
SPACE 3 00437000
* SAVE AREAS 00438000
SPACE 00439000
FREESAVE DS 16F - 00440000
BALRSAVE DS 16F - 00441000
WAITSAVE DS 16F - 00442000
EJECT 00443100
* VSAM AND AMSERV CONTROL WORDS: 00443150
DS 0D 00443200
* PERCENT OF AVAILABLE USER STORAGE TO RESERVE 00443250
* FOR GETVIS/FREEVIS USE WHEN RUNNING VSAM: 00443300
PCTVSAM DC H'50' - 50 PERCENT FOR CMS/VSAM USE 00443350
DS 1H - RESERVED FOR FUTURE USE 00443400
DS 1F - RESERVED FOR FUTURE USE 00443450
SPACE 00443500
* BEGINNING AND END OF "IKQLAB" (WHEN IN STORAGE): 00443550
ADIKQLAB DC A(X'FFFFFF') - SET TO A(IKQLAB) WHEN IT IS IN STORAGE 00443600
NDIKQLAB DC A(0) - SET TO END OF IKQLAB WHEN IN STORAGE 00443650
SPACE 00443700
ARURTBL DC &T.(RURTBL) - VSAM RESOURCE TABLE ADDR 00443750
ADMSVIB DC V(DMSVIB) - ADDR OF VSAM INTERFACE BOOTSTRAP 00443760
AVIPWORK DC A(0) - ADDRESS OF DMSVIP WORK AREA 00443800
VSAMFLG1 DC X'00' - VSAM INFORMATION FLAG 00443850
VSAMRUN EQU X'80' - VSAM SYSTEM LOADED 00443900
VSJOBCAT EQU X'40' - VSAM JOB CATALOG ACTIVE 00443950
VIPINIT EQU X'20' - DMSVIP HAS BEEN INITIALIZED 00444000
VSAMSERV EQU X'10' - CMS/AMS SYSTEM LOADED (AMSERV RUNNING) 00444050
VIPSOP EQU X'08' - OS INTERFACE SVC 2 CALL 00444075
VIPTCLOS EQU X'04' - OS 'TCLOSE' CALL 00444080
VSAMSOS EQU X'02' - OS AMSERV RUNNING 00444085
DS 3X - RESERVED FOR FUTURE USE 00444100
AVSAMSYS DC A(0) - ADDR OF VSAM SAVED SYSTEM 00444150
AAMSSYS DC A(0) - ADDR OF CMSAMS SAVED SYSTEM 00444200
AVSREOJ DC V($$BEOJ4) - DMSVSR ENTRY POINT FROM VSAM $$BACLOS 00444250
AVSRWORK DC A(0) - ADDR OF DMSVSR WORKAREA 00444300
ACBLIST DC A(0) - ACB LIST BUILT BY OPEN/CLOSE 00444350
DS 3F - RESERVED FOR FUTURE USE 00444400
DS 0D 00445000
EJECT 00446000
POP PRINT 00446100
MEND 00447000