.title	ATG_FT_START - Start ATG FT Access Port Name Support
	.ident	"X01.01"
;++
; Module:	ATG_FT_START
; Package:	MMTS
; Author:	Nick de Smith (NICK@NCDLAB.ULCC.AC.UK,PSI%234213300154::NICK)
; Creation date: 23-Oct-91
;
;	© 1991, Copyright Applied Telematics Group Ltd. and Nick de Smith
;		All rights reserved.
;
;	This software is supplied for information only. No guarantee
;	is supplied for this software, and no liability will be
;	accepted for any action resulting from the use of this
;	software or the information contained herein.
;
;	Under no circumstances may this software be used for
;	commercial gain, including its sale, lease or loan.
;
;	This software may be copied only with the inclusion of this
;	copyright notice.
;	The author is prepared to enter into correspondence with
;	interested parties, but will not necessarily maintain this
;	software.
;
; Abstract:
;
;	This module loads the ATG_FT_PATCH loadable executive module which
;	patches FTDRIVER to support access port names,
;
;	This program is run from SYS$MANAGER:ATG_FT_START.COM at system
;	startup. It can be executed any time after FTDRIVER has been loaded.
;
;	Multiple execution of this program does not cause any problems.
;
;	CMEXEC is needed to run this program.
;
; Revision history:
;
;	Edit	Edit date	By	Why
;	X01.01	23-Oct-91	NMdS	First attempt
;--

.link	"SYS$SYSTEM:SYS.STB"/selective_search

ATG_FT_PATCH_NAME:				; Name of image to load
	.ascid	"SYS$LOADABLE_IMAGES:ATG_FT_PATCH.EXE"

REFERENCE_HANDLE:				; Returned load information
	.blkl	3

.entry	ATG_FT_START, ^m<>

	$cmexec_s	routin = 10$		; Go and do the real work
	ret

10$:	.word	^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11>

	pushal	REFERENCE_HANDLE		; Returned info
	pushl	#0				; Flags
	pushab	ATG_FT_PATCH_NAME		; Name of patch file
	calls	#3, g^LDR$LOAD_IMAGE		; Load the image
	ret					; All done - return

	.end	ATG_FT_START