META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE      1
TAPPER           

    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C FILE NAME TAPPER
    	C
    	C
    	C PROGRAMMET KONTROLLERAR K\RNINGEN AV QUE,FRONTP OCH REARPR SAMT
    	C PSO, CIO, TIO OCH PIO. DE K\RS P] KONSOLEN UNDER [1,54]
    	C SKULLE, VILKET GUD F\RBJUDE, N]GON AV DESSA STOPPA SL]S LARM !
    	C
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C
    	C           WRITTEN  83-11-18 /B-E TAPPER , AB UPPSALABUSS
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C
    	C
0001	      PROGRAM TAPPER
    	C
    	C
    	C
0002	      INTEGER IDS             <DIRECTIVE STATUS RETURN CODE
    	C
    	C
0003	      BYTE BEL                <PIP
0004	      DATA BEL/7/
    	C
0005	      INTEGER TT              <'TT'
0006	      DATA TT/2HTT/                   <DEVICE FOR CLOCK
0007	      INTEGER TN              <TERMINAL NUMBER
0008	      DATA TN/0/
    	C
0009	      REAL TNAME              <RADIX-50 MCR...
0010	      DATA TNAME/6RMCR.../            <MCR RADIX-50 TASK NAME
    	C
0011	      REAL REARPR             <RADIX-50 REARPR
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE      2
TAPPER           

0012	      DATA REARPR/6RREARPR/   <REARPR RADIX-50 TASK NAME
    	C
0013	      REAL FRONTP
0014	      DATA FRONTP/6RFRONTP/   <FRONTP
    	C
0015	      INTEGER GUIC
0016	      DATA GUIC/"1/
0017	      INTEGER MUIC
0018	      DATA MUIC/"54/
    	C
0019	      BYTE PIOBUF
0020	      DIMENSION PIOBUF(4)
0021	      DATA PIOBUF/'P','I','O',"15/
0022	      INTEGER PIOLEN
0023	      DATA PIOLEN/4/
    	C
0024	      BYTE CIOBUF
0025	      DIMENSION CIOBUF(4)
0026	      DATA CIOBUF/'C','I','O',"15/
0027	      INTEGER CIOLEN
0028	      DATA CIOLEN/4/
    	C
0029	      BYTE TIOBUF
0030	      DIMENSION TIOBUF(4)
0031	      DATA TIOBUF/'T','I','O',"15/
0032	      INTEGER TIOLEN
0033	      DATA TIOLEN/4/
    	C
0034	      BYTE PSOBUF
0035	      DIMENSION PSOBUF(4)
0036	      DATA PSOBUF/'P','S','O',"15/
0037	      INTEGER PSOLEN
0038	      DATA PSOLEN/4/
    	C
0039	      BYTE QUEBUF
0040	      DIMENSION QUEBUF(4)
0041	      DATA QUEBUF/'Q','U','E',"15/
0042	      INTEGER QUELEN
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE      3
TAPPER           

0043	      DATA QUELEN/4/
    	C
    	C
0044	      BYTE FRONAM
0045	      DIMENSION FRONAM(6)
0046	      DATA FRONAM/'F','R','O','N','T','P'/
    	C
0047	      BYTE REANAM
0048	      DIMENSION REANAM(6)
0049	      DATA REANAM/'R','E','A','R','P','R'/
    	C
    	C
0050	      INTEGER IESB1
0051	      DIMENSION IESB1(8)
    	C
0052	      INTEGER IESB2
0053	      DIMENSION IESB2(8)
    	C
0054	      INTEGER IESB3
0055	      DIMENSION IESB3(8)
    	C
0056	      INTEGER IESB4
0057	      DIMENSION IESB4(8)
    	C
0058	      INTEGER IESB5
0059	      DIMENSION IESB5(8)
    	C
0060	      INTEGER IESB6
0061	      DIMENSION IESB6(8)
    	C
0062	      INTEGER IESB7
0063	      DIMENSION IESB7(8)
    	C
