Commit: 02e7802a777427cfeb46618c31fa011048021531 - chncpu (git)

Commit MetaInfo

• Revision: 02e7802a777427cfeb46618c31fa011048021531 (tree)
• Time: 2014-07-02 17:55:33
• Author: hikarupsp <hikarupsp@user...>
• Commiter: hikarupsp

Log Message

LIMM命令を追加
テストコードはASCII文字列の表示
ch4_sintのバグを修正

Change Summary

• modified: chncpu/ch4.c
• modified: chncpu/chncpu.c
• modified: chncpu/chncpu.h
• modified: chncpu/label.c
• modified: chncpu/opcode.c
• modified: chncpu/test.hex

Incremental Difference

--- a/chncpu/ch4.c
+++ b/chncpu/ch4.c
@@ -128,7 +128,7 @@ ch4_uint CH4Reader_ReadBodyAtIndexAsUINT(CH4Reader *reader, int index, int *retR
 			value = tmp;
 			//
 			readIndex = 1;
-			reader->lastBits = 4;
+			reader->lastBits = 3;
 		}
 	} else{
 		if((tmp & 4) == 0){
@@ -139,7 +139,7 @@ ch4_uint CH4Reader_ReadBodyAtIndexAsUINT(CH4Reader *reader, int index, int *retR
 			value |= tmp & 0xf;
 			//
 			readIndex = 2;
-			reader->lastBits = 8;
+			reader->lastBits = 6;
 		} else if((tmp & 2) == 0){
 			// 12bit
 			value = tmp & 1;
@@ -151,7 +151,7 @@ ch4_uint CH4Reader_ReadBodyAtIndexAsUINT(CH4Reader *reader, int index, int *retR
 			value |= tmp & 0xf;
 			//
 			readIndex = 3;
-			reader->lastBits = 12;
+			reader->lastBits = 9;
 		} else if((tmp & 1) == 0){
 			// 16bit
 			tmp = CH4Reader_Internal_Read4bitAtIndex(reader, index + 1);
@@ -164,7 +164,7 @@ ch4_uint CH4Reader_ReadBodyAtIndexAsUINT(CH4Reader *reader, int index, int *retR
 			value |= tmp & 0xf;
 			//
 			readIndex = 4;
-			reader->lastBits = 16;
+			reader->lastBits = 12;
 		} else{
 			// padding
 			puts("CH4_READ_ERROR_TRAP_PADDING \n");

--- a/chncpu/chncpu.c
+++ b/chncpu/chncpu.c
@@ -99,7 +99,8 @@ int decodeHexString(char *src0, char *src1, unsigned char *dst0, unsigned char *
     int wlen = 0;
     // 0: first 4-bit
     // 1: second 4-bit
-    // 2: in literal string
+    // 2: in string literal (byte aligned)
+	// 3: in string literal (not aligned)
     unsigned char d = 0;
     char c;
     
@@ -107,36 +108,35 @@ int decodeHexString(char *src0, char *src1, unsigned char *dst0, unsigned char *
     
     for(p = src0; p != src1; p++){
         c = *p;
-        if('0' <= c && c <= '9'){
-            c = c - '0';
-        } else if('A' <= c && c <= 'F'){
-            c = c - 'A' + 0x0A;
-        } else if('a' <= c && c <= 'f'){
-            c = c - 'a' + 0x0a;
-        } else if(c == '"'){
-            if(phase == 0){
-                phase = 2;
-            } else if(phase == 1){
-                puts("chncpu:Error > HexString padding error, abort.\n");
-                exit(EXIT_FAILURE);
-            } else if(phase == 2){
-                phase = 0;
-            }
-            continue;
-        } else if(phase == 2){
-            puts("decodeHexString: not implemented.\n");
-            exit(EXIT_FAILURE);
-        } else{
-            if(c == ' ' || c == '\t' || c == '\n'){
+		if(c == '"'){
+			if(phase == 0){
+				phase = 2;
+			} else if(phase == 1){
+				phase = 3;
+			} else if(phase == 2){
+				phase = 0;
+			} else if(phase == 3){
+				phase = 1;
+			}
+			continue;
+		} else if(phase == 0 || phase == 1){
+			if('0' <= c && c <= '9'){
+				c = c - '0';
+			} else if('A' <= c && c <= 'F'){
+				c = c - 'A' + 0x0A;
+			} else if('a' <= c && c <= 'f'){
+				c = c - 'a' + 0x0a;
+			} else if(c == ' ' || c == '\t' || c == '\n'){
                 continue;
-            }
-            puts("decodeHexString: unknown character :");
-            putchar(c);
-            putchar('\n');
-            exit(EXIT_FAILURE);
-            break;
+            } else{
+				puts("decodeHexString: unexpected character :");
+				putchar(c);
+				putchar('\n');
+				exit(EXIT_FAILURE);
+				break;
+			}
         }
-        if(phase == 0){
+		if(phase == 0){
             d = c & 0x0f;
             phase = 1;
         } else if(phase == 1){
@@ -150,6 +150,14 @@ int decodeHexString(char *src0, char *src1, unsigned char *dst0, unsigned char *
             *wp = c;
             wp++;
             wlen++;
+		} else if(phase == 3){
+            d <<= 4;
+            d |= (c >> 4) & 0x0f;
+            *wp = d;
+            wp++;
+            wlen++;
+			//
+			d = c & 0x0f;
         }
         
         if(wp >= dst1){
@@ -192,6 +200,7 @@ CHNCPU_RuntimeEnvironment *CHNCPU_CreateRuntimeEnvironment(CHNCPU_OpTableSet *op
 	for(i = 0; i < CHNCPU_NUMBER_OF_PREG; i++){
         env->pReg[i].type = 0;
 		env->pReg[i].mindex = 0;
+		env->pReg[i].pindex = 0;
 	}
 	
 	// ラベル管理初期化
@@ -228,8 +237,10 @@ int CHNCPU_LoadBinaryFromHexStringFilePath(CHNCPU_RuntimeEnvironment *env, const
     }
     
     env->appbinsize = decodeHexString(tmpdata0, tmpdata0 + len, env->appbin0, env->appbin0 + CHNCPU_SIZE_APPBIN);
-    //printf("appbin = %d Bytes\n", env->appbinsize);
-    //CHNCPU_DumpAppBin(env);
+#if DEBUG_PRINT_APPBIN_BEFORE_EXECUTION
+	printf("appbin = %d Bytes\n", env->appbinsize);
+    CHNCPU_DumpAppBin(env);
+#endif
 
     CH4Reader_Initialize(env->appbinReader, env->appbin0, env->appbinsize);
     
@@ -330,6 +341,9 @@ int CHNCPU_PrepareBinaryForExecution(CHNCPU_RuntimeEnvironment *env)
 		if(env->errFlags & CHNCPU_ERR_C_DUPLICATED_LB){
 			puts("INVALID-C: Duplicated LabelID.");
 		}
+		if(env->errFlags & CHNCPU_ERR_C_UNAVAILABLE_PTYPE){
+			puts("INVALID-C: Unavailable pointer type.");
+		}
     }
 	env->currentIndex = 0;
 	env->currentLabel = 0;
@@ -383,6 +397,15 @@ int CHNCPU_Execute(CHNCPU_RuntimeEnvironment *env)
 		if(env->errFlags & CHNCPU_ERR_X_LABEL_NOT_FOUND){
 			puts("INVALID-X: Label not found.");
 		}
+		if(env->errFlags & CHNCPU_ERR_X_PTYPE_NOT_MATCHED){
+			puts("INVALID-X: Pointer type not matched.");
+		}
+		if(env->errFlags & CHNCPU_ERR_X_BAD_ACCESS){
+			puts("INVALID-X: Bad access.");
+		}
+		if(env->errFlags & CHNCPU_ERR_X_INVALID_PTYPE){
+			puts("INVALID-X: Invalid pointer type.");
+		}
     }
     
 #if DEBUG_PRINT_IREG_AFTER_EXECUTION
@@ -417,7 +440,7 @@ void CHNCPU_DumpIReg(CHNCPU_RuntimeEnvironment *env)
     
     for(i = 0; i < CHNCPU_NUMBER_OF_IREG; i++){
         if(env->iRegBits[i]){
-            printf("R%02X = %010d = 0x%08X(%2d) ", i, env->iReg[i], env->iReg[i], env->iRegBits[i]);
+            printf("R%02X = %10d = 0x%08X(%2d) ", i, env->iReg[i], env->iReg[i], env->iRegBits[i]);
 			putchar('\n');
             regs++;
         }

--- a/chncpu/chncpu.h
+++ b/chncpu/chncpu.h
@@ -15,8 +15,9 @@
 #include "ch4.h"
 
 // DEBUG Flag
-#define DEBUG_PRINT_IREG_AFTER_EXECUTION		1
-#define DEBUG_PRINT_OP_BINDING				1
+#define DEBUG_PRINT_APPBIN_BEFORE_EXECUTION	0
+#define DEBUG_PRINT_IREG_AFTER_EXECUTION		0
+#define DEBUG_PRINT_OP_BINDING				0
 #define DEBUG_PRINT_OP_EXECUTING			0
 
 // VM flags
@@ -51,6 +52,9 @@
 #define CHNCPU_ERR_X_INTERNAL           0x01
 #define CHNCPU_ERR_X_TRUNCATED_VALUE    0x02
 #define CHNCPU_ERR_X_LABEL_NOT_FOUND		0x04
+#define CHNCPU_ERR_X_PTYPE_NOT_MATCHED	0x08
+#define CHNCPU_ERR_X_BAD_ACCESS			0x10
+#define CHNCPU_ERR_X_INVALID_PTYPE		0x20
 
 // (2F)Prefix
 #define CHNCPU_PREFIX_ALLOW_TRUNCATE    0x01
@@ -76,6 +80,9 @@
 //  0x40    UINT32
 //  0x41    SINT32
 
+// Opcode
+#define CHNCPU_OP_DATA	0x2E
+
 typedef struct _CHNCPU_OP_TAG CHNCPU_OpTag;
 typedef struct _CHNCPU_BIOS CHNCPU_BIOS;
 typedef struct _CHNCPU_OP_TABLE_SET CHNCPU_OpTableSet;
@@ -85,8 +92,6 @@ typedef struct _CHNCPU_POINTER_TAG CHNCPU_PointerTag;
 typedef struct _CHNCPU_RUN_TIME_ENVIRONMENT CHNCPU_RuntimeEnvironment;
 typedef struct _CHNCPU_VM_ARGS CHNCPU_VMArgs;
 
-
-
 struct _CHNCPU_OP_TAG {
     int opCode;
     void *opCache;
@@ -107,8 +112,9 @@ struct _CHNCPU_OP_TABLE_SET {
 
 struct _CHNCPU_LABEL_TAG {
 	ch4_uint labelID;
-	ch4_uint opt;	// 0:local(R3F Only) 1:public(can be saved to memory, pRegs)
+	ch4_uint opt;	// 0:local(R3F Only) 1:public(can be stored to memory, pRegs)
 	int mindex;
+	ch4_sint pType;
 	CHNCPU_LabelTag *next;
 };
 
@@ -119,6 +125,7 @@ struct _CHNCPU_LABEL_SET {
 struct _CHNCPU_POINTER_TAG {
 	ch4_sint type;	// CHNCPU_PType_xx
 	int mindex;
+	int pindex;
 };
 
 struct _CHNCPU_RUN_TIME_ENVIRONMENT {
@@ -186,6 +193,11 @@ int CHNCPU_Op_CALLBIOS_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op)
 int CHNCPU_Op_CALLBIOS_PrintCode(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, FILE *file);
 int CHNCPU_Op_CALLBIOS_PrintWikiDoc(int opCode, FILE *file);
 //
+int CHNCPU_Op_LMEM_BindOperand(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, unsigned int prefix);
+int CHNCPU_Op_LMEM_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op);
+int CHNCPU_Op_LMEM_PrintCode(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, FILE *file);
+int CHNCPU_Op_LMEM_PrintWikiDoc(int opCode, FILE *file);
+//
 int CHNCPU_Op_TernaryReg_BindOperand(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, unsigned int prefix);
 int CHNCPU_Op_TernaryRegBitwise_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op);
 int CHNCPU_Op_TernaryRegArithmetic_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op);
@@ -201,6 +213,7 @@ int CHNCPU_Op_DATA_BindOperand(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op,
 int CHNCPU_Op_DATA_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op);
 int CHNCPU_Op_DATA_PrintCode(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, FILE *file);
 int CHNCPU_Op_DATA_PrintWikiDoc(int opCode, FILE *file);
+int CHNCPU_Op_DATA_ReadAtIndex(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, int index);
 //
 int CHNCPU_Op_Prefix2F_PrintWikiDoc(int opCode, FILE *file);
 
@@ -213,7 +226,7 @@ int CHNCPU_BIOS_Op_putcReg_PrintCode(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTa
 
 // @label.c
 CHNCPU_LabelSet *CHNCPU_CreateLabelSet(void);
-int CHNCPU_Label_Add(CHNCPU_LabelSet *lbSet, int mindex, int labelID, int opt);
+int CHNCPU_Label_Add(CHNCPU_LabelSet *lbSet, int mindex, ch4_uint labelID, ch4_uint opt, ch4_sint pType);
 CHNCPU_LabelTag *CHNCPU_Label_GetTagFromLabelID(CHNCPU_LabelSet *lbSet, int labelID);
 
 #endif

--- a/chncpu/label.c
+++ b/chncpu/label.c
@@ -26,9 +26,9 @@ CHNCPU_LabelSet *CHNCPU_CreateLabelSet(void)
 	return lbSet;
 }
 
-int CHNCPU_Label_Add(CHNCPU_LabelSet *lbSet, int mindex, int labelID, int opt)
+int CHNCPU_Label_Add(CHNCPU_LabelSet *lbSet, int mindex, ch4_uint labelID, ch4_uint opt, ch4_sint pType)
 {
-	// retv: false:succeeded true:failed
+	// retv: 0:succeeded -1:alreadyExisted -2:mallocError
 	CHNCPU_LabelTag *t = &lbSet->top;
 	for(;;){
 		if(t->labelID == labelID){
@@ -45,12 +45,13 @@ int CHNCPU_Label_Add(CHNCPU_LabelSet *lbSet, int mindex, int labelID, int opt)
 	t->next = malloc(sizeof(CHNCPU_LabelTag));
 	if(t->next){
 		t = t->next;
+		t->pType = pType;
 		t->mindex = mindex;
 		t->labelID = labelID;
 		t->opt = opt;
 		t->next = NULL;
 	} else{
-		return -1;
+		return -2;
 	}
 	
 	return 0;

--- a/chncpu/opcode.c
+++ b/chncpu/opcode.c
@@ -68,6 +68,12 @@ int CHNCPU_Op_Init(CHNCPU_OpTableSet *opSet)
 	opSet->printFuncTable[0x05] = CHNCPU_Op_CALLBIOS_PrintCode;
 	opSet->docFuncTable[0x05] = CHNCPU_Op_CALLBIOS_PrintWikiDoc;
 	
+	// LMEM
+	opSet->bindFuncTable[0x08] = CHNCPU_Op_LMEM_BindOperand;
+	opSet->execFuncTable[0x08] = CHNCPU_Op_LMEM_Execute;
+	opSet->printFuncTable[0x08] = CHNCPU_Op_LMEM_PrintCode;
+	opSet->docFuncTable[0x08] = CHNCPU_Op_LMEM_PrintWikiDoc;
+	
 	// TernaryRegBitwise
 	for(i = 0x10; i <= 0x12; i++){
 		opSet->bindFuncTable[i] = CHNCPU_Op_TernaryReg_BindOperand;
@@ -139,7 +145,7 @@ int CHNCPU_Op_LB_BindOperand(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, u
 	
 	env->currentLabel = opCache->labelID;
 	
-	if(CHNCPU_Label_Add(env->labelSet, env->currentIndex, opCache->labelID, opCache->opt)){
+	if(CHNCPU_Label_Add(env->labelSet, env->currentIndex, opCache->labelID, opCache->opt, CHNCPU_PType_Label)){
 		env->errFlags |= CHNCPU_ERR_C_DUPLICATED_LB;
 	}
     
@@ -216,6 +222,11 @@ int CHNCPU_Op_LIMM_BindOperand(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op,
 		env->errFlags |= CHNCPU_ERR_C_PREFIX;
         return -1;
 	}
+	CHNCPU_AdjustValueForBit(env, &opCache->imm, opCache->bit, CHNCPU_PREFIX_ALLOW_TRUNCATE);
+	if(env->errFlags){
+		return -1;
+	}
+	
     return 0;
 }
 int CHNCPU_Op_LIMM_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op)
@@ -224,7 +235,7 @@ int CHNCPU_Op_LIMM_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op)
     
     opCache = op->opCache;
     
-    env->iReg[opCache->r] = opCache->imm  & (0xFFFFFFFF >> (32 - opCache->bit));
+    env->iReg[opCache->r] = opCache->imm;
 	env->iRegBits[opCache->r] = opCache->bit;
     
     return 0;
@@ -294,7 +305,7 @@ int CHNCPU_Op_PLIMM_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op)
 	}
 	
     env->pReg[opCache->r].mindex = label->mindex;
-	env->pReg[opCache->r].type = CHNCPU_PType_Label;
+	env->pReg[opCache->r].type = label->pType;
 	
 	if(opCache->r == 0x3F){
 		if(env->pReg[0x3F].type == CHNCPU_PType_Label){
@@ -460,6 +471,95 @@ int CHNCPU_Op_CALLBIOS_PrintWikiDoc(int opCode, FILE *file)
 }
 
 //
+// 08 LMEM
+//
+
+typedef struct _CHNCPU_OP_CACHE_LMEM CHNCPU_OpCache_LMEM;
+struct _CHNCPU_OP_CACHE_LMEM {
+    ch4_uint p;
+    ch4_sint pType;
+	ch4_sint pDiff;
+	ch4_uint r;
+	ch4_uint bitDst;
+};
+int CHNCPU_Op_LMEM_BindOperand(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, unsigned int prefix)
+{
+    CHNCPU_OpCache_LMEM *opCache;
+    
+    opCache = malloc(sizeof(CHNCPU_OpCache_LMEM));
+    op->opCache = opCache;
+    
+    opCache->p = CH4Reader_ReadNextAsUINT(env->appbinReader);
+    opCache->pType = CH4Reader_ReadNextAsSINT(env->appbinReader);
+    opCache->pDiff = CH4Reader_ReadNextAsSINT(env->appbinReader);
+	opCache->r = CH4Reader_ReadNextAsUINT(env->appbinReader);
+	opCache->bitDst = CH4Reader_ReadNextAsUINT(env->appbinReader);
+    
+    if(opCache->r >= CHNCPU_NUMBER_OF_IREG ||
+	   opCache->p >= CHNCPU_NUMBER_OF_PREG){
+        env->errFlags |= CHNCPU_ERR_C_REGNUM;
+        return -1;
+    }
+    if(!CHNCPU_CHK_IsAvailableBits(env, opCache->bitDst)){
+        return -1;
+    }
+	if(prefix != 0){
+		env->errFlags |= CHNCPU_ERR_C_PREFIX;
+        return -1;
+	}
+    return 0;
+}
+int CHNCPU_Op_LMEM_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op)
+{
+    CHNCPU_OpCache_LMEM *opCache;
+	CHNCPU_PointerTag *p;
+	int value;
+    
+    opCache = op->opCache;
+    p = &env->pReg[opCache->p];
+    
+	if(p->type != opCache->pType){
+		env->errFlags |= CHNCPU_ERR_X_PTYPE_NOT_MATCHED;
+        return -1;
+	}
+	
+	value = CHNCPU_Op_DATA_ReadAtIndex(env, &env->mainmemory[p->mindex], p->pindex);
+	if(env->errFlags){
+		return -1;
+	}
+	
+	CHNCPU_AdjustValueForBit(env, &value, opCache->bitDst, CHNCPU_PREFIX_ALLOW_TRUNCATE);
+	if(env->errFlags){
+		return -1;
+	}
+	env->iReg[opCache->r] = value;
+	env->iRegBits[opCache->r] = opCache->bitDst;
+	
+	p->pindex += opCache->pDiff;
+    
+    return 0;
+}
+int CHNCPU_Op_LMEM_PrintCode(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, FILE *file)
+{
+    CHNCPU_OpCache_LMEM *opCache;
+    
+    opCache = op->opCache;
+    fprintf(file, "LMEM(p:0x%02X, pType:0x%X, pDiff:%d, r:%02X, bitDst:%d);\n", opCache->p, opCache->pType, opCache->pDiff, opCache->r, opCache->bitDst);
+	
+    return 0;
+}
+int CHNCPU_Op_LMEM_PrintWikiDoc(int opCode, FILE *file)
+{
+    fprintf(file, ", %s, %02X, %X, %s, %s, %s, %s, %s, %s, %s, %s, %s\n",
+			"LMEM",
+			0x08, 0x08 + 0x80,
+			"p", "(sint)pType", "(sint)pDiff", "r", "bitDst", "", "",
+			"", "");
+	
+    return 0;
+}
+
+//
 // Ternary Register Operation
 //
 
@@ -869,7 +969,7 @@ int CHNCPU_Op_DATA_BindOperand(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op,
 		}
 	}
 	
-	if(CHNCPU_Label_Add(env->labelSet, env->currentIndex, opCache->labelID, opCache->labelOpt)){
+	if(CHNCPU_Label_Add(env->labelSet, env->currentIndex, opCache->labelID, opCache->labelOpt, opCache->dataType)){
 		env->errFlags |= CHNCPU_ERR_C_DUPLICATED_LB;
 	}
     
@@ -884,10 +984,9 @@ int CHNCPU_Op_DATA_Execute(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op)
 	// 何もしない
     return 0;
 }
-
 int CHNCPU_Op_DATA_PrintCode(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, FILE *file)
 {
-	int i;
+	int i = 0;
     CHNCPU_OpCache_DATA *opCache;
 	opCache = op->opCache;
 	
@@ -912,7 +1011,6 @@ int CHNCPU_Op_DATA_PrintCode(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, F
 	
     return 0;
 }
-
 int CHNCPU_Op_DATA_PrintWikiDoc(int opCode, FILE *file)
 {
     fprintf(file, ", %s, %02X, %X, %s, %s, %s, %s, %s, %s, %s, %s, %s\n",
@@ -923,6 +1021,26 @@ int CHNCPU_Op_DATA_PrintWikiDoc(int opCode, FILE *file)
 	
     return 0;
 }
+int CHNCPU_Op_DATA_ReadAtIndex(CHNCPU_RuntimeEnvironment *env, CHNCPU_OpTag *op, int index)
+{
+	int retv;
+	CHNCPU_OpCache_DATA *opCache;
+
+	opCache = op->opCache;
+	if(op->opCode != 0x2E || index < 0 || index >= opCache->dataCount){
+		env->errFlags |= CHNCPU_ERR_X_BAD_ACCESS;
+        return 0;
+	}
+	
+	if(opCache->dataType == CHNCPU_PType_UINT8){
+	 	retv = ((unsigned char *)opCache->rawData)[index];
+	} else{
+		env->errFlags |= CHNCPU_ERR_X_INVALID_PTYPE;
+        return 0;
+	}
+	
+	return retv;
+}
 
 //
 // Prefix2F

--- a/chncpu/test.hex
+++ b/chncpu/test.hex
@@ -1,10 +1,12 @@
-2 a0 0 90
-AE 4 0 90 4 12 34 56 78
+AE 4 0 90 6 "Hello!"
+2 0 0 90
 2 1 1 90
-2 C7E 2 90
+2 86 2 90
+3 4 0
 1 1 0
-5 0 0
+88 0 90 1 bf 90
+5 0 bf
 94 0 1 0 90
-a4 0 2 90 bf 90
+a2 0 2 90 bf 90
 4 bf
 3 1 bf