adapted to new assembler

diff --git a/mach/i80/libem/aar2.s b/mach/i80/libem/aar2.s
index 1120755..0453fa0 100644 (file)
--- a/mach/i80/libem/aar2.s
+++ b/mach/i80/libem/aar2.s
@@ -1,4 +1,9 @@
 .define .aar2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Load address of array element, decriptor contains 2-bytes integers
 ! Expects on stack:    pointer to array descriptor

diff --git a/mach/i80/libem/adi4.s b/mach/i80/libem/adi4.s
index 9dba4b5..3d4271a 100644 (file)
--- a/mach/i80/libem/adi4.s
+++ b/mach/i80/libem/adi4.s
@@ -1,4 +1,9 @@
 .define .adi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Add two 32 bits signed or unsigned integers
 ! Expects on stack: operands

diff --git a/mach/i80/libem/and.s b/mach/i80/libem/and.s
index eab8d84..59a0253 100644 (file)
--- a/mach/i80/libem/and.s
+++ b/mach/i80/libem/and.s
@@ -1,4 +1,9 @@
 .define .and
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Any size logical-'and'.
 ! Expects:     size in de-registers

diff --git a/mach/i80/libem/blm.s b/mach/i80/libem/blm.s
index d7786f8..0ff5b91 100644 (file)
--- a/mach/i80/libem/blm.s
+++ b/mach/i80/libem/blm.s
@@ -1,4 +1,9 @@
 .define .blm
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Block move
 ! Expects in de-reg:   size of block

diff --git a/mach/i80/libem/cii.s b/mach/i80/libem/cii.s
index 64172b9..7d091da 100644 (file)
--- a/mach/i80/libem/cii.s
+++ b/mach/i80/libem/cii.s
@@ -1,4 +1,9 @@
 .define .cii
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Convert integer to integer
 ! Expects in a-reg:    1 for signed integer to signed integer (cii)

diff --git a/mach/i80/libem/cmi4.s b/mach/i80/libem/cmi4.s
index 88166a2..84c7c7d 100644 (file)
--- a/mach/i80/libem/cmi4.s
+++ b/mach/i80/libem/cmi4.s
@@ -1,4 +1,9 @@
 .define .cmi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Compare 32 bits integers
 ! Expects:     operands on stack

diff --git a/mach/i80/libem/cms.s b/mach/i80/libem/cms.s
index 78c691f..3e4c91d 100644 (file)
--- a/mach/i80/libem/cms.s
+++ b/mach/i80/libem/cms.s
@@ -1,4 +1,9 @@
 .define .cms
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Any size compare
 ! Expects:     size in de-registers

diff --git a/mach/i80/libem/com.s b/mach/i80/libem/com.s
index 6ed460f..6f0a4f0 100644 (file)
--- a/mach/i80/libem/com.s
+++ b/mach/i80/libem/com.s
@@ -1,4 +1,9 @@
 .define .com
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Complement bytes on top of stack.
 ! Expects in de-registers: number of bytes

diff --git a/mach/i80/libem/csa.s b/mach/i80/libem/csa.s
index 74bc9cf..9470481 100644 (file)
--- a/mach/i80/libem/csa.s
+++ b/mach/i80/libem/csa.s
@@ -1,4 +1,9 @@
 .define .csa
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Case jump
 ! Expects on stack:    address of case descriptor

diff --git a/mach/i80/libem/csb.s b/mach/i80/libem/csb.s
index 38be66f..7813c8b 100644 (file)
--- a/mach/i80/libem/csb.s
+++ b/mach/i80/libem/csb.s
@@ -1,4 +1,9 @@
 .define .csb
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Table lookup jump
 ! Expects on stack:    address of case descriptor

diff --git a/mach/i80/libem/dup.s b/mach/i80/libem/dup.s
index 0804ab4..50e0cc8 100644 (file)
--- a/mach/i80/libem/dup.s
+++ b/mach/i80/libem/dup.s
@@ -1,4 +1,9 @@
 .define .dup
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Duplicate top bytes of stack
 ! Expects in de-registers: number of bytes to duplicate

diff --git a/mach/i80/libem/dvi2.s b/mach/i80/libem/dvi2.s
index 8c11295..7498d98 100644 (file)
--- a/mach/i80/libem/dvi2.s
+++ b/mach/i80/libem/dvi2.s
@@ -1,5 +1,10 @@
-
 .define .dvi2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+
 
 ! 16 bits signed and unsigned integer divide and remainder routine
 ! Bit 0 of a-reg is set iff quotient has to be delivered

