BEGIN {ORS="\r\n"}

/^[[:blank:]]*[a-zA_Z0-9_.]+:[[:blank:]]*equ[[:blank:]]/ {$0 = gensub(":"," ",1) }
/^[[:blank:]]*org[[:blank:]]bios/ {$0 = ""; 
		print "	aseg"; 
		print "	org	100h";
		print "	.phase	bios";
		print "	.z80"}

	{gsub("<<", " shl "); gsub(">>", " shr ") }
	{print}