From b69fd5feb808cd08cb8b9be2298acf6e1eb3da39 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 3 Feb 1987 13:32:24 +0000
Subject: [PATCH] adapted to new assembler syntax

---
 mach/z80/int/fpp.s  | 19 ++++++++++++++++---
 mach/z80/int/mli4.s |  9 +++++++--
 2 files changed, 23 insertions(+), 5 deletions(-)

diff --git a/mach/z80/int/fpp.s b/mach/z80/int/fpp.s
index fbec1550c..7f099c57f 100644
--- a/mach/z80/int/fpp.s
+++ b/mach/z80/int/fpp.s
@@ -1,3 +1,10 @@
+.define fpac, fpadd, fpcdf, fpcfd, fpcfi, fpcif, fpcmf, fpcomp
+.define fpdiv, fpfef, fpfif, fpmult, fpop, fpsub, fpnorm
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 ! floating point pakket voor Z80
 ! geimplementeerd zoals beschreven in 
 ! Electronica top internationaal.
@@ -16,7 +23,6 @@ fol:	.space 1
 fon:	.space 1
 fom:	.space 1
 fox:	.space 1
-	.errnz xa/256-fox/256
 
 fpsub:
 	call fpcomp		! inverteer fpacc
@@ -99,11 +105,15 @@ addmor:
 	djnz addmor		! herhaal dit 4 keer
 	jr fpnorm
 
+yyy:
+	.data2 fom
+
 fpmult:
 	call setsgn
 	add a,(hl)		! bereken exponent produkt
 	ld (hl),a		! fax exponent produkt
-	ld l,fom%256
+	ld a,(yyy)
+	ld l,a
 	ex de,hl		! gebruik de als wijzer
 	xor a
 	ld h,a
@@ -244,9 +254,12 @@ tstacc:
 init:
 	ld hl,xa		! initialiseer nog een paar registers
 	ld (hl),c
+	ld a,(xxx)
+	ld l,a
 	ld a,(fox)
-	ld l,fax%256
 	ret
+xxx:
+	.data2 fax
 
 fpcif:
 	ld de,(fpac)		! integer to convert
diff --git a/mach/z80/int/mli4.s b/mach/z80/int/mli4.s
index ce7927ef9..3c82d368a 100644
--- a/mach/z80/int/mli4.s
+++ b/mach/z80/int/mli4.s
@@ -1,4 +1,9 @@
 .define .mli4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! 32-bit multiply routine for z80
 ! parameters:
@@ -70,6 +75,6 @@
 			! on stack;  put return address in hl
 	push ix		! least sign. 2 bytes of result
 	jp (hl)		! return
-.data
-.flag:  .byte 0
+.sect .data
+.flag:  .data1 0
 .mplier: .space 4
-- 
2.34.1