'HEAD'  COMPILER CONTROL
C     EDIT DATE   05FEB79  14:02
C     SOURCE FILE LOGOSAJH.FS
C     AUTHOR      A. J. HOWARD
C     CLUSTER     1
C     INSTALLATION DATES
C
C        2.0C     31OCT78
C        2.0D     21NOV78
C        2.0E     13DEC78
C        2.0F     19JAN79/26JAN79
C        2.0G     06FEB79
      'OUTFILE'   LOGOSAJH.FR
      'INCLUDE'   LOGOSAJH.IN,
      CALL INITLO
      CONEND = .FALSE.
      'DO'
         CALL DIMEN
         'WHILE' (.NOT. CONEND)
            CALL PVERBL
            'END'
      CALL PASS2
      STOP
      END
'HEAD' COMPILER INITIALIZATION

      'OUTFILE' INITBPA.FR
      SUBROUTINE INITLO
      'INCLUDE' LOGOSAJH.IN
      'INCLUDE' ATESTAJH.IN
      'INCLUDE' CODE1FTM.IN
      'INCLUDE' LCFUNCAJH.IN
      'INCLUDE' STKDFA.IN
      'INCLUDE' STKDFD.IN
      'INCLUDE' STUFFAJH.IN
      INTEGER FILENA(16),IBLANK,ICHARS,ICLARL,ICHARO
      INTEGER GCHAR,CHAR
      DATA IBLANK,ICHARS,ICHARL,ICHATO/32,83,76,79/
C
C     STRATCH FILES 'SCRATCH1' & 'SCRATCH2'  ARE OPENED
C     INPUTFILE IS PROMPTED FOR AND OPENED
C     IF OF FORM 'AAAAAALS' THEN
C        LISTING  FILE 'AAAAAAL' OPENED
C        OUTPUT FILE NAME 'AAAAAALO' PRESERVED
C     OTHERWISE
C        DEFAULT LISTING FILE 'LPT' OPENED
C        AND OUTPUT FILE  NAME PROMPTED FOR AND PRESERVED
C
      CALL OPENN(SS,'SCRATCH1 ',IERR)
      CALL OPENN(SS2,'SCRATCH2 ',IERR)
      'DO'
         CALL WRLIN(CO,' INPUT FILE:',12)
         CALL RDLIN(CI,FILENA,30,IERR)
         IF(IERR.EQ.9)STOP
         CALL OPENF(PI,FILENA,IERR)
         'WHILE' (IERR.NE.1)
         'END'
      CALL WRSEQ(SS2,FILENA,30)
      I=30
      'DO'
         CHAR=GCHAR(FILENA,I)
         'WHILE' (CHAR.EQ.IBLANK)
         I=I-1
         'END'
C
C TEST IF FILENAME HAS STANDARD FORMAT - AAAAAALS
      'IF' (I.GT.2.AND.CHAR.EQ.ICHARS       ^
                  .AND.GCHAR(FILENA,I-1).EQ.ICHARL)
         I=I-1                          //STANDARD FILENAME
         CALL PCHAR(FILENA,I,ICHARL)
         CALL PCHAR(FILENA,I+1,IBLANK)
         CALL OPENN(LO,FILENA,IERR)     //OPEN LISTING FILE A-AL
         CALL PCHAR(FILENA,I+1,ICHARO)
         CALL PCHAR(FILENA,I+2,IBLANK)
                                        //CREATE OUTFILE NAME A-ALO
         'ELSE'
         CALL OPENN(LO,'LPT ',IERR)     //DEFAULT LISTING FILE
         CALL WRLIN(CO,' OUTPUT FILE:   ',16)
         CALL RDLIN(CI,FILENA,30,IERR)  //READ OUTFILENAME
         IF(IERR.EQ.9)STOP              //END OF FILE
         'ENDIF'
      CALL WRSEQ(SS2,FILENA,30)         //OBJFILE NAME TO SCRATCH2
      OPX=2
      OPSTACK(1)=1026
      LCI=DATALC
      CALL RBOTH(CODE)
      ATEST=.FALSE.
      STUFFO=0
      RETURN
      END