*COPY EQU 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').EQU01 00001400
PRINT OFF,NOGEN 00001600
.EQU01 ANOP 00001800
* 00003000
*** CP370 EQUATE SYMBOLS - MACHINE USAGE 00004000
* 00005000
SPACE 1 00006000
* BITS DEFINED IN STANDARD/EXTENDED PSW 00007000
EXTMODE EQU X'08' BIT 12 - EXTENDED MODE 00008000
MCHEK EQU X'04' BIT 13 - MACHINE CHECK ENABLED 00009000
WAIT EQU X'02' BIT 14 - WAIT STATE 00010000
PROBMODE EQU X'01' BIT 15 - PROBLEM STATE 00011000
SPACE 1 00012000
* BITS DEFINED IN EXTENDED PSW 00013000
PERMODE EQU X'40' BIT 01 - PER ENABLED 00014000
TRANMODE EQU X'04' BIT 05 - TRANSLATE MODE 00016000
IOMASK EQU X'02' BIT 06 - SUMMARY IO MASK 00017000
EXTMASK EQU X'01' BIT 07 - SUMMARY EXTERNAL MASK 00018000
SPACE 1 00019000
* BITS DEFINED IN CHANNEL STATUS WORD - CSW 00020000
ATTN EQU X'80' BIT 32 - ATTENTION 00021000
SM EQU X'40' BIT 33 - STATUS MODIFIER 00022000
CUE EQU X'20' BIT 34 - CONTROL UNIT END 00023000
BUSY EQU X'10' BIT 35 - BUSY 00024000
CE EQU X'08' BIT 36 - CHANNEL END 00025000
DE EQU X'04' BIT 37 - DEVICE END 00026000
UC EQU X'02' BIT 38 - UNIT CHECK 00027000
UE EQU X'01' BIT 39 - UNIT EXCEPTION 00028000
* 00029000
PCI EQU X'80' BIT 40 - PROGRAM-CONTROL INTERRUPT 00030000
IL EQU X'40' BIT 41 - INCORRECT LENGTH 00031000
PRGC EQU X'20' BIT 42 - PROGRAM CHECK 00032000
PRTC EQU X'10' BIT 43 - PROTECTION CHECK 00033000
CDC EQU X'08' BIT 44 - CHANNEL DATA CHECK 00034000
CCC EQU X'04' BIT 45 - CHANNEL CONTROL CHECK 00035000
IFCC EQU X'02' BIT 46 - INTERFACE CONTROL CHECK 00036000
CHC EQU X'01' BIT 47 - CHAINING CHECK 00037000
SPACE 1 00038000
* BITS DEFINED IN CHANNEL COMMAND WORD - CCW 00039000
CD EQU X'80' BIT 32 - CHAIN DATA 00040000
CC EQU X'40' BIT 33 - COMMAND CHAIN 00041000
SILI EQU X'20' BIT 34 - SUPPRESS INCORRECT LENGTH IND. 00042000
SKIP EQU X'10' BIT 35 - SUPPRESS DATA TRANSFER 00043000
PCIF EQU X'08' BIT 36 - PROGRAM-CONTROL INTERRUPT FETCH 00044000
IDA EQU X'04' BIT 37 - INDIRECT DATA ADDRESS 00045000
SPACE 1 00046000
* BITS DEFINED IN SENSE BYTE 0 -- COMMON TO MOST DEVICES 00047000
CMDREJ EQU X'80' BIT 0 - COMMAND REJECT 00048000
INTREQ EQU X'40' BIT 1 - INTERVENTION REQUIRED 00049000
BUSOUT EQU X'20' BIT 2 - BUS OUT 00050000
EQCHK EQU X'10' BIT 3 - EQUIPMENT CHECK 00051000
DATACHK EQU X'08' BIT 4 - DATA CHECK 00052000
EJECT 00053000
* 00054000
*** CP370 EQUATE SYMBOLS - EXTENDED CONTROL REGISTERS 00055000
* 00056000
SPACE 2 00057000
* BITS DEFINED IN CREG 0 00058000
SPACE 1 00059000
* BYTE 0 00060000
BLKMPX EQU X'80' BIT 00 - ENABLE BLOCK MULTIPLEXING 00061000
SSMSUPP EQU X'40' BIT 01 - ENABLE SSM SUPPRESSION 00062000
TODSYNC EQU X'20' TOD SYNC CONTROL @V407595 00062100
NOSSKCK EQU X'01' DISABLE SPEC OP ON SSK WITH 4K KEY HRC004DK 00062500
SPACE 1 00063000
* BYTE 1 00064000
PAGE4K EQU X'80' BIT 08 - USE 4K PAGES 00065000
PAGE2K EQU X'40' BIT 09 - USE 2K PAGES 00066000
SEG1M EQU X'10' BIT 11 - USE 1M SEGMENTS 00067000
SPACE 1 00068000
* BYTE 2 00069000
MFAMASK EQU X'80' BIT 16 - MALFUNCTION ALERT MASK @V407508 00069100
EMSMASK EQU X'40' BIT 17 - EMERGENCY SIGNAL MASK @V407508 00069200
XCMASK EQU X'20' BIT 18 - EXTERNAL CALL MASK @V407508 00069300
SYNCMASK EQU X'10' BIT 19 - TOD SYNC CHECK MASK @V407508 00069400
CKCMASK EQU X'08' BIT 20 - MASK ON CLOCK COMPARATOR INT. 00070000
CPTMASK EQU X'04' BIT 21 - MASK ON CPU TIMER INT. 00071000
SPACE 1 00072000
* BYTE 3 00073000
INTMASK EQU X'80' BIT 24 - MASK ON INTERVAL TIMER INT. 00074000
KEYMASK EQU X'40' BIT 25 - MASK ON OPERATOR KEY INT. 00075000
SIGMASK EQU X'20' BIT 26 - MASK ON EXTERNAL SIGNALS 2-7 00076000
SPACE 2 00077000
* BITS DEFINED IN CREG 9 00078000
SPACE 1 00079000
* BYTE 0 00080000
PERSUBR EQU X'80' BIT 00 - MONITOR SUCCESSFUL BRANCHES 00081000
PERIFET EQU X'40' BIT 01 - MONITOR INSTRUCTION FETCHES 00082000
PERSALT EQU X'20' BIT 02 - MONITOR STORAGE ALTERATION 00083000
PERGPRS EQU X'10' BIT 03 - MONITOR REGISTER ALTERATION 00084000
SPACE 2 00085000
* BITS DEFINED IN CREG14 00086000
SPACE 1 00087000
* BYTE 0 00088000
HARDSTOP EQU X'80' BIT 00 - CHECK STOP CONTROL 00089000
SYNCLOG EQU X'40' BIT 01 - SYNCHRONOUS LOGOUT CONTROL 00090000
IOLOG EQU X'20' BIT 02 - I/O LOGOUT CONTROL 00091000
RECOVRPT EQU X'08' BIT 04 - RECOVERY REPORT MASK 00092000
CONFGRPT EQU X'04' BIT 05 - CONFIGURATION REPORT MASK 00093000
DAMAGRPT EQU X'02' BIT 06 - EXTERNAL DAMAGE REPORT MASK 00094000
WARNGRPT EQU X'01' BIT 07 - WARNING CONDITION REPORT MASK 00095000
SPACE 1 00096000
* BYTE 1 00097000
ASYNELOG EQU X'80' BIT 08 - ASYNCHRONOUS EXTENDED LOGOUT CTL 00098000
ASYNFLOG EQU X'40' BIT 09 - ASYNCHRONOUS FIXED LOGOUT CTL 00099000
EJECT 00100000
* 00101000
*** CP370 EQUATE SYMBOLS - CP USAGE 00102000
* 00103000
SPACE 1 00104000
* BITS DEFINED FOR TRANS MACRO 00105000
BRING EQU X'80' BRING REQUESTED PAGE 00106000
DEFER EQU X'40' DEFER EXECUTION UNTIL PAGE IN CORE 00107000
LOCK EQU X'20' LOCK PAGE FOR IO OPERATION 00108000
IOERETN EQU X'10' RETURN I/O ERRORS TO CALLER 00109000
SYSTEM EQU X'08' CALL TO DMKPTRAN FOR SYSTEM V.M. SPACE 00110000
VFAULT EQU X'04' DMKPTRAN CALL FOR VIRTUAL PAGE- @V407594 00110050
* CALLER WON'T UTILIZE REAL ADDRESS@V407594 00110060
SPACE 2 00110100
* EQUATES FOR PARM FIELD FOR CALLS TO DMKBLDRT/DMKBLDRL 00110200
DELSEGS EQU X'80' RELEASE THE SEGMENT TABLES 00110300
DELPAGES EQU X'40' RELEASE THE PAGE/SWAP TABLES 00110400
VRALOC EQU X'20' ATTEMPT ALLOCATION OF V=R AREA 00110450
PAGTONLY EQU X'10' ONLY 1 PAGETABLE AND RETURN @V408246 00110470
NEWPAGES EQU X'08' BUILD NEW PAGE/SWAP TABLE 00110500
NEWSEGS EQU X'04' BUILD NEW SEGMENT TABLE 00110600
KEEPSEGS EQU X'02' RETAIN INFORMATION IN OLD SEGMENT TABLE 00110700
OLDVMSEG EQU X'01' VMSEG POINTER IN VMBLOK VALID 00110800
SPACE 1 00111000
* BITS DEFINED FOR TERMINAL I/O VIA DMKQCN: 00112500
HILIGHT EQU X'8000' OUTPUT - HILIGHTED DATA STREAM HRC101DK 00112510
HOLDSCR EQU X'2000' OUTPUT - HOLD SCREEN FOR THIS MESSAGE HRC101DK 00112520
NOQUEUE EQU X'1000' OUTPUT - DO NOT QUEUE THIS MESSAGE HRC063DK 00112530
NOTRESP EQU X'4000' OUTPUT - MESSAGE NOT A CMD RESPONSE 00112550
ERRMSG EQU X'0800' OUTPUT - CONTROL PROGRAM ERROR MESSAGE 00113000
NORET EQU X'0400' OUTPUT - RETURN IMMEDIATELY AFTER CALL 00113500
DFRET EQU X'0200' OUTPUT - FRET BUFFER AFTER QUEUEING 00114000
OPERATOR EQU X'0100' OUTPUT - MESSAGE FOR SYSTEM OPERATOR 00114500
LOGDROP EQU X'80' OUTPUT - LOGOFF & DROP LINE AFTER MESSAGE 00115000
LOGHOLD EQU X'40' OUTPUT - LOGOFF & HOLD LINE AFTER MESSAGE 00115500
PRIORITY EQU X'20' OUTPUT - WRITE THIS MESSAGE IMMEDIATELY 00116000
VMGENIO EQU X'10' I/O REQUEST GENERATED BY VIRTUAL MACHINE 00116500
NOAUTO EQU X'04' OUTPUT - SUPPRESS AUTO CARRIAGE RETURN 00117000
ALARM EQU X'02' OUTPUT - SOUND THE AUDIBLE ALARM 00117500
NOTIME EQU X'01' OUTPUT - SUPPRESS TIME STAMP ON MESSAGE 00118000
INHIBIT EQU X'08' INPUT - PREVENT DISPLAY OF THIS DATA 00118500
EDIT EQU X'04' INPUT - EDIT INPUT DATA FOR CORRECTIONS 00119000
UCASE EQU X'02' INPUT - TRANSLATE DATA TO UPPER CASE 00119500
SPACE 2 00120000
* EQUATES FOR SPOOL FILE RECOVERY ROUTINE - DMKCKS 00120050
RDRCHN EQU X'01' SFBLOK GOES ON RDR CHAIN 00120100
PCHCHN EQU X'02' SFBLOK GOES ON PUNCH CHAIN 00120150
PRTCHN EQU X'04' SFBLOK GOES ON PRINT CHAIN 00120200
ADDSFB EQU X'08' ADD NEW SFBLOK TO RECOVERY CYL 00120250
CHGSFB EQU X'10' CHANGE EXISTING SFBLOK 00120300
DELSFB EQU X'20' DELETE SFBLOK FROM CHECKPOINT 00120350
OPNSFB EQU X'40' IT IS AN OPEN PRINT-PUNCH FILE 00120400
ACTSFB EQU X'80' FILE BEING PRINTED OR PUNCHED 00120450
CHGRDV EQU X'0100' CHANGE ATTRIBUTES OF REAL DEVICE 00120500
CHGSHQ EQU X'0200' CHECKPOINT A SHQBLOK 00120550
EJECT 00121000
SPACE 00121100
* MONITOR CLASS AND CODE DEFINITIONS 00121200
SPACE 00121300
MNCLPERF EQU X'00' MONITOR PERFORM CLASS 00121400
* 00121500
MNCOSYS EQU X'0000' PERFORM CLASS, SYSTEM PERFORMANCE 00121600
MNCOTH EQU X'0061' MONITOR TAPE HEADER RECORD 00121700
MNCOTT EQU X'0062' MONITOR TAPE TRAILER RECORD 00121800
MNCOSUS EQU X'0063' MONITOR COLLECTION SUSPENSION 00121900
* RECORD 00122000
SPACE 00122100
MNCLRESP EQU X'01' MONITOR RESPONSE CLASS 00122200
* 00122300
MNCOBRD EQU X'0000' RESPONSE CLASS, BEGIN READ CODE 00122400
MNCOWRIT EQU X'0001' RESPONSE CLASS, WRITE CODE 00122500
MNCOERD EQU X'0002' RESPONSE CLASS, END READ CODE 00122600
SPACE 00122700
MNCLSCH EQU X'02' MONITOR SCHEDULE CLASS 00122800
* 00122900
MNCODQ EQU X'0002' SCHEDULE CLASS, DROP QUEUE CODE 00123000
MNCOAQ EQU X'0003' SCHEDULE CLASS, ADD TO QUEUE CODE 00123100
MNCOAEL EQU X'0004' SCHEDULE CLASS, ADD TO ELIGABLE LIST CODE 00123200
SPACE 00123300
MNCLUSER EQU X'04' MONITOR USER CLASS 00123400
* 00123500
MNCOUSER EQU X'0000' USER CLASS, USER DATA 00123600
SPACE 00123700
MNCLINST EQU X'05' MONITOR INSTRUCTION SIMULATION CLASS 00123800
* 00123900
MNCOSIM EQU X'0000' INST CLASS, INSTRUCTION SIMULATION CODE 00124000
SPACE 00124100
MNCLDAST EQU X'06' MONITOR DASD/TAPE CLASS 00124200
* 00124300
MNCODASH EQU X'0000' DASTAP CLASS, FIRST RECORD 00124400
MNCODAS EQU X'0001' DASTAP CLASS, DATA RECORDS 00124500
SPACE 00124600
MNCLSEEK EQU X'07' MONITOR DASD CLASS 00124700
* 00124800
MNCOCYL EQU X'0000' DASD CLASS, SEEKS CODE 00124900
SPACE 00125000
MNCLSYS EQU X'08' MONITOR SYSTEM PROFILE CLASS 00125100
* 00125200
MNCODA EQU X'0002' SYS CLASS, DASD DATA 00125300
EJECT 00125400
* SIGNAL MACRO EQUATES @V407510 00125420
SIGSENSE EQU X'01' SENSE ORDER CODE @V407510 00125440
SIGXC EQU X'02' EXTERNAL CALL ORDER CODE @V407510 00125460
SIGEMS EQU X'03' EMERGENCY SIGNAL ORDER CODE @V407510 00125480
SIGSTART EQU X'04' START ORDER CODE @V407510 00125500
SIGSTOP EQU X'05' STOP ORDER CODE @V407510 00125520
SIGREST EQU X'06' RESTART ORDER CODE @V407510 00125540
SIGIPR EQU X'07' INITIAL PROGRAM RESET ORDER CODE @V407510 00125560
SIGPR EQU X'08' PROGRAM RESET ORDER CODE @V407510 00125580
SIGSSS EQU X'09' STOP AND STORE STATUS ORDER CODE @V407510 00125600
SIGIML EQU X'0A' INITIAL MICROPROGRAM LOAD @V407510 00125620
* ORDER CODE @V407510 00125640
SIGICR EQU X'0B' INITIAL CPU RESET ORDER CODE @V407510 00125660
SIGCR EQU X'0C' CPU RESET ORDER CODE @V407510 00125680
* EMERGENCY SIGNALS @V407510 00125700
SIGQUI EQU X'800' QUIESCE EMERGENCY SIGNAL @V407510 00125720
SIGEXT EQU X'400' EXTEND EMERGENCY SIGNAL @V407510 00125740
SIGSYNC EQU X'200' CLOCK SYNCHRONIZATION @V407510 00125760
* EMERGENCY SIGNAL @V407510 00125780
SIGSHD EQU X'100' SHUTDOWN EMERGENCY SIGNAL @V407510 00125800
SIGCLK EQU X'080' CLOCK CHECK SIGNAL @V407510 00125820
* EXTERNAL CALL SIGNALS @V407510 00125840
SIGAPR EQU X'800' AUTOMATIC PROCESSOR RECOVERY @V407510 00125860
* EXTERNAL CALL SIGNAL @V407510 00125880
SIGRES EQU X'400' RESUME EXTERNAL CALL SIGNAL @V407510 00125900
SIGWAKE EQU X'200' WAKEUP EXTERNAL CALL SIGNAL @V407510 00125920
SIGDISP EQU X'100' DISPATCH EXTERNAL CALL SIGNAL @V407510 00125940
EJECT 00125960
* TRACE MACRO EQUATES @V407508 00125980
TRCEXT EQU X'01' EXTERNAL INTERRUPT ENTRY @V407508 00126000
TRCSVC EQU X'02' SVC INTERRUPT ENTRY @V407508 00126020
TRCPGM EQU X'03' PROGRAM INTERRUPT ENTRY @V407508 00126040
TRCMCH EQU X'04' MACHINE CHECK INTERRUPT ENTRY @V407508 00126060
TRCIO EQU X'05' I/O INTERRUPT ENTRY @V407508 00126080
TRCFREE EQU X'06' FREE STORAGE ENTRY @V407508 00126100
TRCFRET EQU X'07' RETURN STORAGE ENTRY @V407508 00126120
TRCSCH EQU X'08' ENTER SCHEDULER ENTRY @V407508 00126140
TRCDROP EQU X'09' QUEUE DROP ENTRY @V407508 00126160
TRCRUN EQU X'0A' RUN USER ENTRY @V407508 00126180
TRCSIO EQU X'0B' START I/O ENTRY @V407508 00126200
TRCUNSTK EQU X'0C' UNSTACK I/O INTERRUPT ENTRY @V407508 00126220
TRCCSW EQU X'0D' VIRTUAL CSW STORE ENTRY @V407508 00126240
TRCTIO EQU X'0E' TEST I/O ENTRY @V407508 00126260
TRCHALT EQU X'0F' HALT DEVICE ENTRY @V407508 00126280
TRCUNBLK EQU X'10' UNSTACK IOBLOK OR TRQBLOK ENTRY @V407508 00126300
TRCNCP EQU X'11' NCP BTU ENTRY @V407508 00126320
TRCLOK EQU X'12' SPIN LOCK ENTRY @V407510 00126340
TRCSIGP EQU X'13' SIGP ENTRY @V407508 00126360
TRCCLCH EQU X'14' CLEAR CHANNEL ENTRY 00126365
SPACE 3 00126380
* SWTCHVM MACRO EQUATES @V407508 00126400
SPACE 1 00126420
SVMSTAY EQU X'01' STACK CPEXBLOK FOR CURRENT PROC @V407508 00126440
SVMNOUPD EQU X'02' LOCK VM WITH NOUPDT OPTION @V407508 00126460
SVMUNLOK EQU X'04' ONLY UNLOCK CURRENT VM @V407508 00126480
EJECT 00126500
* 00127000
*** CP370 EQUATE SYMBOLS - CP USAGE 00128000
* 00129000
* SYMBOLIC REGISTER EQUATES 00130000
R0 EQU 0 00131000
R1 EQU 1 00132000
R2 EQU 2 00133000
R3 EQU 3 00134000
R4 EQU 4 00135000
R5 EQU 5 00136000
R6 EQU 6 00137000
R7 EQU 7 GENERAL 00138000
R8 EQU 8 REGISTER 00139000
R9 EQU 9 DEFINITIONS 00140000
R10 EQU 10 00141000
R11 EQU 11 00142000
R12 EQU 12 00143000
R13 EQU 13 00144000
R14 EQU 14 00145000
R15 EQU 15 00146000
* 00147000
Y0 EQU 0 FLOATING 00148000
Y2 EQU 2 POINT 00149000
Y4 EQU 4 REGISTER 00150000
Y6 EQU 6 DEFINITIONS 00151000
* 00152000
C0 EQU 0 00153000
C1 EQU 1 00154000
C2 EQU 2 00155000
C3 EQU 3 00156000
C4 EQU 4 00157000
C5 EQU 5 00158000
C6 EQU 6 00159000
C7 EQU 7 CONTROL 00160000
C8 EQU 8 REGISTER 00161000
C9 EQU 9 DEFINITIONS 00162000
C10 EQU 10 00163000
C11 EQU 11 00164000
C12 EQU 12 00165000
C13 EQU 13 00166000
C14 EQU 14 00167000
C15 EQU 15 00168000
EJECT 00169000
POP PRINT 00170000
SPACE 00171000