From 1b09e55129165b9c646ac658ca9b9ba67c797eff Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 30 Jan 1987 18:41:42 +0000
Subject: [PATCH] new assembler syntax

---
 mach/6500/libem/aar.s        |  5 +++++
 mach/6500/libem/addsub.s     |  5 +++++
 mach/6500/libem/adi.s        |  5 +++++
 mach/6500/libem/adi4.s       |  5 +++++
 mach/6500/libem/and.s        |  5 +++++
 mach/6500/libem/asp.s        |  5 +++++
 mach/6500/libem/blm.s        |  5 +++++
 mach/6500/libem/cii.s        |  5 +++++
 mach/6500/libem/cmi.s        |  5 +++++
 mach/6500/libem/cmi4.s       |  5 +++++
 mach/6500/libem/cms.s        |  5 +++++
 mach/6500/libem/cmu.s        |  5 +++++
 mach/6500/libem/cmu4.s       |  5 +++++
 mach/6500/libem/com.s        |  5 +++++
 mach/6500/libem/csa.s        |  5 +++++
 mach/6500/libem/csb.s        |  5 +++++
 mach/6500/libem/data.s       |  7 ++++++-
 mach/6500/libem/div4.s       |  5 +++++
 mach/6500/libem/dum_float.s  |  5 +++++
 mach/6500/libem/dup.s        |  5 +++++
 mach/6500/libem/duv4.s       |  5 +++++
 mach/6500/libem/dvi.s        |  5 +++++
 mach/6500/libem/dvi4.s       |  5 +++++
 mach/6500/libem/dvu.s        |  5 +++++
 mach/6500/libem/dvu4.s       |  5 +++++
 mach/6500/libem/end.s        | 11 ++++++++---
 mach/6500/libem/exg.s        |  5 +++++
 mach/6500/libem/exg2.s       |  5 +++++
 mach/6500/libem/gto.s        |  5 +++++
 mach/6500/libem/head_em.s    | 14 ++++++++++----
 mach/6500/libem/indir.s      |  5 +++++
 mach/6500/libem/inn.s        |  5 +++++
 mach/6500/libem/ior.s        |  5 +++++
 mach/6500/libem/lar.s        |  5 +++++
 mach/6500/libem/lcs.s        |  5 +++++
 mach/6500/libem/ldi.s        |  5 +++++
 mach/6500/libem/locaddr.s    |  5 +++++
 mach/6500/libem/loi.s        |  5 +++++
 mach/6500/libem/loi1.s       |  5 +++++
 mach/6500/libem/loil.s       |  5 +++++
 mach/6500/libem/lol.s        |  5 +++++
 mach/6500/libem/los.s        |  5 +++++
 mach/6500/libem/lxa1.s       |  5 +++++
 mach/6500/libem/lxa2.s       |  5 +++++
 mach/6500/libem/lxl.s        |  5 +++++
 mach/6500/libem/mli.s        |  5 +++++
 mach/6500/libem/mli4.s       |  5 +++++
 mach/6500/libem/mlu.s        |  5 +++++
 mach/6500/libem/mlu4.s       |  5 +++++
 mach/6500/libem/mon.s        |  5 +++++
 mach/6500/libem/mul4.s       |  5 +++++
 mach/6500/libem/ngi.s        |  5 +++++
 mach/6500/libem/ngi4.s       |  5 +++++
 mach/6500/libem/print.s      |  5 +++++
 mach/6500/libem/printhex.s   |  5 +++++
 mach/6500/libem/printstack.s |  5 +++++
 mach/6500/libem/pro.s        |  5 +++++
 mach/6500/libem/read.s       |  5 +++++
 mach/6500/libem/ret.s        |  5 +++++
 mach/6500/libem/rmi.s        |  5 +++++
 mach/6500/libem/rmi4.s       |  5 +++++
 mach/6500/libem/rmu.s        |  5 +++++
 mach/6500/libem/rmu4.s       |  5 +++++
 mach/6500/libem/rol.s        |  5 +++++
 mach/6500/libem/rol4.s       |  5 +++++
 mach/6500/libem/ror.s        |  5 +++++
 mach/6500/libem/ror4.s       |  5 +++++
 mach/6500/libem/rtt.s        |  5 +++++
 mach/6500/libem/sar.s        |  5 +++++
 mach/6500/libem/sbi.s        |  5 +++++
 mach/6500/libem/sbi4.s       |  5 +++++
 mach/6500/libem/sdl.s        |  5 +++++
 mach/6500/libem/set.s        |  5 +++++
 mach/6500/libem/sli.s        |  5 +++++
 mach/6500/libem/sli4.s       |  5 +++++
 mach/6500/libem/sri.s        |  5 +++++
 mach/6500/libem/sri4.s       |  5 +++++
 mach/6500/libem/sti.s        |  5 +++++
 mach/6500/libem/sti1.s       |  5 +++++
 mach/6500/libem/stil.s       |  5 +++++
 mach/6500/libem/stl.s        |  5 +++++
 mach/6500/libem/sts.s        |  5 +++++
 mach/6500/libem/teq.s        |  5 +++++
 mach/6500/libem/test2.s      |  5 +++++
 mach/6500/libem/testFFh.s    |  5 +++++
 mach/6500/libem/tge.s        |  5 +++++
 mach/6500/libem/tgt.s        |  5 +++++
 mach/6500/libem/tle.s        |  5 +++++
 mach/6500/libem/tlt.s        |  5 +++++
 mach/6500/libem/tne.s        |  5 +++++
 mach/6500/libem/trap.s       |  5 +++++
 mach/6500/libem/write.s      |  5 +++++
 mach/6500/libem/xor.s        |  5 +++++
 mach/6500/libem/zer.s        |  5 +++++
 mach/6500/libem/zri.s        |  5 +++++
 95 files changed, 484 insertions(+), 8 deletions(-)

