LIST P=16F630 INCLUDE __CONFIG _PWRTE_ON & _WDT_OFF &_XT_OSC &_MCLRE_OFF ;........................................ ;........................................ TMP0 EQU 20h TMP1 EQU 21h TMP2 EQU 22h REGX EQU 23H ;#define CS PORTB,4 ;#define SK PORTB,5 ;#define DI PORTB,6 ;.................................. org 00h ;............................... ;................... BCF INTCON,GIE ;............................ bcf STATUS,RP0 ;Bank 0 clrf PORTA ;Init PORTA movlw 01h ;Set RA<2:0> to movwf CMCON ;digital I/O bsf STATUS,RP0 ;Bank 1 movlw B'00000000' movwf TRISA ;and set RA<5:4,1:0> ;as outputs bcf STATUS,RP0 ;Bank 0 banksel TRISA movlw B'00000011' ; inv- a neinvert+ nastavení movwf TRISA banksel TRISC movlw B'00000000' movwf TRISC ;................................... banksel PORTC ;................ movlw 0H movwf PORTA MOVLW B'00000000' movwf PORTC GOTO START ;......................... CAS MOVLW 0x7F ;127 DEC MOVWF TMP2 MOVLW 0x0CF ;207 DEC MOVWF TMP1 MOVLW 0x05 ;5 DEC MOVWF TMP0 DECFSZ TMP0,F GOTO $-1 DECFSZ TMP1,F GOTO $-5 DECFSZ TMP2,F GOTO $-9 RETURN ;........................ ;........................ START bsf PORTC,4 GOTO START ;.............................. END