1
0
mirror of https://github.com/rzzzwilson/pymlac.git synced 2025-06-10 09:32:41 +00:00

Fixed iasm error, bad checksum and start address block

This commit is contained in:
Ross Wilson 2016-03-05 15:54:28 +07:00
parent b15e8c59ce
commit cb58edfdf6

View File

@ -498,8 +498,8 @@ emitblock(void)
for (i = 0; i < nextcodeword; ++i)
{
checksum = checksum + codeblock[i];
if (checksum & ~WORDMASK)
++checksum;
// if (checksum & ~WORDMASK)
// ++checksum;
checksum &= WORDMASK;
emitword(codeblock[i]);
}
@ -586,7 +586,7 @@ Description : Emit papertape end-of-code start block.
static void
emitstart(WORD address)
{
emitbyte(1); /* one byte block */
emitbyte(0377); /* one byte block */
emitword(address); /* start address */
}