2 files changed, 21 insertions(+), 2 deletions(-)

M src/library.tal
M src/orca.tal

@@ 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
 

@@ 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 )