aboutsummaryrefslogtreecommitdiffstats
path: root/code75k0.c
diff options
context:
space:
mode:
Diffstat (limited to 'code75k0.c')
-rw-r--r--code75k0.c1436
1 files changed, 1436 insertions, 0 deletions
diff --git a/code75k0.c b/code75k0.c
new file mode 100644
index 0000000..7c58414
--- /dev/null
+++ b/code75k0.c
@@ -0,0 +1,1436 @@
+/* code75k0.c */
+/*****************************************************************************/
+/* AS-Portierung */
+/* */
+/* Codegenerator NEC 75K0 */
+/* */
+/* Historie: 31.12.1996 Grundsteinlegung */
+/* 3. 1.1999 ChkPC-Anpassung */
+/* */
+/*****************************************************************************/
+
+#include "stdinc.h"
+#include <string.h>
+#include <ctype.h>
+
+#include "nls.h"
+#include "strutil.h"
+#include "bpemu.h"
+#include "asmdef.h"
+#include "asmsub.h"
+#include "asmpars.h"
+#include "codepseudo.h"
+#include "codevars.h"
+
+
+#define ModNone (-1)
+#define ModReg4 0
+#define MModReg4 (1 << ModReg4)
+#define ModReg8 1
+#define MModReg8 (1 << ModReg8)
+#define ModImm 2
+#define MModImm (1 << ModImm)
+#define ModInd 3
+#define MModInd (1 << ModInd)
+#define ModAbs 4
+#define MModAbs (1 << ModAbs)
+
+#define FixedOrderCount 6
+#define AriOrderCount 3
+#define LogOrderCount 3
+
+typedef struct
+ {
+ char *Name;
+ Word Code;
+ } FixedOrder;
+
+
+static SimpProc SaveInitProc;
+
+static FixedOrder *FixedOrders;
+static char **AriOrders;
+static char **LogOrders;
+
+static LongInt MBSValue,MBEValue;
+static Boolean MinOneIs0;
+static CPUVar
+ CPU75402,CPU75004,CPU75006,CPU75008,
+ CPU75268,CPU75304,CPU75306,CPU75308,
+ CPU75312,CPU75316,CPU75328,CPU75104,
+ CPU75106,CPU75108,CPU75112,CPU75116,
+ CPU75206,CPU75208,CPU75212,CPU75216,
+ CPU75512,CPU75516;
+static Word ROMEnd;
+
+static ShortInt OpSize;
+static Byte AdrPart;
+static ShortInt AdrMode;
+
+/*-------------------------------------------------------------------------*/
+/* dynamische Codetabellenverwaltung */
+
+ static void AddFixed(char *NewName, Word NewCode)
+BEGIN
+ if (InstrZ>=FixedOrderCount) exit(255);
+ FixedOrders[InstrZ].Name=NewName;
+ FixedOrders[InstrZ++].Code=NewCode;
+END
+
+ static void InitFields(void)
+BEGIN
+ Boolean Err;
+
+ ROMEnd=ConstLongInt(MomCPUName+3,&Err);
+ if (ROMEnd>2) ROMEnd%=10;
+ ROMEnd=(ROMEnd << 10)-1;
+
+ FixedOrders=(FixedOrder *) malloc(sizeof(FixedOrder)*FixedOrderCount); InstrZ=0;
+ AddFixed("RET" ,0x00ee);
+ AddFixed("RETS",0x00e0);
+ AddFixed("RETI",0x00ef);
+ AddFixed("HALT",0xa39d);
+ AddFixed("STOP",0xb39d);
+ AddFixed("NOP" ,0x0060);
+
+ AriOrders=(char **) malloc(sizeof(char *)*AriOrderCount); InstrZ=0;
+ AriOrders[InstrZ++]="ADDC";
+ AriOrders[InstrZ++]="SUBS";
+ AriOrders[InstrZ++]="SUBC";
+
+ LogOrders=(char **) malloc(sizeof(char *)*LogOrderCount); InstrZ=0;
+ LogOrders[InstrZ++]="AND";
+ LogOrders[InstrZ++]="OR";
+ LogOrders[InstrZ++]="XOR";
+END
+
+ static void DeinitFields(void)
+BEGIN
+ free(FixedOrders);
+ free(AriOrders);
+ free(LogOrders);
+END
+
+/*-------------------------------------------------------------------------*/
+/* Untermengen von Befehlssatz abpruefen */
+
+ static void CheckCPU(CPUVar MinCPU)
+BEGIN
+ if (MomCPU<MinCPU)
+ BEGIN
+ WrError(1500); CodeLen=0;
+ END
+END
+
+/*-------------------------------------------------------------------------*/
+/* Adressausdruck parsen */
+
+ static Boolean SetOpSize(ShortInt NewSize)
+BEGIN
+ if (OpSize==-1) OpSize=NewSize;
+ else if (NewSize!=OpSize)
+ BEGIN
+ WrError(1131); return False;
+ END
+ return True;
+END
+
+ static void ChkDataPage(Word Adr)
+BEGIN
+ switch (MBEValue)
+ BEGIN
+ case 0: if ((Adr>0x7f) AND (Adr<0xf80)) WrError(110); break;
+ case 1: if (Hi(Adr)!=MBSValue) WrError(110); break;
+ END
+END
+
+ static void ChkAdr(Byte Mask)
+BEGIN
+ if ((AdrMode!=ModNone) AND ((Mask & (1 << AdrMode))==0))
+ BEGIN
+ WrError(1350); AdrMode=ModNone;
+ END
+END
+
+ static void DecodeAdr(char *Asc, Byte Mask)
+BEGIN
+ static char *RegNames="XAHLDEBC";
+
+ char *p;
+ int pos;
+ Boolean OK;
+ String s;
+
+ AdrMode=ModNone;
+
+ /* Register ? */
+
+ memcpy(s,Asc,2); s[2]='\0'; NLS_UpString(s);
+ p=strstr(RegNames,s);
+
+ if (p!=Nil)
+ BEGIN
+ pos=p-RegNames;
+
+ /* 8-Bit-Register ? */
+
+ if (strlen(Asc)==1)
+ BEGIN
+ AdrPart=pos ^ 1;
+ if (SetOpSize(0))
+ if ((AdrPart>4) AND (MomCPU<CPU75004)) WrError(1505);
+ else AdrMode=ModReg4;
+ ChkAdr(Mask); return;
+ END
+
+ /* 16-Bit-Register ? */
+
+ if ((strlen(Asc)==2) AND (NOT Odd(pos)))
+ BEGIN
+ AdrPart=pos;
+ if (SetOpSize(1))
+ if ((AdrPart>2) AND (MomCPU<CPU75004)) WrError(1505);
+ else AdrMode=ModReg8;
+ ChkAdr(Mask); return;
+ END
+
+ /* 16-Bit-Schattenregister ? */
+
+ if ((strlen(Asc)==3) AND ((Asc[2]=='\'') OR (Asc[2]=='`')) AND (NOT Odd(pos)))
+ BEGIN
+ AdrPart=pos+1;
+ if (SetOpSize(1))
+ if (MomCPU<CPU75104) WrError(1505); else AdrMode=ModReg8;
+ ChkAdr(Mask); return;
+ END
+ END
+
+ /* immediate? */
+
+ if (*Asc=='#')
+ BEGIN
+ if ((OpSize==-1) AND (MinOneIs0)) OpSize=0;
+ FirstPassUnknown=False;
+ switch (OpSize)
+ BEGIN
+ case -1: WrError(1132); break;
+ case 0: AdrPart=EvalIntExpression(Asc+1,Int4,&OK) & 15; break;
+ case 1: AdrPart=EvalIntExpression(Asc+1,Int8,&OK); break;
+ END;
+ if (OK) AdrMode=ModImm;
+ ChkAdr(Mask); return;
+ END
+
+ /* indirekt ? */
+
+ if (*Asc=='@')
+ BEGIN
+ strmaxcpy(s,Asc+1,255);
+ if (strcasecmp(s,"HL")==0) AdrPart=1;
+ else if (strcasecmp(s,"HL+")==0) AdrPart=2;
+ else if (strcasecmp(s,"HL-")==0) AdrPart=3;
+ else if (strcasecmp(s,"DE")==0) AdrPart=4;
+ else if (strcasecmp(s,"DL")==0) AdrPart=5;
+ else AdrPart=0;
+ if (AdrPart!=0)
+ BEGIN
+ if ((MomCPU<CPU75004) AND (AdrPart!=1)) WrError(1505);
+ else if ((MomCPU<CPU75104) AND ((AdrPart==2) OR (AdrPart==3))) WrError(1505);
+ else AdrMode=ModInd;
+ ChkAdr(Mask); return;
+ END
+ END
+
+ /* absolut */
+
+ FirstPassUnknown=False;
+ pos=EvalIntExpression(Asc,UInt12,&OK);
+ if (OK)
+ BEGIN
+ AdrPart=Lo(pos); AdrMode=ModAbs;
+ ChkSpace(SegData);
+ if (NOT FirstPassUnknown) ChkDataPage(pos);
+ END
+
+ ChkAdr(Mask);
+END
+
+static String BName;
+
+ static Boolean DecodeBitAddr(char *Asc, Word *Erg)
+BEGIN
+ char *p;
+ int Num;
+ Boolean OK;
+ Word Adr;
+ String bpart;
+
+ p=QuotPos(Asc,'.');
+ if (p==Nil)
+ BEGIN
+ *Erg=EvalIntExpression(Asc,Int16,&OK);
+ if (Hi(*Erg)!=0) ChkDataPage(((*Erg >> 4) & 0xf00)+Lo(*Erg));
+ return OK;
+ END
+
+ *p='\0';
+ strmaxcpy(bpart,p+1,255);
+
+ if (strcasecmp(bpart,"@L")==0)
+ BEGIN
+ FirstPassUnknown=False;
+ Adr=EvalIntExpression(Asc,UInt12,&OK);
+ if (FirstPassUnknown) Adr=(Adr & 0xffc) | 0xfc0;
+ if (OK)
+ BEGIN
+ ChkSpace(SegData);
+ if ((Adr & 3)!=0) WrError(1325);
+ else if (Adr<0xfc0) WrError(1315);
+ else if (MomCPU<CPU75004) WrError(1505);
+ else
+ BEGIN
+ *Erg=0x40+((Adr & 0x3c) >> 2);
+ sprintf(BName,"%sH.@L",HexString(Adr,3));
+ return True;
+ END
+ END
+ END
+ else
+ BEGIN
+ Num=EvalIntExpression(bpart,UInt2,&OK);
+ if (OK)
+ if (strncasecmp(Asc,"@H",2)==0)
+ BEGIN
+ Adr=EvalIntExpression(Asc+2,UInt4,&OK);
+ if (OK)
+ if (MomCPU<CPU75004) WrError(1505);
+ else
+ BEGIN
+ *Erg=(Num << 4)+Adr;
+ sprintf(BName,"@H%s.%c",HexString(Adr,1),Num+'0');
+ return True;
+ END
+ END
+ else
+ BEGIN
+ FirstPassUnknown=False;
+ Adr=EvalIntExpression(Asc,UInt12,&OK);
+ if (FirstPassUnknown) Adr=(Adr | 0xff0);
+ if (OK)
+ BEGIN
+ ChkSpace(SegData);
+ if ((Adr>=0xfb0) AND (Adr<0xfc0))
+ *Erg=0x80+(Num << 4)+(Adr & 15);
+ else if (Adr>=0xff0)
+ *Erg=0xc0+(Num << 4)+(Adr & 15);
+ else
+ *Erg=0x400+(((Word)Num) << 8)+Lo(Adr)+(Hi(Adr) << 12);
+ sprintf(BName,"%sH.%c",HexString(Adr,3),'0'+Num);
+ return True;
+ END
+ END
+ END
+ return False;
+END
+
+ static Boolean DecodeIntName(char *Asc, Byte *Erg)
+BEGIN
+ Word HErg;
+ Byte LPart;
+ String Asc_N;
+
+ strmaxcpy(Asc_N,Asc,255); NLS_UpString(Asc_N); Asc=Asc_N;
+
+ if (MomCPU<=CPU75402) LPart=0;
+ else if (MomCPU<CPU75004) LPart=1;
+ else if (MomCPU<CPU75104) LPart=2;
+ else LPart=3;
+ if (strcmp(Asc,"IEBT")==0) HErg=0x000;
+ else if (strcmp(Asc,"IEW")==0) HErg=0x102;
+ else if (strcmp(Asc,"IETPG")==0) HErg=0x203;
+ else if (strcmp(Asc,"IET0")==0) HErg=0x104;
+ else if (strcmp(Asc,"IECSI")==0) HErg=0x005;
+ else if (strcmp(Asc,"IECSIO")==0) HErg=0x205;
+ else if (strcmp(Asc,"IE0")==0) HErg=0x006;
+ else if (strcmp(Asc,"IE2")==0) HErg=0x007;
+ else if (strcmp(Asc,"IE4")==0) HErg=0x120;
+ else if (strcmp(Asc,"IEKS")==0) HErg=0x123;
+ else if (strcmp(Asc,"IET1")==0) HErg=0x224;
+ else if (strcmp(Asc,"IE1")==0) HErg=0x126;
+ else if (strcmp(Asc,"IE3")==0) HErg=0x227;
+ else HErg=0xfff;
+ if (HErg==0xfff) return False;
+ else if (Hi(HErg)>LPart) return False;
+ else
+ BEGIN
+ *Erg=Lo(HErg); return True;
+ END
+END
+
+/*-------------------------------------------------------------------------*/
+
+ static Boolean DecodePseudo(void)
+BEGIN
+#define ASSUME75Count 2
+ static ASSUMERec ASSUME75s[ASSUME75Count]=
+ {{"MBS", &MBSValue, 0, 0x0f, 0x10},
+ {"MBE", &MBEValue, 0, 0x01, 0x01}};
+
+ Word BErg;
+
+ if (Memo("ASSUME"))
+ BEGIN
+ CodeASSUME(ASSUME75s,ASSUME75Count);
+ if ((MomCPU==CPU75402) AND (MBEValue!=0))
+ BEGIN
+ MBEValue=0; WrError(1440);
+ END
+ return True;
+ END
+
+ if (Memo("SFR"))
+ BEGIN
+ CodeEquate(SegData,0,0xfff);
+ return True;
+ END
+
+ if (Memo("BIT"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ FirstPassUnknown=False;
+ if (DecodeBitAddr(ArgStr[1],&BErg))
+ if (NOT FirstPassUnknown)
+ BEGIN
+ PushLocHandle(-1);
+ EnterIntSymbol(LabPart,BErg,SegNone,False);
+ sprintf(ListLine,"=%s",BName);
+ PopLocHandle();
+ END
+ END
+ return True;
+ END
+
+ return False;
+END
+
+ static void PutCode(Word Code)
+BEGIN
+ BAsmCode[0]=Lo(Code);
+ if (Hi(Code)==0) CodeLen=1;
+ else
+ BEGIN
+ BAsmCode[1]=Hi(Code); CodeLen=2;
+ END
+END
+
+ static void MakeCode_75K0(void)
+BEGIN
+ Integer AdrInt,Dist;
+ int z;
+ Byte HReg;
+ Word BVal;
+ Boolean OK,BrRel,BrLong;
+
+ CodeLen=0; DontPrint=False; OpSize=(-1); MinOneIs0=False;
+
+ /* zu ignorierendes */
+
+ if (Memo("")) return;
+
+ /* Pseudoanweisungen */
+
+ if (DecodePseudo()) return;
+
+ if (DecodeIntelPseudo(True)) return;
+
+ /* ohne Argument */
+
+ for (z=0; z<FixedOrderCount; z++)
+ if (Memo(FixedOrders[z].Name))
+ BEGIN
+ if (ArgCnt!=0) WrError(1110);
+ else PutCode(FixedOrders[z].Code);
+ return;
+ END
+
+ /* Datentransfer */
+
+ if (Memo("MOV"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModReg4+MModReg8+MModInd+MModAbs);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ HReg=AdrPart;
+ DecodeAdr(ArgStr[2],MModReg4+MModInd+MModAbs+MModImm);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (HReg==0)
+ BEGIN
+ PutCode(0x7899+(((Word)AdrPart) << 8)); CheckCPU(CPU75004);
+ END
+ else if (AdrPart==0)
+ BEGIN
+ PutCode(0x7099+(((Word)HReg) << 8)); CheckCPU(CPU75004);
+ END
+ else WrError(1350);
+ break;
+ case ModInd:
+ if (HReg!=0) WrError(1350);
+ else PutCode(0xe0+AdrPart);
+ break;
+ case ModAbs:
+ if (HReg!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0xa3; BAsmCode[1]=AdrPart; CodeLen=2;
+ END
+ break;
+ case ModImm:
+ if (HReg==0) PutCode(0x70+AdrPart);
+ else
+ BEGIN
+ PutCode(0x089a+(((Word)AdrPart) << 12)+(((Word)HReg) << 8));
+ CheckCPU(CPU75004);
+ END
+ break;
+ END
+ break;
+ case ModReg8:
+ HReg=AdrPart;
+ DecodeAdr(ArgStr[2],MModReg8+MModAbs+MModInd+MModImm);
+ switch (AdrMode)
+ BEGIN
+ case ModReg8:
+ if (HReg==0)
+ BEGIN
+ PutCode(0x58aa+(((Word)AdrPart) << 8)); CheckCPU(CPU75004);
+ END
+ else if (AdrPart==0)
+ BEGIN
+ PutCode(0x50aa+(((Word)HReg) << 8)); CheckCPU(CPU75004);
+ END
+ else WrError(1350);
+ break;
+ case ModAbs:
+ if (HReg!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0xa2; BAsmCode[1]=AdrPart; CodeLen=2;
+ if ((NOT FirstPassUnknown) AND (Odd(AdrPart))) WrError(180);
+ END
+ break;
+ case ModInd:
+ if ((HReg!=0) OR (AdrPart!=1)) WrError(1350);
+ else
+ BEGIN
+ PutCode(0x18aa); CheckCPU(CPU75004);
+ END
+ break;
+ case ModImm:
+ if (Odd(HReg)) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0x89+HReg; BAsmCode[1]=AdrPart; CodeLen=2;
+ END
+ break;
+ END
+ break;
+ case ModInd:
+ if (AdrPart!=1) WrError(1350);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModReg4+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ PutCode(0xe8); CheckCPU(CPU75004);
+ END
+ break;
+ case ModReg8:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ PutCode(0x10aa); CheckCPU(CPU75004);
+ END
+ break;
+ END
+ END
+ break;
+ case ModAbs:
+ HReg=AdrPart;
+ DecodeAdr(ArgStr[2],MModReg4+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0x93; BAsmCode[1]=HReg; CodeLen=2;
+ END
+ break;
+ case ModReg8:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0x92; BAsmCode[1]=HReg; CodeLen=2;
+ if ((NOT FirstPassUnknown) AND (Odd(HReg))) WrError(180);
+ END
+ break;
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("XCH"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModReg4+MModReg8+MModAbs+MModInd);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ HReg=AdrPart;
+ DecodeAdr(ArgStr[2],MModReg4+MModAbs+MModInd);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (HReg==0) PutCode(0xd8+AdrPart);
+ else if (AdrPart==0) PutCode(0xd8+HReg);
+ else WrError(1350);
+ break;
+ case ModAbs:
+ if (HReg!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0xb3; BAsmCode[1]=AdrPart; CodeLen=2;
+ END
+ break;
+ case ModInd:
+ if (HReg!=0) WrError(1350);
+ else PutCode(0xe8+AdrPart);
+ break;
+ END
+ break;
+ case ModReg8:
+ HReg=AdrPart;
+ DecodeAdr(ArgStr[2],MModReg8+MModAbs+MModInd);
+ switch (AdrMode)
+ BEGIN
+ case ModReg8:
+ if (HReg==0)
+ BEGIN
+ PutCode(0x40aa+(((Word)AdrPart) << 8)); CheckCPU(CPU75004);
+ END
+ else if (AdrPart==0)
+ BEGIN
+ PutCode(0x40aa+(((Word)HReg) << 8)); CheckCPU(CPU75004);
+ END
+ else WrError(1350);
+ break;
+ case ModAbs:
+ if (HReg!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0xb2; BAsmCode[1]=AdrPart; CodeLen=2;
+ if ((FirstPassUnknown) AND (Odd(AdrPart))) WrError(180);
+ END
+ break;
+ case ModInd:
+ if ((AdrPart!=1) OR (HReg!=0)) WrError(1350);
+ else
+ BEGIN
+ PutCode(0x11aa); CheckCPU(CPU75004);
+ END
+ break;
+ END
+ break;
+ case ModAbs:
+ HReg=AdrPart;
+ DecodeAdr(ArgStr[2],MModReg4+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0xb3; BAsmCode[1]=HReg; CodeLen=2;
+ END
+ break;
+ case ModReg8:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0xb2; BAsmCode[1]=HReg; CodeLen=2;
+ if ((FirstPassUnknown) AND (Odd(HReg))) WrError(180);
+ END
+ break;
+ END
+ break;
+ case ModInd:
+ HReg=AdrPart;
+ DecodeAdr(ArgStr[2],MModReg4+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (AdrPart!=0) WrError(1350);
+ else PutCode(0xe8+HReg);
+ break;
+ case ModReg8:
+ if ((AdrPart!=0) OR (HReg!=1)) WrError(1350);
+ else
+ BEGIN
+ PutCode(0x11aa); CheckCPU(CPU75004);
+ END;
+ break;
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("MOVT"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"XA")!=0) WrError(1350);
+ else if (strcasecmp(ArgStr[2],"@PCDE")==0)
+ BEGIN
+ PutCode(0xd4); CheckCPU(CPU75004);
+ END
+ else if (strcasecmp(ArgStr[2],"@PCXA")==0) PutCode(0xd0);
+ else WrError(1350);
+ return;
+ END
+
+ if ((Memo("PUSH")) OR (Memo("POP")))
+ BEGIN
+ OK=Memo("PUSH");
+ if (ArgCnt!=1) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"BS")==0)
+ BEGIN
+ PutCode(0x0699+(Ord(OK) << 8)); CheckCPU(CPU75004);
+ END
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg8:
+ if (Odd(AdrPart)) WrError(1350);
+ else PutCode(0x48+Ord(OK)+AdrPart);
+ break;
+ END
+ END
+ return;
+ END
+
+ if ((Memo("IN")) OR (Memo("OUT")))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ z=Ord(Memo("IN"));
+ if (z>0)
+ BEGIN
+ strcpy(ArgStr[3],ArgStr[2]);
+ strcpy(ArgStr[2],ArgStr[1]);
+ strcpy(ArgStr[1],ArgStr[3]);
+ END
+ if (strncasecmp(ArgStr[1],"PORT",4)!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[1]=0xf0+EvalIntExpression(ArgStr[1]+4,UInt4,&OK);
+ if (OK)
+ BEGIN
+ DecodeAdr(ArgStr[2],MModReg8+MModReg4);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0x93+(z << 4); CodeLen=2;
+ END
+ break;
+ case ModReg8:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0x92+(z << 4); CodeLen=2;
+ CheckCPU(CPU75004);
+ END
+ break;
+ END
+ END
+ END
+ END
+ return;
+ END
+
+ /* Arithmetik */
+
+ if (Memo("ADDS"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModReg4+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModImm+MModInd);
+ switch (AdrMode)
+ BEGIN
+ case ModImm:
+ PutCode(0x60+AdrPart); break;
+ case ModInd:
+ if (AdrPart==1) PutCode(0xd2); else WrError(1350);
+ break;
+ END
+ END
+ break;
+ case ModReg8:
+ if (AdrPart==0)
+ BEGIN
+ DecodeAdr(ArgStr[2],MModReg8+MModImm);
+ switch (AdrMode)
+ BEGIN
+ case ModReg8:
+ PutCode(0xc8aa+(((Word)AdrPart) << 8));
+ CheckCPU(CPU75104);
+ break;
+ case ModImm:
+ BAsmCode[0]=0xb9; BAsmCode[1]=AdrPart;
+ CodeLen=2;
+ CheckCPU(CPU75104);
+ break;
+ END
+ END
+ else if (strcasecmp(ArgStr[2],"XA")!=0) WrError(1350);
+ else
+ BEGIN
+ PutCode(0xc0aa+(((Word)AdrPart) << 8));
+ CheckCPU(CPU75104);
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ for (z=0; z<AriOrderCount; z++)
+ if (Memo(AriOrders[z]))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModReg4+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModInd);
+ switch (AdrMode)
+ BEGIN
+ case ModInd:
+ if (AdrPart==1)
+ BEGIN
+ BAsmCode[0]=0xa8;
+ if (z==0) BAsmCode[0]++;
+ if (z==2) BAsmCode[0]+=0x10;
+ CodeLen=1;
+ if (NOT Memo("ADDC")) CheckCPU(CPU75004);
+ END
+ else WrError(1350);
+ break;
+ END
+ END
+ break;
+ case ModReg8:
+ if (AdrPart==0)
+ BEGIN
+ DecodeAdr(ArgStr[2],MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg8:
+ PutCode(0xc8aa+((z+1) << 12)+(((Word)AdrPart) << 8));
+ CheckCPU(CPU75104);
+ break;
+ END
+ END
+ else if (strcasecmp(ArgStr[2],"XA")!=0) WrError(1350);
+ else
+ BEGIN
+ PutCode(0xc0aa+((z+1) << 12)+(((Word)AdrPart) << 8));
+ CheckCPU(CPU75104);
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ for (z=0; z<LogOrderCount; z++)
+ if (Memo(LogOrders[z]))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModReg4+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (AdrPart!=0) WrError(1350);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModImm+MModInd);
+ switch (AdrMode)
+ BEGIN
+ case ModImm:
+ PutCode(0x2099+(((Word)AdrPart & 15) << 8)+((z+1) << 12));
+ CheckCPU(CPU75004);
+ break;
+ case ModInd:
+ if (AdrPart==1) PutCode(0x80+((z+1) << 4)); else WrError(1350);
+ break;
+ END
+ END
+ break;
+ case ModReg8:
+ if (AdrPart==0)
+ BEGIN
+ DecodeAdr(ArgStr[2],MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg8:
+ PutCode(0x88aa+(((Word)AdrPart) << 8)+((z+1) << 12));
+ CheckCPU(CPU75104);
+ break;
+ END
+ END
+ else if (strcasecmp(ArgStr[2],"XA")!=0) WrError(1350);
+ else
+ BEGIN
+ PutCode(0x80aa+(((Word)AdrPart) << 8)+((z+1) << 12));
+ CheckCPU(CPU75104);
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("INCS"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModReg4+MModReg8+MModInd+MModAbs);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ PutCode(0xc0+AdrPart);
+ break;
+ case ModReg8:
+ if ((AdrPart<1) OR (Odd(AdrPart))) WrError(1350);
+ else
+ BEGIN
+ PutCode(0x88+AdrPart); CheckCPU(CPU75104);
+ END
+ break;
+ case ModInd:
+ if (AdrPart==1)
+ BEGIN
+ PutCode(0x0299); CheckCPU(CPU75004);
+ END
+ else WrError(1350);
+ break;
+ case ModAbs:
+ BAsmCode[0]=0x82; BAsmCode[1]=AdrPart; CodeLen=2;
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("DECS"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModReg4+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ PutCode(0xc8+AdrPart);
+ break;
+ case ModReg8:
+ PutCode(0x68aa+(((Word)AdrPart) << 8));
+ CheckCPU(CPU75104);
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("SKE"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModReg4+MModReg8+MModInd);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ HReg=AdrPart;
+ DecodeAdr(ArgStr[2],MModImm+MModInd+MModReg4);
+ switch (AdrMode)
+ BEGIN
+ case ModReg4:
+ if (HReg==0)
+ BEGIN
+ PutCode(0x0899+(((Word)AdrPart) << 8)); CheckCPU(CPU75004);
+ END
+ else if (AdrPart==0)
+ BEGIN
+ PutCode(0x0899+(((Word)HReg) << 8)); CheckCPU(CPU75004);
+ END
+ else WrError(1350);
+ break;
+ case ModImm:
+ BAsmCode[0]=0x9a; BAsmCode[1]=(AdrPart << 4)+HReg;
+ CodeLen=2;
+ break;
+ case ModInd:
+ if ((AdrPart==1) AND (HReg==0)) PutCode(0x80);
+ else WrError(1350);
+ break;
+ END
+ break;
+ case ModReg8:
+ HReg=AdrPart;
+ DecodeAdr(ArgStr[2],MModInd+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModReg8:
+ if (HReg==0)
+ BEGIN
+ PutCode(0x48aa+(((Word)AdrPart) << 8)); CheckCPU(CPU75104);
+ END
+ else if (AdrPart==0)
+ BEGIN
+ PutCode(0x48aa+(((Word)HReg) << 8)); CheckCPU(CPU75104);
+ END
+ else WrError(1350);
+ break;
+ case ModInd:
+ if (AdrPart==1)
+ BEGIN
+ PutCode(0x19aa); CheckCPU(CPU75104);
+ END
+ else WrError(1350);
+ break;
+ END
+ break;
+ case ModInd:
+ if (AdrPart!=1) WrError(1350);
+ else
+ BEGIN
+ MinOneIs0=True;
+ DecodeAdr(ArgStr[2],MModImm+MModReg4+MModReg8);
+ switch (AdrMode)
+ BEGIN
+ case ModImm:
+ PutCode(0x6099+(((Word)AdrPart) << 8)); CheckCPU(CPU75004);
+ break;
+ case ModReg4:
+ if (AdrPart==0) PutCode(0x80); else WrError(1350);
+ break;
+ case ModReg8:
+ if (AdrPart==0)
+ BEGIN
+ PutCode(0x19aa); CheckCPU(CPU75004);
+ END
+ else WrError(1350);
+ break;
+ END
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if ((Memo("RORC")) OR (Memo("NOT")))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"A")!=0) WrError(1350);
+ else if (Memo("RORC")) PutCode(0x98);
+ else PutCode(0x5f99);
+ return;
+ END
+
+ /* Bitoperationen */
+
+ if (Memo("MOV1"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ OK=True;
+ if (strcasecmp(ArgStr[1],"CY")==0) z=0xbd;
+ else if (strcasecmp(ArgStr[2],"CY")==0) z=0x9b;
+ else OK=False;
+ if (NOT OK) WrError(1350);
+ else if (DecodeBitAddr(ArgStr[((z >> 2) & 3)-1],&BVal))
+ if (Hi(BVal)!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=z; BAsmCode[1]=BVal; CodeLen=2;
+ CheckCPU(CPU75104);
+ END
+ END
+ return;
+ END
+
+ if ((Memo("SET1")) OR (Memo("CLR1")))
+ BEGIN
+ OK=Memo("SET1");
+ if (ArgCnt!=1) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"CY")==0) PutCode(0xe6+Ord(OK));
+ else if (DecodeBitAddr(ArgStr[1],&BVal))
+ if (Hi(BVal)!=0)
+ BEGIN
+ BAsmCode[0]=0x84+Ord(OK)+(Hi(BVal & 0x300) << 4);
+ BAsmCode[1]=Lo(BVal); CodeLen=2;
+ END
+ else
+ BEGIN
+ BAsmCode[0]=0x9c+Ord(OK); BAsmCode[1]=BVal; CodeLen=2;
+ END
+ return;
+ END
+
+ if ((Memo("SKT")) OR (Memo("SKF")))
+ BEGIN
+ OK=Memo("SKT");
+ if (ArgCnt!=1) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"CY")==0)
+ if (Memo("SKT")) PutCode(0xd7);
+ else WrError(1350);
+ else if (DecodeBitAddr(ArgStr[1],&BVal))
+ if (Hi(BVal)!=0)
+ BEGIN
+ BAsmCode[0]=0x86+Ord(OK)+(Hi(BVal & 0x300) << 4);
+ BAsmCode[1]=Lo(BVal); CodeLen=2;
+ END
+ else
+ BEGIN
+ BAsmCode[0]=0xbe + Ord(OK); /* ANSI :-0 */
+ BAsmCode[1]=BVal; CodeLen=2;
+ END
+ return;
+ END
+
+ if (Memo("NOT1"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"CY")!=0) WrError(1350);
+ else PutCode(0xd6);
+ return;
+ END
+
+ if (Memo("SKTCLR"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else if (DecodeBitAddr(ArgStr[1],&BVal))
+ if (Hi(BVal)!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0x9f; BAsmCode[1]=BVal; CodeLen=2;
+ END
+ return;
+ END
+
+ if (OpPart[strlen(OpPart)-1]=='1')
+ for (z=0; z<LogOrderCount; z++)
+ if (strncmp(LogOrders[z],OpPart,strlen(LogOrders[z]))==0)
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"CY")!=0) WrError(1350);
+ else if (DecodeBitAddr(ArgStr[2],&BVal))
+ if (Hi(BVal)!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[0]=0xac+((z & 1) << 1)+((z & 2) << 3);
+ BAsmCode[1]=BVal; CodeLen=2;
+ END
+ return;
+ END
+
+ /* Spruenge */
+
+ if (Memo("BR"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"PCDE")==0)
+ BEGIN
+ PutCode(0x0499); CheckCPU(CPU75004);
+ END
+ else if (strcasecmp(ArgStr[1],"PCXA")==0)
+ BEGIN
+ BAsmCode[0]=0x99; BAsmCode[1]=0x00; CodeLen=2;
+ CheckCPU(CPU75104);
+ END
+ else
+ BEGIN
+ BrRel=False; BrLong=False;
+ if (*ArgStr[1]=='$')
+ BEGIN
+ BrRel=True; strcpy(ArgStr[1],ArgStr[1]+1);
+ END
+ else if (*ArgStr[1]=='!')
+ BEGIN
+ BrLong=True; strcpy(ArgStr[1],ArgStr[1]+1);
+ END
+ AdrInt=EvalIntExpression(ArgStr[1],UInt16,&OK);
+ if (OK)
+ BEGIN
+ Dist=AdrInt-EProgCounter();
+ if ((BrRel) OR ((Dist<=16) AND (Dist>=-15) AND (Dist!=0)))
+ BEGIN
+ if (Dist>0)
+ BEGIN
+ Dist--;
+ if ((Dist>15) AND (NOT SymbolQuestionable)) WrError(1370);
+ else PutCode(0x00+Dist);
+ END
+ else
+ BEGIN
+ if ((Dist<-15) AND (NOT SymbolQuestionable)) WrError(1370);
+ else PutCode(0xf0+15+Dist);
+ END
+ END
+ else if ((NOT BrLong) AND ((AdrInt >> 12)==(EProgCounter() >> 12)) AND ((EProgCounter() & 0xfff)<0xffe))
+ BEGIN
+ BAsmCode[0]=0x50+((AdrInt >> 8) & 15);
+ BAsmCode[1]=Lo(AdrInt);
+ CodeLen=2;
+ END
+ else
+ BEGIN
+ BAsmCode[0]=0xab;
+ BAsmCode[1]=Hi(AdrInt & 0x3fff);
+ BAsmCode[2]=Lo(AdrInt);
+ CodeLen=3;
+ CheckCPU(CPU75004);
+ END
+ ChkSpace(SegCode);
+ END
+ END
+ return;
+ END
+
+ if (Memo("BRCB"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ AdrInt=EvalIntExpression(ArgStr[1],UInt16,&OK);
+ if (OK)
+ if ((AdrInt >> 12)!=(EProgCounter() >> 12)) WrError(1910);
+ else if ((EProgCounter() & 0xfff)>=0xffe) WrError(1905);
+ else
+ BEGIN
+ BAsmCode[0]=0x50+((AdrInt >> 8) & 15);
+ BAsmCode[1]=Lo(AdrInt);
+ CodeLen=2;
+ ChkSpace(SegCode);
+ END
+ END
+ return;
+ END
+
+ if (Memo("CALL"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ if (*ArgStr[1]=='!')
+ BEGIN
+ strcpy(ArgStr[1],ArgStr[1]+1); BrLong=True;
+ END
+ else BrLong=False;
+ FirstPassUnknown=False;
+ AdrInt=EvalIntExpression(ArgStr[1],UInt16,&OK);
+ if (FirstPassUnknown) AdrInt&=0x7ff;
+ if (OK)
+ BEGIN
+ if ((BrLong) OR (AdrInt>0x7ff))
+ BEGIN
+ BAsmCode[0]=0xab;
+ BAsmCode[1]=0x40+Hi(AdrInt & 0x3fff);
+ BAsmCode[2]=Lo(AdrInt);
+ CodeLen=3;
+ CheckCPU(CPU75004);
+ END
+ else
+ BEGIN
+ BAsmCode[0]=0x40+Hi(AdrInt & 0x7ff);
+ BAsmCode[1]=Lo(AdrInt);
+ CodeLen=2;
+ END
+ ChkSpace(SegCode);
+ END
+ END
+ return;
+ END
+
+ if (Memo("CALLF"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ if (*ArgStr[1]=='!') strcpy(ArgStr[1],ArgStr[1]+1);
+ AdrInt=EvalIntExpression(ArgStr[1],UInt11,&OK);
+ if (OK)
+ BEGIN
+ BAsmCode[0]=0x40+Hi(AdrInt);
+ BAsmCode[1]=Lo(AdrInt);
+ CodeLen=2;
+ ChkSpace(SegCode);
+ END
+ END
+ return;
+ END
+
+ if (Memo("GETI"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ BAsmCode[0]=EvalIntExpression(ArgStr[1],UInt6,&OK);
+ CodeLen=Ord(OK);
+ CheckCPU(CPU75004);
+ END
+ return;
+ END
+
+ /* Steueranweisungen */
+
+ if ((Memo("EI")) OR (Memo("DI")))
+ BEGIN
+ OK=Memo("EI");
+ if (ArgCnt==0) PutCode(0xb29c+Ord(OK));
+ else if (ArgCnt!=1) WrError(1110);
+ else if (DecodeIntName(ArgStr[1],&HReg)) PutCode(0x989c+Ord(OK)+(((Word)HReg) << 8));
+ else WrError(1440);
+ return;
+ END
+
+ if (Memo("SEL"))
+ BEGIN
+ BAsmCode[0]=0x99;
+ if (ArgCnt!=1) WrError(1110);
+ else if (strncasecmp(ArgStr[1],"RB",2)==0)
+ BEGIN
+ BAsmCode[1]=0x20+EvalIntExpression(ArgStr[1]+2,UInt2,&OK);
+ if (OK)
+ BEGIN
+ CodeLen=2; CheckCPU(CPU75104);
+ END
+ END
+ else if (strncasecmp(ArgStr[1],"MB",2)==0)
+ BEGIN
+ BAsmCode[1]=0x10+EvalIntExpression(ArgStr[1]+2,UInt4,&OK);
+ if (OK)
+ BEGIN
+ CodeLen=2; CheckCPU(CPU75004);
+ END
+ END
+ else WrError(1350);
+ return;
+ END
+
+ WrXError(1200,OpPart);
+END
+
+ static void InitCode_75K0(void)
+BEGIN
+ SaveInitProc();
+ MBSValue=0; MBEValue=0;
+END
+
+ static Boolean IsDef_75K0(void)
+BEGIN
+ return ((Memo("SFR")) OR (Memo("BIT")));
+END
+
+ static void SwitchFrom_75K0(void)
+BEGIN
+ DeinitFields();
+END
+
+ static void SwitchTo_75K0(void)
+BEGIN
+ TurnWords=False; ConstMode=ConstModeIntel; SetIsOccupied=False;
+
+ PCSymbol="PC"; HeaderID=0x7b; NOPCode=0x60;
+ DivideChars=","; HasAttrs=False;
+
+ ValidSegs=(1<<SegCode)|(1<<SegData);
+ Grans[SegCode]=1; ListGrans[SegCode]=1; SegInits[SegCode]=0;
+ Grans[SegData]=1; ListGrans[SegData]=1; SegInits[SegData]=0;
+ SegLimits[SegData] = 0xfff;
+
+ MakeCode=MakeCode_75K0; IsDef=IsDef_75K0;
+ SwitchFrom=SwitchFrom_75K0; InitFields();
+ SegLimits[SegCode] = ROMEnd;
+END
+
+ void code75k0_init(void)
+BEGIN
+ CPU75402=AddCPU("75402",SwitchTo_75K0);
+ CPU75004=AddCPU("75004",SwitchTo_75K0);
+ CPU75006=AddCPU("75006",SwitchTo_75K0);
+ CPU75008=AddCPU("75008",SwitchTo_75K0);
+ CPU75268=AddCPU("75268",SwitchTo_75K0);
+ CPU75304=AddCPU("75304",SwitchTo_75K0);
+ CPU75306=AddCPU("75306",SwitchTo_75K0);
+ CPU75308=AddCPU("75308",SwitchTo_75K0);
+ CPU75312=AddCPU("75312",SwitchTo_75K0);
+ CPU75316=AddCPU("75316",SwitchTo_75K0);
+ CPU75328=AddCPU("75328",SwitchTo_75K0);
+ CPU75104=AddCPU("75104",SwitchTo_75K0);
+ CPU75106=AddCPU("75106",SwitchTo_75K0);
+ CPU75108=AddCPU("75108",SwitchTo_75K0);
+ CPU75112=AddCPU("75112",SwitchTo_75K0);
+ CPU75116=AddCPU("75116",SwitchTo_75K0);
+ CPU75206=AddCPU("75206",SwitchTo_75K0);
+ CPU75208=AddCPU("75208",SwitchTo_75K0);
+ CPU75212=AddCPU("75212",SwitchTo_75K0);
+ CPU75216=AddCPU("75216",SwitchTo_75K0);
+ CPU75512=AddCPU("75512",SwitchTo_75K0);
+ CPU75516=AddCPU("75516",SwitchTo_75K0);
+
+ SaveInitProc=InitPassProc; InitPassProc=InitCode_75K0;
+END
+
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-25 03:53:40 +0000