;4bites módban kiír egy A betût a 9. helyre
LIST	P=16F628A
#INCLUDE "P16F628A.INC"

__CONFIG _XT_OSC&_CP_OFF&_LVP_OFF&_WDT_OFF&_MCLRE_OFF
	CBLOCK		0x20
	D1
	D2

	ENDC
	
	ORG		0


START
	MOVLW 	0x07
	MOVWF 	CMCON	
	BSF		STATUS,RP0		  
	MOVLW	0x00
	MOVWF	TRISA
	MOVLW	0x00
	MOVWF	TRISB
	BCF		STATUS,RP0

	BCF		PORTA,3			;RS=0 parancsadás
	BSF		PORTA,4			;E=1
	CALL	DELAY


	MOVLW	B'00000010'		;4 bitesbe állít
	MOVWF	PORTB	
	CALL	ENTER
	MOVLW	B'00001000'		;4 bitesbe állít
	MOVWF	PORTB	
	CALL	ENTER
	
	MOVLW	B'00000000'		;1. Kurzor aláhúzott és villog
	MOVWF	PORTB
	CALL	ENTER
	MOVLW	B'00001111'		;2. Kurzor aláhúzott és villog
	MOVWF	PORTB
	CALL	ENTER			

UJRA
	GOTO	UJRA

ENTER
	BCF		PORTA,4		;E=0
	CALL	DELAY
	BSF		PORTA,4		;E=1
	RETURN

DELAY
		MOVLW		0x01
		MOVWF		D1
		MOVLW		0x0A
		MOVWF		D2
D_1
		DECFSZ		D1,F
		GOTO		$+2
		DECFSZ		D2,F
		GOTO		D_1
		RETURN

	END