10 ';カレントドライブ取得プロンジャー　ＧＥＴＣＤＲＶ．ＲＥＸ　Ｖ０．１
20 ';
30 ';書式 callm addr&,varptr(drv$)
40 '
50 'get_cdrv:
60 '        mov    ah,19h  ;カレントドライブのファンクション番号
70 '        int    21h     ;ファンクションコール
80 '
90 '        add    al,'A'
100 '
110 '        mov    edx,ss:[esp+4]
120 '        mov    ebp,ds:[edx]
130 '
140 '        mov    byte ptr ds:[ebp],al
150 '
160 '        ret