Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
				.machinemode zarch
				.machine "zEC12"
		.text
		.Ltext0:
				.section	.rodata
				.align	2
		.LC1:
				.byte	13
				.string	"WRONG ANSWERS"
				.zero	241
				.align	2
		.LC0:
				.byte	7
				.string	"TEST OK"
				.zero	247
		.text
				.align	8
		.globl main
		main:
		.LFB185:
		.LVL0:
				stmg	%r11,%r15,88(%r15)
				lay	%r15,-1448(%r15)
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	1440(8,%r15),40(%r1)
    2 !***********************************************************************
				brasl	%r14,_imp_initialise@PLT
		.LVL1:
		.LDL1:
		.LDL2:
		.LDL3:
		.LDL4:
		.LDL5:
		.LDL6:
		.LDL7:
		.LDL8:
		.LDL9:
		.LDL10:
		.LDL11:
		.LDL12:
		.LDL13:
		.LDL14:
		.LDL15:
		.LDL16:
		.LDL17:
		.LDL18:
		.LDL19:
		.LDL20:
				larl	%r4,CH.6689
				lhi	%r11,4003
				lghi	%r3,17
				j	.L2
		.LVL2:
		.L14:
		.L6:
    3 !*    SHOULD RUN WITHOUT OPUT. LOOPS ON SOME COMPILERS DUE TO          *
    4 !*    MISSING LABELS GIVING JUMPS WITH ZERO OFFSET                     *
    5 !***********************************************************************
    6 %OWNBYTEINTEGERARRAY CH(0:16)='0','1','2','3','4','5','6','7','8',
    7       '9','A','B','C','D','E','F','G'
    8 %INTEGER I,K,L
    9 %CONSTINTEGER J=0
   10       I=4000; L=10
   11       %IF I>4095 %AND J#0 %THEN I=I+1
   12       %IF I>4095 %AND J#0 %THEN I=I+1 %ELSE I=I-1
   13       %IF I>4095 %AND J#0 %THEN %START; %FINISH
   14       %IF I>4095 %AND J#0 %THEN %START
   15          I=I+1
   16       %FINISH %ELSE I=I-1
   17       %IF (I>4095 %AND J#0 ) %AND L=1 %THEN I=I+1
   18       %IF (I>4095 %AND J#0) %OR L=1 %THEN I=I+1
   19       %UNLESS I>4095 %AND J#0 %THEN I=I+1
   20       %UNLESS I>4095 %AND J#0 %THEN I=I+1 %ELSE I=I-1
   21       %UNLESS I>4095 %AND J#0 %THEN %START; %FINISH
   22       %UNLESS I>4095 %AND J#0 %THEN %START
   23          I=I+1
   24       %FINISH %ELSE I=I-1
   25       %UNLESS (I>4095 %AND J#0 ) %AND L=1 %THEN I=I+1
   26       %UNLESS (I>4095 %AND J#0) %OR L=1 %THEN I=I+1
   27        %FOR K=0,1,16 %CYCLE
   28          %UNLESS '0'<=CH(K)<='9' %OR 'A'<=CH(K)<='F' %THEN I=I+1
   29       %REPEAT
   30       %IF I=4004 %THEN PRINTSTRING("TEST OK") %ELSE %C
				brctg	%r3,.L2
				j	.L13
		.LVL5:
		.L2:
		.LBB12:
				lhi	%r1,4004
				crje	%r11,%r1,.L15
		.L7:
		.LBB14:
				larl	%r1,.LC1
				mvc	1184(256,%r15),0(%r1)
				mvc	672(256,%r15),1184(%r15)
				mvc	1184(256,%r15),672(%r15)
		.LBE14:
		.LBB15:
		.LBB16:
				mvc	160(256,%r15),1184(%r15)
				aghik	%r2,%r15,160
				brasl	%r14,_imp_printstring@PLT
		.LVL10:
		.LBE16:
		.LBE15:
				lghi	%r3,5
				lgfr	%r2,%r11
				brasl	%r14,_imp_writeint@PLT
		.LVL11:
		.L8:
		.LBB17:
		.LBB18:
				lghi	%r2,0
				brasl	%r14,exit@PLT
		.LVL12:
		.L15:
		.LBE18:
		.LBE17:
		.LBB19:
   31          PRINTSTRING("WRONG ANSWERS") %AND WRITE(I,5)
				llgc	%r1,0(%r4)
		.LVL6:
				ahik	%r2,%r1,-48
				llcr	%r2,%r2
				clijle	%r2,9,.L4
		.L5:
		.LVL7:
		.LBE12:
		.LBB13:
				ahi	%r1,-65
		.LVL8:
				llcr	%r1,%r1
				clijle	%r1,5,.L4
		.LBE13:
				j	.L14
		.LVL9:
		.L13:
		.L3:
				larl	%r1,.LC0
				mvc	1184(256,%r15),0(%r1)
				mvc	416(256,%r15),1184(%r15)
				mvc	928(256,%r15),416(%r15)
		.LBE19:
		.LBB20:
		.LBB21:
				mvc	160(256,%r15),928(%r15)
				aghik	%r2,%r15,160
				brasl	%r14,_imp_printstring@PLT
		.LVL13:
				j	.L8
		.LBE21:
		.LBE20:
		.LFE185:
				.section	.rodata
				.align	2
		CH.6689:
				.byte	48
				.byte	49
				.byte	50
				.byte	51
				.byte	52
				.byte	53
				.byte	54
				.byte	55
				.byte	56
				.byte	57
				.byte	65
				.byte	66
				.byte	67
				.byte	68
				.byte	69
				.byte	70
				.byte	71
			.text
		.Letext0:
   32 %ENDOFPROGRAM
   29 Statements compiled
				ahi	%r11,1
		.LVL3:
		.L4:
				aghi	%r4,1
		.LVL4: