update

[rrq/rrqforth.git] / rrqforth.asm

diff --git a/rrqforth.asm b/rrqforth.asm
index fd377099761171f0f06149912e25882c9f3bfa98..5d360306df30648ac9d94d9d5a9618dd5b85a096 100644 (file)
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -147,32 +147,12 @@ terminate_special:
        mov eax,60
        syscall
 
-       WORD p_branch,'BRANCH',fasm
-       ;; ( -- )
-       ;; Using subsequent inline cell as branch offset, branch
-       ;; accordingly
-       add rsi,qword [rsi]     
-       add rsi,8
-       next
-       
-       WORD p_zero_branch,'0BRANCH',fasm
-       ;; ( v -- )
-       ;; Using subsequent inline cell as branch offset, branch
-       ;; accordingly if the stacked value is zero, otherwise just
-       ;; skip over the branch offset
-       pop rax
-       cmp rax,0
-       jne p_zero_branch_SKIP
-       add rsi,qword [rsi]
-p_zero_branch_SKIP:
-       add rsi,8
-       next
-
 ;;; ========================================
 ;;; Core extension(s)
 
        ;segment readable writable executable
        
+include 'control.asm'
 include 'wordlists.asm'
 include 'memory.asm'
 include 'stack.asm'