1845 WHILE ABS(1-XNOR/DIAG)>.00001