The tak() function written in the uxntal alphabet.
@tak ( z y x -- res )
LTHk ?{ POP2 JMP2r }
ROT ROTk ROTk
( x-1 ) #01 SUB tak STH
( y-1 ) #01 SUB tak STH
( z-1 ) #01 SUB tak STHr STHr !tak
Top-level
The tak() function written in the uxntal alphabet. @tak ( z y x -- res ) No comments
|