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

Condensed vm.tal

This commit is contained in:
Devine Lu Linvega 2023-07-13 11:20:48 -07:00
parent 40adea4936
commit e65a4ecf69
1 changed files with 58 additions and 130 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

188
cli/uxnvm/vm.tal
View File

@ -3,9 +3,9 @@
@<reset> ( -- ) @<reset> ( -- )
[ LIT2 00 -uxn/err ] STZ [ LIT2 00 -uxn/err ] STZ
#0100 .uxn/pc STZ2 #0100 .uxn/pc STZ2
#0000 ;wst/ptr STA2 #0000 DUP2 ;wst/ptr STA2
#0000 ;rst/ptr STA2 DUP2 ;rst/ptr STA2
#0000 ;<step>/count STA2 ;<step>/count STA2
JMP2r JMP2r
@<step> ( -- ok ) @<step> ( -- ok )
@ -52,27 +52,20 @@
@poke ( v* a* -- ) @poke ( v* a* -- )
.uxn/2 LDZ ?&16 .uxn/2 LDZ ?&16
&8 ( -- ) &8 ;rom ADD2 STA
;rom ADD2 STA POP JMP2r
POP JMP2r &16 ;rom ADD2 STA2
&16 ( -- ) JMP2r
;rom ADD2 STA2
JMP2r
@peek ( a* -- v* ) @peek ( a* -- v* )
.uxn/2 LDZ ?&16 .uxn/2 LDZ ?&16
&8 ( -- ) &8 ;rom ADD2 LDA #00 SWP JMP2r
;rom ADD2 LDA #00 SWP JMP2r &16 ;rom ADD2 LDA2 JMP2r
&16 ( -- )
;rom ADD2 LDA2 JMP2r
@warp ( a* -- ) @warp ( a* -- )
.uxn/2 LDZ ?&16 .uxn/2 LDZ ?&16
&8 ( -- ) &8 NIP rel &16 .uxn/pc STZ2
NIP rel JMP2r
&16 ( -- )
.uxn/pc STZ2
JMP2r
@rel ( a* -- ) @rel ( a* -- )
DUP #7f GTH #ff MUL SWP .uxn/pc LDZ2 ADD2 JMP2r DUP #7f GTH #ff MUL SWP .uxn/pc LDZ2 ADD2 JMP2r
@ -80,21 +73,16 @@
@devw ( v* p* -- ) @devw ( v* p* -- )
DUP #10 AND ?&console DUP #10 AND ?&console
.uxn/2 LDZ ?&16 .uxn/2 LDZ ?&16
&8 ( -- ) &8 NIP DEO
NIP DEO POP JMP2r
POP JMP2r &16 NIP DEO2
&16 ( -- ) JMP2r
NIP DEO2 &console !send
JMP2r
&console ( -- )
!send
@devr ( p* -- ) @devr ( p* -- )
.uxn/2 LDZ ?devr/16 .uxn/2 LDZ ?devr/16
&8 ( -- ) &8 NIP DEI #00 SWP !push
NIP DEI #00 SWP !push &16 NIP DEI2 !push
&16 ( -- )
NIP DEI2 !push
( (
@|library ) @|library )
@ -116,112 +104,52 @@
&op-jmi ( -- ) &op-jmi ( -- )
.uxn/pc LDZ2 DUP2 peek/16 ADD2 INC2 INC2 !warp/16 .uxn/pc LDZ2 DUP2 peek/16 ADD2 INC2 INC2 !warp/16
@op-inc @lib ( non immediate opcodes )
pop INC2 !push &inc pop INC2 !push
&pop pop POP2 JMP2r
@op-pop &nip pop pop POP2 !push
pop POP2 JMP2r &swp pop pop SWP2 push !push
&rot pop pop pop ROT2 ROT2 push push !push
@op-nip &dup pop DUP2 push !push
pop pop POP2 !push &ovr pop pop SWP2 OVR2 push push !push
&equ pop pop EQU2 !push/byte
@op-swp &neq pop pop NEQ2 !push/byte
pop pop SWP2 push !push &gth pop pop SWP2 GTH2 !push/byte
&lth pop pop SWP2 LTH2 !push/byte
@op-rot &jmp pop !warp
pop pop pop ROT2 ROT2 push push !push &jcn pop pop/8 NIP ?warp
@op-dup
pop DUP2 push !push
@op-ovr
pop pop SWP2 OVR2 push push !push
@op-equ
pop pop EQU2 !push/byte
@op-neq
pop pop NEQ2 !push/byte
@op-gth
pop pop SWP2 GTH2 !push/byte
@op-lth
pop pop SWP2 LTH2 !push/byte
@op-jmp
pop !warp
@op-jcn
pop pop/8 NIP ?warp
POP2 JMP2r POP2 JMP2r
&jsr pop .uxn/pc LDZ2 .uxn/dst LDZ2 .uxn/src STZ2
@op-jsr
pop .uxn/pc LDZ2 .uxn/dst LDZ2 .uxn/src STZ2
push/16 !warp push/16 !warp
&sth pop .uxn/dst LDZ2 .uxn/src STZ2
@op-sth
pop .uxn/dst LDZ2 .uxn/src STZ2
!push !push
&ldz pop/8 peek !push
@op-ldz &stz pop/8 pop SWP2 !poke
pop/8 peek !push &ldr pop/8 NIP rel peek !push
&str pop/8 pop SWP2 NIP rel !poke
@op-stz &lda pop/16 peek !push
pop/8 pop SWP2 !poke &sta pop/16 pop SWP2 !poke
&dei pop/8 !devr
@op-ldr &deo pop/8 pop SWP2 !devw
pop/8 NIP rel peek !push &add pop pop ADD2 !push
&sub pop pop SWP2 SUB2 !push
@op-str &mul pop pop MUL2 !push
pop/8 pop SWP2 NIP rel !poke &div pop pop SWP2 DIV2 !push
&and pop pop AND2 !push
@op-lda &ora pop pop ORA2 !push
pop/16 peek !push &eor pop pop EOR2 !push
&sft pop/8 pop SWP2 NIP SFT2 !push
@op-sta
pop/16 pop SWP2 !poke
@op-dei
pop/8 !devr
@op-deo
pop/8 pop SWP2 !devw
@op-add
pop pop ADD2 !push
@op-sub
pop pop SWP2 SUB2 !push
@op-mul
pop pop MUL2 !push
@op-div
pop pop SWP2 DIV2 !push
@op-and
pop pop AND2 !push
@op-ora
pop pop ORA2 !push
@op-eor
pop pop EOR2 !push
@op-sft
pop/8 pop SWP2 NIP SFT2 !push
@optbl @optbl
[ [
=op-lit =op-inc =op-pop =op-nip =op-lit =lib/inc =lib/pop =lib/nip
=op-swp =op-rot =op-dup =op-ovr =lib/swp =lib/rot =lib/dup =lib/ovr
=op-equ =op-neq =op-gth =op-lth =lib/equ =lib/neq =lib/gth =lib/lth
=op-jmp =op-jcn =op-jsr =op-sth =lib/jmp =lib/jcn =lib/jsr =lib/sth
=op-ldz =op-stz =op-ldr =op-str =lib/ldz =lib/stz =lib/ldr =lib/str
=op-lda =op-sta =op-dei =op-deo =lib/lda =lib/sta =lib/dei =lib/deo
=op-add =op-sub =op-mul =op-div =lib/add =lib/sub =lib/mul =lib/div
=op-and =op-ora =op-eor =op-sft ] =lib/and =lib/ora =lib/eor =lib/sft ]
( (
@|uxn ) @|uxn )