etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

Removed basic tests now we have lots of software

This commit is contained in:
Andrew Alderwick 2021-04-24 10:53:07 +01:00
parent 5833a99260
commit 545aa2341a
1 changed files with 0 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
attic/tests/basics.usm
View File

@ -1,42 +0,0 @@
( hello world )
%RTN { JMP2r }
( devices )
|0100 ;System { vector 2 pad 6 r 2 g 2 b 2 }
|0110 ;Console { vector 2 pad 6 char 1 byte 1 short 2 string 2 }
( program )
|0200
( for loop )
#00 #0d
$loop
( body )
SWP #01 ADD SWP
DUP2 LTH ^$loop JNZ
POP2
( while )
#00 #0d
$while
( body )
DUP2 EQU ^$end JNZ
SWP #01 ADD SWP
^$while JMP $end
POP2
( switch )
#02
DUP #01 NEQ ^$b JNZ
( a )
$b DUP #02 NEQ ^$c JNZ
( b )
$c DUP #03 NEQ ^$default JNZ
( c )
$default
POP
BRK