[pdp8.git] / sw / os8 / v3d / sources / fortran / dectapes / dectape2 / ltr.ra

/ 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
\f
Commit	Line	Data
81e70d48 PH	1	/ LTR (LOAD TRUTH) EMULATION ROUTINES
	2	/
	3	/ VERSION 5A 4-26-77 MH
	4	/
	5	SECT #LTR
	6	ENTRY #EQ
	7	FLDA TRUE
	8	STARTF
	9	#EQ, JA .
	10	JEQ #EQ-3
	11	FCLA
	12	JA #EQ-1
	13	ENTRY #NE
	14	#NE, JA .
	15	JEQ .+4
	16	FLDA TRUE
	17	STARTF
	18	JA #NE
	19	ENTRY #GE
	20	FLDA TRUE
	21	STARTF
	22	#GE, JA .
	23	JGE #GE-3
	24	FCLA
	25	JA #GE-1
	26	ENTRY #LE
	27	FLDA TRUE
	28	STARTF
	29	#LE, JA .
	30	JLE #LE-3
	31	FCLA
	32	JA #LE-1
	33	ENTRY #GT
	34	FLDA TRUE
	35	STARTF
	36	#GT, JA .
	37	JGT #GT-3
	38	FCLA
	39	JA #GT-1
	40	ENTRY #LT
	41	FLDA TRUE
	42	STARTF
	43	#LT, JA .
	44	JLT #LT-3
	45	FCLA
	46	JA #LT-1
	47	TRUE, F 1.0
	48	F 0.0
	49	END
	50	\f