1000 ';********************************************************************
1010 ';*　  　 　　多分役に立つだろう機械語サブルーチン　Ｎｏ．２ 　      *
1020 ';*                                                                  *
1030 ';*        日付／時刻読み取りＢＩＯＳ呼び出し機械語サブルーチン      *
1040 ';*                                  94年11月24日（木） by 渡辺 良一 *
1050 ';********************************************************************
1060 '
1070 '
1080 '    mov ebp,esp
1090 '    add ebp,4
1100 '    mov eax,dword ptr [ebp]
1110 '    mov ds,ax
1120 '    mov edi,dword ptr [ebp+4]
1130 '    mov ah,1
1140 '    int 96h
1150 '    ret