Edinburgh IMP77 Compiler - Version 8.4
    1
		.Ltext0:
				.align	1
				.thumb
				.thumb_func
		B.10036:
		.LFB188:
    2 %BEGIN
				@ Volatile: function does not return.
				@ args = 0, pretend = 0, frame = 40
				@ frame_needed = 0, uses_anonymous_args = 0
		.LVL15:
				push	{lr}
				sub	sp, sp, #44
				ldr	r3, .L14
		.LPIC3:
				add	r3, pc
				ldr	r2, .L14+4
				ldr	r3, [r3, r2]
				ldr	r3, [r3]
				str	r3, [sp, #36]
    3 %ROUTINE TEST(%ROUTINE PARAM(%INTEGER I))
				bl	_imp_initialise(PLT)
		.LVL16:
		.LBB22:
		.LBB23:
    4       PARAM(10)
				movs	r0, #10
				blx	r4
		.LVL19:
		.LBE25:
		.LBE24:
		.LBE23:
		.LBE22:
		.LBB26:
		.LBB27:
				movs	r0, #0
				bl	exit(PLT)
		.LVL20:
		.L15:
				.align	2
		.L14:
				.word	_GLOBAL_OFFSET_TABLE_-(.LPIC3+4)
				.word	__stack_chk_guard(GOT)
				.word	.LTRAMP0-(.LPIC4+4)
				.word	B.10036-(.LPIC5+4)
		.LBE27:
		.LBE26:
		.LFE185:
				.section	.rodata
				.align	2
				.set	.LANCHOR0,. + 0
		.LC0:
				.byte	6
				.ascii	"FAILED\000"
				.space	248
		.LC1:
				.byte	7
				.ascii	"TEST OK\000"
				.space	247
		.Letext0:
    5 %END
    6 %ROUTINE A
				add	r3, sp, #48
				str	r3, [sp, #32]
				ldr	r3, .L14+8
		.LPIC4:
				add	r3, pc
				ldm	r3, {r0, r1, r2, r3}
				add	r4, sp, #16
				stm	r4, {r0, r1, r2, r3}
				add	r3, sp, #4
				str	r3, [r4, #8]
				ldr	r3, .L14+12
		.LPIC5:
				add	r3, pc
				str	r3, [r4, #12]
				add	r1, sp, #32
				mov	r0, r4
				bl	__clear_cache(PLT)
		.LVL17:
    7 %INTEGER P,Q,R
    8       P='P'; Q='Q'; R='R'
				movs	r3, #80
				str	r3, [sp, #12]
    9 %ROUTINE B(%INTEGER A)
				@ Nested: function declared inside another function.
				@ args = 0, pretend = 0, frame = 1032
				@ frame_needed = 0, uses_anonymous_args = 0
		.LVL0:
				push	{r4, r5, r6, r7, lr}
				subw	sp, sp, #1276
				ldr	r5, .L9
		.LPIC0:
				add	r5, pc
				ldr	r3, .L9+4
				ldr	r3, [r5, r3]
				ldr	r3, [r3]
				str	r3, [sp, #1268]
				movs	r3, #81
				str	r3, [sp, #8]
   10       %UNLESS P='P' %AND Q='Q' %AND R='R' %and a=10 %THEN %c
				ldr	r3, [ip, #8]
				cmp	r3, #80
				bne	.L2
				movs	r3, #82
				str	r3, [sp, #4]
   11         PRINTSTRING("FAILED") %else printstring("TEST OK")
				ldr	r3, [ip, #4]
				cmp	r3, #81
				beq	.L7
		.L2:
		.LBB10:
   12 %END
				ldr	r3, [ip]
				b	.L1
		.L8:
   13 TEST(B)
				ldr	r3, .L9+4
				ldr	r3, [r5, r3]
				ldr	r2, [sp, #1268]
				ldr	r3, [r3]
				cmp	r2, r3
				bne	.L8
				addw	sp, sp, #1276
				@ sp needed
				pop	{r4, r5, r6, r7, pc}
		.LVL7:
		.L7:
				cmp	r3, #82
				it	eq
				cmpeq	r0, #10
				bne	.L2
		.L3:
		.LBB13:
				bl	__stack_chk_fail(PLT)
		.LVL14:
		.L10:
				.align	2
		.L9:
				.word	_GLOBAL_OFFSET_TABLE_-(.LPIC0+4)
				.word	__stack_chk_guard(GOT)
				.word	.LANCHOR0-(.LPIC1+4)
				.word	.LANCHOR0-(.LPIC2+4)
		.LFE188:
				.section	.rodata
				.align	2
		.LTRAMP0:
				.thumb
				ldr.w	ip, [pc, #4]
				ldr.w	pc, [pc, #4]
				.word	0
				.word	0
				.global	__clear_cache
				.align	1
				.global	main
				.thumb
				.thumb_func
		main:
		.LFB185:
				orr	r4, r4, #1
		.LVL18:
		.LBB24:
		.LBB25:
   14 %END
   15 A
				mov	r6, #256
				mov	r2, r6
				ldr	r1, .L9+8
		.LPIC1:
				add	r1, pc
				add	r4, sp, #1012
				mov	r0, r4
		.LVL1:
				bl	memcpy(PLT)
		.LVL2:
				mov	r2, r6
				mov	r1, r4
				add	r4, sp, #244
				mov	r0, r4
				bl	memcpy(PLT)
		.LVL3:
				mov	r2, r6
				mov	r1, r4
				add	r4, sp, #756
				mov	r0, r4
				bl	memcpy(PLT)
		.LVL4:
		.LBE10:
		.LBB11:
		.LBB12:
				movs	r2, #240
				add	r1, sp, #772
				mov	r0, sp
				bl	memcpy(PLT)
		.LVL5:
				ldm	r4, {r0, r1, r2, r3}
				bl	_imp_printstring(PLT)
		.LVL6:
		.L4:
		.L1:
		.LBE12:
		.LBE11:
   16 %ENDOFPROGRAM
   16 Statements compiled
				mov	r7, #256
				mov	r2, r7
				ldr	r1, .L9+12
		.LPIC2:
				add	r1, pc
				add	r1, r1, r7
				add	r4, sp, #1012
				mov	r0, r4
		.LVL8:
				bl	memcpy(PLT)
		.LVL9:
				mov	r2, r7
				mov	r1, r4
				add	r6, sp, #500
				mov	r0, r6
				bl	memcpy(PLT)
		.LVL10:
				mov	r2, r7
				mov	r1, r6
				mov	r0, r4
				bl	memcpy(PLT)
		.LVL11:
		.LBE13:
		.LBB14:
		.LBB15:
				movs	r2, #240
				addw	r1, sp, #1028
				mov	r0, sp
				bl	memcpy(PLT)
		.LVL12:
				ldm	r4, {r0, r1, r2, r3}
				bl	_imp_printstring(PLT)
		.LVL13:
		.LBE15:
		.LBE14: