showBinary HLA procedure

showBinary.hla

// procedure forward declarations
procedure showBinary(value: byte); @forward;

// procedure definitions
procedure showBinary(value: byte);
begin showBinary;
	
	push(eax);
	push(ecx);

	mov(value, al);
	stdout.put("%");
	for (mov(0, cl); cl < 8; inc(cl)) do
		shl(1, al);
		if (@c) then
			stdout.put("1");
		else
			stdout.put("0");
		endif;

		if (cl == 3) then
			stdout.put("_");
		endif;
	endfor;

	pop(ecx);
	pop(eax);

end showBinary;