M makefile => makefile +2 -2
@@ 2,7 2,7 @@ ID=bicycle
DIR=~/roms
ASM=uxncli ${DIR}/drifblim.rom
LIN=uxncli ${DIR}/uxnlin.rom
-EMU=uxnemu
+EMU=uxn11
ROM=bin/${ID}.rom
all: ${ROM}
@@ 12,7 12,7 @@ clean:
lint:
@ ${LIN} src/${ID}.tal
test:
- @ ${EMU} ${ROM}
+ @ ${EMU} ${ROM} "#12 #34 ADD"
run: ${ROM}
@ ${EMU} ${ROM}
install: ${ROM}
M src/bicycle.tal => src/bicycle.tal +1 -1
@@ 40,7 40,7 @@
( name ) "Bicycle 0a
( details ) "A 20 "Uxn 20 "Emulator 0a
( author ) "By 20 "Hundred 20 "Rabbits 0a
- ( date ) "1 20 "Jan 20 "2024 $1
+ ( date ) "11 20 "Feb 20 "2024 $1
( ) 01
( > icon ) 83 =appicon
M src/uxn.tal => src/uxn.tal +8 -6
@@ 1,7 1,7 @@
( emulator )
@restart ( -- )
- #00 .uxn/err STZ
+ [ LIT2 00 -uxn/err ] STZ
#0100 .uxn/pc STZ2
#0000 .emu/time STZ2
#0000 ;wst/ptr STA2
@@ 13,7 13,8 @@
( exit on BRK ) DUP #00 EQU ?&halt
( move PC ) .uxn/pc LDZ2k INC2 ROT STZ2
( short mode ) DUP #20 AND #00 NEQ .uxn/2 STZ
- ( return mode ) DUP #40 AND #00 NEQ STH ;rst ;wst STHr [ JMP SWP2 ] .uxn/dst STZ2
+ ( return mode ) DUP #40 AND #00 NEQ STH
+ ;rst ;wst STHr [ JMP SWP2 ] .uxn/dst STZ2
.uxn/src STZ2
( keep mode ) DUP #80 AND #00 NEQ ;pop/keep STA
( copy pop pointer ) .uxn/src LDZ2 #00fe ADD2 LDAk DUP SWP2 STA2
@@ 22,9 23,9 @@
( check err ) .uxn/err LDZ ?&halt
POP JMP2r
&halt ( opcode -- )
- POP #01 .emu/sleep STZ
- JMP2r
-
+ [ LIT2 01 -emu/sleep ] STZ
+ POP JMP2r
+
(
@|primitives )
@@ 98,7 99,7 @@
NIP DEI #00 SWP !push
&16 ( -- )
NIP DEI2 !push
-
+
(
@|library )
@@ 224,5 225,6 @@
=op-lda =op-sta =op-dei =op-deo
=op-add =op-sub =op-mul =op-div
=op-and =op-ora =op-eor =op-sft ]
+
~src/assets.tal