;--------------------------------------------------------
; File Created by SDCC : FreeWare ANSI-C Compiler
; Version 2.4.0 Tue Oct 12 01:21:23 2004

;--------------------------------------------------------
	.module _fs2ulong
	
	.area CSEG
	.area GSINIT
	.area GSFINAL
	.area XINIT
	.area DSEG
	.area OSEG    (OVR)
	.area BSEG
	.area XSEG
	.area XISEG
;--------------------------------------------------------
; Public variables in this module
;--------------------------------------------------------
	.globl ___fs2ulong_PARM_1
	.globl ___fs2ulong
;--------------------------------------------------------
;  ram data
;--------------------------------------------------------
	.area DSEG
;--------------------------------------------------------
; overlayable items in  ram 
;--------------------------------------------------------
	.area	OSEG    (OVR)
___fs2ulong_sloc0_1_0::
	.ds 4
;--------------------------------------------------------
; external initialized ram data
;--------------------------------------------------------
	.area XISEG
;--------------------------------------------------------
; extended address mode data
;--------------------------------------------------------
	.area XSEG
___fs2ulong_PARM_1::
	.ds 4
___fs2ulong_fl1_1_1::
	.ds 4
___fs2ulong_exp_1_1::
	.ds 2
___fs2ulong_l_1_1::
	.ds 4
;--------------------------------------------------------
; global & static initialisations
;--------------------------------------------------------
	.area GSINIT
	.area GSFINAL
	.area GSINIT
;--------------------------------------------------------
; Home
;--------------------------------------------------------
	.area HOME
	.area CSEG
;--------------------------------------------------------
; code
;--------------------------------------------------------
	.area CSEG
;------------------------------------------------------------
;Allocation info for local variables in function '__fs2ulong'
;------------------------------------------------------------
;a1                        Allocated with name '___fs2ulong_PARM_1'
;fl1                       Allocated with name '___fs2ulong_fl1_1_1'
;exp                       Allocated with name '___fs2ulong_exp_1_1'
;l                         Allocated with name '___fs2ulong_l_1_1'
;sloc0                     Allocated with name '___fs2ulong_sloc0_1_0'
;------------------------------------------------------------
;_fs2ulong.c:29: __fs2ulong (float a1)
;	-----------------------------------------
;	 function __fs2ulong
;	-----------------------------------------
___fs2ulong:
;_fs2ulong.c:35: fl1.f = a1;
;     genPointerSet
;     genFarPointerSet
;     genDataPointerSet
;     aopDerefAop(IMMD(___fs2ulong_fl1_1_1))
;     loadRegFromAop (a, EXT(___fs2ulong_PARM_1), 0)
	lda	(___fs2ulong_PARM_1 + 3)
;     storeRegToAop (a, EXT(___fs2ulong_fl1_1_1), 0), stacked=0, isaddr=0
	sta	(___fs2ulong_fl1_1_1 + 3)
;     loadRegFromAop (a, EXT(___fs2ulong_PARM_1), 1)
	lda	(___fs2ulong_PARM_1 + 2)
;     storeRegToAop (a, EXT(___fs2ulong_fl1_1_1), 1), stacked=0, isaddr=0
	sta	(___fs2ulong_fl1_1_1 + 2)
;     loadRegFromAop (a, EXT(___fs2ulong_PARM_1), 2)
	lda	(___fs2ulong_PARM_1 + 1)
;     storeRegToAop (a, EXT(___fs2ulong_fl1_1_1), 2), stacked=0, isaddr=0
	sta	(___fs2ulong_fl1_1_1 + 1)
;     loadRegFromAop (a, EXT(___fs2ulong_PARM_1), 3)
	lda	___fs2ulong_PARM_1
;     storeRegToAop (a, EXT(___fs2ulong_fl1_1_1), 3), stacked=0, isaddr=0
	sta	___fs2ulong_fl1_1_1
;_fs2ulong.c:37: if (!fl1.l || SIGN(fl1.l))
;     genPointerGet
;     genFarPointerGet
;     genDataPointerGet
;     aopDerefAop(IMMD(___fs2ulong_fl1_1_1))
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 0)
	lda	(___fs2ulong_fl1_1_1 + 3)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 3)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 1)
	lda	(___fs2ulong_fl1_1_1 + 2)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 1), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 2)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 2)
	lda	(___fs2ulong_fl1_1_1 + 1)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 2), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 1)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 3)
	lda	___fs2ulong_fl1_1_1
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 3), stacked=0, isaddr=0
	sta	*___fs2ulong_sloc0_1_0
;     genIfx
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 0)
	lda	*(___fs2ulong_sloc0_1_0 + 3)
	ora	*(___fs2ulong_sloc0_1_0 + 2)
	ora	*(___fs2ulong_sloc0_1_0 + 1)
	ora	*___fs2ulong_sloc0_1_0
;     genIfxJump
; Peephole 2d	- eliminated jmp
	beq	00101$
