.text
.globl gto~
gto~:
mov (sp)+,r4
mov 4(r4),r5
mov 2(r4),sp
mov (r4),pc
/
/ mov (sp)+,r3
/1: cmp 4(r3),r5
/ jeq 2f
/ mov 2(r5),r4
/ mov 4(r5),r2
/ mov (r5),r5
/ br 1b
/2: mov 2(r3),sp
/ jmp *(r3)
