Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
				.section	".text"
		.Ltext0:
				.section	".rodata"
		.LC1:
				.byte	13
				.asciz	"WRONG ANSWERS"
				.skip	241
		.LC0:
				.byte	7
				.asciz	"TEST OK"
				.skip	247
				.section	".text"
				.align 4
				.global main
				.proc	04
		main:
		.LFB185:
				.register	%g2, #scratch
				.register	%g3, #scratch
				.register	%g7, #ignore
		.LVL0:
				save	%sp, -1472, %sp
		.LVL1:
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
    2 !***********************************************************************
				mov	%i1, %o1
				call	_imp_initialise, 0
				 mov	%i0, %o0
		.LVL2:
		.LDL1:
		.LDL2:
		.LDL3:
		.LDL4:
		.LDL5:
		.LDL6:
		.LDL7:
		.LDL8:
		.LDL9:
		.LDL10:
		.LDL11:
		.LDL12:
		.LDL13:
		.LDL14:
		.LDL15:
		.LDL16:
		.LDL17:
		.LDL18:
		.LDL19:
		.LDL20:
				sethi	%hi(CH.6056+1), %g2
				or	%g2, %lo(CH.6056+1), %g2
				add	%g2, 16, %g4
				ba,pt	%xcc, .L2
				 mov	4003, %i5
		.LVL3:
		.L4:
				add	%g2, 1, %g2
		.LVL4:
		.L2:
    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
				cmp	%g4, %g2
				be,pn	%xcc, .L3
				 cmp	%i5, 4004
		.LVL5:
		.LBB12:
				be,pn	%icc, .L10
				 mov	256, %o2
		.L7:
		.LBB14:
				sethi	%hi(.LC1), %o1
				or	%o1, %lo(.LC1), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL10:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1271, %o0
		.LVL11:
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL12:
		.LBE14:
		.LBB15:
		.LBB16:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 751, %o0
		.LVL13:
				call	_imp_printstring, 0
				 add	%fp, 751, %o0
		.LVL14:
		.LBE16:
		.LBE15:
				mov	5, %o1
				call	_imp_writeint, 0
				 sra	%i5, 0, %o0
		.LVL15:
		.L8:
		.LBB17:
		.LBB18:
				call	exit, 0
				 mov	0, %o0
		.LVL16:
		.L10:
		.LBE18:
		.LBE17:
		.LBB19:
   31          PRINTSTRING("WRONG ANSWERS") %AND WRITE(I,5)
				ldub	[%g2], %g1
		.LVL6:
				sethi	%hi(.LC0), %o1
				or	%o1, %lo(.LC0), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL17:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL18:
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL19:
		.LBE19:
		.LBB20:
		.LBB21:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, 751, %o0
		.LVL20:
				call	_imp_printstring, 0
				 add	%fp, 751, %o0
		.LVL21:
				ba,pt	%xcc, .L8
				 nop
		.LBE21:
		.LBE20:
		.LFE185:
				.section	".rodata"
				.align 8
		CH.6056:
				.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
				.section	".text"
		.Letext0:
   32 %ENDOFPROGRAM
   29 Statements compiled
				add	%g1, -48, %g3
				and	%g3, 0xff, %g3
				cmp	%g3, 9
				bleu,pn	%icc, .L4
				 add	%g1, -65, %g1
		.L5:
		.LVL7:
		.LBE12:
		.LBB13:
				and	%g1, 0xff, %g1
		.LBE13:
				cmp	%g1, 5
				mov	0, %g1
				movgu	%icc, 1, %g1
		.LVL8:
				ba,pt	%xcc, .L4
				 add	%i5, %g1, %i5
		.L6:
		.LVL9:
		.L3: