'HEAD'  LINKER FOR 6502 LOGOS
C     EDIT DATE   26JAN79  09:35
C     SOURCE FILE LINKERGAK.FS
C     AUTHOR      GARY A. KUDIS
C     CLUSTER     1
      'OUTFILE' LINKERGAK.FR
      'INCLUDE' IODEFNGAK.IN,
      'INCLUDE' IOFILEGAK.IN,
N     EXTERNAL    OLPS0, OLPS1, OLPS2, OLPS3
C LINKER ::
X     CALL OPEN (DBCHAN, DBFILE, 0, ECODE)
X     IF (ECODE.NE.1) STOP 99999
N     CALL OVOPN (OVCHAN, OVFILE)
N     CALL OVLOD (OLPS0)
      CALL INITLZ
X     WRITE (DBCHAN, 1)
X1    FORMAT (' LINKER INITIALIZATION COMPLETED')
      CALL ASKQES
X     WRITE (DBCHAN, 2)
X2    FORMAT (' LINKER ASK QUESTIONS COMPLETED')
      CALL TOPAGE
      CALL  LTIME
N     CALL OVLOD (OLPS1)
      CALL PASS1
X     WRITE (DBCHAN, 3)
X3    FORMAT (' LINKER PASS ONE COMPLETED')
X     CALL LTIME
N     CALL OVLOD (OLPS2)
      CALL PASS2
X     WRITE (DBCHAN, 4)
X4    FORMAT (' LINKER PASS TWO COMPLETED')
N     CALL OVLOD (OLPS3)
      CALL MAPPER
X     WRITE (DBCHAN, 5)
X5    FORMAT (' LINKER MAPPER COMPLETED')
      CALL  LTIME
      CALL FINISH
      STOP
      END
      'OUTFILE' LTIMEGAK.FR
      SUBROUTINE LTIME
C     EDIT DATE   26JAN79  09:35
C     SOURCE FILE LINKERGAK.FS
C     AUTHOR      GARY A. KUDIS
      'INCLUDE' IODEFNGAK.IN,
      'INCLUDE' LDATAXGAK.IN,
      INTEGER     LINE (21)
      INTEGER     HLINE (10), HTIME (6), HDATE (5)
      COMMON      /LIN/ LINE
      EQUIVALENCE (LINE ( 1), HLINE (1))
      EQUIVALENCE (LINE (11), HTIME (1))
      EQUIVALENCE (LINE (17), HDATE (1))
      DATA        HLINE /'LINKER VERSION 2.0  '/
      DATA        HTIME /'00:00:00    '/
      DATA        HDATE /'DD-MMM-YY '/
C LTIME :
      CALL TIME (HTIME)
      CALL DATE (HDATE)
      CALL ESP (VERS, HLINE, 16, 18)
      CALL WRLIN (MPCHAN, LINE, 42)
      CALL WRLIN (MPCHAN, '  ', 2)
      RETURN
      END
N     'OUTFILE'   PS0OL.FR
N     OVERLAY     OLPS0
N     SUBROUTINE  PS0OL
N     RETURN
N     END
N     'OUTFILE'   PS1OL.FR
N     OVERLAY     OLPS1
N     SUBROUTINE  PS1OL
N     RETURN
N     END
N     'OUTFILE'   PS2OL.FR
N     OVERLAY     OLPS2
N     SUBROUTINE  PS2OL
N     RETURN
N     END
N     'OUTFILE'   PS3OL.FR
N     OVERLAY     OLPS3
N     SUBROUTINE  PS3OL
N     RETURN
N     END