Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
		.Ltext0:
				.align	1
				.global	main
				.thumb
				.thumb_func
		main:
		.LFB185:
				@ args = 0, pretend = 0, frame = 1296
				@ frame_needed = 0, uses_anonymous_args = 0
		.LVL0:
				push	{lr}
				subw	sp, sp, #1300
				ldr	r3, .L4
		.LPIC0:
				add	r3, pc
				ldr	r2, .L4+4
				ldr	r3, [r3, r2]
				ldr	r3, [r3]
				str	r3, [sp, #1292]
    2   %integer main
				bl	_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
				movs	r2, #255
				add	r1, sp, #260
				add	r0, sp, #4
				bl	_imp_strncpy(PLT)
		.LVL2:
    9   file(main)_flag = 32768
				mov	r2, #32768
				str	r2, [sp, #1288]
		.LVL4:
		.LBB7:
		.LBB8:
				movs	r0, #0
				bl	exit(PLT)
		.LVL5:
		.L5:
				.align	2
		.L4:
				.word	_GLOBAL_OFFSET_TABLE_-(.LPIC0+4)
				.word	__stack_chk_guard(GOT)
		.LBE8:
		.LBE7:
		.LFE185:
		.Letext0:
   10 %endofprogram
				movs	r2, #255
				add	r1, sp, #516
				add	r0, sp, #1032
				bl	_imp_strncpy(PLT)
		.LVL3:
   10 Statements compiled