godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixup commit for tag 'dist2'

Browse Source
This commit is contained in:
cvs2hg
1985-02-17 00:57:20 +00:00
parent 9f45dd0650
commit 3f3bddef8f
1707 changed files with 0 additions and 178572 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
mach/z8000/Action
View File

@@ -1,18 +0,0 @@
name "Zilog Z8000 assembler"
dir as
end
name "Zilog Z8000 backend"
dir cg
end
name "Zilog Z8000 C libraries"
dir libcc
end
name "Zilog Z8000 EM library"
dir libem
end
name "Zilog Z8000 Pascal library"
dir libpc
end
name "Zilog Z8000 Basic library"
dir libbc
end

185
mach/z8000/cg/Makefile
View File

@@ -1,185 +0,0 @@
# $Header$
PREFLAGS=-I../../../h -I. -DNDEBUG
PFLAGS=
CFLAGS=$(PREFLAGS) $(PFLAGS) -O
LDFLAGS=-i $(PFLAGS)
LINTOPTS=-hbxac
LIBS=../../../lib/em_data.a
CDIR=../../proto/cg
CFILES=$(CDIR)/codegen.c $(CDIR)/compute.c $(CDIR)/equiv.c $(CDIR)/fillem.c \
$(CDIR)/gencode.c $(CDIR)/glosym.c $(CDIR)/main.c $(CDIR)/move.c \
$(CDIR)/nextem.c $(CDIR)/reg.c $(CDIR)/regvar.c $(CDIR)/salloc.c \
$(CDIR)/state.c $(CDIR)/subr.c $(CDIR)/var.c
OFILES=codegen.o compute.o equiv.o fillem.o gencode.o glosym.o main.o\
move.o nextem.o reg.o regvar.o salloc.o state.o subr.o var.o
all:
make tables.c
make cg
cg: tables.o $(OFILES)
cc $(LDFLAGS) $(OFILES) tables.o $(LIBS) -o cg
tables.o: tables.c
cc -c $(PREFLAGS) -I$(CDIR) tables.c
codegen.o: $(CDIR)/codegen.c
cc -c $(CFLAGS) $(CDIR)/codegen.c
compute.o: $(CDIR)/compute.c
cc -c $(CFLAGS) $(CDIR)/compute.c
equiv.o: $(CDIR)/equiv.c
cc -c $(CFLAGS) $(CDIR)/equiv.c
fillem.o: $(CDIR)/fillem.c
cc -c $(CFLAGS) $(CDIR)/fillem.c
gencode.o: $(CDIR)/gencode.c
cc -c $(CFLAGS) $(CDIR)/gencode.c
glosym.o: $(CDIR)/glosym.c
cc -c $(CFLAGS) $(CDIR)/glosym.c
main.o: $(CDIR)/main.c
cc -c $(CFLAGS) $(CDIR)/main.c
move.o: $(CDIR)/move.c
cc -c $(CFLAGS) $(CDIR)/move.c
nextem.o: $(CDIR)/nextem.c
cc -c $(CFLAGS) $(CDIR)/nextem.c
reg.o: $(CDIR)/reg.c
cc -c $(CFLAGS) $(CDIR)/reg.c
regvar.o: $(CDIR)/regvar.c
cc -c $(CFLAGS) $(CDIR)/regvar.c
salloc.o: $(CDIR)/salloc.c
cc -c $(CFLAGS) $(CDIR)/salloc.c
state.o: $(CDIR)/state.c
cc -c $(CFLAGS) $(CDIR)/state.c
subr.o: $(CDIR)/subr.c
cc -c $(CFLAGS) $(CDIR)/subr.c
var.o: $(CDIR)/var.c
cc -c $(CFLAGS) $(CDIR)/var.c
install: all
../../install cg
cmp: all
-../../compare cg
distr:
make tables.c
rm -f tables1.[ch]
cp tables.c tables1.c
cp tables.h tables1.h
chmod -w tables1.[ch]
tables.c: table
-mv tables.h tables.h.save
/lib/cpp -P table | ../../../lib/cgg > debug.out
-if cmp -s tables.h.save tables.h; then mv tables.h.save tables.h; else exit 0; fi
-if cmp -s /dev/null tables.h; then mv tables.h.save tables.h; else exit 0; fi
lint: $(CFILES)
lint $(LINTOPTS) $(PREFLAGS) $(CFILES)
clean:
rm -f *.o tables.c tables.h debug.out cg tables.h.save
codegen.o: $(CDIR)/assert.h
codegen.o: $(CDIR)/data.h
codegen.o: $(CDIR)/equiv.h
codegen.o: $(CDIR)/extern.h
codegen.o: $(CDIR)/param.h
codegen.o: $(CDIR)/result.h
codegen.o: $(CDIR)/state.h
codegen.o: tables.h
codegen.o: $(CDIR)/types.h
compute.o: $(CDIR)/assert.h
compute.o: $(CDIR)/data.h
compute.o: $(CDIR)/extern.h
compute.o: $(CDIR)/glosym.h
compute.o: $(CDIR)/param.h
compute.o: $(CDIR)/result.h
compute.o: tables.h
compute.o: $(CDIR)/types.h
equiv.o: $(CDIR)/assert.h
equiv.o: $(CDIR)/data.h
equiv.o: $(CDIR)/equiv.h
equiv.o: $(CDIR)/extern.h
equiv.o: $(CDIR)/param.h
equiv.o: $(CDIR)/result.h
equiv.o: tables.h
equiv.o: $(CDIR)/types.h
fillem.o: $(CDIR)/assert.h
fillem.o: $(CDIR)/data.h
fillem.o: $(CDIR)/extern.h
fillem.o: mach.c
fillem.o: mach.h
fillem.o: $(CDIR)/param.h
fillem.o: $(CDIR)/regvar.h
fillem.o: $(CDIR)/result.h
fillem.o: tables.h
fillem.o: $(CDIR)/types.h
gencode.o: $(CDIR)/assert.h
gencode.o: $(CDIR)/data.h
gencode.o: $(CDIR)/extern.h
gencode.o: $(CDIR)/param.h
gencode.o: $(CDIR)/result.h
gencode.o: tables.h
gencode.o: $(CDIR)/types.h
glosym.o: $(CDIR)/glosym.h
glosym.o: $(CDIR)/param.h
glosym.o: tables.h
glosym.o: $(CDIR)/types.h
main.o: $(CDIR)/param.h
move.o: $(CDIR)/assert.h
move.o: $(CDIR)/data.h
move.o: $(CDIR)/extern.h
move.o: $(CDIR)/param.h
move.o: $(CDIR)/result.h
move.o: tables.h
move.o: $(CDIR)/types.h
nextem.o: $(CDIR)/assert.h
nextem.o: $(CDIR)/data.h
nextem.o: $(CDIR)/extern.h
nextem.o: $(CDIR)/param.h
nextem.o: $(CDIR)/result.h
nextem.o: tables.h
nextem.o: $(CDIR)/types.h
reg.o: $(CDIR)/assert.h
reg.o: $(CDIR)/data.h
reg.o: $(CDIR)/extern.h
reg.o: $(CDIR)/param.h
reg.o: $(CDIR)/result.h
reg.o: tables.h
reg.o: $(CDIR)/types.h
regvar.o: $(CDIR)/assert.h
regvar.o: $(CDIR)/data.h
regvar.o: $(CDIR)/extern.h
regvar.o: $(CDIR)/param.h
regvar.o: $(CDIR)/regvar.h
regvar.o: $(CDIR)/result.h
regvar.o: tables.h
regvar.o: $(CDIR)/types.h
salloc.o: $(CDIR)/assert.h
salloc.o: $(CDIR)/data.h
salloc.o: $(CDIR)/extern.h
salloc.o: $(CDIR)/param.h
salloc.o: $(CDIR)/result.h
salloc.o: tables.h
salloc.o: $(CDIR)/types.h
state.o: $(CDIR)/assert.h
state.o: $(CDIR)/data.h
state.o: $(CDIR)/extern.h
state.o: $(CDIR)/param.h
state.o: $(CDIR)/result.h
state.o: $(CDIR)/state.h
state.o: tables.h
state.o: $(CDIR)/types.h
subr.o: $(CDIR)/assert.h
subr.o: $(CDIR)/data.h
subr.o: $(CDIR)/extern.h
subr.o: $(CDIR)/param.h
subr.o: $(CDIR)/result.h
subr.o: tables.h
subr.o: $(CDIR)/types.h
var.o: $(CDIR)/data.h
var.o: $(CDIR)/param.h
var.o: $(CDIR)/result.h
var.o: tables.h
var.o: $(CDIR)/types.h

