/ LTR (LOAD TRUTH) EMULATION ROUTINES / / VERSION 5A 4-26-77 MH / SECT #LTR ENTRY #EQ FLDA TRUE STARTF #EQ, JA . JEQ #EQ-3 FCLA JA #EQ-1 ENTRY #NE #NE, JA . JEQ .+4 FLDA TRUE STARTF JA #NE ENTRY #GE FLDA TRUE STARTF #GE, JA . JGE #GE-3 FCLA JA #GE-1 ENTRY #LE FLDA TRUE STARTF #LE, JA . JLE #LE-3 FCLA JA #LE-1 ENTRY #GT FLDA TRUE STARTF #GT, JA . JGT #GT-3 FCLA JA #GT-1 ENTRY #LT FLDA TRUE STARTF #LT, JA . JLT #LT-3 FCLA JA #LT-1 TRUE, F 1.0 F 0.0 END