extern char rb[NINPUT]; /* LST file text line being
* address relocated
*/
-extern char ctype[]; /* array of character types, one per
+extern unsigned char ctype[]; /* array of character types, one per
* ASCII character
*/
* array of character types, one per
* ASCII character
*/
-char ctype[128] = {
+unsigned char ctype[128] = {
/*NUL*/ ILL, ILL, ILL, ILL, ILL, ILL, ILL, ILL,
/*BS*/ ILL, SPACE, ILL, ILL, SPACE, ILL, ILL, ILL,
/*DLE*/ ILL, ILL, ILL, ILL, ILL, ILL, ILL, ILL,
return(v);
}
if (c == '-') {
- return(-expr(100));
+ return(0-expr(100));
}
if (c == '~') {
return(~expr(100));
chk = 0;
for(pos = 0x0134; pos < 0x014D; pos++)
chk += cart[pos/SEGSIZE][pos%SEGSIZE];
- cart[0x014D/SEGSIZE][0x014D%SEGSIZE] = 0xE7 - (chk&0xFF);
+ cart[0x014D/SEGSIZE][0x014D%SEGSIZE] = (unsigned char)(0xE7 - (chk&0xFF));
/* Update checksum */
chk = 0;
cart[0x014E/SEGSIZE][0x014E%SEGSIZE] = 0;
for(i = 0; i < NBSEG; i++)
for(pos = 0; pos < SEGSIZE; pos++)
chk += cart[i][pos];
- cart[0x014E/SEGSIZE][0x014E%SEGSIZE] = (chk>>8)&0xFF;
- cart[0x014F/SEGSIZE][0x014F%SEGSIZE] = chk&0xFF;
+ cart[0x014E/SEGSIZE][0x014E%SEGSIZE] = (unsigned char)((chk>>8)&0xFF);
+ cart[0x014F/SEGSIZE][0x014F%SEGSIZE] = (unsigned char)(chk&0xFF);
for(i = 0; i < NBSEG; i++)
fwrite(cart[i], 1, SEGSIZE, ofp);
fprintf(ofp, "00");
}
}
- fprintf(ofp, "%02X\n", (-chksum) & 0xff);
+ fprintf(ofp, "%02X\n", (0-chksum) & 0xff);
} else {
fprintf(ofp, ":00000001FF\n");
}
chksum += rtval[i];
}
}
- fprintf(ofp, "%02X\n", (-chksum-1) & 0xff);
+ fprintf(ofp, "%02X\n", (0-chksum-1) & 0xff);
} else {
fprintf(ofp, "S9030000FC\n");
}
struct sym *
newsym()
{
- register int c, i, nglob;
+ register unsigned i ;
+ register unsigned nglob ;
+ register int c ;
struct sym *tsp;
struct sym **s;
char id[NCPS];