formatted i48 CRT routines

Author: ZERICO2005

src/crt/i48add.src

@@ -8,11 +8,11 @@
 	section	.text
 	public	__i48add
 __i48add:
-	add hl, bc
-	ex de, hl
-	push bc
-	lea bc, iy
-	adc hl, bc
-	pop bc
-	ex de, hl
+	add	hl, bc
+	ex	de, hl
+	push	bc
+	lea	bc, iy
+	adc	hl, bc
+	pop	bc
+	ex	de, hl
 	ret

src/crt/i48add_1.src

@@ -1,4 +1,4 @@
-; Performs 48-bit addition
+; Performs 48-bit increment
 ;
 ; Returns:
 ; ude:uhl = ude:uhl + 1

src/crt/i48and.src

@@ -8,51 +8,51 @@
 	section	.text
 	public	__i48and
 __i48and:
-	push af
+	push	af
 
 	; Deal with Upper Byte
-	push hl
-	push bc
-	push de
+	push	hl
+	push	bc
+	push	de
 	scf
-	sbc hl, hl
-	add hl, sp ; uhl = &iyu
-	push iy
-
-	ld de, 3
-	ld a, (hl) ; a = iyu
-	add hl, de
-	and a, (hl) ; a &= deu
-	ld (hl), a ; deu = a
-
-	add hl, de
-	ld a, (hl) ; a = bcu
-	add hl, de
-	and a, (hl) ; a &= hlu
-	ld (hl), a ; hlu = a
+	sbc	hl, hl
+	add	hl, sp	; uhl = &iyu
+	push	iy
+
+	ld	de, 3
+	ld	a, (hl)	; a = iyu
+	add	hl, de
+	and	a, (hl)	; a &= deu
+	ld	(hl), a	; deu = a
+
+	add	hl, de
+	ld	a, (hl)	; a = bcu
+	add	hl, de
+	and	a, (hl)	; a &= hlu
+	ld	(hl), a	; hlu = a
 
 	; Load values back into registers and process low and high bytes
-	pop bc
-	pop de
+	pop	bc
+	pop	de
 
-	ld a, d
-	and a, b ; = iyh
-	ld d, a
+	ld	a, d
+	and	a, b	; = iyh
+	ld	d, a
 
-	ld a, e
-	and a, c ; = iyl
-	ld e, a
+	ld	a, e
+	and	a, c	; = iyl
+	ld	e, a
 
-	pop bc
-	pop hl
+	pop	bc
+	pop	hl
 
-	ld a, h
-	and a, b
-	ld h, a
+	ld	a, h
+	and	a, b
+	ld	h, a
 
-	ld a, l
-	and a, c
-	ld l, a
+	ld	a, l
+	and	a, c
+	ld	l, a
 
-	pop af
+	pop	af
 	ret

src/crt/i48bswap.src

@@ -9,14 +9,14 @@
 	public	__i48bswap
 __i48bswap:
 	; Line up the reversed data on the stack
-	push hl
-	ld h, e
-	ld l, d
-	ex (sp), hl
-	ld d, l
-	ld e, h
-	push de
-	push hl
+	push	hl
+	ld	h, e
+	ld	l, d
+	ex	(sp), hl
+	ld	d, l
+	ld	e, h
+	push	de
+	push	hl
 	; -1: hlu
 	; -2: e
 	; -3: d
@@ -28,9 +28,9 @@ __i48bswap:
 	; -9: l
 
 	; Misalign the stack and pop into the correct registers
-	inc sp
-	inc sp
-	pop de
-	pop hl
-	inc sp
+	inc	sp
+	inc	sp
+	pop	de
+	pop	hl
+	inc	sp
 	ret

src/crt/i48cmps.src

@@ -12,14 +12,13 @@
 	section	.text
 	public	__i48cmps
 __i48cmps:
-	push hl
-	push de
-	or a, a
-	sbc hl, bc ; compare hl to bc
-	ex de, hl ; hl = de
-	lea de, iy ; de = iy
-	sbc hl, de ; compare de to iy
-	pop de
-	pop hl
+	push	hl
+	push	de
+	or	a, a
+	sbc	hl, bc	; compare hl to bc
+	ex	de, hl	; hl = de
+	lea	de, iy	; de = iy
+	sbc	hl, de	; compare de to iy
+	pop	de
+	pop	hl
 	ret