107
mach/z8000/cg/mach.c
View File

@@ -1,107 +0,0 @@
/*
* (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
*
* This product is part of the Amsterdam Compiler Kit.
*
* Permission to use, sell, duplicate or disclose this software must be
* obtained in writing. Requests for such permissions may be sent to
*
* Dr. Andrew S. Tanenbaum
* Wiskundig Seminarium
* Vrije Universiteit
* Postbox 7161
* 1007 MC Amsterdam
* The Netherlands
*
*/
/*
* machine dependent back end routines for the z8000
*/
con_part(sz,w) register sz; word w; {
while (part_size % sz)
part_size++;
if (part_size == TEM_WSIZE)
part_flush();
if (sz == 1) {
w &= 0xFF;
if (part_size == 0)
w <<= 8;
part_word |= w;
} else {
assert(sz == 2);
part_word = w;
}
part_size += sz;
}
con_mult(sz) word sz; {
if (sz != 4)
fatal("bad icon/ucon size");
fprintf(codefile,"\t.long %s\n", str);
}
con_float() {
static int been_here;
if (argval != 4 && argval != 8)
fatal("bad fcon size");
fprintf(codefile,"\t.long ");
if (argval == 8)
fprintf(codefile,"F_DUM, ");
fprintf(codefile,"F_DUM\n");
if ( !been_here++)
{
fprintf(stderr,"Warning : dummy float-constant(s)\n");
}
}
/*
string holstr(n) word n; {
sprintf(str,hol_off,n,holno);
return(mystrcpy(str));
}
*/
prolog(nlocals) full nlocals; {
fprintf(codefile,"\tpush\t*RR14, R13\n\tld\tR13, R15\n");
if (nlocals == 0)
return;
else
fprintf(codefile,"\tsub\tR15, $%d\n",nlocals);
}
mes(type) word type ; {
int argt ;
switch ( (int)type ) {
case ms_ext :
for (;;) {
switch ( argt=getarg(
ptyp(sp_cend)|ptyp(sp_pnam)|sym_ptyp) ) {
case sp_cend :
return ;
default:
strarg(argt) ;
printf(".define %s\n",argstr) ;
break ;
}
}
default :
while ( getarg(any_ptyp) != sp_cend ) ;
break ;
}
}
char *segname[] = {
".text", /* SEGTXT */
".data", /* SEGCON */
".data", /* SEGROM */
".bss" /* SEGBSS */
};

