2020-07-06 04:13:01 +10:00
|
|
|
CODE ROT ( a b c -- b c a )
|
2020-07-07 13:31:00 +10:00
|
|
|
HL POP, ( C ) DE POP, ( B ) IY POP, ( A ) chkPS,
|
|
|
|
DE PUSH, ( B ) HL PUSH, ( C ) IY PUSH, ( A )
|
2020-07-06 04:13:01 +10:00
|
|
|
;CODE
|
2020-10-30 03:34:02 +11:00
|
|
|
CODE ROT> ( a b c -- c a b )
|
|
|
|
HL POP, ( C ) DE POP, ( B ) IY POP, ( A ) chkPS,
|
|
|
|
HL PUSH, ( C ) IY PUSH, ( A ) DE PUSH, ( B )
|
|
|
|
;CODE
|
2020-07-06 04:13:01 +10:00
|
|
|
CODE DUP ( a -- a a )
|
|
|
|
HL POP, chkPS,
|
|
|
|
HL PUSH, HL PUSH,
|
|
|
|
;CODE
|
|
|
|
CODE ?DUP
|
2020-10-30 03:34:02 +11:00
|
|
|
HL POP, chkPS, HL PUSH,
|
2020-07-06 04:13:01 +10:00
|
|
|
HLZ, IFNZ, HL PUSH, THEN,
|
|
|
|
;CODE
|