         Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2  %byteinteger sym
     3  %integer i
     4    readsymbol(sym)  {%name param given a byte}
 0004 6A 2B                                 PUSH #43
 0006 8D 45 FB                              LEA %EAX,[%EBP-5]
 0009 50                                    PUSH %EAX
 000A E8 22 00                              CALL 'READSYMBOL' (EXTERN 34)
 000D 83 C4 08                              ADD %ESP,#8
     5    readsymbol(i)    {%name param given an int}
 0010 68 83 00 00 00                        PUSH #131
 0015 8D 45 F4                              LEA %EAX,[%EBP-12]
 0018 50                                    PUSH %EAX
 0019 E8 22 00                              CALL 'READSYMBOL' (EXTERN 34)
 001C 83 C4 08                              ADD %ESP,#8
     6    printsymbol(sym) {byte param}
 001F 31 C0                                 XOR %EAX,%EAX
 0021 8A 45 FB                              MOV %AL,[%EBP-5]
 0024 50                                    PUSH %EAX
 0025 E8 34 00                              CALL 'PRINTSYMBOL' (EXTERN 52)
 0028 83 C4 04                              ADD %ESP,#4
     7    printsymbol(i)   {int param}
 002B FF 75 F4                              PUSH DWORD PTR [%EBP-12]
 002E E8 34 00                              CALL 'PRINTSYMBOL' (EXTERN 52)
 0031 83 C4 04                              ADD %ESP,#4
     8  %endofprogram
 0034 C9                                    LEAVE
 0035 C3                                    RET
