4 Commits

Author SHA1 Message Date
David Given
0bebc8f2de Rename branch.
--HG--
branch : unlabeled-2.4.1-branch
2015-06-18 23:39:27 +02:00
ceriel
97ec0db6eb This is Kees Visser's version, implementing 4-4.
--HG--
branch : unlabeled-2.4.1
1986-07-21 09:19:34 +00:00
em
c855ee716f Added some xtra output for Henk Schouten's debugger.
--HG--
branch : unlabeled-2.4.1
1985-02-26 15:05:20 +00:00
cvs2hg
c02387e38d fixup commit for branch 'unlabeled-2.4.1'
--HG--
branch : unlabeled-2.4.1
1984-10-16 13:31:45 +00:00
3 changed files with 3267 additions and 12 deletions

3221
lang/pc/pem/pem.p Normal file

File diff suppressed because it is too large Load Diff

View File

@@ -1,12 +0,0 @@
.define endtext, enddata, endbss, end
.text
.align 2
endtext:
.data
.align 2
enddata:
.bss
.align 2
endbss:
end:

46
mach/pdp/cg/mach.h Normal file
View File

@@ -0,0 +1,46 @@
/* $Header$ */
/* The next define switches between codegeneration for an ACK assembler
* or for the standard UNIX V7 assembler.
* If on code is generated for the ACK assembler.
*/
/* #define ACK_ASS /* code for ACK assembler */
#ifdef ACK_ASS
#define COMMENTCHAR '!'
#define ex_ap(y) fprintf(codefile,".extern %s\n",y)
#else
#define COMMENTCHAR '/'
#define ex_ap(y) fprintf(codefile,".globl %s\n",y)
#endif
#define in_ap(y) /* nothing */
#define newplb(x) doplb(x)
#define newilb(x) fprintf(codefile,"%s:\n",x)
#define newdlb(x) fprintf(codefile,"%s:\n",x)
#ifdef ACK_ASS
#define newlbss(l,x) fprintf(codefile,"%s:.space 0%o\n",l,x);
#else
#define newlbss(l,x) fprintf(codefile,"%s:.=.+0%o\n",l,x);
#endif
#define cst_fmt "$0%o"
#define off_fmt "0%o"
#define ilb_fmt "I%03x%x"
#define dlb_fmt "_%d"
#define hol_fmt "hol%d"
#define hol_off "0%o+hol%d"
#ifdef ACK_ASS
#define con_cst(x) fprintf(codefile,".short 0%o\n",x)
#define con_ilb(x) fprintf(codefile,".short %s\n",x)
#define con_dlb(x) fprintf(codefile,".short %s\n",x)
#else
#define con_cst(x) fprintf(codefile,"0%o\n",x)
#define con_ilb(x) fprintf(codefile,"%s\n",x)
#define con_dlb(x) fprintf(codefile,"%s\n",x)
#endif
#define id_first '_'
#define BSS_INIT 0