;
;	16*2 dotmatrix LCD 
;
	LIST P=16F877, R=DEC
	#INCLUDE P16F877.INC
	CBLOCK 0X20
	ENDC
;
;	DEFINE RAM
;
	CBLOCK
	 R0, R1
	ENDC
;
;
	ORG 0
	NOP
	call	InitLCD
	call	clrLCD
	call	L1homeLCD
	movlw	3		; move cursor right 3 position
	call 	movcurLCD
	movlw	'M'
	call	putcLCD
	movlw	'i'
	call	putcLCD
	movlw	'c'
	call	putcLCD
	movlw	'r'
	call	putcLCD
	movlw	'o'
	call	putcLCD
	movlw	'c'
	call	putcLCD
	movlw	'h'
	call	putcLCD
	movlw	'i'
	call	putcLCD
	movlw	'p'
	call	putcLCD
;
	call	L2homeLCD
;
	MOVLW 12
	MOVWF R0
	CLRF R1
AGAIN:
	MOVF R1,W
	CALL F877TBL		; get a character from table
	CALL putcLCD		; output w to LCD line2
	INCF R1			; next character
	DECFSZ R0		; totaly 9 characters
	GOTO AGAIN
;
	GOTO $			; stop here !

F877TBL:
	ADDWF PCL
	DT	"   PIC16F877"	; retlw 'P'
				; retlw 'I'
				; retlw "C'
				; .......
;---------------------------------------------------------------;
								;
	#INCLUDE <LCD.INC>					;
								;
; Defines for I/O ports that provide LCD data & control		;
								;
LCD_DATA	equ	PORTB					;
LCD_CNTL	equ	PORTB					;
								;
RS	equ	5	; RS=PORTB,5				;
E	equ	4						;
								;
;===============================================================;
;
;
;
	END