d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Initial revision

Browse source
This commit is contained in:
ceriel 1986-12-12 12:49:50 +00:00
parent 9e6fe01229
commit 4c956c400e
62 changed files with 870 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
mach/vax4/libbsd4_1a/LIST Normal file
View file

@ -0,0 +1,60 @@
tail_mon.a
_exit.s
access.s
acct.s
alarm.s
chdir.s
chmod.s
chown.s
close.s
creat.s
dup.s
errmon.s
execl.s
execle.s
execv.s
execve.s
fork.s
fstat.s
ftime.s
getgid.s
getpid.s
getuid.s
ioctl.s
kill.s
link.s
lseek.s
mknod.s
mount.s
mpx.s
nice.s
open.s
pause.s
pipe.s
profil.s
ptrace.s
read.s
sbrk.s
setgid.s
setuid.s
signal.s
stat.s
stime.s
sync.s
syscall.s
time.s
times.s
umask.s
umount.s
unlink.s
utime.s
vadvise.s
vfork.s
vhangup.s
vlimit.s
vread.s
vtimes.s
vwait.s
vwrite.s
wait.s
write.s

30
mach/vax4/libbsd4_1a/Makefile Normal file
View file

@ -0,0 +1,30 @@
# $Header$
install: cp
cp: all
../../install head_em
../../install tail_mon
rm -f head_em tail_mon
cmp: all
-../../compare head_em
-../../compare tail_mon
rm -f head_em tail_mon
all: head_em tail_mon
head_em: head_em.s
vax4 -I../../../h -c head_em.s ; mv head_em.o head_em
tail_mon:
ASAR=ar ; export ASAR ;\
RANLIB=ranlib ; export RANLIB ;\
march . tail_mon
clean:
rm -f *.o
opr:
make pr | opr
pr:
@pr `pwd`/Makefile `pwd`/head_em.s
@pr -l33 `tail +1 LIST|sort`

8
mach/vax4/libbsd4_1a/_exit.s Normal file
View file

@ -0,0 +1,8 @@
.globl __exit
.set exit,1
.align 1
__exit:
.word 0x0000
chmk $exit
halt

11
mach/vax4/libbsd4_1a/access.s Normal file
View file

@ -0,0 +1,11 @@
.globl _access
.set access,33
.align 1
_access:
.word 0x0000
chmk $access
bcc 1f
jmp errmon
1:
ret

11
mach/vax4/libbsd4_1a/acct.s Normal file
View file

@ -0,0 +1,11 @@
.globl _acct
.set acct,51
.align 1
_acct:
.word 0x0000
chmk $acct
bcc 1f
jmp errmon
1:
ret

8
mach/vax4/libbsd4_1a/alarm.s Normal file
View file

@ -0,0 +1,8 @@
.globl _alarm
.set alarm,27
.align 1
_alarm:
.word 0x0000
chmk $alarm
ret

12
mach/vax4/libbsd4_1a/chdir.s Normal file
View file

@ -0,0 +1,12 @@
.globl _chdir
.set chdir,12
.align 1
_chdir:
.word 0x0000
chmk $chdir
bcc 1f
jmp errmon
1:
clrl r0
ret

12
mach/vax4/libbsd4_1a/chmod.s Normal file
View file

@ -0,0 +1,12 @@
.globl _chmod
.set chmod,15
.align 1
_chmod:
.word 0x0000
chmk $chmod
bcc 1f
jmp errmon
1:
clrl r0
ret

12
mach/vax4/libbsd4_1a/chown.s Normal file
View file

@ -0,0 +1,12 @@
.globl _chown
.set chown,16
.align 1
_chown:
.word 0x0000
chmk $chown
bcc 1f
jmp errmon
1:
clrl r0
ret

12
mach/vax4/libbsd4_1a/close.s Normal file
View file

@ -0,0 +1,12 @@
.globl _close
.set close,6
.align 1
_close:
.word 0x0000
chmk $close
bcc 1f
jmp errmon
1:
clrl r0
ret

11
mach/vax4/libbsd4_1a/creat.s Normal file
View file

