Open topic with navigation
WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
xcall R5ASC(rad50, ascii)
A variable whose first two characters are treated as a single RAD50 word to be converted. (a)
The variable that will be loaded with three ASCII characters, loaded left-justified over blanks. (a)
The R5ASC subroutine converts a two-character RAD50 word into three ASCII characters. (RAD50 was a compression technique used on PDP-11 systems.)
The R5ASC subroutine complements the ASCR5 subroutine.
RAD50-to-ASCII conversions are valid for the following ASCII characters:
The following example prompts the user to enter three ASCII characters. It converts those characters to two RAD50 characters, converts the RAD50 characters back to ASCII, and displays the results to the screen.
.define TTCHN ,1 record rad50 ,a2 ascii ,a3 proc open(TTCHN, i, "tt:") display(TTCHN, "Enter 3 characters: ") reads(TTCHN, ascii) xcall ascr5(ascii, rad50) xcall r5asc(rad50, ascii) writes(TTCHN, "After applying the ASCR5 subroutine") writes(TTCHN, "and then the R5ASC subroutine, your") display(TTCHN, 'characters appear as "', ascii, '"') stop end