	.even
rti=2
status:
	jsr	r5,mesg
	<\n\nSTATUS FOR JOB \0>
	.even
	sys	intr; setiflag
	mov	$"nu,bline
	jsr	r5,sstatus		/print job no.
	jsr	r5,mesg
	<\nTITLE: \0>
	.even
	mov	$"ti,bline
	jsr	r5,sstatus		/print title
	jsr	r5,mesg
	<\nLOCATION: \0>
	.even
	mov	$"lo,bline
	jsr	r5,sstatus		/print location
	jsr	r5,mesg
	<\nCASE1: \0>
	.even
	mov	$"c1,bline
	jsr	r5,sstatus		/print 1st case
	jsr	r5,mesg
	<   CASE2: \0>
	.even
	mov	$"c2,bline
	jsr	r5,sstatus		/print 2nd case
	jsr	r5,mesg
	<\nOPENED: \0>
	.even
	mov	$"od,bline
	jsr	r5,sstatus		/print opening date
	jsr	r5,mesg
	<   DEADLINE: \0>
	.even
	mov	$"dd,bline
	jsr	r5,sstatus		/print deadline date
	jsr	r5,mesg
	<   DCODE: \0>
	.even
	mov	$"dc,bline
	jsr	r5,sstatus		/print deadline code
	jsr	r5,mesg
	<   CLOSED: \0>
	.even
	mov	$"cd,bline
	jsr	r5,sstatus		/print closing date
	jsr	r5,mesg
	<\n ATTNY: \0>
	.even
	mov	$"at,bline
	jsr	r5,sstatus		/print attorney
	jsr	r5,mesg
	<   SUPERVISOR: \0>
	.even
	mov	$"su,bline
	jsr	r5,sstatus		/print supervisor
	jsr	r5,mesg
	<   DIRECTOR: \0>
	.even
	mov	$"di,bline
	jsr	r5,sstatus		/print director
	jsr	r5,mesg
	<\nORIGIN1: \0>
	.even
	mov	$"o1,bline
	jsr	r5,sstatus		/print 1st origin
	jsr	r5,mesg
	<   ORIGIN2: \0>
	.even
	mov	$"o2,bline
	jsr	r5,sstatus		/print 2nd origin
	jsr	r5,mesg
	<   ORIGIN3: \0>
	.even
	mov	$"o3,bline
	jsr	r5,sstatus		/print 3rd origin
	jsr	r5,mesg
	<   ORIGIN4: \0>
	.even
	mov	$"o4,bline
	jsr	r5,sstatus		/print 4th origin
	jsr	r5,mesg
	<\nAUTHOR1: \0>
	.even
	mov	$"a1,bline
	jsr	r5,sstatus		/print author1
	jsr	r5,mesg
	<   AUTHOR2: \0>
	.even
	mov	$"a2,bline
	jsr	r5,sstatus		/print author2
	jsr	r5,mesg
	<\nAUTHOR3: \0>
	.even
	mov	$"a3,bline
	jsr	r5,sstatus		/print author3
	jsr	r5,mesg
	<   AUTHOR4: \0>
	.even
	mov	$"a4,bline
	jsr	r5,sstatus		/print author4
	jsr	r5,mesg
	<\nEND STATUS\n\n\0>
	.even
	sys	intr; 0			/disable DEL's again
	rts	r5


sstatus:
	movb	$'\n,bline+2
	movb	$1,lflag
	jsr	r5,interpreter
	tstb	intflag
	beq	0f
	jmp	level0
0:
	rts	r5


setiflag:
	movb	$1,intflag
	rti
intflag:
	.=.+1