diff --git a/mach/i80/libem/dvi4.s b/mach/i80/libem/dvi4.s
index 6dd1a4f..a25806d 100644 (file)
--- a/mach/i80/libem/dvi4.s
+++ b/mach/i80/libem/dvi4.s
@@ -1,4 +1,9 @@
 .define .dvi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! 32 bits integer divide and remainder routine
 ! Bit 0 of a-reg is set iff quotient has to be delivered

diff --git a/mach/i80/libem/exg.s b/mach/i80/libem/exg.s
index 0f17311..8a345b0 100644 (file)
--- a/mach/i80/libem/exg.s
+++ b/mach/i80/libem/exg.s
@@ -1,4 +1,9 @@
 .define .exg
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Exchange top bytes of stack
 ! Expects in de-registers the number of bytes to be exchanged.

diff --git a/mach/i80/libem/flp.s b/mach/i80/libem/flp.s
index 45e8c1f..404c8d1 100644 (file)
--- a/mach/i80/libem/flp.s
+++ b/mach/i80/libem/flp.s
@@ -3,6 +3,11 @@
 .define .zrf4,.zrf8
 .define .cfi,.cif,.cuf,.cff,.cfu
 .define .cmf4,.cmf8
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Floating point is not implemented
 

diff --git a/mach/i80/libem/inn.s b/mach/i80/libem/inn.s
index 22ff2e8..c39b875 100644 (file)
--- a/mach/i80/libem/inn.s
+++ b/mach/i80/libem/inn.s
@@ -1,4 +1,9 @@
 .define .inn
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Any size bit test on set.
 ! Expects in de-reg:   size of set (in bytes)

diff --git a/mach/i80/libem/ior.s b/mach/i80/libem/ior.s
index f22f7ab..cd7793b 100644 (file)
--- a/mach/i80/libem/ior.s
+++ b/mach/i80/libem/ior.s
@@ -1,4 +1,9 @@
 .define .ior
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 
 ! Any size inclusive-or.

diff --git a/mach/i80/libem/lar2.s b/mach/i80/libem/lar2.s
index bbe2248..82658ff 100644 (file)
--- a/mach/i80/libem/lar2.s
+++ b/mach/i80/libem/lar2.s
@@ -1,4 +1,9 @@
 .define .lar2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Load array element, descriptor contains 2-bytes integers
 ! Expects on stack:    pointer to array descriptor

diff --git a/mach/i80/libem/loi.s b/mach/i80/libem/loi.s
index 46ce475..6eebb87 100644 (file)
--- a/mach/i80/libem/loi.s
+++ b/mach/i80/libem/loi.s
@@ -1,4 +1,9 @@
 .define .loi
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Load indirect
 ! Expects in de-registers: number of bytes to be loaded

diff --git a/mach/i80/libem/mli2.s b/mach/i80/libem/mli2.s
index 9468059..64f7156 100644 (file)
--- a/mach/i80/libem/mli2.s
+++ b/mach/i80/libem/mli2.s
@@ -1,4 +1,9 @@
 .define .mli2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 !  16 bits signed integer multiply
 !  the algorithm multiples A * B, where A = A0*2^8 + A1 and B = B0*2^8 + B1

diff --git a/mach/i80/libem/mli4.s b/mach/i80/libem/mli4.s
index 4a5d0aa..eab29dd 100644 (file)
--- a/mach/i80/libem/mli4.s
+++ b/mach/i80/libem/mli4.s
@@ -1,4 +1,9 @@
 .define .mli4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! 32 bits signed and unsigned integer multiply routine
 ! Expects operands on stack

diff --git a/mach/i80/libem/mlu2.s b/mach/i80/libem/mlu2.s
index 5f1bc5e..4f4b700 100644 (file)
--- a/mach/i80/libem/mlu2.s
+++ b/mach/i80/libem/mlu2.s
@@ -1,4 +1,9 @@
 .define .mlu2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! 16 bits unsigned multiply routine
 ! Expects operands on stack

diff --git a/mach/i80/libem/ngi4.s b/mach/i80/libem/ngi4.s
index 4a12acc..18a8d2a 100644 (file)
--- a/mach/i80/libem/ngi4.s
+++ b/mach/i80/libem/ngi4.s
@@ -1,4 +1,9 @@
 .define .ngi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Exchange 32 bits integer by its two's complement
 ! Expects operand on stack

diff --git a/mach/i80/libem/nop.s b/mach/i80/libem/nop.s
index e897bbe..c0d3148 100644 (file)
--- a/mach/i80/libem/nop.s
+++ b/mach/i80/libem/nop.s
@@ -1,4 +1,9 @@
 .define .nop
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 .nop:  push b
        lhld hol0+4

