#include c1 EQU 0x30 ;für die Warteschleifen c2 EQU 0x31 c3 EQU 0x32 c1s EQU 0x33 ;Startwerte für Warteschleifen c2s EQU 0x34 c3s EQU 0x35 GOTO START DELAY movf c3s, 0 ;lade Start-Werte MOVWF c3 LOOP_3 movf c2s, 0 MOVWF c2 LOOP_2 movf c1s, 0 MOVWF c1 LOOP_1 decf c1, 1 ;c1 := c1 - 1 BTFSS STATUS, 2 ;WENN 0, dann spring raus GOTO LOOP_1 decf c2, 1 BTFSS STATUS, 2 GOTO LOOP_2 decf c3, 1 BTFSS STATUS, 2 GOTO LOOP_3 RETURN START MOVLW d'247' MOVWF c3s MOVLW d'250' MOVWF c2s MOVLW d'170' MOVWF c1s CALL DELAY ;Warte 21,15 Sek ( 42.300.000 Cycles) NOP GOTO START end