mov     rax, 0x1000
        push    rax                             ; size(task)
        call    malloc
        mov     r15, rax		; rrT
        push    rax                             ; addr(task)
        mov     r12, rax		; rrRP
        mov     r13, rax
        add     r13, 0x1000		; rrSP
        mov     r14, 0x10000		; rrTIC
        xor     rax, rax		; rrXT
        lea     rbx, [cfa]		; rrC
        lea     rdx, [pfa]      	; rrP
        lea     rsi, [init]		; rrIP
        lea     r8, [code]
        push    r8                              ; addr(load)
	call	adjust
        jmp     rrC             	; launch Forth