.TITLE TRSET ; JEFFREY KODOSKY ARL NOV75 ; ; SUBR ; ENTRY: 1 ARG ; EXIT: 1 ARG SAME ; ERRORS: NONE ; CALLS: CAR ; CDR ; PUT .GLOBL TRSET,ZTRSET,.T.,YTRSET,QCAR,QCDR,QPUT TRSET: ROOM 5 MOV @R5,-(R5) TRS1: MOV @R5,R3 BEQ TRS3 QCDR MOV R3,-(R5) QCAR MOV (R5)+,R3 MOV .T.,-(R5) ;FLAG MOV YTRSET,-(R5) ;INDICATOR MOV R3,-(R5) ;ATOM QPUT TST (R5)+ ;IGNORE PUT RESULT BR TRS1 TRS3: TST (R5)+ ;POP NIL JMP @-(R4) ;RETURN ORIGINAL ZTRSET=.-TRSET .END