uxn/projects/examples/devices/file.tal

( Dev/File )

%8+ { #0008 ADD2 }
%MEMORY { #1000 }

( devices )

|00 @System     [ &vector $2 &pad    $6 &r      $2 &g     $2 &b      $2 ]
|10 @Console    [ &pad    $8 &write  $1 ]
|20 @Screen     [ &vector $2 &width  $2 &height $2 &pad   $2 &x      $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|a0 @File       [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]

( variables )

|0000

( init )

|0100 ( -> )

	( theme )
	#0efc .System/r DEO2
	#03cc .System/g DEO2
	#03ac .System/b DEO2

	( load file )
	#1000    .File/length DEO2
	;srcpath .File/name DEO2
	MEMORY   .File/load DEO2

	.File/success DEI2 ORA ;on-success JCN2

	;failedtxt ;print-string JSR2

BRK

@on-success ( -> )
	
	;successtxt ;print-string JSR2

	( draw image )
	MEMORY .Screen/addr DEO2
	#0000 #0080
	&ver
		( save ) OVR2 .Screen/y DEO2
		#0000 #0080
		&hor
			( save ) OVR2 .Screen/x DEO2
			( draw ) #81 .Screen/sprite DEO
			( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2
			( incr ) SWP2 8+ SWP2
			LTH2k ,&hor JCN
		POP2 POP2
		( incr ) SWP2 8+ SWP2
		LTH2k ,&ver JCN
	POP2 POP2
	
	( save file )
	#1000    .File/length DEO2
	;dstpath .File/name DEO2
	MEMORY   .File/save DEO2

BRK

@print-string ( ptr* -- )
	LDAk DUP ,&keep-going JCN
	POP POP2 JMP2r

	&keep-going
	.Console/write DEO
	#0001 ADD2
	,print-string JMP

@successtxt "Success! 09 $1
@failedtxt  "Failed. 09 $1

@srcpath    "projects/pictures/ako10x10.chr $1
@dstpath    "bin/image-copy.chr $1
Port dev.file.usm 2021-04-21 12:37:59 +00:00			`( Dev/File )`

Simplified the file example 2021-04-21 18:38:30 +00:00			`%8+ { #0008 ADD2 }`
Port dev.file.usm 2021-04-21 12:37:59 +00:00			`%MEMORY { #1000 }`

Allow device memory offsets in assembler 2021-04-21 12:45:17 +00:00			`( devices )`

			`\|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]`
Ported remaining examples to new simplified Console device 2021-07-07 20:20:14 +00:00			`\|10 @Console [ &pad $8 &write $1 ]`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`\|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]`
Made room for multiple audio devices 2021-04-26 17:52:46 +00:00			`\|a0 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]`
Allow device memory offsets in assembler 2021-04-21 12:45:17 +00:00
			`( variables )`

			`\|0000`

Ported mouse example 2021-04-21 16:48:04 +00:00			`( init )`
Port dev.file.usm 2021-04-21 12:37:59 +00:00
Ported mouse example 2021-04-21 16:48:04 +00:00			`\|0100 ( -> )`
Port dev.file.usm 2021-04-21 12:37:59 +00:00
			`( theme )`
Afterall, I decided to not use the fancy new macros, I think pek/pok is more readable than glyphs in the end 2021-04-23 03:44:38 +00:00			`#0efc .System/r DEO2`
			`#03cc .System/g DEO2`
			`#03ac .System/b DEO2`
Port dev.file.usm 2021-04-21 12:37:59 +00:00
Ported some of the examples to the new accessors 2021-04-21 18:12:42 +00:00			`( load file )`
Afterall, I decided to not use the fancy new macros, I think pek/pok is more readable than glyphs in the end 2021-04-23 03:44:38 +00:00			`#1000 .File/length DEO2`
			`;srcpath .File/name DEO2`
			`MEMORY .File/load DEO2`
Port dev.file.usm 2021-04-21 12:37:59 +00:00
Optimised #0000 NEQ2 when used with JCN 2021-05-13 06:36:24 +00:00			`.File/success DEI2 ORA ;on-success JCN2`
Port dev.file.usm 2021-04-21 12:37:59 +00:00
Ported remaining examples to new simplified Console device 2021-07-07 20:20:14 +00:00			`;failedtxt ;print-string JSR2`
Simplified the file example 2021-04-21 18:38:30 +00:00
Port dev.file.usm 2021-04-21 12:37:59 +00:00			`BRK`

Ported some of the examples to the new accessors 2021-04-21 18:12:42 +00:00			`@on-success ( -> )`
Port dev.file.usm 2021-04-21 12:37:59 +00:00
Ported remaining examples to new simplified Console device 2021-07-07 20:20:14 +00:00			`;successtxt ;print-string JSR2`
Simplified the file example 2021-04-21 18:38:30 +00:00
			`( draw image )`
Afterall, I decided to not use the fancy new macros, I think pek/pok is more readable than glyphs in the end 2021-04-23 03:44:38 +00:00			`MEMORY .Screen/addr DEO2`
Simplified the file example 2021-04-21 18:38:30 +00:00			`#0000 #0080`
			`&ver`
Afterall, I decided to not use the fancy new macros, I think pek/pok is more readable than glyphs in the end 2021-04-23 03:44:38 +00:00			`( save ) OVR2 .Screen/y DEO2`
Simplified the file example 2021-04-21 18:38:30 +00:00			`#0000 #0080`
			`&hor`
Afterall, I decided to not use the fancy new macros, I think pek/pok is more readable than glyphs in the end 2021-04-23 03:44:38 +00:00			`( save ) OVR2 .Screen/x DEO2`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`( draw ) #81 .Screen/sprite DEO`
Afterall, I decided to not use the fancy new macros, I think pek/pok is more readable than glyphs in the end 2021-04-23 03:44:38 +00:00			`( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2`
Simplified the file example 2021-04-21 18:38:30 +00:00			`( incr ) SWP2 8+ SWP2`
Minor optimizations to the examples 2021-05-12 19:08:51 +00:00			`LTH2k ,&hor JCN`
Simplified the file example 2021-04-21 18:38:30 +00:00			`POP2 POP2`
			`( incr ) SWP2 8+ SWP2`
Minor optimizations to the examples 2021-05-12 19:08:51 +00:00			`LTH2k ,&ver JCN`
Simplified the file example 2021-04-21 18:38:30 +00:00			`POP2 POP2`
Afterall, I decided to not use the fancy new macros, I think pek/pok is more readable than glyphs in the end 2021-04-23 03:44:38 +00:00
Simplified the file example 2021-04-21 18:38:30 +00:00			`( save file )`
Afterall, I decided to not use the fancy new macros, I think pek/pok is more readable than glyphs in the end 2021-04-23 03:44:38 +00:00			`#1000 .File/length DEO2`
			`;dstpath .File/name DEO2`
			`MEMORY .File/save DEO2`
Port dev.file.usm 2021-04-21 12:37:59 +00:00
Ported some of the examples to the new accessors 2021-04-21 18:12:42 +00:00			`BRK`
Port dev.file.usm 2021-04-21 12:37:59 +00:00
Ported remaining examples to new simplified Console device 2021-07-07 20:20:14 +00:00			`@print-string ( ptr* -- )`
			`LDAk DUP ,&keep-going JCN`
			`POP POP2 JMP2r`

			`&keep-going`
			`.Console/write DEO`
			`#0001 ADD2`
			`,print-string JMP`

Cleaned a few examples 2021-04-29 04:00:39 +00:00			`@successtxt "Success! 09 $1`
			`@failedtxt "Failed. 09 $1`
Simplified the file example 2021-04-21 18:38:30 +00:00
			`@srcpath "projects/pictures/ako10x10.chr $1`
			`@dstpath "bin/image-copy.chr $1`