'THIS PROGRAM DEMONSTRATES THE USE OF THE MULTI-7-SEG LED DISPLAY UNIT
'(REV_B) BY UTILIZING 4 LED DISPLAYS AND COUNTING UP FROM 0 TO 9999 (DEC).
'THIS CODE DOES NOT HAVE ANY PRACTICAL PURPOSES BUT IS ONLY MENT TO BE AN
'EXAMPLE OF DISPLAYING MULTI-DIGIT NUMBERS.  THIS CODE CAN BE ALTERED AND 
'IMPLEMENTED INTO OTHER CODE TO BE USED AS A BASIC DISPLAY ROUTINE.  
'
'IF YOU HAVE QUESTIONS, COMMENTS, OR CRITICIZIMS FOR THIS CODE MAIL ME AT 
'[skana@dataplusnet.com], THE SCHEMATIC CAN BE FOUND AT MY WEBSITE AT 
'[http://members.tripod.com/~skana/home.htm], OR I CAN JUST MAIL YOU THE
'SCHEMATIC.
'
'	###############
'	#  VARIABLES  #
'	###############
'
LOOP_COUNT	VAR	BYTE	'TO SLOW DOWN RATE OF THE UP-COUNT
'
DISP_COUNT	VAR	WORD	'NUMBER TO BE OUTPUT 
'
DATA_OUT	VAR	BYTE	'DATA BYTE CONTAINING NUMBER (SINGLE DIGIT) 
				'TO BE OUTPUT IN THE LOW NIBBLE AND THE
				'ADDRESS OF DIGIT TO LIGHT UP IN THE HIGH
				'NIBBLE. 
'
BCD_OUT		VAR	DATA_OUT.LOWNIB		'BCD # TO BE DISPLAYED
'
DIGIT_ADDRESS	VAR	DATA_OUT.HIGHNIB	'ADDRESS OF LED DIGIT TO 
						'LIGHT UP.
'
DIGIT_OUT	VAR	NIB	'SELECTS WHAT DIGIT OF THE DECIMAL NUMBERS 
				'TO OUTPUT. (ALWAYS SAME AS DIGIT_ADDRESS)
'
'	###############
'	#  MAIN CODE  #
'	###############
'
DIRL = $FF
MAIN_LOOP:
'	
	FOR DISP_COUNT = 0 TO 9999	'NUMBERS TO BE REPRESENTED ON DISP.
	FOR LOOP_COUNT = 1 TO 10	'MAKE A FRACTION OF A SECOND DELAY 
					'BETWEEN COUNT-UPS
	FOR DIGIT_ADDRESS = 0 TO 3	'NUMBER DECODED BY 3 TO 8 DECODER 		
	GOSUB DATA_OUT_SEND
	NEXT				'NEXT DIGIT_ADDRESS
	NEXT				'NEXT LOOP_COUNT
	NEXT 				'DISP_COUNT
	GOTO MAIN_LOOP
'
'	#################
'	#  SUBROUTINES  #
'	#################
'
DATA_OUT_SEND:
'
	DIGIT_OUT = DIGIT_ADDRESS	'ALWAYS WILL BE EQUAL
	BCD_OUT = DISP_COUNT DIG DIGIT_OUT	'SELECT DIGIT TO BE OUTPUT
	OUTL = DATA_OUT			'OUTPUT BYTE TO DISPLAY
	RETURN
'
'	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'	!		     				     !	
'	!		    BY NATHAN ALPERT		     !
'	!	      WEDNESDAY, 7TH OF JULY, 1998	     !
'	!						     !
'	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!