From 333b605b2afd472b823aeda0adf0e8b1ea9843c0 Mon Sep 17 00:00:00 2001
From: fishsoupisgood <github@madingley.org>
Date: Mon, 27 May 2019 02:41:51 +0100
Subject: initial commit from asl-1.41r8.tar.gz

---
 code75k0.c | 1436 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 1436 insertions(+)
 create mode 100644 code75k0.c

(limited to 'code75k0.c')

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
+
-- 
cgit v1.2.3