1
0
mirror of https://github.com/mgcaret/of816.git synced 2024-05-28 14:41:27 +00:00

don't index certain words in source

This commit is contained in:
mgcaret 2020-01-08 17:46:24 -08:00
parent a53bc5a612
commit d7dee93a00
2 changed files with 15 additions and 13 deletions

View File

@ -2597,7 +2597,7 @@ eword
.if 0 .if 0
; H: ( -- n ) copy third-inner loop index to stack ; H: ( -- n ) copy third-inner loop index to stack
dword KX,"K",F_CONLY dword KX,"K",F_CONLY ; noindex
lda 29,s lda 29,s
tay tay
lda 31,s lda 31,s
@ -4266,37 +4266,37 @@ dword RLSTORE,"RL!",F_IMMED
eword eword
.if 0 ; stuff for testing .if 0 ; stuff for testing
dword xSET_MUTABLE_FTABLES,"SET-MUTABLE-FTABLES" dword xSET_MUTABLE_FTABLES,"SET-MUTABLE-FTABLES" ; noindex
ENTER ENTER
.dword SET_MUTABLE_FTABLES .dword SET_MUTABLE_FTABLES
EXIT EXIT
eword eword
dword xSET_RAM_FTABLE,"SET-RAM-FTABLE" dword xSET_RAM_FTABLE,"SET-RAM-FTABLE" ; noindex
ENTER ENTER
.dword SET_RAM_FTABLE .dword SET_RAM_FTABLE
EXIT EXIT
eword eword
dword xSET_ROM_FTABLE,"SET-ROM-FTABLE" dword xSET_ROM_FTABLE,"SET-ROM-FTABLE" ; noindex
ENTER ENTER
.dword SET_ROM_FTABLE .dword SET_ROM_FTABLE
EXIT EXIT
eword eword
dword xGET_FTABLES,"GET-FTABLES" dword xGET_FTABLES,"GET-FTABLES" ; noindex
ENTER ENTER
.dword GET_FTABLES .dword GET_FTABLES
EXIT EXIT
eword eword
dword xSAVE_FCODE_STATE,"SAVE-FCODE-STATE" dword xSAVE_FCODE_STATE,"SAVE-FCODE-STATE" ; noindex
ENTER ENTER
.dword SAVE_FCODE_STATE .dword SAVE_FCODE_STATE
EXIT EXIT
eword eword
dword xRESTORE_FCODE_STATE,"RESTORE-FCODE-STATE" dword xRESTORE_FCODE_STATE,"RESTORE-FCODE-STATE" ; noindex
ENTER ENTER
.dword RESTORE_FCODE_STATE .dword RESTORE_FCODE_STATE
EXIT EXIT
@ -5836,19 +5836,19 @@ eword
; in the case that INSTANCE was not used. ; in the case that INSTANCE was not used.
.if include_fcode .if include_fcode
; ( -- ) compile the machine execution semantics of CREATE (jsl _pushda) ; ( -- ) compile the machine execution semantics of CREATE (jsl _pushda)
hword pCREATE,"%CREATE" hword pCREATE,"%CREATE" ; noindex
jmp dCREATE::docreate jmp dCREATE::docreate
eword eword
; H: ( n -- ) compile the machine execution semantics of VALUE (jsl _pushvalue) and the value ; H: ( n -- ) compile the machine execution semantics of VALUE (jsl _pushvalue) and the value
dword pVALUE,"%VALUE" dword pVALUE,"%VALUE" ; noindex
jsr _1parm jsr _1parm
jmp dVALUE::dovalue jmp dVALUE::dovalue
eword eword
; H: ( n -- ) compile the machine execution semantics of BUFFER (jsl _valuevalue) and the ; H: ( n -- ) compile the machine execution semantics of BUFFER (jsl _valuevalue) and the
; H: buffer address ; H: buffer address
dword pBUFFER,"%BUFFER" dword pBUFFER,"%BUFFER" ; noindex
ENTER ENTER
.dword ALLOC .dword ALLOC
.dword pVALUE .dword pVALUE
@ -5856,7 +5856,7 @@ dword pBUFFER,"%BUFFER"
eword eword
; H: ( -- ) compile the machine execution semantics of CREATE (jsl _pushda) and compile a zero ; H: ( -- ) compile the machine execution semantics of CREATE (jsl _pushda) and compile a zero
dword pVARIABLE,"%VARIABLE" dword pVARIABLE,"%VARIABLE" ; noindex
ENTER ENTER
.dword pCREATE .dword pCREATE
.dword ZERO .dword ZERO
@ -5865,7 +5865,7 @@ dword pVARIABLE,"%VARIABLE"
eword eword
; H: ( -- ) compile the machine execution semantics of DEFER (jsl _deferred) ; H: ( -- ) compile the machine execution semantics of DEFER (jsl _deferred)
dword pDEFER,"%DEFER" dword pDEFER,"%DEFER" ; noindex
ldy #.loword(dUNDEFERRED) ldy #.loword(dUNDEFERRED)
lda #.hiword(dUNDEFERRED) lda #.hiword(dUNDEFERRED)
jsr _pushay jsr _pushay
@ -6442,7 +6442,7 @@ eword
; after the marker ; after the marker
; * restoring the search order and CURRENT ensures no removed wordlists are in use ; * restoring the search order and CURRENT ensures no removed wordlists are in use
; * Restoring HERE deallocates all dictionary space from the marker and beyond. ; * Restoring HERE deallocates all dictionary space from the marker and beyond.
dword MARKER,"MARKER" dword MARKER,"MARKER" ; noindex
ENTER ENTER
CODE CODE

View File

@ -30,6 +30,8 @@ output = Hash.new()
help = [] help = []
input.lines.each do |line| input.lines.each do |line|
case line case line
when /;.*noindex/
# nothing
when /^\s*;\s+H:\s*(.+)/ when /^\s*;\s+H:\s*(.+)/
help << $1 help << $1
when /^\s*dword(q?)\s+(.+)/ when /^\s*dword(q?)\s+(.+)/