Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
		.Ltext0:
				.globl	main
		main:
		.LFB185:
		.LVL0:
				pushq	%rbp
				pushq	%rbx
				subq	$2072, %rsp
				movq	%fs:40, %rax
				movq	%rax, 2056(%rsp)
				xorl	%eax, %eax
    2 ! CHECKS THAT ASSIGNMENT OF STRINGS OF FIXED LENGTH WITH
				call	_imp_initialise@PLT
		.LVL1:
    3 ! L>128 DO NOT LOES CHARARCTERS
    4 %STRING(255)%ARRAY L(0:1)
    5       L(1)="
    6 0123456789012345678901234567890123456789012345678901234567890
    7 0123456789012345678901234567890123456789012345678901234567890
				movq	%rsp, %rsi
				leaq	1792(%rsp), %rbp
				movl	$255, %edx
				movq	%rbp, %rdi
				call	_imp_strncpy@PLT
		.LVL2:
		.LBB13:
		.LBB14:
		.LBB15:
    8 0123456789012345678901234567890123456789012345678901234567890
    9 TEST OK"
   10 PRINTSTRING("L1=".L(1)."
   11 ")
   12 %ENDOFPROGRAM
				leaq	512(%rsp), %rbx
				leaq	768(%rsp), %rsi
				movq	%rbp, %rdx
				movq	%rbx, %rdi
				call	_imp_join@PLT
		.LVL3:
		.LBE15:
				leaq	1280(%rsp), %rdi
				leaq	1024(%rsp), %rdx
				movq	%rbx, %rsi
				call	_imp_join@PLT
		.LVL4:
		.LBE14:
		.LBE13:
		.LBB16:
		.LBB17:
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				call	_imp_printstring@PLT
		.LVL5:
		.LBE17:
		.LBE16:
		.LBB18:
		.LBB19:
				addq	$256, %rsp
				movl	$0, %edi
				call	exit@PLT
		.LVL6:
		.LBE19:
		.LBE18:
		.LFE185:
		.Letext0:
    5 Statements compiled