WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
xcall ASCR5(ascii, rad50)
A literal or variable that contains three ASCII characters to be converted. (a)
The variable that will be loaded with two RAD50 characters, left-justified over blanks. (a)
The ASCR5 routine converts three ASCII characters into two RAD50 characters. (RAD50 was a compression technique used on PDP-11 systems.) ASCR5 complements the R5ASC routine.
ASCII-to-RAD50 conversions are valid for the following ASCII characters:
- Uppercase letters A through Z
- Digits 0 through 9
- The following special characters: dollar sign ($), blank ( ), and period (.)
If the ASCII string contains any other characters, it is still converted, but it yields a RAD50 value that cannot be converted back correctly with the R5ASC external subroutine.
If the size of the ASCII value is less than three characters, an “Argument specified with wrong size” error ($ERR_ARGSIZ) is generated. If the size is more than three characters, only the leftmost three characters are converted. If the size of the rad50 variable is less than two characters, an “Argument specified with wrong size” error is also generated.
record asc ,a3 rad ,a2 proc xcall ascr5("ABCDE", rad) ;Converts "ABC" asc = "1A2" xcall ascr5(asc, rad) ;Converts "1A2" stop end