Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. /* codetms1.c */
  2. /*****************************************************************************/
  3. /* SPDX-License-Identifier: GPL-2.0-only OR GPL-3.0-only                     */
  4. /*                                                                           */
  5. /* AS-Portierung                                                             */
  6. /*                                                                           */
  7. /* Codegenerator TMS1000-Familie                                             */
  8. /*                                                                           */
  9. /*****************************************************************************/
  10.  
  11. #include "stdinc.h"
  12. #include <ctype.h>
  13. #include <string.h>
  14.  
  15. #include "bpemu.h"
  16. #include "strutil.h"
  17. #include "asmdef.h"
  18. #include "asmsub.h"
  19. #include "asmpars.h"
  20. #include "asmitree.h"
  21. #include "codevars.h"
  22. #include "headids.h"
  23. #include "codepseudo.h"
  24. #include "intpseudo.h"
  25. #include "errmsg.h"
  26.  
  27. #include "codetms1.h"
  28.  
  29. static CPUVar CPU1000, CPU1100, CPU1200, CPU1300;
  30. static IntType CodeAdrIntType, DataAdrIntType;
  31.  
  32. /* 2/3/4-bit-operand in instruction is bit-mirrored */
  33.  
  34. static const Byte BitMirr[16] =
  35. {
  36.    0,  8,  4, 12,  2, 10,  6, 14,
  37.    1,  9,  5, 13,  3, 11,  7, 15
  38. };
  39.  
  40. /*---------------------------------------------------------------------------*/
  41. /* Decoders */
  42.  
  43. static void DecodeFixed(Word Code)
  44. {
  45.   if (ChkArgCnt(0, 0))
  46.   {
  47.     BAsmCode[0] = Lo(Code);
  48.     CodeLen = 1;
  49.   }
  50. }
  51.  
  52. static void DecodeConst4(Word Code)
  53. {
  54.   if (ChkArgCnt(1, 1))
  55.   {
  56.     Boolean OK;
  57.     BAsmCode[0] = EvalStrIntExpression(&ArgStr[1], Int4, &OK);
  58.     if (OK)
  59.     {
  60.       BAsmCode[0] = BitMirr[BAsmCode[0] & 0x0f] | (Code & 0xf0);
  61.       CodeLen = 1;
  62.     }
  63.   }
  64. }
  65.  
  66. static void DecodeConst3(Word Code)
  67. {
  68.   if (ChkArgCnt(1, 1))
  69.   {
  70.     Boolean OK;
  71.     BAsmCode[0] = EvalStrIntExpression(&ArgStr[1], UInt3, &OK);
  72.     if (OK)
  73.     {
  74.       BAsmCode[0] = (BitMirr[BAsmCode[0] & 0x07] >> 1) | (Code & 0xf8);
  75.       CodeLen = 1;
  76.     }
  77.   }
  78. }
  79.  
  80. static void DecodeConst2(Word Code)
  81. {
  82.   if (ChkArgCnt(1, 1))
  83.   {
  84.     Boolean OK;
  85.     BAsmCode[0] = EvalStrIntExpression(&ArgStr[1], UInt2, &OK);
  86.     if (OK)
  87.     {
  88.       BAsmCode[0] = (BitMirr[BAsmCode[0] & 0x03] >> 2) | (Code & 0xfc);
  89.       CodeLen = 1;
  90.     }
  91.   }
  92. }
  93.  
  94. static void DecodeJmp(Word Code)
  95. {
  96.   if (ChkArgCnt(1, 1))
  97.   {
  98.     tEvalResult EvalResult;
  99.     Word Addr = EvalStrIntExpressionWithResult(&ArgStr[1], CodeAdrIntType, &EvalResult);
  100.     if (EvalResult.OK)
  101.     {
  102.       ChkSpace(SegCode, EvalResult.AddrSpaceMask);
  103.       CodeLen = 1;
  104.       BAsmCode[0] = (Code & 0xc0) | (Addr & 0x3f);
  105.     }
  106.   }
  107. }
  108.  
  109. static void DecodeJmpL(Word Code)
  110. {
  111.   UNUSED(Code);
  112.  
  113.   if (ChkArgCnt(1, 1))
  114.   {
  115.     tEvalResult EvalResult;
  116.     Word Addr = EvalStrIntExpressionWithResult(&ArgStr[1], CodeAdrIntType, &EvalResult);
  117.     if (EvalResult.OK)
  118.     {
  119.       ChkSpace(SegCode, EvalResult.AddrSpaceMask);
  120.       BAsmCode[0] = 0x10 | ((Addr >> 6) & 15); /* LDP... */
  121.       BAsmCode[1] = (Code & 0xc0) | (Addr & 0x3f);
  122.       CodeLen = 2;
  123.     }
  124.   }
  125. }
  126.  
  127. /*---------------------------------------------------------------------------*/
  128. /* Dynamic Instruction Table Handling */
  129.  
  130. static void InitFields(void)
  131. {
  132.   Boolean Is1100 = (MomCPU == CPU1100) || (MomCPU == CPU1300);
  133.  
  134.   InstTable = CreateInstTable(107);
  135.  
  136.   add_null_pseudo(InstTable);
  137.  
  138.   AddInstTable(InstTable, "TAY", Is1100 ? 0x20 : 0x24, DecodeFixed);
  139.   AddInstTable(InstTable, "TYA", 0x23, DecodeFixed);
  140.   AddInstTable(InstTable, "CLA", Is1100 ? 0x7f : 0x2f, DecodeFixed);
  141.  
  142.   AddInstTable(InstTable, "TAM", Is1100 ? 0x27 : 0x03, DecodeFixed);
  143.   if (Is1100)
  144.   {
  145.     AddInstTable(InstTable, "TAMIYC", 0x25, DecodeFixed);
  146.     AddInstTable(InstTable, "TAMDYN", 0x24, DecodeFixed);
  147.   }
  148.   else
  149.   {
  150.     AddInstTable(InstTable, "TAMIY", 0x20, DecodeFixed);
  151.   }
  152.   AddInstTable(InstTable, "TAMZA", Is1100 ? 0x26 : 0x04, DecodeFixed);
  153.   AddInstTable(InstTable, "TMY", 0x22, DecodeFixed);
  154.   AddInstTable(InstTable, "TMA", 0x21, DecodeFixed);
  155.   AddInstTable(InstTable, "XMA", Is1100 ? 0x03 : 0x2e, DecodeFixed);
  156.  
  157.   AddInstTable(InstTable, "AMAAC", Is1100 ? 0x06 : 0x25, DecodeFixed);
  158.   AddInstTable(InstTable, "SAMAN", Is1100 ? 0x3c : 0x27, DecodeFixed);
  159.   AddInstTable(InstTable, "IMAC", Is1100 ? 0x3e : 0x28, DecodeFixed);
  160.   AddInstTable(InstTable, "DMAN", Is1100 ? 0x07 : 0x2a, DecodeFixed);
  161.   if (Is1100)
  162.     AddInstTable(InstTable, "IAC", 0x70, DecodeFixed);
  163.   else
  164.     AddInstTable(InstTable, "IA", 0x0e, DecodeFixed);
  165.   AddInstTable(InstTable, "IYC", Is1100 ? 0x05 : 0x2b, DecodeFixed);
  166.   AddInstTable(InstTable, "DAN", Is1100 ? 0x77 : 0x07, DecodeFixed);
  167.   AddInstTable(InstTable, "DYN", Is1100 ? 0x04 : 0x2c, DecodeFixed);
  168.   AddInstTable(InstTable, "CPAIZ", Is1100 ? 0x3d : 0x2d, DecodeFixed);
  169.   AddInstTable(InstTable, "A6AAC", Is1100 ? 0x7a : 0x06, DecodeFixed);
  170.   AddInstTable(InstTable, "A8AAC", Is1100 ? 0x7e : 0x01, DecodeFixed);
  171.   AddInstTable(InstTable, "A10AAC", Is1100 ? 0x79 : 0x05, DecodeFixed);
  172.   if (Is1100)
  173.   {
  174.     AddInstTable(InstTable, "A2AAC", 0x78, DecodeFixed);
  175.     AddInstTable(InstTable, "A3AAC", 0x74, DecodeFixed);
  176.     AddInstTable(InstTable, "A4AAC", 0x7c, DecodeFixed);
  177.     AddInstTable(InstTable, "A5AAC", 0x72, DecodeFixed);
  178.     AddInstTable(InstTable, "A7AAC", 0x76, DecodeFixed);
  179.     AddInstTable(InstTable, "A9AAC", 0x71, DecodeFixed);
  180.     AddInstTable(InstTable, "A11AAC", 0x75, DecodeFixed);
  181.     AddInstTable(InstTable, "A12AAC", 0x7d, DecodeFixed);
  182.     AddInstTable(InstTable, "A13AAC", 0x73, DecodeFixed);
  183.     AddInstTable(InstTable, "A14AAC", 0x7b, DecodeFixed);
  184.   }
  185.  
  186.   AddInstTable(InstTable, "ALEM", Is1100 ? 0x01: 0x29, DecodeFixed);
  187.   if (!Is1100)
  188.   {
  189.     AddInstTable(InstTable, "ALEC", 0x70, DecodeConst4);
  190.   }
  191.  
  192.   if (Is1100)
  193.   {
  194.     AddInstTable(InstTable, "MNEA", 0x00, DecodeFixed);
  195.   }
  196.   AddInstTable(InstTable, "MNEZ", Is1100 ? 0x3f : 0x26, DecodeFixed);
  197.   AddInstTable(InstTable, "YNEA", Is1100 ? 0x02 : 0x02, DecodeFixed);
  198.   AddInstTable(InstTable, "YNEC", 0x50, DecodeConst4);
  199.  
  200.   AddInstTable(InstTable, "SBIT", 0x30, DecodeConst2);
  201.   AddInstTable(InstTable, "RBIT", 0x34, DecodeConst2);
  202.   AddInstTable(InstTable, "TBIT1", 0x38, DecodeConst2);
  203.  
  204.   AddInstTable(InstTable, "TCY", 0x40, DecodeConst4);
  205.   AddInstTable(InstTable, "TCMIY", 0x60, DecodeConst4);
  206.  
  207.   AddInstTable(InstTable, "KNEZ", Is1100 ? 0x0e : 0x09, DecodeFixed);
  208.   AddInstTable(InstTable, "TKA", 0x08, DecodeFixed);
  209.  
  210.   AddInstTable(InstTable, "SETR", 0x0d, DecodeFixed);
  211.   AddInstTable(InstTable, "RSTR", 0x0c, DecodeFixed);
  212.   AddInstTable(InstTable, "TDO", 0x0a, DecodeFixed);
  213.   if (!Is1100)
  214.   {
  215.     AddInstTable(InstTable, "CLO", 0x0b, DecodeFixed);
  216.   }
  217.  
  218.   if (Is1100)
  219.   {
  220.     AddInstTable(InstTable, "LDX", 0x28, DecodeConst3);
  221.   }
  222.   else
  223.   {
  224.     AddInstTable(InstTable, "LDX", 0x3c, DecodeConst2);
  225.   }
  226.   AddInstTable(InstTable, "COMX", Is1100 ? 0x09 : 0x00, DecodeFixed);
  227.  
  228.   AddInstTable(InstTable, "BR", 0x80, DecodeJmp);
  229.   AddInstTable(InstTable, "CALL", 0xc0, DecodeJmp);
  230.   AddInstTable(InstTable, "BL", 0x80, DecodeJmpL);
  231.   AddInstTable(InstTable, "CALLL", 0xc0, DecodeJmpL);
  232.   AddInstTable(InstTable, "RETN", 0x0f, DecodeFixed);
  233.   AddInstTable(InstTable, "LDP", 0x10, DecodeConst4);
  234.   if (Is1100)
  235.   {
  236.     AddInstTable(InstTable, "COMC", 0x0b, DecodeFixed);
  237.   }
  238.   AddIntelPseudo(InstTable, eIntPseudoFlag_BigEndian);
  239. }
  240.  
  241. static void DeinitFields(void)
  242. {
  243.   DestroyInstTable(InstTable);
  244. }
  245.  
  246. /*---------------------------------------------------------------------------*/
  247. /* Interface */
  248.  
  249. static void MakeCode_TMS1(void)
  250. {
  251.   if (!LookupInstTable(InstTable, OpPart.str.p_str))
  252.     WrStrErrorPos(ErrNum_UnknownInstruction, &OpPart);
  253. }
  254.  
  255. static Boolean IsDef_TMS1(void)
  256. {
  257.   return False;
  258. }
  259.  
  260. static void SwitchFrom_TMS1(void)
  261. {
  262.   DeinitFields();
  263. }
  264.  
  265. static void SwitchTo_TMS1(void)
  266. {
  267.   const TFamilyDescr *pFoundDescr = FindFamilyByName("TMS1000");
  268.  
  269.   TurnWords = False;
  270.   SetIntConstMode(eIntConstModeIntel);
  271.  
  272.   PCSymbol = "$";
  273.   HeaderID = pFoundDescr->Id;
  274.   NOPCode = 0x100;
  275.   DivideChars = ",";
  276.   HasAttrs = False;
  277.  
  278.   ValidSegs = (1 << SegCode) | (1 << SegData);
  279.   Grans[SegCode] = 1; ListGrans[SegCode] = 1; SegInits[SegCode] = 0;
  280.   Grans[SegData] = 1; ListGrans[SegData] = 1; SegInits[SegData] = 0;
  281.   if ((MomCPU == CPU1000) || (MomCPU == CPU1200))
  282.   {
  283.     CodeAdrIntType = UInt10;
  284.     DataAdrIntType = UInt6;
  285.   }
  286.   else if ((MomCPU == CPU1100) || (MomCPU == CPU1300))
  287.   {
  288.     CodeAdrIntType = UInt11;
  289.     DataAdrIntType = UInt7;
  290.   }
  291.   SegLimits[SegCode] = IntTypeDefs[CodeAdrIntType].Max;
  292.   SegLimits[SegData] = IntTypeDefs[DataAdrIntType].Max;
  293.  
  294.   MakeCode = MakeCode_TMS1;
  295.   IsDef = IsDef_TMS1;
  296.   SwitchFrom = SwitchFrom_TMS1;
  297.  
  298.   InitFields();
  299. }
  300.  
  301. void codetms1_init(void)
  302. {
  303.   CPU1000 = AddCPU("TMS1000", SwitchTo_TMS1);
  304.   CPU1100 = AddCPU("TMS1100", SwitchTo_TMS1);
  305.   CPU1200 = AddCPU("TMS1200", SwitchTo_TMS1);
  306.   CPU1300 = AddCPU("TMS1300", SwitchTo_TMS1);
  307. }
  308.