.model small
          .code
          org    100h

stodir:
body      proc   near
          mov    ah,19h
          int    21h
          add    al,41h
          lea    di,command+0dh
          stosb
          mov    ax,5c3ah
          stosw
          mov    ah,47h
          xor    dl,dl
          mov    si,di
          int    21h
          mov    ax,1225h
          int    2fh
          dec    cx
          lea    si,command
          add    byte ptr [si],cl
          add    di,cx
          mov    al,0dh
          stosb
          mov    ah,4ah
          mov    bx,1000h
          int    21h
          int    2eh
          int    20h
body      endp

command   db     0ch,"Set CURRDIR="

          end    stodir