         PROC  &P,0,&SYS=FORT                                           00000100
FUNTAB   NAME  1                                                        00000200
         GBL   &SYSTM                                                   00000300
.*                                                                      00000400
.*  FORT GLOBALS                                                        00000500
.*                                                                      00000600
         GBL   &MAXAREA,&MAXWORK,&CRDFLAG,&PRNFLAG,&TABFLAG,&ENDFLAG    00000700
.*                                                                      00000800
.*  FOR GLOBALS                                                         00000900
.*                                                                      00001000
         GBL   &FMAXWRK                 MAX WORK AREA NEEDED            00001100
         GBL   &FDIAGFL                 FDIAGNOS=YES SPECIFIED          00001200
         GBL   &FIOERFL                 EXTRN TO FL$IOERR GENERATED     00001300
         GBL   &MXPOOL1                 MAX POOLED I/O AREA 1 NEEDED    00001400
         GBL   &MXPOOL2                 MAX POOLED I/O AREA 2 NEEDED    00001500
         GBL   &FRERDDF                 REREAD UNIT DEFINED             00001600
         GBL   &MAXRERD                 MAX REREAD BUFFER NEEDED        00001700
         GBL   &FFNTBFL                 VALID FUNTAB CALL               00001800
         GBL   &FFNENFL                 VALID FUNEND CALL               00001900
         GBL   &FBKNOFL                 FBKNO=YES SPECIFIED             00002000
         GBL   &FPRNTFL                 PRNTR FILE DEFINED              00002100
         GBL   &FEOFFL                  EXTRN TO FL$EOF GENERATED       00002200
         GBL   &FSKADRFL                EXTRN TO FL$SKADR GENERATED     00002300
         GBL   &FSECTRFL                BUF POOLING ON SECT DISC SPEC   00002400
         GBL   &FOUTFL                  SDISC OR DISC OUTPUT W/POOLING  00002500
&SYSTM   SET   '&SYS'                                                   00002600
         DO    '&SYSTM'='FORT'                                          00002700
         DO    '&TABFLAG'=''                                            00002800
&SYSTM   SET   'FORT'                                                   00002900
&TABFLAG SET   1                                                        00003000
&ENDFLAG SET   0                                                        00003100
&PRNFLAG SET   0                                                        00003200
&CRDFLAG SET   0                                                        00003300
&MAXWORK SET   0                                                        00003400
&MAXAREA SET   0                                                        00003500
         GOTO  .LAST                                                    00003600
         ENDO                                                           00003700
         PNOTE *,'INVALID MACRO SEQUENCE - IGNORED'                     00003800
         GOTO  .LAST                                                    00003900
         ENDO                                                           00004000
         DO    '&SYSTM'='FOR'                                           00004100
         DO    ('&FFNTBFL'='')**('&FFNENFL'='')                         00004200
&SYSTM   SET   'FOR'                                                    00004300
&FFNTBFL SET   1                                                        00004400
&FMAXWRK SET   0                                                        00004500
&FDIAGFL SET   0                                                        00004600
&FIOERFL SET   0                                                        00004700
&MXPOOL1 SET   0                                                        00004800
&MXPOOL2 SET   0                                                        00004900
&FRERDDF SET   0                                                        00005000
&MAXRERD SET   0                                                        00005100
&FPRNTFL SET   0                                                        00005200
&FBKNOFL SET   0                                                        00005300
&FEOFFL  SET   0                                                        00005400
&FSKADRFL SET  0                                                        00005500
&FSECTRFL SET  0                                                        00005600
&FOUTFL  SET   0                                                        00005700
         PRINT OFF                                                      00005800
         FUNTABDS                                                       00005900
&SYSECT  CSECT                                                          00006000
         PRINT ON                                                       00006100
         DC    A(FUNLABEL)              ASSEMBLY INVALID IF THIS ADCON  00006200
*                                       IS UNDEFINED                    00006300
         GOTO  .FLAST                                                   00006400
         ENDO                                                           00006500
         PNOTE 'W','INVALID PROC SEQUENCE - STATEMENT IGNORED'          00006600
         GOTO  .FLAST                                                   00006700
         ENDO                                                           00006800
         PNOTE 'W','INVALID FORTRAN SYSTEM - FIX AND REASSEMBLE'        00006900
.LAST    LABEL                                                          00007000
.FLAST   LABEL                                                          00007100
         END                                                            00007200
