aboutsummaryrefslogtreecommitdiffstats
path: root/codetms7.c
diff options
context:
space:
mode:
Diffstat (limited to 'codetms7.c')
-rw-r--r--codetms7.c954
1 files changed, 954 insertions, 0 deletions
diff --git a/codetms7.c b/codetms7.c
new file mode 100644
index 0000000..23da68b
--- /dev/null
+++ b/codetms7.c
@@ -0,0 +1,954 @@
+/* codetms7.c */
+/*****************************************************************************/
+/* AS-Portierung */
+/* */
+/* Codegenerator TMS7000-Familie */
+/* */
+/* Historie: 26.2.1997 Grundsteinlegung */
+/* */
+/*****************************************************************************/
+
+#include "stdinc.h"
+#include <ctype.h>
+#include <string.h>
+
+#include "strutil.h"
+#include "bpemu.h"
+#include "nls.h"
+#include "asmdef.h"
+#include "asmsub.h"
+#include "asmpars.h"
+#include "codepseudo.h"
+#include "codevars.h"
+
+
+typedef struct
+ {
+ char *Name;
+ Word Code;
+ } FixedOrder;
+
+typedef struct
+ {
+ char *Name;
+ int Length;
+ Word Code;
+ } LengthOrder;
+
+
+#define ModNone (-1)
+#define ModAccA 0
+#define MModAccA (1 << ModAccA) /* A */
+#define ModAccB 1
+#define MModAccB (1 << ModAccB) /* B */
+#define ModReg 2
+#define MModReg (1 << ModReg) /* Rn */
+#define ModPort 3
+#define MModPort (1 << ModPort) /* Pn */
+#define ModAbs 4
+#define MModAbs (1 << ModAbs) /* nnnn */
+#define ModBRel 5
+#define MModBRel (1 << ModBRel) /* nnnn(B) */
+#define ModIReg 6
+#define MModIReg (1 << ModIReg) /* *Rn */
+#define ModImm 7
+#define MModImm (1 << ModImm) /* #nn */
+#define ModImmBRel 8
+#define MModImmBRel (1 << ModImmBRel) /* #nnnn(b) */
+
+
+#define FixedOrderCount 14
+#define Rel8OrderCount 12
+#define ALU1OrderCount 7
+#define ALU2OrderCount 5
+#define JmpOrderCount 2
+#define ABRegOrderCount 14
+
+
+static CPUVar CPU70C40,CPU70C20,CPU70C00,
+ CPU70CT40,CPU70CT20,
+ CPU70C82,CPU70C42,CPU70C02,
+ CPU70C48,CPU70C08;
+
+static Byte OpSize;
+static ShortInt AdrType;
+static Byte AdrVals[2];
+
+static FixedOrder *FixedOrders;
+static FixedOrder *Rel8Orders;
+static FixedOrder *ALU1Orders;
+static LengthOrder *ALU2Orders;
+static FixedOrder *JmpOrders;
+static FixedOrder *ABRegOrders;
+
+/*---------------------------------------------------------------------------*/
+
+ static void InitFixed(char *NName, Word NCode)
+BEGIN
+ if (InstrZ>=FixedOrderCount) exit(255);
+ FixedOrders[InstrZ].Name=NName;
+ FixedOrders[InstrZ++].Code=NCode;
+END
+
+ static void InitRel8(char *NName, Word NCode)
+BEGIN
+ if (InstrZ>=Rel8OrderCount) exit(255);
+ Rel8Orders[InstrZ].Name=NName;
+ Rel8Orders[InstrZ++].Code=NCode;
+END
+
+ static void InitALU1(char *NName, Word NCode)
+BEGIN
+ if (InstrZ>=ALU1OrderCount) exit(255);
+ ALU1Orders[InstrZ].Name=NName;
+ ALU1Orders[InstrZ++].Code=NCode;
+END
+
+ static void InitALU2(char *NName, Word NCode)
+BEGIN
+ if (InstrZ>=ALU2OrderCount) exit(255);
+ ALU2Orders[InstrZ].Name=NName;
+ ALU2Orders[InstrZ].Length=strlen(NName);
+ ALU2Orders[InstrZ++].Code=NCode;
+END
+
+ static void InitJmp(char *NName, Word NCode)
+BEGIN
+ if (InstrZ>=JmpOrderCount) exit(255);
+ JmpOrders[InstrZ].Name=NName;
+ JmpOrders[InstrZ++].Code=NCode;
+END
+
+ static void InitABReg(char *NName, Word NCode)
+BEGIN
+ if (InstrZ>=ABRegOrderCount) exit(255);
+ ABRegOrders[InstrZ].Name=NName;
+ ABRegOrders[InstrZ++].Code=NCode;
+END
+
+ static void InitFields(void)
+BEGIN
+ FixedOrders=(FixedOrder *) malloc(sizeof(FixedOrder)*FixedOrderCount); InstrZ=0;
+ InitFixed("CLRC" ,0x00b0); InitFixed("DINT" ,0x0060);
+ InitFixed("EINT" ,0x0005); InitFixed("IDLE" ,0x0001);
+ InitFixed("LDSP" ,0x000d); InitFixed("NOP" ,0x0000);
+ InitFixed("RETI" ,0x000b); InitFixed("RTI" ,0x000b);
+ InitFixed("RETS" ,0x000a); InitFixed("RTS" ,0x000a);
+ InitFixed("SETC" ,0x0007); InitFixed("STSP" ,0x0009);
+ InitFixed("TSTA" ,0x00b0); InitFixed("TSTB" ,0x00c1);
+
+ Rel8Orders=(FixedOrder *) malloc(sizeof(FixedOrder)*Rel8OrderCount); InstrZ=0;
+ InitRel8("JMP",0xe0); InitRel8("JC" ,0xe3); InitRel8("JEQ",0xe2);
+ InitRel8("JHS",0xe3); InitRel8("JL" ,0xe7); InitRel8("JN" ,0xe1);
+ InitRel8("JNC",0xe7); InitRel8("JNE",0xe6); InitRel8("JNZ",0xe6);
+ InitRel8("JP" ,0xe4); InitRel8("JPZ",0xe5); InitRel8("JZ" ,0xe2);
+
+ ALU1Orders=(FixedOrder *) malloc(sizeof(FixedOrder)*ALU1OrderCount); InstrZ=0;
+ InitALU1("ADC", 9); InitALU1("ADD", 8);
+ InitALU1("DAC",14); InitALU1("DSB",15);
+ InitALU1("SBB",11); InitALU1("SUB",10); InitALU1("MPY",12);
+
+ ALU2Orders=(LengthOrder *) malloc(sizeof(LengthOrder)*ALU2OrderCount); InstrZ=0;
+ InitALU2("AND" , 3); InitALU2("BTJO", 6);
+ InitALU2("BTJZ", 7); InitALU2("OR" , 4); InitALU2("XOR", 5);
+
+ JmpOrders=(FixedOrder *) malloc(sizeof(FixedOrder)*JmpOrderCount); InstrZ=0;
+ InitJmp("BR" ,12); InitJmp("CALL" ,14);
+
+ ABRegOrders=(FixedOrder *) malloc(sizeof(FixedOrder)*ABRegOrderCount); InstrZ=0;
+ InitABReg("CLR" , 5); InitABReg("DEC" , 2); InitABReg("DECD" ,11);
+ InitABReg("INC" , 3); InitABReg("INV" , 4); InitABReg("POP" , 9);
+ InitABReg("PUSH" , 8); InitABReg("RL" ,14); InitABReg("RLC" ,15);
+ InitABReg("RR" ,12); InitABReg("RRC" ,13); InitABReg("SWAP" , 7);
+ InitABReg("XCHB" , 6); InitABReg("DJNZ" ,10);
+END
+
+ static void DeinitFields(void)
+BEGIN
+ free(FixedOrders);
+ free(Rel8Orders);
+ free(ALU1Orders);
+ free(ALU2Orders);
+ free(JmpOrders);
+ free(ABRegOrders);
+END
+
+/*---------------------------------------------------------------------------*/
+
+ static void ChkAdr(Word Mask)
+BEGIN
+ if ((AdrType!=-1) AND ((Mask & (1L << AdrType))==0))
+ BEGIN
+ WrError(1350); AdrType=ModNone; AdrCnt=0;
+ END
+END
+
+ static void DecodeAdr(char *Asc, Word Mask)
+BEGIN
+ Integer HVal;
+ int Lev,l;
+ char *p;
+ Boolean OK;
+
+ AdrType=ModNone; AdrCnt=0;
+
+ if (strcasecmp(Asc,"A")==0)
+ BEGIN
+ if (((Mask & MModAccA)!=0)) AdrType=ModAccA;
+ else if (((Mask & MModReg)!=0))
+ BEGIN
+ AdrCnt=1; AdrVals[0]=0; AdrType=ModReg;
+ END
+ else
+ BEGIN
+ AdrCnt=2; AdrVals[0]=0; AdrVals[1]=0; AdrType=ModAbs;
+ END
+ ChkAdr(Mask); return;
+ END
+
+ if (strcasecmp(Asc,"B")==0)
+ BEGIN
+ if (((Mask & MModAccB)!=0)) AdrType=ModAccB;
+ else if (((Mask & MModReg)!=0))
+ BEGIN
+ AdrCnt=1; AdrVals[0]=1; AdrType=ModReg;
+ END
+ else
+ BEGIN
+ AdrCnt=2; AdrVals[0]=0; AdrVals[1]=1; AdrType=ModAbs;
+ END
+ ChkAdr(Mask); return;
+ END
+
+ if ((*Asc=='#') OR (*Asc=='%'))
+ BEGIN
+ strcpy(Asc,Asc+1); l=strlen(Asc);
+ if ((l>=3) AND (strcasecmp(Asc+l-3,"(B)")==0))
+ BEGIN
+ Asc[l-3]='\0';
+ HVal=EvalIntExpression(Asc,Int16,&OK);
+ if (OK)
+ BEGIN
+ AdrVals[0]=Hi(HVal); AdrVals[1]=Lo(HVal);
+ AdrType=ModImmBRel; AdrCnt=2;
+ END
+ END
+ else
+ BEGIN
+ switch (OpSize)
+ BEGIN
+ case 0:
+ AdrVals[0]=EvalIntExpression(Asc,Int8,&OK); break;
+ case 1:
+ HVal=EvalIntExpression(Asc,Int16,&OK);
+ AdrVals[0]=Hi(HVal); AdrVals[1]=Lo(HVal);
+ break;
+ END
+ if (OK)
+ BEGIN
+ AdrCnt=1+OpSize; AdrType=ModImm;
+ END
+ END
+ ChkAdr(Mask); return;
+ END
+
+ if (*Asc=='*')
+ BEGIN
+ AdrVals[0]=EvalIntExpression(Asc+1,Int8,&OK);
+ if (OK)
+ BEGIN
+ AdrCnt=1; AdrType=ModIReg;
+ END
+ ChkAdr(Mask); return;
+ END
+
+ if (*Asc=='@') strcpy(Asc,Asc+1);
+
+ if (Asc[strlen(Asc)-1]==')')
+ BEGIN
+ p=Asc+strlen(Asc)-2; Lev=0;
+ while ((p>=Asc) AND (Lev!=-1))
+ BEGIN
+ switch (*p)
+ BEGIN
+ case '(': Lev--; break;
+ case ')': Lev++; break;
+ END
+ if (Lev!=-1) p--;
+ END
+ if (p<Asc)
+ BEGIN
+ WrError(1300); p=Nil;
+ END
+ END
+ else p=Nil;
+
+ if (p==Nil)
+ BEGIN
+ HVal=EvalIntExpression(Asc,Int16,&OK);
+ if (OK)
+ if (((Mask & MModReg)!=0) AND (Hi(HVal)==0))
+ BEGIN
+ AdrVals[0]=Lo(HVal); AdrCnt=1; AdrType=ModReg;
+ END
+ else if (((Mask & MModPort)!=0) AND (Hi(HVal)==0x01))
+ BEGIN
+ AdrVals[0]=Lo(HVal); AdrCnt=1; AdrType=ModPort;
+ END
+ else
+ BEGIN
+ AdrVals[0]=Hi(HVal); AdrVals[1]=Lo(HVal); AdrCnt=2;
+ AdrType=ModAbs;
+ END
+ ChkAdr(Mask); return;
+ END
+ else
+ BEGIN
+ FirstPassUnknown=False; *p='\0';
+ HVal=EvalIntExpression(Asc,Int16,&OK);
+ if (OK)
+ BEGIN
+ p++; p[strlen(p)-1]='\0';
+ if (strcasecmp(p,"B")==0)
+ BEGIN
+ AdrVals[0]=Hi(HVal); AdrVals[1]=Lo(HVal); AdrCnt=2;
+ AdrType=ModBRel;
+ END
+ else WrXError(1445,p);
+ END
+ ChkAdr(Mask); return;
+ END
+END
+
+ static Boolean DecodePseudo(void)
+BEGIN
+ return False;
+END
+
+ static void PutCode(Word Code)
+BEGIN
+ if (Hi(Code)!=0) BAsmCode[CodeLen++]=Hi(Code);
+ BAsmCode[CodeLen++]=Lo(Code);
+END
+
+ static void MakeCode_TMS7(void)
+BEGIN
+ Integer AdrInt;
+ int z;
+ Boolean OK,Rela;
+
+ CodeLen=0; DontPrint=False; OpSize=0;
+
+ /* zu ignorierendes */
+
+ if (Memo("")) return;
+
+ /* Pseudoanweisungen */
+
+ if (DecodePseudo()) return;
+
+ if (DecodeIntelPseudo(True)) return;
+
+ for (z=0; z<FixedOrderCount; z++)
+ if (Memo(FixedOrders[z].Name))
+ BEGIN
+ if (ArgCnt!=0) WrError(1110);
+ else PutCode(FixedOrders[z].Code);
+ return;
+ END
+
+ if ((Memo("MOV")) OR (Memo("MOVP")))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModPort+MModAccA+MModAccB+
+ ((Memo("MOVP"))?0:MModReg+MModAbs+MModIReg+MModBRel));
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ DecodeAdr(ArgStr[1],MModPort+
+ ((Memo("MOVP"))?0:MModReg+MModAbs+MModIReg+MModBRel+MModAccB+MModImm));
+ switch (AdrType)
+ BEGIN
+ case ModReg:
+ BAsmCode[0]=0x12; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ case ModAbs:
+ BAsmCode[0]=0x8a; memcpy(BAsmCode+1,AdrVals,2); CodeLen=3;
+ break;
+ case ModIReg:
+ BAsmCode[0]=0x9a; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ case ModBRel:
+ BAsmCode[0]=0xaa; memcpy(BAsmCode+1,AdrVals,2); CodeLen=3;
+ break;
+ case ModAccB:
+ BAsmCode[0]=0x62; CodeLen=1;
+ break;
+ case ModPort:
+ BAsmCode[0]=0x80; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x22; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ END
+ break;
+ case ModAccB:
+ DecodeAdr(ArgStr[1],MModPort+
+ ((Memo("MOVP"))?0:MModAccA+MModReg+MModImm));
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ BAsmCode[0]=0xc0; CodeLen=1;
+ break;
+ case ModReg:
+ BAsmCode[0]=0x32; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ case ModPort:
+ BAsmCode[0]=0x91; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x52; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ END
+ break;
+ case ModReg:
+ BAsmCode[1]=BAsmCode[2]=AdrVals[0];
+ DecodeAdr(ArgStr[1],MModAccA+MModAccB+MModReg+MModPort+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ BAsmCode[0]=0xd0; CodeLen=2;
+ break;
+ case ModAccB:
+ BAsmCode[0]=0xd1; CodeLen=2;
+ break;
+ case ModReg:
+ BAsmCode[0]=0x42; BAsmCode[1]=AdrVals[0]; CodeLen=3;
+ break;
+ case ModPort:
+ BAsmCode[0]=0xa2; BAsmCode[1]=AdrVals[0]; CodeLen=3;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x72; BAsmCode[1]=AdrVals[0]; CodeLen=3;
+ break;
+ END
+ break;
+ case ModPort:
+ BAsmCode[1]=AdrVals[0]; BAsmCode[2]=AdrVals[0];
+ DecodeAdr(ArgStr[1],MModAccA+MModAccB+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ BAsmCode[0]=0x82; CodeLen=2;
+ break;
+ case ModAccB:
+ BAsmCode[0]=0x92; CodeLen=2;
+ break;
+ case ModImm:
+ BAsmCode[0]=0xa2; BAsmCode[1]=AdrVals[0]; CodeLen=3;
+ break;
+ END
+ break;
+ case ModAbs:
+ memcpy(BAsmCode+1,AdrVals,AdrCnt);
+ DecodeAdr(ArgStr[1],MModAccA);
+ if (AdrType!=ModNone)
+ BEGIN
+ BAsmCode[0]=0x8b; CodeLen=3;
+ END
+ break;
+ case ModIReg:
+ BAsmCode[1]=AdrVals[0];
+ DecodeAdr(ArgStr[1],MModAccA);
+ if (AdrType!=ModNone)
+ BEGIN
+ BAsmCode[0]=0x9b; CodeLen=2;
+ END
+ break;
+ case ModBRel:
+ memcpy(BAsmCode+1,AdrVals,AdrCnt);
+ DecodeAdr(ArgStr[1],MModAccA);
+ if (AdrType!=ModNone)
+ BEGIN
+ BAsmCode[0]=0xab; CodeLen=3;
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("LDA"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModAbs+MModBRel+MModIReg);
+ switch (AdrType)
+ BEGIN
+ case ModAbs:
+ BAsmCode[0]=0x8a; memcpy(BAsmCode+1,AdrVals,AdrCnt); CodeLen=1+AdrCnt;
+ break;
+ case ModBRel:
+ BAsmCode[0]=0xaa; memcpy(BAsmCode+1,AdrVals,AdrCnt); CodeLen=1+AdrCnt;
+ break;
+ case ModIReg:
+ BAsmCode[0]=0x9a; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("STA"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModAbs+MModBRel+MModIReg);
+ switch (AdrType)
+ BEGIN
+ case ModAbs:
+ BAsmCode[0]=0x8b; memcpy(BAsmCode+1,AdrVals,AdrCnt); CodeLen=1+AdrCnt;
+ break;
+ case ModBRel:
+ BAsmCode[0]=0xab; memcpy(BAsmCode+1,AdrVals,AdrCnt); CodeLen=1+AdrCnt;
+ break;
+ case ModIReg:
+ BAsmCode[0]=0x9b; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ END
+ END
+ return;
+ END
+
+ if ((Memo("MOVW")) OR (Memo("MOVD")))
+ BEGIN
+ OpSize=1;
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModReg);
+ if (AdrType!=ModNone)
+ BEGIN
+ z=AdrVals[0];
+ DecodeAdr(ArgStr[1],MModReg+MModImm+MModImmBRel);
+ switch (AdrType)
+ BEGIN
+ case ModReg:
+ BAsmCode[0]=0x98; BAsmCode[1]=AdrVals[0]; BAsmCode[2]=z;
+ CodeLen=3;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x88; memcpy(BAsmCode+1,AdrVals,2);
+ BAsmCode[3]=z;
+ CodeLen=4;
+ break;
+ case ModImmBRel:
+ BAsmCode[0]=0xa8; memcpy(BAsmCode+1,AdrVals,2);
+ BAsmCode[3]=z;
+ CodeLen=4;
+ break;
+ END
+ END
+ END
+ return;
+ END
+
+ for (z=0; z<Rel8OrderCount; z++)
+ if (Memo(Rel8Orders[z].Name))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ AdrInt=EvalIntExpression(ArgStr[1],UInt16,&OK)-(EProgCounter()+2);
+ if (OK)
+ if ((AdrInt>127) OR (AdrInt<-128)) WrError(1370);
+ else
+ BEGIN
+ CodeLen=2;
+ BAsmCode[0]=Rel8Orders[z].Code; BAsmCode[1]=AdrInt & 0xff;
+ END
+ END
+ return;
+ END
+
+ if ((Memo("CMP")) OR (Memo("CMPA")))
+ BEGIN
+ if (((Memo("CMP")) AND (ArgCnt!=2)) OR ((Memo("CMPA")) AND (ArgCnt!=1))) WrError(1110);
+ else
+ BEGIN
+ if (Memo("CMPA")) AdrType=ModAccA;
+ else DecodeAdr(ArgStr[2],MModAccA+MModAccB+MModReg);
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ DecodeAdr(ArgStr[1],MModAbs+MModIReg+MModBRel+MModAccB+MModReg+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModAbs:
+ BAsmCode[0]=0x8d; memcpy(BAsmCode+1,AdrVals,2); CodeLen=3;
+ break;
+ case ModIReg:
+ BAsmCode[0]=0x9d; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ case ModBRel:
+ BAsmCode[0]=0xad; memcpy(BAsmCode+1,AdrVals,2); CodeLen=3;
+ break;
+ case ModAccB:
+ BAsmCode[0]=0x6d; CodeLen=1;
+ break;
+ case ModReg:
+ BAsmCode[0]=0x1d; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x2d; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ END
+ break;
+ case ModAccB:
+ DecodeAdr(ArgStr[1],MModReg+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModReg:
+ BAsmCode[0]=0x3d; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x5d; BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ END
+ break;
+ case ModReg:
+ BAsmCode[2]=AdrVals[0];
+ DecodeAdr(ArgStr[1],MModReg+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModReg:
+ BAsmCode[0]=0x4d; BAsmCode[1]=AdrVals[0]; CodeLen=3;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x7d; BAsmCode[1]=AdrVals[0]; CodeLen=3;
+ break;
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ for (z=0; z<ALU1OrderCount; z++)
+ if (Memo(ALU1Orders[z].Name))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModAccA+MModAccB+MModReg);
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ DecodeAdr(ArgStr[1],MModAccB+MModReg+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModAccB:
+ CodeLen=1; BAsmCode[0]=0x60+ALU1Orders[z].Code;
+ break;
+ case ModReg:
+ CodeLen=2; BAsmCode[0]=0x10+ALU1Orders[z].Code;
+ BAsmCode[1]=AdrVals[0];
+ break;
+ case ModImm:
+ CodeLen=2; BAsmCode[0]=0x20+ALU1Orders[z].Code;
+ BAsmCode[1]=AdrVals[0];
+ break;
+ END
+ break;
+ case ModAccB:
+ DecodeAdr(ArgStr[1],MModReg+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModReg:
+ CodeLen=2; BAsmCode[0]=0x30+ALU1Orders[z].Code;
+ BAsmCode[1]=AdrVals[0];
+ break;
+ case ModImm:
+ CodeLen=2; BAsmCode[0]=0x50+ALU1Orders[z].Code;
+ BAsmCode[1]=AdrVals[0];
+ break;
+ END
+ break;
+ case ModReg:
+ BAsmCode[2]=AdrVals[0];
+ DecodeAdr(ArgStr[1],MModReg+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModReg:
+ CodeLen=3; BAsmCode[0]=0x40+ALU1Orders[z].Code;
+ BAsmCode[1]=AdrVals[0];
+ break;
+ case ModImm:
+ CodeLen=3; BAsmCode[0]=0x70+ALU1Orders[z].Code;
+ BAsmCode[1]=AdrVals[0];
+ break;
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ for (z=0; z<ALU2OrderCount; z++)
+ if ((strncmp(OpPart,ALU2Orders[z].Name,ALU2Orders[z].Length)==0)
+ AND ((OpPart[ALU2Orders[z].Length]=='P') OR (OpPart[ALU2Orders[z].Length]=='\0')))
+ BEGIN
+ Rela=strncmp(OpPart,"BTJ",3)==0;
+ if (((Rela) AND (ArgCnt!=3))
+ OR ((NOT Rela) AND (ArgCnt!=2))) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModPort+
+ ((OpPart[strlen(OpPart)-1]=='P')?0:MModAccA+MModAccB+MModReg));
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ DecodeAdr(ArgStr[1],MModAccB+MModReg+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModAccB:
+ BAsmCode[0]=0x60+ALU2Orders[z].Code; CodeLen=1;
+ break;
+ case ModReg:
+ BAsmCode[0]=0x10+ALU2Orders[z].Code; BAsmCode[1]=AdrVals[0];
+ CodeLen=2;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x20+ALU2Orders[z].Code; BAsmCode[1]=AdrVals[0];
+ CodeLen=2;
+ break;
+ END
+ break;
+ case ModAccB:
+ DecodeAdr(ArgStr[1],MModReg+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModReg:
+ BAsmCode[0]=0x30+ALU2Orders[z].Code; BAsmCode[1]=AdrVals[0];
+ CodeLen=2;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x50+ALU2Orders[z].Code; BAsmCode[1]=AdrVals[0];
+ CodeLen=2;
+ break;
+ END
+ break;
+ case ModReg:
+ BAsmCode[2]=AdrVals[0];
+ DecodeAdr(ArgStr[1],MModReg+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModReg:
+ BAsmCode[0]=0x40+ALU2Orders[z].Code; BAsmCode[1]=AdrVals[0];
+ CodeLen=3;
+ break;
+ case ModImm:
+ BAsmCode[0]=0x70+ALU2Orders[z].Code; BAsmCode[1]=AdrVals[0];
+ CodeLen=3;
+ END
+ break;
+ case ModPort:
+ BAsmCode[1]=AdrVals[0];
+ DecodeAdr(ArgStr[1],MModAccA+MModAccB+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ BAsmCode[0]=0x80+ALU2Orders[z].Code; CodeLen=2;
+ break;
+ case ModAccB:
+ BAsmCode[0]=0x90+ALU2Orders[z].Code; CodeLen=2;
+ break;
+ case ModImm:
+ BAsmCode[0]=0xa0+ALU2Orders[z].Code; BAsmCode[2]=BAsmCode[1];
+ BAsmCode[1]=AdrVals[0]; CodeLen=3;
+ END
+ break;
+ END
+ if ((CodeLen!=0) AND (Rela))
+ BEGIN
+ AdrInt=EvalIntExpression(ArgStr[3],Int16,&OK)-(EProgCounter()+CodeLen+1);
+ if (NOT OK) CodeLen=0;
+ else if ((NOT SymbolQuestionable) AND ((AdrInt>127) OR (AdrInt<-128)))
+ BEGIN
+ WrError(1370); CodeLen=0;
+ END
+ else BAsmCode[CodeLen++]=AdrInt & 0xff;
+ END
+ END
+ return;
+ END
+
+ for (z=0; z<JmpOrderCount; z++)
+ if (Memo(JmpOrders[z].Name))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModAbs+MModIReg+MModBRel);
+ switch (AdrType)
+ BEGIN
+ case ModAbs:
+ CodeLen=3; BAsmCode[0]=0x80+JmpOrders[z].Code;
+ memcpy(BAsmCode+1,AdrVals,2);
+ break;
+ case ModIReg:
+ CodeLen=2; BAsmCode[0]=0x90+JmpOrders[z].Code;
+ BAsmCode[1]=AdrVals[0];
+ break;
+ case ModBRel:
+ CodeLen=3; BAsmCode[0]=0xa0+JmpOrders[z].Code;
+ memcpy(BAsmCode+1,AdrVals,2);
+ break;
+ END
+ END
+ return;
+ END
+
+ for (z=0; z<ABRegOrderCount; z++)
+ if (Memo(ABRegOrders[z].Name))
+ BEGIN
+ if (((NOT Memo("DJNZ")) AND (ArgCnt!=1))
+ OR (( Memo("DJNZ")) AND (ArgCnt!=2))) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"ST")==0)
+ BEGIN
+ if ((Memo("PUSH")) OR (Memo("POP")))
+ BEGIN
+ BAsmCode[0]=8+(Ord(Memo("PUSH"))*6); CodeLen=1;
+ END
+ else WrError(1350);
+ END
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModAccA+MModAccB+MModReg);
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ BAsmCode[0]=0xb0+ABRegOrders[z].Code; CodeLen=1;
+ break;
+ case ModAccB:
+ BAsmCode[0]=0xc0+ABRegOrders[z].Code; CodeLen=1;
+ break;
+ case ModReg:
+ BAsmCode[0]=0xd0+ABRegOrders[z].Code;
+ BAsmCode[1]=AdrVals[0]; CodeLen=2;
+ break;
+ END
+ if ((Memo("DJNZ")) AND (CodeLen!=0))
+ BEGIN
+ AdrInt=EvalIntExpression(ArgStr[2],UInt16,&OK)-(EProgCounter()+CodeLen+1);
+ if (NOT OK) CodeLen=0;
+ else if ((NOT SymbolQuestionable) AND ((AdrInt>127) OR (AdrInt<-128)))
+ BEGIN
+ WrError(1370); CodeLen=0;
+ END
+ else BAsmCode[CodeLen++]=AdrInt & 0xff;
+ END
+ END
+ return;
+ END
+
+ if (Memo("TRAP"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ FirstPassUnknown=False;
+ BAsmCode[0]=EvalIntExpression(ArgStr[1],UInt5,&OK);
+ if (FirstPassUnknown) BAsmCode[0]&=15;
+ if (OK)
+ if (BAsmCode[0]>23) WrError(1320);
+ else
+ BEGIN
+ BAsmCode[0]=0xff-BAsmCode[0]; CodeLen=1;
+ END
+ END
+ return;
+ END
+
+ if (Memo("TST"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModAccA+MModAccB);
+ switch (AdrType)
+ BEGIN
+ case ModAccA:
+ BAsmCode[0]=0xb0; CodeLen=1;
+ break;
+ case ModAccB:
+ BAsmCode[0]=0xc1; CodeLen=1;
+ break;
+ END
+ END
+ return;
+ END
+
+ WrXError(1200,OpPart);
+END
+
+ static Boolean IsDef_TMS7(void)
+BEGIN
+ return False;
+END
+
+ static void InternSymbol_TMS7(char *Asc, TempResult *Erg)
+BEGIN
+ String h;
+ Boolean Err;
+
+ Erg->Typ=TempNone;
+ if ((strlen(Asc)<2) OR ((toupper(*Asc)!='R') AND (toupper(*Asc)!='P'))) return;
+
+ strmaxcpy(h,Asc+1,255);
+ if ((*h=='0') AND (strlen(h)>1)) *h='$';
+ Erg->Contents.Int=ConstLongInt(h,&Err);
+ if ((NOT Err) OR (Erg->Contents.Int<0) OR (Erg->Contents.Int>255)) return;
+
+ Erg->Typ=TempInt; if (toupper(*Asc)=='P') Erg->Contents.Int+=0x100;
+END
+
+ static void SwitchFrom_TMS7(void)
+BEGIN
+ DeinitFields();
+END
+
+ static void SwitchTo_TMS7(void)
+BEGIN
+ TurnWords=False; ConstMode=ConstModeIntel; SetIsOccupied=False;
+
+ PCSymbol="$"; HeaderID=0x73; NOPCode=0x00;
+ DivideChars=","; HasAttrs=False;
+
+ ValidSegs=1<<SegCode;
+ Grans[SegCode]=1; ListGrans[SegCode]=1; SegInits[SegCode]=0;
+ SegLimits[SegCode] = 0xffff;
+
+ MakeCode=MakeCode_TMS7; IsDef=IsDef_TMS7;
+ SwitchFrom=SwitchFrom_TMS7; InternSymbol=InternSymbol_TMS7;
+
+ InitFields();
+END
+
+ void codetms7_init(void)
+BEGIN
+ CPU70C00 =AddCPU("TMS70C00", SwitchTo_TMS7);
+ CPU70C20 =AddCPU("TMS70C20", SwitchTo_TMS7);
+ CPU70C40 =AddCPU("TMS70C40", SwitchTo_TMS7);
+ CPU70CT20=AddCPU("TMS70CT20",SwitchTo_TMS7);
+ CPU70CT40=AddCPU("TMS70CT40",SwitchTo_TMS7);
+ CPU70C02 =AddCPU("TMS70C02", SwitchTo_TMS7);
+ CPU70C42 =AddCPU("TMS70C42", SwitchTo_TMS7);
+ CPU70C82 =AddCPU("TMS70C82", SwitchTo_TMS7);
+ CPU70C08 =AddCPU("TMS70C08", SwitchTo_TMS7);
+ CPU70C48 =AddCPU("TMS70C48", SwitchTo_TMS7);
+END
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-24 11:23:55 +0000