C C PROGRAM: MONITOR C C AUTHOR: V.J.PHELPS BOEING - IGDA 4-16-80 C BASED ON PROGRAM PCM.FTN WRITTEN BY R.STODOLA C C THIS PROGRAM IS THE INTERFACE BETWEEN A USER AND THE C TASK MONITORING PROGRAM ..TMON. C MONITOR BUILDS AND SENDS A PACKET OF INFORMATION TO ..TMON. C BYTE ANS INTEGER TN(3) INTEGER SBF(9) DATA SBF/3*0,'TT',0,0,0,0,0/ DATA TASK/6R..TMON/ TYPE 10 10 FORMAT(/'$TASK TO MONITOR: ') ACCEPT 20,TN 20 FORMAT(6A2) CALL IRAD50(6,TN,SBF(2)) TYPE 40 40 FORMAT(/'$TERMINAL NUMBER : ') ACCEPT 50,IQ,TI 50 FORMAT(Q,A4) IF (IQ .GT. 4 .OR. IQ .LT. 1) GOTO 205 IF (IQ .EQ. 4) DECODE(4,100,TI) SBF(4),SBF(5) IF (IQ .EQ. 3) DECODE(3,110,TI) SBF(4),SBF(5) IF (IQ .EQ. 2) DECODE(2,115,TI) SBF(5) IF (IQ .EQ. 1) DECODE(1,120,TI) SBF(5) 100 FORMAT(A2,O2) 110 FORMAT(A2,O1) 115 FORMAT(O2) 120 FORMAT(O1) TYPE 55 55 FORMAT(/'$OVERLAYED TASK? : ') READ(5,56) ANS 56 FORMAT(A1) IF (ANS .EQ. 'Y') GOTO 59 TYPE 57 57 FORMAT(/'$TASK IMAGE SIZE (DEC WORDS): ') ACCEPT *,SBF(6) GOTO 160 59 TYPE 60 60 FORMAT(/'$DURATION BETWEEN SAMPLES (IN TICKS): ') ACCEPT *,SBF(1) TYPE 70 70 FORMAT(/'$HEADER LENGTH (FROM MAP):') ACCEPT *,SBF(6) TYPE 80 80 FORMAT(/'$ADDR OF $$$SGD1 (FROM MAP):') ACCEPT 85,SBF(7) 85 FORMAT(O6) TYPE 90 90 FORMAT(/'$N0. OF SEGMENTS (NOT COUNTING ROOT):') ACCEPT *,SBF(8) SBF(9)=-1 SBF(9)=-1 TYPE 150 150 FORMAT(/'$MONITOR TASK OR SINGLE SEGMENT (T OR S):') READ(5,153) ANS 153 FORMAT(A1) IF (ANS .EQ. 'T') GOTO 160 TYPE 155 155 FORMAT(/'$SEGMENT INDEX (ROOT=0):') ACCEPT *,SBF(9) C C SEND PACKET C 160 CALL VSNDRR(TASK,,SBF,,9,,,IDS) IF(IDS.GT.0)GO TO 200 TYPE 95,IDS 95 FORMAT('0**** FAILED TO SEND TO TMON. DSW='I6) 200 STOP 205 TYPE 98 98 FORMAT(1X' MONITOR INPUT ERROR') END