travisshears/uxn-notebook
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

switch to using shorts and ascii numbers

Browse source 
plus small clean up
This commit is contained in:
Travis Shears 2025-07-03 10:02:06 +02:00
parent 6330088ba5
commit d7529196b7
2 changed files with 22 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
one_line.pbm
View file

Binary file not shown.

48
one_line_gen.tal
View file

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