0064	      INTEGER IESB8
0065	      DIMENSION IESB8(8)
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE      4
TAPPER           

    	C PROGRAMMET KONTROLLERAR K\RNINGEN AV QUE,FRONTP OCH REARPR SAMT
    	C PSO, CIO, TIO OCH PIO. DE K\RS P] KONSOLEN UNDER [1,54]
    	C
    	C
    	C
0067	      'PERFORM' STARTQUE      <1
0070	      'PERFORM' DELAY
0073	      'PERFORM' STARTPIO      <2
0076	      'PERFORM' DELAY
0079	      'PERFORM' STARTTIO      <3
0082	      'PERFORM' DELAY
0085	      'PERFORM' STARTCIO      <4
0088	      'PERFORM' DELAY
0091	      'PERFORM' STARTPSO      <5
0094	      'PERFORM' DELAY
0097	      'PERFORM' STARTFRO      <6
0100	      'PERFORM' DELAY
0103	      'PERFORM' STARTREA      <7
0106	      'PERFORM' DELAY
    	C
    	C       --- SUPERVISOR LOOP
    	C
0108	      'REPEAT'
    	C
0109	      .   'POSIT'
    	C
0110	      .   .   CALL READEF(1,IDS)
0111	      .   .   'IF'(IDS.NE.0)
0113	      .   .   .   'IF'(IDS.EQ.2)
0115	      .   .   .   .   WRITE(1,3000)BEL,IESB1(1),(QUEBUF(I),I=1,QUELEN-1)
0116	      .   .   .   .   WRITE(2,3000)BEL,IESB1(1),(QUEBUF(I),I=1,QUELEN-1)
0118	      .   .   .   .   'PERFORM' STARTQUE
0121	      .   .   .   .   'PERFORM' DELAY
0123	      .   .   .   .   'QUIT'
0125	      .   .   .   'ELSE'
0126	      .   .   .   .   WRITE(1,1000)1,IDS
0127	      .   .   .   .   WRITE(2,1000)1,IDS
0129	      .   .   .   'ENDIF'
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE      5
TAPPER           

0131	      .   .   'ENDIF'
    	C
0132	      .   .   CALL READEF(2,IDS)
0133	      .   .   'IF'(IDS.NE.0)
0135	      .   .   .   'IF'(IDS.EQ.2)
0137	      .   .   .   .   WRITE(1,3000)BEL,IESB2(1),(PIOBUF(I),I=1,PIOLEN-1)
0138	      .   .   .   .   WRITE(2,3000)BEL,IESB2(1),(PIOBUF(I),I=1,PIOLEN-1)
0140	      .   .   .   .   'PERFORM' STARTPIO
0143	      .   .   .   .   'PERFORM' DELAY
0145	      .   .   .   .   'QUIT'
0147	      .   .   .   'ELSE'
0148	      .   .   .   .   WRITE(1,1000)2,IDS
0149	      .   .   .   .   WRITE(2,1000)2,IDS
0151	      .   .   .   'ENDIF'
0153	      .   .   'ENDIF'
    	C
0154	      .   .   CALL READEF(3,IDS)
0155	      .   .   'IF'(IDS.NE.0)
0157	      .   .   .   'IF'(IDS.EQ.2)
0159	      .   .   .   .   WRITE(1,3000)BEL,IESB3(1),(TIOBUF(I),I=1,TIOLEN-1)
0160	      .   .   .   .   WRITE(2,3000)BEL,IESB3(1),(TIOBUF(I),I=1,TIOLEN-1)
0162	      .   .   .   .   'PERFORM' STARTTIO
0165	      .   .   .   .   'PERFORM' DELAY
0167	      .   .   .   .   'QUIT'
0169	      .   .   .   'ELSE'
0170	      .   .   .   .   WRITE(1,1000)3,IDS
0171	      .   .   .   .   WRITE(2,1000)3,IDS
0173	      .   .   .   'ENDIF'
0175	      .   .   'ENDIF'
    	C
0176	      .   .   CALL READEF(4,IDS)
0177	      .   .   'IF'(IDS.NE.0)
0179	      .   .   .   'IF'(IDS.EQ.2)
0181	      .   .   .   .   WRITE(1,3000)BEL,IESB4(1),(CIOBUF(I),I=1,CIOLEN-1)
0182	      .   .   .   .   WRITE(2,3000)BEL,IESB4(1),(CIOBUF(I),I=1,CIOLEN-1)
0184	      .   .   .   .   'PERFORM' STARTCIO
0187	      .   .   .   .   'PERFORM' DELAY
0189	      .   .   .   .   'QUIT'
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE      6
TAPPER           

0191	      .   .   .   'ELSE'
0192	      .   .   .   .   WRITE(1,1000)4,IDS
0193	      .   .   .   .   WRITE(2,1000)4,IDS
0195	      .   .   .   'ENDIF'
0197	      .   .   'ENDIF'
    	C
0198	      .   .   CALL READEF(5,IDS)
0199	      .   .   'IF'(IDS.NE.0)
0201	      .   .   .   'IF'(IDS.EQ.2)
0203	      .   .   .   .   WRITE(1,3000)BEL,IESB5(1),(PSOBUF(I),I=1,PSOLEN-1)
0204	      .   .   .   .   WRITE(2,3000)BEL,IESB5(1),(PSOBUF(I),I=1,PSOLEN-1)
0206	      .   .   .   .   'PERFORM' STARTPSO
0209	      .   .   .   .   'PERFORM' DELAY
0211	      .   .   .   .   'QUIT'
0213	      .   .   .   'ELSE'
0214	      .   .   .   .   WRITE(1,1000)5,IDS
0215	      .   .   .   .   WRITE(2,1000)5,IDS
0217	      .   .   .   'ENDIF'
0219	      .   .   'ENDIF'
    	C
0220	      .   .   CALL READEF(6,IDS)
0221	      .   .   'IF'(IDS.NE.0)
0223	      .   .   .   'IF'(IDS.EQ.2)
0225	      .   .   .   .   WRITE(1,3000)BEL,IESB6(1),FRONAM
0226	      .   .   .   .   WRITE(2,3000)BEL,IESB6(1),FRONAM
0228	      .   .   .   .   'PERFORM' STARTFRO
0231	      .   .   .   .   'PERFORM' DELAY
0233	      .   .   .   .   'QUIT'
0235	      .   .   .   'ELSE'
0236	      .   .   .   .   WRITE(1,1000)6,IDS
0237	      .   .   .   .   WRITE(2,1000)6,IDS
0239	      .   .   .   'ENDIF'
0241	      .   .   'ENDIF'
    	C
0242	      .   .   CALL READEF(7,IDS)
0243	      .   .   'IF'(IDS.NE.0)
0245	      .   .   .   'IF'(IDS.EQ.2)
0247	      .   .   .   .   WRITE(1,3000)BEL,IESB7(1),REANAM
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE      7
TAPPER           

0248	      .   .   .   .   WRITE(2,3000)BEL,IESB7(1),REANAM
0250	      .   .   .   .   'PERFORM' STARTREA
0253	      .   .   .   .   'PERFORM' DELAY
0255	      .   .   .   .   'QUIT'
0257	      .   .   .   'ELSE'
0258	      .   .   .   .   WRITE(1,1000)7,IDS
0259	      .   .   .   .   WRITE(2,1000)7,IDS
0261	      .   .   .   'ENDIF'
0263	      .   .   'ENDIF'
    	C       
0265	      .   'ADMIT'
0266	      .   'ENDPOSIT'
    	C
    	C
0267	      .   CALL MARK(8,20,2,IDS)   <SET FLAG 8 AFTER 20 SECONDS
0268	      .   'IF'(IDS.NE.1)
0270	      .   .   WRITE(1,1001)
0271	      .   .   WRITE(2,1001)
0273	      .   'ELSE'
    	C