00107$:
;     genPointerGet
;     genFarPointerGet
;     genDataPointerGet
;     aopDerefAop(IMMD(___fs2ulong_fl1_1_1))
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 0)
	lda	(___fs2ulong_fl1_1_1 + 3)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 3)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 1)
	lda	(___fs2ulong_fl1_1_1 + 2)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 1), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 2)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 2)
	lda	(___fs2ulong_fl1_1_1 + 1)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 2), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 1)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 3)
	lda	___fs2ulong_fl1_1_1
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 3), stacked=0, isaddr=0
	sta	*___fs2ulong_sloc0_1_0
;     genGetHbit
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 3)
	lda	*___fs2ulong_sloc0_1_0
	rola
	clra
	rola
;     storeRegToAop (a, REG(-,-,x,a), 0), stacked=0, isaddr=0
; transferRegReg(a,a)
;     genIfx
	tsta
;     genIfxJump
; Peephole 2d	- eliminated jmp
	beq	00102$
00108$:
; forgot to free a
00101$:
;_fs2ulong.c:38: return (0);
;     genRet
	mov	#0x00,*__ret3
	mov	#0x00,*__ret2
;     loadRegFromAop (x, LIT(#0x00), 1)
	ldx	#0x00
;     storeRegToAop (x, REG(-,-,-,x), 0), stacked=0, isaddr=0
; transferRegReg(x,x)
;     loadRegFromAop (a, LIT(#0x00), 0)
	lda	#0x00
;     storeRegToAop (a, REG(-,-,-,a), 0), stacked=0, isaddr=0
; transferRegReg(a,a)
	jmp	00104$
00102$:
;_fs2ulong.c:40: exp = EXP (fl1.l) - EXCESS - 24;
;     genPointerGet
;     genFarPointerGet
;     genDataPointerGet
;     aopDerefAop(IMMD(___fs2ulong_fl1_1_1))
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 0)
	lda	(___fs2ulong_fl1_1_1 + 3)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 3)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 1)
	lda	(___fs2ulong_fl1_1_1 + 2)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 1), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 2)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 2)
	lda	(___fs2ulong_fl1_1_1 + 1)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 2), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 1)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 3)
	lda	___fs2ulong_fl1_1_1
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 3), stacked=0, isaddr=0
	sta	*___fs2ulong_sloc0_1_0
;     genRightShift
;     genRightShiftLiteral
;     genrshFour
;     loadRegFromAop (xa, DIR(___fs2ulong_sloc0_1_0), 2)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 2)
	lda	*(___fs2ulong_sloc0_1_0 + 1)
;     loadRegFromAop (x, DIR(___fs2ulong_sloc0_1_0), 3)
	ldx	*___fs2ulong_sloc0_1_0
	lsla
; transferRegReg(x,a)
	txa
	rola
	clrx
	rolx
;     storeRegToAop (xa, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 3)
;     storeRegToAop (x, DIR(___fs2ulong_sloc0_1_0), 1), stacked=0, isaddr=0
	stx	*(___fs2ulong_sloc0_1_0 + 2)
	clr	*(___fs2ulong_sloc0_1_0 + 1)
	clr	*___fs2ulong_sloc0_1_0
; forgot to free a
; forgot to free x
; forgot to free hx
; forgot to free xa
;     genAnd
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 0)
	lda	*(___fs2ulong_sloc0_1_0 + 3)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 3)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 1)
	lda	*(___fs2ulong_sloc0_1_0 + 2)
	and	#0x00
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 1), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 2)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 2)
	lda	*(___fs2ulong_sloc0_1_0 + 1)
	and	#0x00
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 2), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 1)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 3)
	lda	*___fs2ulong_sloc0_1_0
	and	#0x00
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 3), stacked=0, isaddr=0
	sta	*___fs2ulong_sloc0_1_0
;     genMinus
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 0)
	lda	*(___fs2ulong_sloc0_1_0 + 3)
	sub	#0x96
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 3)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 1)
	lda	*(___fs2ulong_sloc0_1_0 + 2)
	sbc	#0x00
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 1), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 2)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 2)
	lda	*(___fs2ulong_sloc0_1_0 + 1)
	sbc	#0x00
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 2), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 1)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 3)
	lda	*___fs2ulong_sloc0_1_0
	sbc	#0x00
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 3), stacked=0, isaddr=0
	sta	*___fs2ulong_sloc0_1_0
;     genCast
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 0)
	lda	*(___fs2ulong_sloc0_1_0 + 3)
;     storeRegToAop (a, EXT(___fs2ulong_exp_1_1), 0), stacked=0, isaddr=1
	sta	(___fs2ulong_exp_1_1 + 1)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 1)
	lda	*(___fs2ulong_sloc0_1_0 + 2)
;     storeRegToAop (a, EXT(___fs2ulong_exp_1_1), 1), stacked=0, isaddr=1
	sta	___fs2ulong_exp_1_1
;_fs2ulong.c:41: l = MANT (fl1.l);
;     genPointerGet
;     genFarPointerGet
;     genDataPointerGet
;     aopDerefAop(IMMD(___fs2ulong_fl1_1_1))
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 0)
	lda	(___fs2ulong_fl1_1_1 + 3)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 3)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 1)
	lda	(___fs2ulong_fl1_1_1 + 2)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 1), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 2)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 2)
	lda	(___fs2ulong_fl1_1_1 + 1)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 2), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 1)
