home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / DISKD.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  3KB  |  137 lines
  1.     page    66,132
  2. ;******************************** DISKD.ASM  *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. comment 
  13. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  DISK   )
  14. CHANGE_PATH - switch to new directory, but save current path first
  15. ;
  16. ; inputs:  es:bx - points to new path
  17. ; 
  18. ; outputs: old_path has origional path
  19. ;        carry set if dos error
  20. ;* * * * * * * * * * * * * *
  21. 
  22. old_path    label    byte
  23. old_drive    db    0
  24.         db    ':'
  25. old_sep        db    '\'
  26.         db    40 dup (0)
  27.  
  28. new_path    label    byte
  29.         db    40 dup (0)
  30. ;--------------------------------
  31.     public    change_path        
  32. CHANGE_PATH    PROC    FAR
  33.     push    ds
  34.     mov    ah,19h
  35.     int    21h        ;get current drive# in -al-
  36.         add     al,'A'
  37.     mov    cs:old_drive,al
  38. ;
  39. ; save current path
  40. ;    
  41.     mov    ax,cs
  42.     mov    ds,ax
  43.     mov    si,offset old_sep+1
  44.     mov    ah,47h
  45.     mov    dl,0
  46.     int    21h        ;get current path -> ds:si
  47. ;
  48. ; check if drive present
  49. ;
  50.     cmp    byte ptr es:[bx+1],':'
  51.     je    cp_drv_fnd        ;jmp if drive found
  52.     mov    si,bx
  53.         cmp     byte ptr es:[bx],'\'
  54.     je    cp_path_fnd        ;jmp if path without drive found
  55.     clc                ;do not return error, this is probably
  56.                     ; the debugger RUN.COM
  57.     jmp    change_path_exit    ;exit if drive not present
  58. ;
  59. ; switch to new drive at es:bx
  60. ;
  61. cp_drv_fnd:
  62.     mov    dl,es:[bx]    ;get drive letter
  63.     sub    dl,'A'
  64.     mov    ah,0eh
  65.     int    21h        ;switch to new drive
  66. ;
  67. ; switch to new path, but first extract info. from es:bx+1
  68. ;
  69.     mov    si,bx
  70.     add    si,2            ;skip past drive
  71. cp_path_fnd:
  72.     mov    di,offset new_path
  73.         cmp     byte ptr es:[si],'\'
  74.     je    mp_loop            ;jmp if directory present
  75.     mov    word ptr ds:[di],004ch
  76.     jmp    do_path_change
  77. mp_loop:
  78.     mov    al,byte ptr es:[si]
  79.     mov    byte ptr ds:[di],al
  80.     inc    si
  81.     inc    di
  82.     cmp    al,0
  83.     jne    mp_loop
  84. ;
  85. ; now scan back and remove executable file name
  86. ;
  87. mp_bak: dec    di
  88.         cmp     byte ptr [di],'\'
  89.     jne    mp_bak
  90.     mov    byte ptr [di],0
  91.  
  92. do_path_change:
  93.     mov    ah,3bh
  94.     mov    dx,offset new_path
  95.     int    21h
  96. change_path_exit:
  97.     pop    ds
  98.     retf    
  99. CHANGE_PATH    ENDP
  100. comment 
  101. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  DISK   )
  102. RESTORE_PATH - switch to directory saved by CHANGE_PATH
  103. ;
  104. ; inputs: none
  105. ; 
  106. ; output: carry set if dos error
  107. ;* * * * * * * * * * * * * *
  108. 
  109.     public    restore_path
  110. RESTORE_PATH    PROC    FAR
  111.     mov    dl,cs:old_path
  112.     cmp    dl,0
  113.     je    rp_path_switch        ;jmp if drive not present
  114.     sub    dl,'A'
  115.     mov    ah,0eh
  116.     int    21h            ;switch drives
  117. ;
  118. ; switch paths
  119. ;
  120. rp_path_switch:
  121.     push    ds
  122.     mov    ax,cs
  123.     mov    ds,ax
  124.     cmp    old_sep,0
  125.     je    rp_exit            ;jmp if no path avail
  126.     mov    dx,offset old_sep
  127.     mov    ah,3bh
  128.     int    21h
  129.  
  130. rp_exit:
  131.     pop    ds
  132.     retf
  133. RESTORE_PATH     ENDP
  134.  
  135. LIBSEG    ENDS
  136.     end
  137.