diff --git a/mach/6500/libem/aar.s b/mach/6500/libem/aar.s
index 4f65ca879..8ec8eab0e 100644
--- a/mach/6500/libem/aar.s
+++ b/mach/6500/libem/aar.s
@@ -1,4 +1,9 @@
 .define Aar
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine gets the address of the array element
 
diff --git a/mach/6500/libem/addsub.s b/mach/6500/libem/addsub.s
index 07ad393e5..488dba0c2 100644
--- a/mach/6500/libem/addsub.s
+++ b/mach/6500/libem/addsub.s
@@ -1,4 +1,9 @@
 .define Addsub
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine is used by the fourbyte addition and subtraction
 ! routines.
diff --git a/mach/6500/libem/adi.s b/mach/6500/libem/adi.s
index 7dc95651a..a915cf443 100644
--- a/mach/6500/libem/adi.s
+++ b/mach/6500/libem/adi.s
@@ -1,4 +1,9 @@
 .define  Adi2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine adds two twobyte integers.
 ! The first operand is on the top of the stack, the second operand
diff --git a/mach/6500/libem/adi4.s b/mach/6500/libem/adi4.s
index 80f58f30f..3fbf52876 100644
--- a/mach/6500/libem/adi4.s
+++ b/mach/6500/libem/adi4.s
@@ -1,4 +1,9 @@
 .define Adi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine adds two fourbyte integers, which are on the stack.
 ! The addresses are initiated by the subroutine Addsub.
diff --git a/mach/6500/libem/and.s b/mach/6500/libem/and.s
index c626f0eba..84118969d 100644
--- a/mach/6500/libem/and.s
+++ b/mach/6500/libem/and.s
@@ -1,4 +1,9 @@
 .define And
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the logical and on two groups of
 ! atmost 254 bytes. The number of bytes is in register Y.
diff --git a/mach/6500/libem/asp.s b/mach/6500/libem/asp.s
index 1581942ca..e873160da 100644
--- a/mach/6500/libem/asp.s
+++ b/mach/6500/libem/asp.s
@@ -1,4 +1,9 @@
 .define Asp
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine adds an offset to the stackpointer,
 ! e.g. after the return from a procedurecall.
diff --git a/mach/6500/libem/blm.s b/mach/6500/libem/blm.s
index df8cb0618..8fa4b2b5e 100644
--- a/mach/6500/libem/blm.s
+++ b/mach/6500/libem/blm.s
@@ -1,4 +1,9 @@
 .define Blm, Blmnp
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine copies bytes from one place in memory to
 ! another. The source address is in registerpair AX and is stored
diff --git a/mach/6500/libem/cii.s b/mach/6500/libem/cii.s
index 1eff42147..7ed2f71ec 100644
--- a/mach/6500/libem/cii.s
+++ b/mach/6500/libem/cii.s
@@ -1,4 +1,9 @@
 .define Cii
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine converts integers to integers.
 ! Convertions of integers with the same source size as destination
diff --git a/mach/6500/libem/cmi.s b/mach/6500/libem/cmi.s
index ada74148e..c53a9854d 100644
--- a/mach/6500/libem/cmi.s
+++ b/mach/6500/libem/cmi.s
@@ -1,4 +1,9 @@
 .define Cmi
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine compares on two integers.
 ! If T is pushed first and than S, the routine will return:
diff --git a/mach/6500/libem/cmi4.s b/mach/6500/libem/cmi4.s
index 534163604..59d0d202c 100644
--- a/mach/6500/libem/cmi4.s
+++ b/mach/6500/libem/cmi4.s
@@ -1,4 +1,9 @@
 .define Cmi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine compares on fourbyte integers.
 ! If T is pushed first and than S, the routine will return:
diff --git a/mach/6500/libem/cms.s b/mach/6500/libem/cms.s
index 1105b16e7..a8c98b176 100644
--- a/mach/6500/libem/cms.s
+++ b/mach/6500/libem/cms.s
@@ -1,4 +1,9 @@
 .define Cms
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine compares two groups of bytes, bit for bit.
 ! The groups can consist of 2 or 4 bytes. This number is in
diff --git a/mach/6500/libem/cmu.s b/mach/6500/libem/cmu.s
index 5c55ff5f2..fac30df32 100644
--- a/mach/6500/libem/cmu.s
+++ b/mach/6500/libem/cmu.s
@@ -1,4 +1,9 @@
 .define Cmu2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine compares two unsigned twobyte integers.
 ! If T is the first pushed and than S, the routine will return:
diff --git a/mach/6500/libem/cmu4.s b/mach/6500/libem/cmu4.s
index 2275e9f9b..8cb46e664 100644
--- a/mach/6500/libem/cmu4.s
+++ b/mach/6500/libem/cmu4.s
@@ -1,4 +1,9 @@
 .define Cmu4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine compares two unsigned fourbyte integers.
 ! If T is first pushed and than S the routine will return:
