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