projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add README.md
[pdp8.git]
/
f4
/
FRTSRC
/
ltr.ra
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