* OCT - TYPE OCTAL VALUE ON THE ASR
* 
* TYPE OUT THE VALUE IN A. A STAYS UNCHANGED AFTERWARDS
*
	SUBR	OCT
* 
* 
	REL
OCT	DAC	**
	STA	ATMP
	SKS	'104
	JMP	*-1
	OCP	'104
	IAB		SAVE TO B
	STA	BTMP	
	CRA
	LLR	1
	ADD	=48
	OTA	'4	ASR OUTPUT
	JMP	*-1
	CRA
	LLR	3
	ADD	=48
	OTA	4	ASR OUTPUT
	OTA	4
	JMP	*-1
	CRA
	LLR	3
	ADD	=48
	OTA	'4	ASR OUTPUT
	OTA	4
	JMP	*-1
	CRA
	LLR	3
	ADD	=48
	OTA	'4	ASR OUTPUT
	OTA	4
	JMP	*-1
	CRA
	LLR	3
	ADD	=48
	OTA	'4	ASR OUTPUT
	OTA	4
	JMP	*-1
	CRA
	LLR	3
	ADD	=48
	OTA	'4	ASR OUTPUT
	OTA	4
	JMP	*-1
*	
	LDA	=10
	OTA	'4
	JMP	*-1
	LDA	=13
	OTA	'4
	JMP	*-1
	LDA	=13
	OTA	'4
	JMP	*-1
*
	LDA	BTMP
	IAB
	LDA	ATMP	
	JMP*	OCT
* 
ATMP	DAC	**	TEMPORARY STORAGE FOR A
BTMP	DAC	**	TEMPORARY STORAGE FOR B	
* 
********************************************************************************
* 
	END