From ea16f5d7f9a9ff7a7af9d7f8d6cac589b02620a0 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Mon, 24 May 2021 21:20:00 +1000 Subject: [PATCH] added CFA>FLAGS@ helper --- memory.asm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/memory.asm b/memory.asm index 64f54bc..171ac48 100644 --- a/memory.asm +++ b/memory.asm @@ -1,5 +1,12 @@ ;;; This file defines "memory access words" + WORD p_cfa2flags_get,'CFA>FLAGS@',fasm + ;; ( cfa -- flags ) + pop rax + cfa2tfa rax + push qword[rax+16] + next + WORD p_tfa2cfa,'TFA>CFA',fasm ;; ( tfa -- cfa ) ;; Advance a word tfa pointer to the cfa field -- 2.39.2