; FNREPZPT.Z80 - ZCPR3 adaptation patch for FINREP24.COM.
; When installed, the resulting program will respond to ZCPR3
; "DU:" and named directory references correctly.

; FINREP24.COM is a copyrighted program written by Eric Gans.
; Public distribution of the patched version has not been
; approved by the author and is strongly discouraged.  This
; patch is placed in the public domain with no restrictions
; whatsoever (for what it's worth....).

; To install:
; ZAS FNREPZPT H (or) Z80ASM FNREPZPT/H
;		(and)
; MLOAD FINREP=FINREP24.COM,FNREPZPT

; Bruce Morgen - March 1, 1987

ASCPAT	EQU	0C44H		; Location of patched ASCII
TPA	EQU	0100H		; Transients load here
BDOS	EQU	005H		; DOS call vector
GSUSER	EQU	32		; DOS get/set user function #
FCB	EQU	05CH		; Default 1st FCB
BOOT	EQU	0		; BIOS warm boot vector
CR	EQU	0DH		; ASCII carriage return
LF	EQU	0AH		; ASCII linefeed

	ORG	TPA
	JP	PATCH		; Divert to patch code.
CONTNU:

	ORG	ASCPAT
	DB	'z, E.Gans',CR,LF,0	; Makes room for patch.

PATCH:	LD	A,(FCB+13)	; Get Z3-parsed user code.
	LD	E,A
	LD	C,GSUSER
	CALL	BDOS		; Tell BDOS to log into it.
	LD	A,(BOOT+2)	; Get BIOS page.
	JP	CONTNU		; FINREP takes over from here.

	END	TPA