@ -0,0 +1,11 @@
.globl _creat
.set creat,8
.align 1
_creat:
.word 0x0000
chmk $creat
bcc 1f
jmp errmon
1:
ret

19
mach/vax4/libbsd4_1a/dup.s Normal file
View file

@ -0,0 +1,19 @@
.globl _dup
.globl _dup2
.set dup,41
.align 1
_dup:
.word 0x0000
brb 1f
.align 1
_dup2:
.word 0x0000
bisb2 $0100,4(ap)
1:
chmk $dup
bcc 1f
jmp errmon
1:
ret

8
mach/vax4/libbsd4_1a/errmon.s Normal file
View file

@ -0,0 +1,8 @@
.globl errmon
.comm _errno,4
.align 1
errmon:
movl r0,_errno
mnegl $1,r0
ret

11
mach/vax4/libbsd4_1a/execl.s Normal file
View file

@ -0,0 +1,11 @@
.globl _execl
.globl _environ
.align 1
_execl:
.word 0x0000
pushl _environ
pushab 8(ap)
pushl 4(ap)
calls $3,_execve
ret

11
mach/vax4/libbsd4_1a/execle.s Normal file
View file

@ -0,0 +1,11 @@
.globl _execle
.align 1
_execle:
.word 0x0000
movl (ap),r0
pushl (ap)[r0]
pushab 8(ap)
pushl 4(ap)
calls $3,_execve
ret

11
mach/vax4/libbsd4_1a/execv.s Normal file
View file

@ -0,0 +1,11 @@
.globl _execv
.globl _environ
.align 1
_execv:
.word 0x0000
pushl _environ
pushl 8(ap)
pushl 4(ap)
calls $3,_execve
ret

8
mach/vax4/libbsd4_1a/execve.s Normal file
View file

@ -0,0 +1,8 @@
.globl _execve
.set exec,59
.align 1
_execve:
.word 0x0000
chmk $exec
jmp errmon

14
mach/vax4/libbsd4_1a/fork.s Normal file
View file

@ -0,0 +1,14 @@
.globl _fork
.set fork,2
.align 1
_fork:
.word 0x0000
chmk $fork
bcc 1f
jmp errmon
1:
jlbc r1,1f
clrl r0
1:
ret

12
mach/vax4/libbsd4_1a/fstat.s Normal file
View file

@ -0,0 +1,12 @@
.globl _fstat
.set fstat,28
.align 1
_fstat:
.word 0x0000
chmk $fstat
bcc 1f
jmp errmon
1:
clrl r0
ret

8
mach/vax4/libbsd4_1a/ftime.s Normal file
View file

@ -0,0 +1,8 @@
.globl _ftime
.set ftime,35
.align 1
_ftime:
.word 0x0000
chmk $ftime
ret

15
mach/vax4/libbsd4_1a/getgid.s Normal file
View file

@ -0,0 +1,15 @@
.globl _getgid, _getegid
.set getgid,47
.align 1
_getgid:
.word 0x0000
chmk $getgid
ret
.align 1
_getegid:
.word 0x0000
chmk $getgid
movl r1,r0
ret

15
mach/vax4/libbsd4_1a/getpid.s Normal file
View file

@ -0,0 +1,15 @@
.globl _getpid, _getppid
.set getpid,20
.align 1
_getpid:
.word 0x0000
chmk $getpid
ret
.align 1
_getppid:
.word 0x0000
chmk $getpid
movl r1,r0
ret

15
mach/vax4/libbsd4_1a/getuid.s Normal file
View file

@ -0,0 +1,15 @@
.globl _getuid, _geteuid
.set getuid,24
.align 1
_getuid:
.word 0x0000
chmk $getuid
ret
.align 1
_geteuid:
.word 0x0000
chmk $getuid
movl r1,r0
ret

76
mach/vax4/libbsd4_1a/head_em.s Normal file
View file

