TITLE	"Z3GFN12 - Z3lib 4.0"
;================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;----------------------------------------------------------------
; Author  : Harold F. Bower
;		Derived from Z3GFN1 & Z3GFN2.Z80 by Richard Conn
; Date    : 21 Jan 88
; Version : 1.0
; Module  : Z3GFN12
; Abstract: This module contains the routines GETFN1 and GETFN2
;	which return the address of the first and second FN.FT
;	entries respectively.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;  Module Entry Points

	PUBLIC		GETFN1, GETFN2

;  External References

	EXT		ENVPTR

	.Z80
	CSEG
;===============================================================
; NAME - GETFN1
; Entry: - None
; Exit : HL - Points to the first FN.FT entry
; Uses : HL
; Special Requirements: None
;===============================================================

GETFN1:	PUSH	DE		; Save DE
	LD	DE,47H		; Point to 1st file name entry
	JR	GETF0		; ..and join common code

;===============================================================
; NAME - GETFN2
; Entry: - None
; Exit : HL - Points to the second FN.FT entry
; Uses : HL
; Special Requirements: None
;===============================================================

GETFN2:	PUSH	DE		; Save DE
	LD	DE,52H		; Point to 2nd file name entry
GETF0:	PUSH	AF		; ..save AF
	LD	HL,(ENVPTR)	;pt to environment
	ADD	HL,DE
	POP	AF		; Restore registers
	POP	DE
	RET

	END