2A0 LASTCMND DC CL8' ' - LAST COMMAND ISSUED 2A8 PREVCMND DC CL8' ' - NEXT TO LAST COMMAND 2B0 LASTEXEC DC CL8' ' - LAST EXEC PROCEDURE 2B8 PREVEXEC DC CL8' ' - NEXT TO LAST EXEC 2C0 LASTLMOD DC CL8' ' LAST MODULE LOADMODED INTO MAIN STORAGE 2C8 LASTTMOD DC CL8' ' LAST MODULE LOADMODED INTO * THE TRANSIENT AREA. * 55C NUMFINRD DC H'0' - NUMBER OF FINISHED READ BUFFERS 0 55E NUMPNDWR DC H'0' - NUMBER OF PENDING WRITE OPERATIONS 0 * LOADER INFORMATION 560 VMSIZE DS 1F - VIRTUAL MEMORY SIZE 0 564 ALDRTBLS DC 1F'0' ADDRESS OF LOADER TABLES 0 568 STRTADDR DC 1F'0' MODULE STARTING ADDRESS 0 56C FRSTLOC DC 1F'0' MODULE BEGINNING ADDRESS 0 570 LASTLOC DC 1F'0' MODULE ENDING ADDRESS 0 574 LOCCNT DC 1F'0' LOADER LOCATION COUNTER 0 578 LDRADDR DC 1F'0' LOADER RETURN ADDRESS 0 57C LDRRTCD DC 1F'0' LOADER RETURN CODE 0 580 PSW DC 1D'0' USER'S STARTING PSW 0 588 LDRFLAGS DC 1F'0' LOADER FLAGS 0 58C PRHOLD DC 1F'0' PSEUDO REGISTER COUNTER 0 590 TBENT DC H'0' INITIALIZE TABLE ENTRIES TO 0 * 5E0 OPTFLAGS DC NOIMPEX EQU X'80' - NO IMPLIED EXEC COMMANDS NOIMPCP EQU X'40' - NO IMPLIED CP COMMANDS NOSTDSYN EQU X'20' - NO STANDARD SYNONYMS NOABBREV EQU X'10' - NO COMMAND ABBREVIATIONS NOPAGREL EQU X'08' - NO AUTOMATIC PAGE RELEASE NOVMREAD EQU X'04' - NO AUTOMATIC VM CONSOLE READ RDTDRCT EQU X'01' - CONSOLE READ TYPE=DIRECT 5E1 MISFLAGS DC KXSWITCH EQU X'80' - KILL EXECUTION SWITCH KOSWITCH EQU X'40' - KILL TRACING SWITCH RELPAGES EQU X'20' - RELEASE PAGES SWITCH GRAFDEV EQU X'10' - GRAPHICS CONSOLE QSWITCH EQU X'08' - QUIET SW FOR CRD NODDSK EQU X'04' - DON'T ACCESS D DISK.. NEGITS EQU X'02' NEGATIVE RETURN CODE FROM DMSITS ATTNHIT EQU X'01' ATTENTION POSTED 5E2 MSGFLAGS DC NOTYPOUT EQU X'80' - NO TYPING - SET BY EXEC NOTYPING EQU X'40' - NO TYPING - SET BY KT NORDYMSG EQU X'20' - NO READY MESSAGE TO BE TYPED NORDYTIM EQU X'10' - NO TIME ON READY MESSAGE REDERRID EQU X'08' - ERROR CODE TO BE TYPED IN RED NOERRMSG EQU X'04' - NO ERROR MESSAGES TO BE TYPED NOERRTXT EQU X'02' - NO TEXT ON ERROR MESSAGES SPECLF EQU X'01' - LINEFEED FOR TYPEWRITER CCW 5E3 DBGFLAGS DC DBGEXEC EQU X'80' - DEBUG EXECUTING DBGPGMCK EQU X'40' - DEBUG ENTERED BY A PROGRAM CHECK DBGEXINT EQU X'20' - DEGUB ENTERED BY AN EXTERNAL INTERRUPT DBGABN EQU X'10' - DEBUG ENTERED FROM DMSABN DBGNSHR EQU X'08' - NO SHARED-SEGMENT PRESENT DBGSHR EQU X'04' - SHARED-SEGMENT PRESENT DBGRECUR EQU X'02' - RECURSION FLAG ABNXTSW EQU X'01' - USER ABEND EXIT TAKEN SWITCH 5E4 MISFLAG2 DC EXRESET EQU X'80' - OSRESET WANTED -- 0=YES 1=NO OSTYPLD EQU X'40' - OS TYPE LOAD --1=OS TYPE LOAD * 0=NON-OS TYPE LOAD * THIS IS USED BY DMSSLN TO * INDICATE TO DMSLDR THAT THE * TEXT LOAD IS FROM AN OS * MACRO TYPE LOAD. NUCTNABL EQU X'10' TOD CLOCK ACCOUNTING ENABLED DONTHASH EQU X'20' Don't invoke R/W disk hashing NUCCPCMD EQU X'08' DMSINT CHECK FOR CP COMMAND NUCLKED EQU X'04' LKED COMMAND ISSUED NUCVECTR EQU X'01' 1=VECTOR FACILITY IS IN USE 5E5 NUCFLAG3 DC NUCEXEC EQU X'40' DMSINT check for IMPLIED EXEC 5E6 EXECFLAG DC EXECRUN EQU X'80' - EXEC COMMAND RUNNING EXECSTOP EQU X'40' - HALT interpreter HAS BEEN RECOGNIZED. EXECMASK EQU X'20' - HALT interpreter ENABLED EXECHALT EQU X'10' HALT interpreter HAS BEEN ISSUED. EXECTRST EQU X'08' TRACE CAN BE RESET BY XEDIT. EXECTMSK EQU X'02' TRACE START ENABLED. EXECTRAC EQU X'01' EXEC TRACE REQUESTED. 5E7 PROTFLAG DC PRFPOFF EQU X'80' - STORAGE PROTECTION IS SHUT OFF PRFTSYS EQU X'40' - SYSTEM ROUTINE IN TRANSIENT AREA PRFUSYS EQU X'20' - SYSTEM ROUTINE IN USER AREA 5E8 TSOFLAGS DC TSOATCNL EQU X'80' - READ CANCELED BY ATTENTION 5E9 SUBFLAG DC SUBREJ EQU X'08' SUBSET COMMAND REJECT SUBRTN EQU X'04' - SUBSET-RETURN SUBINIT EQU X'02' - SUBSET INITIALIZATION SUBACT EQU X'01' - SUBSET ACTIVE PAMAVAIL EQU X'80' - PAM DIAGNOSE AVAILABLE E4001PAM * 654 APGMSECT DC V(PGMSECT) - At this address+x'7C' are the registers at the last Program Interrupt (R0-R15).