TITLE	ASCIIBCD	;VICTOR MANUEL INIESTRA ALVAREZ
 
	ORG	1000
ASCII	DEFM	123408
BCD	DEFS	3
NUM_ENT	EQU	3
 
	ORG	0
	JZ	BEGIN
	JNZ	BEGIN
 
ASCBCD:	PUSH	A
	LD	X
	SL
	SL
	SL
	SL
	STO	Y
	INX
	LD	X
	AND	#0F
	ADC	Y
	STO	Y
	INX
	INY
	POP	A
	RET
 
BEGIN:	LDSP	#5000
	LD	#NUM_ENT
	LDX	ASCII
	LDY	BCD
REPEAT:	CALL	ASCBCD
	SUB	#01
	JNZ	REPEAT
	HALT
	END	

    Source: geocities.com/v.iniestra/apuntes/arq_proc

               ( geocities.com/v.iniestra/apuntes)                   ( geocities.com/v.iniestra)