home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol202 / z3mac.lbr / Z3GFN1.MAC < prev    next >
Encoding:
Text File  |  1985-02-10  |  512 b   |  28 lines
  1. ;
  2. ; Z3LIB Module Name:  Z3GFN1
  3. ; Author:  Richard Conn
  4. ; Z3LIB  Version Number:  1.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    GETFN1
  8. ; Module External References:
  9. ;    ENVPTR
  10. ;
  11.     ext    envptr
  12.  
  13. ;
  14. ;    GETFN1 returns the address of the first filename.typ entry in HL.
  15. ; HL only is affected.
  16. ;
  17. getfn1::
  18.     push    psw
  19.     push    d
  20.     lhld    envptr    ;pt to environment
  21.     lxi    d,47H    ;pt to file name entry
  22.     dad    d
  23.     pop    d    ;restore regs
  24.     pop    psw
  25.     ret
  26.  
  27.     end
  28.