Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				NO_APP
		.Ltext0:
				.align	2
				.globl	main
		main:
		.LFB185:
		.LVL0:
		 		link.w %fp,#0
		 		movem.l #12344,-(%sp)
    2 %integer i,j,k
		 		move.l 12(%fp),-(%sp)
		 		move.l 8(%fp),-(%sp)
		 		jsr _imp_initialise
		.LVL1:
		 		lea A.5989,%a2
		 		move.l #A.5989+80,%d3
		 		addq.l #8,%sp
    3 %ownintegerarray a(0:19)=10,9,8,7,6,5,4,3,2,1,0-1,-2,-3,-4,-5,-6,-7,-8,-9,-10;
    4                                               ! 0-1, not 0, -1 !!
    5 j=4
    6 %for k=0,1,19 %cycle
    7 write(a(k)//4,4); write(a(k)//j,4);  newline
		 		lea _imp_writeint,%a3
		.LBB6:
		.LBB7:
		 		lea _imp_newline,%a4
		 		jra .L3
		.LVL2:
		.L2:
		.LBE7:
		.LBE6:
		 		asr.l #2,%d2
		 		pea 4.w
		 		move.l %d2,-(%sp)
		 		jsr (%a3)
		.LVL3:
		 		move.l (%a2)+,%d1
		 		move.l %d1,%d2
		 		jge .L2
		 		addq.l #3,%d2
		 		jra .L2
		.L6:
		.L4:
		.LVL6:
		.LBB10:
		.LBB11:
		 		clr.l -(%sp)
		 		jsr exit
		.LVL7:
		.LBE11:
		.LBE10:
		.LFE185:
				.section	.rodata
				.align	2
		A.5989:
		 		.long	10
		 		.long	9
		 		.long	8
		 		.long	7
		 		.long	6
		 		.long	5
		 		.long	4
		 		.long	3
		 		.long	2
		 		.long	1
		 		.long	-1
		 		.long	-2
		 		.long	-3
		 		.long	-4
		 		.long	-5
		 		.long	-6
		 		.long	-7
		 		.long	-8
		 		.long	-9
		 		.long	-10
		.Letext0:
    8 %repeat
		 		pea 4.w
		 		move.l %d2,-(%sp)
		 		jsr (%a3)
		.LVL4:
		.LBB9:
		.LBB8:
		 		jsr (%a4)
		.LVL5:
		.LDL1:
		.LBE8:
		.LBE9:
    9 %endofprogram
		 		lea (16,%sp),%sp
		 		cmp.l %a2,%d3
		 		jeq .L6
		.L3:
?I unused
   10 Statements compiled