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)
     3  %record (bfm) actual
     4  %record (bfm) %name pointer
     5    actual = 0
 0004 8D 7D F4                              LEA %EDI,[%EBP-12]
 0007 B9 08 00 00 00                        MOV %ECX,#8
 000C 31 C0                                 XOR %EAX,%EAX
 000E F3 AA                                 REP STOSB
     6    pointer == actual
 0010 8D 45 F4                              LEA %EAX,[%EBP-12]
 0013 89 45 F0                              MOV [%EBP-16],%EAX
     7    pointer = 0
 0016 8B 7D F0                              MOV %EDI,[%EBP-16]
 0019 B9 08 00 00 00                        MOV %ECX,#8
 001E 31 C0                                 XOR %EAX,%EAX
 0020 F3 AA                                 REP STOSB
     8  %endofprogram
 0022 C9                                    LEAVE
 0023 C3                                    RET