;--------------------------------------------------------
; File Created by SDCC : free open source ANSI-C Compiler
; Version 2.8.5 #5276 (Apr 15 2009) (UNIX)
; This file was generated Wed Apr 15 17:33:57 2009
;--------------------------------------------------------
	.module _mullong
	.optsdcc -mz80
	
;--------------------------------------------------------
; Public variables in this module
;--------------------------------------------------------
	.globl __mullong
;--------------------------------------------------------
; special function registers
;--------------------------------------------------------
;--------------------------------------------------------
;  ram data
;--------------------------------------------------------
	.area _DATA
;--------------------------------------------------------
; overlayable items in  ram 
;--------------------------------------------------------
	.area _OVERLAY
;--------------------------------------------------------
; external initialized ram data
;--------------------------------------------------------
;--------------------------------------------------------
; global & static initialisations
;--------------------------------------------------------
	.area _HOME
	.area _GSINIT
	.area _GSFINAL
	.area _GSINIT
;--------------------------------------------------------
; Home
;--------------------------------------------------------
	.area _HOME
	.area _HOME
;--------------------------------------------------------
; code
;--------------------------------------------------------
	.area _CODE
;_mullong.c:703: _mullong (long a, long b)
;	---------------------------------
; Function _mullong
; ---------------------------------
__mullong_start::
__mullong:
	push	ix
	ld	ix,#0
	add	ix,sp
	ld	hl,#-26
	add	hl,sp
	ld	sp,hl
;_mullong.c:707: t.i.hi = bcast(a)->b.b0 * bcast(b)->b.b2;           // A
	ld	hl,#0x0016
	add	hl,sp
	ld	-8 (ix),l
	ld	-7 (ix),h
	ld	a,-8 (ix)
	add	a,#0x02
	ld	-6 (ix),a
	ld	a,-7 (ix)
	adc	a,#0x00
	ld	-5 (ix),a
	ld	hl,#0x001E
	add	hl,sp
	ex	de,hl
	ld	a,(de)
	ld	-9 (ix),a
	ld	hl,#0x0022
	add	hl,sp
	ld	-11 (ix),l
	ld	-10 (ix),h
	ld	a,-11 (ix)
	add	a,#0x02
	ld	-13 (ix),a
	ld	a,-10 (ix)
	adc	a,#0x00
	ld	-12 (ix),a
	ld	l,-13 (ix)
	ld	h,-12 (ix)
	ld	c,(hl)
	push	de
	ld	a,c
	push	af
	inc	sp
	ld	a,-9 (ix)
	push	af
	inc	sp
	call	__muluchar_rrx_s
	pop	af
	ld	b,h
	ld	c,l
	pop	de
	ld	l,-6 (ix)
	ld	h,-5 (ix)
	ld	(hl),c
	inc	hl
	ld	(hl),b
;_mullong.c:708: t.i.lo = bcast(a)->b.b0 * bcast(b)->b.b0;           // A
	ld	l,-11 (ix)
	ld	h,-10 (ix)
	ld	a,(hl)
	ld	-6 (ix),a
	push	de
	ld	h,-6 (ix)
	ld	l,-9 (ix)
	push	hl
	call	__muluchar_rrx_s
	pop	af
	ld	b,h
	ld	c,l
	pop	de
	ld	l,-8 (ix)
	ld	h,-7 (ix)
	ld	(hl),c
	inc	hl
	ld	(hl),b
;_mullong.c:709: t.b.b3 += bcast(a)->b.b3 * bcast(b)->b.b0;          // G
	ld	hl,#0x0016 + 0x0003
	add	hl,sp
	ld	-8 (ix),l
	ld	-7 (ix),h
	ld	b,(hl)
	ld	hl,#0x0003
	add	hl,de
	ld	-15 (ix),l
	ld	-14 (ix),h
	ld	c,(hl)
	push	bc
	push	de
	ld	b, -6 (ix)
	push	bc
	call	__muluchar_rrx_s
	pop	af
	ld	c,l
	pop	de
	pop	af
	add	a,c
	ld	l,-8 (ix)
	ld	h,-7 (ix)
	ld	(hl),a
