commit
5162407cef
1 changed files with 52 additions and 52 deletions
|
|
@ -163,7 +163,7 @@ presented in Chapter K on the companion CD-ROM.
|
||||||
; in when ZTimerOn was called.
|
; in when ZTimerOn was called.
|
||||||
;
|
;
|
||||||
|
|
||||||
Code segment word public ‘CODE'
|
Code segment word public 'CODE'
|
||||||
assume cs:Code, ds:nothing
|
assume cs:Code, ds:nothing
|
||||||
public ZTimerOn, ZTimerOff, ZTimerReport
|
public ZTimerOn, ZTimerOff, ZTimerReport
|
||||||
|
|
||||||
|
|
@ -220,7 +220,7 @@ OriginalFlags db ? ; storage for upper byte of
|
||||||
; ZTimerOn called
|
; ZTimerOn called
|
||||||
TimedCount dw ? ; timer 0 count when the timer
|
TimedCount dw ? ; timer 0 count when the timer
|
||||||
; is stopped
|
; is stopped
|
||||||
ReferenceCount dw ; number of counts required to
|
ReferenceCount dw ? ; number of counts required to
|
||||||
; execute timer overhead code
|
; execute timer overhead code
|
||||||
OverflowFlag db ? ; used to indicate whether the
|
OverflowFlag db ? ; used to indicate whether the
|
||||||
; timer overflowed during the
|
; timer overflowed during the
|
||||||
|
|
@ -229,28 +229,28 @@ OverflowFlag db ? ; used to indicate whether the
|
||||||
; String printed to report results.
|
; String printed to report results.
|
||||||
;
|
;
|
||||||
OutputStr label byte
|
OutputStr label byte
|
||||||
db 0dh, 0ah, ‘Timed count: ‘, 5 dup (?)
|
db 0dh, 0ah, 'Timed count: ', 5 dup (?)
|
||||||
ASCIICountEnd label byte
|
ASCIICountEnd label byte
|
||||||
db ‘ microseconds', 0dh, 0ah
|
db ' microseconds', 0dh, 0ah
|
||||||
db ‘$'
|
db '$'
|
||||||
;
|
;
|
||||||
; String printed to report timer overflow.
|
; String printed to report timer overflow.
|
||||||
;
|
;
|
||||||
OverflowStr label byte
|
OverflowStr label byte
|
||||||
db 0dh, 0ah
|
db 0dh, 0ah
|
||||||
db ‘****************************************************'
|
db '****************************************************'
|
||||||
db 0dh, 0ah
|
db 0dh, 0ah
|
||||||
db ‘* The timer overflowed, so the interval timed was *'
|
db '* The timer overflowed, so the interval timed was *'
|
||||||
db 0dh, 0ah
|
db 0dh, 0ah
|
||||||
db ‘* too long for the precision timer to measure. *'
|
db '* too long for the precision timer to measure. *'
|
||||||
db 0dh, 0ah
|
db 0dh, 0ah
|
||||||
db ‘* Please perform the timing test again with the *'
|
db '* Please perform the timing test again with the *'
|
||||||
db 0dh, 0ah
|
db 0dh, 0ah
|
||||||
db ‘* long-period timer. *'
|
db '* long-period timer. *'
|
||||||
db 0dh, 0ah
|
db 0dh, 0ah
|
||||||
db ‘****************************************************'
|
db '****************************************************'
|
||||||
db 0dh, 0ah
|
db 0dh, 0ah
|
||||||
db ‘$'
|
db '$'
|
||||||
|
|
||||||
; ********************************************************************
|
; ********************************************************************
|
||||||
; * Routine called to start timing. *
|
; * Routine called to start timing. *
|
||||||
|
|
@ -913,11 +913,11 @@ and should contain calls to `ZTimerOn` and `ZTimerOff` .
|
||||||
;
|
;
|
||||||
; By Michael Abrash
|
; By Michael Abrash
|
||||||
;
|
;
|
||||||
mystack segment para stack ‘STACK'
|
mystack segment para stack 'STACK'
|
||||||
db 512 dup(?)
|
db 512 dup(?)
|
||||||
mystack ends
|
mystack ends
|
||||||
;
|
;
|
||||||
Code segment para public ‘CODE'
|
Code segment para public 'CODE'
|
||||||
assume cs:Code, ds:Code
|
assume cs:Code, ds:Code
|
||||||
extrn ZTimerOn:near, ZTimerOff:near, ZTimerReport:near
|
extrn ZTimerOn:near, ZTimerOff:near, ZTimerReport:near
|
||||||
Start proc near
|
Start proc near
|
||||||
|
|
@ -1932,11 +1932,11 @@ timing.
|
||||||
;
|
;
|
||||||
; By Michael Abrash
|
; By Michael Abrash
|
||||||
;
|
;
|
||||||
mystack segment para stack ‘STACK'
|
mystack segment para stack 'STACK'
|
||||||
db 512 dup(?)
|
db 512 dup(?)
|
||||||
mystack ends
|
mystack ends
|
||||||
;
|
;
|
||||||
Code segment para public ‘CODE'
|
Code segment para public 'CODE'
|
||||||
assume cs:Code, ds:Code
|
assume cs:Code, ds:Code
|
||||||
extrn ZTimerOn:near, ZTimerOff:near, ZTimerReport:near
|
extrn ZTimerOn:near, ZTimerOff:near, ZTimerReport:near
|
||||||
Start proc near
|
Start proc near
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue