home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / DEFDRIVE.ASM next >
Encoding:
Assembly Source File  |  1991-01-25  |  1.4 KB  |  41 lines
  1. ; --------------------------------------------------------------
  2. ; FUNCTION NAME: DEFDRIVE - Returns letter for default DOS drive
  3. ; --------------------------------------------------------------
  4. ; Copyright(c)              1991 -- James Occhiogrosso
  5.  
  6. INCLUDE DEVELOP.MAC         ; Developer's Library macro file
  7.  
  8. PUBLIC   DEFDRIVE           ; Declare function name
  9.                             ; Declare Clipper "EXTERNALS"
  10.  
  11.  
  12. EXTRN    __RETC:FAR         ; Return a string to Clipper
  13.  
  14. CODESEG  SEGMENT 'CODE'
  15.           ASSUME CS:CODESEG
  16.  
  17.  
  18. DEFDRIVE PROC  FAR
  19.  
  20.           JMP BEGIN                   ; Jump around data area
  21.           DEF_DRIVE  DB  'A', 0       ; Last drive letter
  22.  
  23. BEGIN:
  24.           PUSH_REGS                   ; Save Clipper registers
  25.           MOV AH, 19h                 ; Default drive function
  26.           INT 21h
  27.           ADD AL, 65                  ; Convert result to ASCII
  28.  
  29.           PUSH CS                     ; Set up our data segment
  30.           POP DS                      ;
  31.           MOV BX, OFFSET DEF_DRIVE    ; Get drive letter address
  32.           MOV [BX], AL                ; Move our value to it
  33.           POP_REGS                    ; Restore Clipper registers
  34.           RET_STRING CS BX            ; Return drive to Clipper
  35.  
  36. DEFDRIVE  ENDP                        ; End of procedure
  37.  
  38. CODESEG   ENDS                        ; End of code segment
  39.           END                         ; End of assembly
  40.  
  41.