.FLAGS CAPITALIZE
.NONUMBER
.TITLE <INPH - ^^OCTAL TO BINARY CONVERSION ROUTINE\\
.INDENT 50
<INPH
.SKIP 1
.CENTER
<INPH - ^^OCTAL TO BINARY CONVERSION ROUTINE\\
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <INPH\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ <INPH ACCEPTS A STRING OF <ASCII OCTAL NUMERALS (OCTAL VALUES RANGING
FROM 60-77 PER BYTE) AND CONVERTS THEM TO THEIR CORRESPONDING BINARY
REPRESENTATION (0-15 PER BYTE).
.SKIP 1
.INDENT -10
^^CALLABLE:\\ ^FROM <FORTRAN - ^^RESULT=INPH(BUF,MAX)\\
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP 1
.INDENT -9
^^BUF------\\^THE BYTE ARRAY CONTAINING THE OCTAL STRING.  ^LEADING BLANKS
ARE IGNORED.  ^A TRAILING BLANK, COMMA OR PERIOD  MARK THE END OF THE STRING.
.SKIP 1
.INDENT -9
^^MAX\\------^THE MAXIMUM EXPECTED LENGTH OF THE STRING.  <INPH WILL QUIT WHEN
IT FINDS THE ^^MAX\\'TH+1 BYTE OR AN ILLEGAL OCTAL DIGIT.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^THE <FORTRAN LIBRARY FUNCTION <ISHFT
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS,
<CETUS <CORPORATION
.SKIP 1
.INDENT -10
^^WRITTEN:\\ LONG AGO
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <FORTRAN
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <INPH
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]<CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10