         Edinburgh IMP77 Compiler - Version 8.4

    1  %recordformat OBJINFO (        %c
    2+   %short FLAGS,TYPE,
    3+   (                            %c
    4+      %short LINK %or           %c
    5+      %short XTYPE %or          %c
    6+      %short SIZE %or           %c
    7+      %short ACT                %c
    8+   ),
    9+   %byte REG,MODE,
   10+   %integer VAL                 %c
   11+ )
   12             
   13  
   14  %recordformat IDENTINFO (      %c
   15+   (  %short FLAGS,TYPE,
   16+      ( %c
   17+         %short LINK %or        %c
   18+         %short XTYPE %or       %c
   19+         %short SIZE %or        %c
   20+         %short ACT             %c
   21+      ),
   22+      %byte REG,MODE,
   23+      %integer VAL              %c
   24+    %or                         %c
   25+      %record(objinfo) DETAILS  %c
   26+   ),
   27+   (                            %c
   28+      %short TEXT,HLINK         %c
   29+    %or
   30+      %short X,Y                %c
   31+   )                            %c
   32+ )
   33  
   34  %begin
   35    %record (IDENTINFO) id
   36  
   37    id_FLAGS = 1
   38    id_LINK  = 2
   39    id_REG   = 3
   40    id_VAL   = 4
   41  
   42    id_DETAILS_FLAGS = 11
   43    id_DETAILS_LINK  = 12
   44    id_DETAILS_REG   = 13
   45    id_DETAILS_VAL   = 14
   46  
   47    id_TEXT  = 5
   48    id_X     = 6
   49  %endofprogram

   15 Statements compiled
