.TITLE GET ; JEFFREY KODOSKY ARL NOV75 ; ; SUBR ; ENTRY: 2 ARGS , ; EXIT: 1 ARG ; 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