24
mach/z8000/cg/mach.h
View File

@@ -1,24 +0,0 @@
#define ex_ap(y) fprintf(codefile,".extern %s\n",y)
#define in_ap(y) /* nothing */
#define newilb(x) fprintf(codefile,"%s:\n",x)
#define newdlb(x) fprintf(codefile,"%s:\n",x)
#define dlbdlb(x,y) fprintf(codefile,"%s = %s\n",x,y)
#define newlbss(l,x) fprintf(codefile,"%s:\t.space %d\n",l,x);
#define cst_fmt "%d"
#define off_fmt "%d"
#define ilb_fmt "I%03x%x"
#define dlb_fmt "_%d"
#define hol_fmt "hol%d"
#define hol_off "%d+hol%d"
#define con_cst(x) fprintf(codefile,"\t.word %d\n",x)
#define con_ilb(x) fprintf(codefile,"\t.word %s\n",x)
#define con_dlb(x) fprintf(codefile,"\t.word %s\n",x)
#define modhead ""
#define id_first '_'
#define BSS_INIT 0

1838
mach/z8000/cg/table
View File

File diff suppressed because it is too large Load Diff

20
mach/z8000/libbc/Makefile
View File

@@ -1,20 +0,0 @@
MAKEFILE=../../proto/libg/Makefile
MACHDEF="MACH=z8000" "SUF=s"
BCDEF="PREF=bc" "SUB=" "SRC=lang/basic/lib"
install:
make -f $(MAKEFILE) $(BCDEF) $(MACHDEF) tailcp
cmp:
make -f $(MAKEFILE) $(BCDEF) $(MACHDEF) tail
-../../compare head_bc
-../../compare tail_bc
clean:
-rm -f *.old *.[ce$(SUF)] tail* head*
opr:
make pr | opr
pr:
@pr Makefile

2
mach/z8000/libbc/compmodule
View File

@@ -1,2 +0,0 @@
${MACH?} -I../../../h ${MACHFL?} $1 1>&2
echo `basename $1 $2`.s

37
mach/z8000/libcc/Makefile
View File

@@ -1,37 +0,0 @@
MAKEFILE=../../proto/libg/Makefile
MACHDEF="MACH=z8000" "SUF=s"
STDIO="PREF=cc" "SUB=.1s" "SRC=lang/cem/libcc/stdio"
GEN="PREF=cc" "SUB=.2g" "SRC=lang/cem/libcc/gen"
MON="PREF=mon" "SRC=lang/cem/libcc/mon"
install: cpstdio cpgen cpmon
cpstdio:
make -f $(MAKEFILE) $(STDIO) $(MACHDEF) tailcp
cpgen:
make -f $(MAKEFILE) $(GEN) $(MACHDEF) cp
cpmon:
make -f $(MAKEFILE) $(MON) $(MACHDEF) tailcp
cmp: cmpstdio cmpgen cmpmon
cmpstdio:
make -f $(MAKEFILE) $(STDIO) $(MACHDEF) tail
-../../compare tail_cc.1s
cmpgen:
make -f $(MAKEFILE) $(GEN) $(MACHDEF) head
-../../compare head_cc
make -f $(MAKEFILE) $(GEN) $(MACHDEF) tail
-../../compare tail_cc.2g
cmpmon:
make -f $(MAKEFILE) $(MON) $(MACHDEF) tail
-../../compare tail_mon
clean:
-rm -f *.old *.[ce$(SUF)] tail* head*
opr:
make pr | opr
pr:
@pr Makefile

