;--------------------------------------------------------
; File Created by SDCC : FreeWare ANSI-C Compiler
; Version 2.1.8Ia Tue Jul 27 21:54:54 1999

;--------------------------------------------------------
	.module _divulong
;--------------------------------------------------------
; publics variables in this module
;--------------------------------------------------------
	.globl __divulong_PARM_2
	.globl __divulong_PARM_1
	.globl __divulong
;--------------------------------------------------------
; special function registers
;--------------------------------------------------------
;--------------------------------------------------------
; special function bits 
;--------------------------------------------------------
;--------------------------------------------------------
; internal ram data
;--------------------------------------------------------
	.area	DSEG    (DATA)
__divulong_sloc0_1_0:
	.ds	0x0004
__divulong_sloc1_1_0:
	.ds	0x0004
__divulong_sloc2_1_0:
	.ds	0x0004
;--------------------------------------------------------
; overlayable items in internal ram 
;--------------------------------------------------------
	.area	OSEG	(OVR,DATA)
;--------------------------------------------------------
; indirectly addressable internal ram data
;--------------------------------------------------------
	.area	ISEG    (DATA)
;--------------------------------------------------------
; bit data
;--------------------------------------------------------
	.area	BSEG    (BIT)
;--------------------------------------------------------
; external ram data
;--------------------------------------------------------
	.area	XSEG    (XDATA)
__divulong_PARM_1:
	.ds	0x0004
__divulong_PARM_2:
	.ds	0x0004
__divulong_reste_1_1:
	.ds	0x0004
;--------------------------------------------------------
; global & static initialisations
;--------------------------------------------------------
	.area GSINIT (CODE)
;--------------------------------------------------------
; code
;--------------------------------------------------------
	.area CSEG (CODE)
;  _divulong.c 27
;  -----------------------------------------
;   function _divulong
;  -----------------------------------------
__divulong:
	ar2 = 0x02
	ar3 = 0x03
	ar4 = 0x04
	ar5 = 0x05
	ar6 = 0x06
	ar7 = 0x07
	ar0 = 0x00
	ar1 = 0x01
;  _divulong.c 29
	mov  dptr,#__divulong_reste_1_1
	clr  a
	inc  dptr
	inc  dptr
	inc  dptr
	movx  @dptr,a
	lcall  __decdptr
	movx  @dptr,a
	lcall  __decdptr
	movx  @dptr,a
	lcall  __decdptr
	movx  @dptr,a
;  _divulong.c 33
	mov  dptr,#__divulong_PARM_2
	movx  a,@dptr
	mov  __divulong_sloc0_1_0,a
	inc  dptr
	movx  a,@dptr
	mov  (__divulong_sloc0_1_0 + 1),a
	inc  dptr
	movx  a,@dptr
	mov  (__divulong_sloc0_1_0 + 2),a
	inc  dptr
	movx  a,@dptr
	mov  (__divulong_sloc0_1_0 + 3),a
	mov  r2,#0x20
00105$:
;  _divulong.c 35
	push  ar2
	mov  dptr,#__divulong_PARM_1
	movx  a,@dptr
	mov  r3,a
	inc  dptr
	movx  a,@dptr
	mov  r4,a
	inc  dptr
	movx  a,@dptr
	mov  r5,a
	inc  dptr
	movx  a,@dptr
; Peephole 105
	mov  r2,a
	rl  a
	anl  a,#0x01
	mov  r6,a
;  _divulong.c 36
	mov  a,r3
	add  a,acc
	mov  __divulong_sloc1_1_0,a
	mov  a,r4
	rlc  a
	mov  (__divulong_sloc1_1_0 + 1),a
	mov  a,r5
	rlc  a
	mov  (__divulong_sloc1_1_0 + 2),a
	mov  a,r2
	rlc  a
	mov  (__divulong_sloc1_1_0 + 3),a
	mov  dptr,#__divulong_PARM_1
	mov  a,__divulong_sloc1_1_0
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc1_1_0 + 1)
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc1_1_0 + 2)
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc1_1_0 + 3)
	movx  @dptr,a
