Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				.machinemode zarch
				.machine "zEC12"
		.text
		.Ltext0:
				.section	.rodata
				.align	2
		.LC0:
				.byte	46
				.string	"Please enter the word BUG when I ask for data:"
				.zero	208
				.align	2
		.LC3:
				.byte	14
				.string	"Call returned "
				.zero	240
				.align	2
		.LC1:
				.byte	16
				.string	"Test successful."
				.zero	238
				.align	2
		.LC2:
				.byte	39
				.string	"Test failed - getchar was called twice."
				.zero	215
		.text
				.align	8
		.globl main
		main:
		.LFB185:
		.LVL0:
				stmg	%r11,%r15,88(%r15)
				lay	%r15,-2480(%r15)
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	2472(8,%r15),40(%r1)
    2
				brasl	%r14,_imp_initialise@PLT
		.LVL1:
		.LBB58:
    3   %integerfn getchar
    4     %integer sym
    5     readsymbol(sym)
    6     printstring("Call returned "); printsymbol(sym); newline
				larl	%r1,.LC3
				mvc	1960(256,%r15),0(%r1)
				mvc	2216(256,%r15),1960(%r15)
				mvc	1960(256,%r15),2216(%r15)
		.LBE68:
		.LBB69:
		.LBB70:
				mvc	160(256,%r15),1960(%r15)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL6:
		.LBE70:
		.LBE69:
		.LBB71:
		.LBB72:
				llgc	%r2,423(%r15)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL7:
		.LBE72:
		.LBE71:
		.LBB73:
		.LBB74:
				brasl	%r14,_imp_newline@PLT
		.LVL8:
		.LBE74:
		.LBE73:
		.LBE65:
		.LBE64:
    7     %result = sym
    8   %end
    9
   10   printstring("Please enter the word BUG when I ask for data:"); newline
				larl	%r1,.LC0
				mvc	2216(256,%r15),0(%r1)
				mvc	424(256,%r15),2216(%r15)
				mvc	1192(256,%r15),424(%r15)
		.LBE58:
		.LBB59:
		.LBB60:
				mvc	160(256,%r15),1192(%r15)
				aghik	%r11,%r15,160
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL2:
		.LBE60:
		.LBE59:
		.LBB61:
		.LBB62:
				brasl	%r14,_imp_newline@PLT
		.LVL3:
		.LBE62:
		.LBE61:
		.LBB63:
		.LBB64:
		.LBB65:
		.LBB66:
		.LBB67:
				aghik	%r2,%r15,420
		.LVL4:
				brasl	%r14,_imp_readsymbol@PLT
		.LVL5:
		.LBE67:
		.LBE66:
		.LBB68:
   11
   12   %if 'A' <= getchar <= 'C' %start
   13     printstring("Test successful."); newline
				larl	%r1,.LC1
				mvc	1704(256,%r15),0(%r1)
				mvc	680(256,%r15),1704(%r15)
				mvc	1448(256,%r15),680(%r15)
		.LBE75:
		.LBB76:
		.LBB77:
				mvc	160(256,%r15),1448(%r15)
				aghik	%r2,%r15,160
				brasl	%r14,_imp_printstring@PLT
		.LVL9:
		.LBE77:
		.LBE76:
		.LBB78:
		.LBB79:
				brasl	%r14,_imp_newline@PLT
		.LVL10:
				j	.L3
		.L2:
		.LBE79:
		.LBE78:
		.LBB80:
				larl	%r1,.LC2
				mvc	1704(256,%r15),0(%r1)
				mvc	936(256,%r15),1704(%r15)
				mvc	1704(256,%r15),936(%r15)
		.LBE80:
		.LBB81:
		.LBB82:
				mvc	160(256,%r15),1704(%r15)
				aghik	%r2,%r15,160
				brasl	%r14,_imp_printstring@PLT
		.LVL11:
		.LBE82:
		.LBE81:
		.LBB83:
		.LBB84:
				brasl	%r14,_imp_newline@PLT
		.LVL12:
		.L3:
		.LBE84:
		.LBE83:
		.LBB85:
		.LBB86:
				lghi	%r2,0
				brasl	%r14,exit@PLT
		.LVL13:
		.LBE86:
		.LBE85:
		.LFE185:
		.Letext0:
   14   %else
   15     printstring("Test failed - getchar was called twice."); newline
				l	%r1,420(%r15)
				ahi	%r1,-65
				clijh	%r1,2,.L2
		.LBE63:
		.LBB75:
   16   %finish
   17
   18 %endofprogram
   19 Statements compiled