.TITLE AND ; JEFFREY KODOSKY ARL NOV75 ; ; FSUBR ; ENTRY: 1 ARG ; EXIT: 1 ARG ; ERRORS: NONE ; CALLS: EVAL ; CAR ; CDR .GLOBL AND,ZAND,$ALIST,QCAR,QCDR,QEVAL,.T. AND: MOV @R5,-(R5) MOV $ALIST,2(R5) ROOM 2 AND1: MOV @R5,R3 BEQ AND5 ;NULL[]--->T QCDR MOV R3,-(R5) QCAR QEVAL ;EVAL[CAR[]]---> MOV 4(R5),$ALIST TST (R5)+ BNE AND1 ;AND[CDR[]] TST (R5)+ ;T--->F CLR @R5 JMP @-(R4) AND5: TST (R5)+ MOV .T.,@R5 JMP @-(R4) ZAND=.-AND .END