10 ';カレントディレクトリ取得プロンジャー ＧＥＴＣＤＩＲ．ＲＥＸ　Ｖ０．１
20 ';
30 ';書式    callm addr&,drv,varptr(dir$)
40 ';        drv ドライブ番号(00h=デフォルト,01h=A,02h=B.....)
50 ';        dir$ 取得したパス名を格納する変数(64バイト確保)
60 '
70 'get_cdir:
80 '        mov    dl,ss:[esp+4]   ;ドライブ番号
90 '        mov    ebp,ss:[esp+8]
100 '        mov    esi,ds:[ebp]    ;パス名を格納するバッファ
110 '
120 '        mov    ah,47h          ;ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ取得のﾌｧﾝｸｼｮﾝ番号
130 '        int    21h             ;ファンクションコール
140 '        jc     error
150 '
160 '        xor    edx,edx
170 'g_loop:
180 '        mov    ah,ds:[esi+edx]
190 '        mov    ds:[ebp+4],dx
200 '        cmp    ah,0
210 '        jz     g_end
220 '        inc    edx
230 '        cmp    edx,64
240 '        jna    g_loop
250 '
260 'g_end:
270 '        ret
280 '
290 'error:
300 '        mov    al,'*'
310 '        mov    ecx,64
320 '        mov    edi,esi
330 '        rep    stosb
340 '
350 '        ret