Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
		.Ltext0:
				.section	.rodata
				.align 4
		.LC5:
				.string	"Illegal cycle I = 1, 1, LABELNO"
				.align 32
		.LC3:
				.byte	16
				.string	"test-in/rt35.imp"
				.zero	238
				.align 32
		.LC4:
				.byte	23
				.string	" MAKES TOO MANY LABELS."
				.zero	231
		LABEL.6034:
		.LFB190:
				leal	4(%esp), %ecx
				andl	$-16, %esp
				pushl	-4(%ecx)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				pushl	%ecx
				subl	$2232, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %eax
				movl	4(%eax), %edx
				movl	%edx, -2236(%ebp)
				movl	%gs:20, %esi
				movl	%esi, -28(%ebp)
				xorl	%esi, %esi
				leal	8(%ebp), %edx
				movl	%edx, -2220(%ebp)
				subl	$8, %esp
				pushl	-2236(%ebp)
				pushl	(%eax)
				call	_imp_initialise@PLT
				addl	$16, %esp
    2 %OWNINTEGER LABELNO=0
    3 %CONSTINTEGER MAXLABELS=10
    4 %RECORDFORMAT F(%BYTE B,%STRING(255)LAB)
    5 %OWNSTRING(15)%ARRAY LBLNAME(0:MAXLABELS)
				leal	-2212(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	LBLNAME.6029@GOTOFF(%ebx), %eax
				movl	%eax, -2212(%ebp)
				movl	$256, -2208(%ebp)
    6 %OWNRECORD(F)%ARRAY LBL(0:MAXLABELS)
				leal	-2144(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	LBL.6031@GOTOFF(%ebx), %eax
				movl	%eax, -2144(%ebp)
				movl	$257, -2140(%ebp)
		.LBB67:
		.LBB68:
    7
    8 %RECORD(F)%MAP LABEL(%STRING(15) L)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$1596, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, -1596(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
    9 %INTEGER I
   10  %IF LABELNO>0 %THENSTART
				movl	LABELNO.6021@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jle	.L24
		.LBB46:
				nop
				jmp	.L14
		.L25:
		.LBB49:
   11   %FOR I=1,1,LABELNO %CYCLE
				movl	LABELNO.6021@GOTOFF(%ebx), %eax
				movl	%eax, -1576(%ebp)
		.LBB47:
				movl	-1576(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -1572(%ebp)
				movl	-1572(%ebp), %eax
				xorl	$1, %eax
				shrl	$31, %eax
				movzbl	%al, %eax
		.LBE47:
				testl	%eax, %eax
				je	.L4
				leal	-1052(%ebp), %eax
				subl	$8, %esp
				leal	.LC5@GOTOFF(%ebx), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L5
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1600(%ebp)
				jmp	.L6
		.L5:
				movl	$11, -1600(%ebp)
		.L6:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L7
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-796(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L8
		.L7:
		.LBB48:
				leal	-284(%ebp), %eax
				leal	.LC3@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1564(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE48:
				leal	-796(%ebp), %eax
				leal	-1564(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L8:
				pushl	$0
				pushl	$1
				pushl	$5
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-1052(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				pushl	-1600(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-796(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_event@PLT
				addl	$528, %esp
		.L4:
				movl	$0, -1580(%ebp)
		.L9:
				movl	-1580(%ebp), %eax
				cmpl	-1576(%ebp), %eax
				je	.L25
				addl	$1, -1580(%ebp)
				nop
		.L14:
		.LBE49:
   12    %RESULT==LBL(I) %IF LBLNAME(I)=L
				movl	-1580(%ebp), %eax
				sall	$8, %eax
				movl	%eax, %edx
				leal	LBLNAME.6029@GOTOFF(%ebx), %eax
				addl	%edx, %eax
				subl	$8, %esp
				leal	8(%ebp), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_strcmp@PLT
				addl	$16, %esp
				testl	%eax, %eax
				jne	.L26
				movl	-1580(%ebp), %edx
				movl	%edx, %eax
				sall	$8, %eax
				addl	%edx, %eax
				leal	LBL.6031@GOTOFF(%ebx), %edx
				addl	%edx, %eax
				jmp	.L13
		.L26:
				nop
		.L12:
   13   %REPEAT
				jmp	.L9
		.L3:
		.L24:
		.LBE46:
   14  %FINISH
   15 !  INSERT NEW LABEL-NAME.
   16  LABELNO=LABELNO+1
				movl	LABELNO.6021@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, LABELNO.6021@GOTOFF(%ebx)
   17  %IF LABELNO>MAXLABELS %THENSTART
				movl	LABELNO.6021@GOTOFF(%ebx), %eax
				cmpl	$10, %eax
				jle	.L27
		.LBB50:
		.LBB51:
		.LBB52:
				nop
		.L16:
		.LBB64:
   18   PRINT STRING(L." MAKES TOO MANY LABELS."); NEWLINE
				leal	-284(%ebp), %eax
				leal	.LC4@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-284(%ebp), %edx
		.LBE52:
				leal	-284(%ebp), %eax
				subl	$4, %esp
				pushl	%edx
				leal	8(%ebp), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_join@PLT
				addl	$12, %esp
				leal	-284(%ebp), %edx
		.LBE51:
				leal	-284(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-284(%ebp), %edx
				leal	-540(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
		.LBE50:
		.LBB53:
		.LBB54:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE54:
		.LBE53:
		.LBB55:
		.LBB56:
				call	_imp_newline@PLT
		.LBE56:
		.LBE55:
   19   %FOR I=1,1,MAXLABELS %CYCLE
				movl	$0, -1580(%ebp)
		.L17:
				cmpl	$10, -1580(%ebp)
				je	.L28
				addl	$1, -1580(%ebp)
		.LBB57:
				nop
		.L19:
				movl	$0, -1568(%ebp)
		.LBB62:
		.LBB63:
				subl	$12, %esp
				pushl	-1568(%ebp)
				call	exit@PLT
		.L27:
		.LBE63:
		.LBE62:
   20    PRINT STRING(LBLNAME(I))
				movl	-1580(%ebp), %edx
				leal	LBLNAME.6029@GOTOFF(%ebx), %eax
				sall	$8, %edx
				addl	%eax, %edx
				leal	-1308(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-1308(%ebp), %edx
				leal	-284(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
		.LBE57:
		.LBB58:
		.LBB59:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE59:
		.LBE58:
		.LBB60:
		.LBB61:
				call	_imp_newline@PLT
		.LBE61:
		.LBE60:
   21    NEWLINE
   22   %REPEAT
				jmp	.L17
		.L28:
   23   %MONITOR
   24   %STOP
   25  %FINISH    ;!  DEALING WITH TOO MANY LABELS.
   26  LBLNAME(LABELNO)=L
				leal	-284(%ebp), %eax
				leal	8(%ebp), %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-284(%ebp), %eax
		.LBE64:
				movl	LABELNO.6021@GOTOFF(%ebx), %edx
				movl	%edx, %ecx
				sall	$8, %ecx
				leal	LBLNAME.6029@GOTOFF(%ebx), %edx
				addl	%ecx, %edx
				subl	$4, %esp
				pushl	$15
				pushl	%eax
				pushl	%edx
				call	_imp_strncpy@PLT
				addl	$16, %esp
		.LBB65:
		.LBB66:
   27  LBL(LABELNO)_LAB=""
				movb	$0, -540(%ebp)
				movl	$0, -539(%ebp)
				leal	-535(%ebp), %edx
				movl	$0, %eax
				movb	%al, (%edx)
				addl	$1, %edx
				movw	%ax, (%edx)
				addl	$2, %edx
				movl	$62, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-284(%ebp), %eax
				leal	-540(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE66:
				leal	-540(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-540(%ebp), %ecx
		.LBE65:
				movl	LABELNO.6021@GOTOFF(%ebx), %edx
				movl	%edx, %eax
				sall	$8, %eax
				addl	%edx, %eax
				leal	LBL.6031@GOTOFF(%ebx), %edx
				addl	%edx, %eax
				addl	$1, %eax
				subl	$4, %esp
				pushl	$255
				pushl	%ecx
				pushl	%eax
				call	_imp_strncpy@PLT
				addl	$16, %esp
   28  %RESULT==LBL(LABELNO)
				movl	LABELNO.6021@GOTOFF(%ebx), %edx
				movl	%edx, %eax
				sall	$8, %eax
				addl	%edx, %eax
				leal	LBL.6031@GOTOFF(%ebx), %edx
				addl	%edx, %eax
		.L13:
   29 %END
				movl	-28(%ebp), %esi
				xorl	%gs:20, %esi
				je	.L20
				call	__stack_chk_fail_local
		.L20:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE190:
				.section	.rodata
				.align 32
		.LC0:
				.byte	20
				.string	"TESTING USE OF LABEL"
				.zero	234
				.align 32
		.LC1:
				.byte	27
				.string	" AS I TRIED TO DO YESTERDAY"
				.zero	227
				.align 32
		.LC2:
				.byte	19
				.string	"THIS SHOULD MODIFY "
				.zero	235
				.globl	main
		main:
		.LFB189:
   30
   31
   32
   33   LABEL("T")_LAB="TESTING USE OF LABEL"
				leal	-284(%ebp), %eax
				leal	.LC0@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1820(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE68:
				leal	-284(%ebp), %eax
				leal	-1820(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-284(%ebp), %eax
				movl	%eax, -2240(%ebp)
		.LBE67:
		.LBB69:
				leal	-284(%ebp), %edx
				movl	$0, %eax
				movl	$64, %ecx
				movl	%edx, %edi
				rep stosl
				movb	$1, -284(%ebp)
				movl	$84, -283(%ebp)
				movl	$0, -279(%ebp)
				movl	$0, -275(%ebp)
				movw	$0, -271(%ebp)
				movb	$0, -269(%ebp)
				leal	-2076(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE69:
				leal	-2220(%ebp), %esi
				movl	%esi, -2244(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-2076(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				movl	-2244(%ebp), %ecx
				call	LABEL.6034
				addl	$256, %esp
				addl	$1, %eax
				subl	$4, %esp
				pushl	$255
				pushl	-2240(%ebp)
				pushl	%eax
				call	_imp_strncpy@PLT
				addl	$16, %esp
		.LBB70:
		.LBB71:
   34   PRINT STRING(LABEL("T")_LAB); NEWLINE
				leal	-284(%ebp), %edx
				movl	$0, %eax
				movl	$64, %ecx
				movl	%edx, %edi
				rep stosl
				movb	$1, -284(%ebp)
				movl	$84, -283(%ebp)
				movl	$0, -279(%ebp)
				movl	$0, -275(%ebp)
				movw	$0, -271(%ebp)
				movb	$0, -269(%ebp)
				leal	-1564(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE71:
				leal	-2220(%ebp), %eax
				movl	%eax, -2240(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-1564(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				movl	-2240(%ebp), %ecx
				call	LABEL.6034
				addl	$256, %esp
				movl	%eax, %edx
				leal	-284(%ebp), %eax
				addl	$1, %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-284(%ebp), %edx
				leal	-284(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
		.LBE70:
		.LBB72:
		.LBB73:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE73:
		.LBE72:
		.LBB74:
		.LBB75:
				call	_imp_newline@PLT
		.LBE75:
		.LBE74:
		.LBB76:
		.LBB77:
		.LBB78:
   35   LABEL("T")_LAB="THIS SHOULD MODIFY ".LABEL("T")_LAB." AS I TRIED TO DO YESTERDAY"
				leal	-540(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-540(%ebp), %eax
				movl	%eax, -2244(%ebp)
		.LBE78:
		.LBB79:
		.LBB80:
				leal	-540(%ebp), %edx
				movl	$0, %eax
				movl	$64, %ecx
				movl	%edx, %edi
				rep stosl
				movb	$1, -540(%ebp)
				movl	$84, -539(%ebp)
				movl	$0, -535(%ebp)
				movl	$0, -531(%ebp)
				movw	$0, -527(%ebp)
				movb	$0, -525(%ebp)
				leal	-1052(%ebp), %eax
				leal	-540(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE80:
				leal	-2220(%ebp), %esi
				movl	%esi, -2240(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-1052(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				movl	-2240(%ebp), %ecx
				call	LABEL.6034
				addl	$256, %esp
				leal	1(%eax), %esi
				movl	%esi, -2240(%ebp)
		.LBB81:
				leal	-540(%ebp), %eax
				leal	.LC2@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-540(%ebp), %edx
		.LBE81:
				leal	-540(%ebp), %eax
				subl	$4, %esp
				pushl	-2240(%ebp)
				pushl	%edx
				pushl	%eax
				call	_imp_join@PLT
				addl	$12, %esp
				leal	-540(%ebp), %edx
		.LBE79:
				leal	-540(%ebp), %eax
				subl	$4, %esp
				pushl	-2244(%ebp)
				pushl	%edx
				pushl	%eax
				call	_imp_join@PLT
				addl	$12, %esp
				leal	-540(%ebp), %edx
		.LBE77:
				leal	-540(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-540(%ebp), %eax
				movl	%eax, -2240(%ebp)
		.LBE76:
		.LBB82:
				leal	-540(%ebp), %edx
				movl	$0, %eax
				movl	$64, %ecx
				movl	%edx, %edi
				rep stosl
				movb	$1, -540(%ebp)
				movl	$84, -539(%ebp)
				movl	$0, -535(%ebp)
				movl	$0, -531(%ebp)
				movw	$0, -527(%ebp)
				movb	$0, -525(%ebp)
				leal	-1308(%ebp), %eax
				leal	-540(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE82:
				leal	-2220(%ebp), %esi
				movl	%esi, -2244(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-1308(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				movl	-2244(%ebp), %ecx
				call	LABEL.6034
				addl	$256, %esp
				addl	$1, %eax
				subl	$4, %esp
				pushl	$255
				pushl	-2240(%ebp)
				pushl	%eax
				call	_imp_strncpy@PLT
				addl	$16, %esp
		.LBB83:
		.LBB84:
   36   PRINT STRING(LABEL("T")_LAB); NEWLINE
				leal	-540(%ebp), %edx
				movl	$0, %eax
				movl	$64, %ecx
				movl	%edx, %edi
				rep stosl
				movb	$1, -540(%ebp)
				movl	$84, -539(%ebp)
				movl	$0, -535(%ebp)
				movl	$0, -531(%ebp)
				movw	$0, -527(%ebp)
				movb	$0, -525(%ebp)
				leal	-796(%ebp), %eax
				leal	-540(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE84:
				leal	-2220(%ebp), %eax
				movl	%eax, -2240(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-796(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				movl	-2240(%ebp), %ecx
				call	LABEL.6034
				addl	$256, %esp
				movl	%eax, %edx
				leal	-540(%ebp), %eax
				addl	$1, %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-540(%ebp), %edx
				leal	-540(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
		.LBE83:
		.LBB85:
		.LBB86:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE86:
		.LBE85:
		.LBB87:
		.LBB88:
				call	_imp_newline@PLT
				movl	$0, -2216(%ebp)
		.LBE88:
		.LBE87:
		.LBB89:
		.LBB90:
				subl	$12, %esp
				pushl	-2216(%ebp)
				call	exit@PLT
		.LBE90:
		.LBE89:
		.LFE189:
				.comm	LBLNAME.6029,2816,32
				.comm	LBL.6031,2827,32
				.comm	LABELNO.6021,4,4
				.section	.text.__x86.get_pc_thunk.bx,"axG",@progbits,__x86.get_pc_thunk.bx,comdat
				.globl	__x86.get_pc_thunk.bx
				.hidden	__x86.get_pc_thunk.bx
		__x86.get_pc_thunk.bx:
		.LFB191:
				movl	(%esp), %ebx
				ret
		.LFE191:
		.Letext0:
   37 %ENDOFPROGRAM
   35 Statements compiled