;  _divulong.c 37
	mov  dptr,#__divulong_reste_1_1
	movx  a,@dptr
	mov  r2,a
	inc  dptr
	movx  a,@dptr
	mov  r3,a
	inc  dptr
	movx  a,@dptr
	mov  r4,a
	inc  dptr
	movx  a,@dptr
	mov  r5,a
	mov  a,r2
	add  a,acc
	mov  __divulong_sloc2_1_0,a
	mov  a,r3
	rlc  a
	mov  (__divulong_sloc2_1_0 + 1),a
	mov  a,r4
	rlc  a
	mov  (__divulong_sloc2_1_0 + 2),a
	mov  a,r5
	rlc  a
	mov  (__divulong_sloc2_1_0 + 3),a
	mov  dptr,#__divulong_reste_1_1
	mov  a,__divulong_sloc2_1_0
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc2_1_0 + 1)
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc2_1_0 + 2)
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc2_1_0 + 3)
	movx  @dptr,a
;  _divulong.c 38
	pop  ar2
	mov  a,r6
; Peephole 110
	jz  00102$
00114$:
;  _divulong.c 39
	mov  dptr,#__divulong_reste_1_1
	mov  a,#0x01
	orl  a,__divulong_sloc2_1_0
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc2_1_0 + 1)
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc2_1_0 + 2)
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc2_1_0 + 3)
	movx  @dptr,a
00102$:
;  _divulong.c 41
	mov  dptr,#__divulong_reste_1_1
	movx  a,@dptr
	mov  r3,a
	inc  dptr
	movx  a,@dptr
	mov  r4,a
	inc  dptr
	movx  a,@dptr
	mov  r5,a
	inc  dptr
	movx  a,@dptr
	mov  r6,a
	clr  c
	mov  a,r3
	subb  a,__divulong_sloc0_1_0
	mov  a,r4
	subb  a,(__divulong_sloc0_1_0 + 1)
	mov  a,r5
	subb  a,(__divulong_sloc0_1_0 + 2)
	mov  a,r6
	subb  a,(__divulong_sloc0_1_0 + 3)
; Peephole 132
; Peephole 160
	jc   00106$
00115$:
;  _divulong.c 42
	mov  dptr,#__divulong_reste_1_1
	clr  c
	mov  a,r3
	subb  a,__divulong_sloc0_1_0
	movx  @dptr,a
	mov  a,r4
	subb  a,(__divulong_sloc0_1_0 + 1)
	inc  dptr
	movx  @dptr,a
	mov  a,r5
	subb  a,(__divulong_sloc0_1_0 + 2)
	inc  dptr
	movx  @dptr,a
	mov  a,r6
	subb  a,(__divulong_sloc0_1_0 + 3)
	inc  dptr
	movx  @dptr,a
;  _divulong.c 44
	mov  dptr,#__divulong_PARM_1
	mov  a,#0x01
	orl  a,__divulong_sloc1_1_0
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc1_1_0 + 1)
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc1_1_0 + 2)
	movx  @dptr,a
	inc  dptr
	mov  a,(__divulong_sloc1_1_0 + 3)
	movx  @dptr,a
00106$:
;  _divulong.c 46
	djnz  r2,00116$
	sjmp  00117$
00116$:
	ljmp  00105$
00117$:
;  _divulong.c 48
	mov  dptr,#__divulong_PARM_1
	movx  a,@dptr
	mov  r2,a
	inc  dptr
	movx  a,@dptr
	mov  r3,a
	inc  dptr
	movx  a,@dptr
	mov  r4,a
	inc  dptr
	movx  a,@dptr
; Peephole 191
	mov  r5,a
	mov  dpl,r2
	mov  dph,r3
	mov  b,r4
00108$:
	ret  
	.area	CSEG    (CODE)
