d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Due to an 8 character identifiers limitation on EM calls to

Browse source 
"setchannel" were changed into "setchan" and the identifier
"seektable" is replaced by "seektab".
This commit is contained in:
keie 1985-01-21 14:50:12 +00:00
parent 770f321ea8
commit 374ac8b21c
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lang/basic/src.old/gencode.c
View file

@ -89,8 +89,8 @@ datatable()
int line=0;
/* called at end to generate the data seek table */
fprintf(emfile," exa _seektable\n");
fprintf(emfile,"_seektable\n");
fprintf(emfile," exa _seektab\n");
fprintf(emfile,"_seektab\n");
l= datalist;
while(l)
{
@ -192,7 +192,7 @@ int lab;
/* save this information too */
emcode("loc",itoa(0));
emcode("cal","$_setchannel");
emcode("cal","$_setchan");
emcode("asp",EMINTSIZE);
emcode("loc",itoa(lab));
emcode("cal","$_restore");
@ -266,7 +266,7 @@ setchannel(val)
int val;
{ /* obtain file descroption */
emcode("loc",itoa(val));
emcode("cal","$_setchannel");
emcode("cal","$_setchan");
emcode("asp",EMINTSIZE);
}
/* The if-then-else statements */
@ -541,7 +541,7 @@ prolog2()
if( dataused)
{
fprintf(emfile," loc 0\n");
fprintf(emfile," cal $_setchannel\n");
fprintf(emfile," cal $_setchan\n");
fprintf(emfile," asp EM_WSIZE\n");
fprintf(emfile,"datfname\n rom \"%s\"\n", datfname);
fprintf(emfile," lae datfname\n");