2
mach/z8000/libcc/compmodule
View File

@@ -1,2 +0,0 @@
${MACH?} -I../../../h ${MACHFL?} $1 1>&2
echo `basename $1 $2`.s

36
mach/z8000/libem/LIST
View File

@@ -1,36 +0,0 @@
tail_em.s.a
aar.s
blm.s
cii.s
cmi.s
cmi4.s
cms.s
cmu.s
cmu4.s
csa.s
csb.s
cuu.s
dup.s
dvu2.s
dvu4.s
exg.s
gto.s
inn.s
lar.s
los2.s
mon.s
noop.s
prf.s
rck.s
rmu2.s
rmu4.s
sar.s
sigtrp.s
strhp.s
sts2.s
xset.s
unknown.s
trp.s
printf.s
save.s
end.s

17
mach/z8000/libem/Makefile
View File

@@ -1,17 +0,0 @@
install:
../../install head_em.s head_em
../../install tail_em.s.a tail_em
cmp:
-../../compare head_em.s head_em
-../../compare tail_em.s.a tail_em
clean:
opr :
make pr | opr
pr:
@pr head_em.s
@arch pv tail_em.s.a | pr -h `pwd`/tail_em.s.a

13
mach/z8000/libem/aar.s
View File

@@ -1,13 +0,0 @@
.define aar
!R1 contains description address
!R3 contains element number
!base address is on stack
aar:
sub R3, 0(R1)
mult RR2, 4(R1)
inc R15, $4
add R3, *RR14
ld *RR14, R3
dec R15, $4
ret

26
mach/z8000/libem/blm.s
View File

@@ -1,26 +0,0 @@
.define blm
!size in R0
blm:
popl saveret, *RR14
ldm savereg, R4, $10
ldk R2, $0
ld R4, R2
pop R3, *RR14 !RR2: dst address
pop R5, *RR14 !RR4: src address
ld R1, R0
sra R0
jr EQ, 2f
!now avoid wrong copy in case the pieces overlap
cp R5, R3
jr EQ, 2f
jr LT, 1f
ldir *RR2, *RR4, R0
jr 2f
1: dec R1, $2
add R3, R1
add R5, R1
lddr *RR2, *RR4, R0
2: ldm R4, savereg, $10
pushl *RR14, saveret
ret

24
mach/z8000/libem/cii.s
View File

@@ -1,24 +0,0 @@
.define cii
cii:
popl saveret, *RR14
pop R2, *RR14
pop R1, *RR14
sub R2, R1 !expansion in bytes
jr LE, 1f
sra R2 !expansion in words > 0
jr NC, 2f
pop R1, *RR14 !expand 1 --> 2
extsb R1
push *RR14, R1
test R2
jr EQ, 4f
2: !expand >= 1 word
ld R1, *RR14
exts RR0
3: push *RR14, R0
djnz R2, 3b
jr 4f
1: sub R15, R2
4: pushl *RR14, saveret
ret

14
mach/z8000/libem/cmi.s
View File

@@ -1,14 +0,0 @@
.define cmi
!size in R0
cmi:
cp R0, $2
jr NE, 1f
popl RR2, *RR14
pop R1, *RR14
pop R0, *RR14
sub R0, R1
jp *RR2
1: cp R0, $4
jr EQ, cmi4
jr unknown

15
mach/z8000/libem/cmi4.s
View File

@@ -1,15 +0,0 @@
.define cmi4
cmi4:
popl saveret, *RR14
popl RR0, *RR14
popl RR2, *RR14
subl RR2, RR0
ldk R0, $0
ldl RR2, saveret
jr LT, 1f
jp EQ, *RR2
inc R0
jp *RR2
1: dec R0
jp *RR2

19
mach/z8000/libem/cms.s
View File

@@ -1,19 +0,0 @@
.define cms
cms:
popl saveret, *RR14
ldm savereg, R4, $10
ldl RR2, RR14
add R3, R0
ldl RR4, RR2
add R5, R0
sra R0
2: pop R1, *RR14
cp R1, *RR2
jr NE, 1f
inc R3, $2
djnz R0, 2b
1: ld R15, R5
ldm R4, savereg, $10
pushl *RR14, saveret
ret

20
mach/z8000/libem/cmu.s
View File

