mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 04:58:05 +11:00
Add words "'S" and "S0"
This commit is contained in:
parent
ae14c55feb
commit
446ce574cd
10
blk/046
10
blk/046
@ -9,8 +9,8 @@ SWAP a b -- b a
|
||||
2DUP a b -- a b a b
|
||||
2OVER a b c d -- a b c d a b
|
||||
2SWAP a b c d -- c d a b
|
||||
PICK Pick nth item from stack. "0 PICK" = DUP,
|
||||
"1 PICK" = OVER.
|
||||
ROLL Rotate PSP over n items. "1 ROLL" = SWAP,
|
||||
"2 ROLL" = ROT. 0 is noop.
|
||||
|
||||
'S Returns current stack pointer, not counting the
|
||||
push it's making right now.
|
||||
S0 Returns address of PSP TOS. When PSP is empty,
|
||||
'S == S0
|
||||
(cont.)
|
||||
|
7
blk/047
Normal file
7
blk/047
Normal file
@ -0,0 +1,7 @@
|
||||
(cont.)
|
||||
PICK Pick nth item from stack. "0 PICK" = DUP,
|
||||
"1 PICK" = OVER.
|
||||
ROLL Rotate PSP over n items. "1 ROLL" = SWAP,
|
||||
"2 ROLL" = ROT. 0 is noop.
|
||||
|
||||
|
Binary file not shown.
@ -433,6 +433,17 @@ CODE 2DROP
|
||||
chkPS,
|
||||
;CODE
|
||||
|
||||
CODE S0
|
||||
RAMSTART LDHL(nn), ( RAM+00 == INITIAL_SP )
|
||||
HL PUSHqq,
|
||||
;CODE
|
||||
|
||||
CODE 'S
|
||||
HL 0 LDddnn,
|
||||
SP ADDHLss,
|
||||
HL PUSHqq,
|
||||
;CODE
|
||||
|
||||
CODE AND
|
||||
HL POPqq,
|
||||
DE POPqq,
|
||||
|
Loading…
Reference in New Issue
Block a user