<< Previous Message Main Index Next Message >>
<< Previous Message in Thread This Month Next Message in Thread >>
Date   : Fri, 07 Feb 1986 09:36:24-MST
From   : Rick Conn <RCONN@SIMTEL20.ARPA>
Subject: New SF for Z System users

I have placed SF.Z80 and SF.COM into PD:<CPM.Z3NEW> and PD:<CPM.ZCPR3>.
SFILER, a Subset VFILER, is a reusable component which can be placed
easily into any Z System program.  SF demonstrates how simple the process
is and how effective/useful SFILER is.  SFILER.REL has not been released yet.

	Rick

---- Source to SF.Z80 ----

;
;  SFILER Demo - Simple VFILER by Richard Conn
;  This program demonstrates the SFILEH from the new high-order
;    components library SFILER.  Any program can have a built-in
;    VFILER-like capability as easily as it is done in this program.
;
;  Assembly instructions:
;	1) assemble SF.Z80 to produce SF.REL; command:
;		ZAS SF
;	2) link in the proper libraries to create SF.COM; command:
;		ZLINK SF,SFILER/,VLIB/,Z3LIB/,SYSLIB/
;  Installation instructions:
;	SF can be installed in the standard way; command:
;		Z3INS SYS.ENV SF.COM
;
z3env	equ	0f400h		; address of env desc

	ext	z3vinit		; must use Z3VINIT for TCAP
	ext	codend		; free space
	ext	sfileh		; entry point
;
;  Standard ZCPR 3.0 header
;
	jp	start
	db	'Z3ENV'
	db	1
z3eadr:	dw	z3env
;
;  Start of program
;
start:
	ld	hl,(z3eadr)	; get address
	call	z3vinit
	call	codend		; determine start of free space
;
;  At this point, the initialization required to run SFILEH is done:
;	1) HL contains the address of the start of the free space area
;		after the end of this program
;	2) the FCB at 5CH is properly initialized with file name (space
;		filled if wild) and a ZCPR 3.0 - standard DU reference
;		(at FCB+0 for the disk and FCB+13 for the user area)
;
	call	sfileh		; run SFILER module
	ret

	end
<< Previous Message Main Index Next Message >>
<< Previous Message in Thread This Month Next Message in Thread >>