@ -0,0 +1,76 @@
#include "em_abs.h"
# $Header$
.globl hol0
.globl .reghp
.globl .trppc
.globl .trpim
# run time startoff
.word 0
bispsw $0100 # set FU(0100)
movl 4(sp),r0
clrl -4(r0)
movl sp,r0
movl (r0)+,r1
movl r0,r2
a1:
tstl (r0)+
bneq a1
cmpl r0,(r2)
blssu a2
tstl -(r0)
a2:
pushl r0
pushl r2
pushl r1
movl $m1,ap
chmk (ap)+ # catch floating point exception
calls $3,_m_a_i_n
movl $m2,ap
movl r0,6(ap)
chmk (ap)+
halt
.align 1
sig8:
.word 0x0000
pushl 8(ap)
movl (sp)+,ap
pushl tab [ap]
jsb .trp
movl $m1,ap
chmk (ap)+
ret
.data
m1:
.word 48
.long 2
.long 8
.long sig8
m2:
.word 1
.long 1
.long 0
.reghp:
.long _end
hol0:
.space 8
.trppc:
.space 4
.trpim:
.long 0
tab:
.long 0
.long EIOVFL
.long EIDIVZ
.long EFOVFL
.long EFDIVZ
.long EFUNFL
.long EILLINS
.long EARRAY
.long EFOVFL
.long EFDIVZ
.long EFUNFL

11
mach/vax4/libbsd4_1a/ioctl.s Normal file
View file

@ -0,0 +1,11 @@
.globl _ioctl
.set ioctl,54
.align 1
_ioctl:
.word 0x0000
chmk $ioctl
bcc 1f
jmp errmon
1:
ret

12
mach/vax4/libbsd4_1a/kill.s Normal file
View file

@ -0,0 +1,12 @@
.globl _kill
.set kill,37
.align 1
_kill:
.word 0x0000
chmk $kill
bcc 1f
jmp errmon
1:
clrl r0
ret

12
mach/vax4/libbsd4_1a/link.s Normal file
View file

@ -0,0 +1,12 @@
.globl _link
.set link,9
.align 1
_link:
.word 0x0000
chmk $link
bcc 1f
jmp errmon
1:
clrl r0
ret

11
mach/vax4/libbsd4_1a/lseek.s Normal file
View file

@ -0,0 +1,11 @@
.globl _lseek
.set lseek,19
.align 1
_lseek:
.word 0x0000
chmk $lseek
bcc 1f
jmp errmon
1:
ret

12
mach/vax4/libbsd4_1a/mknod.s Normal file
View file

@ -0,0 +1,12 @@
.globl _mknod
.set mknod,14
.align 1
_mknod:
.word 0x0000
chmk $mknod
bcc 1f
jmp errmod
1:
clrl r0
ret

12
mach/vax4/libbsd4_1a/mount.s Normal file
View file

@ -0,0 +1,12 @@
.globl _mount
.set mount,21
.align 1
_mount:
.word 0x0000
chmk $mount
bcc 1f
jmp errmon
1:
clrl r0
ret

11
mach/vax4/libbsd4_1a/mpx.s Normal file
View file

@ -0,0 +1,11 @@
.set mpxcall,56
.globl _mpxcall
.align 1
_mpxcall:
.word 0x0000
chmk $mpxcall
bcc 1f
jmp errmon
1:
ret

12
mach/vax4/libbsd4_1a/nice.s Normal file
View file

@ -0,0 +1,12 @@
.globl _nice
.set nice,34
.align 1
_nice:
.word 0x0000
chmk $nice
bcc 1f
jmp errmon
1:
clrl r0
ret

11
mach/vax4/libbsd4_1a/open.s Normal file
View file

@ -0,0 +1,11 @@
.globl _open
.set open,5
.align 1
_open:
.word 0x0000
chmk $open
bcc 1f
jmp errmon
1:
ret

8
mach/vax4/libbsd4_1a/pause.s Normal file
View file

@ -0,0 +1,8 @@
.globl _pause
.set pause,29
.align 1
_pause:
.word 0x0000
chmk $pause
ret

15
mach/vax4/libbsd4_1a/pipe.s Normal file
View file

@ -0,0 +1,15 @@
.globl _pipe
.set pipe,42
.align 1
_pipe:
.word 0x0000
chmk $pipe
bcc 1f
jmp errmon
1:
movl 4(ap),r2
movl r0,(r2)+
movl r1,(r2)
clrl r0
ret

