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

Added IDs to opcode tests

This commit is contained in:
Devine Lu Linvega 2024-02-09 20:11:47 -08:00
parent c42dfb7a99
commit 32f24e98e9
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cli/opctest/opctest.tal
View File

@ -15,7 +15,8 @@
> ;meta: Push short
> #06 DEO: Write to metadata ports )
[ LIT2 "kO ] #18 DEO #18 DEO #0a18 DEO
[ LIT2 "kO ] #18 DEO #18 DEO
[ LIT2 "1 18 ] DEO #0a18 DEO
;meta #06 DEO2
( part 2
@ -23,14 +24,16 @@
> STH: Move a byte from working stack to return stack
> STH2r: Move a short from return stack to working stack )
[ LITr "k ] [ LIT "O ] STH STH2r #18 DEO #18 DEO #0a18 DEO
[ LITr "k ] [ LIT "O ] STH STH2r #18 DEO #18 DEO
[ LIT2 "2 18 ] DEO #0a18 DEO
( part 3
> LIT2r: Put a short on return stack
> DUP: Duplicate byte
> ADDr: Add bytes on return stack )
[ LIT2r "k 4d ] #01 DUP STH ADDr STH ADDr STH2r #18 DEO #18 DEO #0a18 DEO
[ LIT2r "k 4d ] #01 DUP STH ADDr STH ADDr STH2r #18 DEO #18 DEO
[ LIT2 "3 18 ] DEO #0a18 DEO
( part 4
> JSI: Subroutine to relative absolute address
@ -44,7 +47,7 @@
> LDAk: Non-destructive load byte from absolute address
> JCI: Conditional subroutine to relative absolute address )
;Dict/ok pstr #0a18 DEO
;Dict/ok5 pstr #0a18 DEO
( part 6
> GTH2k: Non-destructive greater-than short
@ -418,11 +421,11 @@ JMP2r
JMP2r
@routine ( a b -- c ) ADD JMP2r
@subroutine ( -- ) [ LIT2 "kO ] #18 DEO #18 DEO #0a18 DEO JMP2r
@subroutine ( -- ) [ LIT2 "kO ] #18 DEO #18 DEO [ LIT2 "4 18 ] DEO #0a18 DEO JMP2r
@Absolute &byte $1 &short $2
@Dict [
&ok "Ok $1
&ok5 "Ok5 $1
&done "Tests 20 "Complete. 0a $1
&opctests "Opcodes $1
&stack-wrap "Stack-wrap $1