diff --git a/mach/6500/libem/com.s b/mach/6500/libem/com.s
index 300794f11..5370da047 100644
--- a/mach/6500/libem/com.s
+++ b/mach/6500/libem/com.s
@@ -1,4 +1,9 @@
 .define Com
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs a one complement on
 ! a group of atmost 254 bytes (number in register Y).
diff --git a/mach/6500/libem/csa.s b/mach/6500/libem/csa.s
index 61a88b5ff..268cf40c7 100644
--- a/mach/6500/libem/csa.s
+++ b/mach/6500/libem/csa.s
@@ -1,4 +1,9 @@
 .define Csa
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the case jump by indexing.
 ! The zeropage locations ADDR, ADDR+1 contain the address of
diff --git a/mach/6500/libem/csb.s b/mach/6500/libem/csb.s
index 37185097c..666098139 100644
--- a/mach/6500/libem/csb.s
+++ b/mach/6500/libem/csb.s
@@ -1,4 +1,9 @@
 .define Csb
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the case jump by searching the table.
 ! The zeropage locations ADDR, ADDR+1 contain the address of the
diff --git a/mach/6500/libem/data.s b/mach/6500/libem/data.s
index 61da1b98c..630a1d9e7 100644
--- a/mach/6500/libem/data.s
+++ b/mach/6500/libem/data.s
@@ -2,12 +2,17 @@
 .define ECONV,ESTACK
 .define EHEAP,EODDZ,ECASE
 .define EBADMON,EBADLIN,EBADGTO
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This file contains the global data used by the trap routine.
 
 
 ! DATA
-.data
+.sect .data
 EARRAY:
 .asciz	"Array bound error\n\r"
 ERANGE:
diff --git a/mach/6500/libem/div4.s b/mach/6500/libem/div4.s
index 3cd68a1db..62235091c 100644
--- a/mach/6500/libem/div4.s
+++ b/mach/6500/libem/div4.s
@@ -1,4 +1,9 @@
 .define Div4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs a signed divide on two fourbyte integers.
 ! For more detail see dvi.s
diff --git a/mach/6500/libem/dum_float.s b/mach/6500/libem/dum_float.s
index b4f497023..d5a80d1a7 100644
--- a/mach/6500/libem/dum_float.s
+++ b/mach/6500/libem/dum_float.s
@@ -23,6 +23,11 @@
 .define Cfu
 .define Lfr8
 .define Ret8
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Dummy floating point package for 6500
 ! every EM floating point instruction results in an
diff --git a/mach/6500/libem/dup.s b/mach/6500/libem/dup.s
index 22e33ac58..95665866a 100644
--- a/mach/6500/libem/dup.s
+++ b/mach/6500/libem/dup.s
@@ -1,4 +1,9 @@
 .define Dup
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine duplicate's the top n (in register Y) bytes.
 ! N is atmost 256.
diff --git a/mach/6500/libem/duv4.s b/mach/6500/libem/duv4.s
index 1395a6721..551aaa79d 100644
--- a/mach/6500/libem/duv4.s
+++ b/mach/6500/libem/duv4.s
@@ -1,4 +1,9 @@
 .define Duv4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs an unsigned division on two fourbyte
 ! unsigned integers.
diff --git a/mach/6500/libem/dvi.s b/mach/6500/libem/dvi.s
index 3f5d69a2a..9d92b5d07 100644
--- a/mach/6500/libem/dvi.s
+++ b/mach/6500/libem/dvi.s
@@ -1,4 +1,9 @@
 .define Dvi2, Div, Duv
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! The subroutine Dvi2 performs a signed division.
 ! Its operands are on the stack.
diff --git a/mach/6500/libem/dvi4.s b/mach/6500/libem/dvi4.s
index 5b068ab37..398f43d7d 100644
--- a/mach/6500/libem/dvi4.s
+++ b/mach/6500/libem/dvi4.s
@@ -1,4 +1,9 @@
 .define Dvi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs a fourbyte signed division.
 ! For more details see dvi.s
diff --git a/mach/6500/libem/dvu.s b/mach/6500/libem/dvu.s
index 1cb6b8dfb..75558e911 100644
--- a/mach/6500/libem/dvu.s
+++ b/mach/6500/libem/dvu.s
@@ -1,4 +1,9 @@
 .define Dvu2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs a twobyte unsigned division
 ! For more details see dvi.s.
diff --git a/mach/6500/libem/dvu4.s b/mach/6500/libem/dvu4.s
index 099cf8938..cf7232c31 100644
--- a/mach/6500/libem/dvu4.s
+++ b/mach/6500/libem/dvu4.s
@@ -1,4 +1,9 @@
 .define Dvu4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs an unsigned division on fourbyte
 ! integers. For more details see dvi.s
diff --git a/mach/6500/libem/end.s b/mach/6500/libem/end.s
index 966af2a8e..1bb218ebb 100644
--- a/mach/6500/libem/end.s
+++ b/mach/6500/libem/end.s
@@ -1,12 +1,17 @@
 .define endtext, enddata, endbss, end
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
-.text
+.sect .text
 endtext:
 .align 2
-.data
+.sect .data
 .align 2
 enddata:
