;------------------------------------------
;call with no. of ms in work
delay_xms               ;uses temp, temp1  check for reg. conflicts
        movwf   temp1   ;1      # ms in work
ms_dely
        movlw   .110    ;1  for fast crystal makes 1 millisecond
        movwf   temp    ;1
dlylp   clrwdt                   ;1pretty short duty cycle i use wdt a lot
        nop             ;1
        decfsz  temp,f  ;1
        goto    dlylp   ;2
        decfsz  temp1   ;1
        goto    ms_dely ;2
        return
;-------------------------------------------------------------
alice



>  All,
>
>  I am in need of a 10 mS and a 100 mS routine to run on a PIC.
>  I know I can write them, but if there are some out there, it
>  would be quicker to use those already written.  If you have
>  such an animal, and would feel like sharing it, or have a
>  pointer to one, please let me know ASAP.  I am trying to do
>  a quick and dirty test fixture, and time is short.   Help me
>  out if you can.
>
>                                        Thanks and Regards,
>
>                                               Jim
>
> jim@jpes.com