ibm:vm370-lib:copy:moncom.copy_src
Table of Contents
MONCOM Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- MONCOM.COPY.txt
- *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
ibm/vm370-lib/copy/moncom.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator