Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
		.Ltext0:
				.align	1
				.global	main
				.thumb
				.thumb_func
		main:
		.LFB185:
				@ args = 0, pretend = 0, frame = 776
				@ frame_needed = 0, uses_anonymous_args = 0
		.LVL0:
				push	{r4, lr}
				sub	sp, sp, #776
				ldr	r3, .L4
		.LPIC0:
				add	r3, pc
				ldr	r2, .L4+4
				ldr	r3, [r3, r2]
				ldr	r3, [r3]
				str	r3, [sp, #772]
    2   %integer inum
				bl	_imp_initialise(PLT)
		.LVL1:
    3   %real rnum
    4   %string (255) str = "improperly initialised?"
    5
    6   inum = 0123
    7   inum = 123
				movs	r2, #255
				add	r1, sp, #260
				add	r4, sp, #4
				mov	r0, r4
				bl	_imp_strncpy(PLT)
		.LVL2:
    8   inum = X'AA'
    9   inum = X'aa'
   10   inum = K'77'
   11   inum = B'1101'
   12   inum = 10_0123
   13   inum = 16_aa
   14   inum = 16_AA
   15   inum = M'FRED'
   16   inum = M'fred'
   17   !! NOT IMP77: inum = 'FRED'
   18   !! NOT IMP77: inum = 'fred'
   19   inum = 8_77
   20   inum = 2_1101
   21
   22   rnum = 0123
   23   rnum = 0123.234
   24   rnum = 0123.0234
   25   rnum = 0123.4@2
   26   rnum = 0123.4@-2
   27   rnum = 0123@2
   28   rnum = 0123@+2
   29   rnum = 0123@-2
   30   rnum = 123
   31   rnum = .234
   32   rnum = .234@3
   33   rnum = 0123.
   34   rnum = 0123.@4
   35   rnum = 0.@3
   36   !rnum = 0.@      ;! rejected forms:
   37   !rnum = .@3
   38
   39   str = "improperly assigned?"
   40   !! NOT IMP77: str = 'ditto, old style'
   41
				movs	r2, #255
				add	r1, sp, #516
				mov	r0, r4
				bl	_imp_strncpy(PLT)
		.LVL3:
		.LBB8:
		.LBB9:
				movs	r0, #0
				bl	exit(PLT)
		.LVL4:
		.L5:
				.align	2
		.L4:
				.word	_GLOBAL_OFFSET_TABLE_-(.LPIC0+4)
				.word	__stack_chk_guard(GOT)
		.LBE9:
		.LBE8:
		.LFE185:
		.Letext0:
   42 %endofprogram
   33 Statements compiled