#include <setjmp.h>
#include <string.h>
-//#if !defined(_MSC_VER)
-//#include <alloc.h>
-//#endif
-
#ifdef SDK
#include <stdlib.h>
#include <math.h>
#undef HUGE
#endif
#include "asm.h"
+#include "z80.h"
/*)Module asmain.c
*
* char getnb() aslex.c
* VOID getst() aslex.c
* sym * lookup() assym.c
- * VOID machin() ___mch.c
+ * VOID machine() ___mch.c
* mne * mlookup() assym.c
* int more() aslex.c
* VOID * new() assym.c
* symbol, assembler directive, or assembler mnemonic is
* being processed.
*/
- if ((ctype[c] & LETTER) == 0)
- if (flevel) {
- return;
- } else {
+ if ((ctype[c] & LETTER) == 0) {
+ if (flevel) {
+ return;
+ } else {
qerr();
}
+ }
getid(id, c);
c = getnb();
/*
{
f2 = floor(log(fabs(f1))/log(2))+1;
- mantissa = (0x1000000*fabs(f1))/exp(f2*log(2));
+ mantissa = (unsigned int) ((0x1000000*fabs(f1))/exp(f2*log(2))) ;
mantissa &=0xffffff;
- exponent = f2 + 0x40;
+ exponent = (unsigned int) (f2 + 0x40) ;
if (f1<0)
exponent |=0x80;
}
break;
case S_MODUL:
- getst(id, -1);
+ getst(id, getnb()); // a module can start with a digit
if (pass == 0) {
if (module[0]) {
err('m');
char *ft;
int wf;
{
- register char *p1, *p2, *p3;
+ register char *p2, *p3;
register int c;
FILE *fp;
- p1 = fn;
p2 = afn;
p3 = ft;
- while ((c = *p1++) != 0 && c != FSEPX) {
- if (p2 < &afn[FILSPC-4])
- *p2++ = c;
- }
+
+ strcpy (afn, fn);
+ p2 = strrchr (afn, FSEPX); // search last '.'
+ if (!p2)
+ p2 = afn + strlen (afn);
+ if (p2 > &afn[FILSPC-4]) // truncate filename, if it's too long
+ p2 = &afn[FILSPC-4];
*p2++ = FSEPX;
- if (*p3 == 0) {
- if (c == FSEPX) {
- p3 = p1;
- } else {
- p3 = dsft;
- }
+
+ // choose a file-extension
+ if (*p3 == 0) { // extension supplied?
+ p3 = strrchr (fn, FSEPX); // no: extension in fn?
+ if (p3)
+ ++p3;
+ else
+ p3 = dsft; // no: default extension
}
- while ((c = *p3++) != 0) {
+
+ while ((c = *p3++) != 0) { // strncpy
if (p2 < &afn[FILSPC-1])
*p2++ = c;
}
*p2++ = 0;
+
if ((fp = fopen(afn, wf?"w":"r")) == NULL) {
fprintf(stderr, "%s: cannot %s.\n", afn, wf?"create":"open");
asexit(1);