Advanced Search

Return to Snippet

Revision: 17764
at September 14, 2009 05:16 by gfazioli
Initial Code 
***************************************************************************************
* (20-Feb-1995) --- value = StringDecToValue(buffer) (a0)
***************************************************************************************
_LVOStringDecToValue
	movem.l	d1-d7/a0-a2,-(sp)
	movem.w	DecClearRegs(pc),d0-d7
	moveq	#"0",d5		* fasting Code
D2V_Skp	cmp.b	(a0),d5			* Check Jolly Char
	ble.s	D2V_Con
	cmpi.b	#"#",(a0)+		* Jolly...
	beq.s	D2V_Skp
	cmpi.b	#"+",-1(a0)		* Pos
	beq.s	D2V_Skp
	cmpi.b	#"-",-1(a0)		* NOT... provoca qualcosa...
	bne.s	D2V_Skp
	moveq	#1,d4			* Set Mark Negative
	bra.s	D2V_Skp
D2V_Con	STRLEN	a0,d3
	subq.w	#1,d3			* for dbf operation...
	lea	D2V_TableDec(pc),a2
D2V_Lop	move.b	(a0,d3.w),d1
	sub.b	d5,d1
	beq.s	D2V_Nex
	subq.b	#1,d1
D2V_Squ	add.l	(a2),d2
	dbf	d1,D2V_Squ
	add.l	d2,d0
	moveq	#0,d2
	moveq	#0,d1
D2V_Nex	addq.w	#4,a2
	dbf	d3,D2V_Lop
	tst.l	d4
	beq.s	D2V_Ext
	neg.l	d0
D2V_Ext	movem.l	(sp)+,d1-d7/a0-a2
	rts
DecClearRegs
	ds.w 8
Initial URL 
http://www.undolog.com
Initial Description 









Initial Title





StringDecToValue









Initial Tags














Initial Language





Assembler