!PRIM + PERM file for Motorola 68000 IMP Compiler V2.0c
@0record (*) NIL
@0integerfn  ADDR(name  n)
@0integerfn  SIZEOF(name  n)
@0bytemap  LENGTH(string (*)name  z)
@0bytemap  CHARNO(string (*)name  z, integer  n)
@0string (1)fn  TOSTRING(integer  k)
@0string (1)fn  SNL
@0string (255)fn  SUBSTRING(string (255) z, integer  from,to)
@0string (255)fn  CONCAT(string (255) x,y)
recordformat  EVENTFM(byte  event,sub, short  line,
  integer  extra, integerarray  reg(0:15),
  string (255) message)
@32(A5)record (eventfm) EVENT
constinteger  NL=10
@-78(a5) integerfn  REM(integer  a,b)
@-84(a5) routine  DISPOSE(name  v)
@-90(a5) record (*)map  NEW(name  v)
@-96(a5) integerfn  READSYMBOL
@-96(a5) routine  SKIPSYMBOL
@-102(a5) routine  PRINTSTRING(string (255) z)
externalstring (255)fnspec  READ alias  "readstring"
externalrealfnspecalias  READ alias  "readreal"
externalintegerfnspecalias  READ
externalpredicatespec  RESOLVES(string (*)name  a,b,string (255) c,string (*)name  d)

@-108(a5) integerfn  INTPT(real  x)
@-114(a5) realfn  FRACPT(real  x)
@-120(a5) integerfn  INT(real  r)
@-126(a5) realfn  SQRT(real  x)
@-132(a5) integerfn  MULDIV(integer  a,b,c)
@-138(a5) integerfn  NEXTSYMBOL
@-144(a5) routine  PRINTSYMBOL(integer  k)
@-150(a5) routine  PROMPT(string (255) z)
@-156(a5) routine  SELECTINPUT(integer  n)
@-162(a5) routine  SELECTOUTPUT(integer  n)
@-168(a5) routine  SET INPUT(integer  byte)
@-174(a5) routine  SET OUTPUT(integer  byte)
@-180(a5) routine  RESET INPUT
@-186(a5) routine  RESET OUTPUT
@-192(a5) routine  CLOSE INPUT
@-198(a5) routine  CLOSE OUTPUT
@-204(a5) routine  OPEN INPUT(integer  n, string (255) z)
@-210(a5) routine  OPEN OUTPUT(integer  n, string (255) z)
externalroutinespec  WRITE(integer  m, n)
@-216(a5) integerfn  CPUTIME
@-222(a5) routine  NEWLINE
externalroutinespec  NEWLINES(integer  i)
@-228(a5) routine  SPACE
externalroutinespec  SPACES(integer  i)
externalintegerfnspec  INSTREAM
externalintegerfnspec  OUTSTREAM
externalstring (15)fnspec  DATE
externalstring (15)fnspec  TIME
externalstring (31)fnspec  DATETIME
externalroutinespec  PRINT(real  x, integer  n,m)
externalroutinespec  PRINTFL(real  x, integer  n)
externalstring (127)fnspec  ITOS(integer  v,p)
externalstring (255)mapspec  cliparam