;------------------------------------------------------------------------------
IF CLOCK ==16000000
;------------------------------------------------------------------------------
DELAY_004_MICR ;Delay = 0,000004 sec with Fosc = 16 MHz
LOADREG CNTR_INNER,5
DELAY_004_MICR_LOOP
DECFSZ CNTR_INNER,1
BRA DELAY_004_MICR_LOOP
;------------------------------------------------------------------------------
DELAY_010_MICR ;Delay = 0,000010 sec with Fosc = 16 MHz
LOADREG CNTR_INNER,13
DELAY_010_MICR_LOOP
DECFSZ CNTR_INNER,F
BRA DELAY_010_MICR_LOOP
RETURN
;------------------------------------------------------------------------------
DELAY_020_MICR ;Delay =0,000020 s with Fosc =16 MHz
LOADREG CNTR_INNER,26
DELAY_020_MICR_LOOP
DECFSZ CNTR_INNER,F
BRA DELAY_020_MICR_LOOP
RETURN
;------------------------------------------------------------------------------
DELAY_050_MICR ;Delay =0,000050 s with Fosc =16 MHz
LOADREG CNTR_INNER,66
DELAY_050_MICR_LOOP
DECFSZ CNTR_INNER,F
BRA DELAY_050_MICR_LOOP
RETURN
;------------------------------------------------------------------------------
DELAY_100_MICR ;Delay =0,0001 s with Fosc =16 MHz
LOADREG CNTR_INNER,133
DELAY_100_MICR_LOOP
DECFSZ CNTR_INNER,F
BRA DELAY_100_MICR_LOOP
RETURN
;------------------------------------------------------------------------------
DELAY_001_MILI ;Delay =0,001 s with Fosc =16 MHz
LOADREG CNTR_MIDDLE,6
LOADREG CNTR_INNER,49
DELAY_001_MILI_LOOP
DECFSZ CNTR_INNER,F
BRA DELAY_001_MILI_LOOP
DECFSZ CNTR_MIDDLE,F
BRA DELAY_001_MILI_LOOP
RETURN
;------------------------------------------------------------------------------
DELAY_005_MILI ;Delay =0,005 s with Fosc =16 MHz
LOADREG CNTR_MIDDLE,26
LOADREG CNTR_INNER,249
DELAY_005_MILI_LOOP
DECFSZ CNTR_INNER,F
BRA DELAY_005_MILI_LOOP
DECFSZ CNTR_MIDDLE,F
BRA DELAY_005_MILI_LOOP
RETURN
;------------------------------------------------------------------------------
DELAY_100_MILI ;Delay =0,100 s with Fosc =16 MHz
LOADREG CNTR_OUTER,3
LOADREG CNTR_MIDDLE,8
LOADREG CNTR_INNER,119
DELAY_100_MILI_LOOP
DECFSZ CNTR_INNER,F
BRA DELAY_100_MILI_LOOP
DECFSZ CNTR_MIDDLE,F
BRA DELAY_100_MILI_LOOP
DECFSZ CNTR_OUTER,F
BRA DELAY_100_MILI_LOOP
RETURN
;------------------------------------------------------------------------------
DELAY_300_MILI ;Delay =0,300 s with Fosc =16 MHz
LOADREG CNTR_OUTER,7
LOADREG CNTR_MIDDLE,23
LOADREG CNTR_INNER,107
DELAY_300_MILI_LOOP
DECFSZ CNTR_INNER,F
BRA DELAY_300_MILI_LOOP
DECFSZ CNTR_MIDDLE,F
BRA DELAY_300_MILI_LOOP
DECFSZ CNTR_OUTER,F
BRA DELAY_300_MILI_LOOP
RETURN
;------------------------------------------------------------------------------
DELAY_001_SEC ;Delay =1,000 s with Fosc =16 MHz
LOADREG CNTR_OUTER,21
LOADREG CNTR_MIDDLE,75
LOADREG CNTR_INNER,191
DELAY_001_SEC_LOOP
DECFSZ CNTR_INNER,F
BRA DELAY_001_SEC_LOOP
DECFSZ CNTR_MIDDLE,F
BRA DELAY_001_SEC_LOOP
DECFSZ CNTR_OUTER,F
BRA DELAY_001_SEC_LOOP
RETURN
ENDIF
;------------------------------------------------------------------------------