//	OCTA4 - CONVERT BINARY NUMBER TO DISPLAY CODE.
/
/	STRNG = OCTA4(IVPAR)
/
/	STRNG WILL CONTAIN THE 4-DIGITS OF THE DISPLAY CODE
/	IN OCTAL FORM.  (THE LAST 2 CHARACTERS
/	ARE SPACES)
/
//

ENTRY OCTA4

OPDEF	TADI	1400

OCTA4,	BLOCK 2
	TAD OCTA4
	DCA CDFA
CDFA,	HLT		/CDF TO CALLING FIELD.
	TADI OCTA4#
	DCA CDFB
	INC OCTA4#
	TADI OCTA4#
	DCA IPAR
	INC OCTA4#
CDFB,	HLT		/CDF TO PARAMETER FIELD.
	TADI IPAR
	DCA IPAR
	TAD IPAR
	AND (7
	DCA DIGIT	/DIGIT # 4
	TAD IPAR
	RTL;RAL
	AND (0700
	TAD DIGIT
	TAD (6060
	DCA ACM		/DIGITS #3 AND #4.
	TAD IPAR
	RTR;RTR;RTR
	AND (7
	DCA DIGIT	/DIGIT #2
	TAD IPAR
	RTR;RAR
	AND (0700
	TAD DIGIT	/DIGITS # 1 AND #2.
	TAD (6060
	DCA ACH
	TAD (4040
	DCA ACL		/SPACE FILL..
	RETRN OCTA4

IPAR,	0
DIGIT,	0

	END