Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2  %recordformat  bfm(%record(bfm)%name  link, %integer  block,   %c
     3+                                 %shortintegerarray  b(0:255))
     4  %endofprogram
 0004 C9                                    LEAVE
 0005 C3                                    RET