DIRECCT THREADED
================

NEXT = JRST (IP)

DOCOL:	PUSH RP,IP
	MOVE IP,A
	NEXT

EXIT:	POP RP,IP
	NEXT



DUP:	PUSH P,(P)
	NEXT

MULT:	POP P,A
	IMUL A,(P)
	NEXT

SQUARE:	JSP A,DOCOL
	JSP IP,DUP
	JSP IP,MULT
	JSP IP,EXIT


SUBROUTINE THREADED
===================

DUP:	PUSH P,(P)
	POPJ RP,

MULT:	POP P,A
	IMUL A,(P)
	POPJ RP,

SQUARE:	PUSHJ RP,DUP
	PUSHJ RP,MULT
	POPJ RP,