!
!      specs for deimos perm routines
!
%externalroutinespec pon(%record(*) %name p)
%externalroutinespec poff(%record(*) %name p)
%externalroutinespec ponoff(%record(*) %name p)
%externalintegerfnspec mapvirt(%integer ser,seg1,seg2)
%externalintegerfnspec map abs(%integer vadd,len,id)
%externalintegerfnspec getid
%externalroutinespec alarm(%integer ticks)
%externalroutinespec linkin(%integer ser)
%externalroutinespec maphwr(%integer segs)
%externalintegerfnspec mappsect(%integer seg,task)
%externalroutinespec push(%record(*)%name q,%record(*)%name m)
%externalrecord(*)%mapspec pop(%record(*)%name q)
%externalintegerfnspec time
%externalroutinespec set prio(%integer prio)
%constbyteintegername own id==(8_160030);   !8.1 compiler bug
%constbyteintegername fsys == k'160055'
%constbyteintegername id == k'160030'
%constbyteintegername int==(8_160060)
%constbytename callid == k'160031'
%constbyteintegername tt no == k'160061'
%constbyteintegername change out zero == k'160310'
%constrecord (*) %name null == 0
%externalroutinespec CLOSE OUTPUT;     ! until proper one in compiler
%externalintegerfnspec dup addr(%integer seg)
%endoffile