.TITLE NCONC ; JEFFREY KODOSKY ARL NOV75 ; ; SUBR ; ENTRY: 2 ARGS ; ; EXIT: 1 ARG ; ERRORS: NONE ; CALLS: CDR ; R3 PRESERVED .GLOBL NCONC,ZNCONC,QCDR NCONC: ROOM 3 MOV @R5,-(R5) ;COPY LIST BEQ NCONC4 ;RETURN ARG2 IF LIST IS NOL NCONC1: MOV @R5,-(R5) QCDR ;GET NEXT CDR MOV (R5)+,R0 BEQ NCONC2 ;JUMP IF NEXT CDR IS NIL MOV R0,@R5 ;LOOP BACK IF NOT BR NCONC1 NCONC2: MOV (R5)+,R0 MOV 2(R5),2(R0) ;REPLACE CDR POINTER MOV (R5)+,@R5 JMP @-(R4) NCONC4: CMP (R5)+,(R5)+ JMP @-(R4) ZNCONC=.-NCONC .END