; ; TEST ALECS' HANDLING OF LOGICAL CONDITIONS ; TLOG:: IF (V.L(R0)) CLRW R0 ; IF (R1:EQ:R2) CLRW R0 IF (R1:EQ_B:R2) CLRW R0 IF (R1:EQ_W:R2) CLRW R0 IF (R1:EQ_L:R2) CLRW R0 IF (R1:EQ_S:R2) CLRW R0 IF (R1:EQ_U:R2) CLRW R0 IF (R1:EQ_BS:R2) CLRW R0 IF (R1:EQ_BU:R2) CLRW R0 IF (R1:EQ_WS:R2) CLRW R0 IF (R1:EQ_WU:R2) CLRW R0 IF (R1:EQ_LS:R2) CLRW R0 IF (R1:EQ_LU:R2) CLRW R0 ; IF (R1:NE:R2) CLRW R0 IF (R1:NE_B:R2) CLRW R0 IF (R1:NE_W:R2) CLRW R0 IF (R1:NE_L:R2) CLRW R0 IF (R1:NE_S:R2) CLRW R0 IF (R1:NE_U:R2) CLRW R0 IF (R1:NE_BS:R2) CLRW R0 IF (R1:NE_BU:R2) CLRW R0 IF (R1:NE_WS:R2) CLRW R0 IF (R1:NE_WU:R2) CLRW R0 IF (R1:NE_LS:R2) CLRW R0 IF (R1:NE_LU:R2) CLRW R0 ; IF (R1:LT:R2) CLRW R0 IF (R1:LT_B:R2) CLRW R0 IF (R1:LT_W:R2) CLRW R0 IF (R1:LT_L:R2) CLRW R0 IF (R1:LT_S:R2) CLRW R0 IF (R1:LT_U:R2) CLRW R0 IF (R1:LT_BS:R2) CLRW R0 IF (R1:LT_BU:R2) CLRW R0 IF (R1:LT_WS:R2) CLRW R0 IF (R1:LT_WU:R2) CLRW R0 IF (R1:LT_LS:R2) CLRW R0 IF (R1:LT_LU:R2) CLRW R0 ; IF (R1:GT:R2) CLRW R0 IF (R1:GT_B:R2) CLRW R0 IF (R1:GT_W:R2) CLRW R0 IF (R1:GT_L:R2) CLRW R0 IF (R1:GT_S:R2) CLRW R0 IF (R1:GT_U:R2) CLRW R0 IF (R1:GT_BS:R2) CLRW R0 IF (R1:GT_BU:R2) CLRW R0 IF (R1:GT_WS:R2) CLRW R0 IF (R1:GT_WU:R2) CLRW R0 IF (R1:GT_LS:R2) CLRW R0 IF (R1:GT_LU:R2) CLRW R0 ; IF (R1:LE:R2) CLRW R0 IF (R1:LE_B:R2) CLRW R0 IF (R1:LE_W:R2) CLRW R0 IF (R1:LE_L:R2) CLRW R0 IF (R1:LE_S:R2) CLRW R0 IF (R1:LE_U:R2) CLRW R0 IF (R1:LE_BS:R2) CLRW R0 IF (R1:LE_BU:R2) CLRW R0 IF (R1:LE_WS:R2) CLRW R0 IF (R1:LE_WU:R2) CLRW R0 IF (R1:LE_LS:R2) CLRW R0 IF (R1:LE_LU:R2) CLRW R0 ; IF (R1:GE:R2) CLRW R0 IF (R1:GE_B:R2) CLRW R0 IF (R1:GE_W:R2) CLRW R0 IF (R1:GE_L:R2) CLRW R0 IF (R1:GE_S:R2) CLRW R0 IF (R1:GE_U:R2) CLRW R0 IF (R1:GE_BS:R2) CLRW R0 IF (R1:GE_BU:R2) CLRW R0 IF (R1:GE_WS:R2) CLRW R0 IF (R1:GE_WU:R2) CLRW R0 IF (R1:GE_LS:R2) CLRW R0 IF (R1:GE_LU:R2) CLRW R0 ; IF (:C.SET:) CLRW R0 IF (:V.SET:) CLRW R0 IF (:N.SET:) CLRW R0 IF (:Z.SET:) CLRW R0 ; IF (:C.CLR:) CLRW R0 IF (:V.CLR:) CLRW R0 IF (:N.CLR:) CLRW R0 IF (:Z.CLR:) CLRW R0 ; IF (R1:SET.IN:R2) CLRW R0 IF (R1:SET.IN_B:R2) CLRW R0 IF (R1:SET.IN_W:R2) CLRW R0 IF (R1:SET.IN_L:R2) CLRW R0 IF (R1:SET.IN_S:R2) CLRW R0 IF (R1:SET.IN_U:R2) CLRW R0 IF (R1:SET.IN_BS:R2) CLRW R0 IF (R1:SET.IN_BU:R2) CLRW R0 IF (R1:SET.IN_WS:R2) CLRW R0 IF (R1:SET.IN_WU:R2) CLRW R0 IF (R1:SET.IN_LS:R2) CLRW R0 IF (R1:SET.IN_LU:R2) CLRW R0 ; IF (R1:CLR.IN:R2) CLRW R0 IF (R1:CLR.IN_B:R2) CLRW R0 IF (R1:CLR.IN_W:R2) CLRW R0 IF (R1:CLR.IN_L:R2) CLRW R0 IF (R1:CLR.IN_S:R2) CLRW R0 IF (R1:CLR.IN_U:R2) CLRW R0 IF (R1:CLR.IN_BS:R2) CLRW R0 IF (R1:CLR.IN_BU:R2) CLRW R0 IF (R1:CLR.IN_WS:R2) CLRW R0 IF (R1:CLR.IN_WU:R2) CLRW R0 IF (R1:CLR.IN_LS:R2) CLRW R0 IF (R1:CLR.IN_LU:R2) CLRW R0 ; IF (A:AND:B) CLRW R0 ; IF (A:IOR:B) CLRW R0 ; ; IF (R0:AND: R1:GT:R2) CLRW R0 ;ILLEGAL COMPOUND LOGICAL ; IF (R0:AND: :V.CLR:) CLRW R0 ;ILLEGAL: COND CODE MODIFIED IF (:V.CLR: :AND: R0) CLRW R0 ; IF (R0:AND: A:CLR.IN:B) CLRW R0 ;ILLEGAL COMPOUND LOGICAL ; IF (A:CLR.IN:B :AND: R0) CLRW R0 ;ILLEGAL COMPOUND LOGICAL ; IF (R1:GT:R2 :IOR: R3:LT:R4) CLRW R0 ; IF (R1:GT:R2 :IOR: :Z.CLR:) CLRW R0 ;ILLEGAL: COND CODE MODIFIED IF (:Z.CLR: :IOR: R1:GT:R2) CLRW R0 IF (R1:GT:R2 :IOR: A:CLR.IN:B) CLRW R0 ; IF (:C.SET: :AND: :V.CLR:) CLRW R0 IF (:N.CLR: :AND: A:SET.IN:B) CLRW R0 ; IF (A:CLR.IN:B :IOR: C:SET.IN:D) CLRW R0 .END