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

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

/	OS/8 V3D FORTRAN FUNCTION IASCII( INT )
/
/	ARG :		0 - 99
/
/	RESULT :	TWO ASCII CHAR'S
/
/	10-SEP-78	W. HOUBEN
/
	ENTRY	IASCI
	DUMMY	IARG
	OPDEF BSW 7002
TEN,	12
IASCI,	BLOCK	2
	SZA
	JMP	NOARG	/ ARG IN AC
	TAD I	IASCI
	INC	IASCI#
	DCA	IARG
	TAD I	IASCI
	INC	IASCI#
	DCA	IARG#
	TAD I	IARG	/ GET ARGUMENT
NOARG,	CALL	1,DIV
	ARG	TEN
	BSW
	DCA	IARG
	CALL	1,IREM
IARG,	ARG	IARG
	TAD	IARG
	TAD	(6060
	RETRN	IASCI
/
/	ASSIGNED GOTO SUBROUTINE
/
/	CALL	1,AGTO
/	ARG	\LABEL
/	DCA	\IVAR
/
/	16-OCT-78	W. HOUBEN
/
AGTO,	BLOCK	2
	INC	AGTO#
	TAD I	AGTO
	INC	AGTO#
	RETRN	AGTO
	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