~rabbits/orca-toy

73b2105f5a43cf59ed39d41441c91e5c710f2ba1 — Devine Lu Linvega 1 year, 2 months ago 66e393c
Added spd: cmd
2 files changed, 21 insertions(+), 2 deletions(-)

M src/library.tal
M src/orca.tal
M src/library.tal => src/library.tal +19 -1
@@ 1,5 1,5 @@
(
@|core )
@|operators )

@op-a "A "Outputs 20 "sum 20 "of 20 "inputs $1
	&lc get-bang ?&* POP2 JMP2r &*


@@ 486,10 486,16 @@ JMP2r
		INC2 DUP2 get-port-right-raw LIT ". NEQ ?&while
	POP2
	( has bang ) get-bang ?&is-bang [ POP2r JMP2r ] &is-bang

	STH2r
	( spd ) DUP2 get-word ;&spd-txt SWP2 sseg ?cmd-spd

	STH2
	.head LDZ2 INC STH2kr get-word inject-file
	( animate ) .types/io STH2r

!write-type
	&spd-txt "spd: $1

@op-null
	&*


@@ 498,5 504,17 @@ JMP2r

JMP2r

(
@|commands )

@cmd-spd ( cell* -- )

	#0004 ADD2
	( hn ) STH2k get-port-right1-value INC2r
	( ln ) STH2r get-port-right1-value
	#0f AND SWP #0f AND #40 SFT ADD

!set-speed

~src/manifest.tal


M src/orca.tal => src/orca.tal +2 -1
@@ 132,7 132,7 @@ BRK
	( name ) "Orca 0a
	( details ) "A 20 "Livecoding 20 "Playground 0a
	( author ) "By 20 "Hundred 20 "Rabbits 0a
	( date ) "Feb 20 "19, 20 "2023 00
	( date ) "Mar 20 "24, 20 "2023 00
	02
		( icon ) 83 =appicon
		( mask ) 41 1705


@@ 1220,6 1220,7 @@ JMP2r
@ciuc ( char -- bool ) LIT "A SUB #1a LTH JMP2r
@ci-key ( char -- bool ) #20 SUB #5b LTH JMP2r
@mcpy ( src* dst* len* -- ) SWP2 STH2 OVR2 ADD2 SWP2 &loop LDAk STH2kr STA INC2r INC2 GTH2k ?&loop POP2 POP2 POP2r JMP2r
@sseg ( a* b* -- f ) STH2 &l LDAk LDAkr STHr NEQ ?&e INC2k LDA #00 EQU ?&e INC2 INC2r !&l &e LDA LDAr STHr EQU JMP2r

( random )