mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-06-08 06:29:32 +00:00
89 lines
1.6 KiB
C
89 lines
1.6 KiB
C
/*************************************
|
|
* C02 Assembly Language Routines *
|
|
*************************************/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <ctype.h>
|
|
#include <string.h>
|
|
#include <errno.h>
|
|
|
|
#include "common.h"
|
|
#include "files.h"
|
|
#include "parse.h"
|
|
#include "asm.h"
|
|
|
|
char asmcmt[LINELEN]; //Processed Assembly Language Comment
|
|
|
|
/* Set comment to string */
|
|
void setcmt(char *s)
|
|
{
|
|
strcpy(cmtasm, s);
|
|
}
|
|
|
|
/* Append string to comment */
|
|
void addcmt(char *s)
|
|
{
|
|
//strcat(cmtasm, " ");
|
|
strcat(cmtasm, s);
|
|
}
|
|
|
|
/* Append character to comment */
|
|
void chrcmt(char c)
|
|
{
|
|
if (cmtasm[0] == 0 && c == ' ') return;
|
|
int i = strlen(cmtasm);
|
|
cmtasm[i++] = c;
|
|
cmtasm[i] = 0;
|
|
}
|
|
|
|
/* Process comment */
|
|
void prccmt()
|
|
{
|
|
if (strlen(cmtasm)) {
|
|
strcpy(asmcmt, ";");
|
|
strcat(asmcmt, cmtasm);
|
|
}
|
|
else
|
|
asmcmt[0] = 0;
|
|
setcmt("");
|
|
}
|
|
|
|
/* output a single line of assembly code */
|
|
void asmlin(char *opcode, char *oprnd)
|
|
{
|
|
if (strlen(lblasm)) strcat(lblasm, LABSFX);
|
|
prccmt();
|
|
fprintf(outfil, ASMFMT, lblasm, opcode, oprnd, asmcmt);
|
|
if (debug) printf(ASMFMT, lblasm, opcode, oprnd, asmcmt);
|
|
lblasm[0] = 0;
|
|
}
|
|
|
|
/* output a single comment line */
|
|
void cmtlin()
|
|
{
|
|
DEBUG("Writing Comment Line: %s\n", cmtasm);
|
|
fprintf(outfil, "; %s\n", cmtasm);
|
|
setcmt("");
|
|
}
|
|
|
|
/* Output a variable definition line *
|
|
* Uses: word - assembly oprnd */
|
|
void equlin()
|
|
{
|
|
fprintf(outfil, ASMFMT, lblasm, EQUOP, word, "");
|
|
if (debug) printf(ASMFMT, lblasm, EQUOP, word, "");
|
|
lblasm[0] = 0;
|
|
}
|
|
|
|
void prolog()
|
|
{
|
|
DEBUG("Writing Assembly Prolog\n", 0);
|
|
asmlin(CPUOP,CPUARG);
|
|
strcpy(cmtasm, "Program ");
|
|
strcat(cmtasm, srcnam);
|
|
cmtlin();
|
|
}
|
|
|
|
|