Traductor Hexadecimal-EBCEDIC

Este programa solicita el ingreso de una configuración hexadecimal y retorna la correspondiente configuración EBCEDIC.

EBCDIC	PPIO	3
INGRE	WTORPC	'Ingrese la configuracion hexadecimal: ',ENTRA,2
	
	LA	4,LETRAS
	LA	5,3
	LA	6,ENTRA
COMLET	CLC	0(1,6),0(4)
	BE	LETOK
	LA	4,1(4)
	BCT	5,COMLET
	B	ERROR
LETOK	LA	4,NUMEROS
	LA	5,9
COMNUM	CLC	1(1,6),0(4)
	BE	NUMOK
	LA	4,1(4)
	BCT	5,COMNUM
	B	ERROR

NUMOK	LA	4,0
	LA	5,0
	ICM	5,12,ENTRA
	SLL	5,4
	SLDL	4,4
	A	4,=F'9'
	SLL	5,4
	SLDL	4,4
	STCM	4,1,SALE
	WTO	SALE
	CHAU

ERROR	WTO	'ERROR'
	B	INGRE

ENTRA	DS	CL2
LETRAS	DC	C'CDE'
NUMEROS	DC	C'123456789'
SALE	DS	CL1