;Lab 5 Liquid Crystal Displays
'The program will operate just as in lab 2 but only with
;a liquid crystal which will count in decimal 00 to 99.

.EQU	COUNT, 00H			;INITIALIZES VARIABLES
.EQU	TIME, 01H
.EQU	HIGH, 02H
.EQU	LOW, 03H

	MOV	TMOD, #01H
	MOV	COUNT, #00H
	MOV	TIME, #00H
	MOV	HIGH, #00H
	MOV	LOW, #00H

;START OF PROGRAM

BEG:	MOV	A, COUNT		;MOVES COUNT INTO ACCUM
	ADD	A, #01H
	DA	A
	MOV	COUNT, A
	MOV	TIME, #28H		;COUNT OF 40 TO GIVE THE ILLUSION

;TIME DELAY INFORMAITON

D1:	MOV	TL0, #0A8H		;.01667 TIME DELAY LOW
	MOV	TH0, #0ECH		;HIGH BIT AT 00H
	SETB	TR0			;START TIMER

;DISPLAYS THE TABLE INFORMATION

X1:	SETB	P2.0			;SWITCH
	MOV	A, COUNT		
	MOV	DPTR, #TABLE	;MOVES TABLE INTO DPTR
	ANL	A, #0FH		;DISPLAYS THE CURRENT NUMBER FROM THE TABLE
	MOVC	A, @A+DPTR		;INCREASES THE ADDRESS LOCATION 1 COUNT
	MOV	LOW, A		;MOVES THE NUMBER INTO PIN 1
	MOV	A, COUNT		;MOVES THE COUNT INTO ACCUM
	SWAP	A			;SWITCHES LSD TO MSD
	ANL	A, #0FH		;DISPLAYS  THE CURRENT NUMBER FOR THE TABLE
	MOVC	A, @A+DPTR		;INCREASES THE ADDRESS LOCATION FROM THE TABLE
	MOV	HIGH, A		;MOVES THE NUMBER IN ACCUM HIGH

X2:	MOV	P1, LOW
	MOV	P3, HIGH
	LCALL	D1			;CALLS D1 TIME DELAY INFORMATION
	XRL	LOW, #0FFH
	MOV	P1, LOW
	XRL	HIGH, #0FFH
	MOV	P3, HIGH
	LCALL	D1			;CALLS D1 TIME DELAY INFORMATION

	CLR	P1
	CLR	P3
	
	XRL	LOW, #0FFH		;EXCLUSIVELY OR'S LOW BITS
	XRL	HIGH, #0FFH		;EXCLUSIVELY OR'S HIGH BITS

	JNB	P2.0, X1		;CHECKS FOR SWITCH
	DJNZ	TIME, X2
	LJMP	BEG

D2:	JNB	TR0,D2
	CLR	TF0
	CLR	TR0
	RET

TABLE:				;TABLE INFORMATION
	.DB	FCH	;ZERO
	.DB	60H	;ONE
	.DB	DAH	;TWO
	.DB	F2H	;THREE
	.DB	66H	;FOUR
	.DB	B6H	;FIVE
	.DB	3EH	;SIX
	.DB	E0H	;SEVEN
	.DB	FEH	;EIGHT
	.DB	E6H	;NINE

	.END