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