PORTB   EQU     $1004
INPUT   EQU     $FFAC
OUTPUT  EQU     $FFAF

	ORG	#$C000
START	JSR     INPUT	;check for input
	TSTA
	BEQ     START	;if no input, then loop

	CMPA    #$01
	BEQ     DONE
*the code that was sent to us used 5C, which is the \ character
	CMPA    #$20    ;20 is the space key in ASCII
	BEQ     SPACE
	CMPA    #$30    ;30 is ASCII zero
	BEQ     ZERO
	CMPA    #$31    ;30 is ASCII one
	BEQ     ONE
	CMPA    #$32    ;30 is ASCII two
	BEQ     TWO
	CMPA    #$33    ;30 is ASCII three
	BEQ     THREE
	CMPA    #$34    ;30 is ASCII four
	BEQ     FOUR
	CMPA    #$35    ;30 is ASCII five
	BEQ     FIVE
	CMPA    #$36    ;30 is ASCII six
	BEQ     SIX
	CMPA    #$37    ;30 is ASCII seven
	BEQ     SEVEN
	CMPA    #$38    ;30 is ASCII eight
	BEQ     EIGHT
	CMPA    #$39    ;30 is ASCII nine
	BEQ     NINE
	
SPACE	LDAB    #$00
	BRA     DISPLAY	;00 will display no lights
ONE	LDAB	#$60
	BRA DISPLAY
TWO	LDAB	#$6D
	BRA DISPLAY
THREE	LDAB	#$79
	BRA DISPLAY
FOUR	LDAB	#$33
	BRA DISPLAY
FIVE	LDAB	#$5B
	BRA DISPLAY
SIX	LDAB	#$5F
	BRA DISPLAY
SEVEN	LDAB	#$70
	BRA DISPLAY
EIGHT	LDAB	#$FF
	BRA DISPLAY
NINE	LDAB	#$7B
	BRA DISPLAY
ZERO    LDAB    #$FC    ;FC turns on all lights except the middle and the anode
	BRA     DISPLAY


DISPLAY	STAB    PORTB
	BRA     START

DONE	RTS
	END