mirror of
https://github.com/PDP-10/stacken.git
synced 2026-01-28 12:39:06 +00:00
42 lines
583 B
Plaintext
42 lines
583 B
Plaintext
title bar
|
|
search jobdat, uuosym,macten
|
|
|
|
.text "/symseg:low/locals"
|
|
|
|
bar: jfcl
|
|
reset
|
|
open 0,[
|
|
exp .iobyt
|
|
sixbit 'tcp'
|
|
xwd ob,ib]
|
|
halt
|
|
movei 1,[
|
|
exp 0 ;Function
|
|
exp 0 ;Channel.
|
|
exp 0 ;Flags.
|
|
exp 0 ;Local address.
|
|
byte (8) ^D192, ^D168, ^D111, ^D59
|
|
exp 4711 ;Local port
|
|
exp 4711 ;Remote port
|
|
exp 0,0] ;buffer size, ptr
|
|
call 1,[sixbit 'tcp.']
|
|
halt
|
|
movei 1,^d5
|
|
sleep 1,
|
|
jfcl
|
|
movei 1,[
|
|
exp 4
|
|
exp 0
|
|
repeat 10,<0>]
|
|
call 1,[sixbit 'tcp.']
|
|
halt
|
|
jfcl
|
|
monrt.
|
|
jrst bar
|
|
|
|
ob: block 3
|
|
ib: block 3
|
|
|
|
end bar
|
|
|