2 files changed, 8 insertions(+), 7 deletions(-)

M src/drifblim.tal
M src/drifloon.tal

@@ 9,12 9,14 @@
 	@src $30
 	@dst $30
 
-|0100
+|0100 ( -> )
 
-@ready-src ( -> ) ;&await .Console/vector DEO2 ;dict/input pstr BRK
+	;&await .Console/vector DEO2 ;dict/input pstr BRK
 	&await ( -> ) .Console/read DEI .src skey ?ready-dst BRK
-@ready-dst ( -> ) ;&await .Console/vector DEO2 ;dict/output pstr BRK
-	&await ( -> ) .Console/read DEI .dst skey ?on-ready BRK
+	@ready-dst ( -> ) ;&await .Console/vector DEO2 ;dict/output pstr BRK
+	&await ( -> ) .Console/read DEI .dst skey ?on-ready
+
+BRK
 
 @on-ready ( -> )
 


@@ 434,7 436,7 @@ JMP2r
 
 @err "!! 20 "Error: 20 $1
 	&source "Source $1
-	&duplicate "Duplicate  $1
+	&duplicate "Duplicate $1
 	&number "Number $1
 	&reference "Reference $1
 	&distance "Distance $1

@@ 354,7 354,6 @@ JMP2r
 @scat ( src* dst* -- ) scap
 @scpy ( src* dst* -- ) OVR2 LDA ?&e POP2 POP2 JMP2r &e STH2 &w LDAk STH2kr STA INC2r INC2 LDAk ?&w POP2 #00 STH2r STA JMP2r
 @sclr ( str* -- ) LDAk ?&w POP2 JMP2r &w STH2k #00 STH2r STA INC2 LDAk ?&w POP2 JMP2r
-@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r
 @scmp ( a* b* -- f ) STH2 &l LDAk LDAkr STHr ANDk #00 EQU ?&e NEQk ?&e POP2 INC2 INC2r !&l &e NIP2 POP2r EQU JMP2r
 @scmp3 ( a* b* -- f ) LDA2k ROT2 LDA2k ROT2 EQU2 STH INC2 LDA2 SWP2 INC2 LDA2 EQU2 STHr AND JMP2r
 @chex ( c -- val|ff ) LIT "0 SUB DUP #09 GTH [ JMP JMP2r ] #27 SUB DUP #0f GTH [ JMP JMP2r ] POP #ff JMP2r


@@ 392,7 391,7 @@ JMP2r
 	&unused "-- 20 "Unused 20 "label: 20 $1
 
 @err "!! 20 "Error: 20 $1
-	&duplicate "Duplicate  $1
+	&duplicate "Duplicate $1
 	&number "Number $1
 	&reference "Reference $1
 	&distance "Distance $1