get image export working

This commit is contained in:
Travis Shears 2025-07-03 11:21:06 +02:00
parent 940f8e235c
commit 529a4a7e65
4 changed files with 111 additions and 37 deletions

View file

@ -2,35 +2,42 @@
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|0100
@on-reset
#0aa8
#0058
NIP
( mem-test )
#01
#00
#00
#00
#00
#00
#00
#01
build-byte
(
#0a ( b )
#10 SFT ( b )
#00 ( b 00 )
?{ #01 ORA }
)
BRK
@mem-test ( a b c -- x)
!{
&a $1
&b $1
&c $1
}
,/a STR
,/b STR
,/c STR
,/a LDR
,/b LDR
ADD
,/c LDR
ADD ( 06 )
STH
#00 STH
SWP2r
JMP2r
( !{ &a $1 } )
@build-byte ( p p p p p p p p )
LITr 00 ( p p p p p p p p | 00 )
?{ LITr 01 ORAr }
LITr 10 SFTr
?{ LITr 01 ORAr }
LITr 10 SFTr
?{ LITr 01 ORAr }
LITr 10 SFTr
?{ LITr 01 ORAr }
LITr 10 SFTr
?{ LITr 01 ORAr }
LITr 10 SFTr
?{ LITr 01 ORAr }
LITr 10 SFTr
?{ LITr 01 ORAr }
LITr 10 SFTr
?{ LITr 01 ORAr }
STHr
JMP2r