Add .area text at start of every assembler source, add comm to common area name
authorNick Downing <nick@ndcode.org>
Thu, 11 Aug 2022 15:59:15 +0000 (01:59 +1000)
committerNick Downing <nick@ndcode.org>
Fri, 12 Aug 2022 05:04:37 +0000 (15:04 +1000)
82 files changed:
bin/aslink
bin/aspdp11
usr/src/cmd/c/c11.c
usr/src/libc/a.sh
usr/src/libc/crt/aldiv.s
usr/src/libc/crt/almul.s
usr/src/libc/crt/alrem.s
usr/src/libc/crt/cerror.s
usr/src/libc/crt/csv.s
usr/src/libc/crt/ldiv.s
usr/src/libc/crt/lmul.s
usr/src/libc/crt/lrem.s
usr/src/libc/crt/mcount.s
usr/src/libc/csu/crt0.s
usr/src/libc/csu/fcrt0.s
usr/src/libc/csu/fmcrt0.s
usr/src/libc/csu/mcrt0.s
usr/src/libc/gen/abort.s
usr/src/libc/gen/cuexit.s
usr/src/libc/gen/fakcu.s
usr/src/libc/gen/fakfp.s
usr/src/libc/gen/frexp11.s
usr/src/libc/gen/ldexp11.s
usr/src/libc/gen/ldfps.s
usr/src/libc/gen/modf11.s
usr/src/libc/gen/setjmp.s
usr/src/libc/stdio/doprnt.s
usr/src/libc/stdio/ffltpr.s
usr/src/libc/stdio/fltpr.s
usr/src/libc/sys/access.s
usr/src/libc/sys/acct.s
usr/src/libc/sys/alarm.s
usr/src/libc/sys/chdir.s
usr/src/libc/sys/chmod.s
usr/src/libc/sys/chown.s
usr/src/libc/sys/chroot.s
usr/src/libc/sys/close.s
usr/src/libc/sys/creat.s
usr/src/libc/sys/dup.s
usr/src/libc/sys/execl.s
usr/src/libc/sys/execle.s
usr/src/libc/sys/execv.s
usr/src/libc/sys/execve.s
usr/src/libc/sys/exit.s
usr/src/libc/sys/fork.s
usr/src/libc/sys/fstat.s
usr/src/libc/sys/getgid.s
usr/src/libc/sys/getpid.s
usr/src/libc/sys/getuid.s
usr/src/libc/sys/ioctl.s
usr/src/libc/sys/kill.s
usr/src/libc/sys/link.s
usr/src/libc/sys/lock.s
usr/src/libc/sys/lseek.s
usr/src/libc/sys/mknod.s
usr/src/libc/sys/mount.s
usr/src/libc/sys/mpxcall.s
usr/src/libc/sys/nice.s
usr/src/libc/sys/open.s
usr/src/libc/sys/pause.s
usr/src/libc/sys/phys.s
usr/src/libc/sys/pipe.s
usr/src/libc/sys/profil.s
usr/src/libc/sys/ptrace.s
usr/src/libc/sys/read.s
usr/src/libc/sys/sbrk.s
usr/src/libc/sys/setgid.s
usr/src/libc/sys/setuid.s
usr/src/libc/sys/signal.s
usr/src/libc/sys/stat.s
usr/src/libc/sys/stime.s
usr/src/libc/sys/sync.s
usr/src/libc/sys/time.s
usr/src/libc/sys/times.s
usr/src/libc/sys/umask.s
usr/src/libc/sys/umount.s
usr/src/libc/sys/unlink.s
usr/src/libc/sys/utime.s
usr/src/libc/sys/wait.s
usr/src/libc/sys/write.s
usr/src/libc/v6/syscall.s
usr/src/libc/v6/time.s

index e7305cb..9980108 100755 (executable)
Binary files a/bin/aslink and b/bin/aslink differ
index 408ea2b..8eae3a1 100755 (executable)
Binary files a/bin/aspdp11 and b/bin/aspdp11 differ
index d385390..aeb829f 100644 (file)
@@ -873,7 +873,7 @@ getree()
  fprintf(stderr, "CSPACE\n");
 #endif
                t = outname(s);
-               printf(".area   _%.8s (rel,ovr)\n%.8s:.ds       %d\n.area       %s\n", t, t, geti(), area);
+               printf(".area   comm_%.8s (rel,ovr)\n%.8s:.ds   %d\n.area       %s\n", t, t, geti(), area);
                break;
 
        case SSPACE:
index bc70202..112a7fd 100755 (executable)
@@ -2,4 +2,4 @@
 mkdir --parents ../../../tmp
 export APOUT_ROOT=`pwd`/../../..
 export PATH=`pwd`/../../../bin:`pwd`
-cc -c -O /usr/src/libc/gen/atof.c
+cc -c -O sys/write.s
index 564e16e..f6d1c50 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; Long quotient
 
 .globl aldiv