8
mach/vax4/libbsd4_1a/profil.s Normal file
View file

@ -0,0 +1,8 @@
.globl _profil
.set profil,44
.align 1
_profil:
.word 0x0000
chmk $profil
ret

12
mach/vax4/libbsd4_1a/ptrace.s Normal file
View file

@ -0,0 +1,12 @@
.globl _ptrace
.set ptrace,26
.align 1
_ptrace:
.word 0x0000
clrl _errno
chmk $ptrace
bcc 1f
jmp errmon
1:
ret

11
mach/vax4/libbsd4_1a/read.s Normal file
View file

@ -0,0 +1,11 @@
.globl _read
.set read,3
.align 1
_read:
.word 0x0000
chmk $read
bcc 1f
jmp errmon
1:
ret

32
mach/vax4/libbsd4_1a/sbrk.s Normal file
View file

@ -0,0 +1,32 @@
.set break,17
.globl _sbrk, _brk
.globl _end
.align 1
_sbrk:
.word 0x0000
addl3 brk,4(ap),-(sp)
bcc 1f
movl $0xFFFFFFFF,(sp) # will cause an error (I hope)
1:
movl brk,r3
calls $1,_brk
tstl r0
blss 1f
movl r3,r0
1:
ret
.align 1
_brk:
.word 0x0000
chmk $break
bcc 1f
jmp errmon
1:
movl 4(ap),brk
clrl r0
ret
.data
brk: .long _end

12
mach/vax4/libbsd4_1a/setgid.s Normal file
View file

@ -0,0 +1,12 @@
.globl _setgid
.set setgid,46
.align 1
_setgid:
.word 0x0000
chmk $setgid
bcc 1f
jmp errmon
1:
clrl r0
ret

12
mach/vax4/libbsd4_1a/setuid.s Normal file
View file

@ -0,0 +1,12 @@
.globl _setuid
.set setuid,23
.align 1
_setuid:
.word 0x0000
chmk $setuid
bcc 1f
jmp errmon
1:
clrl r0
ret

11
mach/vax4/libbsd4_1a/signal.s Normal file
View file

@ -0,0 +1,11 @@
.globl _signal
.set signal,48
.align 1
_signal:
.word 0x0000
chmk $signal
bcc 1f
jmp errmon
1:
ret

12
mach/vax4/libbsd4_1a/stat.s Normal file
View file

@ -0,0 +1,12 @@
.globl _stat
.set stat,18
.align 1
_stat:
.word 0x0000
chmk $stat
bcc 1f
jmp errmon
1:
clrl r0
ret

13
mach/vax4/libbsd4_1a/stime.s Normal file
View file

@ -0,0 +1,13 @@
.globl _stime
.set stime,25
.align 1
_stime:
.word 0x0000
movl *4(ap),4(ap)
chmk $stime
bcc 1f
jmp errmon
1:
clrl r0
ret

8
mach/vax4/libbsd4_1a/sync.s Normal file
View file

@ -0,0 +1,8 @@
.globl _sync
.set sync,36
.align 1
_sync:
.word 0x0000
chmk $sync
ret

12
mach/vax4/libbsd4_1a/syscall.s Normal file
View file

@ -0,0 +1,12 @@
.globl _syscall
.align 1
_syscall:
.word 0x0000
movl 4(ap),r0
subl3 $1,(ap)+,(ap)
chmk r0
bcc 1f
jmp errmon
1:
ret

12
mach/vax4/libbsd4_1a/time.s Normal file
View file

@ -0,0 +1,12 @@
.globl _time
.set time,13
.align 1
_time:
.word 0x0000
chmk $time
movl 4(ap),r1
beql 1f
movl r0,(r1)
1:
ret

8
mach/vax4/libbsd4_1a/times.s Normal file
View file

@ -0,0 +1,8 @@
.globl _times
.set times,43
.align 1
_times:
.word 0x0000
chmk $times
ret

11
mach/vax4/libbsd4_1a/umask.s Normal file
View file

