Meta FORTRAN 	 V09.08		1988-07-22 02:53:49	PAGE	1
SC:CAMUS.MET	FORTRAN IV

        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C FILE NAME CAMUS
        C
0001          PROGRAM CAMUS
        C
        C
        C     FUNKTION: L[SER FRONTSTATUS (DRV-11-KORTET)
        C
        C     INVOKE BY MCR:
        C
        C                             >CAM
        C
        C     HISTORIK:
        C     DATUM   NAMN                    ]TG[RD
        C     880718  B-E TAPPER              URUPPF\RANDE fr}n ILS
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     VARIABLER
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0002          LOGICAL*1       STATE(16)
        C
0003          INTEGER IDS             <DIRECTIVE STATUS RETURN CODE
        C
0004          INTEGER DUMMY
        C
0005          INTEGER IPARAM(6)       <QIO PARAMETER BLOCK
        C
0006          INTEGER IOSB(2)
0007          BYTE ISB(4)     <WORD ALIGNED
0008          EQUIVALENCE(ISB,IOSB)
        C
0009          BYTE CLIBUF(80)         <COMMAND LINE PASSED TO AND FROM PROGRAM
Meta FORTRAN 	 V09.08		1988-07-22 02:53:49	PAGE	2
SC:CAMUS.MET	FORTRAN IV

0010          INTEGER CLILEN          <LENGTH OF BUFFER
        C
0011          INTEGER ILOOP           <LOOPVARIABEL
        C
0012          INTEGER FEL             <FELKOD
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     DATA
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0013          BYTE    SUCBUF(41)
0014          'ASCII' SUCBUF/  CAMUS - X X X X X X X X X X X X X X X X/
0015          INTEGER SUCSIZ
0016          DATA    SUCSIZ/41/
0017          INTEGER SUCPNT          <PEKAR P] STRECKET OVAN (ILOOP*2 PEKAR P] X)
0018          DATA    SUCPNT/9/
        C
0019          BYTE    CR4
0020          DATA    CR4/"15/
0021          BYTE    LF4
0022          DATA    LF4/"12/
0023          EQUIVALENCE(CR4,SUCBUF)
0024          EQUIVALENCE(LF4,SUCBUF(2))
        C
0025          BYTE    SYNBUF(20)
0026          'ASCII' SYNBUF/  CAMUS - F\RST]R EJ/
0027          INTEGER SYNSIZ
0028          DATA    SYNSIZ/20/
        C
0029          BYTE    CR5
0030          DATA    CR5/"15/
0031          BYTE    LF5
0032          DATA    LF5/"12/
Meta FORTRAN 	 V09.08		1988-07-22 02:53:49	PAGE	3
SC:CAMUS.MET	FORTRAN IV

0033          EQUIVALENCE(CR5,SYNBUF)
0034          EQUIVALENCE(LF5,SYNBUF(2))
        C
        C
0035          INTEGER IOWBT
0036          DATA IOWBT/"000500/
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C     STYRSEKTION
        C
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        C
        C
0037          'POSIT'         <EJ FEL
        C
0038          .  CALL GETMCR(CLIBUF,CLILEN)           <GET MCR COMMANDLINE
        C
        C
0039          .  'QUITIF' (CLILEN.NE.3)       <WRONG COMMAND LINE LENGTH OR ERROR
        C
0041          .  CALL DRV11(STATE,DUMMY)
        C
0042          .  'DOLOOP' ILOOP=1,16
0043          .  .  'IF'(STATE(ILOOP))
0045          .  .  .  SUCBUF(SUCPNT+ILOOP*2)='1'
0046          .  .  'ELSE'
0048          .  .  .  SUCBUF(SUCPNT+ILOOP*2)='0'
0049          .  .  'ENDIF'
0050          .  'ENDLOOP'
        C
0052          .  FEL=-500
        C
0053          'ADMIT'              <FEL
0055          .  FEL=-501     <SYNTAX ERROR
0056          'ENDPOSIT'
Meta FORTRAN 	 V09.08		1988-07-22 02:53:49	PAGE	4
SC:CAMUS.MET	FORTRAN IV

        C
0057          'CASE' FEL
0058          'WHEN' -500  <OWN CODE
0060          .  CALL GETADR(IPARAM(1),SUCBUF)<Adress of SUCCESS
0061          .  IPARAM(2)=SUCSIZ
0062          'WHEN' -501  <OWN CODE
0066          .  CALL GETADR(IPARAM(1),SYNBUF)<Adress of SYNTAX
0067          .  IPARAM(2)=SYNSIZ
0068          'ENDCASE'
        C
0070          IPARAM(3)=0                     <NO time out
0071          CALL WTQIO(IOWBT,1,2,,ISB,IPARAM,IDS)
        C
0072          CALL EXST(FEL)
        C
        C
0073          END


Errors detected:     0
SC:CAMUS,SC:CAMUS.MLS/-SP=SC:CAMUS