Edinburgh IMP77 Compiler - Version 8.4
    1 %externalroutine printword(%string (64) word)
				.machinemode zarch
				.machine "zEC12"
		.text
		.Ltext0:
				.align	8
		.globl PRINTWORD
		PRINTWORD:
		.LFB185:
				stmg	%r11,%r15,88(%r15)
				lay	%r15,-2472(%r15)
				lgr	%r11,%r2
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	2464(8,%r15),40(%r1)
    2    !%string(3)word = "???"  *duplicate*
    3    %if word = "+" %or word = "-" %or word = "*" %or word = "/" %C
    4      %or word = "<" %or word = "<=" %or word = ">" %or word = ">=" %C
    5        %or word = "=" %then %start
				aghik	%r3,%r15,160
				brasl	%r14,_imp_strcmp@PLT
		.LVL0:
				cijlh	%r2,0,.L6
		.L2:
		.L3:
		.L1:
    6       %return
    7    %finish
    8 %end
    9
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	2464(8,%r15),40(%r1)
				jne	.L7
				lg	%r4,2584(%r15)
				lmg	%r11,%r15,2560(%r15)
				br	%r4
		.L6:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL9:
		.LFE185:
		.Letext0:
   10 %endoffile
				aghik	%r3,%r15,416
				lgr	%r2,%r11
				brasl	%r14,_imp_strcmp@PLT
		.LVL1:
				cije	%r2,0,.L1
    6 Statements compiled
				aghik	%r3,%r15,672
				lgr	%r2,%r11
				brasl	%r14,_imp_strcmp@PLT
		.LVL2:
				cije	%r2,0,.L1
				aghik	%r3,%r15,928
				lgr	%r2,%r11
				brasl	%r14,_imp_strcmp@PLT
		.LVL3:
				cije	%r2,0,.L1
				aghik	%r3,%r15,1184
				lgr	%r2,%r11
				brasl	%r14,_imp_strcmp@PLT
		.LVL4:
				cije	%r2,0,.L1
				aghik	%r3,%r15,1440
				lgr	%r2,%r11
				brasl	%r14,_imp_strcmp@PLT
		.LVL5:
				cije	%r2,0,.L1
				aghik	%r3,%r15,1696
				lgr	%r2,%r11
				brasl	%r14,_imp_strcmp@PLT
		.LVL6:
				cije	%r2,0,.L1
				aghik	%r3,%r15,1952
				lgr	%r2,%r11
				brasl	%r14,_imp_strcmp@PLT
		.LVL7:
				cije	%r2,0,.L1
				aghik	%r3,%r15,2208
				lgr	%r2,%r11
				brasl	%r14,_imp_strcmp@PLT
		.LVL8:
				j	.L1
		.L7: