home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / GETDRIVE.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-05-18  |  997 b   |  32 lines
  1. ;===============================================================
  2. ; Keert terug met het standaardstation als een reeks.
  3. ;
  4. ;    gebruik:    CALL Getdrive WITH <Geheugen variabele>
  5. ;
  6. ;===============================================================
  7. ; Versie 2.0/0422
  8.  
  9. TITLE GETDRIVE 
  10.  
  11. _PROG     SEGMENT  BYTE
  12.           ASSUME   CS:_PROG
  13. ;
  14. GETPATH   PROC     FAR      ; Forceer een FAR RETurn.
  15. ;
  16.           MOV      AX,[BX]  ; Controleer op null. (Variabele-einde.)
  17.           CMP      AX,0     ; Is de variabele groot genoeg?
  18.           JE       Error    ; Nee, stoppen.
  19. ;
  20.           MOV      SI,BX    ; Laadt variabele offset in SI.
  21.           MOV      AH,19h   ; Verkrijg het standaardstation.
  22.           INT      21h      ; Standaardstation komt in 
  23.                             ; AL.  (0 = A:, 1 = B:, etc.)
  24.           ADD      AL,'A'   ; 41h = 'A.'
  25.           MOV      [SI],AL
  26. Error:    RET               ; Terug naar dBASE.
  27. ;
  28. GETPATH   ENDP
  29. ;
  30. _PROG     ENDS
  31.           END
  32.