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:
parent
a53bc5a612
commit
d7dee93a00
|
@ -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
|
||||||
|
|
|
@ -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+(.+)/
|
||||||
|
|
Loading…
Reference in New Issue
Block a user