1 files changed, 6 insertions(+), 5 deletions(-)

M decroaker.tal

@@ 13,9 13,9 @@
 @add-char ( c -- )
 	[ LIT &ptr 00 ]
 	STZk
-	INC DUP ,/ptr STR
-
-	#31 EQU JMP BRK
+	INC #31 DIVk MUL SUB
+	DUP ,/ptr STR
+	?end
 	( >> )
 
 @finish ( -- )


@@ 25,5 25,6 @@
 		LDZk STHrk DEO
 		#07 ADD NEQk ?/loop
 	LDZ STHrk DEO
-	DEOr #800f DEO
-	
+	DEOr
+
+@end