*COPY MONCOM 00001000
PUSH PRINT @VA08768 00001200
AIF ('&SYSPARM' NE 'SUP').MONC01 @VA08768 00001300
PRINT OFF,NOGEN @VA08768 00001400
.MONC01 ANOP 00001500
MONCOMM DSECT 00002000
* 00003000
*** MONCOMM - VM MONITOR COMMUNICATIONS AREA 00004000
* 00005000
* +-------------------+-------------------+ 00006000
* | MONARDB | MONAIOB | 00007000
* +-------------------+-------------------+ 00008000
* | MONATRB | MONTIRA | 00009000
* +-------------------+-------------------+ 00010000
* | MONIIRA | MONC8TP | 00011000
* +---------+---------+---------+----+----+ 00012000
* | MONINVL | MONTOTB | MONTOTD |M*1 |M*2 | 00013000
* +----+----+---------+---------+----+----+ 00014000
* |M*3 |M*4 | MONSPARE | 00015000
* +----+----+-----------------------------+ 00016000
* 00017000
*** MONCOMM - VM MONITOR COMMUNICATIONS AREA 00018000
* 00019000
SPACE 1 00020000
MONARDB DS 1F ADDRESS OF MONITOR TAPE REAL DEVICE BLK 00021000
MONAIOB DS 1F ADDRESS OF MONITOR TAPE I/O BLOCK 00022000
MONATRB DS 1F ADDRESS OF MONITOR TIMER REQUEST BLOCK 00023000
MONTIRA DS 1F TIMER INTERRUPT RETURN ADDRESS 00024000
MONIIRA DS 1F TAPE INTERRUPT RETURN ADDRESS 00025000
MONC8TP DS 1F CONTROL REG 8 TEMP. STORAGE 00026000
MONINVL DS 1H INTERVAL BETWEEN TIMER INTERRUPTS 00027000
MONTOTB DS 1H TOTAL BYTES FOR IOB & CCW'S 00028000
MONTOTD DS 1H TOTAL DOUBLE WORDS FOR IOB & CCW'S 00029000
MONFLAG1 DS 1C M*1 - MONITOR FLAG 00030000
MONFLAG2 DS 1C M*2 - MONITOR FLAG 00031000
MONFLAG3 DS 1C M*3 - MONITOR FLAG 00032000
MONFLAG4 DS 1C M*4 - SPARE 00033000
MONSPARE DS 3H SPARE 00034000
SPACE 1 00035000
MONSIZE EQU (*-MONCOMM)/8 SIZE OF DSECT IN DOUBLE WORDS 00036000
SPACE 1 00037000
* USAGE OF MONFLAG1 00038000
OFF EQU X'00' MONITORING INACTIVE 00039000
ON EQU X'FF' MONITORING ACTIVE 00040000
SPACE 1 00041000
* BITS DEFINED IN MONFLAG2 00042000
WRAP EQU X'80' NO TAPES, IN CORE WRAP AROUND 00043000
TAPE EQU X'40' TAPE(S) IN USE 00044000
VOLSW EQU X'20' AUTOMATIC VOLUME SWITCHING REQUIRED 00045000
SUSPEND EQU X'10' BUSY TAPE, MONITORING TEMP. SUSPENDED 00046000
STOP EQU X'08' MONITORING HALTED, LAST I/O REQUESTED 00047000
BUSYT EQU X'02' TAPE WRITE IN PROGRESS 00048000
ERROR EQU X'01' FATAL ERROR, BUT TRYING WTM & RUN 00049000
SPACE 1 00050000
* BITS DEFINED IN MONFLAG3 00051000
DEFSTOP EQU X'10' DEFERRED STOP BEING HANDLED 00052000
MONTRB EQU X'08' TIMER QUEUE BLOCK ACTIVE FOR MONITOR 00053000
MONTIINT EQU X'04' MONITOR TIMER INTERRUPT HANDLER CALLING 00054000
SPACE 00055000
* MISCELLANEOUS BITS USED IN MONITOR CODE 00056000
WTM EQU X'1F' WRITE TAPE MARK COMMAND CODE 00057000
RUN EQU X'0F' REWIND UNLOAD COMMAND CODE 00058000
BSR EQU X'27' BACKSPACE RECORD COMMAND CODE 00059000
WRITE EQU X'01' WRITE TAPE COMMAND CODE 00060000
LHDR EQU X'04' LENGTH OF PAGE BUFFER HEADER 00061000
SPACE 1 00062000
MONTINT EQU 30 DEFAULT 30 SEC. TIMER INTERRUPT INTERVAL 00063000
Q1DROP EQU X'40' USER JUST DROPPED FROM Q1..Q2 IF BIT OFF 00064000
SPACE 1 00065000
* EQUATES FOR 2 BYTES OF MONITOR CLASS ENABLE MASK...3RD. AND 4TH 00066000
* BYTES OF CONTROL REG 8 OR CPCREG8 FIELD IN PSA 00067000
* BYTE 3 00068000
DEBUGCL EQU X'80' DEBUG SVCS, INTERRUPTS,FREE/FRET CALLS 00069000
RESPCL EQU X'40' RESPONSE CLASS 00070000
PERFCL EQU X'20' PERFORMANCE CLASS 00071000
TIMECL EQU X'10' EXECUTION TIMING CLASS 00072000
USERCL EQU X'08' USER RESOURCE USAGE CLASS 00073000
SPACE 1 00074000
SPACE 1 00075000
MONCCW DSECT 00076000
* 00077000
*** MONCCW - VM MONITOR CHANNEL PROGRAM DSECT 00078000
* 00079000
* +----+--------------+---------+---------+ 00080000
* |C*1 | CCWBUFAD | CCWFLAGS| CCWCOUNT| 00081000
* +----+--------------+---------+---------+ 00082000
* | CCWWMRUN | 00083000
* | | 00084000
* +---------------------------------------+ 00085000
* 00086000
*** MONCCW - VM MONITOR CHANNEL PROGRAM DSECT 00087000
* 00088000
SPACE 1 00089000
CCWCODE DS 1C C*1 - COMMAND CODE 00090000
CCWBUFAD DS 3C DATA ADDRESS 00091000
CCWFLAGS DS 1H CC DC SILI ETC. 00092000
CCWCOUNT DS 1H NO. OF BYTES OF DATA IN BUFFER 00093000
CCWWMRUN DS 2D CCWS FOR WTM & RUN 00094000
SPACE 1 00095000
MCCWSIZE EQU (*-MONCCW)/8 SIZE IN DOUBLE WORDS 00096000
EJECT 00096100
POP PRINT @VA08768 00096200