CALL 插斷的小型時間增量使用 BIOS 滴答計數

REM   TIMEINT.BAS
DEFLNG A-Z
' $INCLUDE: 'QB.BI'
' For Basic PDS 7.00 you must change above line to QBX.BI
CONST tps = 18.2064819336# ' tps is ticks per second
DIM inregs AS RegType, outregs AS RegType
DIM flag AS INTEGER, Previous AS LONG
CLS
LOCATE 1, 20: PRINT "Hit any key to end"
WHILE INKEY$ = ""
        inregs.ax = 0
        CALL INTERRUPT(&H1A, inregs, outregs)
        ' CX should never be larger than &H0017, so direct
        ' assignment is possible.
        ticks& = outregs.cx * &H10000
        ' The following IF accounts for the fact that the
        ' interrupt is using an unsigned int (register) but Basic
        ' has only signed integers. Special action must be taken
        ' for numbers that appear to be negative.
        IF outregs.dx < 0 THEN
                a2& = (outregs.dx AND &H7FFF&)
                ticks& = (ticks& + a2&)
                ticks& = (ticks& OR &H8000&)
        ELSE
                ticks& = ticks& + outregs.dx
        END IF
        IF Previous > ticks& THEN BEEP ' It's midnight!
        Previous = ticks&

        Previous = ticks&
        seconds# = ticks& / tps 'ticks per second

        LOCATE 10, 10
        PRINT "Clock ticks since midnight: ";
        PRINT ticks&
        LOCATE 11, 10
        PRINT "Seconds since midnight: ";
        PRINT USING "######.##"; seconds#
WEND
END