0274	      .   .   CALL STOPFR(8,IDS)
0275	      .   .   'IF'(IDS.NE.1)
0277	      .   .   .   WRITE(1,1001)
0278	      .   .   .   WRITE(2,1001)
0280	      .   .   'ENDIF'
0282	      .   'ENDIF'
    	C
    	C
0283	      'UNTIL'(.FALSE.)        <THE TASK SHOULD LOOP
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0288	      'SECTION' DELAY                 <8
    	C
    	C
0289	      .   CALL MARK(8,2,2,IDS)    <SET FLAG 8 AFTER 20 SECONDS
0290	      .   'IF'(IDS.NE.1)
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE      8
TAPPER           

0292	      .   .   WRITE(1,1001)
0293	      .   .   WRITE(2,1001)
0295	      .   'ELSE'
    	C
0296	      .   .   CALL STOPFR(8,IDS)
0297	      .   .   'IF'(IDS.NE.1)
0299	      .   .   .   WRITE(1,1001)
0300	      .   .   .   WRITE(2,1001)
0302	      .   .   'ENDIF'
0304	      .   'ENDIF'
    	C
    	C
    	C
0305	      'ENDSECT'
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0308	      'SECTION' STARTQUE              <NUMMER 1
    	C
0309	      .   IEFN=1
0310	      .   WRITE(1,2001)BEL,(QUEBUF(I),I=1,QUELEN-1)
0311	      .   WRITE(2,2001)BEL,(QUEBUF(I),I=1,QUELEN-1)
0312	      .   CALL SPAWNN(TNAME,GUIC,MUIC,IEFN,,
    	     *.   IESB1,,QUEBUF,QUELEN,TN,TT,IDS)
0313	      .   'IF' (IDS.NE.1)
0315	      .   .   WRITE(1,1002)IEFN,IDS,(QUEBUF(I),I=1,QUELEN)
0316	      .   .   WRITE(2,1002)IEFN,IDS,(QUEBUF(I),I=1,QUELEN)
0318	      .   'ENDIF'
    	C
0319	      'ENDSECT'
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0322	      'SECTION' STARTPIO              <NUMMER 2
    	C
0323	      .   IEFN=2
0324	      .   WRITE(1,2001)BEL,(PIOBUF(I),I=1,PIOLEN-1)
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE      9
TAPPER           

0325	      .   WRITE(2,2001)BEL,(PIOBUF(I),I=1,PIOLEN-1)
0326	      .   CALL SPAWNN(TNAME,GUIC,MUIC,IEFN,,
    	     *.   IESB2,,PIOBUF,PIOLEN,TN,TT,IDS)
0327	      .   'IF' (IDS.NE.1)
0329	      .   .   WRITE(1,1002)IEFN,IDS,(PIOBUF(I),I=1,PIOLEN)
0330	      .   .   WRITE(2,1002)IEFN,IDS,(PIOBUF(I),I=1,PIOLEN)
0332	      .   'ENDIF'
    	C
0333	      'ENDSECT'
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0336	      'SECTION' STARTTIO              <NUMMER 3
    	C
0337	      .   IEFN=3
0338	      .   WRITE(1,2001)BEL,(TIOBUF(I),I=1,TIOLEN-1)
0339	      .   WRITE(2,2001)BEL,(TIOBUF(I),I=1,TIOLEN-1)
0340	      .   CALL SPAWNN(TNAME,GUIC,MUIC,IEFN,,
    	     *.   IESB3,,TIOBUF,TIOLEN,TN,TT,IDS)
0341	      .   'IF' (IDS.NE.1)
0343	      .   .   WRITE(1,1002)IEFN,IDS,(TIOBUF(I),I=1,TIOLEN)
0344	      .   .   WRITE(2,1002)IEFN,IDS,(TIOBUF(I),I=1,TIOLEN)
0346	      .   'ENDIF'
    	C
0347	      'ENDSECT'
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0350	      'SECTION' STARTCIO              <NUMMER 4
    	C
