File: LTR.RA of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
/ LTR (LOAD TRUTH) EMULATION ROUTINES / / / VERSION 50A 23-MAY-80 WVDM / / 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