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
/
sign.ra
1
/
2
/ VERSION 5A 4-27-77 PT
3
/
4
SECT SIGN
5
ENTRY ISIGN
6
JA #ST
7
#XR, ORG .+10
8
TEXT 'SIGN '
9
#BASE, ORG .+3
10
A, ORG .+3
11
B, ORG .+3
12
ORG #BASE+31
13
JA #BASE
14
GOBACK, 0;0;0
15
BASE #BASE
16
ISIGN,
17
#ST, STARTD
18
0210
19
FSTA GOBACK+1,0
20
0200
21
SETX #XR
22
SETB #BASE
23
LDX 0,1
24
FSTA #BASE
25
FLDA% #BASE,1+
26
FSTA A
27
FLDA% #BASE,1+
28
FSTA B
29
STARTF
30
FLDA% B
31
JLT #50
32
FLDA% A
33
JLT #100
34
JA GOBACK+1
35
#50, FLDA% A
36
JLT GOBACK+1
37
#100, FNEG
38
JA GOBACK+1
39
END
40
\f