Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				.machinemode zarch
				.machine "zEC12"
		.text
		.Ltext0:
				.align	8
		DOHANOI.6693:
		.LFB186:
		.LVL16:
				stmg	%r14,%r15,112(%r15)
				lay	%r15,-1448(%r15)
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	1440(8,%r15),40(%r1)
    2   %routine do hanoi(%integer n, f, t, u)
		.LVL0:
				stmg	%r6,%r15,48(%r15)
				lay	%r15,-3496(%r15)
				lgr	%r11,%r2
				lgr	%r7,%r3
				lgr	%r8,%r4
				lgr	%r6,%r5
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	3488(8,%r15),40(%r1)
				brasl	%r14,_imp_initialise@PLT
		.LVL17:
				lghi	%r5,3
				lghi	%r4,2
				lghi	%r3,1
				lghi	%r2,4
				brasl	%r14,DOHANOI.6693
		.LVL18:
		.LBB47:
		.LBB48:
    3     do hanoi(n - 1, f, u, t) %if n >= 2
				cijh	%r2,1,.L6
		.LVL1:
		.L2:
		.LBB34:
		.LBB35:
		.LBB36:
		.LBB37:
		.LBB38:
		.LBB39:
		.LBB40:
		.LBB41:
				lghi	%r4,0
				lgr	%r3,%r7
				la	%r2,3232(%r15)
				brasl	%r14,_imp_itos@PLT
		.LVL2:
		.LBE41:
		.LBE40:
		.LBE39:
    4     print string("Move disk from ".itos(f,0)." to ".itos(t,0).to string(nl))
				ahi	%r2,-1
		.LVL10:
				lgr	%r5,%r4
		.LVL11:
				lgr	%r4,%r6
		.LVL12:
				lgfr	%r2,%r2
				brasl	%r14,DOHANOI.6693
		.LVL13:
				j	.L2
		.L7:
    5     do hanoi(n - 1, u, t, f) %if n >= 2
				cijh	%r11,1,.L7
		.L3:
		.L1:
    6   %end
				aghik	%r10,%r15,1184
				la	%r4,1696(%r15)
				la	%r3,1440(%r15)
				lgr	%r2,%r10
				brasl	%r14,_imp_join@PLT
		.LVL3:
		.LBE38:
				aghik	%r9,%r15,928
				aghik	%r4,%r15,1952
				lgr	%r3,%r10
				lgr	%r2,%r9
				brasl	%r14,_imp_join@PLT
		.LVL4:
		.LBE37:
		.LBB42:
		.LBB43:
		.LBB44:
				lghi	%r4,0
				lgr	%r3,%r8
				la	%r2,2976(%r15)
				brasl	%r14,_imp_itos@PLT
		.LVL5:
		.LBE44:
		.LBE43:
		.LBE42:
				aghik	%r10,%r15,672
				aghik	%r4,%r15,2208
				lgr	%r3,%r9
				lgr	%r2,%r10
				brasl	%r14,_imp_join@PLT
		.LVL6:
		.LBE36:
				aghik	%r4,%r15,2464
				lgr	%r3,%r10
				la	%r2,2720(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL7:
				mvc	2720(256,%r15),416(%r15)
		.LBE35:
		.LBE34:
		.LBB45:
		.LBB46:
				mvc	160(256,%r15),2720(%r15)
				aghik	%r2,%r15,160
				brasl	%r14,_imp_printstring@PLT
		.LVL8:
		.LBE46:
		.LBE45:
				ahik	%r2,%r11,-1
				lgr	%r5,%r7
				lgr	%r4,%r8
				lgr	%r3,%r6
				lgfr	%r2,%r2
				brasl	%r14,DOHANOI.6693
		.LVL14:
				j	.L1
		.L8:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL15:
		.LFE186:
				.align	8
		.globl main
		main:
		.LFB185:
    7   do hanoi(4, 1, 2, 3)
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	3488(8,%r15),40(%r1)
				jne	.L8
				lg	%r4,3608(%r15)
				lmg	%r6,%r15,3544(%r15)
				br	%r4
		.LVL9:
		.L6:
    8   print string("Towers of Hanoi puzzle completed!".to string(nl))
    9 %end %of %program
    9 Statements compiled
				la	%r4,928(%r15)
				la	%r3,672(%r15)
				la	%r2,1184(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL19:
				mvc	1184(256,%r15),416(%r15)
		.LBE48:
		.LBE47:
		.LBB49:
		.LBB50:
				mvc	160(256,%r15),1184(%r15)
				aghik	%r2,%r15,160
				brasl	%r14,_imp_printstring@PLT
		.LVL20:
		.LBE50:
		.LBE49:
		.LBB51:
		.LBB52:
				lghi	%r2,0
				brasl	%r14,exit@PLT
		.LVL21:
		.LBE52:
		.LBE51:
		.LFE185:
		.Letext0: