deleted file mode 100644

@@ -1,148 +0,0 @@

-( dev/controller/keys )

-

-%+  { ADD } %-   { SUB }  %*  { MUL }  %/  { DIV }

-%<  { LTH } %>   { GTH }  %=  { EQU }  %!  { NEQ }

-%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }

-%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }

-

-%RTN { JMP2r }

-%TOS { #00 SWP }

-

-%DEBUG  { ;print-hex JSR2 #0a .Console/write DEO }

-%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }

-

-( devices )

-

-|00 @System     [ &vector $2 &pad    $6 &r      $2 &g     $2 &b      $2 ]

-|10 @Console    [ &vector $2 &read     $1 &pad    $5 &write $1 ]

-|20 @Screen     [ &vector $2 &width  $2 &height $2 &pad   $2 &x      $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]

-|80 @Controller [ &vector $2 &button $1 &key    $1 ]

-|a0 @File       [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]

-

-( variables )

-

-|0000

-

-@position

-	&x $2

-	&y $2

-

-( init )

-

-|0100 ( -> )

-

-	( theme ) 

-	#0f73 .System/r DEO2 

-	#0fe3 .System/g DEO2 

-	#0fc3 .System/b DEO2

-

-	( vectors ) 

-	;on-button .Controller/vector DEO2

-

-	( load font )

-	#1000 .File/length DEO2

-	;fontpath .File/name DEO2

-	;font-data .File/load DEO2

-

-	;draw-cursor JSR2

-	

-BRK

-

-@on-button ( -> )

-

-	( skip ) .Controller/key DEI #01 JCN [ BRK ] 

-

-	( print button-key code )

-	#0000 .Screen/x DEO2

-	.Screen/height DEI2 #0008 -- .Screen/y DEO2

-	.Controller/button DEI2 #01 ;draw-short JSR2

-

-	.position/x LDZ2 .Screen/x DEO2

-	.position/y LDZ2 .Screen/y DEO2

-

-	( linebreak )

-	.Controller/key DEI #0d NEQ ,&no-return JCN 

-		( draw ) #00 .Screen/sprite DEO

-		( reset ) #0000 .position/x STZ2

-		( incr ) .position/y LDZ2 #0010 ++ .position/y STZ2

-		;draw-cursor JSR2

-		BRK

-	&no-return

-

-	.Controller/key DEI TOS #0020 ** DEBUG2

-

-	;font-data .Controller/key DEI TOS #0010 ** ++ .Screen/addr DEO2

-	.Controller/button DEI ;mod-color JSR2 .Screen/sprite DEO

-	.Screen/y DEI2 #0008 ++ .Screen/y DEO2

-	.Screen/addr DEI2 #0008 ++ .Screen/addr DEO2

-	.Controller/button DEI ;mod-color JSR2 .Screen/sprite DEO

-	( incr ) .position/x LDZ2 #0008 ++ .position/x STZ2

-	,draw-cursor JSR

-

-BRK

-

-@mod-color ( mod -- color )

-	 

-	( ctrl )  DUP #01 = #01 * STH

-	( alt )   DUP #02 = #03 * STH

-	( shift ) #04 = #05 * STH2r + +

-	#01 + 

-

-RTN

-

-@draw-cursor ( -- )

-	

-	.position/x LDZ2 .Screen/x DEO2

-	.position/y LDZ2 .Screen/y DEO2

-	;cursor .Screen/addr DEO2 

-	#02 .Screen/sprite DEO

-

-	.position/y LDZ2 #0008 ++ .Screen/y DEO2

-	#02 .Screen/sprite DEO

-

-RTN

-

-@draw-short ( short* color -- )

-

-	STH SWP 

-	DUP #04 SFT TOS #0008 ** ;font-hex ++ .Screen/addr DEO2

-	( draw ) STHkr .Screen/sprite DEO

-	#0f AND TOS #0008 ** ;font-hex ++ .Screen/addr DEO2

-	.Screen/x DEI2 #0008 ++ .Screen/x DEO2

-	( draw ) STHkr .Screen/sprite DEO

-	DUP #04 SFT TOS #0008 ** ;font-hex ++ .Screen/addr DEO2

-	.Screen/x DEI2 #0008 ++ .Screen/x DEO2

-	( draw ) STHkr .Screen/sprite DEO

-	#0f AND TOS #0008 ** ;font-hex ++ .Screen/addr DEO2

-	.Screen/x DEI2 #0008 ++ .Screen/x DEO2

-	( draw ) STHr .Screen/sprite DEO

-

-RTN

-

-@print-hex ( value -- )

-	

-	STHk #04 SFT ,&parse JSR .Console/write DEO

-	STHr #0f AND ,&parse JSR .Console/write DEO

-	RTN

-	&parse ( value -- char )

-		DUP #09 GTH ,&above JCN #30 ADD RTN &above #09 SUB #60 ADD RTN

-

-RTN

-

-@cursor 

-	ffff ffff ffff ffff

-

-@font-hex 

-	003c 464a 5262 3c00 0018 0808 0808 1c00

-	003c 4202 3c40 7e00 003c 421c 0242 3c00

-	000c 1424 447e 0400 007e 407c 0242 3c00

-	003c 407c 4242 3c00 007e 0204 0810 1000

-	003c 423c 4242 3c00 003c 4242 3e02 3c00

-	003c 4242 7e42 4200 007c 427c 4242 7c00

-	003c 4240 4042 3c00 007c 4242 4242 7c00

-	007e 4078 4040 7e00 007e 4078 4040 4000 

-

-

-@fontpath "projects/fonts/437dos8x16.bit

-

-@font-data

\ No newline at end of file