; definimos una constante

fin    	 	.equ 0xFF01
pantalla	.equ 0xFF00
teclado		.equ 0xFF02

	
tabla:	
	.ascii "         "	


       	 	; definimos una constante
pantalla	.equ 0xFF00
	ldx	#tabla
	
programa:
	lda 	teclado
	cmpa	#'1
	beq	uno
	bne	compara2
compara2:
	cmpa	#'2
	beq	dos
	bne	compara3
compara3:	
	cmpa	#'3
	beq	tres
	bne	compara4
compara4:
	cmpa	#'4
	beq	cuatro
	bne	compara5	
compara5:	
	cmpa	#'5
	beq	cinco
	bne	compara6
compara6:	
	cmpa	#'6
	beq	seis
	bne	compara7
compara7:	
	cmpa	#'7
	beq	siete
	bne	compara8
compara8:			
	cmpa	#'8
	beq	ocho
	bne	compara9	
compara9:	
	cmpa	#'9
	beq	nueve
	





uno:
	lda	#'\n
	sta	pantalla
	ldy	#tabla
	lda	#'X
	sta	,x
	bra	imprime_cadena
		
	
dos:
	lda	#'\n
	sta	pantalla
	ldy	#tabla
	lda	#'X
	sta	1,x
	bra	imprime_cadena
		
tres:
	lda	#'\n
	sta	pantalla
	ldy	#tabla
	lda	#'X
	sta	2,x
	bra	imprime_cadena
	
cuatro:
	lda	#'\n
	sta	pantalla
	ldy	#tabla
	lda	#'X
	sta	3,x
	bra	imprime_cadena

cinco:
	lda	#'\n
	sta	pantalla
	ldy	#tabla
	lda	#'X
	sta	4,x
	bra	imprime_cadena
		
seis:
	lda	#'\n
	sta	pantalla
	ldy	#tabla
	lda	#'X
	sta	5,x
	bra	imprime_cadena

siete:
	lda	#'\n
	sta	pantalla
	ldy	#tabla
	lda	#'X
	sta	6,x
	bra	imprime_cadena

ocho:
	lda	#'\n
	sta	pantalla
	ldy	#tabla
	lda	#'X
	sta	7,x
	bra	imprime_cadena

nueve:
	lda	#'\n
	sta	pantalla
	ldy	#tabla
	lda	#'X
	sta	8,x
	bra	imprime_cadena





imprime_cadena:	
	pshs	a
	ldb	#9
imprime_cadena_inicio:
	lda 	#'|
	sta	pantalla
	lda	,x+
	sta	pantalla
	beq	reset_cadena
	decb
	cmpb	#6
	beq	imprime_espacio
	cmpb	#3
	beq	imprime_espacio
	cmpb	#0
	beq	imprime_espacio

	beq	imprime_espacio

	bra	imprime_cadena_inicio
	
	
reset_cadena:
	puls	a
	rts
	jmp	programa
	

imprime_espacio:
	lda 	#'\n
	sta	pantalla
	bra	imprime_cadena_inicio	
	



acabar:        ; el programa acaba
        clra
        sta	 fin

	.area	flag (ABS)
        .org 0xFFFE     ; vector de RESET
        .word programa