d 	.TITLE	TRANSLATE EBCDIC TO ASCII - 
х 	.IDENT	/02/
,
░;
Т; COPYRIGHT (C) 1977
X; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754
╪;
 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE
└; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE
Х; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,
L; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
╟; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE
; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES
x; REMAIN IN DEC.
э;
@; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
є; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT
; CORPORATION.
l;
п; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS
4; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
≤;
Э
`	;++
д	; FACILITY:
Ж	;	ROUTINE TO TRANSLATE A STRING OF CHARACTERS TO ASCII
(
;
▄
; ABSTRACT:
Ў
;	CALLED FROM FORTRAN AS :
в
;		CALL ETRANS (LEN,BUFFER)  !TRANSLATE EBCDIC TO ASCII
Ц
;		LEN = I*4 LENGTH
О
;		BUFFER = DATA TO BE TRANSLATED
П
;
;			OR
;		CALL BTRANS (LEN,BUFFER)  !TRANSLATE BCD TO ASCII
,;
T;
╦; ENVIRONMENT:
;
─; AUTHOR: TOM RARICH , CREATION DATE: 30-JAN-1978
Д;
H; MODIFIED BY:
╛;
;	, : VERSION
t; 01	-	;EBCDIC TO ASCII TRANSLATION 
і; 02	-	;ADD BCD TO ASCII TRANSLATION
©;		; CHANGE ENTRY POINT NAMES
ь;--
ЪЪ
d 	.SBTTL	DECLARATIONS
х ;
,; INCLUDE FILES:
░;
Т
X;
╪; MACROS:
 ;
└
Х;
L; EQUATED SYMBOLS:
╟;

x;
э; OWN STORAGE:
;
;	EBCDIC TO ASCII TRANSLATION TABLE
@;
JEBCDTRAN:       .ASCII	/@@@@@@@@/	;REPLACE ILLEGAL ALPHANUMERICS
T		.ASCII	/@@@@@@@@/	;  WITH @
^		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX 10 - 1F
h		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX 20 - 2F
r		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX 30 - 3F
|		.ASCII	/ @@@@@@@@@@.<(+|/ ; HEX 40 - 4F
├		.ASCII	/&@@@@@@@@@!$*);@/ ; HEX 50 - 5F
░		.ASCII	\-/@@@@@@@@@,%_>?\ ; HEX 60 - 6F
 		.ASCII	/@@@@@@@@@@:#@'="/ ; HEX 70 - 7F
є		.ASCII	/@abcdefghi@@@@@@/ ; HEX 80 - 8F
ў		.ASCII 	/@jklmnopqr@@@@@@/ ; HEX 90 - 9F
╦		.ASCII	/@@stuvwxyz@@@@@@/ ; HEX A0 - AF
б		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX B0 - BF
л		.ASCII	/@ABCDEFGHI@@@@@@/ ; HEX C0 - CF
ж		.ASCII	/!JKLMNOPQR@@@@@@/ ; HEX D0 - DF
Ю		.ASCII	/@@STUVWXYZ@@@@@@/ ; HEX E0 - EF
Й		.ASCII	/0123456789@@@@@@/ ; HEX F0 - FF
Л;
Н;
П;	BCD TO ASCII TRANSLATION TABLE - FOR 026 CARD PUNCH BCD CODES
Р;
NBCDTRAN:	.ASCII	/@@@@@@@@/	;REPLACE ILLEGAL ALPHANUMERICS
╡		.ASCII	/@@@@@@@@/	;  WITH @
		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX 10 - 1F
z		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX 20 - 2F
ч		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX 30 - 3F
B			.ASCII	/ @@@@@@@@@?.)]<!/ ; HEX 40 - 4F
і			.ASCII	/+@@@@@@@@@:$*[>&/ ; HEX 50 - 5F


		.ASCII	\-/@@@@@@@@@,("#%\ ; HEX 60 - 6F
n
		.ASCII	/@@@@@@@@@@_=@^'\/ ; HEX 70 - 7F
р
		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX 80 - 8F
6		.ASCII 	/@@@@@@@@@@@@@@@@/ ; HEX 90 - 9F
 		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX A0 - AF
Ч		.ASCII	/@@@@@@@@@@@@@@@@/ ; HEX B0 - BF
b		.ASCII	/@ABCDEFGHI@@@@@@/ ; HEX C0 - CF
ф		.ASCII	/@JKLMNOPQR@@@@@@/ ; HEX D0 - DF
*		.ASCII	/;@STUVWXYZ@@@@@@/ ; HEX E0 - EF
▌		.ASCII	/0123456789@@@@@@/ ; HEX F0 - FF
ЪЪ
х ;++
,; FUNCTIONAL DESCRIPTION:
6;	FORTRAN CALLABLE SUBROUTINE TO TRANSLATE 
@;	EBCDIC CHARACTERS TO ASCII
B;		or
D;	BCD CHARACTERS TO ASCII
J;
░;
Т;
X; CALLING SEQUENCE:
╪;
ф;	CALL ETRANS(LEN,BUFFER)	!EBCDIC TO ASCII
х;		OR
й;	CALL BTRANS(LEN,BUFFER)	!BCD TO ASCII
п;
└;
Х; INPUT PARAMETERS:
L;
V;	LEN = I*4 LENGTH USED BY MOVTC INSTRUCTION
`;	BUFFER = ADDRESS OF STRING TO BE TRANSLATED
;
x; IMPLICIT INPUTS:
э;
@;	NONE
є;
Т;
; OUTPUT PARAMETERS:
l;
п;	NONE
4;
≤; IMPLICIT OUTPUTS:
Э;
`	;	NONE
д	;
(
; COMPLETION CODES:
▄
;
П
;	NONE
T;
╦; SIDE EFFECTS:
;
─;	NONE
Д;
H;--
╛

t
ЪЪ
d 	.TITLE	TRANSLATE 
х TRANSL::	;FORMER ENTRY POINT NAME FOR ETRANS
З ETRANS::	;TRANSLATE EBCDIC TO ASCII
,	.BLKW	1	;ENTRY MASK - DON'T NEED TO SAVE ANYTHING
░	MOVTC	@4(AP),@8(AP),#^A/@/,EBCDTRAN,@4(AP),@8(AP)
Т	RET
X
Z;
\;
^BTRANS::	;TRANSLATE BCD TO ASCII
`	.BLKW 1		;DON'T NEED TO SAVE ANY REGISTERS
b	MOVTC	@4(AP),@8(AP),#^A/@/,BCDTRAN,@4(AP),@8(AP)
d	RET
f;
h;
j	.END