         Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %string (6) s
     3    s = "hello"
 0004 8D 45 F5                              LEA %EAX,[%EBP-11]
 0007 50                                    PUSH %EAX
 0008 B9 00 00 00 00                        MOV %ECX,COT+#0
 000D 51                                    PUSH %ECX
 000E 6A 06                                 PUSH #6
 0010 E8 03 00                              CALL '_IMPSTRCPY' (EXTERN 3)
 0013 83 C4 0C                              ADD %ESP,#12
     4    s = string(addr(s))
     5    s <- "longer string"
 0016 8D 45 F5                              LEA %EAX,[%EBP-11]
 0019 50                                    PUSH %EAX
 001A B9 06 00 00 00                        MOV %ECX,COT+#6
 001F 51                                    PUSH %ECX
 0020 6A 06                                 PUSH #6
 0022 E8 04 00                              CALL '_IMPSTRJAM' (EXTERN 4)
 0025 83 C4 0C                              ADD %ESP,#12
     6  %endofprogram
 0028 C9                                    LEAVE
 0029 C3                                    RET