@ -0,0 +1,11 @@
.globl _umask
.set umask,60
.align 1
_umask:
.word 0x0000
chmk $umask
bcc 1f
jmp errmon
1:
ret

12
mach/vax4/libbsd4_1a/umount.s Normal file
View file

@ -0,0 +1,12 @@
.globl _umount
.set umount,22
.align 1
_umount:
.word 0x0000
chmk $umount
bcc 1f
jmp errmon
1:
clrl r0
ret

12
mach/vax4/libbsd4_1a/unlink.s Normal file
View file

@ -0,0 +1,12 @@
.globl _unlink
.set unlink,10
.align 1
_unlink:
.word 0x0000
chmk $unlink
bcc 1f
jmp errmon
1:
clrl r0
ret

11
mach/vax4/libbsd4_1a/utime.s Normal file
View file

@ -0,0 +1,11 @@
.globl _utime
.set utime,30
.align 1
_utime:
.word 0x0000
chmk $utime
bcc 1f
jmp errmon
1:
ret

12
mach/vax4/libbsd4_1a/vadvise.s Normal file
View file

@ -0,0 +1,12 @@
.set vadvise,72
.globl _vadvise
.align 1
_vadvise:
.word 0x0000
chmk $vadvise
bcc 1f
jmp errmon
1:
clrl r0
ret

22
mach/vax4/libbsd4_1a/vfork.s Normal file
View file

@ -0,0 +1,22 @@
.globl _vfork
.set vfork,66
.align 1
_vfork:
.word 0x0000
movl 16(fp),r2
movab 1f,16(fp) # dirty. Only one process can do return,
# so do it before forking
ret
1:
chmk $vfork
bcs 3f
tstl r1
bneq 1f
clrl r0
1:
jmp (r2)
3:
movl r0,_errno
mnegl $1,r0
jmp (r2)

8
mach/vax4/libbsd4_1a/vhangup.s Normal file
View file

@ -0,0 +1,8 @@
.globl _vhangup
.set vhangup,76
.align 1
_vhangup:
.word 0x0000
chmk $vhangup
ret

11
mach/vax4/libbsd4_1a/vlimit.s Normal file
View file

@ -0,0 +1,11 @@
.globl _vlimit
.set vlimit,77
.align 1
_vlimit:
.word 0x0000
chmk $vlimit
bcc 1f
jmp errmon
1:
ret

11
mach/vax4/libbsd4_1a/vread.s Normal file
View file

@ -0,0 +1,11 @@
.globl _vread
.set vread,67
.align 1
_vread:
.word 0x0000
chmk $vread
bcc 1f
jmp errmon
1:
ret

8
mach/vax4/libbsd4_1a/vtimes.s Normal file
View file

@ -0,0 +1,8 @@
.globl _vtimes
.set vtimes,107
.align 1
_vtimes:
.word 0x0000
chmk $vtimes
ret

15
mach/vax4/libbsd4_1a/vwait.s Normal file
View file

@ -0,0 +1,15 @@
.globl _vwait
.set vwait,71
.align 1
_vwait:
.word 0x0000
chmk $vwait
bcc 1f
jmp errmon
1:
tstl 4(ap)
beql 1f
movl r1,*4(ap)
1:
ret

11
mach/vax4/libbsd4_1a/vwrite.s Normal file
View file

@ -0,0 +1,11 @@
.globl _vwrite
.set vwrite,68
.align 1
_vwrite:
.word 0x0000
chmk $vwrite
bcc 1f
jmp errmon
1:
ret

15
mach/vax4/libbsd4_1a/wait.s Normal file
View file

@ -0,0 +1,15 @@
.set wait,7
.globl _wait
.align 1
_wait:
.word 0x0000
chmk $wait
bcc 1f
jmp errmon
1:
tstl 4(ap)
beql 1f
movl r1,*4(ap)
1:
ret

11
mach/vax4/libbsd4_1a/write.s Normal file
View file

@ -0,0 +1,11 @@
.globl _write
.set write,4
.align 1
_write:
.word 0x0000
chmk $write
bcc 1f
jmp errmon
1:
ret