-

src/crt/i48cmpu.src

@@ -12,14 +12,15 @@
 	section	.text
 	public	__i48cmpu
 __i48cmpu:
-	push hl
-	or a, a
-	lea hl, iy
-	sbc hl, de ; subtract IY - DE, which is the other way around
-	ccf ; complement carry
-	pop hl
-	ret nz
-	or a, a
-	sbc hl, bc ; subtract the low parts the normal way
-	add hl, bc ; causes the same carry, preserves Z
-	ret ; don't complement carry
+	push	hl
+	or	a, a
+	lea	hl, iy
+	sbc	hl, de	; subtract IY - DE, which is the other way around
+	ccf		; complement carry
+	pop	hl
+	ret	nz
+	or	a, a
+	sbc	hl, bc	; subtract the low parts the normal way
+	add	hl, bc	; causes the same carry, preserves Z
+	; don't complement carry
+	ret

src/crt/i48cmpzero.src

@@ -8,18 +8,18 @@
 	section	.text
 	public	__i48cmpzero
 __i48cmpzero:
-	;check msb's == 0
-	ex de, hl
-	add hl, de
-	or a, a
-	sbc hl, de ; z set if de = 0, s set if de is negative (z also reset)
-	ex de, hl
-	ret nz
-	;check lsb's == 0
-	;in this path, de = 0 and carry is reset
-	sbc hl, de
-	ret p
-	;special case if bit 23 is set
-	inc e ; reset z and s flags
-	dec de
-	ret
+	; check msb's == 0
+	ex	de, hl
+	add	hl, de
+	or	a, a
+	sbc	hl, de	; z set if de = 0, s set if de is negative (z also reset)
+	ex	de, hl
+	ret	nz
+	; check lsb's == 0
+	; in this path, de = 0 and carry is reset
+	sbc	hl, de
+	ret	p
+	; special case if bit 23 is set
+	inc	e	; reset z and s flags
+	dec	de
+	ret

src/crt/i48divs.src

@@ -1,39 +1,43 @@
+; Performs 48-bit signed division
+;
+; Returns:
+; ude:uhl = ude:uhl / uiy:ubc
+
 	assume	adl=1
 
 	section	.text
 	public	__i48divs
-; Result in ude:uhl
 __i48divs:
-	push af
-	push iy
-	push bc
+	push	af
+	push	iy
+	push	bc
 
 	; divisor sign check
-	push hl
-	lea hl, iy
-	add hl, hl
-	sbc a, a
-	call c, __uiyubcNeg
+	push	hl
+	lea	hl, iy
+	add	hl, hl
+	sbc	a, a
+	call	c, __uiyubcNeg
 
 	; dividend sign check
-	ld hl, $800000
-	add hl, de
-	pop hl
+	ld	hl, $800000
+	add	hl, de
+	pop	hl
 	rla
 	rrca
-	call c, __i48neg
+	call	c, __i48neg
 
-	call __i48dvrmu
+	call	__i48dvrmu
 
 	; negate quotient if exactly one of the dividend and divisor is negative
-	add a, a
-	call pe, __i48neg
+	add	a, a
+	call	pe, __i48neg
 
-	pop bc
-	pop iy
-	pop af
+	pop	bc
+	pop	iy
+	pop	af
 	ret
 
 	extern	__i48dvrmu
 	extern	__i48neg
-	extern	__uiyubcNeg
+	extern	__uiyubcNeg

src/crt/i48divu.src

@@ -1,17 +1,20 @@
+; Performs 48-bit unsigned division
+;
+; Returns:
+; ude:uhl = ude:uhl / uiy:ubc
+
 	assume	adl=1
 
 	section	.text
 	public	__i48divu
-
-; Result in ude:uhl
 __i48divu:
-	push iy
-	push bc
+	push	iy
+	push	bc
 
-	call __i48dvrmu
+	call	__i48dvrmu
 
-	pop bc
-	pop iy
+	pop	bc
+	pop	iy
 	ret
 
-	extern	__i48dvrmu
+	extern	__i48dvrmu