Commit | Line | Data |
---|---|---|
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 |