File: LTR.RA of Tape: Sources/Fortran/os8-f4-3

(Source file text) 

---

/ LTR (LOAD TRUTH) EMULATION ROUTINES
/
/
/ VERSION 40A 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

---