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

(opctest) Moved result

This commit is contained in:
Devine Lu Linvega 2024-02-09 20:15:28 -08:00
parent 32f24e98e9
commit df535b2700
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cli/opctest/opctest.tal
View File

@ -40,6 +40,7 @@
> JMP2r: Jumps to absolute address on return stack ) > JMP2r: Jumps to absolute address on return stack )
subroutine subroutine
[ LIT2 "4 18 ] DEO #0a18 DEO
( part 5 ( part 5
> POP2: Removes a short from the stack > POP2: Removes a short from the stack
@ -47,7 +48,8 @@
> LDAk: Non-destructive load byte from absolute address > LDAk: Non-destructive load byte from absolute address
> JCI: Conditional subroutine to relative absolute address ) > JCI: Conditional subroutine to relative absolute address )
;Dict/ok5 pstr #0a18 DEO ;Dict/ok pstr
[ LIT2 "5 18 ] DEO #0a18 DEO
( part 6 ( part 6
> GTH2k: Non-destructive greater-than short > GTH2k: Non-destructive greater-than short
@ -421,11 +423,11 @@ JMP2r
JMP2r JMP2r
@routine ( a b -- c ) ADD JMP2r @routine ( a b -- c ) ADD JMP2r
@subroutine ( -- ) [ LIT2 "kO ] #18 DEO #18 DEO [ LIT2 "4 18 ] DEO #0a18 DEO JMP2r @subroutine ( -- ) [ LIT2 "kO ] #18 DEO #18 DEO JMP2r
@Absolute &byte $1 &short $2 @Absolute &byte $1 &short $2
@Dict [ @Dict [
&ok5 "Ok5 $1 &ok "Ok $1
&done "Tests 20 "Complete. 0a $1 &done "Tests 20 "Complete. 0a $1
&opctests "Opcodes $1 &opctests "Opcodes $1
&stack-wrap "Stack-wrap $1 &stack-wrap "Stack-wrap $1