d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added tak

This commit is contained in:
Devine Lu Linvega 2024-03-24 11:53:02 -07:00
parent 3e2082dddf
commit 5668efaac8
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
projects/examples/demos/snake.tal
View File

@ -96,7 +96,7 @@
INC GTHk ?&>loop-body INC GTHk ?&>loop-body
POP2 &end JMP2r POP2 &end JMP2r
@set-pos ( z mod -- ) @set-pos ( z mod max -- )
LDZ OVR INC ?{ ROT STZ LDZ OVR INC ?{ ROT STZ
POP JMP2r } POP JMP2r }
DIVk MUL SUB SWP STZ DIVk MUL SUB SWP STZ

12
projects/examples/exercises/tak.tal Normal file
View File

@ -0,0 +1,12 @@
@on-reset ( -> )
#0b #14 #18 tak
#010e DEO
BRK
@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