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

/SUBROUTINE INXO4

/INPUTS AN ABS. INTEGER OF
/BASIS X &TRANSFERS TO BINARY

/CALLING SEQUENCE:
/
/	TAD (-X
/	JMS INXO4	/CALL
/	JMP ERR		/IF NON-NUMERIC CHAR.
/			/OR OVERFLOW
/	.......		/NORMAL RETURN
/			/AC CONTAINS OCT. VALUE

INXO4,	HLT
	DCA	INXO41
	DCA 	INXO42

INOX45,	TAD	INXO41
	DCA	INXO43
	CALL	LISTN		/GET A CHARACTER
	TAD	(-260
	DCA 	INXO44
	TAD	INXO44
	SPA			/DELIMITER?
	JMP	INXO46 		/YES-  RETURN
	TAD	INXO41		/MAY BE- ?
	SMA CLA
	JMP I	INXO4
	CLA CLL
	TAD 	INXO42
	SZL			/OVERFLOW?
	JMP I	INXO4		/YES- ERR RETURN
	ISZ	INXO43		/INXO42*INXO41 DONE ?
	JMP	.-4		/NO-
	TAD	INXO44		/YES- ADD INXO44
	DCA	INXO42		/INXO42 =INXO42*INXO41+INXO44
	JMP	INOX45

INXO46,	CLA CLL			/WE HAVE A INXO46IMITER
	TAD 	INXO42		/LOAD INTEGER &RETURN
	ISZ	INXO4
	JMP I	INXO4


INXO44,	0
INXO42,	0
INXO41,	0
INXO43,	0