diff options
author | fishsoupisgood <github@madingley.org> | 2019-05-27 02:41:51 +0100 |
---|---|---|
committer | fishsoupisgood <github@madingley.org> | 2019-05-27 02:41:51 +0100 |
commit | 333b605b2afd472b823aeda0adf0e8b1ea9843c0 (patch) | |
tree | bc8f581317897e2e53f278f1716b4471fcdccd4f /codetms7.c | |
download | asl-333b605b2afd472b823aeda0adf0e8b1ea9843c0.tar.gz asl-333b605b2afd472b823aeda0adf0e8b1ea9843c0.tar.bz2 asl-333b605b2afd472b823aeda0adf0e8b1ea9843c0.zip |
Diffstat (limited to 'codetms7.c')
-rw-r--r-- | codetms7.c | 954 |
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 |