Edinburgh IMP77 Compiler - Version 8.4


        LANG 0000
        LINE 1
     1  %begin
        BEGIN
        LINE 2
     2    %recordformat testfm(%integer one, two)
        DEF V_0001 TESTFM
        +   0x0044
        +   0x0001
        +   0x0000
        START
        DEF V_0000 ONE
        +   0x0011
        +   0x0001
        +   0x0000
        DEF V_0000 TWO
        +   0x0011
        +   0x0001
        +   0x0000
        FINISH
        LINE 3
     3    %record (testfm) data
        DEF V_0002 DATA
        +   0x0041
        +   0x0001
        +   0x0000
        LINE 4
     4    data_one = 1
        PUSH V_0002
        SELECT V_0001
        PUSHI #0x00000001
        ASSVAL
        LINE 5
     5    data_two = 2
        PUSH V_0002
        SELECT V_0002
        PUSHI #0x00000002
        ASSVAL
        LINE 6
     6  %endofprogram
        END
        END