.NONUMBER
.TITLE EBASCI - EBCDIC TO ASCII CONVERSION
.PAGE
.INDENT 50
EBASCI
.SKIP 1
.CENTER
EBASCI - EBCDIC TO ASCII CONVERSION
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: EBASCI\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TO CONVERT AN ^^EBCDIC\\ CHARACTER STRING
TO AN ^^ASCII\\ CHARACTER STRING.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ ^^FORTRAN\\ CALLABLE BY:
.SKIP 1
.INDENT 10
^^CALL EBASCI(N,A)\\
.INDENT 5
WHERE
.INDENT 10 
^N IS THE NUMBER OF CHARACTERS,
.INDENT 10
^A IS THE CHARACTER ARRAY NAME.
.SKIP 1
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^M. ^JOHNSON
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^JULY 1971
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^MACRO-11\\ ^ASSEMBLER
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^EBCDIC\\
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DM1:[111,1]LIBRARY.OLB\\
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ ^JULY 1971
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ ^SYSTEMS ^SECTION
.SKIP 1
.INDENT -10