index be552f3..db07edc 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ;
 ; 32-bit multiplication routine for fixed pt hardware.
 ;  Implements *= operator
index 3c700bb..65d5548 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; Long remainder
 
 .globl alrem
index 6257082..8f08a1d 100644 (file)
@@ -1,8 +1,9 @@
+.area  text
 ; C return sequence which
 ; sets errno, returns -1.
 
 .globl cerror
-       .area   __errno (rel,ovr)
+       .area   comm__errno (rel,ovr)
 _errno:        .ds     2
        .area   text
 
index b000c46..e0efb13 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C register save and restore -- version 7/75
 
 .globl csv
index c3be6b0..31b1273 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; Long quotient
 
 .globl ldiv
index 98f9a66..b90e462 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ;
 ; 32-bit multiplication routine for fixed pt hardware.
 ;  Implements * operator
index e98975e..0097fce 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; Long remainder
 
 .globl lrem
index d322c93..93a9fb2 100644 (file)
@@ -1,7 +1,8 @@
+.area  text
 ; count subroutine calls during profiling
 
 .globl mcount
-       .area   _countbase (rel,ovr)
+       .area   comm_countbase (rel,ovr)
 countbase:
        .ds     2
        .area   text
index bd8121a..6fadc42 100644 (file)
@@ -1,10 +1,16 @@
 ; C runtime startoff
 
+; set segment ordering for aslink
+.area  text
+.area  data
+.area  bss
+
 .globl _exit, _environ
 .globl start
 .globl _main
 exit = 1
 
+.area  text
 start:
        setd
        mov     2(sp),r0
index dd4494d..e73bdb2 100644 (file)
@@ -1,6 +1,11 @@
 ; C runtime startoff
 ; with floating point interpreter
 
+; set segment ordering for aslink
+.area  text
+.area  data
+.area  bss
+
 .globl fptrap
 .globl _exit
 .globl _main
@@ -8,6 +13,7 @@
 exit = 1
 signal = 48
 
+.area  text
 start:
        sys     signal
 .dw    4
index f67f6df..c44f25a 100644 (file)
@@ -1,5 +1,10 @@
 ; C runtime startoff including monitoring
 
+; set segment ordering for aslink
+.area  text
+.area  data
+.area  bss
+
 cbufs  = 300
 exit   = 1
 write  = 4
@@ -15,7 +20,7 @@ signal        = 48
 .globl countbase
 .globl fptrap
 
-
+.area  text
 start:
        sys     signal
 .dw    4
index e0e2981..7eddb08 100644 (file)
@@ -1,5 +1,10 @@
 ; C runtime startoff including monitoring
 
+; set segment ordering for aslink
+.area  text
+.area  data
+.area  bss
+
 cbufs  = 300
 exit   = 1
 write  = 4
@@ -13,7 +18,7 @@ write = 4
 .globl __cleanup
 .globl countbase
 
-
+.area  text
 start:
        setd
        mov     2(sp),r0
index 0d67956..33823ca 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- abort
 
 .globl _abort
index 497ba40..e285508 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- exit
 
 ; exit(code)
index 53eb6e0..dcf834f 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ;
 ; dummy cleanup routine if none supplied by user.
 
index 262093f..e076c14 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; fakefp -- fake floating point simulator
 
 .globl fptrap
index 65b3bec..106a5b8 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ;  double frexp(x, ip)
 ;  double x; int *ip;
 ;  returns a fractional part 1/16 <= |value| < 1
index 82315ef..8fe3ea4 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; double ldexp(number, exp)
 ; double number
 ;  -- returns number * 2^exp
@@ -26,7 +27,7 @@ _ldexp:
 0$:
        jmp     cret
 
-       .area   __errno (rel,ovr)
+       .area   comm__errno (rel,ovr)
 _errno:        .ds     2
        .area   data
 huge:  .dw     0o77777
index 441f354..aecb17a 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; ldfps(number);
 
 .globl _ldfps
index 5556fe1..9a49e29 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; double modf(x, *fp)
 ; double x, *fp;
 ; return fractional part
index 054c998..40e9d16 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- setjmp, longjmp
 
 ;      longjmp(a,v)
index b150497..a38aece 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- conversions
 
 width=-8
index fa7519e..bdc28d0 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library-- fake floating output
 
 .globl pfloat
index 05bf103..b4acbd2 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library-- floating output
 
 .globl pfloat
index 2e505e7..2c33979 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; access(file, request)
 ;  test ability to access file in all indicated ways
 ;  1 - read
@@ -6,7 +7,7 @@
 
 .globl _access
 .globl csv, cret
-       .area   __errno (rel,ovr)
+       .area   comm__errno (rel,ovr)
 _errno:        .ds     2
        .area   text
 
index fa67951..b8da9cb 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- acct
 
 ; error = acct(string);
index 6380d61..301a362 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library - alarm
 
 .globl _alarm
