JOBNO.M68- Builds tag field for response ID

; Program Name: JOBNO.M68 - returns the job's JCB table slot position.
; Edit History:
;[100] March 29, 1995 03:15 PM	Edited by Bob Rubendunst
;	created.

	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM

	OBJNAM	0,0,[SBR]

; External resource definitions
ADDR1 = 4
; Internal resource definitions
	DSECT
ISIZE=.
.=0
; Program Section
	PSECT
	VMAJOR =1
	VMINOR =0
	VSUB = 0
	VEDIT=100.
	VWHO =0

	PHDR	-1,0,PH$REE!PH$REU
	JOBIDX	A0			; job index
	CMPW	@A3,#1			; one arg?
	BEQ	10$			;  yes
	TYPECR	<?wrong # of arguments in WAKE.SBR>
	EXIT

10$:	JOBIDX	D5
	MOVL	JOBTBL,A0
	MOV	#-1,D1
20$:	INC	D1
	MOVL	(A0)+,D7		; get jcb address
	BEQ	20$			;  empty - just count it
	CMPL	D7,#-1			; end of jobs
	BEQ	40$  			;  yes-no match
	CMP	D5,D7
	BNE	20$			;  no match
	MOV	ADDR1(A3),A2
	DCVT	3,OT$MEM		; output D1 as 3 ASCII decimal digits.
	CMP	SIZE1(A3),#3
	BLOS	30$
	CLRB	@A2
30$:	RTN
40$:	TYPECR	<This job is not in the JOBTBL!.>
	EXIT

	END END END

.