@@ -1,20 +0,0 @@
.define cmu
!size in R0
cmu:
cp R0, $2
jr NE, 1f
popl RR2, *RR14
pop R1, *RR14
pop R0, *RR14
cp R0, R1
ldk R0, $0
jr ULT, 2f
jp EQ, *RR2
inc R0
jp *RR2
2: dec R0
jp *RR2
1: cp R0, $4
jr EQ, cmu4
jr unknown

15
mach/z8000/libem/cmu4.s
View File

@@ -1,15 +0,0 @@
.define cmu4
cmu4:
popl saveret, *RR14
popl RR0, *RR14
popl RR2, *RR14
cpl RR2, RR0
ldk R0, $0
ldl RR2, saveret
jr ULT, 1f
jp EQ, *RR2
inc R0
jp *RR2
1: dec R0
jp *RR2

19
mach/z8000/libem/csa.s
View File

@@ -1,19 +0,0 @@
.define csa
!R1 contains address of jump table
!R2 contains case index
csa:
sub R2, 2(R1)
jr LT, 1f
cp R2, 4(R1)
jr UGT, 1f
sla R2
add R1, R2
ld R2, 06(R1)
cp R2, $0
jr EQ, 2f
jp 0(R2)
1: ld R1, 0(R1)
jp NE, 0(R1)
2: push *RR14, $ECASE
jr fatal

21
mach/z8000/libem/csb.s
View File

@@ -1,21 +0,0 @@
.define csb
!R1 contains address of jump table
!R2 contains case index
csb:
ld R3, 0(R1) !default pointer
ld R0, 2(R1) !number of entries
test R0
jr EQ, 1f
3: inc R1, $4
cp R2, 0(R1)
jr EQ, 2f
djnz R0, 3b
1: ld R1, R3 !default pointer
jr 4f
2: ld R1, 2(R1)
4: test R1
jr EQ, 5f
jp 0(R1)
5: push *RR14, $ECASE
jr fatal

15
mach/z8000/libem/cuu.s
View File

@@ -1,15 +0,0 @@
.define cuu
cuu:
popl RR2, *RR14
pop R0, *RR14
pop R1, *RR14
sub R0, R1 !expansion in bytes
jr LE, 1f
sra R0 !expansion in words
jp EQ, *RR2
2: push *RR14, $0
djnz R0, 2b
jp *RR2
1: sub R15, R0
jp *RR2

12
mach/z8000/libem/dup.s
View File

@@ -1,12 +0,0 @@
.define dup
dup:
popl saveret, *RR14
dec R15, $2
ldl RR2, RR14
add R3, R0
sra R0
lddr *RR14, *RR2, R0
inc R15, $2
pushl *RR14, saveret
ret

17
mach/z8000/libem/dvu2.s
View File

@@ -1,17 +0,0 @@
.define dvu2
dvu2:
popl saveret, *RR14
pop R2, *RR14
pop R1, *RR14
test R2
jr MI, 1f
ldk R0, $0
div RR0, R2
2: pushl *RR14, saveret
ret
1: cp R2, R1
ldk R1, $0
jr UGT, 2b
inc R1
jr 2b

19
mach/z8000/libem/dvu4.s
View File

@@ -1,19 +0,0 @@
.define dvu4
dvu4:
popl saveret, *RR14
ldm savereg, R4, $10
popl RR4, *RR14
popl RR2, *RR14
testl RR4
jr MI, 1f
ldl RR0, $0
divl RQ0, RR4
jr 2f
1: cpl RR4, RR2
ldl RR2, $0
jr UGT, 2f
inc R3
2: ldm R4, savereg, $10
pushl *RR14, saveret
ret

11
mach/z8000/libem/end.s
View File

@@ -1,11 +0,0 @@
.define endtext, enddata, endbss, _etext, _edata, _end
.text
endtext:
_etext:
.data
enddata:
_edata:
.bss
endbss:
_end:

18
mach/z8000/libem/exg.s
View File

@@ -1,18 +0,0 @@
.define exg
!size (bytes) in R0
exg:
ldm savereg, R4, $10
ldl RR2, RR14
inc R3, $2
ldl RR4, RR2
add R5, R0
sra R0
1: ld R1, *RR2
ex R1, *RR4
ld *RR4, R1
inc R3, $2
inc R5, $2
djnz R0, 1b
ldm R4, savereg, $10
ret

8
mach/z8000/libem/gto.s
View File

@@ -1,8 +0,0 @@
.define gto
gto:
pop R3, *RR14
ld R13, 4(R3)
ld R15, 2(R3)
ld R3, 0(R3)
jp 0(R3)

57
mach/z8000/libem/head_em.s
View File

