aforth

FORTH for Linux x86-64, written in assembly.
git clone git://henryandlizzy.uk/aforth
Log | Files | Refs | README

extras.s (253B)

      1 #	User Words
      2 
      3 verb	forth	GREET
      4 	say	"Hello, World!"
      5 	do	CR
      6 	endword
      7 
      8 verb	forth	FLAG
      9 	1:	do	OVER
     10 		do	line
     11 		do	dec
     12 		do	DUP
     13 		if	1b
     14 	do	DROP
     15 	do	DROP
     16 	endword
     17 
     18 line:		forthword
     19 	1:	const	'*'
     20 		do	EMIT
     21 		do	dec
     22 		do	DUP
     23 		if	1b
     24 	do	DROP
     25 	do	CR
     26 	endword