123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898 |
- /* Copyright (C) 2016 Jeremiah Orians
- * This file is part of stage0.
- *
- * stage0 is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * stage0 is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with stage0. If not, see <http://www.gnu.org/licenses/>.
- */
- #include "vm.h"
- uint64_t performance_counter;
- #ifdef TRACE
- void record_trace(char* c);
- void print_traces();
- #endif
- /* Allocate and intialize memory/state */
- struct lilith* create_vm(size_t size)
- {
- performance_counter = 0;
- struct lilith* vm;
- vm = calloc(1, sizeof(struct lilith));
- vm->memory = calloc(size, sizeof(uint8_t));
- vm->amount_of_Ram = size;
- vm->halted = false;
- vm->exception = false;
- return vm;
- }
- /* Free up the memory we previously allocated */
- void destroy_vm(struct lilith* vm)
- {
- free(vm->memory);
- free(vm);
- }
- /* Validate Memory Addresses*/
- void outside_of_world(struct lilith* vm, unsigned_vm_register place, char* message)
- {
- if(vm->amount_of_Ram <= place)
- {
- fprintf(stderr, "Invalid state reached after: %lu instructions\n", performance_counter);
- fprintf(stderr, "%i: %s\n", place, message);
- vm->halted = true;
- #ifdef TRACE
- record_trace("HALT");
- print_traces();
- #endif
- exit(EXIT_FAILURE);
- }
- }
- /* Deal with illegal instructions and their encodings */
- void illegal_instruction(struct lilith* vm, struct Instruction* c)
- {
- fprintf(stderr, "Invalid instruction was received at address:%08X\n", c->ip);
- fprintf(stderr, "After %lu instructions\n", performance_counter);
- fprintf(stderr, "Unable to execute the following instruction:\n\t%s\n", c->operation);
- c->invalid = true;
- vm->halted = true;
- #ifdef DEBUG
- fprintf(stderr, "Computer Program has Halted\n");
- #endif
- #ifdef TRACE
- record_trace("HALT");
- print_traces();
- #endif
- exit(EXIT_FAILURE);
- }
- /* Deal with 4OP */
- void decode_4OP(struct Instruction* c)
- {
- c->raw_XOP = c->raw1;
- c->XOP[0] = c->operation[2];
- c->XOP[1] = c->operation[3];
- c->raw_Immediate = 0;
- c->reg0 = c->raw2/16;
- c->reg1 = c->raw2%16;
- c->reg2 = c->raw3/16;
- c->reg3 = c->raw3%16;
- }
- /* Deal with 3OP */
- void decode_3OP(struct Instruction* c)
- {
- c->raw_XOP = c->raw1*0x10 + c->raw2/16;
- c->XOP[0] = c->operation[2];
- c->XOP[1] = c->operation[3];
- c->XOP[2] = c->operation[4];
- c->raw_Immediate = 0;
- c->reg0 = c->raw2%16;
- c->reg1 = c->raw3/16;
- c->reg2 = c->raw3%16;
- }
- /* Deal with 2OP */
- void decode_2OP(struct Instruction* c)
- {
- c->raw_XOP = c->raw1*0x100 + c->raw2;
- c->XOP[0] = c->operation[2];
- c->XOP[1] = c->operation[3];
- c->XOP[2] = c->operation[4];
- c->XOP[3] = c->operation[5];
- c->raw_Immediate = 0;
- c->reg0 = c->raw3/16;
- c->reg1 = c->raw3%16;
- }
- /* Deal with 1OP */
- void decode_1OP(struct Instruction* c)
- {
- c->raw_XOP = c->raw1*0x1000 + c->raw2*0x10 + c->raw3/16;
- c->XOP[0] = c->operation[2];
- c->XOP[1] = c->operation[3];
- c->XOP[2] = c->operation[4];
- c->XOP[3] = c->operation[5];
- c->XOP[4] = c->operation[6];
- c->raw_Immediate = 0;
- c->reg0 = c->raw3%16;
- }
- /* Deal with 2OPI */
- void decode_2OPI(struct lilith* vm, struct Instruction* c)
- {
- c->raw_Immediate = (uint8_t)vm->memory[vm->ip];
- vm->ip = vm->ip + 1;
- uint8_t hold = (uint8_t)vm->memory[vm->ip];
- vm->ip = vm->ip + 1;
- c->raw_Immediate = c->raw_Immediate*0x100 + hold;
- c->Immediate[0] = c->operation[4];
- c->Immediate[1] = c->operation[5];
- c->Immediate[2] = c->operation[6];
- c->Immediate[3] = c->operation[7];
- c->reg0 = c->raw3/16;
- c->reg1 = c->raw3%16;
- }
- /* Deal with 1OPI */
- void decode_1OPI(struct lilith* vm, struct Instruction* c)
- {
- c->raw_Immediate = (uint8_t)vm->memory[vm->ip];
- vm->ip = vm->ip + 1;
- uint8_t hold = (uint8_t)vm->memory[vm->ip];
- vm->ip = vm->ip + 1;
- c->raw_Immediate = c->raw_Immediate*0x100 + hold;
- c->Immediate[0] = c->operation[4];
- c->Immediate[1] = c->operation[5];
- c->Immediate[2] = c->operation[6];
- c->Immediate[3] = c->operation[7];
- c->HAL_CODE = 0;
- c->raw_XOP = c->raw3/16;
- c->XOP[0] = c->operation[7];
- c->reg0 = c->raw3%16;
- }
- /* Deal with 0OPI */
- void decode_0OPI(struct Instruction* c)
- {
- c->raw_Immediate = c->raw2*0x100 + c->raw3;
- c->Immediate[0] = c->operation[4];
- c->Immediate[1] = c->operation[5];
- c->Immediate[2] = c->operation[6];
- c->Immediate[3] = c->operation[7];
- c->HAL_CODE = 0;
- c->raw_XOP = c->raw1;
- c->XOP[0] = c->operation[2];
- c->XOP[1] = c->operation[3];
- }
- /* Deal with Halcode */
- void decode_HALCODE(struct Instruction* c)
- {
- c->HAL_CODE = c->raw1*0x10000 + c->raw2*0x100 + c->raw3;
- }
- /* Useful unpacking functions */
- void unpack_byte(uint8_t a, char* c)
- {
- char table[16] = {0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46};
- c[0] = table[a / 16];
- c[1] = table[a % 16];
- }
- /* Unpack the full instruction */
- void unpack_instruction(struct Instruction* c)
- {
- unpack_byte(c->raw0, &(c->operation[0]));
- unpack_byte(c->raw1, &(c->operation[2]));
- unpack_byte(c->raw2, &(c->operation[4]));
- unpack_byte(c->raw3, &(c->operation[6]));
- c->opcode[0] = c->operation[0];
- c->opcode[1] = c->operation[1];
- }
- /* Load instruction addressed at IP */
- void read_instruction(struct lilith* vm, struct Instruction *current)
- {
- memset(current, 0, sizeof(struct Instruction));
- /* Store IP for debugging */
- current->ip = vm->ip;
- outside_of_world(vm, current->ip, "READ Instruction outside of World");
- /* Read the actual bytes and increment the IP */
- current->raw0 = (uint8_t)vm->memory[vm->ip];
- vm->ip = vm->ip + 1;
- current->raw1 = (uint8_t)vm->memory[vm->ip];
- vm->ip = vm->ip + 1;
- current->raw2 = (uint8_t)vm->memory[vm->ip];
- vm->ip = vm->ip + 1;
- current->raw3 = (uint8_t)vm->memory[vm->ip];
- vm->ip = vm->ip + 1;
- unpack_instruction(current);
- }
- /* Process HALCODE instructions */
- bool eval_HALCODE(struct lilith* vm, struct Instruction* c)
- {
- #ifdef DEBUG
- char Name[20] = "ILLEGAL_HALCODE";
- #endif
- if(POSIX_MODE)
- {
- switch(c->HAL_CODE)
- {
- case 0x000000: /* sys_read */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_READ", 19);
- #elif TRACE
- record_trace("SYS_READ");
- #endif
- vm_SYS_READ(vm);
- break;
- }
- case 0x000001: /* sys_write */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_WRITE", 19);
- #elif TRACE
- record_trace("SYS_WRITE");
- #endif
- vm_SYS_WRITE(vm);
- break;
- }
- case 0x000002: /* sys_fopen */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_FOPEN", 19);
- #elif TRACE
- record_trace("SYS_FOPEN");
- #endif
- vm_SYS_FOPEN(vm);
- break;
- }
- case 0x000003: /* sys_fclose */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_FCLOSE", 19);
- #elif TRACE
- record_trace("SYS_FCLOSE");
- #endif
- vm_SYS_FCLOSE(vm);
- break;
- }
- case 0x000008: /* sys_fseek */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_FSEEK", 19);
- #elif TRACE
- record_trace("SYS_FSEEK");
- #endif
- vm_SYS_FSEEK(vm);
- break;
- }
- case 0x000015: /* sys_access */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_ACCESS", 19);
- #elif TRACE
- record_trace("SYS_ACCESS");
- #endif
- vm_SYS_ACCESS(vm);
- break;
- }
- case 0x00003C: /* sys_exit */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_EXIT", 19);
- #elif TRACE
- record_trace("SYS_EXIT");
- #endif
- vm_SYS_EXIT(vm, performance_counter);
- break;
- }
- case 0x00003F: /* sys_uname */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_UNAME", 19);
- #elif TRACE
- record_trace("SYS_UNAME");
- #endif
- vm_SYS_UNAME(vm);
- break;
- }
- case 0x00004F: /* sys_getcwd */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_GETCWD", 19);
- #elif TRACE
- record_trace("SYS_GETCWD");
- #endif
- vm_SYS_GETCWD(vm);
- break;
- }
- case 0x000050: /* sys_chdir */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_CHDIR", 19);
- #elif TRACE
- record_trace("SYS_CHDIR");
- #endif
- vm_SYS_CHDIR(vm);
- break;
- }
- case 0x000051: /* sys_fchdir */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_FCHDIR", 19);
- #elif TRACE
- record_trace("SYS_FCHDIR");
- #endif
- vm_SYS_FCHDIR(vm);
- break;
- }
- case 0x00005A: /* sys_chmod */
- {
- #ifdef DEBUG
- strncpy(Name, "SYS_CHMOD", 19);
- #elif TRACE
- record_trace("SYS_CHMOD");
- #endif
- vm_SYS_CHMOD(vm);
- break;
- }
- default:
- {
- fprintf(stderr, "Invalid HALCODE\nComputer Program has Halted\n");
- illegal_instruction(vm, c);
- break;
- }
- }
- }
- else
- {
- switch(c->HAL_CODE)
- {
- case 0x100000: /* fopen_read */
- {
- #ifdef DEBUG
- strncpy(Name, "FOPEN_READ", 19);
- #elif TRACE
- record_trace("FOPEN_READ");
- #endif
- vm_FOPEN_READ(vm);
- break;
- }
- case 0x100001: /* fopen_write */
- {
- #ifdef DEBUG
- strncpy(Name, "FOPEN_WRITE", 19);
- #elif TRACE
- record_trace("FOPEN_WRITE");
- #endif
- vm_FOPEN_WRITE(vm);
- break;
- }
- case 0x100002: /* fclose */
- {
- #ifdef DEBUG
- strncpy(Name, "FCLOSE", 19);
- #elif TRACE
- record_trace("FCLOSE");
- #endif
- vm_FCLOSE(vm);
- break;
- }
- case 0x100003: /* rewind */
- {
- #ifdef DEBUG
- strncpy(Name, "REWIND", 19);
- #elif TRACE
- record_trace("REWIND");
- #endif
- vm_REWIND(vm);
- break;
- }
- case 0x100100: /* fgetc */
- {
- #ifdef DEBUG
- strncpy(Name, "FGETC", 19);
- #elif TRACE
- record_trace("FGETC");
- #endif
- vm_FGETC(vm);
- break;
- }
- case 0x100200: /* fputc */
- {
- #ifdef DEBUG
- strncpy(Name, "FPUTC", 19);
- #elif TRACE
- record_trace("FPUTC");
- #endif
- vm_FPUTC(vm);
- break;
- }
- case 0x110000: /* HAL_MEM */
- {
- #ifdef DEBUG
- strncpy(Name, "HAL_MEM", 19);
- #elif TRACE
- record_trace("HAL_MEM");
- #endif
- vm_HAL_MEM(vm);
- break;
- }
- default:
- {
- fprintf(stderr, "Invalid HALCODE\nComputer Program has Halted\n");
- illegal_instruction(vm, c);
- break;
- }
- }
- }
- #ifdef DEBUG
- fprintf(stdout, "# %s\n", Name);
- #endif
- return false;
- }
- /* Process 4OP Integer instructions */
- bool eval_4OP_Int(struct lilith* vm, struct Instruction* c)
- {
- #ifdef DEBUG
- char Name[20] = "ILLEGAL_4OP";
- #endif
- switch(c->raw_XOP)
- {
- case 0x00: /* ADD.CI */
- {
- #ifdef DEBUG
- strncpy(Name, "ADD.CI", 19);
- #elif TRACE
- record_trace("ADD.CI");
- #endif
- ADD_CI(vm, c);
- break;
- }
- case 0x01: /* ADD.CO */
- {
- #ifdef DEBUG
- strncpy(Name, "ADD.CO", 19);
- #elif TRACE
- record_trace("ADD.CO");
- #endif
- ADD_CO(vm, c);
- break;
- }
- case 0x02: /* ADD.CIO */
- {
- #ifdef DEBUG
- strncpy(Name, "ADD.CIO", 19);
- #elif TRACE
- record_trace("ADD.CIO");
- #endif
- ADD_CIO(vm, c);
- break;
- }
- case 0x03: /* ADDU.CI */
- {
- #ifdef DEBUG
- strncpy(Name, "ADDU.CI", 19);
- #elif TRACE
- record_trace("ADDU.CI");
- #endif
- ADDU_CI(vm, c);
- break;
- }
- case 0x04: /* ADDU.CO */
- {
- #ifdef DEBUG
- strncpy(Name, "ADDU.CO", 19);
- #elif TRACE
- record_trace("ADDU.CO");
- #endif
- ADDU_CO(vm, c);
- break;
- }
- case 0x05: /* ADDU.CIO */
- {
- #ifdef DEBUG
- strncpy(Name, "ADDU.CIO", 19);
- #elif TRACE
- record_trace("ADDU.CIO");
- #endif
- ADDU_CIO(vm, c);
- break;
- }
- case 0x06: /* SUB.BI */
- {
- #ifdef DEBUG
- strncpy(Name, "SUB.BI", 19);
- #elif TRACE
- record_trace("SUB.BI");
- #endif
- SUB_BI(vm, c);
- break;
- }
- case 0x07: /* SUB.BO */
- {
- #ifdef DEBUG
- strncpy(Name, "SUB.BO", 19);
- #elif TRACE
- record_trace("SUB.BO");
- #endif
- SUB_BO(vm, c);
- break;
- }
- case 0x08: /* SUB.BIO */
- {
- #ifdef DEBUG
- strncpy(Name, "SUB.BIO", 19);
- #elif TRACE
- record_trace("SUB.BIO");
- #endif
- SUB_BIO(vm, c);
- break;
- }
- case 0x09: /* SUBU.BI */
- {
- #ifdef DEBUG
- strncpy(Name, "SUBU.BI", 19);
- #elif TRACE
- record_trace("SUBU.BI");
- #endif
- SUBU_BI(vm, c);
- break;
- }
- case 0x0A: /* SUBU.BO */
- {
- #ifdef DEBUG
- strncpy(Name, "SUBU.BO", 19);
- #elif TRACE
- record_trace("SUBU.BO");
- #endif
- SUBU_BO(vm, c);
- break;
- }
- case 0x0B: /* SUBU.BIO */
- {
- #ifdef DEBUG
- strncpy(Name, "SUBU.BIO", 19);
- #elif TRACE
- record_trace("SUBU.BIO");
- #endif
- SUBU_BIO(vm, c);
- break;
- }
- case 0x0C: /* MULTIPLY */
- {
- #ifdef DEBUG
- strncpy(Name, "MULTIPLY", 19);
- #elif TRACE
- record_trace("MULTIPLY");
- #endif
- MULTIPLY(vm, c);
- break;
- }
- case 0x0D: /* MULTIPLYU */
- {
- #ifdef DEBUG
- strncpy(Name, "MULTIPLYU", 19);
- #elif TRACE
- record_trace("MULTIPLYU");
- #endif
- MULTIPLYU(vm, c);
- break;
- }
- case 0x0E: /* DIVIDE */
- {
- #ifdef DEBUG
- strncpy(Name, "DIVIDE", 19);
- #elif TRACE
- record_trace("DIVIDE");
- #endif
- DIVIDE(vm, c);
- break;
- }
- case 0x0F: /* DIVIDEU */
- {
- #ifdef DEBUG
- strncpy(Name, "DIVIDEU", 19);
- #elif TRACE
- record_trace("DIVIDEU");
- #endif
- DIVIDEU(vm, c);
- break;
- }
- case 0x10: /* MUX */
- {
- #ifdef DEBUG
- strncpy(Name, "MUX", 19);
- #elif TRACE
- record_trace("MUX");
- #endif
- MUX(vm, c);
- break;
- }
- case 0x11: /* NMUX */
- {
- #ifdef DEBUG
- strncpy(Name, "NMUX", 19);
- #elif TRACE
- record_trace("NMUX");
- #endif
- NMUX(vm, c);
- break;
- }
- case 0x12: /* SORT */
- {
- #ifdef DEBUG
- strncpy(Name, "SORT", 19);
- #elif TRACE
- record_trace("SORT");
- #endif
- SORT(vm, c);
- break;
- }
- case 0x13: /* SORTU */
- {
- #ifdef DEBUG
- strncpy(Name, "SORTU", 19);
- #elif TRACE
- record_trace("SORTU");
- #endif
- SORTU(vm, c);
- break;
- }
- default:
- {
- illegal_instruction(vm, c);
- break;
- }
- }
- #ifdef DEBUG
- fprintf(stdout, "# %s reg%u reg%u reg%u reg%u\n", Name, c->reg0, c->reg1, c->reg2, c->reg3);
- #endif
- return false;
- }
- /* Process 3OP Integer instructions */
- bool eval_3OP_Int(struct lilith* vm, struct Instruction* c)
- {
- #ifdef DEBUG
- char Name[20] = "ILLEGAL_3OP";
- #endif
- switch(c->raw_XOP)
- {
- case 0x000: /* ADD */
- {
- #ifdef DEBUG
- strncpy(Name, "ADD", 19);
- #elif TRACE
- record_trace("ADD");
- #endif
- ADD(vm, c);
- break;
- }
- case 0x001: /* ADDU */
- {
- #ifdef DEBUG
- strncpy(Name, "ADDU", 19);
- #elif TRACE
- record_trace("ADDU");
- #endif
- ADDU(vm, c);
- break;
- }
- case 0x002: /* SUB */
- {
- #ifdef DEBUG
- strncpy(Name, "SUB", 19);
- #elif TRACE
- record_trace("SUB");
- #endif
- SUB(vm, c);
- break;
- }
- case 0x003: /* SUBU */
- {
- #ifdef DEBUG
- strncpy(Name, "SUBU", 19);
- #elif TRACE
- record_trace("SUBU");
- #endif
- SUBU(vm, c);
- break;
- }
- case 0x004: /* CMP */
- {
- #ifdef DEBUG
- strncpy(Name, "CMP", 19);
- #elif TRACE
- record_trace("CMP");
- #endif
- CMP(vm, c);
- break;
- }
- case 0x005: /* CMPU */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPU", 19);
- #elif TRACE
- record_trace("CMPU");
- #endif
- CMPU(vm, c);
- break;
- }
- case 0x006: /* MUL */
- {
- #ifdef DEBUG
- strncpy(Name, "MUL", 19);
- #elif TRACE
- record_trace("MUL");
- #endif
- MUL(vm, c);
- break;
- }
- case 0x007: /* MULH */
- {
- #ifdef DEBUG
- strncpy(Name, "MULH", 19);
- #elif TRACE
- record_trace("MULH");
- #endif
- MULH(vm, c);
- break;
- }
- case 0x008: /* MULU */
- {
- #ifdef DEBUG
- strncpy(Name, "MULU", 19);
- #elif TRACE
- record_trace("MULU");
- #endif
- MULU(vm, c);
- break;
- }
- case 0x009: /* MULUH */
- {
- #ifdef DEBUG
- strncpy(Name, "MULUH", 19);
- #elif TRACE
- record_trace("MULUH");
- #endif
- MULUH(vm, c);
- break;
- }
- case 0x00A: /* DIV */
- {
- #ifdef DEBUG
- strncpy(Name, "DIV", 19);
- #elif TRACE
- record_trace("DIV");
- #endif
- DIV(vm, c);
- break;
- }
- case 0x00B: /* MOD */
- {
- #ifdef DEBUG
- strncpy(Name, "MOD", 19);
- #elif TRACE
- record_trace("MOD");
- #endif
- MOD(vm, c);
- break;
- }
- case 0x00C: /* DIVU */
- {
- #ifdef DEBUG
- strncpy(Name, "DIVU", 19);
- #elif TRACE
- record_trace("DIVU");
- #endif
- DIVU(vm, c);
- break;
- }
- case 0x00D: /* MODU */
- {
- #ifdef DEBUG
- strncpy(Name, "MODU", 19);
- #elif TRACE
- record_trace("MODU");
- #endif
- MODU(vm, c);
- break;
- }
- case 0x010: /* MAX */
- {
- #ifdef DEBUG
- strncpy(Name, "MAX", 19);
- #elif TRACE
- record_trace("MAX");
- #endif
- MAX(vm, c);
- break;
- }
- case 0x011: /* MAXU */
- {
- #ifdef DEBUG
- strncpy(Name, "MAXU", 19);
- #elif TRACE
- record_trace("MAXU");
- #endif
- MAXU(vm, c);
- break;
- }
- case 0x012: /* MIN */
- {
- #ifdef DEBUG
- strncpy(Name, "MIN", 19);
- #elif TRACE
- record_trace("MIN");
- #endif
- MIN(vm, c);
- break;
- }
- case 0x013: /* MINU */
- {
- #ifdef DEBUG
- strncpy(Name, "MINU", 19);
- #elif TRACE
- record_trace("MINU");
- #endif
- MINU(vm, c);
- break;
- }
- case 0x014: /* PACK */
- case 0x015: /* UNPACK */
- case 0x016: /* PACK8.CO */
- case 0x017: /* PACK8U.CO */
- case 0x018: /* PACK16.CO */
- case 0x019: /* PACK16U.CO */
- case 0x01A: /* PACK32.CO */
- case 0x01B: /* PACK32U.CO */
- {
- illegal_instruction(vm, c);
- break;
- }
- case 0x020: /* AND */
- {
- #ifdef DEBUG
- strncpy(Name, "AND", 19);
- #elif TRACE
- record_trace("AND");
- #endif
- AND(vm, c);
- break;
- }
- case 0x021: /* OR */
- {
- #ifdef DEBUG
- strncpy(Name, "OR", 19);
- #elif TRACE
- record_trace("OR");
- #endif
- OR(vm, c);
- break;
- }
- case 0x022: /* XOR */
- {
- #ifdef DEBUG
- strncpy(Name, "XOR", 19);
- #elif TRACE
- record_trace("XOR");
- #endif
- XOR(vm, c);
- break;
- }
- case 0x023: /* NAND */
- {
- #ifdef DEBUG
- strncpy(Name, "NAND", 19);
- #elif TRACE
- record_trace("NAND");
- #endif
- NAND(vm, c);
- break;
- }
- case 0x024: /* NOR */
- {
- #ifdef DEBUG
- strncpy(Name, "NOR", 19);
- #elif TRACE
- record_trace("NOR");
- #endif
- NOR(vm, c);
- break;
- }
- case 0x025: /* XNOR */
- {
- #ifdef DEBUG
- strncpy(Name, "XNOR", 19);
- #elif TRACE
- record_trace("XNOR");
- #endif
- XNOR(vm, c);
- break;
- }
- case 0x026: /* MPQ */
- {
- #ifdef DEBUG
- strncpy(Name, "MPQ", 19);
- #elif TRACE
- record_trace("MPQ");
- #endif
- MPQ(vm, c);
- break;
- }
- case 0x027: /* LPQ */
- {
- #ifdef DEBUG
- strncpy(Name, "LPQ", 19);
- #elif TRACE
- record_trace("LPQ");
- #endif
- LPQ(vm, c);
- break;
- }
- case 0x028: /* CPQ */
- {
- #ifdef DEBUG
- strncpy(Name, "CPQ", 19);
- #elif TRACE
- record_trace("CPQ");
- #endif
- CPQ(vm, c);
- break;
- }
- case 0x029: /* BPQ */
- {
- #ifdef DEBUG
- strncpy(Name, "BPQ", 19);
- #elif TRACE
- record_trace("BPQ");
- #endif
- BPQ(vm, c);
- break;
- }
- case 0x030: /* SAL */
- {
- #ifdef DEBUG
- strncpy(Name, "SAL", 19);
- #elif TRACE
- record_trace("SAL");
- #endif
- SAL(vm, c);
- break;
- }
- case 0x031: /* SAR */
- {
- #ifdef DEBUG
- strncpy(Name, "SAR", 19);
- #elif TRACE
- record_trace("SAR");
- #endif
- SAR(vm, c);
- break;
- }
- case 0x032: /* SL0 */
- {
- #ifdef DEBUG
- strncpy(Name, "SL0", 19);
- #elif TRACE
- record_trace("SL0");
- #endif
- SL0(vm, c);
- break;
- }
- case 0x033: /* SR0 */
- {
- #ifdef DEBUG
- strncpy(Name, "SR0", 19);
- #elif TRACE
- record_trace("SR0");
- #endif
- SR0(vm, c);
- break;
- }
- case 0x034: /* SL1 */
- {
- #ifdef DEBUG
- strncpy(Name, "SL1", 19);
- #elif TRACE
- record_trace("SL1");
- #endif
- SL1(vm, c);
- break;
- }
- case 0x035: /* SR1 */
- {
- #ifdef DEBUG
- strncpy(Name, "SR1", 19);
- #elif TRACE
- record_trace("SR1");
- #endif
- SR1(vm, c);
- break;
- }
- case 0x036: /* ROL */
- {
- #ifdef DEBUG
- strncpy(Name, "ROL", 19);
- #elif TRACE
- record_trace("ROL");
- #endif
- ROL(vm, c);
- break;
- }
- case 0x037: /* ROR */
- {
- #ifdef DEBUG
- strncpy(Name, "ROR", 19);
- #elif TRACE
- record_trace("ROR");
- #endif
- ROR(vm, c);
- break;
- }
- case 0x038: /* LOADX */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADX", 19);
- #elif TRACE
- record_trace("LOADX");
- #endif
- LOADX(vm, c);
- break;
- }
- case 0x039: /* LOADX8 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADX8", 19);
- #elif TRACE
- record_trace("LOADX8");
- #endif
- LOADX8(vm, c);
- break;
- }
- case 0x03A: /* LOADXU8 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADXU8", 19);
- #elif TRACE
- record_trace("LOADXU8");
- #endif
- LOADXU8(vm, c);
- break;
- }
- case 0x03B: /* LOADX16 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADX16", 19);
- #elif TRACE
- record_trace("LOADX16");
- #endif
- LOADX16(vm, c);
- break;
- }
- case 0x03C: /* LOADXU16 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADXU16", 19);
- #elif TRACE
- record_trace("LOADXU16");
- #endif
- LOADXU16(vm, c);
- break;
- }
- case 0x03D: /* LOADX32 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADX32", 19);
- #elif TRACE
- record_trace("LOADX32");
- #endif
- LOADX32(vm, c);
- break;
- }
- case 0x03E: /* LOADXU32 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADXU32", 19);
- #elif TRACE
- record_trace("LOADXU32");
- #endif
- LOADXU32(vm, c);
- break;
- }
- case 0x048: /* STOREX */
- {
- #ifdef DEBUG
- strncpy(Name, "STOREX", 19);
- #elif TRACE
- record_trace("STOREX");
- #endif
- STOREX(vm, c);
- break;
- }
- case 0x049: /* STOREX8 */
- {
- #ifdef DEBUG
- strncpy(Name, "STOREX8", 19);
- #elif TRACE
- record_trace("STOREX8");
- #endif
- STOREX8(vm, c);
- break;
- }
- case 0x04A: /* STOREX16 */
- {
- #ifdef DEBUG
- strncpy(Name, "STOREX16", 19);
- #elif TRACE
- record_trace("STOREX16");
- #endif
- STOREX16(vm, c);
- break;
- }
- case 0x04B: /* STOREX32 */
- {
- #ifdef DEBUG
- strncpy(Name, "STOREX32", 19);
- #elif TRACE
- record_trace("STOREX32");
- #endif
- STOREX32(vm, c);
- break;
- }
- case 0x050: /* CMPJUMP.G */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMP.G", 19);
- #elif TRACE
- record_trace("CMPJUMP.G");
- #endif
- CMPJUMP_G(vm, c);
- break;
- }
- case 0x051: /* CMPJUMP.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMP.GE", 19);
- #elif TRACE
- record_trace("CMPJUMP.GE");
- #endif
- CMPJUMP_GE(vm, c);
- break;
- }
- case 0x052: /* CMPJUMP.E */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMP.E", 19);
- #elif TRACE
- record_trace("CMPJUMP.E");
- #endif
- CMPJUMP_E(vm, c);
- break;
- }
- case 0x053: /* CMPJUMP.NE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMP.NE", 19);
- #elif TRACE
- record_trace("CMPJUMP.NE");
- #endif
- CMPJUMP_NE(vm, c);
- break;
- }
- case 0x054: /* CMPJUMP.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMP.LE", 19);
- #elif TRACE
- record_trace("CMPJUMP.LE");
- #endif
- CMPJUMP_LE(vm, c);
- break;
- }
- case 0x055: /* CMPJUMP.L */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMP.L", 19);
- #elif TRACE
- record_trace("CMPJUMP.L");
- #endif
- CMPJUMP_L(vm, c);
- break;
- }
- case 0x060: /* CMPJUMPU.G */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPU.G", 19);
- #elif TRACE
- record_trace("CMPJUMPU.G");
- #endif
- CMPJUMPU_G(vm, c);
- break;
- }
- case 0x061: /* CMPJUMPU.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPU.GE", 19);
- #elif TRACE
- record_trace("CMPJUMPU.GE");
- #endif
- CMPJUMPU_GE(vm, c);
- break;
- }
- case 0x064: /* CMPJUMPU.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPU.LE", 19);
- #elif TRACE
- record_trace("CMPJUMPU.LE");
- #endif
- CMPJUMPU_LE(vm, c);
- break;
- }
- case 0x065: /* CMPJUMPU.L */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPU.L", 19);
- #elif TRACE
- record_trace("CMPJUMPU.L");
- #endif
- CMPJUMPU_L(vm, c);
- break;
- }
- default:
- {
- illegal_instruction(vm, c);
- break;
- }
- }
- #ifdef DEBUG
- fprintf(stdout, "# %s reg%u reg%u reg%u\n", Name, c->reg0, c->reg1, c->reg2);
- #endif
- return false;
- }
- /* Process 2OP Integer instructions */
- bool eval_2OP_Int(struct lilith* vm, struct Instruction* c)
- {
- #ifdef DEBUG
- char Name[20] = "ILLEGAL_2OP";
- #endif
- switch(c->raw_XOP)
- {
- case 0x0000: /* NEG */
- {
- #ifdef DEBUG
- strncpy(Name, "NEG", 19);
- #elif TRACE
- record_trace("NEG");
- #endif
- NEG(vm, c);
- break;
- }
- case 0x0001: /* ABS */
- {
- #ifdef DEBUG
- strncpy(Name, "ABS", 19);
- #elif TRACE
- record_trace("ABS");
- #endif
- ABS(vm, c);
- break;
- }
- case 0x0002: /* NABS */
- {
- #ifdef DEBUG
- strncpy(Name, "NABS", 19);
- #elif TRACE
- record_trace("NABS");
- #endif
- NABS(vm, c);
- break;
- }
- case 0x0003: /* SWAP */
- {
- #ifdef DEBUG
- strncpy(Name, "SWAP", 19);
- #elif TRACE
- record_trace("SWAP");
- #endif
- SWAP(vm, c);
- break;
- }
- case 0x0004: /* COPY */
- {
- #ifdef DEBUG
- strncpy(Name, "COPY", 19);
- #elif TRACE
- record_trace("COPY");
- #endif
- COPY(vm, c);
- break;
- }
- case 0x0005: /* MOVE */
- {
- #ifdef DEBUG
- strncpy(Name, "MOVE", 19);
- #elif TRACE
- record_trace("MOVE");
- #endif
- MOVE(vm, c);
- break;
- }
- case 0x0006: /* NOT */
- {
- #ifdef DEBUG
- strncpy(Name, "NOT", 19);
- #elif TRACE
- record_trace("NOT");
- #endif
- NOT(vm, c);
- break;
- }
- case 0x0100: /* BRANCH */
- {
- #ifdef DEBUG
- strncpy(Name, "BRANCH", 19);
- #elif TRACE
- record_trace("BRANCH");
- #endif
- BRANCH(vm, c);
- break;
- }
- case 0x0101: /* CALL */
- {
- #ifdef DEBUG
- strncpy(Name, "CALL", 19);
- #elif TRACE
- record_trace("CALL");
- #endif
- CALL(vm, c);
- break;
- }
- case 0x0200: /* PUSHR */
- {
- #ifdef DEBUG
- strncpy(Name, "PUSHR", 19);
- #elif TRACE
- record_trace("PUSHR");
- #endif
- PUSHR(vm, c);
- break;
- }
- case 0x0201: /* PUSH8 */
- {
- #ifdef DEBUG
- strncpy(Name, "PUSH8", 19);
- #elif TRACE
- record_trace("PUSH8");
- #endif
- PUSH8(vm, c);
- break;
- }
- case 0x0202: /* PUSH16 */
- {
- #ifdef DEBUG
- strncpy(Name, "PUSH16", 19);
- #elif TRACE
- record_trace("PUSH16");
- #endif
- PUSH16(vm, c);
- break;
- }
- case 0x0203: /* PUSH32 */
- {
- #ifdef DEBUG
- strncpy(Name, "PUSH32", 19);
- #elif TRACE
- record_trace("PUSH32");
- #endif
- PUSH32(vm, c);
- break;
- }
- case 0x0280: /* POPR */
- {
- #ifdef DEBUG
- strncpy(Name, "POPR", 19);
- #elif TRACE
- record_trace("POPR");
- #endif
- POPR(vm, c);
- break;
- }
- case 0x0281: /* POP8 */
- {
- #ifdef DEBUG
- strncpy(Name, "POP8", 19);
- #elif TRACE
- record_trace("POP8");
- #endif
- POP8(vm, c);
- break;
- }
- case 0x0282: /* POPU8 */
- {
- #ifdef DEBUG
- strncpy(Name, "POPU8", 19);
- #elif TRACE
- record_trace("POPU8");
- #endif
- POPU8(vm, c);
- break;
- }
- case 0x0283: /* POP16 */
- {
- #ifdef DEBUG
- strncpy(Name, "POP16", 19);
- #elif TRACE
- record_trace("POP16");
- #endif
- POP16(vm, c);
- break;
- }
- case 0x0284: /* POPU16 */
- {
- #ifdef DEBUG
- strncpy(Name, "POPU16", 19);
- #elif TRACE
- record_trace("POPU16");
- #endif
- POPU16(vm, c);
- break;
- }
- case 0x0285: /* POP32 */
- {
- #ifdef DEBUG
- strncpy(Name, "POP32", 19);
- #elif TRACE
- record_trace("POP32");
- #endif
- POP32(vm, c);
- break;
- }
- case 0x0286: /* POPU32 */
- {
- #ifdef DEBUG
- strncpy(Name, "POPU32", 19);
- #elif TRACE
- record_trace("POPU32");
- #endif
- POPU32(vm, c);
- break;
- }
- case 0x0300: /* CMPSKIP.G */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIP.G", 19);
- #elif TRACE
- record_trace("CMPSKIP.G");
- #endif
- CMPSKIP_G(vm, c);
- break;
- }
- case 0x0301: /* CMPSKIP.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIP.GE", 19);
- #elif TRACE
- record_trace("CMPSKIP.GE");
- #endif
- CMPSKIP_GE(vm, c);
- break;
- }
- case 0x0302: /* CMPSKIP.E */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIP.E", 19);
- #elif TRACE
- record_trace("CMPSKIP.E");
- #endif
- CMPSKIP_E(vm, c);
- break;
- }
- case 0x0303: /* CMPSKIP.NE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIP.NE", 19);
- #elif TRACE
- record_trace("CMPSKIP.NE");
- #endif
- CMPSKIP_NE(vm, c);
- break;
- }
- case 0x0304: /* CMPSKIP.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIP.LE", 19);
- #elif TRACE
- record_trace("CMPSKIP.LE");
- #endif
- CMPSKIP_LE(vm, c);
- break;
- }
- case 0x0305: /* CMPSKIP.L */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIP.L", 19);
- #elif TRACE
- record_trace("CMPSKIP.L");
- #endif
- CMPSKIP_L(vm, c);
- break;
- }
- case 0x0380: /* CMPSKIPU.G */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPU.G", 19);
- #elif TRACE
- record_trace("CMPSKIPU.G");
- #endif
- CMPSKIPU_G(vm, c);
- break;
- }
- case 0x0381: /* CMPSKIPU.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPU.GE", 19);
- #elif TRACE
- record_trace("CMPSKIPU.GE");
- #endif
- CMPSKIPU_GE(vm, c);
- break;
- }
- case 0x0384: /* CMPSKIPU.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPU.LE", 19);
- #elif TRACE
- record_trace("CMPSKIPU.LE");
- #endif
- CMPSKIPU_LE(vm, c);
- break;
- }
- case 0x0385: /* CMPSKIPU.L */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPU.L", 19);
- #elif TRACE
- record_trace("CMPSKIPU.L");
- #endif
- CMPSKIPU_L(vm, c);
- break;
- }
- default:
- {
- illegal_instruction(vm, c);
- break;
- }
- }
- #ifdef DEBUG
- fprintf(stdout, "# %s reg%u reg%u\n", Name, c->reg0, c->reg1);
- #endif
- return false;
- }
- /* Process 1OP Integer instructions */
- bool eval_1OP_Int(struct lilith* vm, struct Instruction* c)
- {
- #ifdef DEBUG
- char Name[20] = "ILLEGAL_1OP";
- #endif
- switch(c->raw_XOP)
- {
- case 0x00000: /* READPC */
- {
- #ifdef DEBUG
- strncpy(Name, "READPC", 19);
- #elif TRACE
- record_trace("READPC");
- #endif
- READPC(vm, c);
- break;
- }
- case 0x00001: /* READSCID */
- {
- #ifdef DEBUG
- strncpy(Name, "READSCID", 19);
- #elif TRACE
- record_trace("READSCID");
- #endif
- READSCID(vm, c);
- break;
- }
- case 0x00002: /* FALSE */
- {
- #ifdef DEBUG
- strncpy(Name, "FALSE", 19);
- #elif TRACE
- record_trace("FALSE");
- #endif
- FALSE(vm, c);
- break;
- }
- case 0x00003: /* TRUE */
- {
- #ifdef DEBUG
- strncpy(Name, "TRUE", 19);
- #elif TRACE
- record_trace("TRUE");
- #endif
- TRUE(vm, c);
- break;
- }
- case 0x01000: /* JSR_COROUTINE */
- {
- #ifdef DEBUG
- strncpy(Name, "JSR_COROUTINE", 19);
- #elif TRACE
- record_trace("JSR_COROUTINE");
- #endif
- JSR_COROUTINE(vm, c);
- break;
- }
- case 0x01001: /* RET */
- {
- #ifdef DEBUG
- strncpy(Name, "RET", 19);
- #elif TRACE
- record_trace("RET");
- #endif
- RET(vm, c);
- break;
- }
- case 0x02000: /* PUSHPC */
- {
- #ifdef DEBUG
- strncpy(Name, "PUSHPC", 19);
- #elif TRACE
- record_trace("PUSHPC");
- #endif
- PUSHPC(vm, c);
- break;
- }
- case 0x02001: /* POPPC */
- {
- #ifdef DEBUG
- strncpy(Name, "POPPC", 19);
- #elif TRACE
- record_trace("POPPC");
- #endif
- POPPC(vm, c);
- break;
- }
- default:
- {
- illegal_instruction(vm, c);
- break;
- }
- }
- #ifdef DEBUG
- fprintf(stdout, "# %s reg%u\n", Name, c->reg0);
- #endif
- return false;
- }
- /* Process 2OPI Integer instructions */
- bool eval_2OPI_Int(struct lilith* vm, struct Instruction* c)
- {
- #ifdef DEBUG
- char Name[20] = "ILLEGAL_2OPI";
- #endif
- /* 0x0E ... 0x2B */
- /* 0xB0 ... 0xDF */
- switch(c->raw2)
- {
- case 0x0: /* SET.G */
- {
- #ifdef DEBUG
- strncpy(Name, "SET.G", 19);
- #elif TRACE
- record_trace("SET.G");
- #endif
- SET_G(vm, c);
- break;
- }
- case 0x1: /* SET.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "SET.GE", 19);
- #elif TRACE
- record_trace("SET.GE");
- #endif
- SET_GE(vm, c);
- break;
- }
- case 0x2: /* SET.E */
- {
- #ifdef DEBUG
- strncpy(Name, "SET.E", 19);
- #elif TRACE
- record_trace("SET.E");
- #endif
- SET_E(vm, c);
- break;
- }
- case 0x3: /* SET.NE */
- {
- #ifdef DEBUG
- strncpy(Name, "SET.NE", 19);
- #elif TRACE
- record_trace("SET.NE");
- #endif
- SET_NE(vm, c);
- break;
- }
- case 0x4: /* SET.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "SET.LE", 19);
- #elif TRACE
- record_trace("SET.LE");
- #endif
- SET_LE(vm, c);
- break;
- }
- case 0x5: /* SET.L */
- {
- #ifdef DEBUG
- strncpy(Name, "SET.L", 19);
- #elif TRACE
- record_trace("SET.L");
- #endif
- SET_L(vm, c);
- break;
- }
- case 0x0E: /* ADDI */
- {
- #ifdef DEBUG
- strncpy(Name, "ADDI", 19);
- #elif TRACE
- record_trace("ADDI");
- #endif
- ADDI(vm, c);
- break;
- }
- case 0x0F: /* ADDUI */
- {
- #ifdef DEBUG
- strncpy(Name, "ADDUI", 19);
- #elif TRACE
- record_trace("ADDUI");
- #endif
- ADDUI(vm, c);
- break;
- }
- case 0x10: /* SUBI */
- {
- #ifdef DEBUG
- strncpy(Name, "SUBI", 19);
- #elif TRACE
- record_trace("SUBI");
- #endif
- SUBI(vm, c);
- break;
- }
- case 0x11: /* SUBUI */
- {
- #ifdef DEBUG
- strncpy(Name, "SUBUI", 19);
- #elif TRACE
- record_trace("SUBUI");
- #endif
- SUBUI(vm, c);
- break;
- }
- case 0x12: /* CMPI */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPI", 19);
- #elif TRACE
- record_trace("CMPI");
- #endif
- CMPI(vm, c);
- break;
- }
- case 0x13: /* LOAD */
- {
- #ifdef DEBUG
- strncpy(Name, "LOAD", 19);
- #elif TRACE
- record_trace("LOAD");
- #endif
- LOAD(vm, c);
- break;
- }
- case 0x14: /* LOAD8 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOAD8", 19);
- #elif TRACE
- record_trace("LOAD8");
- #endif
- LOAD8(vm, c);
- break;
- }
- case 0x15: /* LOADU8 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADU8", 19);
- #elif TRACE
- record_trace("LOADU8");
- #endif
- LOADU8(vm, c);
- break;
- }
- case 0x16: /* LOAD16 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOAD16", 19);
- #elif TRACE
- record_trace("LOAD16");
- #endif
- LOAD16(vm, c);
- break;
- }
- case 0x17: /* LOADU16 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADU16", 19);
- #elif TRACE
- record_trace("LOADU16");
- #endif
- LOADU16(vm, c);
- break;
- }
- case 0x18: /* LOAD32 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOAD32", 19);
- #elif TRACE
- record_trace("LOAD32");
- #endif
- LOAD32(vm, c);
- break;
- }
- case 0x19: /* LOADU32 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADU32", 19);
- #elif TRACE
- record_trace("LOADU32");
- #endif
- LOADU32(vm, c);
- break;
- }
- case 0x1F: /* CMPUI */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPUI", 19);
- #elif TRACE
- record_trace("CMPUI");
- #endif
- CMPUI(vm, c);
- break;
- }
- case 0x20: /* STORE */
- {
- #ifdef DEBUG
- strncpy(Name, "STORE", 19);
- #elif TRACE
- record_trace("STORE");
- #endif
- STORE(vm, c);
- break;
- }
- case 0x21: /* STORE8 */
- {
- #ifdef DEBUG
- strncpy(Name, "STORE8", 19);
- #elif TRACE
- record_trace("STORE8");
- #endif
- STORE8(vm, c);
- break;
- }
- case 0x22: /* STORE16 */
- {
- #ifdef DEBUG
- strncpy(Name, "STORE16", 19);
- #elif TRACE
- record_trace("STORE16");
- #endif
- STORE16(vm, c);
- break;
- }
- case 0x23: /* STORE32 */
- {
- #ifdef DEBUG
- strncpy(Name, "STORE32", 19);
- #elif TRACE
- record_trace("STORE32");
- #endif
- STORE32(vm, c);
- break;
- }
- case 0xB0: /* ANDI */
- {
- #ifdef DEBUG
- strncpy(Name, "ANDI", 19);
- #elif TRACE
- record_trace("ANDI");
- #endif
- ANDI(vm, c);
- break;
- }
- case 0xB1: /* ORI */
- {
- #ifdef DEBUG
- strncpy(Name, "ORI", 19);
- #elif TRACE
- record_trace("ORI");
- #endif
- ORI(vm, c);
- break;
- }
- case 0xB2: /* XORI */
- {
- #ifdef DEBUG
- strncpy(Name, "XORI", 19);
- #elif TRACE
- record_trace("XORI");
- #endif
- XORI(vm, c);
- break;
- }
- case 0xB3: /* NANDI */
- {
- #ifdef DEBUG
- strncpy(Name, "NANDI", 19);
- #elif TRACE
- record_trace("NANDI");
- #endif
- NANDI(vm, c);
- break;
- }
- case 0xB4: /* NORI */
- {
- #ifdef DEBUG
- strncpy(Name, "NORI", 19);
- #elif TRACE
- record_trace("NORI");
- #endif
- NORI(vm, c);
- break;
- }
- case 0xB5: /* XNORI */
- {
- #ifdef DEBUG
- strncpy(Name, "XNORI", 19);
- #elif TRACE
- record_trace("XNORI");
- #endif
- XNORI(vm, c);
- break;
- }
- case 0xC0: /* CMPJUMPI.G */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPI.G", 19);
- #elif TRACE
- record_trace("CMPJUMPI.G");
- #endif
- CMPJUMPI_G(vm, c);
- break;
- }
- case 0xC1: /* CMPJUMPI.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPI.GE", 19);
- #elif TRACE
- record_trace("CMPJUMPI.GE");
- #endif
- CMPJUMPI_GE(vm, c);
- break;
- }
- case 0xC2: /* CMPJUMPI.E */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPI.E", 19);
- #elif TRACE
- record_trace("CMPJUMPI.E");
- #endif
- CMPJUMPI_E(vm, c);
- break;
- }
- case 0xC3: /* CMPJUMPI.NE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPI.NE", 19);
- #elif TRACE
- record_trace("CMPJUMPI.NE");
- #endif
- CMPJUMPI_NE(vm, c);
- break;
- }
- case 0xC4: /* CMPJUMPI.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPI.LE", 19);
- #elif TRACE
- record_trace("CMPJUMPI.LE");
- #endif
- CMPJUMPI_LE(vm, c);
- break;
- }
- case 0xC5: /* CMPJUMPI.L */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPI.L", 19);
- #elif TRACE
- record_trace("CMPJUMPI.L");
- #endif
- CMPJUMPI_L(vm, c);
- break;
- }
- case 0xD0: /* CMPJUMPUI.G */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPUI.G", 19);
- #elif TRACE
- record_trace("CMPJUMPUI.G");
- #endif
- CMPJUMPUI_G(vm, c);
- break;
- }
- case 0xD1: /* CMPJUMPUI.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPUI.GE", 19);
- #elif TRACE
- record_trace("CMPJUMPUI.GE");
- #endif
- CMPJUMPUI_GE(vm, c);
- break;
- }
- case 0xD4: /* CMPJUMPUI.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPUI.LE", 19);
- #elif TRACE
- record_trace("CMPJUMPUI.LE");
- #endif
- CMPJUMPUI_LE(vm, c);
- break;
- }
- case 0xD5: /* CMPJUMPUI.L */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPJUMPUI.L", 19);
- #elif TRACE
- record_trace("CMPJUMPUI.L");
- #endif
- CMPJUMPUI_L(vm, c);
- break;
- }
- default:
- {
- illegal_instruction(vm, c);
- break;
- }
- }
- #ifdef DEBUG
- fprintf(stdout, "# %s reg%u reg%u %i\n", Name, c->reg0, c->reg1, c->raw_Immediate);
- #endif
- return false;
- }
- /* Process 1OPI Integer instructions */
- bool eval_Integer_1OPI(struct lilith* vm, struct Instruction* c)
- {
- #ifdef DEBUG
- char Name[20] = "ILLEGAL_1OPI";
- #endif
- uint32_t Opcode = (c->raw2 * 16) + c->raw_XOP;
- switch(Opcode)
- {
- case 0x2C0: /* JUMP.C */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.C", 19);
- #elif TRACE
- record_trace("JUMP.C");
- #endif
- JUMP_C(vm, c);
- break;
- }
- case 0x2C1: /* JUMP.B */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.B", 19);
- #elif TRACE
- record_trace("JUMP.B");
- #endif
- JUMP_B(vm, c);
- break;
- }
- case 0x2C2: /* JUMP.O */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.O", 19);
- #elif TRACE
- record_trace("JUMP.O");
- #endif
- JUMP_O(vm, c);
- break;
- }
- case 0x2C3: /* JUMP.G */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.G", 19);
- #elif TRACE
- record_trace("JUMP.G");
- #endif
- JUMP_G(vm, c);
- break;
- }
- case 0x2C4: /* JUMP.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.GE", 19);
- #elif TRACE
- record_trace("JUMP.GE");
- #endif
- JUMP_GE(vm, c);
- break;
- }
- case 0x2C5: /* JUMP.E */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.E", 19);
- #elif TRACE
- record_trace("JUMP.E");
- #endif
- JUMP_E(vm, c);
- break;
- }
- case 0x2C6: /* JUMP.NE */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.NE", 19);
- #elif TRACE
- record_trace("JUMP.NE");
- #endif
- JUMP_NE(vm, c);
- break;
- }
- case 0x2C7: /* JUMP.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.LE", 19);
- #elif TRACE
- record_trace("JUMP.LE");
- #endif
- JUMP_LE(vm, c);
- break;
- }
- case 0x2C8: /* JUMP.L */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.L", 19);
- #elif TRACE
- record_trace("JUMP.L");
- #endif
- JUMP_L(vm, c);
- break;
- }
- case 0x2C9: /* JUMP.Z */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.Z", 19);
- #elif TRACE
- record_trace("JUMP.Z");
- #endif
- JUMP_Z(vm, c);
- break;
- }
- case 0x2CA: /* JUMP.NZ */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.NZ", 19);
- #elif TRACE
- record_trace("JUMP.NZ");
- #endif
- JUMP_NZ(vm, c);
- break;
- }
- case 0x2CB: /* JUMP.P */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.P", 19);
- #elif TRACE
- record_trace("JUMP.P");
- #endif
- JUMP_P(vm, c);
- break;
- }
- case 0x2CC: /* JUMP.NP */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP.NP", 19);
- #elif TRACE
- record_trace("JUMP.NP");
- #endif
- JUMP_NP(vm, c);
- break;
- }
- case 0x2D0: /* CALLI */
- {
- #ifdef DEBUG
- strncpy(Name, "CALLI", 19);
- #elif TRACE
- record_trace("CALLI");
- #endif
- CALLI(vm, c);
- break;
- }
- case 0x2D1: /* LOADI */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADI", 19);
- #elif TRACE
- record_trace("LOADI");
- #endif
- LOADI(vm, c);
- break;
- }
- case 0x2D2: /* LOADUI*/
- {
- #ifdef DEBUG
- strncpy(Name, "LOADUI", 19);
- #elif TRACE
- record_trace("LOADUI");
- #endif
- LOADUI(vm, c);
- break;
- }
- case 0x2D3: /* SALI */
- {
- #ifdef DEBUG
- strncpy(Name, "SALI", 19);
- #elif TRACE
- record_trace("SALI");
- #endif
- SALI(vm, c);
- break;
- }
- case 0x2D4: /* SARI */
- {
- #ifdef DEBUG
- strncpy(Name, "SARI", 19);
- #elif TRACE
- record_trace("SARI");
- #endif
- SARI(vm, c);
- break;
- }
- case 0x2D5: /* SL0I */
- {
- #ifdef DEBUG
- strncpy(Name, "SL0I", 19);
- #elif TRACE
- record_trace("SL0I");
- #endif
- SL0I(vm, c);
- break;
- }
- case 0x2D6: /* SR0I */
- {
- #ifdef DEBUG
- strncpy(Name, "SR0I", 19);
- #elif TRACE
- record_trace("SR0I");
- #endif
- SR0I(vm, c);
- break;
- }
- case 0x2D7: /* SL1I */
- {
- #ifdef DEBUG
- strncpy(Name, "SL1I", 19);
- #elif TRACE
- record_trace("SL1I");
- #endif
- SL1I(vm, c);
- break;
- }
- case 0x2D8: /* SR1I */
- {
- #ifdef DEBUG
- strncpy(Name, "SR1I", 19);
- #elif TRACE
- record_trace("SR1I");
- #endif
- SR1I(vm, c);
- break;
- }
- case 0x2E0: /* LOADR */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADR", 19);
- #elif TRACE
- record_trace("LOADR");
- #endif
- LOADR(vm, c);
- break;
- }
- case 0x2E1: /* LOADR8 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADR8", 19);
- #elif TRACE
- record_trace("LOADR8");
- #endif
- LOADR8(vm, c);
- break;
- }
- case 0x2E2: /* LOADRU8 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADRU8", 19);
- #elif TRACE
- record_trace("LOADRU8");
- #endif
- LOADRU8(vm, c);
- break;
- }
- case 0x2E3: /* LOADR16 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADR16", 19);
- #elif TRACE
- record_trace("LOADR16");
- #endif
- LOADR16(vm, c);
- break;
- }
- case 0x2E4: /* LOADRU16 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADRU16", 19);
- #elif TRACE
- record_trace("LOADRU16");
- #endif
- LOADRU16(vm, c);
- break;
- }
- case 0x2E5: /* LOADR32 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADR32", 19);
- #elif TRACE
- record_trace("LOADR32");
- #endif
- LOADR32(vm, c);
- break;
- }
- case 0x2E6: /* LOADRU32 */
- {
- #ifdef DEBUG
- strncpy(Name, "LOADRU32", 19);
- #elif TRACE
- record_trace("LOADRU32");
- #endif
- LOADRU32(vm, c);
- break;
- }
- case 0x2F0: /* STORER */
- {
- #ifdef DEBUG
- strncpy(Name, "STORER", 19);
- #elif TRACE
- record_trace("STORER");
- #endif
- STORER(vm, c);
- break;
- }
- case 0x2F1: /* STORER8 */
- {
- #ifdef DEBUG
- strncpy(Name, "STORER8", 19);
- #elif TRACE
- record_trace("STORER8");
- #endif
- STORER8(vm, c);
- break;
- }
- case 0x2F2: /* STORER16 */
- {
- #ifdef DEBUG
- strncpy(Name, "STORER16", 19);
- #elif TRACE
- record_trace("STORER16");
- #endif
- STORER16(vm, c);
- break;
- }
- case 0x2F3: /* STORER32 */
- {
- #ifdef DEBUG
- strncpy(Name, "STORER32", 19);
- #elif TRACE
- record_trace("STORER32");
- #endif
- STORER32(vm, c);
- break;
- }
- case 0xA00: /* CMPSKIPI.G */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPI.G", 19);
- #elif TRACE
- record_trace("CMPSKIPI.G");
- #endif
- CMPSKIPI_G(vm, c);
- break;
- }
- case 0xA01: /* CMPSKIPI.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPI.GE", 19);
- #elif TRACE
- record_trace("CMPSKIPI.GE");
- #endif
- CMPSKIPI_GE(vm, c);
- break;
- }
- case 0xA02: /* CMPSKIPI.E */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPI.E", 19);
- #elif TRACE
- record_trace("CMPSKIPI.E");
- #endif
- CMPSKIPI_E(vm, c);
- break;
- }
- case 0xA03: /* CMPSKIPI.NE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPI.NE", 19);
- #elif TRACE
- record_trace("CMPSKIPI.NE");
- #endif
- CMPSKIPI_NE(vm, c);
- break;
- }
- case 0xA04: /* CMPSKIPI.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPI.LE", 19);
- #elif TRACE
- record_trace("CMPSKIPI.LE");
- #endif
- CMPSKIPI_LE(vm, c);
- break;
- }
- case 0xA05: /* CMPSKIPI.L */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPI.L", 19);
- #elif TRACE
- record_trace("CMPSKIPI.L");
- #endif
- CMPSKIPI_L(vm, c);
- break;
- }
- case 0xA10: /* CMPSKIPUI.G */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPUI.G", 19);
- #elif TRACE
- record_trace("CMPSKIPUI.G");
- #endif
- CMPSKIPUI_G(vm, c);
- break;
- }
- case 0xA11: /* CMPSKIPUI.GE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPUI.GE", 19);
- #elif TRACE
- record_trace("CMPSKIPUI.GE");
- #endif
- CMPSKIPUI_GE(vm, c);
- break;
- }
- case 0xA14: /* CMPSKIPUI.LE */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPUI.LE", 19);
- #elif TRACE
- record_trace("CMPSKIPUI.LE");
- #endif
- CMPSKIPUI_LE(vm, c);
- break;
- }
- case 0xA15: /* CMPSKIPUI.L */
- {
- #ifdef DEBUG
- strncpy(Name, "CMPSKIPUI.L", 19);
- #elif TRACE
- record_trace("CMPSKIPUI.L");
- #endif
- CMPSKIPUI_L(vm, c);
- break;
- }
- default:
- {
- illegal_instruction(vm, c);
- break;
- }
- }
- #ifdef DEBUG
- fprintf(stdout, "# %s reg%u %d\n", Name, c->reg0, c->raw_Immediate);
- #endif
- return false;
- }
- /* Process 0OPI Integer instructions */
- bool eval_Integer_0OPI(struct lilith* vm, struct Instruction* c)
- {
- #ifdef DEBUG
- char Name[20] = "ILLEGAL_0OPI";
- #endif
- switch(c->raw_XOP)
- {
- case 0x00: /* JUMP */
- {
- #ifdef DEBUG
- strncpy(Name, "JUMP", 19);
- #elif TRACE
- record_trace("JUMP");
- #endif
- JUMP(vm, c);
- break;
- }
- default:
- {
- illegal_instruction(vm, c);
- break;
- }
- }
- #ifdef DEBUG
- fprintf(stdout, "# %s %d\n", Name, c->raw_Immediate);
- #endif
- return false;
- }
- /* Use Opcode to decide what to do and then have it done */
- void eval_instruction(struct lilith* vm, struct Instruction* current)
- {
- performance_counter = performance_counter + 1;
- #ifdef DEBUG
- fprintf(stdout, "Executing: %s\n", current->operation);
- usleep(1000);
- #endif
- switch(current->raw0)
- {
- case 0x00: /* Deal with NOPs */
- {
- if(0 == current->raw0 && 0 == current->raw1 && 0 == current->raw2 && 0 == current->raw3)
- {
- #ifdef TRACE
- record_trace("NOP");
- #endif
- return;
- }
- illegal_instruction(vm, current);
- }
- case 0x01: /* Integer 4OP */
- {
- decode_4OP(current);
- eval_4OP_Int(vm, current);
- break;
- }
- case 0x05: /* Integer 3OP */
- {
- decode_3OP(current);
- eval_3OP_Int(vm, current);
- break;
- }
- case 0x09: /* Integer 2OP */
- {
- decode_2OP(current);
- eval_2OP_Int(vm, current);
- break;
- }
- case 0x0D: /* Integer 1OP */
- {
- decode_1OP(current);
- eval_1OP_Int(vm, current);
- break;
- }
- case 0xE1: /* Integer 2OPI */
- {
- decode_2OPI(vm, current);
- eval_2OPI_Int(vm, current);
- break;
- }
- case 0xE0: /* Integer 1OPI */
- {
- decode_1OPI(vm, current);
- eval_Integer_1OPI(vm, current);
- break;
- }
- case 0x3C: /* Integer 0OPI */
- {
- decode_0OPI(current);
- eval_Integer_0OPI(vm, current);
- break;
- }
- case 0x42: /* HALCODE */
- {
- decode_HALCODE(current);
- eval_HALCODE(vm, current);
- break;
- }
- case 0xFF: /* Deal with HALT */
- {
- vm_HALT(vm, performance_counter);
- break;
- }
- default: /* Deal with illegal instruction */
- {
- illegal_instruction(vm, current);
- break;
- }
- }
- }
|