;_mullong.c:710: t.b.b3 += bcast(a)->b.b2 * bcast(b)->b.b1;          // F
	ld	l,-8 (ix)
	ld	h,-7 (ix)
	ld	b,(hl)
	ld	hl,#0x0002
	add	hl,de
	ld	-17 (ix),l
	ld	-16 (ix),h
	ld	a,(hl)
	ld	-18 (ix),a
	ld	a,-11 (ix)
	add	a,#0x01
	ld	-20 (ix),a
	ld	a,-10 (ix)
	adc	a,#0x00
	ld	-19 (ix),a
	ld	l,-20 (ix)
	ld	h,-19 (ix)
	ld	c,(hl)
	push	bc
	push	de
	ld	a,c
	push	af
	inc	sp
	ld	a,-18 (ix)
	push	af
	inc	sp
	call	__muluchar_rrx_s
	pop	af
	ld	c,l
	pop	de
	pop	af
	add	a,c
	ld	l,-8 (ix)
	ld	h,-7 (ix)
	ld	(hl),a
;_mullong.c:711: t.i.hi += bcast(a)->b.b2 * bcast(b)->b.b0;          // E <- b lost in .lst
	ld	hl,#0x0016 + 0x0002
	add	hl,sp
	ld	-8 (ix),l
	ld	-7 (ix),h
	ld	a,(hl)
	ld	-22 (ix),a
	inc	hl
	ld	a,(hl)
	ld	-21 (ix),a
	ld	l,-17 (ix)
	ld	h,-16 (ix)
	ld	c,(hl)
	push	de
	ld	b, -6 (ix)
	push	bc
	call	__muluchar_rrx_s
	pop	af
	ld	b,h
	ld	c,l
	pop	de
	ld	a,-22 (ix)
	add	a,c
	ld	c,a
	ld	a,-21 (ix)
	adc	a,b
	ld	b,a
	ld	l,-8 (ix)
	ld	h,-7 (ix)
	ld	(hl),c
	inc	hl
	ld	(hl),b
;_mullong.c:713: t.i.hi += bcast(a)->b.b1 * bcast(b)->b.b1;          // D <- b lost in .lst
	ld	l,-8 (ix)
	ld	h,-7 (ix)
	ld	a,(hl)
	ld	-22 (ix),a
	inc	hl
	ld	a,(hl)
	ld	-21 (ix),a
	ld	hl,#0x0001
	add	hl,de
	ld	-17 (ix),l
	ld	-16 (ix),h
	ld	c,(hl)
	ld	l,-20 (ix)
	ld	h,-19 (ix)
	ld	b,(hl)
	push	de
	push	bc
	inc	sp
	ld	a,c
	push	af
	inc	sp
	call	__muluchar_rrx_s
	pop	af
	ld	b,h
	ld	c,l
	pop	de
	ld	a,-22 (ix)
	add	a,c
	ld	c,a
	ld	a,-21 (ix)
	adc	a,b
	ld	b,a
	ld	l,-8 (ix)
	ld	h,-7 (ix)
	ld	(hl),c
	inc	hl
	ld	(hl),b
;_mullong.c:715: bcast(a)->bi.b3 = bcast(a)->b.b1 * bcast(b)->b.b2;  // C
	ld	l,-17 (ix)
	ld	h,-16 (ix)
	ld	c,(hl)
	ld	l,-13 (ix)
	ld	h,-12 (ix)
	ld	b,(hl)
	push	de
	push	bc
	inc	sp
	ld	a,c
	push	af
	inc	sp
	call	__muluchar_rrx_s
	pop	af
	ld	c,l
	pop	de
	ld	l,-15 (ix)
	ld	h,-14 (ix)
	ld	(hl),c
;_mullong.c:716: bcast(a)->bi.i12 = bcast(a)->b.b1 * bcast(b)->b.b0; // C
	ld	hl,#0x0001
	add	hl,de
	ld	-22 (ix),l
	ld	-21 (ix),h
	ld	c,e
	ld	b,d
	inc	bc
	ld	a,(bc)
	ld	c,a
	push	de
	ld	b, -6 (ix)
	push	bc
	call	__muluchar_rrx_s
	pop	af
	ld	b,h
	ld	c,l
	pop	de
	ld	l,-22 (ix)
	ld	h,-21 (ix)
	ld	(hl),c
	inc	hl
	ld	(hl),b
