Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %integer fred
     3    %if 'a' <= fred <= 'z' %then fred = 1
 0004 8B 45 F8                              MOV %EAX,[%EBP-8]
 0007 3D 61 00 00 00                        CMP %EAX,#97
 000C 7C 00                                 JL L1001
 000E 3D 7A 00 00 00                        CMP %EAX,#122
 0013 7F 00                                 JG L1001
 0015 C7 45 F8 01 00 00 00                  MOV DWORD PTR [%EBP-8],#1
 001C                      L1001  EQU $
     4    fred = 2
 001C C7 45 F8 02 00 00 00                  MOV DWORD PTR [%EBP-8],#2
     5  %endofprogram
 0023 C9                                    LEAVE
 0024 C3                                    RET