unix-history-repo/ln.s at Research-PDP7-Snapshot-Development · dspinellis/unix-history-repo · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
" ln

   lac 017777 i
   sad d4
   jmp error
   lac 017777
   tad d1
   dac dirn
   lac dirn i
   sad qli
   jmp clink
   lac 017777
   tad d5
   dac dirn
   dac name

loop:
   lac 017777 i
   sad d8
   sys exit
   tad dm4
   dac 017777 i
   lac name
   tad d4
   dac name
   dac name1
   sys link; dirn: 0; name: 0; name1: 0
   sma
   jmp loop
   lac name
   dac 1f
   lac d1
   sys write; 1: 0; 4
   lac d1
   sys write; errmes; 2
   jmp loop

clink:
   lac 017777 i
   sad d8
   jmp arg1
   sad d12
   jmp arg2
   sad d16
   jmp arg3

error:
   lac d1
   sys write; errmes+1; 1
   sys exit

arg1:
   lac 017777
   tad d5
   dac larg+1
   dac larg+2
   jmp dlink
arg2:
   lac 017777
   tad d5
   dac larg
   tad d4
   dac larg+1
   dac larg+2
   jmp dlink
arg3:
   lac 017777
   tad d5
   dac larg
   tad d4
   dac larg+1
   tad d4
   dac larg+2
dlink:
   sys link; larg: defdir;0;0
   sma
   sys exit
   lac larg
   dac 1f
   lac larg+1
   dac 2f
   lac larg+2
   dac 3f
   lac d1
   sys write; 1:..; 4
   lac d1
   sys write; 2:..; 4
   lac d1
   sys write; 3:..; 4
   lac d1
   sys write; errmes; 2
   sys exit

errmes:
   040; 077012
d1: 1
qli: <li>
d12: 12
d16: 16
defdir: <sy>;<st>;<em>;040040
d4: 4
d8: 8
dm4: -4
d5: 5