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 ;/