 ldx usp get user stack pointer
 leax 10,x point to user pc
 jsr gtuwrd get the pc
 pshs d save it
 tfr d,x point to pc location
 jsr gtubyt get post byte
 stb upostb save in user block
 puls d get pc back
 addd #1 bump past post byte
 std urglst+UPC save in user block
 ldx usp get stack pointer
 leax 10,x point to pc
 jsr ptuwrd set back on stack
*
 ldx usp point to user stack
 ldb urglst+UCC get c-codes
 jsr ptubyt put on stack
 leax 1,x point to d reg
 ldd urglst+UD get d reg
 jsr ptuwrd put on stack
 leax 3,x point to x reg
 ldd urglst+UX get x reg
 jsr ptuwrd put on stack
 leax 6,x point to pc
 ldd urglst+UPC get user pc
 jmp ptuwrd put on stack & return
