mice-jump.red

;name Mice
;author Chip Wendell, P. Gerwinski
;assert 1

ptr     dat              #0
start   mov     #12,     ptr    ; n = 12
loop    mov     @ptr,    <dest  ; *dest = *(ptr+(*ptr))
        djn     loop,    ptr    ; if(--ptr != 0)
                                ;     goto loop
        jmp     @dest           ; jump(*dest)
dest    dat              #833

        end start