switch to using shorts and ascii numbers

plus small clean up

one_line_gen.tal

@@ -16,49 +16,47 @@
 
  )
 
-|00
-@img-pt $2
-@img $20
 
 
 |0100
 @on-reset
     ( set img-pt to start of img )
     ;img ;img-pt STA2
-    LIT2 00 "P write-to-image
-    LIT2 00 "4 write-to-image
-    #000a write-to-image
-    #0008 write-to-image
-    #0008 write-to-image
-    #0020 write-to-image
-    #0008 write-to-image
-    #000a write-to-image
-    #00e7 write-to-image
-    #00e7 write-to-image
-    #00e7 write-to-image
-    #00e7 write-to-image
-    #00e7 write-to-image
-    #00e7 write-to-image
-    #00e7 write-to-image
-    #00e7 write-to-image
+    LIT "P write-to-image
+    LIT "4 write-to-image
+    #0a write-to-image
+    LIT "8 write-to-image
+    #20 write-to-image
+    LIT "8 write-to-image
+    #0a write-to-image
+    #e7 write-to-image
+    #e7 write-to-image
+    #e7 write-to-image
+    #e7 write-to-image
+    #e7 write-to-image
+    #e7 write-to-image
+    #e7 write-to-image
+    #e7 write-to-image
     save-file
 	BRK
 
-@write-to-image ( val* )
-    ;img-pt LDA2 ( val* pt* )
-    STA2 ( )
+@write-to-image ( val )
+    ;img-pt LDA2 ( val pt* )
+    STA ( )
     ;img-pt LDA2 ( pt* )
-    #0002 ADD2 ( pt*+2 )
+    #0001 ADD2 ( pt*+1 )
     ;img-pt STA2
     JMP2r
 
 @save-file
 	;/filename .File/name DEO2
-	#0020 .File/length DEO2
+	#000f .File/length DEO2
 	;img .File/write DEO2
 	JMP2r
     &filename "one_line.pbm $1
 
+@img-pt $2
+@img $20
 
 (
 @gen-image
@@ -74,8 +72,6 @@
     JMP2r
 
 
-
-
 @image-pt $2
 ( todo include space for header )
 @image $155