uxn

Varvara Ordinator, written in ANSI C(SDL2)
git clone https://git.eamoncaddigan.net/uxn.git
Log | Files | Refs | README | LICENSE

console.write.tal (355B)

      1 ( usage: uxncli console.write.rom )
      2 
      3 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
      4 
      5 |0100
      6 
      7 @on-reset ( -> )
      8 	( | write )
      9 	{ "Hello 20 "Write 0a 00 }
     10 	STH2r
     11 	&wa ( -- )
     12 		LDAk .Console/write DEO
     13 		INC2 LDAk ?&wa
     14 	POP2
     15 	( | error )
     16 	{ "Hello 20 "Error 0a 00 }
     17 	STH2r
     18 	&wb ( -- )
     19 		LDAk .Console/error DEO
     20 		INC2 LDAk ?&wb
     21 	POP2 BRK
     22