diff os9/mc09/mc.c @ 105:6eef99bb4771

fix runtime
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 29 Dec 2018 12:25:26 +0900
parents 096b3fc7aa66
children 6566b9f47f4a
line wrap: on
line diff
--- a/os9/mc09/mc.c	Fri Dec 28 17:43:55 2018 +0900
+++ b/os9/mc09/mc.c	Sat Dec 29 12:25:26 2018 +0900
@@ -212,7 +212,8 @@
 	if (!chk) {
 		if ( (obuf = fopen(ccout,"w")) == NULL ) error(FILERR);
                 else {
-                    printf("\tmod   _eom,_name,_tylg,_atrv,_start,_GLOBALS\n");    /* os9 module header */
+                    /* we'l resize data area later */
+                    printf("\tmod   _eom,_name,_tylg,_atrv,_start,16384\n");    /* os9 module header */
                     printf("_name      fcs   /%s/\n\tfcb 0\n",modname);
                 }
         }
@@ -1865,9 +1866,9 @@
 	s=(char *)cadr(e1);
 	lb=fwdlabel();
 	if ((l = caddr(e1)) < 128)
-		printf("\tLEAX\t2,PC\n\tBRA\t_%d\n",lb);
+		printf("\tLEAX\t*+5,PCR\n\tBRA\t_%d\n",lb);
 	else
-		printf("\tLEAX\t3,PC\n\tLBRA\t_%d\n",lb);
+		printf("\tLEAX\t*+6,PCR\n\tLBRA\t_%d\n",lb);
 	do
 	{	printf("\tFCB\t%d",*s++);
 		for (i=8; --l && --i;) printf(",%d",*s++);