retardos

.

;*******************************************************************************

.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

rcall re_retardo

dec r23

brne re_esp_hum1

pop r22

pop r23

ret

;*******************************************************************************

.