Advanced Search

Return to Snippet

Revision: 17770
at September 14, 2009 05:27 by gfazioli
Initial Code 
***************************************************************************************
* (20-Feb-1995) --- ValueToStringBin(buffer, value, optlen) (a0,d0,d1)
***************************************************************************************
_LVOValueToStringBin
	movem.l	d0/a0,-(sp)
	tst.l	d1
	bne.s	ConvBin_NoDefault
	moveq	#32,d1
ConvBin_NoDefault
	andi.w	#$FF,d1
	subq.b	#1,d1
	moveq	#"0",d2
ConvBin_Loop
	btst	d1,(sp)			* Fast Code
	beq.s	ConvBin_Zero
	moveq	#"1",d2
ConvBin_Zero
	move.b	d2,(a0)+
	moveq	#"0",d2
	dbf	d1,ConvBin_Loop
ConvBin_Exit
	movem.l	(sp)+,d0/a0
	rts
Initial URL 
http://www.undolog.com
Initial Description 









Initial Title





ValueToStringBin









Initial Tags














Initial Language





Assembler