0a535e150ed2e77b8e30b375cc03dc3763cfe7f5
[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / haesup.ft
1 C -+-+-+-+-+ \ e H A E S U P . F T \ e -+-+-+-+-+
2 C
3 C SUPERVISOR PROGRAM, CALLS THE DIFFERENT OVERLAYS AND TASKS
4 INCLUDE HAEPTI.FI
5 INCLUDE HAEBUF.FI
6 INCLUDE HABRK.FI
7 INCLUDE HAETTY.FI
8 INCLUDE HAEOF.FI
9 C
10 \f INTEGER TOASCI
11 EXTERNAL TOASCI
12 C
13 INTEGER I,J,STR(3)
14 C
15 CALL CLOCK (8,10.) @ START THE CLOCK WITH 0.1 HZ
16 CALL CHKEOF (EOF) @ REGISTER THE END OF FILE FLAG TO FRTS
17 CALL ADATE (STR) @ AND ASK FRTS FOR THE CURRENT DATE
18 WRITE (TTO,1) REVSON,STR @ IDENTIFICATION LINE ONTO TTY
19 C WAIT FOR NEXT INPUT
20 10 CALL DECODE @ READ THE NEW COMMAND LINE
21 IF (ACTNUM.EQ.0) GOTO 10 @ NO INPUT AT ALL
22 DO 35 I=1,ACTNUM @ AND EXECUTE COMMAND BY COMMAND
23 OPTION=COMD(I)/100 @ EXTRACT THE OPTION OF THE COMMAND
24 J=MOD(COMD(I),100)+1 @ AND THE NUMBER OF THIS CMD TOO
25 GOTO (90,91,92,93,94,95,96,97,98,99,
26 * 190,191,192,193,194,195,196,197,198,199,
27 * 290,291,292,293,294,295,296,297,298,299),J @ DO THE NEXT TASK
28 30 CONTINUE
29 IF BREAK(11) WRITE (TTO,2) @ ABORTS A TASK ONLY
30 40 IF BREAK(11) GOTO 40 @ STOP UNTIL SW11 IS SWITCHED OFF
31 IF BREAK(10) GOTO 10 @ SWITCH 10 ABORTS THIS COMMAND INPUT
32 IF (BREAK(9)) WRITE (TTO,3) @ PAUSE
33 50 IF (BREAK(9)) GOTO 50 @ PAUSE UNTIL SW9 IS SWITCHED OFF
34 35 CONTINUE
35 C
36 GOTO 10 @ HERE ALL COMMANDS ARE EXECUTED
37 C
38 C
39 90 GOTO 30 @ NO COMMAND
40 91 GOTO 30 @ "" "" (SPACE)
41 92 CALL READB @ RD
42 GOTO 30
43 93 CALL OPNSIX
44 CALL ADCON @ AD
45 GOTO 30
46 94 CALL PLOTTV @ TV
47 GO TO 30
48 95 CALL PLOTIT @ PL
49 GO TO 30
50 96 CALL PRINTR @ LP
51 GOTO 30
52 97 CALL CCHNEL @ CH
53 GOTO 30
54 98 CALL COMPUT @ CO
55 GOTO 30
56 99 STOP @ EX CLOSE OUTPUT FILES AND EXIT
57 190 CALL TOC @ TO
58 GOTO 30
59 191 CALL SCMPUT @ SC
60 GOTO 30
61 192 CALL SPLOT @ SP
62 GOTO 30
63 193 CALL SIZEP @ SZ
64 GOTO 30
65 194 CALL PALOT @ PA
66 GOTO 30
67 195 CALL PRLOT @ PR
68 GOTO 30
69 196 CALL FISIZE @ FI
70 GOTO 30
71 197 CALL FI3LTR @ F1
72 GOTO 30
73 198 CALL FI1LTR @ F3
74 GOTO 30
75 199 CALL PFLOT @ PF
76 GOTO 30
77 290 CALL CFREQU @ CF
78 GOTO 30
79 291 CALL EOGSCN @ EO
80 GOTO 30
81 292 CALL IDPLT @ ID
82 GOTO 30
83 293 CALL CFLACH @ CL
84 GOTO 30
85 294 CALL YSCAN @ YS
86 GOTO 30
87 295 CALL NYADD @ NY
88 GOTO 30
89 296 CALL CALSAC @ EI
90 GOTO 30
91 297 CALL FIRPLT @ FR
92 GOTO 30
93 298 CONTINUE
94 299 CONTINUE
95 GOTO 30
96 1 FORMAT (/' HAEEG VER',F4.1,' ON ',2(A2,1H/),A2)
97 2 FORMAT (' SCHALTER 11 AUSSCHALTEN')
98 3 FORMAT (' SCHALTER 9 AUSSCHALTEN')
99 END
100 \1a