;*************************** AMUS Program Label ******************************
; Filename: WAKE.M68                                        Date: 05/17/89
; Category: UTIL         Hash Code: 767-665-564-123      Version: 
; Initials: IRW/AM       Name: IRWIN M. GOLDSTEIN
; Company: LONDON HOUSE INC.                       Telephone #: 
; Related Files: 
; Min. Op. Sys.:                               Expertise Level: BEG
; Special: 
; Description: Utility to wake up another job from a sleep state. Good way to
; get an instantly updated copy of VCRSTS.LST from a job running CRT610/F.
; Usage: .WAKE jobnam  (where jobnam is the name of the job to be woken up)
;*****************************************************************************

	SEARCH	SYS			; system macros
	SEARCH	SYSSYM			; system symbols
	SEARCH	TRM			; terminal symbols

	SUB	#6,SP			; make room for jobname on stack
	FILNAM	@SP,XXX			; pack jobname RAD50 and place on stack
	MOV	@SP,D3			; get jobname (1st 2 words of filename)
	ADD	#6,SP			; clean up stack

	MOV	JOBTBL,A0		; get begining address of job table
LOOK:	MOV	(A0)+,D7		; get address of JCB
	BEQ	LOOK			; no job here, keep looking
	CMP	D7,#-1			; end of job table?
	BEQ	NOJOB			;   yes - job not found
	MOV	D7,A3			; move JCB address to a data register
	CMP	D3,JOBNAM(A3)		; do jobnames match?
	BEQ	WAKEUP			; match - now wake up the job
	BR	LOOK			; no - keep looking

NOJOB:	TYPECR	<?Non-existent job>	; job not found
	BR	QUIT			; exit

;	A3 indexes job we want to wake up:

WAKEUP:	MOV	A3,A0
	WAKE
	BNE	WHAT
	TYPECR	<Job awakened>
	BR	QUIT

WHAT:	TYPECR	<?Job was already awake>

QUIT:	EXIT				; all done
	END

.