;**********************************************************
; 3 sekunde
n warten
wait3sec
call
Wait
nop
call
Wait
nop
call
Wait
nop
call
Wait
nop
call
Wait
nop
call
Wait
nop
call
Wait
nop
call
Wait
nop
call
Wait
nop
call
Wait
nop
call
Wait
nop
call
Wait
return
;**********************************************************
; Warteschleife 250 ms
Wait
movlw
D'250' ;
movwf
loops
Wai
movlw
.110 ; Zeitkonstante für 10ms
movwf
loops2
Wai2 nop ;
nop
nop
nop
nop
nop
de
cfsz loops2, F ; 1 ms vorbei?
goto
Wai2 ; nein, noch nicht
;
de
cfsz loops, F ; 250 ms vorbei?
goto
Wai ; nein, noch nicht
retlw 0 ; das Warten hat ein Ende
|