uxn

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

system.expansion.tal (437B)

      1 ( usage: uxncli system.expansion.rom )
      2 
      3 |00 @System &catch $2 &expansion $2 &pad $2 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &halt $1
      4 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
      5 
      6 |0100
      7 
      8 @on-reset ( -> )
      9 	;cmd .System/expansion DEO2
     10 	;dst <print-str>
     11 	BRK
     12 
     13 @cmd
     14 	[ 01 000c 0000 =src 0000 =dst ]
     15 
     16 @src
     17 	"Hello 20 "World $1
     18 
     19 @dst $c
     20 
     21 @<print-str> ( str* -- )
     22 	&w ( -- )
     23 		LDAk #18 DEO
     24 		INC2 LDAk ?&w
     25 	POP2 JMP2r
     26