	.even
/"dcode" handles printing and substituting of the deadline date
/   code which may be up to 4 chars in length
/
dcode:
	mov	r1,-(sp)		/save r1
	tst	token2			/"/" present?
	bne	0f
	mov	$1,r0
	sys	write; j.dcode; 4	/write deadline code
	br	9f
0:
	tst	token3			/"*" present?
	beq	1f			/branch if no
	clr	j.dcode			/null-out deadline code
	clr	j.dcode+2
	movb	$1,cflag		/set core changed
	br	9f
1:
	mov	token2,r0
	add	$5,r0
	cmp	lastchar,r0
	blos	1f
	jsr	r5,mesg
	<3DCODE TRUNCATED TO 4 CHARS4\n\0>
	.even
1:
	sub	$4,r0			/r0 pts to beginning of DCODE
					/input
	clr	j.dcode			/initialize DCODE field to null
	clr	j.dcode+2
	mov	$j.dcode,r1
	cmp	r0,lastchar
	beq	7f			/branch if null str for substitute
1:
	movb	(r0)+,(r1)+		/change deadline code
	cmp	r0,lastchar
	blo	1b
7:
	movb	$1,cflag		/set core changed
9:
	mov	(sp)+,r1		/restore r1
	rts	r5			/return
