Segítséget kérek PIC programhoz

[Csihar Zoltán]

Bocs, ez a melléklet, csak nem ment át! MPASM-ben nincs így szétcsúszva.

			list	p=12f675
			#include	<p12f675.inc>
	
			org		0
			nop
	
	__CONFIG
_LP_OSC&_CP_OFF&_WDT_OFF&_CPD_OFF&_BODEN_ON&_MCLRE_ON&_PWRTE_ON
		
#define		JEL		D'06'			;kezdoertekrk:	JEL
#define		SZUNET	D'04'			;
SZUNET
#define		IDO		D'255'			;
IDO

#define		JEL1					;ciklusvaltozok:JEL1
#define		SZUNET1					;
SZUNET1
#define		IDO1					;
IDO1

#define		CIKL1	H'FF'
#define		CIKL2	H'FF'
#define		CIKL3	H'FF'
#define		CIKL4	H'FF'

	
INIT		bsf 	STATUS,RP0 		;Bank1
			movlw 	B'00000100'		;Set GP2 OUT
			movwf 	TRISIO 			;port adatirany
beiras
			bcf		STATUS,RP0		;Bank0
		
START		movlw	B'00000100'		;LED bekapcsolas
			movwf	GPIO
			
			movlw	JEL
			movwf	JEL1
ON			decfsz	JEL1,f
			goto	ON
						
			movlw	B'00000000'		;LED kikapcsolas
			movwf	GPIO
			
			movlw	SZUNET
			movwf	SZUNET1
OFF			decfsz	SZUNET1,f
			goto	OFF
			
			decfsz	CIKL4,f			;Kesleltetesek
			goto	START
			decfsz	CIKL3,f
			goto	START
			decfsz	CIKL2,f
			goto	START
			decfsz	CIKL1,f
			goto	START
			decfsz	IDO,f			;Idozites?
			goto	START
			
			sleep
			
			end			

Üdvözlettel: Csihar Zoltán, Digitron Kft