~rabbits/bicycle

dd51bff8fbe27b97fbcb8a0a1d8fd739ce7915d0 — Devine Lu Linvega 4 months ago d698b31 main
Housekeeping
3 files changed, 11 insertions(+), 9 deletions(-)

M makefile
M src/bicycle.tal
M src/uxn.tal
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