.TITLE	EBCASC
;
;   WAYNE L. DERNONCOURT
;   NAVAL ORDNANCE STATION
;   INDIAN HEAD, MARYLAND     20640
;   SEPTEMBER 22, 1980
;
;
;  THIS ROUTINE CONVERTS EBCDIC TO ASCII
;
;  R0 - CONTAINS THE STARTING ADDRESS OF BUFFER
;  R1 - NUMBER OF BYTES TO TRANSLATE
;  R2 - CONTAINS THE CHARACTER WHICH IS TO BE TRANSLATED
;  R3 - CONTAINS THE BITS TO BE CLEARED
;
	.NLIST	BEX
;
EBCASC::NOP
	MOV	R0,-(SP)		;SAVE
	MOV	R1,-(SP)		;REGISTERS
	MOV	R2,-(SP)		;ON THE
	MOV	R3,-(SP)		;STACK
;
	MOV	(R5),R0			;NUMBER OF ARGUMENTS PASSED
	MOV	2(R5),R0		;GET THE STARTING ADDRESS
	MOV	@4(R5),R1		;NUMBER OF BYTES
	MOV	#^B1111111100000000,R3	;MASK FOR CLEARING OUT UPPER BYTE
10$:	MOVB	(R0),R2			;STORE CHARACTER IN R2
	BIC	R3,R2			;CLEAR THEM OUT HERE
	MOVB	EBCDIC(R2),(R0)+	;PUT NEW CHARACTER INTO INBUF
	SOB	R1,10$
;
	MOV	(SP)+,R3		;RESTORE
	MOV	(SP)+,R2		;REGISTERS
	MOV	(SP)+,R1		;FROM
	MOV	(SP)+,R0		;STACK
	RTS	PC
;
;  DATA AREA - ASCII CHARACTERS IN CORRESPONDING EBCDIC LOCATIONS
;
EBCDIC:	.BYTE 	000,001,002,003,077,011,077,177,077,077,077,013,014,015
	.BYTE	016,017,020,021,022,023,077,077,010,077,030,031,077,077
	.BYTE	034,035,036,037,077,077,077,077,077,012,027,033,077,077
	.BYTE	077,077,077,005,006,007,077,077,026,077,077,077,077,004
	.BYTE	077,077,077,077,024,025,077,032,040,077,077,077,077,077
	.BYTE	077,077,077,077,133,056,074,050,053,041,046,077,077,077
	.BYTE	077,077,077,077,077,077,135,044,052,051,073,136,055,057
	.BYTE	077,077,077,077,077,077,077,077,174,054,045,137,076,077
	.BYTE	077,077,077,077,077,077,077,077,077,140,072,043,100,047
	.BYTE	075,042,077,141,142,143,144,145,146,147,150,151,077,077
	.BYTE	077,077,077,077,077,152,153,154,155,156,157,160,161,162
	.BYTE	077,077,077,077,077,077,077,176,163,164,165,166,167,170
	.BYTE	171,172,077,077,077,077,077,077,077,077,077,077,077,077
	.BYTE	077,077,077,077,077,077,077,077,077,077,173,101,102,103
	.BYTE	104,105,106,107,110,111,077,077,077,077,077,077,175,112
	.BYTE	113,114,115,116,117,120,121,122,077,077,077,077,077,077
	.BYTE	134,077,123,124,125,126,127,130,131,132,077,077,077,077
	.BYTE	077,077,060,061,062,063,064,065,066,067,070,071,077,077
	.BYTE	077,077,077,077
	.EVEN
;
	.END