C
C	PROGRAM TO PRINT STATUS INFORMATION.
C
C	VARIABLE LEGEND:
C
	IMPLICIT INTEGER (A-Z)
	REAL MONTH(12)
	DOUBLE INTEGER MATIME
	DIMENSION MATW1(2)
	DIMENSION TTYUC(#22)
	DIMENSION TSCTB(#41)
	DIMENSION DT(6)
	EQUIVALENCE(MATIME,MATW1(1))
	DATA MACST/#230/
	DATA MAUSR/#1/
	DATA MATW1(1),MATW1(2)/#3,#4/
	DATA MANJB/#5/
	DATA MANUS/#6/
	DATA BEGBUF/#12/
	DATA ENDBUF/#13/
	DATA TTYUC(1),LTTYUC/#15,#22/
	DATA TSCTB(1),LTSCTB/#37,#41/
	DATA AM/#764000/
	DATA MONTH/'JAN','FEB','MAR','APR','MAY','JUN','JUL',
     1  'AUG','SEP','OCT','NOV','DEC'/
	OUT=16
C
C	COLLECT DATA FOR ALL NON DIMENSIONED DATA ELEMENTS.
C
	CALL SPY(MACST,MACST,EV)
C
C	SEE IF MULTI ACCESS IS RUNNING.
C
	IF(MACST.EQ.0) GO TO 9000
	ADDR = MACST + MAUSR
	CALL SPY(ADDR,MAUSR,EV)
	IF(MAUSR.EQ.0) GO TO 9000
	ADDR=MACST+MATW1(1)
	CALL SPY(ADDR,MATW1(1),EV)
	ADDR=MACST+MATW1(2)
	CALL SPY(ADDR,MATW1(2),EV)
	ADDR=MACST+MANJB
	CALL SPY(ADDR,MANJB,EV)
	ADDR=MACST+MANUS
	CALL SPY(ADDR,MANUS,EV)
	ADDR=MACST+BEGBUF
	CALL SPY(ADDR,BEGBUF,EV)
	ADDR=MACST+ENDBUF
	CALL SPY(ADDR,ENDBUF,EV)
C
C	FETCH ALL DIMENSIONED DATA AREAS.
C
	I = MACST + TTYUC(1)
	J = I + LTTYUC - 1
	DO 10 ADDR = I,J
	K = ADDR - I + 1
10	CALL SPY(ADDR,TTYUC(K),EV)
	I = MACST + TSCTB(1)
	J = I + LTSCTB - 1
	DO 20 ADDR = I,J
	K = ADDR - I + 1
20	CALL SPY(ADDR,TSCTB(K),EV)
C
C	WRITE HEADER
C
	CALL DATE(DT)
	I = DT(1)
	J = DT(5)/10
	K = DT(5)-(10*J)
	WRITE (OUT,30) DT(2),MONTH(I),DT(3),DT(4),J,K
30	FORMAT(1X,'MULTIACCESS STATUS REPORT  ',I2,'-',A3,'-',I2,
     1  2X,I2,':',I1,I1,' HOURS')
	CALL USERS(OUT,MANUS,MANJB,MATIME,TTYUC)
	CALL CORE(OUT,BEGBUF,ENDBUF)
	CALL TASKS(OUT,TSCTB)
	STOP
9000	WRITE(OUT,9010)
9010	FORMAT(1X,'MULTIACCESS IS IDLE')
	STOP
	END
