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