-.bss
+.sect .bss
 .align 2
 endbss:
 end:
diff --git a/mach/6500/libem/exg.s b/mach/6500/libem/exg.s
index 12be6e586..2805b4192 100644
--- a/mach/6500/libem/exg.s
+++ b/mach/6500/libem/exg.s
@@ -1,4 +1,9 @@
 .define Exg
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine exchanges two groups of bytes on the top of the
 ! stack. The groups may consist of atmost 255 bytes.
diff --git a/mach/6500/libem/exg2.s b/mach/6500/libem/exg2.s
index 0e56587f5..0f1849e52 100644
--- a/mach/6500/libem/exg2.s
+++ b/mach/6500/libem/exg2.s
@@ -1,4 +1,9 @@
 .define Exg2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine exchanges two words on top of the stack.
 ! The top word of the stack is really in the AX registerpair.
diff --git a/mach/6500/libem/gto.s b/mach/6500/libem/gto.s
index 90d168e01..500ae1d98 100644
--- a/mach/6500/libem/gto.s
+++ b/mach/6500/libem/gto.s
@@ -1,4 +1,9 @@
 .define Gto
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the non_local goto.
 ! The address of the descriptor is stored in zeropage locations
diff --git a/mach/6500/libem/head_em.s b/mach/6500/libem/head_em.s
index 614e09ea7..873976c4a 100644
--- a/mach/6500/libem/head_em.s
+++ b/mach/6500/libem/head_em.s
@@ -9,6 +9,12 @@
 .define RETSIZE, TRAPVAL, STACK, BRANCH
 .define start, Push, Pop, STACKTh, STACKTl
 .define F_DUM
+.sect .zero
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! DEFINITIONS
 
@@ -51,7 +57,7 @@ STACKTl = 0D0h
 
 	! Some zeropage declarations
 
-.zero
+.sect .zero
 
 RES: .space 76		! special for the operating system
 
@@ -97,8 +103,8 @@ STACK: .space 1		! contains the hardware stackpointer on
 
 RESERVED: .space 112    ! used by the operating system
 
+.sect .text
 .base 0E02h		! where to start in the BBC micro
-.text
 ! GENERAL PURPOSE ROUTINES
 
 start:
@@ -220,8 +226,8 @@ Pop:
 	rts
 
 
-.data
+.sect .data
 PROGNAME:		! for initialising the programname pointer
 .asciz "program"
-.bss
+.sect .bss
 beginbss:
diff --git a/mach/6500/libem/indir.s b/mach/6500/libem/indir.s
index 644251289..4ad1c61ce 100644
--- a/mach/6500/libem/indir.s
+++ b/mach/6500/libem/indir.s
@@ -1,4 +1,9 @@
 .define Indir
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs an indirect procedurecall.
 ! This must be done this way since the jump instruction
diff --git a/mach/6500/libem/inn.s b/mach/6500/libem/inn.s
index 3ac1550ca..0a1c7f923 100644
--- a/mach/6500/libem/inn.s
+++ b/mach/6500/libem/inn.s
@@ -1,4 +1,9 @@
 .define Inn
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine checks if a certain bit is set in a set
 ! of n bytes on top of the stack.
diff --git a/mach/6500/libem/ior.s b/mach/6500/libem/ior.s
index 0ba1a3812..961040ae9 100644
--- a/mach/6500/libem/ior.s
+++ b/mach/6500/libem/ior.s
@@ -1,4 +1,9 @@
 .define Ior
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the logical inclusive or on two
 ! groups of bytes. The groups may consist of atmost 254 bytes.
diff --git a/mach/6500/libem/lar.s b/mach/6500/libem/lar.s
index 15bb581d3..8f490befc 100644
--- a/mach/6500/libem/lar.s
+++ b/mach/6500/libem/lar.s
@@ -1,4 +1,9 @@
 .define Lar
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the LAR instruction.
 ! For details see rapport IR-81.
diff --git a/mach/6500/libem/lcs.s b/mach/6500/libem/lcs.s
index 7c387f5ca..b03851418 100644
--- a/mach/6500/libem/lcs.s
+++ b/mach/6500/libem/lcs.s
@@ -1,4 +1,9 @@
 .define Lcs
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine creates space for locals on procedure entry
 ! by lowering the stackpointer.
diff --git a/mach/6500/libem/ldi.s b/mach/6500/libem/ldi.s
index a5b056a76..787232567 100644
--- a/mach/6500/libem/ldi.s
+++ b/mach/6500/libem/ldi.s
@@ -1,4 +1,9 @@
 .define Ldi, Ldo
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! The subroutine Ldi pushes a four byte object onto the stack.
 ! The address is in registerpair AX.
diff --git a/mach/6500/libem/locaddr.s b/mach/6500/libem/locaddr.s
index 2156f7e1b..3ab776e9c 100644
--- a/mach/6500/libem/locaddr.s
+++ b/mach/6500/libem/locaddr.s
@@ -1,4 +1,9 @@
 .define Locaddr
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This routine gets the address of a local which offset is to big.
 ! The offset is in registerpair AX.
diff --git a/mach/6500/libem/loi.s b/mach/6500/libem/loi.s
index 45c135ea1..70e8dc6a2 100644
--- a/mach/6500/libem/loi.s
+++ b/mach/6500/libem/loi.s
@@ -1,4 +1,9 @@
 .define Loi, Lext
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 ! This subroutine performs an indirect load on a word of two bytes.
 ! Lext is used when the address is already in zeropage.
 
