         Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  !
     2  !      specs for deimos perm routines
     3  !
     4  %externalroutinespec pon(%record(*) %name p)
     5  %externalroutinespec poff(%record(*) %name p)
     6  %externalroutinespec ponoff(%record(*) %name p)
     7  %externalintegerfnspec mapvirt(%integer ser,seg1,seg2)
     8  %externalintegerfnspec map abs(%integer vadd,len,id)
     9  %externalintegerfnspec getid
    10  %externalroutinespec alarm(%integer ticks)
    11  %externalroutinespec linkin(%integer ser)
    12  %externalroutinespec maphwr(%integer segs)
    13  %externalintegerfnspec mappsect(%integer seg,task)
    14  %externalroutinespec push(%record(*)%name q,%record(*)%name m)
    15  %externalrecord(*)%mapspec pop(%record(*)%name q)
    16  %externalintegerfnspec time
    17  %externalroutinespec set prio(%integer prio)
    18  %constbyteintegername own id==(8_160030);   !8.1 compiler bug
    19  %constbyteintegername fsys == k'160055'
    20  %constbyteintegername id == k'160030'
    21  %constbyteintegername int==(8_160060)
    22  %constbytename callid == k'160031'
    23  %constbyteintegername tt no == k'160061'
    24  %constbyteintegername change out zero == k'160310'
    25  %constrecord (*) %name null == 0
    26  %externalroutinespec CLOSE OUTPUT;     ! until proper one in compiler
    27  %externalintegerfnspec dup addr(%integer seg)
    28  %endoffile

    25 Statements compiled



 ELF object file generated from IMP source file: '/home/gtoal/src/compilers101/new-parser/imps/tests/test218.imp'
 +----------+---------------------+---------+---------+---------+------------+
 | Sections |       Symbols       | Code    | Data    | Diag    | Total size |
 +----------+----------+----------+---------+---------+---------+------------+
 |  (count) | Internal | External | (bytes) | (bytes) | (bytes) | (bytes)    |
 +----------+----------+----------+---------+---------+---------+------------+
 |        7 |        2 |        5 |       0 |       0 |       0 |          0 |
 +----------+----------+----------+---------+---------+---------+------------+


