*COMDECK TIMANAL
_$J+? 
_ 
************************************************************************
*                                                                      *
*              * *   T I M I N G   A N A L Y S I S   * *               *
*                                                                      *
************************************************************************
*                                                                      *
** OVERVIEW -  THESE ROUTINES SET AND RESET A STATUS MODE BIT.  THIS   *
*              BIT IS USED BY A HARDWARE INSTRUEMENT TO MEASURE THE    *
*              TIME THE BIT IS SET THUS YEILDING PROGRAM EACUTION TIME *
*                                                                      *
************************************************************************
* 
* 
? 
PROCEDURE TOTIME;                           _ MEASURE TOTAL TIME       ?
BEGIN 
  INST ($C000,$8200,                        _ LDA   N$8200 - SET BIT206?
        $E400,PFSR2SM,                      _ LDQ   FIRMWARE ROUTINE   ?
        $0BA2,                              _ EMS   Q.                 ?
        $5400,$0000,                        _ RTJ   ROUTINE            ?
        $0B00,$0B00,                        _ PARAMETERS               ?
        $C000,$0200,                        _ LDA   N$0200 RESET BIT206?
        $E400,PFSR2SM,                      _ LDQ   FIRMWARE ROUTINE   ?
        $0BA2);                             _ EMS   Q                  ?
END;  _ TOTIME ?
_ 
*              ---- S T A R T   T I M E R   O N L Y   ----
? 
PROCEDURE TOSTART;
BEGIN 
  INST ($C000,$8200,                        _ LDA   N$8200 - SET BIT206?
        $E400,PFSR2SM,                      _ LDQ   FIRMWARE ADDRESS   ?
        $0BA2);                             _ EMS   Q                  ?
END;  _ TOSTART ? 
_ 
*              ---- S T O P   T I M E R   O N L Y   ----
? 
PROCEDURE TOSTOP; 
BEGIN 
  INST ($C000,$0200,                        _ LDA   N$0200 RESET BIT206?
        $E400,PFSR2SM,                      _ LDQ   FIRMWARE ROUTINE   ?
        $0BA2);                             _ EMS   Q                  ?
END;  _ TOSTOP ?
