home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol094 / xdirscan.src < prev   
Text File  |  1985-02-09  |  1KB  |  75 lines
  1. ;*
  2. ;*  Directory Lookup Assembler External Routines  
  3. ;*
  4. ;*  function dirfrst : integer; external;
  5. ;*  function dirnext : integre; external;
  6. ;
  7. bdos    equ     0005h   ;bdos entry point
  8. fcb     equ     005Ch   ;default fcb
  9. ;
  10. dir1    equ     17      ;search for the first directory entry
  11. dirnxt  equ     18      ;search for the next directory entry
  12. ;
  13. hldret  ds      2
  14. ;
  15.         entry   dirfrst ;entry point for external routine dirfrst  
  16. dirfrst pop     h       ;retrieve and hold return address
  17.         shld    hldret
  18.         lxi     d,fcb   ;file name and type have been placed at the default fcb
  19.         mvi     c,dir1  ;search for first directory entry - function 17
  20.         call    bdos    ;call to o/s
  21.         mvi     d,0     ;return code is passed to pascal function in 
  22.         mov     e,a     ;de-register pair
  23.         lhld    hldret  ;
  24.         pchl            ;set program counter to return address (return)
  25.  
  26.         entry   dirnext ;dirnext entry point  
  27. dirnext pop     h
  28.         shld    hldret
  29.         lxi     d,fcb
  30.         mvi     c,dirnxt ;search for next directory entry - function 18
  31.         call    bdos 
  32.         mvi     d,0
  33.         mov     e,a
  34.         mvi     a,0
  35.         lhld    hldret
  36.         pchl
  37.         end
  38.    
  39.  
  40.  
  41.  
  42.  
  43. è
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.