@@ -1,57 +0,0 @@
.define EXIT, F_DUM
.define ERANGE, ESET, EHEAP, EILLINS, EODDZ, ECASE, EBADMON
.define hol0, trppc, trpim, reghp, argv, envp
EXIT = 0
F_DUM = 0
ERANGE = 1
ESET = 2
EHEAP = 17
EILLINS = 18
EODDZ = 19
ECASE = 20
EBADMON = 25
.text
!clear .bss
ldk R2, $0
ld R3, $endbss
ld R0, R3
sub R0, $begbss
jr EQ, 1f
sra R0
push *RR2, $0
dec R0
jr EQ, 1f
ldl RR4, RR2
dec R5, $2
lddr *RR4, *RR2, R0
1:
ldb RL0, $10 ! echo newline
sc $4
ldl RR14, $0
push *RR14, envp
push *RR14, argv
push *RR14, $1
calr _m_a_i_n
ldl RR14, $0xC00017FC
sc $0
.bss
begbss:
.data
hol0:
.word 0,0 ! line no
.word 0,0 ! file
trppc:
.word 0
trpim:
.word 0
argv:
envp:
.word 1f
.word 0
1: .asciz "program"
reghp:
.word endbss

23
mach/z8000/libem/inn.s
View File

@@ -1,23 +0,0 @@
.define inn
!bitnr in R1
!size (bytes) in R2
inn:
ld R3, R2
sra R2
ldk R0, $0
div RR0, $020 !R0: bitnr, R1: wordnr
cp R1, R2
jr UGE, 1f !R1 must be < R2
inc R1, $2 !R1 contains nr of words from top stack
sla R1
ld R1, RR14(R1)
bit R1, R0
jr EQ, 1f
ldk R0, $1
jr 2f
1: ldk R0, $0
2: ld R1, R3
popl RR2, *RR14
add R15, R1
jp *RR2

23
mach/z8000/libem/lar.s
View File

@@ -1,23 +0,0 @@
.define lar
!R1 contains description address
!R3 contains element number
!base address is on stack
lar:
popl saveret, *RR14
sub R3, 0(R1)
ld R0, 4(R1) !nr of bytes per element
mult RR2, R0
add R3, *RR14
add R3, R0
sra R0 !nr of words per element
jr EQ, 1f
dec R3, $2
lddr *RR14, *RR2, R0
inc R15, $2
jr 2f
1: ldb RL2, -1(R3)
ldb RH2, $0
ld *RR14, R2
2: ldl RR2, saveret
jp *RR2

20
mach/z8000/libem/los2.s
View File

@@ -1,20 +0,0 @@
.define los2
los2:
popl saveret, *RR14
pop R0, *RR14 !object size
ldk R2, $0
pop R3, *RR14 !address of object
cp R0, $1
jr NE, 1f
ldb RL0, *RR2
push *RR14, R0
jr 2f
1: add R3, R0
dec R3, $2
dec R15, $2
sra R0
lddr *RR14, *RR2, R0
inc R15, $2
2: pushl *RR14, saveret
ret

83
mach/z8000/libem/mon.s
View File

@@ -1,83 +0,0 @@
.define mon
mon:
popl saveret, *RR14
pop R0, *RR14 ! iocode
cp R0, $1 ! exit
jr NE, read
inc R15, $2
sc $EXIT
read: cp R0, $3 ! read
jr NE, write
pop R0, *RR14 ! dummy; all input from stdin
pop R1, *RR14 ! ptr to buffer
pop R2, *RR14 ! nr of bytes to be read
ld R3, R1
cp R2, $0
jr EQ, 6f
1: sc $2 ! read character into RL0
cpb RL0, $004 ! \^D
jr EQ, 6f
cpb RL0, $015 ! \cr
jr NE, 2f
ldb RL0, $012
2: sc $4 ! echo
cpb RL0, $010 ! \^H
jr NE, 3f
cp R1, R3
jr EQ, 5f
dec R1
jr 5f
3: cpb RL0, $0100 ! \@
jr NE, 4f
ld R1, R3
ldb RL0, $012
sc $4
jr 5f
4: ldb 0(R1), RL0
inc R1
cpb RL0, $012 ! \nl
jr EQ, 6f
5: djnz R2, 1b
6: sub R1, R3 ! nr of bytes read
push *RR14, R1
push *RR14, $0
jr retu
write: cp R0, $4 ! write
jr NE, open
pop R0, *RR14 ! dummy; all output to stdout
pop R1, *RR14 ! ptr to buffer
pop R2, *RR14 ! nr of bytes to be written
ld R3, R2
cp R2, $0
jr EQ, 8f
9: ld R0, $5000 ! counter to delay printing a little
7: djnz R0, 7b
ldb RL0, 0(R1)
sc $4
inc R1
djnz R2, 9b
8: sub R3, R2 ! nr of bytes written
push *RR14, R3
push *RR14, $0
jr retu
open: cp R0, $5 ! open
jr close
jr NE, close
ld *RR14, $0
ld 2(R15), $0
jr retu
close: cp R0, $6 ! close
jr NE, ioctl
ld *RR14, $0
jr retu
ioctl: cp R0, $54 ! ioctl
jr NE, err
inc R15, $4
ld *RR14, $0
retu: ldl RR2, saveret
jp *RR2
err: push *RR14, saveret
push *RR14, $EBADMON
calr trp
ret

9
mach/z8000/libem/noop.s
View File

@@ -1,9 +0,0 @@
.define noop
noop:
push *RR14, hol0
push *RR14, $fmt
calr prf
ret
.data
fmt: .asciz "test %d\n"

36
mach/z8000/libem/prf.s
View File

@@ -1,36 +0,0 @@
.define prf
prf:
ld R0, hol0+4 !pointer to filename
cp R0, $0
jr EQ, 1f
ld R2, R0
ld R1, $40
3: !test filename on bad characters
ldb R3, 0(R2)
cpb R3, $0
jr EQ, 2f
cpb R3, $0177
jr GE, 1f
cpb R3, $040
jr LT, 1f
inc R2
djnz R1, 3b
clrb 0(R2)
2: push *RR14, hol0
ld R1, R15
push *RR14, R1
push *RR14, R0
push *RR14, $fmt1
calr printf
popl saveprf, *RR14 !return address
calr printf !because of call from 'noop'
pushl *RR14, saveprf
ret
1: ld R0, $name
jr 2b
.data
fmt1: .asciz "%s, sp = %x, line %d:\n"
name: .asciz "_unknown file_"
saveprf:
.long 0

82
mach/z8000/libem/printf.s
View File

@@ -1,82 +0,0 @@
.define printf
printf:
popl saveret, *RR14
ldm savereg, R4, $10
ld R3, $buff !R3 is pointer to a buffer, in which
!we built the string to be printed.
pop R2, *RR14 !R2 is pointer to format-string
prloop:
ldb RL0, 0(R2)
testb RL0
jr EQ, ready
inc R2
cpb RL0, $045 ! '%'?
jr NE, 1f
ldb RL0, 0(R2)
inc R2
cpb RL0, $0163 ! 's'?
jr EQ, 3f
cpb RL0, $0170 ! 'x'?
ld R4, $16 ! print number hexadecimal
jr EQ, 2f
cpb RL0, $0144 ! 'd'?
ld R4, $10 ! print number decimal
jr EQ, 2f
cpb RL0, $0157 ! 'o'?
ld R4, $8 ! print number octal
jr EQ, 2f
1: ldb 0(R3), RL0
inc R3
jr prloop
2: !in case of %x, %d or %o
pop R1, *RR14
test R1
jr PL, 4f
cp R4, $10
jr NE, 4f ! print only '-' in case of %d
ldb 0(R3), $055 ! '-'
inc R3
neg R1
4: calr printn
jr prloop
3: !in case of %s
pop R1, *RR14
6: ldb RL0, 0(R1)
testb RL0
jr EQ, prloop
inc R1
ldb 0(R3), RL0
inc R3
jr 6b
ready: !now really print the string we built in the buffer
ldb 0(R3), RL0 !end string with '\0'
sub R3, $buff-1 !R3 contains the number of characters
ld R1, $buff
7: ldb RL0, 0(R1)
inc R1
sc $4
djnz R3, 7b
ldm R4, savereg, $10
pushl *RR14, saveret
ret
printn:
ldk R0, $0
div RR0, R4 !%x, %d or %o determined by R4
test R1
jr EQ, 5f !if quotient is '0' printn is ready
push *RR14, R0 !push remainder onto the stack
calr printn
pop R0, *RR14
5: add R0, $060
cp R0, $071 !'9'
jr LE, 8f
add R0, $7
8: ldb 0(R3), RL0
inc R3
ret
.data
buff:
.space 256

11
mach/z8000/libem/rck.s
View File

@@ -1,11 +0,0 @@
.define rck
rck:
ld R0, RR14($4)
cp R0, 0(R1)
jr LT, 1f
cp R0, 2(R1)
jr LE, 2f
1: push *RR14, $ERANGE
calr trp
2: ret

17
mach/z8000/libem/rmu2.s
View File

@@ -1,17 +0,0 @@
.define rmu2
rmu2:
popl saveret, *RR14
pop R2, *RR14
pop R1, *RR14
test R2
jr MI, 1f
ldk R0, $0
div RR0, R2
2: pushl *RR14, saveret
ret
1: ld R0, R1
cp R2, R1
jp UGT, 2b
sub R0, R2
jp 2b

19
mach/z8000/libem/rmu4.s
View File

@@ -1,19 +0,0 @@
.define rmu4
rmu4:
popl saveret, *RR14
ldm savereg, R4, $10
popl RR4, *RR14
popl RR2, *RR14
testl RR4
jr MI, 1f
ldl RR0, $0
divl RQ0, RR4
jr 2f
1: ldl RR0, RR2
cpl RR4, RR2
jr UGT, 2f
sub RR0, RR4
2: ldm R4, savereg, $10
pushl *RR14, saveret
ret

20
mach/z8000/libem/sar.s
View File

@@ -1,20 +0,0 @@
.define sar
!R1 contains description address
!R3 contains element number
!base address is on stack
sar:
popl saveret, *RR14
sub R3, 0(R1)
ld R0, 4(R1) !nr of bytes per element
mult RR2, R0
add R3, *RR14
inc R15, $2
sra R0 !nr of words per element
jr EQ, 1f
ldir *RR2, *RR14, R0
jr 2f
1: pop R1, *RR14
ldb *RR2, RL1
2: ldl RR2, saveret
jp *RR2

8
mach/z8000/libem/save.s
View File

@@ -1,8 +0,0 @@
.define saveret
.define savereg
.data
saveret:
.long 0
savereg:
.space 20

0
mach/z8000/libem/sigtrp.s
View File

10
mach/z8000/libem/strhp.s
View File

@@ -1,10 +0,0 @@
.define strhp
strhp:
popl RR2, *RR14
pop R0, *RR14
ld reghp, R0 !heappointer must be < stackpointer.
cp R0, R15
jp ULT, *RR2
push *RR14, $EHEAP
jr fatal

16
mach/z8000/libem/sts2.s
View File

@@ -1,16 +0,0 @@
.define sts2
sts2:
popl saveret, *RR14
pop R0, *RR14 !object size
ldk R2, $0
pop R3, *RR14 !address of object
cp R0, $1
jr NE, 1f
pop R0, *RR14
ldb *RR2, RL0
jr 2f
1: sra R0
ldir *RR2, *RR14, R0
2: pushl *RR14, saveret
ret

38
mach/z8000/libem/trp.s
View File

@@ -1,38 +0,0 @@
.define trp, fatal
fatal:
calr trp
sc $EXIT
trp:
push *RR14, R1
inc R15, $2
popl saveret, *RR14
pop R1, *RR14 !trap number in R1
pushl *RR14, saveret
push *RR14, R0
dec R15, $2
cp R1, $16
jr UGE, 1f
ld R0, trpim
bit R0, R1
jr NE, 2f !ignore
1: sub R15, $24
ldm *RR14, R2, $12
push *RR14, R1
ld R1, trppc
cp R1, $0
jr EQ, 3f
clr trppc
call 0(R1)
inc R15, $2
ldm R2, *RR14, $12
add R15, $24
2: pop R1, *RR14
pop R0, *RR14
ret
3: push *RR14, $err
calr printf
sc $EXIT
.data
err: .asciz "trap error %d\n"

5
mach/z8000/libem/unknown.s
View File

@@ -1,5 +0,0 @@
.define unknown
unknown:
push *RR14, $EODDZ
jr fatal

22
mach/z8000/libem/xset.s
View File

@@ -1,22 +0,0 @@
.define xset
!bitnr in R1
!size (bytes) in R0
xset:
popl saveret, *RR14
sra R0
ld R2, R0
1: push *RR14, $0
djnz R0, 1b
div RR0, $020 !R0: bitnr, R1: wordnr
cp R1, R2
jr UGE, 2f
ldk R2, $0
set R2, R0
sla R1
ld RR14(R1), R2
3: pushl *RR14, saveret
ret
2: push *RR14, $ESET
calr trp
jr 3b

20
mach/z8000/libpc/Makefile
View File

@@ -1,20 +0,0 @@
MAKEFILE=../../proto/libg/Makefile
MACHDEF="MACH=z8000" "SUF=s"
PCDEF="PREF=pc" "SUB=" "SRC=lang/pc/libpc"
install:
make -f $(MAKEFILE) $(PCDEF) $(MACHDEF) cp
cmp:
make -f $(MAKEFILE) $(PCDEF) $(MACHDEF) all
-../../compare head_pc
-../../compare tail_pc
clean:
-rm -f *.old *.[ce$(SUF)] tail* head*
opr:
make pr | opr
pr:
@pr Makefile

2
mach/z8000/libpc/compmodule
View File

@@ -1,2 +0,0 @@
${MACH?} -I../../../h ${MACHFL?} $1 1>&2
echo `basename $1 $2`.s