move.a	@d1,a		; new type integer
swap	a,d0
add	10,d0
move.a	@d0,c		; CONTENTS OF INTEGER
swap	a,d0
add	5,d1		; POP STACK
inc.a	d		; FREE SPACE
move.a	@d1,a		; OBJECT
swap	a,d0
move.a	c,@d0		; SET NEW TYPE
swap	a,d0
move.a	@d0,a		;\
add	5,d0		; RETURN TO SYSTEM
jump	@a		;/