.TITLE	GET		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	2 ARGS		<LITATM1>,<LITATM2>
; EXIT:		1 ARG		<SEXPR:=VALUE OF IND. LITATM2>
;		C BIT IS SET AND NIL RETURNED IF NOT FOUND
; ERRORS:	NONE
; CALLS:	SPL, SEARCH PROPERTY LIST
;		CAR
;		CDR
; R2,R3 PRESERVED
	.GLOBL	GET,ZGET,QSPL,QCAR,QCDR
GET:	QSPL		;GET PROP LIST REMAINDER
	BCS	GET02	;JUMP IF INDICATOR NOT FOUND
	QCDR
	QCAR
	CLC
GET02:	JMP	@-(R4)
ZGET=.-GET
	.END