aboutsummaryrefslogtreecommitdiffstats
path: root/code47c00.c
diff options
context:
space:
mode:
Diffstat (limited to 'code47c00.c')
-rw-r--r--code47c00.c1126
1 files changed, 1126 insertions, 0 deletions
diff --git a/code47c00.c b/code47c00.c
new file mode 100644
index 0000000..14b289e
--- /dev/null
+++ b/code47c00.c
@@ -0,0 +1,1126 @@
+/* code47c00.c */
+/*****************************************************************************/
+/* AS-Portierung */
+/* */
+/* Codegenerator Toshiba TLCS-47(0(A)) */
+/* */
+/* Historie: 30.12.1996 Grundsteinlegung */
+/* 3. 1.1999 ChkPC-Anpassung */
+/* */
+/*****************************************************************************/
+
+#include "stdinc.h"
+
+#include <string.h>
+
+#include "bpemu.h"
+#include "strutil.h"
+#include "asmdef.h"
+#include "asmsub.h"
+#include "asmpars.h"
+#include "codepseudo.h"
+#include "codevars.h"
+
+
+typedef struct
+ {
+ char *Name;
+ Byte Code;
+ } FixedOrder;
+
+#define FixedOrderCnt 3
+#define BitOrderCnt 4
+
+
+#define ModNone (-1)
+#define ModAcc 0
+#define MModAcc (1 << ModAcc)
+#define ModL 1
+#define MModL (1 << ModL)
+#define ModH 2
+#define MModH (1 << ModH)
+#define ModHL 3
+#define MModHL (1 << ModHL)
+#define ModIHL 4
+#define MModIHL (1 << ModIHL)
+#define ModAbs 5
+#define MModAbs (1 << ModAbs)
+#define ModPort 6
+#define MModPort (1 << ModPort)
+#define ModImm 7
+#define MModImm (1 << ModImm)
+#define ModSAbs 8
+#define MModSAbs (1 << ModSAbs)
+
+static CPUVar CPU47C00,CPU470C00,CPU470AC00;
+static ShortInt AdrType,OpSize;
+static Byte AdrVal;
+static LongInt DMBAssume;
+static SimpProc SaveInitProc;
+
+static FixedOrder *FixedOrders;
+static char **BitOrders;
+
+/*---------------------------------------------------------------------------*/
+
+ static void AddFixed(char *NName, Byte NCode)
+BEGIN
+ if (InstrZ>=FixedOrderCnt) exit(255);
+ FixedOrders[InstrZ].Name=NName;
+ FixedOrders[InstrZ++].Code=NCode;
+END
+
+ static void InitFields(void)
+BEGIN
+ FixedOrders=(FixedOrder *) malloc(sizeof(FixedOrder)*FixedOrderCnt); InstrZ=0;
+ AddFixed("RET" , 0x2a);
+ AddFixed("RETI", 0x2b);
+ AddFixed("NOP" , 0x00);
+
+ BitOrders=(char **) malloc(sizeof(char *)*BitOrderCnt); InstrZ=0;
+ BitOrders[InstrZ++]="SET";
+ BitOrders[InstrZ++]="CLR";
+ BitOrders[InstrZ++]="TEST";
+ BitOrders[InstrZ++]="TESTP";
+END
+
+ static void DeinitFields(void)
+BEGIN
+ free(FixedOrders);
+ free(BitOrders);
+END
+
+/*---------------------------------------------------------------------------*/
+
+ static Word RAMEnd(void)
+BEGIN
+ if (MomCPU==CPU47C00) return 0xff;
+ else if (MomCPU==CPU470C00) return 0x1ff;
+ else return 0x3ff;
+END
+
+ static Word ROMEnd(void)
+BEGIN
+ if (MomCPU==CPU47C00) return 0xfff;
+ else if (MomCPU==CPU470C00) return 0x1fff;
+ else return 0x3fff;
+END
+
+ static Word PortEnd(void)
+BEGIN
+ if (MomCPU==CPU47C00) return 0x0f;
+ else return 0x1f;
+END
+
+ static void SetOpSize(ShortInt NewSize)
+BEGIN
+ if (OpSize==-1) OpSize=NewSize;
+ else if (OpSize!=NewSize)
+ BEGIN
+ WrError(1131); AdrType=ModNone;
+ END
+END
+
+ static void ChkAdr(Word Mask)
+BEGIN
+ if ((AdrType!=ModNone) AND (((1 << AdrType) & Mask)==0))
+ BEGIN
+ WrError(1350); AdrType=ModNone;
+ END
+END
+
+ static void DecodeAdr(char *Asc, Word Mask)
+BEGIN
+ static char *RegNames[ModIHL+1]={"A","L","H","HL","@HL"};
+
+ Byte z;
+ Word AdrWord;
+ Boolean OK;
+
+ AdrType=ModNone;
+
+ for (z=0; z<=ModIHL; z++)
+ if (strcasecmp(Asc,RegNames[z])==0)
+ BEGIN
+ AdrType=z;
+ if (z!=ModIHL) SetOpSize(Ord(z==ModHL));
+ ChkAdr(Mask); return;
+ END
+
+ if (*Asc=='#')
+ BEGIN
+ switch (OpSize)
+ BEGIN
+ case -1:
+ WrError(1132); break;
+ case 2:
+ AdrVal=EvalIntExpression(Asc+1,UInt2,&OK) & 3;
+ if (OK) AdrType=ModImm;
+ break;
+ case 0:
+ AdrVal=EvalIntExpression(Asc+1,Int4,&OK) & 15;
+ if (OK) AdrType=ModImm;
+ break;
+ case 1:
+ AdrVal=EvalIntExpression(Asc+1,Int8,&OK);
+ if (OK) AdrType=ModImm;
+ break;
+ END
+ ChkAdr(Mask); return;
+ END
+
+ if (*Asc=='%')
+ BEGIN
+ AdrVal=EvalIntExpression(Asc+1,Int5,&OK);
+ if (OK)
+ BEGIN
+ AdrType=ModPort; ChkSpace(SegIO);
+ END
+ ChkAdr(Mask); return;
+ END
+
+ FirstPassUnknown=False;
+ AdrWord=EvalIntExpression(Asc,Int16,&OK);
+ if (OK)
+ BEGIN
+ ChkSpace(SegData);
+
+ if (FirstPassUnknown) AdrWord&=RAMEnd();
+ else if (Hi(AdrWord)!=DMBAssume) WrError(110);
+
+ AdrVal=Lo(AdrWord);
+ if (FirstPassUnknown) AdrVal&=15;
+
+ if (((Mask & MModSAbs)!=0) AND (AdrVal<16))
+ AdrType=ModSAbs;
+ else AdrType=ModAbs;
+ END
+
+ ChkAdr(Mask);
+END
+
+/*--------------------------------------------------------------------------*/
+
+ static Boolean DecodePseudo(void)
+BEGIN
+#define ASSUME47Count 1
+static ASSUMERec ASSUME47s[ASSUME47Count]=
+ {{"DMB", &DMBAssume, 0, 3, 4}};
+
+ if (Memo("PORT"))
+ BEGIN
+ CodeEquate(SegIO,0,0x1f);
+ return True;
+ END
+
+ if (Memo("ASSUME"))
+ BEGIN
+ CodeASSUME(ASSUME47s,ASSUME47Count);
+ return True;
+ END
+
+ return False;
+END
+
+ static void ChkCPU(Byte Mask)
+BEGIN
+ Byte NMask=(1 << (MomCPU-CPU47C00));
+
+ /* Don't ask me why, but NetBSD/Sun3 doesn't like writing
+ everything in one formula when using -O3 :-( */
+
+ if ((Mask & NMask)==0)
+ BEGIN
+ WrError(1500); CodeLen=0;
+ END
+END
+
+ static Boolean DualOp(char *s1, char *s2)
+BEGIN
+ return (((strcasecmp(ArgStr[1],s1)==0) AND (strcasecmp(ArgStr[2],s2)==0))
+ OR ((strcasecmp(ArgStr[2],s1)==0) AND (strcasecmp(ArgStr[1],s2)==0)));
+END
+
+ static void MakeCode_47C00(void)
+BEGIN
+ Boolean OK;
+ Word AdrWord;
+ int z;
+ Byte HReg;
+
+ CodeLen=0; DontPrint=False; OpSize=(-1);
+
+ /* zu ignorierendes */
+
+ if (Memo("")) return;
+
+ /* Pseudoanweisungen */
+
+ if (DecodeIntelPseudo(False)) return;
+
+ if (DecodePseudo()) return;
+
+ /* ohne Argument */
+
+ for (z=0; z<FixedOrderCnt; z++)
+ if (Memo(FixedOrders[z].Name))
+ BEGIN
+ if (ArgCnt!=0) WrError(1110);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=FixedOrders[z].Code;
+ END
+ return;
+ END
+
+ /* Datentransfer */
+
+ if (Memo("LD"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"DMB")==0)
+ BEGIN
+ SetOpSize(2); DecodeAdr(ArgStr[2],MModImm+MModIHL);
+ switch (AdrType)
+ BEGIN
+ case ModIHL:
+ CodeLen=3; BAsmCode[0]=0x03; BAsmCode[1]=0x3a; BAsmCode[2]=0xe9;
+ ChkCPU(4);
+ break;
+ case ModImm:
+ CodeLen=3; BAsmCode[0]=0x03;
+ BAsmCode[1]=0x2c; BAsmCode[2]=0x09+(AdrVal << 4);
+ ChkCPU(4);
+ break;
+ END
+ END
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModAcc+MModHL+MModH+MModL);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ DecodeAdr(ArgStr[2],MModIHL+MModAbs+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModIHL:
+ CodeLen=1; BAsmCode[0]=0x0c;
+ break;
+ case ModAbs:
+ CodeLen=2; BAsmCode[0]=0x3c; BAsmCode[1]=AdrVal;
+ break;
+ case ModImm:
+ CodeLen=1; BAsmCode[0]=0x40+AdrVal;
+ break;
+ END
+ break;
+ case ModHL:
+ DecodeAdr(ArgStr[2],MModAbs+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModAbs:
+ if ((AdrVal & 3)!=0) WrError(1325);
+ else
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x28; BAsmCode[1]=AdrVal;
+ END
+ break;
+ case ModImm:
+ CodeLen=2;
+ BAsmCode[0]=0xc0+(AdrVal >> 4);
+ BAsmCode[1]=0xe0+(AdrVal & 15);
+ break;
+ END
+ break;
+ case ModH:
+ case ModL:
+ BAsmCode[0]=0xc0+(Ord(AdrType==ModL) << 5);
+ DecodeAdr(ArgStr[2],MModImm);
+ if (AdrType!=ModNone)
+ BEGIN
+ CodeLen=1; BAsmCode[0]+=AdrVal;
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("LDL"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if ((strcasecmp(ArgStr[1],"A")!=0) OR (strcasecmp(ArgStr[2],"@DC")!=0)) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x33;
+ END
+ return;
+ END
+
+ if (Memo("LDH"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if ((strcasecmp(ArgStr[1],"A")!=0) OR (strcasecmp(ArgStr[2],"@DC+")!=0)) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x32;
+ END
+ return;
+ END
+
+ if (Memo("ST"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"DMB")==0)
+ BEGIN
+ DecodeAdr(ArgStr[2],MModIHL);
+ if (AdrType!=ModNone)
+ BEGIN
+ CodeLen=3; BAsmCode[0]=0x03; BAsmCode[1]=0x3a; BAsmCode[2]=0x69;
+ ChkCPU(4);
+ END
+ END
+ else
+ BEGIN
+ OpSize=0; DecodeAdr(ArgStr[1],MModImm+MModAcc);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ if (strcasecmp(ArgStr[2],"@HL+")==0)
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x1a;
+ END
+ else if (strcasecmp(ArgStr[2],"@HL-")==0)
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x1b;
+ END
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModAbs+MModIHL);
+ switch (AdrType)
+ BEGIN
+ case ModAbs:
+ CodeLen=2; BAsmCode[0]=0x3f; BAsmCode[1]=AdrVal;
+ break;
+ case ModIHL:
+ CodeLen=1; BAsmCode[0]=0x0f;
+ break;
+ END
+ END
+ break;
+ case ModImm:
+ HReg=AdrVal;
+ if (strcasecmp(ArgStr[2],"@HL+")==0)
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0xf0+HReg;
+ END
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModSAbs);
+ if (AdrType!=ModNone)
+ if (AdrVal>0x0f) WrError(1320);
+ else
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x2d;
+ BAsmCode[1]=(HReg << 4)+AdrVal;
+ END
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("MOV"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if ((strcasecmp(ArgStr[1],"A")==0) AND (strcasecmp(ArgStr[2],"DMB")==0))
+ BEGIN
+ CodeLen=3; BAsmCode[0]=0x03; BAsmCode[1]=0x3a; BAsmCode[2]=0xa9;
+ ChkCPU(4);
+ END
+ else if ((strcasecmp(ArgStr[1],"DMB")==0) AND (strcasecmp(ArgStr[2],"A")==0))
+ BEGIN
+ CodeLen=3; BAsmCode[0]=0x03; BAsmCode[1]=0x3a; BAsmCode[2]=0x29;
+ ChkCPU(4);
+ END
+ else if ((strcasecmp(ArgStr[1],"A")==0) AND (strcasecmp(ArgStr[2],"SPW13")==0))
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x3a; BAsmCode[1]=0x84;
+ ChkCPU(4);
+ END
+ else if ((strcasecmp(ArgStr[1],"STK13")==0) AND (strcasecmp(ArgStr[2],"A")==0))
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x3a; BAsmCode[1]=0x04;
+ ChkCPU(4);
+ END
+ else if (strcasecmp(ArgStr[2],"A")!=0) WrError(1350);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModH+MModL);
+ if (AdrType!=ModNone)
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x10+Ord(AdrType==ModL);
+ END
+ END
+ return;
+ END
+
+ if (Memo("XCH"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if (DualOp("A","EIR"))
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x13;
+ END
+ else if (DualOp("A","@HL"))
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x0d;
+ END
+ else if (DualOp("A","H"))
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x30;
+ END
+ else if (DualOp("A","L"))
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x31;
+ END
+ else
+ BEGIN
+ if ((strcasecmp(ArgStr[1],"A")!=0) AND (strcasecmp(ArgStr[1],"HL")!=0))
+ BEGIN
+ strcpy(ArgStr[3],ArgStr[1]);
+ strcpy(ArgStr[1],ArgStr[2]);
+ strcpy(ArgStr[2],ArgStr[3]);
+ END
+ if ((strcasecmp(ArgStr[1],"A")!=0) AND (strcasecmp(ArgStr[1],"HL")!=0)) WrError(1350);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModAbs);
+ if (AdrType!=ModNone)
+ if ((strcasecmp(ArgStr[1],"HL")==0) AND ((AdrVal & 3)!=0)) WrError(1325);
+ else
+ BEGIN
+ CodeLen=2;
+ BAsmCode[0]=0x29+(0x14*Ord(strcasecmp(ArgStr[1],"A")==0));
+ BAsmCode[1]=AdrVal;
+ END
+ END
+ END
+ return;
+ END
+
+ if (Memo("IN"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModPort);
+ if (AdrType!=ModNone)
+ BEGIN
+ HReg=AdrVal;
+ DecodeAdr(ArgStr[2],MModAcc+MModIHL);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ CodeLen=2; BAsmCode[0]=0x3a;
+ BAsmCode[1]=(HReg & 0x0f)+(((HReg & 0x10) ^ 0x10) << 1);
+ break;
+ case ModIHL:
+ CodeLen=2; BAsmCode[0]=0x3a;
+ BAsmCode[1]=0x40+(HReg & 0x0f)+(((HReg & 0x10) ^ 0x10) << 1);
+ break;
+ END
+ END
+ END
+ return;
+ END
+
+ if (Memo("OUT"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[2],MModPort);
+ if (AdrType!=ModNone)
+ BEGIN
+ HReg=AdrVal; OpSize=0;
+ DecodeAdr(ArgStr[1],MModAcc+MModIHL+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ CodeLen=2; BAsmCode[0]=0x3a;
+ BAsmCode[1]=0x80+((HReg & 0x10) << 1)+((HReg & 0x0f) ^ 4);
+ break;
+ case ModIHL:
+ CodeLen=2; BAsmCode[0]=0x3a;
+ BAsmCode[1]=0xc0+((HReg & 0x10) << 1)+((HReg & 0x0f) ^ 4);
+ break;
+ case ModImm:
+ if (HReg>0x0f) WrError(1110);
+ else
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x2c;
+ BAsmCode[1]=(AdrVal << 4)+HReg;
+ END
+ break;
+ END
+ END
+ END
+ return;
+ END
+
+ if (Memo("OUTB"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"@HL")!=0) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x12;
+ END
+ return;
+ END
+
+ /* Arithmetik */
+
+ if (Memo("CMPR"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModAcc+MModSAbs+MModH+MModL);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ DecodeAdr(ArgStr[2],MModIHL+MModAbs+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModIHL:
+ CodeLen=1; BAsmCode[0]=0x16;
+ break;
+ case ModAbs:
+ CodeLen=2; BAsmCode[0]=0x3e; BAsmCode[1]=AdrVal;
+ break;
+ case ModImm:
+ CodeLen=1; BAsmCode[0]=0xd0+AdrVal;
+ break;
+ END
+ break;
+ case ModSAbs:
+ OpSize=0; HReg=AdrVal; DecodeAdr(ArgStr[2],MModImm);
+ if (AdrType!=ModNone)
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x2e;
+ BAsmCode[1]=(AdrVal << 4)+HReg;
+ END
+ break;
+ case ModH:
+ case ModL:
+ HReg=AdrType;
+ DecodeAdr(ArgStr[2],MModImm);
+ if (AdrType!=ModNone)
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x38;
+ BAsmCode[1]=0x90+(Ord(HReg==ModH) << 6)+AdrVal;
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("ADD"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ DecodeAdr(ArgStr[1],MModAcc+MModIHL+MModSAbs+MModL+MModH);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ DecodeAdr(ArgStr[2],MModIHL+MModImm);
+ switch (AdrType)
+ BEGIN
+ case ModIHL:
+ CodeLen=1; BAsmCode[0]=0x17;
+ break;
+ case ModImm:
+ CodeLen=2; BAsmCode[0]=0x38; BAsmCode[1]=AdrVal;
+ break;
+ END
+ break;
+ case ModIHL:
+ OpSize=0; DecodeAdr(ArgStr[2],MModImm);
+ if (AdrType!=ModNone)
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x38; BAsmCode[1]=0x40+AdrVal;
+ END
+ break;
+ case ModSAbs:
+ HReg=AdrVal; OpSize=0; DecodeAdr(ArgStr[2],MModImm);
+ if (AdrType!=ModNone)
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x2f; BAsmCode[1]=(AdrVal << 4)+HReg;
+ END
+ break;
+ case ModH:
+ case ModL:
+ HReg=Ord(AdrType==ModH); DecodeAdr(ArgStr[2],MModImm);
+ if (AdrType!=ModNone)
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x38; BAsmCode[1]=0x80+(HReg << 6)+AdrVal;
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("ADDC"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if ((strcasecmp(ArgStr[1],"A")!=0) OR (strcasecmp(ArgStr[2],"@HL")!=0)) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x15;
+ END
+ return;
+ END
+
+ if (Memo("SUBRC"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if ((strcasecmp(ArgStr[1],"A")!=0) OR (strcasecmp(ArgStr[2],"@HL")!=0)) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x14;
+ END
+ return;
+ END
+
+ if (Memo("SUBR"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ OpSize=0; DecodeAdr(ArgStr[2],MModImm);
+ if (AdrType!=ModNone)
+ BEGIN
+ HReg=AdrVal;
+ DecodeAdr(ArgStr[1],MModAcc+MModIHL);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ CodeLen=2; BAsmCode[0]=0x38; BAsmCode[1]=0x10+HReg;
+ break;
+ case ModIHL:
+ CodeLen=2; BAsmCode[0]=0x38; BAsmCode[1]=0x50+HReg;
+ break;
+ END
+ END
+ END
+ return;
+ END
+
+ if ((Memo("INC")) OR (Memo("DEC")))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ HReg=Ord(Memo("DEC"));
+ DecodeAdr(ArgStr[1],MModAcc+MModIHL+MModL);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ CodeLen=1; BAsmCode[0]=0x08+HReg;
+ break;
+ case ModL:
+ CodeLen=1; BAsmCode[0]=0x18+HReg;
+ break;
+ case ModIHL:
+ CodeLen=1; BAsmCode[0]=0x0a+HReg;
+ break;
+ END
+ END
+ return;
+ END
+
+ /* Logik */
+
+ if ((Memo("AND")) OR (Memo("OR")))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else
+ BEGIN
+ HReg=Ord(Memo("OR"));
+ DecodeAdr(ArgStr[1],MModAcc+MModIHL);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ DecodeAdr(ArgStr[2],MModImm+MModIHL);
+ switch (AdrType)
+ BEGIN
+ case ModIHL:
+ CodeLen=1; BAsmCode[0]=0x1e - HReg; /* ANSI :-0 */
+ break;
+ case ModImm:
+ CodeLen=2; BAsmCode[0]=0x38; BAsmCode[1]=0x30-(HReg << 4)+AdrVal;
+ break;
+ END
+ break;
+ case ModIHL:
+ SetOpSize(0); DecodeAdr(ArgStr[2],MModImm);
+ if (AdrType!=ModNone)
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x38; BAsmCode[1]=0x70-(HReg << 4)+AdrVal;
+ END
+ break;
+ END
+ END
+ return;
+ END
+
+ if (Memo("XOR"))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if ((strcasecmp(ArgStr[1],"A")!=0) OR (strcasecmp(ArgStr[2],"@HL")!=0)) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x1f;
+ END
+ return;
+ END
+
+ if ((Memo("ROLC")) OR (Memo("RORC")))
+ BEGIN
+ if ((ArgCnt!=1) AND (ArgCnt!=2)) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"A")!=0) WrError(1350);
+ else
+ BEGIN
+ if (ArgCnt==1)
+ BEGIN
+ HReg=1; OK=True;
+ END
+ else HReg=EvalIntExpression(ArgStr[2],Int8,&OK);
+ if (OK)
+ BEGIN
+ BAsmCode[0]=0x05+(Ord(Memo("RORC")) << 1);
+ for (z=1; z<HReg; z++) BAsmCode[z]=BAsmCode[0];
+ CodeLen=HReg;
+ if (HReg>=4) WrError(160);
+ END
+ END
+ return;
+ END
+
+ for (z=0; z<BitOrderCnt; z++)
+ if (Memo(BitOrders[z]))
+ BEGIN
+ if (ArgCnt==1)
+ if (strcasecmp(ArgStr[1],"@L")==0)
+ BEGIN
+ if (Memo("TESTP")) WrError(1350);
+ else
+ BEGIN
+ if (z==2) z=3; CodeLen=1; BAsmCode[0]=0x34+z;
+ END
+ END
+ else if (strcasecmp(ArgStr[1],"CF")==0)
+ BEGIN
+ if (z<2) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=10-2*z;
+ END
+ END
+ else if (strcasecmp(ArgStr[1],"ZF")==0)
+ BEGIN
+ if (z!=3) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x0e;
+ END
+ END
+ else if (strcasecmp(ArgStr[1],"GF")==0)
+ BEGIN
+ if (z==2) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=(z==3) ? 1 : 3-z;
+ ChkCPU(1);
+ END
+ END
+ else if ((strcasecmp(ArgStr[1],"DMB")==0) OR (strcasecmp(ArgStr[1],"DMB0")==0))
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x3b; BAsmCode[1]=0x39+(z << 6);
+ ChkCPU(1 << (1+Ord(strcasecmp(ArgStr[1],"DMB0")==0)));
+ END
+ else if (strcasecmp(ArgStr[1],"DMB1")==0)
+ BEGIN
+ CodeLen=3; BAsmCode[0]=3; BAsmCode[1]=0x3b;
+ BAsmCode[2]=0x19+(z << 6);
+ ChkCPU(4);
+ END
+ else if (strcasecmp(ArgStr[1],"STK13")==0)
+ BEGIN
+ if (z>1) WrError(1350);
+ else
+ BEGIN
+ CodeLen=3; BAsmCode[0]=3-z; BAsmCode[1]=0x3a; BAsmCode[2]=0x84;
+ ChkCPU(4);
+ END
+ END
+ else WrError(1350);
+ else if (ArgCnt==2)
+ if (strcasecmp(ArgStr[1],"IL")==0)
+ BEGIN
+ if (z!=1) WrError(1350);
+ else
+ BEGIN
+ HReg=EvalIntExpression(ArgStr[2],UInt6,&OK);
+ if (OK)
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x36; BAsmCode[1]=0xc0+HReg;
+ END
+ END
+ END
+ else
+ BEGIN
+ HReg=EvalIntExpression(ArgStr[2],UInt2,&OK);
+ if (OK)
+ BEGIN
+ DecodeAdr(ArgStr[1],MModAcc+MModIHL+MModPort+MModSAbs);
+ switch (AdrType)
+ BEGIN
+ case ModAcc:
+ if (z!=2) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x5c+HReg;
+ END
+ break;
+ case ModIHL:
+ if (z==3) WrError(1350);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x50+HReg+(z << 2);
+ END
+ break;
+ case ModPort:
+ if (AdrVal>15) WrError(1320);
+ else
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x3b;
+ BAsmCode[1]=(z << 6)+(HReg << 4)+AdrVal;
+ END
+ break;
+ case ModSAbs:
+ CodeLen=2; BAsmCode[0]=0x39;
+ BAsmCode[1]=(z << 6)+(HReg << 4)+AdrVal;
+ break;
+ END
+ END
+ END
+ else WrError(1110);
+ return;
+ END
+
+ if ((Memo("EICLR")) OR (Memo("DICLR")))
+ BEGIN
+ if (ArgCnt!=2) WrError(1110);
+ else if (strcasecmp(ArgStr[1],"IL")!=0) WrError(1350);
+ else
+ BEGIN
+ BAsmCode[1]=EvalIntExpression(ArgStr[2],UInt6,&OK);
+ if (OK)
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x36;
+ BAsmCode[1]+=0x40*(1+Ord(Memo("DICLR")));
+ END
+ END
+ return;
+ END
+
+ /* Spruenge */
+
+ if (Memo("BSS"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ AdrWord=EvalIntExpression(ArgStr[1],Int16,&OK);
+ if (OK)
+ if ((NOT SymbolQuestionable) AND ((AdrWord >> 6)!=((EProgCounter()+1) >> 6))) WrError(1910);
+ else
+ BEGIN
+ ChkSpace(SegCode);
+ CodeLen=1; BAsmCode[0]=0x80+(AdrWord & 0x3f);
+ END
+ END
+ return;
+ END
+
+ if (Memo("BS"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ AdrWord=EvalIntExpression(ArgStr[1],Int16,&OK);
+ if (OK)
+ if (((NOT SymbolQuestionable) AND (AdrWord >> 12)!=((EProgCounter()+2) >> 12))) WrError(1910);
+ else
+ BEGIN
+ ChkSpace(SegCode);
+ CodeLen=2; BAsmCode[0]=0x60+(Hi(AdrWord) & 15);
+ BAsmCode[1]=Lo(AdrWord);
+ END
+ END
+ return;
+ END
+
+ if (Memo("BSL"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ AdrWord=EvalIntExpression(ArgStr[1],Int16,&OK);
+ if (OK)
+ if (AdrWord>ROMEnd()) WrError(1320);
+ else
+ BEGIN
+ ChkSpace(SegCode);
+ CodeLen=3;
+ switch (AdrWord >> 12)
+ BEGIN
+ case 0: BAsmCode[0]=0x02; break;
+ case 1: BAsmCode[0]=0x03; break;
+ case 2: BAsmCode[0]=0x1c; break;
+ case 3: BAsmCode[0]=0x01; break;
+ END
+ BAsmCode[1]=0x60+(Hi(AdrWord) & 0x0f); BAsmCode[2]=Lo(AdrWord);
+ END
+ END
+ return;
+ END
+
+ if (Memo("B"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ AdrWord=EvalIntExpression(ArgStr[1],Int16,&OK);
+ if (OK)
+ if (AdrWord>ROMEnd()) WrError(1320);
+ else
+ BEGIN
+ ChkSpace(SegCode);
+ if ((AdrWord >> 6)==((EProgCounter()+1) >> 6))
+ BEGIN
+ CodeLen=1; BAsmCode[0]=0x80+(AdrWord & 0x3f);
+ END
+ else if ((AdrWord >> 12)==((EProgCounter()+2) >> 12))
+ BEGIN
+ CodeLen=2; BAsmCode[0]=0x60+(Hi(AdrWord) & 0x0f);
+ BAsmCode[1]=Lo(AdrWord);
+ END
+ else
+ BEGIN
+ CodeLen=3;
+ switch (AdrWord >> 12)
+ BEGIN
+ case 0: BAsmCode[0]=0x02; break;
+ case 1: BAsmCode[0]=0x03; break;
+ case 2: BAsmCode[0]=0x1c; break;
+ case 3: BAsmCode[0]=0x01; break;
+ END
+ BAsmCode[1]=0x60+(Hi(AdrWord) & 0x0f); BAsmCode[2]=Lo(AdrWord);
+ END
+ END
+ END
+ return;
+ END
+
+ if (Memo("CALLS"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ AdrWord=EvalIntExpression(ArgStr[1],Int16,&OK);
+ if (OK)
+ BEGIN
+ if (AdrWord==0x86) AdrWord=0x06;
+ if ((AdrWord & 0xff87)!=6) WrError(1135);
+ else
+ BEGIN
+ CodeLen=1; BAsmCode[0]=(AdrWord >> 3)+0x70;
+ END
+ END
+ END
+ return;
+ END
+
+ if (Memo("CALL"))
+ BEGIN
+ if (ArgCnt!=1) WrError(1110);
+ else
+ BEGIN
+ AdrWord=EvalIntExpression(ArgStr[1],Int16,&OK);
+ if (OK)
+ if ((NOT SymbolQuestionable) AND (((AdrWord ^ EProgCounter()) & 0x3800)!=0)) WrError(1910);
+ else
+ BEGIN
+ ChkSpace(SegCode);
+ CodeLen=2; BAsmCode[0]=0x20+(Hi(AdrWord) & 7);
+ BAsmCode[1]=Lo(AdrWord);
+ END
+ END
+ return;
+ END
+
+ WrXError(1200,OpPart);
+END
+
+ static Boolean IsDef_47C00(void)
+BEGIN
+ return (Memo("PORT"));
+END
+
+ static void SwitchFrom_47C00(void)
+BEGIN
+ DeinitFields();
+END
+
+ static void SwitchTo_47C00(void)
+BEGIN
+ TurnWords=False; ConstMode=ConstModeIntel; SetIsOccupied=True;
+
+ PCSymbol="$"; HeaderID=0x55; NOPCode=0x00;
+ DivideChars=","; HasAttrs=False;
+
+ ValidSegs=(1<<SegCode)|(1<<SegData)|(1<<SegIO);
+ Grans[SegCode]=1; ListGrans[SegCode]=1; SegInits[SegCode]=0;
+ SegLimits[SegCode] = ROMEnd();
+ Grans[SegData]=1; ListGrans[SegData]=1; SegInits[SegData]=0;
+ SegLimits[SegData] = RAMEnd();
+ Grans[SegIO ]=1; ListGrans[SegIO ]=1; SegInits[SegIO ]=0;
+ SegLimits[SegIO ] = PortEnd();
+
+ MakeCode=MakeCode_47C00; IsDef=IsDef_47C00;
+ SwitchFrom=SwitchFrom_47C00; InitFields();
+END
+
+ static void InitCode_47C00(void)
+BEGIN
+ SaveInitProc();
+
+ DMBAssume=0;
+END
+
+ void code47c00_init(void)
+BEGIN
+ CPU47C00=AddCPU("47C00",SwitchTo_47C00);
+ CPU470C00=AddCPU("470C00",SwitchTo_47C00);
+ CPU470AC00=AddCPU("470AC00",SwitchTo_47C00);
+
+ SaveInitProc=InitPassProc; InitPassProc=InitCode_47C00;
+END
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-19 00:34:59 +0000