;--------------------------------------------------------
; File Created by SDCC : free open source ANSI-C Compiler
; Version 3.4.1 #9090 (Nov 13 2014) (Mac OS X x86_64)
; This file was generated Thu Jul  6 13:27:43 2017
;--------------------------------------------------------
	.module ___ulong2fs
	.optsdcc -mz80
	
;--------------------------------------------------------
; Public variables in this module
;--------------------------------------------------------
	.globl ___ulong2fs
;--------------------------------------------------------
; special function registers
;--------------------------------------------------------
;--------------------------------------------------------
; ram data
;--------------------------------------------------------
	.area _DATA
;--------------------------------------------------------
; ram data
;--------------------------------------------------------
	.area _INITIALIZED
;--------------------------------------------------------
; absolute external ram data
;--------------------------------------------------------
	.area _DABS (ABS)
;--------------------------------------------------------
; global & static initialisations
;--------------------------------------------------------
	.area _HOME
	.area _GSINIT
	.area _GSFINAL
	.area _GSINIT
;--------------------------------------------------------
; Home
;--------------------------------------------------------
	.area _HOME
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:60: float __ulong2fs (unsigned long a )
;	---------------------------------
; Function __ulong2fs
; ---------------------------------
___ulong2fs_start::
___ulong2fs:
	push	ix
	ld	ix,#0
	add	ix,sp
	ld	hl,#-8
	add	hl,sp
	ld	sp,hl
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:65: if (!a)
	ld	a,7 (ix)
	or	a, 6 (ix)
	or	a, 5 (ix)
	or	a,4 (ix)
	jr	NZ,00115$
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:67: return 0.0;
	ld	hl,#0x0000
	ld	e,l
	ld	d,h
	jp	00111$
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:70: while (a & NORM) 
00115$:
	ld	bc,#0x0096
00103$:
	ld	a,7 (ix)
	or	a, a
	jr	Z,00117$
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:73: a >>= 1;
	push	af
	pop	af
	srl	7 (ix)
	rr	6 (ix)
	rr	5 (ix)
	rr	4 (ix)
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:74: exp++;
	inc	bc
	jr	00103$
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:77: while (a < HIDDEN)
00117$:
00106$:
	ld	a,6 (ix)
	sub	a, #0x80
	ld	a,7 (ix)
	sbc	a, #0x00
	jr	NC,00120$
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:79: a <<= 1;
	push	af
	pop	af
	sla	4 (ix)
	rl	5 (ix)
	rl	6 (ix)
	rl	7 (ix)
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:80: exp--;
	dec	bc
	jr	00106$
00120$:
	ld	e, c
	ld	d, b
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:84: if ((a&0x7fffff)==0x7fffff) 
	ld	a,4 (ix)
	ld	-4 (ix),a
	ld	a,5 (ix)
	ld	-3 (ix),a
	ld	a,6 (ix)
	and	a, #0x7F
	ld	-2 (ix),a
	ld	-1 (ix),#0x00
	ld	a,-4 (ix)
	inc	a
	jr	NZ,00110$
	ld	a,-3 (ix)
	inc	a
	jr	NZ,00110$
	ld	a,-2 (ix)
	sub	a, #0x7F
	jr	NZ,00110$
	ld	a,-1 (ix)
	or	a, a
	jr	NZ,00110$
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:86: a=0;
	xor	a, a
	ld	4 (ix),a
	ld	5 (ix),a
	ld	6 (ix),a
	ld	7 (ix),a
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:87: exp++;
	ld	e, c
	ld	d, b
	inc	de
00110$:
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:91: a &= ~HIDDEN ;
	res	7, 6 (ix)
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:93: fl.l = PACK(0,(unsigned long)exp, a);
	ld	hl,#0x0000
	add	hl,sp
	ld	-4 (ix),l
	ld	-3 (ix),h
	ld	a,d
	rla
	sbc	a, a
	ld	c,a
	ld	b,a
	ld	a,#0x17
00146$:
	sla	e
	rl	d
	rl	c
	rl	b
	dec	a
	jr	NZ,00146$
	ld	a,e
	or	a, 4 (ix)
	ld	e,a
	ld	a,d
	or	a, 5 (ix)
	ld	d,a
	ld	a,c
	or	a, 6 (ix)
	ld	c,a
	ld	a,b
	or	a, 7 (ix)
	ld	b,a
	ld	l,-4 (ix)
	ld	h,-3 (ix)
	ld	(hl),e
	inc	hl
	ld	(hl),d
	inc	hl
	ld	(hl),c
	inc	hl
	ld	(hl),b
;/pub/Develop/Projects/zasm-4.0/Test/SDCC/library/___ulong2fs.c:95: return (fl.f);
	ld	hl,#0x0000
	add	hl,sp
	ld	b,(hl)
	inc	hl
	ld	c,(hl)
	inc	hl
	ld	e,(hl)
	inc	hl
	ld	d,(hl)
	ld	l,b
	ld	h,c
00111$:
	ld	sp, ix
	pop	ix
	ret
___ulong2fs_end::
	.area _HOME
;--------------------------------------------------------
; code
;--------------------------------------------------------
	.area _CODE
	.area _CODE
	.area _INITIALIZER
	.area _CABS (ABS)