<< 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 >>