Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				.machinemode zarch
				.machine "zEC12"
		.text
		.Ltext0:
				.align	8
		.globl main
		main:
		.LFB185:
		.LVL0:
				stmg	%r9,%r15,72(%r15)
				lay	%r15,-160(%r15)
    2 %integer i,j,k
				brasl	%r14,_imp_initialise@PLT
		.LVL1:
				larl	%r10,A.6692
				lghi	%r9,20
				j	.L4
		.LVL2:
		.L9:
    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
				ahi	%r2,3
				j	.L2
		.L3:
				l	%r2,0(%r10)
				lt	%r11,0(%r10)
				jl	.L9
		.L2:
				sra	%r2,2
				lghi	%r3,4
				lgfr	%r2,%r2
				brasl	%r14,_imp_writelong@PLT
		.LVL5:
    8 %repeat
				lghi	%r3,4
				srag	%r2,%r2,2
				brasl	%r14,_imp_writelong@PLT
		.LVL3:
		.LBB6:
		.LBB7:
				brasl	%r14,_imp_newline@PLT
		.LVL4:
		.LDL1:
				aghi	%r10,4
		.LBE7:
		.LBE6:
				lgfr	%r2,%r11
				cgijhe	%r2,0,.L3
				aghi	%r2,3
				j	.L3
		.L8:
		.L5:
		.LVL6:
		.LBB8:
		.LBB9:
				lghi	%r2,0
				brasl	%r14,exit@PLT
		.LVL7:
		.LBE9:
		.LBE8:
		.LFE185:
				.section	.rodata
				.align	4
		A.6692:
				.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
		.text
		.Letext0:
    9 %endofprogram
				brctg	%r9,.L4
?I unused
   10 Statements compiled
				j	.L8
		.L4: