external  routine  prepend xref(string (255) s)


record  format  srcf(integer  nextfreebyte, txtrelst, maxlen, zero)
external  routine  spec  newgen(string (255) s)
external  routine  spec  xref80(string (255) s)
external  routine  spec  destroy(string (255) s)
external  routine  spec  conc(string (255) s)
external  integer  fn  spec  wrfilead(string (255) s)

integer  j
record (srcf)name  h
   xref80(s.",T#XREFK1")
   j=wrfilead("T#XREFK1")
   if  j#0 start 
      h==record(j)
      if  h_nextfreebyte&x'FFF'#0 start 
         byteinteger(j+h_nextfreebyte)=12 {newpage}
         h_nextfreebyte=h_nextfreebyte+1
      finish 
   finish 

   conc("T#XREFK1,".s."/T#XREFK2")
   newgen("T#XREFK2,".s)
   destroy("T#XREFK1")
end  {prepend xref}
end  of  file