tempo4m.sub

来自「frequence metre to mesure the frequence 」· SUB 代码 · 共 87 行

;          nolist
;__________________________________________________________________________
;
;PROGRAM     : tempo.sub
;DATE        : 06/02/99
;LAST UPDATE :
;DESCRIPTION : Tempo for PIC with 4MHz Xtal
;
;AUTHOR      : FD
;TESTS       :
;__________________________________________________________________________
;
;                               VARIABLES
;__________________________________________________________________________

           cblock

           Temp1
           Temp2
           Temp3
           Temp4

           endc

;__________________________________________________________________________
;
;                                SUBROUTINES
;__________________________________________________________________________

; Delays 1mS, 10mS, 100mS and 1S
; input : none
; OK
T1mS
           movwf      SaveW
           movlw      .248
           movwf      Temp1
Loop1mS
           nop
           decfsz     Temp1,f
           goto       Loop1mS

           movf       SaveW,w

           return
;
T10mS
           movwf      SaveW
           movlw      .10
           movwf      Temp2
Loop10mS
           call       T1mS
           decfsz     Temp2,f
           goto       Loop10mS

           movf       SaveW,w

           return
;
T100mS
           movwf      SaveW
           movlw      .100
           movwf      Temp3
Loop100mS
           call       T1mS
           decfsz     Temp3,f
           goto       Loop100mS

           movf       SaveW,w

           return
;
T1S
           movwf      SaveW
           movlw      .100
           movwf      Temp4
Loop1S
           call       T10mS
           decfsz     Temp4,f
           goto       Loop1S

           movf       SaveW,w

           return
           
;__________________________________________________________________________
           list