*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