Retardo

.
;*******************************************************************************
.MESSAGE "rotinas dos retardos ativadas."
;*******************************************************************************
; uso:        ...
;            ldi r22,valor
;            rcall re_retardo
;            ...
; destroi: -  r22
re_retardo:        push r21
rtard_2:        ldi r21,f_RETARDO
rtard_1:        wdr
            nop
            nop
            nop
            nop
            nop
            dec r21
            brne rtard_1
            ;
            dec r22
            brne rtard_2
            pop r21
            ret
;--------------------------------------------------------------------------
re_esp_humana:    push r23
            push r22
            ldi r23,f_HUMANA
re_esp_hum1:        ldi r22,f_CONT            ; repete 255 o retardo com f_humana
            rcall re_retardo
            dec r23
            brne re_esp_hum1
            pop r22
            pop r23
            ret
;*******************************************************************************

.