- int state; // Keyword machine state (output)
- int j; // Random int, must be fast
- char * p; // Random char ptr, must be fast
- TOKEN * tk; // First token in line
- char * label; // Symbol (or NULL)
- char * equate; // Symbol (or NULL)
- int labtyp = 0; // Label type (':', DCOLON)
- int equtyp = 0; // Equ type ('=', DEQUALS)
- VALUE eval; // Expression value
- WORD eattr; // Expression attributes
- SYM * esym; // External symbol involved in expr.
- WORD siz = 0; // Size suffix to mnem/diretve/macro
- LONG amsk0, amsk1; // Address-type masks for ea0, ea1
- MNTAB * m; // Code generation table pointer
- SYM * sy, * sy2; // Symbol (temp usage)
- char * opname = NULL; // Name of dirctve/mnemonic/macro
- int listflag; // 0: Don't call listeol()
- int as68mode = 0; // 1: Handle multiple labels
- WORD rmask; // Register list, for REG
- int registerbank; // RISC register bank
- int riscreg; // RISC register
-
- listflag = 0; // Initialise listing flag
-
-loop: // Line processing loop label
-
- if (tokln() == TKEOF)
- { // Get another line of tokens
- if (list_flag && listflag) // Flush last line of source
+ int state; // Keyword machine state (output)
+ int j; // Random int, must be fast
+ char * p; // Random char ptr, must be fast
+ TOKEN * tk; // First token in line
+ char * label; // Symbol (or NULL)
+ char * equate; // Symbol (or NULL)
+ int labtyp = 0; // Label type (':', DCOLON)
+ int equtyp = 0; // Equ type ('=', DEQUALS)
+ uint64_t eval; // Expression value
+ WORD eattr; // Expression attributes
+ SYM * esym; // External symbol involved in expr.
+ WORD siz = 0; // Size suffix to mnem/diretve/macro
+ LONG amsk0, amsk1; // Address-type masks for ea0, ea1
+ MNTAB * m; // Code generation table pointer
+ SYM * sy, * sy2; // Symbol (temp usage)
+ char * opname = NULL; // Name of dirctve/mnemonic/macro
+ int listflag; // 0: Don't call listeol()
+ WORD rmask; // Register list, for REG
+ int registerbank; // RISC register bank
+ int riscreg; // RISC register
+ listflag = 0; // Initialise listing flag
+
+loop: // Line processing loop label
+
+ // Get another line of tokens
+ if (TokenizeLine() == TKEOF)
+ {
+DEBUG { printf("Assemble: Found TKEOF flag...\n"); }
+ if (list_flag && listflag) // Flush last line of source