From d7529196b721757bc304bb08f104b56e05a6df9b Mon Sep 17 00:00:00 2001 From: Travis Shears Date: Thu, 3 Jul 2025 10:02:06 +0200 Subject: [PATCH] switch to using shorts and ascii numbers plus small clean up --- one_line.pbm | Bin 32 -> 15 bytes one_line_gen.tal | 48 ++++++++++++++++++++++------------------------- 2 files changed, 22 insertions(+), 26 deletions(-) diff --git a/one_line.pbm b/one_line.pbm index 6e7c7a446e191fda124bc3d8a9af92ba8899ddde..f8af577b842162d6218d35f628c124a82a3e9496 100644 GIT binary patch literal 15 QcmWGA;j&P$;Cc=P052a1VE_OC literal 32 XcmZPwU@&3eV&DKm1t8{Pc#aAIPvi&* diff --git a/one_line_gen.tal b/one_line_gen.tal index 3f691bf..d36b826 100644 --- a/one_line_gen.tal +++ b/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