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