	.TITLE	DASC
	.DSABL	GBL

..8::	MOV	#.8,-(SP)
	BR	..

..10::	MOV	#.10,-(SP)
	BR	..

..16::	MOV	#.16,-(SP)
..:	MOV	#400+<<RET-<.BR+2>>/2>,.BR
	CALL	@(SP)+
	MOV	#240,.BR
	RETURN

.2::	MOV	#2,BASE
	BR	DASC

.8::	MOV	#10,BASE
	BR	DASC

.10::	MOV	#10.,BASE
	BR	DASC

.16::	MOV	#16.,BASE
DASC:
;+ R0 NUM
;+ R1 TXT
;+ R3 DIGITS
	MOV	R1,-(SP)
	MOV	R2,-(SP)
	MOV	R3,-(SP)
	MOV	R3,R2
	ADD	R1,R3
1$:	MOV	R0,R1
	CLR	R0
BASE	=	. + 2
	DIV	#0,R0
	BIC	#^C37,R1
	MOVB	DIGTAB(R1),-(R3)
	SOB	R2,1$

.BR:	NOP

	MOV	(SP),R2
1$:	CMPB	#'0,(R3)
	BNE	2$
	DEC	R2
	BEQ	2$
	MOVB	#' ,(R3)+
	BR	1$

2$:	MOV	R3,R0
RET:	MOV	(SP)+,R3
	MOV	(SP)+,R2
	MOV	(SP)+,R1
	RETURN

DIGTAB:	.ASCII	"0123456789ABCDEF"

	.END
                                                                                                                                                                                                                                                                                            