; THIS PROGRAM SEARCHS THE JOB TABLE FOR THE USER'S JOB AND RETURNS THE LINE
; NUMBER IN THE TABLE OF THE USER'S JOB.  SYNTAX FOR CALLING FROM BASIC IS
;               XCALL USERNO,FFFF
; WHERE FFFF IS A FLOATING POINT NUMBER.
;       WRITTEN BY ROBERT KURZ, 1547 CHERRYWOOD DRIVE, MARTINEZ, CA 94553
;       DONATED BY ROBERT KURZ & DOUG SHAKER
;
SEARCH SYS
SEARCH SYSSYM

OBJNAM USERNO.SBR

USERNO: PHDR    -1,0,PH$REE!PH$REU      ; Re-entrant and re-usable
       CMPW    (A3)+,#1                ; number of arguments must be 1
       BNE     SYNTAX
       MOVW    (A3)+,D5                ; type of argument
       ANDW    #6,D5                   ; mask off junk
       CMPW    D5,#4                   ; must be floating point
       BNE     SYNTAX
       MOV     (A3)+,A2                ; address of variable
       JOBIDX  A1                      ; get the address of our job
       MOV     JOBTBL,A0               ; get the address of the jobtable
       CLR     D1
LOOP:   INC     D1                      ; increment job number
       CMP     A1,(A0)+                ; compare this entry to our job
       BNE   LOOP                    ; if not the same try the next one
       FLTOF   D1,@A2                  ; convert to floating point
       RTN                             ; all done
SYNTAX: TYPECR  <XCALL USERNO must have one floating point argument>
       RTN
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.