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

0001        PROGRAM GETDRV
0002        INTEGER RECBUF(15) 
0003        INTEGER SNDBUF(13) 
0004        LOGICAL*1 STATE(16)
0005        EQUIVALENCE(SNDBUF,STATE)
0006        INTEGER  STAWRD 
0007        EQUIVALENCE(SNDBUF(9),STAWRD)
0008        INTEGER IDS  
0009        INTEGER IPARAM(6) 
0010        INTEGER IOSB(2)
0011        BYTE ISB(4) 
0012        EQUIVALENCE(ISB,IOSB)
0013        BYTE ERRBUF(30)
0014        DATA ERRBUF/
           1' ',' ','G','E','T','D','R','V',' ','-',' ','C','O','M','M','U','N
           1','I','C','A','T','I','O','N',' ','E','R','R','O','R'/
0015        INTEGER ERRSIZ
0016        DATA ERRSIZ/30/
0017        BYTE CR4
0018        DATA CR4/"15/
0019        BYTE LF4
0020        DATA LF4/"12/
0021        EQUIVALENCE(CR4,ERRBUF)
0022        EQUIVALENCE(LF4,ERRBUF(2))
0023        INTEGER IOWBT
0024        DATA IOWBT/"000500/
0025        CONTINUE
0026        CALL RECEIV(,RECBUF,,IDS) 
0027  30003 CONTINUE
0028        IF(.NOT.(IDS.EQ.1) )GOTO 30004
0030        CALL DRV11(STATE,STAWRD) 
0031        CALL SEND(RECBUF,SNDBUF,,IDS) 
0032        IF (IDS.NE.1) GOTO 30001
0034        CALL EMST(RECBUF,1,IDS)     
0035        IF (IDS.NE.1) GOTO 30001
0037        CALL WAIT(RECBUF(3),2)  
0038        CALL RECOEX(,RECBUF,,IDS) 
0039        GOTO 30003
0040  30004 CONTINUE
0041        GOTO 30002
0042  30001 CONTINUE
0043  30002 CONTINUE
0044        CALL GETADR(IPARAM(1),ERRBUF) 
0045        IPARAM(2)=ERRSIZ
0046        IPARAM(3)=0   
0047        CALL WTQIO(IOWBT,1,2,,ISB,IPARAM,IDS)
0048        CALL EXST(IDS)
0049        END
FORTRAN IV DIAGNOSTICS FOR PROGRAM UNIT GETDRV

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

LOCAL VARIABLES, .PSECT $DATA, SIZE = 000154 (   54. WORDS)

NAME   TYPE  OFFSET     NAME   TYPE  OFFSET     NAME   TYPE  OFFSET     

CR4    L*1   000110 Eqv ERRSIZ I*2   000146     IDS    I*2   000152     

IOWBT  I*2   000150     LF4    L*1   000111 Eqv STAWRD I*2   000056 Eqv 

LOCAL AND COMMON ARRAYS:

NAME     TYPE   SECTION OFFSET  ------SIZE----- DIMENSIONS
ERRBUF L*1      $DATA   000110  000036 (   15.) (30)
IOSB   I*2      $DATA   000104  000004 (    2.) (2)
IPARAM I*2      $DATA   000070  000014 (    6.) (6)
ISB    L*1      $DATA   000104  000004 (    2.) (4)
RECBUF I*2      $DATA   000000  000036 (   15.) (15)
SNDBUF I*2      $DATA   000036  000032 (   13.) (13)
STATE  L*1      $DATA   000036  000020 (    8.) (16)

SUBROUTINES, FUNCTIONS, STATEMENT AND PROCESSOR-DEFINED FUNCTIONS:

NAME   TYPE   NAME   TYPE   NAME   TYPE   NAME   TYPE   NAME   TYPE   

DRV11   R*4   EMST    R*4   EXST    R*4   GETADR  R*4   RECEIV  R*4   

RECOEX  R*4   SEND    R*4   WAIT    R*4   WTQIO   R*4