SPL,L,O,T,M 
      NAME ISA01(5)  !92413-16019A 760329 
! 
! 
!     SOURCE: 92413-18019    REV A
!     RELOC:  92413-16019    REV A
! 
! 
! 
!***************************************************************
! 
!   INITIALIZATION PHASE
! 
!***************************************************************
! 
      LET INITL BE SUBROUTINE,GLOBAL,DIRECT 
      LET SWPRT BE LABEL,EXTERNAL !SEGMENT RETURNS
      LET XCRET,FCL0S BE SUBROUTINE,EXTERNAL
      LET PR1NT,GT0UT,F1LCK BE SUBROUTINE,DIRECT,EXTERNAL 
      LET A2DCB,A1DCB BE INTEGER(144),EXTERNAL
      LET P.TR.,N0PRT,%NLU,XSTK,A3DB3 BE INTEGER,EXTERNAL 
      LET XPUSH BE SUBROUTINE,DIRECT,EXTERNAL 
      LET %PRSA BE INTEGER(34),EXTERNAL 
      LET IDPTR BE INTEGER,EXTERNAL 
      LET %CLU BE INTEGER(5),EXTERNAL 
      LET LFLMS BE INTEGER(10)
           INITIALIZE LFLMS TO 18,"  LIST FILE NAME ?"
      LET FIRST,LAST,WKTOP,FRLST BE INTEGER,EXTERNAL
      LET WKMIN BE INTEGER
      LET BUFFR BE INTEGER(60),EXTERNAL 
      LET WSAA BE PSEUDO,DIRECT,EXTERNAL
      LET CMCNT BE INTEGER,EXTERNAL 
      LET CMDIN BE SUBROUTINE,EXTERNAL
      LET STPRG BE SUBROUTINE,DIRECT,EXTERNAL 
      LET READ BE SUBROUTINE,DIRECT 
      LET BEGMS BE INTEGER(12)
      INITIALIZE BEGMS TO 20," ISA TABLE GENERATOR" 
      LET INTMS BE INTEGER(16)
      INITIALIZE INTMS TO 30,"  INSTRUMENT TABLE FILE NAME ?" 
      LET WRITE BE SUBROUTINE,DIRECT
! 
! 
! 
ISA01:GOTO SWPRT
! 
! 
INITL:SUBROUTINE GLOBAL,DIRECT
! 
      FRLST_0 
! 
FRSP1:IF($(IDPTR +14) AND 20K) THEN OFSET_16,\ !SHORT ID SEG? 
          ELSE OFSET_23 
      FIRST_$(IDPTR+OFSET)+1 !WORKSPACE SET TO MAXIMUM
      LAST,WKTOP,WKMIN_$1777K 
      P.TR._XSTK-1
      .A._0 
      CALL XPUSH?[CALL GT0UT] 
      %NLU_A3DB3
      IF N0PRT THEN %NLU_1
! 
      CALL WRITE(BEGMS) 
INIT2:CALL WRITE(LFLMS) 
      CALL READ?[GOTO INIT2]
      CALL XCRET(A2DCB,64,3,0)
      CALL F1LCK?[GOTO INIT2] 
! 
INIT3:CALL WRITE(INTMS) 
      CALL F1LCK?[CALL GT0UT] 
      CALL READ?[GOTO INIT3]
      CALL XCRET(A1DCB,200,5,100K)
      CALL F1LCK?[GOTO INIT3] 
      RETURN
      END 
WRITE:SUBROUTINE(BUF) DIRECT
      .B._@BUF+1
      .A._BUF 
      CALL PR1NT
      RETURN
      END 
READ: SUBROUTINE FEXIT,DIRECT 
      STPRG(NAM)
      CALL CMDIN(BUFFR(2),ERR)
      BUFFR(1)_(CMCNT+1)/2 !WORD COUNT
      IF BUFFR(2)="/E" THEN FRETURN 
      WSAA(NAM)_@BUFFR
      RETURN
      END 
      END ISA01 
END$
                                                            