;_mullong.c:718: bcast(b)->bi.b3 = bcast(a)->b.b0 * bcast(b)->b.b3;  // B
	ld	a,-11 (ix)
	add	a,#0x03
	ld	-22 (ix),a
	ld	a,-10 (ix)
	adc	a,#0x00
	ld	-21 (ix),a
	ld	l,-22 (ix)
	ld	h,-21 (ix)
	ld	c,(hl)
	push	de
	ld	a,c
	push	af
	inc	sp
	ld	a,-9 (ix)
	push	af
	inc	sp
	call	__muluchar_rrx_s
	pop	af
	ld	c,l
	pop	de
	ld	l,-22 (ix)
	ld	h,-21 (ix)
	ld	(hl),c
;_mullong.c:719: bcast(b)->bi.i12 = bcast(a)->b.b0 * bcast(b)->b.b1; // B
	ld	a,-11 (ix)
	add	a,#0x01
	ld	-22 (ix),a
	ld	a,-10 (ix)
	adc	a,#0x00
	ld	-21 (ix),a
	ld	c,-11 (ix)
	ld	b,-10 (ix)
	inc	bc
	ld	a,(bc)
	push	de
	push	af
	inc	sp
	ld	a,-9 (ix)
	push	af
	inc	sp
	call	__muluchar_rrx_s
	pop	af
	ld	b,h
	ld	c,l
	pop	de
	ld	l,-22 (ix)
	ld	h,-21 (ix)
	ld	(hl),c
	inc	hl
	ld	(hl),b
;_mullong.c:721: bcast(b)->bi.b0 = 0;                                // B
	ld	l,-11 (ix)
	ld	h,-10 (ix)
	ld	(hl),#0x00
;_mullong.c:722: bcast(a)->bi.b0 = 0;                                // C
	ld	a,#0x00
	ld	(de),a
;_mullong.c:723: t.l += a;
	ld	hl,#0x0016
	add	hl,sp
	ld	-22 (ix),l
	ld	-21 (ix),h
	ld	a,(hl)
	ld	-26 (ix),a
	inc	hl
	ld	a,(hl)
	ld	-25 (ix),a
	inc	hl
	ld	a,(hl)
	ld	-24 (ix),a
	inc	hl
	ld	a,(hl)
	ld	-23 (ix),a
	ld	c,4 (ix)
	ld	b,5 (ix)
	ld	e,6 (ix)
	ld	d,7 (ix)
	ld	a,-26 (ix)
	add	a,c
	ld	c,a
	ld	a,-25 (ix)
	adc	a,b
	ld	b,a
	ld	a,-24 (ix)
	adc	a,e
	ld	e,a
	ld	a,-23 (ix)
	adc	a,d
	ld	d,a
	ld	l,-22 (ix)
	ld	h,-21 (ix)
	ld	(hl),c
	inc	hl
	ld	(hl),b
	inc	hl
	ld	(hl),e
	inc	hl
	ld	(hl),d
;_mullong.c:725: return t.l + b;
	ld	l,-22 (ix)
	ld	h,-21 (ix)
	ld	a,(hl)
	ld	-26 (ix),a
	inc	hl
	ld	a,(hl)
	ld	-25 (ix),a
	inc	hl
	ld	a,(hl)
	ld	-24 (ix),a
	inc	hl
	ld	a,(hl)
	ld	-23 (ix),a
	ld	c,8 (ix)
	ld	b,9 (ix)
	ld	e,10 (ix)
	ld	d,11 (ix)
	ld	a,-26 (ix)
	add	a,c
	ld	c,a
	ld	a,-25 (ix)
	adc	a,b
	ld	b,a
	ld	a,-24 (ix)
	adc	a,e
	ld	e,a
	ld	a,-23 (ix)
	adc	a,d
	ld	d,a
	ld	l,c
	ld	h,b
	ld	sp,ix
	pop	ix
	ret
__mullong_end::
	.area _CODE
	.area _CABS
