/019 SUBROUTINE READS A DECIMAL NUMBER FROM KEYBD
/RUBOUT REMOVES NUMBER COMPLETELY
/
/
/CALL	:JMS DECINP
/	RETURN WITH NUMBER BINARY IN AC
/
/
DECINP,0
	CLA
	DCA DECNUM	/CLEAR REGISTER
	JMS READ	/READ CHAR FROM KEYOARD
	TAD CHAR
	JMS PRINT	/PRINT THAT CHAR
	TAD CHAR	/GET CHARACTER
	TAD M377	/IS IT RUBOUT?
	SNA CLA
	JMP DECINP+1	/YES READ ALL OVER AGAIN
	TAD CHAR	/NO
	TAD M260
	SPA		/CHAR>=260?
	JMP DECOUT	/NO,CHARACTER IS DELIMETER
	TAD M12		/YES
	SMA CLA		/CHAR<272?
	JMP DECOUT	/NO,CHAR IS DELIMETER
	TAD DECNUM	/YES,CHAR IS FIGURE
	CLL RAL
	DCA DECTMP	/NUMB.*2
	TAD DECTMP
	RTL		/NUMB*8
	TAD DECTMP	/NUMB*8+NUMB*22NUMB*10
	TAD CHAR	/ADD LAST FIGURE
	TAD M260
	DCA DECNUM	/DECIMAL NUMBER
	JMP DECINP+3
/
DECOUT,	CLA
	TAD DECNUM
	JMP I DECINP	/EXIT
/
/VARIABLES
/
DECNUM,	0
DECTMP,	0
/
/GENERAL CONSTANTS
M12,	-12
M260,	-260
M377,	-377