bug fix: csa descriptors contained upb instead of upb - lwb.

diff --git a/lang/basic/src.old/graph.c b/lang/basic/src.old/graph.c
index 545d499..ee0c86c 100644 (file)
--- a/lang/basic/src.old/graph.c
+++ b/lang/basic/src.old/graph.c
@@ -220,7 +220,7 @@ int type;
        descr= genlabel();
        firstlabel=genlabel();
        fprintf(tmpfile,"l%d\n",descr); emlinecount++;
-       fprintf(tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt); emlinecount++;
+       fprintf(tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt-1); emlinecount++;
        l= jumphead;
        while( l)
        {
@@ -244,7 +244,7 @@ int type;
        descr= genlabel();
        firstlabel=genlabel();
        fprintf(tmpfile,"l%d\n",descr); emlinecount++;
-       fprintf(tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt); emlinecount++;
+       fprintf(tmpfile," rom *%d,1,%d\n",firstlabel,jumpcnt-1); emlinecount++;
        l= jumphead;
        while( l)
        {