.TITLE MEMBER ; JEFFREY KODOSKY ARL NOV75 ; ; SUBR ; ENTRY: 2 ARGS ; ; EXIT: 1 ARG ; ERRORS: NONE ; CALLS: CAR ; CDR ; EQUAL .GLOBL MEMBER,ZMEMBER,QCAR,QCDR,QEQUAL MEMBER: ROOM 4 MOV 2(R5),-(R5) BEQ MEM8 ;JUMP IF NOT FOUND MEM1: QCAR MOV 2(R5),-(R5) QEQUAL TST (R5)+ BNE MEM9 ;JUMP IF FOUND MOV 2(R5),-(R5) QCDR MOV @R5,4(R5) BNE MEM1 MEM8: CMP (R5)+,(R5)+ ;RETURN NIL JMP @-(R4) MEM9: TST (R5)+ ;RETURN LIST WHOSE CAR IS JMP @-(R4) ZMEMBER=.-MEMBER .END