mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
46 lines
1.2 KiB
46 lines
1.2 KiB
;
|
|
; 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
|
|
|