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