d ;
È ;        ASCII TO EBCDIC TRANSLATION ROUTINE VAX2IBM
,;        RAY MIELBRECHT JUNE 1979
;
ô;        ALL POSSIBLE TRANSLATIONS ARE MADE (INCLUDING
X;          UNPRINTABLES).  THE @ SIGN IS USED TO FILL IN
¼;          FOR THOSE ASCII CHARACTERS WHICH HAVE NO
 ;          EBCDIC EQUIVALENT.
„;
è;        FROM FORTRAN:  CALL VAX2IBM(LEN,IBUF)
L;          WHERE LEN AND IBUF ARE I*4.
°;
;
xA_TO_E: .QUAD   ^X2F2E455503020100
Ü        .QUAD   ^X0F0E0D0C0B250516
@        .QUAD   ^X26323D3C7C121110
¤        .QUAD   ^X7C357C22273F1918
        .QUAD   ^X7D506C5B7B7F5A40
l        .QUAD   ^X614B606B4E5C5D4D
Ð        .QUAD   ^XF7F6F5F4F3F2F1F0
4        .QUAD   ^X6F6E7E4C5E7AF9F8
˜        .QUAD   ^XC7C6C5C4C3C2C17C
ü        .QUAD   ^XD6D5D4D3D2D1C9C8
`	        .QUAD   ^XE6E5E4E3E2D9D8D7
Ä	        .QUAD   ^X6D7CBDE0ADE9E8E7
(
        .QUAD   ^X87868584838281E0
Œ
        .QUAD   ^X9695949392918988
ð
        .QUAD   ^XA6A5A4A3A2999897
T        .QUAD   ^X07A1D04FC0A9A8A7
¸        .BYTE   ^X40[128]
;
N        .TITLE   VAX2IBM
€        .ENTRY  VAX2IBM,^M<R2,R3,R4,R5>    ;ENTRY MASK
ä        MOVTC   @4(AP),@8(AP),#^A/@/,A_TO_E,@4(AP),@8(AP)
H        RET
¬        .END