Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
				.section .mdebug.abi32
				.previous
				.nan	legacy
				.module	fp=xx
				.module	nooddspreg
				.abicalls
		$Ltext0:
				.rdata
				.align	2
		$LC2:
				.byte	7
				.ascii	"TEST OK\000"
				.space	247
				.align	2
		$LC1:
				.byte	11
				.ascii	"***ERROR***\000"
				.space	243
				.align	2
				.globl	main
				LFB185 = .
				.set	nomips16
				.set	nomicromips
				.ent	main
		main:
				.frame	$sp,2440,$31		# vars= 2168, regs= 1/0, args= 256, gp= 8
				.mask	0x80000000,-4
				.fmask	0x00000000,0
				.set	noreorder
				.set	nomacro
				LVL0 = .
				addiu	$sp,$sp,-2440
				sw	$31,2436($sp)
				lui	$28,%hi(__gnu_local_gp)
				addiu	$28,$28,%lo(__gnu_local_gp)
				.cprestore	256
				lw	$2,%got(__stack_chk_guard)($28)
				lw	$2,0($2)
				sw	$2,2428($sp)
    2 !***********************************************************************
				lw	$25,%call16(_imp_initialise)($28)
				.reloc	1f,R_MIPS_JALR,_imp_initialise
			1:	jalr	$25
				nop
				LVL1 = .
				lw	$28,256($sp)
				LVL2 = .
    3 !*    TESTS CLEARING RECORDARRAY FOR OVERWRITING OFF END               *
    4 !***********************************************************************
    5 %INTEGER I
    6 %RECORDFORMAT F(%STRING(15)NAME,%INTEGER I,J,K,%LONGREAL X,Y, %C
    7       %LONGREALARRAY A(0:2))
    8 %RECORD(F)%ARRAY ONE(1:100)
    9 %RECORD(F)%ARRAY TWO(1:2)
   10       TWO(1)_NAME="PETE"
   11       %CYCLE I=1,1,100
   12          ONE(I)=0
				li	$6,255			# 0xff
				addiu	$5,$sp,264
				addiu	$4,$sp,1800
				lw	$25,%call16(_imp_strncpy)($28)
				.reloc	1f,R_MIPS_JALR,_imp_strncpy
			1:	jalr	$25
				nop
				LVL3 = .
				lw	$28,256($sp)
				LVL4 = .
				li	$2,100			# 0x64
				LVL5 = .
				LDL1 = .
				addiu	$2,$2,-1
				LVL6 = .
		$L26:
   13       %REPEAT
   14       %IF TWO(1)_NAME#"PETE" %THEN PRINTSTRING("***ERROR***")%else %c
				bne	$2,$0,$L26
				addiu	$2,$2,-1
				L3 = .
   15          printstring("TEST OK")
   16
				addiu	$5,$sp,520
				addiu	$4,$sp,1800
				lw	$25,%call16(_imp_strcmp)($28)
				.reloc	1f,R_MIPS_JALR,_imp_strcmp
			1:	jalr	$25
				nop
				LVL7 = .
				lw	$28,256($sp)
				LVL8 = .
				beq	$2,$0,$L4
				lui	$2,%hi($LC2)
				LBB13 = .
   17 %ENDOFPROGRAM
   11 Statements compiled
				lui	$2,%hi($LC1)
				addiu	$2,$2,%lo($LC1)
				addiu	$3,$sp,1544
				addiu	$4,$2,256
		$L5:
				lw	$8,0($2)
				lw	$7,4($2)
				lw	$6,8($2)
				lw	$5,12($2)
				sw	$8,0($3)
				sw	$7,4($3)
				sw	$6,8($3)
				sw	$5,12($3)
				addiu	$2,$2,16
				bne	$2,$4,$L5
				addiu	$3,$3,16
				addiu	$2,$sp,1544
				addiu	$3,$sp,776
				addiu	$4,$sp,1800
		$L6:
				lw	$8,0($2)
				lw	$7,4($2)
				lw	$6,8($2)
				lw	$5,12($2)
				sw	$8,0($3)
				sw	$7,4($3)
				sw	$6,8($3)
				sw	$5,12($3)
				addiu	$2,$2,16
				bne	$2,$4,$L6
				addiu	$3,$3,16
				addiu	$2,$sp,776
				addiu	$3,$sp,1288
				addiu	$4,$sp,1032
		$L7:
				lw	$8,0($2)
				lw	$7,4($2)
				lw	$6,8($2)
				lw	$5,12($2)
				sw	$8,0($3)
				sw	$7,4($3)
				sw	$6,8($3)
				sw	$5,12($3)
				addiu	$2,$2,16
				bne	$2,$4,$L7
				addiu	$3,$3,16
				LBE13 = .
				LBB14 = .
				LBB15 = .
				addiu	$2,$sp,1304
				addiu	$3,$sp,16
				addiu	$4,$sp,1544
		$L8:
				lw	$8,0($2)
				lw	$7,4($2)
				lw	$6,8($2)
				lw	$5,12($2)
				sw	$8,0($3)
				sw	$7,4($3)
				sw	$6,8($3)
				sw	$5,12($3)
				addiu	$2,$2,16
				bne	$2,$4,$L8
				addiu	$3,$3,16
				lw	$4,1288($sp)
				lw	$5,1292($sp)
				lw	$6,1296($sp)
				lw	$7,1300($sp)
				lw	$25,%call16(_imp_printstring)($28)
				.reloc	1f,R_MIPS_JALR,_imp_printstring
			1:	jalr	$25
				nop
				LVL9 = .
				lw	$28,256($sp)
				L9 = .
				LVL10 = .
				LBE15 = .
				LBE14 = .
				LBB16 = .
				LBB17 = .
				move	$4,$0
		$L25:
				lw	$25,%call16(exit)($28)
				.reloc	1f,R_MIPS_JALR,exit
			1:	jalr	$25
				nop
				LVL11 = .
		$L4:
				LBE17 = .
				LBE16 = .
				LBB18 = .
				addiu	$2,$2,%lo($LC2)
				addiu	$3,$sp,1544
				addiu	$4,$2,256
		$L10:
				lw	$8,0($2)
				lw	$7,4($2)
				lw	$6,8($2)
				lw	$5,12($2)
				sw	$8,0($3)
				sw	$7,4($3)
				sw	$6,8($3)
				sw	$5,12($3)
				addiu	$2,$2,16
				bne	$2,$4,$L10
				addiu	$3,$3,16
				addiu	$2,$sp,1544
				addiu	$3,$sp,1032
				addiu	$4,$sp,1800
		$L11:
				lw	$8,0($2)
				lw	$7,4($2)
				lw	$6,8($2)
				lw	$5,12($2)
				sw	$8,0($3)
				sw	$7,4($3)
				sw	$6,8($3)
				sw	$5,12($3)
				addiu	$2,$2,16
				bne	$2,$4,$L11
				addiu	$3,$3,16
				addiu	$2,$sp,1032
				addiu	$3,$sp,1544
				addiu	$4,$sp,1288
		$L12:
				lw	$8,0($2)
				lw	$7,4($2)
				lw	$6,8($2)
				lw	$5,12($2)
				sw	$8,0($3)
				sw	$7,4($3)
				sw	$6,8($3)
				sw	$5,12($3)
				addiu	$2,$2,16
				bne	$2,$4,$L12
				addiu	$3,$3,16
				LBE18 = .
				LBB19 = .
				LBB20 = .
				addiu	$2,$sp,1560
				addiu	$3,$sp,16
				addiu	$4,$sp,1800
		$L13:
				lw	$8,0($2)
				lw	$7,4($2)
				lw	$6,8($2)
				lw	$5,12($2)
				sw	$8,0($3)
				sw	$7,4($3)
				sw	$6,8($3)
				sw	$5,12($3)
				addiu	$2,$2,16
				bne	$2,$4,$L13
				addiu	$3,$3,16
				lw	$4,1544($sp)
				lw	$5,1548($sp)
				lw	$6,1552($sp)
				lw	$7,1556($sp)
				lw	$25,%call16(_imp_printstring)($28)
				.reloc	1f,R_MIPS_JALR,_imp_printstring
			1:	jalr	$25
				nop
				LVL12 = .
				lw	$28,256($sp)
				LBE20 = .
				LBE19 = .
				.option	pic0
				b	$L25
				.option	pic2
				move	$4,$0
				.set	macro
				.set	reorder
				.end	main
		$LFE185:
		$Letext0: