Initial revision

This commit is contained in:
ceriel 1986-12-12 16:12:19 +00:00
parent cb19bd1dd4
commit 184f06453a
2 changed files with 112 additions and 0 deletions

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`

View file

@ -0,0 +1,82 @@
#include "em_abs.h"
#include "/usr/include/syscall.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 SYS_sigvec
.long 3
.long 8
.long m1a
.long 0
m1a:
.long sig8
.long 0
.long 0
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