;     loadRegFromAop (a, EXT(___fs2ulong_fl1_1_1), 3)
	lda	___fs2ulong_fl1_1_1
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 3), stacked=0, isaddr=0
	sta	*___fs2ulong_sloc0_1_0
;     genAnd
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 0)
	lda	*(___fs2ulong_sloc0_1_0 + 3)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 3)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 1)
	lda	*(___fs2ulong_sloc0_1_0 + 2)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 1), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 2)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 2)
	lda	*(___fs2ulong_sloc0_1_0 + 1)
	and	#0x7F
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 2), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 1)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 3)
	lda	*___fs2ulong_sloc0_1_0
	and	#0x00
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 3), stacked=0, isaddr=0
	sta	*___fs2ulong_sloc0_1_0
;     genOr
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 0)
	lda	*(___fs2ulong_sloc0_1_0 + 3)
	ora	#0x00
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 0), stacked=0, isaddr=1
	sta	(___fs2ulong_l_1_1 + 3)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 1)
	lda	*(___fs2ulong_sloc0_1_0 + 2)
	ora	#0x00
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 1), stacked=0, isaddr=1
	sta	(___fs2ulong_l_1_1 + 2)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 2)
	lda	*(___fs2ulong_sloc0_1_0 + 1)
	ora	#0x80
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 2), stacked=0, isaddr=1
	sta	(___fs2ulong_l_1_1 + 1)
;     loadRegFromAop (a, DIR(___fs2ulong_sloc0_1_0), 3)
	lda	*___fs2ulong_sloc0_1_0
	ora	#0x00
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 3), stacked=0, isaddr=1
	sta	___fs2ulong_l_1_1
;_fs2ulong.c:43: l >>= -exp;
;     genUminus
	clra
	sub	(___fs2ulong_exp_1_1 + 1)
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 0), stacked=0, isaddr=0
	sta	*(___fs2ulong_sloc0_1_0 + 1)
	clra
	sbc	___fs2ulong_exp_1_1
;     storeRegToAop (a, DIR(___fs2ulong_sloc0_1_0), 1), stacked=0, isaddr=0
	sta	*___fs2ulong_sloc0_1_0
;     genRightShift
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 3)
	lda	___fs2ulong_l_1_1
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 3), stacked=0, isaddr=1
	sta	___fs2ulong_l_1_1
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 2)
	lda	(___fs2ulong_l_1_1 + 1)
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 2), stacked=0, isaddr=1
	sta	(___fs2ulong_l_1_1 + 1)
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 1)
	lda	(___fs2ulong_l_1_1 + 2)
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 1), stacked=0, isaddr=1
	sta	(___fs2ulong_l_1_1 + 2)
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 0)
	lda	(___fs2ulong_l_1_1 + 3)
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 0), stacked=0, isaddr=1
	sta	(___fs2ulong_l_1_1 + 3)
;     loadRegFromAop (x, DIR(___fs2ulong_sloc0_1_0), 0)
; Peephole 4c	- eliminated redundant tstx
	ldx	*(___fs2ulong_sloc0_1_0 + 1)
	beq	00110$
00109$:
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 3)
	lda	___fs2ulong_l_1_1
	asra
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 3), stacked=0, isaddr=1
	sta	___fs2ulong_l_1_1
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 2)
	lda	(___fs2ulong_l_1_1 + 1)
	rora
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 2), stacked=0, isaddr=1
	sta	(___fs2ulong_l_1_1 + 1)
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 1)
	lda	(___fs2ulong_l_1_1 + 2)
	rora
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 1), stacked=0, isaddr=1
	sta	(___fs2ulong_l_1_1 + 2)
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 0)
	lda	(___fs2ulong_l_1_1 + 3)
	rora
;     storeRegToAop (a, EXT(___fs2ulong_l_1_1), 0), stacked=0, isaddr=1
	sta	(___fs2ulong_l_1_1 + 3)
	decx
	bne	00109$
00110$:
;_fs2ulong.c:45: return l;
;     genAssign
;     genRet
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 3)
	lda	___fs2ulong_l_1_1
;     storeRegToAop (a, DIR(__ret3), 0), stacked=0, isaddr=0
	sta	*__ret3
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 2)
	lda	(___fs2ulong_l_1_1 + 1)
;     storeRegToAop (a, DIR(__ret2), 0), stacked=0, isaddr=0
	sta	*__ret2
;     loadRegFromAop (x, EXT(___fs2ulong_l_1_1), 1)
	ldx	(___fs2ulong_l_1_1 + 2)
;     storeRegToAop (x, REG(-,-,-,x), 0), stacked=0, isaddr=0
; transferRegReg(x,x)
;     loadRegFromAop (a, EXT(___fs2ulong_l_1_1), 0)
	lda	(___fs2ulong_l_1_1 + 3)
;     storeRegToAop (a, REG(-,-,-,a), 0), stacked=0, isaddr=0
; transferRegReg(a,a)
00104$:
	rts
	.area CSEG
	.area XINIT
