Edinburgh IMP77 Compiler - Version 8.4
    1     %record %format impstream ( %integer empty,lookahead, flags, %string(255) file name, %integer handle )
		.Ltext0:
		INITIALISESTREAM:
		.LFB189:
    2     %routine initialise stream( %record(impstream) %name s )
				pushl	%ebp
				movl	%esp, %ebp
				subl	$16, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
    3         s_handle = 0
				movl	8(%ebp), %eax
				movl	$0, 268(%eax)
    4         length(s_file name) = 0
				movl	8(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -4(%ebp)
		.LBB4:
		.LBB5:
				movl	-4(%ebp), %eax
		.LBE5:
		.LBE4:
				movb	$0, (%eax)
    5         s_flags = 0
				movl	8(%ebp), %eax
				movl	$0, 8(%eax)
    6         s_lookahead = -1
				movl	8(%ebp), %eax
				movl	$-1, 4(%eax)
    7         s_empty = 1
				movl	8(%ebp), %eax
				movl	$1, (%eax)
    8     %end { of "initialise stream" }
				nop
				leave
				ret
		.LFE189:
				.section	.text.__x86.get_pc_thunk.ax,"axG",@progbits,__x86.get_pc_thunk.ax,comdat
				.globl	__x86.get_pc_thunk.ax
				.hidden	__x86.get_pc_thunk.ax
		__x86.get_pc_thunk.ax:
		.LFB190:
				movl	(%esp), %eax
				ret
		.LFE190:
		.Letext0:
    9
   10 %endoffile
    9 Statements compiled