.TITLE REMPROP ; JEFFREY KODOSKY ARL NOV75 ; ; SUBR ; ENTRY: 2 ARGS ; ; EXIT: 1 ARG BOOL ; ERRORS: NONE ; CALLS: SPL ; CDR .GLOBL REMPROP,ZREMPROP,QSPL,QCDR,.T. REMPROP:QSPL BCS REMP9 ;JUMP IF NOT ON PROP LIST TST (R0)+ MOV R0,R3 QCDR QCDR BIC #177774,@R3 BIS @R5,@R3 ;PATCH AROUND PROP LIST ITEM MOV .T.,@R5 ;RETURN *T* SINCE INDICATOR WAS FOUND REMP9: JMP @-(R4) ZREMPROP=.-REMPROP .END