mirror of
https://github.com/PDP-10/stacken.git
synced 2026-02-19 13:55:12 +00:00
58 lines
719 B
Plaintext
58 lines
719 B
Plaintext
title foo
|
|
|
|
.text "/symseg:low/locals"
|
|
|
|
search jobdat, uuosym, macten
|
|
|
|
t1==1
|
|
t2==2
|
|
|
|
p==17
|
|
|
|
vector: exp timint
|
|
block 3
|
|
|
|
foo: jfcl
|
|
reset
|
|
movei 1,vector
|
|
piini. 1,
|
|
halt
|
|
move 1,[
|
|
ps.fac+ps.fon+[
|
|
exp .pctmr
|
|
xwd 0,0
|
|
exp 0]]
|
|
pisys. 1,
|
|
halt
|
|
movei 1,^D10
|
|
pitmr. 1,
|
|
halt
|
|
loop: movx 1,<sleep 1,>
|
|
movem 1,hibloc
|
|
skipe timflg
|
|
jrst[ setzm timflg
|
|
movei 1,2
|
|
pitmr. 1,
|
|
jfcl
|
|
jrst .+1]
|
|
outstr[ asciz "data data data data
|
|
"]
|
|
movei 1,1
|
|
xct hibloc
|
|
jrst loop
|
|
|
|
hibloc: sleep 1, ;Or JFCL
|
|
timflg: exp 0 ;Timint flag.
|
|
|
|
timint: outstr[ asciz "Interrupt!
|
|
"]
|
|
setom timflg
|
|
movem 1,hibloc
|
|
movsi 1,(jfcl)
|
|
exch 1,hibloc
|
|
debrk.
|
|
jfcl
|
|
halt
|
|
|
|
end foo
|