!
!      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