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

Removed LDAk from early requirements

This commit is contained in:
Devine Lu Linvega 2024-02-18 11:52:01 -08:00
parent fa7946e154
commit cd619a7548
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
cli/opctest/opctest.tal
View File

@ -12,13 +12,12 @@
( part 1 ( part 1
> LIT2: Puts a short on the stack > LIT2: Puts a short on the stack
> LIT: Puts a byte on the stack > LIT: Puts a byte on the stack
> #18 DEO: Write a letter in terminal > #06 DEO: Write to metadata ports
> ;meta: Push short > #18 DEO: Write a letter in terminal )
> #06 DEO: Write to metadata ports )
;meta #06 DEO2
[ LIT2 "kO ] #18 DEO #18 DEO [ LIT2 "kO ] #18 DEO #18 DEO
[ LIT2 "1 18 ] DEO #0a18 DEO [ LIT2 "1 18 ] DEO #0a18 DEO
;meta #06 DEO2
( part 2 ( part 2
> LITr: Put a byte on return stack > LITr: Put a byte on return stack
@ -46,7 +45,8 @@
( part 5 ( part 5
> POP2: Removes a short from the stack > POP2: Removes a short from the stack
> INC2: Increments short on stack > INC2: Increments short on stack
> LDAk: Non-destructive load byte from absolute address > DUP2: Duplicate short
> LDA: load byte from absolute address
> JCI: Conditional subroutine to relative absolute address ) > JCI: Conditional subroutine to relative absolute address )
;Dict/ok pstr ;Dict/ok pstr
@ -117,7 +117,7 @@ BRK
( name ) "Opctest 0a ( name ) "Opctest 0a
( details ) "A 20 "Testing 20 "Program 0a ( details ) "A 20 "Testing 20 "Program 0a
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a ( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "1 20 "Nov 20 "2023 $2 ( date ) "18 20 "Feb 20 "2024 $2
@test-part ( f name* -- ) @test-part ( f name* -- )
pstr ?{ pstr ?{
@ -147,13 +147,10 @@ JMP2r
JMP2r JMP2r
@pstr ( str* -- ) @pstr ( str* -- )
DUP2 LDA
&w ( -- ) DUP ?{ POP2 JMP2r }
LDAk #18 DEO #18 DEO
INC2 & LDAk ?&w INC2 !&pstr
POP2
JMP2r
@tests @tests
=op-equ [ =op-equ [