//static PTR fixupPtr = { .tk = (fixupExpr + 1) }; // C99 \o/
static PTR fixupPtr = { (uint8_t *)(fixupExpr + 1) }; // meh, it works
-
//
// The main Object Processor assembler. Basically just calls the sub functions
// to generate the appropriate code.
if (!robjproc)
return error("opcode only valid in OP mode");
+ // It's OK to call this before validating state. If the state is invalid, an
+ // error will be generated and no object file will be produced, so it
+ // doesn't matter if the line number symbols are a little off.
+ GENLINENOSYM();
+
switch (state)
{
case MO_BITMAP:
return error("unknown OP opcode");
}
-
static inline void GetSymbolUCFromTokenStream(char * s)
{
strcpy(s, string[tok[1]]);
tok += 2;
}
-
static inline uint64_t CheckFlags(char * s)
{
GetSymbolUCFromTokenStream(s);
return 0x04;
else if (strcmp(scratchbuf, "RELEASE") == 0)
return 0x08;
+
return 0;
}
-
//
// Define a bitmap object
// Form: bitmap <data>, <xloc>, <yloc>, <dwidth>, <iwidth>, <iheight>, <bpp>,
}
}
- at_eol();
+ ErrorIfNotAtEOL();
uint64_t p1 = 0x00 | ((ypos * 2) << 3) | (iheight << 14) | (linkAddr << 21) | (dataAddr << 40);
uint64_t p2 = xpos | (bpp << 12) | (pitch << 15) | (dwidth << 18) | (iwidth << 28) | (index << 38) | (flags << 45) | (firstpix << 49);
return OK;
}
-
//
// Define a scaled bitmap object
// Form: scbitmap <data>, <xloc>, <yloc>, <dwidth>, <iwidth>, <iheight>,
}
}
- at_eol();
+ ErrorIfNotAtEOL();
uint64_t p1 = 0x01 | ((ypos * 2) << 3) | (iheight << 14) | (linkAddr << 21) | (dataAddr << 40);
uint64_t p2 = xpos | (bpp << 12) | (pitch << 15) | (dwidth << 18) | (iwidth << 28) | (index << 38) | (flags << 45) | (firstpix << 49);
return OK;
}
-
//
// Insert GPU object
-// Form: gpuobj <line #>, <userdata> (bits 14-63 of this object)
+// Form: gpuobj <userdata> (bits 3-63 of this object)
//
static int HandleGPUObject(void)
{
uint16_t eattr;
SYM * esym = 0;
- if (expr(exprbuf, &eval, &eattr, &esym) != OK)
- return ERROR;
-
- if (!(eattr & DEFINED))
- return error("bad expression in y position");
-
- uint64_t ypos = eval;
-
- CHECK_COMMA;
-
if (expr(exprbuf, &eval, &eattr, &esym) != OK)
return ERROR;
if (!(eattr & DEFINED))
return error("bad expression in data");
- at_eol();
+ ErrorIfNotAtEOL();
- uint64_t p1 = 0x02 | ((ypos * 2) << 3) | (eval << 14);
+ uint64_t p1 = 0x02 | (eval << 3);
lastObjType = 2;
D_quad(p1);
return OK;
}
-
//
// Insert a branch object
// Form: branch VC <condition (<, =, >)> <line #>, <link addr>
if (!(eattr & DEFINED))
AddFixup(FU_QUAD | FU_OBJLINK, sloc, exprbuf);
- at_eol();
+ ErrorIfNotAtEOL();
uint64_t p1 = 0x03 | (cc << 14) | ((ypos * 2) << 3) | ((eval & 0x3FFFF8) << 21);
return OK;
}
-
//
// Insert a stop object
// Form: stop
return OK;
}
-
//
// Insert a phrase sized "NOP" in the object list (psuedo-op)
// Form: nop
return OK;
}
-
//
// Insert an unconditional jump in the object list (psuedo-op)
// Form: jump <link addr>
if (!(eattr & DEFINED))
AddFixup(FU_QUAD | FU_OBJLINK, sloc, exprbuf);
- at_eol();
+ ErrorIfNotAtEOL();
// This is "branch if VC < 2047", which pretty much guarantees the branch.
uint64_t p1 = 0x03 | (1 << 14) | (0x7FF << 3) | ((eval & 0x3FFFF8) << 21);
return OK;
}
-