From d7dee93a00577b88759db46c50e1276ef3f43c10 Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Wed, 8 Jan 2020 17:46:24 -0800
Subject: [PATCH] don't index certain words in source

---
 asm/forth-dictionary.s | 26 +++++++++++++-------------
 utils/index.rb         |  2 ++
 2 files changed, 15 insertions(+), 13 deletions(-)

diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s
index 5f795ea..566005e 100644
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@@ -2597,7 +2597,7 @@ eword
 
 .if 0
 ; H: ( -- n ) copy third-inner loop index to stack
-dword     KX,"K",F_CONLY
+dword     KX,"K",F_CONLY ; noindex
           lda   29,s
           tay
           lda   31,s
@@ -4266,37 +4266,37 @@ dword     RLSTORE,"RL!",F_IMMED
 eword
 
 .if 0 ; stuff for testing
-dword     xSET_MUTABLE_FTABLES,"SET-MUTABLE-FTABLES"
+dword     xSET_MUTABLE_FTABLES,"SET-MUTABLE-FTABLES" ; noindex
           ENTER
           .dword SET_MUTABLE_FTABLES
           EXIT
 eword
 
-dword     xSET_RAM_FTABLE,"SET-RAM-FTABLE"
+dword     xSET_RAM_FTABLE,"SET-RAM-FTABLE" ; noindex
           ENTER
           .dword SET_RAM_FTABLE
           EXIT
 eword
 
-dword     xSET_ROM_FTABLE,"SET-ROM-FTABLE"
+dword     xSET_ROM_FTABLE,"SET-ROM-FTABLE" ; noindex
           ENTER
           .dword SET_ROM_FTABLE
           EXIT
 eword
 
-dword     xGET_FTABLES,"GET-FTABLES"
+dword     xGET_FTABLES,"GET-FTABLES" ; noindex
           ENTER
           .dword GET_FTABLES
           EXIT
 eword
 
-dword     xSAVE_FCODE_STATE,"SAVE-FCODE-STATE"
+dword     xSAVE_FCODE_STATE,"SAVE-FCODE-STATE" ; noindex
           ENTER
           .dword SAVE_FCODE_STATE
           EXIT
 eword
 
-dword     xRESTORE_FCODE_STATE,"RESTORE-FCODE-STATE"
+dword     xRESTORE_FCODE_STATE,"RESTORE-FCODE-STATE" ; noindex
           ENTER
           .dword RESTORE_FCODE_STATE
           EXIT
@@ -5836,19 +5836,19 @@ eword
 ; in the case that INSTANCE was not used.
 .if include_fcode
 ; ( -- ) compile the machine execution semantics of CREATE (jsl _pushda)
-hword     pCREATE,"%CREATE"
+hword     pCREATE,"%CREATE" ; noindex
           jmp   dCREATE::docreate
 eword
 
 ; H: ( n -- ) compile the machine execution semantics of VALUE (jsl _pushvalue) and the value
-dword     pVALUE,"%VALUE"
+dword     pVALUE,"%VALUE" ; noindex
           jsr   _1parm
           jmp   dVALUE::dovalue
 eword
 
 ; H: ( n -- ) compile the machine execution semantics of BUFFER (jsl _valuevalue) and the
 ; H: buffer address
-dword     pBUFFER,"%BUFFER"
+dword     pBUFFER,"%BUFFER" ; noindex
           ENTER
           .dword ALLOC
           .dword pVALUE
@@ -5856,7 +5856,7 @@ dword     pBUFFER,"%BUFFER"
 eword
 
 ; H: ( -- ) compile the machine execution semantics of CREATE (jsl _pushda) and compile a zero 
-dword     pVARIABLE,"%VARIABLE"
+dword     pVARIABLE,"%VARIABLE" ; noindex
           ENTER
           .dword pCREATE
           .dword ZERO
@@ -5865,7 +5865,7 @@ dword     pVARIABLE,"%VARIABLE"
 eword
 
 ; H: ( -- ) compile the machine execution semantics of DEFER (jsl _deferred)
-dword     pDEFER,"%DEFER"
+dword     pDEFER,"%DEFER" ; noindex
           ldy   #.loword(dUNDEFERRED)
           lda   #.hiword(dUNDEFERRED)
           jsr   _pushay
@@ -6442,7 +6442,7 @@ eword
 ;   after the marker
 ; * restoring the search order and CURRENT ensures no removed wordlists are in use
 ; * Restoring HERE deallocates all dictionary space from the marker and beyond.
-dword     MARKER,"MARKER"
+dword     MARKER,"MARKER" ; noindex
           ENTER
 
           CODE
diff --git a/utils/index.rb b/utils/index.rb
index cbb06c8..8ee7d40 100755
--- a/utils/index.rb
+++ b/utils/index.rb
@@ -30,6 +30,8 @@ output = Hash.new()
 help = []
 input.lines.each do |line|
     case line
+    when /;.*noindex/
+        # nothing
     when /^\s*;\s+H:\s*(.+)/
         help << $1
     when /^\s*dword(q?)\s+(.+)/