! Include file for file interface modules

%recordformat scb fm -
  (%integer p,l,bs,bl,fs,fl,fastpc,gla,soppc,mode,
   %record(scb fm)%name next,%string(255)%name prompt,
   %integer a,b,c,d,%string(255)filename)

%recordformat fs (%integer send,recmax,rec,%bytename sendbuf,recbuf)

!NB %routine SOP (%record(scb fm)%name cb,%integer code,p1,p2,%bytename b)
!NB %routine FOP (%integer code,%string(*)%name file,%name x)

%systemrecord(scb fm)%mapspec NEW SCB (%string(*)%name filename)

%constinteger -
  sop close   = 0,
  sop abort   = 1,
  sop flush   = 2,
  sop refresh = 3,
  sop write   = 4,
  sop read    = 5

%constinteger -
  fop logout  = 0,
  fop login   = 1,
  fop quote   = 2,
  fop pass    = 3,
  fop openi   = 4,
  fop openo   = 5,
  fop openm   = 6,
  fop opena   = 7 {not used},
  fop credir  = 8,
  fop delete  = 9,
  fop info    = 10,
  fop rename  = 11,
  fop copy    = 12,
  fop permit  = 13,
  fop stamp   = 14,
  fop time    = 15,
  fop special = 16,
  fop oldfinfo= 17

{{%systemintegerfnspec heapget(%integer n)
{{%systemroutinespec heapput(%integer n)
{{%systemroutinespec makeglobal(%name n)