home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30A / TIMER.ASM < prev    next >
Assembly Source File  |  1994-12-18  |  3KB  |  135 lines
  1. ;**************************** TIMER.ASM *********************************
  2. PAGE  70,132
  3. comment 
  4.                              TIMER
  5.                              -----
  6.  
  7.      Purpose:
  8.      --------
  9.  
  10.      TIMER is a sample program to show how the timer funcitons can
  11.      be used.  The unmodified program will time the execution of
  12.      programs, but it can be modified to time code segments.
  13.  
  14.      Using TIMER
  15.      ----------
  16.  
  17.      To time a program, type "TIMER <program name>"<Enter>
  18.      TIMER will execute the program and display the elapsed
  19.      time when the program exits.
  20.  
  21.      Compiling
  22.      ---------
  23.  
  24.      The commands needed to build TIMER.EXE using MASM are:
  25.         masm TIMER;
  26.         link TIMER,TIMER,,alib.lib;
  27. 
  28.  
  29. ;----------------------------------------------------------------------------
  30. .xlist
  31.     include  mac.inc
  32.     include  common.inc
  33.     extrn    library_setup:far
  34.     extrn    library_terminate:far    
  35.     extrn    spawn_dos:far    
  36.     extrn    calibrate_timer:far
  37.     extrn    start_timer:far
  38.     extrn    read_timer:far
  39.     extrn    convert_timer:far
  40.     extrn    display_timer:far
  41. .list
  42.     
  43. ;------------------------------------------------------------------------------
  44. code        segment para public 'CODE'
  45.         assume    cs:code, ds:code
  46. ;-----------------------------------------------------------------------------
  47. ; 
  48.  
  49. stacksize    equ    1024
  50.     db    stacksize dup (0)
  51. stack_    label    word
  52. ;
  53. pspseg        dw    0        ;program segment prefix
  54. ;-----------------------------------------------------------------------------
  55. start:    cli
  56.     mov    cs:pspseg,es    ;save PSP segment
  57.     mov    ax,cs        ;get CODE segment
  58.     mov    ss,ax
  59.     mov    ds,ax
  60.     mov    es,ax
  61.     mov    sp,offset stack_
  62.     sti
  63.     
  64. ; next, release memory beyond the end of the program
  65. ; The  definition for ZSEG marks the
  66. ; end of the program's code, data and stack area.
  67. ; When linking be sure ZSEG is at the end of the program.
  68.  
  69.     mov    ax,zseg
  70.  
  71.     mov    bx,cs:pspseg        ;
  72.     mov    es,bx
  73.     sub    bx,ax
  74.     neg    bx            ; size of program in paragraphs
  75.     mov    ah,4Ah            ; resize memory block
  76.     int    21h
  77.  
  78.     mov    ax,cs
  79.     mov    es,ax
  80. ;
  81. ; check if enough memory free to run program
  82. ;
  83.     mov    ax,pspseg        ;pass psp segment to setup
  84.     mov    bx,0            ;number of floating point variables
  85.     call    library_setup
  86. ;
  87. ; We want to call SPAWN_DOS which is not compatable with the memory
  88. ; manager, so we will remove it from memory.  We needed to call
  89. ; library setup origionally, to setup the library data area.
  90. ;
  91.     mov    ax,1
  92.     call    library_terminate
  93.  
  94.     call    calibrate_timer
  95.     call    start_timer
  96. ;
  97. ; note: for code timing it will be necessary to comment out the "jcxz"
  98. ;       instruction above, then place code below.
  99. ;
  100. ; **** place code to be timed here ****    
  101.  
  102.     mov    ax,cs:pspseg
  103.     mov    ds,ax
  104.     mov    es,ax
  105.     mov    si,81h
  106.     call    spawn_dos        ;execute program to be timed
  107.  
  108. ; **** end of code to be timed ****
  109.  
  110.     call    read_timer
  111.     call    convert_timer
  112.     call    display_timer        
  113.  
  114. exit2:    mov    ax,4C00h
  115.     int    21h
  116. ;---------------------------
  117.             
  118. code        ends
  119.     
  120. ;-------------------------------------------------------------------------
  121. ;
  122. ; This segment definition is needed so linker will put the LIBSEG here
  123. ; before the ZSEG.  We want ZSEG to be last so memory allocation will
  124. ; work correctly.
  125. ;
  126. LIBSEG           segment byte public 'LIB'
  127. LIBSEG    ENDS
  128. ;-------------------------------------------------------------------------
  129. ; zseg must be at the end of the program for memory allocation from
  130. ; DOS.
  131. ;
  132. zseg    segment    para public 'ZZ'
  133. zseg    ends
  134.         end    start
  135.