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