.TITLE	SUBLIS		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	2 ARGS		<DPLIST>;<S>
; EXIT:		1 ARG		<S>
; 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[<DPLIST>]--->
	BEQ	SUBL2	;   <S>
	MOV	R3,-(R5)
	QCDR
	MOV	(R5)+,2(R5)
	MOV	R3,-(R5)
	QCAR
	MOV	@R5,R3
	QCAR
	MOV	R3,-(R5)
	QCDR		;T--->SUBLIS[CDR[<DPLIST>];
	QSUBST		;   SUBST[CDAR[<DPLIST>];CAAR[<DPLIST>];
	BR	SUBL1	;   <S>]]
SUBL2:	MOV	(R5)+,@R5
	JMP	@-(R4)
ZSUBLIS=.-SUBLIS
	.END