home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol094 / xdirscan.src < prev   
Encoding:
Text File  |  1985-02-10  |  1.4 KB  |  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.