get image export working
This commit is contained in:
parent
940f8e235c
commit
529a4a7e65
4 changed files with 111 additions and 37 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue