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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.