1000 ';********************************************************************
1010 ';*　　　　　多分役に立つだろう機械語サブルーチン　Ｎｏ．１  　　    *
1020 ';*                                                                  *
1030 ';*         　    キーバッファクリア機械語サブルーチン　 　          *
1040 ';*                                  94年８月１日（月） by 渡辺 良一 *
1050 ';********************************************************************
1060 'mov ah,06h
1070 'int 90h
1080 'ret
2000 ';********************************************************************
2010 ';*　  　 　　多分役に立つだろう機械語サブルーチン　Ｎｏ．２ 　      *
2020 ';*                                                                  *
2030 ';*        日付／時刻読み取りＢＩＯＳ呼び出し機械語サブルーチン      *
2040 ';*                                  94年11月24日（木） by 渡辺 良一 *
2050 ';********************************************************************
2060 '
2070 '
2080 '    mov ebp,esp
2090 '    add ebp,4
2100 '    mov eax,dword ptr [ebp]
2110 '    mov ds,ax
2120 '    mov edi,dword ptr [ebp+4]
2130 '    mov ah,1
2140 '    int 96h
2150 '    ret