; Cristina Casares i Josep Valls
INICI:	JMP LECT	;Salta a l'inici del programa
FI:	HLT		;Fi del programa
LECT:	LDA #13		;Lectora de mostra
	STA ERRS
	TAX
	LDA #0
	LDA ERRS
	SUB #10
	JNC NEG		;Si hi ha carry es negatiu
POS:	LDA #'1'	;Si no es negatiu, hi ha una desena
	OUT 7
	TXA		;Recupero el valor original
	SUB #10		;Aïllo les unitats
	JMP UNIT
NEG:	LDA #'0'	;No hi ha desenes
	OUT 7
	TXA
UNIT:	TAX
	LDA ODEC,X	;Carrega el valor de la taula ODEC
	OUT 6		;Mostrar per pantalla el valor
	JMP FI
ODEC:	DB '0'
	DB '1'
	DB '2'
	DB '3'
	DB '4'
	DB '5'
	DB '6'
	DB '7'
	DB '8'
	DB '9'
ERRS:	DB 0