.TITLE LOGAND ; JEFFREY KODOSKY ARL NOV75 ; ; FSUBR ; ENTRY: 1 ARG ; EXIT: 1 ARG ; ERRORS: NONE ; CALLS: EVLIS ; ATM2N ; I2ATM ; CAR ; CDR ; RI .GLOBL LOGAND,ZLOGAND,QEVLIS,QCAR,QCDR,QRI,QATM2N,QI2ATM LOGAND: QEVLIS MOV #-1,-(SP) ;WORK SPACE LOG1: MOV @R5,R3 BEQ LOG2 QCDR MOV R3,-(R5) QCAR QATM2N BCC .+4 QRI COM @SP BIC (SP)+,@SP BR LOG1 LOG2: TST (R5)+ QI2ATM .WORD 0 ZLOGAND=.-LOGAND .END