LIST P=12F675, R=DEC INCLUDE ;========================================================================== ; Configuration Bits ;========================================================================== __CONFIG _CP_OFF & _CPD_OFF & _BODEN_ON & _MCLRE_ON & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT ;========================================================================== PORTST equ 0x20 COUNT1 equ 0x21 COUNT2 equ 0x22 COUNT3 equ 0x23 #define LEDA GPIO,2 ; LED A #define LEDB GPIO,4 ; LED B org 0x00 goto START v_nfo dt "Test P8048 - 12F675" DELAY MOVLW .3 MOVWF COUNT3 movlw 0xff MOVWF COUNT2 MOVWF COUNT1 delay_loop1 nop nop nop DECFSZ COUNT1,1 GOTO delay_loop1 DECFSZ COUNT2,1 GOTO delay_loop1 RETURN START BCF STATUS,RP0 ;bank 0 MOVLW b'00000111' ;comparator off MOVWF CMCON BSF STATUS,RP0 ;bank 1 MOVLW b'11101011' ;gpio 2 & 4 in MOVWF TRISIO ;zabiš BCF STATUS,RP0 ;bank 0 BSF LEDA ; on led a BCF LEDB ; on led b LOOP MOVF GPIO,0 ;W = GPIO MOVWF PORTST ;PORTSR = W BTFSC PORTST,5 ;test bit 5 GOTO loop00 BSF LEDA BCF LEDB goto loop01 loop00 BSF LEDB BCF LEDA loop01 CALL DELAY GOTO LOOP END