File OCTA4.SB (8k SABR macro assembler source file)

Directory of image this file is from
This file as a plain text file

//	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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search