1 files changed, 15 insertions(+), 15 deletions(-)

M src/ornithologics.tal

@@ 1,4 1,4 @@
-( uxnasm cons.tal cons.rom && uxncli cons.rom )
+( ornithologics )
 
 |10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
 


@@ 15,9 15,8 @@
 			;b ;cons JSR2
 	( eval )
 	;eval JSR2
-
-	( debugger ) #010e DEO
-	( halt ) #010f DEO
+	( halt ) 
+	#0101 #0e DEO2
 
 BRK
 


@@ 81,19 80,20 @@ JMP2r
 @eval ( list* -- )
 
 	DUP2 ,echo JSR #0a18 DEO
-	&w ,step JSR DUP2 #0000 NEQ2 ,&w JCN POP2
+	&w ,step JSR DUP2 ORA ,&w JCN
+	POP2
 
 JMP2r
 
 @step ( list* -- list* )
 
-	( letter ) LDA2k LDA2 POP #07 SFT ,&failure JCN
+	( letter ) LDA2k LDA2 POP #07 SFT ,&skip JCN
 	( list ) LDA2k INC2 INC2 LDA2 ;nil NEQ2 ,&unwrap JCN
 	INC2k INC2 LDA2 SWP2 LDA2 LDA2 JSR2
 	DUP2 ,echo JSR #0a18 DEO
 
 JMP2r
-	&failure POP2 #0000 JMP2r
+	&skip POP2 #0000 JMP2r
 	&unwrap ;unwrap JMP2
 
 @echo ( list* -- )


@@ 135,14 135,6 @@ JMP2r
 
 JMP2r
 
-@kestrel ( list* -- list* )
-
-	LDA2k STH2 ;pop JSR2
-	;pop JSR2
-	STH2r ;cons JSR2
-
-JMP2r
-
 @thrush ( list* -- list* )
 
 	;swap JSR2


@@ 171,6 163,14 @@ JMP2r
 
 JMP2r
 
+@kestrel ( list* -- list* )
+
+	LDA2k STH2 ;pop JSR2
+	;pop JSR2
+	STH2r ;cons JSR2
+
+JMP2r
+
 @warbler ( list* -- list* )
 
 	LDA2k STH2 ;pop JSR2