Edinburgh IMP77 Compiler - Version 8.4
    1 %record %format %spec stackfm
		.Ltext0:
				.globl	ATYPE
				.bss
				.align 4
		ATYPE:
				.zero	4
				.globl	MEMBERFMTYPE
				.align 4
		MEMBERFMTYPE:
				.zero	4
				.globl	STACKFMTYPE
				.align 4
		STACKFMTYPE:
				.zero	4
				.globl	WITHFMTYPE
				.align 4
		WITHFMTYPE:
				.zero	4
		.Letext0:
    2 %record %format boundfm(%integer lower, %integer upper, %integer mult)
    3 %record %format afm(%integer dimension, %integer totalsize, %integer zerodisplacement, %integer dv, %integer localframe, %integer base, %record (boundfm) %array bound(1 : 7))
    4 %constant %record (afm) %name atype == 0
    5 %record %format varfm(%integer flags, %byte %integer base, %byte %integer prim, %byte %integer type, %byte %integer form, (%long %real rvar %or %integer disp, (%integer extra %or %record (afm) %name adata)), (%integer format %or %integer scale), %integer area)
    6 %record %format olfm(%integer oper, %record (stackfm) %name link)
    7 %record %format xfm(%integer xsize, %record (stackfm) %name index)
    8 %record %format datafm(%record (varfm) v, %integer varno, %record (varfm) %name fv, (%integer bias %or %byte %integer reg, %byte %integer label), %record (stackfm) %name params, %record (stackfm) %name record, (%integer oper, %record (stackfm) %name link %or %record (olfm) oplink), (%integer xsize, %record (stackfm) %name index %or %record (xfm) x))
    9 %record %format memberfm(%integer const, %integer items, %record (stackfm) %name a, %record (stackfm) %name b, %record (memberfm) %name link)
   10 %constant %record (memberfm) %name memberfmtype == 0
   11 %record %format stackfm(%record (varfm) v %or %record (datafm) data %or %integer flags, %byte %integer base, %byte %integer prim, %byte %integer type, %byte %integer form, (%long %real rval %or %integer rhigh, %integer rlow %or (%integer disp, (%integer extra %or %record (afm) %name adata)), (%integer format %or %integer scale), %integer area, %integer varno, (%record (varfm) %name fv %or %record (memberfm) %name members), (%integer bias %or %byte %integer reg, %byte %integer label), %record (stackfm) %name params, %record (stackfm) %name record, (%integer oper, %record (stackfm) %name link %or %record (olfm) oplink), (%integer xsize, %record (stackfm) %name index %or %record (xfm) x)), %record (stackfm) %name using, %record (stackfm) %name stack)
   12 %constant %record (stackfm) %name stackfmtype == 0
   13 %record %format withfm(%integer key, %record (datafm) data, %record (withfm) %name link)
   14 %constant %record (withfm) %name withfmtype == 0
   15 %record %format workfm(%integer size, %integer displacement, %integer validity)
   16 %end %of %file
   16 Statements compiled