home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / zsys / simtel20 / zcpr3 / sf.z80 < prev    next >
Encoding:
Text File  |  1986-02-07  |  1.2 KB  |  47 lines
  1. ;
  2. ;  SFILER Demo - Simple VFILER by Richard Conn
  3. ;  This program demonstrates the SFILEH from the new high-order
  4. ;    components library SFILER.  Any program can have a built-in
  5. ;    VFILER-like capability as easily as it is done in this program.
  6. ;
  7. ;  Assembly instructions:
  8. ;    1) assemble SF.Z80 to produce SF.REL; command:
  9. ;        ZAS SF
  10. ;    2) link in the proper libraries to create SF.COM; command:
  11. ;        ZLINK SF,SFILER/,VLIB/,Z3LIB/,SYSLIB/
  12. ;  Installation instructions:
  13. ;    SF can be installed in the standard way; command:
  14. ;        Z3INS SYS.ENV SF.COM
  15. ;
  16. z3env    equ    0f400h        ; address of env desc
  17.  
  18.     ext    z3vinit        ; must use Z3VINIT for TCAP
  19.     ext    codend        ; free space
  20.     ext    sfileh        ; entry point
  21. ;
  22. ;  Standard ZCPR 3.0 header
  23. ;
  24.     jp    start
  25.     db    'Z3ENV'
  26.     db    1
  27. z3eadr:    dw    z3env
  28. ;
  29. ;  Start of program
  30. ;
  31. start:
  32.     ld    hl,(z3eadr)    ; get address
  33.     call    z3vinit
  34.     call    codend        ; determine start of free space
  35. ;
  36. ;  At this point, the initialization required to run SFILEH is done:
  37. ;    1) HL contains the address of the start of the free space area
  38. ;        after the end of this program
  39. ;    2) the FCB at 5CH is properly initialized with file name (space
  40. ;        filled if wild) and a ZCPR 3.0 - standard DU reference
  41. ;        (at FCB+0 for the disk and FCB+13 for the user area)
  42. ;
  43.     call    sfileh        ; run SFILER module
  44.     ret
  45.  
  46.     end
  47.