mirror of
https://github.com/PDP-10/stacken.git
synced 2026-01-31 22:02:05 +00:00
59 lines
1.3 KiB
Plaintext
59 lines
1.3 KiB
Plaintext
title finger -- simple finger server.
|
|
search jobdat, uuosym, macten
|
|
|
|
p1==11
|
|
p2==12
|
|
p3==13
|
|
p4==14
|
|
|
|
data: byte (4) 11, 12, 0, 0, 0, 15, 11, 4, 15
|
|
byte (4) 11, 4, 15, 11, 4, 15, 11, 4, 15
|
|
byte (4) 11, 4, 15, 11, 4, 15, 3, 0, 0
|
|
byte (4) 0, 2, 4, 2, 0, 0, 0, 15, 2
|
|
byte (4) 4, 1, 4, 1, 4, 2, 0, 0, 0
|
|
byte (4) 15, 2, 4, 1, 4, 1, 4, 1, 4
|
|
byte (4) 15, 2, 4, 1, 4, 1, 4, 1, 4
|
|
byte (4) 14, 13, 0, 5, 4, 0, 6, 0, 4
|
|
byte (4) 1, 4, 14, 12, 2, 4, 4, 10, 10
|
|
byte (4) 4, 1, 4, 14, 12, 3, 2, 11, 4
|
|
byte (4) 0, 4, 14, 12, 3, 2, 11, 13, 14
|
|
byte (4) 12, 3, 2, 11, 13, 14, 11, 5, 1
|
|
byte (4) 11, 13, 14, 11, 6, 0, 11, 12, 14
|
|
byte (4) 11, 12, 2, 14, 12, 12, 0, 14, 13
|
|
byte (4) 11, 16, 14, 15, 11, 12, 14, 0, 0
|
|
|
|
finger: jfcl
|
|
reset
|
|
movei p1,getchr
|
|
move p2,[point 4,data]
|
|
loop: jsp p1,(p1)
|
|
jrst done
|
|
outchr p3
|
|
jrst loop
|
|
|
|
done: monrt.
|
|
jrst finger
|
|
|
|
getchr: ildb p4,p2
|
|
trzn p4,10
|
|
jrst getc.2
|
|
lsh p4,4
|
|
ildb p3,p2
|
|
add p4,p3
|
|
getc.2: trzn p4,100
|
|
jrst getc.4
|
|
movei p3,15
|
|
jsp p1,1(p1)
|
|
movei p3,12
|
|
jsp p1,1(p1)
|
|
jumpe p4,(p1)
|
|
getc.4: jumpe p4,getc.6
|
|
getc.5: movei p3," "
|
|
jsp p1,1(p1)
|
|
sojg p4,getc.5
|
|
getc.6: movei p3,"*"
|
|
jsp p1,1(p1)
|
|
jrst getchr
|
|
|
|
end finger
|