6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2024-06-08 12:29:30 +00:00
Code Issues Projects Releases Wiki Activity

inline documentation/code comment updates

Browse Source
This commit is contained in:
mgcaret 2020-01-20 23:08:23 -08:00
parent a02e14e375
commit bc6b58404d
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
asm/forth-dictionary.s
View File

@ -3052,9 +3052,9 @@ hword dCSBUF,"$CSBUF"
eword eword
; ( c-addr1 u1 -- c-addr2 u1 ) ; ( c-addr1 u1 -- c-addr2 u1 )
; Allocate a temporary string buffer for interpretation semantics of strings ; H: Allocate a temporary string buffer for interpretation semantics of strings
; and return the address and length of the buffer ; H: and return the address and length of the buffer. If taking the slot used
; if taking the slot used by an existing buffer, free it. ; H: by an existing buffer, free it.
dword dTMPSTR,"$TMPSTR" dword dTMPSTR,"$TMPSTR"
jsr _2parm jsr _2parm
lda STACKBASE+0,x ; get u1 lda STACKBASE+0,x ; get u1
@ -5376,7 +5376,7 @@ done: ldy YR
PUSHNEXT PUSHNEXT
eword eword
; ( c-addr1 u1 c-addr2 u2 -- caddr1 u1+u2 ) ; ( c-addr1 u1 c-addr2 u2 -- caddr1 u1+u2 ) Concatenate strings.
; c-addr1 is assumed to have enough room for the string ; c-addr1 is assumed to have enough room for the string
hword SCONCAT,"SCONCAT" hword SCONCAT,"SCONCAT"
jsr _4parm jsr _4parm
@ -5414,7 +5414,8 @@ dwordq ASTR,"A'"
EXIT EXIT
eword eword
; H: ( c-addr1 u1 c-addr2 u2 -- c-addr3 u1+u2 ) concatenate allocated strings ; H: ( c-addr1 u1 c-addr2 u2 -- c-addr3 u1+u2 ) Concatenate allocated strings,
; H: freeing the originals.
; Concatenate two strings that are in memory returned by ALLOC-MEM ; Concatenate two strings that are in memory returned by ALLOC-MEM
; returning a string allocated via ALLOC-MEM and the original strings ; returning a string allocated via ALLOC-MEM and the original strings
; freed via FREE-MEM ; freed via FREE-MEM
@ -6003,8 +6004,8 @@ dword COLON,":"
EXIT EXIT
eword eword
; H: ( -- colon-sys ) create an anonymous colon definition and enter compiling state ; H: ( -- colon-sys ) Create an anonymous colon definition and enter compiling state.
; H: the xt of the anonymous definition is left on the stack after ; ; H: The xt of the anonymous definition is left on the stack after ;.
dword NONAME,":NONAME" dword NONAME,":NONAME"
ENTER ENTER
ONLIT $80 ; name length is 0 for noname ONLIT $80 ; name length is 0 for noname
@ -6021,8 +6022,8 @@ dword NONAME,":NONAME"
EXIT EXIT
eword eword
; H: ( -- colon-sys ) create a temporary anonymous colon definition and enter compiling state ; H: ( -- colon-sys ) Create a temporary anonymous colon definition and enter
; H: the temporary definition is executed immediately after ; ; H: compiling state. The temporary definition is executed immediately after ;
; word supporting temporary colon definitions to implement IEEE 1275 ; word supporting temporary colon definitions to implement IEEE 1275
; words that are extended to run in interpretation state ; words that are extended to run in interpretation state
dword dTEMPCOLON,":TEMP" dword dTEMPCOLON,":TEMP"
@ -6051,11 +6052,11 @@ eword
; ( xt xt' -- ) ; ( xt xt' -- )
hword dTEMPSEMIQ,"$;TEMP?",F_IMMED|F_CONLY hword dTEMPSEMIQ,"$;TEMP?",F_IMMED|F_CONLY
ENTER ENTER
.dword dTMPDEF ; ( -- a-addr ) .dword dTMPDEF ; ( -- a-addr ) first see if we are in a temp def
.dword FETCH ; ( a-addr -- x ) 0 if not in temp def .dword FETCH ; ( a-addr -- x ) 0 if not in temp def
.dword _IF ; ( x -- ) .dword _IF ; ( x -- )
.dword notmp ; if not in temp def .dword notmp ; if not in temp def
dosemi: .dword DEPTH ; ( -- u1 ) dosemi: .dword DEPTH ; ( -- u1 ) next see if the stack depth matches
.dword dCSDEPTH ; ( u1 -- u1 c-addr1 ) verify stack depth is what it should be .dword dCSDEPTH ; ( u1 -- u1 c-addr1 ) verify stack depth is what it should be
.dword FETCH ; ( u1 c-addr1 -- u1 u2 ) .dword FETCH ; ( u1 c-addr1 -- u1 u2 )
.dword ULTE ; ( u1 u2 -- f ) is less than or equal to? .dword ULTE ; ( u1 u2 -- f ) is less than or equal to?
@ -6328,6 +6329,7 @@ eword
; This implementation skips the quotation with AHEAD and afterwards leaves the ; This implementation skips the quotation with AHEAD and afterwards leaves the
; the xt on the stack. ; the xt on the stack.
; quot-sys is ( -- old-$CURDEF forward-ref xt ) ; quot-sys is ( -- old-$CURDEF forward-ref xt )
; H: ( C: -- quot-sys ) ( R: -- ) Start a quotation.
dword SQUOT,"[:",F_IMMED|F_CONLY dword SQUOT,"[:",F_IMMED|F_CONLY
ENTER ENTER
.dword dCURDEF ; fix current def to quotation .dword dCURDEF ; fix current def to quotation
@ -6338,6 +6340,8 @@ dword SQUOT,"[:",F_IMMED|F_CONLY
EXIT EXIT
eword eword
; H: ( C: quot-sys -- ) ( R: -- xt ) End a quotation. During executon,
; H: leave xt of the quotation on the stack.
dword EQUOT,";]",F_IMMED|F_CONLY dword EQUOT,";]",F_IMMED|F_CONLY
ENTER ENTER
.dword _COMP_LIT ; compile EXIT into current def .dword _COMP_LIT ; compile EXIT into current def
@ -6391,7 +6395,7 @@ eword
; H: ( "name"<> -- ) Create a new named wordlist definition. When name is executed, ; H: ( "name"<> -- ) Create a new named wordlist definition. When name is executed,
; H: put the WID of the wordlist at the top of the search order. ; H: put the WID of the wordlist at the top of the search order.
; H: The WID is the address of teh body of the named wordlist definition. ; H: The WID is the address of the body of the named wordlist definition.
dword VOCABULARY,"VOCABULARY" dword VOCABULARY,"VOCABULARY"
ENTER ENTER
.dword CREATE .dword CREATE