Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				.machinemode zarch
				.machine "zEC12"
		.text
		.Ltext0:
				.align	8
		.globl main
		main:
		.LFB185:
		.LVL0:
				stmg	%r14,%r15,112(%r15)
				lay	%r15,-1456(%r15)
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	1448(8,%r15),40(%r1)
    2   %integer main
				brasl	%r14,_imp_initialise@PLT
		.LVL1:
    3   %string(255) mainfile
    4   %recordformat file fm(%string(255) name, %integer flag)
    5   %record (file fm) %array file(0:1)
    6   mainfile = "fred.txt"
    7   main = 1
    8   file(main)_name = mainfile
				lghi	%r4,255
				la	%r3,416(%r15)
				la	%r2,160(%r15)
				brasl	%r14,_imp_strncpy@PLT
		.LVL2:
    9   file(main)_flag = 32768
				llill	%r1,32768
				st	%r1,1444(%r15)
		.LVL4:
		.LBB7:
		.LBB8:
				lghi	%r2,0
				brasl	%r14,exit@PLT
		.LVL5:
		.LBE8:
		.LBE7:
		.LFE185:
		.Letext0:
   10 %endofprogram
				lghi	%r4,255
				la	%r3,672(%r15)
				la	%r2,1188(%r15)
				brasl	%r14,_imp_strncpy@PLT
		.LVL3:
   10 Statements compiled