.TITLE SUBLIS ; JEFFREY KODOSKY ARL NOV75 ; ; SUBR ; ENTRY: 2 ARGS ; ; EXIT: 1 ARG ; ERRORS: NONE ; CALLS: SUBST ; CAR ; CDR .GLOBL SUBLIS,ZSUBLIS,QCAR,QCDR,QSUBST SUBLIS: ROOM 4 MOV (R5)+,R3;GET DOTTED PAIR LIST MOV @R5,-(R5) ;SWITCH ORDER MOV R3,2(R5) SUBL1: MOV 2(R5),R3;NULL[]---> BEQ SUBL2 ; MOV R3,-(R5) QCDR MOV (R5)+,2(R5) MOV R3,-(R5) QCAR MOV @R5,R3 QCAR MOV R3,-(R5) QCDR ;T--->SUBLIS[CDR[]; QSUBST ; SUBST[CDAR[];CAAR[]; BR SUBL1 ; ]] SUBL2: MOV (R5)+,@R5 JMP @-(R4) ZSUBLIS=.-SUBLIS .END