;=====================================================; ;PROGRAMM: WECHSELBLINKER ; ;AUTOR: TXXX RXXX ; ;BESCHREIBUNG: LAESST ZWEI LED'S AN PORTA0 UND PORTA1; ; ABWECHSELND BLINKEN ; ;PROZESSORTYP: PIC16F628 ; ;=====================================================; ;VARIABLEN DEFINIEREN STATUS equ 03h TRISA equ 85h PORTA equ 05h C1 equ 20h C2 equ 21h ;PORTS DEFINIEREN bsf STATUS,5 ;WECHSEL ZU BANK1 movlw 00h ;WERT 00h UM ALLE BITS AUF ;OUTPUT ZU STELLEN movwf TRISA ;WERT IN DIE KONFIGURATION ;SCHREIBEN bcf STATUS,5 ;RUECKWECHSEL ZU BANK0 ;PROGRAMMSTART START ;LED1 ANSCHALTEN UND LED2 AUSSCHALTEN movlw 01h ;DEN WERT 01h FUER BIT0 AN movwf PORTA ;UND BIT1 AUS SETZEN UND ;AUF DEN PORT SCHREIBEN ;DELAY AUFRUFEN call DELAY ;LED1 AUSSCHALTEN UND LED2 ANSCHALTEN movlw 02h ;DEN WERT 01h FUER BIT0 AN movwf PORTA ;UND BIT1 AUS SETZEN UND ;AUF DEN PORT SCHREIBEN ;DELAY AUFRUFEN call DELAY ;VON VORNE BEGINNEN goto START ;DELAY DEFINIEREN DELAY movlw 9Fh ;DEN WERT 255 IN movwf C1 ;DEN COUNTER 1 SCHREIBEN movlw 9Fh ;DEN WERT 255 IN movwf C2 ;DEN COUNTER 2 SCHREIBEN LOOP decfsz C1,1 ;C1 UM 1 VERMINDERN UND goto LOOP ;AUF NULL PRUEFEN WENN ;|= 0 ZU LOOP GEHEN SONST: decfsz C2,1 ;C2 UM 1 VERMINDERN UND goto LOOP ;AUF NULL PRUEFEN WENN ;|= 0 ZU LOOP GEHEN SONST: return ;DELAY BEENDEN UND MIT PROG ;FORTFAHREN ;ENDE DES PROGRAMMS DEFINIEREN end