Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
				.machinemode zarch
				.machine "zEC12"
		.text
		.Ltext0:
				.section	.rodata.str1.2,"aMS",@progbits,1
				.align	2
		.LC2:
				.string	"Illegal cycle I = (PLACES << 2) - 4,  -4, 0"
				.section	.rodata
				.align	2
		.LC1:
				.byte	16
				.string	"test-new/vs4.imp"
				.zero	238
		.text
				.align	8
		PRHEX.6691:
		.LFB186:
		.LVL19:
				stmg	%r14,%r15,112(%r15)
				lay	%r15,-160(%r15)
    2 %ROUTINE PRHEX(%INTEGER VALUE, PLACES)
		.LVL0:
				stmg	%r6,%r15,48(%r15)
				lay	%r15,-1472(%r15)
				lgr	%r10,%r2
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	1464(8,%r15),40(%r1)
				brasl	%r14,_imp_initialise@PLT
		.LVL20:
    3 %CONSTBYTEINTEGERARRAY HEX(0:15)='0','1','2','3','4',
				mvi	1448(%r15),48
				mvi	1449(%r15),49
				mvi	1450(%r15),50
				mvi	1451(%r15),51
				mvi	1452(%r15),52
				mvi	1453(%r15),53
				mvi	1454(%r15),54
				mvi	1455(%r15),55
				mvi	1456(%r15),56
				mvi	1457(%r15),57
				mvi	1458(%r15),65
				mvi	1459(%r15),66
				mvi	1460(%r15),67
				mvi	1461(%r15),68
				mvi	1462(%r15),69
				mvi	1463(%r15),70
		.LBB9:
    4                '5','6','7','8','9','A','B','C','D','E','F'
    5 %INTEGER I
    6       %CYCLE I=PLACES<<2-4, -4, 0
    7          PRINT SYMBOL(HEX(VALUE>>I&15))
				sllk	%r11,%r3,2
		.LVL1:
		.LBB10:
				srlk	%r1,%r10,0(%r11)
				risbg	%r1,%r1,60,128+63,0
		.LBB11:
		.LBB12:
				llgc	%r2,1448(%r1,%r15)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL7:
		.LBE12:
		.LBE11:
    8       %REPEAT
				lhi	%r1,4
				sr	%r1,%r11
		.LVL2:
				xilf	%r1,4294967292
		.LVL3:
				cijl	%r1,0,.L12
		.LVL4:
		.L2:
		.LBE10:
				lgrl	%r1,_imp_current_file@GOTENT
		.LVL10:
				ltg	%r3,0(%r1)
		.LVL11:
				je	.L3
				la	%r2,936(%r15)
		.LVL12:
				brasl	%r14,_imp_c2istr@PLT
		.LVL13:
		.L4:
				lgrl	%r1,_imp_current_line@GOTENT
				lt	%r9,0(%r1)
				ltr	%r9,%r9
				lhi	%r1,8
				locrne	%r1,%r9
				lr	%r9,%r1
				larl	%r3,.LC2
				la	%r2,1192(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL14:
				mvc	424(256,%r15),936(%r15)
				mvc	168(256,%r15),1192(%r15)
				mvghi	160(%r15),0
				lghi	%r6,1
				lghi	%r5,5
				la	%r4,168(%r15)
				lgfr	%r3,%r9
				la	%r2,424(%r15)
				brasl	%r14,_signal_event@PLT
		.LVL15:
				j	.L2
		.LVL16:
		.L3:
		.LBB13:
				larl	%r1,.LC1
				mvc	1192(256,%r15),0(%r1)
				mvc	680(256,%r15),1192(%r15)
		.LBE13:
				mvc	936(256,%r15),680(%r15)
				j	.L4
		.LVL17:
		.L13:
		.LBE14:
    9 %END
   10 PRHEX(X'B00B',8)
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	1464(8,%r15),40(%r1)
				jne	.L13
				lg	%r4,1584(%r15)
				lmg	%r6,%r15,1520(%r15)
		.LVL8:
				br	%r4
		.LVL9:
		.L12:
		.LBB14:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL18:
		.LFE186:
				.align	8
		.globl main
		main:
		.LFB185:
				lghi	%r3,8
				llill	%r2,45067
				brasl	%r14,PRHEX.6691
		.LVL21:
		.LBB15:
		.LBB16:
				lghi	%r2,0
				brasl	%r14,exit@PLT
		.LVL22:
		.LBE16:
		.LBE15:
		.LFE185:
		.Letext0:
   11 %ENDOFPROGRAM
				cije	%r11,0,.L1
		.LVL5:
		.L7:
				cijlh	%r11,0,.L7
		.L6:
		.L1:
		.LBE9:
   10 Statements compiled
				ahi	%r11,-4
		.LVL6: