FORTRAN IV	V02.5-11	FRI 22-JUL-88 02:53:52         	PAGE 001
SC:CAMUS,SC:CAMUS.FLS/LI:3/-SP=SC:CAMUS                                 

0001        PROGRAM CAMUS
0002        LOGICAL*1 STATE(16)
0003        INTEGER IDS  
0004        INTEGER DUMMY
0005        INTEGER IPARAM(6) 
0006        INTEGER IOSB(2)
0007        BYTE ISB(4) 
0008        EQUIVALENCE(ISB,IOSB)
0009        BYTE CLIBUF(80)  
0010        INTEGER CLILEN  
0011        INTEGER ILOOP  
0012        INTEGER FEL  
0013        BYTE SUCBUF(41)
0014        DATA SUCBUF/
           1' ',' ','C','A','M','U','S',' ','-',' ','X',' ','X',' ','X',' ','X
           1',' ','X',' ','X',' ','X',' ','X',' ','X',' ','X',' ','X',' ','X',
           1' ','X',' ','X',' ','X',' ','X'/
0015        INTEGER SUCSIZ
0016        DATA SUCSIZ/41/
0017        INTEGER SUCPNT  
0018        DATA SUCPNT/9/
0019        BYTE CR4
0020        DATA CR4/"15/
0021        BYTE LF4
0022        DATA LF4/"12/
0023        EQUIVALENCE(CR4,SUCBUF)
0024        EQUIVALENCE(LF4,SUCBUF(2))
0025        BYTE SYNBUF(20)
0026        DATA SYNBUF/
           1' ',' ','C','A','M','U','S',' ','-',' ','F','\','R','S','T',']','R
           1',' ','E','J'/
0027        INTEGER SYNSIZ
0028        DATA SYNSIZ/20/
0029        BYTE CR5
0030        DATA CR5/"15/
0031        BYTE LF5
0032        DATA LF5/"12/
0033        EQUIVALENCE(CR5,SYNBUF)
0034        EQUIVALENCE(LF5,SYNBUF(2))
0035        INTEGER IOWBT
0036        DATA IOWBT/"000500/
0037        CONTINUE
0038        CALL GETMCR(CLIBUF,CLILEN)  
0039        IF (CLILEN.NE.3) GOTO 30001
0041        CALL DRV11(STATE,DUMMY)
0042        DO 30003ILOOP=1,16
0043        IF (.NOT.(STATE(ILOOP))) GOTO 30006
0045        SUCBUF(SUCPNT+ILOOP*2)='1'
0046        GOTO 30005
0047  30006 CONTINUE
0048        SUCBUF(SUCPNT+ILOOP*2)='0'
0049  30005 CONTINUE
0050  30003 CONTINUE
0051  30004 CONTINUE
FORTRAN IV	V02.5-11	FRI 22-JUL-88 02:53:52         	PAGE 002
SC:CAMUS,SC:CAMUS.FLS/LI:3/-SP=SC:CAMUS                                 

0052        FEL=-500
0053        GOTO 30002
0054  30001 CONTINUE
0055        FEL=-501 
0056  30002 CONTINUE
0057        CONTINUE
0058        IF (FEL .NE. -500  ) GOTO 30007
0060        CALL GETADR(IPARAM(1),SUCBUF) 
0061        IPARAM(2)=SUCSIZ
0062        GOTO30008
0063  30007 CONTINUE
0064        IF (FEL .NE. -501 ) GOTO 30009
0066        CALL GETADR(IPARAM(1),SYNBUF) 
0067        IPARAM(2)=SYNSIZ
0068  30008 CONTINUE
0069  30009 CONTINUE
0070        IPARAM(3)=0   
0071        CALL WTQIO(IOWBT,1,2,,ISB,IPARAM,IDS)
0072        CALL EXST(FEL)
0073        END
FORTRAN IV DIAGNOSTICS FOR PROGRAM UNIT CAMUS 

IN LINE 0073, WARNING:	NON-STANDARD STATEMENT ORDERING 
FORTRAN IV STORAGE MAP FOR PROGRAM UNIT CAMUS 

LOCAL VARIABLES, .PSECT $DATA, SIZE = 000302 (   97. WORDS)

NAME   TYPE  OFFSET     NAME   TYPE  OFFSET     NAME   TYPE  OFFSET     

CLILEN I*2   000274     CR4    L*1   000160 Eqv CR5    L*1   000232 Eqv 

DUMMY  I*2   000272     FEL    I*2   000300     IDS    I*2   000270     

ILOOP  I*2   000276     IOWBT  I*2   000264     LF4    L*1   000161 Eqv 

LF5    L*1   000233 Eqv SUCPNT I*2   000260     SUCSIZ I*2   000256     

SYNSIZ I*2   000262     

LOCAL AND COMMON ARRAYS:

NAME     TYPE   SECTION OFFSET  ------SIZE----- DIMENSIONS
CLIBUF L*1      $DATA   000040  000120 (   40.) (80)
IOSB   I*2      $DATA   000034  000004 (    2.) (2)
IPARAM I*2      $DATA   000020  000014 (    6.) (6)
ISB    L*1      $DATA   000034  000004 (    2.) (4)
STATE  L*1      $DATA   000000  000020 (    8.) (16)
SUCBUF L*1      $DATA   000160  000051 (   21.) (41)
SYNBUF L*1      $DATA   000232  000024 (   10.) (20)

SUBROUTINES, FUNCTIONS, STATEMENT AND PROCESSOR-DEFINED FUNCTIONS:

NAME   TYPE   NAME   TYPE   NAME   TYPE   NAME   TYPE   NAME   TYPE   

DRV11   R*4   EXST    R*4   GETADR  R*4   GETMCR  R*4   WTQIO   R*4