fprintf(stderr, "CSPACE\n");
#endif
t = outname(s);
- printf(".bank D\n.area comm_%.8s (rel,ovr,bank = D)\n%.8s:.ds %d\n.area %s\n", t, t, geti(), area);
+ printf(".globl %8.s\n.bank D\n.area comm_%.8s (rel,ovr,bank = D)\n%.8s:.ds %d\n.area %s\n", t, t, t, geti(), area);
break;
case SSPACE:
if (p->op==JBR || p->op==JMP) {
while (p->forw && p->forw->op!=LABEL
&& p->forw->op!=DLABEL
- && p->forw->op!=EROU && p->forw->op!=END
+ && p->forw->op!=GLOBL/*EROU*/ && p->forw->op!=END
&& p->forw->op!=0 && p->forw->op!=DATA) {
nchange++;
iaftbr++;
;sbrk gets increment more core, and returns a pointer
; to the beginning of the new core area
;
+
+; note: _end symbol changed to e_D for aslink (end of bank D)
+
.globl _sbrk, _brk
-.globl _end, cerror
+.globl e_D, cerror
.break = 17
_sbrk:
_2:
sys .break
_0:.dw 0 ;..
-nd: .dw _end
+nd: .dw e_D