uxn

commit 928ed1e1c928625065b34c47987d2e3e2c6f4193
parent 743eaef47a468d94f780f885d2c1d4f72aeb6a50
Author: neauoire <aliceffekt@gmail.com>
Date:   Wed, 21 Apr 2021 11:38:30 -0700

Simplified the file example

Diffstat:
M
build.sh
 | 
2
+-
M
projects/examples/dev.file.usm
 | 
49
+++++++++++++++++++++++++++++++++++--------------

2 files changed, 36 insertions(+), 15 deletions(-)
diff --git a/build.sh b/build.sh
@@ -32,7 +32,7 @@ else
 fi
 
 echo "Assembling.."
-./bin/assembler projects/examples/dev.console.usm bin/boot.rom
+./bin/assembler projects/examples/dev.file.usm bin/boot.rom
 
 echo "Running.."
 if [ "${2}" = '--cli' ]; 
diff --git a/projects/examples/dev.file.usm b/projects/examples/dev.file.usm
@@ -1,9 +1,6 @@
 ( Dev/File )
 
-%RTN { JMP2r }
-%STEP8 { #0033 SFT2 }
-%++ { #01 ADD }
-
+%8+ { #0008 ADD2 }
 %MEMORY { #1000 }
 
 ( devices )
@@ -11,8 +8,6 @@
 |00 @System     [ &vector $2 &pad    $6 &r      $2 &g     $2 &b      $2 ]
 |10 @Console    [ &pad    $8 &char   $1 &byte   $1 &short $2 &string $2 ]
 |20 @Screen     [ &vector $2 &width  $2 &height $2 &pad   $2 &x      $2 &y $2 &addr $2 &color $1 ]
-|40 @Controller [ &vector $2 &button $1 &key    $1 ]
-|60 @Mouse      [ &vector $2 &x $2 &y $2 &state $1 &chord $1 ]
 |70 @File       [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]
 
 ( variables )
@@ -24,25 +19,51 @@
 |0100 ( -> )
 
 	( theme )
-	#804b .System/r DEO2
-	#804b .System/g DEO2
-	#e0bb .System/b DEO2
+	#0efc .System/r DEO2
+	#03cc .System/g DEO2
+	#03ac .System/b DEO2
 
 	( load file )
-	#0100    .File/length DEO2
+	#1000    .File/length DEO2
 	;srcpath   .File/name DEO2
 	MEMORY     .File/load DEO2
 
 	.File/success DEI2 #0000 NEQ2 ;on-success JNZ2
 
+	;failedtxt .Console/string DEO2
+
 BRK
 
 @on-success ( -> )
 	
-	;srcpath .Console/string DEO2
-	;dstpath .Console/string DEO2
+	;successtxt .Console/string DEO2
+
+	( draw image )
+	MEMORY .Screen/addr DEO2
+	#0000 #0080
+	&ver
+		( save ) OVR2 .Screen/y DEO2
+		#0000 #0080
+		&hor
+			( save ) OVR2 .Screen/x DEO2
+			( draw ) #41 .Screen/color DEO
+			( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2
+			( incr ) SWP2 8+ SWP2
+			OVR2 OVR2 LTH2 ,&hor JNZ
+		POP2 POP2
+		( incr ) SWP2 8+ SWP2
+		OVR2 OVR2 LTH2 ,&ver JNZ
+	POP2 POP2
+
+	( save file )
+	#1000    .File/length DEO2
+	;dstpath   .File/name DEO2
+	MEMORY     .File/save DEO2
 
 BRK
 
-@srcpath  "README.md $1
-@dstpath  "bin/export.md $1
+@successtxt "Success! $1
+@failedtxt "Failed. $1
+
+@srcpath    "projects/pictures/ako10x10.chr $1
+@dstpath    "bin/image-copy.chr $1