index 5386735..28c7d6b 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- chdir
 
 ; error = chdir(string);
index 2d48100..8b2b6fb 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- chmod
 
 ; error = chmod(string, mode);
index e66ddea..c07bf4c 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- chown
 
 ; error = chown(string, owner);
index 1e7fe89..ea92dcf 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- chroot
 
 ; error = chroot(string);
index 81f77b9..406d6d4 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- close
 
 ; error =  close(file);
index d1669db..f1b7c52 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- creat
 
 ; file = creat(string, mode);
index d29f6e3..844dbef 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- dup
 
 ;      f = dup(of [ ,nf])
index d9da905..98dd007 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- execl
 
 ; execl(file, arg1, arg2, ... , 0);
index f03b95c..af644b4 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- execle
 
 ; execle(file, arg1, arg2, ... , 0, env);
index 5d14680..52bede9 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- execv
 
 ; execv(file, argv);
index d7fb0ff..38757b9 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- execve
 
 ; execve(file, argv, env);
index d451bbc..74143fd 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- _exit
 
 ; _exit(code)
index 69682c9..8465ac0 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- fork
 
 ; pid = fork();
index 7420f98..f435dfc 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- fstat
 
 ; error = fstat(file, statbuf);
index 6b88a00..1967d8e 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- getgid, getegid
 
 ; gid = getgid();
index 0149178..2eaeef8 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; getpid -- get process ID
 
 .globl _getpid
index 0225d44..02a8126 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- getuid, geteuid
 
 ; uid = getuid();
index 84ce726..85e5424 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- ioctl
 
 ; ioctl(fdes, command, arg)
index 7ffd609..0b6f4d8 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- kill
 
 .globl _kill, cerror
index 8b8ad34..e45953c 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- link
 
 ; error = link(old-file, new-file);
index 27a40f8..0cae158 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; lock -- C library
 
 ;      lock(f)
index 3f01c4f..cec4480 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- lseek
 
 ; error = lseek(file, offset, ptr);
index 456f384..2d38c88 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- mknod
 
 ; error = mknod(string, mode, major.minor);
index 3557f42..6caddc8 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- mount
 
 ; error = mount(dev, file, flag)
index cec7925..9157765 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 .globl _mpxcall, cerror
 
 _mpxcall:
index 1f7524b..55d361e 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library-- nice
 
 ; error = nice(hownice)
index bb7fde6..8405b40 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- open
 
 ; file = open(string, mode)
index 913f8b8..f929c08 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library - pause
 
 .globl _pause
index 6d28f1c..437d631 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; phys -- C library
 
 ;      phys(seg, size, physad)
index 07616bf..f8652c7 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; pipe -- C library
 
 ;      pipe(f)
index 8609f34..cfd19d4 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; profil
 
 .globl _profil
index 6c5a5d2..d65e9d5 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; ptrace -- C library
 
 ;      result = ptrace(req, pid, addr, data);
index ac858c6..af5f768 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- read
 
 ; nread = read(file, buffer, count);
index 82310ed..79f19e3 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ;old = sbrk(increment);
 ;
 ;sbrk gets increment more core, and returns a pointer
index 90cf92c..0bd66dc 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- setgid
 
 ; error = setgid(uid);
index d13d670..40a202c 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- setuid
 
 ; error = setuid(uid);
index 404bc0a..86794ef 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- signal
 
 ; signal(n, 0); /* default action on signal(n) */
index caf4f51..2a89837 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- stat
 
 ; error = stat(string, statbuf);
index 2c39225..2b23de7 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; error = stime(&long)
 
 .globl _stime
index 22c174b..60ef46b 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 .globl _sync
 .sync = 36
 
index a00f01c..18cf15e 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- time
 
 ; tvec = time(tvec);
index f093784..bf2114d 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- times
 
 .globl _times
index 14a2f7f..043ce73 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- umask
 
 ; omask = umask(mode);
index 6667eb4..6414158 100644 (file)
@@ -1,10 +1,11 @@
+.area  text
 ; C library -- umount
 
 .globl _umount
 .globl cerror
 indir  = 0
 .umount = 22
-       .area   __errno (rel,ovr)
+       .area   comm__errno (rel,ovr)
 _errno:        .ds     2
        .area   text
 
index 1e8dc03..2c20efe 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- unlink
 
 ; error = unlink(string);
index 22064ba..9de05fb 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- utime
 
 ; error = utime(string, timev);
index f9a30da..1093a3f 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- wait
 
 ; pid = wait(0);
index 00f0372..a8143bb 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- write
 
 ; nwritten = write(file, buffer, count);
index 98b5b21..cd9a8d0 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; syscall
 
 .globl _syscall,csv,cret,cerror
index d2c52c2..95ed41a 100644 (file)
@@ -1,3 +1,4 @@
+.area  text
 ; C library -- time
 
 ; tvec = time(tvec);