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:
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
+.area text
; Long quotient
.globl aldiv
+.area text
;
; 32-bit multiplication routine for fixed pt hardware.
; Implements *= operator
+.area text
; Long remainder
.globl alrem
+.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
+.area text
; C register save and restore -- version 7/75
.globl csv
+.area text
; Long quotient
.globl ldiv
+.area text
;
; 32-bit multiplication routine for fixed pt hardware.
; Implements * operator
+.area text
; Long remainder
.globl lrem
+.area text
; count subroutine calls during profiling
.globl mcount
- .area _countbase (rel,ovr)
+ .area comm_countbase (rel,ovr)
countbase:
.ds 2
.area text
; 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
; C runtime startoff
; with floating point interpreter
+; set segment ordering for aslink
+.area text
+.area data
+.area bss
+
.globl fptrap
.globl _exit
.globl _main
exit = 1
signal = 48
+.area text
start:
sys signal
.dw 4
; C runtime startoff including monitoring
+; set segment ordering for aslink
+.area text
+.area data
+.area bss
+
cbufs = 300
exit = 1
write = 4
.globl countbase
.globl fptrap
-
+.area text
start:
sys signal
.dw 4
; C runtime startoff including monitoring
+; set segment ordering for aslink
+.area text
+.area data
+.area bss
+
cbufs = 300
exit = 1
write = 4
.globl __cleanup
.globl countbase
-
+.area text
start:
setd
mov 2(sp),r0
+.area text
; C library -- abort
.globl _abort
+.area text
; C library -- exit
; exit(code)
+.area text
;
; dummy cleanup routine if none supplied by user.
+.area text
; fakefp -- fake floating point simulator
.globl fptrap
+.area text
; double frexp(x, ip)
; double x; int *ip;
; returns a fractional part 1/16 <= |value| < 1
+.area text
; double ldexp(number, exp)
; double number
; -- returns number * 2^exp
0$:
jmp cret
- .area __errno (rel,ovr)
+ .area comm__errno (rel,ovr)
_errno: .ds 2
.area data
huge: .dw 0o77777
+.area text
; ldfps(number);
.globl _ldfps
+.area text
; double modf(x, *fp)
; double x, *fp;
; return fractional part
+.area text
; C library -- setjmp, longjmp
; longjmp(a,v)
+.area text
; C library -- conversions
width=-8
+.area text
; C library-- fake floating output
.globl pfloat
+.area text
; C library-- floating output
.globl pfloat
+.area text
; access(file, request)
; test ability to access file in all indicated ways
; 1 - read
.globl _access
.globl csv, cret
- .area __errno (rel,ovr)
+ .area comm__errno (rel,ovr)
_errno: .ds 2
.area text
+.area text
; C library -- acct
; error = acct(string);
+.area text
; C library - alarm
.globl _alarm
+.area text
; C library -- chdir
; error = chdir(string);
+.area text
; C library -- chmod
; error = chmod(string, mode);
+.area text
; C library -- chown
; error = chown(string, owner);
+.area text
; C library -- chroot
; error = chroot(string);
+.area text
; C library -- close
; error = close(file);
+.area text
; C library -- creat
; file = creat(string, mode);
+.area text
; C library -- dup
; f = dup(of [ ,nf])
+.area text
; C library -- execl
; execl(file, arg1, arg2, ... , 0);
+.area text
; C library -- execle
; execle(file, arg1, arg2, ... , 0, env);
+.area text
; C library -- execv
; execv(file, argv);
+.area text
; C library -- execve
; execve(file, argv, env);
+.area text
; C library -- _exit
; _exit(code)
+.area text
; C library -- fork
; pid = fork();
+.area text
; C library -- fstat
; error = fstat(file, statbuf);
+.area text
; C library -- getgid, getegid
; gid = getgid();
+.area text
; getpid -- get process ID
.globl _getpid
+.area text
; C library -- getuid, geteuid
; uid = getuid();
+.area text
; C library -- ioctl
; ioctl(fdes, command, arg)
+.area text
; C library -- kill
.globl _kill, cerror
+.area text
; C library -- link
; error = link(old-file, new-file);
+.area text
; lock -- C library
; lock(f)
+.area text
; C library -- lseek
; error = lseek(file, offset, ptr);
+.area text
; C library -- mknod
; error = mknod(string, mode, major.minor);
+.area text
; C library -- mount
; error = mount(dev, file, flag)
+.area text
.globl _mpxcall, cerror
_mpxcall:
+.area text
; C library-- nice
; error = nice(hownice)
+.area text
; C library -- open
; file = open(string, mode)
+.area text
; C library - pause
.globl _pause
+.area text
; phys -- C library
; phys(seg, size, physad)
+.area text
; pipe -- C library
; pipe(f)
+.area text
; profil
.globl _profil
+.area text
; ptrace -- C library
; result = ptrace(req, pid, addr, data);
+.area text
; C library -- read
; nread = read(file, buffer, count);
+.area text
;old = sbrk(increment);
;
;sbrk gets increment more core, and returns a pointer
+.area text
; C library -- setgid
; error = setgid(uid);
+.area text
; C library -- setuid
; error = setuid(uid);
+.area text
; C library -- signal
; signal(n, 0); /* default action on signal(n) */
+.area text
; C library -- stat
; error = stat(string, statbuf);
+.area text
; error = stime(&long)
.globl _stime
+.area text
.globl _sync
.sync = 36
+.area text
; C library -- time
; tvec = time(tvec);
+.area text
; C library -- times
.globl _times
+.area text
; C library -- umask
; omask = umask(mode);
+.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
+.area text
; C library -- unlink
; error = unlink(string);
+.area text
; C library -- utime
; error = utime(string, timev);
+.area text
; C library -- wait
; pid = wait(0);
+.area text
; C library -- write
; nwritten = write(file, buffer, count);
+.area text
; syscall
.globl _syscall,csv,cret,cerror
+.area text
; C library -- time
; tvec = time(tvec);