!PRIM + PERM file for Motorola 68000 IMP Compiler V2.0c
@0%record(*) NIL
@0%integerfn ADDR(%name n)
@0%integerfn SIZEOF(%name n)
@0%bytemap LENGTH(%string(*)%name z)
@0%bytemap CHARNO(%string(*)%name z, %integer n)
@0%string(1)%fn TOSTRING(%integer k)
@0%string(1)%fn SNL
@0%string(255)%fn SUBSTRING(%string(255) z, %integer from,to)
@0%string(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
