;********************************************
;*					    *
;* ROUTINES FOR EEPOT LCD CONTRAST CONTROL  *
;*                                          *
;* J COLLIN                                 *
;*                                          *
;********************************************



; *** BIT DEFINITIONS ***

EEPOT_INC BIT P1.4		; EEPOT CONNECTIONS
EEPOT_UD  BIT P1.5
EEPOT_CS  BIT P1.6


; *** INITIAL SETTINGS ***

SETB EEPOT_CS
SETB EEPOT_INC
SETB EEPOT_UD



; *** UP CONTRAST ***

CONT_UP:  NOP			
	SETB EEPOT_UD
	SETB EEPOT_INC
	NOP
	CLR EEPOT_CS
	NOP
	CLR EEPOT_INC
	NOP
	SETB EEPOT_INC
	NOP
	NOP
	CLR EEPOT_INC
	NOP
	SETB EEPOT_INC
	NOP
	SETB EEPOT_CS
	RET



; *** DOWN CONTRAST ***

CONT_DWN:  NOP
	CLR EEPOT_UD
	SETB EEPOT_INC
	NOP
	CLR EEPOT_CS
	NOP
	CLR EEPOT_INC
	NOP
	SETB EEPOT_INC
	NOP
	NOP
	CLR EEPOT_INC
	NOP
	SETB EEPOT_INC
	NOP
	SETB EEPOT_CS
	RET