File: LTR.RA of Tape: Original/Originals/AL-4546D-SA

(Source file text) 

---

/ 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

---