mirror of
https://github.com/PDP-10/stacken.git
synced 2026-02-19 13:55:12 +00:00
48 lines
1.3 KiB
Plaintext
48 lines
1.3 KiB
Plaintext
title finger -- simple finger server
|
|
search jobdat, uuosym, macten
|
|
|
|
finger: jfcl
|
|
reset
|
|
open f,[
|
|
exp .iobyt
|
|
sixbit 'tcp'
|
|
xwd obh, ibh]
|
|
bug. (Can't open tcp device)
|
|
|
|
;* set up interupt handler.
|
|
|
|
;* set up a listen on port 79.
|
|
|
|
loop: movei t1,^D60 ;One minute
|
|
sleep t1, ;zzz
|
|
jfcl
|
|
jrst loop ;Loop on.
|
|
|
|
text: asciz "
|
|
****
|
|
* *
|
|
* *
|
|
* *
|
|
* *
|
|
* *
|
|
* *
|
|
**** * * ****
|
|
* * * * * * ****
|
|
* * * * * * * *
|
|
* * * * * * * *
|
|
** * ** ** * * *
|
|
* * * * * * * *
|
|
* * * ** *
|
|
* * * *
|
|
* * * *
|
|
* * * *
|
|
* ** *
|
|
* *
|
|
* *
|
|
* *
|
|
* *
|
|
"
|
|
|
|
|
|
end finger
|