|
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316 |
- /* Extracted from the Fake86 project and heavily modified to run within
- the Collapse OS project with its simple needs.
- */
- /*
- Fake86: A portable, open-source 8086 PC emulator.
- Copyright (C)2010-2013 Mike Chambers
-
- This program 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 2
- of the License, or (at your option) any later version.
-
- This program 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 this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
- */
-
- #include <stdint.h>
- #include <stdio.h>
- #include "cpu.h"
-
- #define StepIP(x) ip += x
- #define signext(value) (int16_t)(int8_t)(value)
- #define signext32(value) (int32_t)(int16_t)(value)
- #define getsegreg(regid) segregs[regid]
- #define putsegreg(regid, writeval) segregs[regid] = writeval
- // Warning: those macros below *can't* be called with reg*l and reg*h
- #define getreg8(regid) regs.byteregs[byteregtable[regid]]
- #define putreg8(regid, writeval) regs.byteregs[byteregtable[regid]] = writeval
-
- uint8_t byteregtable[8] = { regal, regcl, regdl, regbl, regah, regch, regdh, regbh };
-
- static const uint8_t parity[0x100] = {
- 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1,
- 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1,
- 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
- 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
- 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1
- };
-
- uint8_t RAM[0x100000];
- INTHOOK INTHOOKS[0x100] = {0};
- uint8_t opcode, segoverride, reptype, hltstate = 0;
- uint16_t segregs[4], ip, useseg, oldsp;
- uint8_t tempcf, cf, pf, af, zf, sf, tf, ifl, df, of, mode, reg, rm;
- uint16_t oper1, oper2, res16, disp16, temp16, stacksize, frametemp;
- uint8_t oper1b, oper2b, res8, disp8, nestlev, addrbyte;
- uint32_t temp1, temp2, temp3, ea;
-
- union _bytewordregs_ regs;
-
- uint8_t portram[0x10000];
-
- void intcall86(uint8_t intnum);
-
- static void portout (uint16_t portnum, uint8_t value) {}
- static void portout16 (uint16_t portnum, uint16_t value) {}
- static uint8_t portin (uint16_t portnum) { return 0; }
- static uint16_t portin16 (uint16_t portnum) { return 0; }
-
- void write86 (uint32_t addr32, uint8_t value) {
- RAM[addr32 & 0xFFFFF] = value;
- }
-
- void writew86 (uint32_t addr32, uint16_t value) {
- write86(addr32, (uint8_t) value);
- write86(addr32 + 1, (uint8_t) (value >> 8) );
- }
-
- uint8_t read86 (uint32_t addr32) {
- addr32 &= 0xFFFFF;
- return (RAM[addr32]);
- }
-
- uint16_t readw86 (uint32_t addr32) {
- return ( (uint16_t) read86 (addr32) | (uint16_t) (read86 (addr32 + 1) << 8) );
- }
-
- static void flag_szp8 (uint8_t value) {
- if (!value) {
- zf = 1;
- }
- else {
- zf = 0; /* set or clear zero flag */
- }
-
- if (value & 0x80) {
- sf = 1;
- }
- else {
- sf = 0; /* set or clear sign flag */
- }
-
- pf = parity[value]; /* retrieve parity state from lookup table */
- }
-
- static void flag_szp16 (uint16_t value) {
- if (!value) {
- zf = 1;
- }
- else {
- zf = 0; /* set or clear zero flag */
- }
-
- if (value & 0x8000) {
- sf = 1;
- }
- else {
- sf = 0; /* set or clear sign flag */
- }
-
- pf = parity[value & 255]; /* retrieve parity state from lookup table */
- }
-
- static void flag_log8 (uint8_t value) {
- flag_szp8 (value);
- cf = 0;
- of = 0; /* bitwise logic ops always clear carry and overflow */
- }
-
- static void flag_log16 (uint16_t value) {
- flag_szp16 (value);
- cf = 0;
- of = 0; /* bitwise logic ops always clear carry and overflow */
- }
-
- static void flag_adc8 (uint8_t v1, uint8_t v2, uint8_t v3) {
-
- /* v1 = destination operand, v2 = source operand, v3 = carry flag */
- uint16_t dst;
-
- dst = (uint16_t) v1 + (uint16_t) v2 + (uint16_t) v3;
- flag_szp8 ( (uint8_t) dst);
- if ( ( (dst ^ v1) & (dst ^ v2) & 0x80) == 0x80) {
- of = 1;
- }
- else {
- of = 0; /* set or clear overflow flag */
- }
-
- if (dst & 0xFF00) {
- cf = 1;
- }
- else {
- cf = 0; /* set or clear carry flag */
- }
-
- if ( ( (v1 ^ v2 ^ dst) & 0x10) == 0x10) {
- af = 1;
- }
- else {
- af = 0; /* set or clear auxilliary flag */
- }
- }
-
- static void flag_adc16 (uint16_t v1, uint16_t v2, uint16_t v3) {
-
- uint32_t dst;
-
- dst = (uint32_t) v1 + (uint32_t) v2 + (uint32_t) v3;
- flag_szp16 ( (uint16_t) dst);
- if ( ( ( (dst ^ v1) & (dst ^ v2) ) & 0x8000) == 0x8000) {
- of = 1;
- }
- else {
- of = 0;
- }
-
- if (dst & 0xFFFF0000) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- if ( ( (v1 ^ v2 ^ dst) & 0x10) == 0x10) {
- af = 1;
- }
- else {
- af = 0;
- }
- }
-
- static void flag_add8 (uint8_t v1, uint8_t v2) {
- /* v1 = destination operand, v2 = source operand */
- uint16_t dst;
-
- dst = (uint16_t) v1 + (uint16_t) v2;
- flag_szp8 ( (uint8_t) dst);
- if (dst & 0xFF00) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- if ( ( (dst ^ v1) & (dst ^ v2) & 0x80) == 0x80) {
- of = 1;
- }
- else {
- of = 0;
- }
-
- if ( ( (v1 ^ v2 ^ dst) & 0x10) == 0x10) {
- af = 1;
- }
- else {
- af = 0;
- }
- }
-
- static void flag_add16 (uint16_t v1, uint16_t v2) {
- /* v1 = destination operand, v2 = source operand */
- uint32_t dst;
-
- dst = (uint32_t) v1 + (uint32_t) v2;
- flag_szp16 ( (uint16_t) dst);
- if (dst & 0xFFFF0000) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- if ( ( (dst ^ v1) & (dst ^ v2) & 0x8000) == 0x8000) {
- of = 1;
- }
- else {
- of = 0;
- }
-
- if ( ( (v1 ^ v2 ^ dst) & 0x10) == 0x10) {
- af = 1;
- }
- else {
- af = 0;
- }
- }
-
- static void flag_sbb8 (uint8_t v1, uint8_t v2, uint8_t v3) {
-
- /* v1 = destination operand, v2 = source operand, v3 = carry flag */
- uint16_t dst;
-
- v2 += v3;
- dst = (uint16_t) v1 - (uint16_t) v2;
- flag_szp8 ( (uint8_t) dst);
- if (dst & 0xFF00) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- if ( (dst ^ v1) & (v1 ^ v2) & 0x80) {
- of = 1;
- }
- else {
- of = 0;
- }
-
- if ( (v1 ^ v2 ^ dst) & 0x10) {
- af = 1;
- }
- else {
- af = 0;
- }
- }
-
- static void flag_sbb16 (uint16_t v1, uint16_t v2, uint16_t v3) {
-
- /* v1 = destination operand, v2 = source operand, v3 = carry flag */
- uint32_t dst;
-
- v2 += v3;
- dst = (uint32_t) v1 - (uint32_t) v2;
- flag_szp16 ( (uint16_t) dst);
- if (dst & 0xFFFF0000) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- if ( (dst ^ v1) & (v1 ^ v2) & 0x8000) {
- of = 1;
- }
- else {
- of = 0;
- }
-
- if ( (v1 ^ v2 ^ dst) & 0x10) {
- af = 1;
- }
- else {
- af = 0;
- }
- }
-
- static void flag_sub8 (uint8_t v1, uint8_t v2) {
-
- /* v1 = destination operand, v2 = source operand */
- uint16_t dst;
-
- dst = (uint16_t) v1 - (uint16_t) v2;
- flag_szp8 ( (uint8_t) dst);
- if (dst & 0xFF00) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- if ( (dst ^ v1) & (v1 ^ v2) & 0x80) {
- of = 1;
- }
- else {
- of = 0;
- }
-
- if ( (v1 ^ v2 ^ dst) & 0x10) {
- af = 1;
- }
- else {
- af = 0;
- }
- }
-
- static void flag_sub16 (uint16_t v1, uint16_t v2) {
-
- /* v1 = destination operand, v2 = source operand */
- uint32_t dst;
-
- dst = (uint32_t) v1 - (uint32_t) v2;
- flag_szp16 ( (uint16_t) dst);
- if (dst & 0xFFFF0000) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- if ( (dst ^ v1) & (v1 ^ v2) & 0x8000) {
- of = 1;
- }
- else {
- of = 0;
- }
-
- if ( (v1 ^ v2 ^ dst) & 0x10) {
- af = 1;
- }
- else {
- af = 0;
- }
- }
-
- static void op_adc8() {
- res8 = oper1b + oper2b + cf;
- flag_adc8 (oper1b, oper2b, cf);
- }
-
- static void op_adc16() {
- res16 = oper1 + oper2 + cf;
- flag_adc16 (oper1, oper2, cf);
- }
-
- static void op_add8() {
- res8 = oper1b + oper2b;
- flag_add8 (oper1b, oper2b);
- }
-
- static void op_add16() {
- res16 = oper1 + oper2;
- flag_add16 (oper1, oper2);
- }
-
- static void op_and8() {
- res8 = oper1b & oper2b;
- flag_log8 (res8);
- }
-
- static void op_and16() {
- res16 = oper1 & oper2;
- flag_log16 (res16);
- }
-
- static void op_or8() {
- res8 = oper1b | oper2b;
- flag_log8 (res8);
- }
-
- static void op_or16() {
- res16 = oper1 | oper2;
- flag_log16 (res16);
- }
-
- static void op_xor8() {
- res8 = oper1b ^ oper2b;
- flag_log8 (res8);
- }
-
- static void op_xor16() {
- res16 = oper1 ^ oper2;
- flag_log16 (res16);
- }
-
- static void op_sub8() {
- res8 = oper1b - oper2b;
- flag_sub8 (oper1b, oper2b);
- }
-
- static void op_sub16() {
- res16 = oper1 - oper2;
- flag_sub16 (oper1, oper2);
- }
-
- static void op_sbb8() {
- res8 = oper1b - (oper2b + cf);
- flag_sbb8 (oper1b, oper2b, cf);
- }
-
- static void op_sbb16() {
- res16 = oper1 - (oper2 + cf);
- flag_sbb16 (oper1, oper2, cf);
- }
-
- static void getea (uint8_t rmval) {
- uint32_t tempea;
-
- tempea = 0;
- switch (mode) {
- case 0:
- switch (rmval) {
- case 0:
- tempea = regs.wordregs[regbx] + regs.wordregs[regsi];
- break;
- case 1:
- tempea = regs.wordregs[regbx] + regs.wordregs[regdi];
- break;
- case 2:
- tempea = regs.wordregs[regbp] + regs.wordregs[regsi];
- break;
- case 3:
- tempea = regs.wordregs[regbp] + regs.wordregs[regdi];
- break;
- case 4:
- tempea = regs.wordregs[regsi];
- break;
- case 5:
- tempea = regs.wordregs[regdi];
- break;
- case 6:
- tempea = disp16;
- break;
- case 7:
- tempea = regs.wordregs[regbx];
- break;
- }
- break;
-
- case 1:
- case 2:
- switch (rmval) {
- case 0:
- tempea = regs.wordregs[regbx] + regs.wordregs[regsi] + disp16;
- break;
- case 1:
- tempea = regs.wordregs[regbx] + regs.wordregs[regdi] + disp16;
- break;
- case 2:
- tempea = regs.wordregs[regbp] + regs.wordregs[regsi] + disp16;
- break;
- case 3:
- tempea = regs.wordregs[regbp] + regs.wordregs[regdi] + disp16;
- break;
- case 4:
- tempea = regs.wordregs[regsi] + disp16;
- break;
- case 5:
- tempea = regs.wordregs[regdi] + disp16;
- break;
- case 6:
- tempea = regs.wordregs[regbp] + disp16;
- break;
- case 7:
- tempea = regs.wordregs[regbx] + disp16;
- break;
- }
- break;
- }
-
- ea = (tempea & 0xFFFF) + (useseg << 4);
- }
-
- static void push (uint16_t pushval) {
- regs.wordregs[regsp] = regs.wordregs[regsp] - 2;
- putmem16 (segregs[regss], regs.wordregs[regsp], pushval);
- }
-
- static uint16_t pop() {
-
- uint16_t tempval;
-
- tempval = getmem16 (segregs[regss], regs.wordregs[regsp]);
- regs.wordregs[regsp] = regs.wordregs[regsp] + 2;
- return tempval;
- }
-
- static uint16_t readrm16 (uint8_t rmval) {
- if (mode < 3) {
- getea (rmval);
- return read86 (ea) | ( (uint16_t) read86 (ea + 1) << 8);
- }
- else {
- return getreg16 (rmval);
- }
- }
-
- static uint8_t readrm8 (uint8_t rmval) {
- if (mode < 3) {
- getea (rmval);
- return read86 (ea);
- }
- else {
- return getreg8 (rmval);
- }
- }
-
- static void writerm16 (uint8_t rmval, uint16_t value) {
- if (mode < 3) {
- getea (rmval);
- write86 (ea, value & 0xFF);
- write86 (ea + 1, value >> 8);
- }
- else {
- putreg16 (rmval, value);
- }
- }
-
- static void writerm8 (uint8_t rmval, uint8_t value) {
- if (mode < 3) {
- getea (rmval);
- write86 (ea, value);
- }
- else {
- putreg8 (rmval, value);
- }
- }
-
- static uint8_t op_grp2_8 (uint8_t cnt) {
-
- uint16_t s;
- uint16_t shift;
- uint16_t oldcf;
- uint16_t msb;
-
- s = oper1b;
- oldcf = cf;
- cnt &= 0x1F;
- switch (reg) {
- case 0: /* ROL r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- if (s & 0x80) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- s = s << 1;
- s = s | cf;
- }
-
- if (cnt == 1) {
- //of = cf ^ ( (s >> 7) & 1);
- if ((s & 0x80) && cf) of = 1; else of = 0;
- } else of = 0;
- break;
-
- case 1: /* ROR r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- cf = s & 1;
- s = (s >> 1) | (cf << 7);
- }
-
- if (cnt == 1) {
- of = (s >> 7) ^ ( (s >> 6) & 1);
- }
- break;
-
- case 2: /* RCL r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- oldcf = cf;
- if (s & 0x80) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- s = s << 1;
- s = s | oldcf;
- }
-
- if (cnt == 1) {
- of = cf ^ ( (s >> 7) & 1);
- }
- break;
-
- case 3: /* RCR r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- oldcf = cf;
- cf = s & 1;
- s = (s >> 1) | (oldcf << 7);
- }
-
- if (cnt == 1) {
- of = (s >> 7) ^ ( (s >> 6) & 1);
- }
- break;
-
- case 4:
- case 6: /* SHL r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- if (s & 0x80) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- s = (s << 1) & 0xFF;
- }
-
- if ( (cnt == 1) && (cf == (s >> 7) ) ) {
- of = 0;
- }
- else {
- of = 1;
- }
-
- flag_szp8 ( (uint8_t) s);
- break;
-
- case 5: /* SHR r/m8 */
- if ( (cnt == 1) && (s & 0x80) ) {
- of = 1;
- }
- else {
- of = 0;
- }
-
- for (shift = 1; shift <= cnt; shift++) {
- cf = s & 1;
- s = s >> 1;
- }
-
- flag_szp8 ( (uint8_t) s);
- break;
-
- case 7: /* SAR r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- msb = s & 0x80;
- cf = s & 1;
- s = (s >> 1) | msb;
- }
-
- of = 0;
- flag_szp8 ( (uint8_t) s);
- break;
- }
-
- return s & 0xFF;
- }
-
- static uint16_t op_grp2_16 (uint8_t cnt) {
-
- uint32_t s;
- uint32_t shift;
- uint32_t oldcf;
- uint32_t msb;
-
- s = oper1;
- oldcf = cf;
- cnt &= 0x1F;
- switch (reg) {
- case 0: /* ROL r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- if (s & 0x8000) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- s = s << 1;
- s = s | cf;
- }
-
- if (cnt == 1) {
- of = cf ^ ( (s >> 15) & 1);
- }
- break;
-
- case 1: /* ROR r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- cf = s & 1;
- s = (s >> 1) | (cf << 15);
- }
-
- if (cnt == 1) {
- of = (s >> 15) ^ ( (s >> 14) & 1);
- }
- break;
-
- case 2: /* RCL r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- oldcf = cf;
- if (s & 0x8000) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- s = s << 1;
- s = s | oldcf;
- }
-
- if (cnt == 1) {
- of = cf ^ ( (s >> 15) & 1);
- }
- break;
-
- case 3: /* RCR r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- oldcf = cf;
- cf = s & 1;
- s = (s >> 1) | (oldcf << 15);
- }
-
- if (cnt == 1) {
- of = (s >> 15) ^ ( (s >> 14) & 1);
- }
- break;
-
- case 4:
- case 6: /* SHL r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- if (s & 0x8000) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- s = (s << 1) & 0xFFFF;
- }
-
- if ( (cnt == 1) && (cf == (s >> 15) ) ) {
- of = 0;
- }
- else {
- of = 1;
- }
-
- flag_szp16 ( (uint16_t) s);
- break;
-
- case 5: /* SHR r/m8 */
- if ( (cnt == 1) && (s & 0x8000) ) {
- of = 1;
- }
- else {
- of = 0;
- }
-
- for (shift = 1; shift <= cnt; shift++) {
- cf = s & 1;
- s = s >> 1;
- }
-
- flag_szp16 ( (uint16_t) s);
- break;
-
- case 7: /* SAR r/m8 */
- for (shift = 1; shift <= cnt; shift++) {
- msb = s & 0x8000;
- cf = s & 1;
- s = (s >> 1) | msb;
- }
-
- of = 0;
- flag_szp16 ( (uint16_t) s);
- break;
- }
-
- return (uint16_t) s & 0xFFFF;
- }
-
- static void op_div8 (uint16_t valdiv, uint8_t divisor) {
- if (divisor == 0) {
- intcall86 (0);
- return;
- }
-
- if ( (valdiv / (uint16_t) divisor) > 0xFF) {
- intcall86 (0);
- return;
- }
-
- regs.byteregs[regah] = valdiv % (uint16_t) divisor;
- regs.byteregs[regal] = valdiv / (uint16_t) divisor;
- }
-
- static void op_idiv8 (uint16_t valdiv, uint8_t divisor) {
-
- uint16_t s1;
- uint16_t s2;
- uint16_t d1;
- uint16_t d2;
- int sign;
-
- if (divisor == 0) {
- intcall86 (0);
- return;
- }
-
- s1 = valdiv;
- s2 = divisor;
- sign = ( ( (s1 ^ s2) & 0x8000) != 0);
- s1 = (s1 < 0x8000) ? s1 : ( (~s1 + 1) & 0xffff);
- s2 = (s2 < 0x8000) ? s2 : ( (~s2 + 1) & 0xffff);
- d1 = s1 / s2;
- d2 = s1 % s2;
- if (d1 & 0xFF00) {
- intcall86 (0);
- return;
- }
-
- if (sign) {
- d1 = (~d1 + 1) & 0xff;
- d2 = (~d2 + 1) & 0xff;
- }
-
- regs.byteregs[regah] = (uint8_t) d2;
- regs.byteregs[regal] = (uint8_t) d1;
- }
-
- static void op_grp3_8() {
- oper1 = signext (oper1b);
- oper2 = signext (oper2b);
- switch (reg) {
- case 0:
- case 1: /* TEST */
- flag_log8 (oper1b & getmem8 (segregs[regcs], ip) );
- StepIP (1);
- break;
-
- case 2: /* NOT */
- res8 = ~oper1b;
- break;
-
- case 3: /* NEG */
- res8 = (~oper1b) + 1;
- flag_sub8 (0, oper1b);
- if (res8 == 0) {
- cf = 0;
- }
- else {
- cf = 1;
- }
- break;
-
- case 4: /* MUL */
- temp1 = (uint32_t) oper1b * (uint32_t) regs.byteregs[regal];
- regs.wordregs[regax] = temp1 & 0xFFFF;
- flag_szp8 ( (uint8_t) temp1);
- if (regs.byteregs[regah]) {
- cf = 1;
- of = 1;
- }
- else {
- cf = 0;
- of = 0;
- }
- break;
-
- case 5: /* IMUL */
- oper1 = signext (oper1b);
- temp1 = signext (regs.byteregs[regal]);
- temp2 = oper1;
- if ( (temp1 & 0x80) == 0x80) {
- temp1 = temp1 | 0xFFFFFF00;
- }
-
- if ( (temp2 & 0x80) == 0x80) {
- temp2 = temp2 | 0xFFFFFF00;
- }
-
- temp3 = (temp1 * temp2) & 0xFFFF;
- regs.wordregs[regax] = temp3 & 0xFFFF;
- if (regs.byteregs[regah]) {
- cf = 1;
- of = 1;
- }
- else {
- cf = 0;
- of = 0;
- }
- break;
-
- case 6: /* DIV */
- op_div8 (regs.wordregs[regax], oper1b);
- break;
-
- case 7: /* IDIV */
- op_idiv8 (regs.wordregs[regax], oper1b);
- break;
- }
- }
-
- static void op_div16 (uint32_t valdiv, uint16_t divisor) {
- if (divisor == 0) {
- intcall86 (0);
- return;
- }
-
- if ( (valdiv / (uint32_t) divisor) > 0xFFFF) {
- intcall86 (0);
- return;
- }
-
- regs.wordregs[regdx] = valdiv % (uint32_t) divisor;
- regs.wordregs[regax] = valdiv / (uint32_t) divisor;
- }
-
- static void op_idiv16 (uint32_t valdiv, uint16_t divisor) {
-
- uint32_t d1;
- uint32_t d2;
- uint32_t s1;
- uint32_t s2;
- int sign;
-
- if (divisor == 0) {
- intcall86 (0);
- return;
- }
-
- s1 = valdiv;
- s2 = divisor;
- s2 = (s2 & 0x8000) ? (s2 | 0xffff0000) : s2;
- sign = ( ( (s1 ^ s2) & 0x80000000) != 0);
- s1 = (s1 < 0x80000000) ? s1 : ( (~s1 + 1) & 0xffffffff);
- s2 = (s2 < 0x80000000) ? s2 : ( (~s2 + 1) & 0xffffffff);
- d1 = s1 / s2;
- d2 = s1 % s2;
- if (d1 & 0xFFFF0000) {
- intcall86 (0);
- return;
- }
-
- if (sign) {
- d1 = (~d1 + 1) & 0xffff;
- d2 = (~d2 + 1) & 0xffff;
- }
-
- regs.wordregs[regax] = d1;
- regs.wordregs[regdx] = d2;
- }
-
- static void op_grp3_16() {
- switch (reg) {
- case 0:
- case 1: /* TEST */
- flag_log16 (oper1 & getmem16 (segregs[regcs], ip) );
- StepIP (2);
- break;
-
- case 2: /* NOT */
- res16 = ~oper1;
- break;
-
- case 3: /* NEG */
- res16 = (~oper1) + 1;
- flag_sub16 (0, oper1);
- if (res16) {
- cf = 1;
- }
- else {
- cf = 0;
- }
- break;
-
- case 4: /* MUL */
- temp1 = (uint32_t) oper1 * (uint32_t) regs.wordregs[regax];
- regs.wordregs[regax] = temp1 & 0xFFFF;
- regs.wordregs[regdx] = temp1 >> 16;
- flag_szp16 ( (uint16_t) temp1);
- if (regs.wordregs[regdx]) {
- cf = 1;
- of = 1;
- }
- else {
- cf = 0;
- of = 0;
- }
- break;
-
- case 5: /* IMUL */
- temp1 = regs.wordregs[regax];
- temp2 = oper1;
- if (temp1 & 0x8000) {
- temp1 |= 0xFFFF0000;
- }
-
- if (temp2 & 0x8000) {
- temp2 |= 0xFFFF0000;
- }
-
- temp3 = temp1 * temp2;
- regs.wordregs[regax] = temp3 & 0xFFFF; /* into register ax */
- regs.wordregs[regdx] = temp3 >> 16; /* into register dx */
- if (regs.wordregs[regdx]) {
- cf = 1;
- of = 1;
- }
- else {
- cf = 0;
- of = 0;
- }
- break;
-
- case 6: /* DIV */
- op_div16 ( ( (uint32_t) regs.wordregs[regdx] << 16) + regs.wordregs[regax], oper1);
- break;
-
- case 7: /* DIV */
- op_idiv16 ( ( (uint32_t) regs.wordregs[regdx] << 16) + regs.wordregs[regax], oper1);
- break;
- }
- }
-
- static void op_grp5() {
- switch (reg) {
- case 0: /* INC Ev */
- oper2 = 1;
- tempcf = cf;
- op_add16();
- cf = tempcf;
- writerm16 (rm, res16);
- break;
-
- case 1: /* DEC Ev */
- oper2 = 1;
- tempcf = cf;
- op_sub16();
- cf = tempcf;
- writerm16 (rm, res16);
- break;
-
- case 2: /* CALL Ev */
- push (ip);
- ip = oper1;
- break;
-
- case 3: /* CALL Mp */
- push (segregs[regcs]);
- push (ip);
- getea (rm);
- ip = (uint16_t) read86 (ea) + (uint16_t) read86 (ea + 1) * 256;
- segregs[regcs] = (uint16_t) read86 (ea + 2) + (uint16_t) read86 (ea + 3) * 256;
- break;
-
- case 4: /* JMP Ev */
- ip = oper1;
- break;
-
- case 5: /* JMP Mp */
- getea (rm);
- ip = (uint16_t) read86 (ea) + (uint16_t) read86 (ea + 1) * 256;
- segregs[regcs] = (uint16_t) read86 (ea + 2) + (uint16_t) read86 (ea + 3) * 256;
- break;
-
- case 6: /* PUSH Ev */
- push (oper1);
- break;
- }
- }
-
- void intcall86(uint8_t intnum) {
- if (intnum == 0) {
- fprintf(stderr, "INT 0 called, halting\n");
- hltstate = 1;
- return;
- }
- if (INTHOOKS[intnum] != NULL) {
- INTHOOKS[intnum]();
- return;
- }
- fprintf(stderr, "Unknown INT called: %x\n", intnum);
- }
-
- uint16_t makeflagsword() {
- return 2 | (uint16_t) cf | ((uint16_t) pf << 2) | ((uint16_t) af << 4) | \
- ((uint16_t) zf << 6) | ((uint16_t) sf << 7) | ((uint16_t) tf << 8) | \
- ((uint16_t) ifl << 9) | ((uint16_t) df << 10) | ((uint16_t) of << 11);
- }
-
- void decodeflagsword(uint16_t x) {
- cf = x & 1;
- pf = (x >> 2) & 1;
- af = (x >> 4) & 1;
- zf = (x >> 6) & 1;
- sf = (x >> 7) & 1;
- tf = (x >> 8) & 1;
- ifl = (x >> 9) & 1;
- df = (x >> 10) & 1;
- of = (x >> 11) & 1;
- }
-
- static void modregrm() {
- addrbyte = getmem8(segregs[regcs], ip);
- StepIP(1);
- mode = addrbyte >> 6;
- reg = (addrbyte >> 3) & 7;
- rm = addrbyte & 7;
- switch(mode)
- {
- case 0:
- if (rm == 6) {
- disp16 = getmem16(segregs[regcs], ip);
- StepIP(2);
- }
- if (((rm == 2) || (rm == 3)) && !segoverride) {
- useseg = segregs[regss];
- }
- break;
-
- case 1:
- disp16 = signext(getmem8(segregs[regcs], ip));
- StepIP(1);
- if (((rm == 2) || (rm == 3) || (rm == 6)) && !segoverride) {
- useseg = segregs[regss];
- }
- break;
-
- case 2:
- disp16 = getmem16(segregs[regcs], ip);
- StepIP(2);
- if (((rm == 2) || (rm == 3) || (rm == 6)) && !segoverride) {
- useseg = segregs[regss];
- }
- break;
-
- default:
- disp8 = 0;
- disp16 = 0;
- }
- }
-
- int exec86(int execloops) {
- int loopcount;
- uint8_t docontinue;
- static uint16_t firstip;
- uint16_t oldcf;
-
- for (loopcount = 0; loopcount < execloops; loopcount++) {
- if (hltstate) return 0;
-
- reptype = 0;
- segoverride = 0;
- useseg = segregs[regds];
- docontinue = 0;
- firstip = ip;
-
- while (!docontinue) {
- segregs[regcs] = segregs[regcs] & 0xFFFF;
- ip = ip & 0xFFFF;
- opcode = getmem8 (segregs[regcs], ip);
- StepIP (1);
-
- switch (opcode) {
- /* segment prefix check */
- case 0x2E: /* segment segregs[regcs] */
- useseg = segregs[regcs];
- segoverride = 1;
- break;
-
- case 0x3E: /* segment segregs[regds] */
- useseg = segregs[regds];
- segoverride = 1;
- break;
-
- case 0x26: /* segment segregs[reges] */
- useseg = segregs[reges];
- segoverride = 1;
- break;
-
- case 0x36: /* segment segregs[regss] */
- useseg = segregs[regss];
- segoverride = 1;
- break;
-
- /* repetition prefix check */
- case 0xF3: /* REP/REPE/REPZ */
- reptype = 1;
- break;
-
- case 0xF2: /* REPNE/REPNZ */
- reptype = 2;
- break;
-
- default:
- docontinue = 1;
- break;
- }
- }
-
- switch (opcode) {
- case 0x0: /* 00 ADD Eb Gb */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getreg8 (reg);
- op_add8();
- writerm8 (rm, res8);
- break;
-
- case 0x1: /* 01 ADD Ev Gv */
- modregrm();
- oper1 = readrm16 (rm);
- oper2 = getreg16 (reg);
- op_add16();
- writerm16 (rm, res16);
- break;
-
- case 0x2: /* 02 ADD Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- oper2b = readrm8 (rm);
- op_add8();
- putreg8 (reg, res8);
- break;
-
- case 0x3: /* 03 ADD Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- oper2 = readrm16 (rm);
- op_add16();
- putreg16 (reg, res16);
- break;
-
- case 0x4: /* 04 ADD regs.byteregs[regal] Ib */
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- op_add8();
- regs.byteregs[regal] = res8;
- break;
-
- case 0x5: /* 05 ADD eAX Iv */
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- op_add16();
- regs.wordregs[regax] = res16;
- break;
-
- case 0x6: /* 06 PUSH segregs[reges] */
- push (segregs[reges]);
- break;
-
- case 0x7: /* 07 POP segregs[reges] */
- segregs[reges] = pop();
- break;
-
- case 0x8: /* 08 OR Eb Gb */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getreg8 (reg);
- op_or8();
- writerm8 (rm, res8);
- break;
-
- case 0x9: /* 09 OR Ev Gv */
- modregrm();
- oper1 = readrm16 (rm);
- oper2 = getreg16 (reg);
- op_or16();
- writerm16 (rm, res16);
- break;
-
- case 0xA: /* 0A OR Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- oper2b = readrm8 (rm);
- op_or8();
- putreg8 (reg, res8);
- break;
-
- case 0xB: /* 0B OR Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- oper2 = readrm16 (rm);
- op_or16();
- putreg16 (reg, res16);
- break;
-
- case 0xC: /* 0C OR regs.byteregs[regal] Ib */
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- op_or8();
- regs.byteregs[regal] = res8;
- break;
-
- case 0xD: /* 0D OR eAX Iv */
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- op_or16();
- regs.wordregs[regax] = res16;
- break;
-
- case 0xE: /* 0E PUSH segregs[regcs] */
- push (segregs[regcs]);
- break;
-
- case 0x10: /* 10 ADC Eb Gb */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getreg8 (reg);
- op_adc8();
- writerm8 (rm, res8);
- break;
-
- case 0x11: /* 11 ADC Ev Gv */
- modregrm();
- oper1 = readrm16 (rm);
- oper2 = getreg16 (reg);
- op_adc16();
- writerm16 (rm, res16);
- break;
-
- case 0x12: /* 12 ADC Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- oper2b = readrm8 (rm);
- op_adc8();
- putreg8 (reg, res8);
- break;
-
- case 0x13: /* 13 ADC Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- oper2 = readrm16 (rm);
- op_adc16();
- putreg16 (reg, res16);
- break;
-
- case 0x14: /* 14 ADC regs.byteregs[regal] Ib */
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- op_adc8();
- regs.byteregs[regal] = res8;
- break;
-
- case 0x15: /* 15 ADC eAX Iv */
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- op_adc16();
- regs.wordregs[regax] = res16;
- break;
-
- case 0x16: /* 16 PUSH segregs[regss] */
- push (segregs[regss]);
- break;
-
- case 0x17: /* 17 POP segregs[regss] */
- segregs[regss] = pop();
- break;
-
- case 0x18: /* 18 SBB Eb Gb */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getreg8 (reg);
- op_sbb8();
- writerm8 (rm, res8);
- break;
-
- case 0x19: /* 19 SBB Ev Gv */
- modregrm();
- oper1 = readrm16 (rm);
- oper2 = getreg16 (reg);
- op_sbb16();
- writerm16 (rm, res16);
- break;
-
- case 0x1A: /* 1A SBB Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- oper2b = readrm8 (rm);
- op_sbb8();
- putreg8 (reg, res8);
- break;
-
- case 0x1B: /* 1B SBB Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- oper2 = readrm16 (rm);
- op_sbb16();
- putreg16 (reg, res16);
- break;
-
- case 0x1C: /* 1C SBB regs.byteregs[regal] Ib */
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- op_sbb8();
- regs.byteregs[regal] = res8;
- break;
-
- case 0x1D: /* 1D SBB eAX Iv */
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- op_sbb16();
- regs.wordregs[regax] = res16;
- break;
-
- case 0x1E: /* 1E PUSH segregs[regds] */
- push (segregs[regds]);
- break;
-
- case 0x1F: /* 1F POP segregs[regds] */
- segregs[regds] = pop();
- break;
-
- case 0x20: /* 20 AND Eb Gb */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getreg8 (reg);
- op_and8();
- writerm8 (rm, res8);
- break;
-
- case 0x21: /* 21 AND Ev Gv */
- modregrm();
- oper1 = readrm16 (rm);
- oper2 = getreg16 (reg);
- op_and16();
- writerm16 (rm, res16);
- break;
-
- case 0x22: /* 22 AND Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- oper2b = readrm8 (rm);
- op_and8();
- putreg8 (reg, res8);
- break;
-
- case 0x23: /* 23 AND Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- oper2 = readrm16 (rm);
- op_and16();
- putreg16 (reg, res16);
- break;
-
- case 0x24: /* 24 AND regs.byteregs[regal] Ib */
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- op_and8();
- regs.byteregs[regal] = res8;
- break;
-
- case 0x25: /* 25 AND eAX Iv */
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- op_and16();
- regs.wordregs[regax] = res16;
- break;
-
- case 0x27: /* 27 DAA */
- if ( ( (regs.byteregs[regal] & 0xF) > 9) || (af == 1) ) {
- oper1 = regs.byteregs[regal] + 6;
- regs.byteregs[regal] = oper1 & 255;
- if (oper1 & 0xFF00) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- af = 1;
- }
- else {
- //af = 0;
- }
-
- if ( (regs.byteregs[regal] > 0x9F) || (cf == 1) ) {
- regs.byteregs[regal] = regs.byteregs[regal] + 0x60;
- cf = 1;
- }
- else {
- //cf = 0;
- }
-
- regs.byteregs[regal] = regs.byteregs[regal] & 255;
- flag_szp8 (regs.byteregs[regal]);
- break;
-
- case 0x28: /* 28 SUB Eb Gb */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getreg8 (reg);
- op_sub8();
- writerm8 (rm, res8);
- break;
-
- case 0x29: /* 29 SUB Ev Gv */
- modregrm();
- oper1 = readrm16 (rm);
- oper2 = getreg16 (reg);
- op_sub16();
- writerm16 (rm, res16);
- break;
-
- case 0x2A: /* 2A SUB Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- oper2b = readrm8 (rm);
- op_sub8();
- putreg8 (reg, res8);
- break;
-
- case 0x2B: /* 2B SUB Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- oper2 = readrm16 (rm);
- op_sub16();
- putreg16 (reg, res16);
- break;
-
- case 0x2C: /* 2C SUB regs.byteregs[regal] Ib */
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- op_sub8();
- regs.byteregs[regal] = res8;
- break;
-
- case 0x2D: /* 2D SUB eAX Iv */
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- op_sub16();
- regs.wordregs[regax] = res16;
- break;
-
- case 0x2F: /* 2F DAS */
- if ( ( (regs.byteregs[regal] & 15) > 9) || (af == 1) ) {
- oper1 = regs.byteregs[regal] - 6;
- regs.byteregs[regal] = oper1 & 255;
- if (oper1 & 0xFF00) {
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- af = 1;
- }
- else {
- af = 0;
- }
-
- if ( ( (regs.byteregs[regal] & 0xF0) > 0x90) || (cf == 1) ) {
- regs.byteregs[regal] = regs.byteregs[regal] - 0x60;
- cf = 1;
- }
- else {
- cf = 0;
- }
-
- flag_szp8 (regs.byteregs[regal]);
- break;
-
- case 0x30: /* 30 XOR Eb Gb */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getreg8 (reg);
- op_xor8();
- writerm8 (rm, res8);
- break;
-
- case 0x31: /* 31 XOR Ev Gv */
- modregrm();
- oper1 = readrm16 (rm);
- oper2 = getreg16 (reg);
- op_xor16();
- writerm16 (rm, res16);
- break;
-
- case 0x32: /* 32 XOR Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- oper2b = readrm8 (rm);
- op_xor8();
- putreg8 (reg, res8);
- break;
-
- case 0x33: /* 33 XOR Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- oper2 = readrm16 (rm);
- op_xor16();
- putreg16 (reg, res16);
- break;
-
- case 0x34: /* 34 XOR regs.byteregs[regal] Ib */
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- op_xor8();
- regs.byteregs[regal] = res8;
- break;
-
- case 0x35: /* 35 XOR eAX Iv */
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- op_xor16();
- regs.wordregs[regax] = res16;
- break;
-
- case 0x37: /* 37 AAA ASCII */
- if ( ( (regs.byteregs[regal] & 0xF) > 9) || (af == 1) ) {
- regs.byteregs[regal] = regs.byteregs[regal] + 6;
- regs.byteregs[regah] = regs.byteregs[regah] + 1;
- af = 1;
- cf = 1;
- }
- else {
- af = 0;
- cf = 0;
- }
-
- regs.byteregs[regal] = regs.byteregs[regal] & 0xF;
- break;
-
- case 0x38: /* 38 CMP Eb Gb */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getreg8 (reg);
- flag_sub8 (oper1b, oper2b);
- break;
-
- case 0x39: /* 39 CMP Ev Gv */
- modregrm();
- oper1 = readrm16 (rm);
- oper2 = getreg16 (reg);
- flag_sub16 (oper1, oper2);
- break;
-
- case 0x3A: /* 3A CMP Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- oper2b = readrm8 (rm);
- flag_sub8 (oper1b, oper2b);
- break;
-
- case 0x3B: /* 3B CMP Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- oper2 = readrm16 (rm);
- flag_sub16 (oper1, oper2);
- break;
-
- case 0x3C: /* 3C CMP regs.byteregs[regal] Ib */
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- flag_sub8 (oper1b, oper2b);
- break;
-
- case 0x3D: /* 3D CMP eAX Iv */
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- flag_sub16 (oper1, oper2);
- break;
-
- case 0x3F: /* 3F AAS ASCII */
- if ( ( (regs.byteregs[regal] & 0xF) > 9) || (af == 1) ) {
- regs.byteregs[regal] = regs.byteregs[regal] - 6;
- regs.byteregs[regah] = regs.byteregs[regah] - 1;
- af = 1;
- cf = 1;
- }
- else {
- af = 0;
- cf = 0;
- }
-
- regs.byteregs[regal] = regs.byteregs[regal] & 0xF;
- break;
-
- case 0x40: /* 40 INC eAX */
- oldcf = cf;
- oper1 = regs.wordregs[regax];
- oper2 = 1;
- op_add16();
- cf = oldcf;
- regs.wordregs[regax] = res16;
- break;
-
- case 0x41: /* 41 INC eCX */
- oldcf = cf;
- oper1 = regs.wordregs[regcx];
- oper2 = 1;
- op_add16();
- cf = oldcf;
- regs.wordregs[regcx] = res16;
- break;
-
- case 0x42: /* 42 INC eDX */
- oldcf = cf;
- oper1 = regs.wordregs[regdx];
- oper2 = 1;
- op_add16();
- cf = oldcf;
- regs.wordregs[regdx] = res16;
- break;
-
- case 0x43: /* 43 INC eBX */
- oldcf = cf;
- oper1 = regs.wordregs[regbx];
- oper2 = 1;
- op_add16();
- cf = oldcf;
- regs.wordregs[regbx] = res16;
- break;
-
- case 0x44: /* 44 INC eSP */
- oldcf = cf;
- oper1 = regs.wordregs[regsp];
- oper2 = 1;
- op_add16();
- cf = oldcf;
- regs.wordregs[regsp] = res16;
- break;
-
- case 0x45: /* 45 INC eBP */
- oldcf = cf;
- oper1 = regs.wordregs[regbp];
- oper2 = 1;
- op_add16();
- cf = oldcf;
- regs.wordregs[regbp] = res16;
- break;
-
- case 0x46: /* 46 INC eSI */
- oldcf = cf;
- oper1 = regs.wordregs[regsi];
- oper2 = 1;
- op_add16();
- cf = oldcf;
- regs.wordregs[regsi] = res16;
- break;
-
- case 0x47: /* 47 INC eDI */
- oldcf = cf;
- oper1 = regs.wordregs[regdi];
- oper2 = 1;
- op_add16();
- cf = oldcf;
- regs.wordregs[regdi] = res16;
- break;
-
- case 0x48: /* 48 DEC eAX */
- oldcf = cf;
- oper1 = regs.wordregs[regax];
- oper2 = 1;
- op_sub16();
- cf = oldcf;
- regs.wordregs[regax] = res16;
- break;
-
- case 0x49: /* 49 DEC eCX */
- oldcf = cf;
- oper1 = regs.wordregs[regcx];
- oper2 = 1;
- op_sub16();
- cf = oldcf;
- regs.wordregs[regcx] = res16;
- break;
-
- case 0x4A: /* 4A DEC eDX */
- oldcf = cf;
- oper1 = regs.wordregs[regdx];
- oper2 = 1;
- op_sub16();
- cf = oldcf;
- regs.wordregs[regdx] = res16;
- break;
-
- case 0x4B: /* 4B DEC eBX */
- oldcf = cf;
- oper1 = regs.wordregs[regbx];
- oper2 = 1;
- op_sub16();
- cf = oldcf;
- regs.wordregs[regbx] = res16;
- break;
-
- case 0x4C: /* 4C DEC eSP */
- oldcf = cf;
- oper1 = regs.wordregs[regsp];
- oper2 = 1;
- op_sub16();
- cf = oldcf;
- regs.wordregs[regsp] = res16;
- break;
-
- case 0x4D: /* 4D DEC eBP */
- oldcf = cf;
- oper1 = regs.wordregs[regbp];
- oper2 = 1;
- op_sub16();
- cf = oldcf;
- regs.wordregs[regbp] = res16;
- break;
-
- case 0x4E: /* 4E DEC eSI */
- oldcf = cf;
- oper1 = regs.wordregs[regsi];
- oper2 = 1;
- op_sub16();
- cf = oldcf;
- regs.wordregs[regsi] = res16;
- break;
-
- case 0x4F: /* 4F DEC eDI */
- oldcf = cf;
- oper1 = regs.wordregs[regdi];
- oper2 = 1;
- op_sub16();
- cf = oldcf;
- regs.wordregs[regdi] = res16;
- break;
-
- case 0x50: /* 50 PUSH eAX */
- push (regs.wordregs[regax]);
- break;
-
- case 0x51: /* 51 PUSH eCX */
- push (regs.wordregs[regcx]);
- break;
-
- case 0x52: /* 52 PUSH eDX */
- push (regs.wordregs[regdx]);
- break;
-
- case 0x53: /* 53 PUSH eBX */
- push (regs.wordregs[regbx]);
- break;
-
- case 0x54: /* 54 PUSH eSP */
- #ifdef USE_286_STYLE_PUSH_SP
- push (regs.wordregs[regsp]);
- #else
- push (regs.wordregs[regsp] - 2);
- #endif
- break;
-
- case 0x55: /* 55 PUSH eBP */
- push (regs.wordregs[regbp]);
- break;
-
- case 0x56: /* 56 PUSH eSI */
- push (regs.wordregs[regsi]);
- break;
-
- case 0x57: /* 57 PUSH eDI */
- push (regs.wordregs[regdi]);
- break;
-
- case 0x58: /* 58 POP eAX */
- regs.wordregs[regax] = pop();
- break;
-
- case 0x59: /* 59 POP eCX */
- regs.wordregs[regcx] = pop();
- break;
-
- case 0x5A: /* 5A POP eDX */
- regs.wordregs[regdx] = pop();
- break;
-
- case 0x5B: /* 5B POP eBX */
- regs.wordregs[regbx] = pop();
- break;
-
- case 0x5C: /* 5C POP eSP */
- regs.wordregs[regsp] = pop();
- break;
-
- case 0x5D: /* 5D POP eBP */
- regs.wordregs[regbp] = pop();
- break;
-
- case 0x5E: /* 5E POP eSI */
- regs.wordregs[regsi] = pop();
- break;
-
- case 0x5F: /* 5F POP eDI */
- regs.wordregs[regdi] = pop();
- break;
-
- #ifndef CPU_8086
- case 0x60: /* 60 PUSHA (80186+) */
- oldsp = regs.wordregs[regsp];
- push (regs.wordregs[regax]);
- push (regs.wordregs[regcx]);
- push (regs.wordregs[regdx]);
- push (regs.wordregs[regbx]);
- push (oldsp);
- push (regs.wordregs[regbp]);
- push (regs.wordregs[regsi]);
- push (regs.wordregs[regdi]);
- break;
-
- case 0x61: /* 61 POPA (80186+) */
- regs.wordregs[regdi] = pop();
- regs.wordregs[regsi] = pop();
- regs.wordregs[regbp] = pop();
- pop();
- regs.wordregs[regbx] = pop();
- regs.wordregs[regdx] = pop();
- regs.wordregs[regcx] = pop();
- regs.wordregs[regax] = pop();
- break;
-
- case 0x62: /* 62 BOUND Gv, Ev (80186+) */
- modregrm();
- getea (rm);
- if (signext32 (getreg16 (reg) ) < signext32 ( getmem16 (ea >> 4, ea & 15) ) ) {
- intcall86 (5); //bounds check exception
- }
- else {
- ea += 2;
- if (signext32 (getreg16 (reg) ) > signext32 ( getmem16 (ea >> 4, ea & 15) ) ) {
- intcall86(5); //bounds check exception
- }
- }
- break;
-
- case 0x68: /* 68 PUSH Iv (80186+) */
- push (getmem16 (segregs[regcs], ip) );
- StepIP (2);
- break;
-
- case 0x69: /* 69 IMUL Gv Ev Iv (80186+) */
- modregrm();
- temp1 = readrm16 (rm);
- temp2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- if ( (temp1 & 0x8000L) == 0x8000L) {
- temp1 = temp1 | 0xFFFF0000L;
- }
-
- if ( (temp2 & 0x8000L) == 0x8000L) {
- temp2 = temp2 | 0xFFFF0000L;
- }
-
- temp3 = temp1 * temp2;
- putreg16 (reg, temp3 & 0xFFFFL);
- if (temp3 & 0xFFFF0000L) {
- cf = 1;
- of = 1;
- }
- else {
- cf = 0;
- of = 0;
- }
- break;
-
- case 0x6A: /* 6A PUSH Ib (80186+) */
- push (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- break;
-
- case 0x6B: /* 6B IMUL Gv Eb Ib (80186+) */
- modregrm();
- temp1 = readrm16 (rm);
- temp2 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if ( (temp1 & 0x8000L) == 0x8000L) {
- temp1 = temp1 | 0xFFFF0000L;
- }
-
- if ( (temp2 & 0x8000L) == 0x8000L) {
- temp2 = temp2 | 0xFFFF0000L;
- }
-
- temp3 = temp1 * temp2;
- putreg16 (reg, temp3 & 0xFFFFL);
- if (temp3 & 0xFFFF0000L) {
- cf = 1;
- of = 1;
- }
- else {
- cf = 0;
- of = 0;
- }
- break;
-
- case 0x6C: /* 6E INSB */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- putmem8 (useseg, regs.wordregs[regsi], portin (regs.wordregs[regdx]) );
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 1;
- regs.wordregs[regdi] = regs.wordregs[regdi] - 1;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 1;
- regs.wordregs[regdi] = regs.wordregs[regdi] + 1;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0x6D: /* 6F INSW */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- putmem16 (useseg, regs.wordregs[regsi], portin16 (regs.wordregs[regdx]) );
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 2;
- regs.wordregs[regdi] = regs.wordregs[regdi] - 2;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 2;
- regs.wordregs[regdi] = regs.wordregs[regdi] + 2;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0x6E: /* 6E OUTSB */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- portout (regs.wordregs[regdx], getmem8 (useseg, regs.wordregs[regsi]) );
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 1;
- regs.wordregs[regdi] = regs.wordregs[regdi] - 1;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 1;
- regs.wordregs[regdi] = regs.wordregs[regdi] + 1;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0x6F: /* 6F OUTSW */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- portout16 (regs.wordregs[regdx], getmem16 (useseg, regs.wordregs[regsi]) );
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 2;
- regs.wordregs[regdi] = regs.wordregs[regdi] - 2;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 2;
- regs.wordregs[regdi] = regs.wordregs[regdi] + 2;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
- #endif
-
- case 0x70: /* 70 JO Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (of) {
- ip = ip + temp16;
- }
- break;
-
- case 0x71: /* 71 JNO Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (!of) {
- ip = ip + temp16;
- }
- break;
-
- case 0x72: /* 72 JB Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (cf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x73: /* 73 JNB Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (!cf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x74: /* 74 JZ Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (zf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x75: /* 75 JNZ Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (!zf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x76: /* 76 JBE Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (cf || zf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x77: /* 77 JA Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (!cf && !zf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x78: /* 78 JS Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (sf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x79: /* 79 JNS Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (!sf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x7A: /* 7A JPE Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (pf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x7B: /* 7B JPO Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (!pf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x7C: /* 7C JL Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (sf != of) {
- ip = ip + temp16;
- }
- break;
-
- case 0x7D: /* 7D JGE Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (sf == of) {
- ip = ip + temp16;
- }
- break;
-
- case 0x7E: /* 7E JLE Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if ( (sf != of) || zf) {
- ip = ip + temp16;
- }
- break;
-
- case 0x7F: /* 7F JG Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (!zf && (sf == of) ) {
- ip = ip + temp16;
- }
- break;
-
- case 0x80:
- case 0x82: /* 80/82 GRP1 Eb Ib */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- switch (reg) {
- case 0:
- op_add8();
- break;
- case 1:
- op_or8();
- break;
- case 2:
- op_adc8();
- break;
- case 3:
- op_sbb8();
- break;
- case 4:
- op_and8();
- break;
- case 5:
- op_sub8();
- break;
- case 6:
- op_xor8();
- break;
- case 7:
- flag_sub8 (oper1b, oper2b);
- break;
- default:
- break; /* to avoid compiler warnings */
- }
-
- if (reg < 7) {
- writerm8 (rm, res8);
- }
- break;
-
- case 0x81: /* 81 GRP1 Ev Iv */
- case 0x83: /* 83 GRP1 Ev Ib */
- modregrm();
- oper1 = readrm16 (rm);
- if (opcode == 0x81) {
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- }
- else {
- oper2 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- }
-
- switch (reg) {
- case 0:
- op_add16();
- break;
- case 1:
- op_or16();
- break;
- case 2:
- op_adc16();
- break;
- case 3:
- op_sbb16();
- break;
- case 4:
- op_and16();
- break;
- case 5:
- op_sub16();
- break;
- case 6:
- op_xor16();
- break;
- case 7:
- flag_sub16 (oper1, oper2);
- break;
- default:
- break; /* to avoid compiler warnings */
- }
-
- if (reg < 7) {
- writerm16 (rm, res16);
- }
- break;
-
- case 0x84: /* 84 TEST Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- oper2b = readrm8 (rm);
- flag_log8 (oper1b & oper2b);
- break;
-
- case 0x85: /* 85 TEST Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- oper2 = readrm16 (rm);
- flag_log16 (oper1 & oper2);
- break;
-
- case 0x86: /* 86 XCHG Gb Eb */
- modregrm();
- oper1b = getreg8 (reg);
- putreg8 (reg, readrm8 (rm) );
- writerm8 (rm, oper1b);
- break;
-
- case 0x87: /* 87 XCHG Gv Ev */
- modregrm();
- oper1 = getreg16 (reg);
- putreg16 (reg, readrm16 (rm) );
- writerm16 (rm, oper1);
- break;
-
- case 0x88: /* 88 MOV Eb Gb */
- modregrm();
- writerm8 (rm, getreg8 (reg) );
- break;
-
- case 0x89: /* 89 MOV Ev Gv */
- modregrm();
- writerm16 (rm, getreg16 (reg) );
- break;
-
- case 0x8A: /* 8A MOV Gb Eb */
- modregrm();
- putreg8 (reg, readrm8 (rm) );
- break;
-
- case 0x8B: /* 8B MOV Gv Ev */
- modregrm();
- putreg16 (reg, readrm16 (rm) );
- break;
-
- case 0x8C: /* 8C MOV Ew Sw */
- modregrm();
- writerm16 (rm, getsegreg (reg) );
- break;
-
- case 0x8D: /* 8D LEA Gv M */
- modregrm();
- getea (rm);
- putreg16 (reg, ea - segbase (useseg) );
- break;
-
- case 0x8E: /* 8E MOV Sw Ew */
- modregrm();
- putsegreg (reg, readrm16 (rm) );
- break;
-
- case 0x8F: /* 8F POP Ev */
- modregrm();
- writerm16 (rm, pop() );
- break;
-
- case 0x90: /* 90 NOP */
- break;
-
- case 0x91: /* 91 XCHG eCX eAX */
- oper1 = regs.wordregs[regcx];
- regs.wordregs[regcx] = regs.wordregs[regax];
- regs.wordregs[regax] = oper1;
- break;
-
- case 0x92: /* 92 XCHG eDX eAX */
- oper1 = regs.wordregs[regdx];
- regs.wordregs[regdx] = regs.wordregs[regax];
- regs.wordregs[regax] = oper1;
- break;
-
- case 0x93: /* 93 XCHG eBX eAX */
- oper1 = regs.wordregs[regbx];
- regs.wordregs[regbx] = regs.wordregs[regax];
- regs.wordregs[regax] = oper1;
- break;
-
- case 0x94: /* 94 XCHG eSP eAX */
- oper1 = regs.wordregs[regsp];
- regs.wordregs[regsp] = regs.wordregs[regax];
- regs.wordregs[regax] = oper1;
- break;
-
- case 0x95: /* 95 XCHG eBP eAX */
- oper1 = regs.wordregs[regbp];
- regs.wordregs[regbp] = regs.wordregs[regax];
- regs.wordregs[regax] = oper1;
- break;
-
- case 0x96: /* 96 XCHG eSI eAX */
- oper1 = regs.wordregs[regsi];
- regs.wordregs[regsi] = regs.wordregs[regax];
- regs.wordregs[regax] = oper1;
- break;
-
- case 0x97: /* 97 XCHG eDI eAX */
- oper1 = regs.wordregs[regdi];
- regs.wordregs[regdi] = regs.wordregs[regax];
- regs.wordregs[regax] = oper1;
- break;
-
- case 0x98: /* 98 CBW */
- if ( (regs.byteregs[regal] & 0x80) == 0x80) {
- regs.byteregs[regah] = 0xFF;
- }
- else {
- regs.byteregs[regah] = 0;
- }
- break;
-
- case 0x99: /* 99 CWD */
- if ( (regs.byteregs[regah] & 0x80) == 0x80) {
- regs.wordregs[regdx] = 0xFFFF;
- }
- else {
- regs.wordregs[regdx] = 0;
- }
- break;
-
- case 0x9A: /* 9A CALL Ap */
- oper1 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- push (segregs[regcs]);
- push (ip);
- ip = oper1;
- segregs[regcs] = oper2;
- break;
-
- case 0x9B: /* 9B WAIT */
- break;
-
- case 0x9C: /* 9C PUSHF */
- push (makeflagsword() | 0xF800);
- break;
-
- case 0x9D: /* 9D POPF */
- decodeflagsword (pop());
- break;
-
- case 0x9E: /* 9E SAHF */
- decodeflagsword ( (makeflagsword() & 0xFF00) | regs.byteregs[regah]);
- break;
-
- case 0x9F: /* 9F LAHF */
- regs.byteregs[regah] = makeflagsword() & 0xFF;
- break;
-
- case 0xA0: /* A0 MOV regs.byteregs[regal] Ob */
- regs.byteregs[regal] = getmem8 (useseg, getmem16 (segregs[regcs], ip) );
- StepIP (2);
- break;
-
- case 0xA1: /* A1 MOV eAX Ov */
- oper1 = getmem16 (useseg, getmem16 (segregs[regcs], ip) );
- StepIP (2);
- regs.wordregs[regax] = oper1;
- break;
-
- case 0xA2: /* A2 MOV Ob regs.byteregs[regal] */
- putmem8 (useseg, getmem16 (segregs[regcs], ip), regs.byteregs[regal]);
- StepIP (2);
- break;
-
- case 0xA3: /* A3 MOV Ov eAX */
- putmem16 (useseg, getmem16 (segregs[regcs], ip), regs.wordregs[regax]);
- StepIP (2);
- break;
-
- case 0xA4: /* A4 MOVSB */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- putmem8 (segregs[reges], regs.wordregs[regdi], getmem8 (useseg, regs.wordregs[regsi]) );
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 1;
- regs.wordregs[regdi] = regs.wordregs[regdi] - 1;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 1;
- regs.wordregs[regdi] = regs.wordregs[regdi] + 1;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xA5: /* A5 MOVSW */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- putmem16 (segregs[reges], regs.wordregs[regdi], getmem16 (useseg, regs.wordregs[regsi]) );
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 2;
- regs.wordregs[regdi] = regs.wordregs[regdi] - 2;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 2;
- regs.wordregs[regdi] = regs.wordregs[regdi] + 2;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xA6: /* A6 CMPSB */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- oper1b = getmem8 (useseg, regs.wordregs[regsi]);
- oper2b = getmem8 (segregs[reges], regs.wordregs[regdi]);
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 1;
- regs.wordregs[regdi] = regs.wordregs[regdi] - 1;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 1;
- regs.wordregs[regdi] = regs.wordregs[regdi] + 1;
- }
-
- flag_sub8 (oper1b, oper2b);
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- if ( (reptype == 1) && !zf) {
- break;
- }
- else if ( (reptype == 2) && (zf == 1) ) {
- break;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xA7: /* A7 CMPSW */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- oper1 = getmem16 (useseg,regs.wordregs[regsi]);
- oper2 = getmem16 (segregs[reges], regs.wordregs[regdi]);
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 2;
- regs.wordregs[regdi] = regs.wordregs[regdi] - 2;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 2;
- regs.wordregs[regdi] = regs.wordregs[regdi] + 2;
- }
-
- flag_sub16 (oper1, oper2);
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- if ( (reptype == 1) && !zf) {
- break;
- }
-
- if ( (reptype == 2) && (zf == 1) ) {
- break;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xA8: /* A8 TEST regs.byteregs[regal] Ib */
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- flag_log8 (oper1b & oper2b);
- break;
-
- case 0xA9: /* A9 TEST eAX Iv */
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- flag_log16 (oper1 & oper2);
- break;
-
- case 0xAA: /* AA STOSB */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- putmem8 (segregs[reges], regs.wordregs[regdi], regs.byteregs[regal]);
- if (df) {
- regs.wordregs[regdi] = regs.wordregs[regdi] - 1;
- }
- else {
- regs.wordregs[regdi] = regs.wordregs[regdi] + 1;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xAB: /* AB STOSW */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- putmem16 (segregs[reges], regs.wordregs[regdi], regs.wordregs[regax]);
- if (df) {
- regs.wordregs[regdi] = regs.wordregs[regdi] - 2;
- }
- else {
- regs.wordregs[regdi] = regs.wordregs[regdi] + 2;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xAC: /* AC LODSB */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- regs.byteregs[regal] = getmem8 (useseg, regs.wordregs[regsi]);
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 1;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 1;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xAD: /* AD LODSW */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- oper1 = getmem16 (useseg, regs.wordregs[regsi]);
- regs.wordregs[regax] = oper1;
- if (df) {
- regs.wordregs[regsi] = regs.wordregs[regsi] - 2;
- }
- else {
- regs.wordregs[regsi] = regs.wordregs[regsi] + 2;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xAE: /* AE SCASB */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- oper1b = regs.byteregs[regal];
- oper2b = getmem8 (segregs[reges], regs.wordregs[regdi]);
- flag_sub8 (oper1b, oper2b);
- if (df) {
- regs.wordregs[regdi] = regs.wordregs[regdi] - 1;
- }
- else {
- regs.wordregs[regdi] = regs.wordregs[regdi] + 1;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- if ( (reptype == 1) && !zf) {
- break;
- }
- else if ( (reptype == 2) && (zf == 1) ) {
- break;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xAF: /* AF SCASW */
- if (reptype && (regs.wordregs[regcx] == 0) ) {
- break;
- }
-
- oper1 = regs.wordregs[regax];
- oper2 = getmem16 (segregs[reges], regs.wordregs[regdi]);
- flag_sub16 (oper1, oper2);
- if (df) {
- regs.wordregs[regdi] = regs.wordregs[regdi] - 2;
- }
- else {
- regs.wordregs[regdi] = regs.wordregs[regdi] + 2;
- }
-
- if (reptype) {
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- }
-
- if ( (reptype == 1) && !zf) {
- break;
- }
- else if ( (reptype == 2) & (zf == 1) ) {
- break;
- }
-
- loopcount++;
- if (!reptype) {
- break;
- }
-
- ip = firstip;
- break;
-
- case 0xB0: /* B0 MOV regs.byteregs[regal] Ib */
- regs.byteregs[regal] = getmem8 (segregs[regcs], ip);
- StepIP (1);
- break;
-
- case 0xB1: /* B1 MOV regs.byteregs[regcl] Ib */
- regs.byteregs[regcl] = getmem8 (segregs[regcs], ip);
- StepIP (1);
- break;
-
- case 0xB2: /* B2 MOV regs.byteregs[regdl] Ib */
- regs.byteregs[regdl] = getmem8 (segregs[regcs], ip);
- StepIP (1);
- break;
-
- case 0xB3: /* B3 MOV regs.byteregs[regbl] Ib */
- regs.byteregs[regbl] = getmem8 (segregs[regcs], ip);
- StepIP (1);
- break;
-
- case 0xB4: /* B4 MOV regs.byteregs[regah] Ib */
- regs.byteregs[regah] = getmem8 (segregs[regcs], ip);
- StepIP (1);
- break;
-
- case 0xB5: /* B5 MOV regs.byteregs[regch] Ib */
- regs.byteregs[regch] = getmem8 (segregs[regcs], ip);
- StepIP (1);
- break;
-
- case 0xB6: /* B6 MOV regs.byteregs[regdh] Ib */
- regs.byteregs[regdh] = getmem8 (segregs[regcs], ip);
- StepIP (1);
- break;
-
- case 0xB7: /* B7 MOV regs.byteregs[regbh] Ib */
- regs.byteregs[regbh] = getmem8 (segregs[regcs], ip);
- StepIP (1);
- break;
-
- case 0xB8: /* B8 MOV eAX Iv */
- oper1 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- regs.wordregs[regax] = oper1;
- break;
-
- case 0xB9: /* B9 MOV eCX Iv */
- oper1 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- regs.wordregs[regcx] = oper1;
- break;
-
- case 0xBA: /* BA MOV eDX Iv */
- oper1 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- regs.wordregs[regdx] = oper1;
- break;
-
- case 0xBB: /* BB MOV eBX Iv */
- oper1 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- regs.wordregs[regbx] = oper1;
- break;
-
- case 0xBC: /* BC MOV eSP Iv */
- regs.wordregs[regsp] = getmem16 (segregs[regcs], ip);
- StepIP (2);
- break;
-
- case 0xBD: /* BD MOV eBP Iv */
- regs.wordregs[regbp] = getmem16 (segregs[regcs], ip);
- StepIP (2);
- break;
-
- case 0xBE: /* BE MOV eSI Iv */
- regs.wordregs[regsi] = getmem16 (segregs[regcs], ip);
- StepIP (2);
- break;
-
- case 0xBF: /* BF MOV eDI Iv */
- regs.wordregs[regdi] = getmem16 (segregs[regcs], ip);
- StepIP (2);
- break;
-
- case 0xC0: /* C0 GRP2 byte imm8 (80186+) */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- writerm8 (rm, op_grp2_8 (oper2b) );
- break;
-
- case 0xC1: /* C1 GRP2 word imm8 (80186+) */
- modregrm();
- oper1 = readrm16 (rm);
- oper2 = getmem8 (segregs[regcs], ip);
- StepIP (1);
- writerm16 (rm, op_grp2_16 ( (uint8_t) oper2) );
- break;
-
- case 0xC2: /* C2 RET Iw */
- oper1 = getmem16 (segregs[regcs], ip);
- ip = pop();
- regs.wordregs[regsp] = regs.wordregs[regsp] + oper1;
- break;
-
- case 0xC3: /* C3 RET */
- ip = pop();
- break;
-
- case 0xC4: /* C4 LES Gv Mp */
- modregrm();
- getea (rm);
- putreg16 (reg, read86 (ea) + read86 (ea + 1) * 256);
- segregs[reges] = read86 (ea + 2) + read86 (ea + 3) * 256;
- break;
-
- case 0xC5: /* C5 LDS Gv Mp */
- modregrm();
- getea (rm);
- putreg16 (reg, read86 (ea) + read86 (ea + 1) * 256);
- segregs[regds] = read86 (ea + 2) + read86 (ea + 3) * 256;
- break;
-
- case 0xC6: /* C6 MOV Eb Ib */
- modregrm();
- writerm8 (rm, getmem8 (segregs[regcs], ip) );
- StepIP (1);
- break;
-
- case 0xC7: /* C7 MOV Ev Iv */
- modregrm();
- writerm16 (rm, getmem16 (segregs[regcs], ip) );
- StepIP (2);
- break;
-
- case 0xC8: /* C8 ENTER (80186+) */
- stacksize = getmem16 (segregs[regcs], ip);
- StepIP (2);
- nestlev = getmem8 (segregs[regcs], ip);
- StepIP (1);
- push (regs.wordregs[regbp]);
- frametemp = regs.wordregs[regsp];
- if (nestlev) {
- for (temp16 = 1; temp16 < nestlev; temp16++) {
- regs.wordregs[regbp] = regs.wordregs[regbp] - 2;
- push (regs.wordregs[regbp]);
- }
-
- push (regs.wordregs[regsp]);
- }
-
- regs.wordregs[regbp] = frametemp;
- regs.wordregs[regsp] = regs.wordregs[regbp] - stacksize;
-
- break;
-
- case 0xC9: /* C9 LEAVE (80186+) */
- regs.wordregs[regsp] = regs.wordregs[regbp];
- regs.wordregs[regbp] = pop();
- break;
-
- case 0xCA: /* CA RETF Iw */
- oper1 = getmem16 (segregs[regcs], ip);
- ip = pop();
- segregs[regcs] = pop();
- regs.wordregs[regsp] = regs.wordregs[regsp] + oper1;
- break;
-
- case 0xCB: /* CB RETF */
- ip = pop();;
- segregs[regcs] = pop();
- break;
-
- case 0xCC: /* CC INT 3 */
- intcall86 (3);
- break;
-
- case 0xCD: /* CD INT Ib */
- oper1b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- intcall86 (oper1b);
- break;
-
- case 0xCE: /* CE INTO */
- if (of) {
- intcall86 (4);
- }
- break;
-
- case 0xCF: /* CF IRET */
- ip = pop();
- segregs[regcs] = pop();
- decodeflagsword (pop() );
-
- /*
- * if (net.enabled) net.canrecv = 1;
- */
- break;
-
- case 0xD0: /* D0 GRP2 Eb 1 */
- modregrm();
- oper1b = readrm8 (rm);
- writerm8 (rm, op_grp2_8 (1) );
- break;
-
- case 0xD1: /* D1 GRP2 Ev 1 */
- modregrm();
- oper1 = readrm16 (rm);
- writerm16 (rm, op_grp2_16 (1) );
- break;
-
- case 0xD2: /* D2 GRP2 Eb regs.byteregs[regcl] */
- modregrm();
- oper1b = readrm8 (rm);
- writerm8 (rm, op_grp2_8 (regs.byteregs[regcl]) );
- break;
-
- case 0xD3: /* D3 GRP2 Ev regs.byteregs[regcl] */
- modregrm();
- oper1 = readrm16 (rm);
- writerm16 (rm, op_grp2_16 (regs.byteregs[regcl]) );
- break;
-
- case 0xD4: /* D4 AAM I0 */
- oper1 = getmem8 (segregs[regcs], ip);
- StepIP (1);
- if (!oper1) {
- intcall86 (0);
- break;
- } /* division by zero */
-
- regs.byteregs[regah] = (regs.byteregs[regal] / oper1) & 255;
- regs.byteregs[regal] = (regs.byteregs[regal] % oper1) & 255;
- flag_szp16 (regs.wordregs[regax]);
- break;
-
- case 0xD5: /* D5 AAD I0 */
- oper1 = getmem8 (segregs[regcs], ip);
- StepIP (1);
- regs.byteregs[regal] = (regs.byteregs[regah] * oper1 + regs.byteregs[regal]) & 255;
- regs.byteregs[regah] = 0;
- flag_szp16 (regs.byteregs[regah] * oper1 + regs.byteregs[regal]);
- sf = 0;
- break;
-
- case 0xD6: /* D6 XLAT on V20/V30, SALC on 8086/8088 */
- case 0xD7: /* D7 XLAT */
- regs.byteregs[regal] = read86(useseg * 16 + (regs.wordregs[regbx]) + regs.byteregs[regal]);
- break;
-
- case 0xD8:
- case 0xD9:
- case 0xDA:
- case 0xDB:
- case 0xDC:
- case 0xDE:
- case 0xDD:
- case 0xDF: /* escape to x87 FPU (unsupported) */
- modregrm();
- break;
-
- case 0xE0: /* E0 LOOPNZ Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- if ( (regs.wordregs[regcx]) && !zf) {
- ip = ip + temp16;
- }
- break;
-
- case 0xE1: /* E1 LOOPZ Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- if (regs.wordregs[regcx] && (zf == 1) ) {
- ip = ip + temp16;
- }
- break;
-
- case 0xE2: /* E2 LOOP Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- regs.wordregs[regcx] = regs.wordregs[regcx] - 1;
- if (regs.wordregs[regcx]) {
- ip = ip + temp16;
- }
- break;
-
- case 0xE3: /* E3 JCXZ Jb */
- temp16 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- if (!regs.wordregs[regcx]) {
- ip = ip + temp16;
- }
- break;
-
- case 0xE4: /* E4 IN regs.byteregs[regal] Ib */
- oper1b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- regs.byteregs[regal] = (uint8_t) portin (oper1b);
- break;
-
- case 0xE5: /* E5 IN eAX Ib */
- oper1b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- regs.wordregs[regax] = portin16 (oper1b);
- break;
-
- case 0xE6: /* E6 OUT Ib regs.byteregs[regal] */
- oper1b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- portout (oper1b, regs.byteregs[regal]);
- break;
-
- case 0xE7: /* E7 OUT Ib eAX */
- oper1b = getmem8 (segregs[regcs], ip);
- StepIP (1);
- portout16 (oper1b, regs.wordregs[regax]);
- break;
-
- case 0xE8: /* E8 CALL Jv */
- oper1 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- push (ip);
- ip = ip + oper1;
- break;
-
- case 0xE9: /* E9 JMP Jv */
- oper1 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- ip = ip + oper1;
- break;
-
- case 0xEA: /* EA JMP Ap */
- oper1 = getmem16 (segregs[regcs], ip);
- StepIP (2);
- oper2 = getmem16 (segregs[regcs], ip);
- ip = oper1;
- segregs[regcs] = oper2;
- break;
-
- case 0xEB: /* EB JMP Jb */
- oper1 = signext (getmem8 (segregs[regcs], ip) );
- StepIP (1);
- ip = ip + oper1;
- break;
-
- case 0xEC: /* EC IN regs.byteregs[regal] regdx */
- oper1 = regs.wordregs[regdx];
- regs.byteregs[regal] = (uint8_t) portin (oper1);
- break;
-
- case 0xED: /* ED IN eAX regdx */
- oper1 = regs.wordregs[regdx];
- regs.wordregs[regax] = portin16 (oper1);
- break;
-
- case 0xEE: /* EE OUT regdx regs.byteregs[regal] */
- oper1 = regs.wordregs[regdx];
- portout (oper1, regs.byteregs[regal]);
- break;
-
- case 0xEF: /* EF OUT regdx eAX */
- oper1 = regs.wordregs[regdx];
- portout16 (oper1, regs.wordregs[regax]);
- break;
-
- case 0xF0: /* F0 LOCK */
- break;
-
- case 0xF4: /* F4 HLT */
- hltstate = 1;
- break;
-
- case 0xF5: /* F5 CMC */
- if (!cf) {
- cf = 1;
- }
- else {
- cf = 0;
- }
- break;
-
- case 0xF6: /* F6 GRP3a Eb */
- modregrm();
- oper1b = readrm8 (rm);
- op_grp3_8();
- if ( (reg > 1) && (reg < 4) ) {
- writerm8 (rm, res8);
- }
- break;
-
- case 0xF7: /* F7 GRP3b Ev */
- modregrm();
- oper1 = readrm16 (rm);
- op_grp3_16();
- if ( (reg > 1) && (reg < 4) ) {
- writerm16 (rm, res16);
- }
- break;
-
- case 0xF8: /* F8 CLC */
- cf = 0;
- break;
-
- case 0xF9: /* F9 STC */
- cf = 1;
- break;
-
- case 0xFA: /* FA CLI */
- ifl = 0;
- break;
-
- case 0xFB: /* FB STI */
- ifl = 1;
- break;
-
- case 0xFC: /* FC CLD */
- df = 0;
- break;
-
- case 0xFD: /* FD STD */
- df = 1;
- break;
-
- case 0xFE: /* FE GRP4 Eb */
- modregrm();
- oper1b = readrm8 (rm);
- oper2b = 1;
- if (!reg) {
- tempcf = cf;
- res8 = oper1b + oper2b;
- flag_add8 (oper1b, oper2b);
- cf = tempcf;
- writerm8 (rm, res8);
- }
- else {
- tempcf = cf;
- res8 = oper1b - oper2b;
- flag_sub8 (oper1b, oper2b);
- cf = tempcf;
- writerm8 (rm, res8);
- }
- break;
-
- case 0xFF: /* FF GRP5 Ev */
- modregrm();
- oper1 = readrm16 (rm);
- op_grp5();
- break;
-
- default:
- intcall86 (6); /* trip invalid opcode exception (this occurs on the 80186+, 8086/8088 CPUs treat them as NOPs. */
- /* technically they aren't exactly like NOPs in most cases, but for our pursoses, that's accurate enough. */
- break;
- }
- }
- return 1;
- }
-
- void reset86(uint16_t startip) {
- segregs[regcs] = 0;
- ip = startip;
- hltstate = 0;
- }
|