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

(opctest) More gradual opcodes

This commit is contained in:
Devine Lu Linvega 2023-04-10 19:59:42 -07:00
parent 6ac883b8c8
commit 5afcd1e89b
2 changed files with 31 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
cli/opctest/opctest.tal
View File

@ -6,19 +6,34 @@
|0100
( part 1 requirements:
( part 1
> LIT2: Puts a short on the stack
> #18 DEO: Write a letter in terminal )
LIT2 "kO #18 DEO #18 DEO #0a18 DEO
( part 2 requirements:
( part 2
> LITr: Put a byte on return stack
> LIT: Puts a byte on the stack
> 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
( 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
( part 4
> JSI: Subroutine to relative absolute address
> JMP2r: Jumps to absolute address on return stack )
subroutine
( part 3 requirements:
( part 5
> POP2: Removes a short from the stack
> INC2: Increments short on stack
> LDAk: Non-destructive load byte from absolute address
@ -26,18 +41,9 @@
;Dict/ok pstr #0a18 DEO
( part 4 requirements:
> LIT2r: Put a short on return stack
> 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
( part 5 requirements:
( part 6
> GTH2k: Non-destructive greater-than short
> LDA2k: Non-destructive load short from absolute address
> ADDr: Add bytes on return stack
> DUP: Duplicate byte
> STA2: Store short at absolute address )
LIT2r 0000

12
cli/stdlib/stdlib.tal
View File

@ -35,6 +35,15 @@ JMP2r
(
@|stdlib )
@pstr ( str* -- ) LDAk ?&w POP2 JMP2r &w LDAk #18 DEO INC2 LDAk ?&w POP2 JMP2r
@scap ( str* -- end* ) LDAk ?&w JMP2r &w INC2 LDAk ?&w JMP2r
@sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r
@slen ( str* -- len* ) DUP2 scap SWP2 SUB2 JMP2r
@scat ( src* dst* -- ) scap
@scpy ( src* dst* -- ) OVR2 LDA ?&e POP2 POP2 JMP2r &e STH2 &w LDAk STH2kr STA INC2r INC2 LDAk ?&w POP2 #00 STH2r STA JMP2r
@sclr ( str* -- ) LDAk ?&w POP2 JMP2r &w STH2k #00 STH2r STA INC2 LDAk ?&w POP2 JMP2r
@scmp ( a* b* -- f ) STH2 &l LDAk LDAkr STHr ANDk #00 EQU ?&e NEQk ?&e POP2 INC2 INC2r !&l &e NIP2 POP2r EQU JMP2r
@sdec ( str* -- val* )
LIT2r 0000
@ -69,6 +78,9 @@ JMP2r
JMP2r
(
@|assets )
@dict [
&dec1 "4660 $1
&dec2 "291 $1