ibm:vm370-lib:macro:nucon.macro_src
Table of Contents
NUCON Source
References
- Fixes Applied : 2
- This Source Date : Monday, January 15, 1979
- Last Fix ID : [HRC309DM]
Source Listing
- NUCON.MACRO.txt
- 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
ibm/vm370-lib/macro/nucon.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator