Edinburgh IMP77 Compiler - Version 8.4
    1 %constinteger NO OF SNS = 2
		.Ltext0:
				.global	SMDETAILS
				.section	.rodata
				.align	2
		SMDETAILS:
				.byte	38
				.ascii	"%routine SELECT INPUT(%integer STREAM)\000"
				.space	41
				.space	175
				.byte	39
				.ascii	"%routine SELECT OUTPUT(%integer STREAM)\000"
				.space	40
				.space	175
				.byte	16
				.ascii	"%routine NEWLINE\000"
				.space	63
				.space	175
		.Letext0:
    2 %const %string(80) %array SMDETAILS(0:NO OF SNS) =    { 0 } "%routine SELECT INPUT(%integer STREAM)",
    3   { 1 } "%routine SELECT OUTPUT(%integer STREAM)",
    4   { 2 } "%routine NEWLINE"
    5 %endoffile
    3 Statements compiled