home *** CD-ROM | disk | FTP | other *** search
- ;
- ; Program to measure performance of code that takes less than
- ; 54 ms to execute.
- ; Link with PZTIMER.OBJ.
- ;
- ; By Michael Abrash 10/30/87
- ;
- stack segment para stack 'STACK'
- db 512 dup(?)
- stack ends
-
- Code segment para public 'CODE'
- assume cs:Code, ds:code
- extrn ZTimerOn:near, ZTimerOff:near, ZTimerReport:near
- Start proc near
- push cs
- pop ds ;set DS to point to the code segment
- ;
- ;Code under test starts here.
- ;*********************************************************************
- include testcode
- ;*********************************************************************
- ; Code under test ends here.
- ;
- ; Display the results.
- ;
- call ZTimerReport
- ;
- ; Terminate the program.
- ;
- mov ah,4ch
- int 21h
- Start endp
- Code ends
- end Start