;*************************** AMUS Program Label ******************************
; Filename: JOBPRG.M68                                      Date: 10/16/89
; Category: SBR          Hash Code: 720-121-764-363      Version: 
; Initials:              Name: GARY CHESSER
; Company:                                         Telephone #: 
; Related Files: XCALL.M68
; Min. Op. Sys.:                               Expertise Level: BEG
; Special: Must grab XCALL.M68 in 100,133
; Description: Get Jobname from system into a basic program
; 
; 
;*****************************************************************************
;********************************************************************
; Sample BASIC program:
;
;	MAP1 names(40),S,12		! 40 is not mandatory. Must be > #JOBS
;
;	XCALL JOBPRG,names(1)		! note names(1) !!!
;	FOR I = 1 TO 40
;		IF names(I) = "" THEN I = 40 &
;				 ELSE PRINT names(I)
;	NEXT I
;********************************************************************

	OBJNAM	.SBR

	VMAJOR=1
	VMINOR=0


      	SEARCH	SYS		;THESE ARE CALLED IN XCALL	;search normals
      	SEARCH	SYSSYM		;DITTO GARY CHESSER
	COPY	XCALL				;XCALL.M68 in [100,133]

	PHDR	-1,PH$REE!PH$REU

PARSE:	CMPW	XC.ARG(A3),#1		;1 argument specified?
	BNE	INERR			;nope, error
	CMPW	XC.TY1(A3),#XC$STR	;string?
	BNE	INERR			;nope, error
	CMP	XC.SZ1(A3),#6		;should be this big
	BLT	INERR			;nope, error

SETUP:	MOV	JOBTBL,A0		;get start of job table listing
	MOV	XC.AD1(A3),A2		;get start of array into A2

LOOP:	MOV	(A0)+,A4		;A4 points to a JCB or a -1
	MOV	A4,D0			;set status register
	BMI	DONE			;if -1 then done
	BEQ	LOOP			;no attached JOB but still not done
10$:	LEA	A1,JOBNAM(A4)		;point A1 to RAD50 job name
	UNPACK				;unpack 1st half of job name
	UNPACK				;unpack 2nd half of job name
20$:	LEA	A1,JOBPRG(A4)		;point A1 to RAD50 job PROGRAM
	UNPACK				;unpack 1st half of job PROGRAM
	UNPACK				;unpack 2nd half of job PROGRAM
	BR LOOP				;get next JOB

DONE:	CLR	@A2			;end array with null
	RTN				;and return

INERR:	TYPECR	<Error in entry format for JOBPRG.SBR>
	RTN

	END

.