diff --git a/mach/i80/libem/rck.s b/mach/i80/libem/rck.s
index 62bc68a..0bfc326 100644 (file)
--- a/mach/i80/libem/rck.s
+++ b/mach/i80/libem/rck.s
@@ -1,4 +1,9 @@
 .define .rck
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Range check
 ! Expects on stack: address of range check descriptor

diff --git a/mach/i80/libem/rol4.s b/mach/i80/libem/rol4.s
index 8f4fcef..de26f07 100644 (file)
--- a/mach/i80/libem/rol4.s
+++ b/mach/i80/libem/rol4.s
@@ -1,4 +1,9 @@
 .define .rol4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Rotate 4 bytes left
 ! Expects in de-reg:   number of rotates

diff --git a/mach/i80/libem/ror4.s b/mach/i80/libem/ror4.s
index c071242..83ac56c 100644 (file)
--- a/mach/i80/libem/ror4.s
+++ b/mach/i80/libem/ror4.s
@@ -1,4 +1,9 @@
 .define .ror4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Rotate 4 bytes right
 ! Expects in de-reg:   number of rotates

diff --git a/mach/i80/libem/sar2.s b/mach/i80/libem/sar2.s
index a1bde05..6e1694e 100644 (file)
--- a/mach/i80/libem/sar2.s
+++ b/mach/i80/libem/sar2.s
@@ -1,4 +1,9 @@
 .define .sar2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Store array element, descriptor contains 2-bytes integers
 ! Expects on stack:    pointer to array descriptor

diff --git a/mach/i80/libem/sbi4.s b/mach/i80/libem/sbi4.s
index ed6354f..7cf0e9c 100644 (file)
--- a/mach/i80/libem/sbi4.s
+++ b/mach/i80/libem/sbi4.s
@@ -1,4 +1,9 @@
 .define .sbi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Subtract two 32 bits signed or unsigned integers.
 ! Expects operands on stack

diff --git a/mach/i80/libem/set.s b/mach/i80/libem/set.s
index df0242d..3f47829 100644 (file)
--- a/mach/i80/libem/set.s
+++ b/mach/i80/libem/set.s
@@ -1,4 +1,9 @@
 .define .set
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Create set with one bit on
 ! Expects in de-reg:   size of set to be created

diff --git a/mach/i80/libem/set2.s b/mach/i80/libem/set2.s
index 482008c..4ec1312 100644 (file)
--- a/mach/i80/libem/set2.s
+++ b/mach/i80/libem/set2.s
@@ -1,4 +1,9 @@
 .define .set2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Create 16 bits set with one bit on
 ! Expects in de-reg:   bit number

diff --git a/mach/i80/libem/sli2.s b/mach/i80/libem/sli2.s
index f7745fd..c8765d2 100644 (file)
--- a/mach/i80/libem/sli2.s
+++ b/mach/i80/libem/sli2.s
@@ -1,4 +1,9 @@
 .define .sli2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Shift 16 bits integer left
 ! Expects on stack:    number of shifts

diff --git a/mach/i80/libem/sli4.s b/mach/i80/libem/sli4.s
index ec087cf..b791aae 100644 (file)
--- a/mach/i80/libem/sli4.s
+++ b/mach/i80/libem/sli4.s
@@ -1,4 +1,9 @@
 .define .sli4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Shift 32 bits integer left
 ! Expects on stack:    number of shifts

diff --git a/mach/i80/libem/sri2.s b/mach/i80/libem/sri2.s
index fa93dfd..011cd10 100644 (file)
--- a/mach/i80/libem/sri2.s
+++ b/mach/i80/libem/sri2.s
@@ -1,4 +1,9 @@
 .define .sri2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Shift 16 bits signed or unsigned integer right
 ! Expects in a-reg.:   1 if signed integer

diff --git a/mach/i80/libem/sri4.s b/mach/i80/libem/sri4.s
index 5205c58..e6edd58 100644 (file)
--- a/mach/i80/libem/sri4.s
+++ b/mach/i80/libem/sri4.s
@@ -1,4 +1,9 @@
 .define .sri4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Shift 32 bits signed or unsigned integer right
 ! Expects in a-reg.:   1 if signed integer

diff --git a/mach/i80/libem/sti.s b/mach/i80/libem/sti.s
index 7cd2418..bdaead5 100644 (file)
--- a/mach/i80/libem/sti.s
+++ b/mach/i80/libem/sti.s
@@ -1,4 +1,9 @@
 .define .sti
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Store indirect
 ! Expects on stack:    number of bytes to be stored

diff --git a/mach/i80/libem/xor.s b/mach/i80/libem/xor.s
index 143db95..011e590 100644 (file)
--- a/mach/i80/libem/xor.s
+++ b/mach/i80/libem/xor.s
@@ -1,4 +1,9 @@
 .define .xor
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 
 ! Any size exclusive-or.