PIC Microcontoller Delay Method

DelayUS() macro front-end for DelayTcy() by Mike McLaren, K8LH

Here's a simple DelayUS(microseconds) macro "front-end" for my DelayTcy routines. Remember to define or equate the "clock" variable as shown in the listing below.

Areas for improvement? How about parameter limit checking within the macro with gentle 'error' messages telling us where we went wrong?

;******************************************************************
; *
; DelayUS() Macro Mike McLaren, K8LH, June '07 *
; *
; the DelayUS() macro simply scales the "delay" parameter value *
; passed to your favorite DelayTcy routine and doesn't generate *
; any assembler instructions on its own. *
; *
; the 'usec' delay range for a 16-bit target DelayTcy() routine *
; is based on clock frequency; *
; *
; 4 MHz, 1 cycle /usec, 17..65551 usecs *
; 6 MHz, 1.5 cycles/usec, 12..43700 usecs *
; 8 MHz, 2 cycles/usec, 9..32775 usecs *
; 10 MHz, 2.5 cycles/usec, 7..26220 usecs *
; 12 MHz, 3 cycles/usec, 6..21850 usecs *
; 16 MHz, 4 cycles/usec, 5..16387 usecs *
; 20 MHz, 5 cycles/usec, 4..13110 usecs *
; 24 MHz, 6 cycles/usec, 3..10925 usecs *
; 28 MHz, 7 cycles/usec, 3.. 9364 usecs *
; 32 MHz, 8 cycles/usec, 3.. 8193 usecs *
; 36 MHz, 9 cycles/usec, 2.. 7283 usecs *
; 40 MHz, 10 cycles/usec, 2.. 6555 usecs *
; 48 MHz, 12 cycles/usec, 2.. 5462 usecs *
; *
; the DelayUS() macro requires the following two equates; *
; *
clock equ 32 ; see list above
cycles_per_usec equ (10000/(4000/clock))
; *
; *
; *
; DelayUS() macro *
; *
DelayUS macro usecs ; delay range: see list above
 DelayTcy((usecs*cycles_per_usec)/10)
 endm
; *
;******************************************************************
;******************************************************************
; *
; DelayTcy(), 16..65551 Tcy Mike McLaren, K8LH, June'07 *
; *
; requires the use of constant operands known at assembly time! *
; *
; 12 words, 1 RAM variable, 14-bit core *
; ^^^^^^^^^^^ *
; macro produces 4 instructions; *
; *
DelayTcy macro delay ; parameter range 16..65535
 movlw ~(high(delay-16))
 movwf TMRH
 movlw low(delay-16)
 call DelayLo-(delay%4)
 endm
; *
; *
; example code for simulation testing; *
; *
SimTest DelayUS(2048) ; delay 2048 usecs
 nop ; put simulator break point here
; *
; *
;******************************************************************
 nop ; entry point for delay%4 == 3
 nop ; entry point for delay%4 == 2
 nop ; entry point for delay%4 == 1
DelayLo addlw -4 ; subtract 4 cycle loop time
 skpnc ; borrow? yes, skip, else
 goto DelayLo ; do another loop
 nop ;
DelayHi addlw -4 ; subtract 4 cycle loop time
 incfsz TMRH,F ; done? yes, skip, else
 goto DelayLo ; do another loop
 goto $+1 ;
 return ;
;******************************************************************

Comments:

• Just make sure that the default number radix is DECIMAL if you are going to play with this! Or it gets rather confusing... ;-)
  +

.