Edinburgh IMP77 Compiler - Version 8.4
    1       %EXTERNALINTEGERFN IAND(%INTEGERNAME A,B)
				NO_APP
		.Ltext0:
				.align	2
				.globl	IAND
		IAND:
		.LFB185:
		.LVL0:
		 		link.w %fp,#0
    2       %RESULT=A&B
    3       %END
		 		move.l 8(%fp),%a1
		 		move.l 12(%fp),%a0
		 		move.l (%a1),%d0
		 		and.l (%a0),%d0
		 		unlk %fp
		 		rts
		.LFE185:
				.align	2
				.globl	IOR
		IOR:
		.LFB186:
    4       %EXTERNALINTEGERFN IOR(%INTEGERNAME A,B)
		.LVL1:
		 		link.w %fp,#0
    5       %RESULT=A!B
    6       %END
		 		move.l 8(%fp),%a1
		 		move.l 12(%fp),%a0
		 		move.l (%a1),%d0
		 		or.l (%a0),%d0
		 		unlk %fp
		 		rts
		.LFE186:
				.align	2
				.globl	IEOR
		IEOR:
		.LFB187:
    7       %EXTERNALINTEGERFN IEOR(%INTEGERNAME A,B)
		.LVL2:
		 		link.w %fp,#0
    8       %RESULT=A!!B
    9       %END
		 		move.l 8(%fp),%a1
		 		move.l 12(%fp),%a0
		 		move.l (%a1),%d0
		 		move.l (%a0),%d1
		 		eor.l %d1,%d0
		 		unlk %fp
		 		rts
		.LFE187:
				.align	2
				.globl	NOT
		NOT:
		.LFB188:
   10       %EXTERNALINTEGERFN NOT(%INTEGERNAME A)
		.LVL3:
		 		link.w %fp,#0
   11       %RESULT=\A
   12       %END
		 		move.l 8(%fp),%a0
		 		move.l (%a0),%d0
		 		not.l %d0
		 		unlk %fp
		 		rts
		.LFE188:
				.align	2
				.globl	ISHFT
		ISHFT:
		.LFB189:
   13       %EXTERNALINTEGERFN ISHFT(%INTEGERNAME A,B)
		.LVL4:
		 		link.w %fp,#0
   14       %IF B>0 %THEN %RESULT=A<<B %ELSE %RESULT=A>>(-B)
		 		move.l 12(%fp),%a0
		 		move.l (%a0),%d1
		 		jle .L6
   15       %END
		 		move.l 8(%fp),%a0
		 		move.l (%a0),%d0
		 		lsl.l %d1,%d0
		.L5:
		 		unlk %fp
		 		rts
		.L6:
   16       %EXTERNALINTEGERFNSPEC RETURNCODE
   17       %EXTERNALINTEGERFN SUCESS(%INTEGERNAME DUMMY)
		 		neg.l %d1
		 		move.l 8(%fp),%a0
		 		move.l (%a0),%d0
		 		lsr.l %d1,%d0
		 		jra .L5
		.LFE189:
				.align	2
				.globl	SUCESS
		SUCESS:
		.LFB190:
		.LVL5:
		 		link.w %fp,#0
   18       %RESULT=RETURNCODE
		 		jsr RETURNCODE
		.LVL6:
   19       %END
		 		unlk %fp
		 		rts
		.LFE190:
		.Letext0:
?DUMMY unused
   20       %ENDOFFILE
   20 Statements compiled