0351	      .   IEFN=4
0352	      .   WRITE(1,2001)BEL,(CIOBUF(I),I=1,CIOLEN-1)
0353	      .   WRITE(2,2001)BEL,(CIOBUF(I),I=1,CIOLEN-1)
0354	      .   CALL SPAWNN(TNAME,GUIC,MUIC,IEFN,,
    	     *.   IESB4,,CIOBUF,CIOLEN,TN,TT,IDS)
0355	      .   'IF' (IDS.NE.1)
0357	      .   .   WRITE(1,1002)IEFN,IDS,(CIOBUF(I),I=1,CIOLEN)
0358	      .   .   WRITE(2,1002)IEFN,IDS,(CIOBUF(I),I=1,CIOLEN)
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE     10
TAPPER           

0360	      .   'ENDIF'
    	C
0361	      'ENDSECT'
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0364	      'SECTION' STARTPSO              <NUMMER 5
    	C
0365	      .   IEFN=5
0366	      .   WRITE(1,2001)BEL,(PSOBUF(I),I=1,PSOLEN-1)
0367	      .   WRITE(2,2001)BEL,(PSOBUF(I),I=1,PSOLEN-1)
0368	      .   CALL SPAWNN(TNAME,GUIC,MUIC,IEFN,,
    	     *.   IESB5,,PSOBUF,PSOLEN,TN,TT,IDS)
0369	      .   'IF' (IDS.NE.1)
0371	      .   .   WRITE(1,1002)IEFN,IDS,(PSOBUF(I),I=1,PSOLEN)
0372	      .   .   WRITE(2,1002)IEFN,IDS,(PSOBUF(I),I=1,PSOLEN)
0374	      .   'ENDIF'
    	C
0375	      'ENDSECT'
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0378	      'SECTION' STARTFRO              <NUMMER 6
    	C
0379	      .   IEFN=6
0380	      .   WRITE(1,2001)BEL,FRONAM
0381	      .   WRITE(2,2001)BEL,FRONAM
0382	      .   CALL SPAWNN(FRONTP,GUIC,MUIC,IEFN,,IESB6,,,,TN,TT,IDS)
0383	      .   'IF' (IDS.NE.1)
0385	      .   .   WRITE(1,1002)IEFN,IDS,FRONAM
0386	      .   .   WRITE(2,1002)IEFN,IDS,FRONAM
0388	      .   'ENDIF'
    	C
0389	      'ENDSECT'
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0392	      'SECTION' STARTREA              <NUMMER 7
META FORTRAN  X08.09		21-OCT-87	02:14:29	PAGE     11
TAPPER           

    	C
0393	      .   IEFN=7
0394	      .   WRITE(1,2001)BEL,REANAM
0395	      .   WRITE(2,2001)BEL,REANAM
0396	      .   CALL SPAWNN(REARPR,GUIC,MUIC,IEFN,,IESB7,,,,TN,TT,IDS)
0397	      .   'IF' (IDS.NE.1)
0399	      .   .   WRITE(1,1002)IEFN,IDS,REANAM
0400	      .   .   WRITE(2,1002)IEFN,IDS,REANAM
0402	      .   'ENDIF'
    	C
0403	      'ENDSECT'
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C
0405	1000  FORMAT(1X/5X,'******* FEL VID L[SNING AV EVENTFLAGGA'
    	     *,I2,' IDS=',I5/)
0406	1001  FORMAT(1X/5X,'******* MARKTIME ELLER STOPFR-FEL !'/)
0407	1002  FORMAT(1X/5X,'******* STARTFEL: FLAG=',I2,' ,IDS=',I7,3X,6A1)
    	C
0408	2001  FORMAT(1X/5X,A1,'******** START AV ',6A1)
    	C
0409	3000  FORMAT(1X/5X,A1,'******** STOPP P] PROGRAM STATUSKOD (O6):',O6
    	     *,' NAMN: ',6A1)
    	C
    	C
0410	      END



ERRORS DETECTED:      0
SC:TAPPER,SC:TAPPER.MLS/-SP=SC:TAPPER