diff --git a/mach/6500/libem/loi1.s b/mach/6500/libem/loi1.s
index 82109224d..956c314f0 100644
--- a/mach/6500/libem/loi1.s
+++ b/mach/6500/libem/loi1.s
@@ -1,4 +1,9 @@
 .define Loi1
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This routine loads a one byte object in registerpair AX.
 
diff --git a/mach/6500/libem/loil.s b/mach/6500/libem/loil.s
index 4c0e35976..afc4d337f 100644
--- a/mach/6500/libem/loil.s
+++ b/mach/6500/libem/loil.s
@@ -1,4 +1,9 @@
 .define Loil
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine pushes an object of size greater than four bytes
 ! onto the stack.
diff --git a/mach/6500/libem/lol.s b/mach/6500/libem/lol.s
index 6f1bce055..7acf29c7e 100644
--- a/mach/6500/libem/lol.s
+++ b/mach/6500/libem/lol.s
@@ -1,4 +1,9 @@
 .define Lol
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine loads a local in registerpair AX which
 ! offset from the localbase is to big.
diff --git a/mach/6500/libem/los.s b/mach/6500/libem/los.s
index 1ba88f667..757b5e0c1 100644
--- a/mach/6500/libem/los.s
+++ b/mach/6500/libem/los.s
@@ -1,4 +1,9 @@
 .define Los
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine perfoms the LOS instruction.
 ! For detail see rapport IR-81.
diff --git a/mach/6500/libem/lxa1.s b/mach/6500/libem/lxa1.s
index 402ef8b7a..867db4aba 100644
--- a/mach/6500/libem/lxa1.s
+++ b/mach/6500/libem/lxa1.s
@@ -1,4 +1,9 @@
 .define Lxa1
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine loads the address of AB zero static levels back.
 
diff --git a/mach/6500/libem/lxa2.s b/mach/6500/libem/lxa2.s
index 58df1dccc..4bf4d7c14 100644
--- a/mach/6500/libem/lxa2.s
+++ b/mach/6500/libem/lxa2.s
@@ -1,4 +1,9 @@
 .define Lxa2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine load the address of AB n (255 >= n > 0) static levels
 ! back.
diff --git a/mach/6500/libem/lxl.s b/mach/6500/libem/lxl.s
index d72c9fb06..5b3e96f63 100644
--- a/mach/6500/libem/lxl.s
+++ b/mach/6500/libem/lxl.s
@@ -1,4 +1,9 @@
 .define Lxl
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine loads LB n (255 => n > 0) static levels back.
 
diff --git a/mach/6500/libem/mli.s b/mach/6500/libem/mli.s
index b441229da..fa347ef26 100644
--- a/mach/6500/libem/mli.s
+++ b/mach/6500/libem/mli.s
@@ -1,4 +1,9 @@
 .define Mli2, Mlinp, Mul
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! The subroutine Mli2 multiplies two signed integers. The integers
 ! are popped from the stack.
diff --git a/mach/6500/libem/mli4.s b/mach/6500/libem/mli4.s
index 81b59ff85..629c01b73 100644
--- a/mach/6500/libem/mli4.s
+++ b/mach/6500/libem/mli4.s
@@ -1,4 +1,9 @@
 .define Mli4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine multiplies two signed fourbyte integers
 ! For more detail see mli.s
diff --git a/mach/6500/libem/mlu.s b/mach/6500/libem/mlu.s
index c11f835cf..6820f88b6 100644
--- a/mach/6500/libem/mlu.s
+++ b/mach/6500/libem/mlu.s
@@ -1,4 +1,9 @@
 .define Mlu2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine multiplies two unsigned fourbyte intergers.
 ! For more details see mli.s
diff --git a/mach/6500/libem/mlu4.s b/mach/6500/libem/mlu4.s
index 4d6b04361..44b7771b9 100644
--- a/mach/6500/libem/mlu4.s
+++ b/mach/6500/libem/mlu4.s
@@ -1,4 +1,9 @@
 .define Mlu4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine multiplies two fourbyte unsigned integers.
 ! For more details see mli.s
diff --git a/mach/6500/libem/mon.s b/mach/6500/libem/mon.s
index 69a9dd5b8..1d094c51a 100644
--- a/mach/6500/libem/mon.s
+++ b/mach/6500/libem/mon.s
@@ -1,4 +1,9 @@
 .define Mon
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs some monitor calls.
 ! The exit call just resets the hardware_stackpointer so
diff --git a/mach/6500/libem/mul4.s b/mach/6500/libem/mul4.s
index 98d046f42..f378a2d8c 100644
--- a/mach/6500/libem/mul4.s
+++ b/mach/6500/libem/mul4.s
@@ -1,4 +1,9 @@
 .define Mul4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine multiplies two fourbyte signed integers.
 ! For more details see mli.s
diff --git a/mach/6500/libem/ngi.s b/mach/6500/libem/ngi.s
index d375b1996..1c6d50e7e 100644
--- a/mach/6500/libem/ngi.s
+++ b/mach/6500/libem/ngi.s
@@ -1,4 +1,9 @@
 .define Ngi2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine negates the integer in registerpair AX.
 ! The negation is a one's complement plus one.
diff --git a/mach/6500/libem/ngi4.s b/mach/6500/libem/ngi4.s
index f62cd4898..c19600c7c 100644
--- a/mach/6500/libem/ngi4.s
+++ b/mach/6500/libem/ngi4.s
@@ -1,4 +1,9 @@
 .define Ngi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine takes a fourbyte interger and negates it.
 ! For more details see ngi2.s
diff --git a/mach/6500/libem/print.s b/mach/6500/libem/print.s
index 7cd70e32e..eea8e73d1 100644
--- a/mach/6500/libem/print.s
+++ b/mach/6500/libem/print.s
@@ -1,4 +1,9 @@
 .define Mprint
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine prints a zero terminated ascii string.
 ! The registerpair AX contains the start of the string.
diff --git a/mach/6500/libem/printhex.s b/mach/6500/libem/printhex.s
index be979a856..0d5c5bd82 100644
--- a/mach/6500/libem/printhex.s
+++ b/mach/6500/libem/printhex.s
@@ -1,4 +1,9 @@
 .define Printhex
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine print the contents of register A to the screen
 ! in hexadecimal form.
diff --git a/mach/6500/libem/printstack.s b/mach/6500/libem/printstack.s
index a554d9e54..27f1512ac 100644
--- a/mach/6500/libem/printstack.s
+++ b/mach/6500/libem/printstack.s
@@ -1,4 +1,9 @@
 .define Printstack
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This a special subroutine which prints some things to the
 ! monitorscreen for debugging.
diff --git a/mach/6500/libem/pro.s b/mach/6500/libem/pro.s
index 27a565fa2..066c378ed 100644
--- a/mach/6500/libem/pro.s
+++ b/mach/6500/libem/pro.s
@@ -1,4 +1,9 @@
 .define Pro
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This routine is called at the entry of a procedure.
 ! It saves the localbase of the invoking procedure, and sets the
diff --git a/mach/6500/libem/read.s b/mach/6500/libem/read.s
index 0f6ab67bc..12d2c58b7 100644
--- a/mach/6500/libem/read.s
+++ b/mach/6500/libem/read.s
@@ -1,4 +1,9 @@
 .define Mread
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine reads characters from the standard input.
 ! It ignores the filedes.
diff --git a/mach/6500/libem/ret.s b/mach/6500/libem/ret.s
index 8002fc1f3..ced8f062d 100644
--- a/mach/6500/libem/ret.s
+++ b/mach/6500/libem/ret.s
@@ -1,4 +1,9 @@
 .define Ret
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine stores the returnvalue in the return area.
 ! This area is in zeropage.
diff --git a/mach/6500/libem/rmi.s b/mach/6500/libem/rmi.s
index 12bc6425d..87295bead 100644
--- a/mach/6500/libem/rmi.s
+++ b/mach/6500/libem/rmi.s
@@ -1,4 +1,9 @@
 .define Rmi2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine returns the remainder of a twobyte signed division.
 ! The sign of the result is as specified in the emtest.
diff --git a/mach/6500/libem/rmi4.s b/mach/6500/libem/rmi4.s
index 0b221e2e5..fdeab6116 100644
--- a/mach/6500/libem/rmi4.s
+++ b/mach/6500/libem/rmi4.s
@@ -1,4 +1,9 @@
 .define Rmi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine returns the remainder of a fourbyte division.
 
diff --git a/mach/6500/libem/rmu.s b/mach/6500/libem/rmu.s
index dff2c3c70..82b0cbfb4 100644
--- a/mach/6500/libem/rmu.s
+++ b/mach/6500/libem/rmu.s
@@ -1,4 +1,9 @@
 .define Rmu2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine returns the remainder of an twobyte unsigned
 ! integer division.
diff --git a/mach/6500/libem/rmu4.s b/mach/6500/libem/rmu4.s
index e3c848cd7..8cfc7ead6 100644
--- a/mach/6500/libem/rmu4.s
+++ b/mach/6500/libem/rmu4.s
@@ -1,4 +1,9 @@
 .define Rmu4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine returns the remainder of a fourbyte unsigned
 ! division.
diff --git a/mach/6500/libem/rol.s b/mach/6500/libem/rol.s
index 34786e2b8..b486e32f6 100644
--- a/mach/6500/libem/rol.s
+++ b/mach/6500/libem/rol.s
@@ -1,4 +1,9 @@
 .define Rol
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine rotates left an integer n times
 ! N is in register X.
diff --git a/mach/6500/libem/rol4.s b/mach/6500/libem/rol4.s
index 5f0407277..f58c28109 100644
--- a/mach/6500/libem/rol4.s
+++ b/mach/6500/libem/rol4.s
@@ -1,4 +1,9 @@
 .define Rol4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine rotates left a fourbyte integer n times.
 ! N is in register X.
diff --git a/mach/6500/libem/ror.s b/mach/6500/libem/ror.s
index f70db75f1..dd54771e8 100644
--- a/mach/6500/libem/ror.s
+++ b/mach/6500/libem/ror.s
@@ -1,4 +1,9 @@
 .define Ror
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine rotates right a integer twobyte word.
 ! The number of rotates is in X.
diff --git a/mach/6500/libem/ror4.s b/mach/6500/libem/ror4.s
index e0b0d2dbe..00ad4b008 100644
--- a/mach/6500/libem/ror4.s
+++ b/mach/6500/libem/ror4.s
@@ -1,4 +1,9 @@
 .define Ror4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine rotates right a fourbyte word.
 ! The number of rotates is in X.
diff --git a/mach/6500/libem/rtt.s b/mach/6500/libem/rtt.s
index ed2d8b7d5..31e1cf3bc 100644
--- a/mach/6500/libem/rtt.s
+++ b/mach/6500/libem/rtt.s
@@ -1,4 +1,9 @@
 .define Rtt
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the return from trap.
 
diff --git a/mach/6500/libem/sar.s b/mach/6500/libem/sar.s
index 0b482a2c3..296052659 100644
--- a/mach/6500/libem/sar.s
+++ b/mach/6500/libem/sar.s
@@ -1,4 +1,9 @@
 .define Sar
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the SAR instruction.
 ! For details see rapport IR-81.
diff --git a/mach/6500/libem/sbi.s b/mach/6500/libem/sbi.s
index 8c5c3e395..d445b020f 100644
--- a/mach/6500/libem/sbi.s
+++ b/mach/6500/libem/sbi.s
@@ -1,4 +1,9 @@
 .define Sbi2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine subtracts two twobyte signed integers
 ! and returnes the result in registerpair AX.
diff --git a/mach/6500/libem/sbi4.s b/mach/6500/libem/sbi4.s
index b4a12a278..3d81396b1 100644
--- a/mach/6500/libem/sbi4.s
+++ b/mach/6500/libem/sbi4.s
@@ -1,4 +1,9 @@
 .define Sbi4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine subtracts two fourbyte signed integers.
 
diff --git a/mach/6500/libem/sdl.s b/mach/6500/libem/sdl.s
index 11def2b30..6e06a5d94 100644
--- a/mach/6500/libem/sdl.s
+++ b/mach/6500/libem/sdl.s
@@ -1,4 +1,9 @@
 .define Sdi, Sdo
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! The subroutine Sdi takes a fourbyte word and stores it
 ! at the address in registerpair AX.
diff --git a/mach/6500/libem/set.s b/mach/6500/libem/set.s
index f64f74f4f..8e7fc70e9 100644
--- a/mach/6500/libem/set.s
+++ b/mach/6500/libem/set.s
@@ -1,4 +1,9 @@
 .define Set
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine creates a set of n (n <= 256) bytes.
 ! In this set a certain bit, which number is in registerpair AX,
diff --git a/mach/6500/libem/sli.s b/mach/6500/libem/sli.s
index 9d1955938..e3ae200db 100644
--- a/mach/6500/libem/sli.s
+++ b/mach/6500/libem/sli.s
@@ -1,4 +1,9 @@
 .define Sli2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine shifts a signed or unsigned interger to the
 ! left n times.
diff --git a/mach/6500/libem/sli4.s b/mach/6500/libem/sli4.s
index d9c670cd5..d7dd43195 100644
--- a/mach/6500/libem/sli4.s
+++ b/mach/6500/libem/sli4.s
@@ -1,4 +1,9 @@
 .define Sli4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine shift a signed or unsigned fourbyte integer
 ! n times left. N is in register X.
diff --git a/mach/6500/libem/sri.s b/mach/6500/libem/sri.s
index da44e0726..7f9802818 100644
--- a/mach/6500/libem/sri.s
+++ b/mach/6500/libem/sri.s
@@ -1,4 +1,9 @@
 .define Sri2, Sru2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! The subroutine Sri2 shifts a signed integer n times right.
 ! In the case of a negative integer there is signextension.
diff --git a/mach/6500/libem/sri4.s b/mach/6500/libem/sri4.s
index 46b3b7bef..4b5336f30 100644
--- a/mach/6500/libem/sri4.s
+++ b/mach/6500/libem/sri4.s
@@ -1,4 +1,9 @@
 .define Sri4, Sru4
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! The subroutine Sri4 shifts a signed fourbyte integer to the
 ! right n times
diff --git a/mach/6500/libem/sti.s b/mach/6500/libem/sti.s
index b97722494..76a2d44ee 100644
--- a/mach/6500/libem/sti.s
+++ b/mach/6500/libem/sti.s
@@ -1,4 +1,9 @@
 .define Sti, Sext, Stii
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! The subroutine Sti stores an twobyte word at the address which
 ! is in registerpair AX.
diff --git a/mach/6500/libem/sti1.s b/mach/6500/libem/sti1.s
index 2665a8056..ad93f3267 100644
--- a/mach/6500/libem/sti1.s
+++ b/mach/6500/libem/sti1.s
@@ -1,4 +1,9 @@
 .define Sti1
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine stores an onebyte wordfractional at the address
 ! which is in registerpair AX.
diff --git a/mach/6500/libem/stil.s b/mach/6500/libem/stil.s
index c44f29795..d19df35a3 100644
--- a/mach/6500/libem/stil.s
+++ b/mach/6500/libem/stil.s
@@ -1,4 +1,9 @@
 .define Stil
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine stores indirect a block of bytes if 
 ! the number of bytes is greater than four.
diff --git a/mach/6500/libem/stl.s b/mach/6500/libem/stl.s
index 353e00b86..5b58f5fc4 100644
--- a/mach/6500/libem/stl.s
+++ b/mach/6500/libem/stl.s
@@ -1,4 +1,9 @@
 .define Stl
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the storage of a local which offset
 ! is to big.
