update syntax
This commit is contained in:
parent
6e3e5f5c81
commit
10a4dcc2af
|
@ -778,7 +778,7 @@
|
||||||
stack-exist ?&ok ;stack-is-empty errorm &ok JMP2r
|
stack-exist ?&ok ;stack-is-empty errorm &ok JMP2r
|
||||||
|
|
||||||
( stack-pos points to the next free stack position (or the top if full). )
|
( stack-pos points to the next free stack position (or the top if full). )
|
||||||
@stack-pos :stack-bot ( the next position to insert at )
|
@stack-pos =stack-bot ( the next position to insert at )
|
||||||
|
|
||||||
( stack-bot is the address of the first stack position. )
|
( stack-bot is the address of the first stack position. )
|
||||||
( stack-top is the address of the first byte beyond the stack. )
|
( stack-top is the address of the first byte beyond the stack. )
|
||||||
|
@ -815,7 +815,7 @@
|
||||||
STH2r JMP2r ( pos )
|
STH2r JMP2r ( pos )
|
||||||
&error POP2 POP2r ;arena-is-full errorm
|
&error POP2 POP2r ;arena-is-full errorm
|
||||||
|
|
||||||
@arena-pos :arena-bot ( the next position to allocate )
|
@arena-pos =arena-bot ( the next position to allocate )
|
||||||
@arena-bot $400 @arena-top ( holds up to 1024 bytes )
|
@arena-bot $400 @arena-top ( holds up to 1024 bytes )
|
||||||
|
|
||||||
( SUBGROUP OPERATIONS )
|
( SUBGROUP OPERATIONS )
|
||||||
|
@ -909,5 +909,5 @@
|
||||||
;subgroup-bot ;subgroup-pos STA2
|
;subgroup-bot ;subgroup-pos STA2
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@subgroup-pos :subgroup-bot ( the position of the first unallocated subgroup item )
|
@subgroup-pos =subgroup-bot ( the position of the first unallocated subgroup item )
|
||||||
@subgroup-bot $280 @subgroup-top ( holds up to 128 subgroup assignments (640 bytes) )
|
@subgroup-bot $280 @subgroup-top ( holds up to 128 subgroup assignments (640 bytes) )
|
||||||
|
|
Loading…
Reference in New Issue