summaryrefslogtreecommitdiff
path: root/tools/rasm/rasm_v0120.c
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2020-12-30 19:07:31 +0000
committerJuan J. Martinez <jjm@usebox.net>2020-12-30 19:23:41 +0000
commit2682bc5d1d864341aaeb42a449db73c3ecd16d70 (patch)
tree9116764364b4ee0ce7f6037305077807b57776de /tools/rasm/rasm_v0120.c
downloadubox-msx-lib-1.0.tar.gz
ubox-msx-lib-1.0.zip
Initial import1.0
Diffstat (limited to 'tools/rasm/rasm_v0120.c')
-rw-r--r--tools/rasm/rasm_v0120.c17472
1 files changed, 17472 insertions, 0 deletions
diff --git a/tools/rasm/rasm_v0120.c b/tools/rasm/rasm_v0120.c
new file mode 100644
index 0000000..2c0a96a
--- /dev/null
+++ b/tools/rasm/rasm_v0120.c
@@ -0,0 +1,17472 @@
+#define PROGRAM_NAME "RASM"
+#define PROGRAM_VERSION "0.120"
+#define PROGRAM_DATE "xx/12/2019"
+#define PROGRAM_COPYRIGHT "© 2017 BERGE Edouard / roudoudou from Resistance"
+
+#define RASM_VERSION PROGRAM_NAME" v"PROGRAM_VERSION" (build "PROGRAM_DATE")"
+#define RASM_SNAP_VERSION PROGRAM_NAME" v"PROGRAM_VERSION
+
+#define TRACE_GENERALE 0
+#define TRACE_PREPRO 0
+#define TRACE_ASSEMBLE 0
+#define TRACE_COMPUTE_EXPRESSION 0
+#define TRACE_HEXBIN 0
+#define TRACE_MAKEAMSDOSREAL 0
+#define TRACE_STRUCT 0
+#define TRACE_EDSK 0
+
+
+
+/***
+Rasm (roudoudou assembler) Z80 assembler
+
+doc & latest official release at: http://www.cpcwiki.eu/forum/programming/rasm-z80-assembler-in-beta/
+
+You may send requests/bugs in the same topic
+
+-----------------------------------------------------------------------------------------------------
+This software is using MIT "expat" license
+
+« Copyright © BERGE Edouard (roudoudou)
+
+Permission is hereby granted, free of charge,to any person obtaining a copy of this software
+and associated documentation/source files of RASM, to deal in the Software without restriction,
+including without limitation the rights to use, copy, modify, merge, publish, distribute,
+sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or
+substantial portions of the Software.
+The Software is provided "as is", without warranty of any kind, express or implied,
+including but not limited to the warranties of merchantability, fitness for a particular
+purpose and noninfringement. In no event shall the authors or copyright holders be liable for
+any claim, damages or other liability, whether in an action of contract, tort or otherwise,
+arising from, out of or in connection with the software or the use or other dealings in the
+Software. »
+-----------------------------------------------------------------------------------------------------
+Linux compilation with GCC or Clang:
+cc rasm_v0116.c -O2 -lm -lrt -march=native -o rasm
+strip rasm
+
+Windows compilation with Visual studio:
+cl.exe rasm_v0116.c -O2 -Ob3
+
+pure MS-DOS 32 bits compilation with Watcom:
+wcl386 rasm_v0116.c -6r -6s -fp6 -d0 -k4000000 -ox /bt=DOS /l=dos4g
+
+MorphOS compilation (ixemul):
+ppc-morphos-gcc-5 -O2 -c -o rasm rasm_v0116.c
+strip rasm
+
+MacOS compilation:
+cc rasm_v0116.c -O2 -lm -march=native -o rasm
+
+*/
+
+#ifdef __WATCOMC__
+#define OS_WIN 1
+#endif
+
+#ifdef _WIN32
+#define OS_WIN 1
+#endif
+
+#ifdef _WIN64
+#define OS_WIN 1
+#endif
+
+#ifndef RDD
+ /* public lib */
+ #include"minilib.h"
+#else
+ /* private dev lib wont be published */
+ #include"../tools/library.h"
+ #define TxtSplitWithChar _internal_TxtSplitWithChar
+#endif
+
+#ifndef NO_3RD_PARTIES
+#define __FILENAME__ "3rd parties"
+/* 3rd parties compression */
+#include"zx7.h"
+#include"lz4.h"
+#include"exomizer.h"
+#endif
+
+#ifdef __MORPHOS__
+/* Add standard version string to executable */
+const char __attribute__((section(".text"))) ver_version[]={ "\0$VER: "PROGRAM_NAME" "PROGRAM_VERSION" ("PROGRAM_DATE") "PROGRAM_COPYRIGHT"" };
+#endif
+
+#undef __FILENAME__
+#define __FILENAME__ "rasm.c"
+
+#ifndef OS_WIN
+#define KNORMAL "\x1B[0m"
+#define KERROR "\x1B[31m"
+#define KAYGREEN "\x1B[32m"
+#define KWARNING "\x1B[33m"
+#define KBLUE "\x1B[34m"
+#define KVERBOSE "\x1B[36m"
+#define KIO "\x1B[97m"
+#else
+#define KNORMAL ""
+#define KERROR "Error: "
+#define KAYGREEN ""
+#define KWARNING "Warning: "
+#define KBLUE ""
+#define KVERBOSE ""
+#define KIO ""
+#endif
+
+/*******************************************************************
+ c o m m a n d l i n e p a r a m e t e r s
+*******************************************************************/
+enum e_dependencies_type {
+E_DEPENDENCIES_NO=0,
+E_DEPENDENCIES_LIST,
+E_DEPENDENCIES_MAKE
+};
+
+struct s_parameter {
+ char **labelfilename;
+ char *filename;
+ char *outputfilename;
+ int automatic_radix;
+ int export_local;
+ int export_var;
+ int export_equ;
+ int export_sym;
+ int export_multisym;
+ int export_tape;
+ char *flexible_export;
+ int export_sna;
+ int export_snabrk;
+ int export_brk;
+ int nowarning;
+ int checkmode;
+ int dependencies;
+ int maxerr;
+ int macrovoid;
+ int extended_error;
+ int edskoverwrite;
+ float rough;
+ int as80,dams;
+ int v2;
+ int warn_unused;
+ char *symbol_name;
+ char *binary_name;
+ char *cartridge_name;
+ char *snapshot_name;
+ char *tape_name;
+ char *breakpoint_name;
+ char **symboldef;
+ int nsymb,msymb;
+ char **pathdef;
+ int npath,mpath;
+};
+
+
+
+/*******************************************************************
+ c o m p u t e o p e r a t i o n s f o r c a l c u l a t o r
+*******************************************************************/
+
+enum e_compute_operation_type {
+E_COMPUTE_OPERATION_PUSH_DATASTC=0,
+E_COMPUTE_OPERATION_OPEN=1,
+E_COMPUTE_OPERATION_CLOSE=2,
+E_COMPUTE_OPERATION_ADD=3,
+E_COMPUTE_OPERATION_SUB=4,
+E_COMPUTE_OPERATION_DIV=5,
+E_COMPUTE_OPERATION_MUL=6,
+E_COMPUTE_OPERATION_AND=7,
+E_COMPUTE_OPERATION_OR=8,
+E_COMPUTE_OPERATION_MOD=9,
+E_COMPUTE_OPERATION_XOR=10,
+E_COMPUTE_OPERATION_NOT=11,
+E_COMPUTE_OPERATION_SHL=12,
+E_COMPUTE_OPERATION_SHR=13,
+E_COMPUTE_OPERATION_BAND=14,
+E_COMPUTE_OPERATION_BOR=15,
+E_COMPUTE_OPERATION_LOWER=16,
+E_COMPUTE_OPERATION_GREATER=17,
+E_COMPUTE_OPERATION_EQUAL=18,
+E_COMPUTE_OPERATION_NOTEQUAL=19,
+E_COMPUTE_OPERATION_LOWEREQ=20,
+E_COMPUTE_OPERATION_GREATEREQ=21,
+/* math functions */
+E_COMPUTE_OPERATION_SIN=22,
+E_COMPUTE_OPERATION_COS=23,
+E_COMPUTE_OPERATION_INT=24,
+E_COMPUTE_OPERATION_FLOOR=25,
+E_COMPUTE_OPERATION_ABS=26,
+E_COMPUTE_OPERATION_LN=27,
+E_COMPUTE_OPERATION_LOG10=28,
+E_COMPUTE_OPERATION_SQRT=29,
+E_COMPUTE_OPERATION_ASIN=30,
+E_COMPUTE_OPERATION_ACOS=31,
+E_COMPUTE_OPERATION_ATAN=32,
+E_COMPUTE_OPERATION_EXP=33,
+E_COMPUTE_OPERATION_LOW=34,
+E_COMPUTE_OPERATION_HIGH=35,
+E_COMPUTE_OPERATION_PSG=36,
+E_COMPUTE_OPERATION_RND=37,
+E_COMPUTE_OPERATION_FRAC=38,
+E_COMPUTE_OPERATION_CEIL=39,
+E_COMPUTE_OPERATION_GET_R=40,
+E_COMPUTE_OPERATION_GET_V=41,
+E_COMPUTE_OPERATION_GET_B=42,
+E_COMPUTE_OPERATION_SET_R=43,
+E_COMPUTE_OPERATION_SET_V=44,
+E_COMPUTE_OPERATION_SET_B=45,
+E_COMPUTE_OPERATION_END=46
+};
+
+struct s_compute_element {
+enum e_compute_operation_type operator;
+double value;
+int priority;
+};
+
+struct s_compute_core_data {
+ /* evaluator v3 may be recursive */
+ char *varbuffer;
+ int maxivar;
+ struct s_compute_element *tokenstack;
+ int maxtokenstack;
+ struct s_compute_element *operatorstack;
+ int maxoperatorstack;
+};
+
+/***********************************************************
+ w a v h e a d e r f o r a u d i o i m p o r t
+***********************************************************/
+struct s_wav_header {
+unsigned char ChunkID[4];
+unsigned char ChunkSize[4];
+unsigned char Format[4];
+unsigned char SubChunk1ID[4];
+unsigned char SubChunk1Size[4];
+unsigned char AudioFormat[2];
+unsigned char NumChannels[2];
+unsigned char SampleRate[4];
+unsigned char ByteRate[4];
+unsigned char BlockAlign[2];
+unsigned char BitsPerSample[2];
+unsigned char SubChunk2ID[4];
+unsigned char SubChunk2Size[4];
+};
+
+enum e_audio_sample_type {
+AUDIOSAMPLE_SMP,
+AUDIOSAMPLE_SM2,
+AUDIOSAMPLE_SM4,
+AUDIOSAMPLE_DMA,
+AUDIOSAMPLE_END
+};
+
+/***********************************************************************
+ e x p r e s s i o n t y p e s f o r d e l a y e d w r i t e
+***********************************************************************/
+enum e_expression {
+ E_EXPRESSION_J8, /* relative 8bits jump */
+ E_EXPRESSION_0V8, /* 8 bits value to current adress */
+ E_EXPRESSION_V8, /* 8 bits value to current adress+1 */
+ E_EXPRESSION_V16, /* 16 bits value to current adress+1 */
+ E_EXPRESSION_V16C, /* 16 bits value to current adress+1 */
+ E_EXPRESSION_0V16, /* 16 bits value to current adress */
+ E_EXPRESSION_0V32, /* 32 bits value to current adress */
+ E_EXPRESSION_0VR, /* AMSDOS real value (5 bytes) to current adress */
+ E_EXPRESSION_IV8, /* 8 bits value to current adress+2 */
+ E_EXPRESSION_IV81, /* 8 bits value+1 to current adress+2 */
+ E_EXPRESSION_3V8, /* 8 bits value to current adress+3 used with LD (IX+n),n */
+ E_EXPRESSION_IV16, /* 16 bits value to current adress+2 */
+ E_EXPRESSION_RST, /* the offset of RST is translated to the opcode */
+ E_EXPRESSION_IM, /* the interrupt mode is translated to the opcode */
+ E_EXPRESSION_RUN, /* delayed RUN value */
+ E_EXPRESSION_ZXRUN, /* delayed RUN value for ZX snapshot */
+ E_EXPRESSION_ZXSTACK,/* delayed STACK value for ZX snapshot */
+ E_EXPRESSION_BRS /* delayed shifting for BIT, RES, SET */
+};
+
+struct s_expression {
+ char *reference; /* backup when used inside loop (or macro?) */
+ int iw; /* word index in the main wordlist */
+ int o; /* offset de depart 0, 1 ou 3 selon l'opcode */
+ int ptr; /* offset courant pour calculs relatifs */
+ int wptr; /* where to write the result */
+ enum e_expression zetype; /* type of delayed write */
+ int lz; /* lz zone */
+ int ibank; /* ibank of expression */
+ int iorgzone; /* org of expression */
+};
+
+struct s_expr_dico {
+ char *name;
+ int crc;
+ int autorise_export;
+ double v;
+ int used;
+ int iw;
+};
+
+struct s_label {
+ char *name; /* is alloced for local repeat or struct OR generated global -> in this case iw=-1 */
+ int iw; /* index of the word of label name */
+ int crc; /* crc of the label name */
+ int ptr; /* "physical" adress */
+ int lz; /* is the label in a crunched section (or after)? */
+ int iorgzone; /* org of label */
+ int ibank; /* current CPR bank / always zero in classic mode */
+ int local;
+ /* errmsg */
+ int fileidx;
+ int fileline;
+ int autorise_export,backidx;
+ int used;
+};
+
+struct s_alias {
+ char *alias;
+ char *translation;
+ int crc,len,autorise_export;
+ int iw;
+ int used;
+};
+
+struct s_ticker {
+ char *varname;
+ int crc;
+ long nopstart;
+ long tickerstart;
+};
+
+/***********************************************************************
+ m e r k e l t r e e s f o r l a b e l, v a r, a l i a s
+***********************************************************************/
+struct s_crclabel_tree {
+ struct s_crclabel_tree *radix[256];
+ struct s_label *label;
+ int nlabel,mlabel;
+};
+struct s_crcdico_tree {
+ struct s_crcdico_tree *radix[256];
+ struct s_expr_dico *dico;
+ int ndico,mdico;
+};
+struct s_crcused_tree {
+ struct s_crcused_tree *radix[256];
+ char **used;
+ int nused,mused;
+};
+struct s_crcstring_tree {
+ struct s_crcstring_tree *radix[256];
+ char **text;
+ int ntext,mtext;
+ char **replace;
+ int nreplace,mreplace;
+};
+/*************************************************
+ m e m o r y s e c t i o n
+*************************************************/
+struct s_lz_section {
+ int iw;
+ int memstart,memend;
+ int lzversion; /* 4 -> LZ4 / 7 -> ZX7 / 48 -> LZ48 / 49 -> LZ49 / 8 -> Exomizer */
+ int iorgzone;
+ int ibank;
+ /* idx backup */
+ int iexpr;
+ int ilabel;
+};
+
+struct s_orgzone {
+ int ibank,protect;
+ int memstart,memend;
+ int ifile,iline;
+ int nocode;
+};
+
+/**************************************************
+ i n c b i n s t o r a g e
+**************************************************/
+struct s_hexbin {
+ unsigned char *data;
+ int datalen,rawlen;
+ char *filename;
+ int crunch;
+};
+
+/**************************************************
+ e d s k m a n a g e m e n t
+**************************************************/
+struct s_edsk_sector_global_struct {
+unsigned char track;
+unsigned char side;
+unsigned char id;
+unsigned char size;
+unsigned char st1;
+unsigned char st2;
+unsigned short int length;
+unsigned char *data;
+};
+
+struct s_edsk_track_global_struct {
+int sectornumber;
+/* information purpose */
+int sectorsize;
+int gap3length;
+int fillerbyte;
+int datarate;
+int recordingmode;
+struct s_edsk_sector_global_struct *sector;
+};
+
+struct s_edsk_global_struct {
+int tracknumber;
+int sidenumber;
+int tracksize; /* DSK legacy */
+struct s_edsk_track_global_struct *track;
+};
+
+struct s_edsk_wrapper_entry {
+unsigned char user;
+unsigned char filename[11];
+unsigned char subcpt;
+unsigned char extendcounter;
+unsigned char reserved;
+unsigned char rc;
+unsigned char blocks[16];
+};
+
+struct s_edsk_wrapper {
+char *edsk_filename;
+struct s_edsk_wrapper_entry entry[64];
+int nbentry;
+unsigned char blocks[178][1024]; /* DATA format */
+int face;
+};
+
+struct s_save {
+ int ibank;
+ int ioffset;
+ int isize;
+ int iw,irun;
+ int amsdos,hobeta;
+ int tape,dsk,face,iwdskname;
+};
+
+
+/********************
+ L O O P S
+********************/
+
+enum e_loop_style {
+E_LOOPSTYLE_REPEATN,
+E_LOOPSTYLE_REPEATUNTIL,
+E_LOOPSTYLE_WHILE
+};
+
+struct s_repeat {
+ int start;
+ int cpt;
+ int value;
+ int maxim;
+ int repeat_counter;
+ char *repeatvar;
+ int repeatcrc;
+};
+
+struct s_whilewend {
+ int start;
+ int cpt;
+ int value;
+ int maxim;
+ int while_counter;
+};
+
+struct s_switchcase {
+ int refval;
+ int execute;
+ int casematch;
+};
+
+struct s_repeat_index {
+ int ifile;
+ int ol,oidx;
+ int cl,cidx;
+};
+
+
+enum e_ifthen_type {
+E_IFTHEN_TYPE_IF=0,
+E_IFTHEN_TYPE_IFNOT=1,
+E_IFTHEN_TYPE_IFDEF=2,
+E_IFTHEN_TYPE_IFNDEF=3,
+E_IFTHEN_TYPE_ELSE=4,
+E_IFTHEN_TYPE_ELSEIF=5,
+E_IFTHEN_TYPE_IFUSED=6,
+E_IFTHEN_TYPE_IFNUSED=7,
+E_IFTHEN_TYPE_END
+};
+
+struct s_ifthen {
+ char *filename;
+ int line,v;
+ enum e_ifthen_type type;
+};
+
+/**************************************************
+ w o r d p r o c e s s i n g
+**************************************************/
+struct s_wordlist {
+ char *w;
+ int l,t,e; /* e=1 si egalite dans le mot */
+ int ifile;
+};
+
+struct s_macro {
+ char *mnemo;
+ int crc;
+ /* une macro concatene des chaines et des parametres */
+ struct s_wordlist *wc;
+ int nbword,maxword;
+ /**/
+ char **param;
+ int nbparam;
+};
+
+struct s_macro_position {
+ int start,end,value;
+};
+
+/* preprocessing only */
+struct s_macro_fast {
+ char *mnemo;
+ int crc;
+};
+
+struct s_math_keyword {
+ char *mnemo;
+ int crc;
+ enum e_compute_operation_type operation;
+};
+
+struct s_expr_word {
+ char *w;
+ int aw;
+ int op;
+ int comma;
+ int fct;
+ double v;
+};
+
+struct s_listing {
+ char *listing;
+ int ifile;
+ int iline;
+};
+
+enum e_tagtranslateoption {
+E_TAGOPTION_NONE=0,
+E_TAGOPTION_REMOVESPACE=1,
+E_TAGOPTION_PRESERVE=2
+};
+
+#ifdef RASM_THREAD
+struct s_rasm_thread {
+ pthread_t thread;
+ int lz;
+ unsigned char *datain;
+ int datalen;
+ unsigned char *dataout;
+ int lenout;
+ int status;
+};
+#endif
+
+
+/*********************************************************
+ S N A P S H O T E X P O R T
+*********************************************************/
+/* extension 4Mo = 256 slots + 4 slots 64K de RAM par défaut => 260 */
+
+#define BANK_MAX_NUMBER 260
+
+struct s_snapshot_symbol {
+ unsigned char size;
+ unsigned char name[256];
+ unsigned char reserved[6];
+ unsigned char bigendian_adress[2];
+};
+
+
+struct s_zxsnapshot {
+
+ unsigned int run;
+ unsigned int stack;
+};
+
+struct s_snapshot {
+ char idmark[8];
+ char unused1[8];
+ unsigned char version; /* 3 */
+ struct {
+ struct {
+ unsigned char F;
+ unsigned char A;
+ unsigned char C;
+ unsigned char B;
+ unsigned char E;
+ unsigned char D;
+ unsigned char L;
+ unsigned char H;
+ }general;
+ unsigned char R;
+ unsigned char regI; /* I incompatible with tgmath.h */
+ unsigned char IFF0;
+ unsigned char IFF1;
+ unsigned char LX;
+ unsigned char HX;
+ unsigned char LY;
+ unsigned char HY;
+ unsigned char LSP;
+ unsigned char HSP;
+ unsigned char LPC;
+ unsigned char HPC;
+ unsigned char IM; /* 0,1,2 */
+ struct {
+ unsigned char F;
+ unsigned char A;
+ unsigned char C;
+ unsigned char B;
+ unsigned char E;
+ unsigned char D;
+ unsigned char L;
+ unsigned char H;
+ }alternate;
+ }registers;
+
+ struct {
+ unsigned char selectedpen;
+ unsigned char palette[17];
+ unsigned char multiconfiguration;
+ }gatearray;
+ unsigned char ramconfiguration;
+ struct {
+ unsigned char selectedregister;
+ unsigned char registervalue[18];
+ }crtc;
+ unsigned char romselect;
+ struct {
+ unsigned char portA;
+ unsigned char portB;
+ unsigned char portC;
+ unsigned char control;
+ }ppi;
+ struct {
+ unsigned char selectedregister;
+ unsigned char registervalue[16];
+ }psg;
+ unsigned char dumpsize[2]; /* 64 then use extended memory chunks */
+
+ unsigned char CPCType; /* 0=464 / 1=664 / 2=6128 / 4=6128+ / 5=464+ / 6=GX4000 */
+ unsigned char interruptnumber;
+ unsigned char multimodebytes[6];
+ unsigned char unused2[0x9C-0x75];
+
+ /* offset #9C */
+ struct {
+ unsigned char motorstate;
+ unsigned char physicaltrack;
+ }fdd;
+ unsigned char unused3[3];
+ unsigned char printerstrobe;
+ unsigned char unused4[2];
+ struct {
+ unsigned char model; /* 0->4 */
+ unsigned char unused5[4];
+ unsigned char HCC;
+ unsigned char unused;
+ unsigned char CLC;
+ unsigned char RLC;
+ unsigned char VTC;
+ unsigned char HSC;
+ unsigned char VSC;
+ unsigned short int flags;
+ }crtcstate;
+ unsigned char vsyncdelay;
+ unsigned char interruptscanlinecounter;
+ unsigned char interruptrequestflag;
+ unsigned char unused6[0xFF-0xB5+1];
+};
+
+struct s_snapshot_chunks {
+ unsigned char chunkname[4]; /* MEM1 -> MEM8 */
+ unsigned int chunksize;
+};
+
+struct s_breakpoint {
+ int address;
+ int bank;
+};
+
+
+/*********************************
+ S T R U C T U R E S
+*********************************/
+enum e_rasmstructfieldtype {
+E_RASMSTRUCTFIELD_BYTE,
+E_RASMSTRUCTFIELD_WORD,
+E_RASMSTRUCTFIELD_LONG,
+E_RASMSTRUCTFIELD_REAL,
+E_RASMSTRUCTFIELD_END
+};
+struct s_rasmstructfield {
+ char *fullname;
+ char *name;
+ int offset;
+ int size;
+ int crc;
+ /* filler */
+ unsigned char *data;
+ int idata,mdata;
+ enum e_rasmstructfieldtype zetype;
+};
+
+struct s_rasmstruct {
+ char *name;
+ int crc;
+ int size;
+ int ptr;
+ int nbelem;
+ /* fields */
+ struct s_rasmstructfield *rasmstructfield;
+ int irasmstructfield,mrasmstructfield;
+};
+
+/*********************************
+ D E B U G
+*********************************/
+struct s_debug_error {
+ char *filename;
+ int line;
+ char *msg;
+ int lenmsg,lenfilename;
+};
+struct s_debug_symbol {
+ char *name;
+ int v;
+};
+struct s_rasm_info {
+ struct s_debug_error *error;
+ int nberror,maxerror;
+ struct s_debug_symbol *symbol;
+ int nbsymbol,maxsymbol;
+};
+
+/*******************************************
+ G L O B A L S T R U C T
+*******************************************/
+struct s_assenv {
+ /* current memory */
+ int maxptr;
+ /* CPR memory */
+ unsigned char **mem;
+ int iwnamebank[BANK_MAX_NUMBER];
+ int nbbank,maxbank;
+ int forcetape,forcezx,forcecpr,forceROM,bankmode,activebank,amsdos,forcesnapshot,packedbank;
+ struct s_snapshot snapshot;
+ struct s_zxsnapshot zxsnapshot;
+ int bankset[BANK_MAX_NUMBER>>2]; /* 64K selected flag */
+ int bankused[BANK_MAX_NUMBER]; /* 16K selected flag */
+ int bankgate[BANK_MAX_NUMBER+1];
+ int setgate[BANK_MAX_NUMBER+1];
+ int rundefined;
+ /* parsing */
+ struct s_wordlist *wl;
+ int nbword;
+ int idx,stage;
+ char *label_filename;
+ int label_line;
+ char **filename;
+ int ifile,maxfile;
+ int nberr,flux;
+ int fastmatch[256];
+ unsigned char charset[256];
+ int maxerr,extended_error,nowarning;
+ /* ORG tracking */
+ int codeadr,outputadr,nocode;
+ int codeadrbackup,outputadrbackup;
+ int minadr,maxadr;
+ struct s_orgzone *orgzone;
+ int io,mo;
+ /* Struct */
+ struct s_rasmstruct *rasmstruct;
+ int irasmstruct,mrasmstruct;
+ int getstruct;
+ int backup_outputadr,backup_codeadr;
+ char *backup_filename;
+ int backup_line;
+ struct s_rasmstruct *rasmstructalias;
+ int irasmstructalias,mrasmstructalias;
+ /* expressions */
+ struct s_expression *expression;
+ int ie,me;
+ int maxam,as80,dams;
+ float rough;
+ struct s_compute_core_data *computectx,ctx1,ctx2;
+ struct s_crcstring_tree stringtree;
+ /* label */
+ struct s_label *label;
+ int il,ml;
+ struct s_crclabel_tree labeltree; /* fast label access */
+ char *module;
+ int modulen;
+ struct s_breakpoint *breakpoint;
+ int ibreakpoint,maxbreakpoint;
+ char *lastgloballabel;
+ char *lastsuperglobal;
+ int lastgloballabellen, lastglobalalloc;
+ /* repeat */
+ struct s_repeat *repeat;
+ int ir,mr;
+ /* while/wend */
+ struct s_whilewend *whilewend;
+ int iw,mw;
+ /* if/then/else */
+ //int *ifthen;
+ struct s_ifthen *ifthen;
+ int ii,mi;
+ /* switch/case */
+ struct s_switchcase *switchcase;
+ int isw,msw;
+ /* expression dictionnary */
+ struct s_expr_dico *dico;
+ int idic,mdic;
+ struct s_crcdico_tree dicotree; /* fast dico access */
+ struct s_crcused_tree usedtree; /* fast used access */
+ /* ticker */
+ struct s_ticker *ticker;
+ int iticker,mticker;
+ long tick,nop;
+ /* crunch section flag */
+ struct s_lz_section *lzsection;
+ int ilz,mlz;
+ int lz,curlz;
+ /* macro */
+ struct s_macro *macro;
+ int imacro,mmacro;
+ int macrovoid;
+ /* labels locaux */
+ int repeatcounter,whilecounter,macrocounter;
+ struct s_macro_position *macropos;
+ int imacropos,mmacropos;
+ /* alias */
+ struct s_alias *alias;
+ int ialias,malias;
+ /* hexbin */
+ struct s_rasm_thread **rasm_thread;
+ int irt,mrt;
+ struct s_hexbin *hexbin;
+ int ih,mh;
+ char **includepath;
+ int ipath,mpath;
+ /* automates */
+ char AutomateExpressionValidCharExtended[256];
+ char AutomateExpressionValidCharFirst[256];
+ char AutomateExpressionValidChar[256];
+ char AutomateExpressionDecision[256];
+ char AutomateValidLabelFirst[256];
+ char AutomateValidLabel[256];
+ char AutomateDigit[256];
+ char AutomateHexa[256];
+ struct s_compute_element AutomateElement[256];
+ unsigned char psgtab[256];
+ unsigned char psgfine[256];
+ /* output */
+ char *outputfilename;
+ int export_sym,export_local,export_multisym;
+ int export_var,export_equ;
+ int export_sna,export_snabrk;
+ int export_brk,export_tape;
+ int autorise_export;
+ char *flexible_export;
+ char *breakpoint_name;
+ char *symbol_name;
+ char *binary_name;
+ char *cartridge_name;
+ char *snapshot_name;
+ struct s_save *save;
+ int nbsave,maxsave;
+ int current_run_idx;
+ struct s_edsk_wrapper *edsk_wrapper;
+ int nbedskwrapper,maxedskwrapper;
+ int edskoverwrite;
+ int checkmode,dependencies;
+ int stop;
+ int warn_unused;
+ /* debug */
+ struct s_rasm_info debug;
+ struct s_rasm_info **retdebug;
+ int debug_total_len;
+};
+
+/*************************************
+ D I R E C T I V E S
+*************************************/
+struct s_asm_keyword {
+ char *mnemo;
+ int crc;
+ void (*makemnemo)(struct s_assenv *ae);
+};
+
+struct s_math_keyword math_keyword[]={
+{"SIN",0,E_COMPUTE_OPERATION_SIN},
+{"COS",0,E_COMPUTE_OPERATION_COS},
+{"INT",0,E_COMPUTE_OPERATION_INT},
+{"ABS",0,E_COMPUTE_OPERATION_ABS},
+{"LN",0,E_COMPUTE_OPERATION_LN},
+{"LOG10",0,E_COMPUTE_OPERATION_LOG10},
+{"SQRT",0,E_COMPUTE_OPERATION_SQRT},
+{"FLOOR",0,E_COMPUTE_OPERATION_FLOOR},
+{"ASIN",0,E_COMPUTE_OPERATION_ASIN},
+{"ACOS",0,E_COMPUTE_OPERATION_ACOS},
+{"ATAN",0,E_COMPUTE_OPERATION_ATAN},
+{"EXP",0,E_COMPUTE_OPERATION_EXP},
+{"LO",0,E_COMPUTE_OPERATION_LOW},
+{"HI",0,E_COMPUTE_OPERATION_HIGH},
+{"PSGVALUE",0,E_COMPUTE_OPERATION_PSG},
+{"RND",0,E_COMPUTE_OPERATION_RND},
+{"FRAC",0,E_COMPUTE_OPERATION_FRAC},
+{"CEIL",0,E_COMPUTE_OPERATION_CEIL},
+{"GETR",0,E_COMPUTE_OPERATION_GET_R},
+{"GETV",0,E_COMPUTE_OPERATION_GET_V},
+{"GETG",0,E_COMPUTE_OPERATION_GET_V},
+{"GETB",0,E_COMPUTE_OPERATION_GET_B},
+{"SETR",0,E_COMPUTE_OPERATION_SET_R},
+{"SETV",0,E_COMPUTE_OPERATION_SET_V},
+{"SETG",0,E_COMPUTE_OPERATION_SET_V},
+{"SETB",0,E_COMPUTE_OPERATION_SET_B},
+{"",0,-1}
+};
+
+#define CRC_SWITCH 0x01AEDE4A
+#define CRC_CASE 0x0826B794
+#define CRC_DEFAULT 0x9A0DAC7D
+#define CRC_BREAK 0xCD364DDD
+#define CRC_ENDSWITCH 0x18E9FB21
+
+#define CRC_ELSEIF 0xE175E230
+#define CRC_ELSE 0x3FF177A1
+#define CRC_ENDIF 0xCD5265DE
+#define CRC_IF 0x4BD52507
+#define CRC_IFDEF 0x4CB29DD6
+#define CRC_UNDEF 0xCCD2FDEA
+#define CRC_IFNDEF 0xD9AD0824
+#define CRC_IFNOT 0x4CCAC9F8
+#define CRC_WHILE 0xBC268FF1
+#define CRC_UNTIL 0xCC12A604
+#define CRC_MEND 0xFFFD899C
+#define CRC_ENDM 0x3FF9559C
+#define CRC_MACRO 0x64AA85EA
+#define CRC_IFUSED 0x91752638
+#define CRC_IFNUSED 0x1B39A886
+
+#define CRC_SIN 0xE1B71962
+#define CRC_COS 0xE077C55D
+
+#define CRC_0 0x7A98A6A8
+#define CRC_1 0x7A98A6A9
+#define CRC_2 0x7A98A6AA
+
+
+#define CRC_NC 0x4BD52B09
+#define CRC_Z 0x7A98A6D2
+#define CRC_NZ 0x4BD52B20
+#define CRC_P 0x7A98A6C8
+#define CRC_PO 0x4BD53717
+#define CRC_PE 0x4BD5370D
+#define CRC_M 0x7A98A6C5
+
+/* 8 bits registers */
+#define CRC_F 0x7A98A6BE
+#define CRC_I 0x7A98A6C1
+#define CRC_R 0x7A98A6CA
+#define CRC_A 0x7A98A6B9
+#define CRC_B 0x7A98A6BA
+#define CRC_C 0x7A98A6BB
+#define CRC_D 0x7A98A6BC
+#define CRC_E 0x7A98A6BD
+#define CRC_H 0x7A98A6C0
+#define CRC_L 0x7A98A6C4
+/* dual naming */
+#define CRC_XH 0x4BD50718
+#define CRC_XL 0x4BD5071C
+#define CRC_YH 0x4BD50519
+#define CRC_YL 0x4BD5051D
+#define CRC_HX 0x4BD52718
+#define CRC_LX 0x4BD52F1C
+#define CRC_HY 0x4BD52719
+#define CRC_LY 0x4BD52F1D
+#define CRC_IXL 0xE19F1765
+#define CRC_IXH 0xE19F1761
+#define CRC_IYL 0xE19F1166
+#define CRC_IYH 0xE19F1162
+
+/* 16 bits registers */
+#define CRC_BC 0x4BD5D2FD
+#define CRC_DE 0x4BD5DF01
+#define CRC_HL 0x4BD5270C
+#define CRC_IX 0x4BD52519
+#define CRC_IY 0x4BD5251A
+#define CRC_SP 0x4BD5311B
+#define CRC_AF 0x4BD5D4FF
+/* memory convention */
+#define CRC_MHL 0xD0765F5D
+#define CRC_MDE 0xD0467D52
+#define CRC_MBC 0xD05E694E
+#define CRC_MIX 0xD072B76A
+#define CRC_MIY 0xD072B16B
+#define CRC_MSP 0xD01A876C
+#define CRC_MC 0xE018210C
+/* struct parsing */
+#define CRC_DEFB 0x37D15389
+#define CRC_DB 0x4BD5DEFE
+#define CRC_DEFW 0x37D1539E
+#define CRC_DW 0x4BD5DF13
+#define CRC_DEFI 0x37D15390
+#define CRC_DEFS 0x37D1539A
+#define CRC_DS 0x4BD5DF0F
+#define CRC_DEFR 0x37D15399
+#define CRC_DR 0x4BD5DF0E
+
+/* struct declaration use special instructions for defines */
+int ICRC_DEFB,ICRC_DEFW,ICRC_DEFI,ICRC_DEFR,ICRC_DEFS,ICRC_DB,ICRC_DW,ICRC_DR,ICRC_DS;
+/* need to pre-declare var */
+extern struct s_asm_keyword instruction[];
+
+/*
+# base=16
+% base=2
+0-9 base=10
+A-Z variable ou fonction (cos, sin, tan, sqr, pow, mod, and, xor, mod, ...)
++*-/&^m| operateur
+*/
+
+#define AutomateExpressionValidCharExtendedDefinition "0123456789.ABCDEFGHIJKLMNOPQRSTUVWXYZ_{}@+-*/~^$#%§<=>|&"
+#define AutomateExpressionValidCharFirstDefinition "#%0123456789.ABCDEFGHIJKLMNOPQRSTUVWXYZ_@${"
+#define AutomateExpressionValidCharDefinition "0123456789.ABCDEFGHIJKLMNOPQRSTUVWXYZ_{}@$"
+#define AutomateValidLabelFirstDefinition ".ABCDEFGHIJKLMNOPQRSTUVWXYZ_@"
+#define AutomateValidLabelDefinition "0123456789.ABCDEFGHIJKLMNOPQRSTUVWXYZ_@{}"
+#define AutomateDigitDefinition ".0123456789"
+#define AutomateHexaDefinition "0123456789ABCDEF"
+
+#ifndef NO_3RD_PARTIES
+unsigned char *LZ4_crunch(unsigned char *data, int zelen, int *retlen){
+ unsigned char *lzdest=NULL;
+ lzdest=MemMalloc(65536);
+ *retlen=LZ4_compress_HC((char*)data,(char*)lzdest,zelen,65536,9);
+ return lzdest;
+}
+#endif
+unsigned char *LZ48_encode_legacy(unsigned char *data, int length, int *retlength);
+#define LZ48_crunch LZ48_encode_legacy
+unsigned char *LZ49_encode_legacy(unsigned char *data, int length, int *retlength);
+#define LZ49_crunch LZ49_encode_legacy
+
+
+/*
+ * optimised reading of text file in one shot
+ */
+unsigned char *_internal_readbinaryfile(char *filename, int *filelength)
+{
+ #undef FUNC
+ #define FUNC "_internal_readbinaryfile"
+
+ unsigned char *binary_data=NULL;
+
+ *filelength=FileGetSize(filename);
+ binary_data=MemMalloc((*filelength)+1);
+ /* we try to read one byte more to close the file just after the read func */
+ if (FileReadBinary(filename,(char*)binary_data,(*filelength)+1)!=*filelength) {
+ logerr("Cannot fully read %s",filename);
+ exit(INTERNAL_ERROR);
+ }
+ return binary_data;
+}
+char **_internal_readtextfile(char *filename, char replacechar)
+{
+ #undef FUNC
+ #define FUNC "_internal_readtextfile"
+
+ char **lines_buffer=NULL;
+ unsigned char *bigbuffer;
+ int nb_lines=0,max_lines=0,i=0,e=0;
+ int file_size;
+
+ bigbuffer=_internal_readbinaryfile(filename,&file_size);
+
+ while (i<file_size) {
+ while (e<file_size && bigbuffer[e]!=0x0A) {
+ /* Windows de meeeeeeeerrrdde... */
+ if (bigbuffer[e]==0x0D) bigbuffer[e]=replacechar;
+ e++;
+ }
+ if (e<file_size) e++;
+ if (nb_lines>=max_lines) {
+ max_lines=max_lines*2+10;
+ lines_buffer=MemRealloc(lines_buffer,(max_lines+1)*sizeof(char **));
+ }
+ lines_buffer[nb_lines]=MemMalloc(e-i+1);
+ memcpy(lines_buffer[nb_lines],bigbuffer+i,e-i);
+ lines_buffer[nb_lines][e-i]=0;
+ if (0)
+ {
+ int yy;
+ for (yy=0;lines_buffer[nb_lines][yy];yy++) {
+ if (lines_buffer[nb_lines][yy]>31) printf("%c",lines_buffer[nb_lines][yy]); else printf("(0x%X)",lines_buffer[nb_lines][yy]);
+ }
+ printf("\n");
+ }
+ nb_lines++;
+ i=e;
+ }
+ if (!max_lines) {
+ lines_buffer=MemMalloc(sizeof(char**));
+ lines_buffer[0]=NULL;
+ } else {
+ lines_buffer[nb_lines]=NULL;
+ }
+ MemFree(bigbuffer);
+ return lines_buffer;
+}
+
+#define FileReadLines(filename) _internal_readtextfile(filename,':')
+#define FileReadLinesRAW(filename) _internal_readtextfile(filename,0x0D)
+#define FileReadContent(filename,filesize) _internal_readbinaryfile(filename,filesize)
+
+
+/***
+ TxtReplace
+
+ input:
+ in_str: string where replace will occur
+ in_substr: substring to look for
+ out_substr: replace substring
+ recurse: loop until no in_substr is found
+
+ note: in_str MUST BE previously mallocated if out_substr is bigger than in_substr
+*/
+#ifndef RDD
+char *TxtReplace(char *in_str, char *in_substr, char *out_substr, int recurse)
+{
+ #undef FUNC
+ #define FUNC "TxtReplace"
+
+ char *str_look,*m1,*m2;
+ char *out_str;
+ int sl,l1,l2,dif,cpt;
+
+ if (in_str==NULL)
+ return NULL;
+
+ sl=strlen(in_str);
+ l1=strlen(in_substr);
+ /* empty string, nothing to do except return empty string */
+ if (!sl || !l1)
+ return in_str;
+
+ l2=strlen(out_substr);
+ dif=l2-l1;
+
+ /* replace string is small or equal in size, we dont realloc */
+ if (dif<=0)
+ {
+ /* we loop while there is a replace to do */
+ str_look=strstr(in_str,in_substr);
+ while (str_look!=NULL)
+ {
+ /* we copy the new string if his len is not null */
+ if (l2)
+ memcpy(str_look,out_substr,l2);
+ /* only if len are different */
+ if (l1!=l2)
+ {
+ /* we move the end of the string byte per byte
+ because memory locations overlap. This is
+ faster than memmove */
+ m1=str_look+l1;
+ m2=str_look+l2;
+ while (*m1!=0)
+ {
+ *m2=*m1;
+ m1++;m2++;
+ }
+ /* we must copy the EOL */
+ *m2=*m1;
+ }
+ /* look for next replace */
+ if (!recurse)
+ str_look=strstr(str_look+l2,in_substr);
+ else
+ str_look=strstr(in_str,in_substr);
+ }
+ out_str=in_str;
+ }
+ else
+ {
+ /* we need to count each replace */
+ cpt=0;
+ str_look=strstr(in_str,in_substr);
+ while (str_look!=NULL)
+ {
+ cpt++;
+ str_look=strstr(str_look+l1,in_substr);
+ }
+ /* is there anything to do? */
+ if (cpt)
+ {
+ /* we realloc to a size that will fit all replaces */
+ out_str=MemRealloc(in_str,sl+1+dif*cpt);
+ str_look=strstr(out_str,in_substr);
+ while (str_look!=NULL && cpt)
+ {
+ /* as the replace string is bigger we
+ have to move memory first from the end */
+ m1=out_str+sl;
+ m2=m1+dif;
+ sl+=dif;
+ while (m1!=str_look+l1-dif)
+ {
+ *m2=*m1;
+ m1--;m2--;
+ }
+ /* then we copy the replace string (can't be NULL in this case) */
+ memcpy(str_look,out_substr,l2);
+
+ /* look for next replace */
+ if (!recurse)
+ str_look=strstr(str_look+l2,in_substr);
+ else
+ str_look=strstr(in_str,in_substr);
+
+ /* to prevent from naughty overlap */
+ cpt--;
+ }
+ if (str_look!=NULL)
+ {
+ printf("INTERNAL ERROR - overlapping replace string (%s/%s), you can't use this one!\n",in_substr,out_substr);
+ exit(ABORT_ERROR);
+ }
+ }
+ else
+ out_str=in_str;
+ }
+ return out_str;
+}
+#endif
+
+#ifndef min
+#define min(a,b) \
+ ({ __typeof__ (a) _a = (a); \
+ __typeof__ (b) _b = (b); \
+ _a < _b ? _a : _b; })
+#endif
+
+/* Levenshtein implementation by TheRayTracer https://gist.github.com/TheRayTracer/2644387 */
+int _internal_LevenshteinDistance(char *s, char *t)
+{
+ int i,j,n,m,*d;
+ int im,jn;
+ int r;
+
+ n=strlen(s)+1;
+ m=strlen(t)+1;
+ d=malloc(n*m*sizeof(int));
+ memset(d, 0, sizeof(int) * n * m);
+
+ for (i = 1, im = 0; i < m; i++, im++)
+ {
+ for (j = 1, jn = 0; j < n; j++, jn++)
+ {
+ if (s[jn] == t[im])
+ {
+ d[(i * n) + j] = d[((i - 1) * n) + (j - 1)];
+ }
+ else
+ {
+ d[(i * n) + j] = min(d[(i - 1) * n + j] + 1, /* A deletion. */
+ min(d[i * n + (j - 1)] + 1, /* An insertion. */
+ d[(i - 1) * n + (j - 1)] + 1)); /* A substitution. */
+ }
+ }
+ }
+ r = d[n * m - 1];
+ free(d);
+ return r;
+}
+
+#ifdef RASM_THREAD
+/*
+ threads used for crunching
+*/
+void _internal_ExecuteThreads(struct s_assenv *ae,struct s_rasm_thread *rasm_thread, void *(*fct)(void *))
+{
+ #undef FUNC
+ #define FUNC "_internal_ExecuteThreads"
+
+ pthread_attr_t attr;
+ void *status;
+ int rc;
+ /* launch threads */
+ pthread_attr_init(&attr);
+ pthread_attr_setdetachstate(&attr,PTHREAD_CREATE_JOINABLE);
+ pthread_attr_setstacksize(&attr,65536);
+
+ if ((rc=pthread_create(&image_threads[i].thread,&attr,fct,(void *)rasm_thread))) {
+ rasm_printf(ae,"FATAL ERROR - Cannot create thread!\n");
+ exit(INTERNAL_ERROR);
+ }
+}
+void _internal_WaitForThreads(struct s_assenv *ae,struct s_rasm_thread *rasm_thread)
+{
+ #undef FUNC
+ #define FUNC "_internal_WaitForThreads"
+ int rc;
+
+ if ((rc=pthread_join(rasm_thread->thread,&status))) {
+ rasm_printf(ae,"FATAL ERROR - Cannot wait for thread\n");
+ exit(INTERNAL_ERROR);
+ }
+}
+void PushCrunchedFile(struct s_assenv *ae, unsigned char *datain, int datalen, int lz)
+{
+ #undef FUNC
+ #define FUNC "PushCrunchedFile"
+
+ struct s_rasm_thread *rasm_thread;
+
+ rasm_thread=MemMalloc(sizeof(struct s_rasm_thread));
+ memset(rasm_thread,0,sizeof(struct s_rasm_thread));
+ rasm_thread->datain=datain;
+ rasm_thread->datalen=datalen;
+ rasm_thread->lz=lz;
+ _internal_ExecuteThreads(ae,rasm_thread, void *(*fct)(void *));
+ ObjectArrayAddDynamicValueConcat((void**)&ae->rasm_thread,&ae->irt,&ae->mrt,&rasm_thread,sizeof(struct s_rasm_thread *));
+}
+void PopAllCrunchedFiles(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "PopAllCrunchedFiles"
+
+ int i;
+ for (i=0;i<ae->irt;i++) {
+ _internal_WaitForThreads(ae,ae->rasm_thread[i]);
+ }
+}
+#endif
+
+void MaxError(struct s_assenv *ae);
+
+void rasm_printf(struct s_assenv *ae, ...) {
+ #undef FUNC
+ #define FUNC "(internal) rasm_printf"
+
+ char *format;
+ va_list argptr;
+
+ if (!ae->flux && !ae->dependencies) {
+ va_start(argptr,ae);
+ format=va_arg(argptr,char *);
+ vfprintf(stdout,format,argptr);
+ va_end(argptr);
+ fprintf(stdout,KNORMAL);
+ }
+}
+/***
+ build the string of current line for error messages
+*/
+char *rasm_getline(struct s_assenv *ae, int offset) {
+ #undef FUNC
+ #define FUNC "rasm_getline"
+
+ static char myline[40]={0};
+ int idx=0,icopy,first=1;
+
+ while (!ae->wl[ae->idx+offset].t && idx<32) {
+ for (icopy=0;idx<32 && ae->wl[ae->idx+offset].w[icopy];icopy++) {
+ myline[idx++]=ae->wl[ae->idx+offset].w[icopy];
+ }
+ if (!first) myline[idx++]=','; else first=0;
+ offset++;
+ }
+ if (idx>=32) {
+ strcpy(myline+29,"...");
+ } else {
+ myline[idx++]=0;
+ }
+
+ return myline;
+}
+
+char *SimplifyPath(char *filename) {
+ #undef FUNC
+ #define FUNC "SimplifyPath"
+
+ return filename;
+#if 0
+ char *pos,*repos;
+ int i,len;
+
+ char *rpath;
+
+ rpath=realpath(filename,NULL);
+ if (!rpath) {
+ printf("rpath error!\n");
+ switch (errno) {
+ case EACCES:printf("read permission failure\n");break;
+ case EINVAL:printf("wrong argument\n");break;
+ case EIO:printf("I/O error\n");break;
+ case ELOOP:printf("too many symbolic links\n");break;
+ case ENAMETOOLONG:printf("names too long\n");break;
+ case ENOENT:printf("names does not exists\n");break;
+ case ENOMEM:printf("out of memory\n");break;
+ case ENOTDIR:printf("a component of the path is not a directory\n");break;
+ default:printf("unknown error\n");break;
+ }
+ exit(1);
+ }
+ if (strlen(rpath)<strlen(filename)) {
+ strcpy(filename,rpath);
+ }
+ free(rpath);
+ return filename;
+
+#ifdef OS_WIN
+ while ((pos=strstr(filename,"\\..\\"))!=NULL) {
+ repos=pos-1;
+ /* sequence found, looking back for '\' */
+ while (repos>=filename) {
+ if (*repos=='\\') {
+ break;
+ }
+ repos--;
+ }
+ repos++;
+ if (repos>=filename && repos!=pos) {
+ len=strlen(pos)-4+1;
+ pos+=4;
+ for (i=0;i<len;i++) {
+ *repos=*pos;
+ repos++;
+ pos++;
+ }
+ }
+ if (strncmp(filename,".\\..\\",5)==0) {
+ repos=filename;
+ pos=repos+2;
+ for (;*repos;pos++,repos++) {
+ *repos=*pos;
+ }
+ *repos=0;
+ }
+ }
+#else
+printf("*************\nfilename=[%s]\n",filename);
+ while ((pos=strstr(filename,"/../"))!=NULL) {
+ repos=pos-1;
+ while (repos>=filename) {
+ if (*repos=='/') {
+ break;
+ }
+ repos--;
+ }
+ repos++;
+ if (repos>=filename && repos!=pos) {
+ len=strlen(pos)-4+1;
+ pos+=4;
+ for (i=0;i<len;i++) {
+ *repos=*pos;
+ repos++;
+ pos++;
+ }
+ }
+printf("filename=[%s]\n",filename);
+ if (strncmp(filename,"./../",5)==0) {
+ repos=filename;
+ pos=repos+2;
+ for (;*repos;pos++,repos++) {
+ *repos=*pos;
+ }
+ *repos=0;
+ }
+printf("filename=[%s]\n",filename);
+ }
+#endif
+ return NULL;
+#endif
+
+}
+
+char *GetPath(char *filename) {
+ #undef FUNC
+ #define FUNC "GetPath"
+
+ static char curpath[PATH_MAX];
+ int zelen,idx;
+
+ zelen=strlen(filename);
+
+#ifdef OS_WIN
+ #define CURRENT_DIR ".\\"
+
+ TxtReplace(filename,"/","\\",1);
+ idx=zelen-1;
+ while (idx>=0 && filename[idx]!='\\') idx--;
+ if (idx<0) {
+ /* pas de chemin */
+ strcpy(curpath,".\\");
+ } else {
+ /* chemin trouve */
+ strcpy(curpath,filename);
+ curpath[idx+1]=0;
+ }
+#else
+#ifdef __MORPHOS__
+ #define CURRENT_DIR ""
+#else
+ #define CURRENT_DIR "./"
+#endif
+ idx=zelen-1;
+ while (idx>=0 && filename[idx]!='/') idx--;
+ if (idx<0) {
+ /* pas de chemin */
+ strcpy(curpath,CURRENT_DIR);
+ } else {
+ /* chemin trouve */
+ strcpy(curpath,filename);
+ curpath[idx+1]=0;
+ }
+#endif
+
+ return curpath;
+}
+char *MergePath(struct s_assenv *ae,char *dadfilename, char *filename) {
+ #undef FUNC
+ #define FUNC "MergePath"
+
+ static char curpath[PATH_MAX];
+ int zelen;
+
+#ifdef OS_WIN
+ TxtReplace(filename,"/","\\",1);
+
+ if (filename[0] && filename[1]==':' && filename[2]=='\\') {
+ /* chemin absolu */
+ strcpy(curpath,filename);
+ } else if (filename[0] && filename[1]==':') {
+ rasm_printf(ae,KERROR"unsupported path style [%s]\n",filename);
+ exit(-111);
+ } else {
+ if (filename[0]=='.' && filename[1]=='\\') {
+ strcpy(curpath,GetPath(dadfilename));
+ strcat(curpath,filename+2);
+ } else {
+ strcpy(curpath,GetPath(dadfilename));
+ strcat(curpath,filename);
+ }
+ }
+#else
+ if (filename[0]=='/') {
+ /* chemin absolu */
+ strcpy(curpath,filename);
+ } else if (filename[0]=='.' && filename[1]=='/') {
+ strcpy(curpath,GetPath(dadfilename));
+ strcat(curpath,filename+2);
+ } else {
+ strcpy(curpath,GetPath(dadfilename));
+ strcat(curpath,filename);
+ }
+#endif
+
+ return curpath;
+}
+
+
+void InitAutomate(char *autotab, const unsigned char *def)
+{
+ #undef FUNC
+ #define FUNC "InitAutomate"
+
+ int i;
+
+ memset(autotab,0,256);
+ for (i=0;def[i];i++) {
+ autotab[(int)def[i]]=1;
+ }
+}
+void StateMachineResizeBuffer(char **ABuf, int idx, int *ASize) {
+ #undef FUNC
+ #define FUNC "StateMachineResizeBuffer"
+
+ if (idx>=*ASize) {
+ if (*ASize<16384) {
+ *ASize=(*ASize)*2;
+ } else {
+ *ASize=(*ASize)+16384;
+ }
+ *ABuf=MemRealloc(*ABuf,(*ASize)+2);
+ }
+}
+
+int GetCRC(char *label)
+{
+ #undef FUNC
+ #define FUNC "GetCRC"
+ int crc=0x12345678;
+ int i=0;
+
+ while (label[i]!=0) {
+ crc=(crc<<9)^(crc+label[i++]);
+ }
+ return crc;
+}
+
+int IsRegister(char *zeexpression)
+{
+ #undef FUNC
+ #define FUNC "IsRegister"
+
+ switch (GetCRC(zeexpression)) {
+ case CRC_F:if (strcmp(zeexpression,"F")==0) return 1; else return 0;
+ case CRC_I:if (strcmp(zeexpression,"I")==0) return 1; else return 0;
+ case CRC_R:if (strcmp(zeexpression,"R")==0) return 1; else return 0;
+ case CRC_A:if (strcmp(zeexpression,"A")==0) return 1; else return 0;
+ case CRC_B:if (strcmp(zeexpression,"B")==0) return 1; else return 0;
+ case CRC_C:if (strcmp(zeexpression,"C")==0) return 1; else return 0;
+ case CRC_D:if (strcmp(zeexpression,"D")==0) return 1; else return 0;
+ case CRC_E:if (strcmp(zeexpression,"E")==0) return 1; else return 0;
+ case CRC_H:if (strcmp(zeexpression,"H")==0) return 1; else return 0;
+ case CRC_L:if (strcmp(zeexpression,"L")==0) return 1; else return 0;
+ case CRC_BC:if (strcmp(zeexpression,"BC")==0) return 1; else return 0;
+ case CRC_DE:if (strcmp(zeexpression,"DE")==0) return 1; else return 0;
+ case CRC_HL:if (strcmp(zeexpression,"HL")==0) return 1; else return 0;
+ case CRC_IX:if (strcmp(zeexpression,"IX")==0) return 1; else return 0;
+ case CRC_IY:if (strcmp(zeexpression,"IY")==0) return 1; else return 0;
+ case CRC_SP:if (strcmp(zeexpression,"SP")==0) return 1; else return 0;
+ case CRC_AF:if (strcmp(zeexpression,"AF")==0) return 1; else return 0;
+ case CRC_XH:if (strcmp(zeexpression,"XH")==0) return 1; else return 0;
+ case CRC_XL:if (strcmp(zeexpression,"XL")==0) return 1; else return 0;
+ case CRC_YH:if (strcmp(zeexpression,"YH")==0) return 1; else return 0;
+ case CRC_YL:if (strcmp(zeexpression,"YL")==0) return 1; else return 0;
+ case CRC_HX:if (strcmp(zeexpression,"HX")==0) return 1; else return 0;
+ case CRC_LX:if (strcmp(zeexpression,"LX")==0) return 1; else return 0;
+ case CRC_HY:if (strcmp(zeexpression,"HY")==0) return 1; else return 0;
+ case CRC_LY:if (strcmp(zeexpression,"LY")==0) return 1; else return 0;
+ case CRC_IXL:if (strcmp(zeexpression,"IXL")==0) return 1; else return 0;
+ case CRC_IXH:if (strcmp(zeexpression,"IXH")==0) return 1; else return 0;
+ case CRC_IYL:if (strcmp(zeexpression,"IYL")==0) return 1; else return 0;
+ case CRC_IYH:if (strcmp(zeexpression,"IYH")==0) return 1; else return 0;
+ default:break;
+ }
+ return 0;
+}
+
+int StringIsMem(char *w)
+{
+ #undef FUNC
+ #define FUNC "StringIsMem"
+
+ int p=1,idx=1;
+
+ if (w[0]=='(') {
+ while (w[idx]) {
+ switch (w[idx]) {
+ case '\\':if (w[idx+1]) idx++;
+ break;
+ case '\'':if (w[idx+1] && w[idx+1]!='\\') idx++;
+ break;
+ case '(':p++;break;
+ case ')':p--;
+ if (!p && w[idx+1]) return 0;
+ break;
+ default:break;
+ }
+ idx++;
+ }
+ if (w[idx-1]!=')') return 0;
+ } else {
+ return 0;
+ }
+ return 1;
+
+}
+int StringIsQuote(char *w)
+{
+ #undef FUNC
+ #define FUNC "StringIsQuote"
+
+ int i,tquote,lens;
+
+ if (w[0]=='\'' || w[0]=='"') {
+ tquote=w[0];
+ lens=strlen(w);
+
+ /* est-ce bien une chaine et uniquement une chaine? */
+ i=1;
+ while (w[i] && w[i]!=tquote) {
+ if (w[i]=='\\') i++;
+ i++;
+ }
+ if (i==lens-1) {
+ return tquote;
+ }
+ }
+ return 0;
+}
+char *StringLooksLikeDicoRecurse(struct s_crcdico_tree *lt, int *score, char *str)
+{
+ #undef FUNC
+ #define FUNC "StringLooksLikeDicoRecurse"
+
+ char *retstr=NULL,*tmpstr;
+ int i,curs;
+
+ for (i=0;i<256;i++) {
+ if (lt->radix[i]) {
+ tmpstr=StringLooksLikeDicoRecurse(lt->radix[i],score,str);
+ if (tmpstr!=NULL) retstr=tmpstr;
+ }
+ }
+ if (lt->mdico) {
+ for (i=0;i<lt->ndico;i++) {
+ if (strlen(lt->dico[i].name)>4) {
+ curs=_internal_LevenshteinDistance(str,lt->dico[i].name);
+ if (curs<*score) {
+ *score=curs;
+ retstr=lt->dico[i].name;
+ }
+ }
+ }
+ }
+ return retstr;
+}
+char *StringLooksLikeDico(struct s_assenv *ae, int *score, char *str)
+{
+ #undef FUNC
+ #define FUNC "StringLooksLikeDico"
+
+ char *retstr=NULL,*tmpstr;
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (ae->dicotree.radix[i]) {
+ tmpstr=StringLooksLikeDicoRecurse(ae->dicotree.radix[i],score,str);
+ if (tmpstr!=NULL) retstr=tmpstr;
+ }
+ }
+ return retstr;
+}
+char *StringLooksLikeMacro(struct s_assenv *ae, char *str, int *retscore)
+{
+ #undef FUNC
+ #define FUNC "StringLooksLikeMacro"
+
+ char *ret=NULL;
+ int i,curs,score=3;
+ /* search in macros */
+ for (i=0;i<ae->imacro;i++) {
+ curs=_internal_LevenshteinDistance(ae->macro[i].mnemo,str);
+ if (curs<score) {
+ score=curs;
+ ret=ae->macro[i].mnemo;
+ }
+ }
+ if (retscore) *retscore=score;
+ return ret;
+}
+
+char *StringLooksLike(struct s_assenv *ae, char *str)
+{
+ #undef FUNC
+ #define FUNC "StringLooksLike"
+
+ char *ret=NULL,*tmpret;
+ int i,curs,score=4;
+
+ /* search in variables */
+ ret=StringLooksLikeDico(ae,&score,str);
+
+ /* search in labels */
+ for (i=0;i<ae->il;i++) {
+ if (!ae->label[i].name && strlen(ae->wl[ae->label[i].iw].w)>4) {
+ curs=_internal_LevenshteinDistance(ae->wl[ae->label[i].iw].w,str);
+ if (curs<score) {
+ score=curs;
+ ret=ae->wl[ae->label[i].iw].w;
+ }
+ }
+ }
+
+ /* search in alias */
+ for (i=0;i<ae->ialias;i++) {
+ if (strlen(ae->alias[i].alias)>4) {
+ curs=_internal_LevenshteinDistance(ae->alias[i].alias,str);
+ if (curs<score) {
+ score=curs;
+ ret=ae->alias[i].alias;
+ }
+ }
+ }
+
+ tmpret=StringLooksLikeMacro(ae,str,&curs);
+ if (curs<score) {
+ score=curs;
+ ret=tmpret;
+ }
+ return ret;
+}
+
+int RoundComputeExpression(struct s_assenv *ae,char *expr, int ptr, int didx, int expression_expected);
+int RoundComputeExpressionCore(struct s_assenv *ae,char *zeexpression,int ptr,int didx);
+double ComputeExpressionCore(struct s_assenv *ae,char *original_zeexpression,int ptr, int didx);
+char *GetExpFile(struct s_assenv *ae,int didx);
+void __STOP(struct s_assenv *ae);
+
+
+void MakeError(struct s_assenv *ae, char *filename, int line, char *format, ...)
+{
+ #undef FUNC
+ #define FUNC "MakeError"
+
+ va_list argptr;
+
+ MaxError(ae);
+ if (ae->flux) {
+ /* in embedded Rasm all errors are stored in a debug struct */
+ struct s_debug_error curerror;
+ char toosmalltotakeitall[2]={0};
+ int myalloc;
+ char *errstr;
+
+ va_start(argptr,format);
+ myalloc=vsnprintf(toosmalltotakeitall,1,format,argptr);
+ va_end(argptr);
+
+ #if defined(_MSC_VER) && _MSC_VER < 1900
+ /* visual studio before 2015 does not fully support C99 */
+ if (myalloc<1 && strlen(format)) {
+ va_start(argptr,format);
+ myalloc=_vscprintf(format,argptr);
+ va_end(argptr);
+ }
+ #endif
+ if (myalloc<1) {
+ /* do not crash */
+ return;
+ }
+
+ va_start(argptr,format);
+ errstr=MemMalloc(myalloc+1);
+ vsnprintf(errstr,myalloc,format,argptr);
+ curerror.msg=errstr;
+ curerror.lenmsg=myalloc;
+ curerror.line=line;
+ if (filename) curerror.filename=TxtStrDupLen(filename,&curerror.lenfilename); else curerror.filename=TxtStrDupLen("<internal>",&curerror.lenfilename);
+ ObjectArrayAddDynamicValueConcat((void **)&ae->debug.error,&ae->debug.nberror,&ae->debug.maxerror,&curerror,sizeof(struct s_debug_error));
+ va_end(argptr);
+ } else {
+ fprintf(stdout,KERROR);
+ va_start(argptr,format);
+ if (filename && line) {
+ printf("[%s:%d] ",filename,line);
+ } else if (filename) {
+ printf("[%s] ",filename);
+ }
+ vfprintf(stdout,format,argptr);
+ va_end(argptr);
+ fprintf(stdout,KNORMAL);
+ }
+}
+
+
+/* convert v double value to Amstrad REAL */
+unsigned char *__internal_MakeAmsdosREAL(struct s_assenv *ae, double v, int iexpression)
+{
+ #undef FUNC
+ #define FUNC "__internal_MakeAmsdosREAL"
+
+ static unsigned char rc[5];
+
+ double tmpval;
+ int j,ib,ibb,exp=0;
+ unsigned int deci;
+ int fracmax=0;
+ double frac;
+ int mesbits[32];
+ int ibit=0;
+ unsigned int mask;
+
+ memset(rc,0,sizeof(rc));
+
+ deci=fabs(floor(v));
+ frac=fabs(v)-deci;
+
+ if (deci) {
+ mask=0x80000000;
+ while (!(deci & mask)) mask=mask/2;
+ while (mask) {
+ mesbits[ibit]=!!(deci & mask);
+#if TRACE_MAKEAMSDOSREAL
+printf("%d",mesbits[ibit]);
+#endif
+ ibit++;
+ mask=mask/2;
+ }
+#if TRACE_MAKEAMSDOSREAL
+printf("\nexposant positif: %d\n",ibit);
+#endif
+ exp=ibit;
+#if TRACE_MAKEAMSDOSREAL
+printf(".");
+#endif
+ while (ibit<32 && frac!=0) {
+ frac=frac*2;
+ if (frac>=1.0) {
+ mesbits[ibit++]=1;
+#if TRACE_MAKEAMSDOSREAL
+printf("1");
+#endif
+ frac-=1.0;
+ } else {
+ mesbits[ibit++]=0;
+#if TRACE_MAKEAMSDOSREAL
+printf("0");
+#endif
+ }
+ fracmax++;
+ }
+ } else {
+#if TRACE_MAKEAMSDOSREAL
+printf("\nexposant negatif a definir:\n");
+printf("x.");
+#endif
+
+ /* handling zero */
+ if (frac==0.0) {
+ exp=0;
+ ibit=0;
+ } else {
+ /* looking for first significant bit */
+ while (1) {
+ frac=frac*2;
+ if (frac>=1.0) {
+ mesbits[ibit++]=1;
+#if TRACE_MAKEAMSDOSREAL
+printf("1");
+#endif
+ frac-=1.0;
+ break; /* first significant bit found, now looking for limit */
+ } else {
+#if TRACE_MAKEAMSDOSREAL
+printf("o");
+#endif
+ }
+ fracmax++;
+ exp--;
+ }
+ while (ibit<32 && frac!=0) {
+ frac=frac*2;
+ if (frac>=1.0) {
+ mesbits[ibit++]=1;
+#if TRACE_MAKEAMSDOSREAL
+printf("1");
+#endif
+ frac-=1.0;
+ } else {
+ mesbits[ibit++]=0;
+#if TRACE_MAKEAMSDOSREAL
+printf("0");
+#endif
+ }
+ fracmax++;
+ }
+ }
+ }
+
+#if TRACE_MAKEAMSDOSREAL
+printf("\n%d bits utilises en mantisse\n",ibit);
+#endif
+ /* pack bits */
+ ib=3;ibb=0x80;
+ for (j=0;j<ibit;j++) {
+ if (mesbits[j]) rc[ib]|=ibb;
+ ibb/=2;
+ if (ibb==0) {
+ ibb=0x80;
+ ib--;
+ }
+ }
+ /* exponent */
+ exp+=128;
+ if (exp<0 || exp>255) {
+ if (iexpression) MakeError(ae,GetExpFile(ae,iexpression),ae->wl[ae->expression[iexpression].iw].l,"Exponent overflow\n");
+ else MakeError(ae,GetExpFile(ae,0),ae->wl[ae->idx].l,"Exponent overflow\n");
+ exp=128;
+ }
+ rc[4]=exp;
+
+ /* REAL sign */
+ if (v>=0) {
+ rc[3]&=0x7F;
+ } else {
+ rc[3]|=0x80;
+ }
+
+#if TRACE_MAKEAMSDOSREAL
+ for (j=0;j<5;j++) printf("%02X ",rc[j]);
+ printf("\n");
+#endif
+
+ return rc;
+}
+
+
+
+
+struct s_label *SearchLabel(struct s_assenv *ae, char *label, int crc);
+char *GetExpFile(struct s_assenv *ae,int didx){
+ #undef FUNC
+ #define FUNC "GetExpFile"
+
+ if (ae->label_filename) {
+ return ae->label_filename;
+ }
+ if (didx<0) {
+ return ae->filename[ae->wl[-didx].ifile];
+ } else if (!didx) {
+ return ae->filename[ae->wl[ae->idx].ifile];
+ } else if (ae->expression && didx<ae->ie) {
+ return ae->filename[ae->wl[ae->expression[didx].iw].ifile];
+ } else {
+ //return ae->filename[ae->wl[ae->idx].ifile];
+ return 0;
+ }
+}
+
+int GetExpLine(struct s_assenv *ae,int didx){
+ #undef FUNC
+ #define FUNC "GetExpLine"
+
+ if (ae->label_line) return ae->label_line;
+
+ if (didx<0) {
+ return ae->wl[-didx].l;
+ } else if (!didx) {
+ return ae->wl[ae->idx].l;
+ } else if (didx<ae->ie) {
+ return ae->wl[ae->expression[didx].iw].l;
+ } else return 0;
+}
+
+char *GetCurrentFile(struct s_assenv *ae)
+{
+ return GetExpFile(ae,0);
+}
+
+
+/*******************************************************************************************
+ M E M O R Y C L E A N U P
+*******************************************************************************************/
+void FreeLabelTree(struct s_assenv *ae);
+void FreeDicoTree(struct s_assenv *ae);
+void FreeUsedTree(struct s_assenv *ae);
+void ExpressionFastTranslate(struct s_assenv *ae, char **ptr_expr, int fullreplace);
+char *TradExpression(char *zexp);
+
+
+void _internal_RasmFreeInfoStruct(struct s_rasm_info *debug)
+{
+ #undef FUNC
+ #define FUNC "RasmFreeInfoStruct"
+
+ int i;
+ if (debug->maxerror) {
+ for (i=0;i<debug->nberror;i++) {
+ MemFree(debug->error[i].filename);
+ MemFree(debug->error[i].msg);
+ }
+ MemFree(debug->error);
+ }
+ if (debug->maxsymbol) {
+ for (i=0;i<debug->nbsymbol;i++) {
+ MemFree(debug->symbol[i].name);
+ }
+ MemFree(debug->symbol);
+ }
+}
+
+void RasmFreeInfoStruct(struct s_rasm_info *debug)
+{
+ _internal_RasmFreeInfoStruct(debug);
+ MemFree(debug);
+}
+
+void FreeAssenv(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "FreeAssenv"
+ int i,j;
+
+#ifndef RDD
+ /* let the system free the memory in command line except when debug/dev */
+ if (!ae->flux) return;
+#endif
+ /*** debug info ***/
+ if (!ae->retdebug) {
+ _internal_RasmFreeInfoStruct(&ae->debug);
+ } else {
+ /* symbols */
+ struct s_debug_symbol debug_symbol={0};
+
+ for (i=0;i<ae->il;i++) {
+ /* on exporte tout */
+ if (!ae->label[i].name) {
+ /* les labels entiers */
+ debug_symbol.name=TxtStrDup(ae->wl[ae->label[i].iw].w);
+ debug_symbol.v=ae->label[i].ptr;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->debug.symbol,&ae->debug.nbsymbol,&ae->debug.maxsymbol,&debug_symbol,sizeof(struct s_debug_symbol));
+ } else {
+ /* les labels locaux et générés */
+ debug_symbol.name=TxtStrDup(ae->label[i].name);
+ debug_symbol.v=ae->label[i].ptr;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->debug.symbol,&ae->debug.nbsymbol,&ae->debug.maxsymbol,&debug_symbol,sizeof(struct s_debug_symbol));
+ }
+ }
+ for (i=0;i<ae->ialias;i++) {
+ if (strcmp(ae->alias[i].alias,"IX") && strcmp(ae->alias[i].alias,"IY")) {
+ debug_symbol.name=TxtStrDup(ae->alias[i].alias);
+ debug_symbol.v=RoundComputeExpression(ae,ae->alias[i].translation,0,0,0);
+ ObjectArrayAddDynamicValueConcat((void**)&ae->debug.symbol,&ae->debug.nbsymbol,&ae->debug.maxsymbol,&debug_symbol,sizeof(struct s_debug_symbol));
+ }
+ }
+
+ /* export struct */
+ *ae->retdebug=MemMalloc(sizeof(struct s_rasm_info));
+ memcpy(*ae->retdebug,&ae->debug,sizeof(struct s_rasm_info));
+ }
+ /*** end debug ***/
+
+ for (i=0;i<ae->nbbank;i++) {
+ MemFree(ae->mem[i]);
+ }
+ MemFree(ae->mem);
+
+ /* expression core buffer free */
+ ComputeExpressionCore(NULL,NULL,0,0);
+ ExpressionFastTranslate(NULL,NULL,0);
+ /* free labels, expression, orgzone, repeat, ... */
+ if (ae->mo) MemFree(ae->orgzone);
+ if (ae->me) {
+ for (i=0;i<ae->ie;i++) if (ae->expression[i].reference) MemFree(ae->expression[i].reference);
+ MemFree(ae->expression);
+ }
+ if (ae->mh) {
+ for (i=0;i<ae->ih;i++) {
+ MemFree(ae->hexbin[i].data);
+ MemFree(ae->hexbin[i].filename);
+ }
+ MemFree(ae->hexbin);
+ }
+ for (i=0;i<ae->il;i++) {
+ if (ae->label[i].name && ae->label[i].iw==-1) MemFree(ae->label[i].name);
+ }
+ /* structures */
+ for (i=0;i<ae->irasmstructalias;i++) {
+ MemFree(ae->rasmstructalias[i].name);
+ }
+ if (ae->mrasmstructalias) MemFree(ae->rasmstructalias);
+
+ for (i=0;i<ae->irasmstruct;i++) {
+ for (j=0;j<ae->rasmstruct[i].irasmstructfield;j++) {
+ MemFree(ae->rasmstruct[i].rasmstructfield[j].fullname);
+ MemFree(ae->rasmstruct[i].rasmstructfield[j].name);
+ }
+ if (ae->rasmstruct[i].mrasmstructfield) MemFree(ae->rasmstruct[i].rasmstructfield);
+ MemFree(ae->rasmstruct[i].name);
+ }
+ if (ae->mrasmstruct) MemFree(ae->rasmstruct);
+
+ /* other */
+ if (ae->maxbreakpoint) MemFree(ae->breakpoint);
+ if (ae->ml) MemFree(ae->label);
+ if (ae->mr) MemFree(ae->repeat);
+ if (ae->mi) MemFree(ae->ifthen);
+ if (ae->msw) MemFree(ae->switchcase);
+ if (ae->mw) MemFree(ae->whilewend);
+ if (ae->modulen || ae->module) {
+ MemFree(ae->module);
+ }
+ /* deprecated
+ for (i=0;i<ae->idic;i++) {
+ MemFree(ae->dico[i].name);
+ }
+ if (ae->mdic) MemFree(ae->dico);
+ */
+ if (ae->mlz) MemFree(ae->lzsection);
+
+ for (i=0;i<ae->ifile;i++) {
+ MemFree(ae->filename[i]);
+ }
+ MemFree(ae->filename);
+
+ for (i=0;i<ae->imacro;i++) {
+ if (ae->macro[i].maxword) MemFree(ae->macro[i].wc);
+ for (j=0;j<ae->macro[i].nbparam;j++) MemFree(ae->macro[i].param[j]);
+ if (ae->macro[i].nbparam) MemFree(ae->macro[i].param);
+ }
+
+
+ if (ae->mmacro) MemFree(ae->macro);
+
+ for (i=0;i<ae->ialias;i++) {
+ MemFree(ae->alias[i].alias);
+ MemFree(ae->alias[i].translation);
+ }
+ if (ae->malias) MemFree(ae->alias);
+
+ for (i=0;ae->wl[i].t!=2;i++) {
+ MemFree(ae->wl[i].w);
+ }
+ MemFree(ae->wl);
+
+ if (ae->ctx1.varbuffer) {
+ MemFree(ae->ctx1.varbuffer);
+ }
+ if (ae->ctx1.maxtokenstack) {
+ MemFree(ae->ctx1.tokenstack);
+ }
+ if (ae->ctx1.maxoperatorstack) {
+ MemFree(ae->ctx1.operatorstack);
+ }
+ if (ae->ctx2.varbuffer) {
+ MemFree(ae->ctx2.varbuffer);
+ }
+ if (ae->ctx2.maxtokenstack) {
+ MemFree(ae->ctx2.tokenstack);
+ }
+ if (ae->ctx2.maxoperatorstack) {
+ MemFree(ae->ctx2.operatorstack);
+ }
+
+ for (i=0;i<ae->iticker;i++) {
+ MemFree(ae->ticker[i].varname);
+ }
+ if (ae->mticker) MemFree(ae->ticker);
+
+ MemFree(ae->outputfilename);
+ FreeLabelTree(ae);
+ FreeDicoTree(ae);
+ FreeUsedTree(ae);
+ if (ae->mmacropos) MemFree(ae->macropos);
+ TradExpression(NULL);
+ MemFree(ae);
+}
+
+
+
+void MaxError(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "MaxError"
+
+ char **source_lines=NULL;
+ int idx,crc,zeline;
+ char c;
+
+ /* extended error is useful with generated code we do not want to edit */
+ if (ae->extended_error && ae->wl) {
+ /* super dupper slow but anyway, there is an error... */
+ if (ae->wl[ae->idx].l) {
+ source_lines=FileReadLinesRAW(GetCurrentFile(ae));
+ zeline=0;
+ while (zeline<ae->wl[ae->idx].l-1 && source_lines[zeline]) zeline++;
+ if (zeline==ae->wl[ae->idx].l-1 && source_lines[zeline]) {
+ rasm_printf(ae,KAYGREEN"-> %s",source_lines[zeline]);
+ } else {
+ rasm_printf(ae,KERROR"cannot read line %d of file [%s]\n",ae->wl[ae->idx].l,GetCurrentFile(ae));
+ }
+ FreeArrayDynamicValue(&source_lines);
+ }
+ }
+
+ ae->nberr++;
+ if (ae->nberr==ae->maxerr) {
+ rasm_printf(ae,KERROR"Too many errors!\n");
+ FreeAssenv(ae);
+ exit(ae->nberr);
+ }
+}
+
+void (*___output)(struct s_assenv *ae, unsigned char v);
+
+void ___internal_output_disabled(struct s_assenv *ae,unsigned char v)
+{
+ #undef FUNC
+ #define FUNC "fake ___output"
+}
+void ___internal_output(struct s_assenv *ae,unsigned char v)
+{
+ #undef FUNC
+ #define FUNC "___output"
+
+ if (ae->outputadr<ae->maxptr) {
+ ae->mem[ae->activebank][ae->outputadr++]=v;
+ ae->codeadr++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"output exceed limit %d\n",ae->maxptr);
+ ae->stop=1;
+ ___output=___internal_output_disabled;
+ }
+}
+void ___internal_output_nocode(struct s_assenv *ae,unsigned char v)
+{
+ #undef FUNC
+ #define FUNC "___output (nocode)"
+
+ if (ae->outputadr<ae->maxptr) {
+ /* struct definition always in NOCODE */
+ if (ae->getstruct) {
+ int irs,irsf;
+ irs=ae->irasmstruct-1;
+ irsf=ae->rasmstruct[irs].irasmstructfield-1;
+
+ /* ajouter les data du flux au champ de la structure */
+ ObjectArrayAddDynamicValueConcat((void**)&ae->rasmstruct[irs].rasmstructfield[irsf].data,
+ &ae->rasmstruct[irs].rasmstructfield[irsf].idata,
+ &ae->rasmstruct[irs].rasmstructfield[irsf].mdata,
+ &v,sizeof(unsigned char));
+ }
+
+ ae->outputadr++;
+ ae->codeadr++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"output exceed limit %d\n",ae->maxptr);
+ ae->stop=1;
+ ___output=___internal_output_disabled;
+ }
+}
+
+
+void ___output_set_limit(struct s_assenv *ae,int zelimit)
+{
+ #undef FUNC
+ #define FUNC "___output_set_limit"
+
+ int limit=65535;
+
+ if (zelimit<=limit) {
+ /* apply limit */
+ limit=zelimit;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"limit exceed hardware limitation!");
+ ae->stop=1;
+ }
+ if (ae->outputadr>=0 && ae->outputadr>limit) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"limit too high for current output!");
+ ae->stop=1;
+ }
+ ae->maxptr=limit;
+}
+
+unsigned char *MakeAMSDOSHeader(int run, int minmem, int maxmem, char *amsdos_name) {
+ #undef FUNC
+ #define FUNC "MakeAMSDOSHeader"
+
+ static unsigned char AmsdosHeader[128];
+ int checksum,i=0;
+ /*** cpcwiki
+ Byte 00: User number
+ Byte 01 to 08: filename
+ Byte 09 bis 11: Extension
+ Byte 18: type-byte
+ Byte 21 and 22: loading address
+ Byte 24 and 25: file length
+ Byte 26 and 27: execution address for machine code programs
+ Byte 64 and 65: (file length)
+ Byte 67 and 68: checksum for byte 00 to byte 66
+ To calculate the checksum, just add byte 00 to byte 66 to each other.
+ */
+ memset(AmsdosHeader,0,sizeof(AmsdosHeader));
+ AmsdosHeader[0]=0;
+ memcpy(AmsdosHeader+1,amsdos_name,11);
+
+ AmsdosHeader[18]=2; /* 0 basic 1 basic protege 2 binaire */
+ AmsdosHeader[19]=(maxmem-minmem)&0xFF;
+ AmsdosHeader[20]=(maxmem-minmem)>>8;
+ AmsdosHeader[21]=minmem&0xFF;
+ AmsdosHeader[22]=minmem>>8;
+ AmsdosHeader[24]=AmsdosHeader[19];
+ AmsdosHeader[25]=AmsdosHeader[20];
+ AmsdosHeader[26]=run&0xFF;
+ AmsdosHeader[27]=run>>8;
+ AmsdosHeader[64]=AmsdosHeader[19];
+ AmsdosHeader[65]=AmsdosHeader[20];
+ AmsdosHeader[66]=0;
+
+ for (i=checksum=0;i<=66;i++) {
+ checksum+=AmsdosHeader[i];
+ }
+ AmsdosHeader[67]=checksum&0xFF;
+ AmsdosHeader[68]=checksum>>8;
+
+ /* garbage / shadow values from sector buffer? */
+ memcpy(AmsdosHeader+0x47,amsdos_name,8);
+ AmsdosHeader[0x4F]=0x24;
+ AmsdosHeader[0x50]=0x24;
+ AmsdosHeader[0x51]=0x24;
+ AmsdosHeader[0x52]=0xFF;
+ AmsdosHeader[0x54]=0xFF;
+ AmsdosHeader[0x57]=0x02;
+ AmsdosHeader[0x5A]=AmsdosHeader[21];
+ AmsdosHeader[0x5B]=AmsdosHeader[22];
+ AmsdosHeader[0x5D]=AmsdosHeader[24];
+ AmsdosHeader[0x5E]=AmsdosHeader[25];
+
+ sprintf((char *)AmsdosHeader+0x47+17," generated by %s ",RASM_SNAP_VERSION);
+
+ return AmsdosHeader;
+}
+
+unsigned char *MakeHobetaHeader(int minmem, int maxmem, char *trdos_name) {
+ #undef FUNC
+ #define FUNC "MakeHobetaHeader"
+
+ static unsigned char HobetaHeader[17];
+ int i,checksum=0;
+ /*** http://rk.nvg.ntnu.no/sinclair/faq/fileform.html#HOBETA
+ 0x00 FileName 0x08 TR-DOS file name
+ 0x08 FileType 0x01 TR-DOS file type
+ 0x09 StartAdr 0x02 start address of file
+ 0x0A FlLength 0x02 length of file (in bytes) -> /!\ wrong offset!!!
+ 0x0C FileSize 0x02 size of file (in sectors)
+ 0x0E HdrCRC16 0x02 Control checksum of the 15 byte
+ header (not sector data!)
+ */
+ memset(HobetaHeader,0,sizeof(HobetaHeader));
+
+ strncpy(HobetaHeader,trdos_name,8);
+ HobetaHeader[8]='C';
+ HobetaHeader[0x9]=(maxmem-minmem)&0xFF;
+ HobetaHeader[0xA]=(maxmem-minmem)>>8;
+
+ HobetaHeader[0xB]=(maxmem-minmem)&0xFF;
+ HobetaHeader[0xC]=(maxmem-minmem)>>8;
+
+ HobetaHeader[0xD]=((maxmem-minmem)+255)>>8;
+ HobetaHeader[0xE]=0;
+
+ for (i=0;i<0xF;i++) checksum+=HobetaHeader[i]*257+i;
+
+ HobetaHeader[0xF]=checksum&0xFF;
+ HobetaHeader[0x10]=(checksum>>8)&0xFF;
+
+ return HobetaHeader;
+}
+
+
+int cmpAmsdosentry(const void * a, const void * b)
+{
+ return memcmp(a,b,32);
+}
+
+int cmpmacros(const void * a, const void * b)
+{
+ struct s_macro *sa,*sb;
+ sa=(struct s_macro *)a;
+ sb=(struct s_macro *)b;
+ if (sa->crc<sb->crc) return -1; else return 1;
+}
+int SearchAlias(struct s_assenv *ae, int crc, char *zemot)
+{
+ int dw,dm,du,i;
+//printf("SearchAlias [%s] ",zemot);
+ /* inutile de tourner autour du pot pour un si petit nombre */
+ if (ae->ialias<5) {
+ for (i=0;i<ae->ialias;i++) {
+ if (ae->alias[i].crc==crc && strcmp(ae->alias[i].alias,zemot)==0) {
+ ae->alias[i].used=1;
+//printf("found\n");
+ return i;
+ }
+ }
+//printf("not found\n");
+ return -1;
+ }
+
+ dw=0;
+ du=ae->ialias-1;
+ while (dw<=du) {
+ dm=(dw+du)/2;
+ if (ae->alias[dm].crc==crc) {
+ /* chercher le premier de la liste */
+ while (dm>0 && ae->alias[dm-1].crc==crc) dm--;
+ /* controle sur le texte entier */
+ while (ae->alias[dm].crc==crc && strcmp(ae->alias[dm].alias,zemot)) dm++;
+ if (ae->alias[dm].crc==crc && strcmp(ae->alias[dm].alias,zemot)==0) {
+ ae->alias[dm].used=1;
+//printf("found\n");
+ return dm;
+ } else return -1;
+ } else if (ae->alias[dm].crc>crc) {
+ du=dm-1;
+ } else if (ae->alias[dm].crc<crc) {
+ dw=dm+1;
+ }
+ }
+//printf("not found\n");
+ return -1;
+}
+int SearchMacro(struct s_assenv *ae, int crc, char *zemot)
+{
+ int dw,dm,du,i;
+
+ /* inutile de tourner autour du pot pour un si petit nombre */
+ if (ae->imacro<5) {
+ for (i=0;i<ae->imacro;i++) {
+ if (ae->macro[i].crc==crc && strcmp(ae->macro[i].mnemo,zemot)==0) {
+ return i;
+ }
+ }
+ return -1;
+ }
+
+ dw=0;
+ du=ae->imacro-1;
+ while (dw<=du) {
+ dm=(dw+du)/2;
+ if (ae->macro[dm].crc==crc) {
+ /* chercher le premier de la liste */
+ while (dm>0 && ae->macro[dm-1].crc==crc) dm--;
+ /* controle sur le texte entier */
+ while (ae->macro[dm].crc==crc && strcmp(ae->macro[dm].mnemo,zemot)) dm++;
+ if (ae->macro[dm].crc==crc && strcmp(ae->macro[dm].mnemo,zemot)==0) return dm; else return -1;
+ } else if (ae->macro[dm].crc>crc) {
+ du=dm-1;
+ } else if (ae->macro[dm].crc<crc) {
+ dw=dm+1;
+ }
+ }
+ return -1;
+}
+
+void CheckAndSortAliases(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "CheckAndSortAliases"
+
+ struct s_alias tmpalias;
+ int i,dw,dm,du,crc;
+ for (i=0;i<ae->ialias-1;i++) {
+ /* is there previous aliases in the new alias? */
+ if (strstr(ae->alias[ae->ialias-1].translation,ae->alias[i].alias)) {
+ /* there is a match, apply alias translation */
+ ExpressionFastTranslate(ae,&ae->alias[ae->ialias-1].translation,2);
+ /* need to compute again len */
+ ae->alias[ae->ialias-1].len=strlen(ae->alias[ae->ialias-1].translation);
+ break;
+ }
+ }
+
+ /* cas particuliers pour insertion en début ou fin de liste */
+ if (ae->ialias-1) {
+ if (ae->alias[ae->ialias-1].crc>ae->alias[ae->ialias-2].crc) {
+ /* pas de tri il est déjà au bon endroit */
+ } else if (ae->alias[ae->ialias-1].crc<ae->alias[0].crc) {
+ /* insertion tout en bas de liste */
+ tmpalias=ae->alias[ae->ialias-1];
+ MemMove(&ae->alias[1],&ae->alias[0],sizeof(struct s_alias)*(ae->ialias-1));
+ ae->alias[0]=tmpalias;
+ } else {
+ /* on cherche ou inserer */
+ crc=ae->alias[ae->ialias-1].crc;
+ dw=0;
+ du=ae->ialias-1;
+ while (dw<=du) {
+ dm=(dw+du)/2;
+ if (ae->alias[dm].crc==crc) {
+ break;
+ } else if (ae->alias[dm].crc>crc) {
+ du=dm-1;
+ } else if (ae->alias[dm].crc<crc) {
+ dw=dm+1;
+ }
+ }
+ /* ajustement */
+ if (ae->alias[dm].crc<crc) dm++;
+ /* insertion */
+ tmpalias=ae->alias[ae->ialias-1];
+ MemMove(&ae->alias[dm+1],&ae->alias[dm],sizeof(struct s_alias)*(ae->ialias-1-dm));
+ ae->alias[dm]=tmpalias;
+ }
+ } else {
+ /* one alias need no sort */
+ }
+}
+
+void InsertDicoToTree(struct s_assenv *ae, struct s_expr_dico *dico)
+{
+ #undef FUNC
+ #define FUNC "InsertDicoToTree"
+
+ struct s_crcdico_tree *curdicotree;
+ int radix,dek=32;
+
+ curdicotree=&ae->dicotree;
+ while (dek) {
+ dek=dek-8;
+ radix=(dico->crc>>dek)&0xFF;
+ if (curdicotree->radix[radix]) {
+ curdicotree=curdicotree->radix[radix];
+ } else {
+ curdicotree->radix[radix]=MemMalloc(sizeof(struct s_crcdico_tree));
+ curdicotree=curdicotree->radix[radix];
+ memset(curdicotree,0,sizeof(struct s_crcdico_tree));
+ }
+ }
+ ObjectArrayAddDynamicValueConcat((void**)&curdicotree->dico,&curdicotree->ndico,&curdicotree->mdico,dico,sizeof(struct s_expr_dico));
+}
+
+unsigned char *SnapshotDicoInsert(char *symbol_name, int ptr, int *retidx)
+{
+ static unsigned char *subchunk=NULL;
+ static int subchunksize=0;
+ static int idx=0;
+ int symbol_len;
+
+ if (retidx) {
+ if (symbol_name && strcmp(symbol_name,"FREE")==0) {
+ subchunksize=0;
+ idx=0;
+ MemFree(subchunk);
+ subchunk=NULL;
+ }
+ *retidx=idx;
+ return subchunk;
+ }
+
+ if (idx+65536>subchunksize) {
+ subchunksize=subchunksize+65536;
+ subchunk=MemRealloc(subchunk,subchunksize);
+ }
+
+ symbol_len=strlen(symbol_name);
+ if (symbol_len>255) symbol_len=255;
+ subchunk[idx++]=symbol_len;
+ memcpy(subchunk+idx,symbol_name,symbol_len);
+ idx+=symbol_len;
+ memset(subchunk+idx,0,6);
+ idx+=6;
+ subchunk[idx++]=(ptr&0xFF00)/256;
+ subchunk[idx++]=ptr&0xFF;
+ return NULL;
+}
+
+void SnapshotDicoTreeRecurse(struct s_crcdico_tree *lt)
+{
+ #undef FUNC
+ #define FUNC "SnapshottDicoTreeRecurse"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (lt->radix[i]) {
+ SnapshotDicoTreeRecurse(lt->radix[i]);
+ }
+ }
+ if (lt->mdico) {
+ for (i=0;i<lt->ndico;i++) {
+ if (strcmp(lt->dico[i].name,"IX") && strcmp(lt->dico[i].name,"IY") && strcmp(lt->dico[i].name,"PI") && strcmp(lt->dico[i].name,"ASSEMBLER_RASM")) {
+ SnapshotDicoInsert(lt->dico[i].name,(int)floor(lt->dico[i].v+0.5),NULL);
+ }
+ }
+ }
+}
+unsigned char *SnapshotDicoTree(struct s_assenv *ae, int *retidx)
+{
+ #undef FUNC
+ #define FUNC "SnapshotDicoTree"
+
+ unsigned char *sc;
+ int idx;
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (ae->dicotree.radix[i]) {
+ SnapshotDicoTreeRecurse(ae->dicotree.radix[i]);
+ }
+ }
+
+ sc=SnapshotDicoInsert(NULL,0,&idx);
+ *retidx=idx;
+ return sc;
+}
+
+void WarnLabelTreeRecurse(struct s_assenv *ae, struct s_crclabel_tree *lt)
+{
+ #undef FUNC
+ #define FUNC "WarnLabelTreeRecurse"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (lt->radix[i]) {
+ WarnLabelTreeRecurse(ae,lt->radix[i]);
+ }
+ }
+ for (i=0;i<lt->nlabel;i++) {
+ if (!lt->label[i].used) {
+ if (!lt->label[i].name) {
+ rasm_printf(ae,KWARNING"[%s:%d] Warning: label %s declared but not used\n",ae->filename[lt->label[i].fileidx],lt->label[i].fileline,ae->wl[lt->label[i].iw].w);
+ } else {
+ rasm_printf(ae,KWARNING"[%s:%d] Warning: label %s declared but not used\n",ae->filename[lt->label[i].fileidx],lt->label[i].fileline,lt->label[i].name);
+ }
+ }
+ }
+}
+void WarnLabelTree(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "WarnLabelTree"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (ae->labeltree.radix[i]) {
+ WarnLabelTreeRecurse(ae,ae->labeltree.radix[i]);
+ }
+ }
+}
+void WarnDicoTreeRecurse(struct s_assenv *ae, struct s_crcdico_tree *lt)
+{
+ #undef FUNC
+ #define FUNC "WarnDicoTreeRecurse"
+
+ char symbol_line[1024];
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (lt->radix[i]) {
+ WarnDicoTreeRecurse(ae,lt->radix[i]);
+ }
+ }
+ for (i=0;i<lt->ndico;i++) {
+ if (strcmp(lt->dico[i].name,"IX") && strcmp(lt->dico[i].name,"IY") && strcmp(lt->dico[i].name,"PI") && strcmp(lt->dico[i].name,"ASSEMBLER_RASM") && lt->dico[i].autorise_export) {
+ rasm_printf(ae,KWARNING"[%s:%d] Warning: variable %s declared but not used\n",ae->filename[ae->wl[lt->dico[i].iw].ifile],ae->wl[lt->dico[i].iw].l,lt->dico[i].name);
+ }
+ }
+}
+void WarnDicoTree(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "ExportDicoTree"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (ae->dicotree.radix[i]) {
+ WarnDicoTreeRecurse(ae,ae->dicotree.radix[i]);
+ }
+ }
+}
+void ExportDicoTreeRecurse(struct s_crcdico_tree *lt, char *zefile, char *zeformat)
+{
+ #undef FUNC
+ #define FUNC "ExportDicoTreeRecurse"
+
+ char symbol_line[1024];
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (lt->radix[i]) {
+ ExportDicoTreeRecurse(lt->radix[i],zefile,zeformat);
+ }
+ }
+ if (lt->mdico) {
+ for (i=0;i<lt->ndico;i++) {
+ if (strcmp(lt->dico[i].name,"IX") && strcmp(lt->dico[i].name,"IY") && strcmp(lt->dico[i].name,"PI") && strcmp(lt->dico[i].name,"ASSEMBLER_RASM") && lt->dico[i].autorise_export) {
+ snprintf(symbol_line,sizeof(symbol_line)-1,zeformat,lt->dico[i].name,(int)floor(lt->dico[i].v+0.5));
+ symbol_line[sizeof(symbol_line)-1]=0xD;
+ FileWriteLine(zefile,symbol_line);
+ }
+ }
+ }
+}
+void ExportDicoTree(struct s_assenv *ae, char *zefile, char *zeformat)
+{
+ #undef FUNC
+ #define FUNC "ExportDicoTree"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (ae->dicotree.radix[i]) {
+ ExportDicoTreeRecurse(ae->dicotree.radix[i],zefile,zeformat);
+ }
+ }
+}
+void FreeDicoTreeRecurse(struct s_crcdico_tree *lt)
+{
+ #undef FUNC
+ #define FUNC "FreeDicoTreeRecurse"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (lt->radix[i]) {
+ FreeDicoTreeRecurse(lt->radix[i]);
+ }
+ }
+ if (lt->mdico) {
+ for (i=0;i<lt->ndico;i++) {
+ MemFree(lt->dico[i].name);
+ }
+ MemFree(lt->dico);
+ }
+ MemFree(lt);
+}
+void FreeDicoTree(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "FreeDicoTree"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (ae->dicotree.radix[i]) {
+ FreeDicoTreeRecurse(ae->dicotree.radix[i]);
+ }
+ }
+ if (ae->dicotree.mdico) {
+ for (i=0;i<ae->dicotree.ndico;i++) MemFree(ae->dicotree.dico[i].name);
+ MemFree(ae->dicotree.dico);
+ }
+}
+struct s_expr_dico *SearchDico(struct s_assenv *ae, char *dico, int crc)
+{
+ #undef FUNC
+ #define FUNC "SearchDico"
+
+ struct s_crcdico_tree *curdicotree;
+ struct s_expr_dico *retdico=NULL;
+ int i,radix,dek=32;
+
+ curdicotree=&ae->dicotree;
+
+ while (dek) {
+ dek=dek-8;
+ radix=(crc>>dek)&0xFF;
+ if (curdicotree->radix[radix]) {
+ curdicotree=curdicotree->radix[radix];
+ } else {
+ /* radix not found, dico is not in index */
+ return NULL;
+ }
+ }
+ for (i=0;i<curdicotree->ndico;i++) {
+ if (strcmp(curdicotree->dico[i].name,dico)==0) {
+ curdicotree->dico[i].used=1;
+ return &curdicotree->dico[i];
+ }
+ }
+ return NULL;
+}
+int DelDico(struct s_assenv *ae, char *dico, int crc)
+{
+ #undef FUNC
+ #define FUNC "DelDico"
+
+ struct s_crcdico_tree *curdicotree;
+ struct s_expr_dico *retdico=NULL;
+ int i,radix,dek=32;
+
+ curdicotree=&ae->dicotree;
+
+ while (dek) {
+ dek=dek-8;
+ radix=(crc>>dek)&0xFF;
+ if (curdicotree->radix[radix]) {
+ curdicotree=curdicotree->radix[radix];
+ } else {
+ /* radix not found, dico is not in index */
+ return 0;
+ }
+ }
+ for (i=0;i<curdicotree->ndico;i++) {
+ if (strcmp(curdicotree->dico[i].name,dico)==0) {
+ /* must free memory */
+ MemFree(curdicotree->dico[i].name);
+ if (i<curdicotree->ndico-1) {
+ MemMove(&curdicotree->dico[i],&curdicotree->dico[i+1],(curdicotree->ndico-i-1)*sizeof(struct s_expr_dico));
+ }
+ curdicotree->ndico--;
+ return 1;
+ }
+ }
+ return 0;
+}
+
+
+void InsertUsedToTree(struct s_assenv *ae, char *used, int crc)
+{
+ #undef FUNC
+ #define FUNC "InsertUsedToTree"
+
+ struct s_crcused_tree *curusedtree;
+ int radix,dek=32,i;
+
+ curusedtree=&ae->usedtree;
+ while (dek) {
+ dek=dek-8;
+ radix=(crc>>dek)&0xFF;
+ if (curusedtree->radix[radix]) {
+ curusedtree=curusedtree->radix[radix];
+ } else {
+ curusedtree->radix[radix]=MemMalloc(sizeof(struct s_crcused_tree));
+ curusedtree=curusedtree->radix[radix];
+ memset(curusedtree,0,sizeof(struct s_crcused_tree));
+ }
+ }
+ for (i=0;i<curusedtree->nused;i++) if (strcmp(used,curusedtree->used[i])==0) break;
+ /* no double */
+ if (i==curusedtree->nused) {
+ FieldArrayAddDynamicValueConcat(&curusedtree->used,&curusedtree->nused,&curusedtree->mused,used);
+ }
+}
+
+void FreeUsedTreeRecurse(struct s_crcused_tree *lt)
+{
+ #undef FUNC
+ #define FUNC "FreeUsedTreeRecurse"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (lt->radix[i]) {
+ FreeUsedTreeRecurse(lt->radix[i]);
+ }
+ }
+ if (lt->mused) {
+ for (i=0;i<lt->nused;i++) MemFree(lt->used[i]);
+ MemFree(lt->used);
+ }
+ MemFree(lt);
+}
+void FreeUsedTree(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "FreeUsedTree"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (ae->usedtree.radix[i]) {
+ FreeUsedTreeRecurse(ae->usedtree.radix[i]);
+ }
+ }
+}
+int SearchUsed(struct s_assenv *ae, char *used, int crc)
+{
+ #undef FUNC
+ #define FUNC "SearchUsed"
+
+ struct s_crcused_tree *curusedtree;
+ int i,radix,dek=32;
+
+ curusedtree=&ae->usedtree;
+ while (dek) {
+ dek=dek-8;
+ radix=(crc>>dek)&0xFF;
+ if (curusedtree->radix[radix]) {
+ curusedtree=curusedtree->radix[radix];
+ } else {
+ /* radix not found, used is not in index */
+ return 0;
+ }
+ }
+ for (i=0;i<curusedtree->nused;i++) {
+ if (strcmp(curusedtree->used[i],used)==0) {
+ return 1;
+ }
+ }
+ return 0;
+}
+
+
+
+void InsertTextToTree(struct s_assenv *ae, char *text, char *replace, int crc)
+{
+ #undef FUNC
+ #define FUNC "InsertTextToTree"
+
+ struct s_crcstring_tree *curstringtree;
+ int radix,dek=32,i;
+
+ curstringtree=&ae->stringtree;
+ while (dek) {
+ dek=dek-8;
+ radix=(crc>>dek)&0xFF;
+ if (curstringtree->radix[radix]) {
+ curstringtree=curstringtree->radix[radix];
+ } else {
+ curstringtree->radix[radix]=MemMalloc(sizeof(struct s_crcused_tree));
+ curstringtree=curstringtree->radix[radix];
+ memset(curstringtree,0,sizeof(struct s_crcused_tree));
+ }
+ }
+ for (i=0;i<curstringtree->ntext;i++) if (strcmp(text,curstringtree->text[i])==0) break;
+ /* no double */
+ if (i==curstringtree->ntext) {
+ text=TxtStrDup(text);
+ replace=TxtStrDup(replace);
+ FieldArrayAddDynamicValueConcat(&curstringtree->text,&curstringtree->ntext,&curstringtree->mtext,text);
+ FieldArrayAddDynamicValueConcat(&curstringtree->replace,&curstringtree->nreplace,&curstringtree->mreplace,replace);
+ }
+}
+
+void FreeTextTreeRecurse(struct s_crcstring_tree *lt)
+{
+ #undef FUNC
+ #define FUNC "FreeTextTreeRecurse"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (lt->radix[i]) {
+ FreeTextTreeRecurse(lt->radix[i]);
+ }
+ }
+ if (lt->mtext) {
+ for (i=0;i<lt->ntext;i++) MemFree(lt->text[i]);
+ MemFree(lt->text);
+ }
+ MemFree(lt);
+}
+void FreeTextTree(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "FreeTextTree"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (ae->stringtree.radix[i]) {
+ FreeTextTreeRecurse(ae->stringtree.radix[i]);
+ }
+ }
+ if (ae->stringtree.mtext) MemFree(ae->stringtree.text);
+}
+int SearchText(struct s_assenv *ae, char *text, int crc)
+{
+ #undef FUNC
+ #define FUNC "SearchText"
+
+ struct s_crcstring_tree *curstringtree;
+ int i,radix,dek=32;
+
+ curstringtree=&ae->stringtree;
+ while (dek) {
+ dek=dek-8;
+ radix=(crc>>dek)&0xFF;
+ if (curstringtree->radix[radix]) {
+ curstringtree=curstringtree->radix[radix];
+ } else {
+ /* radix not found, used is not in index */
+ return 0;
+ }
+ }
+ for (i=0;i<curstringtree->ntext;i++) {
+ if (strcmp(curstringtree->text[i],text)==0) {
+ return 1;
+ }
+ }
+ return 0;
+}
+
+
+
+
+
+
+
+/*
+struct s_crclabel_tree {
+
+
+
+
+/*
+struct s_crclabel_tree {
+ struct s_crclabel_tree *radix[256];
+ struct s_label *label;
+ int nlabel,mlabel;
+};
+*/
+void FreeLabelTreeRecurse(struct s_crclabel_tree *lt)
+{
+ #undef FUNC
+ #define FUNC "FreeLabelTreeRecurse"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (lt->radix[i]) {
+ FreeLabelTreeRecurse(lt->radix[i]);
+ }
+ }
+ /* label.name already freed elsewhere as this one is a copy */
+ if (lt->mlabel) MemFree(lt->label);
+ MemFree(lt);
+}
+void FreeLabelTree(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "FreeLabelTree"
+
+ int i;
+
+ for (i=0;i<256;i++) {
+ if (ae->labeltree.radix[i]) {
+ FreeLabelTreeRecurse(ae->labeltree.radix[i]);
+ }
+ }
+ if (ae->labeltree.mlabel) MemFree(ae->labeltree.label);
+}
+
+struct s_label *SearchLabel(struct s_assenv *ae, char *label, int crc)
+{
+ #undef FUNC
+ #define FUNC "SearchLabel"
+
+ struct s_crclabel_tree *curlabeltree;
+ struct s_label *retlabel=NULL;
+ int i,radix,dek=32;
+//printf("searchLabel [%s]",label);
+ curlabeltree=&ae->labeltree;
+ while (dek) {
+ dek=dek-8;
+ radix=(crc>>dek)&0xFF;
+ if (curlabeltree->radix[radix]) {
+ curlabeltree=curlabeltree->radix[radix];
+ } else {
+ /* radix not found, label is not in index */
+//printf(" not found\n");
+ return NULL;
+ }
+ }
+ for (i=0;i<curlabeltree->nlabel;i++) {
+ if (!curlabeltree->label[i].name && strcmp(ae->wl[curlabeltree->label[i].iw].w,label)==0) {
+ curlabeltree->label[i].used=1;
+//printf(" found (global)\n");
+ return &curlabeltree->label[i];
+ } else if (curlabeltree->label[i].name && strcmp(curlabeltree->label[i].name,label)==0) {
+ curlabeltree->label[i].used=1;
+//printf(" found (local or proximity)\n");
+ return &curlabeltree->label[i];
+ }
+ }
+ return NULL;
+}
+
+char *MakeLocalLabel(struct s_assenv *ae,char *varbuffer, int *retdek)
+{
+ #undef FUNC
+ #define FUNC "MakeLocalLabel"
+
+ char *locallabel;
+ char hexdigit[32];
+ int lenbuf=0,dek,i,im;
+ char *zepoint;
+
+ lenbuf=strlen(varbuffer);
+
+ /* not so local labels */
+ if (varbuffer[0]=='.') {
+ /* create reference */
+ if (ae->lastgloballabel) {
+ locallabel=MemMalloc(strlen(varbuffer)+1+ae->lastgloballabellen);
+ sprintf(locallabel,"%s%s",ae->lastgloballabel,varbuffer);
+ if (retdek) *retdek=0;
+ return locallabel;
+ } else {
+ if (retdek) *retdek=0;
+ return TxtStrDup(varbuffer);
+ }
+ }
+
+ /***************************************************
+ without retdek -> build a local label
+ with retdek -> build the hash string
+ ***************************************************/
+ if (!retdek) {
+ locallabel=MemMalloc(lenbuf+(ae->ir+ae->iw+3)*8+8);
+ zepoint=strchr(varbuffer,'.');
+ if (zepoint) {
+ *zepoint=0;
+ }
+ strcpy(locallabel,varbuffer);
+ } else {
+ locallabel=MemMalloc((ae->ir+ae->iw+3)*8+4);
+ locallabel[0]=0;
+ }
+//printf("locallabel=[%s] (draft)\n",locallabel);
+
+ dek=0;
+ dek+=strappend(locallabel,"R");
+ for (i=0;i<ae->ir;i++) {
+ sprintf(hexdigit,"%04X",ae->repeat[i].cpt);
+ dek+=strappend(locallabel,hexdigit);
+ }
+ if (ae->ir) {
+ sprintf(hexdigit,"%04X",ae->repeat[ae->ir-1].value);
+ dek+=strappend(locallabel+dek,hexdigit);
+ }
+
+ dek+=strappend(locallabel,"W");
+ for (i=0;i<ae->iw;i++) {
+ sprintf(hexdigit,"%04X",ae->whilewend[i].cpt);
+ dek+=strappend(locallabel+dek,hexdigit);
+ }
+ if (ae->iw) {
+ sprintf(hexdigit,"%04X",ae->whilewend[ae->iw-1].value);
+ dek+=strappend(locallabel+dek,hexdigit);
+ }
+ /* where are we? */
+ if (ae->imacropos) {
+ for (im=ae->imacropos-1;im>=0;im--) {
+ if (ae->idx>=ae->macropos[im].start && ae->idx<ae->macropos[im].end) break;
+ }
+ if (im>=0) {
+ /* si on n'est pas dans une macro, on n'indique rien */
+ sprintf(hexdigit,"M%04X",ae->macropos[im].value);
+ dek+=strappend(locallabel+dek,hexdigit);
+ }
+ }
+ if (!retdek) {
+ if (zepoint) {
+ *zepoint='.';
+ strcat(locallabel+dek,zepoint);
+ }
+ } else {
+ *retdek=dek;
+ }
+//printf("locallabel=[%s] (end)\n",locallabel);
+ return locallabel;
+}
+
+char *TradExpression(char *zexp)
+{
+ #undef FUNC
+ #define FUNC "TradExpression"
+
+ static char *last_expression=NULL;
+ char *wstr;
+
+ if (last_expression) {MemFree(last_expression);last_expression=NULL;}
+ if (!zexp) return NULL;
+
+ wstr=TxtStrDup(zexp);
+ wstr=TxtReplace(wstr,"[","<<",0);
+ wstr=TxtReplace(wstr,"]",">>",0);
+ wstr=TxtReplace(wstr,"m","%",0);
+
+ last_expression=wstr;
+ return wstr;
+}
+
+int TrimFloatingPointString(char *fps) {
+ int i=0,pflag,zflag=0;
+
+ while (fps[i]) {
+ if (fps[i]=='.') {
+ pflag=i;
+ zflag=1;
+ } else if (fps[i]!='0') {
+ zflag=0;
+ }
+ i++;
+ }
+ /* truncate floating fract */
+ if (zflag) {
+ fps[pflag]=0;
+ } else {
+ pflag=i;
+ }
+ return pflag;
+}
+
+
+
+/*
+ translate tag or formula between curly brackets
+ used in label declaration
+ used in print directive
+*/
+char *TranslateTag(struct s_assenv *ae, char *varbuffer, int *touched, int enablefast, int tagoption) {
+ /*******************************************************
+ v a r i a b l e s i n s t r i n g s
+ *******************************************************/
+ char *starttag,*endtag,*tagcheck,*expr;
+ int newlen,lenw,taglen,tagidx,tagcount,validx;
+ char curvalstr[256]={0};
+ char *equpos=NULL,*equback;
+
+//printf("TranslateTag [%s]\n",varbuffer);
+
+ if (tagoption & E_TAGOPTION_PRESERVE) {
+ if (ae->iw || ae->ir) {
+ /* inside a loop we must care about variables */
+//printf("TranslateTag [%s] with PRESERVE inside a loop!\n",varbuffer);
+ return varbuffer;
+ }
+ }
+
+ *touched=0;
+ while ((starttag=strchr(varbuffer+1,'{'))!=NULL) {
+ if ((endtag=strchr(starttag,'}'))==NULL) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"invalid tag in string [%s]\n",varbuffer);
+ return NULL;
+ }
+ /* allow inception */
+ tagcount=1;
+ tagcheck=starttag+1;
+ while (*tagcheck && tagcount) {
+ if (*tagcheck=='}') tagcount--; else if (*tagcheck=='{') tagcount++;
+ tagcheck++;
+ }
+ if (tagcount) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"invalid brackets combination in string [%s]\n",varbuffer);
+ return NULL;
+ } else {
+ endtag=tagcheck-1;
+ }
+ *touched=1;
+ taglen=endtag-starttag+1;
+ tagidx=starttag-varbuffer;
+ lenw=strlen(varbuffer); // before the EOF write
+ *endtag=0;
+ /*** c o m p u t e e x p r e s s i o n ***/
+ expr=TxtStrDup(starttag+1);
+ if (tagoption & E_TAGOPTION_REMOVESPACE) expr=TxtReplace(expr," ","",0);
+ if (enablefast) ExpressionFastTranslate(ae,&expr,0);
+ validx=(int)RoundComputeExpressionCore(ae,expr,ae->codeadr,0);
+ if (validx<0) {
+ strcpy(curvalstr,"");
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"indexed tag must NOT be a negative value [%s]\n",varbuffer);
+ MemFree(expr);
+ return NULL;
+ } else {
+ #ifdef OS_WIN
+ snprintf(curvalstr,sizeof(curvalstr)-1,"%d",validx);
+ newlen=strlen(curvalstr);
+ #else
+ newlen=snprintf(curvalstr,sizeof(curvalstr)-1,"%d",validx);
+ #endif
+ }
+ MemFree(expr);
+ if (newlen>taglen) {
+ /* realloc */
+ varbuffer=MemRealloc(varbuffer,lenw+newlen-taglen+1);
+ }
+ if (newlen!=taglen ) {
+ MemMove(varbuffer+tagidx+newlen,varbuffer+tagidx+taglen,lenw-taglen-tagidx+1);
+ }
+ strncpy(varbuffer+tagidx,curvalstr,newlen); /* copy without zero terminator */
+ }
+
+ return varbuffer;
+}
+
+double ComputeExpressionCore(struct s_assenv *ae,char *original_zeexpression,int ptr, int didx)
+{
+ #undef FUNC
+ #define FUNC "ComputeExpressionCore"
+
+ /* static execution buffers */
+ static double *accu=NULL;
+ static int maccu=0;
+ static struct s_compute_element *computestack=NULL;
+ static int maxcomputestack=0;
+ int i,j,paccu=0;
+ int nbtokenstack=0;
+ int nbcomputestack=0;
+ int nboperatorstack=0;
+
+ struct s_compute_element stackelement;
+ int o2,okclose,itoken;
+
+ int idx=0,crc,icheck,is_binary,ivar=0;
+ char asciivalue[11];
+ unsigned char c;
+ int accu_err=0;
+ /* backup alias replace */
+ char *zeexpression,*expr;
+ int original=1;
+ int ialias,startvar;
+ int newlen,lenw;
+ /* dictionnary */
+ struct s_expr_dico *curdic;
+ struct s_label *curlabel;
+ char *localname;
+ int minusptr,imkey,bank,page,idxmacro;
+ double curval;
+ /* negative value */
+ int allow_minus_as_sign=0;
+ /* extended replace in labels */
+ int curly=0,curlyflag=0;
+ char *Automate;
+ double dummint;
+
+ /* memory cleanup */
+ if (!ae) {
+ if (maccu) MemFree(accu);
+ accu=NULL;maccu=0;
+ if (maxcomputestack) MemFree(computestack);
+ computestack=NULL;maxcomputestack=0;
+#if 0
+ if (maxivar) MemFree(varbuffer);
+ if (maxtokenstack) MemFree(tokenstack);
+ if (maxoperatorstack) MemFree(operatorstack);
+ maxtokenstack=maxoperatorstack=0;
+ maxivar=1;
+ varbuffer=NULL;
+ tokenstack=NULL;
+ operatorstack=NULL;
+#endif
+ return 0.0;
+ }
+
+ /* be sure to have at least some bytes allocated */
+ StateMachineResizeBuffer(&ae->computectx->varbuffer,128,&ae->computectx->maxivar);
+
+
+#if TRACE_COMPUTE_EXPRESSION
+ printf("expression=[%s]\n",zeexpression);
+#endif
+ zeexpression=original_zeexpression;
+ if (!zeexpression[0]) {
+ return 0;
+ }
+ /* double hack if the first value is negative */
+ if (zeexpression[0]=='-') {
+ if (ae->AutomateExpressionValidCharFirst[(int)zeexpression[1]&0xFF]) {
+ allow_minus_as_sign=1;
+ } else {
+ memset(&stackelement,0,sizeof(stackelement));
+ ObjectArrayAddDynamicValueConcat((void **)&ae->computectx->tokenstack,&nbtokenstack,&ae->computectx->maxtokenstack,&stackelement,sizeof(stackelement));
+ }
+ }
+
+ /* is there ascii char? */
+ while ((c=zeexpression[idx])!=0) {
+ if (c=='\'' || c=='"') {
+ /* echappement */
+ if (zeexpression[idx+1]=='\\') {
+ if (zeexpression[idx+2] && zeexpression[idx+3]==c) {
+ sprintf(asciivalue,"#%03X",zeexpression[idx+2]);
+ memcpy(zeexpression+idx,asciivalue,4);
+ idx+=3;
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"Only single escaped char may be quoted [%s]\n",TradExpression(zeexpression));
+ zeexpression[0]=0;
+ return 0;
+ }
+ } else if (zeexpression[idx+1] && zeexpression[idx+2]==c) {
+ sprintf(asciivalue,"#%02X",zeexpression[idx+1]);
+ memcpy(zeexpression+idx,asciivalue,3);
+ idx+=2;
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"Only single char may be quoted [%s]\n",TradExpression(zeexpression));
+ zeexpression[0]=0;
+ return 0;
+ }
+ }
+
+ idx++;
+ }
+#if TRACE_COMPUTE_EXPRESSION
+ printf("apres conversion des chars [%s]\n",zeexpression);
+#endif
+ /***********************************************************
+ P A T C H F O R P O S I T I V E V A L U E
+ ***********************************************************/
+ if (zeexpression[0]=='+') idx=1; else idx=0;
+ /***********************************************************
+ C O M P U T E E X P R E S S I O N M A I N L O O P
+ ***********************************************************/
+ while ((c=zeexpression[idx])!=0) {
+ switch (c) {
+ /* parenthesis */
+ case ')':
+ /* next to a closing parenthesis, a minus is an operator */
+ allow_minus_as_sign=0;
+ break;
+ case '(':
+ /* operator detection */
+ case '*':
+ case '/':
+ case '^':
+ case '[':
+ case 'm':
+ case '+':
+ case ']':
+ allow_minus_as_sign=1;
+ break;
+ case '&':
+ allow_minus_as_sign=1;
+ if (c=='&' && zeexpression[idx+1]=='&') {
+ idx++;
+ c='a'; // boolean AND
+ }
+ break;
+ case '|':
+ allow_minus_as_sign=1;
+ if (c=='|' && zeexpression[idx+1]=='|') {
+ idx++;
+ c='o'; // boolean OR
+ }
+ break;
+ /* testing */
+ case '<':
+ allow_minus_as_sign=1;
+ if (zeexpression[idx+1]=='=') {
+ idx++;
+ c='k'; // boolean LOWEREQ
+ } else if (zeexpression[idx+1]=='>') {
+ idx++;
+ c='n'; // boolean NOTEQUAL
+ } else {
+ c='l';
+ }
+ break;
+ case '>':
+ allow_minus_as_sign=1;
+ if (zeexpression[idx+1]=='=') {
+ idx++;
+ c='h'; // boolean GREATEREQ
+ } else {
+ c='g';
+ }
+ break;
+ case '!':
+ allow_minus_as_sign=1;
+ if (zeexpression[idx+1]=='=') {
+ idx++;
+ c='n'; // boolean NOTEQUAL
+ } else {
+ c='b';
+ }
+ break;
+ case '=':
+ allow_minus_as_sign=1;
+ /* expecting == */
+ if (zeexpression[idx+1]=='=') {
+ idx++;
+ c='e'; // boolean EQUAL
+ /* except in maxam mode with a single = */
+ } else if (ae->maxam) {
+ c='e'; // boolean EQUAL
+ /* cannot affect data inside an expression */
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] cannot set variable inside an expression\n",TradExpression(zeexpression));
+ return 0;
+ }
+ break;
+ case '-':
+ if (allow_minus_as_sign) {
+ /* previous char was an opening parenthesis or an operator */
+ ivar=0;
+ ae->computectx->varbuffer[ivar++]='-';
+ StateMachineResizeBuffer(&ae->computectx->varbuffer,ivar,&ae->computectx->maxivar);
+ c=zeexpression[++idx];
+ if (ae->AutomateExpressionValidCharFirst[(int)c&0xFF]) {
+ ae->computectx->varbuffer[ivar++]=c;
+ StateMachineResizeBuffer(&ae->computectx->varbuffer,ivar,&ae->computectx->maxivar);
+ c=zeexpression[++idx];
+ while (ae->AutomateExpressionValidChar[(int)c&0xFF]) {
+ ae->computectx->varbuffer[ivar++]=c;
+ StateMachineResizeBuffer(&ae->computectx->varbuffer,ivar,&ae->computectx->maxivar);
+ c=zeexpression[++idx];
+ }
+ }
+ ae->computectx->varbuffer[ivar]=0;
+ if (ivar<2) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] invalid minus sign\n",TradExpression(zeexpression));
+ if (!original) {
+ MemFree(zeexpression);
+ }
+ return 0;
+ }
+ break;
+ }
+ allow_minus_as_sign=1;
+ break;
+
+ /* operator OR binary value */
+ case '%':
+ /* % symbol may be a modulo or a binary literal value */
+ is_binary=0;
+ for (icheck=1;zeexpression[idx+icheck];icheck++) {
+ switch (zeexpression[idx+icheck]) {
+ case '1':
+ case '0':/* still binary */
+ is_binary=1;
+ break;
+ case '+':
+ case '-':
+ case '/':
+ case '*':
+ case '|':
+ case 'm':
+ case '%':
+ case '^':
+ case '&':
+ case '(':
+ case ')':
+ case '=':
+ case '<':
+ case '>':
+ case '!':
+ case '[':
+ case ']':
+ if (is_binary) is_binary=2; else is_binary=-1;
+ break;
+ default:
+ is_binary=-1;
+ }
+ if (is_binary==2) {
+ break;
+ }
+ if (is_binary==-1) {
+ is_binary=0;
+ break;
+ }
+ }
+ if (!is_binary) {
+ allow_minus_as_sign=1;
+ c='m';
+ break;
+ }
+ default:
+ allow_minus_as_sign=0;
+ /* semantic analysis */
+ startvar=idx;
+ ivar=0;
+ /* first char does not allow same chars as next chars */
+ if (ae->AutomateExpressionValidCharFirst[((int)c)&0xFF]) {
+ ae->computectx->varbuffer[ivar++]=c;
+ if (c=='{') {
+ /* not a formula but only a prefix tag */
+ curly++;
+ }
+ StateMachineResizeBuffer(&ae->computectx->varbuffer,ivar,&ae->computectx->maxivar);
+ idx++;
+ c=zeexpression[idx];
+ Automate=ae->AutomateExpressionValidChar;
+ while (Automate[((int)c)&0xFF]) {
+ if (c=='{') {
+ curly++;
+ curlyflag=1;
+ Automate=ae->AutomateExpressionValidCharExtended;
+ } else if (c=='}') {
+ curly--;
+ if (!curly) {
+ Automate=ae->AutomateExpressionValidChar;
+ }
+ }
+ ae->computectx->varbuffer[ivar++]=c;
+ StateMachineResizeBuffer(&ae->computectx->varbuffer,ivar,&ae->computectx->maxivar);
+ idx++;
+ c=zeexpression[idx];
+ }
+ }
+ ae->computectx->varbuffer[ivar]=0;
+ if (!ivar) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"invalid char (%d=%c) expression [%s]\n",c,c>31?c:' ',TradExpression(zeexpression));
+ if (!original) {
+ MemFree(zeexpression);
+ }
+ return 0;
+ } else if (curly) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"wrong curly brackets in expression [%s]\n",TradExpression(zeexpression));
+ if (!original) {
+ MemFree(zeexpression);
+ }
+ return 0;
+ }
+ }
+ if (c && !ivar) idx++;
+
+ /************************************
+ S T A C K D I S P A T C H E R
+ ************************************/
+ /* push operator or stack value */
+ if (!ivar) {
+ /************************************
+ O P E R A T O R
+ ************************************/
+ stackelement=ae->AutomateElement[c];
+ if (stackelement.operator>E_COMPUTE_OPERATION_GREATEREQ) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] has unknown operator %c (%d)\n",TradExpression(zeexpression),c>31?c:'.',c);
+ }
+ /* stackelement.value isn't used */
+ } else {
+ /************************************
+ V A L U E
+ ************************************/
+#if TRACE_COMPUTE_EXPRESSION
+ printf("value [%s]\n",ae->computectx->varbuffer);
+#endif
+ if (ae->computectx->varbuffer[0]=='-') minusptr=1; else minusptr=0;
+ /* constantes ou variables/labels */
+ switch (ae->computectx->varbuffer[minusptr]) {
+ case '0':
+ /* 0x hexa value hack */
+ if (ae->computectx->varbuffer[minusptr+1]=='X' && ae->AutomateHexa[ae->computectx->varbuffer[minusptr+2]]) {
+ for (icheck=minusptr+3;ae->computectx->varbuffer[icheck];icheck++) {
+ if (ae->AutomateHexa[ae->computectx->varbuffer[icheck]]) continue;
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid hex number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ break;
+ }
+ curval=strtol(ae->computectx->varbuffer+minusptr+2,NULL,16);
+ break;
+ } else
+ /* 0b binary value hack */
+ if (ae->computectx->varbuffer[minusptr+1]=='B' && (ae->computectx->varbuffer[minusptr+2]>='0' && ae->computectx->varbuffer[minusptr+2]<='1')) {
+ for (icheck=minusptr+3;ae->computectx->varbuffer[icheck];icheck++) {
+ if (ae->computectx->varbuffer[icheck]>='0' && ae->computectx->varbuffer[icheck]<='1') continue;
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid binary number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ break;
+ }
+ curval=strtol(ae->computectx->varbuffer+minusptr+2,NULL,2);
+ break;
+ }
+ /* 0o octal value hack */
+ if (ae->computectx->varbuffer[minusptr+1]=='O' && (ae->computectx->varbuffer[minusptr+2]>='0' && ae->computectx->varbuffer[minusptr+2]<='5')) {
+ for (icheck=minusptr+3;ae->computectx->varbuffer[icheck];icheck++) {
+ if (ae->computectx->varbuffer[icheck]>='0' && ae->computectx->varbuffer[icheck]<='5') continue;
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid octal number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ break;
+ }
+ curval=strtol(ae->computectx->varbuffer+minusptr+2,NULL,2);
+ break;
+ }
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ case '8':
+ case '9':
+ /* check number */
+ for (icheck=minusptr;ae->computectx->varbuffer[icheck];icheck++) {
+ if (ae->AutomateDigit[ae->computectx->varbuffer[icheck]]) continue;
+ /* Intel hexa & binary style */
+ switch (ae->computectx->varbuffer[strlen(ae->computectx->varbuffer)-1]) {
+ case 'H':
+ for (icheck=minusptr;ae->computectx->varbuffer[icheck+1];icheck++) {
+ if (ae->AutomateHexa[ae->computectx->varbuffer[icheck]]) continue;
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid hex number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ }
+ curval=strtol(ae->computectx->varbuffer+minusptr,NULL,16);
+ break;
+ case 'B':
+ for (icheck=minusptr;ae->computectx->varbuffer[icheck+1];icheck++) {
+ if (ae->computectx->varbuffer[icheck]=='0' || ae->computectx->varbuffer[icheck]=='1') continue;
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid binary number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ }
+ curval=strtol(ae->computectx->varbuffer+minusptr,NULL,2);
+ break;
+ default:
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ }
+ icheck=0;
+ break;
+ }
+ if (!ae->computectx->varbuffer[icheck]) curval=atof(ae->computectx->varbuffer+minusptr);
+ break;
+ case '%':
+ /* check number */
+ if (!ae->computectx->varbuffer[minusptr+1]) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is an empty binary number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ }
+ for (icheck=minusptr+1;ae->computectx->varbuffer[icheck];icheck++) {
+ if (ae->computectx->varbuffer[icheck]=='0' || ae->computectx->varbuffer[icheck]=='1') continue;
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid binary number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ break;
+ }
+ curval=strtol(ae->computectx->varbuffer+minusptr+1,NULL,2);
+ break;
+ case '#':
+ /* check number */
+ if (!ae->computectx->varbuffer[minusptr+1]) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is an empty hex number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ }
+ for (icheck=minusptr+1;ae->computectx->varbuffer[icheck];icheck++) {
+ if (ae->AutomateHexa[ae->computectx->varbuffer[icheck]]) continue;
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid hex number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ break;
+ }
+ curval=strtol(ae->computectx->varbuffer+minusptr+1,NULL,16);
+ break;
+ default:
+ if (1 || !curlyflag) {
+ /* $ hex value hack */
+ if (ae->computectx->varbuffer[minusptr+0]=='$' && ae->AutomateHexa[ae->computectx->varbuffer[minusptr+1]]) {
+ for (icheck=minusptr+2;ae->computectx->varbuffer[icheck];icheck++) {
+ if (ae->AutomateHexa[ae->computectx->varbuffer[icheck]]) continue;
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid hex number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ break;
+ }
+ curval=strtol(ae->computectx->varbuffer+minusptr+1,NULL,16);
+ break;
+ }
+ /* @ octal value hack */
+ if (ae->computectx->varbuffer[minusptr+0]=='@' && ((ae->computectx->varbuffer[minusptr+1]>='0' && ae->computectx->varbuffer[minusptr+1]<='7'))) {
+ for (icheck=minusptr+2;ae->computectx->varbuffer[icheck];icheck++) {
+ if (ae->computectx->varbuffer[icheck]>='0' && ae->computectx->varbuffer[icheck]<='7') continue;
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is not a valid octal number\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ break;
+ }
+ curval=strtol(ae->computectx->varbuffer+minusptr+1,NULL,8);
+ break;
+ }
+ /* Intel hexa value hack */
+ if (ae->AutomateHexa[ae->computectx->varbuffer[minusptr+0]]) {
+ if (ae->computectx->varbuffer[strlen(ae->computectx->varbuffer)-1]=='H') {
+ for (icheck=minusptr;ae->computectx->varbuffer[icheck+1];icheck++) {
+ if (!ae->AutomateHexa[ae->computectx->varbuffer[icheck]]) break;
+ }
+ if (!ae->computectx->varbuffer[icheck+1]) {
+ curval=strtol(ae->computectx->varbuffer+minusptr,NULL,16);
+ break;
+ }
+ }
+ }
+ }
+
+
+ if (curlyflag) {
+ char *minivarbuffer;
+ int touched;
+
+ /* besoin d'un sous-contexte */
+ minivarbuffer=TxtStrDup(ae->computectx->varbuffer+minusptr);
+ ae->computectx=&ae->ctx2;
+#if TRACE_COMPUTE_EXPRESSION
+ printf("curly [%s]\n",minivarbuffer);
+#endif
+ minivarbuffer=TranslateTag(ae,minivarbuffer, &touched,0,E_TAGOPTION_NONE);
+#if TRACE_COMPUTE_EXPRESSION
+ printf("après curly [%s]\n",minivarbuffer);
+#endif
+ ae->computectx=&ae->ctx1;
+ if (!touched) {
+ strcpy(ae->computectx->varbuffer+minusptr,minivarbuffer);
+ } else {
+ StateMachineResizeBuffer(&ae->computectx->varbuffer,strlen(minivarbuffer)+2,&ae->computectx->maxivar);
+ strcpy(ae->computectx->varbuffer+minusptr,minivarbuffer);
+ }
+ MemFree(minivarbuffer);
+ curlyflag=0;
+ }
+
+ crc=GetCRC(ae->computectx->varbuffer+minusptr);
+ /***************************************************
+ L O O K I N G F O R A F U N C T I O N
+ ***************************************************/
+ for (imkey=0;math_keyword[imkey].mnemo[0];imkey++) {
+ if (crc==math_keyword[imkey].crc && strcmp(ae->computectx->varbuffer+minusptr,math_keyword[imkey].mnemo)==0) {
+ if (c=='(') {
+ /* push function as operator! */
+ stackelement.operator=math_keyword[imkey].operation;
+ //stackelement.priority=0;
+ /************************************************
+ C R E A T E E X T R A T O K E N
+ ************************************************/
+ ObjectArrayAddDynamicValueConcat((void **)&ae->computectx->tokenstack,&nbtokenstack,&ae->computectx->maxtokenstack,&stackelement,sizeof(stackelement));
+ stackelement.operator=E_COMPUTE_OPERATION_OPEN;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->computectx->tokenstack,&nbtokenstack,&ae->computectx->maxtokenstack,&stackelement,sizeof(stackelement));
+ allow_minus_as_sign=1;
+ idx++;
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is a reserved keyword!\n",TradExpression(zeexpression),math_keyword[imkey].mnemo);
+ curval=0;
+ idx++;
+ }
+ ivar=0;
+ break;
+ }
+ }
+ if (math_keyword[imkey].mnemo[0]) continue;
+
+ if (ae->computectx->varbuffer[minusptr+0]=='$' && ae->computectx->varbuffer[minusptr+1]==0) {
+ curval=ptr;
+ } else {
+#if TRACE_COMPUTE_EXPRESSION
+ printf("search dico [%s]\n",ae->computectx->varbuffer+minusptr);
+#endif
+ curdic=SearchDico(ae,ae->computectx->varbuffer+minusptr,crc);
+ if (curdic) {
+#if TRACE_COMPUTE_EXPRESSION
+ printf("trouvé valeur=%.2lf\n",curdic->v);
+#endif
+ curval=curdic->v;
+ break;
+ } else {
+ /* getbank hack */
+ if (ae->computectx->varbuffer[minusptr]!='{') {
+ bank=0;
+ page=0;
+ } else if (strncmp(ae->computectx->varbuffer+minusptr,"{BANK}",6)==0) {
+ bank=6;
+ page=0;
+ /* obligé de recalculer le CRC */
+ crc=GetCRC(ae->computectx->varbuffer+minusptr+bank);
+ } else if (strncmp(ae->computectx->varbuffer+minusptr,"{PAGE}",6)==0) {
+ bank=6;
+ page=1;
+ /* obligé de recalculer le CRC */
+ crc=GetCRC(ae->computectx->varbuffer+minusptr+bank);
+ } else if (strncmp(ae->computectx->varbuffer+minusptr,"{PAGESET}",9)==0) {
+ bank=9;
+ page=2;
+ /* obligé de recalculer le CRC */
+ crc=GetCRC(ae->computectx->varbuffer+minusptr+bank);
+ } else if (strncmp(ae->computectx->varbuffer+minusptr,"{SIZEOF}",8)==0) {
+ bank=8;
+ page=3;
+ /* obligé de recalculer le CRC */
+ crc=GetCRC(ae->computectx->varbuffer+minusptr+bank);
+ /* search in structures prototypes and subfields */
+ for (i=0;i<ae->irasmstruct;i++) {
+ if (ae->rasmstruct[i].crc==crc && strcmp(ae->rasmstruct[i].name,ae->computectx->varbuffer+minusptr+bank)==0) {
+ curval=ae->rasmstruct[i].size;
+ break;
+ }
+
+ for (j=0;j<ae->rasmstruct[i].irasmstructfield;j++) {
+ if (ae->rasmstruct[i].rasmstructfield[j].crc==crc && strcmp(ae->rasmstruct[i].rasmstructfield[j].fullname,ae->computectx->varbuffer+minusptr+bank)==0) {
+ curval=ae->rasmstruct[i].rasmstructfield[j].size;
+ i=ae->irasmstruct+1;
+ break;
+ }
+ }
+ }
+
+ if (i==ae->irasmstruct) {
+ /* search in structures aliases */
+ for (i=0;i<ae->irasmstructalias;i++) {
+ if (ae->rasmstructalias[i].crc==crc && strcmp(ae->rasmstructalias[i].name,ae->computectx->varbuffer+minusptr+bank)==0) {
+ curval=ae->rasmstructalias[i].size+ae->rasmstructalias[i].ptr;
+ break;
+ }
+ }
+ if (i==ae->irasmstructalias) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"cannot SIZEOF unknown structure [%s]!\n",ae->computectx->varbuffer+minusptr+bank);
+ curval=0;
+ }
+ }
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] - %s is an unknown prefix!\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ }
+ /* limited label translation while processing crunched blocks
+ ae->curlz == current crunched block processed
+ expression->crunch_block=0 -> oui
+ expression->crunch_block=1 -> oui si même block
+ expression->crunch_block=2 -> non car sera relogée
+ */
+ if (page!=3) {
+
+#if TRACE_COMPUTE_EXPRESSION
+printf("search label [%s]\n",ae->computectx->varbuffer+minusptr+bank);
+#endif
+ curlabel=SearchLabel(ae,ae->computectx->varbuffer+minusptr+bank,crc);
+ if (curlabel) {
+ if (ae->stage<2) {
+ if (curlabel->lz==-1) {
+ if (!bank) {
+ curval=curlabel->ptr;
+ } else {
+#if TRACE_COMPUTE_EXPRESSION
+printf("page=%d | ptr=%X ibank=%d\n",page,curlabel->ptr,curlabel->ibank);
+#endif
+ switch (page) {
+ case 2: /* PAGESET */
+ if (curlabel->ibank<BANK_MAX_NUMBER) {
+ curval=ae->setgate[curlabel->ibank];
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] cannot use PAGESET - label [%s] is in a temporary space!\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ curval=curlabel->ibank;
+ }
+ break;
+ case 1:/* PAGE */
+ if (curlabel->ibank<BANK_MAX_NUMBER) {
+ /* 4M expansion compliant */
+ if (ae->bankset[curlabel->ibank>>2]) {
+ curval=ae->bankgate[(curlabel->ibank&0x1FC)+(curlabel->ptr>>14)];
+ } else {
+ curval=ae->bankgate[curlabel->ibank];
+ }
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] cannot use PAGE - label [%s] is in a temporary space!\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ curval=curlabel->ibank;
+ }
+ break;
+ case 0:
+ curval=curlabel->ibank;
+ break;
+ default:MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INTERNAL ERROR (unknown paging)\n",GetExpFile(ae,didx),GetExpLine(ae,didx));FreeAssenv(ae);exit(-664);
+ }
+ }
+ } else {
+ /* label MUST be in the crunched block */
+ if (curlabel->iorgzone==ae->expression[didx].iorgzone && curlabel->ibank==ae->expression[didx].ibank && curlabel->lz<=ae->expression[didx].lz) {
+ if (!bank) {
+ curval=curlabel->ptr;
+ } else {
+ if (page) {
+ switch (page) {
+ case 2: /* PAGESET */
+ if (curlabel->ibank<BANK_MAX_NUMBER) {
+ /* 4M expansion compliant */
+ curval=ae->setgate[curlabel->ibank];
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] cannot use PAGESET - label [%s] is in a temporary space!\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ curval=curlabel->ibank;
+ }
+ break;
+ case 1: /* PAGE */
+ if (curlabel->ibank<BANK_MAX_NUMBER) {
+ /* 4M expansion compliant */
+ if (ae->bankset[curlabel->ibank>>2]) {
+ curval=ae->bankgate[(curlabel->ibank&0x1FC)+(curlabel->ptr>>14)];
+ } else {
+ curval=ae->bankgate[curlabel->ibank];
+ }
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] cannot use PAGE - label [%s] is in a temporary space!\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ curval=curlabel->ibank;
+ }
+ break;
+ case 0:curval=curlabel->ibank;break;
+ default:MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INTERNAL ERROR (unknown paging)\n",GetExpFile(ae,didx),GetExpLine(ae,didx));FreeAssenv(ae);exit(-664);
+ }
+ }
+ }
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"Label [%s](%d) cannot be computed because it is located after the crunched zone %d\n",ae->computectx->varbuffer,curlabel->lz,ae->expression[didx].lz);
+ curval=0;
+ }
+ }
+ } else {
+#if TRACE_COMPUTE_EXPRESSION
+printf("stage 2 | page=%d | ptr=%X ibank=%d\n",page,curlabel->ptr,curlabel->ibank);
+#endif
+ if (bank) {
+ //curval=curlabel->ibank;
+ switch (page) {
+ case 2: /* PAGESET */
+ if (curlabel->ibank<BANK_MAX_NUMBER) {
+ curval=ae->setgate[curlabel->ibank];
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] cannot use PAGESET - label [%s] is in a temporary space!\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ curval=curlabel->ibank;
+ }
+ break;
+ case 1:/* PAGE */
+ if (curlabel->ibank<BANK_MAX_NUMBER) {
+ /* 4M expansion compliant */
+ if (ae->bankset[curlabel->ibank>>2]) {
+ curval=ae->bankgate[(curlabel->ibank&0x1FC)+(curlabel->ptr>>14)];
+ } else {
+ curval=ae->bankgate[curlabel->ibank];
+ }
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] cannot use PAGE - label [%s] is in a temporary space!\n",TradExpression(zeexpression),ae->computectx->varbuffer);
+ curval=curlabel->ibank;
+ }
+ break;
+ case 0:
+ curval=curlabel->ibank;
+ break;
+ default:MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INTERNAL ERROR (unknown paging)\n",GetExpFile(ae,didx),GetExpLine(ae,didx));FreeAssenv(ae);exit(-664);
+ }
+ } else {
+ curval=curlabel->ptr;
+ }
+ }
+ } else {
+ /***********
+ to allow aliases declared after use
+ ***********/
+ if ((ialias=SearchAlias(ae,crc,ae->computectx->varbuffer+minusptr))>=0) {
+ newlen=ae->alias[ialias].len;
+ lenw=strlen(zeexpression);
+ if (newlen>ivar) {
+ /* realloc bigger */
+ if (original) {
+ expr=MemMalloc(lenw+newlen-ivar+1);
+ memcpy(expr,zeexpression,lenw+1);
+ zeexpression=expr;
+ original=0;
+ } else {
+ zeexpression=MemRealloc(zeexpression,lenw+newlen-ivar+1);
+ }
+ }
+ /* startvar? */
+ if (newlen!=ivar) {
+ MemMove(zeexpression+startvar+newlen,zeexpression+startvar+ivar,lenw-startvar-ivar+1);
+ }
+ strncpy(zeexpression+startvar,ae->alias[ialias].translation,newlen); /* copy without zero terminator */
+ idx=startvar;
+ ivar=0;
+ continue;
+ } else {
+ /* index possible sur une struct? */
+ int reverse_idx,validx=-1;
+ char *structlabel;
+
+ reverse_idx=strlen(ae->computectx->varbuffer)-1;
+ if (ae->computectx->varbuffer[reverse_idx]>='0' && ae->computectx->varbuffer[reverse_idx]<='9') {
+ /* vu que ça ne PEUT PAS être une valeur litérale, on ne fait pas de test de débordement */
+ reverse_idx--;
+ while (ae->computectx->varbuffer[reverse_idx]>='0' && ae->computectx->varbuffer[reverse_idx]<='9') {
+ reverse_idx--;
+ }
+ reverse_idx++;
+ validx=atoi(ae->computectx->varbuffer+reverse_idx);
+ structlabel=TxtStrDup(ae->computectx->varbuffer+minusptr);
+ structlabel[reverse_idx-minusptr]=0;
+#ifdef TRACE_STRUCT
+ printf("EVOL 119 -> looking for struct %s IDX=%d\n",structlabel,validx);
+#endif
+ /* unoptimized search in structures aliases */
+ crc=GetCRC(structlabel);
+ for (i=0;i<ae->irasmstructalias;i++) {
+ if (ae->rasmstructalias[i].crc==crc && strcmp(ae->rasmstructalias[i].name,structlabel)==0) {
+#ifdef TRACE_STRUCT
+ printf("EVOL 119 -> found! ptr=%d size=%d\n",ae->rasmstructalias[i].ptr,ae->rasmstructalias[i].size);
+#endif
+ curval=ae->rasmstructalias[i].size*validx+ae->rasmstructalias[i].ptr;
+ if (validx>=ae->rasmstructalias[i].nbelem) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: index out of array size!\n",GetExpFile(ae,didx),GetExpLine(ae,didx));
+ }
+ break;
+ }
+ }
+ if (i==ae->irasmstructalias) {
+ /* not found */
+ validx=-1;
+ }
+ MemFree(structlabel);
+ }
+ if (validx<0) {
+ /* last chance to get a keyword */
+ if (strcmp(ae->computectx->varbuffer+minusptr,"REPEAT_COUNTER")==0) {
+ if (ae->ir) {
+ curval=ae->repeat[ae->ir-1].repeat_counter;
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"cannot use REPEAT_COUNTER keyword outside a repeat loop\n");
+ curval=0;
+ }
+ } else if (strcmp(ae->computectx->varbuffer+minusptr,"WHILE_COUNTER")==0) {
+ if (ae->iw) {
+ curval=ae->whilewend[ae->iw-1].while_counter;
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"cannot use WHILE_COUNTER keyword outside a while loop\n");
+ curval=0;
+ }
+ } else {
+ /* in case the expression is a register */
+ if (IsRegister(ae->computectx->varbuffer+minusptr)) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"cannot use register %s in this context\n",TradExpression(zeexpression));
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"expression [%s] keyword [%s] not found in variables, labels or aliases\n",TradExpression(zeexpression),ae->computectx->varbuffer+minusptr);
+ if (ae->extended_error) {
+ char *lookstr;
+ lookstr=StringLooksLike(ae,ae->computectx->varbuffer+minusptr);
+ if (lookstr) {
+ rasm_printf(ae,KERROR" did you mean [%s] ?\n",lookstr);
+ }
+ }
+ }
+
+ curval=0;
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ if (minusptr) curval=-curval;
+ stackelement.operator=E_COMPUTE_OPERATION_PUSH_DATASTC;
+ stackelement.value=curval;
+ /* priority isn't used */
+
+ allow_minus_as_sign=0;
+ ivar=0;
+ }
+ /************************************
+ C R E A T E T O K E N
+ ************************************/
+ ObjectArrayAddDynamicValueConcat((void **)&ae->computectx->tokenstack,&nbtokenstack,&ae->computectx->maxtokenstack,&stackelement,sizeof(stackelement));
+ }
+ /*******************************************************
+ C R E A T E E X E C U T I O N S T A C K
+ *******************************************************/
+#define DEBUG_STACK 0
+#if DEBUG_STACK
+ for (itoken=0;itoken<nbtokenstack;itoken++) {
+ switch (ae->computectx->tokenstack[itoken].operator) {
+ case E_COMPUTE_OPERATION_PUSH_DATASTC:printf("%lf ",ae->computectx->tokenstack[itoken].value);break;
+ case E_COMPUTE_OPERATION_OPEN:printf("(");break;
+ case E_COMPUTE_OPERATION_CLOSE:printf(")");break;
+ case E_COMPUTE_OPERATION_ADD:printf("+ ");break;
+ case E_COMPUTE_OPERATION_SUB:printf("- ");break;
+ case E_COMPUTE_OPERATION_DIV:printf("/ ");break;
+ case E_COMPUTE_OPERATION_MUL:printf("* ");break;
+ case E_COMPUTE_OPERATION_AND:printf("and ");break;
+ case E_COMPUTE_OPERATION_OR:printf("or ");break;
+ case E_COMPUTE_OPERATION_MOD:printf("mod ");break;
+ case E_COMPUTE_OPERATION_XOR:printf("xor ");break;
+ case E_COMPUTE_OPERATION_NOT:printf("! ");break;
+ case E_COMPUTE_OPERATION_SHL:printf("<< ");break;
+ case E_COMPUTE_OPERATION_SHR:printf(">> ");break;
+ case E_COMPUTE_OPERATION_BAND:printf("&& ");break;
+ case E_COMPUTE_OPERATION_BOR:printf("|| ");break;
+ case E_COMPUTE_OPERATION_LOWER:printf("< ");break;
+ case E_COMPUTE_OPERATION_GREATER:printf("> ");break;
+ case E_COMPUTE_OPERATION_EQUAL:printf("== ");break;
+ case E_COMPUTE_OPERATION_NOTEQUAL:printf("!= ");break;
+ case E_COMPUTE_OPERATION_LOWEREQ:printf("<= ");break;
+ case E_COMPUTE_OPERATION_GREATEREQ:printf(">= ");break;
+ case E_COMPUTE_OPERATION_SIN:printf("sin ");break;
+ case E_COMPUTE_OPERATION_COS:printf("cos ");break;
+ case E_COMPUTE_OPERATION_INT:printf("int ");break;
+ case E_COMPUTE_OPERATION_FLOOR:printf("floor ");break;
+ case E_COMPUTE_OPERATION_ABS:printf("abs ");break;
+ case E_COMPUTE_OPERATION_LN:printf("ln ");break;
+ case E_COMPUTE_OPERATION_LOG10:printf("log10 ");break;
+ case E_COMPUTE_OPERATION_SQRT:printf("sqrt ");break;
+ case E_COMPUTE_OPERATION_ASIN:printf("asin ");break;
+ case E_COMPUTE_OPERATION_ACOS:printf("acos ");break;
+ case E_COMPUTE_OPERATION_ATAN:printf("atan ");break;
+ case E_COMPUTE_OPERATION_EXP:printf("exp ");break;
+ case E_COMPUTE_OPERATION_LOW:printf("low ");break;
+ case E_COMPUTE_OPERATION_HIGH:printf("high ");break;
+ case E_COMPUTE_OPERATION_PSG:printf("psg ");break;
+ case E_COMPUTE_OPERATION_RND:printf("rnd ");break;
+ case E_COMPUTE_OPERATION_FRAC:printf("frac ");break;
+ case E_COMPUTE_OPERATION_CEIL:printf("ceil ");break;
+ case E_COMPUTE_OPERATION_GET_R:printf("get_r ");break;
+ case E_COMPUTE_OPERATION_GET_V:printf("get_v ");break;
+ case E_COMPUTE_OPERATION_GET_B:printf("get_b ");break;
+ case E_COMPUTE_OPERATION_SET_R:printf("set_r ");break;
+ case E_COMPUTE_OPERATION_SET_V:printf("set_v ");break;
+ case E_COMPUTE_OPERATION_SET_B:printf("set_b ");break;
+ default:printf("bug\n");break;
+ }
+
+ }
+ printf("\n");
+#endif
+
+ for (itoken=0;itoken<nbtokenstack;itoken++) {
+ switch (ae->computectx->tokenstack[itoken].operator) {
+ case E_COMPUTE_OPERATION_PUSH_DATASTC:
+#if DEBUG_STACK
+printf("data\n");
+#endif
+ ObjectArrayAddDynamicValueConcat((void **)&computestack,&nbcomputestack,&maxcomputestack,&ae->computectx->tokenstack[itoken],sizeof(stackelement));
+ break;
+ case E_COMPUTE_OPERATION_OPEN:
+ ObjectArrayAddDynamicValueConcat((void **)&ae->computectx->operatorstack,&nboperatorstack,&ae->computectx->maxoperatorstack,&ae->computectx->tokenstack[itoken],sizeof(stackelement));
+#if DEBUG_STACK
+printf("ajout (\n");
+#endif
+ break;
+ case E_COMPUTE_OPERATION_CLOSE:
+#if DEBUG_STACK
+printf("close\n");
+#endif
+ /* pop out token until the opened parenthesis is reached */
+ o2=nboperatorstack-1;
+ okclose=0;
+ while (o2>=0) {
+ if (ae->computectx->operatorstack[o2].operator!=E_COMPUTE_OPERATION_OPEN) {
+ ObjectArrayAddDynamicValueConcat((void **)&computestack,&nbcomputestack,&maxcomputestack,&ae->computectx->operatorstack[o2],sizeof(stackelement));
+ nboperatorstack--;
+#if DEBUG_STACK
+printf("op--\n");
+#endif
+ o2--;
+ } else {
+ /* discard opening parenthesis as operator */
+#if DEBUG_STACK
+printf("discard )\n");
+#endif
+ nboperatorstack--;
+ okclose=1;
+ o2--;
+ break;
+ }
+ }
+ if (!okclose) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"missing parenthesis [%s]\n",TradExpression(zeexpression));
+ if (!original) {
+ MemFree(zeexpression);
+ }
+ return 0;
+ }
+ /* if upper token is a function then pop from the stack */
+ if (o2>=0 && ae->computectx->operatorstack[o2].operator>=E_COMPUTE_OPERATION_SIN) {
+ ObjectArrayAddDynamicValueConcat((void **)&computestack,&nbcomputestack,&maxcomputestack,&ae->computectx->operatorstack[o2],sizeof(stackelement));
+ nboperatorstack--;
+#if DEBUG_STACK
+printf("pop function\n");
+#endif
+ }
+ break;
+ case E_COMPUTE_OPERATION_ADD:
+ case E_COMPUTE_OPERATION_SUB:
+ case E_COMPUTE_OPERATION_DIV:
+ case E_COMPUTE_OPERATION_MUL:
+ case E_COMPUTE_OPERATION_AND:
+ case E_COMPUTE_OPERATION_OR:
+ case E_COMPUTE_OPERATION_MOD:
+ case E_COMPUTE_OPERATION_XOR:
+ case E_COMPUTE_OPERATION_NOT:
+ case E_COMPUTE_OPERATION_SHL:
+ case E_COMPUTE_OPERATION_SHR:
+ case E_COMPUTE_OPERATION_BAND:
+ case E_COMPUTE_OPERATION_BOR:
+ case E_COMPUTE_OPERATION_LOWER:
+ case E_COMPUTE_OPERATION_GREATER:
+ case E_COMPUTE_OPERATION_EQUAL:
+ case E_COMPUTE_OPERATION_NOTEQUAL:
+ case E_COMPUTE_OPERATION_LOWEREQ:
+ case E_COMPUTE_OPERATION_GREATEREQ:
+#if DEBUG_STACK
+printf("operator\n");
+#endif
+ o2=nboperatorstack-1;
+ while (o2>=0 && ae->computectx->operatorstack[o2].operator!=E_COMPUTE_OPERATION_OPEN) {
+ if (ae->computectx->tokenstack[itoken].priority>=ae->computectx->operatorstack[o2].priority || ae->computectx->operatorstack[o2].operator>=E_COMPUTE_OPERATION_SIN) {
+ ObjectArrayAddDynamicValueConcat((void **)&computestack,&nbcomputestack,&maxcomputestack,&ae->computectx->operatorstack[o2],sizeof(stackelement));
+ nboperatorstack--;
+ o2--;
+ } else {
+ break;
+ }
+ }
+ ObjectArrayAddDynamicValueConcat((void **)&ae->computectx->operatorstack,&nboperatorstack,&ae->computectx->maxoperatorstack,&ae->computectx->tokenstack[itoken],sizeof(stackelement));
+ break;
+ case E_COMPUTE_OPERATION_SIN:
+ case E_COMPUTE_OPERATION_COS:
+ case E_COMPUTE_OPERATION_INT:
+ case E_COMPUTE_OPERATION_FLOOR:
+ case E_COMPUTE_OPERATION_ABS:
+ case E_COMPUTE_OPERATION_LN:
+ case E_COMPUTE_OPERATION_LOG10:
+ case E_COMPUTE_OPERATION_SQRT:
+ case E_COMPUTE_OPERATION_ASIN:
+ case E_COMPUTE_OPERATION_ACOS:
+ case E_COMPUTE_OPERATION_ATAN:
+ case E_COMPUTE_OPERATION_EXP:
+ case E_COMPUTE_OPERATION_LOW:
+ case E_COMPUTE_OPERATION_HIGH:
+ case E_COMPUTE_OPERATION_PSG:
+ case E_COMPUTE_OPERATION_RND:
+ case E_COMPUTE_OPERATION_FRAC:
+ case E_COMPUTE_OPERATION_CEIL:
+ case E_COMPUTE_OPERATION_GET_R:
+ case E_COMPUTE_OPERATION_GET_V:
+ case E_COMPUTE_OPERATION_GET_B:
+ case E_COMPUTE_OPERATION_SET_R:
+ case E_COMPUTE_OPERATION_SET_V:
+ case E_COMPUTE_OPERATION_SET_B:
+#if DEBUG_STACK
+printf("ajout de la fonction\n");
+#endif
+ ObjectArrayAddDynamicValueConcat((void **)&ae->computectx->operatorstack,&nboperatorstack,&ae->computectx->maxoperatorstack,&ae->computectx->tokenstack[itoken],sizeof(stackelement));
+ break;
+ default:break;
+ }
+ }
+ /* pop remaining operators */
+ while (nboperatorstack>0) {
+ ObjectArrayAddDynamicValueConcat((void **)&computestack,&nbcomputestack,&maxcomputestack,&ae->computectx->operatorstack[--nboperatorstack],sizeof(stackelement));
+ }
+
+ /********************************************
+ E X E C U T E S T A C K
+ ********************************************/
+ if (ae->maxam || ae->as80) {
+ int workinterval;
+ if (ae->as80) workinterval=0xFFFFFFFF; else workinterval=0xFFFF;
+ for (i=0;i<nbcomputestack;i++) {
+ switch (computestack[i].operator) {
+ /************************************************
+ c a s e s s h o u l d b e s o r t e d
+ ************************************************/
+ case E_COMPUTE_OPERATION_PUSH_DATASTC:
+ if (maccu<=paccu) {
+ maccu=16+paccu;
+ accu=MemRealloc(accu,sizeof(double)*maccu);
+ }
+ accu[paccu]=computestack[i].value;paccu++;
+ break;
+ case E_COMPUTE_OPERATION_OPEN:
+ case E_COMPUTE_OPERATION_CLOSE:/* cannot happend */ break;
+ case E_COMPUTE_OPERATION_ADD:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]+(int)accu[paccu-1])&workinterval;paccu--;break;
+ case E_COMPUTE_OPERATION_SUB:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]-(int)accu[paccu-1])&workinterval;paccu--;break;
+ case E_COMPUTE_OPERATION_MUL:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]*(int)accu[paccu-1])&workinterval;paccu--;break;
+ case E_COMPUTE_OPERATION_DIV:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]/(int)accu[paccu-1])&workinterval;paccu--;break;
+ case E_COMPUTE_OPERATION_AND:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]&(int)accu[paccu-1])&workinterval;paccu--;break;
+ case E_COMPUTE_OPERATION_OR:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]|(int)accu[paccu-1])&workinterval;paccu--;break;
+ case E_COMPUTE_OPERATION_XOR:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]^(int)accu[paccu-1])&workinterval;paccu--;break;
+ case E_COMPUTE_OPERATION_MOD:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]%(int)accu[paccu-1])&workinterval;paccu--;break;
+ case E_COMPUTE_OPERATION_SHL:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2])<<((int)accu[paccu-1]);
+ if (((int)accu[paccu-1])>31 || ((int)accu[paccu-1])<-31) {
+ if (!ae->nowarning) {
+ rasm_printf(ae,KWARNING"Warning - shifting %d is architecture dependant, result forced to ZERO\n",(int)accu[paccu-1]);
+ }
+ accu[paccu-2]=0;
+ }
+ paccu--;break;
+ case E_COMPUTE_OPERATION_SHR:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2])>>((int)accu[paccu-1]);
+ if (((int)accu[paccu-1])>31 || ((int)accu[paccu-1])<-31) {
+ if (!ae->nowarning) {
+ rasm_printf(ae,KWARNING"Warning - shifting %d is architecture dependant, result forced to ZERO\n",(int)accu[paccu-1]);
+ }
+ accu[paccu-2]=0;
+ }
+ paccu--;break;
+ case E_COMPUTE_OPERATION_BAND:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]&&(int)accu[paccu-1])&workinterval;paccu--;break;
+ case E_COMPUTE_OPERATION_BOR:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]||(int)accu[paccu-1])&workinterval;paccu--;break;
+ /* comparison */
+ case E_COMPUTE_OPERATION_LOWER:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]&workinterval)<((int)accu[paccu-1]&workinterval);paccu--;break;
+ case E_COMPUTE_OPERATION_LOWEREQ:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]&workinterval)<=((int)accu[paccu-1]&workinterval);paccu--;break;
+ case E_COMPUTE_OPERATION_EQUAL:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]&workinterval)==((int)accu[paccu-1]&workinterval);paccu--;break;
+ case E_COMPUTE_OPERATION_NOTEQUAL:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]&workinterval)!=((int)accu[paccu-1]&workinterval);paccu--;break;
+ case E_COMPUTE_OPERATION_GREATER:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]&workinterval)>((int)accu[paccu-1]&workinterval);paccu--;break;
+ case E_COMPUTE_OPERATION_GREATEREQ:if (paccu>1) accu[paccu-2]=((int)accu[paccu-2]&workinterval)>=((int)accu[paccu-1]&workinterval);paccu--;break;
+ /* functions */
+ case E_COMPUTE_OPERATION_SIN:if (paccu>0) accu[paccu-1]=(int)sin(accu[paccu-1]*3.1415926545/180.0);break;
+ case E_COMPUTE_OPERATION_COS:if (paccu>0) accu[paccu-1]=(int)cos(accu[paccu-1]*3.1415926545/180.0);break;
+ case E_COMPUTE_OPERATION_ASIN:if (paccu>0) accu[paccu-1]=(int)asin(accu[paccu-1])*180.0/3.1415926545;break;
+ case E_COMPUTE_OPERATION_ACOS:if (paccu>0) accu[paccu-1]=(int)acos(accu[paccu-1])*180.0/3.1415926545;break;
+ case E_COMPUTE_OPERATION_ATAN:if (paccu>0) accu[paccu-1]=(int)atan(accu[paccu-1])*180.0/3.1415926545;break;
+ case E_COMPUTE_OPERATION_INT:break;
+ case E_COMPUTE_OPERATION_FLOOR:if (paccu>0) accu[paccu-1]=(int)floor(accu[paccu-1])&workinterval;break;
+ case E_COMPUTE_OPERATION_ABS:if (paccu>0) accu[paccu-1]=(int)fabs(accu[paccu-1])&workinterval;break;
+ case E_COMPUTE_OPERATION_EXP:if (paccu>0) accu[paccu-1]=(int)exp(accu[paccu-1])&workinterval;break;
+ case E_COMPUTE_OPERATION_LN:if (paccu>0) accu[paccu-1]=(int)log(accu[paccu-1])&workinterval;break;
+ case E_COMPUTE_OPERATION_LOG10:if (paccu>0) accu[paccu-1]=(int)log10(accu[paccu-1])&workinterval;break;
+ case E_COMPUTE_OPERATION_SQRT:if (paccu>0) accu[paccu-1]=(int)sqrt(accu[paccu-1])&workinterval;break;
+ case E_COMPUTE_OPERATION_LOW:if (paccu>0) accu[paccu-1]=((int)accu[paccu-1])&0xFF;break;
+ case E_COMPUTE_OPERATION_HIGH:if (paccu>0) accu[paccu-1]=(((int)accu[paccu-1])&0xFF00)>>8;break;
+ case E_COMPUTE_OPERATION_PSG:if (paccu>0) accu[paccu-1]=ae->psgfine[((int)accu[paccu-1])&0xFF];break;
+ case E_COMPUTE_OPERATION_RND:if (paccu>0) accu[paccu-1]=rand()%((int)accu[paccu-1]);break;
+ case E_COMPUTE_OPERATION_FRAC:if (paccu>0) accu[paccu-1]=((int)(accu[paccu-1]-(int)accu[paccu-1]));break;
+ case E_COMPUTE_OPERATION_CEIL:if (paccu>0) accu[paccu-1]=(int)ceil(accu[paccu-1])&workinterval;break;
+ case E_COMPUTE_OPERATION_GET_R:if (paccu>0) accu[paccu-1]=((((int)accu[paccu-1])&0xF0)>>4);break;
+ case E_COMPUTE_OPERATION_GET_V:if (paccu>0) accu[paccu-1]=((((int)accu[paccu-1])&0xF00)>>8);break;
+ case E_COMPUTE_OPERATION_GET_B:if (paccu>0) accu[paccu-1]=(((int)accu[paccu-1])&0xF);break;
+ case E_COMPUTE_OPERATION_SET_R:if (paccu>0) accu[paccu-1]=MinMaxInt(accu[paccu-1],0,15)<<4;break;
+ case E_COMPUTE_OPERATION_SET_V:if (paccu>0) accu[paccu-1]=MinMaxInt(accu[paccu-1],0,15)<<8;break;
+ case E_COMPUTE_OPERATION_SET_B:if (paccu>0) accu[paccu-1]=MinMaxInt(accu[paccu-1],0,15);break;
+ default:MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"invalid computing state! (%d)\n",GetExpFile(ae,didx),GetExpLine(ae,didx),computestack[i].operator);paccu=0;
+ }
+ if (!paccu) {
+ if (zeexpression[0]=='&') {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"Missing operand for calculation [%s] Did you use & for an hexadecimal value?\n",TradExpression(zeexpression));
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"Missing operand for calculation [%s]\n",TradExpression(zeexpression));
+ }
+ accu_err=1;
+ break;
+ }
+ }
+ } else {
+ for (i=0;i<nbcomputestack;i++) {
+#if 0
+ int kk;
+ for (kk=0;kk<paccu;kk++) printf("stack[%d]=%lf\n",kk,accu[kk]);
+ if (computestack[i].operator==E_COMPUTE_OPERATION_PUSH_DATASTC) {
+ printf("pacc=%d push %.1lf\n",paccu,computestack[i].value);
+ } else {
+ printf("pacc=%d operation %s p=%d\n",paccu,computestack[i].operator==E_COMPUTE_OPERATION_MUL?"*":
+ computestack[i].operator==E_COMPUTE_OPERATION_ADD?"+":
+ computestack[i].operator==E_COMPUTE_OPERATION_DIV?"/":
+ computestack[i].operator==E_COMPUTE_OPERATION_SUB?"-":
+ computestack[i].operator==E_COMPUTE_OPERATION_BAND?"&&":
+ computestack[i].operator==E_COMPUTE_OPERATION_BOR?"||":
+ computestack[i].operator==E_COMPUTE_OPERATION_SHL?"<<":
+ computestack[i].operator==E_COMPUTE_OPERATION_SHR?">>":
+ computestack[i].operator==E_COMPUTE_OPERATION_LOWER?"<":
+ computestack[i].operator==E_COMPUTE_OPERATION_GREATER?">":
+ computestack[i].operator==E_COMPUTE_OPERATION_EQUAL?"==":
+ computestack[i].operator==E_COMPUTE_OPERATION_INT?"INT":
+ computestack[i].operator==E_COMPUTE_OPERATION_LOWEREQ?"<=":
+ computestack[i].operator==E_COMPUTE_OPERATION_GREATEREQ?">=":
+ computestack[i].operator==E_COMPUTE_OPERATION_OPEN?"(":
+ computestack[i].operator==E_COMPUTE_OPERATION_CLOSE?")":
+ "<autre>",computestack[i].priority);
+ }
+#endif
+ switch (computestack[i].operator) {
+ case E_COMPUTE_OPERATION_PUSH_DATASTC:
+ if (maccu<=paccu) {
+ maccu=16+paccu;
+ accu=MemRealloc(accu,sizeof(double)*maccu);
+ }
+ accu[paccu]=computestack[i].value;paccu++;
+ break;
+ case E_COMPUTE_OPERATION_OPEN:
+ case E_COMPUTE_OPERATION_CLOSE: /* cannot happend */ break;
+ case E_COMPUTE_OPERATION_ADD:if (paccu>1) accu[paccu-2]+=accu[paccu-1];paccu--;break;
+ case E_COMPUTE_OPERATION_SUB:if (paccu>1) accu[paccu-2]-=accu[paccu-1];paccu--;break;
+ case E_COMPUTE_OPERATION_MUL:if (paccu>1) accu[paccu-2]*=accu[paccu-1];paccu--;break;
+ case E_COMPUTE_OPERATION_DIV:if (paccu>1) accu[paccu-2]/=accu[paccu-1];paccu--;break;
+ case E_COMPUTE_OPERATION_AND:if (paccu>1) accu[paccu-2]=((int)floor(accu[paccu-2]+0.5))&((int)floor(accu[paccu-1]+0.5));paccu--;break;
+ case E_COMPUTE_OPERATION_OR:if (paccu>1) accu[paccu-2]=((int)floor(accu[paccu-2]+0.5))|((int)floor(accu[paccu-1]+0.5));paccu--;break;
+ case E_COMPUTE_OPERATION_XOR:if (paccu>1) accu[paccu-2]=((int)floor(accu[paccu-2]+0.5))^((int)floor(accu[paccu-1]+0.5));paccu--;break;
+ case E_COMPUTE_OPERATION_NOT:/* half operator, half function */ if (paccu>0) accu[paccu-1]=!((int)floor(accu[paccu-1]+0.5));break;
+ case E_COMPUTE_OPERATION_MOD:if (paccu>1) accu[paccu-2]=((int)floor(accu[paccu-2]+0.5))%((int)floor(accu[paccu-1]+0.5));paccu--;break;
+ case E_COMPUTE_OPERATION_SHL:if (paccu>1) accu[paccu-2]=((int)floor(accu[paccu-2]+0.5))<<((int)floor(accu[paccu-1]+0.5));
+ if (((int)accu[paccu-1])>31 || ((int)accu[paccu-1])<-31) {
+ if (!ae->nowarning) {
+ rasm_printf(ae,KWARNING"Warning - shifting %d is architecture dependant, result forced to ZERO\n",(int)accu[paccu-1]);
+ }
+ accu[paccu-2]=0;
+ }
+ paccu--;break;
+ case E_COMPUTE_OPERATION_SHR:if (paccu>1) accu[paccu-2]=((int)floor(accu[paccu-2]+0.5))>>((int)floor(accu[paccu-1]+0.5));
+ if (((int)accu[paccu-1])>31 || ((int)accu[paccu-1])<-31) {
+ if (!ae->nowarning) {
+ rasm_printf(ae,KWARNING"Warning - shifting %d is architecture dependant, result forced to ZERO\n",(int)accu[paccu-1]);
+ }
+ accu[paccu-2]=0;
+ }
+ paccu--;break;
+ case E_COMPUTE_OPERATION_BAND:if (paccu>1) accu[paccu-2]=((int)floor(accu[paccu-2]+0.5))&&((int)floor(accu[paccu-1]+0.5));paccu--;break;
+ case E_COMPUTE_OPERATION_BOR:if (paccu>1) accu[paccu-2]=((int)floor(accu[paccu-2]+0.5))||((int)floor(accu[paccu-1]+0.5));paccu--;break;
+ /* comparison */
+ case E_COMPUTE_OPERATION_LOWER:if (paccu>1) accu[paccu-2]=accu[paccu-2]<accu[paccu-1];paccu--;break;
+ case E_COMPUTE_OPERATION_LOWEREQ:if (paccu>1) accu[paccu-2]=accu[paccu-2]<=accu[paccu-1];paccu--;break;
+ case E_COMPUTE_OPERATION_EQUAL:if (paccu>1) accu[paccu-2]=fabs(accu[paccu-2]-accu[paccu-1])<0.000001;paccu--;break;
+ case E_COMPUTE_OPERATION_NOTEQUAL:if (paccu>1) accu[paccu-2]=accu[paccu-2]!=accu[paccu-1];paccu--;break;
+ case E_COMPUTE_OPERATION_GREATER:if (paccu>1) accu[paccu-2]=accu[paccu-2]>accu[paccu-1];paccu--;break;
+ case E_COMPUTE_OPERATION_GREATEREQ:if (paccu>1) accu[paccu-2]=accu[paccu-2]>=accu[paccu-1];paccu--;break;
+ /* functions */
+ case E_COMPUTE_OPERATION_SIN:if (paccu>0) accu[paccu-1]=sin(accu[paccu-1]*3.1415926545/180.0);break;
+ case E_COMPUTE_OPERATION_COS:if (paccu>0) accu[paccu-1]=cos(accu[paccu-1]*3.1415926545/180.0);break;
+ case E_COMPUTE_OPERATION_ASIN:if (paccu>0) accu[paccu-1]=asin(accu[paccu-1])*180.0/3.1415926545;break;
+ case E_COMPUTE_OPERATION_ACOS:if (paccu>0) accu[paccu-1]=acos(accu[paccu-1])*180.0/3.1415926545;break;
+ case E_COMPUTE_OPERATION_ATAN:if (paccu>0) accu[paccu-1]=atan(accu[paccu-1])*180.0/3.1415926545;break;
+ case E_COMPUTE_OPERATION_INT:if (paccu>0) accu[paccu-1]=floor(accu[paccu-1]+0.5);break;
+ case E_COMPUTE_OPERATION_FLOOR:if (paccu>0) accu[paccu-1]=floor(accu[paccu-1]);break;
+ case E_COMPUTE_OPERATION_ABS:if (paccu>0) accu[paccu-1]=fabs(accu[paccu-1]);break;
+ case E_COMPUTE_OPERATION_EXP:if (paccu>0) accu[paccu-1]=exp(accu[paccu-1]);break;
+ case E_COMPUTE_OPERATION_LN:if (paccu>0) accu[paccu-1]=log(accu[paccu-1]);break;
+ case E_COMPUTE_OPERATION_LOG10:if (paccu>0) accu[paccu-1]=log10(accu[paccu-1]);break;
+ case E_COMPUTE_OPERATION_SQRT:if (paccu>0) accu[paccu-1]=sqrt(accu[paccu-1]);break;
+ case E_COMPUTE_OPERATION_LOW:if (paccu>0) accu[paccu-1]=((int)floor(accu[paccu-1]+0.5))&0xFF;break;
+ case E_COMPUTE_OPERATION_HIGH:if (paccu>0) accu[paccu-1]=(((int)floor(accu[paccu-1]+0.5))&0xFF00)>>8;break;
+ case E_COMPUTE_OPERATION_PSG:if (paccu>0) accu[paccu-1]=ae->psgfine[((int)floor(accu[paccu-1]+0.5))&0xFF];break;
+ case E_COMPUTE_OPERATION_RND:if (paccu>0) accu[paccu-1]=rand()%((int)accu[paccu-1]);break;
+ case E_COMPUTE_OPERATION_FRAC:if (paccu>0) accu[paccu-1]=modf(accu[paccu-1],&dummint);break;
+ case E_COMPUTE_OPERATION_CEIL:if (paccu>0) accu[paccu-1]=ceil(accu[paccu-1]);break;
+ case E_COMPUTE_OPERATION_GET_R:if (paccu>0) accu[paccu-1]=((((int)accu[paccu-1])&0xF0)>>4);break;
+ case E_COMPUTE_OPERATION_GET_V:if (paccu>0) accu[paccu-1]=((((int)accu[paccu-1])&0xF00)>>8);break;
+ case E_COMPUTE_OPERATION_GET_B:if (paccu>0) accu[paccu-1]=(((int)accu[paccu-1])&0xF);break;
+ case E_COMPUTE_OPERATION_SET_R:if (paccu>0) accu[paccu-1]=MinMaxInt(accu[paccu-1],0,15)<<4;break;
+ case E_COMPUTE_OPERATION_SET_V:if (paccu>0) accu[paccu-1]=MinMaxInt(accu[paccu-1],0,15)<<8;break;
+ case E_COMPUTE_OPERATION_SET_B:if (paccu>0) accu[paccu-1]=MinMaxInt(accu[paccu-1],0,15);break;
+ default:MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"invalid computing state! (%d)\n",GetExpFile(ae,didx),GetExpLine(ae,didx),computestack[i].operator);paccu=0;
+ }
+ if (!paccu) {
+ if (zeexpression[0]=='&') {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"Missing operand for calculation [%s] Did you use & for an hexadecimal value?\n",TradExpression(zeexpression));
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"Missing operand for calculation [%s]\n",TradExpression(zeexpression));
+ }
+ accu_err=1;
+ break;
+ }
+ }
+ }
+ if (!original) {
+ MemFree(zeexpression);
+ }
+ if (paccu==1) {
+ return accu[0];
+ } else if (!accu_err) {
+ if (paccu) {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"Missing operator\n");
+ } else {
+ MakeError(ae,GetExpFile(ae,didx),GetExpLine(ae,didx),"Missing operand for calculation\n");
+ }
+ return 0;
+ } else {
+ return 0;
+ }
+}
+int RoundComputeExpressionCore(struct s_assenv *ae,char *zeexpression,int ptr,int didx) {
+ return floor(ComputeExpressionCore(ae,zeexpression,ptr,didx)+ae->rough);
+}
+
+void ExpressionSetDicoVar(struct s_assenv *ae,char *name, double v)
+{
+ #undef FUNC
+ #define FUNC "ExpressionSetDicoVar"
+
+ struct s_expr_dico curdic;
+ curdic.name=TxtStrDup(name);
+ curdic.crc=GetCRC(name);
+ curdic.v=v;
+ curdic.iw=ae->idx;
+ curdic.autorise_export=ae->autorise_export;
+ //ObjectArrayAddDynamicValueConcat((void**)&ae->dico,&ae->idic,&ae->mdic,&curdic,sizeof(curdic));
+ if (SearchLabel(ae,curdic.name,curdic.crc)) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"cannot create variable [%s] as there is already a label with the same name\n",name);
+ MemFree(curdic.name);
+ return;
+ }
+ InsertDicoToTree(ae,&curdic);
+}
+
+double ComputeExpression(struct s_assenv *ae,char *expr, int ptr, int didx, int expected_eval)
+{
+ #undef FUNC
+ #define FUNC "ComputeExpression"
+
+ char *ptr_exp,*ptr_exp2,backupeval;
+ int crc,idic,idx=0,ialias,touched,hasformula=0;
+ double v,vl;
+ struct s_alias curalias;
+ struct s_expr_dico *curdic;
+ char *minibuffer;
+
+ while (!ae->AutomateExpressionDecision[((int)expr[idx])&0xFF]) idx++;
+
+ switch (ae->AutomateExpressionDecision[((int)expr[idx])&0xFF]) {
+ /*****************************************
+ M A K E A L I A S
+ *****************************************/
+ case '~':
+ memset(&curalias,0,sizeof(curalias));
+ ptr_exp=expr+idx;
+ *ptr_exp=0; // on scinde l'alias de son texte
+ ptr_exp2=ptr_exp+1;
+#if TRACE_COMPUTE_EXPRESSION
+printf("MakeAlias (1) EXPR=[%s EQU %s]\n",expr,ptr_exp2);
+#endif
+
+ /* alias locaux ou de proximité */
+ if (strchr("@.",expr[0])) {
+#if TRACE_COMPUTE_EXPRESSION
+printf("WARNING! alias is local! [%s]\n",expr);
+#endif
+ /* local label creation does not handle formula in tags */
+ curalias.alias=TranslateTag(ae,TxtStrDup(expr),&touched,0,E_TAGOPTION_NONE);
+ curalias.alias=MakeLocalLabel(ae,curalias.alias,NULL);
+ hasformula=1;
+ } else if (strchr(expr,'{')) {
+#if TRACE_COMPUTE_EXPRESSION
+printf("WARNING! alias has tag! [%s]\n",expr);
+#endif
+ /* alias name contains formula */
+ curalias.alias=TranslateTag(ae,TxtStrDup(expr),&touched,0,E_TAGOPTION_NONE);
+#if TRACE_COMPUTE_EXPRESSION
+printf("MakeAlias (2) EXPR=[%s EQU %s]\n",expr,ptr_exp2);
+#endif
+ hasformula=1;
+ } else {
+ curalias.alias=TxtStrDup(expr);
+ }
+ curalias.crc=GetCRC(curalias.alias);
+ if ((ialias=SearchAlias(ae,curalias.crc,curalias.alias))>=0) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"Duplicate alias [%s]\n",expr);
+ MemFree(curalias.alias);
+ } else if (SearchDico(ae,curalias.alias,curalias.crc)) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"Alias cannot override existing variable [%s]\n",expr);
+ MemFree(curalias.alias);
+ } else {
+ curalias.translation=MemMalloc(strlen(ptr_exp2)+1+2);
+ sprintf(curalias.translation,"(%s)",ptr_exp2);
+#if TRACE_COMPUTE_EXPRESSION
+printf("MakeAlias (3) EXPR=[%s EQU %s]\n",expr,ptr_exp2);
+printf("alias translation [%s] -> ",curalias.translation);fflush(stdout);
+#endif
+ ExpressionFastTranslate(ae,&curalias.translation,2); // FAST type 2
+#if TRACE_COMPUTE_EXPRESSION
+printf("%s\n",curalias.translation);
+#endif
+ curalias.len=strlen(curalias.translation);
+ curalias.autorise_export=ae->autorise_export;
+ curalias.iw=ae->idx;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->alias,&ae->ialias,&ae->malias,&curalias,sizeof(curalias));
+ CheckAndSortAliases(ae);
+ }
+ *ptr_exp='~'; // on remet l'alias en place
+#if TRACE_COMPUTE_EXPRESSION
+printf("MakeAlias end with alias=[%s]=[%s]\n",curalias.alias,curalias.translation);
+printf("***********\n");
+#endif
+ return 0;
+ /*****************************************
+ S E T V A R
+ *****************************************/
+ case '=':
+ /* patch NOT
+ this is a variable assign if there is no other comparison operator after '='
+ BUT we may have ! which stand for NOT but is also a comparison operator...
+ */
+ if (ae->AutomateExpressionDecision[((int)expr[idx+1])&0xFF]==0 || expr[idx+1]=='!') {
+ if (expected_eval) {
+ if (ae->maxam) {
+ /* maxam mode AND expected a value -> force comparison */
+ } else {
+ /* use of a single '=' but expected a comparison anyway */
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"meaningless use of an expression [%s]\n",expr);
+ return 0;
+ }
+ } else {
+ /* ASSIGN */
+ if ((expr[0]<'A' || expr[0]>'Z') && expr[0]!='_') {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"variable name must begin by a letter or '_' [%s]\n",expr);
+ return 0;
+ } else {
+ char operatorassignment;
+
+ ptr_exp=expr+idx;
+ v=ComputeExpressionCore(ae,ptr_exp+1,ptr,didx);
+ *ptr_exp=0;
+ /* patch operator+assign value */
+ switch (ptr_exp[-1]) {
+ case '+':
+ case '-':
+ case '*':
+ case '/':
+ case '^':
+ case '&':
+ case '|':
+ case '%':
+ case ']':
+ case '[':
+ operatorassignment=ptr_exp[-1];ptr_exp[-1]=0;break;
+ default:operatorassignment=0;break;
+ }
+
+ crc=GetCRC(expr);
+ if ((ialias=SearchAlias(ae,crc,expr))>=0) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"Variable cannot override existing alias [%s]\n",expr);
+ return 0;
+ }
+#if TRACE_ASSEMBLE
+ printf("try to set [%s] with %lf operatorassignment=%c\n",expr,v,operatorassignment);
+#endif
+ curdic=SearchDico(ae,expr,crc);
+ if (curdic) {
+ switch (operatorassignment) {
+ default:printf("warning remover\n");
+ case 0:curdic->v=v;break;
+ case '+':curdic->v+=v;ptr_exp[-1]='+';break;
+ case '-':curdic->v-=v;ptr_exp[-1]='-';break;
+ case '*':curdic->v*=v;ptr_exp[-1]='*';break;
+ case '/':curdic->v/=v;ptr_exp[-1]='/';break;
+ /* bit operations */
+ case '|':curdic->v=((int)curdic->v)|((int)v);ptr_exp[-1]='|';break;
+ case '&':curdic->v=((int)curdic->v)&((int)v);ptr_exp[-1]='&';break;
+ case '^':curdic->v=((int)curdic->v)^((int)v);ptr_exp[-1]='^';break;
+ case '%':curdic->v=((int)curdic->v)%((int)v);ptr_exp[-1]='%';break;
+ case ']':curdic->v=((int)curdic->v)>>((int)v);ptr_exp[-1]=']';
+ if (v>31 || v<-31) {
+ if (!ae->nowarning) {
+ rasm_printf(ae,KWARNING"Warning - shifting %d is architecture dependant, result forced to ZERO\n",(int)v);
+ }
+ curdic->v=0;
+ }
+ break;
+ case '[':curdic->v=((int)curdic->v)<<((int)v);ptr_exp[-1]='[';
+ if (v>31 || v<-31) {
+ if (!ae->nowarning) {
+ rasm_printf(ae,KWARNING"Warning - shifting %d is architecture dependant, result forced to ZERO\n",(int)v);
+ }
+ curdic->v=0;
+ }
+ break;
+ }
+ } else {
+ switch (operatorassignment) {
+ default: /* cannot do operator on non existing variable */
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"Cannot do an operator assignment on non existing variable [%s]\n",expr);
+ return 0;
+ case 0: /* assign a new variable */
+ ExpressionSetDicoVar(ae,expr,v);
+ break;
+ }
+ }
+ *ptr_exp='=';
+ return v;
+ }
+ }
+ }
+ break;
+ /*****************************************
+ P U R E E X P R E S S I O N
+ *****************************************/
+ default:break;
+ }
+#if TRACE_ASSEMBLE
+printf("pure expression to compute [%s]\n",expr);
+#endif
+ return ComputeExpressionCore(ae,expr,ptr,didx);
+}
+int RoundComputeExpression(struct s_assenv *ae,char *expr, int ptr, int didx, int expression_expected) {
+ return floor(ComputeExpression(ae,expr,ptr,didx,expression_expected)+ae->rough);
+}
+
+/*
+ ExpressionFastTranslate
+
+ purpose: translate all known symbols in an expression (especially variables acting like counters)
+*/
+void ExpressionFastTranslate(struct s_assenv *ae, char **ptr_expr, int fullreplace)
+{
+ #undef FUNC
+ #define FUNC "ExpressionFastTranslate"
+
+ struct s_label *curlabel;
+ struct s_expr_dico *curdic;
+ static char *varbuffer=NULL;
+ static int ivar=0,maxivar=1;
+ char curval[256]={0};
+ int c,lenw=0,idx=0,crc,startvar,newlen,ialias,found_replace,yves,dek,reidx,lenbuf,rlen,tagoffset;
+ double v;
+ char tmpuchar[16];
+ char *expr,*locallabel;
+ int curly=0,curlyflag=0;
+ char *Automate;
+ int recurse=-1,recursecount=0;
+
+ if (!ae || !ptr_expr) {
+ if (varbuffer) MemFree(varbuffer);
+ varbuffer=NULL;
+ maxivar=1;
+ ivar=0;
+ return;
+ }
+ /* be sure to have at least some bytes allocated */
+ StateMachineResizeBuffer(&varbuffer,128,&maxivar);
+ expr=*ptr_expr;
+
+//printf("fast [%s]\n",expr);
+
+ while (!ae->AutomateExpressionDecision[((int)expr[idx])&0xFF]) idx++;
+
+ switch (ae->maxam) {
+ default:
+ case 0: /* full check */
+ if (expr[idx]=='~' || (expr[idx]=='=' && expr[idx+1]!='=')) {reidx=idx+1;break;}
+ reidx=0;
+ break;
+ case 1: /* partial check with maxam */
+ if (expr[idx]=='~') {reidx=idx+1;break;}
+ reidx=0;
+ break;
+ }
+
+ idx=0;
+ /* is there ascii char? */
+ while ((c=expr[idx])!=0) {
+ if (c=='\'' || c=='"') {
+ /* echappement */
+ if (expr[idx+1]=='\\') {
+ if (expr[idx+2] && expr[idx+3]==c) {
+ /* no charset conversion for escaped chars */
+ c=expr[idx+2];
+ switch (c) {
+ case 'b':c='\b';break;
+ case 'v':c='\v';break;
+ case 'f':c='\f';break;
+ case '0':c='\0';break;
+ case 'r':c='\r';break;
+ case 'n':c='\n';break;
+ case 't':c='\t';break;
+ default:break;
+ }
+ sprintf(tmpuchar,"#%03X",c);
+ memcpy(expr+idx,tmpuchar,4);
+ idx+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"expression [%s] - Only single escaped char may be quoted\n",expr);
+ expr[0]=0;
+ return;
+ }
+ } else if (expr[idx+1] && expr[idx+2]==c) {
+ sprintf(tmpuchar,"#%02X",ae->charset[(int)expr[idx+1]]);
+ memcpy(expr+idx,tmpuchar,3);
+ idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"expression [%s] - Only single char may be quoted\n",expr);
+ expr[0]=0;
+ return;
+ }
+ }
+ idx++;
+ }
+
+ idx=reidx;
+ while ((c=expr[idx])!=0) {
+ switch (c) {
+ /* operator / parenthesis */
+ case '!':
+ case '=':
+ case '>':
+ case '<':
+ case '(':
+ case ')':
+ case ']':
+ case '[':
+ case '*':
+ case '/':
+ case '+':
+ case '~':
+ case '-':
+ case '^':
+ case 'm':
+ case '|':
+ case '&':
+ idx++;
+ break;
+ default:
+ startvar=idx;
+ if (ae->AutomateExpressionValidCharFirst[((int)c)&0xFF]) {
+ varbuffer[ivar++]=c;
+ if (c=='{') {
+ /* this is only tag and not a formula */
+ curly++;
+ }
+ StateMachineResizeBuffer(&varbuffer,ivar,&maxivar);
+ idx++;
+ c=expr[idx];
+
+ Automate=ae->AutomateExpressionValidChar;
+ while (Automate[((int)c)&0xFF]) {
+ if (c=='{') {
+ curly++;
+ curlyflag=1;
+ Automate=ae->AutomateExpressionValidCharExtended;
+ } else if (c=='}') {
+ curly--;
+ if (!curly) {
+ Automate=ae->AutomateExpressionValidChar;
+ }
+ }
+ varbuffer[ivar++]=c;
+ StateMachineResizeBuffer(&varbuffer,ivar,&maxivar);
+ idx++;
+ c=expr[idx];
+ }
+ }
+ varbuffer[ivar]=0;
+ if (!ivar) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"invalid expression [%s] c=[%c] idx=%d\n",expr,c,idx);
+ return;
+ } else if (curly) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"wrong curly brackets in expression [%s]\n",expr);
+ return;
+ }
+ }
+ if (ivar && (varbuffer[0]<'0' || varbuffer[0]>'9')) {
+ /* numbering var or label */
+ if (curlyflag) {
+ char *minivarbuffer;
+ int touched;
+//printf("ExpressionFastTranslate curly\n");
+ minivarbuffer=TranslateTag(ae,TxtStrDup(varbuffer), &touched,0,E_TAGOPTION_NONE|(fullreplace?0:E_TAGOPTION_PRESERVE));
+ StateMachineResizeBuffer(&varbuffer,strlen(minivarbuffer)+1,&maxivar);
+ strcpy(varbuffer,minivarbuffer);
+ newlen=strlen(varbuffer);
+ lenw=strlen(expr);
+ /* must update source */
+ if (newlen>ivar) {
+ /* realloc bigger */
+ expr=*ptr_expr=MemRealloc(expr,lenw+newlen-ivar+1);
+ }
+ if (newlen!=ivar ) {
+ lenw=strlen(expr);
+ MemMove(expr+startvar+newlen,expr+startvar+ivar,lenw-startvar-ivar+1);
+ }
+ strncpy(expr+startvar,minivarbuffer,newlen); /* copy without zero terminator */
+ idx=startvar+newlen;
+ /***/
+ MemFree(minivarbuffer);
+ curlyflag=0;
+ /******* ivar must be updated in case of label or alias following ***********/
+ ivar=newlen;
+ }
+
+ /* recherche dans dictionnaire et remplacement */
+ crc=GetCRC(varbuffer);
+ found_replace=0;
+ /* pour les affectations ou les tests conditionnels on ne remplace pas le dico (pour le Push oui par contre!) */
+ if (fullreplace) {
+ if (varbuffer[0]=='$' && !varbuffer[1]) {
+ #ifdef OS_WIN
+ snprintf(curval,sizeof(curval)-1,"%d",ae->codeadr);
+ newlen=strlen(curval);
+ #else
+ newlen=snprintf(curval,sizeof(curval)-1,"%d",ae->codeadr);
+ #endif
+ lenw=strlen(expr);
+ if (newlen>ivar) {
+ /* realloc bigger */
+ expr=*ptr_expr=MemRealloc(expr,lenw+newlen-ivar+1);
+ }
+ if (newlen!=ivar ) {
+ MemMove(expr+startvar+newlen,expr+startvar+ivar,lenw-startvar-ivar+1);
+ found_replace=1;
+ }
+ strncpy(expr+startvar,curval,newlen); /* copy without zero terminator */
+ idx=startvar+newlen;
+ ivar=0;
+ found_replace=1;
+ } else {
+ curdic=SearchDico(ae,varbuffer,crc);
+ if (curdic) {
+ v=curdic->v;
+//printf("ExpressionFastTranslate (full) -> replace var (%s=%0.1lf)\n",varbuffer,v);
+
+ #ifdef OS_WIN
+ snprintf(curval,sizeof(curval)-1,"%lf",v);
+ newlen=TrimFloatingPointString(curval);
+ #else
+ snprintf(curval,sizeof(curval)-1,"%lf",v);
+ newlen=TrimFloatingPointString(curval);
+ #endif
+ lenw=strlen(expr);
+ if (newlen>ivar) {
+ /* realloc bigger */
+ expr=*ptr_expr=MemRealloc(expr,lenw+newlen-ivar+1);
+ }
+ if (newlen!=ivar ) {
+ MemMove(expr+startvar+newlen,expr+startvar+ivar,lenw-startvar-ivar+1);
+ }
+ strncpy(expr+startvar,curval,newlen); /* copy without zero terminator */
+ idx=startvar+newlen;
+ ivar=0;
+ found_replace=1;
+ }
+ }
+ }
+ /* on cherche aussi dans les labels existants */
+ if (!found_replace) {
+ curlabel=SearchLabel(ae,varbuffer,crc);
+ if (curlabel) {
+ if (!curlabel->lz || ae->stage>1) {
+ yves=curlabel->ptr;
+
+ #ifdef OS_WIN
+ snprintf(curval,sizeof(curval)-1,"%d",yves);
+ newlen=strlen(curval);
+ #else
+ newlen=snprintf(curval,sizeof(curval)-1,"%d",yves);
+ #endif
+ lenw=strlen(expr);
+ if (newlen>ivar) {
+ /* realloc bigger */
+ expr=*ptr_expr=MemRealloc(expr,lenw+newlen-ivar+1);
+ }
+ if (newlen!=ivar ) {
+ MemMove(expr+startvar+newlen,expr+startvar+ivar,lenw-startvar-ivar+1);
+ }
+ strncpy(expr+startvar,curval,newlen); /* copy without zero terminator */
+ found_replace=1;
+ idx=startvar+newlen;
+ ivar=0;
+ }
+ }
+ }
+ /* non trouve on cherche dans les alias */
+ if (!found_replace) {
+ if ((ialias=SearchAlias(ae,crc,varbuffer))>=0) {
+ newlen=ae->alias[ialias].len;
+ lenw=strlen(expr);
+ /* infinite replacement check */
+ if (recurse<=startvar) {
+ /* recurse maximum count is a mix of alias len and alias number */
+ if (recursecount>ae->ialias+ae->alias[ialias].len) {
+ if (strchr(expr,'~')!=NULL) *strchr(expr,'~')=0;
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"alias definition of %s has infinite recursivity\n",expr);
+ expr[0]=0; /* avoid some errors due to shitty definition */
+ return;
+ } else {
+ recursecount++;
+ }
+ }
+ if (newlen>ivar) {
+ /* realloc bigger */
+ expr=*ptr_expr=MemRealloc(expr,lenw+newlen-ivar+1);
+ }
+ if (newlen!=ivar) {
+ MemMove(expr+startvar+newlen,expr+startvar+ivar,lenw-startvar-ivar+1);
+ }
+ strncpy(expr+startvar,ae->alias[ialias].translation,newlen); /* copy without zero terminator */
+ found_replace=1;
+ /* need to parse again alias because of delayed declarations */
+ recurse=startvar;
+ idx=startvar;
+ ivar=0;
+ } else {
+ }
+ }
+ if (!found_replace) {
+ //printf("fasttranslate test local label\n");
+ /* non trouve c'est peut-etre un label local - mais pas de l'octal */
+ if (varbuffer[0]=='@' && (varbuffer[1]<'0' || varbuffer[1]>'9')) {
+ char *zepoint;
+ lenbuf=strlen(varbuffer);
+//printf("MakeLocalLabel(ae,varbuffer,&dek); (1)\n");
+ locallabel=MakeLocalLabel(ae,varbuffer,&dek);
+//printf("exprin =[%s] rlen=%d dek-lenbuf=%d\n",expr,rlen,dek-lenbuf);
+ /*** le grand remplacement ***/
+ /* local to macro or loop */
+ rlen=strlen(expr+startvar+lenbuf)+1;
+ expr=*ptr_expr=MemRealloc(expr,strlen(expr)+dek+1);
+ /* move end of expression in order to insert local ID */
+ zepoint=strchr(varbuffer,'.');
+ if (zepoint) {
+ /* far proximity access */
+ int suffixlen,dotpos;
+ dotpos=(zepoint-varbuffer);
+ suffixlen=lenbuf-dotpos;
+
+ MemMove(expr+startvar+dotpos+dek,expr+startvar+dotpos,rlen+suffixlen);
+ strncpy(expr+startvar+dotpos,locallabel,dek);
+ } else {
+ /* legacy */
+ MemMove(expr+startvar+lenbuf+dek,expr+startvar+lenbuf,rlen);
+ strncpy(expr+startvar+lenbuf,locallabel,dek);
+ }
+ idx+=dek;
+ MemFree(locallabel);
+ found_replace=1;
+//printf("exprout=[%s]\n",expr);
+ } else if (varbuffer[0]=='.' && (varbuffer[1]<'0' || varbuffer[1]>'9')) {
+ /* proximity label */
+ lenbuf=strlen(varbuffer);
+//printf("MakeLocalLabel(ae,varbuffer,&dek); (2)\n");
+ locallabel=MakeLocalLabel(ae,varbuffer,&dek);
+ /*** le grand remplacement ***/
+ rlen=strlen(expr+startvar+lenbuf)+1;
+ dek=strlen(locallabel);
+//printf("exprin =[%s] rlen=%d dek-lenbuf=%d\n",expr,rlen,dek-lenbuf);
+ expr=*ptr_expr=MemRealloc(expr,strlen(expr)+dek-lenbuf+1);
+ MemMove(expr+startvar+dek,expr+startvar+lenbuf,rlen);
+ strncpy(expr+startvar,locallabel,dek);
+ idx+=dek-lenbuf;
+ MemFree(locallabel);
+//printf("exprout=[%s]\n",expr);
+
+//@@TODO ajouter une recherche d'alias?
+
+ } else if (varbuffer[0]=='{') {
+ if (strncmp(varbuffer,"{BANK}",6)==0 || strncmp(varbuffer,"{PAGE}",6)==0) tagoffset=6; else
+ if (strncmp(varbuffer,"{PAGESET}",9)==0) tagoffset=9; else
+ if (strncmp(varbuffer,"{SIZEOF}",8)==0) tagoffset=8; else
+ {
+ tagoffset=0;
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"Unknown prefix tag\n");
+ }
+
+ if (varbuffer[tagoffset]=='@') {
+ char *zepoint;
+ startvar+=tagoffset;
+ lenbuf=strlen(varbuffer+tagoffset);
+//printf("MakeLocalLabel(ae,varbuffer,&dek); (3)\n");
+ locallabel=MakeLocalLabel(ae,varbuffer+tagoffset,&dek);
+ /*** le grand remplacement ***/
+ rlen=strlen(expr+startvar+lenbuf)+1;
+ expr=*ptr_expr=MemRealloc(expr,strlen(expr)+dek+1);
+ /* move end of expression in order to insert local ID */
+ zepoint=strchr(varbuffer,'.');
+ if (zepoint) {
+ /* far proximity access */
+ int suffixlen,dotpos;
+ dotpos=(zepoint-varbuffer);
+ suffixlen=lenbuf-dotpos;
+
+ MemMove(expr+startvar+dotpos+dek,expr+startvar+dotpos,rlen+suffixlen);
+ strncpy(expr+startvar+dotpos,locallabel,dek);
+ } else {
+ /* legacy */
+ MemMove(expr+startvar+lenbuf+dek,expr+startvar+lenbuf,rlen);
+ strncpy(expr+startvar+lenbuf,locallabel,dek);
+ }
+ idx+=dek;
+ MemFree(locallabel);
+ found_replace=1;
+ } else if (varbuffer[tagoffset]=='$') {
+ int tagvalue=-1;
+ if (strcmp(varbuffer,"{BANK}$")==0) {
+ if (ae->forcecpr) {
+ if (ae->activebank<32) {
+ tagvalue=ae->activebank;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"expression [%s] cannot use BANK $ in a temporary space!\n",TradExpression(expr));
+ tagvalue=0;
+ }
+ } else if (ae->forcesnapshot) {
+ if (ae->activebank<BANK_MAX_NUMBER) {
+ /* on autorise le préfixe BANK en snapshot avec une subtilité */
+ if (ae->bankset[ae->activebank>>2]) {
+ tagvalue=ae->activebank+(ae->codeadr>>14); /* dans un bankset on tient compte de l'adresse */
+ } else {
+ tagvalue=ae->activebank;
+ }
+
+ } else {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"expression [%s] cannot use BANK $ in a temporary space!\n",TradExpression(expr));
+ tagvalue=0;
+ }
+ }
+ } else if (strcmp(varbuffer,"{PAGE}$")==0) {
+ if (ae->activebank<BANK_MAX_NUMBER) {
+ if (ae->bankset[ae->activebank>>2]) {
+ tagvalue=ae->bankgate[(ae->activebank&0x1FC)+(ae->codeadr>>14)];
+ } else {
+ tagvalue=ae->bankgate[ae->activebank];
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"expression [%s] cannot use PAGE $ in a temporary space!\n",TradExpression(expr));
+ tagvalue=ae->activebank;
+ }
+ } else if (strcmp(varbuffer,"{PAGESET}$")==0) {
+ if (ae->activebank<BANK_MAX_NUMBER) {
+ tagvalue=ae->setgate[ae->activebank];
+ //if (ae->activebank>3) tagvalue=((ae->activebank>>2)-1)*8+0xC2; else tagvalue=0xC0;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"expression [%s] cannot use PAGESET $ in a temporary space!\n",TradExpression(expr));
+ tagvalue=ae->activebank;
+ }
+ }
+ /* replace */
+ #ifdef OS_WIN
+ snprintf(curval,sizeof(curval)-1,"%d",tagvalue);
+ newlen=strlen(curval);
+ #else
+ newlen=snprintf(curval,sizeof(curval)-1,"%d",tagvalue);
+ #endif
+ lenw=strlen(expr);
+ if (newlen>ivar) {
+ /* realloc bigger */
+ expr=*ptr_expr=MemRealloc(expr,lenw+newlen-ivar+1);
+ }
+ if (newlen!=ivar ) {
+ MemMove(expr+startvar+newlen,expr+startvar+ivar,lenw-startvar-ivar+1);
+ found_replace=1;
+ }
+ strncpy(expr+startvar,curval,newlen); /* copy without zero terminator */
+ idx=startvar+newlen;
+ ivar=0;
+ found_replace=1;
+ }
+ }
+ }
+
+
+
+
+
+
+ if (!found_replace && strcmp(varbuffer,"REPEAT_COUNTER")==0) {
+ if (ae->ir) {
+ yves=ae->repeat[ae->ir-1].repeat_counter;
+ #ifdef OS_WIN
+ snprintf(curval,sizeof(curval)-1,"%d",yves);
+ newlen=strlen(curval);
+ #else
+ newlen=snprintf(curval,sizeof(curval)-1,"%d",yves);
+ #endif
+ lenw=strlen(expr);
+ if (newlen>ivar) {
+ /* realloc bigger */
+ expr=*ptr_expr=MemRealloc(expr,lenw+newlen-ivar+1);
+ }
+ if (newlen!=ivar ) {
+ MemMove(expr+startvar+newlen,expr+startvar+ivar,lenw-startvar-ivar+1);
+ found_replace=1;
+ }
+ strncpy(expr+startvar,curval,newlen); /* copy without zero terminator */
+ found_replace=1;
+ idx=startvar+newlen;
+ ivar=0;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"cannot use REPEAT_COUNTER outside repeat loop\n");
+ }
+ }
+ if (!found_replace && strcmp(varbuffer,"WHILE_COUNTER")==0) {
+ if (ae->iw) {
+ yves=ae->whilewend[ae->iw-1].while_counter;
+ #ifdef OS_WIN
+ snprintf(curval,sizeof(curval)-1,"%d",yves);
+ newlen=strlen(curval);
+ #else
+ newlen=snprintf(curval,sizeof(curval)-1,"%d",yves);
+ #endif
+ lenw=strlen(expr);
+ if (newlen>ivar) {
+ /* realloc bigger */
+ expr=*ptr_expr=MemRealloc(expr,lenw+newlen-ivar+1);
+ }
+ if (newlen!=ivar ) {
+ MemMove(expr+startvar+newlen,expr+startvar+ivar,lenw-startvar-ivar+1);
+ found_replace=1;
+ }
+ strncpy(expr+startvar,curval,newlen); /* copy without zero terminator */
+ found_replace=1;
+ idx=startvar+newlen;
+ ivar=0;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"cannot use WHILE_COUNTER outside repeat loop\n");
+ }
+ }
+ /* unknown symbol -> add to used symbol pool */
+ if (!found_replace) {
+ InsertUsedToTree(ae,varbuffer,crc);
+ }
+ }
+ ivar=0;
+ }
+}
+
+void PushExpression(struct s_assenv *ae,int iw,enum e_expression zetype)
+{
+ #undef FUNC
+ #define FUNC "PushExpression"
+
+ struct s_expression curexp={0};
+ int startptr=0;
+
+ if (!ae->nocode) {
+ curexp.iw=iw;
+ curexp.wptr=ae->outputadr;
+ curexp.zetype=zetype;
+ curexp.ibank=ae->activebank;
+ curexp.iorgzone=ae->io-1;
+ curexp.lz=ae->lz;
+ /* on traduit de suite les variables du dictionnaire pour les boucles et increments
+ SAUF si c'est une affectation */
+ if (!ae->wl[iw].e) {
+ switch (zetype) {
+ case E_EXPRESSION_V16C:
+ /* check non register usage */
+ switch (GetCRC(ae->wl[iw].w)) {
+ case CRC_IX:
+ case CRC_IY:
+ case CRC_MIX:
+ case CRC_MIY:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"invalid register usage\n",ae->maxptr);
+ default:break;
+ }
+ case E_EXPRESSION_J8:
+ case E_EXPRESSION_V8:
+ case E_EXPRESSION_V16:
+ case E_EXPRESSION_IM:startptr=-1;
+ break;
+ case E_EXPRESSION_IV8:
+ case E_EXPRESSION_IV81:
+ case E_EXPRESSION_IV16:startptr=-2;
+ break;
+ case E_EXPRESSION_3V8:startptr=-3;
+ break;
+ case E_EXPRESSION_RUN:
+ case E_EXPRESSION_ZXRUN:
+ case E_EXPRESSION_ZXSTACK:
+ case E_EXPRESSION_BRS:break;
+ default:break;
+ }
+ /* hack pourri pour gérer le $ */
+ ae->codeadr+=startptr;
+ /* ok mais les labels locaux des macros? */
+ if (ae->ir || ae->iw || ae->imacro) {
+ curexp.reference=TxtStrDup(ae->wl[iw].w);
+ ExpressionFastTranslate(ae,&curexp.reference,1);
+ } else {
+ ExpressionFastTranslate(ae,&ae->wl[iw].w,1);
+ }
+ ae->codeadr-=startptr;
+ }
+ /* calcul adresse de reference et post-incrementation pour sauter les data */
+ switch (zetype) {
+ case E_EXPRESSION_J8:curexp.ptr=ae->codeadr-1;ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_0V8:curexp.ptr=ae->codeadr;ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_V8:curexp.ptr=ae->codeadr-1;ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_0V16:curexp.ptr=ae->codeadr;ae->outputadr+=2;ae->codeadr+=2;break;
+ case E_EXPRESSION_0V32:curexp.ptr=ae->codeadr;ae->outputadr+=4;ae->codeadr+=4;break;
+ case E_EXPRESSION_0VR:curexp.ptr=ae->codeadr;ae->outputadr+=5;ae->codeadr+=5;break;
+ case E_EXPRESSION_V16C:
+ case E_EXPRESSION_V16:curexp.ptr=ae->codeadr-1;ae->outputadr+=2;ae->codeadr+=2;break;
+ case E_EXPRESSION_IV81:curexp.ptr=ae->codeadr-2;ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_IV8:curexp.ptr=ae->codeadr-2;ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_3V8:curexp.ptr=ae->codeadr-3;ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_IV16:curexp.ptr=ae->codeadr-2;ae->outputadr+=2;ae->codeadr+=2;break;
+ case E_EXPRESSION_RST:curexp.ptr=ae->codeadr;ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_IM:curexp.ptr=ae->codeadr-1;ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_RUN:break;
+ case E_EXPRESSION_ZXRUN:break;
+ case E_EXPRESSION_ZXSTACK:break;
+ case E_EXPRESSION_BRS:curexp.ptr=ae->codeadr;break; // minimum syndical
+ default:break;
+ }
+ /* le contrôle n'est pas bon avec les DEFB, DEFW, ... -> @@TODO */
+ if (ae->outputadr<=ae->maxptr) {
+ ObjectArrayAddDynamicValueConcat((void **)&ae->expression,&ae->ie,&ae->me,&curexp,sizeof(curexp));
+ } else {
+ /* to avoid double error message */
+ if (!ae->stop) MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"output exceed limit %d\n",ae->maxptr); else MaxError(ae);
+ ae->stop=1;
+ return;
+ }
+ } else {
+ switch (zetype) {
+ case E_EXPRESSION_J8:ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_0V8:ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_V8:ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_0V16:ae->outputadr+=2;ae->codeadr+=2;break;
+ case E_EXPRESSION_0V32:ae->outputadr+=4;ae->codeadr+=4;break;
+ case E_EXPRESSION_0VR:ae->outputadr+=5;ae->codeadr+=5;break;
+ case E_EXPRESSION_V16C:
+ case E_EXPRESSION_V16:ae->outputadr+=2;ae->codeadr+=2;break;
+ case E_EXPRESSION_IV81:ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_IV8:ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_3V8:ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_IV16:ae->outputadr+=2;ae->codeadr+=2;break;
+ case E_EXPRESSION_RST:ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_IM:ae->outputadr++;ae->codeadr++;break;
+ case E_EXPRESSION_RUN:break;
+ case E_EXPRESSION_ZXRUN:break;
+ case E_EXPRESSION_ZXSTACK:break;
+ case E_EXPRESSION_BRS:break;
+ }
+ if (ae->outputadr<=ae->maxptr) {
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"NOCODE output exceed limit %d\n",GetCurrentFile(ae),ae->wl[ae->idx].l,ae->maxptr);
+ FreeAssenv(ae);exit(3);
+ }
+ }
+}
+
+/*
+The CP/M 2.2 directory has only one type of entry:
+
+UU F1 F2 F3 F4 F5 F6 F7 F8 T1 T2 T3 EX S1 S2 RC .FILENAMETYP....
+AL AL AL AL AL AL AL AL AL AL AL AL AL AL AL AL ................
+
+UU = User number. 0-15 (on some systems, 0-31). The user number allows multiple
+ files of the same name to coexist on the disc.
+ User number = 0E5h => File deleted
+Fn - filename
+Tn - filetype. The characters used for these are 7-bit ASCII.
+ The top bit of T1 (often referred to as T1') is set if the file is
+ read-only.
+ T2' is set if the file is a system file (this corresponds to "hidden" on
+ other systems).
+EX = Extent counter, low byte - takes values from 0-31
+S2 = Extent counter, high byte.
+
+ An extent is the portion of a file controlled by one directory entry.
+ If a file takes up more blocks than can be listed in one directory entry,
+ it is given multiple entries, distinguished by their EX and S2 bytes. The
+ formula is: Entry number = ((32*S2)+EX) / (exm+1) where exm is the
+ extent mask value from the Disc Parameter Block.
+
+S1 - reserved, set to 0.
+RC - Number of records (1 record=128 bytes) used in this extent, low byte.
+ The total number of records used in this extent is
+
+ (EX & exm) * 128 + RC
+
+ If RC is 80h, this extent is full and there may be another one on the disc.
+ File lengths are only saved to the nearest 128 bytes.
+
+AL - Allocation. Each AL is the number of a block on the disc. If an AL
+ number is zero, that section of the file has no storage allocated to it
+ (ie it does not exist). For example, a 3k file might have allocation
+ 5,6,8,0,0.... - the first 1k is in block 5, the second in block 6, the
+ third in block 8.
+ AL numbers can either be 8-bit (if there are fewer than 256 blocks on the
+ disc) or 16-bit (stored low byte first).
+*/
+int EDSK_getblockid(int *fb) {
+ #undef FUNC
+ #define FUNC "EDSK_getblockid"
+
+ int i;
+ for (i=0;i<180;i++) {
+ if (fb[i]) {
+ return i;
+ }
+ }
+ return -1;
+}
+int EDSK_getdirid(struct s_edsk_wrapper *curwrap) {
+ #undef FUNC
+ #define FUNC "EDSK_getdirid"
+
+ int ie;
+ for (ie=0;ie<64;ie++) {
+ if (curwrap->entry[ie].user==0xE5) {
+#if TRACE_EDSK
+ printf("getdirid returns %d\n",ie);
+#endif
+ return ie;
+ }
+ }
+ return -1;
+}
+char *MakeAMSDOS_name(struct s_assenv *ae, char *filename)
+{
+ #undef FUNC
+ #define FUNC "MakeAMSDOS_name"
+
+ static char amsdos_name[12];
+ int i,ia;
+ char *pp;
+ /* warning */
+ if (strlen(filename)>12) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"Warning - filename [%s] too long for AMSDOS, will be truncated\n",filename);
+ } else if ((pp=strchr(filename,'.'))!=NULL) {
+ if (pp-filename>8) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"Warning - filename [%s] too long for AMSDOS, will be truncated\n",filename);
+ }
+ }
+ /* copy filename */
+ for (i=0;filename[i]!=0 && filename[i]!='.' && i<8;i++) {
+ amsdos_name[i]=toupper(filename[i]);
+ }
+ /* fill with spaces */
+ for (ia=i;ia<8;ia++) {
+ amsdos_name[ia]=0x20;
+ }
+ /* looking for extension */
+ for (;filename[i]!=0 && filename[i]!='.';i++);
+ /* then copy it if any */
+ if (filename[i]=='.') {
+ i++;
+ for (ia=0;filename[i]!=0 && ia<3;ia++) {
+ amsdos_name[8+ia]=toupper(filename[i++]);
+ }
+ }
+ amsdos_name[11]=0;
+#if TRACE_EDSK
+ printf("MakeAMSDOS_name [%s] -> [%s]\n",filename,amsdos_name);
+#endif
+ return amsdos_name;
+}
+
+
+void EDSK_load(struct s_assenv *ae,struct s_edsk_wrapper *curwrap, char *edskfilename, int face)
+{
+ #undef FUNC
+ #define FUNC "EDSK_load"
+
+ unsigned char header[256];
+ unsigned char *data;
+ int tracknumber,sidenumber,tracksize,disksize;
+ int i,b,s,f,t,curtrack,sectornumber,sectorsize,sectorid,reallength;
+ int currenttrackposition=0,currentsectorposition,tmpcurrentsectorposition;
+ unsigned char checksectorid[9];
+ int curblock=0,curoffset=0;
+#if TRACE_EDSK
+ printf("EDSK_Load('%s',%d);",edskfilename,face);
+#endif
+ if (FileReadBinary(edskfilename,(char*)&header,0x100)!=0x100) {
+ rasm_printf(ae,KERROR"Cannot read EDSK header of [%s]!\n",edskfilename);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ if (strncmp((char *)header,"MV - CPC",8)==0) {
+ rasm_printf(ae,KAYGREEN"updating DSK to EDSK [%s] / creator: %s",edskfilename,header+34);
+
+ tracknumber=header[34+14];
+ sidenumber=header[34+14+1];
+ tracksize=header[34+14+1+1]+header[34+14+1+1+1]*256;
+ rasm_printf(ae,"tracks: %d sides:%d track size:%d",tracknumber,sidenumber,tracksize);
+ if (tracknumber>40 || sidenumber>2) {
+ rasm_printf(ae,KERROR"[%s] DSK format is not supported in update mode (ntrack=%d nside=%d)\n",edskfilename,tracknumber,sidenumber);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ if (face>=sidenumber) {
+ rasm_printf(ae,KWARNING"[%s] Warning - DSK has no face %d - DSK updated\n",edskfilename,face);
+ return;
+ }
+
+ data=MemMalloc(tracksize*tracknumber*sidenumber);
+ memset(data,0,tracksize*tracknumber*sidenumber);
+ if (FileReadBinary(edskfilename,(char *)data,tracksize*tracknumber*sidenumber)!=tracksize*tracknumber*sidenumber) {
+ rasm_printf(ae,"Cannot read DSK tracks!");
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ //loginfo("track data read (%dkb)",tracksize*tracknumber*sidenumber/1024);
+ f=face;
+ for (t=0;t<tracknumber;t++) {
+ curtrack=t*sidenumber+f;
+
+ i=(t*sidenumber+f)*tracksize;
+ if (strncmp((char *)data+i,"Track-Info\r\n",12)) {
+ rasm_printf(ae,"Invalid track information block side %d track %d",f,t);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ sectornumber=data[i+21];
+ sectorsize=data[i+20];
+ if (sectornumber!=9 || sectorsize!=2) {
+ rasm_printf(ae,"Cannot read [%s] Invalid DATA format",edskfilename);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ memset(checksectorid,0,sizeof(checksectorid));
+ /* we want DATA format */
+ for (s=0;s<sectornumber;s++) {
+ if (t!=data[i+24+8*s]) {
+ rasm_printf(ae,"Invalid track number in sector %02X track %d",data[i+24+8*s+2],t);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ if (f!=data[i+24+8*s+1]) {
+ rasm_printf(ae,"Invalid side number in sector %02X track %d",data[i+24+8*s+2],t);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ if (data[i+24+8*s+2]<0xC1 || data[i+24+8*s+2]>0xC9) {
+ rasm_printf(ae,"Invalid sector ID in sector %02X track %d",data[i+24+8*s+2],t);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ } else {
+ checksectorid[data[i+24+8*s+2]-0xC1]=1;
+ }
+ if (data[i+24+8*s+3]!=2) {
+ rasm_printf(ae,"Invalid sector size in sector %02X track %d",data[i+24+8*s+2],t);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ }
+ for (s=0;s<sectornumber;s++) {
+ if (!checksectorid[s]) {
+ rasm_printf(ae,"Missing sector %02X track %d",s+0xC1,t);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ }
+ /* piste à piste on lit les blocs DANS L'ORDRE LOGIQUE!!! */
+ for (b=0xC1;b<=0xC9;b++)
+ for (s=0;s<sectornumber;s++) {
+ if (data[i+24+8*s+2]==b) {
+ memcpy(&curwrap->blocks[curblock][curoffset],&data[i+0x100+s*512],512);
+ curoffset+=512;
+ if (curoffset>=1024) {
+ curoffset=0;
+ curblock++;
+ }
+ }
+ }
+ }
+ } else if (strncmp((char *)header,"EXTENDED",8)==0) {
+ rasm_printf(ae,KAYGREEN"updating EDSK [%s] / creator: %-14.14s\n",edskfilename,header+34);
+ tracknumber=header[34+14];
+ sidenumber=header[34+14+1];
+ // not in EDSK tracksize=header[34+14+1+1]+header[34+14+1+1+1]*256;
+#if TRACE_EDSK
+ loginfo("tracks: %d sides:%d",tracknumber,sidenumber);
+#endif
+
+ if (sidenumber>2) {
+ rasm_printf(ae,KERROR"[%s] EDSK format is not supported in update mode (ntrack=%d nside=%d)\n",edskfilename,tracknumber,sidenumber);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ if (face>=sidenumber) {
+ rasm_printf(ae,KWARNING"[%s] EDSK has no face %d - DSK updated\n",edskfilename,face);
+ return;
+ }
+
+ for (i=disksize=0;i<tracknumber*sidenumber;i++) disksize+=header[0x34+i]*256;
+#if TRACE_EDSK
+ loginfo("total track size: %dkb",disksize/1024);
+#endif
+
+ data=MemMalloc(disksize);
+ memset(data,0,disksize);
+ if (FileReadBinary(edskfilename,(char *)data,disksize)!=disksize) {
+ rasm_printf(ae,KERROR"Cannot read DSK tracks!\n");
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+
+ f=face;
+ for (t=0;t<tracknumber && t<40;t++) {
+ int track_sectorsize;
+
+ curtrack=t*sidenumber+f;
+ i=currenttrackposition;
+ currentsectorposition=i+0x100;
+
+ if (!header[0x34+curtrack] && t<40) {
+ rasm_printf(ae,KERROR"Unexpected unformated track Side %d Track %02d\n",f,t);
+ } else {
+ currenttrackposition+=header[0x34+curtrack]*256;
+
+ if (strncmp((char *)data+i,"Track-Info\r\n",12)) {
+ rasm_printf(ae,KERROR"Invalid track information block side %d track %d\n",f,t);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ sectornumber=data[i+21];
+ track_sectorsize=data[i+20];
+ if (sectornumber!=9) {
+ rasm_printf(ae,KERROR"Unsupported track %d (sectornumber=%d sectorsize=%d)\n",t,sectornumber,sectorsize);
+ FreeAssenv(ae);exit(ABORT_ERROR);
+ }
+ memset(checksectorid,0,sizeof(checksectorid));
+ /* we want DATA format */
+ for (s=0;s<sectornumber;s++) {
+ sectorid=data[i+24+8*s+2];
+ if (sectorid>=0xC1 && sectorid<=0xC9) checksectorid[sectorid-0xC1]=1; else {
+ rasm_printf(ae,KERROR"invalid sector id %02X for DATA track %d\n",sectorid,t);
+ return;
+ }
+ sectorsize=data[i+24+8*s+3];
+ if (sectorsize!=2) {
+ rasm_printf(ae,KERROR"invalid sector size track %d\n",t);
+ return;
+ }
+ reallength=data[i+24+8*s+6]+data[i+24+8*s+7]*256; /* real length stored */
+ if (reallength!=512) {
+ rasm_printf(ae,KERROR"invalid sector length %d for track %d\n",reallength,t);
+ return;
+ }
+#if TRACE_EDSK
+ printf("%02X ",sectorid);
+#endif
+ }
+ if (track_sectorsize!=2) {
+ rasm_printf(ae,KWARNING"track %02d has invalid sector size but sectors are OK\n",t);
+ }
+#if TRACE_EDSK
+ printf("\n");
+#endif
+
+ /* piste à piste on lit les blocs DANS L'ORDRE LOGIQUE!!! */
+ for (b=0xC1;b<=0xC9;b++) {
+ tmpcurrentsectorposition=currentsectorposition;
+ for (s=0;s<sectornumber;s++) {
+ if (b==data[i+24+8*s+2]) {
+ memcpy(&curwrap->blocks[curblock][curoffset],&data[tmpcurrentsectorposition],512);
+ curoffset+=512;
+ if (curoffset>=1024) {
+ curoffset=0;
+ curblock++;
+ }
+ }
+ reallength=data[i+24+8*s+6]+data[i+24+8*s+7]*256;
+ tmpcurrentsectorposition+=reallength;
+ }
+ }
+ }
+ }
+
+
+ } else {
+ rasm_printf(ae,KERROR"file [%s] is not a valid (E)DSK floppy image\n",edskfilename);
+ FreeAssenv(ae);exit(-923);
+ }
+ FileReadBinaryClose(edskfilename);
+
+ /* Rasm management of (e)DSK files is AMSDOS compatible, just need to copy CATalog blocks but sort them... */
+ memcpy(&curwrap->entry[0],curwrap->blocks[0],1024);
+ memcpy(&curwrap->entry[32],curwrap->blocks[1],1024);
+ /* tri des entrées selon le user */
+ qsort(curwrap->entry,64,sizeof(struct s_edsk_wrapper_entry),cmpAmsdosentry);
+ curwrap->nbentry=64;
+ for (i=0;i<64;i++) {
+ if (curwrap->entry[i].user==0xE5) {
+ curwrap->nbentry=i;
+ break;
+ }
+ }
+#if TRACE_EDSK
+ printf("%d entr%s found\n",curwrap->nbentry,curwrap->nbentry>1?"ies":"y");
+ for (i=0;i<curwrap->nbentry;i++) {
+ printf("[%02d] - ",i);
+ if (curwrap->entry[i].user<16) {
+ printf("U%02d [%-8.8s.%c%c%c] %c%c subcpt=#%02X rc=#%02X blocks=",curwrap->entry[i].user,curwrap->entry[i].filename,
+ curwrap->entry[i].filename[8]&0x7F,curwrap->entry[i].filename[9]&0x7F,curwrap->entry[i].filename[10],
+ curwrap->entry[i].filename[8]&0x80?'P':'-',curwrap->entry[i].filename[9]&0x80?'H':'-',
+ curwrap->entry[i].subcpt,curwrap->entry[i].rc);
+ for (b=0;b<16;b++) if (curwrap->entry[i].blocks[b]) printf("%s%02X",b>0?" ":"",curwrap->entry[i].blocks[b]); else printf("%s ",b>0?" ":"");
+ if (i&1) printf("\n"); else printf(" | ");
+ } else {
+ printf("free entry = rc= blocks= ");
+ if (i&1) printf("\n"); else printf(" | ");
+ }
+ }
+ if (i&1) printf("\n");
+#endif
+}
+
+struct s_edsk_wrapper *EDSK_select(struct s_assenv *ae,char *edskfilename, int facenumber)
+{
+ #undef FUNC
+ #define FUNC "EDSK_select"
+
+ struct s_edsk_wrapper newwrap={0},*curwrap=NULL;
+ int i;
+#if TRACE_EDSK
+ printf("EDSK_select('%s',%d);\n",edskfilename,facenumber);
+#endif
+ /* check if there is a DSK in memory */
+ for (i=0;i<ae->nbedskwrapper;i++) {
+ if (!strcmp(ae->edsk_wrapper[i].edsk_filename,edskfilename)) {
+#if TRACE_EDSK
+ printf("Found! return %d\n",i);
+#endif
+ return &ae->edsk_wrapper[i];
+ }
+ }
+ /* not in memory, create an empty struct */
+ newwrap.edsk_filename=TxtStrDup(edskfilename);
+ memset(newwrap.entry,0xE5,sizeof(struct s_edsk_wrapper_entry)*64);
+ memset(newwrap.blocks[0],0xE5,1024);
+ memset(newwrap.blocks[1],0xE5,1024);
+#if TRACE_EDSK
+ printf("Not found! create empty struct\n");
+#endif
+ newwrap.face=facenumber;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->edsk_wrapper,&ae->nbedskwrapper,&ae->maxedskwrapper,&newwrap,sizeof(struct s_edsk_wrapper));
+ /* and load files if the DSK exists on disk */
+ curwrap=&ae->edsk_wrapper[ae->nbedskwrapper-1];
+ if (FileExists(edskfilename)) {
+ EDSK_load(ae,curwrap,edskfilename,facenumber);
+ }
+ return curwrap;
+}
+
+int EDSK_addfile(struct s_assenv *ae,char *edskfilename,int facenumber, char *filename,unsigned char *indata,int insize, int offset, int run)
+{
+ #undef FUNC
+ #define FUNC "EDSK_addfile"
+
+ struct s_edsk_wrapper *curwrap=NULL;
+ char amsdos_name[12]={0};
+ int j,i,ia,ib,ie,filesize,idxdata;
+ int fb[180],rc,idxb;
+ unsigned char *data=NULL;
+ int size=0;
+ int firstblock;
+
+ curwrap=EDSK_select(ae,edskfilename,facenumber);
+ /* update struct */
+ size=insize+128;
+ data=MemMalloc(size);
+ strcpy(amsdos_name,MakeAMSDOS_name(ae,filename));
+ memcpy(data,MakeAMSDOSHeader(run,offset,offset+insize,amsdos_name),128);
+ memcpy(data+128,indata,insize);
+ /* overwrite check */
+#if TRACE_EDSK
+ printf("EDSK_addfile will checks %d entr%s for [%s]\n",curwrap->nbentry,curwrap->nbentry>1?"ies":"y",amsdos_name);
+#endif
+ for (i=0;i<curwrap->nbentry;i++) {
+ if (!strncmp((char *)curwrap->entry[i].filename,amsdos_name,11)) {
+ if (!ae->edskoverwrite) {
+ MakeError(ae,NULL,0,"Error - Cannot save [%s] in edsk [%s] with overwrite disabled as the file already exists\n",amsdos_name,edskfilename);
+ MemFree(data);
+ return 0;
+ } else {
+ /* overwriting previous file */
+#if TRACE_EDSK
+ printf(" -> reset previous entry %d with 0xE5\n",i);
+#endif
+ memset(&curwrap->entry[i],0xE5,sizeof(struct s_edsk_wrapper_entry));
+ }
+ }
+ }
+ /* find free blocks */
+#if TRACE_EDSK
+ printf("EDSK_addfile find free blocks\n");
+#endif
+ fb[0]=fb[1]=0;
+ for (i=2;i<180;i++) fb[i]=1;
+ for (i=0;i<curwrap->nbentry;i++) {
+ if (curwrap->entry[i].rc!=0xE5 && curwrap->entry[i].rc!=0) {
+ /* entry found, compute number of blocks to read */
+ rc=curwrap->entry[i].rc/8;
+ if (curwrap->entry[i].rc%8) rc++; /* adjust value */
+ /* mark as used */
+ for (j=0;j<rc;j++) {
+ fb[curwrap->entry[i].blocks[j]]=0;
+ }
+ }
+ }
+ /* set directory, blocks and data in blocks */
+ firstblock=-1;
+ filesize=size;
+ idxdata=0;
+ ia=0;
+
+#if TRACE_EDSK
+ printf("Writing [%s] size=%d\n",amsdos_name,size);
+#endif
+
+ while (filesize>0) {
+ if (filesize>16384) {
+ /* extended entry */
+#if TRACE_EDSK
+ printf("extended entry for file (filesize=%d)\nblocklist: ",filesize);
+#endif
+ if ((ie=EDSK_getdirid(curwrap))==-1) {
+ MakeError(ae,NULL,0,"Error - edsk [%s] DIRECTORY FULL\n",edskfilename);
+ MemFree(data);
+ return 0;
+ }
+ if (curwrap->nbentry<=ie) curwrap->nbentry=ie+1;
+ idxb=0;
+ for (i=0;i<16;i++) {
+ if ((ib=EDSK_getblockid(fb))==-1) {
+ MakeError(ae,NULL,0,"Error - edsk [%s] DISK FULL\n",edskfilename);
+ MemFree(data);
+ return 0;
+ } else {
+ if (firstblock==-1) firstblock=ib;
+
+#if TRACE_EDSK
+ printf("%02X ",ib);
+#endif
+ memcpy(curwrap->blocks[ib],data+idxdata,1024);
+ idxdata+=1024;
+ filesize-=1024;
+ fb[ib]=0;
+ curwrap->entry[ie].blocks[idxb++]=ib;
+ }
+ }
+#if TRACE_EDSK
+ printf("\n");
+#endif
+ memcpy(curwrap->entry[ie].filename,amsdos_name,11);
+ curwrap->entry[ie].subcpt=ia;
+ curwrap->entry[ie].rc=0x80;
+ curwrap->entry[ie].user=0;
+ ia++;
+ idxb=0;
+ } else {
+ /* last entry */
+#if TRACE_EDSK
+ printf("last entry for file (filesize=%d)\nblocklist: ",filesize);
+#endif
+ if ((ie=EDSK_getdirid(curwrap))==-1) {
+ MakeError(ae,NULL,0,"Error - edsk [%s] DIRECTORY FULL\n",edskfilename);
+ MemFree(data);
+ return 0;
+ }
+ if (curwrap->nbentry<=ie) curwrap->nbentry=ie+1;
+ /* calcul du nombre de sous blocs de 128 octets */
+ curwrap->entry[ie].rc=filesize/128;
+ if (filesize%128) {
+ curwrap->entry[ie].rc+=1;
+ }
+ idxb=0;
+ for (i=0;i<16 && filesize>0;i++) {
+ if ((ib=EDSK_getblockid(fb))==-1) {
+ MakeError(ae,NULL,0,"Error - edsk [%s] DISK FULL\n",edskfilename);
+ MemFree(data);
+ return 0;
+ } else {
+ if (firstblock==-1) firstblock=ib;
+#if TRACE_EDSK
+ printf("%02X ",ib);
+#endif
+
+ memcpy(curwrap->blocks[ib],&data[idxdata],filesize>1024?1024:filesize);
+ idxdata+=1024;
+ filesize-=1024;
+ fb[ib]=0;
+ curwrap->entry[ie].blocks[idxb++]=ib;
+ }
+ }
+#if TRACE_EDSK
+ printf("\n");
+#endif
+ filesize=0;
+ memcpy(curwrap->entry[ie].filename,amsdos_name,11);
+ curwrap->entry[ie].subcpt=ia;
+ curwrap->entry[ie].user=0;
+ }
+ }
+
+ MemFree(data);
+ return 1;
+}
+
+void EDSK_build_amsdos_directory(struct s_edsk_wrapper *face)
+{
+ #undef FUNC
+ #define FUNC "EDSK_build_amsdos_directory"
+
+ unsigned char amsdosdir[2048]={0};
+ int i,idx=0,b;
+
+ if (!face) return;
+
+#if TRACE_EDSK
+printf("build amsdos dir with %d entries\n",face->nbentry);
+#endif
+ for (i=0;i<face->nbentry;i++) {
+ if (face->entry[i].rc && face->entry[i].rc!=0xE5) {
+ amsdosdir[idx]=face->entry[i].user;
+ memcpy(amsdosdir+idx+1,face->entry[i].filename,11);
+ amsdosdir[idx+12]=face->entry[i].subcpt;
+ amsdosdir[idx+13]=0;
+ amsdosdir[idx+14]=0;
+ amsdosdir[idx+15]=face->entry[i].rc;
+#if TRACE_EDSK
+printf("%-11.11s [%02X.%02X] blocks:",amsdosdir+idx+1,amsdosdir[idx+12],amsdosdir[idx+15]);
+#endif
+ for (b=0;b<16;b++) {
+ if (face->entry[i].blocks[b]!=0xE5) {
+ amsdosdir[idx+16+b]=face->entry[i].blocks[b];
+#if TRACE_EDSK
+ printf("%s%02X",b>0?".":"",amsdosdir[idx+16+b]);
+#endif
+ } else {
+ amsdosdir[idx+16+b]=0;
+ }
+ }
+#if TRACE_EDSK
+printf("\n");
+#endif
+ }
+ idx+=32;
+ }
+#if TRACE_EDSK
+printf("filling amsdos remaining entries (%d) with #E5\n",64-face->nbentry);
+#endif
+ memset(amsdosdir+idx,0xE5,32*(64-face->nbentry));
+
+ /* AMSDOS directory copy to blocks! */
+ memcpy(face->blocks[0],amsdosdir,1024);
+ memcpy(face->blocks[1],amsdosdir+1024,1024);
+}
+void EDSK_write_file(struct s_assenv *ae,struct s_edsk_wrapper *faceA,struct s_edsk_wrapper *faceB)
+{
+ #undef FUNC
+ #define FUNC "EDSK_write_file"
+
+ struct s_edsk_wrapper emptyface={0};
+ unsigned char header[256]={0};
+ unsigned char trackblock[256]={0};
+ int idblock,blockoffset;
+ int i,t;
+
+ if (!faceA && !faceB) return;
+
+ /* création des deux blocs du directory par face */
+ EDSK_build_amsdos_directory(faceA);
+ EDSK_build_amsdos_directory(faceB);
+ /* écriture header */
+ strcpy((char *)header,"EXTENDED CPC DSK File\r\nDisk-Info\r\n");
+ strcpy((char *)header+0x22,RASM_SNAP_VERSION);
+ header[0x30]=40;
+ if (!faceA) {
+ faceA=&emptyface;
+ faceA->edsk_filename=TxtStrDup(faceB->edsk_filename);
+ }
+#if TRACE_EDSK
+ printf("deleting [%s]\n",faceA->edsk_filename);
+#endif
+ FileRemoveIfExists(faceA->edsk_filename);
+
+ if (faceB!=NULL) header[0x31]=2; else header[0x31]=1;
+ for (i=0;i<header[0x30]*header[0x31];i++) header[0x34+i]=19; /* tracksize=(9*512+256)/256 */
+#if TRACE_EDSK
+ printf("writing EDSK header (256b)\n");
+#endif
+ FileWriteBinary(faceA->edsk_filename,(char *)header,256);
+
+ /* écriture des pistes */
+ for (t=0;t<40;t++) {
+ strcpy((char *)trackblock,"Track-Info\r\n");
+ trackblock[0x10]=t;
+ trackblock[0x11]=0;
+ trackblock[0x14]=2;
+ trackblock[0x15]=9;
+ trackblock[0x16]=0x4E;
+ trackblock[0x17]=0xE5;
+ i=0;
+ while (1) {
+ trackblock[0x18+i*8+0]=trackblock[0x10];
+ trackblock[0x18+i*8+1]=trackblock[0x11];
+ trackblock[0x18+i*8+2]=(i>>1)+0xC1;
+#if TRACE_EDSK
+ if (t<3) printf("%02X ",trackblock[0x18+i*8+2]);
+#endif
+ trackblock[0x18+i*8+3]=2;
+ trackblock[0x18+i*8+4]=0;
+ trackblock[0x18+i*8+5]=0;
+ trackblock[0x18+i*8+6]=0;
+ trackblock[0x18+i*8+7]=2;
+ i++;
+ if (i==9) break;
+ /* interleave */
+ trackblock[0x18+i*8+0]=trackblock[0x10];
+ trackblock[0x18+i*8+1]=trackblock[0x11];
+ trackblock[0x18+i*8+2]=(i>>1)+0xC6; /* start at C6 */
+#if TRACE_EDSK
+ if (t<3) printf("%02X ",trackblock[0x18+i*8+2]);
+#endif
+ trackblock[0x18+i*8+3]=2;
+ trackblock[0x18+i*8+4]=0;
+ trackblock[0x18+i*8+5]=0;
+ trackblock[0x18+i*8+6]=0;
+ trackblock[0x18+i*8+7]=2;
+ i++;
+ }
+#if TRACE_EDSK
+ if (t<3) printf("\n"); else if (t==3) printf("...\n");
+#endif
+ /* écriture du track info */
+ FileWriteBinary(faceA->edsk_filename,(char *)trackblock,256);
+
+
+ /* il faut convertir les blocs logiques en secteurs physiques ET entrelacés */
+ idblock=t*9/2;
+ blockoffset=((t*9)%2)*512;
+
+ /* le premier secteur de la piste est à cheval sur le bloc logique une fois sur deux */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock][0]+blockoffset,512); /* C1 */
+ if (!blockoffset) {
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+2][0]+512,512); /* C6 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+0][0]+512,512); /* C2 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+3][0]+0,512); /* C7 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+1][0]+0,512); /* C3 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+3][0]+512,512); /* C8 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+1][0]+512,512); /* C4 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+4][0]+0,512); /* C9 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+2][0]+0,512); /* C5 */
+ } else {
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+3][0]+0,512); /* C6 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+1][0]+0,512); /* C2 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+3][0]+512,512); /* C7 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+1][0]+512,512); /* C3 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+4][0]+0,512); /* C8 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+2][0]+0,512); /* C4 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+4][0]+512,512); /* C9 */
+ FileWriteBinary(faceA->edsk_filename,(char *)&faceA->blocks[idblock+2][0]+512,512); /* C5 */
+ }
+
+ /* @@TODO ça semble un peu foireux comme procédé */
+ if (faceB) {
+#if TRACE_EDSK
+ printf("writing EDSK face B /!\\ probably NOT WORKING !!!\n");
+#endif
+ trackblock[0x11]=1;
+ for (i=0;i<9;i++) {
+ trackblock[0x18+i*8+0]=trackblock[0x10];
+ trackblock[0x18+i*8+1]=trackblock[0x11];
+ }
+ /* écriture du track info */
+ FileWriteBinary(faceB->edsk_filename,(char *)trackblock,256);
+ /* écriture des secteurs */
+ idblock=t*9/2;
+ blockoffset=((t*9)%2)*512;
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock][0]+blockoffset,512);
+ if (!blockoffset) {
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+2][0]+512,512); /* C6 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+0][0]+512,512); /* C2 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+3][0]+0,512); /* C7 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+1][0]+0,512); /* C3 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+3][0]+512,512); /* C8 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+1][0]+512,512); /* C4 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+4][0]+0,512); /* C9 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+2][0]+0,512); /* C5 */
+ } else {
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+3][0]+0,512); /* C6 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+1][0]+0,512); /* C2 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+3][0]+512,512); /* C7 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+1][0]+512,512); /* C3 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+4][0]+0,512); /* C8 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+2][0]+0,512); /* C4 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+4][0]+512,512); /* C9 */
+ FileWriteBinary(faceB->edsk_filename,(char *)&faceB->blocks[idblock+2][0]+512,512); /* C5 */
+ }
+ }
+ }
+ FileWriteBinaryClose(faceA->edsk_filename);
+ rasm_printf(ae,KIO"Write edsk file %s\n",faceA->edsk_filename);
+}
+void EDSK_write(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "EDSK_write"
+
+ struct s_edsk_wrapper *faceA,*faceB;
+ char *edskfilename;
+ int i,j;
+
+ /* on passe en revue toutes les structs */
+ for (i=0;i<ae->nbedskwrapper;i++) {
+ /* already done */
+ if (ae->edsk_wrapper[i].face==-1) continue;
+
+ switch (ae->edsk_wrapper[i].face) {
+ default:
+ case 0:faceA=&ae->edsk_wrapper[i];faceB=NULL;break;
+ case 1:faceA=NULL;faceB=&ae->edsk_wrapper[i];break;
+ }
+ /* doit-on fusionner avec une autre face? */
+ for (j=i+1;j<ae->nbedskwrapper;j++) {
+ if (!strcmp(ae->edsk_wrapper[i].edsk_filename,ae->edsk_wrapper[j].edsk_filename)) {
+ /* found another face for the floppy */
+ switch (ae->edsk_wrapper[j].face) {
+ default:
+ case 0:faceA=&ae->edsk_wrapper[j];break;
+ case 1:faceB=&ae->edsk_wrapper[j];break;
+ }
+ }
+ }
+ EDSK_write_file(ae,faceA,faceB);
+ }
+}
+void PopAllSave(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "PopAllSave"
+
+ unsigned char *AmsdosHeader;
+ char *dskfilename;
+ char *filename;
+ int offset,size,run;
+ int i,is,erreur=0,touched;
+
+ for (is=0;is<ae->nbsave;is++) {
+ /* avoid quotes */
+ filename=ae->wl[ae->save[is].iw].w;
+ filename[strlen(filename)-1]=0;
+ filename=TxtStrDup(filename+1);
+ /* translate tags! */
+ filename=TranslateTag(ae,filename,&touched,1,E_TAGOPTION_REMOVESPACE);
+
+#if TRACE_EDSK
+ printf("woff=[%s](%d) wsize=[%s](%d)\n",ae->wl[ae->save[is].ioffset].w,ae->save[is].ioffset,ae->wl[ae->save[is].isize].w,ae->save[is].isize);
+#endif
+
+ ae->idx=ae->save[is].ioffset; /* exp hack */
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ offset=RoundComputeExpression(ae,ae->wl[ae->idx].w,0,0,0);
+
+ ae->idx=ae->save[is].isize; /* exp hack */
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ size=RoundComputeExpression(ae,ae->wl[ae->idx].w,0,0,0);
+
+ ae->idx=ae->save[is].irun; /* exp hack */
+ if (ae->idx) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ run=RoundComputeExpression(ae,ae->wl[ae->idx].w,0,0,0);
+ } else {
+ run=offset;
+ }
+
+ if (size<1 || size>65536) {
+ MakeError(ae,NULL,0,"cannot save [%s] as the size is invalid!\n",filename);
+ continue;
+ }
+ if (offset<0 || offset>65535) {
+ MakeError(ae,NULL,0,"cannot save [%s] as the offset is invalid!\n",filename);
+ continue;
+ }
+ if (offset+size>65536) {
+ MakeError(ae,NULL,0,"cannot save [%s] as the offset+size will be out of bounds!\n",filename);
+ continue;
+ }
+ /* DSK management */
+ if (ae->save[is].dsk) {
+ if (ae->save[is].iwdskname!=-1) {
+ /* obligé de dupliquer à cause du reuse */
+ dskfilename=TxtStrDup(ae->wl[ae->save[is].iwdskname].w);
+ dskfilename[strlen(dskfilename)-1]=0;
+ if (!EDSK_addfile(ae,dskfilename+1,ae->save[is].face,filename,ae->mem[ae->save[is].ibank]+offset,size,offset,run)) {
+ erreur++;
+ break;
+ }
+ MemFree(dskfilename);
+ }
+ } else if (ae->save[is].tape) {
+ char TZX_header[10];
+ unsigned char IDval[2];
+ int wrksize,nbblock;
+
+ /* output file on filesystem */
+ FileRemoveIfExists(filename);
+
+ strcpy(TZX_header,"ZXTape!");
+ TZX_header[7]=0x1A;
+ TZX_header[8]=1;
+ TZX_header[9]=20;
+ FileWriteBinary(filename,(char *)TZX_header,10);
+
+ IDval[0]=0x20;
+ FileWriteBinary(filename,(char *)IDval,1);
+ IDval[0]=0x03;
+ IDval[1]=0x03;
+ FileWriteBinary(filename,(char *)IDval,2); // first silence
+
+ IDval[0]=0x10;
+ FileWriteBinary(filename,(char *)IDval,1);
+ IDval[0]=0x03;
+ IDval[1]=0x03;
+ FileWriteBinary(filename,(char *)IDval,2); // little silence
+ if (size+128<=2048) wrksize=size+128; else wrksize=2048;
+ IDval[0]=(wrksize+128) & 0xFF;
+ IDval[1]=((wrksize+128)>>8) & 0xFF;
+ FileWriteBinary(filename,(char *)IDval,2); // block len
+ nbblock=1;
+ AmsdosHeader=MakeAMSDOSHeader(run,offset,offset+size,MakeAMSDOS_name(ae,filename));
+ FileWriteBinary(filename,(char *)AmsdosHeader,128);
+ if (size<=2048-128) {
+ FileWriteBinary(filename,(char*)ae->mem[ae->save[is].ibank]+offset,size);
+ } else {
+ FileWriteBinary(filename,(char*)ae->mem[ae->save[is].ibank]+offset,2048-128);
+ size=size-2048+128;
+ while (size>0) {
+ nbblock++;
+ /* additionnal block */
+ IDval[0]=0x10;
+ FileWriteBinary(filename,(char *)IDval,1);
+ IDval[0]=0x04;
+ IDval[1]=0x04;
+ FileWriteBinary(filename,(char *)IDval,2); // silence 1s delay
+ if (size<=2048) wrksize=size; else wrksize=2048;
+ IDval[0]=(wrksize+128) & 0xFF;
+ IDval[1]=((wrksize+128)>>8) & 0xFF;
+ FileWriteBinary(filename,(char *)IDval,2); // block len
+ FileWriteBinary(filename,(char*)ae->mem[ae->save[is].ibank]+offset,wrksize);
+ /* adjust */
+ size=size-2048;
+ }
+ }
+ FileWriteBinaryClose(filename);
+ rasm_printf(ae,KIO"Write tape file %s (%d block%s)\n",filename,nbblock,nbblock>1?"s":"");
+ } else {
+ /* output file on filesystem */
+ rasm_printf(ae,KIO"Write binary file %s (%d byte%s)\n",filename,size,size>1?"s":"");
+ FileRemoveIfExists(filename);
+ if (ae->save[is].amsdos) {
+ AmsdosHeader=MakeAMSDOSHeader(run,offset,offset+size,MakeAMSDOS_name(ae,filename));
+ FileWriteBinary(filename,(char *)AmsdosHeader,128);
+ }
+ FileWriteBinary(filename,(char*)ae->mem[ae->save[is].ibank]+offset,size);
+ FileWriteBinaryClose(filename);
+ }
+ MemFree(filename);
+ }
+ if (!erreur) EDSK_write(ae);
+
+ for (i=0;i<ae->nbedskwrapper;i++) {
+ MemFree(ae->edsk_wrapper[i].edsk_filename);
+ }
+ if (ae->maxedskwrapper) MemFree(ae->edsk_wrapper);
+
+ if (ae->nbsave) {
+ MemFree(ae->save);
+ }
+}
+
+void PopAllExpression(struct s_assenv *ae, int crunched_zone)
+{
+ #undef FUNC
+ #define FUNC "PopAllExpression"
+
+ static int first=1;
+ double v;
+ long r;
+ int i;
+ unsigned char *mem;
+ char *expr;
+
+ /* pop all expressions BUT thoses who where already computed (in crunched blocks) */
+
+ /* calcul des labels et expressions en zone crunch (et locale?)
+ les labels doivent pointer:
+ - une valeur absolue (numerique ou variable calculee) -> completement transparent
+ - un label dans la meme zone de crunch -> label->lz=1 && verif de la zone crunch
+ - un label hors zone crunch MAIS avant toute zone de crunch de la bank destination (!label->lz)
+
+ idealement on doit tolerer les adresses situees apres le crunch dans une autre ORG zone!
+
+ on utilise ae->stage pour créer un état intermédiaire dans le ComputeExpressionCore
+ */
+ if (crunched_zone>=0) {
+ ae->stage=1;
+ } else {
+ /* on rescanne tout pour combler les trous */
+ ae->stage=2;
+ first=1;
+ }
+
+ for (i=first;i<ae->ie;i++) {
+ /* first compute only crunched expression (0,1,2,3,...) then (-1) at the end */
+ if (crunched_zone>=0) {
+ /* calcul des expressions en zone crunch */
+ if (ae->expression[i].lz<crunched_zone) continue;
+ if (ae->expression[i].lz>crunched_zone) {
+ first=i;
+ break;
+ }
+ } else {
+ if (ae->expression[i].lz>=0) continue;
+ }
+
+ mem=ae->mem[ae->expression[i].ibank];
+
+ if (ae->expression[i].reference) {
+ expr=ae->expression[i].reference;
+ } else {
+ expr=ae->wl[ae->expression[i].iw].w;
+ }
+ v=ComputeExpressionCore(ae,expr,ae->expression[i].ptr,i);
+ r=(long)floor(v+ae->rough);
+ switch (ae->expression[i].zetype) {
+ case E_EXPRESSION_J8:
+ r=r-ae->expression[i].ptr-2;
+ if (r<-128 || r>127) {
+ MakeError(ae,GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l,"relative offset %d too far [%s]\n",r,ae->wl[ae->expression[i].iw].w);
+ }
+ mem[ae->expression[i].wptr]=(unsigned char)r;
+ break;
+ case E_EXPRESSION_IV81:
+ /* for enhanced 16bits instructions */
+ r++;
+ case E_EXPRESSION_0V8:
+ case E_EXPRESSION_IV8:
+ case E_EXPRESSION_3V8:
+ case E_EXPRESSION_V8:
+ if (r>255 || r<-128) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: truncating value #%X to #%X\n",GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l,r,r&0xFF);
+ }
+ mem[ae->expression[i].wptr]=(unsigned char)r;
+ break;
+ case E_EXPRESSION_IV16:
+ case E_EXPRESSION_V16:
+ case E_EXPRESSION_V16C:
+ case E_EXPRESSION_0V16:
+ if (r>65535 || r<-32768) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: truncating value #%X to #%X\n",GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l,r,r&0xFFFF);
+ }
+ mem[ae->expression[i].wptr]=(unsigned char)r&0xFF;
+ mem[ae->expression[i].wptr+1]=(unsigned char)((r&0xFF00)>>8);
+ break;
+ case E_EXPRESSION_0V32:
+ /* meaningless in 32 bits architecture... */
+ if (v>4294967295 || v<-2147483648) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: truncating value\n",GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l);
+ }
+ mem[ae->expression[i].wptr]=(unsigned char)r&0xFF;
+ mem[ae->expression[i].wptr+1]=(unsigned char)((r>>8)&0xFF);
+ mem[ae->expression[i].wptr+2]=(unsigned char)((r>>16)&0xFF);
+ mem[ae->expression[i].wptr+3]=(unsigned char)((r>>24)&0xFF);
+ break;
+ case E_EXPRESSION_0VR:
+ /* convert v double value to Amstrad REAL */
+ memcpy(&mem[ae->expression[i].wptr],__internal_MakeAmsdosREAL(ae,v,i),5);
+ break;
+ case E_EXPRESSION_IM:
+ switch (r) {
+ case 0x00:mem[ae->expression[i].wptr]=0x46;break;
+ case 0x01:mem[ae->expression[i].wptr]=0x56;break;
+ case 0x02:mem[ae->expression[i].wptr]=0x5E;break;
+ default:
+ MakeError(ae,GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l,"IM 0,1 or 2 only\n");
+ mem[ae->expression[i].wptr]=0;
+ }
+ break;
+ case E_EXPRESSION_RST:
+ switch (r) {
+ case 0x00:mem[ae->expression[i].wptr]=0xC7;break;
+ case 0x08:mem[ae->expression[i].wptr]=0xCF;break;
+ case 0x10:mem[ae->expression[i].wptr]=0xD7;break;
+ case 0x18:mem[ae->expression[i].wptr]=0xDF;break;
+ case 0x20:mem[ae->expression[i].wptr]=0xE7;break;
+ case 0x28:mem[ae->expression[i].wptr]=0xEF;break;
+ case 0x30:mem[ae->expression[i].wptr]=0xF7;break;
+ case 0x38:mem[ae->expression[i].wptr]=0xFF;break;
+ default:
+ MakeError(ae,GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l,"RST #0,#8,#10,#18,#20,#28,#30,#38 only\n");
+ mem[ae->expression[i].wptr]=0;
+ }
+ break;
+ case E_EXPRESSION_RUN:
+ if (r<0 || r>65535) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: run adress truncated from %X to %X\n",GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l,r,r&0xFFFF);
+ }
+ ae->snapshot.registers.LPC=r&0xFF;
+ ae->snapshot.registers.HPC=(r>>8)&0xFF;
+ break;
+ case E_EXPRESSION_ZXRUN:
+ if (r<0 || r>65535) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: run adress truncated from %X to %X\n",GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l,r,r&0xFFFF);
+ }
+ ae->zxsnapshot.run=r&0xFFFF;
+ break;
+ case E_EXPRESSION_ZXSTACK:
+ if (r<0 || r>65535) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: stack adress truncated from %X to %X\n",GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l,r,r&0xFFFF);
+ }
+ ae->zxsnapshot.stack=r&0xFFFF;
+ break;
+ case E_EXPRESSION_BRS:
+ if (r>=0 && r<8) {
+ mem[ae->expression[i].wptr]+=r*8;
+ } else {
+ MakeError(ae,GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l,"SET,RES,BIT shift value from 0 to 7 only\n");
+ }
+ break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"FATAL - unknown expression type\n",GetExpFile(ae,i),ae->wl[ae->expression[i].iw].l);
+ FreeAssenv(ae);exit(-8);
+ }
+ }
+}
+
+void InsertLabelToTree(struct s_assenv *ae, struct s_label *label)
+{
+ #undef FUNC
+ #define FUNC "InsertLabelToTree"
+
+ struct s_crclabel_tree *curlabeltree;
+ int radix,dek=32;
+
+ curlabeltree=&ae->labeltree;
+ while (dek) {
+ dek=dek-8;
+ radix=(label->crc>>dek)&0xFF;
+ if (curlabeltree->radix[radix]) {
+ curlabeltree=curlabeltree->radix[radix];
+ } else {
+ curlabeltree->radix[radix]=MemMalloc(sizeof(struct s_crclabel_tree));
+ curlabeltree=curlabeltree->radix[radix];
+ memset(curlabeltree,0,sizeof(struct s_crclabel_tree));
+ }
+ }
+ ObjectArrayAddDynamicValueConcat((void**)&curlabeltree->label,&curlabeltree->nlabel,&curlabeltree->mlabel,&label[0],sizeof(struct s_label));
+}
+
+/* use by structure mechanism and label import to add fake labels */
+void PushLabelLight(struct s_assenv *ae, struct s_label *curlabel) {
+ #undef FUNC
+ #define FUNC "PushLabelLight"
+
+ struct s_label *searched_label;
+
+ /* PushLabel light */
+ if ((searched_label=SearchLabel(ae,curlabel->name,curlabel->crc))!=NULL) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"%s caused duplicate label [%s]\n",ae->idx?"Structure insertion":"Label import",curlabel->name);
+ MemFree(curlabel->name);
+ } else {
+ curlabel->backidx=ae->il;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->label,&ae->il,&ae->ml,curlabel,sizeof(struct s_label));
+ InsertLabelToTree(ae,curlabel);
+ }
+}
+void PushLabel(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "PushLabel"
+
+ struct s_label curlabel={0},*searched_label;
+ char *curlabelname;
+ int i;
+ /* label with counters */
+ struct s_expr_dico *curdic;
+ char curval[32];
+ char *varbuffer,*expr;
+ char *starttag,*endtag,*tagcheck;
+ int taglen,tagidx,lenw,tagcount=0;
+ int crc,newlen,touched;
+
+ if (ae->AutomateValidLabelFirst[ae->wl[ae->idx].w[0]]) {
+ for (i=1;ae->wl[ae->idx].w[i];i++) {
+ if (ae->wl[ae->idx].w[i]=='{') tagcount++; else if (ae->wl[ae->idx].w[i]=='}') tagcount--;
+ if (!tagcount) {
+ if (!ae->AutomateValidLabel[ae->wl[ae->idx].w[i]]) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid char in label declaration (%c)\n",ae->wl[ae->idx].w[i]);
+ return;
+ }
+ }
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid first char in label declaration (%c)\n",ae->wl[ae->idx].w[0]);
+ return;
+ }
+
+ switch (i) {
+ case 1:
+ switch (ae->wl[ae->idx].w[0]) {
+ case 'A':
+ case 'B':
+ case 'C':
+ case 'D':
+ case 'E':
+ case 'F':
+ case 'H':
+ case 'L':
+ case 'I':
+ case 'R':
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot use reserved word [%s] for label\n",ae->wl[ae->idx].w);
+ return;
+ default:break;
+ }
+ break;
+ case 2:
+ if (strcmp(ae->wl[ae->idx].w,"AF")==0 || strcmp(ae->wl[ae->idx].w,"BC")==0 || strcmp(ae->wl[ae->idx].w,"DE")==0 || strcmp(ae->wl[ae->idx].w,"HL")==0 ||
+ strcmp(ae->wl[ae->idx].w,"IX")==0 || strcmp(ae->wl[ae->idx].w,"IY")==0 || strcmp(ae->wl[ae->idx].w,"SP")==0 ||
+ strcmp(ae->wl[ae->idx].w,"LX")==0 || strcmp(ae->wl[ae->idx].w,"HX")==0 || strcmp(ae->wl[ae->idx].w,"XL")==0 || strcmp(ae->wl[ae->idx].w,"XH")==0 ||
+ strcmp(ae->wl[ae->idx].w,"LY")==0 || strcmp(ae->wl[ae->idx].w,"HY")==0 || strcmp(ae->wl[ae->idx].w,"YL")==0 || strcmp(ae->wl[ae->idx].w,"YH")==0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot use reserved word [%s] for label\n",ae->wl[ae->idx].w);
+ return;
+ }
+ break;
+ case 3:
+ if (strcmp(ae->wl[ae->idx].w,"IXL")==0 || strcmp(ae->wl[ae->idx].w,"IYL")==0 || strcmp(ae->wl[ae->idx].w,"IXH")==0 || strcmp(ae->wl[ae->idx].w,"IYH")==0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot use reserved word [%s] for label\n",ae->wl[ae->idx].w);
+ return;
+ }
+ break;
+ case 4:
+ if (strcmp(ae->wl[ae->idx].w,"VOID")==0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot use reserved word [%s] for label\n",ae->wl[ae->idx].w);
+ return;
+ }
+ default:break;
+ }
+
+ /*******************************************************
+ v a r i a b l e s i n l a b e l n a m e
+ *******************************************************/
+ varbuffer=TranslateTag(ae,TxtStrDup(ae->wl[ae->idx].w),&touched,1,E_TAGOPTION_NONE);
+
+ /**************************************************
+ s t r u c t u r e d e c l a r a t i o n
+ **************************************************/
+ if (ae->getstruct) {
+ struct s_rasmstructfield rasmstructfield={0};
+ if (varbuffer[0]=='@') {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Please no local label in a struct [%s]\n",ae->wl[ae->idx].w);
+ return;
+ }
+ /* copy label+offset in the structure */
+ rasmstructfield.name=TxtStrDup(varbuffer);
+ rasmstructfield.offset=ae->codeadr;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->rasmstruct[ae->irasmstruct-1].rasmstructfield,
+ &ae->rasmstruct[ae->irasmstruct-1].irasmstructfield,&ae->rasmstruct[ae->irasmstruct-1].mrasmstructfield,
+ &rasmstructfield,sizeof(rasmstructfield));
+ /* label is structname+field */
+ curlabelname=curlabel.name=MemMalloc(strlen(ae->rasmstruct[ae->irasmstruct-1].name)+strlen(varbuffer)+2);
+ sprintf(curlabel.name,"%s.%s",ae->rasmstruct[ae->irasmstruct-1].name,varbuffer);
+ curlabel.iw=-1;
+ /* legacy */
+ curlabel.crc=GetCRC(curlabel.name);
+ curlabel.ptr=ae->codeadr;
+#if TRACE_STRUCT
+ printf("pushLabel (struct) [%X] [%s]\n",curlabel.ptr,curlabel.name);
+#endif
+ } else {
+ /**************************************************
+ l a b e l s
+ **************************************************/
+ /* labels locaux */
+ if (varbuffer[0]=='@' && (ae->ir || ae->iw || ae->imacro)) {
+ curlabel.iw=-1;
+ curlabel.local=1;
+ curlabelname=curlabel.name=MakeLocalLabel(ae,varbuffer,NULL);
+ curlabel.crc=GetCRC(curlabel.name);
+
+ /* local labels ALSO set new reference */
+ if (ae->lastglobalalloc) {
+//printf("push LOCAL is freeing lastgloballabel\n");
+ MemFree(ae->lastgloballabel);
+ }
+ ae->lastgloballabel=TxtStrDup(curlabelname);
+//printf("push LOCAL as reference for proximity label -> [%s]\n",ae->lastgloballabel);
+ ae->lastgloballabellen=strlen(ae->lastgloballabel);
+ ae->lastglobalalloc=1;
+ } else {
+ switch (varbuffer[0]) {
+ case '.':
+ if (ae->dams) {
+ /* old Dams style declaration (remove the dot) */
+ i=0;
+ do {
+ varbuffer[i]=varbuffer[i+1];
+ ae->wl[ae->idx].w[i]=ae->wl[ae->idx].w[i+1];
+ i++;
+ } while (varbuffer[i]!=0);
+ if (!touched) {
+ curlabel.iw=ae->idx;
+ } else {
+ curlabel.iw=-1;
+ curlabel.name=varbuffer;
+ }
+ curlabel.crc=GetCRC(varbuffer);
+ curlabelname=varbuffer;
+ } else {
+ /* proximity labels */
+ if (ae->lastgloballabel) {
+ curlabelname=MemMalloc(strlen(varbuffer)+1+ae->lastgloballabellen);
+ sprintf(curlabelname,"%s%s",ae->lastgloballabel,varbuffer);
+ MemFree(varbuffer);
+ touched=1; // cause realloc!
+ curlabel.iw=-1;
+ curlabel.name=varbuffer=curlabelname;
+ curlabel.crc=GetCRC(varbuffer);
+//printf("push proximity label that may be exported [%s]->[%s]\n",ae->wl[ae->idx].w,varbuffer);
+ } else {
+ /* MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"cannot create proximity label [%s] as there is no previous global label\n",varbuffer);
+ return; */
+
+ // not optimal but!
+ curlabelname=TxtStrDup(varbuffer);
+ MemFree(varbuffer);
+ touched=1; // cause realloc!
+ curlabel.iw=-1;
+ curlabel.name=varbuffer=curlabelname;
+ curlabel.crc=GetCRC(varbuffer);
+ }
+ }
+ break;
+ default:
+ if (!touched) {
+ curlabel.iw=ae->idx;
+ } else {
+ curlabel.iw=-1;
+ curlabel.name=varbuffer;
+ }
+ curlabel.crc=GetCRC(varbuffer);
+ curlabelname=varbuffer;
+ /* global labels set new reference */
+ if (ae->lastglobalalloc) MemFree(ae->lastgloballabel);
+ ae->lastgloballabel=ae->wl[ae->idx].w;
+ ae->lastsuperglobal=ae->wl[ae->idx].w;
+ ae->lastgloballabellen=strlen(ae->wl[ae->idx].w);
+ ae->lastglobalalloc=0;
+//printf("SET global label [%s] l=%d\n",ae->lastgloballabel,ae->lastgloballabellen);
+ break;
+ }
+
+ /* contrôle dico uniquement avec des labels non locaux */
+ if (SearchDico(ae,curlabelname,curlabel.crc)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"cannot create label [%s] as there is already a variable with the same name\n",curlabelname);
+ return;
+ }
+ if(SearchAlias(ae,curlabel.crc,curlabelname)!=-1) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"cannot create label [%s] as there is already an alias with the same name\n",curlabelname);
+ return;
+ }
+ }
+ curlabel.ptr=ae->codeadr;
+ curlabel.ibank=ae->activebank;
+ curlabel.iorgzone=ae->io-1;
+ curlabel.lz=ae->lz;
+ }
+
+ if ((searched_label=SearchLabel(ae,curlabelname,curlabel.crc))!=NULL) {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"Duplicate label [%s] - previously defined in [%s:%d]\n",curlabelname,ae->filename[searched_label->fileidx],searched_label->fileline);
+ if (curlabel.iw==-1) MemFree(curlabelname);
+ } else {
+//printf("PushLabel(%s) name=%s crc=%X\n",curlabelname,curlabel.name?curlabel.name:"null",curlabel.crc);
+ curlabel.fileidx=ae->wl[ae->idx].ifile;
+ curlabel.fileline=ae->wl[ae->idx].l;
+ curlabel.autorise_export=ae->autorise_export;
+ curlabel.backidx=ae->il;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->label,&ae->il,&ae->ml,&curlabel,sizeof(curlabel));
+ InsertLabelToTree(ae,&curlabel);
+ }
+
+ if (!touched) MemFree(varbuffer);
+}
+
+
+unsigned char *EncodeSnapshotRLE(unsigned char *memin, int *lenout) {
+ #undef FUNC
+ #define FUNC "EncodeSnapshotRLE"
+
+ int i,cpt,idx=0;
+ unsigned char *memout=NULL;
+
+ memout=MemMalloc(65540);
+
+ for (i=0;i<65536;) {
+ for (cpt=1;cpt<255;cpt++) if (memin[i]!=memin[i+cpt]) break;
+ if (cpt>=3 || memin[i]==0xE5) {
+ memout[idx++]=0xE5;
+ memout[idx++]=cpt;
+ memout[idx++]=memin[i];
+ i+=cpt;
+ } else {
+ memout[idx++]=memin[i++];
+ }
+ }
+ if (lenout) *lenout=idx;
+ if (idx<65536) return memout;
+
+ MemFree(memout);
+ return NULL;
+}
+
+
+
+#undef FUNC
+#define FUNC "Instruction CORE"
+
+void _IN(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ if (strcmp(ae->wl[ae->idx+2].w,"(C)")==0) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_0:
+ case CRC_F:___output(ae,0xED);___output(ae,0x70);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xED);___output(ae,0x78);ae->nop+=3;break;
+ case CRC_B:___output(ae,0xED);___output(ae,0x40);ae->nop+=4;break;
+ case CRC_C:___output(ae,0xED);___output(ae,0x48);ae->nop+=4;break;
+ case CRC_D:___output(ae,0xED);___output(ae,0x50);ae->nop+=4;break;
+ case CRC_E:___output(ae,0xED);___output(ae,0x58);ae->nop+=4;break;
+ case CRC_H:___output(ae,0xED);___output(ae,0x60);ae->nop+=4;break;
+ case CRC_L:___output(ae,0xED);___output(ae,0x68);ae->nop+=4;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is IN [0,F,A,B,C,D,E,H,L],(C)\n");
+ }
+ } else if (strcmp(ae->wl[ae->idx+1].w,"A")==0 && StringIsMem(ae->wl[ae->idx+2].w)) {
+ ___output(ae,0xDB);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IN [0,F,A,B,C,D,E,H,L],(C) or IN A,(n) only\n");
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IN [0,F,A,B,C,D,E,H,L],(C) or IN A,(n) only\n");
+ }
+}
+
+void _OUT(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ if (strcmp(ae->wl[ae->idx+1].w,"(C)")==0) {
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_0:___output(ae,0xED);___output(ae,0x71);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xED);___output(ae,0x79);ae->nop+=4;break;
+ case CRC_B:___output(ae,0xED);___output(ae,0x41);ae->nop+=4;break;
+ case CRC_C:___output(ae,0xED);___output(ae,0x49);ae->nop+=4;break;
+ case CRC_D:___output(ae,0xED);___output(ae,0x51);ae->nop+=4;break;
+ case CRC_E:___output(ae,0xED);___output(ae,0x59);ae->nop+=4;break;
+ case CRC_H:___output(ae,0xED);___output(ae,0x61);ae->nop+=4;break;
+ case CRC_L:___output(ae,0xED);___output(ae,0x69);ae->nop+=4;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is OUT (C),[0,A,B,C,D,E,H,L]\n");
+ }
+ } else if (strcmp(ae->wl[ae->idx+2].w,"A")==0 && StringIsMem(ae->wl[ae->idx+1].w)) {
+ ___output(ae,0xD3);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V8);
+ ae->nop+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"OUT (C),[0,A,B,C,D,E,H,L] or OUT (n),A only\n");
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"OUT (C),[0,A,B,C,D,E,H,L] or OUT (n),A only\n");
+ }
+}
+
+void _EX(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_HL:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_DE:___output(ae,0xEB);ae->nop+=1;break;
+ case CRC_MSP:___output(ae,0xE3);ae->nop+=6;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is EX HL,[(SP),DE]\n");
+ }
+ break;
+ case CRC_AF:
+ if (strcmp(ae->wl[ae->idx+2].w,"AF'")==0) {
+ ___output(ae,0x08);ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is EX AF,AF'\n");
+ }
+ break;
+ case CRC_MSP:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_HL:___output(ae,0xE3);ae->nop+=6;break;
+ case CRC_IX:___output(ae,0xDD);___output(ae,0xE3);ae->nop+=7;break;
+ case CRC_IY:___output(ae,0xFD);___output(ae,0xE3);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is EX (SP),[HL,IX,IY]\n");
+ }
+ break;
+ case CRC_DE:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_HL:___output(ae,0xEB);ae->nop+=1;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is EX DE,HL\n");
+ }
+ break;
+ case CRC_IX:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_MSP:___output(ae,0xDD);___output(ae,0xE3);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is EX IX,(SP)\n");
+ }
+ break;
+ case CRC_IY:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_MSP:___output(ae,0xFD);___output(ae,0xE3);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is EX IY,(SP)\n");
+ }
+ break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is EX [AF,DE,HL,(SP),IX,IY],reg16\n");
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use EX reg16,reg16\n");
+ }
+}
+
+void _SBC(struct s_assenv *ae) {
+ if ((!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) || ((!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) && strcmp(ae->wl[ae->idx+1].w,"A")==0)) {
+ if (!ae->wl[ae->idx+1].t) ae->idx++;
+ /* do implicit A */
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,0x9F);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,0x9E);ae->nop+=2;break;
+ case CRC_B:___output(ae,0x98);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x99);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x9A);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x9B);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x9C);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x9D);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x9C);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x9D);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x9C);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x9D);ae->nop+=2;break;
+ case CRC_IX:case CRC_IY:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use SBC with A,B,C,D,E,H,L,XH,XL,YH,YL,(HL),(IX),(IY)\n");
+ ae->idx++;
+ return;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x9E);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=3;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x9E);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=3;
+ } else {
+ ___output(ae,0xDE);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_HL:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_BC:___output(ae,0xED);___output(ae,0x42);ae->nop+=4;break;
+ case CRC_DE:___output(ae,0xED);___output(ae,0x52);ae->nop+=4;break;
+ case CRC_HL:___output(ae,0xED);___output(ae,0x62);ae->nop+=4;break;
+ case CRC_SP:___output(ae,0xED);___output(ae,0x72);ae->nop+=4;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SBC HL,[BC,DE,HL,SP]\n");
+ }
+ break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SBC HL,[BC,DE,HL,SP]\n");
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid syntax for SBC\n");
+ }
+}
+
+void _ADC(struct s_assenv *ae) {
+ if ((!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) || ((!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) && strcmp(ae->wl[ae->idx+1].w,"A")==0)) {
+ if (!ae->wl[ae->idx+1].t) ae->idx++;
+ /* also implicit A */
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,0x8F);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,0x8E);ae->nop+=2;break;
+ case CRC_B:___output(ae,0x88);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x89);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x8A);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x8B);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x8C);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x8D);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x8C);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x8D);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x8C);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x8D);ae->nop+=2;break;
+ case CRC_IX:case CRC_IY:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use ADC with A,B,C,D,E,H,L,XH,XL,YH,YL,(HL),(IX),(IY)\n");
+ ae->idx++;
+ return;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x8E);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=3;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x8E);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=3;
+ } else {
+ ___output(ae,0xCE);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_HL:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_BC:___output(ae,0xED);___output(ae,0x4A);ae->nop+=4;break;
+ case CRC_DE:___output(ae,0xED);___output(ae,0x5A);ae->nop+=4;break;
+ case CRC_HL:___output(ae,0xED);___output(ae,0x6A);ae->nop+=4;break;
+ case CRC_SP:___output(ae,0xED);___output(ae,0x7A);ae->nop+=4;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is ADC HL,[BC,DE,HL,SP]\n");
+ }
+ break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is ADC HL,[BC,DE,HL,SP]\n");
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid syntax for ADC\n");
+ }
+}
+
+void _ADD(struct s_assenv *ae) {
+ if ((!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) || ((!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) && strcmp(ae->wl[ae->idx+1].w,"A")==0)) {
+ if (!ae->wl[ae->idx+1].t) ae->idx++;
+ /* also implicit A */
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,0x87);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,0x86);ae->nop+=2;break;
+ case CRC_B:___output(ae,0x80);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x81);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x82);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x83);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x84);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x85);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x84);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x85);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x84);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x85);ae->nop+=2;break;
+ case CRC_IX:case CRC_IY:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use ADD with A,B,C,D,E,H,L,XH,XL,YH,YL,(HL),(IX),(IY)\n");
+ ae->idx++;
+ return;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x86);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x86);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0xC6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_HL:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_BC:___output(ae,0x09);ae->nop+=3;break;
+ case CRC_DE:___output(ae,0x19);ae->nop+=3;break;
+ case CRC_HL:___output(ae,0x29);ae->nop+=3;break;
+ case CRC_SP:___output(ae,0x39);ae->nop+=3;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is ADD HL,[BC,DE,HL,SP]\n");
+ }
+ break;
+ case CRC_IX:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_BC:___output(ae,0xDD);___output(ae,0x09);ae->nop+=4;break;
+ case CRC_DE:___output(ae,0xDD);___output(ae,0x19);ae->nop+=4;break;
+ case CRC_IX:___output(ae,0xDD);___output(ae,0x29);ae->nop+=4;break;
+ case CRC_SP:___output(ae,0xDD);___output(ae,0x39);ae->nop+=4;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is ADD IX,[BC,DE,IX,SP]\n");
+ }
+ break;
+ case CRC_IY:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_BC:___output(ae,0xFD);___output(ae,0x09);ae->nop+=4;break;
+ case CRC_DE:___output(ae,0xFD);___output(ae,0x19);ae->nop+=4;break;
+ case CRC_IY:___output(ae,0xFD);___output(ae,0x29);ae->nop+=4;break;
+ case CRC_SP:___output(ae,0xFD);___output(ae,0x39);ae->nop+=4;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is ADD IY,[BC,DE,IY,SP]\n");
+ }
+ break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is ADD [HL,IX,IY],reg16\n");
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid syntax for ADD\n");
+ }
+}
+
+void _CP(struct s_assenv *ae) {
+ if ((!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) || ((!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) && strcmp(ae->wl[ae->idx+1].w,"A")==0)) {
+ if (!ae->wl[ae->idx+1].t) ae->idx++;
+ /* also implicit A */
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,0xBF);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,0xBE);ae->nop+=2;break;
+ case CRC_B:___output(ae,0xB8);ae->nop+=1;break;
+ case CRC_C:___output(ae,0xB9);ae->nop+=1;break;
+ case CRC_D:___output(ae,0xBA);ae->nop+=1;break;
+ case CRC_E:___output(ae,0xBB);ae->nop+=1;break;
+ case CRC_H:___output(ae,0xBC);ae->nop+=1;break;
+ case CRC_L:___output(ae,0xBD);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0xBC);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0xBD);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0xBC);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0xBD);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xBE);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xBE);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0xFE);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Syntax is CP reg8/(reg16)\n");
+ }
+}
+
+void _RET(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_NZ:___output(ae,0xC0);ae->nop+=2;break;
+ case CRC_Z:___output(ae,0xC8);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xD8);ae->nop+=2;break;
+ case CRC_NC:___output(ae,0xD0);ae->nop+=2;break;
+ case CRC_PE:___output(ae,0xE8);ae->nop+=2;break;
+ case CRC_PO:___output(ae,0xE0);ae->nop+=2;break;
+ case CRC_P:___output(ae,0xF0);ae->nop+=2;break;
+ case CRC_M:___output(ae,0xF8);ae->nop+=2;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Available flags for RET are C,NC,Z,NZ,PE,PO,P,M\n");
+ }
+ ae->idx++;
+ } else if (ae->wl[ae->idx].t==1) {
+ ___output(ae,0xC9);
+ ae->nop+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid RET syntax\n");
+ }
+}
+
+void _CALL(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==0 && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_C:___output(ae,0xDC);ae->nop+=3;break;
+ case CRC_Z:___output(ae,0xCC);ae->nop+=3;break;
+ case CRC_NZ:___output(ae,0xC4);ae->nop+=3;break;
+ case CRC_NC:___output(ae,0xD4);ae->nop+=3;break;
+ case CRC_PE:___output(ae,0xEC);ae->nop+=3;break;
+ case CRC_PO:___output(ae,0xE4);ae->nop+=3;break;
+ case CRC_P:___output(ae,0xF4);ae->nop+=3;break;
+ case CRC_M:___output(ae,0xFC);ae->nop+=3;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Available flags for CALL are C,NC,Z,NZ,PE,PO,P,M\n");
+ }
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V16C);
+ ae->idx+=2;
+ } else if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ___output(ae,0xCD);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V16C);
+ ae->idx++;
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid CALL syntax\n");
+ }
+}
+
+void _JR(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==0 && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_NZ:___output(ae,0x20);ae->nop+=2;break;
+ case CRC_C:___output(ae,0x38);ae->nop+=2;break;
+ case CRC_Z:___output(ae,0x28);ae->nop+=2;break;
+ case CRC_NC:___output(ae,0x30);ae->nop+=2;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Available flags for JR are C,NC,Z,NZ\n");
+ }
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_J8);
+ ae->idx+=2;
+ } else if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ___output(ae,0x18);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_J8);
+ ae->idx++;
+ ae->nop+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid JR syntax\n");
+ }
+}
+
+void _JP(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==0 && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_C:___output(ae,0xDA);ae->nop+=3;break;
+ case CRC_Z:___output(ae,0xCA);ae->nop+=3;break;
+ case CRC_NZ:___output(ae,0xC2);ae->nop+=3;break;
+ case CRC_NC:___output(ae,0xD2);ae->nop+=3;break;
+ case CRC_PE:___output(ae,0xEA);ae->nop+=3;break;
+ case CRC_PO:___output(ae,0xE2);ae->nop+=3;break;
+ case CRC_P:___output(ae,0xF2);ae->nop+=3;break;
+ case CRC_M:___output(ae,0xFA);ae->nop+=3;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Available flags for JP are C,NC,Z,NZ,PE,PO,P,M\n");
+ }
+ if (!strcmp(ae->wl[ae->idx+2].w,"(IX)") || !strcmp(ae->wl[ae->idx+2].w,"(IY)")) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"conditionnal JP cannot use register adressing\n");
+ } else {
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V16);
+ }
+ ae->idx+=2;
+ } else if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_HL:case CRC_MHL:___output(ae,0xE9);ae->nop+=1;break;
+ case CRC_IX:case CRC_MIX:___output(ae,0xDD);___output(ae,0xE9);ae->nop+=2;break;
+ case CRC_IY:case CRC_MIY:___output(ae,0xFD);___output(ae,0xE9);ae->nop+=2;break;
+ default:
+ ___output(ae,0xC3);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V16);
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid JP syntax\n");
+ }
+}
+
+
+void _DEC(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ do {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,0x3D);ae->nop+=1;break;
+ case CRC_B:___output(ae,0x05);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x0D);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x15);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x1D);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x25);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x2D);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x25);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x2D);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x25);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x2D);ae->nop+=2;break;
+ case CRC_BC:___output(ae,0x0B);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0x1B);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0x2B);ae->nop+=2;break;
+ case CRC_IX:___output(ae,0xDD);___output(ae,0x2B);ae->nop+=3;break;
+ case CRC_IY:___output(ae,0xFD);___output(ae,0x2B);ae->nop+=3;break;
+ case CRC_SP:___output(ae,0x3B);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0x35);ae->nop+=3;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x35);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=6;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x35);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=6;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use DEC with A,B,C,D,E,H,L,XH,XL,YH,YL,BC,DE,HL,SP,(HL),(IX),(IY)\n");
+ }
+ }
+ ae->idx++;
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use DEC with A,B,C,D,E,H,L,XH,XL,YH,YL,BC,DE,HL,SP,(HL),(IX),(IY)\n");
+ }
+}
+void _INC(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ do {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,0x3C);ae->nop+=1;break;
+ case CRC_B:___output(ae,0x04);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x0C);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x14);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x1C);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x24);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x2C);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x24);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x2C);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x24);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x2C);ae->nop+=2;break;
+ case CRC_BC:___output(ae,0x03);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0x13);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0x23);ae->nop+=2;break;
+ case CRC_IX:___output(ae,0xDD);___output(ae,0x23);ae->nop+=3;break;
+ case CRC_IY:___output(ae,0xFD);___output(ae,0x23);ae->nop+=3;break;
+ case CRC_SP:___output(ae,0x33);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0x34);ae->nop+=3;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x34);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=6;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x34);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=6;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use INC with A,B,C,D,E,H,L,XH,XL,YH,YL,BC,DE,HL,SP,(HL),(IX),(IY)\n");
+ }
+ }
+ ae->idx++;
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use INC with A,B,C,D,E,H,L,XH,XL,YH,YL,BC,DE,HL,SP,(HL),(IX),(IY)\n");
+ }
+}
+
+void _SUB(struct s_assenv *ae) {
+ #ifdef OPCODE
+ #undef OPCODE
+ #endif
+ #define OPCODE 0x90
+
+ if ((!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) || ((!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) && strcmp(ae->wl[ae->idx+1].w,"A")==0)) {
+ if (!ae->wl[ae->idx+1].t) ae->idx++;
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,OPCODE+7);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,OPCODE+6);ae->nop+=2;break;
+ case CRC_B:___output(ae,OPCODE);ae->nop+=1;break;
+ case CRC_C:___output(ae,OPCODE+1);ae->nop+=1;break;
+ case CRC_D:___output(ae,OPCODE+2);ae->nop+=1;break;
+ case CRC_E:___output(ae,OPCODE+3);ae->nop+=1;break;
+ case CRC_H:___output(ae,OPCODE+4);ae->nop+=1;break;
+ case CRC_L:___output(ae,OPCODE+5);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,OPCODE+4);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,OPCODE+5);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,OPCODE+4);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,OPCODE+5);ae->nop+=2;break;
+ case CRC_IX:case CRC_IY:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use SUB with A,B,C,D,E,H,L,XH,XL,YH,YL,(HL),(IX),(IY)\n");
+ ae->idx++;
+ return;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,OPCODE+6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,OPCODE+6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0xD6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use SUB with A,B,C,D,E,H,L,XH,XL,YH,YL,(HL),(IX),(IY)\n");
+ }
+}
+void _AND(struct s_assenv *ae) {
+ #ifdef OPCODE
+ #undef OPCODE
+ #endif
+ #define OPCODE 0xA0
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,OPCODE+7);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,OPCODE+6);ae->nop+=2;break;
+ case CRC_B:___output(ae,OPCODE);ae->nop+=1;break;
+ case CRC_C:___output(ae,OPCODE+1);ae->nop+=1;break;
+ case CRC_D:___output(ae,OPCODE+2);ae->nop+=1;break;
+ case CRC_E:___output(ae,OPCODE+3);ae->nop+=1;break;
+ case CRC_H:___output(ae,OPCODE+4);ae->nop+=1;break;
+ case CRC_L:___output(ae,OPCODE+5);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,OPCODE+4);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,OPCODE+5);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,OPCODE+4);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,OPCODE+5);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,OPCODE+6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,OPCODE+6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0xE6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use AND with A,B,C,D,E,H,L,XH,XL,YH,YL,(HL),(IX),(IY)\n");
+ }
+}
+void _OR(struct s_assenv *ae) {
+ #ifdef OPCODE
+ #undef OPCODE
+ #endif
+ #define OPCODE 0xB0
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,OPCODE+7);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,OPCODE+6);ae->nop+=2;break;
+ case CRC_B:___output(ae,OPCODE);ae->nop+=1;break;
+ case CRC_C:___output(ae,OPCODE+1);ae->nop+=1;break;
+ case CRC_D:___output(ae,OPCODE+2);ae->nop+=1;break;
+ case CRC_E:___output(ae,OPCODE+3);ae->nop+=1;break;
+ case CRC_H:___output(ae,OPCODE+4);ae->nop+=1;break;
+ case CRC_L:___output(ae,OPCODE+5);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,OPCODE+4);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,OPCODE+5);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,OPCODE+4);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,OPCODE+5);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,OPCODE+6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,OPCODE+6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0xF6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use OR with A,B,C,D,E,H,L,XH,XL,YH,YL,(HL),(IX),(IY)\n");
+ }
+}
+void _XOR(struct s_assenv *ae) {
+ #ifdef OPCODE
+ #undef OPCODE
+ #endif
+ #define OPCODE 0xA8
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:___output(ae,OPCODE+7);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,OPCODE+6);ae->nop+=2;break;
+ case CRC_B:___output(ae,OPCODE);ae->nop+=1;break;
+ case CRC_C:___output(ae,OPCODE+1);ae->nop+=1;break;
+ case CRC_D:___output(ae,OPCODE+2);ae->nop+=1;break;
+ case CRC_E:___output(ae,OPCODE+3);ae->nop+=1;break;
+ case CRC_H:___output(ae,OPCODE+4);ae->nop+=1;break;
+ case CRC_L:___output(ae,OPCODE+5);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,OPCODE+4);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,OPCODE+5);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,OPCODE+4);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,OPCODE+5);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,OPCODE+6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,OPCODE+6);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0xEE);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use XOR with A,B,C,D,E,H,L,XH,XL,YH,YL,(HL),(IX),(IY)\n");
+ }
+}
+
+
+void _POP(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ switch (GetCRC(ae->wl[ae->idx].w)) {
+ case CRC_AF:___output(ae,0xF1);ae->nop+=3;break;
+ case CRC_BC:___output(ae,0xC1);ae->nop+=3;break;
+ case CRC_DE:___output(ae,0xD1);ae->nop+=3;break;
+ case CRC_HL:___output(ae,0xE1);ae->nop+=3;break;
+ case CRC_IX:___output(ae,0xDD);___output(ae,0xE1);ae->nop+=4;break;
+ case CRC_IY:___output(ae,0xFD);___output(ae,0xE1);ae->nop+=4;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use POP with AF,BC,DE,HL,IX,IY\n");
+ }
+ } while (ae->wl[ae->idx].t!=1);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"POP need at least one parameter\n");
+ }
+}
+void _PUSH(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ switch (GetCRC(ae->wl[ae->idx].w)) {
+ case CRC_AF:___output(ae,0xF5);ae->nop+=4;break;
+ case CRC_BC:___output(ae,0xC5);ae->nop+=4;break;
+ case CRC_DE:___output(ae,0xD5);ae->nop+=4;break;
+ case CRC_HL:___output(ae,0xE5);ae->nop+=4;break;
+ case CRC_IX:___output(ae,0xDD);___output(ae,0xE5);ae->nop+=5;break;
+ case CRC_IY:___output(ae,0xFD);___output(ae,0xE5);ae->nop+=5;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use PUSH with AF,BC,DE,HL,IX,IY\n");
+ }
+ } while (ae->wl[ae->idx].t!=1);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"PUSH need at least one parameter\n");
+ }
+}
+
+void _IM(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ /* la valeur du parametre va definir l'opcode du IM */
+ ___output(ae,0xED);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IM);
+ ae->idx++;
+ ae->nop+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IM need one parameter\n");
+ }
+}
+
+void _RLCA(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0x7);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RLCA does not need parameter\n");
+ }
+}
+void _RRCA(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xF);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RRCA does not need parameter\n");
+ }
+}
+void _NEG(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0x44);
+ ae->nop+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"NEG does not need parameter\n");
+ }
+}
+void _DAA(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0x27);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DAA does not need parameter\n");
+ }
+}
+void _CPL(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0x2F);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CPL does not need parameter\n");
+ }
+}
+void _RETI(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0x4D);
+ ae->nop+=4;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RETI does not need parameter\n");
+ }
+}
+void _SCF(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0x37);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"SCF does not need parameter\n");
+ }
+}
+void _LDD(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xA8);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LDD does not need parameter\n");
+ }
+}
+void _LDDR(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xB8);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LDDR does not need parameter\n");
+ }
+}
+void _LDI(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xA0);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LDI does not need parameter\n");
+ }
+}
+void _LDIR(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xB0);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LDIR does not need parameter\n");
+ }
+}
+void _CCF(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0x3F);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CCF does not need parameter\n");
+ }
+}
+void _CPD(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xA9);
+ ae->nop+=4;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CPD does not need parameter\n");
+ }
+}
+void _CPDR(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xB9);
+ ae->nop+=4;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CPDR does not need parameter\n");
+ }
+}
+void _CPI(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xA1);
+ ae->nop+=4;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CPI does not need parameter\n");
+ }
+}
+void _CPIR(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xB1);
+ ae->nop+=4;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CPIR does not need parameter\n");
+ }
+}
+void _OUTD(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xAB);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"OUTD does not need parameter\n");
+ }
+}
+void _OTDR(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xBB);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"OTDR does not need parameter\n");
+ }
+}
+void _OUTI(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xA3);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"OUTI does not need parameter\n");
+ }
+}
+void _OTIR(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xB3);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"OTIR does not need parameter\n");
+ }
+}
+void _RETN(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0x45);
+ ae->nop+=4;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RETN does not need parameter\n");
+ }
+}
+void _IND(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xAA);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IND does not need parameter\n");
+ }
+}
+void _INDR(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xBA);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INDR does not need parameter\n");
+ }
+}
+void _INI(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xED);
+ ___output(ae,0xA2);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INI does not need parameter\n");
+ }
+}
+void _INIR(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t==1) {
+ ___output(ae,0xED);
+ ___output(ae,0xB2);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INIR does not need parameter\n");
+ }
+}
+void _EXX(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t==1) {
+ ___output(ae,0xD9);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"EXX does not need parameter\n");
+ }
+}
+void _HALT(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t==1) {
+ ___output(ae,0x76);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"HALT does not need parameter\n");
+ }
+}
+
+void _RLA(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t==1) {
+ ___output(ae,0x17);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RLA does not need parameter\n");
+ }
+}
+void _RRA(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t==1) {
+ ___output(ae,0x1F);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RRA does not need parameter\n");
+ }
+}
+void _RLD(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t==1) {
+ ___output(ae,0xED);
+ ___output(ae,0x6F);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RLD does not need parameter\n");
+ }
+}
+void _RRD(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t==1) {
+ ___output(ae,0xED);
+ ___output(ae,0x67);
+ ae->nop+=5;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RRD does not need parameter\n");
+ }
+}
+
+
+void _EXA(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t==1) {
+ ___output(ae,0x08);ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"EXA alias does not need parameter\n");
+ }
+}
+
+void _NOP(struct s_assenv *ae) {
+ int o;
+
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0x00);
+ ae->nop+=1;
+ } else if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ o=RoundComputeExpressionCore(ae,ae->wl[ae->idx+1].w,ae->codeadr,0);
+ if (o>=0) {
+ while (o>0) {
+ ___output(ae,0x00);
+ ae->nop+=1;
+ o--;
+ }
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"NOP is supposed to be used without parameter or with one optional parameter\n");
+ }
+}
+void _DI(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xF3);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DI does not need parameter\n");
+ }
+}
+void _EI(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___output(ae,0xFB);
+ ae->nop+=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"EI does not need parameter\n");
+ }
+}
+
+void _RST(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t!=2) {
+ if (!strcmp(ae->wl[ae->idx+1].w,"(IY)") || !strcmp(ae->wl[ae->idx+1].w,"(IX)")) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RST cannot use IX or IY\n");
+ } else {
+ /* la valeur du parametre va definir l'opcode du RST */
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_RST);
+ }
+ ae->idx++;
+ ae->nop+=4;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"RST need one parameter\n");
+ }
+}
+
+void _DJNZ(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ if (IsRegister(ae->wl[ae->idx+1].w)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DJNZ cannot use register\n");
+ } else if (strcmp("(IX)",ae->wl[ae->idx+1].w)==0 || strcmp("(IY)",ae->wl[ae->idx+1].w)==0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DJNZ cannot use register\n");
+ } else {
+ ___output(ae,0x10);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_J8);
+ ae->nop+=3;
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DJNZ need one parameter\n");
+ }
+}
+
+void _LD(struct s_assenv *ae) {
+ /* on check qu'il y a au moins deux parametres */
+ if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_A:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_I:___output(ae,0xED);___output(ae,0x57);ae->nop+=3;break;
+ case CRC_R:___output(ae,0xED);___output(ae,0x5F);ae->nop+=3;break;
+ case CRC_B:___output(ae,0x78);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x79);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x7A);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x7B);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x7C);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x7D);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x7C);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x7D);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x7C);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x7D);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0x7E);ae->nop+=2;break;
+ case CRC_A:___output(ae,0x7F);ae->nop+=1;break;
+ case CRC_MBC:___output(ae,0x0A);ae->nop+=2;break;
+ case CRC_MDE:___output(ae,0x1A);ae->nop+=2;break;
+ default:
+ /* (ix+expression) (iy+expression) (expression) expression */
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x7E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x7E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (StringIsMem(ae->wl[ae->idx+2].w)) {
+ ___output(ae,0x3A);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V16);
+ ae->nop+=4;
+ } else {
+ ___output(ae,0x3E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ break;
+ case CRC_I:
+ if (GetCRC(ae->wl[ae->idx+2].w)==CRC_A) {
+ ___output(ae,0xED);___output(ae,0x47);
+ ae->nop+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LD I,A only\n");
+ }
+ break;
+ case CRC_R:
+ if (GetCRC(ae->wl[ae->idx+2].w)==CRC_A) {
+ ___output(ae,0xED);___output(ae,0x4F);
+ ae->nop+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LD R,A only\n");
+ }
+ break;
+ case CRC_B:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0x40);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x41);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x42);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x43);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x44);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x45);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x44);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x45);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x44);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x45);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0x46);ae->nop+=2;break;
+ case CRC_A:___output(ae,0x47);ae->nop+=1;break;
+ default:
+ /* (ix+expression) (iy+expression) expression */
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x46);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x46);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0x06);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ break;
+ case CRC_C:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0x48);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x49);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x4A);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x4B);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x4C);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x4D);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x4C);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x4D);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x4C);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x4D);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0x4E);ae->nop+=2;break;
+ case CRC_A:___output(ae,0x4F);ae->nop+=1;break;
+ default:
+ /* (ix+expression) (iy+expression) expression */
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x4E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x4E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0x0E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ break;
+ case CRC_D:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0x50);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x51);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x52);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x53);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x54);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x55);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x54);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x55);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x54);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x55);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0x56);ae->nop+=2;break;
+ case CRC_A:___output(ae,0x57);ae->nop+=1;break;
+ default:
+ /* (ix+expression) (iy+expression) expression */
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x56);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x56);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0x16);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ break;
+ case CRC_E:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0x58);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x59);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x5A);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x5B);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x5C);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x5D);ae->nop+=1;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x5C);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x5D);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x5C);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x5D);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0x5E);ae->nop+=2;break;
+ case CRC_A:___output(ae,0x5F);ae->nop+=1;break;
+ default:
+ /* (ix+expression) (iy+expression) expression */
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x5E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x5E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0x1E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0xFD);___output(ae,0x60);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xFD);___output(ae,0x61);ae->nop+=2;break;
+ case CRC_D:___output(ae,0xFD);___output(ae,0x62);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xFD);___output(ae,0x63);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x64);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x65);ae->nop+=2;break;
+ case CRC_A:___output(ae,0xFD);___output(ae,0x67);ae->nop+=2;break;
+ default:
+ ___output(ae,0xFD);___output(ae,0x26);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=3;
+ }
+ break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0xFD);___output(ae,0x68);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xFD);___output(ae,0x69);ae->nop+=2;break;
+ case CRC_D:___output(ae,0xFD);___output(ae,0x6A);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xFD);___output(ae,0x6B);ae->nop+=2;break;
+ case CRC_IYH:case CRC_HY:case CRC_YH:___output(ae,0xFD);___output(ae,0x6C);ae->nop+=2;break;
+ case CRC_IYL:case CRC_LY:case CRC_YL:___output(ae,0xFD);___output(ae,0x6D);ae->nop+=2;break;
+ case CRC_A:___output(ae,0xFD);___output(ae,0x6F);ae->nop+=2;break;
+ default:
+ ___output(ae,0xFD);___output(ae,0x2E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=3;
+ }
+ break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0xDD);___output(ae,0x60);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xDD);___output(ae,0x61);ae->nop+=2;break;
+ case CRC_D:___output(ae,0xDD);___output(ae,0x62);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xDD);___output(ae,0x63);ae->nop+=2;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x64);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x65);ae->nop+=2;break;
+ case CRC_A:___output(ae,0xDD);___output(ae,0x67);ae->nop+=2;break;
+ default:
+ ___output(ae,0xDD);___output(ae,0x26);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=3;
+ }
+ break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0xDD);___output(ae,0x68);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xDD);___output(ae,0x69);ae->nop+=2;break;
+ case CRC_D:___output(ae,0xDD);___output(ae,0x6A);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xDD);___output(ae,0x6B);ae->nop+=2;break;
+ case CRC_IXH:case CRC_HX:case CRC_XH:___output(ae,0xDD);___output(ae,0x6C);ae->nop+=2;break;
+ case CRC_IXL:case CRC_LX:case CRC_XL:___output(ae,0xDD);___output(ae,0x6D);ae->nop+=2;break;
+ case CRC_A:___output(ae,0xDD);___output(ae,0x6F);ae->nop+=2;break;
+ default:
+ ___output(ae,0xDD);___output(ae,0x2E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=3;
+ }
+ break;
+ case CRC_H:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0x60);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x61);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x62);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x63);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x64);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x65);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,0x66);ae->nop+=2;break;
+ case CRC_A:___output(ae,0x67);ae->nop+=1;break;
+ default:
+ /* (ix+expression) (iy+expression) expression */
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x66);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x66);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0x26);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ break;
+ case CRC_L:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0x68);ae->nop+=1;break;
+ case CRC_C:___output(ae,0x69);ae->nop+=1;break;
+ case CRC_D:___output(ae,0x6A);ae->nop+=1;break;
+ case CRC_E:___output(ae,0x6B);ae->nop+=1;break;
+ case CRC_H:___output(ae,0x6C);ae->nop+=1;break;
+ case CRC_L:___output(ae,0x6D);ae->nop+=1;break;
+ case CRC_MHL:___output(ae,0x6E);ae->nop+=2;break;
+ case CRC_A:___output(ae,0x6F);ae->nop+=1;break;
+ default:
+ /* (ix+expression) (iy+expression) expression */
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0x6E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0x6E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0x2E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=2;
+ }
+ }
+ break;
+ case CRC_MHL:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0x70);ae->nop+=2;break;
+ case CRC_C:___output(ae,0x71);ae->nop+=2;break;
+ case CRC_D:___output(ae,0x72);ae->nop+=2;break;
+ case CRC_E:___output(ae,0x73);ae->nop+=2;break;
+ case CRC_H:___output(ae,0x74);ae->nop+=2;break;
+ case CRC_L:___output(ae,0x75);ae->nop+=2;break;
+ case CRC_A:___output(ae,0x77);ae->nop+=2;break;
+ default:
+ /* expression */
+ ___output(ae,0x36);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V8);
+ ae->nop+=3;
+ }
+ break;
+ case CRC_MBC:
+ if (GetCRC(ae->wl[ae->idx+2].w)==CRC_A) {
+ ___output(ae,0x02);
+ ae->nop+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LD (BC),A only\n");
+ }
+ break;
+ case CRC_MDE:
+ if (GetCRC(ae->wl[ae->idx+2].w)==CRC_A) {
+ ___output(ae,0x12);
+ ae->nop+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LD (DE),A only\n");
+ }
+ break;
+ case CRC_HL:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_BC:___output(ae,0x60);___output(ae,0x69);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0x62);___output(ae,0x6B);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0x64);___output(ae,0x6D);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX+",4)==0) {
+ /* enhanced LD HL,(IX+nn) */
+ ___output(ae,0xDD);___output(ae,0x66);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV81);
+ ___output(ae,0xDD);___output(ae,0x6E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=10;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY+",4)==0) {
+ /* enhanced LD HL,(IY+nn) */
+ ___output(ae,0xFD);___output(ae,0x66);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV81);
+ ___output(ae,0xFD);___output(ae,0x6E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=10;
+ } else if (StringIsMem(ae->wl[ae->idx+2].w)) {
+ ___output(ae,0x2A);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V16);
+ ae->nop+=5;
+ } else {
+ ___output(ae,0x21);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V16);
+ ae->nop+=3;
+ }
+ }
+ break;
+ case CRC_BC:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_BC:___output(ae,0x40);___output(ae,0x49);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0x42);___output(ae,0x4B);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0x44);___output(ae,0x4D);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX+",4)==0) {
+ /* enhanced LD BC,(IX+nn) */
+ ___output(ae,0xDD);___output(ae,0x46);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV81);
+ ___output(ae,0xDD);___output(ae,0x4E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=10;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY+",4)==0) {
+ /* enhanced LD BC,(IY+nn) */
+ ___output(ae,0xFD);___output(ae,0x46);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV81);
+ ___output(ae,0xFD);___output(ae,0x4E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=10;
+ } else if (StringIsMem(ae->wl[ae->idx+2].w)) {
+ ___output(ae,0xED);___output(ae,0x4B);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV16);
+ ae->nop+=6;
+ } else {
+ ___output(ae,0x01);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V16);
+ ae->nop+=3;
+ }
+ }
+ break;
+ case CRC_DE:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_BC:___output(ae,0x50);___output(ae,0x59);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0x52);___output(ae,0x5B);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0x54);___output(ae,0x5D);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX+",4)==0) {
+ /* enhanced LD DE,(IX+nn) */
+ ___output(ae,0xDD);___output(ae,0x56);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV81);
+ ___output(ae,0xDD);___output(ae,0x5E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=10;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY+",4)==0) {
+ /* enhanced LD DE,(IY+nn) */
+ ___output(ae,0xFD);___output(ae,0x56);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV81);
+ ___output(ae,0xFD);___output(ae,0x5E);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ ae->nop+=10;
+ } else if (StringIsMem(ae->wl[ae->idx+2].w)) {
+ ___output(ae,0xED);___output(ae,0x5B);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV16);
+ ae->nop+=6;
+ } else {
+ ___output(ae,0x11);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V16);
+ ae->nop+=3;
+ }
+ }
+ break;
+ case CRC_IX:
+ if (StringIsMem(ae->wl[ae->idx+2].w)) {
+ ___output(ae,0xDD);___output(ae,0x2A);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV16);
+ ae->nop+=6;
+ } else {
+ ___output(ae,0xDD);___output(ae,0x21);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV16);
+ ae->nop+=4;
+ }
+ break;
+ case CRC_IY:
+ if (StringIsMem(ae->wl[ae->idx+2].w)) {
+ ___output(ae,0xFD);___output(ae,0x2A);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV16);
+ ae->nop+=6;
+ } else {
+ ___output(ae,0xFD);___output(ae,0x21);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV16);
+ ae->nop+=4;
+ }
+ break;
+ case CRC_SP:
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_HL:___output(ae,0xF9);ae->nop+=2;break;
+ case CRC_IX:___output(ae,0xDD);___output(ae,0xF9);ae->nop+=3;break;
+ case CRC_IY:___output(ae,0xFD);___output(ae,0xF9);ae->nop+=3;break;
+ default:
+ if (StringIsMem(ae->wl[ae->idx+2].w)) {
+ ___output(ae,0xED);___output(ae,0x7B);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV16);
+ ae->nop+=6;
+ } else {
+ ___output(ae,0x31);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_V16);
+ ae->nop+=3;
+ }
+ }
+ break;
+ default:
+ /* (ix+expression) (iy+expression) (expression) expression */
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0xDD);___output(ae,0x70);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_C:___output(ae,0xDD);___output(ae,0x71);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_D:___output(ae,0xDD);___output(ae,0x72);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_E:___output(ae,0xDD);___output(ae,0x73);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_H:___output(ae,0xDD);___output(ae,0x74);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_L:___output(ae,0xDD);___output(ae,0x75);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_A:___output(ae,0xDD);___output(ae,0x77);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_HL:___output(ae,0xDD);___output(ae,0x74);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV81);___output(ae,0xDD);___output(ae,0x75);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=10;break;
+ case CRC_DE:___output(ae,0xDD);___output(ae,0x72);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV81);___output(ae,0xDD);___output(ae,0x73);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=10;break;
+ case CRC_BC:___output(ae,0xDD);___output(ae,0x70);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV81);___output(ae,0xDD);___output(ae,0x71);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=10;break;
+ default:___output(ae,0xDD);___output(ae,0x36);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_3V8);
+ ae->nop+=6;
+ }
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0xFD);___output(ae,0x70);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_C:___output(ae,0xFD);___output(ae,0x71);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_D:___output(ae,0xFD);___output(ae,0x72);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_E:___output(ae,0xFD);___output(ae,0x73);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_H:___output(ae,0xFD);___output(ae,0x74);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_L:___output(ae,0xFD);___output(ae,0x75);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_A:___output(ae,0xFD);___output(ae,0x77);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=5;break;
+ case CRC_HL:___output(ae,0xFD);___output(ae,0x74);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV81);___output(ae,0xFD);___output(ae,0x75);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=10;break;
+ case CRC_DE:___output(ae,0xFD);___output(ae,0x72);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV81);___output(ae,0xFD);___output(ae,0x73);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=10;break;
+ case CRC_BC:___output(ae,0xFD);___output(ae,0x70);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV81);___output(ae,0xFD);___output(ae,0x71);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);ae->nop+=10;break;
+ default:___output(ae,0xFD);___output(ae,0x36);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_3V8);
+ ae->nop+=6;
+ }
+ } else if (StringIsMem(ae->wl[ae->idx+1].w)) {
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_A:___output(ae,0x32);PushExpression(ae,ae->idx+1,E_EXPRESSION_V16);ae->nop+=4;break;
+ case CRC_BC:___output(ae,0xED);___output(ae,0x43);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV16);ae->nop+=6;break;
+ case CRC_DE:___output(ae,0xED);___output(ae,0x53);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV16);ae->nop+=6;break;
+ case CRC_HL:___output(ae,0x22);PushExpression(ae,ae->idx+1,E_EXPRESSION_V16);ae->nop+=5;break;
+ case CRC_IX:___output(ae,0xDD);___output(ae,0x22);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV16);ae->nop+=6;break;
+ case CRC_IY:___output(ae,0xFD);___output(ae,0x22);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV16);ae->nop+=6;break;
+ case CRC_SP:___output(ae,0xED);___output(ae,0x73);PushExpression(ae,ae->idx+1,E_EXPRESSION_IV16);ae->nop+=6;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LD (#nnnn),[A,BC,DE,HL,SP,IX,IY] only\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Unknown LD format\n");
+ }
+ break;
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LD needs two parameters\n");
+ }
+}
+
+
+void _RLC(struct s_assenv *ae) {
+ /* on check qu'il y a un ou deux parametres */
+ if (ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_B:___output(ae,0xCB);___output(ae,0x0);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);___output(ae,0x1);ae->nop+=2;break;
+ case CRC_D:___output(ae,0xCB);___output(ae,0x2);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);___output(ae,0x3);ae->nop+=2;break;
+ case CRC_H:___output(ae,0xCB);___output(ae,0x4);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);___output(ae,0x5);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);___output(ae,0x6);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);___output(ae,0x7);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x6);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x6);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RLC reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t!=2) {
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RLC (IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x0);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x1);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x2);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x3);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x4);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x5);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x7);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RLC (IX+n),reg8\n");
+ }
+ ae->idx++;
+ ae->idx++;
+ }
+}
+
+void _RRC(struct s_assenv *ae) {
+ /* on check qu'il y a un ou deux parametres */
+ if (ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_B:___output(ae,0xCB);___output(ae,0x8);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);___output(ae,0x9);ae->nop+=2;break;
+ case CRC_D:___output(ae,0xCB);___output(ae,0xA);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);___output(ae,0xB);ae->nop+=2;break;
+ case CRC_H:___output(ae,0xCB);___output(ae,0xC);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);___output(ae,0xD);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);___output(ae,0xE);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);___output(ae,0xF);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0xE);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0xE);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RRC reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t!=2) {
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RRC (IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x8);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x9);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0xA);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0xB);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0xC);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0xD);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0xF);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RRC (IX+n),reg8\n");
+ }
+ ae->idx++;
+ ae->idx++;
+ }
+}
+
+
+void _RL(struct s_assenv *ae) {
+ /* on check qu'il y a un ou deux parametres */
+ if (ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_BC:___output(ae,0xCB);___output(ae,0x10);___output(ae,0xCB);___output(ae,0x11);ae->nop+=4;break;
+ case CRC_B:___output(ae,0xCB);___output(ae,0x10);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);___output(ae,0x11);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0xCB);___output(ae,0x12);___output(ae,0xCB);___output(ae,0x13);ae->nop+=4;break;
+ case CRC_D:___output(ae,0xCB);___output(ae,0x12);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);___output(ae,0x13);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0xCB);___output(ae,0x14);___output(ae,0xCB);___output(ae,0x15);ae->nop+=4;break;
+ case CRC_H:___output(ae,0xCB);___output(ae,0x14);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);___output(ae,0x15);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);___output(ae,0x16);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);___output(ae,0x17);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x16);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x16);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RL reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t!=2) {
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RL (IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x10);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x11);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x12);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x13);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x14);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x15);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x17);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RL (IX+n),reg8\n");
+ }
+ ae->idx++;
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RL (IX+n),reg8 or RL reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+}
+
+void _RR(struct s_assenv *ae) {
+ /* on check qu'il y a un ou deux parametres */
+ if (ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_BC:___output(ae,0xCB);___output(ae,0x18);___output(ae,0xCB);___output(ae,0x19);ae->nop+=4;break;
+ case CRC_B:___output(ae,0xCB);___output(ae,0x18);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);___output(ae,0x19);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0xCB);___output(ae,0x1A);___output(ae,0xCB);___output(ae,0x1B);ae->nop+=4;break;
+ case CRC_D:___output(ae,0xCB);___output(ae,0x1A);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);___output(ae,0x1B);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0xCB);___output(ae,0x1C);___output(ae,0xCB);___output(ae,0x1D);ae->nop+=4;break;
+ case CRC_H:___output(ae,0xCB);___output(ae,0x1C);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);___output(ae,0x1D);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);___output(ae,0x1E);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);___output(ae,0x1F);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x1E);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x1E);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RR reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t!=2) {
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RR (IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x18);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x19);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x1A);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x1B);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x1C);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x1D);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x1F);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RR (IX+n),reg8\n");
+ }
+ ae->idx++;
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RR (IX+n),reg8 or RR reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+}
+
+
+
+
+
+void _SLA(struct s_assenv *ae) {
+ /* on check qu'il y a un ou deux parametres */
+ if (ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_BC:___output(ae,0xCB);___output(ae,0x21);___output(ae,0xCB);___output(ae,0x10);ae->nop+=4;break; /* SLA C : RL B */
+ case CRC_B:___output(ae,0xCB);___output(ae,0x20);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);___output(ae,0x21);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0xCB);___output(ae,0x23);___output(ae,0xCB);___output(ae,0x12);ae->nop+=4;break; /* SLA E : RL D */
+ case CRC_D:___output(ae,0xCB);___output(ae,0x22);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);___output(ae,0x23);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0xCB);___output(ae,0x25);___output(ae,0xCB);___output(ae,0x14);ae->nop+=4;break; /* SLA L : RL H */
+ case CRC_H:___output(ae,0xCB);___output(ae,0x24);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);___output(ae,0x25);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);___output(ae,0x26);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);___output(ae,0x27);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x26);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x26);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SLA reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t!=2) {
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SLL (IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x20);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x21);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x22);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x23);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x24);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x25);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x27);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SLA (IX+n),reg8\n");
+ }
+ ae->idx++;
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SLA reg8/(HL)/(IX+n)/(IY+n) or SLA (IX+n),reg8\n");
+ }
+}
+
+void _SRA(struct s_assenv *ae) {
+ /* on check qu'il y a un ou deux parametres */
+ if (ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_BC:___output(ae,0xCB);___output(ae,0x28);___output(ae,0xCB);___output(ae,0x19);ae->nop+=4;break; /* SRA B : RR C */
+ case CRC_B:___output(ae,0xCB);___output(ae,0x28);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);___output(ae,0x29);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0xCB);___output(ae,0x2A);___output(ae,0xCB);___output(ae,0x1B);ae->nop+=4;break; /* SRA D : RR E */
+ case CRC_D:___output(ae,0xCB);___output(ae,0x2A);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);___output(ae,0x2B);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0xCB);___output(ae,0x2C);___output(ae,0xCB);___output(ae,0x1D);ae->nop+=4;break; /* SRA H : RR L */
+ case CRC_H:___output(ae,0xCB);___output(ae,0x2C);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);___output(ae,0x2D);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);___output(ae,0x2E);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);___output(ae,0x2F);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x2E);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x2E);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SRA reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t!=2) {
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SRA (IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x28);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x29);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x2A);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x2B);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x2C);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x2D);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x2F);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SRA (IX+n),reg8\n");
+ }
+ ae->idx++;
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SRA reg8/(HL)/(IX+n)/(IY+n) or SRA (IX+n),reg8\n");
+ }
+}
+
+
+void _SLL(struct s_assenv *ae) {
+ /* on check qu'il y a un ou deux parametres */
+ if (ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_BC:___output(ae,0xCB);___output(ae,0x31);___output(ae,0xCB);___output(ae,0x10);ae->nop+=4;break; /* SLL C : RL B */
+ case CRC_B:___output(ae,0xCB);___output(ae,0x30);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);___output(ae,0x31);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0xCB);___output(ae,0x33);___output(ae,0xCB);___output(ae,0x12);ae->nop+=4;break; /* SLL E : RL D */
+ case CRC_D:___output(ae,0xCB);___output(ae,0x32);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);___output(ae,0x33);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0xCB);___output(ae,0x35);___output(ae,0xCB);___output(ae,0x14);ae->nop+=4;break; /* SLL L : RL H */
+ case CRC_H:___output(ae,0xCB);___output(ae,0x34);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);___output(ae,0x35);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);___output(ae,0x36);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);___output(ae,0x37);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x36);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x36);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SLL reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t!=2) {
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SLL (IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x30);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x31);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x32);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x33);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x34);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x35);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x37);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SLL (IX+n),reg8\n");
+ }
+ ae->idx++;
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SLL reg8/(HL)/(IX+n)/(IY+n) or SLL (IX+n),reg8\n");
+ }
+}
+
+void _SRL(struct s_assenv *ae) {
+ /* on check qu'il y a un ou deux parametres */
+ if (ae->wl[ae->idx+1].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+1].w)) {
+ case CRC_BC:___output(ae,0xCB);___output(ae,0x38);___output(ae,0xCB);___output(ae,0x11);ae->nop+=4;break; /* SRL B : RL C */
+ case CRC_B:___output(ae,0xCB);___output(ae,0x38);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);___output(ae,0x39);ae->nop+=2;break;
+ case CRC_DE:___output(ae,0xCB);___output(ae,0x3A);___output(ae,0xCB);___output(ae,0x13);ae->nop+=4;break; /* SRL D : RL E */
+ case CRC_D:___output(ae,0xCB);___output(ae,0x3A);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);___output(ae,0x3B);ae->nop+=2;break;
+ case CRC_HL:___output(ae,0xCB);___output(ae,0x3C);___output(ae,0xCB);___output(ae,0x15);ae->nop+=4;break; /* SRL H : RL L */
+ case CRC_H:___output(ae,0xCB);___output(ae,0x3C);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);___output(ae,0x3D);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);___output(ae,0x3E);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);___output(ae,0x3F);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x3E);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);
+ ___output(ae,0x3E);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SRL reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx++;
+ } else if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t!=2) {
+ if (strncmp(ae->wl[ae->idx+1].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+1].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SRL (IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x38);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x39);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x3A);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x3B);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x3C);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x3D);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+1,E_EXPRESSION_IV8);___output(ae,0x3F);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SRL (IX+n),reg8\n");
+ }
+ ae->idx++;
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SRL reg8/(HL)/(IX+n)/(IY+n) or SRL (IX+n),reg8\n");
+ }
+}
+
+
+void _BIT(struct s_assenv *ae) {
+ int o;
+ /* on check qu'il y a deux ou trois parametres
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ o=RoundComputeExpressionCore(ae,ae->wl[ae->idx+1].w,ae->codeadr,0);*/
+
+ o=0;
+ if (o<0 || o>7) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is BIT <value from 0 to 7>,... (%d)\n",o);
+ } else {
+ o=0x40+o*8;
+ if (ae->wl[ae->idx+1].t==0 && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x0+o);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x1+o);ae->nop+=2;break;
+ case CRC_D:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x2+o);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x3+o);ae->nop+=2;break;
+ case CRC_H:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x4+o);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x5+o);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x6+o);ae->nop+=3;break;
+ case CRC_A:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x7+o);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x6+o);
+ ae->nop+=6;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x6+o);
+ ae->nop+=6;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is BIT n,reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx+=2;
+ } else if (!ae->wl[ae->idx+1].t && !ae->wl[ae->idx+2].t && ae->wl[ae->idx+3].t==1) {
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is BIT (IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+3].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x0+o);ae->nop+=6;break;
+ case CRC_C:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x1+o);ae->nop+=6;break;
+ case CRC_D:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x2+o);ae->nop+=6;break;
+ case CRC_E:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x3+o);ae->nop+=6;break;
+ case CRC_H:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x4+o);ae->nop+=6;break;
+ case CRC_L:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x5+o);ae->nop+=6;break;
+ case CRC_A:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x7+o);ae->nop+=6;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is BIT n,(IX+n),reg8\n");
+ }
+ ae->idx+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is BIT n,reg8/(HL)/(IX+n)[,reg8]/(IY+n)[,reg8]\n");
+ }
+ }
+}
+
+void _RES(struct s_assenv *ae) {
+ int o;
+ /* on check qu'il y a deux ou trois parametres
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ o=RoundComputeExpressionCore(ae,ae->wl[ae->idx+1].w,ae->codeadr,0); */
+ o=0;
+ if (o<0 || o>7) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RES <value from 0 to 7>,... (%d)\n",o);
+ } else {
+ o=0x80+o*8;
+ if (ae->wl[ae->idx+1].t==0 && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x0+o);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x1+o);ae->nop+=2;break;
+ case CRC_D:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x2+o);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x3+o);ae->nop+=2;break;
+ case CRC_H:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x4+o);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x5+o);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x6+o);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x7+o);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x6+o);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x6+o);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RES n,reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx+=2;
+ } else if (!ae->wl[ae->idx+1].t && !ae->wl[ae->idx+2].t && ae->wl[ae->idx+3].t==1) {
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RES n,(IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+3].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x0+o);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x1+o);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x2+o);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x3+o);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x4+o);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x5+o);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x7+o);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RES n,(IX+n),reg8\n");
+ }
+ ae->idx+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is RES n,reg8/(HL)/(IX+n)[,reg8]/(IY+n)[,reg8]\n");
+ }
+ }
+}
+
+void _SET(struct s_assenv *ae) {
+ int o;
+ /* on check qu'il y a deux ou trois parametres
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ o=RoundComputeExpressionCore(ae,ae->wl[ae->idx+1].w,ae->codeadr,0); */
+ o=0;
+ if (o<0 || o>7) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SET <value from 0 to 7>,... (%d)\n",o);
+ } else {
+ o=0xC0+o*8;
+ if (ae->wl[ae->idx+1].t==0 && ae->wl[ae->idx+2].t==1) {
+ switch (GetCRC(ae->wl[ae->idx+2].w)) {
+ case CRC_B:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x0+o);ae->nop+=2;break;
+ case CRC_C:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x1+o);ae->nop+=2;break;
+ case CRC_D:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x2+o);ae->nop+=2;break;
+ case CRC_E:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x3+o);ae->nop+=2;break;
+ case CRC_H:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x4+o);ae->nop+=2;break;
+ case CRC_L:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x5+o);ae->nop+=2;break;
+ case CRC_MHL:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x6+o);ae->nop+=4;break;
+ case CRC_A:___output(ae,0xCB);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x7+o);ae->nop+=2;break;
+ default:
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x6+o);
+ ae->nop+=7;
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);___output(ae,0xCB);
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x6+o);
+ ae->nop+=7;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SET n,reg8/(HL)/(IX+n)/(IY+n)\n");
+ }
+ }
+ ae->idx+=2;
+ } else if (!ae->wl[ae->idx+1].t && !ae->wl[ae->idx+2].t && ae->wl[ae->idx+3].t==1) {
+ if (strncmp(ae->wl[ae->idx+2].w,"(IX",3)==0) {
+ ___output(ae,0xDD);
+ } else if (strncmp(ae->wl[ae->idx+2].w,"(IY",3)==0) {
+ ___output(ae,0xFD);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SET n,(IX+n),reg8\n");
+ }
+ ___output(ae,0xCB);
+ switch (GetCRC(ae->wl[ae->idx+3].w)) {
+ case CRC_B:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x0+o);ae->nop+=7;break;
+ case CRC_C:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x1+o);ae->nop+=7;break;
+ case CRC_D:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x2+o);ae->nop+=7;break;
+ case CRC_E:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x3+o);ae->nop+=7;break;
+ case CRC_H:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x4+o);ae->nop+=7;break;
+ case CRC_L:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x5+o);ae->nop+=7;break;
+ case CRC_A:PushExpression(ae,ae->idx+2,E_EXPRESSION_IV8);PushExpression(ae,ae->idx+1,E_EXPRESSION_BRS);___output(ae,0x7+o);ae->nop+=7;break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SET n,(IX+n),reg8\n");
+ }
+ ae->idx+=3;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is SET n,reg8/(HL)/(IX+n)[,reg8]/(IY+n)[,reg8]\n");
+ }
+ }
+}
+
+void _DEFS(struct s_assenv *ae) {
+ int i,r,v;
+ if (ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Syntax is DEFS repeat,value or DEFS repeat\n");
+ } else do {
+ ae->idx++;
+ if (!ae->wl[ae->idx].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0); /* doing FastTranslate but not a complete evaluation */
+ r=RoundComputeExpressionCore(ae,ae->wl[ae->idx].w,ae->codeadr,0);
+ if (r<0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFS size must be greater or equal to zero\n");
+ }
+ for (i=0;i<r;i++) {
+ /* keep flexibility */
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_0V8);
+ ae->nop+=1;
+ }
+ ae->idx++;
+ } else if (ae->wl[ae->idx].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ r=RoundComputeExpressionCore(ae,ae->wl[ae->idx].w,ae->codeadr,0);
+ v=0;
+ if (r<0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFS size must be greater or equal to zero\n");
+ }
+ for (i=0;i<r;i++) {
+ ___output(ae,v);
+ ae->nop+=1;
+ }
+ }
+ } while (!ae->wl[ae->idx].t);
+}
+
+void _DEFS_struct(struct s_assenv *ae) {
+ int i,r,v;
+ if (ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Syntax is DEFS repeat,value or DEFS repeat\n");
+ } else do {
+ ae->idx++;
+ if (!ae->wl[ae->idx].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ r=RoundComputeExpressionCore(ae,ae->wl[ae->idx].w,ae->codeadr,0);
+ v=RoundComputeExpressionCore(ae,ae->wl[ae->idx+1].w,ae->codeadr,0);
+ if (r<0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFS size must be greater or equal to zero\n");
+ }
+ for (i=0;i<r;i++) {
+ ___output(ae,v);
+ ae->nop+=1;
+ }
+ ae->idx++;
+ } else if (ae->wl[ae->idx].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ r=RoundComputeExpressionCore(ae,ae->wl[ae->idx].w,ae->codeadr,0);
+ v=0;
+ if (r<0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFS size must be greater or equal to zero\n");
+ }
+ for (i=0;i<r;i++) {
+ ___output(ae,v);
+ ae->nop+=1;
+ }
+ }
+ } while (!ae->wl[ae->idx].t);
+}
+
+void _STR(struct s_assenv *ae) {
+ unsigned char c;
+ int i,tquote;
+
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ if ((tquote=StringIsQuote(ae->wl[ae->idx].w))!=0) {
+ i=1;
+ while (ae->wl[ae->idx].w[i] && ae->wl[ae->idx].w[i]!=tquote) {
+ if (ae->wl[ae->idx].w[i]=='\\') {
+ i++;
+ /* no conversion on escaped chars */
+ c=ae->wl[ae->idx].w[i];
+ switch (c) {
+ case 'b':c='\b';break;
+ case 'v':c='\v';break;
+ case 'f':c='\f';break;
+ case '0':c='\0';break;
+ case 'r':c='\r';break;
+ case 'n':c='\n';break;
+ case 't':c='\t';break;
+ default:break;
+ }
+ if (ae->wl[ae->idx].w[i+1]!=tquote) {
+ ___output(ae,c);
+ } else {
+ ___output(ae,c|0x80);
+ }
+ } else {
+ /* charset conversion on the fly */
+ if (ae->wl[ae->idx].w[i+1]!=tquote) {
+ ___output(ae,ae->charset[(int)ae->wl[ae->idx].w[i]]);
+ } else {
+ ___output(ae,ae->charset[(int)ae->wl[ae->idx].w[i]]|0x80);
+ }
+ }
+
+ i++;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"STR handle only quoted strings!\n");
+ }
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"STR needs one or more quotes parameters\n");
+ }
+}
+
+void _DEFR(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ PushExpression(ae,ae->idx,E_EXPRESSION_0VR);
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);___output(ae,0);___output(ae,0);___output(ae,0);___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFR needs one or more parameters\n");
+ }
+ }
+}
+void _DEFR_struct(struct s_assenv *ae) {
+ unsigned char *rc;
+ double v;
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ /* conversion des symboles connus */
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ /* calcul de la valeur définitive de l'expression */
+ v=ComputeExpressionCore(ae,ae->wl[ae->idx].w,ae->outputadr,0);
+ /* conversion en réel Amsdos */
+ rc=__internal_MakeAmsdosREAL(ae,v,0);
+ ___output(ae,rc[0]);___output(ae,rc[1]);___output(ae,rc[2]);___output(ae,rc[3]);___output(ae,rc[4]);
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);___output(ae,0);___output(ae,0);___output(ae,0);___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFR needs one or more parameters\n");
+ }
+ }
+}
+
+void _DEFB(struct s_assenv *ae) {
+ int i,tquote;
+ unsigned char c;
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ if ((tquote=StringIsQuote(ae->wl[ae->idx].w))!=0) {
+ i=1;
+ while (ae->wl[ae->idx].w[i] && ae->wl[ae->idx].w[i]!=tquote) {
+ if (ae->wl[ae->idx].w[i]=='\\') {
+ i++;
+ /* no conversion on escaped chars */
+ c=ae->wl[ae->idx].w[i];
+ switch (c) {
+ case 'b':___output(ae,'\b');break;
+ case 'v':___output(ae,'\v');break;
+ case 'f':___output(ae,'\f');break;
+ case '0':___output(ae,'\0');break;
+ case 'r':___output(ae,'\r');break;
+ case 'n':___output(ae,'\n');break;
+ case 't':___output(ae,'\t');break;
+ default:
+ ___output(ae,c);
+ ae->nop+=1;
+ }
+ } else {
+ /* charset conversion on the fly */
+ ___output(ae,ae->charset[(int)ae->wl[ae->idx].w[i]]);
+ ae->nop+=1;
+ }
+ i++;
+ }
+ } else {
+ PushExpression(ae,ae->idx,E_EXPRESSION_0V8);
+ ae->nop+=1;
+ }
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFB needs one or more parameters\n");
+ }
+ }
+}
+void _DEFB_struct(struct s_assenv *ae) {
+ int i,tquote;
+ unsigned char c;
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ if ((tquote=StringIsQuote(ae->wl[ae->idx].w))!=0) {
+ i=1;
+ while (ae->wl[ae->idx].w[i] && ae->wl[ae->idx].w[i]!=tquote) {
+ if (ae->wl[ae->idx].w[i]=='\\') {
+ i++;
+ /* no conversion on escaped chars */
+ c=ae->wl[ae->idx].w[i];
+ switch (c) {
+ case 'b':___output(ae,'\b');break;
+ case 'v':___output(ae,'\v');break;
+ case 'f':___output(ae,'\f');break;
+ case '0':___output(ae,'\0');break;
+ case 'r':___output(ae,'\r');break;
+ case 'n':___output(ae,'\n');break;
+ case 't':___output(ae,'\t');break;
+ default:
+ ___output(ae,c);
+ ae->nop+=1;
+ }
+ } else {
+ /* charset conversion on the fly */
+ ___output(ae,ae->charset[(int)ae->wl[ae->idx].w[i]]);
+ ae->nop+=1;
+ }
+ i++;
+ }
+ } else {
+ int v;
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ v=RoundComputeExpressionCore(ae,ae->wl[ae->idx].w,ae->outputadr,0);
+ ___output(ae,v);
+ ae->nop+=1;
+ }
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFB needs one or more parameters\n");
+ }
+ }
+}
+
+void _DEFW(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ PushExpression(ae,ae->idx,E_EXPRESSION_0V16);
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFW needs one or more parameters\n");
+ }
+ }
+}
+
+void _DEFW_struct(struct s_assenv *ae) {
+ int v;
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ v=RoundComputeExpressionCore(ae,ae->wl[ae->idx].w,ae->outputadr,0);
+ ___output(ae,v&0xFF);___output(ae,(v>>8)&0xFF);
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFW needs one or more parameters\n");
+ }
+ }
+}
+
+void _DEFI(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ PushExpression(ae,ae->idx,E_EXPRESSION_0V32);
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);___output(ae,0);___output(ae,0);___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFI needs one or more parameters\n");
+ }
+ }
+}
+
+void _DEFI_struct(struct s_assenv *ae) {
+ int v;
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ v=RoundComputeExpressionCore(ae,ae->wl[ae->idx].w,ae->outputadr,0);
+ ___output(ae,v&0xFF);___output(ae,(v>>8)&0xFF);___output(ae,(v>>16)&0xFF);___output(ae,(v>>24)&0xFF);
+ } while (ae->wl[ae->idx].t==0);
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);___output(ae,0);___output(ae,0);___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFI needs one or more parameters\n");
+ }
+ }
+}
+
+void _DEFB_as80(struct s_assenv *ae) {
+ int i,tquote;
+ int modadr=0;
+
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ if ((tquote=StringIsQuote(ae->wl[ae->idx].w))!=0) {
+ i=1;
+ while (ae->wl[ae->idx].w[i] && ae->wl[ae->idx].w[i]!=tquote) {
+ if (ae->wl[ae->idx].w[i]=='\\') i++;
+ /* charset conversion on the fly */
+ ___output(ae,ae->charset[(int)ae->wl[ae->idx].w[i]]);
+ ae->nop+=1;
+ ae->codeadr--;modadr++;
+ i++;
+ }
+ } else {
+ PushExpression(ae,ae->idx,E_EXPRESSION_0V8);
+ ae->codeadr--;modadr++;
+ ae->nop+=1;
+ }
+ } while (ae->wl[ae->idx].t==0);
+ ae->codeadr+=modadr;
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFB needs one or more parameters\n");
+ }
+ }
+}
+
+void _DEFW_as80(struct s_assenv *ae) {
+ int modadr=0;
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ PushExpression(ae,ae->idx,E_EXPRESSION_0V16);
+ ae->codeadr-=2;modadr+=2;
+ } while (ae->wl[ae->idx].t==0);
+ ae->codeadr+=modadr;
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFW needs one or more parameters\n");
+ }
+ }
+}
+
+void _DEFI_as80(struct s_assenv *ae) {
+ int modadr=0;
+ if (!ae->wl[ae->idx].t) {
+ do {
+ ae->idx++;
+ PushExpression(ae,ae->idx,E_EXPRESSION_0V32);
+ ae->codeadr-=4;modadr+=4;
+ } while (ae->wl[ae->idx].t==0);
+ ae->codeadr+=modadr;
+ } else {
+ if (ae->getstruct) {
+ ___output(ae,0);___output(ae,0);___output(ae,0);___output(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFI needs one or more parameters\n");
+ }
+ }
+}
+#if 0
+void _DEFSTR(struct s_assenv *ae) {
+ int i,tquote;
+ unsigned char c;
+ if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ if (StringIsQuote(ae->wl[ae->idx+1].w) && StringIsQuote(ae->wl[ae->idx+2].w)) {
+ i=1;
+ while (ae->wl[ae->idx].w[i] && ae->wl[ae->idx].w[i]!=tquote) {
+ if (ae->wl[ae->idx].w[i]=='\\') {
+ i++;
+ /* no conversion on escaped chars */
+ c=ae->wl[ae->idx].w[i];
+ switch (c) {
+ case 'b':___output(ae,'\b');break;
+ case 'v':___output(ae,'\v');break;
+ case 'f':___output(ae,'\f');break;
+ case '0':___output(ae,'\0');break;
+ case 'r':___output(ae,'\r');break;
+ case 'n':___output(ae,'\n');break;
+ case 't':___output(ae,'\t');break;
+ default:
+ ___output(ae,c);
+ }
+ } else {
+ /* charset conversion on the fly */
+ ___output(ae,ae->charset[(int)ae->wl[ae->idx].w[i]]);
+ }
+ i++;
+ }
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFSTR needs two parameters\n");
+ }
+}
+#endif
+
+#undef FUNC
+#define FUNC "Directive CORE"
+
+void __internal_UpdateLZBlockIfAny(struct s_assenv *ae) {
+ /* there was a crunched block opened in the previous bank */
+ if (ae->lz>=0) {
+ //ae->lzsection[ae->ilz-1].iorgzone=ae->io-1;
+ //ae->lzsection[ae->ilz-1].ibank=ae->activebank;
+ }
+ ae->lz=-1;
+}
+
+
+void __AMSDOS(struct s_assenv *ae) {
+ ae->amsdos=1;
+}
+
+void __internal_EXPORT(struct s_assenv *ae, int exportval) {
+ struct s_label *curlabel;
+ struct s_expr_dico *curdic;
+ int ialias,crc,freeflag;
+ char *localname;
+
+ if (ae->wl[ae->idx].t) {
+ /* without parameter enable/disable export */
+ ae->autorise_export=exportval;
+ } else while (!ae->wl[ae->idx].t) {
+ ae->idx++;
+ freeflag=0;
+
+ /* local label */
+ if (ae->wl[ae->idx].w[0]=='.' && ae->lastgloballabel) {
+ localname=MemMalloc(strlen(ae->wl[ae->idx].w)+1+ae->lastgloballabellen);
+ sprintf(localname,"%s%s",ae->lastgloballabel,ae->wl[ae->idx].w);
+ freeflag=1;
+ } else {
+ localname=ae->wl[ae->idx].w;
+ }
+ crc=GetCRC(localname);
+
+ if ((curlabel=SearchLabel(ae,localname,crc))!=NULL) {
+ curlabel->autorise_export=exportval;
+ ae->label[curlabel->backidx].autorise_export=exportval;
+ } else {
+ if ((curdic=SearchDico(ae,ae->wl[ae->idx].w,crc))!=NULL) {
+ curdic->autorise_export=exportval;
+ } else {
+ if ((ialias=SearchAlias(ae,crc,ae->wl[ae->idx].w))!=-1) {
+ ae->alias[ialias].autorise_export=exportval;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"(E)NOEXPORT did not found [%s] in variables, labels or aliases\n",ae->wl[ae->idx].w);
+ }
+ }
+ }
+ if (freeflag) MemFree(localname);
+ }
+}
+void __NOEXPORT(struct s_assenv *ae) {
+ __internal_EXPORT(ae,0);
+}
+void __ENOEXPORT(struct s_assenv *ae) {
+ __internal_EXPORT(ae,1);
+}
+
+void __BUILDZX(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BUILDZX does not need a parameter\n");
+ }
+ if (!ae->forcesnapshot && !ae->forcetape && !ae->forcecpr) {
+ ae->forcezx=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot select ZX output when already in Amstrad cartridge/snapshot/tape output\n");
+ }
+}
+void __BUILDCPR(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BUILDCPR does not need a parameter\n");
+ }
+ if (!ae->forcesnapshot && !ae->forcetape && !ae->forcezx) {
+ ae->forcecpr=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot select Amstrad cartridge output when already in snapshot/tape output\n");
+ }
+}
+void __BUILDSNA(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ if (strcmp(ae->wl[ae->idx+1].w,"V2")==0) {
+ ae->snapshot.version=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BUILDSNA unrecognized option\n");
+ }
+ }
+ if (!ae->forcecpr && !ae->forcetape && !ae->forcezx) {
+ ae->forcesnapshot=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot select snapshot output when already in cartridge/tape output\n");
+ }
+}
+void __BUILDROM(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BUILDROM does not need a parameter\n");
+ }
+ if (!ae->forcesnapshot && !ae->forcetape && !ae->forcezx && !ae->forcecpr) {
+ ae->forceROM=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot select Amstrad ROM output when already in snapshot/tape/zx/cartridge output\n");
+ }
+}
+void __BUILDTAPE(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BUILDTAPE does not need a parameter\n");
+ }
+ if (!ae->forcesnapshot && !ae->forcecpr && !ae->forcezx) {
+ ae->forcetape=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot select tape output when already in snapshot/cartridge output\n");
+ }
+}
+
+
+void __LZ4(struct s_assenv *ae) {
+ struct s_lz_section curlz;
+
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LZ directive does not need any parameter\n");
+ return;
+ }
+ #ifdef NO_3RD_PARTIES
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot use 3rd parties cruncher with this version of RASM\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ FreeAssenv(ae);
+ exit(-5);
+ #endif
+
+ if (ae->lz>=0 && ae->lz<ae->ilz) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot start a new LZ section inside another one (%d)\n",GetCurrentFile(ae),ae->wl[ae->idx].l,ae->lz);
+ FreeAssenv(ae);
+ exit(-5);
+ }
+ curlz.iw=ae->idx;
+ curlz.iorgzone=ae->io-1;
+ curlz.ibank=ae->activebank;
+ curlz.memstart=ae->outputadr;
+ curlz.memend=-1;
+ curlz.lzversion=4;
+ ae->lz=ae->ilz;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->lzsection,&ae->ilz,&ae->mlz,&curlz,sizeof(curlz));
+}
+void __LZX7(struct s_assenv *ae) {
+ struct s_lz_section curlz;
+
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LZ directive does not need any parameter\n");
+ return;
+ }
+ #ifdef NO_3RD_PARTIES
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot use 3rd parties cruncher with this version of RASM\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ FreeAssenv(ae);
+ exit(-5);
+ #endif
+
+ if (ae->lz>=0 && ae->lz<ae->ilz) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot start a new LZ section inside another one (%d)\n",GetCurrentFile(ae),ae->wl[ae->idx].l,ae->lz);
+ FreeAssenv(ae);
+ exit(-5);
+ }
+ curlz.iw=ae->idx;
+ curlz.iorgzone=ae->io-1;
+ curlz.ibank=ae->activebank;
+ curlz.memstart=ae->outputadr;
+ curlz.memend=-1;
+ curlz.lzversion=7;
+ ae->lz=ae->ilz;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->lzsection,&ae->ilz,&ae->mlz,&curlz,sizeof(curlz));
+}
+void __LZEXO(struct s_assenv *ae) {
+ struct s_lz_section curlz;
+
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LZ directive does not need any parameter\n");
+ return;
+ }
+ #ifdef NO_3RD_PARTIES
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot use 3rd parties cruncher with this version of RASM\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ FreeAssenv(ae);
+ exit(-5);
+ #endif
+
+ if (ae->lz>=0 && ae->lz<ae->ilz) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot start a new LZ section inside another one (%d)\n",GetCurrentFile(ae),ae->wl[ae->idx].l,ae->lz);
+ FreeAssenv(ae);
+ exit(-5);
+ }
+ curlz.iw=ae->idx;
+ curlz.iorgzone=ae->io-1;
+ curlz.ibank=ae->activebank;
+ curlz.memstart=ae->outputadr;
+ curlz.memend=-1;
+ curlz.lzversion=8;
+ ae->lz=ae->ilz;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->lzsection,&ae->ilz,&ae->mlz,&curlz,sizeof(curlz));
+}
+void __LZ48(struct s_assenv *ae) {
+ struct s_lz_section curlz;
+
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LZ directive does not need any parameter\n");
+ return;
+ }
+ if (ae->lz>=0 && ae->lz<ae->ilz) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot start a new LZ section inside another one (%d)\n",GetCurrentFile(ae),ae->wl[ae->idx].l,ae->lz);
+ FreeAssenv(ae);
+ exit(-5);
+ }
+ curlz.iw=ae->idx;
+ curlz.iorgzone=ae->io-1;
+ curlz.ibank=ae->activebank;
+ curlz.memstart=ae->outputadr;
+ curlz.memend=-1;
+ curlz.lzversion=48;
+ ae->lz=ae->ilz;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->lzsection,&ae->ilz,&ae->mlz,&curlz,sizeof(curlz));
+}
+void __LZ49(struct s_assenv *ae) {
+ struct s_lz_section curlz;
+
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LZ directive does not need any parameter\n");
+ return;
+ }
+ if (ae->lz>=0 && ae->lz<ae->ilz) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot start a new LZ section inside another one (%d)\n",GetCurrentFile(ae),ae->wl[ae->idx].l,ae->lz);
+ FreeAssenv(ae);
+ exit(-5);
+ }
+
+ curlz.iw=ae->idx;
+ curlz.iorgzone=ae->io-1;
+ curlz.ibank=ae->activebank;
+ curlz.memstart=ae->outputadr;
+ curlz.memend=-1;
+ curlz.lzversion=49;
+ ae->lz=ae->ilz;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->lzsection,&ae->ilz,&ae->mlz,&curlz,sizeof(curlz));
+}
+void __LZCLOSE(struct s_assenv *ae) {
+ if (!ae->ilz || ae->lz==-1) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot close LZ section as it wasn't opened\n");
+ return;
+ }
+
+ ae->lzsection[ae->ilz-1].memend=ae->outputadr;
+ ae->lzsection[ae->ilz-1].ilabel=ae->il;
+ ae->lzsection[ae->ilz-1].iexpr=ae->ie;
+ //ae->lz=ae->ilz;
+ ae->lz=-1;
+}
+
+void __LIMIT(struct s_assenv *ae) {
+ if (ae->wl[ae->idx+1].t!=2) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ___output_set_limit(ae,RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->outputadr,0,0));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LIMIT directive need one integer parameter\n");
+ }
+}
+void OverWriteCheck(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "OverWriteCheck"
+
+ int i,j;
+
+ /* overwrite checking */
+ i=ae->io-1; {
+ if (ae->orgzone[i].memstart!=ae->orgzone[i].memend) {
+ for (j=0;j<ae->io-1;j++) {
+ if (ae->orgzone[j].memstart!=ae->orgzone[j].memend && !ae->orgzone[j].nocode) {
+ if (ae->orgzone[i].ibank==ae->orgzone[j].ibank) {
+ if ((ae->orgzone[i].memstart>=ae->orgzone[j].memstart && ae->orgzone[i].memstart<ae->orgzone[j].memend)
+ || (ae->orgzone[i].memend>ae->orgzone[j].memstart && ae->orgzone[i].memend<ae->orgzone[j].memend)
+ || (ae->orgzone[i].memstart<=ae->orgzone[j].memstart && ae->orgzone[i].memend>=ae->orgzone[j].memend)) {
+ ae->idx--;
+ if (ae->orgzone[j].protect) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"PROTECTED section error [%s] L%d [#%04X-#%04X-B%d] with [%s] L%d [#%04X/#%04X]\n",ae->filename[ae->orgzone[j].ifile],ae->orgzone[j].iline,ae->orgzone[j].memstart,ae->orgzone[j].memend,ae->orgzone[j].ibank<32?ae->orgzone[j].ibank:0,ae->filename[ae->orgzone[i].ifile],ae->orgzone[i].iline,ae->orgzone[i].memstart,ae->orgzone[i].memend);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Assembling overwrite [%s] L%d [#%04X-#%04X-B%d] with [%s] L%d [#%04X/#%04X]\n",ae->filename[ae->orgzone[j].ifile],ae->orgzone[j].iline,ae->orgzone[j].memstart,ae->orgzone[j].memend,ae->orgzone[j].ibank<32?ae->orgzone[j].ibank:0,ae->filename[ae->orgzone[i].ifile],ae->orgzone[i].iline,ae->orgzone[i].memstart,ae->orgzone[i].memend);
+ }
+ i=j=ae->io;
+ break;
+ }
+ }
+ }
+ }
+ }
+ }
+}
+
+void ___new_memory_space(struct s_assenv *ae)
+{
+ #undef FUNC
+ #define FUNC "___new_memory_space"
+
+ unsigned char *mem;
+ struct s_orgzone orgzone={0};
+
+ __internal_UpdateLZBlockIfAny(ae);
+ if (ae->io) {
+ ae->orgzone[ae->io-1].memend=ae->outputadr;
+ }
+ if (ae->lz>=0) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: LZ section wasn't closed before a new memory space directive\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ __LZCLOSE(ae);
+ }
+ ae->activebank=ae->nbbank;
+ mem=MemMalloc(65536);
+ memset(mem,0,65536);
+ ObjectArrayAddDynamicValueConcat((void**)&ae->mem,&ae->nbbank,&ae->maxbank,&mem,sizeof(mem));
+
+ ae->outputadr=0;
+ ae->codeadr=0;
+ orgzone.memstart=0;
+ orgzone.ibank=ae->activebank;
+ orgzone.nocode=ae->nocode=0;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->orgzone,&ae->io,&ae->mo,&orgzone,sizeof(orgzone));
+
+ OverWriteCheck(ae);
+}
+
+void __BANK(struct s_assenv *ae) {
+ struct s_orgzone orgzone={0};
+ int oldcode=0,oldoutput=0;
+ int i;
+ __internal_UpdateLZBlockIfAny(ae);
+
+ if (ae->io) {
+ ae->orgzone[ae->io-1].memend=ae->outputadr;
+ }
+ /* without parameter, create a new empty space */
+ if (ae->wl[ae->idx].t==1) {
+ ___new_memory_space(ae);
+ return;
+ }
+
+ ae->bankmode=1;
+ if (!ae->forceROM && !ae->forcecpr && !ae->forcesnapshot && !ae->forcezx) ae->forcecpr=1;
+
+ if (ae->wl[ae->idx+1].t!=2) {
+ if (strcmp(ae->wl[ae->idx+1].w,"NEXT")==0) {
+ /* are we in a temporary space or in the very last bank? */
+ if (ae->activebank>=260-1) {
+ ___new_memory_space(ae);
+ return;
+ }
+ /* switch to next bank! */
+ ae->activebank++;
+ } else {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ae->activebank=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ }
+ if (ae->forcecpr && (ae->activebank<0 || ae->activebank>31)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"FATAL - Bank selection must be from 0 to 31 in cartridge mode\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ FreeAssenv(ae);
+ exit(2);
+ } else if (ae->forcezx && (ae->activebank<0 || ae->activebank>7)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"FATAL - Bank selection must be from 0 to 7 in ZX Spectrum mode\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ FreeAssenv(ae);
+ exit(2);
+ } else if (ae->forceROM && (ae->activebank<0 || ae->activebank>=256)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"FATAL - Bank selection must be from 0 to 255 in ROM mode\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ FreeAssenv(ae);
+ exit(2);
+ } else if (ae->forcesnapshot && (ae->activebank<0 || ae->activebank>=260)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"FATAL - Bank selection must be from 0 to 259 in snapshot mode\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ FreeAssenv(ae);
+ exit(2);
+ }
+ /* bankset control */
+ if (ae->forcesnapshot && ae->bankset[ae->activebank/4]) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot BANK %d was already select by a previous BANKSET %d\n",ae->activebank,(int)ae->activebank/4);
+ ae->idx++;
+ return;
+ } else {
+ ae->bankused[ae->activebank]=1;
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BANK directive need one integer parameter\n");
+ return;
+ }
+ if (ae->lz>=0) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: LZ section wasn't closed before a new BANK directive\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ __LZCLOSE(ae);
+ }
+
+ /* try to get an old ORG settings backward */
+ for (i=ae->io-1;i>=0;i--) {
+ if (ae->orgzone[i].ibank==ae->activebank) {
+ oldcode=ae->orgzone[i].memend;
+ oldoutput=ae->orgzone[i].memend;
+ break;
+ }
+ }
+ ae->outputadr=oldoutput;
+ ae->codeadr=oldcode;
+ orgzone.memstart=ae->outputadr;
+ /* legacy */
+ orgzone.ibank=ae->activebank;
+ orgzone.nocode=ae->nocode=0;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->orgzone,&ae->io,&ae->mo,&orgzone,sizeof(orgzone));
+
+ OverWriteCheck(ae);
+}
+
+void __BANKSET(struct s_assenv *ae) {
+ struct s_orgzone orgzone={0};
+ int ibank;
+
+ __internal_UpdateLZBlockIfAny(ae);
+
+ if (!ae->forcesnapshot && !ae->forcecpr && !ae->forcezx) ae->forcesnapshot=1;
+ if (!ae->forcesnapshot) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BANKSET directive is specific to snapshot output\n");
+ return;
+ }
+
+ if (ae->io) {
+ ae->orgzone[ae->io-1].memend=ae->outputadr;
+ }
+ ae->bankmode=1;
+
+ if (ae->wl[ae->idx+1].t!=2) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ae->activebank=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ ae->activebank*=4;
+ if (ae->forcesnapshot && (ae->activebank<0 || ae->activebank>=260)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"FATAL - Bank set selection must be from 0 to 64 in snapshot mode\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ FreeAssenv(ae);
+ exit(2);
+ }
+ /* control */
+ ibank=ae->activebank;
+ if (ae->bankused[ibank] || ae->bankused[ibank+1]|| ae->bankused[ibank+2]|| ae->bankused[ibank+3]) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot BANKSET because bank %d was already selected in single page mode\n",ibank);
+ ae->idx++;
+ return;
+ } else {
+ ae->bankset[ae->activebank/4]=1; /* pas très heureux mais bon... */
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BANKSET directive need one integer parameter\n");
+ return;
+ }
+ if (ae->lz>=0) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: LZ section wasn't closed before a new BANKSET directive\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ __LZCLOSE(ae);
+ }
+
+ ae->outputadr=0;
+ ae->codeadr=0;
+ orgzone.memstart=0;
+ orgzone.ibank=ae->activebank;
+ orgzone.nocode=ae->nocode=0;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->orgzone,&ae->io,&ae->mo,&orgzone,sizeof(orgzone));
+
+ OverWriteCheck(ae);
+}
+
+
+void __NameBANK(struct s_assenv *ae) {
+ int ibank;
+
+ ae->bankmode=1;
+ if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ if (!StringIsQuote(ae->wl[ae->idx+2].w)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Syntax is NAMEBANK <bank number>,'<string>'\n");
+ } else {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ibank=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ if (ibank<0 || ibank>=BANK_MAX_NUMBER) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"NAMEBANK selection must be from 0 to %d\n",BANK_MAX_NUMBER);
+ } else {
+ ae->iwnamebank[ibank]=ae->idx+2;
+ }
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"NAMEBANK directive need one integer parameter and a string\n");
+ }
+}
+
+/***
+ Winape little compatibility for CPR writing!
+*/
+void __WRITE(struct s_assenv *ae) {
+ int ok=0;
+ int lower=-1,upper=-1,bank=-1;
+
+ if (!ae->wl[ae->idx].t && strcmp(ae->wl[ae->idx+1].w,"DIRECT")==0 && !ae->wl[ae->idx+1].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+2].w,0);
+ lower=RoundComputeExpression(ae,ae->wl[ae->idx+2].w,ae->codeadr,0,0);
+ if (!ae->wl[ae->idx+2].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+3].w,0);
+ upper=RoundComputeExpression(ae,ae->wl[ae->idx+3].w,ae->codeadr,0,0);
+ }
+ if (!ae->wl[ae->idx+3].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+4].w,0);
+ bank=RoundComputeExpression(ae,ae->wl[ae->idx+4].w,ae->codeadr,0,0);
+ }
+
+ if (ae->maxam) {
+ if (lower==65535) lower=-1;
+ if (upper==65535) upper=-1;
+ if (bank==65535) bank=-1;
+ }
+
+ if (lower!=-1) {
+ if (lower>=0 && lower<8) {
+ ae->idx+=1;
+ __BANK(ae);
+ ok=1;
+ } else {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: WRITE DIRECT lower ROM ignored (value %d out of bounds 0-7)\n",GetCurrentFile(ae),ae->wl[ae->idx].l,lower);
+ }
+ } else if (upper!=-1) {
+ if (upper>=0 && ((ae->forcecpr && upper<32) || (ae->forcesnapshot && upper<BANK_MAX_NUMBER))) {
+ ae->idx+=2;
+ __BANK(ae);
+ ok=1;
+ } else {
+ if (!ae->forcecpr && !ae->forcesnapshot) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: WRITE DIRECT select a ROM without cartridge output\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ } else {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: WRITE DIRECT upper ROM ignored (value %d out of bounds 0-31)\n",GetCurrentFile(ae),ae->wl[ae->idx].l,upper);
+ }
+ }
+ } else if (bank!=-1) {
+ /* selection de bank on ouvre un nouvel espace */
+ } else {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: meaningless WRITE DIRECT\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ }
+ }
+ while (!ae->wl[ae->idx].t) ae->idx++;
+ if (!ok) {
+ ___new_memory_space(ae);
+ }
+}
+void __CHARSET(struct s_assenv *ae) {
+ int i,s,e,v,tquote;
+
+ if (ae->wl[ae->idx].t==1) {
+ /* reinit charset */
+ for (i=0;i<256;i++)
+ ae->charset[i]=i;
+ } else if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ /* string,value | byte,value */
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+2].w,0);
+ v=RoundComputeExpression(ae,ae->wl[ae->idx+2].w,ae->codeadr,0,0);
+ if (ae->wl[ae->idx+1].w[0]=='\'' || ae->wl[ae->idx+1].w[0]=='"') {
+ tquote=ae->wl[ae->idx+1].w[0];
+ if (ae->wl[ae->idx+1].w[strlen(ae->wl[ae->idx+1].w)-1]==tquote) {
+ i=1;
+ while (ae->wl[ae->idx+1].w[i] && ae->wl[ae->idx+1].w[i]!=tquote) {
+ if (ae->wl[ae->idx+1].w[i]=='\\') i++;
+ ae->charset[(int)ae->wl[ae->idx+1].w[i]]=(unsigned char)v++;
+ i++;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CHARSET string,value has invalid quote!\n");
+ }
+ } else {
+ i=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ if (i>=0 && i<256) {
+ ae->charset[i]=(unsigned char)v;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CHARSET byte value must be 0-255\n");
+ }
+ }
+ ae->idx+=2;
+ } else if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && !ae->wl[ae->idx+2].t && ae->wl[ae->idx+3].t==1) {
+ /* start,end,value */
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+2].w,0);
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+3].w,0);
+ s=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ e=RoundComputeExpression(ae,ae->wl[ae->idx+2].w,ae->codeadr,0,0);
+ v=RoundComputeExpression(ae,ae->wl[ae->idx+3].w,ae->codeadr,0,0);
+ ae->idx+=3;
+ if (s<=e && s>=0 && e<256) {
+ for (i=s;i<=e;i++) {
+ ae->charset[i]=(unsigned char)v++;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CHARSET winape directive wrong interval value\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CHARSET winape directive wrong parameter count\n");
+ }
+}
+
+void __MACRO(struct s_assenv *ae) {
+ struct s_macro curmacro={0};
+ char *referentfilename,*zeparam;
+ int refidx,idx,getparam=1;
+ struct s_wordlist curwl;
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t!=2) {
+ /* get the name */
+ curmacro.mnemo=ae->wl[ae->idx+1].w;
+ curmacro.crc=GetCRC(curmacro.mnemo);
+ if (ae->wl[ae->idx+1].t) {
+ getparam=0;
+ }
+ /* overload forbidden */
+ if (SearchMacro(ae,curmacro.crc,curmacro.mnemo)>=0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Macro already defined with this name\n");
+ }
+ idx=ae->idx+2;
+ while (ae->wl[idx].t!=2 && (GetCRC(ae->wl[idx].w)!=CRC_MEND || strcmp(ae->wl[idx].w,"MEND")!=0) && (GetCRC(ae->wl[idx].w)!=CRC_ENDM || strcmp(ae->wl[idx].w,"ENDM")!=0)) {
+ if (GetCRC(ae->wl[idx].w)==CRC_MACRO || strcmp(ae->wl[idx].w,"MACRO")==0) {
+ /* inception interdite */
+ referentfilename=GetCurrentFile(ae);
+ refidx=ae->idx;
+ ae->idx=idx;
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"You cannot define a macro inside another one (MACRO %s in [%s] L%d)\n",ae->wl[refidx+1].w,referentfilename,ae->wl[refidx].l);
+ __STOP(ae);
+ }
+ if (getparam) {
+ /* on prepare les parametres au remplacement */
+ zeparam=MemMalloc(strlen(ae->wl[idx].w)+3);
+ if (ae->as80) {
+ sprintf(zeparam,"%s",ae->wl[idx].w);
+ } else {
+ sprintf(zeparam,"{%s}",ae->wl[idx].w);
+ }
+ curmacro.nbparam++;
+ curmacro.param=MemRealloc(curmacro.param,curmacro.nbparam*sizeof(char **));
+ curmacro.param[curmacro.nbparam-1]=zeparam;
+ if (ae->wl[idx].t) {
+ /* duplicate parameters without brackets MUST be an OPTION */
+ getparam=0;
+ }
+ } else {
+ /* copie la liste de mots */
+ curwl=ae->wl[idx];
+ ObjectArrayAddDynamicValueConcat((void **)&curmacro.wc,&curmacro.nbword,&curmacro.maxword,&curwl,sizeof(struct s_wordlist));
+ }
+ idx++;
+ }
+ if (ae->wl[idx].t==2) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Macro was not closed\n");
+ }
+ ObjectArrayAddDynamicValueConcat((void**)&ae->macro,&ae->imacro,&ae->mmacro,&curmacro,sizeof(curmacro));
+ /* le quicksort n'est pas optimal mais on n'est pas supposé en créer des milliers */
+ qsort(ae->macro,ae->imacro,sizeof(struct s_macro),cmpmacros);
+
+ /* ajustement des mots lus */
+ if (ae->wl[idx].t==2) idx--;
+ ae->idx=idx;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"MACRO definition need at least one parameter\n");
+ }
+}
+
+struct s_wordlist *__MACRO_EXECUTE(struct s_assenv *ae, int imacro) {
+ struct s_wordlist *cpybackup;
+ int nbparam=0,idx,i,j,idad;
+ int ifile,iline,iu,lenparam;
+ double v;
+ struct s_macro_position curmacropos={0};
+ char *zeparam=NULL,*txtparamlist;
+ int reload=0;
+
+ idx=ae->idx;
+ while (!ae->wl[idx].t) {
+ nbparam++;
+ idx++;
+ }
+
+ /* hack to secure macro without parameters with void argument */
+ if (!ae->macro[imacro].nbparam) {
+ if (nbparam) {
+ if (nbparam==1 && strcmp(ae->wl[ae->idx+1].w,"(VOID)")==0) {
+ nbparam=0;
+ reload=1;
+ }
+ } else {
+ if (ae->macrovoid) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"MACRO [%s] used without (void) and option -void used!\n",ae->macro[imacro].mnemo);
+ while (!ae->wl[ae->idx].t) {
+ ae->idx++;
+ }
+ ae->idx++;
+ }
+ }
+ }
+ /* macro must avoid extra params! */
+
+ /* cannot VOID a macro with parameters! */
+ if (ae->macro[imacro].nbparam && strcmp(ae->wl[ae->idx+1].w,"(VOID)")==0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"MACRO [%s] has %d parameter%s\n",ae->macro[imacro].mnemo,ae->macro[imacro].nbparam,ae->macro[imacro].nbparam>1?"s":"");
+ while (!ae->wl[ae->idx].t) {
+ ae->idx++;
+ }
+ ae->idx++;
+ } else {
+ if (nbparam!=ae->macro[imacro].nbparam) {
+ lenparam=1; // macro without parameters!
+ for (i=0;i<ae->macro[imacro].nbparam;i++) {
+ lenparam+=strlen(ae->macro[imacro].param[i])+3;
+ }
+ txtparamlist=MemMalloc(lenparam);
+ txtparamlist[0]=0;
+ for (i=0;i<ae->macro[imacro].nbparam;i++) {
+ strcat(txtparamlist,ae->macro[imacro].param[i]);
+ strcat(txtparamlist," ");
+ }
+
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"MACRO [%s] was defined with %d parameter%s %s\n",ae->macro[imacro].mnemo,ae->macro[imacro].nbparam,ae->macro[imacro].nbparam>1?"s":"",txtparamlist);
+ while (!ae->wl[ae->idx].t) {
+ ae->idx++;
+ }
+ ae->idx++;
+ } else {
+ /* free macro call as we will overwrite it */
+ MemFree(ae->wl[ae->idx].w);
+ /* is there a void to free? */
+ if (reload) {
+ MemFree(ae->wl[ae->idx+1].w);
+ }
+ /* eval parameters? */
+ for (i=0;i<nbparam;i++) {
+ if (strncmp(ae->wl[ae->idx+1+i].w,"{EVAL}",6)==0) {
+ /* parametre entre chevrons, il faut l'interpreter d'abord */
+ zeparam=TxtStrDup(ae->wl[ae->idx+1+i].w+6);
+ ExpressionFastTranslate(ae,&zeparam,1);
+ v=ComputeExpressionCore(ae,zeparam,ae->codeadr,0);
+ MemFree(zeparam);
+ zeparam=MemMalloc(32);
+ snprintf(zeparam,31,"%lf",v);
+ zeparam[31]=0;
+ MemFree(ae->wl[ae->idx+1+i].w);
+ ae->wl[ae->idx+1+i].w=zeparam;
+ }
+ }
+ /* backup parameters */
+ cpybackup=MemMalloc((nbparam+1)*sizeof(struct s_wordlist));
+ for (i=0;i<nbparam;i++) {
+ cpybackup[i]=ae->wl[ae->idx+1+i];
+ }
+ /* insert macro position */
+ curmacropos.start=ae->idx;
+ curmacropos.end=ae->idx+ae->macro[imacro].nbword;
+ curmacropos.value=ae->macrocounter;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->macropos,&ae->imacropos,&ae->mmacropos,&curmacropos,sizeof(curmacropos));
+
+ /* are we in a repeat/while block? */
+ for (iu=0;iu<ae->ir;iu++) if (ae->repeat[iu].maxim<ae->imacropos) ae->repeat[iu].maxim=ae->imacropos;
+ for (iu=0;iu<ae->iw;iu++) if (ae->whilewend[iu].maxim<ae->imacropos) ae->whilewend[iu].maxim=ae->imacropos;
+
+ /* update daddy macropos */
+ for (idad=0;idad<ae->imacropos-1;idad++) {
+ if (ae->macropos[idad].end>curmacropos.start) {
+ ae->macropos[idad].end+=ae->macro[imacro].nbword-1-nbparam-reload; /* coz la macro compte un mot! */
+ }
+ }
+
+ #if 0
+ for (idad=0;idad<ae->imacropos;idad++) {
+ printf("macropos[%d]=%d -> %d\n",idad,ae->macropos[idad].start,ae->macropos[idad].end);
+ }
+ #endif
+ /* insert at macro position and replace macro+parameters */
+ if (ae->macro[imacro].nbword>1+nbparam+reload) {
+ ae->nbword+=ae->macro[imacro].nbword-1-nbparam-reload;
+ ae->wl=MemRealloc(ae->wl,ae->nbword*sizeof(struct s_wordlist));
+ } else {
+ /* si on réduit pas de realloc pour ne pas perdre de donnees */
+ ae->nbword+=ae->macro[imacro].nbword-1-nbparam-reload;
+ }
+ iline=ae->wl[ae->idx].l;
+ ifile=ae->wl[ae->idx].ifile;
+ MemMove(&ae->wl[ae->idx+ae->macro[imacro].nbword],&ae->wl[ae->idx+reload+nbparam+1],(ae->nbword-ae->idx-ae->macro[imacro].nbword)*sizeof(struct s_wordlist));
+
+ for (i=0;i<ae->macro[imacro].nbword;i++) {
+ ae->wl[i+ae->idx].w=TxtStrDup(ae->macro[imacro].wc[i].w);
+ ae->wl[i+ae->idx].l=iline;
+ ae->wl[i+ae->idx].ifile=ifile;
+ /* @@@sujet a evolution, ou double controle */
+ ae->wl[i+ae->idx].t=ae->macro[imacro].wc[i].t;
+ ae->wl[i+ae->idx].e=ae->macro[imacro].wc[i].e;
+ }
+ /* replace */
+ idx=ae->idx;
+ for (i=0;i<nbparam;i++) {
+ for (j=idx;j<idx+ae->macro[imacro].nbword;j++) {
+ /* tags in upper case for replacement in quotes */
+ if (StringIsQuote(ae->wl[j].w)) {
+ int lm,touched;
+ for (lm=touched=0;ae->wl[j].w[lm];lm++) {
+ if (ae->wl[j].w[lm]=='{') touched++; else if (ae->wl[j].w[lm]=='}') touched--; else if (touched) ae->wl[j].w[lm]=toupper(ae->wl[j].w[lm]);
+ }
+ }
+ ae->wl[j].w=TxtReplace(ae->wl[j].w,ae->macro[imacro].param[i],cpybackup[i].w,0);
+ }
+ MemFree(cpybackup[i].w);
+ }
+ MemFree(cpybackup);
+ /* macro replaced, need to rollback index */
+ //ae->idx--;
+ }
+ }
+ /* a chaque appel de macro on incremente le compteur pour les labels locaux */
+ ae->macrocounter++;
+
+ return ae->wl;
+}
+
+/*
+ ticker start, <var>
+ ticker stop, <var>
+*/
+void __TICKER(struct s_assenv *ae) {
+ struct s_expr_dico *tvar;
+ struct s_ticker ticker;
+ int crc,i;
+
+ if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ crc=GetCRC(ae->wl[ae->idx+2].w);
+
+ if (strcmp(ae->wl[ae->idx+1].w,"START")==0) {
+ /* is there already a counter? */
+ for (i=0;i<ae->iticker;i++) {
+ if (ae->ticker[i].crc==crc && strcmp(ae->wl[ae->idx+2].w,ae->ticker[i].varname)==0) {
+ break;
+ }
+ }
+ if (i==ae->iticker) {
+ ticker.varname=TxtStrDup(ae->wl[ae->idx+2].w);
+ ticker.crc=crc;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ticker,&ae->iticker,&ae->mticker,&ticker,sizeof(struct s_ticker));
+ }
+ ae->ticker[i].nopstart=ae->nop;
+ } else if (strcmp(ae->wl[ae->idx+1].w,"STOP")==0) {
+ for (i=0;i<ae->iticker;i++) {
+ if (ae->ticker[i].crc==crc && strcmp(ae->wl[ae->idx+2].w,ae->ticker[i].varname)==0) {
+ break;
+ }
+ }
+ if (i<ae->iticker) {
+ /* set var */
+ if ((tvar=SearchDico(ae,ae->wl[ae->idx+2].w,crc))!=NULL) {
+ /* compute nop count */
+ tvar->v=ae->nop-ae->ticker[i].nopstart;
+ } else {
+ /* create var with nop count */
+ ExpressionSetDicoVar(ae,ae->wl[ae->idx+2].w,ae->nop-ae->ticker[i].nopstart);
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"TICKER not found\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"usage is TICKER start/stop,<variable>\n");
+ }
+ ae->idx+=2;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"usage is TICKER start/stop,<variable>\n");
+ }
+}
+
+void __LET(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ae->idx++;
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx].w,0);
+ RoundComputeExpression(ae,ae->wl[ae->idx].w,ae->codeadr,0,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LET useless winape directive need one expression\n");
+ }
+}
+
+void __RUN(struct s_assenv *ae) {
+ int ramconf=0xC0;
+
+ if (!ae->wl[ae->idx].t) {
+ ae->current_run_idx=ae->idx+1;
+ if (ae->forcezx) {
+ if (!ae->wl[ae->idx].t) {
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_ZXRUN); // delayed RUN value
+ PushExpression(ae,ae->idx+2,E_EXPRESSION_ZXSTACK); // delayed STACK value
+ ae->idx+=2;
+ } else {
+ ae->idx++;
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"usage is RUN <adress>,<stack> (ZX mode)\n");
+ }
+ } else {
+ PushExpression(ae,ae->idx+1,E_EXPRESSION_RUN); // delayed RUN value
+ ae->idx++;
+ if (!ae->wl[ae->idx].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ramconf=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ ae->idx++;
+ if (ramconf<0xC0 || ramconf>0xFF) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: ram configuration out of bound %X forced to #C0\n",GetCurrentFile(ae),ae->wl[ae->idx].l,ramconf);
+ }
+ }
+ }
+ } else {
+ if (ae->forcezx) MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"usage is RUN <adress>,<stack> (ZX mode)\n");
+ else MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"usage is RUN <adress>[,<ppi>]\n");
+ }
+ ae->snapshot.ramconfiguration=ramconf;
+ if (ae->rundefined && !ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: run adress redefinition\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ ae->rundefined=1;
+}
+void __BREAKPOINT(struct s_assenv *ae) {
+ struct s_breakpoint breakpoint={0};
+
+ if (ae->activebank>3) breakpoint.bank=1;
+ if (ae->wl[ae->idx].t) {
+ breakpoint.address=ae->codeadr;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->breakpoint,&ae->ibreakpoint,&ae->maxbreakpoint,&breakpoint,sizeof(struct s_breakpoint));
+ } else if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ breakpoint.address=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ ObjectArrayAddDynamicValueConcat((void **)&ae->breakpoint,&ae->ibreakpoint,&ae->maxbreakpoint,&breakpoint,sizeof(struct s_breakpoint));
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is BREAKPOINT [adress]\n");
+ }
+}
+void __SETCPC(struct s_assenv *ae) {
+ int mycpc;
+
+ if (!ae->forcecpr) {
+ ae->forcesnapshot=1;
+ } else {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: Cannot SETCPC when already in cartridge output\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ }
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ mycpc=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ ae->idx++;
+ switch (mycpc) {
+ case 0:
+ case 1:
+ case 2:
+ case 4:
+ case 5:
+ case 6:
+ ae->snapshot.CPCType=mycpc;
+ break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"SETCPC directive has wrong value (0,1,2,4,5,6 only)\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"SETCPC directive need one integer parameter\n");
+ }
+}
+void __SETCRTC(struct s_assenv *ae) {
+ int mycrtc;
+
+ if (!ae->forcecpr) {
+ ae->forcesnapshot=1;
+ } else {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: Cannot SETCRTC when already in cartridge output\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ }
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ mycrtc=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"SETCRTC directive need one integer parameter\n");
+ }
+ switch (mycrtc) {
+ case 0:
+ case 1:
+ case 2:
+ case 3:
+ case 4:
+ ae->snapshot.crtcstate.model=mycrtc;
+ break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"SETCRTC directive has wrong value (0,1,2,3,4 only)\n");
+ }
+}
+
+
+void __LIST(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"LIST winape directive do not need parameter\n");
+ }
+}
+void __NOLIST(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"NOLIST winape directive do not need parameter\n");
+ }
+}
+
+void __BRK(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BRK winape directive do not need parameter\n");
+ }
+}
+
+void __STOP(struct s_assenv *ae) {
+ rasm_printf(ae,"[%s:%d] STOP assembling requested\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ while (ae->wl[ae->idx].t!=2) ae->idx++;
+ ae->idx--;
+ ae->stop=1;
+}
+
+void __PRINT(struct s_assenv *ae) {
+ while (ae->wl[ae->idx].t!=1) {
+ if (!StringIsQuote(ae->wl[ae->idx+1].w)) {
+ char *string2print=NULL;
+ int hex=0,bin=0,entier=0;
+
+ if (strncmp(ae->wl[ae->idx+1].w,"{HEX}",5)==0) {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w+5);
+ hex=1;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"{HEX2}",6)==0) {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w+6);
+ hex=2;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"{HEX4}",6)==0) {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w+6);
+ hex=4;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"{HEX8}",6)==0) {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w+6);
+ hex=8;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"{BIN}",5)==0) {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w+5);
+ bin=1;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"{BIN8}",6)==0) {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w+6);
+ bin=8;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"{BIN16}",7)==0) {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w+7);
+ bin=16;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"{BIN32}",7)==0) {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w+7);
+ bin=32;
+ } else if (strncmp(ae->wl[ae->idx+1].w,"{INT}",5)==0) {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w+5);
+ entier=1;
+ } else {
+ string2print=TxtStrDup(ae->wl[ae->idx+1].w);
+ }
+
+ ExpressionFastTranslate(ae,&string2print,1);
+ if (hex) {
+ int zv;
+ zv=RoundComputeExpressionCore(ae,string2print,ae->codeadr,0);
+ switch (hex) {
+ case 1:
+ if (zv&0xFFFFFF00) {
+ if (zv&0xFFFF0000) {
+ rasm_printf(ae,"#%-8.08X ",zv);
+ } else {
+ rasm_printf(ae,"#%-4.04X ",zv);
+ }
+ } else {
+ rasm_printf(ae,"#%-2.02X ",zv);
+ }
+ break;
+ case 2:rasm_printf(ae,"#%-2.02X ",zv);break;
+ case 4:rasm_printf(ae,"#%-4.04X ",zv);break;
+ case 8:rasm_printf(ae,"#%-8.08X ",zv);break;
+ }
+ } else if (bin) {
+ int zv,d;
+ zv=RoundComputeExpressionCore(ae,string2print,ae->codeadr,0);
+ /* remove useless sign bits */
+ if (bin<32 && (zv&0xFFFF0000)==0xFFFF0000) {
+ zv&=0xFFFF;
+ }
+ switch (bin) {
+ case 1:if (zv&0xFF00) d=15; else d=7;break;
+ case 8:d=7;break;
+ case 16:d=15;break;
+ case 32:d=31;break;
+ }
+ rasm_printf(ae,"%%");
+ for (;d>=0;d--) {
+ if ((zv>>d)&1) rasm_printf(ae,"1"); else rasm_printf(ae,"0");
+ }
+ rasm_printf(ae," ");
+ } else if (entier) {
+ rasm_printf(ae,"%d ",(int)RoundComputeExpressionCore(ae,string2print,ae->codeadr,0));
+ } else {
+ rasm_printf(ae,"%.2lf ",ComputeExpressionCore(ae,string2print,ae->codeadr,0));
+ }
+ MemFree(string2print);
+ } else {
+ char *varbuffer;
+ int lm,touched;
+ lm=strlen(ae->wl[ae->idx+1].w)-2;
+ if (lm) {
+ varbuffer=MemMalloc(lm+2);
+ sprintf(varbuffer,"%-*.*s ",lm,lm,ae->wl[ae->idx+1].w+1);
+ /* need to upper case tags */
+ for (lm=touched=0;varbuffer[lm];lm++) {
+ if (varbuffer[lm]=='{') touched++; else if (varbuffer[lm]=='}') touched--; else if (touched) varbuffer[lm]=toupper(varbuffer[lm]);
+ }
+ /* translate tag will check tag consistency */
+ varbuffer=TranslateTag(ae,varbuffer,&touched,1,E_TAGOPTION_REMOVESPACE);
+ varbuffer=TxtReplace(varbuffer,"\\b","\b",0);
+ varbuffer=TxtReplace(varbuffer,"\\v","\v",0);
+ varbuffer=TxtReplace(varbuffer,"\\f","\f",0);
+ varbuffer=TxtReplace(varbuffer,"\\r","\r",0);
+ varbuffer=TxtReplace(varbuffer,"\\n","\n",0);
+ varbuffer=TxtReplace(varbuffer,"\\t","\t",0);
+ rasm_printf(ae,"%s ",varbuffer);
+ MemFree(varbuffer);
+ }
+ }
+ ae->idx++;
+ }
+ rasm_printf(ae,"\n");
+}
+
+void __FAIL(struct s_assenv *ae) {
+ __PRINT(ae);
+ __STOP(ae);
+ MaxError(ae);
+}
+
+void __ALIGN(struct s_assenv *ae) {
+ int aval,ifill=-1;
+
+ if (ae->io) {
+ ae->orgzone[ae->io-1].memend=ae->outputadr;
+ }
+ if (!ae->wl[ae->idx].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ aval=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ ae->idx++;
+ /* align with fill ? */
+ if (!ae->wl[ae->idx].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ifill=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,0);
+ ae->idx++;
+ if (ifill<0 || ifill>255) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ALIGN fill value must be 0 to 255\n");
+ ifill=0;
+ }
+ }
+
+ if (aval<1 || aval>65535) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ALIGN boundary must be greater than zero and lower than 65536\n");
+ aval=1;
+ }
+
+ /* touch codeadr only if adress is misaligned */
+ if (ae->codeadr%aval) {
+ if (ifill==-1) {
+ /* virtual ALIGN is moving outputadr the same value as codeadr move */
+ ae->outputadr=ae->outputadr-(ae->codeadr%aval)+aval;
+ ae->codeadr=ae->codeadr-(ae->codeadr%aval)+aval;
+ } else {
+ /* physical ALIGN fill bytes */
+ while (ae->codeadr%aval) {
+ ___output(ae,ifill);
+ ae->nop+=1;
+ }
+ }
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ALIGN <boundary>[,fill] directive need one or two integers parameters\n");
+ }
+}
+
+void ___internal_skip_loop_block(struct s_assenv *ae, int eloopstyle) {
+ int *loopstyle=NULL;
+ int iloop=0,mloop=0;
+ int cidx;
+
+ cidx=ae->idx+2;
+
+ IntArrayAddDynamicValueConcat(&loopstyle,&iloop,&mloop,eloopstyle);
+ /* look for WEND */
+ while (iloop) {
+ if (strcmp(ae->wl[cidx].w,"REPEAT")==0) {
+ if (ae->wl[cidx].t) {
+ IntArrayAddDynamicValueConcat(&loopstyle,&iloop,&mloop,E_LOOPSTYLE_REPEATUNTIL);
+ } else if (ae->wl[cidx+1].t) {
+ IntArrayAddDynamicValueConcat(&loopstyle,&iloop,&mloop,E_LOOPSTYLE_REPEATN);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid REPEAT syntax\n");
+ }
+ } else if (strcmp(ae->wl[cidx].w,"WHILE")==0) {
+ if (!ae->wl[cidx].t && ae->wl[cidx+1].t) {
+ IntArrayAddDynamicValueConcat(&loopstyle,&iloop,&mloop,E_LOOPSTYLE_WHILE);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Invalid WHILE syntax\n");
+ }
+ } else if (strcmp(ae->wl[cidx].w,"WEND")==0) {
+ iloop--;
+ if (iloop<0) {
+ iloop=0;
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WEND encountered that was not expected\n");
+ } else if (loopstyle[iloop]!=E_LOOPSTYLE_WHILE) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WEND encountered but expecting %s\n",loopstyle[iloop]==E_LOOPSTYLE_REPEATN?"REND":"UNTIL");
+ }
+ } else if (strcmp(ae->wl[cidx].w,"REND")==0) {
+ iloop--;
+ if (iloop<0) {
+ iloop=0;
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"REND encountered that was not expected\n");
+ } else if (loopstyle[iloop]!=E_LOOPSTYLE_REPEATN) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"REND encountered but expecting %s\n",loopstyle[iloop]==E_LOOPSTYLE_REPEATUNTIL?"UNTIL":"WEND");
+ }
+ } else if (strcmp(ae->wl[cidx].w,"UNTIL")==0) {
+ iloop--;
+ if (iloop<0) {
+ iloop=0;
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"UNTIL encountered that was not expected\n");
+ } else if (loopstyle[iloop]!=E_LOOPSTYLE_REPEATUNTIL) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"UNTIL encountered but expecting %s\n",loopstyle[iloop]==E_LOOPSTYLE_REPEATN?"REND":"WEND");
+ }
+ }
+ while (!ae->wl[cidx].t) cidx++;
+ cidx++;
+ }
+ MemFree(loopstyle);
+ ae->idx=cidx-1;
+}
+
+void __WHILE(struct s_assenv *ae) {
+ struct s_whilewend whilewend={0};
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ if (!ComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,2)) {
+ /* skip while block */
+ ___internal_skip_loop_block(ae,E_LOOPSTYLE_WHILE);
+ return;
+ } else {
+ ae->idx++;
+ whilewend.start=ae->idx;
+ whilewend.cpt=0;
+ whilewend.value=ae->whilecounter;
+ whilewend.maxim=ae->imacropos;
+ whilewend.while_counter=1;
+ ae->whilecounter++;
+ /* pour gérer les macros situés dans le while précedent après un repeat/while courant */
+ if (ae->iw) whilewend.maxim=ae->whilewend[ae->iw-1].maxim;
+ if (ae->ir && ae->repeat[ae->ir-1].maxim>whilewend.maxim) whilewend.maxim=ae->repeat[ae->ir-1].maxim;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->whilewend,&ae->iw,&ae->mw,&whilewend,sizeof(whilewend));
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is WHILE <expression>\n");
+ }
+}
+void __WEND(struct s_assenv *ae) {
+ if (ae->iw>0) {
+ if (ae->wl[ae->idx].t==1) {
+ if (ComputeExpression(ae,ae->wl[ae->whilewend[ae->iw-1].start].w,ae->codeadr,0,2)) {
+ if (ae->whilewend[ae->iw-1].while_counter>65536) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Bypass infinite WHILE loop\n");
+ ae->iw--;
+ /* refresh macro check index */
+ if (ae->iw) ae->imacropos=ae->whilewend[ae->iw-1].maxim;
+ } else {
+ ae->whilewend[ae->iw-1].cpt++; /* for local label */
+ ae->whilewend[ae->iw-1].while_counter++;
+ ae->idx=ae->whilewend[ae->iw-1].start;
+ /* refresh macro check index */
+ ae->imacropos=ae->whilewend[ae->iw-1].maxim;
+ }
+ } else {
+ ae->iw--;
+ /* refresh macro check index */
+ if (ae->iw) ae->imacropos=ae->whilewend[ae->iw-1].maxim;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WEND does not need any parameter\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WEND encounter whereas there is no referent WHILE\n");
+ }
+}
+
+void __REPEAT(struct s_assenv *ae) {
+ struct s_repeat currepeat={0};
+ struct s_expr_dico *rvar;
+ int *loopstyle;
+ int iloop,mloop;
+ int cidx,crc;
+
+ if (ae->wl[ae->idx+1].t!=2) {
+ if (ae->wl[ae->idx].t==0) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ currepeat.cpt=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,0,0,0);
+ if (!currepeat.cpt) {
+ /* skip repeat block */
+ ___internal_skip_loop_block(ae,E_LOOPSTYLE_REPEATN);
+ return;
+ } else if (currepeat.cpt<1 || currepeat.cpt>65536) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Repeat value (%d) must be from 1 to 65535. Skipping block\n",currepeat.cpt);
+ ___internal_skip_loop_block(ae,E_LOOPSTYLE_REPEATN);
+ return;
+ }
+ ae->idx++;
+ currepeat.start=ae->idx;
+ if (ae->wl[ae->idx].t==0) {
+ ae->idx++;
+ if (ae->wl[ae->idx].t==1) {
+ /* la variable peut exister -> OK */
+ crc=GetCRC(ae->wl[ae->idx].w);
+ if ((rvar=SearchDico(ae,ae->wl[ae->idx].w,crc))!=NULL) {
+ rvar->v=1;
+ } else {
+ /* mais ne peut être un label ou un alias */
+ ExpressionSetDicoVar(ae,ae->wl[ae->idx].w, 1);
+ }
+ currepeat.repeatvar=ae->wl[ae->idx].w;
+ currepeat.repeatcrc=crc;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"extended syntax is REPEAT <n>,<var>\n");
+ }
+ }
+ } else {
+ currepeat.start=ae->idx;
+ currepeat.cpt=-1;
+ }
+ currepeat.value=ae->repeatcounter;
+ currepeat.repeat_counter=1;
+ ae->repeatcounter++;
+ /* pour gérer les macros situés dans le repeat précedent après le repeat courant */
+ if (ae->ir) currepeat.maxim=ae->repeat[ae->ir-1].maxim;
+ if (ae->iw && ae->whilewend[ae->iw-1].maxim>currepeat.maxim) currepeat.maxim=ae->whilewend[ae->iw-1].maxim;
+ if (ae->imacropos>currepeat.maxim) currepeat.maxim=ae->imacropos;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->repeat,&ae->ir,&ae->mr,&currepeat,sizeof(currepeat));
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"wrong REPEAT usage\n");
+ }
+}
+
+void __REND(struct s_assenv *ae) {
+ struct s_expr_dico *rvar;
+ if (ae->ir>0) {
+ if (ae->repeat[ae->ir-1].cpt==-1) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"REND encounter whereas referent REPEAT was waiting for UNTIL\n");
+ } else {
+ ae->repeat[ae->ir-1].cpt--;
+ ae->repeat[ae->ir-1].repeat_counter++;
+ if ((rvar=SearchDico(ae,ae->repeat[ae->ir-1].repeatvar,ae->repeat[ae->ir-1].repeatcrc))!=NULL) {
+ rvar->v=ae->repeat[ae->ir-1].repeat_counter;
+ }
+ if (ae->repeat[ae->ir-1].cpt) {
+ ae->idx=ae->repeat[ae->ir-1].start;
+ /* refresh macro check index */
+ ae->imacropos=ae->repeat[ae->ir-1].maxim;
+ } else {
+ ae->ir--;
+ /* refresh macro check index */
+ if (ae->ir) ae->imacropos=ae->repeat[ae->ir-1].maxim;
+ }
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"REND encounter whereas there is no referent REPEAT\n");
+ }
+}
+
+void __UNTIL(struct s_assenv *ae) {
+ if (ae->ir>0) {
+ if (ae->repeat[ae->ir-1].cpt>=0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"[%s:%d] UNTIL encounter whereas referent REPEAT n was waiting for REND\n");
+ } else {
+ if (ae->wl[ae->idx].t==0 && ae->wl[ae->idx+1].t==1) {
+ ae->repeat[ae->ir-1].repeat_counter++;
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ if (!ComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,2)) {
+ if (ae->repeat[ae->ir-1].repeat_counter>65536) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Bypass infinite REPEAT loop\n");
+ ae->ir--;
+ /* refresh macro check index */
+ if (ae->ir) ae->imacropos=ae->repeat[ae->ir-1].maxim;
+ } else {
+ ae->idx=ae->repeat[ae->ir-1].start;
+ ae->repeat[ae->ir-1].cpt--; /* for local label */
+ /* refresh macro check index */
+ ae->imacropos=ae->repeat[ae->ir-1].maxim;
+ }
+ } else {
+ ae->ir--;
+ /* refresh macro check index */
+ if (ae->ir) ae->imacropos=ae->repeat[ae->ir-1].maxim;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"UNTIL need one expression/evaluation as parameter\n");
+ }
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"UNTIL encounter whereas there is no referent REPEAT\n");
+ }
+}
+
+void __ASSERT(struct s_assenv *ae) {
+ char Dot3[4];
+ int rexpr;
+
+ if (!ae->wl[ae->idx].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ if (strlen(ae->wl[ae->idx+1].w)>29) strcpy(Dot3,"..."); else strcpy(Dot3,"");
+ rexpr=!!RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,1);
+ if (!rexpr) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx+1].l,"ASSERT %.29s%s failed with ",ae->wl[ae->idx+1].w,Dot3);
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,1);
+ rasm_printf(ae,"%s\n",ae->wl[ae->idx+1].w);
+ if (!ae->wl[ae->idx+1].t) {
+ ae->idx++;
+ rasm_printf(ae,"-> ");
+ __PRINT(ae);
+ }
+ __STOP(ae);
+ } else {
+ while (!ae->wl[ae->idx].t) ae->idx++;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ASSERT need one expression\n");
+ }
+}
+
+void __IF(struct s_assenv *ae) {
+ struct s_ifthen ifthen={0};
+ int rexpr;
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ rexpr=!!RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,1);
+ ifthen.v=rexpr;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IF;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IF need one expression\n");
+ }
+}
+
+void __IF_light(struct s_assenv *ae) {
+ struct s_ifthen ifthen={0};
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ /* do not need to compute the value in shadow execution */
+ ifthen.v=0;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IF;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IF need one expression\n");
+ }
+}
+
+/* test if a label or a variable where used before */
+void __IFUSED(struct s_assenv *ae) {
+ struct s_ifthen ifthen={0};
+ int rexpr,crc;
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ crc=GetCRC(ae->wl[ae->idx+1].w);
+ if ((SearchDico(ae,ae->wl[ae->idx+1].w,crc))!=NULL) {
+ rexpr=1;
+ } else {
+ if ((SearchLabel(ae,ae->wl[ae->idx+1].w,crc))!=NULL) {
+ rexpr=1;
+ } else {
+ if ((SearchAlias(ae,crc,ae->wl[ae->idx+1].w))!=-1) {
+ rexpr=1;
+ } else {
+ rexpr=SearchUsed(ae,ae->wl[ae->idx+1].w,crc);
+ }
+ }
+ }
+ ifthen.v=rexpr;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IFUSED;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IFUSED need one variable or label\n");
+ }
+}
+void __IFNUSED(struct s_assenv *ae) {
+ __IFUSED(ae);
+ ae->ifthen[ae->ii-1].v=1-ae->ifthen[ae->ii-1].v;
+ ae->ifthen[ae->ii-1].type=E_IFTHEN_TYPE_IFNUSED;
+}
+void __IFUSED_light(struct s_assenv *ae) {
+ struct s_ifthen ifthen={0};
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ifthen.v=0;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IFUSED;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IFUSED need one variable or label\n");
+ }
+}
+void __IFNUSED_light(struct s_assenv *ae) {
+ __IFUSED_light(ae);
+ ae->ifthen[ae->ii-1].type=E_IFTHEN_TYPE_IFNUSED;
+}
+
+/* test if a label or a variable exists */
+void __IFDEF(struct s_assenv *ae) {
+ struct s_ifthen ifthen={0};
+ int rexpr,crc;
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ crc=GetCRC(ae->wl[ae->idx+1].w);
+ if ((SearchDico(ae,ae->wl[ae->idx+1].w,crc))!=NULL) {
+ rexpr=1;
+ } else {
+ if ((SearchLabel(ae,ae->wl[ae->idx+1].w,crc))!=NULL) {
+ rexpr=1;
+ } else {
+ if ((SearchAlias(ae,crc,ae->wl[ae->idx+1].w))!=-1) {
+ rexpr=1;
+ } else {
+ if (SearchMacro(ae,crc,ae->wl[ae->idx+1].w)>=0) {
+ rexpr=1;
+ } else {
+ rexpr=0;
+ }
+ }
+ }
+ }
+ ifthen.v=rexpr;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IFDEF;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IFDEF need one variable or label\n");
+ }
+}
+void __IFDEF_light(struct s_assenv *ae) {
+ struct s_ifthen ifthen={0};
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ifthen.v=0;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IFDEF;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"GetCurrentFile(ae),ae->wl[ae->idx].l[%s:%d] FATAL - IFDEF need one variable or label\n");
+ }
+}
+void __IFNDEF(struct s_assenv *ae) {
+ struct s_expr_dico *curdic=NULL;
+ struct s_label *curlabel=NULL;
+ struct s_ifthen ifthen={0};
+ int rexpr,crc;
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ crc=GetCRC(ae->wl[ae->idx+1].w);
+ if ((SearchDico(ae,ae->wl[ae->idx+1].w,crc))!=NULL) {
+ rexpr=0;
+ } else {
+ if ((SearchLabel(ae,ae->wl[ae->idx+1].w,crc))!=NULL) {
+ rexpr=0;
+ } else {
+ if ((SearchAlias(ae,crc,ae->wl[ae->idx+1].w))!=-1) {
+ rexpr=0;
+ } else {
+ if (SearchMacro(ae,crc,ae->wl[ae->idx+1].w)>=0) {
+ rexpr=0;
+ } else {
+ rexpr=1;
+ }
+ }
+ }
+ }
+ ifthen.v=rexpr;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IFNDEF;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IFNDEF need one variable or label\n");
+ }
+}
+void __IFNDEF_light(struct s_assenv *ae) {
+ struct s_expr_dico *curdic=NULL;
+ struct s_label *curlabel=NULL;
+ struct s_ifthen ifthen={0};
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ifthen.v=0;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IFNDEF;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IFNDEF need one variable or label\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ }
+}
+
+void __UNDEF(struct s_assenv *ae) {
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ /* no error when the variable to UNDEF does not exist */
+ DelDico(ae,ae->wl[ae->idx+1].w,GetCRC(ae->wl[ae->idx+1].w));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"syntax is UNDEF <variable>\n");
+ }
+
+}
+
+
+void __SWITCH(struct s_assenv *ae) {
+ struct s_switchcase curswitch={0};
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ /* switch store the value */
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ curswitch.refval=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,1);
+ ObjectArrayAddDynamicValueConcat((void**)&ae->switchcase,&ae->isw,&ae->msw,&curswitch,sizeof(curswitch));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"SWITCH need one expression\n");
+ }
+}
+void __CASE(struct s_assenv *ae) {
+ int rexpr;
+
+ if (ae->isw) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ rexpr=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,1);
+
+ if (ae->switchcase[ae->isw-1].refval==rexpr) {
+ ae->switchcase[ae->isw-1].execute=1;
+ ae->switchcase[ae->isw-1].casematch=1;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CASE not need one parameter\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CASE encounter whereas there is no referent SWITCH\n");
+ }
+}
+void __DEFAULT(struct s_assenv *ae) {
+
+ if (ae->isw) {
+ if (ae->wl[ae->idx].t==1) {
+ /* aucun match avant, on active, sinon on laisse tel quel */
+ if (!ae->switchcase[ae->isw-1].casematch) {
+ ae->switchcase[ae->isw-1].execute=1;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFAULT do not need parameter\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFAULT encounter whereas there is no referent SWITCH\n");
+ }
+}
+void __BREAK(struct s_assenv *ae) {
+
+ if (ae->isw) {
+ if (ae->wl[ae->idx].t==1) {
+ ae->switchcase[ae->isw-1].execute=0;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BREAK do not need parameter\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BREAK encounter whereas there is no referent SWITCH\n");
+ }
+}
+void __SWITCH_light(struct s_assenv *ae) {
+ struct s_switchcase curswitch={0};
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ /* shadow execution */
+ curswitch.refval=0;
+ curswitch.execute=0;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->switchcase,&ae->isw,&ae->msw,&curswitch,sizeof(curswitch));
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"SWITCH need one expression\n");
+ }
+}
+void __CASE_light(struct s_assenv *ae) {
+ if (ae->isw) {
+ /* shadowed execution */
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CASE encounter whereas there is no referent SWITCH\n");
+ }
+}
+void __DEFAULT_light(struct s_assenv *ae) {
+
+ if (ae->isw) {
+ /* shadowed execution */
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"DEFAULT encounter whereas there is no referent SWITCH\n");
+ }
+}
+void __BREAK_light(struct s_assenv *ae) {
+ if (ae->isw) {
+ /* shadowed execution */
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"BREAK encounter whereas there is no referent SWITCH\n");
+ }
+}
+void __ENDSWITCH(struct s_assenv *ae) {
+ if (ae->isw) {
+ if (ae->wl[ae->idx].t==1) {
+ ae->isw--;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ENDSWITCH does not need any parameter\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ENDSWITCH encounter whereas there is no referent SWITCH\n");
+ }
+}
+
+void __IFNOT(struct s_assenv *ae) {
+ struct s_ifthen ifthen={0};
+ int rexpr;
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ rexpr=!RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,1);
+ ifthen.v=rexpr;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IFNOT;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ //IntArrayAddDynamicValueConcat(&ae->ifthen,&ae->ii,&ae->mi,rexpr);
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IFNOT need one expression\n");
+ }
+}
+void __IFNOT_light(struct s_assenv *ae) {
+ struct s_ifthen ifthen={0};
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ifthen.v=0;
+ ifthen.filename=GetCurrentFile(ae);
+ ifthen.line=ae->wl[ae->idx].l;
+ ifthen.type=E_IFTHEN_TYPE_IFNOT;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->ifthen,&ae->ii,&ae->mi,&ifthen,sizeof(ifthen));
+ //IntArrayAddDynamicValueConcat(&ae->ifthen,&ae->ii,&ae->mi,rexpr);
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"IFNOT need one expression\n");
+ }
+}
+
+void __ELSE(struct s_assenv *ae) {
+ if (ae->ii) {
+ if (ae->wl[ae->idx].t==1) {
+ /* ELSE a executer seulement si celui d'avant est a zero */
+ switch (ae->ifthen[ae->ii-1].v) {
+ case -1:break;
+ case 0:ae->ifthen[ae->ii-1].v=1;break;
+ case 1:ae->ifthen[ae->ii-1].v=0;break;
+ }
+ ae->ifthen[ae->ii-1].type=E_IFTHEN_TYPE_ELSE;
+ ae->ifthen[ae->ii-1].line=ae->wl[ae->idx].l;
+ ae->ifthen[ae->ii-1].filename=GetCurrentFile(ae);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ELSE does not need any parameter\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ELSE encounter whereas there is no referent IF\n");
+ }
+}
+void __ELSEIF(struct s_assenv *ae) {
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ae->ifthen[ae->ii-1].type=E_IFTHEN_TYPE_ELSEIF;
+ ae->ifthen[ae->ii-1].line=ae->wl[ae->idx].l;
+ ae->ifthen[ae->ii-1].filename=GetCurrentFile(ae);
+ if (ae->ifthen[ae->ii-1].v) {
+ /* il faut signifier aux suivants qu'on va jusqu'au ENDIF */
+ ae->ifthen[ae->ii-1].v=-1;
+ } else {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ae->ifthen[ae->ii-1].v=!!RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->codeadr,0,1);
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ELSEIF need one expression\n");
+ }
+}
+void __ELSEIF_light(struct s_assenv *ae) {
+
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ ae->ifthen[ae->ii-1].type=E_IFTHEN_TYPE_ELSEIF;
+ ae->ifthen[ae->ii-1].line=ae->wl[ae->idx].l;
+ ae->ifthen[ae->ii-1].filename=GetCurrentFile(ae);
+ if (ae->ifthen[ae->ii-1].v) {
+ /* il faut signifier aux suivants qu'on va jusqu'au ENDIF */
+ ae->ifthen[ae->ii-1].v=-1;
+ } else {
+ ae->ifthen[ae->ii-1].v=0;
+ }
+ ae->idx++;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ELSEIF need one expression\n");
+ }
+}
+void __ENDIF(struct s_assenv *ae) {
+ if (ae->ii) {
+ if (ae->wl[ae->idx].t==1) {
+ ae->ii--;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ENDIF does not need any parameter\n");
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ENDIF encounter whereas there is no referent IF\n");
+ }
+}
+
+void __internal_PROTECT(struct s_assenv *ae, int memstart, int memend) {
+ struct s_orgzone orgzone={0};
+
+ /* add a fake ORG zone */
+ ObjectArrayAddDynamicValueConcat((void**)&ae->orgzone,&ae->io,&ae->mo,&orgzone,sizeof(orgzone));
+ /* then switch it with the current ORG */
+ orgzone=ae->orgzone[ae->io-2];
+ ae->orgzone[ae->io-2].memstart=memstart;
+ ae->orgzone[ae->io-2].memend=memend;
+ ae->orgzone[ae->io-2].ibank=ae->activebank;
+ ae->orgzone[ae->io-2].protect=1;
+ ae->orgzone[ae->io-1]=orgzone;
+}
+
+void __PROTECT(struct s_assenv *ae) {
+ int memstart,memend;
+
+ if (!ae->wl[ae->idx].t && !ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t==1) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+2].w,0);
+ memstart=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,0,0,0);
+ memend=RoundComputeExpression(ae,ae->wl[ae->idx+2].w,0,0,0);
+ __internal_PROTECT(ae,memstart,memend);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"PROTECT need two parameters: startadr,endadr\n");
+ }
+}
+
+void ___org_close(struct s_assenv *ae) {
+ if (ae->lz>=0) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Cannot ORG inside a LZ section\n");
+ return;
+ }
+ __internal_UpdateLZBlockIfAny(ae);
+ /* close current ORG */
+ if (ae->io) {
+ ae->orgzone[ae->io-1].memend=ae->outputadr;
+ }
+}
+
+void ___org_new(struct s_assenv *ae, int nocode) {
+ struct s_orgzone orgzone={0};
+ int i;
+
+ /* check current ORG request */
+ for (i=0;i<ae->io;i++) {
+ /* aucun contrôle sur les ORG non écrits ou en NOCODE */
+ if (ae->orgzone[i].memstart!=ae->orgzone[i].memend && !ae->orgzone[i].nocode) {
+ if (ae->orgzone[i].ibank==ae->activebank) {
+ if (ae->outputadr<ae->orgzone[i].memend && ae->outputadr>=ae->orgzone[i].memstart) {
+ if (ae->orgzone[i].protect) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ORG located a PROTECTED section [#%04X-#%04X-B%d] file [%s] line %d\n",ae->orgzone[i].memstart,ae->orgzone[i].memend,ae->orgzone[i].ibank<32?ae->orgzone[i].ibank:0,ae->filename[ae->orgzone[i].ifile],ae->orgzone[i].iline);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ORG (output at #%04X) located in a previous ORG section [#%04X-#%04X-B%d] file [%s] line %d\n",ae->outputadr,ae->orgzone[i].memstart,ae->orgzone[i].memend,ae->orgzone[i].ibank<32?ae->orgzone[i].ibank:0,ae->filename[ae->orgzone[i].ifile],ae->orgzone[i].iline);
+ }
+ }
+ }
+ }
+ }
+
+ OverWriteCheck(ae);
+ /* if there was a crunch block before, now closed */
+ if (ae->lz>=0) {
+ ae->lz=-1;
+ }
+ orgzone.memstart=ae->outputadr;
+ orgzone.ibank=ae->activebank;
+ orgzone.ifile=ae->wl[ae->idx].ifile;
+ orgzone.iline=ae->wl[ae->idx].l;
+ orgzone.nocode=ae->nocode=nocode;
+
+ if (nocode) {
+ ___output=___internal_output_nocode;
+ } else {
+ ___output=___internal_output;
+ }
+
+ ObjectArrayAddDynamicValueConcat((void**)&ae->orgzone,&ae->io,&ae->mo,&orgzone,sizeof(orgzone));
+}
+
+void __ORG(struct s_assenv *ae) {
+ ___org_close(ae);
+
+ if (ae->wl[ae->idx+1].t!=2) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,0);
+ ae->codeadr=RoundComputeExpression(ae,ae->wl[ae->idx+1].w,ae->outputadr,0,0);
+ if (!ae->wl[ae->idx+1].t && ae->wl[ae->idx+2].t!=2) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+2].w,0);
+ ae->outputadr=RoundComputeExpression(ae,ae->wl[ae->idx+2].w,ae->outputadr,0,0);
+ ae->idx+=2;
+ } else {
+ ae->outputadr=ae->codeadr;
+ ae->idx++;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"[%s:%d] ORG code location[,output location]\n");
+ return;
+ }
+
+ ___org_new(ae,ae->nocode);
+}
+void __NOCODE(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t==1) {
+ ___org_close(ae);
+ ae->codeadrbackup=ae->codeadr;
+ ae->outputadrbackup=ae->outputadr;
+ ___org_new(ae,1);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"NOCODE directive does not need parameter\n");
+ }
+}
+void __CODE(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t) {
+ if (strcmp(ae->wl[ae->idx+1].w,"SKIP")==0) {
+ ___org_close(ae);
+ ae->codeadr=ae->codeadrbackup;
+ ae->outputadr=ae->outputadrbackup;
+ ___org_new(ae,1);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"unknown parameter for CODE directive\n");
+ }
+ ae->idx++;
+ } else if (ae->wl[ae->idx].t==1) {
+ ___org_close(ae);
+ ___org_new(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"CODE directive does not need parameter\n");
+ }
+}
+void __STRUCT(struct s_assenv *ae) {
+ #undef FUNC
+ #define FUNC "__STRUCT"
+ struct s_rasmstructfield rasmstructfield={0};
+ struct s_rasmstruct rasmstruct={0};
+ struct s_rasmstruct rasmstructalias={0};
+ struct s_label curlabel={0};
+ int crc,i,j,irs;
+ /* filler */
+ int localsize,cursize;
+ double zeval;
+
+ if (!ae->wl[ae->idx].t) {
+ if (ae->wl[ae->idx+1].t) {
+ /**************************************************
+ s t r u c t u r e d e c l a r a t i o n
+ **************************************************/
+ if (!ae->getstruct) {
+ /* cannot be an existing label or EQU (but variable ok) */
+ crc=GetCRC(ae->wl[ae->idx+1].w);
+ if ((SearchLabel(ae,ae->wl[ae->idx+1].w,crc))!=NULL || (SearchAlias(ae,crc,ae->wl[ae->idx+1].w))!=-1) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"STRUCT name must be different from existing labels ou aliases\n");
+ } else {
+ ae->backup_filename=GetCurrentFile(ae);
+ ae->backup_line=ae->wl[ae->idx].l;
+ ae->backup_outputadr=ae->outputadr;
+ ae->backup_codeadr=ae->codeadr;
+ ae->getstruct=1;
+ /* STRUCT = NOCODE + ORG 0 */
+ ___org_close(ae);
+ ae->codeadr=0;
+ ___org_new(ae,1);
+ /* create struct */
+ rasmstruct.name=TxtStrDup(ae->wl[ae->idx+1].w);
+ rasmstruct.crc=GetCRC(rasmstruct.name);
+ ObjectArrayAddDynamicValueConcat((void **)&ae->rasmstruct,&ae->irasmstruct,&ae->mrasmstruct,&rasmstruct,sizeof(rasmstruct));
+ ae->idx++;
+
+ /* wrapper for data capture */
+ instruction[ICRC_DEFB].makemnemo=_DEFB_struct;instruction[ICRC_DB].makemnemo=_DEFB_struct;
+ instruction[ICRC_DEFW].makemnemo=_DEFW_struct;instruction[ICRC_DW].makemnemo=_DEFW_struct;
+ instruction[ICRC_DEFI].makemnemo=_DEFI_struct;
+ instruction[ICRC_DEFR].makemnemo=_DEFR_struct;instruction[ICRC_DR].makemnemo=_DEFR_struct;
+ instruction[ICRC_DEFS].makemnemo=_DEFS_struct;instruction[ICRC_DS].makemnemo=_DEFS_struct;
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"STRUCT cannot be declared inside previous opened STRUCT [%s] Line %d\n",ae->backup_filename,ae->backup_line);
+ }
+ } else {
+ /**************************************************
+ s t r u c t u r e i n s e r t i o n
+ **************************************************/
+ int nbelem=1;
+#if TRACE_STRUCT
+printf("structure insertion\n");
+#endif
+ /* insert struct param1 in memory with name param2 */
+ crc=GetCRC(ae->wl[ae->idx+1].w);
+ /* look for existing struct */
+ for (irs=0;irs<ae->irasmstruct;irs++) {
+ if (ae->rasmstruct[irs].crc==crc && strcmp(ae->rasmstruct[irs].name,ae->wl[ae->idx+1].w)==0) break;
+ }
+ if (irs==ae->irasmstruct) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Unknown STRUCT %s\n",ae->wl[ae->idx+1].w);
+ } else {
+ /* create alias for sizeof */
+ if (!ae->getstruct) {
+ if (ae->wl[ae->idx+2].w[0]=='@') {
+ rasmstructalias.name=MakeLocalLabel(ae,ae->wl[ae->idx+2].w,NULL);
+ } else {
+ rasmstructalias.name=TxtStrDup(ae->wl[ae->idx+2].w);
+ }
+ } else {
+#if TRACE_STRUCT
+printf("struct [%s] inside struct\n",ae->wl[ae->idx+2].w);
+#endif
+ /* struct inside struct */
+ rasmstructalias.name=MemMalloc(strlen(ae->rasmstruct[ae->irasmstruct-1].name)+2+strlen(ae->wl[ae->idx+2].w));
+ sprintf(rasmstructalias.name,"%s.%s",ae->rasmstruct[ae->irasmstruct-1].name,ae->wl[ae->idx+2].w);
+ }
+ rasmstructalias.crc=GetCRC(rasmstructalias.name);
+ rasmstructalias.size=ae->rasmstruct[irs].size;
+ rasmstructalias.ptr=ae->codeadr;
+#if TRACE_STRUCT
+printf("structalias [%s] ptr=%d size=%d\n",rasmstructalias.name,rasmstructalias.ptr,rasmstructalias.size);
+#endif
+ /* extra parameter to declare an array? */
+ if (!ae->wl[ae->idx+2].t && !StringIsQuote(ae->wl[ae->idx+3].w)) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+3].w,0);
+ nbelem=RoundComputeExpression(ae,ae->wl[ae->idx+3].w,ae->outputadr,0,0);
+ if (nbelem<1) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Struct array need a positive number of elements!\n");
+ nbelem=1;
+ }
+ ae->idx++;
+ }
+ rasmstructalias.nbelem=nbelem;
+#if TRACE_STRUCT
+printf("EVOL 119 - tableau! %d elem(s)\n",nbelem);
+#endif
+ ObjectArrayAddDynamicValueConcat((void **)&ae->rasmstructalias,&ae->irasmstructalias,&ae->mrasmstructalias,&rasmstructalias,sizeof(rasmstructalias));
+
+ /* create label for global struct ptr */
+ curlabel.iw=-1;
+ curlabel.ptr=ae->codeadr;
+ if (!ae->getstruct) {
+ if (ae->wl[ae->idx+2].w[0]=='@') curlabel.name=MakeLocalLabel(ae,ae->wl[ae->idx+2].w,NULL); else curlabel.name=TxtStrDup(ae->wl[ae->idx+2].w);
+ curlabel.crc=GetCRC(curlabel.name);
+ PushLabelLight(ae,&curlabel);
+ } else {
+ /* or check for non-local name in struct declaration */
+ if (ae->wl[ae->idx+2].w[0]=='@') {
+ MakeError(ae,GetCurrentFile(ae),GetExpLine(ae,0),"Meaningless use of local label in a STRUCT definition\n");
+ } else {
+ curlabel.name=TxtStrDup(rasmstructalias.name);
+ curlabel.crc=GetCRC(curlabel.name);
+ PushLabelLight(ae,&curlabel);
+ }
+ }
+
+ /* first field is in fact the very beginning of the structure */
+ if (ae->getstruct) {
+ rasmstructfield.name=TxtStrDup(ae->wl[ae->idx+2].w);
+ rasmstructfield.offset=ae->codeadr;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->rasmstruct[ae->irasmstruct-1].rasmstructfield,
+ &ae->rasmstruct[ae->irasmstruct-1].irasmstructfield,&ae->rasmstruct[ae->irasmstruct-1].mrasmstructfield,
+ &rasmstructfield,sizeof(rasmstructfield));
+ }
+
+ /* create subfields */
+#if TRACE_STRUCT
+printf("create subfields\n");
+#endif
+ curlabel.iw=-1;
+ curlabel.ptr=ae->codeadr;
+ for (i=0;i<ae->rasmstruct[irs].irasmstructfield;i++) {
+ curlabel.ptr=ae->codeadr+ae->rasmstruct[irs].rasmstructfield[i].offset;
+ if (!ae->getstruct) {
+ curlabel.name=MemMalloc(strlen(ae->wl[ae->idx+2].w)+strlen(ae->rasmstruct[irs].rasmstructfield[i].name)+2);
+ sprintf(curlabel.name,"%s.%s",ae->wl[ae->idx+2].w,ae->rasmstruct[irs].rasmstructfield[i].name);
+ if (ae->wl[ae->idx+2].w[0]=='@') {
+ char *newlabel;
+ newlabel=MakeLocalLabel(ae,curlabel.name,NULL);
+ MemFree(curlabel.name);
+ curlabel.name=newlabel;
+ }
+ curlabel.crc=GetCRC(curlabel.name);
+ PushLabelLight(ae,&curlabel);
+ /* are we using a struct in a struct definition? */
+ } else {
+ /* copy structname+label+offset in the structure */
+ rasmstructfield.name=MemMalloc(strlen(ae->wl[ae->idx+2].w)+strlen(ae->rasmstruct[irs].rasmstructfield[i].name)+2);
+ sprintf(rasmstructfield.name,"%s.%s",ae->wl[ae->idx+2].w,ae->rasmstruct[irs].rasmstructfield[i].name);
+ rasmstructfield.offset=curlabel.ptr;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->rasmstruct[ae->irasmstruct-1].rasmstructfield,
+ &ae->rasmstruct[ae->irasmstruct-1].irasmstructfield,&ae->rasmstruct[ae->irasmstruct-1].mrasmstructfield,
+ &rasmstructfield,sizeof(rasmstructfield));
+
+ /* need to push also generic label */
+ curlabel.name=MemMalloc(strlen(ae->rasmstruct[ae->irasmstruct-1].name)+strlen(rasmstructfield.name)+2); /* overwrite PTR */
+ sprintf(curlabel.name,"%s.%s",ae->rasmstruct[ae->irasmstruct-1].name,rasmstructfield.name);
+ curlabel.crc=GetCRC(curlabel.name);
+ PushLabelLight(ae,&curlabel);
+ }
+ }
+
+ /* is there any filler in the declaration? */
+ localsize=0;
+
+ /* déterminer si on est en remplissage par défaut ou remplissage surchargé */
+
+
+
+
+
+#if TRACE_STRUCT
+printf("struct new behaviour (scan for %d fields)\n",ae->rasmstruct[irs].irasmstructfield);
+#endif
+#if 0
+ for (i=0;i<ae->rasmstruct[irs].irasmstructfield;i++) {
+
+ if (!ae->wl[ae->idx+2+i].t || i+1>=ae->rasmstruct[irs].irasmstructfield) {
+ /* si le champ est sur le même offset que le précédent, on le saute */
+ if (i && ae->rasmstruct[irs].rasmstructfield[i].offset>ae->rasmstruct[irs].rasmstructfield[i-1].offset) continue;
+
+#if TRACE_STRUCT
+printf("get field? (%d)\n",irs);
+#endif
+ if (!StringIsQuote(ae->wl[ae->idx+i].w)) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+i].w,1);
+ zeval=RoundComputeExpressionCore(ae,ae->wl[ae->idx+i].w,ae->codeadr,0);
+ } else {
+ // push string
+ }
+
+ localsize+=ae->rasmstruct[irs].rasmstructfield[i].size;
+
+ /* pour du single shot ?
+ pushbyte(s) at ae->codeadr+ae->rasmstruct[irs].rasmstructfield[i].offset
+ */
+
+ //ae->rasmstruct[irs].size;
+
+ } else {
+#if TRACE_STRUCT
+printf("*break*\n");
+#endif
+ break;
+ }
+ }
+#endif
+
+ /* (LEGACY) filler, on balance des zéros */
+#if TRACE_STRUCT
+printf("struct (almost) legacy filler from %d to %d-1\n",localsize,ae->rasmstruct[irs].size);
+#endif
+ while (nbelem) {
+ for (i=cursize=0;i<ae->rasmstruct[irs].irasmstructfield && cursize<localsize;i++) {
+ cursize+=ae->rasmstruct[irs].rasmstructfield[i].size;
+ }
+ for (;i<ae->rasmstruct[irs].irasmstructfield;i++) {
+ for (j=0;j<ae->rasmstruct[irs].rasmstructfield[i].idata;j++) {
+ ___output(ae,ae->rasmstruct[irs].rasmstructfield[i].data[j]);
+ }
+ }
+ nbelem--;
+ }
+
+#if 0
+ for (i=localsize;i<ae->rasmstruct[irs].size;i++) ___output(ae,0);
+#endif
+ ae->idx+=2; // probablement à revoir dans le cas d'une init!!!
+ }
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"STRUCT directive needs one or two parameters\n");
+ }
+}
+void __ENDSTRUCT(struct s_assenv *ae) {
+ #undef FUNC
+ #define FUNC "__ENDSTRUCT"
+ struct s_label curlabel={0};
+ int i,newlen;
+#if TRACE_STRUCT
+ printf("endstruct\n");
+#endif
+
+ if (!ae->wl[ae->idx].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ENDSTRUCT directive does not need parameter\n");
+ } else {
+ if (ae->getstruct) {
+ ae->rasmstruct[ae->irasmstruct-1].size=ae->codeadr;
+ ae->getstruct=0;
+
+ /* SIZEOF like Vasm with struct name */
+ curlabel.name=TxtStrDup(ae->rasmstruct[ae->irasmstruct-1].name);
+ curlabel.crc=ae->rasmstruct[ae->irasmstruct-1].crc;
+ curlabel.iw=-1;
+ curlabel.ptr=ae->rasmstruct[ae->irasmstruct-1].size;
+ PushLabelLight(ae,&curlabel);
+
+ /* compute size for each field */
+ newlen=strlen(ae->rasmstruct[ae->irasmstruct-1].name)+2;
+ for (i=0;i<ae->rasmstruct[ae->irasmstruct-1].irasmstructfield-1;i++) {
+ ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].size=ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i+1].offset-ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].offset;
+ ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].fullname=MemMalloc(newlen+strlen(ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].name));
+ sprintf(ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].fullname,"%s.%s",ae->rasmstruct[ae->irasmstruct-1].name,ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].name);
+ ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].crc=GetCRC(ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].fullname);
+ }
+ ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].size=ae->rasmstruct[ae->irasmstruct-1].size-ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].offset;
+ ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].fullname=MemMalloc(newlen+strlen(ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].name));
+ sprintf(ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].fullname,"%s.%s",ae->rasmstruct[ae->irasmstruct-1].name,ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].name);
+ ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].crc=GetCRC(ae->rasmstruct[ae->irasmstruct-1].rasmstructfield[i].fullname);
+
+ /* unwrap data capture */
+ if (ae->as80==1) {/* not for UZ80 */
+ instruction[ICRC_DEFB].makemnemo=_DEFB_as80;instruction[ICRC_DB].makemnemo=_DEFB_as80;
+ instruction[ICRC_DEFW].makemnemo=_DEFW_as80;instruction[ICRC_DW].makemnemo=_DEFW_as80;
+ instruction[ICRC_DEFI].makemnemo=_DEFI_as80;
+ } else {
+ instruction[ICRC_DEFB].makemnemo=_DEFB;instruction[ICRC_DB].makemnemo=_DEFB;
+ instruction[ICRC_DEFW].makemnemo=_DEFW;instruction[ICRC_DW].makemnemo=_DEFW;
+ instruction[ICRC_DEFI].makemnemo=_DEFI;
+ }
+ instruction[ICRC_DEFR].makemnemo=_DEFR;instruction[ICRC_DR].makemnemo=_DEFR;
+ instruction[ICRC_DEFS].makemnemo=_DEFS;instruction[ICRC_DS].makemnemo=_DEFS;
+
+ /* like there was no byte */
+ ae->outputadr=ae->backup_outputadr;
+ ae->codeadr=ae->backup_codeadr;
+
+ ___org_close(ae);
+ ___org_new(ae,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"ENDSTRUCT encountered outside STRUCT declaration\n");
+ }
+ }
+}
+
+void __MEMSPACE(struct s_assenv *ae) {
+ if (ae->wl[ae->idx].t) {
+ ___new_memory_space(ae);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"MEMSPACE directive does not need parameter\n");
+ }
+}
+
+int (*_internal_getsample)(unsigned char *data, int *idx);
+#undef FUNC
+#define FUNC "_internal_AudioGetSampleValue"
+
+int __internal_getsample8(unsigned char *data, int *idx) {
+ unsigned char v;
+ v=data[*idx]-128;*idx=*idx+1;return v;
+}
+int __internal_getsample16little(unsigned char *data, int *idx) {
+ int cursample;
+ cursample=data[*idx+1]-0x80;*idx=*idx+2;
+ return cursample;
+}
+int __internal_getsample24little(unsigned char *data, int *idx) {
+ int cursample;
+ cursample=data[*idx+2-0x80];*idx=*idx+3;
+ return cursample;
+}
+/* big-endian */
+int __internal_getsample16big(unsigned char *data, int *idx) {
+ int cursample;
+ cursample=data[*idx]-0x80;*idx=*idx+2;
+ return cursample;
+}
+int __internal_getsample24big(unsigned char *data, int *idx) {
+ int cursample;
+ cursample=data[*idx]-0x80;*idx=*idx+3;
+ return cursample;
+}
+/* float & endian shit */
+int _isLittleEndian() /* from lz4.h */
+{
+ const union { U32 u; BYTE c[4]; } one = { 1 };
+ return one.c[0];
+}
+
+unsigned char * __internal_floatinversion(unsigned char *data) {
+ static unsigned char bswap[4];
+ bswap[0]=data[3];
+ bswap[1]=data[2];
+ bswap[2]=data[1];
+ bswap[3]=data[0];
+ return bswap;
+}
+
+int __internal_getsample32bigbig(unsigned char *data, int *idx) {
+ float fsample;
+ int cursample;
+ fsample=*((float*)(data+*idx));
+ *idx=*idx+4;
+ cursample=(floor)((fsample+1.0)*127.5+0.5);
+ return cursample;
+}
+int __internal_getsample32biglittle(unsigned char *data, int *idx) {
+ float fsample;
+ int cursample;
+ fsample=*((float*)(__internal_floatinversion(data+*idx)));
+ *idx=*idx+4;
+ cursample=(floor)((fsample+1.0)*127.5+0.5);
+ return cursample;
+}
+
+#define __internal_getsample32littlelittle __internal_getsample32bigbig
+#define __internal_getsample32littlebig __internal_getsample32biglittle
+
+
+void _AudioLoadSample(struct s_assenv *ae, unsigned char *data, int filesize, enum e_audio_sample_type sample_type, float normalize)
+{
+ #undef FUNC
+ #define FUNC "AudioLoadSample"
+
+ struct s_wav_header *wav_header;
+ int i,j,n,idx,controlsize;
+ int nbchannel,bitspersample,nbsample;
+ int bigendian=0,cursample;
+ double accumulator;
+ unsigned char samplevalue=0, sampleprevious=0;
+ int samplerepeat=0,ipause;
+
+ unsigned char *subchunk;
+ int subchunksize;
+
+ if (filesize<sizeof(struct s_wav_header)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WAV import - this file is too small to be a valid WAV!\n");
+ return;
+ }
+
+ wav_header=(struct s_wav_header *)data;
+
+#if TRACE_HEXBIN
+printf("AudioLoadSample filesize=%d st=%d normalize=%.2lf\n",filesize,sample_type,normalize);
+#endif
+ if (strncmp(wav_header->ChunkID,"RIFF",4)) {
+ if (strncmp(wav_header->ChunkID,"RIFX",4)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WAV import - unsupported audio sample type (chunkid must be 'RIFF' or 'RIFX')\n");
+ return;
+ } else {
+ bigendian=1;
+ }
+ }
+ if (strncmp(wav_header->Format,"WAVE",4)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"[%s:%d] WAV import - unsupported audio sample type (format must be 'WAVE')\n");
+ return;
+ }
+ controlsize=wav_header->SubChunk1Size[0]+wav_header->SubChunk1Size[1]*256+wav_header->SubChunk1Size[2]*65536+wav_header->SubChunk1Size[3]*256*65536;
+ if (controlsize!=16) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WAV import - invalid wav chunk size (subchunk1 control)\n");
+ return;
+ }
+ if (strncmp(wav_header->SubChunk1ID,"fmt",3)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WAV import - unsupported audio sample type (subchunk1id must be 'fmt')\n");
+ return;
+ }
+
+#if TRACE_HEXBIN
+printf("AudioLoadSample getsubchunk\n");
+#endif
+ subchunk=(unsigned char *)&wav_header->SubChunk2ID;
+ while (strncmp(subchunk,"data",4)) {
+ subchunksize=8+subchunk[4]+subchunk[5]*256+subchunk[6]*65536+subchunk[7]*256*65536;
+ if (subchunksize>=filesize) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WAV import - data subchunk not found\n");
+ return;
+ }
+ subchunk+=subchunksize;
+ }
+ subchunksize=subchunk[4]+subchunk[5]*256+subchunk[6]*65536+subchunk[7]*256*65536;
+ controlsize=subchunksize;
+
+ nbchannel=wav_header->NumChannels[0]+wav_header->NumChannels[1]*256;
+ if (nbchannel<1) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WAV import - invalid number of audio channel\n");
+ return;
+ }
+ bitspersample=wav_header->BitsPerSample[0]+wav_header->BitsPerSample[1]*256;
+#if TRACE_HEXBIN
+printf("AudioLoadSample bitpersample=%d\n",bitspersample);
+#endif
+ switch (bitspersample) {
+ case 8:_internal_getsample=__internal_getsample8;break;
+ case 16:if (!bigendian) _internal_getsample=__internal_getsample16little; else _internal_getsample=__internal_getsample16big;break;
+ case 24:if (!bigendian) _internal_getsample=__internal_getsample24little; else _internal_getsample=__internal_getsample24big;break;
+ case 32:if (!bigendian) {
+ if (_isLittleEndian()) {
+ _internal_getsample=__internal_getsample32littlelittle;
+ } else {
+ _internal_getsample=__internal_getsample32littlebig;
+ }
+ } else {
+ if (_isLittleEndian()) {
+ _internal_getsample=__internal_getsample32biglittle;
+ } else {
+ _internal_getsample=__internal_getsample32bigbig;
+ }
+ }
+ break;
+ default:
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WAV import - unsupported bits per sample (%d)\n",bitspersample);
+ return;
+ }
+
+ nbsample=controlsize/nbchannel/(bitspersample/8);
+ if (controlsize+sizeof(struct s_wav_header)>filesize) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"WAV import - cannot read %d byte%s of audio whereas the file is %d bytes big!\n",controlsize,controlsize>1?"s":"",filesize);
+ return;
+ }
+
+#if TRACE_HEXBIN
+printf("nbsample=%d (sze=%d,chn=%d,bps=%d) st=%c\n",nbsample,controlsize,nbchannel,bitspersample,sample_type);
+#endif
+
+ idx=subchunk-data;
+ switch (sample_type) {
+ default:
+ case AUDIOSAMPLE_SMP:
+ for (i=0;i<nbsample;i++) {
+ /* downmixing */
+ accumulator=0.0;
+ for (n=0;n<nbchannel;n++) {
+ accumulator+=_internal_getsample(data,&idx);
+ }
+ /* normalize */
+ cursample=MinMaxInt(floor(((accumulator/nbchannel)*normalize)+0.5)+128,0,255);
+
+ /* PSG levels */
+ samplevalue=ae->psgfine[cursample];
+
+ /* output */
+ ___output(ae,samplevalue);
+ }
+ break;
+ case AUDIOSAMPLE_SM2:
+ /* +1 pour éviter le segfault */
+ for (i=0;i<nbsample+1;i+=2) {
+ for (j=0;j<2;j++) {
+ /* downmixing */
+ accumulator=0.0;
+ for (n=0;n<nbchannel;n++) {
+ accumulator+=_internal_getsample(data,&idx);
+ }
+ /* normalize */
+ cursample=MinMaxInt(floor(((accumulator/nbchannel)*normalize)+0.5)+128,0,255);
+ /* PSG levels & packing */
+ samplevalue=(samplevalue<<4)+(ae->psgfine[cursample]);
+ }
+
+ /* output */
+ ___output(ae,samplevalue);
+ }
+ break;
+ case AUDIOSAMPLE_SM4:
+ /***
+ SM4 format has two bits
+ bits -> PSG value
+ 00 -> 0
+ 01 -> 13
+ 10 -> 14
+ 11 -> 15
+ ***/
+ /* +3 pour éviter le segfault */
+ for (i=0;i<nbsample+3;i+=4) {
+ for (j=0;j<4;j++) {
+ /* downmixing */
+ accumulator=0.0;
+ for (n=0;n<nbchannel;n++) {
+ accumulator+=_internal_getsample(data,&idx);
+ }
+ /* normalize */
+ cursample=MinMaxInt(floor(((accumulator/nbchannel)*normalize)+0.5)+128,0,255);
+ /* PSG levels & packing */
+ samplevalue=(samplevalue<<2)+(ae->psgtab[cursample]>>2);
+ }
+ /* output */
+ ___output(ae,samplevalue);
+ }
+ break;
+ case AUDIOSAMPLE_DMA:
+ sampleprevious=255;
+ for (i=0;i<nbsample;i++) {
+ /* downmixing */
+ accumulator=0.0;
+ for (n=0;n<nbchannel;n++) {
+ accumulator+=_internal_getsample(data,&idx);
+ }
+ /* normalize */
+ cursample=MinMaxInt(floor(((accumulator/nbchannel)*normalize)+0.5)+128,0,255);
+
+ /* PSG levels */
+ samplevalue=ae->psgtab[cursample];
+
+ if (samplevalue==sampleprevious) {
+ samplerepeat++;
+ } else {
+ if (!samplerepeat) {
+ /* DMA output */
+ ___output(ae,sampleprevious);
+ ___output(ae,0x0A); /* volume canal C */
+ } else {
+ /* DMA pause */
+ ___output(ae,sampleprevious);
+ ___output(ae,0x0A); /* volume canal C */
+ while (samplerepeat) {
+ ipause=samplerepeat<4096?samplerepeat:4095;
+ ___output(ae,ipause&0xFF);
+ ___output(ae,0x10 | ((ipause>>8) &0xF)); /* pause */
+
+ samplerepeat-=4096;
+ if (samplerepeat<0) samplerepeat=0;
+ }
+ }
+ sampleprevious=samplevalue;
+ }
+ }
+ if (samplerepeat) {
+ /* DMA pause */
+ ___output(ae,sampleprevious);
+ ___output(ae,0x0A); /* volume canal C */
+ while (samplerepeat) {
+ ipause=samplerepeat<4096?samplerepeat:4095;
+ ___output(ae,ipause&0xFF);
+ ___output(ae,0x10 | ((ipause>>8) &0xF)); /* pause */
+
+ samplerepeat-=4096;
+ if (samplerepeat<0) samplerepeat=0;
+ }
+ }
+ ___output(ae,0);
+ ___output(ae,0x0A); /* volume canal C */
+ ___output(ae,0x20);
+ ___output(ae,0x40); /* stop or reloop? */
+ break;
+ }
+}
+
+/*
+ meta fonction qui gère le INCBIN standard plus les variantes SMP et DMA
+*/
+void __HEXBIN(struct s_assenv *ae) {
+ int hbinidx,overwritecheck=1,crc;
+ struct s_expr_dico *rvar;
+ unsigned int idx;
+ int size=0,offset=0;
+ float amplification=1.0;
+ int deload=0;
+ int vtiles=0,remap=0,revert=0;
+ int itiles=0,tilex;
+
+ if (!ae->wl[ae->idx].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+1].w,1);
+ hbinidx=RoundComputeExpressionCore(ae,ae->wl[ae->idx+1].w,ae->codeadr,0);
+ if (hbinidx>ae->ih) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"internal error with binary file import (index out of bounds)\n");
+ return;
+ }
+#if TRACE_HEXBIN
+printf("Hexbin idx=[%s] filename=[%s]\n",ae->wl[ae->idx+1].w,ae->hexbin[hbinidx].filename);
+#endif
+
+ if (!ae->wl[ae->idx+1].t) {
+ if (strcmp("DSK",ae->wl[ae->idx+2].w)==0) {
+ /* import binary from DSK */
+ } else if (strchr("SD",ae->wl[ae->idx+2].w[0]) && ae->wl[ae->idx+2].w[1]=='M' &&
+ strchr("P24A",ae->wl[ae->idx+2].w[2]) && !ae->wl[ae->idx+2].w[3]) {
+ /* SMP,SM2,SM4,DMA */
+
+#if TRACE_HEXBIN
+printf("Hexbin -> %s\n",ae->wl[ae->idx+2].w);
+#endif
+ if (!ae->wl[ae->idx+2].t) {
+ amplification=ComputeExpressionCore(ae,ae->wl[ae->idx+3].w,ae->codeadr,0);
+#if TRACE_HEXBIN
+printf("sample amplification=%.2lf\n",amplification);
+#endif
+ }
+
+ switch (ae->wl[ae->idx+2].w[2]) {
+ case 'P':_AudioLoadSample(ae,ae->hexbin[hbinidx].data,ae->hexbin[hbinidx].datalen, AUDIOSAMPLE_SMP,amplification);break;
+ case '2':_AudioLoadSample(ae,ae->hexbin[hbinidx].data,ae->hexbin[hbinidx].datalen, AUDIOSAMPLE_SM2,amplification);break;
+ case '4':_AudioLoadSample(ae,ae->hexbin[hbinidx].data,ae->hexbin[hbinidx].datalen, AUDIOSAMPLE_SM4,amplification);break;
+ case 'A':_AudioLoadSample(ae,ae->hexbin[hbinidx].data,ae->hexbin[hbinidx].datalen, AUDIOSAMPLE_DMA,amplification);break;
+ default:printf("warning remover\n");break;
+ }
+ ae->idx+=2;
+ return;
+ } else {
+ /* legacy binary file */
+#if TRACE_HEXBIN
+printf("Hexbin legacy datalen=%d\n",ae->hexbin[hbinidx].datalen);
+#endif
+ if (strcmp("REVERT",ae->wl[ae->idx+2].w)==0) {
+ /* revert data */
+ if (!ae->wl[ae->idx+2].t) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN REVERT does not need extra parameters\n");
+ }
+#if TRACE_HEXBIN
+printf(" -> REVERT loading\n");
+#endif
+ revert=1;
+ offset=size=0; // full file
+ ae->idx++;
+
+ } else if (strcmp("REMAP",ae->wl[ae->idx+2].w)==0) {
+ /* reorder tiles data */
+ if (!ae->wl[ae->idx+2].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+3].w,1);
+ remap=RoundComputeExpressionCore(ae,ae->wl[ae->idx+3].w,ae->codeadr,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN REMAP need a number of columns for reordering\n");
+ }
+#if TRACE_HEXBIN
+printf(" -> REMAP loading\n");
+#endif
+ offset=size=0; // full file
+ ae->idx+=2;
+
+ } else if (strcmp("ITILES",ae->wl[ae->idx+2].w)==0) {
+ /*** entrelace les tiles, besoin de hauteur et largeur de la tile ***/
+ if (!ae->wl[ae->idx+2].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+3].w,1);
+ tilex=RoundComputeExpressionCore(ae,ae->wl[ae->idx+3].w,ae->codeadr,0);
+ itiles=1;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"usage is INCBIN'file',ITILES,width\n");
+ }
+#if TRACE_HEXBIN
+printf(" -> ITILES loading\n");
+#endif
+ offset=size=0; // full file
+ ae->idx+=2;
+ } else if (strcmp("VTILES",ae->wl[ae->idx+2].w)==0) {
+ /* import and reorder tiles */
+ if (!ae->wl[ae->idx+2].t) {
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+3].w,1);
+ vtiles=RoundComputeExpressionCore(ae,ae->wl[ae->idx+3].w,ae->codeadr,0);
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN VTILES need a number of lines for reordering\n");
+ }
+#if TRACE_HEXBIN
+printf(" -> VTILES loading\n");
+#endif
+ offset=size=0; // full file
+ ae->idx+=2;
+ } else {
+ char *expwrk;
+
+ expwrk=TxtStrDup(ae->wl[ae->idx+2].w);
+ ExpressionFastTranslate(ae,&expwrk,1);
+ offset=RoundComputeExpressionCore(ae,expwrk,ae->codeadr,0);
+ MemFree(expwrk);
+#if TRACE_HEXBIN
+ printf("offset=%d\n",offset);
+#endif
+ if (!ae->wl[ae->idx+2].t) {
+ if (ae->wl[ae->idx+3].w[0]) {
+ expwrk=TxtStrDup(ae->wl[ae->idx+3].w);
+ ExpressionFastTranslate(ae,&expwrk,1);
+ size=RoundComputeExpressionCore(ae,expwrk,ae->codeadr,0);
+ MemFree(expwrk);
+ } else {
+ size=0;
+ }
+#if TRACE_HEXBIN
+ printf("size=%d\n",size);
+#endif
+ if (size<-65535 || size>65536) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN invalid size\n");
+ }
+ if (!ae->wl[ae->idx+3].t) {
+ if (ae->wl[ae->idx+4].w[0]) {
+ expwrk=TxtStrDup(ae->wl[ae->idx+4].w);
+ ExpressionFastTranslate(ae,&expwrk,1);
+ offset+=65536*RoundComputeExpressionCore(ae,expwrk,ae->codeadr,0);
+ MemFree(expwrk);
+ }
+ if (!ae->wl[ae->idx+4].t) {
+ if (strcmp(ae->wl[ae->idx+5].w,"OFF")==0) {
+ overwritecheck=0;
+ } else if (strcmp(ae->wl[ae->idx+5].w,"ON")==0) {
+ overwritecheck=1;
+#if TRACE_HEXBIN
+ printf("mode OVERWRITE\n");
+#endif
+ } else if (ae->wl[ae->idx+5].w[0]) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN invalid overwrite value. Must be 'OFF' or 'ON'\n");
+ }
+ if (!ae->wl[ae->idx+5].t) {
+ /* copy raw len to a (new) variable */
+ crc=GetCRC(ae->wl[ae->idx+6].w);
+ if ((rvar=SearchDico(ae,ae->wl[ae->idx+6].w,crc))!=NULL) {
+ rvar->v=ae->hexbin[hbinidx].rawlen;
+ } else {
+ /* mais ne peut être un label ou un alias */
+ ExpressionSetDicoVar(ae,ae->wl[ae->idx+6].w,ae->hexbin[hbinidx].rawlen);
+ }
+ ae->idx+=6;
+ } else {
+ ae->idx+=5;
+ }
+ } else {
+ ae->idx+=4;
+ }
+ } else {
+ ae->idx+=3;
+ }
+ } else {
+ ae->idx+=2;
+ }
+ }
+ }
+ } else {
+ ae->idx++;
+ }
+
+ /* preprocessor cannot manage variables so here is the delayed load */
+ if (ae->hexbin[hbinidx].datalen<0) {
+ struct s_hexbin *curhexbin;
+ char *newfilename;
+ int lm,touched;
+ unsigned char *newdata=NULL;
+
+#if TRACE_HEXBIN
+printf("Hexbin -> as only the assembler know how to deal with var,\n");
+printf("we look for tags in the name of a file which were not found\n");
+#endif
+ curhexbin=&ae->hexbin[hbinidx];
+
+ newfilename=TxtStrDup(curhexbin->filename);
+
+ /* need to upper case tags */
+ for (lm=touched=0;newfilename[lm];lm++) {
+ if (newfilename[lm]=='{') touched++; else if (newfilename[lm]=='}') touched--; else if (touched) newfilename[lm]=toupper(newfilename[lm]);
+ }
+ /* on essaie d'interpréter le nom du fichier en dynamique */
+ newfilename=TranslateTag(ae,newfilename,&touched,1,E_TAGOPTION_REMOVESPACE);
+ /* load */
+ if (FileExists(newfilename)) {
+#if TRACE_HEXBIN
+printf("Hexbin -> surprise! we found the file!\n");
+#endif
+ curhexbin->rawlen=curhexbin->datalen=FileGetSize(newfilename);
+ curhexbin->data=MemMalloc(curhexbin->datalen*1.3+10);
+ if (FileReadBinary(newfilename,(char*)curhexbin->data,curhexbin->datalen)!=curhexbin->datalen) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"read error on file [%s]\n",newfilename);
+ return;
+ }
+ FileReadBinaryClose(newfilename);
+
+ switch (curhexbin->crunch) {
+ #ifndef NO_3RD_PARTIES
+ case 4:
+ newdata=LZ4_crunch(curhexbin->data,curhexbin->datalen,&curhexbin->datalen);
+ MemFree(curhexbin->data);
+ curhexbin->data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched with LZ4 into %d byte(s)\n",curhexbin->datalen);
+ #endif
+ break;
+ case 7:
+ {
+ size_t slzlen;
+ newdata=ZX7_compress(optimize(curhexbin->data, curhexbin->datalen), curhexbin->data, curhexbin->datalen, &slzlen);
+ curhexbin->datalen=slzlen;
+ MemFree(curhexbin->data);
+ curhexbin->data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched with ZX7 into %d byte(s)\n",curhexbin->datalen);
+ #endif
+ }
+ break;
+ case 8:
+ rasm_printf(ae,KWARNING"Exomizer is crunching %.1fkb this may take a while, be patient...\n",curhexbin->datalen/1024.0);
+ newdata=Exomizer_crunch(curhexbin->data,curhexbin->datalen,&curhexbin->datalen);
+ MemFree(curhexbin->data);
+ curhexbin->data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched with Exomizer into %d byte(s)\n",curhexbin->datalen);
+ #endif
+ break;
+ #endif
+ case 48:
+ newdata=LZ48_crunch(curhexbin->data,curhexbin->datalen,&curhexbin->datalen);
+ MemFree(curhexbin->data);
+ curhexbin->data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched with LZ48 into %d byte(s)\n",curhexbin->datalen);
+ #endif
+ break;
+ case 49:
+ newdata=LZ49_crunch(curhexbin->data,curhexbin->datalen,&curhexbin->datalen);
+ MemFree(curhexbin->data);
+ curhexbin->data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched with LZ49 into %d byte(s)\n",curhexbin->datalen);
+ #endif
+ break;
+ default:break;
+ }
+ deload=1;
+ } else {
+ /* still not found */
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"file not found [%s]\n",newfilename);
+ return;
+ }
+ }
+
+ if (ae->hexbin[hbinidx].datalen>0) {
+ if (hbinidx<ae->ih && hbinidx>=0) {
+ if (size<0) {
+#if TRACE_HEXBIN
+printf("taille négative %d -> conversion en %d\n",size,ae->hexbin[hbinidx].datalen+size);
+#endif
+ size=ae->hexbin[hbinidx].datalen+size;
+ if (size<1) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN negative size is greater or equal to filesize\n");
+ }
+ }
+ /* negative offset conversion */
+ if (offset<0) {
+#if TRACE_HEXBIN
+printf("offset négatif %d -> conversion en %d\n",offset,ae->hexbin[hbinidx].datalen+offset);
+#endif
+ offset=ae->hexbin[hbinidx].datalen+offset;
+ }
+ if (!size) {
+ if (!offset) {
+ size=ae->hexbin[hbinidx].datalen;
+ } else {
+ size=ae->hexbin[hbinidx].datalen-offset;
+ }
+#if TRACE_HEXBIN
+printf("taille nulle et offset=%d -> conversion en %d\n",offset,size);
+#endif
+ }
+ if (size>ae->hexbin[hbinidx].datalen) {
+ rasm_printf(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN size is greater than filesize\n");
+ } else {
+ if (size+offset>ae->hexbin[hbinidx].datalen) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN size+offset is greater than filesize\n");
+ } else {
+ if (revert) {
+ int p;
+ p=size-1;
+ while (p>=0) {
+ ___output(ae,ae->hexbin[hbinidx].data[p--]);
+ }
+ } else if (itiles) {
+ /* tiles data reordering */
+ int tx,ty,it,width;
+
+ if (size % (tilex*8)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN ITILES cannot reorder tiles %d bytewidth with file of size %d\n",tilex,size);
+ } else {
+ it=0;
+ while (it<size) {
+ for (tx=0;tx<tilex;tx++) ___output(ae,ae->hexbin[hbinidx].data[it+tx+0*tilex]);
+ for (tx=tilex-1;tx>=0;tx--) ___output(ae,ae->hexbin[hbinidx].data[it+tx+1*tilex]);
+ for (tx=0;tx<tilex;tx++) ___output(ae,ae->hexbin[hbinidx].data[it+tx+3*tilex]);
+ for (tx=tilex-1;tx>=0;tx--) ___output(ae,ae->hexbin[hbinidx].data[it+tx+2*tilex]);
+ for (tx=0;tx<tilex;tx++) ___output(ae,ae->hexbin[hbinidx].data[it+tx+6*tilex]);
+ for (tx=tilex-1;tx>=0;tx--) ___output(ae,ae->hexbin[hbinidx].data[it+tx+7*tilex]);
+ for (tx=0;tx<tilex;tx++) ___output(ae,ae->hexbin[hbinidx].data[it+tx+5*tilex]);
+ for (tx=tilex-1;tx>=0;tx--) ___output(ae,ae->hexbin[hbinidx].data[it+tx+4*tilex]);
+ it+=tilex*8;
+ }
+ }
+ } else if (remap) {
+ /* tiles data reordering */
+ int tx,ty,it,width;
+
+ width=size/remap;
+
+ if ((size % remap) || (remap*width>size)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN REMAP cannot reorder %d columns%s with file of size %d\n",remap,remap>1?"s":"",size);
+ } else {
+ for (it=0;it<remap;it++) {
+ for (tx=0;tx<width;tx++) {
+ ___output(ae,ae->hexbin[hbinidx].data[it+tx*remap]);
+ }
+ }
+ }
+
+ } else if (vtiles) {
+ /* tiles map reordering */
+ int width,tilex,tiley;
+
+ width=size/vtiles;
+
+ if ((size % vtiles) || (vtiles*width>size)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INCBIN VTILES cannot reorder %d line%s with file of size %d\n",vtiles,vtiles>1?"s":"",size);
+ } else {
+#if TRACE_HEXBIN
+printf("Hexbin -> re-tiling MAP! width=%d\n",width);
+#endif
+ for (idx=tilex=tiley=0;idx<size;idx++) {
+ ___output(ae,ae->hexbin[hbinidx].data[tilex+tiley*width]);
+ tiley++;
+ if (tiley>=vtiles) {
+ tiley=0;
+ tilex++;
+ }
+ }
+ }
+ } else {
+ /* legacy HEXBIN */
+ if (overwritecheck) {
+ for (idx=offset;idx<size+offset;idx++) {
+ ___output(ae,ae->hexbin[hbinidx].data[idx]);
+ }
+ } else {
+ ___org_close(ae);
+ ___org_new(ae,0);
+ for (idx=offset;idx<size+offset;idx++) {
+ ___output(ae,ae->hexbin[hbinidx].data[idx]);
+ }
+ /* hack to disable overwrite check */
+ ae->orgzone[ae->io-1].nocode=2;
+ ___org_close(ae);
+ ___org_new(ae,0);
+ }
+ }
+ }
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INTERNAL - HEXBIN refer to unknown structure\n");
+ FreeAssenv(ae);
+ exit(2);
+ }
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"INTERNAL - HEXBIN need one HEX parameter\n");
+ FreeAssenv(ae);
+ exit(2);
+ }
+
+ /* generated names must be reloaded! */
+ if (deload) {
+ ae->hexbin[hbinidx].datalen=-1;
+ MemFree(ae->hexbin[hbinidx].data);
+ }
+}
+
+/*
+save "nom",start,size -> save binary
+save "nom",start,size,TAPE -> save tape file
+save "nom",start,size,AMSDOS -> save binary with Amsdos header
+save "nom",start,size,DSK,"dskname" -> save binary on DSK data format
+save "nom",start,size,DSK,"dskname",B -> select face
+save "nom",start,size,DSK,B -> current DSK, choose face
+save "nom",start,size,DSK -> current DSK, current face
+*/
+void __SAVE(struct s_assenv *ae) {
+ struct s_save cursave={0};
+ unsigned int offset=0,size=0;
+ int ko=1;
+
+ if (!ae->wl[ae->idx].t) {
+ /* nom de fichier entre quotes ou bien mot clef DSK */
+ if (!StringIsQuote(ae->wl[ae->idx+1].w)) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"SAVE invalid filename quote\n");
+ ko=0;
+ } else {
+ if (!ae->wl[ae->idx+1].t) {
+ if (!ae->wl[ae->idx+2].t && ae->wl[ae->idx+3].t!=2) {
+ cursave.ibank=ae->activebank;
+ cursave.ioffset=ae->idx+2;
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+2].w,1); // si on utilise des variables ça évite la grouille post traitement...
+ cursave.isize=ae->idx+3;
+ ExpressionFastTranslate(ae,&ae->wl[ae->idx+3].w,1); // idem
+ cursave.iw=ae->idx+1;
+ cursave.irun=ae->current_run_idx;
+ if (!ae->wl[ae->idx+3].t) {
+ if (strcmp(ae->wl[ae->idx+4].w,"TAPE")==0) {
+ cursave.tape=1;
+ } else if (strcmp(ae->wl[ae->idx+4].w,"AMSDOS")==0) {
+ cursave.amsdos=1;
+ } else if (strcmp(ae->wl[ae->idx+4].w,"HOBETA")==0) {
+ cursave.hobeta=1;
+ } else if (strcmp(ae->wl[ae->idx+4].w,"DSK")==0) {
+#if TRACE_EDSK
+ printf("DSK SAVE order [bnk: %d ioff: %d isiz: %d iw=%d [%s] [%s]\n",cursave.ibank,cursave.ioffset,cursave.isize,cursave.iw,ae->wl[ae->idx+2].w,ae->wl[ae->idx+3].w);
+#endif
+ cursave.dsk=1;
+ if (!ae->wl[ae->idx+4].t) {
+ cursave.iwdskname=ae->idx+5;
+ if (!ae->wl[ae->idx+5].t) {
+ /* face selection - 0 as default */
+ switch (ae->wl[ae->idx+6].w[0]) {
+ case '1':
+ case 'B':
+ cursave.face=1;
+ break;
+ case '0':
+ case 'A':
+ default:
+ cursave.face=0;
+ break;
+ }
+ }
+ } else {
+ if (ae->nbsave && ae->save[ae->nbsave-1].iwdskname!=-1) {
+ cursave.iwdskname=ae->save[ae->nbsave-1].iwdskname; /* previous DSK */
+ cursave.face=ae->save[ae->nbsave-1].face; /* previous face */
+ } else {
+ cursave.iwdskname=-1;
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"cannot autoselect DSK as there was not a previous selection\n");
+ }
+ }
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"SAVE 4th parameter must be empty or AMSDOS or DSK\n");
+ ko=0;
+ }
+ }
+ ObjectArrayAddDynamicValueConcat((void**)&ae->save,&ae->nbsave,&ae->maxsave,&cursave,sizeof(cursave));
+ ko=0;
+ }
+ }
+ }
+ }
+ if (ko) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"Use SAVE 'filename',offset,size[,AMSDOS|DSK[,A|B|'dskname'[,A|B]]]\n");
+ }
+ while (!ae->wl[ae->idx].t) ae->idx++;
+}
+
+
+void __MODULE(struct s_assenv *ae) {
+ if (!ae->wl[ae->idx].t && ae->wl[ae->idx+1].t==1) {
+ if (StringIsQuote(ae->wl[ae->idx+1].w)) {
+ if (ae->modulen || ae->module) {
+ MemFree(ae->module);
+ }
+ ae->modulen=strlen(ae->wl[ae->idx+1].w);
+ ae->module=MemMalloc(ae->modulen);
+ /* duplicate and remove quotes */
+ strcpy(ae->module,ae->wl[ae->idx+1].w+1);
+ ae->module[--ae->modulen]=0;
+ } else {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"MODULE directive need one text parameter\n");
+ }
+ ae->idx++;
+ } else {
+ if (ae->module) MemFree(ae->module);
+ ae->module=NULL;
+ }
+}
+
+void __TIMESTR(struct s_assenv *ae) {
+
+}
+
+struct s_asm_keyword instruction[]={
+{"LD",0,_LD},
+{"DEC",0,_DEC},
+{"INC",0,_INC},
+{"ADD",0,_ADD},
+{"SUB",0,_SUB},
+{"OR",0,_OR},
+{"AND",0,_AND},
+{"XOR",0,_XOR},
+{"POP",0,_POP},
+{"PUSH",0,_PUSH},
+{"DJNZ",0,_DJNZ},
+{"JR",0,_JR},
+{"JP",0,_JP},
+{"CALL",0,_CALL},
+{"RET",0,_RET},
+{"EX",0,_EX},
+{"ADC",0,_ADC},
+{"SBC",0,_SBC},
+{"EXA",0,_EXA},
+{"EXX",0,_EXX},
+{"CP",0,_CP},
+{"BIT",0,_BIT},
+{"RES",0,_RES},
+{"SET",0,_SET},
+{"IN",0,_IN},
+{"OUT",0,_OUT},
+{"RLC",0,_RLC},
+{"RRC",0,_RRC},
+{"RL",0,_RL},
+{"RR",0,_RR},
+{"SLA",0,_SLA},
+{"SRA",0,_SRA},
+{"SLL",0,_SLL},
+{"SL1",0,_SLL},
+{"SRL",0,_SRL},
+{"RST",0,_RST},
+{"HALT",0,_HALT},
+{"DI",0,_DI},
+{"EI",0,_EI},
+{"NOP",0,_NOP},
+{"DEFR",0,_DEFR},
+{"DEFB",0,_DEFB},
+{"DEFM",0,_DEFB},
+{"DR",0,_DEFR},
+{"DM",0,_DEFB},
+{"DB",0,_DEFB},
+{"DEFW",0,_DEFW},
+{"DW",0,_DEFW},
+{"DEFS",0,_DEFS},
+{"DS",0,_DEFS},
+{"STR",0,_STR},
+{"LDI",0,_LDI},
+{"LDIR",0,_LDIR},
+{"OUTI",0,_OUTI},
+{"INI",0,_INI},
+{"RLCA",0,_RLCA},
+{"RRCA",0,_RRCA},
+{"NEG",0,_NEG},
+{"RLA",0,_RLA},
+{"RRA",0,_RRA},
+{"RLD",0,_RLD},
+{"RRD",0,_RRD},
+{"DAA",0,_DAA},
+{"CPL",0,_CPL},
+{"SCF",0,_SCF},
+{"LDD",0,_LDD},
+{"LDDR",0,_LDDR},
+{"CCF",0,_CCF},
+{"OUTD",0,_OUTD},
+{"IND",0,_IND},
+{"RETI",0,_RETI},
+{"RETN",0,_RETN},
+{"IM",0,_IM},
+{"DEFI",0,_DEFI},
+{"CPD",0,_CPD},
+{"CPI",0,_CPI},
+{"CPDR",0,_CPDR},
+{"CPIR",0,_CPIR},
+{"OTDR",0,_OTDR},
+{"OTIR",0,_OTIR},
+{"INDR",0,_INDR},
+{"INIR",0,_INIR},
+{"REPEAT",0,__REPEAT},
+{"REND",0,__REND},
+{"ENDREPEAT",0,__REND},
+{"ENDREP",0,__REND},
+{"UNTIL",0,__UNTIL},
+{"ORG",0,__ORG},
+{"PROTECT",0,__PROTECT},
+{"WHILE",0,__WHILE},
+{"WEND",0,__WEND},
+{"HEXBIN",0,__HEXBIN},
+{"ALIGN",0,__ALIGN},
+{"ELSEIF",0,__ELSEIF},
+{"ELSE",0,__ELSE},
+{"IF",0,__IF},
+{"ENDIF",0,__ENDIF},
+{"IFNOT",0,__IFNOT},
+{"IFDEF",0,__IFDEF},
+{"IFNDEF",0,__IFNDEF},
+{"IFUSED",0,__IFUSED},
+{"IFNUSED",0,__IFNUSED},
+{"UNDEF",0,__UNDEF},
+{"CASE",0,__CASE},
+{"BREAK",0,__BREAK},
+{"DEFAULT",0,__DEFAULT},
+{"SWITCH",0,__SWITCH},
+{"ENDSWITCH",0,__ENDSWITCH},
+{"WRITE",0,__WRITE},
+{"CODE",0,__CODE},
+{"NOCODE",0,__NOCODE},
+{"MEMSPACE",0,__MEMSPACE},
+{"MACRO",0,__MACRO},
+{"TICKER",0,__TICKER},
+{"LET",0,__LET},
+{"ASSERT",0,__ASSERT},
+{"CHARSET",0,__CHARSET},
+{"RUN",0,__RUN},
+{"SAVE",0,__SAVE},
+{"BRK",0,__BRK},
+{"NOLIST",0,__NOLIST},
+{"LIST",0,__LIST},
+{"STOP",0,__STOP},
+{"PRINT",0,__PRINT},
+{"FAIL",0,__FAIL},
+{"BREAKPOINT",0,__BREAKPOINT},
+{"BANK",0,__BANK},
+{"BANKSET",0,__BANKSET},
+{"NAMEBANK",0,__NameBANK},
+{"LIMIT",0,__LIMIT},
+{"LZEXO",0,__LZEXO},
+{"LZX7",0,__LZX7},
+{"LZ4",0,__LZ4},
+{"LZ48",0,__LZ48},
+{"LZ49",0,__LZ49},
+{"LZCLOSE",0,__LZCLOSE},
+{"BUILDZX",0,__BUILDZX},
+{"BUILDCPR",0,__BUILDCPR},
+{"BUILDSNA",0,__BUILDSNA},
+{"BUILDROM",0,__BUILDROM},
+{"BUILDTAPE",0,__BUILDTAPE},
+{"SETCPC",0,__SETCPC},
+{"SETCRTC",0,__SETCRTC},
+{"AMSDOS",0,__AMSDOS},
+{"OTD",0,_OUTD},
+{"OTI",0,_OUTI},
+{"SHL",0,_SLA},
+{"SHR",0,_SRL},
+{"STRUCT",0,__STRUCT},
+{"ENDSTRUCT",0,__ENDSTRUCT},
+{"ENDS",0,__ENDSTRUCT},
+{"NOEXPORT",0,__NOEXPORT},
+{"ENOEXPORT",0,__ENOEXPORT},
+{"",0,NULL}
+};
+
+int Assemble(struct s_assenv *ae, unsigned char **dataout, int *lenout, struct s_rasm_info **debug)
+{
+ #undef FUNC
+ #define FUNC "Assemble"
+
+ unsigned char *AmsdosHeader;
+ struct s_expression curexp={0};
+ struct s_wordlist *wordlist;
+ struct s_expr_dico curdico={0};
+ struct s_label *curlabel;
+ int icrc,curcrc,i,j,k;
+ unsigned char *lzdata=NULL;
+ int lzlen,lzshift,input_size;
+ size_t slzlen;
+ unsigned char *input_data;
+ struct s_orgzone orgzone={0};
+ int iorgzone,ibank,offset,endoffset;
+ int il,maxrom;
+ char *TMP_filename=NULL;
+ int minmem=65536,maxmem=0,lzmove;
+ char symbol_line[1024];
+ int ifast,executed;
+ /* debug */
+ int curii,inhibe;
+ int ok;
+
+ rasm_printf(ae,KAYGREEN"Assembling\n");
+#if TRACE_ASSEMBLE
+printf("assembling\n");
+#endif
+#if TRACE_GENERALE
+printf("*** assembling ***\n");
+#endif
+
+ ae->retdebug=debug;
+
+ srand((unsigned)time(0));
+
+ wordlist=ae->wl;
+ ae->wl=wordlist;
+ /* start outside crunched section */
+ ae->lz=-1;
+
+ /* default orgzone */
+ orgzone.ibank=BANK_MAX_NUMBER;
+ ObjectArrayAddDynamicValueConcat((void**)&ae->orgzone,&ae->io,&ae->mo,&orgzone,sizeof(orgzone));
+ ___output=___internal_output;
+ /* init des automates */
+ InitAutomate(ae->AutomateHexa,AutomateHexaDefinition);
+ InitAutomate(ae->AutomateDigit,AutomateDigitDefinition);
+ InitAutomate(ae->AutomateValidLabel,AutomateValidLabelDefinition);
+ InitAutomate(ae->AutomateValidLabelFirst,AutomateValidLabelFirstDefinition);
+ InitAutomate(ae->AutomateExpressionValidCharExtended,AutomateExpressionValidCharExtendedDefinition);
+ InitAutomate(ae->AutomateExpressionValidCharFirst,AutomateExpressionValidCharFirstDefinition);
+ InitAutomate(ae->AutomateExpressionValidChar,AutomateExpressionValidCharDefinition);
+ ae->AutomateExpressionDecision['<']='<';
+ ae->AutomateExpressionDecision['>']='>';
+ ae->AutomateExpressionDecision['=']='=';
+ ae->AutomateExpressionDecision['!']='!';
+ ae->AutomateExpressionDecision[0]='E';
+ /* gestion d'alias */
+ ae->AutomateExpressionDecision['~']='~';
+ /* set operator precedence */
+ if (!ae->maxam) {
+ for (i=0;i<256;i++) {
+ switch (i) {
+ /* priority 0 */
+ case '(':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_OPEN;ae->AutomateElement[i].priority=0;break;
+ case ')':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_CLOSE;ae->AutomateElement[i].priority=0;break;
+ /* priority 1 */
+ case 'b':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_NOT;ae->AutomateElement[i].priority=1;break;
+ /* priority 2 */
+ case '*':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_MUL;ae->AutomateElement[i].priority=2;break;
+ case '/':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_DIV;ae->AutomateElement[i].priority=2;break;
+ case 'm':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_MOD;ae->AutomateElement[i].priority=2;break;
+ /* priority 3 */
+ case '+':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_ADD;ae->AutomateElement[i].priority=3;break;
+ case '-':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_SUB;ae->AutomateElement[i].priority=3;break;
+ /* priority 4 */
+ case '[':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_SHL;ae->AutomateElement[i].priority=4;break;
+ case ']':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_SHR;ae->AutomateElement[i].priority=4;break;
+ /* priority 5 */
+ case 'l':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_LOWER;ae->AutomateElement[i].priority=5;break;
+ case 'g':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_GREATER;ae->AutomateElement[i].priority=5;break;
+ case 'e':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_EQUAL;ae->AutomateElement[i].priority=5;break;
+ case 'n':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_NOTEQUAL;ae->AutomateElement[i].priority=5;break;
+ case 'k':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_LOWEREQ;ae->AutomateElement[i].priority=5;break;
+ case 'h':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_GREATEREQ;ae->AutomateElement[i].priority=5;break;
+ /* priority 6 */
+ case '&':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_AND;ae->AutomateElement[i].priority=6;break;
+ /* priority 7 */
+ case '^':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_XOR;ae->AutomateElement[i].priority=7;break;
+ /* priority 8 */
+ case '|':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_OR;ae->AutomateElement[i].priority=8;break;
+ /* priority 9 */
+ case 'a':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_BAND;ae->AutomateElement[i].priority=9;break;
+ /* priority 10 */
+ case 'o':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_BOR;ae->AutomateElement[i].priority=10;break;
+ default:ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_END;
+ }
+ }
+ } else {
+ for (i=0;i<256;i++) {
+ switch (i) {
+ /* priority 0 */
+ case '(':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_OPEN;ae->AutomateElement[i].priority=0;break;
+ case ')':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_CLOSE;ae->AutomateElement[i].priority=0;break;
+ /* priority 0.5 */
+ case 'b':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_NOT;ae->AutomateElement[i].priority=128;break;
+ /* priority 1 */
+ case '*':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_MUL;ae->AutomateElement[i].priority=464;break;
+ case '/':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_DIV;ae->AutomateElement[i].priority=464;break;
+ case 'm':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_MOD;ae->AutomateElement[i].priority=464;break;
+ case '+':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_ADD;ae->AutomateElement[i].priority=464;break;
+ case '-':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_SUB;ae->AutomateElement[i].priority=464;break;
+ case '[':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_SHL;ae->AutomateElement[i].priority=464;break;
+ case ']':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_SHR;ae->AutomateElement[i].priority=464;break;
+ case '&':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_AND;ae->AutomateElement[i].priority=464;break;
+ case '^':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_XOR;ae->AutomateElement[i].priority=464;break;
+ case '|':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_OR;ae->AutomateElement[i].priority=464;break;
+ /* priority 2 */
+ case 'l':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_LOWER;ae->AutomateElement[i].priority=664;break;
+ case 'g':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_GREATER;ae->AutomateElement[i].priority=664;break;
+ case 'e':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_EQUAL;ae->AutomateElement[i].priority=664;break;
+ case 'n':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_NOTEQUAL;ae->AutomateElement[i].priority=664;break;
+ case 'k':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_LOWEREQ;ae->AutomateElement[i].priority=664;break;
+ case 'h':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_GREATEREQ;ae->AutomateElement[i].priority=664;break;
+ /* priority 3 */
+ case 'a':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_BAND;ae->AutomateElement[i].priority=6128;break;
+ case 'o':ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_BOR;ae->AutomateElement[i].priority=6128;break;
+ default:ae->AutomateElement[i].operator=E_COMPUTE_OPERATION_END;
+ }
+ }
+ }
+
+ /* psg conversion */
+ for (i=j=0;i<100;i++) ae->psgtab[j++]=0;
+ for (i=0;i<49;i++) ae->psgtab[j++]=13;
+ for (i=0;i<35;i++) ae->psgtab[j++]=14;
+ for (i=0;i<72;i++) ae->psgtab[j++]=15;
+ if (j!=256) {
+ rasm_printf(ae,"Internal error with PSG conversion table\n");
+ exit(-44);
+ }
+ for (i=j=0;i<1;i++) ae->psgfine[j++]=0;
+ for (i=0;i<1;i++) ae->psgfine[j++]=1;
+ for (i=0;i<1;i++) ae->psgfine[j++]=2;
+ for (i=0;i<2;i++) ae->psgfine[j++]=3;
+ for (i=0;i<2;i++) ae->psgfine[j++]=4;
+ for (i=0;i<2;i++) ae->psgfine[j++]=5;
+ for (i=0;i<3;i++) ae->psgfine[j++]=6;
+ for (i=0;i<4;i++) ae->psgfine[j++]=7;
+ for (i=0;i<7;i++) ae->psgfine[j++]=8;
+ for (i=0;i<9;i++) ae->psgfine[j++]=9;
+ for (i=0;i<13;i++) ae->psgfine[j++]=10;
+ for (i=0;i<19;i++) ae->psgfine[j++]=11;
+ for (i=0;i<27;i++) ae->psgfine[j++]=12;
+ for (i=0;i<37;i++) ae->psgfine[j++]=13;
+ for (i=0;i<53;i++) ae->psgfine[j++]=14;
+ for (i=0;i<75;i++) ae->psgfine[j++]=15;
+ if (j!=256) {
+ rasm_printf(ae,"Internal error with PSG conversion table\n");
+ exit(-44);
+ }
+ /* default var */
+ ae->autorise_export=1;
+ ExpressionSetDicoVar(ae,"PI",3.1415926545);
+ ExpressionSetDicoVar(ae,"ASSEMBLER_RASM",1);
+
+ /* add a fictive expression to simplify test when parsing expressions */
+ ObjectArrayAddDynamicValueConcat((void **)&ae->expression,&ae->ie,&ae->me,&curexp,sizeof(curexp));
+
+ /* compute CRC for keywords and directives */
+ for (icrc=0;instruction[icrc].mnemo[0];icrc++) instruction[icrc].crc=GetCRC(instruction[icrc].mnemo);
+ for (icrc=0;math_keyword[icrc].mnemo[0];icrc++) math_keyword[icrc].crc=GetCRC(math_keyword[icrc].mnemo);
+
+ if (ae->as80==1) { /* not for UZ80 */
+ for (icrc=0;instruction[icrc].mnemo[0];icrc++) {
+ if (strcmp(instruction[icrc].mnemo,"DEFB")==0 || strcmp(instruction[icrc].mnemo,"DB")==0) {
+ instruction[icrc].makemnemo=_DEFB_as80;
+ } else if (strcmp(instruction[icrc].mnemo,"DEFW")==0 || strcmp(instruction[icrc].mnemo,"DW")==0) {
+ instruction[icrc].makemnemo=_DEFW_as80;
+ } else if (strcmp(instruction[icrc].mnemo,"DEFI")==0) {
+ instruction[icrc].makemnemo=_DEFI_as80;
+ }
+ }
+ }
+
+ for (icrc=0;instruction[icrc].mnemo[0];icrc++) {
+ /* get indexes for DEF instructions */
+ if (strcmp(instruction[icrc].mnemo,"DEFB")==0) {
+ ICRC_DEFB=icrc;
+ } else if (strcmp(instruction[icrc].mnemo,"DB")==0) {
+ ICRC_DB=icrc;
+ } else if (strcmp(instruction[icrc].mnemo,"DEFW")==0) {
+ ICRC_DEFW=icrc;
+ } else if (strcmp(instruction[icrc].mnemo,"DW")==0) {
+ ICRC_DW=icrc;
+ } else if (strcmp(instruction[icrc].mnemo,"DEFR")==0) {
+ ICRC_DEFR=icrc;
+ } else if (strcmp(instruction[icrc].mnemo,"DR")==0) {
+ ICRC_DR=icrc;
+ } else if (strcmp(instruction[icrc].mnemo,"DEFS")==0) {
+ ICRC_DEFS=icrc;
+ } else if (strcmp(instruction[icrc].mnemo,"DS")==0) {
+ ICRC_DS=icrc;
+ } else if (strcmp(instruction[icrc].mnemo,"DEFI")==0) {
+ ICRC_DEFI=icrc;
+ }
+ }
+
+ /* Execution des mots clefs */
+ /**********************************************************
+ A S S E M B L I N G M A I N L O O P
+ **********************************************************/
+#if TRACE_ASSEMBLE
+printf("init ok\n");
+#endif
+#if TRACE_GENERALE
+printf("-loop\n");
+#endif
+
+ ae->idx=1;
+ while (wordlist[ae->idx].t!=2) {
+ curcrc=GetCRC(wordlist[ae->idx].w);
+ /*********************
+ d e b u g i n f o
+ *********************/
+ #if TRACE_ASSEMBLE
+ {
+ int iiii=0;
+ printf(KVERBOSE"%d [%s] L%d [%s]e=%d ",ae->idx,ae->filename[wordlist[ae->idx].ifile],wordlist[ae->idx].l,wordlist[ae->idx].w,wordlist[ae->idx].e);
+ while (!wordlist[ae->idx+iiii++].t) rasm_printf(ae," [%s]e=%d ",wordlist[ae->idx+iiii].w,wordlist[ae->idx+iiii].e);
+
+ for (iiii=0;iiii<ae->imacropos;iiii++) {
+ printf("M[%d] s=%d e=%d ",iiii,ae->macropos[iiii].start,ae->macropos[iiii].end);
+ }
+ printf("\n");
+ }
+ #endif
+
+ /********************************************************************
+ c o n d i t i o n n a l a s s e m b l y m a n a g e m e n t
+ ********************************************************************/
+ if (ae->ii || ae->isw) {
+ /* inhibition of if/endif */
+ for (inhibe=curii=0;curii<ae->ii;curii++) {
+ if (!ae->ifthen[curii].v || ae->ifthen[curii].v==-1) {
+ inhibe=1;
+ break;
+ }
+ }
+ /* when inhibited we are looking only for a IF/IFDEF/IFNOT/IFNDEF/ELSE/ELSEIF/ENDIF or SWITCH/CASE/DEFAULT/ENDSWITCH */
+ if (inhibe) {
+ /* this section does NOT need to be agressively optimized !!! */
+ if (curcrc==CRC_ELSEIF && strcmp(wordlist[ae->idx].w,"ELSEIF")==0) {
+ /* true IF needs to be done ONLY on the active level */
+ if (curii==ae->ii-1) __ELSEIF(ae); else __ELSEIF_light(ae);
+ } else if (curcrc==CRC_ELSE && strcmp(wordlist[ae->idx].w,"ELSE")==0) {
+ __ELSE(ae);
+ } else if (curcrc==CRC_ENDIF && strcmp(wordlist[ae->idx].w,"ENDIF")==0) {
+ __ENDIF(ae);
+ } else if (curcrc==CRC_IF && strcmp(wordlist[ae->idx].w,"IF")==0) {
+ /* as we are inhibited we do not have to truly compute IF */
+ __IF_light(ae);
+ } else if (curcrc==CRC_IFDEF && strcmp(wordlist[ae->idx].w,"IFDEF")==0) {
+ __IFDEF_light(ae);
+ } else if (curcrc==CRC_IFNOT && strcmp(wordlist[ae->idx].w,"IFNOT")==0) {
+ __IFNOT_light(ae);
+ } else if (curcrc==CRC_IFUSED && strcmp(wordlist[ae->idx].w,"IFUSED")==0) {
+ __IFUSED_light(ae);
+ } else if (curcrc==CRC_IFNUSED && strcmp(wordlist[ae->idx].w,"IFNUSED")==0) {
+ __IFNUSED_light(ae);
+ } else if (curcrc==CRC_IFNDEF && strcmp(wordlist[ae->idx].w,"IFNDEF")==0) {
+ __IFNDEF_light(ae);
+ } else if (curcrc==CRC_SWITCH && strcmp(wordlist[ae->idx].w,"SWITCH")==0) {
+ __SWITCH_light(ae);
+ } else if (curcrc==CRC_CASE && strcmp(wordlist[ae->idx].w,"CASE")==0) {
+ __CASE_light(ae);
+ } else if (curcrc==CRC_ENDSWITCH && strcmp(wordlist[ae->idx].w,"ENDSWITCH")==0) {
+ __ENDSWITCH(ae);
+ } else if (curcrc==CRC_BREAK && strcmp(wordlist[ae->idx].w,"BREAK")==0) {
+ __BREAK_light(ae);
+ } else if (curcrc==CRC_DEFAULT && strcmp(wordlist[ae->idx].w,"DEFAULT")==0) {
+ __DEFAULT_light(ae);
+ }
+ while (wordlist[ae->idx].t==0) ae->idx++;
+ ae->idx++;
+ continue;
+ } else {
+ /* inhibition of switch/case */
+ for (curii=0;curii<ae->isw;curii++) {
+ if (!ae->switchcase[curii].execute) {
+ inhibe=2;
+ break;
+ }
+ }
+ if (inhibe) {
+ /* this section does NOT need to be agressively optimized !!! */
+ if (curcrc==CRC_CASE && strcmp(wordlist[ae->idx].w,"CASE")==0) {
+ __CASE(ae);
+ } else if (curcrc==CRC_ENDSWITCH && strcmp(wordlist[ae->idx].w,"ENDSWITCH")==0) {
+ __ENDSWITCH(ae);
+ } else if (curcrc==CRC_IF && strcmp(wordlist[ae->idx].w,"IF")==0) {
+ /* as we are inhibited we do not have to truly compute IF */
+ __IF_light(ae);
+ } else if (curcrc==CRC_IFDEF && strcmp(wordlist[ae->idx].w,"IFDEF")==0) {
+ __IFDEF(ae);
+ } else if (curcrc==CRC_IFNOT && strcmp(wordlist[ae->idx].w,"IFNOT")==0) {
+ __IFNOT(ae);
+ } else if (curcrc==CRC_ELSE && strcmp(wordlist[ae->idx].w,"ELSE")==0) {
+ __ELSE(ae);
+ } else if (curcrc==CRC_ENDIF && strcmp(wordlist[ae->idx].w,"ENDIF")==0) {
+ __ENDIF(ae);
+ } else if (curcrc==CRC_ELSEIF && strcmp(wordlist[ae->idx].w,"ELSEIF")==0) {
+ __ELSEIF(ae);
+ } else if (curcrc==CRC_IFUSED && strcmp(wordlist[ae->idx].w,"IFUSED")==0) {
+ __IFUSED(ae);
+ } else if (curcrc==CRC_IFNUSED && strcmp(wordlist[ae->idx].w,"IFNUSED")==0) {
+ __IFNUSED(ae);
+ } else if (curcrc==CRC_IFNDEF && strcmp(wordlist[ae->idx].w,"IFNDEF")==0) {
+ __IFNDEF(ae);
+ } else if (curcrc==CRC_SWITCH && strcmp(wordlist[ae->idx].w,"SWITCH")==0) {
+ __SWITCH(ae);
+ } else if (curcrc==CRC_BREAK && strcmp(wordlist[ae->idx].w,"BREAK")==0) {
+ __BREAK(ae);
+ } else if (curcrc==CRC_DEFAULT && strcmp(wordlist[ae->idx].w,"DEFAULT")==0) {
+ __DEFAULT(ae);
+ }
+ while (wordlist[ae->idx].t==0) ae->idx++;
+ ae->idx++;
+ continue;
+ }
+ }
+ }
+ if (ae->imacropos) {
+ /* are we still in a macro? */
+ if (ae->idx>=ae->macropos[0].end) {
+ /* are we out of all repetition blocks? */
+ if (!ae->ir && !ae->iw) {
+ ae->imacropos=0;
+
+ /* quand on sort du local, on récupère le dernier label global */
+ if (ae->lastsuperglobal!=ae->lastgloballabel && ae->lastsuperglobal) {
+ if (ae->lastglobalalloc) {
+ MemFree(ae->lastgloballabel);
+ ae->lastglobalalloc=0;
+ }
+ ae->lastgloballabel=ae->lastsuperglobal;
+ ae->lastgloballabellen=strlen(ae->lastgloballabel);
+ }
+ }
+ }
+ }
+ /*****************************************
+ e x e c u t e i n s t r u c t i o n
+ *****************************************/
+ executed=0;
+ if ((ifast=ae->fastmatch[(int)wordlist[ae->idx].w[0]])!=-1) {
+ while (instruction[ifast].mnemo[0]==wordlist[ae->idx].w[0]) {
+ if (instruction[ifast].crc==curcrc && strcmp(instruction[ifast].mnemo,wordlist[ae->idx].w)==0) {
+#if TRACE_ASSEMBLE
+printf("-> mnemo\n");
+#endif
+ instruction[ifast].makemnemo(ae);
+ executed=1;
+ break;
+ }
+ ifast++;
+ }
+ }
+ /*****************************************
+ e x e c u t e m a c r o
+ *****************************************/
+ if (!executed) {
+ /* is it a macro? */
+ if ((ifast=SearchMacro(ae,curcrc,wordlist[ae->idx].w))>=0) {
+#if TRACE_ASSEMBLE
+printf("-> macro\n");
+#endif
+ wordlist=__MACRO_EXECUTE(ae,ifast);
+ continue;
+ }
+ }
+ /*********************************************************************
+ e x e c u t e e x p r e s s i o n o r p u s h l a b e l
+ *********************************************************************/
+ if (!ae->stop) {
+ if (!executed) {
+ /* no instruction executed, this is a label or an assignement */
+ if (wordlist[ae->idx].e) {
+#if TRACE_ASSEMBLE
+printf("-> expr\n");
+#endif
+ ExpressionFastTranslate(ae,&wordlist[ae->idx].w,0);
+ ComputeExpression(ae,wordlist[ae->idx].w,ae->codeadr,0,0);
+ } else {
+#if TRACE_ASSEMBLE
+printf("-> label\n");
+#endif
+ PushLabel(ae);
+ }
+ } else {
+#if TRACE_ASSEMBLE
+printf("-> ajuste IDX\n");
+#endif
+ while (!wordlist[ae->idx].t) {
+ ae->idx++;
+ }
+ }
+ ae->idx++;
+ } else {
+#if TRACE_ASSEMBLE
+printf("-> STOP\n");
+#endif
+ break;
+ }
+ }
+#if TRACE_ASSEMBLE
+ rasm_printf(ae,KVERBOSE"%d [%s] L%d [%s] fin de la liste de mots\n",ae->idx,ae->filename[wordlist[ae->idx].ifile],wordlist[ae->idx].l,wordlist[ae->idx].w);
+ printf("check ORG\n");
+#endif
+#if TRACE_GENERALE
+printf("-check ORG\n");
+#endif
+
+ if (!ae->stop) {
+ /* end of assembly, check there is no opened struct */
+ if (ae->getstruct) {
+ MakeError(ae,ae->backup_filename,ae->backup_line,"STRUCT declaration was not closed\n");
+ }
+ /* end of assembly, close the last ORG zone */
+ if (ae->io) {
+ ae->orgzone[ae->io-1].memend=ae->outputadr;
+ }
+ OverWriteCheck(ae);
+ /* end of assembly, close crunched zone (if any) */
+ __internal_UpdateLZBlockIfAny(ae);
+
+ /* end of assembly, check for opened repeat and opened while loop */
+ for (i=0;i<ae->ir;i++) {
+ MakeError(ae,ae->filename[wordlist[ae->repeat[i].start].ifile],wordlist[ae->repeat[i].start].l,"REPEAT was not closed\n");
+ }
+ for (i=0;i<ae->iw;i++) {
+ MakeError(ae,ae->filename[wordlist[ae->whilewend[i].start].ifile],wordlist[ae->whilewend[i].start].l,"WHILE was not closed\n");
+ }
+ /* is there any IF opened? -> need an evolution for a better error message */
+ for (i=0;i<ae->ii;i++) {
+ char instr[32];
+ switch (ae->ifthen[i].type) {
+ case E_IFTHEN_TYPE_IF:strcpy(instr,"IF");break;
+ case E_IFTHEN_TYPE_IFNOT:strcpy(instr,"IFNOT");break;
+ case E_IFTHEN_TYPE_IFDEF:strcpy(instr,"IFDEF");break;
+ case E_IFTHEN_TYPE_IFNDEF:strcpy(instr,"IFNDEF");break;
+ case E_IFTHEN_TYPE_ELSE:strcpy(instr,"ELSE");break;
+ case E_IFTHEN_TYPE_ELSEIF:strcpy(instr,"ELSEIF");break;
+ case E_IFTHEN_TYPE_IFUSED:strcpy(instr,"IFUSED");break;
+ case E_IFTHEN_TYPE_IFNUSED:strcpy(instr,"IFNUSED");break;
+ default:strcpy(instr,"<unknown>");
+ }
+ MakeError(ae,ae->ifthen[i].filename,ae->ifthen[i].line,"%s conditionnal block was not closed\n",instr);
+ }
+ }
+#if TRACE_ASSEMBLE
+printf("crunch if any\n");
+#endif
+ /***************************************************
+ c r u n c h L Z s e c t i o n s
+ ***************************************************/
+ if (!ae->stop || !ae->nberr) {
+ for (i=0;i<ae->ilz;i++) {
+ /* compute labels and expression inside crunched blocks */
+ PopAllExpression(ae,i);
+
+ ae->curlz=i;
+ iorgzone=ae->lzsection[i].iorgzone;
+ ibank=ae->lzsection[i].ibank;
+ input_data=&ae->mem[ae->lzsection[i].ibank][ae->lzsection[i].memstart];
+ input_size=ae->lzsection[i].memend-ae->lzsection[i].memstart;
+//printf("grouik (%d) %s\n",ae->lzsection[i].lzversion,ae->lzsection[i].lzversion==8?"mizou":"");
+ if (!input_size) {
+ rasm_printf(ae,KWARNING"[%s:%d] Warning: crunched section is empty\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ } else {
+ switch (ae->lzsection[i].lzversion) {
+ case 7:
+ #ifndef NO_3RD_PARTIES
+ lzdata=ZX7_compress(optimize(input_data, input_size), input_data, input_size, &slzlen);
+ lzlen=slzlen;
+ #endif
+ break;
+ case 4:
+ #ifndef NO_3RD_PARTIES
+ lzdata=LZ4_crunch(input_data,input_size,&lzlen);
+ #endif
+ break;
+ case 8:
+ #ifndef NO_3RD_PARTIES
+ rasm_printf(ae,KWARNING"Exomizer is crunching %.1fkb this may take a while, be patient...\n",input_size/1024.0);
+
+ lzdata=Exomizer_crunch(input_data,input_size,&lzlen);
+ #endif
+ break;
+ case 48:
+ lzdata=LZ48_crunch(input_data,input_size,&lzlen);
+ break;
+ case 49:
+ lzdata=LZ49_crunch(input_data,input_size,&lzlen);
+ break;
+ default:
+ rasm_printf(ae,"Internal error - unknown crunch method %d\n",ae->lzsection[i].lzversion);
+ exit(-12);
+ }
+ }
+ //rasm_printf(ae,"lzsection[%d] type=%d start=%04X end=%04X crunched size=%d\n",i,ae->lzsection[i].lzversion,ae->lzsection[i].memstart,ae->lzsection[i].memend,lzlen);
+
+ if (input_size<lzlen) {
+ MakeError(ae,ae->filename[ae->wl[ae->lzsection[i].iw].ifile],ae->wl[ae->lzsection[i].iw].l,"As the LZ section cannot crunch data, Rasm may not guarantee assembled file!\n");
+ }
+
+ lzshift=lzlen-(ae->lzsection[i].memend-ae->lzsection[i].memstart);
+ if (lzshift>0) {
+ MemMove(ae->mem[ae->lzsection[i].ibank]+ae->lzsection[i].memend+lzshift,ae->mem[ae->lzsection[i].ibank]+ae->lzsection[i].memend,65536-ae->lzsection[i].memend-lzshift);
+ } else if (lzshift<0) {
+ lzmove=ae->orgzone[iorgzone].memend-ae->lzsection[i].memend;
+ if (lzmove) {
+ MemMove(ae->mem[ae->lzsection[i].ibank]+ae->lzsection[i].memend+lzshift,ae->mem[ae->lzsection[i].ibank]+ae->lzsection[i].memend,lzmove);
+ }
+ }
+ memcpy(ae->mem[ae->lzsection[i].ibank]+ae->lzsection[i].memstart,lzdata,lzlen);
+ MemFree(lzdata);
+ /*******************************************************************
+ l a b e l a n d e x p r e s s i o n r e l o c a t i o n
+ *******************************************************************/
+ /* relocate labels in the same ORG zone AND after the current crunched section */
+ il=ae->lzsection[i].ilabel;
+ while (il<ae->il && ae->label[il].iorgzone==iorgzone && ae->label[il].ibank==ibank) {
+ curlabel=SearchLabel(ae,ae->label[il].iw!=-1?wordlist[ae->label[il].iw].w:ae->label[il].name,ae->label[il].crc);
+ /* CANNOT be NULL */
+ curlabel->ptr+=lzshift;
+ //printf("label [%s] shifte de %d valeur #%04X -> #%04X\n",curlabel->iw!=-1?wordlist[curlabel->iw].w:curlabel->name,lzshift,curlabel->ptr-lzshift,curlabel->ptr);
+ il++;
+ }
+ /* relocate expressions in the same ORG zone AND after the current crunched section */
+ il=ae->lzsection[i].iexpr;
+ while (il<ae->ie && ae->expression[il].iorgzone==iorgzone && ae->expression[il].ibank==ibank) {
+ ae->expression[il].wptr+=lzshift;
+ ae->expression[il].ptr+=lzshift;
+ //printf("expression [%s] shiftee ptr=#%04X wptr=#%04X\n", ae->expression[il].reference?ae->expression[il].reference:wordlist[ae->expression[il].iw].w, ae->expression[il].ptr, ae->expression[il].wptr);
+ il++;
+ }
+ /* relocate crunched sections in the same ORG zone AND after the current crunched section */
+ il=i+1;
+ while (il<ae->ilz && ae->lzsection[il].iorgzone==iorgzone && ae->lzsection[il].ibank==ibank) {
+ //rasm_printf(ae,"reloger lzsection[%d] O%d B%d\n",il,ae->lzsection[il].iorgzone,ae->lzsection[il].ibank);
+ ae->lzsection[il].memstart+=lzshift;
+ ae->lzsection[il].memend+=lzshift;
+ il++;
+ }
+ /* relocate current ORG zone */
+ ae->orgzone[iorgzone].memend+=lzshift;
+ }
+ if (ae->ilz) {
+ /* compute expression placed after the last crunched block */
+ PopAllExpression(ae,ae->ilz);
+ }
+ /* compute expression outside crunched blocks */
+ PopAllExpression(ae,-1);
+ }
+
+/***************************************************************************************************************************************************************************************
+****************************************************************************************************************************************************************************************
+ W R I T E O U T P U T F I L E S
+****************************************************************************************************************************************************************************************
+***************************************************************************************************************************************************************************************/
+ TMP_filename=MemMalloc(PATH_MAX);
+#if 0
+for (i=0;i<ae->io;i++) {
+printf("ORG[%02d] start=%04X end=%04X ibank=%d nocode=%d protect=%d\n",i,ae->orgzone[i].memstart,ae->orgzone[i].memend,ae->orgzone[i].ibank,ae->orgzone[i].nocode,ae->orgzone[i].protect);
+}
+#endif
+#if TRACE_ASSEMBLE
+printf("output files\n");
+#endif
+
+ if (!ae->nberr && !ae->checkmode) {
+
+ /* enregistrement des fichiers programmes par la commande SAVE */
+ PopAllSave(ae);
+
+ if (ae->nbsave==0 || ae->forcecpr || ae->forcesnapshot) {
+ /*********************************************
+ **********************************************
+ C A R T R I D G E
+ **********************************************
+ *********************************************/
+ if (ae->forcecpr) {
+ char ChunkName[32];
+ int ChunkSize;
+ int do_it=1;
+ unsigned char chunk_endian;
+
+ if (ae->cartridge_name) {
+ sprintf(TMP_filename,"%s",ae->cartridge_name);
+ } else {
+ sprintf(TMP_filename,"%s.cpr",ae->outputfilename);
+ }
+ FileRemoveIfExists(TMP_filename);
+
+ rasm_printf(ae,KIO"Write cartridge file %s\n",TMP_filename);
+ for (i=maxrom=0;i<ae->io;i++) {
+ if (ae->orgzone[i].ibank<32 && ae->orgzone[i].ibank>maxrom) maxrom=ae->orgzone[i].ibank;
+ }
+ /* construction du CPR */
+ /* header blablabla */
+ strcpy(ChunkName,"RIFF");
+ FileWriteBinary(TMP_filename,ChunkName,4);
+ ChunkSize=(maxrom+1)*(16384+8)+4;
+ chunk_endian=ChunkSize&0xFF;FileWriteBinary(TMP_filename,(char*)&chunk_endian,1);
+ chunk_endian=(ChunkSize>>8)&0xFF;FileWriteBinary(TMP_filename,(char*)&chunk_endian,1);
+ chunk_endian=(ChunkSize>>16)&0xFF;FileWriteBinary(TMP_filename,(char*)&chunk_endian,1);
+ chunk_endian=(ChunkSize>>24)&0xFF;FileWriteBinary(TMP_filename,(char*)&chunk_endian,1);
+ sprintf(ChunkName,"AMS!");
+ FileWriteBinary(TMP_filename,ChunkName,4);
+
+// for (j=0;j<ae->io;j++) {
+//printf("ORG[%03d]=B%02d/#%04X/#%04X\n",j,ae->orgzone[j].ibank,ae->orgzone[j].memstart,ae->orgzone[j].memend);
+// }
+ for (i=0;i<=maxrom;i++) {
+ offset=65536;
+ endoffset=0;
+ for (j=0;j<ae->io;j++) {
+ if (ae->orgzone[j].protect) continue; /* protected zones exclusion */
+ /* bank data may start anywhere (typically #0000 or #C000) */
+ if (ae->orgzone[j].ibank==i && ae->orgzone[j].memstart!=ae->orgzone[j].memend) {
+ if (ae->orgzone[j].memstart<offset) offset=ae->orgzone[j].memstart;
+ if (ae->orgzone[j].memend>endoffset) endoffset=ae->orgzone[j].memend;
+ }
+ }
+ if (endoffset>offset) {
+ int lm=0;
+ if (ae->iwnamebank[i]>0) {
+ lm=strlen(ae->wl[ae->iwnamebank[i]].w)-2;
+ }
+ rasm_printf(ae,KVERBOSE"WriteCPR bank %2d of %5d byte%s start at #%04X",i,endoffset-offset,endoffset-offset>1?"s":" ",offset);
+ if (endoffset-offset>16384) {
+ rasm_printf(ae,"\nROM is too big!!!\n");
+ FileWriteBinaryClose(TMP_filename);
+ FileRemoveIfExists(TMP_filename);
+ FreeAssenv(ae);
+ exit(ABORT_ERROR);
+ }
+ if (lm) {
+ rasm_printf(ae," (%-*.*s)\n",lm,lm,ae->wl[ae->iwnamebank[i]].w+1);
+ } else {
+ rasm_printf(ae,"\n");
+ }
+ } else {
+ rasm_printf(ae,KVERBOSE"WriteCPR bank %2d (empty)\n",i);
+ }
+ ChunkSize=16384;
+ sprintf(ChunkName,"cb%02d",i);
+ FileWriteBinary(TMP_filename,ChunkName,4);
+ chunk_endian=ChunkSize&0xFF;FileWriteBinary(TMP_filename,(char*)&chunk_endian,1);
+ chunk_endian=(ChunkSize>>8)&0xFF;FileWriteBinary(TMP_filename,(char*)&chunk_endian,1);
+ chunk_endian=(ChunkSize>>16)&0xFF;FileWriteBinary(TMP_filename,(char*)&chunk_endian,1);
+ chunk_endian=(ChunkSize>>24)&0xFF;FileWriteBinary(TMP_filename,(char*)&chunk_endian,1);
+ if (offset>0xC000) {
+ unsigned char filler[16384]={0};
+ ChunkSize=65536-offset;
+ if (ChunkSize) FileWriteBinary(TMP_filename,(char*)ae->mem[i]+offset,ChunkSize);
+ /* ADD zeros until the end of the bank */
+ FileWriteBinary(TMP_filename,(char*)filler,16384-ChunkSize);
+ } else {
+ FileWriteBinary(TMP_filename,(char*)ae->mem[i]+offset,ChunkSize);
+ }
+ }
+ FileWriteBinaryClose(TMP_filename);
+ rasm_printf(ae,"Total %d bank%s (%dK)\n",maxrom+1,maxrom+1>1?"s":"",(maxrom+1)*16);
+ /*********************************************
+ **********************************************
+ S N A P S H O T
+ **********************************************
+ *********************************************/
+ } else if (ae->forcesnapshot) {
+
+ if (ae->forcezx) {
+ unsigned char zxsnapheader[0x1A]={0};
+
+ if (ae->snapshot_name) {
+ sprintf(TMP_filename,"%s",ae->snapshot_name);
+ } else {
+ sprintf(TMP_filename,"%s.sna",ae->outputfilename);
+ }
+ FileRemoveIfExists(TMP_filename);
+
+ /* do we have a bankset? */
+ /* zx bootstrap */
+ zxsnapheader[0x13]=0; /* 0:DI 4:EI */
+ zxsnapheader[0x17]=ae->zxsnapshot.stack&0xFF;
+ zxsnapheader[0x18]=(ae->zxsnapshot.stack>>8)&0xFF;
+ zxsnapheader[0x19]=1; /* IM 1 */
+
+ //ae->zxsnapshot.stack&=0xFFFF;
+ ae->mem[0][ae->zxsnapshot.stack]=ae->zxsnapshot.run&0xFF;
+ ae->mem[0][ae->zxsnapshot.stack+1]=(ae->zxsnapshot.run>>8)&0xFF;
+
+ rasm_printf(ae,KIO"Write 48K ZX snapshot file %s\n",TMP_filename);
+
+ /* header */
+ FileWriteBinary(TMP_filename,(char *)&zxsnapheader,27);
+ /* data */
+ if (ae->bankset[0]) {
+ FileWriteBinary(TMP_filename,(char *)ae->mem[0]+16384,16384*3);
+ } else {
+ FileWriteBinary(TMP_filename,(char *)ae->mem[5],16384);
+ FileWriteBinary(TMP_filename,(char *)ae->mem[2],16384);
+ FileWriteBinary(TMP_filename,(char *)ae->mem[0],16384);
+ }
+ FileWriteBinaryClose(TMP_filename);
+ } else {
+ unsigned char packed[65536]={0};
+ unsigned char *rlebank=NULL;
+ char ChunkName[16];
+ int ChunkSize;
+ int do_it=1;
+ int bankset;
+ int noflood=0;
+
+ if (ae->snapshot.version==2 && ae->snapshot.CPCType>2) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"[%s:%d] Warning: V2 snapshot cannot select a Plus model (forced to 6128)\n",GetCurrentFile(ae),ae->wl[ae->idx].l);
+ ae->snapshot.CPCType=2; /* 6128 */
+ }
+
+ if (ae->snapshot_name) {
+ sprintf(TMP_filename,"%s",ae->snapshot_name);
+ } else {
+ sprintf(TMP_filename,"%s.sna",ae->outputfilename);
+ }
+ FileRemoveIfExists(TMP_filename);
+
+ maxrom=-1;
+ for (i=0;i<ae->io;i++) {
+ if (ae->orgzone[i].ibank<BANK_MAX_NUMBER && ae->orgzone[i].ibank>maxrom && ae->orgzone[i].memstart!=ae->orgzone[i].memend) {
+ maxrom=ae->orgzone[i].ibank;
+ }
+ }
+
+ //printf("maxrom=%d\n",maxrom);
+ /* construction du SNA */
+ if (ae->snapshot.version==2) {
+ if (maxrom>=4) {
+ ae->snapshot.dumpsize[0]=128;
+ } else if (maxrom>=0) {
+ ae->snapshot.dumpsize[0]=64;
+ }
+ }
+ if (maxrom==-1) {
+ rasm_printf(ae,KWARNING"Warning: No byte were written in snapshot memory\n");
+ } else {
+ rasm_printf(ae,KIO"Write snapshot v%d file %s\n",ae->snapshot.version,TMP_filename);
+
+ /* header */
+ FileWriteBinary(TMP_filename,(char *)&ae->snapshot,0x100);
+ /* write all memory crunched */
+ for (i=0;i<=maxrom;i+=4) {
+ bankset=i>>2;
+ if (ae->bankset[bankset]) {
+ memcpy(packed,ae->mem[i],65536);
+ if (i<4 || i+4>maxrom) rasm_printf(ae,KVERBOSE"WriteSNA bank %2d,%d,%d,%d packed\n",i,i+1,i+2,i+3);
+ else if (!noflood) {rasm_printf(ae,KVERBOSE"[...]\n");noflood=1;}
+ } else {
+ memset(packed,0,65536);
+ for (k=0;k<4;k++) {
+ offset=65536;
+ endoffset=0;
+ for (j=0;j<ae->io;j++) {
+ if (ae->orgzone[j].protect) continue; /* protected zones exclusion */
+ /* bank data may start anywhere (typically #0000 or #C000) */
+ if (ae->orgzone[j].ibank==i+k && ae->orgzone[j].memstart!=ae->orgzone[j].memend) {
+ if (ae->orgzone[j].memstart<offset) offset=ae->orgzone[j].memstart;
+ if (ae->orgzone[j].memend>endoffset) endoffset=ae->orgzone[j].memend;
+ }
+ }
+ if (endoffset-offset>16384) {
+ rasm_printf(ae,KERROR"\nBANK is too big!!!\n");
+ FileWriteBinaryClose(TMP_filename);
+ FileRemoveIfExists(TMP_filename);
+ FreeAssenv(ae);
+ exit(ABORT_ERROR);
+ }
+ /* banks are gathered in the 64K block */
+ if (offset>0xC000) {
+ ChunkSize=65536-offset;
+ memcpy(packed+k*16384,(char*)ae->mem[i+k]+offset,ChunkSize);
+ } else {
+ memcpy(packed+k*16384,(char*)ae->mem[i+k]+offset,16384);
+ }
+
+ if (endoffset>offset) {
+ int lm=0;
+ if (ae->iwnamebank[i]>0) {
+ lm=strlen(ae->wl[ae->iwnamebank[i]].w)-2;
+ }
+ if (i<4 || i+4>maxrom) rasm_printf(ae,KVERBOSE"WriteSNA bank %2d of %5d byte%s start at #%04X",i+k,endoffset-offset,endoffset-offset>1?"s":" ",offset);
+ else if (!noflood) {rasm_printf(ae,KVERBOSE"[...]\n");noflood=1;}
+ if (endoffset-offset>16384) {
+ rasm_printf(ae,KERROR"\nRAM block is too big!!!\n");
+ FileWriteBinaryClose(TMP_filename);
+ FileRemoveIfExists(TMP_filename);
+ FreeAssenv(ae);
+ exit(ABORT_ERROR);
+ }
+ if (lm) {
+ if (i<4 || i+4>maxrom) rasm_printf(ae,KVERBOSE" (%-*.*s)\n",lm,lm,ae->wl[ae->iwnamebank[i+k]].w+1);
+ } else {
+ if (i<4 || i+4>maxrom) rasm_printf(ae,"\n");
+ }
+ } else {
+ if (i<4 || i+4>maxrom) rasm_printf(ae,KVERBOSE"WriteSNA bank %2d (empty)\n",i+k);
+ else if (!noflood) {rasm_printf(ae,KVERBOSE"[...]\n");noflood=1;}
+ }
+ }
+ }
+
+ if (ae->snapshot.version==2) {
+ /* snapshot v2 */
+ FileWriteBinary(TMP_filename,(char*)&packed,65536);
+ if (bankset) {
+ /* v2 snapshot is 128K maximum */
+ maxrom=7;
+ break;
+ }
+ } else {
+ /* compression par défaut avec snapshot v3 */
+ rlebank=EncodeSnapshotRLE(packed,&ChunkSize);
+
+ if (bankset>=0 && bankset<=8) {
+ sprintf(ChunkName,"MEM%d",bankset);
+ } else if (bankset>8 && bankset<=0x40) {
+ /* extended chunk for 4M extension -> MX09 to MX40 (hexa numbered) */
+ sprintf(ChunkName,"MX%02X",bankset);
+ } else {
+ MakeError(ae,"(core)",0,"internal error during snapshot write, please report (%d)\n",bankset);
+ }
+
+ FileWriteBinary(TMP_filename,ChunkName,4);
+ if (rlebank!=NULL) {
+ FileWriteBinary(TMP_filename,(char*)&ChunkSize,4);
+ FileWriteBinary(TMP_filename,(char*)rlebank,ChunkSize);
+ MemFree(rlebank);
+ } else {
+ ChunkSize=65536;
+ FileWriteBinary(TMP_filename,(char*)&packed,ChunkSize);
+ }
+ }
+ }
+
+ /**************************************************************
+ snapshot additional chunks in v3+ only
+ **************************************************************/
+ if (ae->snapshot.version>=3) {
+ /* export breakpoint */
+ if (ae->export_snabrk) {
+ /* BRKS chunk for Winape emulator (unofficial)
+
+ 2 bytes - adress
+ 1 byte - 0=base 64K / 1=extended
+ 2 bytes - condition (zeroed)
+ */
+ struct s_breakpoint breakpoint={0};
+ unsigned char *brkschunk=NULL;
+ unsigned int idx=8;
+
+ /* add labels and local labels to breakpoint pool (if any) */
+ for (i=0;i<ae->il;i++) {
+ if (!ae->label[i].name) {
+ if (strncmp(ae->wl[ae->label[i].iw].w,"BRK",3)==0) {
+ breakpoint.address=ae->label[i].ptr;
+ if (ae->label[i].ibank>3) breakpoint.bank=1; else breakpoint.bank=0;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->breakpoint,&ae->ibreakpoint,&ae->maxbreakpoint,&breakpoint,sizeof(struct s_breakpoint));
+ }
+ } else {
+ if (strncmp(ae->label[i].name,"@BRK",4)==0 || strstr(ae->label[i].name,".BRK")) {
+ breakpoint.address=ae->label[i].ptr;
+ if (ae->label[i].ibank>3) breakpoint.bank=1; else breakpoint.bank=0;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->breakpoint,&ae->ibreakpoint,&ae->maxbreakpoint,&breakpoint,sizeof(struct s_breakpoint));
+ }
+ }
+ }
+
+ brkschunk=MemMalloc(ae->ibreakpoint*5+8);
+ strcpy((char *)brkschunk,"BRKS");
+
+ for (i=0;i<ae->ibreakpoint;i++) {
+ brkschunk[idx++]=ae->breakpoint[i].address&0xFF;
+ brkschunk[idx++]=(ae->breakpoint[i].address&0xFF00)/256;
+ brkschunk[idx++]=ae->breakpoint[i].bank;
+ brkschunk[idx++]=0;
+ brkschunk[idx++]=0;
+ }
+
+ idx-=8;
+ brkschunk[4]=idx&0xFF;
+ brkschunk[5]=(idx>>8)&0xFF;
+ brkschunk[6]=(idx>>16)&0xFF;
+ brkschunk[7]=(idx>>24)&0xFF;
+ FileWriteBinary(TMP_filename,(char*)brkschunk,idx+8); // 8 bytes for the chunk header
+ MemFree(brkschunk);
+
+
+ /* BRKC chunk for ACE emulator
+ minimal integration
+ */
+ brkschunk=MemMalloc(ae->ibreakpoint*256);
+ strcpy((char *)brkschunk,"BRKC");
+ idx=8;
+
+ for (i=0;i<ae->ibreakpoint;i++) {
+ brkschunk[idx++]=0; /* 0:Execution */
+ brkschunk[idx++]=0;
+ brkschunk[idx++]=0;
+ brkschunk[idx++]=0;
+ brkschunk[idx++]=ae->breakpoint[i].address&0xFF;
+ brkschunk[idx++]=(ae->breakpoint[i].address&0xFF00)/256;
+ for (j=0;j<2+1+1+2+4+128;j++) {
+ brkschunk[idx++]=0;
+ }
+ sprintf((char *)brkschunk+idx,"breakpoint%d",i); /* breakpoint user name? */
+ idx+=64+8;
+ }
+ idx-=8;
+ brkschunk[4]=idx&0xFF;
+ brkschunk[5]=(idx>>8)&0xFF;
+ brkschunk[6]=(idx>>16)&0xFF;
+ brkschunk[7]=(idx>>24)&0xFF;
+ FileWriteBinary(TMP_filename,(char *)brkschunk,idx+8); // 8 bytes for the chunk header
+ MemFree(brkschunk);
+ }
+ /* export optionnel des symboles */
+ if (ae->export_sna) {
+ /* SYMB chunk for ACE emulator
+
+ 1 byte - name size
+ n bytes - name (without 0 to end the string)
+ 6 bytes - reserved for future use
+ 2 bytes - shitty big endian adress for the symbol
+ */
+
+ unsigned char *symbchunk=NULL;
+ unsigned int idx=8;
+ int symbol_len;
+
+ symbchunk=MemMalloc(8+ae->il*(1+255+6+2));
+ strcpy((char *)symbchunk,"SYMB");
+
+ for (i=0;i<ae->il;i++) {
+ if (!ae->label[i].name) {
+ symbol_len=strlen(ae->wl[ae->label[i].iw].w);
+ if (symbol_len>255) symbol_len=255;
+ symbchunk[idx++]=symbol_len;
+ memcpy(symbchunk+idx,ae->wl[ae->label[i].iw].w,symbol_len);
+ idx+=symbol_len;
+ memset(symbchunk+idx,0,6);
+ idx+=6;
+ symbchunk[idx++]=(ae->label[i].ptr&0xFF00)/256;
+ symbchunk[idx++]=ae->label[i].ptr&0xFF;
+ } else {
+ if (ae->export_local || !ae->label[i].local) {
+ symbol_len=strlen(ae->label[i].name);
+ if (symbol_len>255) symbol_len=255;
+ symbchunk[idx++]=symbol_len;
+ memcpy(symbchunk+idx,ae->label[i].name,symbol_len);
+ idx+=symbol_len;
+ memset(symbchunk+idx,0,6);
+ idx+=6;
+ symbchunk[idx++]=(ae->label[i].ptr&0xFF00)/256;
+ symbchunk[idx++]=ae->label[i].ptr&0xFF;
+ }
+ }
+ }
+ if (ae->export_var) {
+ unsigned char *subchunk=NULL;
+ int retidx=0;
+ /* var are part of fast tree search structure */
+ subchunk=SnapshotDicoTree(ae,&retidx);
+ if (retidx) {
+ symbchunk=MemRealloc(symbchunk,idx+retidx);
+ memcpy(symbchunk+idx,subchunk,retidx);
+ idx+=retidx;
+ SnapshotDicoInsert("FREE",0,&retidx);
+ }
+ }
+ if (ae->export_equ) {
+ symbchunk=MemRealloc(symbchunk,idx+ae->ialias*(1+255+6+2));
+
+ for (i=0;i<ae->ialias;i++) {
+ int tmpptr;
+ symbol_len=strlen(ae->alias[i].alias);
+ if (symbol_len>255) symbol_len=255;
+ symbchunk[idx++]=symbol_len;
+ memcpy(symbchunk+idx,ae->alias[i].alias,symbol_len);
+ idx+=symbol_len;
+ memset(symbchunk+idx,0,6);
+ idx+=6;
+ tmpptr=RoundComputeExpression(ae,ae->alias[i].translation,0,0,0);
+ symbchunk[idx++]=(tmpptr&0xFF00)/256;
+ symbchunk[idx++]=tmpptr&0xFF;
+ }
+ }
+ idx-=8;
+ symbchunk[4]=idx&0xFF;
+ symbchunk[5]=(idx>>8)&0xFF;
+ symbchunk[6]=(idx>>16)&0xFF;
+ symbchunk[7]=(idx>>24)&0xFF;
+ FileWriteBinary(TMP_filename,(char*)symbchunk,idx+8); // 8 bytes for the chunk header
+ }
+ } else {
+ if (ae->export_snabrk) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"Warning: breakpoint export is not supported with snapshot version 2\n");
+ }
+ if (ae->export_sna) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"Warning: symbol export is not supported with snapshot version 2\n");
+ }
+ }
+
+ FileWriteBinaryClose(TMP_filename);
+ maxrom=(maxrom>>2)*4+4;
+ rasm_printf(ae,KAYGREEN"Total %d bank%s (%dK)\n",maxrom,maxrom>1?"s":"",(maxrom)*16);
+ }
+ }
+ /*********************************************
+ **********************************************
+ B I N A R Y F I L E
+ **********************************************
+ *********************************************/
+ } else {
+ int lastspaceid=-1;
+
+ if (ae->binary_name) {
+ sprintf(TMP_filename,"%s",ae->binary_name);
+ } else {
+ sprintf(TMP_filename,"%s.bin",ae->outputfilename);
+ }
+ FileRemoveIfExists(TMP_filename);
+
+ /* en mode binaire classique on va recherche le dernier espace mémoire dans lequel on a travaillé qui n'est pas en 'nocode' */
+ for (i=0;i<ae->io;i++) {
+ /* uniquement si le ORG a ete suivi d'ecriture */
+ if (ae->orgzone[i].memstart!=ae->orgzone[i].memend && ae->orgzone[i].nocode!=1) {
+ lastspaceid=ae->orgzone[i].ibank;
+ }
+ }
+ if (lastspaceid!=-1) {
+ for (i=0;i<ae->io;i++) {
+ if (ae->orgzone[i].protect) continue; /* protected zones exclusion */
+ /* uniquement si le ORG a ete suivi d'ecriture et n'est pas en 'nocode' */
+ if (ae->orgzone[i].ibank==lastspaceid && ae->orgzone[i].memstart!=ae->orgzone[i].memend && ae->orgzone[i].nocode!=1) {
+ if (ae->orgzone[i].memstart<minmem) minmem=ae->orgzone[i].memstart;
+ if (ae->orgzone[i].memend>maxmem) maxmem=ae->orgzone[i].memend;
+ }
+ }
+ }
+ if (maxmem-minmem<=0) {
+ if (!ae->stop) {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"Warning: Not a single byte to output\n");
+ }
+ if (ae->flux) {
+ *lenout=0;
+ }
+ } else {
+ if (!ae->flux) {
+ rasm_printf(ae,KIO"Write binary file %s (%d byte%s)\n",TMP_filename,maxmem-minmem,maxmem-minmem>1?"s":"");
+ if (ae->amsdos) {
+ AmsdosHeader=MakeAMSDOSHeader(minmem,minmem,maxmem,TMP_filename); //@@TODO
+ FileWriteBinary(TMP_filename,(char *)AmsdosHeader,128);
+ }
+ if (maxmem-minmem>0) {
+ FileWriteBinary(TMP_filename,(char*)ae->mem[lastspaceid]+minmem,maxmem-minmem);
+ FileWriteBinaryClose(TMP_filename);
+ } else {
+ if (ae->amsdos) {
+ FileWriteBinaryClose(TMP_filename);
+ }
+ }
+ } else {
+ *dataout=MemMalloc(maxmem-minmem+1);
+ memcpy(*dataout,ae->mem[lastspaceid]+minmem,maxmem-minmem);
+ *lenout=maxmem-minmem;
+ }
+ }
+ }
+ }
+ /********************************
+ *********************************
+ U N U S E D W A R N I N G
+ *********************************
+ ********************************/
+ if (ae->warn_unused) {
+ for (i=0;i<ae->ialias;i++) {
+ if (strcmp(ae->alias[i].alias,"IX") && strcmp(ae->alias[i].alias,"IY")) {
+ if (!ae->alias[i].used) {
+ rasm_printf(ae,KWARNING"[%s:%d] Warning: alias %s declared but not used\n",ae->filename[ae->wl[ae->alias[i].iw].ifile],ae->wl[ae->alias[i].iw].l,ae->alias[i].alias);
+ }
+ }
+ }
+ WarnLabelTree(ae);
+ WarnDicoTree(ae);
+ }
+
+ /****************************
+ *****************************
+ S Y M B O L E X P O R T
+ *****************************
+ ****************************/
+ if (ae->export_sym && !ae->export_sna) {
+ char *SymbolFileName;
+ SymbolFileName=MemMalloc(PATH_MAX);
+
+#define MAKE_SYMBOL_NAME if (ae->symbol_name) {sprintf(TMP_filename,"%s",ae->symbol_name);} else {sprintf(TMP_filename,"%s.sym",ae->outputfilename);}
+
+ MAKE_SYMBOL_NAME
+ FileRemoveIfExists(TMP_filename);
+
+ if (ae->export_multisym) {
+ /* multi-remove before writes */
+ for (i=0;i<ae->nbbank;i++) {
+ if (ae->symbol_name) {
+ sprintf(TMP_filename,"%s.bank%d",ae->symbol_name,i);
+ } else {
+ sprintf(TMP_filename,"%s.sym.bank%d",ae->outputfilename,i);
+ }
+ FileRemoveIfExists(TMP_filename);
+ }
+ rasm_printf(ae,KIO"Write symbol files %s.bank*\n",TMP_filename);
+ } else {
+ rasm_printf(ae,KIO"Write symbol file %s\n",TMP_filename);
+ }
+
+ switch (ae->export_sym) {
+ case 5:
+ /* ZX export */
+ for (i=0;i<ae->il;i++) {
+ if (ae->label[i].autorise_export) {
+ if (ae->export_multisym) {
+ if (ae->symbol_name) {
+ sprintf(TMP_filename,"%s.bank%d",ae->symbol_name,ae->label[i].ibank);
+ } else {
+ sprintf(TMP_filename,"%s.sym.bank%d",ae->outputfilename,ae->label[i].ibank);
+ }
+ }
+
+ if (!ae->label[i].name) {
+ sprintf(symbol_line,"%d:%04X %s\n",ae->label[i].ibank,ae->label[i].ptr,ae->wl[ae->label[i].iw].w);
+ FileWriteLine(TMP_filename,symbol_line);
+ } else {
+ if (ae->export_local || !ae->label[i].local) {
+ sprintf(symbol_line,"%d:%04X %s\n",ae->label[i].ibank,ae->label[i].ptr,ae->label[i].name);
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ }
+ FileWriteLineClose(TMP_filename);
+ MAKE_SYMBOL_NAME
+ if (ae->export_var) {
+ /* var are part of fast tree search structure */
+ ExportDicoTree(ae,TMP_filename,"%s %04X");
+ }
+ if (ae->export_equ) {
+ for (i=0;i<ae->ialias;i++) {
+ if (strcmp(ae->alias[i].alias,"IX") && strcmp(ae->alias[i].alias,"IY")) {
+ sprintf(symbol_line,"%04X %s\n",RoundComputeExpression(ae,ae->alias[i].translation,0,-ae->alias[i].iw,0),ae->alias[i].alias);
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ break;
+ case 4:
+ /* flexible */
+ for (i=0;i<ae->il;i++) {
+ if (ae->label[i].autorise_export) {
+ if (ae->export_multisym) {
+ if (ae->symbol_name) {
+ sprintf(TMP_filename,"%s.bank%d",ae->symbol_name,ae->label[i].ibank);
+ } else {
+ sprintf(TMP_filename,"%s.sym.bank%d",ae->outputfilename,ae->label[i].ibank);
+ }
+ }
+
+ if (!ae->label[i].name) {
+ sprintf(symbol_line,ae->flexible_export,ae->wl[ae->label[i].iw].w,ae->label[i].ptr);
+ FileWriteLine(TMP_filename,symbol_line);
+ } else {
+ if (ae->export_local || !ae->label[i].local) {
+ sprintf(symbol_line,ae->flexible_export,ae->label[i].name,ae->label[i].ptr);
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ }
+ MAKE_SYMBOL_NAME
+ if (ae->export_var) {
+ /* var are part of fast tree search structure */
+ ExportDicoTree(ae,TMP_filename,ae->flexible_export);
+ }
+ if (ae->export_equ) {
+ for (i=0;i<ae->ialias;i++) {
+ if (strcmp(ae->alias[i].alias,"IX") && strcmp(ae->alias[i].alias,"IY")) {
+ sprintf(symbol_line,ae->flexible_export,ae->alias[i].alias,RoundComputeExpression(ae,ae->alias[i].translation,0,-ae->alias[i].iw,0));
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ FileWriteLineClose(TMP_filename);
+ break;
+ case 3:
+ /* winape */
+ for (i=0;i<ae->il;i++) {
+ if (ae->label[i].autorise_export) {
+ if (ae->export_multisym) {
+ if (ae->symbol_name) {
+ sprintf(TMP_filename,"%s.bank%d",ae->symbol_name,ae->label[i].ibank);
+ } else {
+ sprintf(TMP_filename,"%s.sym.bank%d",ae->outputfilename,ae->label[i].ibank);
+ }
+ }
+ if (!ae->label[i].name) {
+ sprintf(symbol_line,"%s #%04X\n",ae->wl[ae->label[i].iw].w,ae->label[i].ptr);
+ FileWriteLine(TMP_filename,symbol_line);
+ } else {
+ if (ae->export_local || !ae->label[i].local) {
+ sprintf(symbol_line,"%s #%04X\n",ae->label[i].name,ae->label[i].ptr);
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ }
+ MAKE_SYMBOL_NAME
+ if (ae->export_var) {
+ /* var are part of fast tree search structure */
+ ExportDicoTree(ae,TMP_filename,"%s #%04X\n");
+ }
+ if (ae->export_equ) {
+ for (i=0;i<ae->ialias;i++) {
+ if (strcmp(ae->alias[i].alias,"IX") && strcmp(ae->alias[i].alias,"IY")) {
+ sprintf(symbol_line,"%s #%04X\n",ae->alias[i].alias,RoundComputeExpression(ae,ae->alias[i].translation,0,-ae->alias[i].iw,0));
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ FileWriteLineClose(TMP_filename);
+ break;
+ case 2:
+ /* pasmo */
+ for (i=0;i<ae->il;i++) {
+ if (ae->label[i].autorise_export) {
+ if (ae->export_multisym) {
+ if (ae->symbol_name) {
+ sprintf(TMP_filename,"%s.bank%d",ae->symbol_name,ae->label[i].ibank);
+ } else {
+ sprintf(TMP_filename,"%s.sym.bank%d",ae->outputfilename,ae->label[i].ibank);
+ }
+ }
+ if (!ae->label[i].name) {
+ sprintf(symbol_line,"%s EQU 0%04XH\n",ae->wl[ae->label[i].iw].w,ae->label[i].ptr);
+ FileWriteLine(TMP_filename,symbol_line);
+ } else {
+ if (ae->export_local || !ae->label[i].local) {
+ sprintf(symbol_line,"%s EQU 0%04XH\n",ae->label[i].name,ae->label[i].ptr);
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ }
+ MAKE_SYMBOL_NAME
+ if (ae->export_var) {
+ /* var are part of fast tree search structure */
+ ExportDicoTree(ae,TMP_filename,"%s EQU 0%04XH\n");
+ }
+ if (ae->export_equ) {
+ for (i=0;i<ae->ialias;i++) {
+ if (strcmp(ae->alias[i].alias,"IX") && strcmp(ae->alias[i].alias,"IY")) {
+ sprintf(symbol_line,"%s EQU 0%04XH\n",ae->alias[i].alias,RoundComputeExpression(ae,ae->alias[i].translation,0,-ae->alias[i].iw,0));
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ FileWriteLineClose(TMP_filename);
+ break;
+ case 1:
+ /* Rasm */
+ for (i=0;i<ae->il;i++) {
+ if (ae->label[i].autorise_export) {
+ if (ae->export_multisym) {
+ if (ae->symbol_name) {
+ sprintf(TMP_filename,"%s.bank%d",ae->symbol_name,ae->label[i].ibank);
+ } else {
+ sprintf(TMP_filename,"%s.sym.bank%d",ae->outputfilename,ae->label[i].ibank);
+ }
+ }
+ if (!ae->label[i].name) {
+ sprintf(symbol_line,"%s #%X B%d\n",ae->wl[ae->label[i].iw].w,ae->label[i].ptr,ae->label[i].ibank>31?0:ae->label[i].ibank);
+ FileWriteLine(TMP_filename,symbol_line);
+ } else {
+ if (ae->export_local) {
+ sprintf(symbol_line,"%s #%X B%d\n",ae->label[i].name,ae->label[i].ptr,ae->label[i].ibank>31?0:ae->label[i].ibank);
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ }
+ MAKE_SYMBOL_NAME
+ if (ae->export_var) {
+ /* var are part of fast tree search structure */
+ ExportDicoTree(ae,TMP_filename,"%s #%X B0\n");
+ }
+ if (ae->export_equ) {
+ for (i=0;i<ae->ialias;i++) {
+ if (strcmp(ae->alias[i].alias,"IX") && strcmp(ae->alias[i].alias,"IY") && ae->alias[i].autorise_export) {
+ sprintf(symbol_line,"%s #%X B0\n",ae->alias[i].alias,RoundComputeExpression(ae,ae->alias[i].translation,0,-ae->alias[i].iw,0));
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ }
+ }
+ FileWriteLineClose(TMP_filename);
+ break;
+ case 0:
+ default:break;
+ }
+ MemFree(SymbolFileName);
+ }
+ /*********************************
+ **********************************
+ B R E A K P O I N T S
+ **********************************
+ *********************************/
+ if (ae->export_brk) {
+ struct s_breakpoint breakpoint={0};
+
+ if (ae->breakpoint_name) {
+ sprintf(TMP_filename,"%s",ae->breakpoint_name);
+ } else {
+ sprintf(TMP_filename,"%s.brk",ae->outputfilename);
+ }
+ FileRemoveIfExists(TMP_filename);
+
+ /* add labels and local labels to breakpoint pool (if any) */
+ for (i=0;i<ae->il;i++) {
+ if (!ae->label[i].name) {
+ if (strncmp(ae->wl[ae->label[i].iw].w,"BRK",3)==0) {
+ breakpoint.address=ae->label[i].ptr;
+ if (ae->label[i].ibank>3) breakpoint.bank=1; else breakpoint.bank=0;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->breakpoint,&ae->ibreakpoint,&ae->maxbreakpoint,&breakpoint,sizeof(struct s_breakpoint));
+ }
+ } else {
+ if (strncmp(ae->label[i].name,"@BRK",4)==0) {
+ breakpoint.address=ae->label[i].ptr;
+ if (ae->label[i].ibank>3) breakpoint.bank=1; else breakpoint.bank=0;
+ ObjectArrayAddDynamicValueConcat((void **)&ae->breakpoint,&ae->ibreakpoint,&ae->maxbreakpoint,&breakpoint,sizeof(struct s_breakpoint));
+ }
+ }
+ }
+
+ if (ae->ibreakpoint) {
+ rasm_printf(ae,KIO"Write breakpoint file %s\n",TMP_filename);
+ for (i=0;i<ae->ibreakpoint;i++) {
+ sprintf(symbol_line,"#%04X\n",ae->breakpoint[i].address);
+ FileWriteLine(TMP_filename,symbol_line);
+ }
+ FileWriteLineClose(TMP_filename);
+ } else {
+ if (!ae->nowarning) rasm_printf(ae,KWARNING"Warning: no breakpoint to output (previous file [%s] deleted anyway)\n",TMP_filename);
+ }
+ }
+
+ } else {
+ if (!ae->dependencies) rasm_printf(ae,KERROR"%d error%s\n",ae->nberr,ae->nberr>1?"s":"");
+ }
+#if TRACE_ASSEMBLE
+printf("dependencies\n");
+#endif
+/*******************************************************************************************
+ E X P O R T D E P E N D E N C I E S
+*******************************************************************************************/
+ if (ae->dependencies) {
+ int trigdep=0;
+
+ /* depends ALL */
+ if (ae->outputfilename && strcmp(ae->outputfilename,"rasmoutput")) {
+ trigdep=1;
+ printf("%s",ae->outputfilename);
+ if (ae->dependencies==E_DEPENDENCIES_MAKE) printf(" "); else printf("\n");
+ }
+ for (i=1;i<ae->ifile;i++) {
+ trigdep=1;
+ SimplifyPath(ae->filename[i]);
+ printf("%s",ae->filename[i]);
+ if (ae->dependencies==E_DEPENDENCIES_MAKE) printf(" "); else printf("\n");
+ }
+ for (i=0;i<ae->ih;i++) {
+ trigdep=1;
+ SimplifyPath(ae->hexbin[i].filename);
+ printf("%s",ae->hexbin[i].filename);
+ if (ae->dependencies==E_DEPENDENCIES_MAKE) printf(" "); else printf("\n");
+ }
+ if (ae->dependencies==E_DEPENDENCIES_MAKE && trigdep) printf("\n");
+ }
+
+/*******************************************************************************************
+ V E R B O S E S H I T
+*******************************************************************************************/
+#if TRACE_ASSEMBLE
+ rasm_printf(ae,KVERBOSE"------ statistics ------------------\n");
+ rasm_printf(ae,KVERBOSE"%d file%s\n",ae->ifile,ae->ifile>1?"s":"");
+ rasm_printf(ae,KVERBOSE"%d binary include%s\n",ae->ih,ae->ih>1?"s":"");
+ rasm_printf(ae,KVERBOSE"%d word%s\n",ae->nbword-1,ae->nbword>2?"s":"");
+ rasm_printf(ae,KVERBOSE"%d label%s\n",ae->il,ae->il>1?"s":"");
+ rasm_printf(ae,KVERBOSE"%d struct%s\n",ae->irasmstruct,ae->irasmstruct>1?"s":"");
+ rasm_printf(ae,KVERBOSE"%d var%s\n",ae->idic,ae->idic>1?"s":"");
+ rasm_printf(ae,KVERBOSE"%d expression%s\n",ae->ie,ae->ie>1?"s":"");
+ rasm_printf(ae,KVERBOSE"%d macro%s\n",ae->imacro,ae->imacro>1?"s":"");
+ rasm_printf(ae,KVERBOSE"%d alias%s\n",ae->ialias,ae->ialias>1?"s":"");
+ rasm_printf(ae,KVERBOSE"%d ORG zone%s\n",ae->io-1,ae->io>2?"s":"");
+ rasm_printf(ae,KVERBOSE"%d virtual space%s\n",ae->nbbank,ae->nbbank>1?"s":"");
+#endif
+
+/*******************************************************************************************
+ C L E A N U P
+*******************************************************************************************/
+#if TRACE_ASSEMBLE
+printf("cleanup\n");
+#endif
+#if TRACE_GENERALE
+printf("-cleanup\n");
+#endif
+ if (TMP_filename) MemFree(TMP_filename);
+ if (ae->nberr) {
+ ok=-1;
+ if (ae->flux && *dataout) {
+ MemFree(*dataout);
+ *dataout=NULL;
+ }
+ if (lenout) *lenout=0;
+ } else {
+ ok=0;
+ }
+
+ FreeAssenv(ae);
+#if TRACE_ASSEMBLE
+printf("end of assembling\n");
+#endif
+#if TRACE_GENERALE
+printf("-end ok=%d\n",ok);
+#endif
+ return ok;
+}
+
+
+void EarlyPrepSrc(struct s_assenv *ae, char **listing, char *filename) {
+ int l,idx,c,quote_type=0;
+ int mlc_start,mlc_idx;
+
+ /* virer les commentaires en ;, // mais aussi multi-lignes et convertir les decalages, passer les chars en upper case */
+ l=idx=0;
+ while (listing[l]) {
+ c=listing[l][idx++];
+
+ if (!c) {
+ l++;
+ idx=0;
+ continue;
+ } else if (!quote_type) {
+ /* upper case */
+ if (c>='a' && c<='z') {
+ listing[l][idx-1]=c=c-'a'+'A';
+ }
+
+ if (c=='\'' && idx>2 && strncmp(&listing[l][idx-3],"AF'",3)==0) {
+ /* il ne faut rien faire */
+ } else if (c=='"' || c=='\'') {
+ quote_type=c;
+ } else if (c==';' || (c=='/' && listing[l][idx]=='/')) {
+ idx--;
+ while (listing[l][idx] && listing[l][idx]!=0x0D && listing[l][idx]!=0x0A) listing[l][idx++]=':';
+ idx--;
+ } else if (c=='>' && listing[l][idx]=='>' && !quote_type) {
+ listing[l][idx-1]=']';
+ listing[l][idx++]=' ';
+ continue;
+ } else if (c=='<' && listing[l][idx]=='<' && !quote_type) {
+ listing[l][idx-1]='[';
+ listing[l][idx++]=' ';
+ continue;
+ } else if (c=='/' && listing[l][idx]=='*' && !quote_type) {
+ /* multi-line comment */
+ mlc_start=l;
+ mlc_idx=idx-1;
+ idx++;
+ while (1) {
+ c=listing[l][idx++];
+ if (!c) {
+ idx=0;
+ l++;
+ if (!listing[l]) {
+ MakeError(ae,GetCurrentFile(ae),ae->wl[ae->idx].l,"opened comment to the end of the file\n",filename,l+1);
+ return;
+ }
+ } else if (c=='*' && listing[l][idx]=='/') {
+ idx++;
+ break;
+ }
+ }
+ /* merge */
+ if (mlc_start==l) {
+ /* on the same line */
+ while (mlc_idx<idx) listing[l][mlc_idx++]=' '; /* raz with spaces */
+ } else {
+ /* multi-line */
+ listing[mlc_start][mlc_idx]=0; /* raz EOL */
+ mlc_start++;
+ while (mlc_start<l) listing[mlc_start++][0]=0; /* raz line */
+ mlc_idx=0;
+ while (mlc_idx<idx) listing[l][mlc_idx++]=' '; /* raz beginning of the line */
+ }
+ }
+ } else {
+ /* in quote */
+ if (c=='\\') {
+ if (listing[l][idx]) {
+ idx++;
+ }
+ } else if (c==quote_type) {
+ quote_type=0;
+ }
+ }
+ }
+}
+
+void PreProcessingSplitListing(struct s_listing **listing, int *il, int *ml, int idx, int end, int start)
+{
+ #undef FUNC
+ #define FUNC "PreProcessingSplitListing"
+
+ struct s_listing curlisting={0};
+
+ /* split current line because there will be "before" include and "after include" line */
+ ObjectArrayAddDynamicValueConcat((void**)listing,il,ml,&curlisting,sizeof(curlisting));
+ MemMove(&((*listing)[idx+2]),&((*listing)[idx+1]),(*il-idx-2)*sizeof(struct s_listing));
+ (*listing)[idx+1].ifile=(*listing)[idx].ifile;
+ (*listing)[idx+1].iline=(*listing)[idx].iline;
+ if ((*listing)[idx].listing[start]) {
+ (*listing)[idx+1].listing=TxtStrDup((*listing)[idx].listing+start);
+ } else {
+ (*listing)[idx+1].listing=TxtStrDup(";");
+ }
+ strcpy((*listing)[idx].listing+end,":");
+}
+
+void PreProcessingInsertListing(struct s_listing **reflisting, int *il, int *ml, int idx, char **zelines, int ifile)
+{
+ #undef FUNC
+ #define FUNC "PreProcessingSplitListing"
+
+ struct s_listing *listing;
+ int nbinsert,li,bil;
+ for (li=nbinsert=0;zelines[li];li++) nbinsert++;
+ bil=*il;
+ if (*il+nbinsert>=*ml) {
+ *il=*ml=*il+nbinsert;
+ *reflisting=MemRealloc(*reflisting,sizeof(struct s_listing)*(*ml));
+ } else {
+ *il=*il+nbinsert;
+ }
+ listing=*reflisting;
+ MemMove(&listing[idx+1+nbinsert],&listing[idx+1],(bil-idx-1)*sizeof(struct s_listing));
+
+ for (li=0;zelines[li];li++) {
+ listing[idx+1+li].ifile=ifile;
+ listing[idx+1+li].iline=li+1;
+ listing[idx+1+li].listing=zelines[li];
+ }
+}
+
+int cmpkeyword(const void * a, const void * b)
+{
+ struct s_asm_keyword *sa,*sb;
+ sa=(struct s_asm_keyword *)a;
+ sb=(struct s_asm_keyword *)b;
+ return strcmp(sa->mnemo,sb->mnemo);
+}
+
+struct s_assenv *PreProcessing(char *filename, int flux, const char *datain, int datalen, struct s_parameter *param)
+{
+ #undef FUNC
+ #define FUNC "PreProcessing"
+
+ #define CharWord "@ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.=_($)][+-*/^%#|&'\"\\m}{[]"
+
+ struct s_assenv *ae=NULL;
+ struct s_wordlist curw={0};
+ struct s_wordlist *wordlist=NULL;
+ int nbword=0,maxword=0;
+ char **zelines=NULL;
+
+ char *filename_toread;
+
+ struct s_macro_fast *MacroFast=NULL;
+ int idxmacrofast=0,maxmacrofast=0;
+
+ struct s_listing *listing=NULL;
+ struct s_listing curlisting;
+ int ilisting=0,maxlisting=0;
+
+ char **listing_include=NULL;
+ int i,j,l=0,idx=0,c=0,li,le;
+ char Automate[256]={0};
+ struct s_hexbin curhexbin;
+ char *newlistingline=NULL;
+ unsigned char *newdata;
+ struct s_label curlabel={0};
+ char *labelsep1;
+ char **labelines=NULL;
+ /* state machine buffer */
+ unsigned char *mem=NULL;
+ char *w=NULL,*wtmp=NULL;
+ int lw=0,mw=256;
+ char *bval=NULL;
+ int ival=0,sval=256;
+ char *qval=NULL;
+ int iqval=0,sqval=256;
+ struct s_repeat_index *TABrindex=NULL;
+ struct s_repeat_index *TABwindex=NULL;
+ struct s_repeat_index rindex={0};
+ struct s_repeat_index windex={0};
+ int nri=0,mri=0,ri=0;
+ int nwi=0,mwi=0,wi=0;
+ /* state machine trigger */
+ int waiting_quote=0,lquote;
+ int macro_trigger=0;
+ int escape_code=0;
+ int quote_type=0;
+ int incbin=0,include=0,crunch=0;
+ int rewrite=0,hadcomma=0;
+ int nbinstruction;
+ int ifast,texpr;
+ int ispace=0;
+
+#if TRACE_GENERALE
+printf("*** preprocessing ***\n");
+#endif
+
+#if TRACE_PREPRO
+printf("start prepro, alloc assenv\n");
+#endif
+
+ windex.cl=-1;
+ windex.cidx=-1;
+ rindex.cl=-1;
+ rindex.cidx=-1;
+
+#if TRACE_PREPRO
+printf("malloc\n");
+#endif
+ ae=MemMalloc(sizeof(struct s_assenv));
+#if TRACE_PREPRO
+printf("memset\n");
+#endif
+ memset(ae,0,sizeof(struct s_assenv));
+
+#if TRACE_PREPRO
+printf("paramz 1\n");
+#endif
+ if (param) {
+ ae->export_local=param->export_local;
+ ae->export_sym=param->export_sym;
+ ae->export_var=param->export_var;
+ ae->export_equ=param->export_equ;
+ ae->export_sna=param->export_sna;
+ ae->export_snabrk=param->export_snabrk;
+ if (param->export_sna || param->export_snabrk) {
+ ae->forcesnapshot=1;
+ }
+ ae->export_brk=param->export_brk;
+ ae->warn_unused=param->warn_unused;
+ ae->edskoverwrite=param->edskoverwrite;
+ ae->rough=param->rough;
+ ae->as80=param->as80;
+ ae->dams=param->dams;
+ ae->macrovoid=param->macrovoid;
+ if (param->v2) {
+ ae->forcesnapshot=1;
+ ae->snapshot.version=2;
+ } else {
+ ae->snapshot.version=3;
+ }
+ ae->maxerr=param->maxerr;
+ ae->extended_error=param->extended_error;
+ ae->nowarning=param->nowarning;
+ ae->breakpoint_name=param->breakpoint_name;
+ ae->symbol_name=param->symbol_name;
+ ae->binary_name=param->binary_name;
+ ae->flexible_export=param->flexible_export;
+ ae->cartridge_name=param->cartridge_name;
+ ae->snapshot_name=param->snapshot_name;
+ ae->checkmode=param->checkmode;
+ if (param->rough) ae->maxam=0; else ae->maxam=1;
+ /* additional symbols */
+ for (i=0;i<param->nsymb;i++) {
+ char *sep;
+ sep=strchr(param->symboldef[i],'=');
+ if (sep) {
+ *sep=0;
+ ExpressionSetDicoVar(ae,param->symboldef[i],atof(sep+1));
+ }
+ }
+ if (param->msymb) {
+ MemFree(param->symboldef);
+ param->nsymb=param->msymb=0;
+ }
+ /* include paths */
+ ae->includepath=param->pathdef;
+ ae->ipath=param->npath;
+ ae->mpath=param->mpath;
+ /* old inline params */
+ ae->dependencies=param->dependencies;
+ }
+#if TRACE_PREPRO
+printf("init 0\n");
+#endif
+#if TRACE_GENERALE
+printf("-init\n");
+#endif
+ /* generic init */
+ ae->ctx1.maxivar=1;
+ ae->ctx2.maxivar=1;
+ ae->computectx=&ae->ctx1;
+ ae->flux=flux;
+ /* check snapshot structure */
+ if (sizeof(ae->snapshot)!=0x100 || &ae->snapshot.fdd.motorstate-(unsigned char*)&ae->snapshot!=0x9C || &ae->snapshot.crtcstate.model-(unsigned char*)&ae->snapshot!=0xA4
+ || &ae->snapshot.romselect-(unsigned char*)&ae->snapshot!=0x55
+ || &ae->snapshot.interruptrequestflag-(unsigned char*)&ae->snapshot!=0xB4
+ || &ae->snapshot.CPCType-(unsigned char*)&ae->snapshot!=0x6D) {
+ rasm_printf(ae,"snapshot structure integrity check KO\n");
+ exit(349);
+ }
+
+ for (i=0;i<4;i++) {
+ ae->bankgate[i]=0x7FC0; /* video memory has no paging */
+ ae->setgate[i]=0x7FC0; /* video memory has no paging */
+ }
+ for (i=0;i<256;i++) {
+ /* 4M expansion support on lower gate array port */
+ ae->bankgate[i+4]=0x7FC4+(i&3)+((i&31)>>2)*8-0x100*(i>>5);
+ ae->setgate[i+4] =0x7FC2 +((i&31)>>2)*8-0x100*(i>>5);
+ //printf("%04X %04X\n",ae->bankgate[i+4],ae->setgate[i+4]);
+ }
+
+ memcpy(ae->snapshot.idmark,"MV - SNA",8);
+ ae->snapshot.registers.IM=1;
+
+ ae->snapshot.gatearray.palette[0]=0x04;
+ ae->snapshot.gatearray.palette[1]=0x0A;
+ ae->snapshot.gatearray.palette[2]=0x15;
+ ae->snapshot.gatearray.palette[3]=0x1C;
+ ae->snapshot.gatearray.palette[4]=0x18;
+ ae->snapshot.gatearray.palette[5]=0x1D;
+ ae->snapshot.gatearray.palette[6]=0x0C;
+ ae->snapshot.gatearray.palette[7]=0x05;
+ ae->snapshot.gatearray.palette[8]=0x0D;
+ ae->snapshot.gatearray.palette[9]=0x16;
+ ae->snapshot.gatearray.palette[10]=0x06;
+ ae->snapshot.gatearray.palette[11]=0x17;
+ ae->snapshot.gatearray.palette[12]=0x1E;
+ ae->snapshot.gatearray.palette[13]=0x00;
+ ae->snapshot.gatearray.palette[14]=0x1F;
+ ae->snapshot.gatearray.palette[15]=0x0E;
+ ae->snapshot.gatearray.palette[16]=0x04;
+
+ ae->snapshot.gatearray.multiconfiguration=0x8D; // lower/upper ROM off + mode 1
+ ae->snapshot.CPCType=2; /* 6128 */
+ ae->snapshot.crtcstate.model=0; /* CRTC 0 */
+ ae->snapshot.vsyncdelay=2;
+ strcpy((char *)ae->snapshot.unused6+3+0x20+8,RASM_VERSION);
+ /* CRTC default registers */
+ ae->snapshot.crtc.registervalue[0]=0x3F;
+ ae->snapshot.crtc.registervalue[1]=40;
+ ae->snapshot.crtc.registervalue[2]=46;
+ ae->snapshot.crtc.registervalue[3]=0x8E;
+ ae->snapshot.crtc.registervalue[4]=38;
+ ae->snapshot.crtc.registervalue[6]=25;
+ ae->snapshot.crtc.registervalue[7]=30;
+ ae->snapshot.crtc.registervalue[9]=7;
+ ae->snapshot.crtc.registervalue[12]=0x30;
+ ae->snapshot.psg.registervalue[7]=0x3F; /* audio mix all channels OFF */
+ /* PPI Init */
+ ae->snapshot.ppi.control=0x82;
+ /* standard stack */
+ ae->snapshot.registers.HSP=0xC0;
+
+ /*
+ winape sprintf(symbol_line,"%s #%4X\n",ae->label[i].name,ae->label[i].ptr);
+ pasmo sprintf(symbol_line,"%s EQU 0%4XH\n",ae->label[i].name,ae->label[i].ptr);
+ rasm sprintf(symbol_line,"%s #%X B%d\n",ae->wl[ae->label[i].iw].w,ae->label[i].ptr,ae->label[i].ibank>31?0:ae->label[i].ibank);
+ */
+#if TRACE_PREPRO
+printf("paramz\n");
+#endif
+ if (param && param->labelfilename) {
+ for (j=0;param->labelfilename[j] && param->labelfilename[j][0];j++) {
+ rasm_printf(ae,"Label import from [%s]\n",param->labelfilename[j]);
+ ae->label_filename=param->labelfilename[j];
+ ae->label_line=1;
+ labelines=FileReadLines(param->labelfilename[j]);
+ i=0;
+ while (labelines[i]) {
+ /* upper case */
+ for (j=0;labelines[i][j];j++) labelines[i][j]=toupper(labelines[i][j]);
+
+ if ((labelsep1=strstr(labelines[i],": EQU 0"))!=NULL) {
+ /* sjasm */
+ *labelsep1=0;
+ curlabel.name=labelines[i];
+ curlabel.iw=-1;
+ curlabel.crc=GetCRC(curlabel.name);
+ curlabel.ptr=strtol(labelsep1+6,NULL,16);
+ PushLabelLight(ae,&curlabel);
+ } else if ((labelsep1=strstr(labelines[i]," EQU 0"))!=NULL) {
+ /* pasmo */
+ *labelsep1=0;
+ curlabel.name=labelines[i];
+ curlabel.iw=-1;
+ curlabel.crc=GetCRC(curlabel.name);
+ curlabel.ptr=strtol(labelsep1+6,NULL,16);
+ //ObjectArrayAddDynamicValueConcat((void **)&ae->label,&ae->il,&ae->ml,&curlabel,sizeof(curlabel));
+ PushLabelLight(ae,&curlabel);
+ } else if ((labelsep1=strstr(labelines[i]," "))!=NULL) {
+ /* winape / rasm */
+ if (*(labelsep1+1)=='#') {
+ *labelsep1=0;
+ curlabel.name=labelines[i];
+ curlabel.iw=-1;
+ curlabel.crc=GetCRC(curlabel.name);
+ curlabel.ptr=strtol(labelsep1+2,NULL,16);
+ //ObjectArrayAddDynamicValueConcat((void **)&ae->label,&ae->il,&ae->ml,&curlabel,sizeof(curlabel));
+ PushLabelLight(ae,&curlabel);
+ }
+ }
+ i++;
+ ae->label_line++;
+ }
+ MemFree(labelines);
+ }
+ ae->label_filename=NULL;
+ ae->label_line=0;
+ }
+#if TRACE_PREPRO
+printf("init 3\n");
+#endif
+ /* 32 CPR default roms but 260+ max snapshot RAM pages + one workspace */
+ for (i=0;i<BANK_MAX_NUMBER+1;i++) {
+ mem=MemMalloc(65536);
+ memset(mem,0,65536);
+ ObjectArrayAddDynamicValueConcat((void**)&ae->mem,&ae->nbbank,&ae->maxbank,&mem,sizeof(mem));
+ }
+#if TRACE_PREPRO
+printf("nbbank=%d initialised\n",ae->nbbank);
+#endif
+ ae->activebank=BANK_MAX_NUMBER;
+ ae->maxptr=65536;
+ for (i=0;i<256;i++) { ae->charset[i]=(unsigned char)i; }
+
+ if (param && param->outputfilename) {
+ ae->outputfilename=TxtStrDup(param->outputfilename);
+ } else if (param && param->automatic_radix && param->filename) {
+ int rilook;
+ rilook=strlen(param->filename);
+ ae->outputfilename=TxtStrDup(param->filename);
+ /* look for extension */
+ while (rilook && ae->outputfilename[rilook]!='.') {
+ /* end of scan with directory reference or nothing found */
+ if (ae->outputfilename[rilook]=='/' || ae->outputfilename[rilook]=='\\') rilook=0; else rilook--;
+ }
+ if (ae->outputfilename[rilook]=='.') {
+ ae->outputfilename[rilook]=0;
+ }
+ } else {
+ ae->outputfilename=TxtStrDup("rasmoutput");
+ }
+ /* si on est en ligne de commande ET que le fichier n'est pas trouvé */
+ if (param && param->filename && !FileExists(param->filename)) {
+ char *LTryExtension[]={".asm",".z80",".o",".dam",".mxm",".txt",
+ ".ASM",".Z80",".O",".DAM",".MXM",".TXT",NULL};
+
+ int iguess=1;
+ l=strlen(param->filename);
+ filename=MemRealloc(param->filename,l+6);
+ /* si le nom du fichier termine par un . on n'ajoute que l'extension, sinon on l'ajoute avec le . */
+ if (param->filename[l-1]=='.') strcat(param->filename,"asm"); else strcat(param->filename,".asm");
+
+ while (!FileExists(param->filename) && LTryExtension[iguess]!=NULL) {
+ TxtReplace(param->filename,LTryExtension[iguess-1],LTryExtension[iguess],0); /* no realloc with this */
+ if (!FileExists(param->filename)) {
+ param->filename[l]=0;
+ }
+ iguess++;
+ }
+ }
+
+ if (param && param->filename && !FileExists(param->filename)) {
+ rasm_printf(ae,"Cannot find file [%s]\n",param->filename);
+ exit(-1802);
+ }
+
+ if (param) rasm_printf(ae,KAYGREEN"Pre-processing [%s]\n",param->filename);
+ for (nbinstruction=0;instruction[nbinstruction].mnemo[0];nbinstruction++);
+ qsort(instruction,nbinstruction,sizeof(struct s_asm_keyword),cmpkeyword);
+ for (i=0;i<256;i++) { ae->fastmatch[i]=-1; }
+ for (i=0;i<nbinstruction;i++) { if (ae->fastmatch[(int)instruction[i].mnemo[0]]==-1) ae->fastmatch[(int)instruction[i].mnemo[0]]=i; }
+ for (i=0;CharWord[i];i++) {Automate[((int)CharWord[i])&0xFF]=1;}
+ /* separators */
+ Automate[' ']=2;
+ Automate[',']=2;
+ Automate['\t']=2;
+ /* end of line */
+ Automate[':']=3; /* les 0x0A et 0x0D seront deja  remplaces en ':' */
+ /* expression */
+ Automate['=']=4; /* on stocke l'emplacement de l'egalite */
+ Automate['<']=4; /* ou des operateurs */
+ Automate['>']=4; /* d'evaluation */
+ Automate['!']=4;
+
+ StateMachineResizeBuffer(&w,256,&mw);
+ StateMachineResizeBuffer(&bval,256,&sval);
+ StateMachineResizeBuffer(&qval,256,&sqval);
+ w[0]=0;
+ bval[0]=0;
+ qval[0]=0;
+
+#if TRACE_PREPRO
+printf("read file/flux\n");
+#endif
+#if TRACE_GENERALE
+printf("-read/flux\n");
+#endif
+
+ if (!ae->flux) {
+ zelines=FileReadLines(filename);
+ FieldArrayAddDynamicValueConcat(&ae->filename,&ae->ifile,&ae->maxfile,filename);
+ } else {
+ int flux_nblines=0;
+ int flux_curpos;
+
+ /* copie des données */
+ for (i=0;i<datalen;i++) {
+ if (datain[i]=='\n') flux_nblines++;
+ }
+ zelines=MemMalloc(sizeof(char *)*(flux_nblines+2));
+ flux_nblines=0;
+ flux_curpos=0;
+ for (i=0;i<datalen;i++) {
+ if (datain[i]=='\n') {
+ /* almost empty lines must allocate CR+terminator */
+ zelines[flux_nblines]=MemMalloc(i-flux_curpos+2);
+ /* copy data+CR */
+ memcpy(zelines[flux_nblines],datain+flux_curpos,i-flux_curpos+1);
+ /* et on ajoute un petit zéro à la fin! */
+ zelines[flux_nblines][i-flux_curpos+1]=0;
+#if 0
+if (flux_nblines<50) printf("%02d[%s]\n",flux_nblines,zelines[flux_nblines]);
+#endif
+ flux_curpos=i+1;
+ flux_nblines++;
+ }
+ }
+ if (i>flux_curpos) {
+ zelines[flux_nblines]=MemMalloc(i-flux_curpos+1);
+ memcpy(zelines[flux_nblines],datain+flux_curpos,i-flux_curpos);
+ zelines[flux_nblines][i-flux_curpos]=0;
+ flux_nblines++;
+ }
+ /* terminator */
+ zelines[flux_nblines]=NULL;
+
+ /* en mode flux on prend le repertoire courant en reference */
+ FieldArrayAddDynamicValueConcat(&ae->filename,&ae->ifile,&ae->maxfile,CURRENT_DIR);
+ }
+
+#if TRACE_PREPRO
+printf("remove comz, do includes\n");
+#endif
+#if TRACE_GENERALE
+printf("-comz/include\n");
+#endif
+ EarlyPrepSrc(ae,zelines,ae->filename[ae->ifile-1]);
+
+ for (i=0;zelines[i];i++) {
+ curlisting.ifile=0;
+ curlisting.iline=i+1;
+ curlisting.listing=zelines[i];
+ ObjectArrayAddDynamicValueConcat((void**)&listing,&ilisting,&maxlisting,&curlisting,sizeof(curlisting));
+ }
+ MemFree(zelines);
+
+ /* on s'assure que la derniere instruction est prise en compte a peu de frais */
+ if (ilisting) {
+ datalen=strlen(listing[ilisting-1].listing);
+ listing[ilisting-1].listing=MemRealloc(listing[ilisting-1].listing,datalen+2);
+ listing[ilisting-1].listing[datalen]=':';
+ listing[ilisting-1].listing[datalen+1]=0;
+ }
+
+ waiting_quote=quote_type=0;
+ l=idx=0;
+ while (l<ilisting) {
+ c=listing[l].listing[idx++];
+ if (!c) {
+ l++;
+ idx=0;
+ continue;
+ } else if (c=='\\' && !waiting_quote) {
+ idx++;
+ continue;
+ } else if (c==0x0D || c==0x0A) {
+ listing[l].listing[idx-1]=':';
+ c=':';
+ } else if (c=='\'' && idx>2 && strncmp(&listing[l].listing[idx-3],"AF'",3)==0) {
+ /* rien */
+ } else if (c=='"' || c=='\'') {
+ if (!quote_type) {
+ quote_type=c;
+ lquote=l;
+ } else {
+ if (c==quote_type) {
+ quote_type=0;
+ }
+ }
+ }
+
+ if (waiting_quote) {
+ /* expecting quote and nothing else */
+ switch (waiting_quote) {
+ case 1:
+ if (c==quote_type) waiting_quote=2;
+ break;
+ case 2:
+ if (!quote_type) {
+ waiting_quote=3;
+ qval[iqval]=0;
+ } else {
+ qval[iqval++]=c;
+ StateMachineResizeBuffer(&qval,iqval,&sqval);
+ qval[iqval]=0;
+ }
+ }
+ if (waiting_quote==3) {
+ if (incbin) {
+ int fileok=0,ilookfile;
+ /* qval contient le nom du fichier a lire */
+ filename_toread=MergePath(ae,ae->filename[listing[l].ifile],qval);
+ if (FileExists(filename_toread)) {
+ fileok=1;
+ } else {
+ for (ilookfile=0;ilookfile<ae->ipath && !fileok;ilookfile++) {
+ filename_toread=MergePath(ae,ae->includepath[ilookfile],qval);
+ if (FileExists(filename_toread)) {
+ fileok=1;
+ }
+ }
+ }
+
+ curhexbin.filename=TxtStrDup(filename_toread);
+ curhexbin.crunch=crunch;
+ if (fileok) {
+ /* lecture */
+ curhexbin.rawlen=curhexbin.datalen=FileGetSize(filename_toread);
+ curhexbin.data=MemMalloc(curhexbin.datalen*1.3+10);
+ #if TRACE_PREPRO
+ switch (crunch) {
+ case 0:rasm_printf(ae,KBLUE"incbin [%s] size=%d\n",filename_toread,curhexbin.datalen);break;
+ case 4:rasm_printf(ae,KBLUE"inclz4 [%s] size=%d\n",filename_toread,curhexbin.datalen);break;
+ case 7:rasm_printf(ae,KBLUE"incsx7 [%s] size=%d\n",filename_toread,curhexbin.datalen);break;
+ case 8:rasm_printf(ae,KBLUE"incexo [%s] size=%d\n",filename_toread,curhexbin.datalen);break;
+ case 88:rasm_printf(ae,KBLUE"incexb [%s] size=%d\n",filename_toread,curhexbin.datalen);break;
+ case 48:rasm_printf(ae,KBLUE"incl48 [%s] size=%d\n",filename_toread,curhexbin.datalen);break;
+ case 49:rasm_printf(ae,KBLUE"incl49 [%s] size=%d\n",filename_toread,curhexbin.datalen);break;
+ default:rasm_printf(ae,KBLUE"invalid crunch state!\n");exit(-42);
+ }
+ #endif
+ if (FileReadBinary(filename_toread,(char*)curhexbin.data,curhexbin.datalen)!=curhexbin.datalen) {
+ rasm_printf(ae,"read error on %s",filename_toread);
+ exit(2);
+ }
+ FileReadBinaryClose(filename_toread);
+ switch (crunch) {
+ #ifndef NO_3RD_PARTIES
+ case 4:
+ newdata=LZ4_crunch(curhexbin.data,curhexbin.datalen,&curhexbin.datalen);
+ MemFree(curhexbin.data);
+ curhexbin.data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched with LZ4 into %d byte(s)\n",curhexbin.datalen);
+ #endif
+ break;
+ case 7:
+ {
+ size_t slzlen;
+ newdata=ZX7_compress(optimize(curhexbin.data, curhexbin.datalen), curhexbin.data, curhexbin.datalen, &slzlen);
+ curhexbin.datalen=slzlen;
+ MemFree(curhexbin.data);
+ curhexbin.data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched with ZX7 into %d byte(s)\n",curhexbin.datalen);
+ #endif
+ }
+ break;
+ case 8:
+ rasm_printf(ae,KWARNING"Exomizer is crunching %.1fkb this may take a while, be patient...\n",curhexbin.datalen/1024.0);
+ newdata=Exomizer_crunch(curhexbin.data,curhexbin.datalen,&curhexbin.datalen);
+ MemFree(curhexbin.data);
+ curhexbin.data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched with Exomizer into %d byte(s)\n",curhexbin.datalen);
+ #endif
+ break;
+ #endif
+ case 48:
+ newdata=LZ48_crunch(curhexbin.data,curhexbin.datalen,&curhexbin.datalen);
+ MemFree(curhexbin.data);
+ curhexbin.data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched with LZ48 into %d byte(s)\n",curhexbin.datalen);
+ #endif
+ break;
+ case 49:
+ newdata=LZ49_crunch(curhexbin.data,curhexbin.datalen,&curhexbin.datalen);
+ MemFree(curhexbin.data);
+ curhexbin.data=newdata;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"crunched into with LZ49 %d byte(s)\n",curhexbin.datalen);
+ #endif
+ break;
+ default:break;
+ }
+ } else {
+ /* TAG + info */
+ curhexbin.datalen=-1;
+ curhexbin.data=MemMalloc(2);
+ /* not yet an error, we will know later when executing the code */
+ }
+ ObjectArrayAddDynamicValueConcat((void**)&ae->hexbin,&ae->ih,&ae->mh,&curhexbin,sizeof(curhexbin));
+ /* insertion */
+ le=strlen(listing[l].listing);
+
+ newlistingline=MemMalloc(le+32);
+ memcpy(newlistingline,listing[l].listing,rewrite);
+ rewrite+=sprintf(newlistingline+rewrite,"HEXBIN #%X",ae->ih-1);
+ strcat(newlistingline+rewrite,listing[l].listing+idx);
+ idx=rewrite;
+ MemFree(listing[l].listing);
+ listing[l].listing=newlistingline;
+ incbin=0;
+ } else if (include) {
+ /* qval contient le nom du fichier a lire */
+ int fileok=0,ilookfile;
+ /* qval contient le nom du fichier a lire */
+ filename_toread=MergePath(ae,ae->filename[listing[l].ifile],qval);
+ if (FileExists(filename_toread)) {
+ fileok=1;
+ } else {
+ for (ilookfile=0;ilookfile<ae->ipath && !fileok;ilookfile++) {
+ filename_toread=MergePath(ae,ae->includepath[ilookfile],qval);
+ if (FileExists(filename_toread)) {
+ fileok=1;
+ }
+ }
+ }
+
+ if (fileok) {
+ int newi,newj;
+ #if TRACE_PREPRO
+ rasm_printf(ae,KBLUE"include [%s]\n",filename_toread);
+ #endif
+
+ /* lecture */
+ listing_include=FileReadLines(filename_toread);
+ FieldArrayAddDynamicValueConcat(&ae->filename,&ae->ifile,&ae->maxfile,filename_toread);
+ /* virer les commentaires + pré-traitement */
+ EarlyPrepSrc(ae,listing_include,ae->filename[ae->ifile-1]);
+
+ /* split de la ligne en cours + suppression de l'instruction include */
+ PreProcessingSplitListing(&listing,&ilisting,&maxlisting,l,rewrite,idx);
+ /* insertion des nouvelles lignes + reference fichier + numeros de ligne */
+ PreProcessingInsertListing(&listing,&ilisting,&maxlisting,l,listing_include,ae->ifile-1);
+
+ MemFree(listing_include); /* free le tableau mais pas les lignes */
+ listing_include=NULL;
+ idx=0; /* on reste sur la meme ligne mais on se prepare a relire du caractere 0! */
+ } else {
+ /* TAG + info */
+ curhexbin.filename=TxtStrDup(filename_toread);
+ curhexbin.datalen=-2;
+ curhexbin.data=MemMalloc(2);
+ /* not yet an error, we will know later when executing the code */
+ ObjectArrayAddDynamicValueConcat((void**)&ae->hexbin,&ae->ih,&ae->mh,&curhexbin,sizeof(curhexbin));
+ /* insertion */
+ le=strlen(listing[l].listing);
+ newlistingline=MemMalloc(le+32);
+ memcpy(newlistingline,listing[l].listing,rewrite);
+ rewrite+=sprintf(newlistingline+rewrite,"HEXBIN #%X",ae->ih-1);
+ strcat(newlistingline+rewrite,listing[l].listing+idx);
+ idx=rewrite;
+ MemFree(listing[l].listing);
+ listing[l].listing=newlistingline;
+ }
+ include=0;
+ }
+ waiting_quote=0;
+ qval[0]=0;
+ iqval=0;
+ }
+ } else {
+ /* classic behaviour */
+
+ /* looking for include/incbin */
+ if (((c>='A' && c<='Z') || (c>='0' && c<='9') || c=='@' || c=='_')&& !quote_type) {
+ bval[ival++]=c;
+ StateMachineResizeBuffer(&bval,ival,&sval);
+ bval[ival]=0;
+ } else {
+ if (strcmp(bval,"INCLUDE")==0) {
+ include=1;
+ waiting_quote=1;
+ rewrite=idx-7-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"READ")==0) {
+ include=1;
+ waiting_quote=1;
+ rewrite=idx-4-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"INCLZ4")==0) {
+ incbin=1;
+ crunch=4;
+ waiting_quote=1;
+ rewrite=idx-6-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"INCEXB")==0) {
+ incbin=1;
+ crunch=88;
+ waiting_quote=1;
+ rewrite=idx-6-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"INCEXO")==0) {
+ incbin=1;
+ crunch=8;
+ waiting_quote=1;
+ rewrite=idx-6-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"INCZX7")==0) {
+ incbin=1;
+ crunch=7;
+ waiting_quote=1;
+ rewrite=idx-6-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"INCL48")==0) {
+ incbin=1;
+ crunch=48;
+ waiting_quote=1;
+ rewrite=idx-6-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"INCL49")==0) {
+ incbin=1;
+ crunch=49;
+ waiting_quote=1;
+ rewrite=idx-6-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"INCBIN")==0) {
+ incbin=1;
+ crunch=0;
+ waiting_quote=1;
+ rewrite=idx-6-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"INCWAV")==0) {
+ incbin=1;
+ crunch=0;
+ waiting_quote=1;
+ rewrite=idx-6-1;
+ /* quote right after keyword */
+ if (c==quote_type) {
+ waiting_quote=2;
+ }
+ } else if (strcmp(bval,"WHILE")==0) {
+ /* remplir la structure repeat_index */
+ windex.ol=listing[l].iline;
+ windex.oidx=idx;
+ windex.ifile=ae->ifile-1;
+ ObjectArrayAddDynamicValueConcat((void**)&TABwindex,&nwi,&mwi,&windex,sizeof(windex));
+ } else if (strcmp(bval,"REPEAT")==0) {
+ /* remplir la structure repeat_index */
+ rindex.ol=listing[l].iline;
+ rindex.oidx=idx;
+ rindex.ifile=ae->ifile-1;
+ ObjectArrayAddDynamicValueConcat((void**)&TABrindex,&nri,&mri,&rindex,sizeof(rindex));
+ } else if (strcmp(bval,"WEND")==0) {
+ /* retrouver la structure repeat_index correspondant a l'ouverture */
+ for (wi=nwi-1;wi>=0;wi--) {
+ if (TABwindex[wi].cl==-1) {
+ TABwindex[wi].cl=c;
+ TABwindex[wi].cidx=idx;
+ break;
+ }
+ }
+ if (wi==-1) {
+ MakeError(ae,ae->filename[listing[l].ifile],listing[l].iline,"WEND refers to unknown WHILE\n");
+ //exit(1);
+ }
+ } else if (strcmp(bval,"REND")==0 || strcmp(bval,"UNTIL")==0) {
+ /* retrouver la structure repeat_index correspondant a l'ouverture */
+ for (ri=nri-1;ri>=0;ri--) {
+ if (TABrindex[ri].cl==-1) {
+ TABrindex[ri].cl=c;
+ TABrindex[ri].cidx=idx;
+ break;
+ }
+ }
+ if (ri==-1) {
+ MakeError(ae,ae->filename[listing[l].ifile],listing[l].iline,"%s refers to unknown REPEAT\n",bval);
+ //exit(1);
+ }
+
+ }
+ bval[0]=0;
+ ival=0;
+ }
+ }
+ }
+#if TRACE_PREPRO
+printf("check quotes and repeats\n");
+#endif
+ if (quote_type) {
+ MakeError(ae,ae->filename[listing[lquote].ifile],listing[lquote].iline,"quote opened was not closed\n");
+ //exit(1);
+ }
+
+ /* repeat expansion check */
+ for (ri=0;ri<nri;ri++) {
+ if (TABrindex[ri].cl==-1) {
+ MakeError(ae,ae->filename[TABrindex[ri].ifile],TABrindex[ri].ol,"REPEAT was not closed\n");
+ }
+ }
+
+ /* creer une liste de mots */
+ curw.w=TxtStrDup("BEGIN");
+ curw.l=0;
+ curw.ifile=0;
+ curw.t=1;
+ curw.e=0;
+ ObjectArrayAddDynamicValueConcat((void**)&wordlist,&nbword,&maxword,&curw,sizeof(curw));
+
+ /* pour les calculs d'adresses avec IX et IY on enregistre deux variables bidons du meme nom */
+ curw.e=2;
+ curw.w=TxtStrDup("IX~0");
+ ObjectArrayAddDynamicValueConcat((void**)&wordlist,&nbword,&maxword,&curw,sizeof(curw));
+ curw.w=TxtStrDup("IY~0");
+ ObjectArrayAddDynamicValueConcat((void**)&wordlist,&nbword,&maxword,&curw,sizeof(curw));
+ curw.e=0;
+
+#if TRACE_PREPRO
+ l=0;
+ while (l<ilisting) {
+ rasm_printf(ae,"listing[%d]\n%s\n",l,listing[l].listing);
+ l++;
+ }
+#endif
+#if TRACE_GENERALE
+printf("-build wordlist\n");
+#endif
+
+ texpr=quote_type=0;
+ l=lw=idx=0;
+ ispace=0;
+ w[0]=0;
+ while (l<ilisting) {
+ c=listing[l].listing[idx++];
+ if (!c) {
+ idx=0;
+ l++;
+ continue;
+ }
+
+ if (!quote_type) {
+#if TRACE_PREPRO
+//printf("c='%c' automate[c]=%d\n",c>31?c:'.',Automate[((int)c)&0xFF]);
+#endif
+ switch (Automate[((int)c)&0xFF]) {
+ case 0:
+ MakeError(ae,ae->filename[listing[l].ifile],listing[l].iline,"invalid char '%c' (%d) char %d\n",c,c,idx);
+#if TRACE_PREPRO
+printf("c='%c' automate[c]=%d\n",c>31?c:'.',Automate[((int)c)&0xFF]);
+#endif
+ exit(0);
+ break;
+ case 1:
+ if (c=='\'' && idx>2 && strncmp(&listing[l].listing[idx-3],"AF'",3)==0) {
+ w[lw++]=c;
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ break;
+ } else if (c=='\'' || c=='"') {
+ quote_type=c;
+ /* debut d'une quote, on finalise le mot -> POURQUOI DONC? */
+ //idx--;
+#if TRACE_PREPRO
+printf("quote\n");
+#endif
+ /* on finalise le mot si on est en début d'une nouvelle instruction ET que c'est un SAVE */
+ if (strcmp(w,"SAVE")==0) {
+ idx--;
+ } else {
+ w[lw++]=c;
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ break;
+ }
+ } else {
+ if (c!=' ' && c!='\t') {
+ w[lw++]=c;
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ } else {
+ /* Winape/Maxam operator compatibility on expressions */
+#if TRACE_PREPRO
+printf("1/2 winape maxam operator test for [%s]\n",w+ispace);
+#endif
+ if (texpr) {
+ if (strcmp(w+ispace,"AND")==0) {
+ w[ispace]='&';
+ lw=ispace+1;
+ } else if (strcmp(w+ispace,"OR")==0) {
+#if TRACE_PREPRO
+printf("conversion OR vers |\n");
+#endif
+ w[ispace]='|';
+ lw=ispace+1;
+ } else if (strcmp(w+ispace,"MOD")==0) {
+ w[ispace]='m';
+ lw=ispace+1;
+ } else if (strcmp(w+ispace,"XOR")==0) {
+ w[ispace]='^';
+ lw=ispace+1;
+ } else if (strcmp(w+ispace,"%")==0) {
+ w[ispace]='m';
+ lw=ispace+1;
+ }
+ }
+ ispace=lw;
+ }
+ break;
+ }
+ case 2:
+ /* separator (space, tab, comma) */
+#if TRACE_PREPRO
+printf("*** separator='%c'\n",c);
+#endif
+
+ /* patch argument suit une expression d'évaluation (ASSERT) */
+ if (c==',') hadcomma=1;
+
+ if (lw) {
+ w[lw]=0;
+ if (texpr && !wordlist[nbword-1].t && wordlist[nbword-1].e && !hadcomma) {
+ /* pour compatibilite winape avec AND,OR,XOR */
+#if TRACE_PREPRO
+printf("2/2 winape maxam operator test for expression [%s]\n",w+ispace);
+#endif
+ if (strcmp(w,"AND")==0) {
+ wtmp=TxtStrDup("&");
+ } else if (strcmp(w,"OR")==0) {
+ wtmp=TxtStrDup("|");
+ } else if (strcmp(w,"XOR")==0) {
+ wtmp=TxtStrDup("^");
+ } else if (strcmp(w,"%")==0) {
+ wtmp=TxtStrDup("m");
+ } else {
+ wtmp=TxtStrDup(w);
+ }
+ /* on concatène le nouveau mot à l'expression */
+ nbword--;
+ lw=0;
+ for (li=0;wordlist[nbword].w[li];li++) {
+ w[lw++]=wordlist[nbword].w[li];
+ StateMachineResizeBuffer(&w,lw,&mw);
+ }
+ w[lw]=0;
+ MemFree(wordlist[nbword].w);
+
+ for (li=0;wtmp[li];li++) {
+ w[lw++]=wtmp[li];
+ StateMachineResizeBuffer(&w,lw,&mw);
+ }
+ w[lw]=0;
+ MemFree(wtmp);
+ /* et on modifie l'automate pour la suite! */
+ Automate[' ']=1;
+ Automate['\t']=1;
+ ispace=lw;
+ } else if (strcmp(w,"EQU")==0) {
+ /* il y avait un mot avant alors on va reorganiser la ligne */
+ nbword--;
+ lw=0;
+ for (li=0;wordlist[nbword].w[li];li++) {
+ w[lw++]=wordlist[nbword].w[li];
+ StateMachineResizeBuffer(&w,lw,&mw);
+ }
+ MemFree(wordlist[nbword].w);
+ curw.e=lw+1;
+ /* on ajoute l'egalite d'alias*/
+ w[lw++]='~';
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ Automate[' ']=1;
+ Automate['\t']=1;
+ ispace=lw;
+ texpr=1;
+ } else {
+ curw.w=TxtStrDup(w);
+ curw.l=listing[l].iline;
+ curw.ifile=listing[l].ifile;
+ curw.t=0;
+#if TRACE_PREPRO
+if (curw.w[0]=='=') {
+ printf("(1) bug prout\n");
+ exit(1);
+}
+printf("ajout du mot [%s]\n",curw.w);
+#endif
+ ObjectArrayAddDynamicValueConcat((void**)&wordlist,&nbword,&maxword,&curw,sizeof(curw));
+ //texpr=0; /* reset expr */
+ curw.e=0;
+ lw=0;
+ w[lw]=0;
+
+ /* match keyword? then next spaces will be ignored*/
+ if (macro_trigger) {
+ struct s_macro_fast curmacrofast;
+ Automate[' ']=1;
+ Automate['\t']=1;
+ ispace=0;
+ texpr=1;
+#if TRACE_PREPRO
+printf("macro trigger w=[%s]\n",curw.w);
+#endif
+ /* add macro name to instruction pool for preprocessor but not struct or write */
+ if (macro_trigger=='M') {
+ curmacrofast.mnemo=curw.w;
+ curmacrofast.crc=GetCRC(curw.w);
+ ObjectArrayAddDynamicValueConcat((void**)&MacroFast,&idxmacrofast,&maxmacrofast,&curmacrofast,sizeof(struct s_macro_fast));
+ }
+ macro_trigger=0;
+ } else {
+ int keymatched=0;
+ if ((ifast=ae->fastmatch[(int)curw.w[0]])!=-1) {
+ while (instruction[ifast].mnemo[0]==curw.w[0]) {
+ if (strcmp(instruction[ifast].mnemo,curw.w)==0) {
+ keymatched=1;
+ if (strcmp(curw.w,"MACRO")==0 || strcmp(curw.w,"STRUCT")==0 || strcmp(curw.w,"WRITE")==0) {
+/* @@TODO AS80 compatibility patch!!! */
+ macro_trigger=curw.w[0];
+ } else {
+ Automate[' ']=1;
+ Automate['\t']=1;
+ ispace=0;
+ /* instruction en cours, le reste est a interpreter comme une expression */
+#if TRACE_PREPRO
+printf("instruction en cours\n");
+#endif
+ texpr=1;
+ }
+ break;
+ }
+ ifast++;
+ }
+ }
+ if (!keymatched) {
+ int macrocrc;
+ macrocrc=GetCRC(curw.w);
+ for (keymatched=0;keymatched<idxmacrofast;keymatched++) {
+ if (MacroFast[keymatched].crc==macrocrc)
+ if (strcmp(MacroFast[keymatched].mnemo,curw.w)==0) {
+ Automate[' ']=1;
+ Automate['\t']=1;
+ ispace=0;
+ /* macro en cours, le reste est a interpreter comme une expression */
+ texpr=1;
+ break;
+ }
+ }
+ }
+ }
+ }
+ } else {
+ if (hadcomma) {
+ MakeError(ae,ae->filename[listing[l].ifile],listing[l].iline,"empty parameter\n");
+ }
+ }
+ break;
+ case 3:
+ /* fin de ligne, on remet l'automate comme il faut */
+#if TRACE_PREPRO
+printf("EOL\n");
+#endif
+ macro_trigger=0;
+ Automate[' ']=2;
+ Automate['\t']=2;
+ ispace=0;
+ texpr=0;
+ /* si le mot lu a plus d'un caractère */
+ if (lw) {
+ if (!wordlist[nbword-1].t && (wordlist[nbword-1].e || w[0]=='=') && !hadcomma) {
+ /* cas particulier d'ecriture libre */
+ /* bugfix inhibition 19.06.2018 */
+ /* ajout du terminateur? */
+ w[lw]=0;
+#if TRACE_PREPRO
+printf("nbword=%d w=[%s] ->",nbword,w);fflush(stdout);
+#endif
+ nbword--;
+ wordlist[nbword].w=MemRealloc(wordlist[nbword].w,strlen(wordlist[nbword].w)+lw+1);
+ strcat(wordlist[nbword].w,w);
+#if TRACE_PREPRO
+printf("%s\n",wordlist[nbword].w);
+#endif
+ /* on change de type! */
+ wordlist[nbword].t=1;
+ //ObjectArrayAddDynamicValueConcat((void**)&wordlist,&nbword,&maxword,&curw,sizeof(curw));
+ curw.e=0;
+ lw=0;
+ w[lw]=0;
+ } else if (nbword && strcmp(w,"EQU")==0) {
+ /* il y avait un mot avant alors on va reorganiser la ligne */
+ nbword--;
+ lw=0;
+ for (li=0;wordlist[nbword].w[li];li++) {
+ w[lw++]=wordlist[nbword].w[li];
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ }
+ MemFree(wordlist[nbword].w);
+ /* on ajoute l'egalite ou comparaison! */
+ curw.e=lw+1;
+ w[lw++]='=';
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ Automate[' ']=1;
+ Automate['\t']=1;
+ } else {
+ /* mot de fin de ligne, à priori pas une expression */
+ curw.w=TxtStrDup(w);
+ curw.l=listing[l].iline;
+ curw.ifile=listing[l].ifile;
+ curw.t=1;
+#if TRACE_PREPRO
+printf("mot de fin de ligne = [%s]\n",curw.w);
+if (curw.w[0]=='=') {
+ printf("(3) bug prout\n");
+ exit(1);
+}
+#endif
+ ObjectArrayAddDynamicValueConcat((void**)&wordlist,&nbword,&maxword,&curw,sizeof(curw));
+ curw.e=0;
+ lw=0;
+ w[lw]=0;
+ hadcomma=0;
+ }
+ } else {
+ /* sinon c'est le précédent qui était terminateur d'instruction */
+ wordlist[nbword-1].t=1;
+ w[lw]=0;
+ }
+ hadcomma=0;
+ break;
+ case 4:
+#if TRACE_PREPRO
+printf("expr operator=%c\n",c);
+#endif
+ /* expression/condition */
+ texpr=1;
+ if (lw) {
+ Automate[' ']=1;
+ Automate['\t']=1;
+ if (!curw.e) {
+ curw.e=lw+1;
+ w[lw++]=c;
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ } else {
+ w[lw++]=c;
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ }
+ } else {
+ /* 2018.06.06 évolution sur le ! (not) */
+#if TRACE_PREPRO
+printf("*** operateur commence le mot\n");
+printf("mot precedent=[%s] t=%d\n",wordlist[nbword-1].w,wordlist[nbword-1].t);
+#endif
+ if (hadcomma && c=='!') {
+ /* on peut commencer un argument par un NOT */
+ w[lw++]=c;
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ /* automate déjà modifié rien de plus */
+ } else if (!wordlist[nbword-1].t) {
+ /* il y avait un mot avant alors on va reorganiser la ligne */
+ /* patch NOT -> SAUF si c'est une directive */
+ int keymatched=0;
+ if ((ifast=ae->fastmatch[(int)wordlist[nbword-1].w[0]])!=-1) {
+ while (instruction[ifast].mnemo[0]==wordlist[nbword-1].w[0]) {
+ if (strcmp(instruction[ifast].mnemo,wordlist[nbword-1].w)==0) {
+ keymatched=1;
+ break;
+ }
+ ifast++;
+ }
+ }
+ if (!keymatched) {
+ int macrocrc;
+ macrocrc=GetCRC(wordlist[nbword-1].w);
+ for (i=0;i<idxmacrofast;i++) {
+ if (MacroFast[i].crc==macrocrc)
+ if (strcmp(MacroFast[i].mnemo,wordlist[nbword-1].w)==0) {
+ keymatched=1;
+ break;
+ }
+ }
+ }
+ if (!keymatched) {
+ nbword--;
+ for (li=0;wordlist[nbword].w[li];li++) {
+ w[lw++]=wordlist[nbword].w[li];
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ }
+ MemFree(wordlist[nbword].w);
+ /* on ajoute l'egalite ou comparaison! */
+ curw.e=lw+1;
+ }
+ w[lw++]=c;
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ /* et on modifie l'automate pour la suite! */
+ Automate[' ']=1;
+ Automate['\t']=1;
+ } else {
+ MakeError(ae,ae->filename[listing[l].ifile],listing[l].iline,"cannot start expression with '=','!','<','>'\n");
+ }
+ }
+ break;
+ default:
+ rasm_printf(ae,KERROR"Internal error (Automate wrong value=%d)\n",Automate[c]);
+ exit(-1);
+ }
+ } else {
+ /* lecture inconditionnelle de la quote */
+#if TRACE_PREPRO
+printf("quote[%d]=%c\n",lw,c);
+#endif
+ w[lw++]=c;
+ StateMachineResizeBuffer(&w,lw,&mw);
+ w[lw]=0;
+ if (!escape_code) {
+ if (c=='\\') escape_code=1;
+ if (lw>1 && c==quote_type) {
+ quote_type=0;
+ }
+ } else {
+ escape_code=0;
+ }
+ }
+ }
+
+#if TRACE_PREPRO
+printf("END\n");
+#endif
+
+ curw.w="END";
+ curw.l=0;
+ curw.t=2;
+ curw.ifile=0;
+ ObjectArrayAddDynamicValueConcat((void**)&wordlist,&nbword,&maxword,&curw,sizeof(curw));
+#if TRACE_PREPRO
+ rasm_printf(ae,KVERBOSE"wordlist contains %d element%s\n",nbword,nbword>1?"s":"");
+#endif
+ ae->nbword=nbword;
+
+ /* switch words for macro declaration with AS80 & UZ80 */
+ if (param && param->as80) {
+ for (l=0;l<nbword;l++) {
+ if (!wordlist[l].t && !wordlist[l].e && strcmp(wordlist[l+1].w,"MACRO")==0) {
+ char *wtmp;
+ wtmp=wordlist[l+1].w;
+ wordlist[l+1].w=wordlist[l].w;
+ wordlist[l].w=wtmp;
+ }
+ }
+ }
+
+#if TRACE_PREPRO
+ for (l=0;l<nbword;l++) {
+ rasm_printf(ae,"[%s]e=%d ",wordlist[l].w,wordlist[l].e);
+ if (wordlist[l].t) rasm_printf(ae,"(%d)\n",wordlist[l].t);
+ }
+
+printf("free\n");
+#endif
+
+ MemFree(bval);
+ MemFree(qval);
+ MemFree(w);
+
+ for (l=0;l<ilisting;l++) {
+ MemFree(listing[l].listing);
+ }
+ MemFree(listing);
+ /* wordlist
+ type 0: label or instruction followed by parameter(s)
+ type 1: last word of the line, last parameter of an instruction
+ type 2: very last word of the list
+ e tag: non zero if there is comparison or equality
+ */
+ ae->wl=wordlist;
+ if (param) {
+ MemFree(param->filename);
+ }
+ if (MacroFast) MemFree(MacroFast);
+ if (TABwindex) MemFree(TABwindex);
+ if (TABrindex) MemFree(TABrindex);
+#if TRACE_PREPRO
+printf("return ae\n");
+#endif
+ return ae;
+}
+
+int Rasm(struct s_parameter *param)
+{
+ #undef FUNC
+ #define FUNC "Rasm"
+
+ struct s_assenv *ae=NULL;
+
+ /* read and preprocess source */
+ ae=PreProcessing(param->filename,0,NULL,0,param);
+ /* assemble */
+ return Assemble(ae,NULL,NULL,NULL);
+}
+
+/* fonction d'export */
+
+int RasmAssemble(const char *datain, int lenin, unsigned char **dataout, int *lenout)
+{
+ struct s_assenv *ae=NULL;
+
+ if (lenout) *lenout=0;
+ ae=PreProcessing(NULL,1,datain,lenin,NULL);
+ return Assemble(ae,dataout,lenout,NULL);
+}
+
+int RasmAssembleInfo(const char *datain, int lenin, unsigned char **dataout, int *lenout, struct s_rasm_info **debug)
+{
+ struct s_assenv *ae=NULL;
+ int ret;
+
+ ae=PreProcessing(NULL,1,datain,lenin,NULL);
+ ret=Assemble(ae,dataout,lenout,debug);
+ return ret;
+}
+
+
+#define AUTOTEST_PAGELABELGEN "buildsna: bank: cpt=5: ld bc,{page}miam{cpt}: bank cpt: nop: miam{cpt} nop: assert {page}miam{cpt}==0x7FC5 "
+
+#define AUTOTEST_NOINCLUDE "truc equ 0:if truc:include'bite':endif:nop"
+
+#define AUTOTEST_SETINSIDE "ld hl,0=0xC9FB"
+
+#define AUTOTEST_OPERATOR_CONVERSION "ld hl,10 OR 20:ld a,40 and 10:ld bc,5 MOD 2:ld a,(ix+45 xor 45)"
+
+#define AUTOTEST_OPERATOR_MODULO "revar=46: devar=5 : var=46%5 : assert var==1: var=46 % 5 : assert var==1: var=46 mod 5 : assert var==1:" \
+ "var=revar%5 : assert var==1: var=revar%devar : assert var==1: var=46%devar : assert var==1: var=revar % 5 : assert var==1:" \
+ "var=revar % devar : assert var==1: var=46 % devar : assert var==1: var=revar % %101 : assert var==1: var=revar%%101 : assert var==1: nop"
+
+#define AUTOTEST_UNDEF "mavar=10: ifdef mavar: undef mavar: endif: ifdef mavar: fail 'undef did not work': endif:nop "
+
+#define AUTOTEST_INSTRMUSTFAILED "ld a,b,c:ldi a: ldir bc:exx hl,de:exx de:ex bc,hl:ex hl,bc:ex af,af:ex hl,hl:ex hl:exx hl: "\
+ "neg b:push b:push:pop:pop c:sub ix:add ix:add:sub:di 2:ei 3:ld i,c:ld r,e:rl:rr:rlca a:sla:sll:"\
+ "ldd e:lddr hl:adc ix:adc b,a:xor 12,13:xor b,1:xor:or 12,13:or b,1:or:and 12,13:and b,1:and:inc:dec"
+
+#define AUTOTEST_VIRGULE "defb 5,5,,5"
+#define AUTOTEST_VIRGULE2 "print '5,,5':nop"
+
+#define AUTOTEST_OVERLOADMACPRM "macro test,idx: defb idx:endm:macro test2,idx:defb {idx}:endm:repeat 2,idx:test idx-1:test2 idx-1:rend"
+
+#define AUTOTEST_IFDEFMACRO "macro test:nop:endm:ifndef test:error:else:test:endif:ifdef test:test:else:error:endif:nop"
+
+#define AUTOTEST_PRINTVAR "label1: macro test, param: print 'param {param}', {hex}{param}: endm:: test label1: nop"
+
+#define AUTOTEST_PRINTSPACE "idx=5: print 'grouik { idx + 3 } ':nop"
+
+#define AUTOTEST_NOT "myvar=10:myvar=10+myvar:if 5!=3:else:print glop:endif:ifnot 5:print glop:else:endif:" \
+ "ifnot 0:else:print glop:endif:if !(5):print glop:endif:if !(0):else:print glop:endif:" \
+ "ya=!0:if ya==1:else:print glop:endif:if !5:print glop:endif:ya = 0:ya =! 0:if ya == 1:" \
+ "else:print glop:endif:if ! 5:print glop:endif:if 1-!( !0 && !0):else:print glop:endif:nop"
+
+
+#define AUTOTEST_MACRO "macro glop:@glop:ld hl,@next:djnz @glop:@next:mend:macro glop2:@glop:glop:ld hl,@next:djnz @glop:glop:" \
+ "@next:mend:cpti=0:repeat:glop:cpt=0:glop:repeat:glop2:repeat 1:@glop:dec a:ld hl,@next:glop2:glop2:" \
+ "jr nz,@glop:@next:rend:cpt=cpt+1:glop2:until cpt<3:cpti=cpti+1:glop2:until cpti<3"
+
+#define AUTOTEST_MACRO_ADV "idx=10:macro mac2 param1,param2:ld hl,{param1}{idx+10}{param2}:{param1}{idx+10}{param2}:djnz {param1}{idx+10}{param2}:mend: " \
+ "mac2 label,45:mac2 glop,10:djnz glop2010:jp label2045"
+
+#define AUTOTEST_MACROPAR "macro unemac, param1, param2:defb '{param1}':defb {param2}:mend:unemac grouik,'grouik'"
+
+#define AUTOTEST_OPCODES "nop::ld bc,#1234::ld (bc),a::inc bc:inc b:dec b:ld b,#12:rlca:ex af,af':add hl,bc:ld a,(bc):dec bc:" \
+ "inc c:dec c:ld c,#12:rrca::djnz $:ld de,#1234:ld (de),a:inc de:inc d:dec d:ld d,#12:rla:jr $:" \
+ "add hl,de:ld a,(de):dec de:inc e:dec e:ld e,#12:rra::jr nz,$:ld hl,#1234:ld (#1234),hl:inc hl:inc h:" \
+ "dec h:ld h,#12:daa:jr z,$:add hl,hl:ld hl,(#1234):dec hl:inc l:dec l:ld l,#12:cpl::jr nc,$:" \
+ "ld sp,#1234:ld (#1234),a:inc sp:inc (hl):dec (hl):ld (hl),#12:scf:jr c,$:add hl,sp:ld a,(#1234):" \
+ "dec sp:inc a:dec a:ld a,#12:ccf::ld b,b:ld b,c:ld b,d:ld b,e:ld b,h:ld b,l:ld b,(hl):ld b,a:ld c,b:" \
+ "ld c,c:ld c,d:ld c,e:ld c,h:ld c,l:ld c,(hl):ld c,a::ld d,b:ld d,c:ld d,d:ld d,e:ld d,h:ld d,l:" \
+ "ld d,(hl):ld d,a:ld e,b:ld e,c:ld e,d:ld e,e:ld e,h:ld e,l:ld e,(hl):ld e,a::ld h,b:ld h,c:ld h,d:" \
+ "ld h,e:ld h,h:ld h,l:ld h,(hl):ld h,a:ld l,b:ld l,c:ld l,d:ld l,e:ld l,h:ld l,l:ld l,(hl):ld l,a::" \
+ "ld (hl),b:ld (hl),c:ld (hl),d:ld (hl),e:ld (hl),h:ld (hl),l:halt:ld (hl),a:ld a,b:ld a,c:ld a,d:" \
+ "ld a,e:ld a,h:ld a,l:ld a,(hl):ld a,a::add b:add c:add d:add e:add h:add l:add (hl):add a:adc b:" \
+ "adc c:adc d:adc e:adc h:adc l:adc (hl):adc a::sub b:sub c:sub d:sub e:sub h:sub l:sub (hl):sub a:" \
+ "sbc b:sbc c:sbc d:sbc e:sbc h:sbc l:sbc (hl):sbc a::and b:and c:and d:and e:and h:and l:and (hl):" \
+ "and a:xor b:xor c:xor d:xor e:xor h:xor l:xor (hl):xor a::or b:or c:or d:or e:or h:or l:or (hl):" \
+ "or a:cp b:cp c:cp d:cp e:cp h:cp l:cp (hl):cp a::ret nz:pop bc:jp nz,#1234:jp #1234:call nz,#1234:" \
+ "push bc:add #12:rst 0:ret z:ret:jp z,#1234:nop:call z,#1234:call #1234:adc #12:rst 8::ret nc:pop de:" \
+ "jp nc,#1234:out (#12),a:call nc,#1234:push de:sub #12:rst #10:ret c:exx:jp c,#1234:in a,(#12):" \
+ "call c,#1234:nop:sbc #12:rst #18::ret po:pop hl:jp po,#1234:ex (sp),hl:call po,#1234:push hl:" \
+ "and #12:rst #20:ret pe:jp (hl):jp pe,#1234:ex de,hl:call pe,#1234:nop:xor #12:rst #28::ret p:pop af:" \
+ "jp p,#1234:di:call p,#1234:push af:or #12:rst #30:ret m:ld sp,hl:jp m,#1234:ei:call m,#1234:nop:" \
+ "cp #12:rst #38:in b,(c):out (c),b:sbc hl,bc:ld (#1234),bc:neg:retn:im 0:ld i,a:in c,(c):out (c),c:" \
+ "adc hl,bc:ld bc,(#1234):reti:ld r,a::in d,(c):out (c),d:sbc hl,de:ld (#1234),de:retn:im 1:ld a,i:" \
+ "in e,(c):out (c),e:adc hl,de:ld de,(#1234):im 2:ld a,r::in h,(c):out (c),h:sbc hl,hl:rrd:in l,(c):" \
+ "out (c),l:adc hl,hl:rld::in 0,(c):out (c),0:sbc hl,sp:ld (#1234),sp:in a,(c):out (c),a:adc hl,sp:" \
+ "ld sp,(#1234)::ldi:cpi:ini:outi:ldd:cpd:ind:outd::ldir:cpir:inir:otir:lddr:cpdr:indr:otdr::rlc b:" \
+ "rlc c:rlc d:rlc e:rlc h:rlc l:rlc (hl):rlc a:rrc b:rrc c:rrc d:rrc e:rrc h:rrc l:rrc (hl):rrc a::" \
+ "rl b:rl c:rl d:rl e:rl h:rl l:rl (hl):rl a:rr b:rr c:rr d:rr e:rr h:rr l:rr (hl):rr a:sla b:sla c:" \
+ "sla d:sla e:sla h:sla l:sla (hl):sla a:sra b:sra c:sra d:sra e:sra h:sra l:sra (hl):sra a::sll b:" \
+ "sll c:sll d:sll e:sll h:sll l:sll (hl):sll a:srl b:srl c:srl d:srl e:srl h:srl l:srl (hl):srl a::" \
+ "bit 0,b:bit 0,c:bit 0,d:bit 0,e:bit 0,h:bit 0,l:bit 0,(hl):bit 0,a::bit 1,b:bit 1,c:bit 1,d:bit 1,e:" \
+ "bit 1,h:bit 1,l:bit 1,(hl):bit 1,a::bit 2,b:bit 2,c:bit 2,d:bit 2,e:bit 2,h:bit 2,l:bit 2,(hl):" \
+ "bit 2,a::bit 3,b:bit 3,c:bit 3,d:bit 3,e:bit 3,h:bit 3,l:bit 3,(hl):bit 3,a::bit 4,b:bit 4,c:" \
+ "bit 4,d:bit 4,e:bit 4,h:bit 4,l:bit 4,(hl):bit 4,a::bit 5,b:bit 5,c:bit 5,d:bit 5,e:bit 5,h:bit 5,l:" \
+ "bit 5,(hl):bit 5,a::bit 6,b:bit 6,c:bit 6,d:bit 6,e:bit 6,h:bit 6,l:bit 6,(hl):bit 6,a::bit 7,b:" \
+ "bit 7,c:bit 7,d:bit 7,e:bit 7,h:bit 7,l:bit 7,(hl):bit 7,a::res 0,b:res 0,c:res 0,d:res 0,e:res 0,h:" \
+ "res 0,l:res 0,(hl):res 0,a::res 1,b:res 1,c:res 1,d:res 1,e:res 1,h:res 1,l:res 1,(hl):res 1,a::" \
+ "res 2,b:res 2,c:res 2,d:res 2,e:res 2,h:res 2,l:res 2,(hl):res 2,a::res 3,b:res 3,c:res 3,d:res 3,e:" \
+ "res 3,h:res 3,l:res 3,(hl):res 3,a::res 4,b:res 4,c:res 4,d:res 4,e:res 4,h:res 4,l:res 4,(hl):" \
+ "res 4,a::res 5,b:res 5,c:res 5,d:res 5,e:res 5,h:res 5,l:res 5,(hl):res 5,a::res 6,b:res 6,c:" \
+ "res 6,d:res 6,e:res 6,h:res 6,l:res 6,(hl):res 6,a::res 7,b:res 7,c:res 7,d:res 7,e:res 7,h:res 7,l:" \
+ "res 7,(hl):res 7,a::set 0,b:set 0,c:set 0,d:set 0,e:set 0,h:set 0,l:set 0,(hl):set 0,a::set 1,b:" \
+ "set 1,c:set 1,d:set 1,e:set 1,h:set 1,l:set 1,(hl):set 1,a::set 2,b:set 2,c:set 2,d:set 2,e:set 2,h:" \
+ "set 2,l:set 2,(hl):set 2,a::set 3,b:set 3,c:set 3,d:set 3,e:set 3,h:set 3,l:set 3,(hl):set 3,a::" \
+ "set 4,b:set 4,c:set 4,d:set 4,e:set 4,h:set 4,l:set 4,(hl):set 4,a::set 5,b:set 5,c:set 5,d:set 5,e:" \
+ "set 5,h:set 5,l:set 5,(hl):set 5,a::set 6,b:set 6,c:set 6,d:set 6,e:set 6,h:set 6,l:set 6,(hl):" \
+ "set 6,a::set 7,b:set 7,c:set 7,d:set 7,e:set 7,h:set 7,l:set 7,(hl):set 7,a::add ix,bc::add ix,de::" \
+ "ld ix,#1234:ld (#1234),ix:inc ix:inc xh:dec xh:ld xh,#12:add ix,ix:ld ix,(#1234):dec ix:inc xl:" \
+ "dec xl:ld xl,#12::inc (ix+#12):dec (ix+#12):ld (ix+#12),#34:add ix,sp::ld b,xh:ld b,xl:" \
+ "ld b,(ix+#12):ld c,xh:ld c,xl:ld c,(ix+#12):::ld d,xh:ld d,xl:ld d,(ix+#12):ld e,xh:ld e,xl:" \
+ "ld e,(ix+#12)::ld xh,b:ld xh,c:ld xh,d:ld xh,e:ld xh,xh:ld xh,xl:ld h,(ix+#12):ld xh,a:ld xl,b:" \
+ "ld xl,c:ld xl,d:ld xl,e:ld xl,xh:ld xl,xl:ld l,(ix+#12):ld xl,a::ld (ix+#12),b:ld (ix+#12),c:" \
+ "ld (ix+#12),d:ld (ix+#12),e:ld (ix+#12),h:ld (ix+#12),l:ld (ix+#12),a:ld a,xh:ld a,xl:" \
+ "ld a,(ix+#12)::add xh:add xl:add (ix+#12):adc xh:adc xl:adc (ix+#12)::sub xh:sub xl:sub (ix+#12):" \
+ "sbc xh:sbc xl:sbc (ix+#12)::and xh:and xl:and (ix+#12):xor xh:xor xl:xor (ix+#12)::or xh:or xl:" \
+ "or (ix+#12):cp xh:cp xl:cp (ix+#12)::pop ix:ex (sp),ix:push ix:jp (ix)::ld sp,ix:::rlc (ix+#12),b:" \
+ "rlc (ix+#12),c:rlc (ix+#12),d:rlc (ix+#12),e:rlc (ix+#12),h:rlc (ix+#12),l:rlc (ix+#12):" \
+ "rlc (ix+#12),a:rrc (ix+#12),b:rrc (ix+#12),c:rrc (ix+#12),d:rrc (ix+#12),e:rrc (ix+#12),h:" \
+ "rrc (ix+#12),l:rrc (ix+#12):rrc (ix+#12),a::rl (ix+#12),b:rl (ix+#12),c:rl (ix+#12),d:rl (ix+#12),e:" \
+ "rl (ix+#12),h:rl (ix+#12),l:rl (ix+#12):rl (ix+#12),a:rr (ix+#12),b:rr (ix+#12),c:rr (ix+#12),d:" \
+ "rr (ix+#12),e:rr (ix+#12),h:rr (ix+#12),l:rr (ix+#12):rr (ix+#12),a::sla (ix+#12),b:sla (ix+#12),c:" \
+ "sla (ix+#12),d:sla (ix+#12),e:sla (ix+#12),h:sla (ix+#12),l:sla (ix+#12):sla (ix+#12),a:" \
+ "sra (ix+#12),b:sra (ix+#12),c:sra (ix+#12),d:sra (ix+#12),e:sra (ix+#12),h:sra (ix+#12),l:" \
+ "sra (ix+#12):sra (ix+#12),a::sll (ix+#12),b:sll (ix+#12),c:sll (ix+#12),d:sll (ix+#12),e:" \
+ "sll (ix+#12),h:sll (ix+#12),l:sll (ix+#12):sll (ix+#12),a:srl (ix+#12),b:srl (ix+#12),c:" \
+ "srl (ix+#12),d:srl (ix+#12),e:srl (ix+#12),h:srl (ix+#12),l:srl (ix+#12):srl (ix+#12),a::" \
+ "bit 0,(ix+#12):bit 1,(ix+#12):bit 2,(ix+#12):bit 3,(ix+#12):bit 4,(ix+#12):bit 5,(ix+#12):" \
+ "bit 6,(ix+#12):bit 7,(ix+#12):bit 0,(ix+#12),d:bit 1,(ix+#12),b:bit 2,(ix+#12),c:bit 3,(ix+#12),d:" \
+ "bit 4,(ix+#12),e:bit 5,(ix+#12),h:bit 6,(ix+#12),l:bit 7,(ix+#12),a:::res 0,(ix+#12),b:" \
+ "res 0,(ix+#12),c:res 0,(ix+#12),d:res 0,(ix+#12),e:res 0,(ix+#12),h:res 0,(ix+#12),l:res 0,(ix+#12):" \
+ "res 0,(ix+#12),a::res 1,(ix+#12),b:res 1,(ix+#12),c:res 1,(ix+#12),d:res 1,(ix+#12),e:" \
+ "res 1,(ix+#12),h:res 1,(ix+#12),l:res 1,(ix+#12):res 1,(ix+#12),a::res 2,(ix+#12),b:" \
+ "res 2,(ix+#12),c:res 2,(ix+#12),d:res 2,(ix+#12),e:res 2,(ix+#12),h:res 2,(ix+#12),l:res 2,(ix+#12):" \
+ "res 2,(ix+#12),a::res 3,(ix+#12),b:res 3,(ix+#12),c:res 3,(ix+#12),d:res 3,(ix+#12),e:" \
+ "res 3,(ix+#12),h:res 3,(ix+#12),l:res 3,(ix+#12):res 3,(ix+#12),a::res 4,(ix+#12),b:" \
+ "res 4,(ix+#12),c:res 4,(ix+#12),d:res 4,(ix+#12),e:res 4,(ix+#12),h:res 4,(ix+#12),l:" \
+ "res 4,(ix+#12):res 4,(ix+#12),a::res 5,(ix+#12),b:res 5,(ix+#12),c:res 5,(ix+#12),d:" \
+ "res 5,(ix+#12),e:res 5,(ix+#12),h:res 5,(ix+#12),l:res 5,(ix+#12):res 5,(ix+#12),a::" \
+ "res 6,(ix+#12),b:res 6,(ix+#12),c:res 6,(ix+#12),d:res 6,(ix+#12),e:res 6,(ix+#12),h:" \
+ "res 6,(ix+#12),l:res 6,(ix+#12):res 6,(ix+#12),a::res 7,(ix+#12),b:res 7,(ix+#12),c:" \
+ "res 7,(ix+#12),d:res 7,(ix+#12),e:res 7,(ix+#12),h:res 7,(ix+#12),l:res 7,(ix+#12):" \
+ "res 7,(ix+#12),a::set 0,(ix+#12),b:set 0,(ix+#12),c:set 0,(ix+#12),d:set 0,(ix+#12),e:" \
+ "set 0,(ix+#12),h:set 0,(ix+#12),l:set 0,(ix+#12):set 0,(ix+#12),a::set 1,(ix+#12),b:" \
+ "set 1,(ix+#12),c:set 1,(ix+#12),d:set 1,(ix+#12),e:set 1,(ix+#12),h:set 1,(ix+#12),l:" \
+ "set 1,(ix+#12):set 1,(ix+#12),a::set 2,(ix+#12),b:set 2,(ix+#12),c:set 2,(ix+#12),d:" \
+ "set 2,(ix+#12),e:set 2,(ix+#12),h:set 2,(ix+#12),l:set 2,(ix+#12):set 2,(ix+#12),a::" \
+ "set 3,(ix+#12),b:set 3,(ix+#12),c:set 3,(ix+#12),d:set 3,(ix+#12),e:set 3,(ix+#12),h:" \
+ "set 3,(ix+#12),l:set 3,(ix+#12):set 3,(ix+#12),a::set 4,(ix+#12),b:set 4,(ix+#12),c:" \
+ "set 4,(ix+#12),d:set 4,(ix+#12),e:set 4,(ix+#12),h:set 4,(ix+#12),l:set 4,(ix+#12):" \
+ "set 4,(ix+#12),a::set 5,(ix+#12),b:set 5,(ix+#12),c:set 5,(ix+#12),d:set 5,(ix+#12),e:" \
+ "set 5,(ix+#12),h:set 5,(ix+#12),l:set 5,(ix+#12):set 5,(ix+#12),a::set 6,(ix+#12),b:" \
+ "set 6,(ix+#12),c:set 6,(ix+#12),d:set 6,(ix+#12),e:set 6,(ix+#12),h:set 6,(ix+#12),l:" \
+ "set 6,(ix+#12):set 6,(ix+#12),a::set 7,(ix+#12),b:set 7,(ix+#12),c:set 7,(ix+#12),d:" \
+ "set 7,(ix+#12),e:set 7,(ix+#12),h:set 7,(ix+#12),l:set 7,(ix+#12):set 7,(ix+#12),a::add iy,bc::" \
+ "add iy,de::ld iy,#1234:ld (#1234),iy:inc iy:inc yh:dec yh:ld yh,#12:add iy,iy:ld iy,(#1234):dec iy:" \
+ "inc yl:dec yl:ld yl,#12::inc (iy+#12):dec (iy+#12):ld (iy+#12),#34:add iy,sp::ld b,yh:ld b,yl:" \
+ "ld b,(iy+#12):ld c,yh:ld c,yl:ld c,(iy+#12):::ld d,yh:ld d,yl:ld d,(iy+#12):ld e,yh:ld e,yl:" \
+ "ld e,(iy+#12)::ld yh,b:ld yh,c:ld yh,d:ld yh,e:ld yh,yh:ld yh,yl:ld h,(iy+#12):ld yh,a:ld yl,b:" \
+ "ld yl,c:ld yl,d:ld yl,e:ld yl,yh:ld yl,yl:ld l,(iy+#12):ld yl,a::ld (iy+#12),b:ld (iy+#12),c:" \
+ "ld (iy+#12),d:ld (iy+#12),e:ld (iy+#12),h:ld (iy+#12),l:ld (iy+#12),a:ld a,yh:ld a,yl:" \
+ "ld a,(iy+#12)::add yh:add yl:add (iy+#12):adc yh:adc yl:adc (iy+#12)::sub yh:sub yl:" \
+ "sub (iy+#12):sbc yh:sbc yl:sbc (iy+#12)::and yh:and yl:and (iy+#12):xor yh:xor yl:xor (iy+#12)::" \
+ "or yh:or yl:or (iy+#12):cp yh:cp yl:cp (iy+#12)::pop iy:ex (sp),iy:push iy:jp (iy)::ld sp,iy::" \
+ "rlc (iy+#12),b:rlc (iy+#12),c:rlc (iy+#12),d:rlc (iy+#12),e:rlc (iy+#12),h:rlc (iy+#12),l:" \
+ "rlc (iy+#12):rlc (iy+#12),a:rrc (iy+#12),b:rrc (iy+#12),c:rrc (iy+#12),d:rrc (iy+#12),e:" \
+ "rrc (iy+#12),h:rrc (iy+#12),l:rrc (iy+#12):rrc (iy+#12),a::rl (iy+#12),b:rl (iy+#12),c:" \
+ "rl (iy+#12),d:rl (iy+#12),e:rl (iy+#12),h:rl (iy+#12),l:rl (iy+#12):rl (iy+#12),a:rr (iy+#12),b:" \
+ "rr (iy+#12),c:rr (iy+#12),d:rr (iy+#12),e:rr (iy+#12),h:rr (iy+#12),l:rr (iy+#12):rr (iy+#12),a::" \
+ "sla (iy+#12),b:sla (iy+#12),c:sla (iy+#12),d:sla (iy+#12),e:sla (iy+#12),h:sla (iy+#12),l:" \
+ "sla (iy+#12):sla (iy+#12),a:sra (iy+#12),b:sra (iy+#12),c:sra (iy+#12),d:sra (iy+#12),e:" \
+ "sra (iy+#12),h:sra (iy+#12),l:sra (iy+#12):sra (iy+#12),a::sll (iy+#12),b:sll (iy+#12),c:" \
+ "sll (iy+#12),d:sll (iy+#12),e:sll (iy+#12),h:sll (iy+#12),l:sll (iy+#12):sll (iy+#12),a:" \
+ "srl (iy+#12),b:srl (iy+#12),c:srl (iy+#12),d:srl (iy+#12),e:srl (iy+#12),h:srl (iy+#12),l:" \
+ "srl (iy+#12):srl (iy+#12),a::bit 0,(iy+#12):bit 1,(iy+#12):bit 2,(iy+#12):bit 3,(iy+#12):" \
+ "bit 4,(iy+#12):bit 5,(iy+#12):bit 6,(iy+#12):bit 7,(iy+#12)::res 0,(iy+#12),b:res 0,(iy+#12),c:" \
+ "res 0,(iy+#12),d:res 0,(iy+#12),e:res 0,(iy+#12),h:res 0,(iy+#12),l:res 0,(iy+#12):" \
+ "res 0,(iy+#12),a::res 1,(iy+#12),b:res 1,(iy+#12),c:res 1,(iy+#12),d:res 1,(iy+#12),e:" \
+ "res 1,(iy+#12),h:res 1,(iy+#12),l:res 1,(iy+#12):res 1,(iy+#12),a::res 2,(iy+#12),b:" \
+ "res 2,(iy+#12),c:res 2,(iy+#12),d:res 2,(iy+#12),e:res 2,(iy+#12),h:res 2,(iy+#12),l:" \
+ "res 2,(iy+#12):res 2,(iy+#12),a::res 3,(iy+#12),b:res 3,(iy+#12),c:res 3,(iy+#12),d:" \
+ "res 3,(iy+#12),e:res 3,(iy+#12),h:res 3,(iy+#12),l:res 3,(iy+#12):res 3,(iy+#12),a::" \
+ "res 4,(iy+#12),b:res 4,(iy+#12),c:res 4,(iy+#12),d:res 4,(iy+#12),e:res 4,(iy+#12),h:" \
+ "res 4,(iy+#12),l:res 4,(iy+#12):res 4,(iy+#12),a::res 5,(iy+#12),b:res 5,(iy+#12),c:" \
+ "res 5,(iy+#12),d:res 5,(iy+#12),e:res 5,(iy+#12),h:res 5,(iy+#12),l:res 5,(iy+#12):" \
+ "res 5,(iy+#12),a::res 6,(iy+#12),b:res 6,(iy+#12),c:res 6,(iy+#12),d:res 6,(iy+#12),e:" \
+ "res 6,(iy+#12),h:res 6,(iy+#12),l:res 6,(iy+#12):res 6,(iy+#12),a::res 7,(iy+#12),b:" \
+ "res 7,(iy+#12),c:res 7,(iy+#12),d:res 7,(iy+#12),e:res 7,(iy+#12),h:res 7,(iy+#12),l:" \
+ "res 7,(iy+#12):res 7,(iy+#12),a::set 0,(iy+#12),b:set 0,(iy+#12),c:set 0,(iy+#12),d:" \
+ "set 0,(iy+#12),e:set 0,(iy+#12),h:set 0,(iy+#12),l:set 0,(iy+#12):set 0,(iy+#12),a::" \
+ "set 1,(iy+#12),b:set 1,(iy+#12),c:set 1,(iy+#12),d:set 1,(iy+#12),e:set 1,(iy+#12),h:" \
+ "set 1,(iy+#12),l:set 1,(iy+#12):set 1,(iy+#12),a::set 2,(iy+#12),b:set 2,(iy+#12),c:" \
+ "set 2,(iy+#12),d:set 2,(iy+#12),e:set 2,(iy+#12),h:set 2,(iy+#12),l:set 2,(iy+#12):" \
+ "set 2,(iy+#12),a::set 3,(iy+#12),b:set 3,(iy+#12),c:set 3,(iy+#12),d:set 3,(iy+#12),e:" \
+ "set 3,(iy+#12),h:set 3,(iy+#12),l:set 3,(iy+#12):set 3,(iy+#12),a::set 4,(iy+#12),b:" \
+ "set 4,(iy+#12),c:set 4,(iy+#12),d:set 4,(iy+#12),e:set 4,(iy+#12),h:set 4,(iy+#12),l:" \
+ "set 4,(iy+#12):set 4,(iy+#12),a::set 5,(iy+#12),b:set 5,(iy+#12),c:set 5,(iy+#12),d:" \
+ "set 5,(iy+#12),e:set 5,(iy+#12),h:set 5,(iy+#12),l:set 5,(iy+#12):set 5,(iy+#12),a::" \
+ "set 6,(iy+#12),b:set 6,(iy+#12),c:set 6,(iy+#12),d:set 6,(iy+#12),e:set 6,(iy+#12),h:" \
+ "set 6,(iy+#12),l:set 6,(iy+#12):set 6,(iy+#12),a::set 7,(iy+#12),b:set 7,(iy+#12),c:" \
+ "set 7,(iy+#12),d:set 7,(iy+#12),e:set 7,(iy+#12),h:set 7,(iy+#12),l:set 7,(iy+#12):" \
+ "set 7,(iy+#12),a:"
+
+#define AUTOTEST_LABNUM "mavar=67:label{mavar}truc:ld hl,7+2*label{mavar}truc:mnt=1234567:lab2{mavar}{mnt}:" \
+ "ld de,lab2{mavar}{mnt}:lab3{mavar}{mnt}h:ld de,lab3{mavar}{mnt}h"
+
+#define AUTOTEST_EQUNUM "mavar = 9:monlabel{mavar+5}truc:unalias{mavar+5}heu equ 50:autrelabel{unalias14heu}:ld hl,autrelabel50"
+
+#define AUTOTEST_DELAYNUM "macro test label: dw {label}: endm: repeat 3, idx:idx2 = idx-1:" \
+ " test label_{idx2}: rend:repeat 3, idx:label_{idx-1}:nop:rend"
+
+#define AUTOTEST_STRUCT "org #1000:label1 :struct male:age defb 0:height defb 0:endstruct:struct female:" \
+ "age defb 0:height defb 0:endstruct:struct couple:struct male husband:" \
+ "struct female wife:endstruct:if $-label1!=0:stop:endif:ld a,(ix+couple.wife.age):" \
+ "ld bc,couple:ld bc,{sizeof}couple:struct couple mycouple:" \
+ "if mycouple.husband != mycouple.husband.age:stop:endif:ld hl,mycouple:" \
+ "ld hl,mycouple.wife.age:ld bc,{sizeof}mycouple:macro cmplastheight p1:" \
+ "ld hl,@mymale.height:ld a,{p1}:cp (hl):ld bc,{sizeof}@mymale:ld hl,@mymale:ret:" \
+ "struct male @mymale:mend:cmplastheight 5:cmplastheight 3:nop"
+
+#define AUTOTEST_STRUCT2 "struct bite: preums defb 0: deuze defw 1: troize defs 10: endstruct:" \
+ " if {sizeof}bite.preums!=1 || {sizeof}bite.deuze!=2 || {sizeof}bite.troize!=10: stop: endif: nop "
+
+#define AUTOTEST_REPEAT "ce=100:repeat 2,ce:repeat 5,cx:repeat 5,cy:defb cx*cy:rend:rend:rend:assert cx==6 && cy==6 && ce==3:" \
+ "cpt=0:repeat:cpt=cpt+1:until cpt>4:assert cpt==5"
+
+#define AUTOTEST_REPEATKO "repeat 5:nop"
+
+#define AUTOTEST_WHILEKO "while 5:nop"
+
+#define AUTOTEST_TICKER "repeat 2: ticker start, mc:out (0),a:out (c),a:out (c),h:out (c),0:ticker stop, mc:if mc!=15:ld hl,bite:else:nop:endif:rend"
+
+#define AUTOTEST_ORG "ORG #8000,#1000:defw $:ORG $:defw $"
+
+#define AUTOTEST_BANKORG "bank 0:nop:org #5:nop:bank 1:unevar=10:bank 0:assert $==6:ret:bank 1:assert $==0:bank 0:assert $==7"
+
+#define AUTOTEST_VAREQU "label1 equ #C000:label2 equ (label1*2)/16:label3 equ label1-label2:label4 equ 15:var1=50*3+2:var2=12*label1:var3=label4-8:var4=label2:nop"
+
+#define AUTOTEST_FORMAT "hexa=#12A+$23B+45Ch+0x56D:deci=123.45+-78.54*2-(7-7)*2:bina=0b101010+1010b-%1111:assert hexa==3374 && deci==-33.63 && bina==37:nop"
+
+#define AUTOTEST_CHARSET "charset 'abcde',0:defb 'abcde':defb 'a','b','c','d','e':defb 'a',1*'b','c'*1,1*'d','e'*1:charset:" \
+ "defb 'abcde':defb 'a','b','c','d','e':defb 'a',1*'b','c'*1,1*'d','e'*1"
+
+#define AUTOTEST_CHARSET2 "charset 97,97+26,0:defb 'roua':charset:charset 97,10:defb 'roua':charset 'o',5:defb 'roua':charset 'ou',6:defb 'roua'"
+
+#define AUTOTEST_NOCODE "let monorg=$:NoCode:Org 0:Element1 db 0:Element2 dw 3:Element3 ds 50:Element4 defb 'rdd':Org 0:pouet defb 'nop':" \
+ "Code:Org monorg:cpt=$+element2+element3+element4:defs cpt,0"
+
+#define AUTOTEST_LZSEGMENT "org #100:debut:jr nz,zend:lz48:repeat 128:nop:rend:lzclose:jp zend:lz48:repeat 2:dec a:jr nz,@next:ld a,5:@next:jp debut:rend:" \
+ "lzclose:zend"
+
+#define AUTOTEST_PAGETAG "bankset 0:org #5000:label1:bankset 1:org #9000:label2:bankset 2:" \
+ "assert {page}label1==0x7FC0:assert {page}label2==0x7FC6:assert {pageset}label1==#7FC0:assert {pageset}label2==#7FC2:nop"
+
+#define AUTOTEST_PAGETAG2 "bankset 0:call maroutine:bank 4:org #C000:autreroutine:nop:" \
+ "ret:bank 5:org #8000:maroutine:ldir:ret:bankset 2:org #9000:troize:nop:" \
+ "assert {page}maroutine==#7FC5:assert {pageset}maroutine==#7FC2:assert {page}autreroutine==#7FC4:" \
+ "assert {pageset}autreroutine==#7FC2:assert {page}troize==#7FCE:assert {pageset}troize==#7FCA"
+
+#define AUTOTEST_PAGETAG3 "buildsna:bank 2:assert {bank}$==2:assert {page}$==0x7FC0:assert {pageset}$==#7FC0:" \
+ "bankset 1:org #4000:assert {bank}$==5:assert {page}$==0x7FC5:assert {pageset}$==#7FC2"
+
+#define AUTOTEST_SWITCH "mavar=4:switch mavar:case 1:nop:case 4:defb 4:case 3:defb 3:break:case 2:nop:case 4:defb 4:endswitch"
+
+#define AUTOTEST_PREPRO0 "\n\n\n\n;bitch\n\nnop\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nxor a\n\n\n\n\n\n\n\n\n\n\n\n"
+
+#define AUTOTEST_PREPRO1 " macro DEBUG_INK0, coul: out (c), a: endm: ifndef NDEBUG:DEBUG_BORDER_NOPS = 0: endif"
+
+#define AUTOTEST_PREPRO2 " nop : mycode other tartine ldir : defw tartine,other, mycode : assert tartine==other && other==mycode && mycode==1 && $==9"
+
+#define AUTOTEST_PREPRO3 "nop\n \n /* test ' ici */\n nop /* retest */ 5\n /* bonjour\n prout\n caca\n pipi */" \
+ " nop\n nop /* nop */ : nop\n ; grouik /*\n \n /* ; pouet */ ld hl,#2121\n "
+
+#define AUTOTEST_PREPRO4 "glop=0\n nop ; glop=1\n assert glop==0\n nop\n glop=0\n nop // glop=1\n assert glop==0\n nop\n glop=0 : /* glop=1 */ nop\n" \
+ "assert glop==0\n nop\n \n glop=0 : /* glop=1 // */ nop\n assert glop==0\n nop\n glop=0 : /* glop=1 ; */ nop\n" \
+ "assert glop==0\n nop\n glop=0 ; /* glop=1\n nop // glop=2 /*\n assert glop==0\n nop\n"
+
+#define AUTOTEST_PROXIM "routine:.step1:jp .step2:.step2:jp .step1:deuze:nop:.step1:djnzn .step1:djnz routine.step2"
+
+#define AUTOTEST_TAGPRINT "unevar=12:print 'trucmuche{unevar}':print '{unevar}':print '{unevar}encore','pouet{unevar}{unevar}':ret"
+
+#define AUTOTEST_TAGFOLLOW "ret:uv=1234567890:unlabel_commeca_{uv} equ pouetpouetpouettroulala:pouetpouetpouettroulala:assert unlabel_commeca_{uv}>0"
+
+#define AUTOTEST_TAGREALLOC "zoomscroller_scroller_height equ 10: another_super_long_equ equ 256: pinouille_super_long_useless_equ equ 0: " \
+ "zz equ 1111111111: org #100: repeat zoomscroller_scroller_height,idx: " \
+ "zoomscroller_buffer_line_{idx-1}_{pinouille_super_long_useless_equ} nop: zoomscroller_buffer_line_{idx-1}_{zz} nop: " \
+ "rend: align 256: repeat zoomscroller_scroller_height,idx: zoomscroller_buffer_line_{idx-1}_{pinouille_super_long_useless_equ}_duplicate nop: " \
+ "zoomscroller_buffer_line_{idx-1}_{zz}_duplicate nop: rend: repeat zoomscroller_scroller_height, line: idx = line - 1: " \
+ "assert zoomscroller_buffer_line_{idx}_{pinouille_super_long_useless_equ} + another_super_long_equ == "\
+ "zoomscroller_buffer_line_{idx}_{pinouille_super_long_useless_equ}_duplicate: " \
+ "assert zoomscroller_buffer_line_{idx}_{zz} + another_super_long_equ == zoomscroller_buffer_line_{idx}_{zz}_duplicate: rend"
+
+#define AUTOTEST_DEFUSED "ld hl,labelused :ifdef labelused:fail 'labelexiste':endif:ifndef labelused:else:fail 'labelexiste':endif:" \
+ "ifnused labelused:fail 'labelused':endif:ifused labelused:else:fail 'labelused':endif:labelused"
+
+#define AUTOTEST_SAVEINVALID1 "nop : save'gruik',20,-100"
+
+#define AUTOTEST_SAVEINVALID2 "nop : save'gruik',-20,100"
+
+#define AUTOTEST_SAVEINVALID3 "nop : save'gruik',40000,30000"
+
+#define AUTOTEST_MACROPROX " macro unemacro: nop: endm: global_label: ld hl, .table: .table"
+
+#define AUTOTEST_PROXBACK " macro grouik: @truc djnz @truc: .unprox djnz .unprox: mend:" \
+ "ld b,2: unglobal nop: djnz unglobal: ld b,2: .unprox nop: djnz .unprox: beforelocal=$ :" \
+ "repeat 2: @unlocal: ld b,2: .unprox nop: djnz .unprox: grouik : djnz .unprox : rend: assert .unprox < beforelocal : nop"
+#define AUTOTEST_LOCAPROX "repeat 1: @label nop: .prox nop: @label2 nop: djnz @label.prox: rend"
+
+#define AUTOTEST_QUOTES "defb 'rdd':str 'rdd':charset 'rd',0:defb '\\r\\d':str '\\r\\d'"
+
+#define AUTOTEST_NEGATIVE "ld a,-5: ld bc,-0x3918:ld de,0+-#3918:ld de,-#3918:var1=-5+6:var2=-#3918+#3919:assert var1+var2==2"
+
+#define AUTOTEST_FORMULA1 "a=5:b=2:assert int(a/b)==3:assert !a+!b==0:a=a*100:b=b*100:assert a*b==100000:ld hl,a*b-65536:a=123+-5*(-6/2)-50*2<<1"
+
+#define AUTOTEST_FORMULA2 "vala= (0.5+(4*0.5))*6:valb= int((0.5+(4*0.5))*6):nop:if vala!=valb:push erreur:endif"
+
+#define AUTOTEST_SHIFTMAX "a=45: a=a>>256: assert a==0:nop"
+
+#define AUTOTEST_FRAC "mavar=frac(5.5):assert mavar==0.5:assert frac(6.6)==0.6:assert frac(1.1)==0.1:assert frac(1)==0:assert frac(100000)==0:nop"
+
+/* test override control between bank and bankset in snapshot mode + temp workspace */
+#define AUTOTEST_BANKSET "buildsna:bank 0:nop:bank 1:nop:bank:nop:bank 2:nop:bank 3:nop:bankset 1:nop:bank 8:nop:bank 9:nop:bank 10:nop:bank 11:nop"
+
+#define AUTOTEST_LIMITOK "org #100:limit #102:nop:limit #103:ld a,0:protect #105,#107:limit #108:xor a:org $+3:inc a"
+
+#define AUTOTEST_LIMITKO "limit #100:org #100:add ix,ix"
+
+#define AUTOTEST_DEFS "defs 256,0"
+
+#define AUTOTEST_LIMIT03 "limit -1 : nop"
+#define AUTOTEST_LIMIT04 "limit #10000 : nop"
+#define AUTOTEST_LIMIT05 "org #FFFF : ldir"
+#define AUTOTEST_LIMIT06 "org #FFFF : nop"
+
+#define AUTOTEST_LIMIT07 "org #ffff : Start: equ $ : di : ld hl,#c9fb : ld (#38),hl"
+
+#define AUTOTEST_DELAYED_RUN "run _start:nop:_start nop"
+
+#define AUTOTEST_INHIBITION "if 0:ifused truc:ifnused glop:ifdef bidule:ifndef machin:ifnot 1:nop:endif:nop:else:nop:endif:endif:endif:endif:endif"
+
+#define AUTOTEST_LZ4 "lz4:repeat 10:nop:rend:defb 'roudoudoudouoneatxkjhgfdskljhsdfglkhnopnopnopnop':lzclose"
+
+#define AUTOTEST_MAXERROR "repeat 20:aglapi:rend:nop"
+
+#define AUTOTEST_ENHANCED_LD "ld h,(ix+11): ld l,(ix+10): ld h,(iy+21): ld l,(iy+20): ld b,(ix+11): ld c,(ix+10):" \
+ "ld b,(iy+21): ld c,(iy+20): ld d,(ix+11): ld e,(ix+10): ld d,(iy+21): ld e,(iy+20): ld hl,(ix+10): " \
+ "ld hl,(iy+20):ld bc,(ix+10):ld bc,(iy+20): ld de,(ix+10):ld de,(iy+20)"
+
+#define AUTOTEST_ENHANCED_PUSHPOP "push bc,de,hl,ix,iy,af:pop hl,bc,de,iy,ix,af:nop 2:" \
+ "push bc:push de:push hl:push ix:push iy:push af:"\
+ "pop hl:pop bc:pop de:pop iy:pop ix:pop af:nop:nop"
+#define AUTOTEST_ENHANCED_LD2 "ld (ix+0),hl: ld (ix+0),de: ld (ix+0),bc: ld (iy+0),hl: ld (iy+0),de: ld (iy+0),bc:"\
+"ld (ix+1),h: ld (ix+0),l: ld (ix+1),d: ld (ix+0),e: ld (ix+1),b: ld (ix+0),c: ld (iy+1),h: ld (iy+0),l: ld (iy+1),d: ld (iy+0),e: ld (iy+1),b: ld (iy+0),c"
+
+#define AUTOTEST_INHIBITION2 "ifdef roudoudou:macro glop bank,page,param:ld a,{bank}:ld hl,{param}{bank}:if {bank}:nop:else:exx:" \
+ "endif::switch {param}:nop:case 4:nop:case {param}:nop:default:nop:break:endswitch:endif:defb 'coucou'"
+
+#define AUTOTEST_INHIBITIONMAX "roudoudou:ifndef roudoudou:if pouet:macro glop bank,page,param:ifdef nanamouskouri:ld hl,{param}{bank}:"\
+ "elseif aglapi:exx:endif:if {bank}:nop:elseif {grouik}:exx:endif:switch {bite}:nop:case {nichon}:nop:default:nop:break:endswitch:else:"\
+ "ifnot {jojo}:exx:endif:endif:else:defb 'coucou':endif"
+
+#define AUTOTEST_NOEXPORT "unlabel nop:.unlocal nop:unevar=5:unequ equ 10:noexport unlabel, .unlocal, "\
+ "unlabel.unlocal, unevar, unequ:enoexport unlabel, .unlocal, unlabel.unlocal, unevar, unequ"
+
+#define AUTOTEST_UNDERVAR "coucou nop:_coucou nop:_mavar=5:jr _coucou+_mavar:print _mavar"
+
+#define AUTOTEST_CODESKIP "org #100: nop: old_dollar=$: nocode: defs 10: assert $==old_dollar+10: code: "\
+ "assert $==old_dollar+10: org #200: nop: old_dollar=$: nocode: defs 10: assert $==old_dollar+10: code skip: assert $==old_dollar"
+
+#define AUTOTEST_EMBEDDED_ERRORS "nop : rien : rien : rien : glop nop : glapi nop"
+
+#define AUTOTEST_EMBEDDED_LABELS " disarkCounter = 0:MACRO dkps:PLY_AKG_DisarkPointerRegionStart_{disarkCounter}:ENDM" \
+ ":MACRO dkpe\nPLY_AKG_DisarkPointerRegionEnd_{disarkCounter}:\ndisarkCounter = disarkCounter + 1:ENDM:\ndkps\ndkpe\ndkps"
+
+#define AUTOTEST_TAGLOOP "tab1 = #100:tab2 = #200:tab3 = #300:macro genreg channel,psg:label{channel} EQU tab{psg} + channeloffset:"\
+ "endm:channel=1:while channel <= 9:psg=floor(((channel-1)/3)+1):channeloffset=((channel-1) % 3)*2:"\
+ "genreg {channel},{psg}:channel=channel+1:wend:assert LABEL5==#0202:assert LABEL6==#0204:assert LABEL7==#0300:"\
+ "assert LABEL8==#0302:nop"
+
+#define AUTOTEST_PLUSCOLOR " myval=0x123 : assert getr(myval)==2 : assert getb(myval)==3 : assert getg(myval)==1 : assert getv(myval)==1" \
+ " : assert setr(2)+setv(1)+setb(3)==0x123 : assert setv(-2)==setv(0) && setb(220)==setb(15) : nop "
+
+#define AUTOTEST_ASSERT " macro zem,nom,adr: overflow equ $-{adr}: assert $<{adr},{nom}: nop: mend: zem 'bidule',#2FFF :" \
+ " macro zem2,nom,adr: overflow2 equ $-{adr}: assert $<{adr},{nom},{adr},overflow2: nop: mend: zem2 'bidule',#2FFF :" \
+ " macro zem3,nom,adr: overflow3 equ $-{adr}: assert $<{adr},{nom},{hex}{adr},overflow3: nop: mend: zem3 'bidule',#2FFF "
+
+#define AUTOTEST_OPERATORASSIGN "a=5 : a*=3 : assert a==15 : a/=5 : assert a==3 : a&=2 : assert a==2 : a+=10 : assert a==12 : "\
+ "a-=3 : assert a==9 : a%=5 : assert a==4 : a|=1 : assert a==5 : a<<=3 : assert a==40 : "\
+ "a>>=1 : assert a==20 : nop"
+#define AUTOTEST_OPERATORASSIGN2 "a=1 : a+=2 : assert a==3 : repeat 2 : a+=10 : rend : assert a==23: a=1 : a-=2 : assert a==-1 : repeat 2 : a-=10 : rend : assert a==-21: " \
+ "a=3 : a*=2 : assert a==6 : repeat 2 : a*=10 : rend : assert a==600: a=600 : a/=2 : assert a==300 : repeat 2 : a/=10 : rend : assert a==3 : nop"
+
+
+
+struct s_autotest_keyword {
+ char *keywordtest;
+ int result;
+};
+
+struct s_autotest_keyword autotest_keyword[]={
+ {"ld ly,h",1}, {"ld lx,h",1}, {"ld ly,l",1}, {"ld lx,l",1}, {"ld hy,h",1}, {"ld hx,h",1}, {"ld hy,l",1}, {"ld hx,l",1},
+ {"nop",0},{"nop 2",0},{"nop a",1},{"nop (hl)",1},{"nop nop",1},{"nop grouik",1},
+ {"ldir",0},{"ldir 5",1},{"ldir ldir",1},{"ldir (hl)",1},{"ldir a",1},{"ldir grouik",1},
+ {"ldi",0},{"ldi 5",1},{"ldi ldi",1},{"ldi (hl)",1},{"ldi a",1},{"ldi grouik",1},
+ {"lddr",0},{"lddr 5",1},{"lddr lddr",1},{"lddr (hl)",1},{"lddr a",1},{"lddr groudk",1},
+ {"ldd",0},{"ldd 5",1},{"ldd ldd",1},{"ldd (hl)",1},{"ldd a",1},{"ldd groudk",1},
+ {"jr $",0},{"jr 0",0},{"jr jr",1},{"jr (hl)",1},{"jr a",1},
+ {"jr c,$",0},{"jr c,0",0},{"jr c,jr",1},{"jr c,(hl)",1},{"jr c,a",1},
+ {"jr nc,$",0},{"jr nc,0",0},{"jr nc,jr",1},{"jr nc,(hl)",1},{"jr nc,a",1},
+ {"jr z,$",0},{"jr 0",0},{"jr jr",1},{"jr (hl)",1},{"jr a",1},
+ {"jr nz,$",0},{"jr 0",0},{"jr jr",1},{"jr (hl)",1},{"jr a",1},
+ {"jp $",0},{"jp 0",0},{"jp jp",1},{"jp (hl)",0},{"jp (ix)",0},{"jp (iy)",0},{"jp (de)",1},{"jp a",1},
+ {"jp c,$",0},{"jp c,0",0},{"jp c,jp",1}, {"jp c,(hl)",1}, {"jp c,(ix)",1}, {"jp c,(iy)",1},{"jp c,(de)",1},{"jp c,a",1},
+ {"jp nc,$",0},{"jp nc,0",0},{"jp nc,jp",1},{"jp nc,(hl)",1},{"jp nc,(ix)",1},{"jp nc,(iy)",1},{"jp nc,(de)",1},{"jp nc,a",1},
+ {"jp z,$",0},{"jp z,0",0},{"jp z,jp",1}, {"jp z,(hl)",1}, {"jp z,(ix)",1}, {"jp z,(iy)",1},{"jp z,(de)",1},{"jp z,a",1},
+ {"jp nz,$",0},{"jp nz,0",0},{"jp nz,jp",1},{"jp nz,(hl)",1},{"jp nz,(ix)",1},{"jp nz,(iy)",1},{"jp nz,(de)",1},{"jp nz,a",1},
+ {"jp pe,$",0},{"jp pe,0",0},{"jp pe,jp",1},{"jp pe,(hl)",1},{"jp pe,(ix)",1},{"jp pe,(iy)",1},{"jp pe,(de)",1},{"jp pe,a",1},
+ {"jp po,$",0},{"jp po,0",0},{"jp po,jp",1},{"jp po,(hl)",1},{"jp po,(ix)",1},{"jp po,(iy)",1},{"jp po,(de)",1},{"jp po,a",1},
+ {"jp p,$",0},{"jp p,0",0},{"jp p,jp",1}, {"jp p,(hl)",1}, {"jp p,(ix)",1}, {"jp p,(iy)",1},{"jp p,(de)",1},{"jp p,a",1},
+ {"jp m,$",0},{"jp m,0",0},{"jp m,jp",1}, {"jp m,(hl)",1}, {"jp m,(ix)",1}, {"jp m,(iy)",1},{"jp m,(de)",1},{"jp m,a",1},
+ {"ret",0},{"ret c",0},{"ret nc",0},{"ret pe",0},{"ret po",0},{"ret m",0},{"ret p",0},{"reti",0},{"ret ret",1},{"ret 5",1},{"ret (hl)",1},{"ret a",1},
+ {"xor a",0},{"xor a,b",1},{"xor",1},{"xor (de)",1},{"xor (hl)",0},{"xor (bc)",1},{"xor (ix+0)",0},{"xor (iy+0)",},{"xor xor",1},
+ {"and a",0},{"and a,b",1},{"xor",1},{"and (de)",1},{"and (hl)",0},{"and (bc)",1},{"and (ix+0)",0},{"and (iy+0)",},{"and xor",1},
+ {"or a",0},{"or a,b",1},{"xor",1},{"or (de)",1},{"or (hl)",0},{"or (bc)",1},{"or (ix+0)",0},{"or (iy+0)",},{"or xor",1},
+ {"add",1},{"add a",0},{"add a,a",0},{"add add",1},{"add (hl)",0},{"add (de)",1},{"add xh",0},{"add grouik",1},
+ {"add hl,ix",1},{"add hl,iy",1},{"add ix,iy",1},{"add iy,ix",1},{"add hl,0",1},{"add hl,grouik",1},{"add ix,hl",1},{"add iy,hl",1},
+ {"adc",1},{"adc a",0},{"adc a,a",0},{"adc adc",1},{"adc (hl)",0},{"adc (de)",1},{"adc xh",0},{"adc grouik",1},
+ {"adc hl,ix",1},{"adc hl,iy",1},{"adc ix,iy",1},{"adc iy,ix",1},{"adc hl,0",1},{"adc hl,grouik",1},{"adc ix,hl",1},{"adc iy,hl",1},
+ {"sub",1},{"sub a",0},{"sub a,a",0},{"sub sub",1},{"sub (hl)",0},{"sub (de)",1},{"sub xh",0},{"sub grouik",1},
+ {"sub hl,ix",1},{"sub hl,iy",1},{"sub ix,iy",1},{"sub iy,ix",1},{"sub hl,0",1},{"sub hl,grouik",1},{"sub ix,hl",1},{"sub iy,hl",1},
+ {"sbc",1},{"sbc a",0},{"sbc a,a",0},{"sbc sbc",1},{"sbc (hl)",0},{"sbc (de)",1},{"sbc xh",0},{"sbc grouik",1},
+ {"sbc hl,ix",1},{"sbc hl,iy",1},{"sbc ix,iy",1},{"sbc iy,ix",1},{"sbc hl,0",1},{"sbc hl,grouik",1},{"sbc ix,hl",1},{"sbc iy,hl",1},
+ {"exx",0},{"exx hl",1},{"exx hl,de",1},{"exx af,af'",1},{"exx exx",1},{"exx 5",1},
+ {"ex",1},{"ex af,af'",0},{"ex hl,de",0},{"ex hl,bc",1},{"ex hl,hl",1},{"ex hl,ix",1},
+ {"cp",1},{"cp cp ",1},{"cp 5",0},{"cp c",0},{"cp a,5",0},{"cp a,c",0},{"cp hl",1},{"cp (hl)",0},{"cp a,(hl)",0},{"cp (de)",1},{"cp de",1},
+ {"cpi",0},{"cpi (hl)",1},{"cpi a",1},{"cpi 5",1},
+ {"cpd",0},{"cpd (hl)",1},{"cpd a",1},{"cpd 5",1},
+ {"cpir",0},{"cpir (hl)",1},{"cpir a",1},{"cpir 5",1},
+ {"cpdr",0},{"cpdr (hl)",1},{"cpdr a",1},{"cpdr 5",1},
+ {"call #1234",0},{"call call",1},{"call (hl)",1},{"call (ix)",1},{"call (iy)",1},{"call (de)",1},{"call hl",1},{"call bc",1},{"call a",1},{"call 5,5",1},
+ {"rst 5",1},{"rst",1},{"rst 0",0},{"rst rst",1},{"rst (hl)",1},{"rst (ix)",1},{"rst (iy)",1},{"rst z",1},{"rst z,0",1},
+ {"djnz",1},{"djnz $",0},{"djnz $,0",1},{"djnz djnz",1},{"djnz (hl)",1},
+ {"djnz (ix)",1},{"djnz (iy)",1},{"djnz (bc)",1},{"djnz bc",1},{"djnz ix",1},{"djnz iy",1},{"djnz hl",1},
+ {"push",1},{"push push",1},{"push pop",1},{"push af'",1},{"push (ix)",1},{"push (hl)",1},{"push (#1234)",1},{"push #1234",1},
+ {"pop",1},{"pop pop",1},{"pop push",1},{"pop af'",1},{"pop (ix)",1},{"pop (hl)",1},{"pop (#1234)",1},{"pop #1234",1},
+ {"set -1,a",1},{"set 9,a",1},{"set 0,xh",1},{"set 0,ix",1},{"set 0",1},{"set",1},{"set set",1},{"set 0,a,a",1},{"set 0,(ix+0),xh",1},
+ {"bit -1,a",1},{"bit 9,a",1},{"bit 0,xh",1},{"bit 0,ix",1},{"bit 0",1},{"bit",1},{"bit bit",1},{"bit 0,a,a",1},{"bit 0,(ix+0),xh",1},
+ {"res -1,a",1},{"res 9,a",1},{"res 0,xh",1},{"res 0,ix",1},{"res 0",1},{"res",1},{"res res",1},{"res 0,a,a",1},{"res 0,(ix+0),xh",1},
+ {"srl",1},{"srl srl",1},{"srl hl",0}, /* srl hl is a kind of macro */
+ {"rld a",1},{"rld (hl)",1},{"rld rld",1},{"rld 5",1},{"rld (ix)",1},
+ {"rrd a",1},{"rrd (hl)",1},{"rrd rrd",1},{"rrd 5",1},{"rrd (ix)",1},
+ {"cpl a",1},{"cpl (hl)",1},{"cpl cpl",1},{"cpl 0",1},
+ {"daa daa daa",1},{"daa 0",1},{"daa (hl)",1},
+ {"scf scf",1},{"scf 0",1},{"scf (hl)",1},
+ {"ccf ccf",1},{"ccf 0",1},{"ccf (hl)",1},
+ {"out",1},{"out out",1},{"out (c)",1},{"out (c),xh",1},{"out 0",1},
+ {"out (c),hl",1},{"out (hl),c",1},{"out (c),(ix+0)",1},{"out (c),a,b",1},
+ {"outi 0",1},{"outi (hl)",1},
+ {"otir 0",1},{"otir (hl)",1},
+ {"otdr 0",1},{"otdr (hl)",1},
+ {"outd 0",1},{"outd (hl)",1},
+ {"in",1},{"in in",1},{"in (c)",1},{"in xh,(c)",1},{"in 0",1},
+ {"in hl,(c)",1},{"in c,(hl)",1},{"in (c),(ix+0)",1},{"in a,(c),b",1},
+ {"ini 0",1},{"ini (hl)",1},
+ {"inir 0",1},{"inir (hl)",1},
+ {"indr 0",1},{"indr (hl)",1},
+ {"ind 0",1},{"ind (hl)",1},
+ {"di 5",1},{"di di",1},{"di hl",1},{"di a",1},
+ {"ei 5",1},{"ei ei",1},{"ei hl",1},{"ei a",1},
+ {"im",1},{"im 3",1},{"im -1",1},{"im (hl)",1},
+ {"halt 5",1},{"reti 5",1},{"retn 5",1},{"ld i,b",1},{"ld b,i",1},
+
+ {"repeat 5:nop:rend",0},{"repeat 100000:a=5:rend",1},{"repeat -5:nop:rend",1},{"repeat repeat:nop:rend",1},
+ {"macro bidule:nop:mend:bidule",0},{"macro bidule:nop:macro glop:nop:mend:mend:bidule",1},
+ {"macro bidule:nop",1},{"macro bidule:nop:mend:macro glop:nop:bidule",1},
+ /*
+ {"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},
+ {"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},
+ {"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},{"",},
+ */
+ {NULL,0}
+};
+
+void MiniDump(unsigned char *opcode, int opcodelen) {
+ #undef FUNC
+ #define FUNC "MiniDump"
+
+ int i;
+ printf("%d byte%s to dump\n",opcodelen,opcodelen>1?"s":"");
+ for (i=0;i<opcodelen;i++) {
+ printf("%02X \n",opcode[i]);
+ }
+ printf("\n");
+}
+
+void RasmAutotest(void)
+{
+ #undef FUNC
+ #define FUNC "RasmAutotest"
+
+ struct s_rasm_info *debug;
+ unsigned char *opcode=NULL;
+ int opcodelen,ret,filelen;
+ int cpt=0,chk,i,idx;
+ char tmpstr1[256],tmpstr2[256],*tmpstr3,**tmpsplit;
+
+#ifdef RDD
+ printf("\n%d bytes\n",_static_library_memory_used);
+#endif
+#if 0
+ /* Autotest CORE */
+ #ifdef OS_WIN
+ printf(".");fflush(stdout);
+ strcpy(tmpstr1,".\\archives\\job.asm");
+ strcpy(tmpstr2,".\\archives\\job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath0) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,".\\archives\\..\\job.asm");
+ strcpy(tmpstr2,".\\job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath1) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,".\\archives\\gruik\\..\\..\\job.asm");
+ strcpy(tmpstr2,".\\job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath2) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,".\\archives\\..\\gruik\\..\\job.asm");
+ strcpy(tmpstr2,".\\job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath3) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,"..\\archives\\job.asm");
+ strcpy(tmpstr2,"..\\archives\\job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath4) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,".\\src\\..\\..\\src\\job.asm");
+ strcpy(tmpstr2,"..\\src\\job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath5) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,"src\\..\\..\\src\\job.asm");
+ strcpy(tmpstr2,"..\\src\\job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath6) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ cpt++;
+ #else
+ printf(".");fflush(stdout);
+ strcpy(tmpstr1,"./archives/job.asm");
+ strcpy(tmpstr2,"./archives/job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath0) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,"./archives/../job.asm");
+ strcpy(tmpstr2,"./job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath1) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,"./archives/gruik/../../job.asm");
+ strcpy(tmpstr2,"./job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath2) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,"./archives/../gruik/../job.asm");
+ strcpy(tmpstr2,"./job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath3) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,"../archives/job.asm");
+ strcpy(tmpstr2,"../archives/job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath4) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,"./src/../../src/job.asm");
+ strcpy(tmpstr2,"../src/job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath5) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ strcpy(tmpstr1,"src/../../../src/job.asm");
+ strcpy(tmpstr2,"../../src/job.asm");
+ SimplifyPath(tmpstr1);if (strcmp(tmpstr1,tmpstr2)) {printf("Autotest %03d ERROR (Core:SimplifyPath6) %s!=%s\n",cpt,tmpstr1,tmpstr2);exit(-1);}
+ cpt++;
+ printf(".");fflush(stdout);
+ if (strcmp(GetPath("/home/roudoudou/"),"/home/roudoudou/")) {printf("Autotest %03d ERROR (Core:GetPath0) [%s]\n",cpt,GetPath("/home/roudoudou/"));exit(-1);}
+ if (strcmp(GetPath("/home/roudoudou"),"/home/")) {printf("Autotest %03d ERROR (Core:GetPath1) [%s]\n",cpt,GetPath("/home/roudoudou"));exit(-1);}
+ cpt++;
+ #endif
+#endif
+
+ /* Autotest preprocessing */
+ ret=RasmAssemble(AUTOTEST_VIRGULE,strlen(AUTOTEST_VIRGULE),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (double comma must trigger an error) ret=%d\n",cpt,ret);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing preprocessor comma management in a string OK\n");
+
+ ret=RasmAssemble(AUTOTEST_VIRGULE2,strlen(AUTOTEST_VIRGULE2),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (double comma in a string must be OK)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing preprocessor comma management in a string OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PREPRO0,strlen(AUTOTEST_PREPRO0),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (uninitialize memory read!)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing preprocessor non regression OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PREPRO1,strlen(AUTOTEST_PREPRO1),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (freestyle case 1)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing preprocessor freestyle OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PREPRO2,strlen(AUTOTEST_PREPRO2),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (freestyle case 2)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing preprocessor freestyle variation 2 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PREPRO3,strlen(AUTOTEST_PREPRO3),&opcode,&opcodelen);
+ if (!ret && opcodelen==12 && opcode[11]==0x21) {} else {printf("Autotest %03d ERROR (multi-line comment)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing multi-line comments 1 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PREPRO4,strlen(AUTOTEST_PREPRO4),&opcode,&opcodelen);
+ if (!ret && opcodelen==12) {} else {printf("Autotest %03d ERROR (multi-line comment 2)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing multi-line comments 2 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_OPERATOR_CONVERSION,strlen(AUTOTEST_OPERATOR_CONVERSION),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (maxam operator conversion)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing Maxam operator conversion OK\n");
+
+ ret=RasmAssemble(AUTOTEST_OPERATOR_MODULO,strlen(AUTOTEST_OPERATOR_MODULO),&opcode,&opcodelen);
+ if (!ret && opcodelen==1) {} else {printf("Autotest %03d ERROR (modulo operator conversion)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing modulo operator conversion OK\n");
+
+ ret=RasmAssemble(AUTOTEST_NOINCLUDE,strlen(AUTOTEST_NOINCLUDE),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (include missing file)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("include on a missing file OK\n");
+
+ ret=RasmAssemble(AUTOTEST_FORMAT,strlen(AUTOTEST_FORMAT),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (digit formats)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing digit formats OK\n");
+
+ /* Autotest assembling */
+ ret=RasmAssemble(AUTOTEST_OPCODES,strlen(AUTOTEST_OPCODES),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (all opcodes)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing all opcodes OK\n");
+
+ /* Autotest single instruction writes that must failed */
+ tmpstr3=TxtStrDup(AUTOTEST_INSTRMUSTFAILED);
+ tmpsplit=TxtSplitWithChar(tmpstr3,':');
+
+ for (i=0;tmpsplit[i];i++) {
+ ret=RasmAssemble(tmpsplit[i],strlen(tmpsplit[i]),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (opcodes that must fail) -> [%s]\n",cpt,tmpsplit[i]);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;
+ }
+
+ MemFree(tmpstr3);FreeFields(tmpsplit);
+ cpt++;
+printf("testing various opcode tests OK\n");
+
+ idx=0;
+ while (autotest_keyword[idx].keywordtest) {
+ ret=RasmAssemble(autotest_keyword[idx].keywordtest,strlen(autotest_keyword[idx].keywordtest),&opcode,&opcodelen);
+ if (!ret && !autotest_keyword[idx].result) {
+ } else if (ret && autotest_keyword[idx].result) {
+ } else {
+ printf("Autotest %03d ERROR ([%s] test) is %s instead of %s\n",cpt,autotest_keyword[idx].keywordtest,!ret?"ok":"ko",ret?"ok":"ko");
+ }
+ if (opcode) MemFree(opcode);opcode=NULL;
+ idx++;
+ }
+ cpt++;
+printf("testing moar various opcode tests OK\n");
+
+ ret=RasmAssemble(AUTOTEST_ORG,strlen(AUTOTEST_ORG),&opcode,&opcodelen);
+ if (!ret && opcodelen==4 && opcode[1]==0x80 && opcode[2]==2 && opcode[3]==0x10) {} else {printf("Autotest %03d ERROR (ORG relocation)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing ORG relocation OK\n");
+
+ ret=RasmAssemble(AUTOTEST_MAXERROR,strlen(AUTOTEST_MAXERROR),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (must return an error code!)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing error code OK\n");
+
+ ret=RasmAssemble(AUTOTEST_BANKORG,strlen(AUTOTEST_BANKORG),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (BANK org adr)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing BANK/ORG OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LIMITOK,strlen(AUTOTEST_LIMITOK),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (limit ok)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing LIMIT 1 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LIMITKO,strlen(AUTOTEST_LIMITKO),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (out of limit)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing LIMIT 2 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LIMIT03,strlen(AUTOTEST_LIMIT03),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (limit: negative limit)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing inegative LIMIT OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LIMIT04,strlen(AUTOTEST_LIMIT04),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (limit: max limit test)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing max LIMIT OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LIMIT05,strlen(AUTOTEST_LIMIT05),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (limit: ldir in #FFFF)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing 16 bits opcode overriding LIMIT OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LIMIT06,strlen(AUTOTEST_LIMIT06),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (limit: nop in #FFFF)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing opcode overriding LIMIT OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LIMIT07,strlen(AUTOTEST_LIMIT07),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (limit: ld hl,#1234 in #FFFF)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing opcode with variable overriding LIMIT OK\n");
+
+ ret=RasmAssemble(AUTOTEST_DELAYED_RUN,strlen(AUTOTEST_DELAYED_RUN),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (delayed RUN set)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing delayed RUN OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LZSEGMENT,strlen(AUTOTEST_LZSEGMENT),&opcode,&opcodelen);
+ if (!ret && opcodelen==23 && opcode[1]==21 && opcode[9]==23) {} else {printf("Autotest %03d ERROR (LZ segment relocation)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing LZ segment relocation OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LZ4,strlen(AUTOTEST_LZ4),&opcode,&opcodelen);
+ if (!ret && opcodelen==49 && opcode[0]==0x15 && opcode[4]==0x44 && opcode[0xB]==0xF0) {} else {printf("Autotest %03d ERROR (LZ4 segment)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing LZ4 segment OK\n");
+
+ ret=RasmAssemble(AUTOTEST_DEFS,strlen(AUTOTEST_DEFS),&opcode,&opcodelen);
+ if (!ret && opcodelen==256 && opcode[0]==0) {} else {printf("Autotest %03d ERROR (defs)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing DEFS OK\n");
+
+ ret=RasmAssemble(AUTOTEST_BANKSET,strlen(AUTOTEST_BANKSET),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (bank/bankset)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing BANK/BANKSET OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PAGETAG,strlen(AUTOTEST_PAGETAG),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (page/pageset)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing prefix PAGE/PAGESET 1 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PAGETAG2,strlen(AUTOTEST_PAGETAG2),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (page/pageset 2)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing prefix PAGE/PAGESET 2 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PAGETAG3,strlen(AUTOTEST_PAGETAG3),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (page/pageset 3)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing prefix PAGE/PAGESET 3 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_UNDEF,strlen(AUTOTEST_UNDEF),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (simple undef)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing UNDEF OK\n");
+
+ ret=RasmAssemble(AUTOTEST_TAGPRINT,strlen(AUTOTEST_TAGPRINT),&opcode,&opcodelen);
+ if (!ret && opcodelen==1 && opcode[0]==0xC9) {} else {printf("Autotest %03d ERROR (tag inside printed string)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing tags inside printed string OK\n");
+
+ ret=RasmAssemble(AUTOTEST_TAGFOLLOW,strlen(AUTOTEST_TAGFOLLOW),&opcode,&opcodelen);
+ if (!ret && opcodelen==1 && opcode[0]==0xC9) {} else {printf("Autotest %03d ERROR (tag+alias fast translating)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing tag+alias in fast translate OK\n");
+
+ ret=RasmAssemble(AUTOTEST_TAGREALLOC,strlen(AUTOTEST_TAGREALLOC),&opcode,&opcodelen);
+ if (!ret && opcodelen==276) {} else {printf("Autotest %03d ERROR (tag realloc with fast translate)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing tag realloc with fast translate OK\n");
+
+ ret=RasmAssemble(AUTOTEST_TAGLOOP,strlen(AUTOTEST_TAGLOOP),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (generated alias inside loop with generated var names )\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing generated alias inside loop with generated var names OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PRINTVAR,strlen(AUTOTEST_PRINTVAR),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (param inside printed string)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing param inside printed string OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PRINTSPACE,strlen(AUTOTEST_PRINTSPACE),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (space inside tag string for PRINT directive)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing space inside tag string for PRINT directive OK\n");
+
+ ret=RasmAssemble(AUTOTEST_INHIBITION,strlen(AUTOTEST_INHIBITION),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (conditionnal inhibition)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing conditionnal inhibition OK\n");
+
+ ret=RasmAssemble(AUTOTEST_SWITCH,strlen(AUTOTEST_SWITCH),&opcode,&opcodelen);
+ if (!ret && opcodelen==3 && opcode[0]==4 && opcode[1]==3 && opcode[2]==4) {} else {printf("Autotest %03d ERROR (switch case)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing SWITCH/CASE OK\n");
+
+ ret=RasmAssemble(AUTOTEST_NOCODE,strlen(AUTOTEST_NOCODE),&opcode,&opcodelen);
+ if (!ret && opcodelen==57) {} else {printf("Autotest %03d ERROR (code/nocode)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing code/nocode OK\n");
+
+ ret=RasmAssemble(AUTOTEST_VAREQU,strlen(AUTOTEST_VAREQU),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (var & equ)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing var & equ OK\n");
+
+ ret=RasmAssemble(AUTOTEST_CHARSET,strlen(AUTOTEST_CHARSET),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (simple charset)\n",cpt);exit(-1);}
+ if (opcodelen!=30 || memcmp(opcode,opcode+5,5) || memcmp(opcode+10,opcode+5,5)) {printf("Autotest %03d ERROR (simple charset)\n",cpt);exit(-1);}
+ if (memcmp(opcode+15,opcode+20,5) || memcmp(opcode+15,opcode+25,5)) {printf("Autotest %03d ERROR (simple charset)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing simple charset OK\n");
+
+ ret=RasmAssemble(AUTOTEST_CHARSET2,strlen(AUTOTEST_CHARSET2),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (extended charset)\n",cpt);exit(-1);}
+ for (i=chk=0;i<opcodelen;i++) chk+=opcode[i];
+ if (opcodelen!=16 || chk!=0x312) {printf("Autotest %03d ERROR (extended charset)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing extended charset OK\n");
+
+ ret=RasmAssemble(AUTOTEST_QUOTES,strlen(AUTOTEST_QUOTES),&opcode,&opcodelen);
+ if (!ret && opcodelen==10 && opcode[5]==0xE4 && opcode[6]==0x0D && opcode[7]==0x64 && opcode[8]==0x0D && opcode[9]==0xE4) {}
+ else {printf("Autotest %03d ERROR (quotes & escaped chars)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing quoted & escaped chars OK\n");
+
+ ret=RasmAssemble(AUTOTEST_NOT,strlen(AUTOTEST_NOT),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (not operator)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing NOT operator OK\n");
+
+ ret=RasmAssemble(AUTOTEST_MACRO,strlen(AUTOTEST_MACRO),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (macro usage)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing macro usage OK\n");
+
+ ret=RasmAssemble(AUTOTEST_ASSERT,strlen(AUTOTEST_ASSERT),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (assert usage)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing assert usage (+prepro regression cases) OK\n");
+
+ ret=RasmAssemble(AUTOTEST_MACROPAR,strlen(AUTOTEST_MACROPAR),&opcode,&opcodelen);
+ if (!ret && opcodelen==12 && memcmp(opcode,"GROUIKgrouik",12)==0) {} else {printf("Autotest %03d ERROR (macro string param)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing macro string parameter OK\n");
+
+ ret=RasmAssemble(AUTOTEST_MACRO_ADV,strlen(AUTOTEST_MACRO_ADV),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (macro param)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing macro parameters OK\n");
+
+ ret=RasmAssemble(AUTOTEST_OVERLOADMACPRM,strlen(AUTOTEST_OVERLOADMACPRM),&opcode,&opcodelen);
+ if (!ret && opcodelen==4 && opcode[0]==1 && opcode[1]==0 && opcode[2]==2 && opcode[3]==1) {} else {printf("Autotest %03d ERROR (macro param overload)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing macro parameter overload OK\n");
+
+ ret=RasmAssemble(AUTOTEST_IFDEFMACRO,strlen(AUTOTEST_IFDEFMACRO),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (ifdef macro)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing IFDEF & MACRO OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LABNUM,strlen(AUTOTEST_LABNUM),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (variables in labels)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing variables in labels OK\n");
+
+ ret=RasmAssemble(AUTOTEST_EQUNUM,strlen(AUTOTEST_EQUNUM),&opcode,&opcodelen);
+ if (!ret && opcodelen==3) {} else {printf("Autotest %03d ERROR (variables in aliases) r=%d l=%d\n",cpt,ret,opcodelen);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing variables in aliases OK\n");
+
+ ret=RasmAssemble(AUTOTEST_DELAYNUM,strlen(AUTOTEST_DELAYNUM),&opcode,&opcodelen);
+ if (!ret && opcodelen==9 && opcode[0]==6 && opcode[2]==7 && opcode[4]==8) {} else {printf("Autotest %03d ERROR (delayed expr labels) r=%d l=%d\n",cpt,ret,opcodelen);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing delayed expression labels OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PROXIM,strlen(AUTOTEST_PROXIM),&opcode,&opcodelen);
+ if (!ret && opcode[1]==3) {} else {printf("Autotest %03d ERROR (proximity labels)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing proximity labels OK\n");
+
+ ret=RasmAssemble(AUTOTEST_STRUCT,strlen(AUTOTEST_STRUCT),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (structs)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing structs OK\n");
+
+ ret=RasmAssemble(AUTOTEST_STRUCT2,strlen(AUTOTEST_STRUCT2),&opcode,&opcodelen);
+ if (!ret && opcodelen==1) {} else {printf("Autotest %03d ERROR (sizeof struct fields)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing SIZEOF struct fields OK\n");
+
+ ret=RasmAssemble(AUTOTEST_REPEAT,strlen(AUTOTEST_REPEAT),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (extended repeat)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing REPEAT cases OK\n");
+
+ ret=RasmAssemble(AUTOTEST_REPEATKO,strlen(AUTOTEST_REPEATKO),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (repeat without end must return error)\n",cpt);exit(-1);}
+printf("testing REPEAT without REND OK\n");
+
+ ret=RasmAssemble(AUTOTEST_WHILEKO,strlen(AUTOTEST_WHILEKO),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (while without end must return error)\n",cpt);exit(-1);}
+printf("testing WHILE without WEND OK\n");
+
+ ret=RasmAssemble(AUTOTEST_TICKER,strlen(AUTOTEST_TICKER),&opcode,&opcodelen);
+ if (!ret && opcodelen==18) {} else {printf("Autotest %03d ERROR (ticker (re)count)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing ticker OK\n");
+
+ ret=RasmAssemble(AUTOTEST_DEFUSED,strlen(AUTOTEST_DEFUSED),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (ifdef ifused)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing IFDEF / IFUSED OK\n");
+
+ ret=RasmAssemble(AUTOTEST_SAVEINVALID1,strlen(AUTOTEST_SAVEINVALID1),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (invalid size for SAVE)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing invalid size for SAVE OK\n");
+
+ ret=RasmAssemble(AUTOTEST_SAVEINVALID2,strlen(AUTOTEST_SAVEINVALID2),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (invalid offset for SAVE)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing invalid offset (too low) for SAVE OK\n");
+
+ ret=RasmAssemble(AUTOTEST_SAVEINVALID3,strlen(AUTOTEST_SAVEINVALID3),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (invalid offset for SAVE)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing invalid offset (too high) for SAVE OK\n");
+
+ ret=RasmAssemble(AUTOTEST_INHIBITION2,strlen(AUTOTEST_INHIBITION2),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (if switch inhibition)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing if/switch inhibition OK\n");
+
+ ret=RasmAssemble(AUTOTEST_INHIBITIONMAX,strlen(AUTOTEST_INHIBITIONMAX),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (moar inhibition)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing more inhibition cases OK\n");
+
+ ret=RasmAssemble(AUTOTEST_MACROPROX,strlen(AUTOTEST_MACROPROX),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (macro + prox)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing regression case with proximity label following macro definition OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PROXBACK,strlen(AUTOTEST_PROXBACK),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (boucle/macro + prox = recup global)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing global label back as reference when leaving macro and loops OK\n");
+
+ ret=RasmAssemble(AUTOTEST_LOCAPROX,strlen(AUTOTEST_LOCAPROX),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (far local+prox access)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing far access of a proximity label refering to local OK\n");
+
+ ret=RasmAssemble(AUTOTEST_NEGATIVE,strlen(AUTOTEST_NEGATIVE),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (formula case 0)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing formula case 0 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_OPERATORASSIGN,strlen(AUTOTEST_OPERATORASSIGN),&opcode,&opcodelen);
+ if (!ret && opcodelen==1) {} else {printf("Autotest %03d ERROR (operator assignment)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing operator assignment OK\n");
+
+ ret=RasmAssemble(AUTOTEST_OPERATORASSIGN2,strlen(AUTOTEST_OPERATORASSIGN2),&opcode,&opcodelen);
+ if (!ret && opcodelen==1) {} else {printf("Autotest %03d ERROR (operator assignment + repeat)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing operator assignment OK\n");
+
+ ret=RasmAssemble(AUTOTEST_FORMULA1,strlen(AUTOTEST_FORMULA1),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (formula case 1)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing formula case 1 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_SETINSIDE,strlen(AUTOTEST_SETINSIDE),&opcode,&opcodelen);
+ if (ret) {} else {printf("Autotest %03d ERROR (set var inside expression must trigger error)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing var set inside an expression must trigger an error OK\n");
+
+ ret=RasmAssemble(AUTOTEST_CODESKIP,strlen(AUTOTEST_CODESKIP),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (code skip)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing code skip OK\n");
+
+ ret=RasmAssemble(AUTOTEST_FORMULA2,strlen(AUTOTEST_FORMULA2),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (formula case 2 function+multiple parenthesis)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing formula functions + multiple parenthesis OK\n");
+
+ ret=RasmAssemble(AUTOTEST_SHIFTMAX,strlen(AUTOTEST_SHIFTMAX),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (shifting more than 31 must give zero result)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing shifting more than 31 OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PLUSCOLOR,strlen(AUTOTEST_PLUSCOLOR),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (formula func for Plus color management)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing formula function for Plus color management OK\n");
+
+ ret=RasmAssemble(AUTOTEST_FRAC,strlen(AUTOTEST_FRAC),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (formula func FRAC)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing formula FRAC function OK\n");
+
+ ret=RasmAssemble(AUTOTEST_UNDERVAR,strlen(AUTOTEST_UNDERVAR),&opcode,&opcodelen);
+ if (!ret && opcodelen==4) {} else {printf("Autotest %03d ERROR (var starting with _)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing var names starting with '_' OK\n");
+
+ ret=RasmAssemble(AUTOTEST_NOEXPORT,strlen(AUTOTEST_NOEXPORT),&opcode,&opcodelen);
+ if (!ret && opcodelen==2) {} else {printf("Autotest %03d ERROR (noexport/enoexport)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing export/noexport OK\n");
+
+ ret=RasmAssemble(AUTOTEST_ENHANCED_LD,strlen(AUTOTEST_ENHANCED_LD),&opcode,&opcodelen);
+ if (!ret && memcmp(opcode,opcode+opcodelen/2,opcodelen/2)==0) {} else {printf("Autotest %03d ERROR (enhanced LD)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing enhanced LD OK\n");
+
+ ret=RasmAssemble(AUTOTEST_ENHANCED_LD2,strlen(AUTOTEST_ENHANCED_LD2),&opcode,&opcodelen);
+ if (!ret && memcmp(opcode,opcode+opcodelen/2,opcodelen/2)==0) {} else {printf("Autotest %03d ERROR (enhanced LD 2)\n",cpt);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing enhanced LD variante OK\n");
+
+ ret=RasmAssemble(AUTOTEST_ENHANCED_PUSHPOP,strlen(AUTOTEST_ENHANCED_PUSHPOP),&opcode,&opcodelen);
+ if (!ret && memcmp(opcode,opcode+opcodelen/2,opcodelen/2)==0) {} else {printf("Autotest %03d ERROR (enhanced PUSH/POP/NOP)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing enhanced PUSH/POP OK\n");
+
+ ret=RasmAssemble(AUTOTEST_PAGELABELGEN,strlen(AUTOTEST_PAGELABELGEN),&opcode,&opcodelen);
+ if (!ret) {} else {printf("Autotest %03d ERROR (pagelabelgen)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing page tag with generated label name OK\n");
+
+ ret=RasmAssembleInfo(AUTOTEST_EMBEDDED_ERRORS,strlen(AUTOTEST_EMBEDDED_ERRORS),&opcode,&opcodelen,&debug);
+ if (ret && debug->nberror==2 && debug->nbsymbol==3) {
+/*
+ printf("\n");
+ for (i=0;i<debug->nberror;i++) {
+ printf("%d -> %s\n",i,debug->error[i].msg);
+ }
+ for (i=0;i<debug->nbsymbol;i++) {
+ printf("%d -> %s=%d\n",i,debug->symbol[i].name,debug->symbol[i].v);
+ }
+ RasmFreeInfoStruct(debug);
+*/
+ } else {printf("Autotest %03d ERROR (embedded error struct) err=%d nberr=%d (2) nbsymb=%d (3)\n",cpt,ret,debug->nberror,debug->nbsymbol);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing internal error struct OK\n");
+
+ ret=RasmAssembleInfo(AUTOTEST_EMBEDDED_LABELS,strlen(AUTOTEST_EMBEDDED_LABELS),&opcode,&opcodelen,&debug);
+ if (!ret && debug->nbsymbol==3) {
+ /*
+ printf("\nnbsymbol=%d\n",debug->nbsymbol);
+ for (i=0;i<debug->nbsymbol;i++) {
+ printf("%d -> %s=%d\n",i,debug->symbol[i].name,debug->symbol[i].v);
+ }*/
+ RasmFreeInfoStruct(debug);
+ } else {printf("Autotest %03d ERROR (embedded test)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+printf("testing internal label struct OK\n");
+
+#ifdef RDD
+ printf("\n%d bytes\n",_static_library_memory_used);
+
+ tmpstr3=FileReadContent("./test/PlayerAky.asm",&filelen);
+ printf(".");fflush(stdout);ret=RasmAssembleInfo(tmpstr3,filelen,&opcode,&opcodelen,&debug);
+ if (!ret) {} else {printf("Autotest %03d ERROR (PlayerAky)\n",cpt);MiniDump(opcode,opcodelen);exit(-1);}
+ if (opcode) MemFree(opcode);opcode=NULL;cpt++;
+ RasmFreeInfoStruct(debug);
+ MemFree(tmpstr3);
+
+ printf("\n%d bytes\n",_static_library_memory_used);
+#endif
+
+ FileRemoveIfExists("rasmoutput.cpr");
+
+ printf("All internal tests OK\n");
+ #ifdef RDD
+ /* private dev lib tools */
+printf("checking memory\n");
+ CloseLibrary();
+ #endif
+ exit(0);
+}
+
+
+/******************************************************
+LZ48 v005 / LZ49 v002
+******************************************************/
+int LZ48_encode_extended_length(unsigned char *odata, int length)
+{
+ int ioutput=0;
+
+ while (length>=255) {
+ odata[ioutput++]=0xFF;
+ length-=255;
+ }
+ /* if the last value is 255 we must encode 0 to end extended length */
+ /*if (length==0) rasm_printf(ae,"bugfixed!\n");*/
+ odata[ioutput++]=(unsigned char)length;
+ return ioutput;
+}
+
+int LZ48_encode_block(unsigned char *odata,unsigned char *data, int literaloffset,int literalcpt,int offset,int maxlength)
+{
+ int ioutput=1;
+ int token=0;
+ int i;
+
+ if (offset<0 || offset>255) {
+ fprintf(stderr,"internal offset error!\n");
+ exit(-2);
+ }
+
+ if (literalcpt<15) {
+ token=literalcpt<<4;
+ } else {
+ token=0xF0;
+ ioutput+=LZ48_encode_extended_length(odata+ioutput,literalcpt-15);
+ }
+
+ for (i=0;i<literalcpt;i++) odata[ioutput++]=data[literaloffset++];
+
+ if (maxlength<18) {
+ if (maxlength>2) {
+ token|=(maxlength-3);
+ } else {
+ /* endoffset has no length */
+ }
+ } else {
+ token|=0xF;
+ ioutput+=LZ48_encode_extended_length(odata+ioutput,maxlength-18);
+ }
+
+ odata[ioutput++]=(unsigned char)offset-1;
+
+ odata[0]=(unsigned char)token;
+ return ioutput;
+}
+
+unsigned char *LZ48_encode_legacy(unsigned char *data, int length, int *retlength)
+{
+ int i,startscan,current=1,token,ioutput=1,curscan;
+ int maxoffset=0,maxlength,matchlength,literal=0,literaloffset=1;
+ unsigned char *odata=NULL;
+
+ odata=MemMalloc((size_t)length*1.5+10);
+ if (!odata) {
+ fprintf(stderr,"malloc(%.0lf) - memory full\n",(size_t)length*1.5+10);
+ exit(-1);
+ }
+
+ /* first byte always literal */
+ odata[0]=data[0];
+
+ /* force short data encoding */
+ if (length<5) {
+ token=(length-1)<<4;
+ odata[ioutput++]=(unsigned char)token;
+ for (i=1;i<length;i++) odata[ioutput++]=data[current++];
+ odata[ioutput++]=0xFF;
+ *retlength=ioutput;
+ return odata;
+ }
+
+ while (current<length) {
+ maxlength=0;
+ startscan=current-255;
+ if (startscan<0) startscan=0;
+ while (startscan<current) {
+ matchlength=0;
+ curscan=current;
+ for (i=startscan;curscan<length;i++) {
+ if (data[i]==data[curscan++]) matchlength++; else break;
+ }
+ if (matchlength>=3 && matchlength>maxlength) {
+ maxoffset=startscan;
+ maxlength=matchlength;
+ }
+ startscan++;
+ }
+ if (maxlength) {
+ ioutput+=LZ48_encode_block(odata+ioutput,data,literaloffset,literal,current-maxoffset,maxlength);
+ current+=maxlength;
+ literaloffset=current;
+ literal=0;
+ } else {
+ literal++;
+ current++;
+ }
+ }
+ ioutput+=LZ48_encode_block(odata+ioutput,data,literaloffset,literal,0,0);
+ *retlength=ioutput;
+ return odata;
+}
+
+int LZ49_encode_extended_length(unsigned char *odata, int length)
+{
+ int ioutput=0;
+
+ while (length>=255) {
+ odata[ioutput++]=0xFF;
+ length-=255;
+ }
+ /* if the last value is 255 we must encode 0 to end extended length */
+ /*if (length==0) rasm_printf(ae,"bugfixed!\n");*/
+ odata[ioutput++]=(unsigned char)length;
+ return ioutput;
+}
+
+int LZ49_encode_block(unsigned char *odata,unsigned char *data, int literaloffset,int literalcpt,int offset,int maxlength)
+{
+ int ioutput=1;
+ int token=0;
+ int i;
+
+ if (offset<0 || offset>511) {
+ fprintf(stderr,"internal offset error!\n");
+ exit(-2);
+ }
+
+ if (literalcpt<7) {
+ token=literalcpt<<4;
+ } else {
+ token=0x70;
+ ioutput+=LZ49_encode_extended_length(odata+ioutput,literalcpt-7);
+ }
+
+ for (i=0;i<literalcpt;i++) odata[ioutput++]=data[literaloffset++];
+
+ if (maxlength<18) {
+ if (maxlength>2) {
+ token|=(maxlength-3);
+ } else {
+ /* endoffset has no length */
+ }
+ } else {
+ token|=0xF;
+ ioutput+=LZ49_encode_extended_length(odata+ioutput,maxlength-18);
+ }
+
+ if (offset>255) {
+ token|=0x80;
+ offset-=256;
+ }
+ odata[ioutput++]=(unsigned char)offset-1;
+
+ odata[0]=(unsigned char)token;
+ return ioutput;
+}
+
+unsigned char *LZ49_encode_legacy(unsigned char *data, int length, int *retlength)
+{
+ int i,startscan,current=1,token,ioutput=1,curscan;
+ int maxoffset=0,maxlength,matchlength,literal=0,literaloffset=1;
+ unsigned char *odata=NULL;
+
+ odata=MemMalloc((size_t)(length*1.5+10));
+ if (!odata) {
+ fprintf(stderr,"malloc(%.0lf) - memory full\n",(size_t)length*1.5+10);
+ exit(-1);
+ }
+
+ /* first byte always literal */
+ odata[0]=data[0];
+
+ /* force short data encoding */
+ if (length<5) {
+ token=(length-1)<<4;
+ odata[ioutput++]=(unsigned char)token;
+ for (i=1;i<length;i++) odata[ioutput++]=data[current++];
+ odata[ioutput++]=0xFF;
+ *retlength=ioutput;
+ return odata;
+ }
+
+ while (current<length) {
+ maxlength=0;
+ startscan=current-511;
+ if (startscan<0) startscan=0;
+ while (startscan<current) {
+ matchlength=0;
+ curscan=current;
+ for (i=startscan;curscan<length;i++) {
+ if (data[i]==data[curscan++]) matchlength++; else break;
+ }
+ if (matchlength>=3 && matchlength>maxlength) {
+ maxoffset=startscan;
+ maxlength=matchlength;
+ }
+ startscan++;
+ }
+ if (maxlength) {
+ ioutput+=LZ49_encode_block(odata+ioutput,data,literaloffset,literal,current-maxoffset,maxlength);
+ current+=maxlength;
+ literaloffset=current;
+ literal=0;
+ } else {
+ literal++;
+ current++;
+ }
+ }
+ ioutput+=LZ49_encode_block(odata+ioutput,data,literaloffset,literal,0,0);
+ *retlength=ioutput;
+ return odata;
+}
+
+
+/***************************************
+ semi-generic body of program
+***************************************/
+
+#ifndef INTEGRATED_ASSEMBLY
+
+/*
+ Usage
+ display the mandatory parameters
+*/
+void Usage(int help)
+{
+ #undef FUNC
+ #define FUNC "Usage"
+
+ printf("%s (c) 2017 Edouard BERGE (use -n option to display all licenses)\n",RASM_VERSION);
+ #ifndef NO_3RD_PARTIES
+ printf("LZ4 (c) Yann Collet / ZX7 (c) Einar Saukas / Exomizer 2 (c) Magnus Lind\n");
+ #endif
+ printf("\n");
+ printf("SYNTAX: rasm <inputfile> [options]\n");
+ printf("\n");
+
+ if (help) {
+ printf("FILENAMES:\n");
+ printf("-oa automatic radix from input filename\n");
+ printf("-o <outputfile radix> choose a common radix for all files\n");
+ printf("-ob <binary filename> choose a full filename for binary output\n");
+ printf("-oc <cartridge filename> choose a full filename for cartridge output\n");
+ printf("-oi <snapshot filename> choose a full filename for snapshot output\n");
+ printf("-os <symbol filename> choose a full filename for symbol output\n");
+ printf("-ot <tape filename> choose a full filename for tape output\n");
+ printf("-ok <breakpoint filename>choose a full filename for breakpoint output\n");
+ printf("-I<path> set a path for files to read\n");
+ printf("-no disable all file output\n");
+ printf("DEPENDENCIES EXPORT:\n");
+ printf("-depend=make output dependencies on a single line\n");
+ printf("-depend=list output dependencies as a list\n");
+ printf("if 'binary filename' is set then it will be outputed first\n");
+ printf("SYMBOLS EXPORT:\n");
+ printf("-s export symbols %%s #%%X B%%d (label,adr,cprbank)\n");
+ printf("-sz export symbols with ZX emulator convention\n");
+ printf("-sp export symbols with Pasmo convention\n");
+ printf("-sw export symbols with Winape convention\n");
+ printf("-ss export symbols in the snapshot (SYMB chunk for ACE)\n");
+ printf("-sc <format> export symbols with source code convention\n");
+ printf("-sm export symbol in multiple files (one per bank)\n");
+ printf("-l <labelfile> import symbol file (winape,pasmo,rasm)\n");
+ printf("-eb export breakpoints\n");
+ printf("-wu warn for unused symbols (alias, var or label)\n");
+ printf("SYMBOLS ADDITIONAL OPTIONS:\n");
+ printf("-sl export also local symbol\n");
+ printf("-sv export also variables symbol\n");
+ printf("-sq export also EQU symbol\n");
+ printf("-sa export all symbols (like -sl -sv -sq option)\n");
+ printf("-Dvariable=value import value for variable\n");
+ printf("COMPATIBILITY:\n");
+ printf("-m Maxam style calculations\n");
+ printf("-dams Dams 'dot' label convention\n");
+ printf("-ass AS80 behaviour mimic\n");
+ printf("-uz UZ80 behaviour mimic\n");
+
+ printf("EDSK generation/update:\n");
+ printf("-eo overwrite files on disk if it already exists\n");
+ printf("SNAPSHOT:\n");
+ printf("-sb export breakpoints in snapshot (BRKS & BRKC chunks)\n");
+ printf("-ss export symbols in the snapshot (SYMB chunk for ACE)\n");
+ printf("-v2 export snapshot version 2 instead of version 3\n");
+ printf("PARSING:\n");
+ printf("-me <value> set maximum number of error (0 means no limit)\n");
+ printf("-xr extended error display\n");
+ printf("-w disable warnings\n");
+ printf("-void force void usage with macro without parameter\n");
+ printf("\n");
+ } else {
+ printf("use option -h for help\n");
+ printf("\n");
+ }
+
+ exit(ABORT_ERROR);
+}
+
+void Licenses()
+{
+ #undef FUNC
+ #define FUNC "Licenses"
+
+printf(" ____ \n");
+printf(" | _ \\ __ _ ___ _ __ ___ \n");
+printf(" | |_) / _` / __| '_ ` _ \\ \n");
+printf(" | _ < (_| \\__ \\ | | | | |\n");
+printf(" |_| \\_\\__,_|___/_| |_| |_|\n");
+printf("\n");
+printf(" is using MIT 'expat' license\n");
+printf("\" Copyright (c) BERGE Edouard (roudoudou)\n\n");
+
+printf("Permission is hereby granted, free of charge,\n");
+printf("to any person obtaining a copy of this software\n");
+printf("and associated documentation/source files of\n");
+printf("RASM, to deal in the Software without restriction,\n");
+printf("including without limitation the rights to use,\n");
+printf("copy, modify, merge, publish, distribute,\n");
+printf("sublicense, and/or sell copies of the Software,\n");
+printf("and to permit persons to whom the Software is\n");
+printf("furnished to do so, subject to the following\n");
+printf("conditions:\n");
+
+printf("The above copyright notice and this permission\n");
+printf("notice shall be included in all copies or\n");
+printf("substantial portions of the Software.\n");
+printf("The Software is provided 'as is', without\n");
+printf("warranty of any kind, express or implied,\n");
+printf("including but not limited to the warranties of\n");
+printf("merchantability, fitness for a particular\n");
+printf("purpose and noninfringement. In no event shall\n");
+printf("the authors or copyright holders be liable for\n");
+printf("any claim, damages or other liability, whether\n");
+printf("in an action of contract, tort or otherwise,\n");
+printf("arising from, out of or in connection with the\n");
+printf("software or the use or other dealings in the\n");
+printf("Software. \"\n");
+
+#ifndef NO_3RD_PARTIES
+printf("\n\n\n\n");
+printf("******* license of LZ4 cruncher / sources were modified ***********\n\n\n\n");
+
+printf("BSD 2-Clause License (http://www.opensource.org/licenses/bsd-license.php)\n");
+
+printf("Redistribution and use in source and binary forms, with or without\n");
+printf("modification, are permitted provided that the following conditions are\n");
+printf("met:\n\n");
+
+printf(" * Redistributions of source code must retain the above copyright\n");
+printf("notice, this list of conditions and the following disclaimer.\n");
+printf(" * Redistributions in binary form must reproduce the above\n");
+printf("copyright notice, this list of conditions and the following disclaimer\n");
+printf("in the documentation and/or other materials provided with the\n");
+printf("distribution.\n\n");
+
+printf("THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS\n");
+printf("'AS IS' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT\n");
+printf("LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR\n");
+printf("A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT\n");
+printf("OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,\n");
+printf("SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT\n");
+printf("LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\n");
+printf("DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\n");
+printf("THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n");
+printf("(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE\n");
+printf("OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n\n");
+
+printf("You can contact the author at :\n");
+printf(" - LZ4 homepage : http://www.lz4.org\n");
+printf(" - LZ4 source repository : https://github.com/lz4/lz4\n");
+
+
+printf("\n\n\n\n");
+printf("******* license of ZX7 cruncher / sources were modified ***********\n\n\n\n");
+
+
+printf(" * (c) Copyright 2012 by Einar Saukas. All rights reserved.\n");
+printf(" *\n");
+printf(" * Redistribution and use in source and binary forms, with or without\n");
+printf(" * modification, are permitted provided that the following conditions are met:\n");
+printf(" * * Redistributions of source code must retain the above copyright\n");
+printf(" * notice, this list of conditions and the following disclaimer.\n");
+printf(" * * Redistributions in binary form must reproduce the above copyright\n");
+printf(" * notice, this list of conditions and the following disclaimer in the\n");
+printf(" * documentation and/or other materials provided with the distribution.\n");
+printf(" * * The name of its author may not be used to endorse or promote products\n");
+printf(" * derived from this software without specific prior written permission.\n");
+printf(" *\n");
+printf(" * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 'AS IS' AND\n");
+printf(" * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED\n");
+printf(" * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE\n");
+printf(" * DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY\n");
+printf(" * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES\n");
+printf(" * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;\n");
+printf(" * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND\n");
+printf(" * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n");
+printf(" * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS\n");
+printf(" * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n");
+
+
+printf("\n\n\n\n");
+printf("******* license of exomizer cruncher / sources were modified ***********\n\n\n\n");
+
+
+printf(" * Copyright (c) 2005 Magnus Lind.\n");
+printf(" *\n");
+printf(" * This software is provided 'as-is', without any express or implied warranty.\n");
+printf(" * In no event will the authors be held liable for any damages arising from\n");
+printf(" * the use of this software.\n");
+printf(" *\n");
+printf(" * Permission is granted to anyone to use this software, alter it and re-\n");
+printf(" * distribute it freely for any non-commercial, non-profit purpose subject to\n");
+printf(" * the following restrictions:\n");
+printf(" *\n");
+printf(" * 1. The origin of this software must not be misrepresented; you must not\n");
+printf(" * claim that you wrote the original software. If you use this software in a\n");
+printf(" * product, an acknowledgment in the product documentation would be\n");
+printf(" * appreciated but is not required.\n");
+printf(" *\n");
+printf(" * 2. Altered source versions must be plainly marked as such, and must not\n");
+printf(" * be misrepresented as being the original software.\n");
+printf(" *\n");
+printf(" * 3. This notice may not be removed or altered from any distribution.\n");
+printf(" *\n");
+printf(" * 4. The names of this software and/or it's copyright holders may not be\n");
+printf(" * used to endorse or promote products derived from this software without\n");
+printf(" * specific prior written permission.\n");
+#endif
+
+printf("\n\n");
+
+
+
+ exit(0);
+}
+
+int _internal_check_flexible(char *fxp) {
+ #undef FUNC
+ #define FUNC "_internal_check_flexible"
+
+ char *posval,*posvar;
+ int cpt=0,i;
+
+ posvar=strstr(fxp,"%s");
+ posval=strstr(fxp,"%");
+ if (!posval || !posvar) {
+ printf("invalid flexible export string, need 2 formated fields, example: \"%%s %%d\"\n");
+ exit(1);
+ }
+ if (posval<posvar) {
+ printf("invalid flexible export string, must be %%s before the %% for value, example: \"%%s %%d\"\n");
+ exit(1);
+ }
+ for (i=0;fxp[i];i++) if (fxp[i]=='%') cpt++;
+ if (cpt>2) {
+ printf("invalid flexible export string, must be only two formated fields, example: \"%%s %%d\"\n");
+ exit(1);
+ }
+
+ return 1;
+}
+/*
+ ParseOptions
+
+ used to parse command line and configuration file
+*/
+int ParseOptions(char **argv,int argc, struct s_parameter *param)
+{
+ #undef FUNC
+ #define FUNC "ParseOptions"
+
+ char *sep;
+ int i=0;
+
+ if (strcmp(argv[i],"-autotest")==0) {
+ RasmAutotest();
+ } else if (strcmp(argv[i],"-uz")==0) {
+ param->as80=2;
+ } else if (strcmp(argv[i],"-ass")==0) {
+ param->as80=1;
+ } else if (strcmp(argv[i],"-eb")==0) {
+ param->export_brk=1;
+ } else if (strcmp(argv[i],"-wu")==0) {
+ param->warn_unused=1;
+ } else if (strcmp(argv[i],"-dams")==0) {
+ } else if (strcmp(argv[i],"-void")==0) {
+ param->macrovoid=1;
+ } else if (strcmp(argv[i],"-xr")==0) {
+ param->extended_error=1;
+ } else if (strcmp(argv[i],"-eo")==0) {
+ param->edskoverwrite=1;
+ } else if (strcmp(argv[i],"-depend=make")==0) {
+ param->dependencies=E_DEPENDENCIES_MAKE;
+ param->checkmode=1;
+ } else if (strcmp(argv[i],"-depend=list")==0) {
+ param->dependencies=E_DEPENDENCIES_LIST;
+ param->checkmode=1;
+ } else if (strcmp(argv[i],"-no")==0) {
+ param->checkmode=1;
+ } else if (strcmp(argv[i],"-w")==0) {
+ param->nowarning=1;
+ } else if (argv[i][0]=='-') {
+ switch(argv[i][1])
+ {
+ case 'I':
+ if (argv[i][2]) {
+ char *curpath;
+ int l;
+ l=strlen(argv[i]);
+ curpath=MemMalloc(l); /* strlen(path)+2 */
+ strcpy(curpath,argv[i]+2);
+#ifdef OS_WIN
+ if (argv[i][l-1]!='/' && argv[i][l-1]!='\\') strcat(curpath,"\\");
+#else
+ if (argv[i][l-1]!='/' && argv[i][l-1]!='\\') strcat(curpath,"/");
+#endif
+ FieldArrayAddDynamicValueConcat(&param->pathdef,&param->npath,&param->mpath,curpath);
+ MemFree(curpath);
+ } else {
+ Usage(1);
+ }
+ break;
+ case 'D':
+ if ((sep=strchr(argv[i],'='))!=NULL) {
+ if (sep!=argv[i]+2) {
+ FieldArrayAddDynamicValueConcat(&param->symboldef,&param->nsymb,&param->msymb,argv[i]+2);
+ } else {
+ Usage(1);
+ }
+ } else {
+ Usage(1);
+ }
+ break;
+ case 'm':
+ switch (argv[i][2]) {
+ case 0:
+ param->rough=0.0;
+ return i;
+ case 'e':
+ if (argv[i][3]) Usage(1);
+ if (i+1<argc) {
+ param->maxerr=atoi(argv[++i]);
+ return i;
+ }
+ default:Usage(1);
+ }
+ Usage(1);
+ break;
+ case 's':
+ if (argv[i][2] && argv[i][3]) Usage(1);
+ switch (argv[i][2]) {
+ case 0:param->export_sym=1;return 0;
+ case 'z':
+ param->export_sym=5;return 0;
+ case 'm':
+ param->export_multisym=1;return 0;
+ case 'b':
+ param->export_snabrk=1;return 0;
+ case 'p':
+ param->export_sym=2;return 0;
+ case 'w':
+ param->export_sym=3;return 0;
+ case 'c':
+ if (i+1<argc) {
+ param->export_sym=4;
+ param->flexible_export=TxtStrDup(argv[++i]);
+ param->flexible_export=MemRealloc(param->flexible_export,strlen(param->flexible_export)+3);
+ strcat(param->flexible_export,"\n");
+ /* check export string */
+ if (_internal_check_flexible(param->flexible_export)) return i; else Usage(1);
+ }
+ Usage(1);
+ case 'l':
+ param->export_local=1;return 0;
+ case 'v':
+ param->export_var=1;return 0;
+ case 'q':
+ param->export_equ=1;return 0;
+ case 'a':
+ param->export_local=1;
+ param->export_var=1;
+ param->export_equ=1;
+ return 0;
+ case 's':
+ param->export_local=1;
+ param->export_sym=1;
+ param->export_sna=1;return 0;
+ default:
+ break;
+ }
+ Usage(1);
+ case 'l':
+ if (argv[i][2]) Usage(1);
+ if (i+1<argc) {
+ FieldArrayAddDynamicValue(&param->labelfilename,argv[++i]);
+ break;
+ }
+ Usage(1);
+ case 'i':
+printf("@@@\n@@@ --> deprecated option, there is no need to use -i option to set input file <--\n@@@\n");
+ Usage(0);
+ case 'o':
+ if (argv[i][2] && argv[i][3]) Usage(1);
+ switch (argv[i][2]) {
+ case 0:
+ if (i+1<argc && param->outputfilename==NULL) {
+ param->outputfilename=argv[++i];
+ break;
+ }
+ Usage(1);
+ case 'a':
+ param->automatic_radix=1;
+ break;
+ case 't':
+ if (i+1<argc && param->tape_name==NULL) {
+ param->tape_name=argv[++i];
+ break;
+ }
+ Usage(1);
+ case 'i':
+ if (i+1<argc && param->snapshot_name==NULL) {
+ param->snapshot_name=argv[++i];
+ break;
+ }
+ Usage(1);
+ case 'b':
+ if (i+1<argc && param->binary_name==NULL) {
+ param->binary_name=argv[++i];
+ break;
+ }
+ Usage(1);
+ case 'c':
+ if (i+1<argc && param->cartridge_name==NULL) {
+ param->cartridge_name=argv[++i];
+ break;
+ }
+ Usage(1);
+ case 'k':
+ if (i+1<argc && param->breakpoint_name==NULL) {
+ param->breakpoint_name=argv[++i];
+ break;
+ }
+ Usage(1);
+ case 's':
+ if (i+1<argc && param->symbol_name==NULL) {
+ param->symbol_name=argv[++i];
+ break;
+ }
+ Usage(1);
+ default:
+ Usage(1);
+ }
+ break;
+ case 'd':if (!argv[i][2]) printf("deprecated option -d\n"); else Usage(1);
+ break;
+ case 'a':if (!argv[i][2]) printf("deprecated option -a\n"); else Usage(1);
+ break;
+ case 'c':if (!argv[i][2]) printf("deprecated option -c\n"); else Usage(1);
+ break;
+ case 'v':
+ if (!argv[i][2]) {
+ printf("deprecated option -v\n");
+ } else if (argv[i][2]=='2') {
+ param->v2=1;
+ }
+ break;
+ case 'n':if (!argv[i][2]) Licenses(); else Usage(1);
+ case 'h':Usage(1);
+ default:
+ Usage(1);
+ }
+ } else {
+ if (param->filename==NULL) {
+ param->filename=TxtStrDup(argv[i]);
+ } else if (param->outputfilename==NULL) {
+ param->outputfilename=argv[i];
+ } else Usage(1);
+ }
+ return i;
+}
+
+/*
+ GetParametersFromCommandLine
+ retrieve parameters from command line and fill pointers to file names
+*/
+void GetParametersFromCommandLine(int argc, char **argv, struct s_parameter *param)
+{
+ #undef FUNC
+ #define FUNC "GetParametersFromCommandLine"
+ int i;
+
+ for (i=1;i<argc;i++)
+ i+=ParseOptions(&argv[i],argc-i,param);
+
+ if (!param->filename) Usage(0);
+ if (param->export_local && !param->export_sym) Usage(1); // à revoir?
+}
+
+/*
+ main
+
+ check parameters
+ execute the main processing
+*/
+
+
+int main(int argc, char **argv)
+{
+ #undef FUNC
+ #define FUNC "main"
+
+ struct s_parameter param={0};
+ int ret;
+
+ param.maxerr=20;
+ param.rough=0.5;
+
+ GetParametersFromCommandLine(argc,argv,&param);
+ ret=Rasm(&param);
+ #ifdef RDD
+ /* private dev lib tools */
+printf("checking memory\n");
+ CloseLibrary();
+ #endif
+ exit(ret);
+ return 0; // Open WATCOM Warns without this...
+}
+
+#endif
+
+
generated by cgit v1.2.3 (git 2.39.1) at 2024-09-19 23:59:05 +0000