;***************************************************************************
;                                                                     
;	LCDb16 Test Routine for PIC 16XXX V1.01
;	=======================================
;
;	written by Peter Luethi, 02.08.1999, Dietikon, Switzerland
;	http://www.electronic-engineering.ch
;	last update: 05.01.2005
;
;	V1.01:	Clean up and adaptation to latest module versions
;		(05.01.2005)
;
;	V1.00:	Initial release
;		(02.08.1999)
;
;	This code and accompanying files may be distributed freely and
;	modified, provided this header with my name and this notice remain
;	intact. Ownership rights remain with me.
;	You may not sell this software without my approval.
;
;	This software comes with no guarantee or warranty except for my
;	good intentions. By using this code you agree to indemnify me from
;	any liability that might arise from its use.
;	
;
;	SPECIFICATIONS:
;	===============
;	Processor:			Microchip PIC 16C84, PIC 16F84
;	Clock:				4.00 MHz XT
;	Throughput:			1 MIPS
;	Code Size of entire Program:	approx. 146 instruction words
;	Required Hardware:		HD44780 compatible dot matrix LCD
;					(2x16, 2x20 or 2x40 characters)
;
;
;	DESCRIPTION:
;	============
;	Developed on PIC 16C84, but executeable on all PIC 16XXX.
;	Demonstrates LCD initialization and the use of some LCD commands, as
;	well as 16 bit binary LCD output module m_lcdb16.asm (for debugging).
;
;***************************************************************************

;***** COMPILATION MESSAGES & WARNINGS *****

	ERRORLEVEL -207 	; Found label after column 1.
	ERRORLEVEL -302 	; Register in operand not in bank 0.

;***** PROCESSOR DECLARATION & CONFIGURATION *****

	PROCESSOR 16F84
	#include "p16f84.inc"
	
	; embed Configuration Data within .asm File.
	__CONFIG   _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC

;***** MEMORY STRUCTURE *****

	ORG     0x00			; processor reset vector
  	goto    MAIN

	ORG     0x04			; interrupt vector location
	goto	MAIN			; no ISR

;***** PORT DECLARATION *****

	LCDtris	equ	TRISB
	LCDport	equ	PORTB

;***** CONSTANT DECLARATION *****

	CONSTANT BASE = 0x0C		; base address of user file registers	

;***** REGISTER DECLARATION *****

	LO	equ	BASE+d'5'
	HI	equ	BASE+d'6'
	LO_TEMP	set	BASE+d'7'
	HI_TEMP	set	BASE+d'8'
	b16_cnt equ	BASE+d'9'	; counter

;***** INCLUDE FILES *****

	#include "..\..\m_bank.asm"
	#include "..\..\m_wait.asm"
	#include "..\..\m_lcd.asm"
	#include "..\..\m_lcdb16.asm"	; 16 bit binary debug output on LCD

;***** MACROS *****


;***** SUBROUTINES *****


;************** MAIN **************

MAIN
	LCDinit			; LCD Initialization
	clrf	HI
	clrf	LO

	LCD_DDAdr 0x02
	LCDchar	'L'
	LCDchar	'C'
	LCDchar	'D'
	LCDchar	'b'
	LCDchar	'1'
	LCDchar	'6'
	LCDchar	'-'
	LCDchar	'T'
	LCDchar	'e'
	LCDchar	's'
	LCDchar	't'
	LCDchar	':'

m_loop	LCD_DDAdr 0x40		; set cursor to the beginning of
				; the second line
	LCDbin_16

	incfsz	LO,1
	goto	IN_1
	incf	HI,1

IN_1	WAIT	0x40
	goto	m_loop

	END