Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - batctl.c08
There is 1 other file named batctl.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
	SUBTTL	C.D.O'Toole, D.P.Mastrovito /CDO/DPM 1-Jun-82
 WIT
	SUBTTL	C.D.O'Toole, D.P.Mastrovito /CDO/DPM/LWS  8-Nov-83
 REP 21/12	;08C2

	; Input a label into .JLABL(R) (:: required after label)
 WIT
	;[4707]  Input a label into .JLLBL(R) (:: required after label)
 REP 40/12	;08C3
		MOVEM	T1,.JLABL(R)		;STORE LABEL
 WIT
	;**;[4707] Change 1 line at LABI.1+3L. 8-Nov-83 /LWS
		MOVEM	T1,.JLLBL(R)		;[4707] STORE LAST LABEL ENCOUNTERED
 REP 10/14	;08C4
	LABS.2:	PUSH	P,.JLABL(R)		;SAVE LABEL WE'RE SEARCHING FOR
		PUSHJ	P,LABEL			;TRY TO INPUT A LABEL
		  JRST	LABS.3			;CAN'T
		POP	P,S1			;RESTORE SAVED LABEL
		EXCH	S1,.JLABL(R)		;SWAP WITH NEW LABEL JUST FOUND
		CAXN	S1,<'%FIN  '>		;SPECIAL %FIN LABEL?
		JRST	LABS.5			;YES
		CAME	S1,.JLABL(R)		;FOUND WHAT WE WANT?
		  JRST	LABS.4			;NO
		POPJ	P,			;YES - RETURN

	LABS.3:	POP	P,.JLABL(R)		;RESTORE LABEL WE'RE SEARCHING FOR
 WIT
	;**;[4707] Redo code at LABS.2+0L 8-Nov-83 /LWS
	LABS.2:	PUSHJ	P,LABEL			;TRY TO INPUT A LABEL
		  JRST	LABS.4			;[4707] CAN'T
		MOVE	S1,.JLLBL(R)		;[4707] GET LABEL JUST FOUND
		CAXN	S1,<'%FIN  '>		;SPECIAL %FIN LABEL?
		JRST	LABS.5			;YES
		CAMN	S1,.JLABL(R)		;[4707] FOUND WHAT WE WANT?
		POPJ	P,			;YES - RETURN
 REP 37/14	;08C5
		MOVEM	S1,.JLABL(R)		;STORE %FIN
 WIT
	;**;[4707] Delete 1 line at LABS.5+4L. 8-Nov-83 /LWS
 REP 27/34	;08C6
		$IDENT	(DUMP,<	Last label: ^W/.JLABL(R)/^A>)
 WIT
	;**;[4707] Change line at DUMP.2+10L. 8-Nov-83 /LWS
		$IDENT	(DUMP,<	Last label: ^W/.JLLBL(R)/^A>)	;[4707]
 SUM 156847