mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-07-13 11:28:58 +00:00
62 lines
1.5 KiB
C
62 lines
1.5 KiB
C
|
/******************************************************
|
||
|
|
* C02 Label Parsing, Generation, and Lookup Routines *
|
||
|
|
******************************************************/
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <ctype.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <errno.h>
|
||
|
|
|
||
|
|
#include "common.h"
|
||
|
|
#include "asm.h"
|
||
|
|
#include "parse.h"
|
||
|
|
#include "label.h"
|
||
|
|
|
||
|
|
/* Set label for next line of *
|
||
|
|
* Assembly Language Code *
|
||
|
|
* to word */
|
||
|
|
void setlbl(char *lblset)
|
||
|
|
{
|
||
|
|
DEBUG("Setting Label '%s''\n", lblset);
|
||
|
|
if (strlen(lblasm) > 0)
|
||
|
|
asmlin("",""); //Emit Block End Label on it's own line
|
||
|
|
if (strlen(word) > LABLEN)
|
||
|
|
ERROR("Label '%s' exceeds maximum size", word, EXIT_FAILURE);
|
||
|
|
strcpy(lblasm, lblset);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* parse label in code */
|
||
|
|
void prslbl()
|
||
|
|
{
|
||
|
|
DEBUG("Parsing Label '%s''\n", word);
|
||
|
|
skpchr(); //skip ':'
|
||
|
|
setlbl(word);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* generate new label */
|
||
|
|
void newlbl(int lbtype)
|
||
|
|
{
|
||
|
|
sprintf(curlbl, LABFMT, lblnxt++);
|
||
|
|
DEBUG("Generated new label '%s'\n", curlbl);
|
||
|
|
strcpy(lblnam[lblcnt++], curlbl);
|
||
|
|
lbltyp[lblcnt] = lbtype;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* set label to emit on next line and remove from stack */
|
||
|
|
void lbllin()
|
||
|
|
{
|
||
|
|
int lbtype = lbltyp[--lblcnt];
|
||
|
|
if (lbtype == 1) {
|
||
|
|
DEBUG("Ending Loop at Level %d'\n", lblcnt);
|
||
|
|
strcpy(endlbl, lblnam[lblcnt]); //Save End of Loop Label
|
||
|
|
asmlin("JMP", lblnam[--lblcnt]); //Jump to Beginning of Loop
|
||
|
|
setlbl(endlbl); //Set End of Loop Label
|
||
|
|
}
|
||
|
|
else
|
||
|
|
setlbl(lblnam[lblcnt]);
|
||
|
|
DEBUG("Set label '%s' to emit on next line\n", lblasm);
|
||
|
|
}
|
||
|
|
|
||
|
|
|