1000 ';********************************************************************
1010 ';*　  　  　　多分役に立つだろう機械語サブルーチン　Ｎｏ．２        *
1020 ';*                                                                  *
1030 ';*                 日付／時刻読み取り機械語サブルーチン             *
1040 ';*                                1995年８月15日（火） by 渡辺 良一 *
1050 ';********************************************************************
1060 '
1070 '    push 14h
1080 '    pop  ds
1090 '    mov  edi,dword ptr [esp+4]
1100 '    mov  ah,1
1110 '    int  96h
1120 '    ret