* Takes input data and displays it on a 7-segment display
* Numbers not in range display as E

inport		EQU		$600
outport	EQU		$400


* Hex number ftw

			ORG		$3000
number:	FCB		$77,$22,$5b,$6b,$2e,$6d,$7d,$23,$7f,$6f

* BUGFIX, dooh
			BGND   

* Program:	
main:		LDX		#$3000

			LDAB	inport
			LDAA	b,x
			
*			JSR		delay

			CMPB	#10

			BHI		disperr

dispreal:	STAA	outport
			JMP		main

disperr:	LDAA	#$5d
			STAA	outport

			JMP		main

* Delay function:

delay		PSHA
			LDAA	#20
			
delayloop	SUBA	#1
			BNE		delayloop
			PULA
			RTS