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]
/
FRTSRC
/
idint.ra
1
/ VERSION 5A 4-27-77 PT
2
/
3
SECT IDINT
4
JA #DINT
5
DPCHK
6
TEXT +DINT +
7
DINTXR, SETX XRDINT
8
SETB BPDINT
9
BPDINT, F 0.0
10
F 0.0
11
XRDINT, 0;73;1
12
F 0.0
13
ORG 10*3+BPDINT
14
FNOP
15
JA DINTXR
16
0
17
#GOBAK, JA .
18
BASE 0
19
#DINT, STARTD
20
SETX XRDINT
21
FLDA 10*3
22
FSTA #GOBAK,0
23
FLDA% 0,2
24
SETB BPDINT
25
BASE BPDINT
26
FSTA BPDINT
27
STARTE
28
FLDA% BPDINT
29
JLT NEGFIX /NEGATIVE ARG
30
ALN 1 /FIX POSITIVE ARG
31
FNORM
32
JA #GOBAK /RETURN
33
NEGFIX, FNEG /FIRST MAKE POSITIVE
34
ALN 1 /THEN FIX
35
FNORM
36
FNEG /THEN RE-NEGATE
37
JA #GOBAK
38
END
39
\f