*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