diff --git a/mach/6500/libem/sts.s b/mach/6500/libem/sts.s
index 8c6ffa944..b2fdbe8ca 100644
--- a/mach/6500/libem/sts.s
+++ b/mach/6500/libem/sts.s
@@ -1,4 +1,9 @@
 .define Sts
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine stores indirect a number of bytes.
 ! The number of bytes is in the registerpair AX.
diff --git a/mach/6500/libem/teq.s b/mach/6500/libem/teq.s
index a346e6180..457bcd010 100644
--- a/mach/6500/libem/teq.s
+++ b/mach/6500/libem/teq.s
@@ -1,4 +1,9 @@
 .define Teq
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine test if the value in registerpair AX is zero
 ! or nonzero.
diff --git a/mach/6500/libem/test2.s b/mach/6500/libem/test2.s
index c07497c77..b1c70779a 100644
--- a/mach/6500/libem/test2.s
+++ b/mach/6500/libem/test2.s
@@ -1,4 +1,9 @@
 .define Test2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine tests if the value on top of the stack is 2.
 ! It is used if the size is on top of the stack.
diff --git a/mach/6500/libem/testFFh.s b/mach/6500/libem/testFFh.s
index a02c4544f..695ff0e5f 100644
--- a/mach/6500/libem/testFFh.s
+++ b/mach/6500/libem/testFFh.s
@@ -1,4 +1,9 @@
 .define TestFFh
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine tests if the value on top of the stack is <= 256.
 ! It is used if the istruction argument is on top of the stack.
diff --git a/mach/6500/libem/tge.s b/mach/6500/libem/tge.s
index 49050fd48..c18bdcbc1 100644
--- a/mach/6500/libem/tge.s
+++ b/mach/6500/libem/tge.s
@@ -1,4 +1,9 @@
 .define Tge
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine test if the value in registerpair AX is
 ! greater than or equal to zero.
diff --git a/mach/6500/libem/tgt.s b/mach/6500/libem/tgt.s
index e2e5f3ba3..68fe07fef 100644
--- a/mach/6500/libem/tgt.s
+++ b/mach/6500/libem/tgt.s
@@ -1,4 +1,9 @@
 .define Tgt
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine tests if the value in registerpair AX is
 ! greater than zero.
diff --git a/mach/6500/libem/tle.s b/mach/6500/libem/tle.s
index 073bdbb63..8b7310aaa 100644
--- a/mach/6500/libem/tle.s
+++ b/mach/6500/libem/tle.s
@@ -1,4 +1,9 @@
 .define Tle
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine tests if the value in registerpair AX is
 ! less than or equal to zero.
diff --git a/mach/6500/libem/tlt.s b/mach/6500/libem/tlt.s
index 557dfdca8..5dd265256 100644
--- a/mach/6500/libem/tlt.s
+++ b/mach/6500/libem/tlt.s
@@ -1,4 +1,9 @@
 .define Tlt
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine tests if the value in registerpair AX is
 ! less than zero.
diff --git a/mach/6500/libem/tne.s b/mach/6500/libem/tne.s
index aaaf18e46..d90d49adb 100644
--- a/mach/6500/libem/tne.s
+++ b/mach/6500/libem/tne.s
@@ -1,4 +1,9 @@
 .define Tne
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine tests if the value in registerpair AX is
 ! not equal to zero.
diff --git a/mach/6500/libem/trap.s b/mach/6500/libem/trap.s
index ef7d9e9d2..5ce53f93e 100644
--- a/mach/6500/libem/trap.s
+++ b/mach/6500/libem/trap.s
@@ -1,4 +1,9 @@
 .define Trap
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the trap instruction.
 
diff --git a/mach/6500/libem/write.s b/mach/6500/libem/write.s
index 4bc1e2457..7b87cf44b 100644
--- a/mach/6500/libem/write.s
+++ b/mach/6500/libem/write.s
@@ -1,4 +1,9 @@
 .define Mwrite
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the monitor call write.
 ! Writing is always done to standardoutput.
diff --git a/mach/6500/libem/xor.s b/mach/6500/libem/xor.s
index 5ef73a7c0..5d4455a35 100644
--- a/mach/6500/libem/xor.s
+++ b/mach/6500/libem/xor.s
@@ -1,4 +1,9 @@
 .define Xor
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine performs the exclusive or on two groups of bytes.
 ! The groups consists of atmost 254 bytes.
diff --git a/mach/6500/libem/zer.s b/mach/6500/libem/zer.s
index 9c6485084..ef5e0d205 100644
--- a/mach/6500/libem/zer.s
+++ b/mach/6500/libem/zer.s
@@ -1,4 +1,9 @@
 .define Zer
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! This subroutine puts n (n <=256) zero bytes on top of 
 ! the stack.
diff --git a/mach/6500/libem/zri.s b/mach/6500/libem/zri.s
index abc75f904..72c95f38b 100644
--- a/mach/6500/libem/zri.s
+++ b/mach/6500/libem/zri.s
@@ -1,4 +1,9 @@
 .define Zrl, Zro
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! The subroutine Zrl makes a local zero which offset is to big.
 ! The offset of the local is in registerpair AX.