PRINTF()
word PAR[5];
{
	$PUSH SI
	$PUSH DI
	PAR=BX;
	PAR[2]=CX;
	PAR[4]=DX;
	PAR[6]=DI;
	PAR[8]=SI;
	SI=AX;
	DI=0;
	$CLD
DW:
	$LODSB
	IF(AL=='%'){
		$LODSB
		IF(AL=='s'){
			AX=PAR[DI];
			DWRITESTR();
		}
		ELSE IF(AL=='d'){
			AX=PAR[DI];
			__dwriteword();
		}
		ELSE IF(AL=='c'){
			AX=PAR[DI];
			DWRITE();
		}
		DI+=2;
		$JMP SHORT DW
	}
	$OR AL,AL
	$JZ EN
	DWRITE();
	$JMP SHORT DW
EN:
	$POP DI
	$POP SI
}
