ルネサス純正H8モニタを機能強化してみる

2003/JUN/20

ルネサス純正のH8用モニタをいろいろ改造してみました。watson8的にはもはやオリジナル版には戻れないって具合に気に入っているのですが… まぁ気に入った機能があればいれてやってください
現在は(ROM焼き耐性の高い(^^;)3052Fのみで動作確認してますが、 3067F/3068F/3069Fでまったく同様と思われます。⇒ページ最後に移植話
3664F(Tiny)でも ROM/RAMサイズさえ目をつぶれば同様でしょう。

無保証です。各自の責任においてお願いします。
当サイトはルネサス･テクノロジ(株)とは何ら関係ありません。同社に問い合わせるようなことは深くご遠慮ください
さすがにある程度のC/アセンブラの知識がないと厳しいと思います。不明な点はお問い合わせください。

必要なもの

モニタソースパッケージ(3.0A)
をビルドできるアセンブラ(秋月、トラ技、HEWいずれでも)
秋月(トラ技)Cコンパイラ。gcc版は…移植は容易と思うのですが、要望があるのかわかんないのでやってません

予備知識

純正モニタのメインループは以下のような構成になっています。

	_INITIALIZE();
	INITIALIZE();
	MAIN:
		IN_STRING(buf); /*UNIXのgets()とほぼ同じです*/
		COM_SPLIT(argv,buf);  /*コマンドラインをスペースでトークンに分解*/
		switch(argv[0]) {
		case ("A") : A_COM(); /*実際はjmpで呼んでいます。*/
		case ("B") : B_COM(); /*BRA MAINで返してください*/
		....
		case ("Z") : Z_COM();
		}
		goto MAIN:

	IN_STRING(char *buf)
	{
		for( ; ; ) {
			while((c=IN_CHAR())==NULL) ;
			*buf++=c;
			if(c==0x0d) break;
		}
	}
	
	IN_CHAR()  /****入力がなくてもブロックしません*/
	{		/**また、puts()後などでも適宜呼ばれるようです*/
		if(!SCI1.SSR.BIT.RDRF) return(NULL);
		else return (SCI1.RDR);
	}

全編を通じてCCRで割り込みは禁止されてます。
モニタ自身のスタックポインタはSTACKで7ロングワードしかありません。gコマンド等では$STACK(ビルド時に指定したもの)に切替えてから振り出されます
どこからでもMAINを呼べば安全にモニタに戻れる雰囲気ですが、レジスタ壊したままでいいのかとかまだ未調査です

では練習としてZコマンド(WDTによるリセット)を埋め込みます

とにかくリセットしてしまうのでレジスタ壊し放題、気楽なもんです。ボードをリセットしたいときはモニタ自体飛んでることが多いでしょうから、実用性は疑問です。まぁモニタのコマンド待ちでありながらターゲットプログラムは動いてる、みたいな環境を作りますので、気休めにはなります(^^;)。 advanced.srcです。

コマンドテーブル(COM_NAME)に"Z"を追加します。
　　.SDATAZ　"Z"　;　Z　 Command Name 03/MAY/23
・検索にバイナリサーチを用いているみたい(ひぇ～～(^^;))で、アルファベット順に入れないと機能しません。
・キー入力を大文字に変換した後で照合されますので、大文字で登録してください。
・一文字コマンドZは"Z"<0>の２バイトですが、二文字コマンドh8は"H8"<0><0>の様に４バイトで、コマンド二つ分って感じになります。

そのちょっと上にあるCOM_NAMEの終わりへのポインタを変更します
　　MOV.L　　#COM_NAME+30+2,ER5 ; Command Name Last --> ER5

・追加したバイト分だけ増やしてください。
CMD02.srcにヘルプメッセージを追加…オリジナルの最後がSコマンドでその後ろに追加した場合は、この作業をしなくても問題ありません。しかしたとえばCコマンド なぞ追加してヘルプメッセージ追加をサボると、":F ?"でGコマンドの使い方が表示されます(逆かな^^;)。それでも良しとするかというと、実はhterm.exeが、つながっているcpuを判定するのに":r ?"を送っており、返す文の中に文字列H8/300H がないと、一部動作しません。(やけに詳しいなぁ⇒ハマッたからさ^^;)
cmd02.srcへの追加/変更点をあげておきます。
　MOV.B　#15+1,R0H　　; Loop Count --> R0H (追加したコマンド数だけ増やしてください。２文字コマンドも一個で数えます)
　MOV.L　#COM_NAME+30+2,ER5 ; Command Name Last --> ER5 (advanced.srcと同様)

　.DATA.L　Z_HELP_MSG　　　; Z　Help Message Address added 03/JUN/16

Z_HELP_MSG: .DATA.B 2 ; String Count is 2 added 03/JUN/16
.SDATAC " Z :" ;
.SDATAZ " Reset CPU with WDT(Watch Dog Timer)."
.SDATAZ "　　Z　[RET]"

関数テーブル(COM_TBL)にZ_COMを追加します。(ふたたびadvanced.src)
　　.DATA.L　Z_COM　　; Z Command Module Address 03/MAY/23
・COM_NAMEの順番どおりの位置におきます。
実際のZ_COMを追加します。
Z_COM:
　　mov.w #H'a57f,r0
　　mov.w r0,@(H'FFFFA8) ; WDT.TCSR
　　sleep

・はどこにおいても結構です。必要なら.import/.exportしてください。
そんだけだったかなぁ
: ?
 Monitor Vector 000000 - 0000FF
 Monitor ROM    000100 - 005B83
(中略)
 .  : Changes contents of H8/300H registers.
 A  : Assembles source sentences from the keyboard.
 B  : Sets or displays or clear breakpoint(s).
 D  : Displays memory contents.
(中略)
 S  : Executes single emulation(s) and displays instruction and registers.
 Z  : Reset CPU with WDT(Watch Dog Timer).
: z ?
 Reset CPU with WDT(Watch Dog Timer).
      Z  [RET] 
: z

 H8/3052 Advanced Mode Monitor Ver. 3.0A
 Copyright (C) 2003 Renesas Technology Corp.

: h8 wdt
＜REG＞  ＜ADDR＞ ＜CODE＞   ＜ 7      6      5      4      3      2      1      0 ＞
 TCSR    FFA8 000..000   OVF   WT/IT   TME                  CKS2   CKS1   CKS0 
 TCNT    FFA9 00
 RSTCSR  FFAB 1.......   WRST                                                  
: (WDTでリセットされているのがわかります)
Z_COMへの要求仕様

レジスタは…全部壊しても平気な気がします。詳しく見てません

スタックは…７ロングワードです。足りないときには独自に設定してください

コマンドライン引数は@ER6(コマンド名です),@(10,ER6),....,@(50,ER6)に入っています。各最大9文字+NULL で、全て大文字に変換されてます

OUT_STRING(puts相当)やBIN_ASC_5(sprintf("%5lx")相当？)等が利用できるのですが、詳しくは調べてません。

復帰はBRA MAINで。スタックポインタを復帰する必要はありません

割込みはCCRでマスクされています。CCRのマスクを外しても期待通りには動きません

コマンドをお手軽追加

モニタがIN_STRING(buf);でコマンドラインを取り込んだ直後にCMDPATCHというサブルーチンを呼ばせて、その中で直接bufを書き換えてしまいます。たとえば

シンボリック化…引数の中にラベルらしき文字列があったら実際の16進数に置き換え、そのままモニタに返すことによりコマンドライン上でラベルが使えるようになります
コマンド追加…コマンド名部分を見て必要な処理は自分で行い、モニタには"\r"のみを返す。 (実際にはモニタは何もしません)

などが可能になります。

advanced.srcのBSR　　IN_STRING　の後ろに
　.import CMDPATCH
　　BSR　　CMDPATCH
を追加します。
実際のCMDPATCHはどこにおいても良いのですが、MONITOR.srcの最後に追加してしまいました。
Ver0.30A用に一か所だけ書き換えました。cmdPatch()を呼ぶ時の引数を0L→long配列へのポインタへ。
; For Ver0.30A or Later .export CMDPATCH .import LARGE_AREA,COM_BUF _CMDPATCH_PTR .equ LARGE_AREA+49*4 SP_SAVE .equ LARGE_AREA+51*4 ER0_SAVE .equ LARGE_AREA+51*4 CMDPATCH: mov.l er0,@ER0_SAVE mov.l @_CMDPATCH_PTR,er0 bne cmdPatch3 mov.l @ER0_SAVE,er0 ; no Patch rts cmdPatch3: mov.l @ER0_SAVE,er0 ;call back ER0 mov.l er7,@SP_SAVE mov.l @(STACK+36),er7 push.l er6 push.l er5 push.l er4 push.l er3 push.l er2 push.l er1 push.l er0 ; sub.l er0,er0 mov.l #STACK,er0 ; 0.30A or Later mov.l #COM_BUF,er1 mov.l @_CMDPATCH_PTR,er2 jsr @er2 ; (*_CMDPATCH_PTR)(long *regreg,char *BUF); pop.l er0 pop.l er1 pop.l er2 pop.l er3 pop.l er4 pop.l er5 pop.l er6 mov.l @SP_SAVE,er7 rts

_CMDPATCH_PTR.Lを見て、NULLだったらそのまま戻します。(ほぼオリジナルの動作)

_CMDPATCH_PTR.LがNULLでなければ Cインターフェース関数cmdPatch(long sw,char *buf)へのポインタのはずなので、 SPをRコマンドで表示される奴(は充分な深さがあると信じて)に切り替えた後そこをコールします。 ((long, char *)で呼ぶ限り純正系もgccも同じだったような。未確認)

cmdPatch()自体は単なる文字列処理関数ですから、好きに書いてください。引数swは0L固定ですが、将来何かに使うかもしれません。⇒mon4.c(0.30A以降)で「(Rコマンドで表示される)レジスタを保持するlong配列へのポインタ」に変更しました。

_CMDPATCH_PTR.LはcmdPatch()がロードされるまでは(たとえば_INITIALIZEで)確実にNULLに固定してください。 (モニタにコマンド入力したとたん飛びます)ここではUSERベクタ空間の49番が未使用かつゼロフィルされるのでお借りしてます(^^;)。

ER0/ER7の退避用に１ロングワード(USERベクタ空間の51番)使ってます。同時には使わないので共用してます

ってこんなにレジスタ保存しなくてもいいはずですが、まぁ安全第一、ヘルメット着用ということで(^^;)。

mon4.c(Ver0.32C)…アセンブラ部(CMDPATCH:)も対応品が必要です
306xF対応の関係で#ifdef導入しました。頭の数行だけです。 /***** mon4.c 0.32C prototyped by watson8 **/ #define cpuis3052F #ifdef cpuis3052F #include <3052S.h> #define FZTOP (0x220000) /***fzスタートアドレス**/ #define FZSIZE (0x020000) /***fzするバイトサイズ 4の倍数で**/ #define SSTOP (0x220000) /***ssスタートアドレス**/ #define SSSIZE (0x020000) /** ssする範囲。バイトサイズ***/ #define debdeb ( (void (*) (int, char [][12]) )0x224000) /*追加コマンドのデバッグ用*/ #endif #ifdef cpuis3067F #include <3067S.h> #define FZTOP (0x400000) /***fzスタートアドレス**/ #define FZSIZE (0x020000) /***fzするバイトサイズ 4の倍数で**/ #define SSTOP (0x200000) /***ssスタートアドレス**/ #define SSSIZE (0x008000) /** ssする範囲。バイトサイズ***/ #define debdeb ( (void (*) (int, char [][12]) )0x204000) /*追加コマンドのデバッグ用*/ #endif #ifdef __GNUC__ typedef unsigned long ulong; typedef unsigned char uchar; #define MAIN ( (void (*) (void) )0x004812) /***advanced.srcのMAINです*/ #define INT_MSG ((char *)0x5b40) /***cpu04.srcの INT_MSGです*/ #define InitUSB ((int (*)(int))0x007426) #define wdtIntr ((void (*)(void) )0x000246) #define set_ccr(n) asm volatile ("ldc.b #0,ccr") #define printf zzprintf extern zzprintf(const char *fmt,...); extern char *StrtoK(char *,char *); const char mon4Ver[] ="0.32c/gcc"; #else extern void MAIN(); /* symPick.js 等で取り込める方はこちらをどうぞ**/ extern char INT_MSG[]; /** ***cpu04.srcの INT_MSGです*/ extern void wdtIntr(); #define StrtoK strtok #include <machine.h> const char mon4Ver[] ="0.32c/gen"; #endif #include <stdio.h> #include <string.h> #define VECTOR ((void **)0xFFFD30) #define IntrSW (VECTOR[48]) #define SIMMAGIC (0x53494d42) struct SIMTAB{ char *label; void *here; } *simTabPtr; extern void cmdPatch(long *,char*); extern struct SIMTAB *searchLabel(char *,struct SIMTAB *); extern struct SIMTAB *searchAddr (void *,struct SIMTAB *); long avER0,avER1; long (*funcPtr)(long,long); volatile ulong wdtCount,wdtTimeOut; volatile ulong wdtLog[2]; char mon4Buf[40]; /***は現在未使用です。不要なら捨ててください⇒0.20Bで実装しましたポインタ渡しの関数(たとえばstrlen(char *))をデバッグするのに :m _mon4Buf で文字列を作り、 :c _strlen _mon4Buf で振り出せるように用意してみました。将来まとめて :c _strlen "debug string" で直接 _strlen() が呼べるようにしてみようかと。ついでに :c _toupper 'a' とかも受け付けるようにしようかとか、キリがないっす。 (touuper()って普通マクロ？トラ技Cでは関数みたいです。) */ void cmdPatch(long *regreg,char *buf) { int i,j,r,argc; char *cp,*mon4BufPtr,av[6][12]; struct SIMTAB *stp; ulong n; argc=0; av[0][0]=av[1][0]=av[2][0]=av[3][0]=av[4][0]=av[5][0]=0; mon4BufPtr = mon4Buf; for(cp=buf;*cp!='\r'; cp++) ; *(cp)='\0'; /*remove CR and add terminater*/ cp=StrtoK(buf," "); /*cp must be a command name*/ strcpy(av[argc++],cp); while((cp=StrtoK(NULL," "))!=(char *)NULL) { /*各トークンをラベルなら実数に変換*/ strcpy(av[argc],cp); /*defaulT*/ switch(*cp) { case '"' : n=strlen(cp); /**** :c _strlen "Hello" support **/ n--; cp[n]=0; /***remove right quote**/ sprintf(av[argc],"%lx", (long )mon4BufPtr); cp++; /***readout firsr quote */ for( ;*cp; cp++) { if(*cp=='\\') { cp++; switch(*cp) { case 'r': *mon4BufPtr++ = '\r'; break; case 'n': *mon4BufPtr++ = '\n'; break; case 't': *mon4BufPtr++ = '\t'; break; default : *mon4BufPtr++ =(*cp)-'A'; break; } } else *mon4BufPtr++ = *cp; } *mon4BufPtr++ = '\0'; /*strcpy(mon4BufPtr,cp+1); mon4BufPtr += n; */ break; case '\'': sprintf(av[argc],"%x", (uint )cp[1]); break; case '@' : /*** Ver0.30A or later **/ n=0; if(!strcmp(av[argc],"@pc")) n=regreg[0]; if(!strcmp(av[argc],"@ccr")) n=regreg[1]; if(!strcmp(av[argc],"@er0")) n=regreg[2]; if(!strcmp(av[argc],"@er1")) n=regreg[3]; if(!strcmp(av[argc],"@er2")) n=regreg[4]; if(!strcmp(av[argc],"@er3")) n=regreg[5]; if(!strcmp(av[argc],"@er4")) n=regreg[6]; if(!strcmp(av[argc],"@er5")) n=regreg[7]; if(!strcmp(av[argc],"@er6")) n=regreg[8]; if(!strcmp(av[argc],"@er7")) n=regreg[9]; if(!strcmp(av[argc],"@sp")) n=regreg[9]; sprintf(av[argc],"%lx", n); break; default: stp = searchLabel(cp,simTabPtr); if(stp!=(struct SIMTAB *)NULL) { /*printf("%s %lx\n",cp,(ulong )stp->here);*/ sprintf(av[argc],"%lX",stp->here); } break; } argc++; } strcpy(buf,"\r"); /*DefaulT*/ if(!strcmp(av[0],"n")) { /*** nコマンド SearchLabel**/ sscanf(av[1],"%lx",&n); stp = searchAddr((void *)n,simTabPtr); if(stp!=(struct SIMTAB *)NULL) cp=stp->label; else cp="??????"; printf("0x%06lx : %s(0x%06lx) + 0x%06lx\n",n,cp,stp->here,n-(ulong)stp->here); return; } if(!strcmp(av[0],"nn")) { /***nn <symbol> Cmd**/ mon4nn(argc,av); return; } if(!strcmp(av[0],"ei")) { /***EnableInterrupt Cmd**/ mon4EI(); return; } if(!strcmp(av[0],"di")) { /***DisableInterrupt Cmd**/ mon4DI(); return; } if(!strcmp(av[0],"v")) { /***VectorTable Cmd**/ vectDump(); return; } if(!strcmp(av[0],"bm")) { /***bm <from> <upto> <to> Cmd**/ blockMove(argc,av); return; } if(!strcmp(av[0],"bv")) { /***bv <from> <upto> <to> Cmd**/ blockVerify(argc,av); return; } if(!strcmp(av[0],"p")) { /***p <where> <bitpattern> Cmd**/ pulseIt(argc,av); return; } if(!strcmp(av[0],"+")) { /***+ <val1> <val2> Cmd**/ calc4(argc,av); return; } if(!strcmp(av[0],"ss")) { /*** ss [<from>] **/ simTabSer(argc,av); return; } if(!strcmp(av[0],"wd")) { /*** wd [<from>] **/ if(av[1][0]=='0') wdtInit(0); else wdtInit(1); return; } if(!strcmp(av[0],"fz")) { /*** fz **/ fillZero(); return; } if(!strcmp(av[0],"more")) { /***help Cmd**/ debdeb(argc,av); return; } if(!strcmp(av[0],"usb")) { /***help Cmd**/ sscanf(av[1],"%x",&r); InitUSB(r); return; } if(!strcmp(av[0],"ke")) { /*** ke Cmd**/ mon4ke(av[1][0]=='b'); return; } if(!strcmp(av[0],"??")) { /***help Cmd**/ mon4help(argc,av); return; } if(!strcmp(av[0],"dd")) { /***dw [arg0] [arg1] Cmd**/ strcpy(av[3],av[2]); /* ;W/;L option if exists */ sscanf(av[1],"%lx",&n); sprintf(av[2],"%lx",n+0x3f); strcpy(av[0],"d"); /*dコマンド*/ } if(!strcmp(av[0],"c")) { /***c [arg0] [arg1] Cmd**/ strcpy(av[0],"g"); /*gコマンド引数不正時はCRに*/ goSub(argc,av); } if(!strcmp(av[0],"cw")) { /***c [arg0] [arg1] Cmd**/ wdtTimeOut = wdtCount+ 488281 ; /**** 5sec/10.24us=488281wdtTicks WDTSCALE*/ strcpy(av[0],"g"); /*gコマンド引数不正時はCRに*/ goSub(argc,av); } sprintf(buf,"%s %s %s %s %s %s\r",av[0],av[1],av[2],av[3],av[4],av[5]); } mon4help() { printf("=mon4 Ver%s Running=\n",mon4Ver); printf("n <addr|symbol>\n"); printf("nn <symbol>\n"); printf("bm <from> <upto> <moveto>\n"); printf("bv <from> <upto> <compare>\n"); printf("c <func> [argER0] [argER1]\n"); printf("cw <func> [argER0] [argER1]\n"); printf("dd <addr>\n"); printf("di\n"); printf("ei\n"); printf("fz\n"); printf("v\n"); printf("p <addr> <pat> [repeat]\n"); printf("ss [<addr>]\n"); printf("wd [0]\n"); printf("+ <val1> <val2>\n"); printf("ke [b]\n"); printf("??\n"); } struct SIMTAB * searchLabel(char *cp,struct SIMTAB *stp) /*シンボルテーブルstp[]の中からcpを探します*/ { if(~(long )stp->label!=~SIMMAGIC) return(NULL); /* MAGIC(SIMB) */ stp++; while(stp->label !=(char *)NULL) { if(!strcmp(stp->label,cp)) { /*found it*/ return(stp); } stp++; } return((struct SIMTAB *)NULL); } const struct SIMTAB NotFoundSim= { "NotFound", (void *)0 } ; struct SIMTAB * searchAddr(void *ptr,struct SIMTAB *stp) /*シンボルテーブルstp[]の中から16進数ptrを探します*/ { long diff,diffNow; struct SIMTAB *stpNow; diffNow=0x7fffffff; if(~(long )stp->label!=~SIMMAGIC) return(NULL); /* MAGIC(SIMB) */ stp++; stpNow= (struct SIMTAB *)&NotFoundSim; while(stp->label !=(char *)NULL) { if(ptr==(void *)(stp->here)) return(stp);/*found it*/ diff=(ulong )ptr-(ulong )stp->here; if((diff>0)&&(diff<diffNow)) { stpNow=stp; diffNow=diff; } stp++; } return(stpNow); /* return((struct SIMTAB *)NULL); */ } vectDump() { char *cp; int i; cp = INT_MSG ; if(strncmp(cp+1, " Occur !!",9)) { printf("INT_MSG not Found\n"); return; } cp += (*cp)+1; for(i=0;i<64;i++) { if(*cp) printf("%2d : %06lX : %06lX : %s\n",i,(long )(VECTOR+i),(long )VECTOR[i],cp+1); cp += *cp; cp++; } } mon4EI() { IntrSW=(void *)1; /*** intr Switch */ wdtInit(1); /* printf("Interrupt Enabled\n");*/ return(0); } mon4DI() { IntrSW =(void *)NULL; /*** intr Switch */ wdtInit(0); /* printf("Interrupt Disabled\n");*/ return(1); } wdtInit(int SW) { ushort z; uchar zc; /* PBDDR = 0xff; * WDTで LEDちかちかするようであれば*/ if(SW) { VECTOR[20]=(void *)wdtIntr; wdtCount=wdtTimeOut=0; zc = WDT.READ.TCSR.BYTE; /*ReadDummy*/ WDT.WRITE.TCSR = 0xa538 | 4; /*1:CLK/32 4/256 7:CLK/4096mode WDTSCALE */ /** 256/25MHz=10.24us/div 10.24us*256=2.62ms/interrupt**/ } else { WDT.WRITE.TCSR = 0xa518 ; /*StopConut*/ zc = WDT.READ.TCSR.BYTE; /*ReadDummy*/ WDT.WRITE.TCSR = 0xa518; /*OVF down*/ VECTOR[20]=0; } } wdtLogDisp() { printf("WDT TimedOut PC:0x%08lx SP:0x%08lx\n",wdtLog[0],wdtLog[1]); } fillZero() { ulong *a; long n; a = (ulong *)FZTOP; n = FZSIZE >>2; /*32k回*4バイト*/ while (n--) *a++ = 0; } blockMove(int argc,char av[][12]) { uchar *a,*b,*c; sscanf(av[1],"%lx",(long *)&a); sscanf(av[2],"%lx",(long *)&b); sscanf(av[3],"%lx",(long *)&c); while ((ulong )a <=(ulong )b) *c++ = *a++; } blockVerify(int argc,char av[][12]) { uchar *a,*b,*c; sscanf(av[1],"%lx",(long *)&a); sscanf(av[2],"%lx",(long *)&b); sscanf(av[3],"%lx",(long *)&c); while ((ulong )a <=(ulong )b) { if(*c != *a) { printf("@H'%06lx=>%02x @H'%06lx=>%02x\n",(long)a,(int )*a,(long)c,(int )*c); return; } c++; a++; } printf("They are twins.\n"); } calc4(int argc,char av[][12]) { long a,b,ans; sscanf(av[1],"%lx",(long *)&a); sscanf(av[2],"%lx",(long *)&b); ans=a+b; printf("%08lx + %08lx = %08lx(%10ld.)\n",a,b,ans,ans); ans=a-b; printf("%08lx - %08lx = %08lx(%10ld.)\n",a,b,ans,ans); ans=a*b; printf("%08lx * %08lx = %08lx(%10ld.)\n",a,b,ans,ans); if(b!=0) { ans=a/b; printf("%08lx / %08lx = %08lx(%10ld.)\n",a,b,ans,ans); } } pulseIt(int argc,char av[][12]) { uchar *a; ushort pat,i,n; n=0; sscanf(av[1],"%lx",&a); sscanf(av[2],"%x",&pat); sscanf(av[3],"%x",&n); pat &=0xff; if(!n) n=1; while(n--) { *a ^= (uchar )pat; for(i=0;i<2000;i++) ; *a ^= (uchar )pat; for(i=0;i<2000;i++) ; } } wrapper() { ulong now; long r; if(wdtTimeOut) set_ccr(0); /***WatchDogTimerEnabled**/ now = wdtCount|WDT.READ.TCNT; r = (*funcPtr)(avER0,avER1); now = (wdtCount|WDT.READ.TCNT) - now; printf("returned : %08lx ",r); if(now) printf("(%lu.ticks)\n",now); /*WDTSCALE*/ else printf("\n"); wdtTimeOut=0; /*Nomore countUp anyway*/ MAIN(); /*Back to monitor*/ } goSub(int argc,char av[][12]) { sscanf(av[1],"%lx",(long *)&funcPtr); sscanf(av[2],"%lx",(long *)&avER0); sscanf(av[3],"%lx",(long *)&avER1); if((long )funcPtr) sprintf(av[1],"%lx",wrapper); else { printf("funcPtr is null.\n"); strcpy(av[0],"\r"); } av[2][0]=av[3][0]=av[4][0]=av[5][0]=0; } simTabSer(int argc,char av[][12]) { ulong n,*lp; ushort *sp; short sw; if(argc>=2) sscanf(av[1],"%lx",(long *)&sp); else sp=(ushort *)SSTOP; /*defaulT*/ sw=0; for(n=0;n<SSSIZE>>1;n++) { /*128kB Search*/ lp = (ulong *)sp; if( (~*lp ==~SIMMAGIC) && lp[1]==1) { printf("SimTab at 0x%06lx\n",(long )lp); sw++; simTabPtr = (void *)lp; } sp++; } if(!sw) { printf("SimTab not Found\n"); } } mon4nn(int argc,char av[][12]) { struct SIMTAB *stp; char *cp,*tp; stp = simTabPtr; if(~(long )stp->label!=~SIMMAGIC) return; /* MAGIC(SIMB) */ stp++; for(cp=av[1];*cp;cp++) *cp = toupper(*cp); /*searchPattern*/ while(stp->label !=(char *)NULL) { cp=stp->label; tp=av[3]; while(*cp) *tp++ = toupper(*cp++); *tp='\0'; if(strstr(av[3],av[1])) { /*found it*/ printf("0x%06lx : %s\n",(long )stp->here,stp->label); } stp++; } return; } /***********************ke command *********************/ #define MAINSCI (1) #define SUBSCI (0) #define TERMCHAR ('~') #define mon4sciSz (32) uchar mon4sciCnt[2]; uchar mon4sciBuf[2][mon4sciSz]; extern mon4get(int chan); extern mon4put( int chan,uint c); mon4ke(int binMode) { int c; mon4sciCnt[0]=mon4sciCnt[1]=0; if(SCI0.SCR.BYTE !=0x30) { SCI0.SCR.BYTE= 0x00; SCI0.SMR.BYTE = 0x00; SCI0.BRR=0x28; /*default 19200bps@25MHz */ SCI0.SCR.BYTE = 0x30; /**DisableIntr*/ SCI0.SSR.BYTE &= 0x80; } printf("Connected\n"); for(;;) { c=mon4get(MAINSCI); if((!binMode) &&(c==TERMCHAR)) break; if(c>=0) mon4put(SUBSCI,c); c=mon4get(SUBSCI); if((!binMode) &&(c==TERMCHAR)) break; if(c>=0) mon4put(MAINSCI,c); } printf("DisConnected\n"); return(0); } mon4get(int chan) { int c; uchar *up,ssr; int index; if(chan==1) { if(!(SCI1.SSR.BIT.RDRF) ) return(-2); ssr=SCI1.SSR.BYTE; SCI1.SSR.BYTE = ssr & 0x80; up = &mon4sciBuf[1][0]; c=SCI1.RDR; } else { if(!(SCI0.SSR.BIT.RDRF) ) return(-2); ssr=SCI0.SSR.BYTE; SCI0.SSR.BYTE = ssr & 0x80; up = &mon4sciBuf[0][0]; c=SCI0.RDR; } index=mon4sciCnt[chan]; /*Log the character */ up[index++] = c; mon4sciCnt[chan] = index&(mon4sciSz-1); if(ssr &0x38) return(-3); return(c); } mon4put(int chan,uint c) { if(chan==1) { while(!SCI1.SSR.BIT.TDRE) ; SCI1.TDR=c; SCI1.SSR.BIT.TDRE=0; } else { while(!SCI0.SSR.BIT.TDRE) ; SCI0.TDR=c; SCI0.SSR.BIT.TDRE=0; } return(c); } #ifdef __GNUC__ char * StrtoK(char *it,char *pat) { char *ret; if(it!=(char *)NULL) { strtokPtr=it; while(*it++) ; *it='\0'; /*add another NULL*/ } if(*strtokPtr=='\0') return((char *)0); while( (*strtokPtr==*pat) ) strtokPtr++; /* remove Leading space */ ret=strtokPtr; while( (*strtokPtr!=*pat)&& (*strtokPtr!='\0') ) strtokPtr++; /* search For End Mark */ *strtokPtr++ = '\0'; return(ret); } #endif
手入力された文字列char buf[](はモニタ使用領域にあります)をトークンに分解します

各トークン(av[argc][])についてシンボルテーブルを検索(strcmp()ですから完全一致) し、見つかれば実際の16進数(文字列)に置換します

さらにav[0](コマンド名)を順次比較し"bm"とか"v"とかの追加分であれば対応ルーチンを呼びます。その後

モニタにさせたいコマンドがある(たとえばcコマンド)のであれば、av[0][]にそれをおきます

モニタにさせることがなければav[0]を"\r"とし、改行のみ入力されたようにみせかけます

各トークンを再びbuf[]上で連結しモニタに戻します(モニタはbuf[]が入力されたと考えます)
現版(0.30B)での追加コマンド
n　<addr|symbol> …実16進数⇔シンボルを相互変換します
: n _printf
0x0077f8 : _printf
: n 7d52
0x007d52 : _scanf
:
[Ver0.15A以降]16進数⇒シンボル変換で、シンボルが見つからなかったとき若い側最寄りのシンボルを表示するようにしました。
: n 7d80
0x007d80 : _scanf(0x007d52) + 0x00002e
: (7d80あたりで固まる⇒scanf()で止まってるらしい、とか)

nn　<ymbol> …[Ver0.20E以降]シンボルを大文字小文字無視、部分一致で探します。(作者のずぼらさがばれますね^^;)
: nn ini
0x000100 : _INITIALIZE
0x006c84 : _InitLCD
0x220162 : _initITU
0x0065a8 : _wdtInit
:

ei / di …コマンド待ち時の割込みを許可/禁止します。(後述)

v …例外ベクタテーブルをダンプします。元ネタはモニタのINT_MSGです。このテーブルにはエンドマークがない(？)ため、3048F/3052Fでは最後にゴミが出ますが勘弁(^^;)。trapa(2)をユーザで使用している場合の例。
: v
7 : FFFD4C : 000000 : NMI
8 : FFFD50 : 000000 : TRAPA #0
9 : FFFD54 : 000000 : TRAPA #1
10 : FFFD58 : 2201C8 : TRAPA #2
11 : FFFD5C : 000000 : TRAPA #3
12 : FFFD60 : 000000 : IRQ0
13 : FFFD64 : 000000 : IRQ1
14 : FFFD68 : 000000 : IRQ2
(後略)

bm <from> <upto> <moveto> …from番地からupto番地までをmoveto番地からにコピーします

bv <from> <upto> <compare> …from番地からupto番地までをcompare番地からと比較します
: bm 2000 20ff 220000
: bv 2000 20ff 220000
They are twins.
:

dd <addr> [;W | ;L]…[Ver0.25A以降]単なるDコマンドですが、表示されるされる量が64バイト(4行)に制限されてます。Dコマンド⇒だだだっ⇒スクロールアウト、で不便な (つまりPCの画面が狭い)あなた専用。;Wと;Lはそのままモニタ(のDコマンド)に渡されます。その手前に必ずスペースを入れてください。(strtok()で別トークンにしたいので)

fz…[Ver0.16B以降]メモリの固定領域(0x220000-0x23ffffで直コーディング) を0で埋めます。LWアクセスが出る以外":F 220000 23fff 00"と等価なのであんまし使い道ないかな。 (ssコマンドが安定するまではだいぶお世話になりました)

c <func> [argER0] [argER1] …要するにGコマンドですが、(1)(簡易的ながら)引数が渡せる(2)戻り値が表示される(3)通常のreturn;で(安全に？)モニタに戻る…が工夫されています。
: c _rand
returned : 00005bd4
: (ROM内の標準ライブラリ関数rand()を呼んでみました)

: c _sample 00010002
0002 0001
returned : 00001234
:(int型引数を表示する関数sample()を呼んでみました)
という具合に引数はちょっと癖があります。argER0,argER1共にlongと解釈し、func( (long )argER0, (long )argER1);で振り出しています。func(short,short)で受けるとどうなるかはコンパイラのマニュアルか実験を参考にしてください(^^;;;)。これはモニタ上ではfunc()の引数型が判定できないためです。

p <addr> <pat> [<repeat>]…[Ver0.15A以降] addrのpatで指定されたビット(たとえば81ならビット７とビット０)を反転し1msほどしたら元に戻します。 repeatの指示があればrepeat回繰り返します。
: p pbdr 8 10
: (PBDRのビット3に0x10個パルス送ります。LEDがつながっていて視力さえあれば16回の点滅が見えるかも)

ss [<addr>]…[Ver0.17A以降]addr(省略時は0x220000)から 128kBの範囲でシンボルテーブル(のマジック)を探し、見つかればそれをシンボルテーブルとして採用します。
⇒ROM内シンボルへのテーブルをROMの片隅にでも一緒に焼きこんで置いて、ss 0とかでテーブルを(RAM版と)切り替えながら運用すると便利な場合があります。
: ss
SimTab at 0x22074e
SimTab at 0x22076c
:
と言う風に複数存在する場合があり、この場合後で見つかったほうを採用します。 (新版ダウンロード時に旧テーブルの頭だけが若い側に残ることがある。新版が若い側に移動した場合は旧版はオーバライトされて消滅するケースが(経験的に^^;)多い) 気に入らない場合はマジックをMコマンドで1バイトつぶすか、いっそ全メモリをクリアしてから再ダウンロードしてください。

+ <val1> <val2>…[Ver0.15A以降]16進のたしざん・ひきざんです。 [Ver0.24A以降]かけざん・わりざんを追加しました。
: + 2000 200
00002000 + 00000200 = 00002200(　　 8704.)
00002000 - 00000200 = 00001e00(　　 7680.)
00002000 * 00000200 = 00400000( 4194304.)
00002000 / 00000200 = 00000010( 16.)
: [Ver0.15C以降]結果のみ10進表示を加えました

??…[Ver0.16A以降]追加コマンド一覧。というかmon4が生きてるかどうか調べるのに重宝してます(^^;)

そのほか全ての(だと思う)コマンド(ライン)でシンボルが使えます。
: b _itu0a
: b
<ADDR>
2201C8
: m _sysTime ;l
220AB8 000008F6 ? .
: (mコマンドの中ではシンボルは使えません。うーん。cmdPatch入れる場所イマイチだったかなぁ^^;)

そのほか全ての(だと思う)コマンド(ライン)で文字列ポインタが使えます。 [Ver0.20B以降]
: c _strlen "This_is_a_pen"
returned : 0000000d
: (ROM内の標準関数strlen()をよんでみました。確かに13文字。スペースや制御文字は勘弁してください^^;) ⇒[Ver0.20C以降]制御文字\r/\n/\tはサポートしました
(実際にはbss領域に文字列をコピーし、そこへのポインタに「翻訳」されます)
: d "Sunday\r\n"
FFFCC0 53 75 6E 64 61 79 0D 0A 00 72 62 00 6E 00 0C F9 "Sunday...rb.n..."
: (とすると実際何が起こっているかよくわかります)

そのほか全ての(だと思う)コマンド(ライン)で文字定数が使えます。 [Ver0.20B以降]
: c _toupper 'a'
returned : 00000041
: c _isdigit '5'
returned : 00000004
:(一文字だけで勘弁してください^^; またfunc('a','b');は呼べません。(「引数の癖」参照))
そのほか全ての(だと思う)コマンド(ライン)で@レジスタ名が使えます。 [Ver0.30A以降]

: R PC=220206 CCR=80:I....... SP=00FFF880 ER0=00000008 ER1=00000002 ER2=00000004 ER3=00000000 ER4=00000000 ER5=00000000 ER6=00000000 ER7=00FFF880 : da @pc <ADDR> <CODE> <MNEMONIC> <OPERAND> 220206 1B97 SUBS #4,ER7 220208 0F86 MOV.L ER0,ER6 22020A 010069F1 MOV.L ER1,@ER7 : d @sp ;w <ADDR> < D A T A > < ASCII CODE > FFF880 8022 4010 8022 4010 8022 4010 8022 400E "."@.."@.."@.."@." FFF890 8022 400E 8022 400E 8022 400E 8022 400E "."@.."@.."@.."@."
あくまで「Rコマンドで表示される奴」なんで、手入力する手間がちょっと省けるだけではあります。
more…[Ver0.17B以降]0x224000(直コーディング固定)を func(int argc,char argv[][12]);で呼びます。ROM化したmon4.cに追加したいコマンドをRAM上でデバッグするために用意しました。たとえば
　　#pragma section MZ
　　mz(int argc,char argv[][12])
　　{
　　printf("%s\n",argv[0]);
　　printf("%s\n",argv[1]);
　　printf("%s\n",argv[2]);
　　printf("%s\n",argv[3]);
　　}
を0x224000に置いてから": more abc def"と入力すると入力文字列が順に表示されます。シンボルが含まれていた場合はすでに16進数に変換されています。

ei…[Ver0.20A以降]でWDTによる監視機能を設けました。eiでONになります。 (こんな仕様でいいのか？？)現版では

CLK÷256モードで(256/25MHz=)10.24us/tick, 10.24us*256=2.62msごとに割り込みを発生します

ハンドラ(_wdtIntr)ではカウンタ_wdtCountを0x100増やします(_wdtCount|TCNTが総tickになります)。

ということは0xFFFFFFFF*10.24us=12時間程度でオーバフローして予期せぬことがおこるはずです。(long/ulong の扱いに問題があれば6時間程度^^;;)

割り込みのたびに_wdtLog[0]にCCR|PCを、_wdtLog[1]にSPを置きます

PB0につないだLEDをチカチカやってます。他のポートでもいいですからぜひチカチカさせてください (作者自身割り込みかかってるかわかんなくなることがあるくらいなので^^;)

_wdtIntr.mar …呼ばれた時のSPよりじじい側にはCからアクセスしにくいのでアセンブラにて失礼。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; .import _wdtCount,_wdtLog .import _wdtTimeOut .import _wdtLogDisp .import _MAIN .export _wdtIntr WDT_TCSR .equ H'ffffa8 ;PBDDR .equ h'ffffd4 ;PBDR .equ h'ffffd6 _wdtIntr: push.l ER1 push.l ER0 mov.b @WDT_TCSR,R0L bclr #7,R0L mov.b #h'a5,R0H mov.w R0,@WDT_TCSR mov.l @(8,ER7),ER0 ; 0:ER0 4:ER1 8:CCR|PC mov.l ER0,@_wdtLog mov.l ER7,ER0 sub.l #8,ER0 mov.l ER0,@(_wdtLog+4) mov.l @_wdtCount,ER0 add.l #h'100,ER0 mov.l ER0,@_wdtCount mov.l @_wdtTimeOut,ER1 beq noTimeout cmp.l ER1,ER0 bcs noTimeout bsr _wdtLogDisp sub.l ER0,ER0 mov.l ER0,@_wdtTimeOut ; Disable TimeOut jmp @_MAIN noTimeout: bld #7,R0H ; WDTSCALE bst #0,@PBDR ; flash LED pop.l ER0 pop.l ER1 rte ;;;;;;;;;;

cw <func> [argER0] [argER1] …[Ver0.20A以降] タイムアウト付きcコマンドです。オマケで funcの(おおよその)処理時間をWDTで測る機能があります。内部的にCCRにより割り込み可にしてから振り出します。

cコマンドもcwコマンドも要するにGコマンドに翻訳されるのでブレーク・ステップトレース可能です。ただしcwコマンドではタイムアウト機能がじゃまになるでしょう。

: ei (LEDがちかちかはじめるはずです)
: cw _waitMS 10
returned : ffff0000 (1571. ticks)
: (waitMS(16)してみました。1571*10.24us=16.09msですね)

: cw _forever
WDT TimedOut PC:0x002203c0 SP:0x00fffc24
: (無限ループforever()を呼びました。およそ5秒でモニタに戻ってきます)
: n 2203c0
0x2203c0 : _forever(0x2203be) + 0x000002
: (どうやらforever()の中にいたらしい、ということですね)

あちこちでgetCHAR()を呼んでるシステムでは「getCHAR()で止まってた」とわかるだけで「どこから呼ばれたgetCHAR()か」はSPからたどるしかありません。(多くの場合困難です)

割り込みハンドラ内でループしてると通常(WDT割り込み自体マスクされるので)タイムアウトしません。多重割り込み版は手元で調整中。(さすがにちとやりすぎな気が…^^;;) くさいハンドラの頭で試験的にset_ccr(0)してみるといいかも。
ke [b]…[Ver0.21A以降]SCI0から受信したデータをSCI1へ、 SCI1から受信したデータをSCI0へ送るモードに入ります。脱出はTERMCHAR(チルダで#defineしてます)。
SCI1をPCのhterm.exeに、SCI0に純正モニタ組込み済みの3664Fをつないだ例を示します。
: y  (mon4.cをイネーブルにします)
: h8 ?
 Displays contents of H8/3052 peripheral registers.
      H8 <name> [RET]
   <name> : DMAC0 - Direct Memory Access Controller 0
            DMAC1 - Direct Memory Access Controller 1
: ke  (スルーモードに入ります)
Connected
:   (以下はSCI0につながれた3664Fからの応答です)
: h8 ?
 Displays contents of H8/3664 peripheral registers.
      H8 <name> [RET]
   <name> : TA   - Timer A
            TV   - Timer V
            TW   - Timer W
            SCI3 - Serial Communication Interface 3
~: DisConnected (チルダで戻ってきます。以下は親からの応答)
: h8 ?
 Displays contents of H8/3052 peripheral registers.
      H8 <name> [RET]
   <name> : DMAC0 - Direct Memory Access Controller 0
            DMAC1 - Direct Memory Access Controller 1
            ITU   - 16bit Integrated Timer pulse Unit
何がしたいのかわかりにくいですが、PC⇔3052F⇔RS232C機器と接続して

簡単なボーレートコンバータとして機能しています。SCI0側速度はハードコーディングですが、モニタの手操作で変更することができます(ソース参照)

その時の通信内容(最新32バイトのみ)がmon4sciBuf[channel][]に記録されていますので簡単な232Cラインモニタのように使えます

もともとは、モータドライバICを接続した3664Fで、その動きを3052F(のA/Dコンバータ)で調査するために作った機能です。とある方の相談をきっかけに整頓しました。

上の3664Fのように、孫として純正H8モニタをつないだ場合Lコマンドは使用可能ですが、残念ながらROMは焼けないと思います。

:ke bで呼ぶとTERMCHARもスルーしますが脱出はリセットしかありません。

はたしてROMに焼くほうがいいのか、必要な機能を追加しながらRAMにダウンロードして動かすのがいいのか微妙な機能ではあります。不要なら外してください。
シンボルテーブルについて
    struct SIMTAB{
       char *label;
       void *here;
    } simTabPtr[] = {
    
    { MAGIC,        (void *)1},
    { "_main",      (void *)0x220100},
    { "_sub1",      (void *)0x220120},
    { "_sub2",      (void *)0x220130},
    { "_count",     (void *)0x220142},
    { (char *)NULL, (void *)NULL}
    };
のような形式でRAM(まぁROMでも)に展開してください。MAGICはシンボルテーブルを使用しない場合や、コードとシンボルテーブルの不整合(コードのみアップデートしたとか)を避けるために入れてみました。
純正系処理系ではtarget.mapから symPick.js(Ver0.05A以降) で作ることが出来ます。
[追加.03/JUN/23]　ううう。symPick.js(0.04F)は.aifdefとか .aendiとかの条件アセンブリコードを吐くのですが、これがなんと秋月アセンブラは通りません。 symPick.js(0.05A以降)で対策しますが、とりあえずJScriptソースを直接書き換えることでしのいでください。
// fo.WriteLine("　　.aifdef NOEQU");」
の様にコメントアウトして必要なら「if(true) {　　}」で不要なら「if(false) {　　}」でくくってください。お手数かけて(ただでさえめんどくさいのに^^;)すんません。
[追加.03/JUL/05]symPick.js(0.05E)公開しました

[追加.03/JUL/04]　さてと…シンボルテーブルだけgcc対応 してもしょうがないのですが「トラ技(秋月)Cコンパイラは持ってるけど、主力はgcc」な方向け。 symPickG-c.awk　15分ででっちあげた力作ゆえ、あまりいじめないでください。
# 旧版です。 # symPickG-c.awk 0.01B # protoTyped by watson8 # usage: sh>h8300-hms-objdump -t target.exe | gawk -f symPickG.awk > symbol.c # BEGIN { printf( "struct SIMTAB { \n"); printf( "char *label;\n"); printf( "void *here;\n"); printf( "} SimTab[] = {\n"); printf( " { (char *)0x53494d42,(void *)1} , /*MAGIC SIMB*/\n"); FS=")"; } ($6 ~ /0x00[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]/ ) { split($6,array," "); if(substr(array[2],0,1)=="_") printf (" { \"%s\" , (void *) %s },\n",array[2],array[1]); } END { printf(" { (char *)0, (void *)0}\n};\n"); } [追加.03/OCT/20]新版はここ。
うううむ。ややこしいぞ
target.cをmon4.cを使いながら開発することを考えます。

target.objを仮リンク(配置)してtarget.absとtarget.mapを作る(symbol.objをつながないので未定義シンボル警告が出るでしょう)

target.mapから(symPick.jsかなんかで)symbol.marを作る

target.objとmon4.objとsymbol.objを本リンクしてシンボル情報付きall.absを作る

all.absが大きくなる(ダウンロードに時間がかかる)のがイマイチですが、これが簡単かつ実用的かと思います。
といいつつ…[追加.03/JUL/02]コマンドをちょちょいと追加できるメリットが大きいと思い、あえてmon4.cはRAMにおいていたのですが、よく考えたらcコマンドがあるので mon4.cはROMに焼いてしまいました。(mmコマンドを追加するのに、strcmp(av[0],"mm"); とmm()を mon4.cに追加するのではなく、target.cにmm()を追加し、:c _mmで振り出す) その結果、cmdPatch()のアドレスが固定となったため、mon4.cをイネーブルにするYコマンドも ROM化することができてなかなか便利です。
Zコマンドと同様にこんな感じでモニタに埋め込んでください。
		.import _cmdPatch,LARGE_AREA,_FOPEN
	_CMDPATCH_PTR 	.equ LARGE_AREA+49*4

	
	Y_COM:  ; 03/JUL/01
		bsr  _FOPEN          ; Lコマンドなしにprintf()/scanf()するために必要です
		mov.l #_cmdPatch,er0
		mov.l er0,@_CMDPATCH_PTR
		bra  MAIN
当然ですがYコマンドだけはモニタに直接埋め込む必要があります。またtarget.cの暴走等により mon4.cが壊れることがなくなりましたので、PowerONでmon4.cをイネーブルにする手もあります(watson8 にはその度胸はないですけど^^;)。現在の版ではスイッチをUSERベクタ空間に借りてますのでリセットのほかLコマンドでもディスエーブルされます。
でもって…[追加.03/OCT/02]普通に target.c⇒target.motを作り、それとは別にtarget.map⇒symbol.mar⇒symbol.obj⇒symbol.abs ⇒symbol.motを作って、target.motとsymbol.motを合体してall.motを作るのもなかなかシンプルでいい感じです。複数MOTの合体はこちらで。

コマンド待ちなら割込みでもどんとこい

モニタのコマンド待ちの間、オリジナルはCCRで割り込みをマスクしています。それを受け付けてしまえ、というお話です。

インタラプトドリブンな(全てが割り込みによってのみ進行する)プログラムであれば、バックグラウンドでターゲットプログラムを動かしたまま(な感じ^^;)で、モニタのdコマンドやmコマンドで動きを調べることが出来ます。

このページのずっと上の構成図を見てください。コマンド待ち時は while((c=IN_CHAR())==NULL) ; でぐるぐる回っています。そこで
enableInterrupt();
while((c=IN_CHAR())==NULL) ;
disableInterrupt();
のようにして、ここでぐるぐる回っている間だけ割り込みを受付るようにします。
どこでもいいのですが、先ほどadvanced.srcにパッチ入れましたので、ここでも同じくBSR IN_STRINGの前にBSR GETINTRを追加します。
実際のGETINTR
_INTRENB_PTR .equ LARGE_AREA+48*4 SP_SAVE .equ LARGE_AREA+51*4 ER0_SAVE .equ SP_SAVE GETINTR: mov.l er0,@ER0_SAVE mov.l @_INTRENB_PTR,er0 bne getintr2 mov.l @ER0_SAVE,er0 ; won't get rts getintr2: mov.l @ER0_SAVE,er0 ;call back ER0 mov.l er7,@SP_SAVE mov.l @(STACK+36),er7 push.l er6 push.l er5 push.l er4 push.l er3 push.l er2 push.l er1 push.l er0 mov.b @RET_TBL,r0L push.w r0 sub.b r0L,r0L mov.b r0L,@RET_TBL andc #H'3f,ccr ; EI() poll: btst #6,@SSR:8 ; Normal Receive ? beq poll ; orc #H'c0,ccr ;DI() pop.w r0 mov.b r0L,@RET_TBL pop.l er0 pop.l er1 pop.l er2 pop.l er3 pop.l er4 pop.l er5 pop.l er6 mov.l @SP_SAVE,er7 rts ;******************************

_INTRENB_PTR.L(例によってベクタ48番を借用)を見てNULLであれば何もせず返します(オリジナルのままの動作)

_INTRENB_PTR.LがNULLでなければ、ちょっと魔法 (この魔法がイマイチ不安^^;)を唱えた後 SPをRコマンドで表示される奴(は充分な深さがあると信じて)に切り替えた上で割り込みをEnableにして、独自にSCI1を監視します

割り込みがあればUSERベクタテーブルに添ったルーチンが呼ばれreturn(RTE)で戻ってきます

SCI1に入力があれば割り込みを禁止し元のSPに戻してRTSします。 (SCI1は後にあらためてIN_CHARの中でチェックされます)

target.cの例(itu0からの20msごとの割り込みで動くhh:mm:ss型の時計)
#include <3052S.h> #include <machine.h> #include <stdio.h> #include <string.h> #define VECTOR ((void **)0xFFFD30) extern void initITU(); #pragma interrupt (itu0a) extern void itu0a(void); extern void cmdPatch(long,char*); extern void *simTabPtr,*SIMTABPTR; #define MAIN ( (void (*) (void) )0x0046c0) /**advanced.srcのMAINです*/ long sysTime; short lsecF; uchar lhour,lmin,lsec; main() { initITU(); VECTOR[49]=(void *)cmdPatch; /*次回のコマンド待ちからシンボル/拡張コマンド使用可*/ VECTOR[48]=(void *)1; /*次回のコマンド待ちから割込み許可*/ simTabPtr = &SIMTABPTR; sysTime==0; lhour=lmin=lsec=lsecF=0; MAIN(); } void initITU() { if(VECTOR[24]!=(void *)0) return; VECTOR[24]=(void *)itu0a; ITU0.TCR.BYTE = 0x20|0x03; /* 0:25MHz, 1:12.5MHz 2:6.25MHz 3:3.125Mhz */ ITU.TSTR.BIT.STR0=1; /*** Counter Stops */ ITU0.TSR.BIT.IMFA = 0; ITU0.TIER.BIT.IMIEA =1; ITU0.GRA = 62500-1; /*249; *2499=1ms** 125=50us 500=200us*/ } void itu0a(void) { ITU0.TSR.BIT.IMFA = 0; sysTime++; if(++lsecF==50) { lsecF=0; if(++lsec==60) { lsec=0; if(++lmin==60) lhour++; } printf("%02d:%02d:%02d\n",(int )lhour,(int )lmin,(int )lsec); } PB.DR.BIT.B0= (lsecF>25)? 1:0; }

↑の動作例。緑はコマンド入力とその応答、青はユーザプログラムの発行したprintf()の結果
: l all.abs
  Top Address=220100
  End Address=2215C3
: 
:g 220100
:(モニタに戻ったことで、割込み許可、シンボル拡張コマンド使用可。Yコマンド等別の手で起動するかも)

 00:00:01(ユーザプログラム稼動開始。モニタコマンドは入力可)
00:00:02
00:00:03
m _sysTime ;l(モニタのmコマンドで変数_sysTimeをのぞいてみる)
  220B10  000000C2  ?  .
: 00:00:04
00:00:05
00:00:06
m _sysTime ;l
  220B10  0000014D  ?  .(変数_sysTimeが順調に増えてます)
: 00:00:07
00:00:08
00:00:09
00:00:10
m _lsec
  220B1C  0A  ?  20(秒針_lsec(とうぜん0x0a)にいたずらしてみる^^;;)
  220B1D  00  ?  .
: 00:00:33(もちろんいたずらされたことには気づきません)
00:00:34
di(コマンド待ち時の割り込みを禁止)
Intr Disabled
: ei(を入力すれば再び動き出します)
残念ながら、割り込みハンドラ以下にブレークポイントをしかけたりステップトレースとかはできません。 for(;;) sleep();をgコマンドで振り出す従来環境を利用してください

何かキーボードから入力すると改行入力まで割り込みが禁止されます

モニタコマンドから割込みを起こせる(UNIXでいう kill -1 pidみたいなの)があると便利かなぁと思うのですが作っていません。cコマンドモドキでtrapa(2) とかを呼べば出来そうに思います

VxWorks(たぶんTM)なんて使ったことのある方は操作感近いかも(思い出しながら作ったので)

もはやどうでもよくなりつつあるけれど、リセットで立ちあがる版への移行

完全に開発終了する場合はモニタ抜き版をつくるわけですが「もうちょい追加したいかも」な場合は…

全ての関数をROMに移す
BSR IN_STRINGの代わりにstrcpy(buf,"g 6000\r"); とすれば自動的にgコマンドが振り出されます。ディップSWで切り替わるようにしても良いでしょう。
ここでBSR IN_STINGの代わりにBSR(JMP) YOUR_PROG としても割込みが期待通りの動作をしてくれません。(例の魔法が必要です)

[追加.03/OCT/23]

他のボードへの移植について

前々からやろうと思いつつ延ばし延ばしになってました。ようやく3067F/20MHz+32KB+128KBで動作確認(全機能ではありません)しました。ハードウェア資源はWDTくらいしか使っていないので、その辺が中心になります。

mon4.cでインクルードしているデバイス定義ヘッダの変更。WDTまわりを参照しています
mon4.cのマクロ定義FZTOP/FZSIZE/SSTOP/SSSIZE(/debdeb)を実装RAMに合わせて変更。
Zコマンドで直コーディングしているWDT.TCSR。306xFでは0xFFFF8Cです。
_wdtIntr.mar の中にもWDT.TCSRの宣言があります。
_wdtIntr.mar で bst #0,@PBDR ; flash LEDで LEDをチカチカしています。ポート、ビットが違う場合は変更してください
いつのまにかusbコマンド(InitUSB()を呼ぶだけ)が入ってました。不要であればコメントアウトするか、何もしないInitUSB(){}を書き足してください

3067Fでのvコマンドの最後の方
        55 : FFFE0C : 000000 : SCI0 TEI
        56 : FFFE10 : 000000 : SCI1 ERI
        57 : FFFE14 : 000000 : SCI1 RXI
        58 : FFFE18 : 000000 : SCI1 TXI
        59 : FFFE1C : 000000 : SCI1 TEI
        60 : FFFE20 : 000000 : SCI2 ERI
        61 : FFFE24 : 000000 : SCI2 RXI
        62 : FFFE28 : 000000 : SCI2 TXI
        63 : FFFE2C : 000000 : SCI2 TEI
: (3052Fとやや異なっているのがわかります)

3067F/3068F/3069Fでこれでイケると思うのですが、モニタ側にかなり秘密パッチが入っているのでこれで全部かどうかは… 「ここも変えないとうごかーぞ」等ご指摘いただければ幸いです。

[追加.03/OCT/31]

gcc処理系への移植について

前々からやろうと思いつつ延ばし延ばしになってました。ようやくgccで動作確認(全機能ではありません)しました。移植のポイントは#ifdef　　__GNUC__内を注意してください。

デバイス定義ヘッダファイルの変更…純正品をもらって来るのが早いです。
ライブラリ関数の組込み…ROM化手法についてはこちらにあります。
printfの組込み…なんとか連れて来てください。どうしようもなければ ↑のリンクの下のほうにあるzzprintf()でいけます。
strtok()…↑のリンクの手抜きリンク(配置)ではgcc標準strtok()が動きません。必要な機能のみを実現したStrtoK()を最後にくっつけてあります。
yコマンド…でcmdPatch()へのポインタが必要です。cmdPatch()が固定位置(たとえば0x20000) になるようにgcc側のリンクが出来ると楽です。
その他アセンブラ部で.import/.exportしている変数については適宜変更してください。

これでイケると思うのですが、モニタ側にかなり秘密パッチが入っているのでこれで全部かどうかは… 「ここも変えないとうごかーぞ」等ご指摘いただければ幸いです。(そればっか)

[追加.03/DEC/10]

組込みについてもうちょいと

現在実験室ではVer0.42C(SH-2/H8統合版・SH-2限定バイナリはこちらで試験配布中 )です。組み込み易さを目指したのですがあんまり変わらないかも(^^;)。一気に組み込もうとすると大変ですが、以下の手順で一歩一歩進めて行くとそんなにむつかしくありません。もちろん各トピックについて当サイト内に記述があります。

(1)純正モニタをソースからビルドする
(2)printf()(またはその互換)のROM化。以下いずれでも構いません。改行がLFで記述されている点にご注意ください。浮動小数表示は不要です。
- (2.1)純正系処理系のprintf()をlower.cごと組み込む
- (2.2)gcc系のsprintf()とモニタ内OUT_STRING()を組み合わせる。当サイト内zprintf()/zzprintf()を参照。
- (2.3)純正系処理系のsprintf()とモニタ内OUT_STRING()を組み合わせる
- (2.4)どちらかのsprintf()と独自シリアルルーチン
- (2.5)その他独自に発表されているprintf()を連れてくる
(3)sscanf()などライブラリのROM化。当サイト内ではsuperROM云々の項を参照。

(3.1)純正系処理系のsscanf(),strtok()等。ROM化は極めて容易です
(3.2)gcc系。mon4.cでは「.dataを直接ROM化しても動く」関数しか利用していません (strtok()は逃げてます)が、サポートルーチン群としてlibc.aをROM化するのであれば、面倒でも.dataはRAMに取り、スタートアップを導入することをお勧めします。
(3.x)あれ？int(16ビット)型へのsscanf()はgccでも動くのだっけ？怪しげだったらsscanf(str,"%lx",&longVal);にしてください。

(4)当ページ内のアセンブラ部分を純正モニタに組み込む。yコマンドは暫定・仮アドレスになるでしょう。ここまでで純正モニタとして動くはずですから、ROM焼き作業はいったん完了です。
(5)mon4.cのコンパイル(純正系でもgccでも)・RAM上へ配置・Lコマンドによる実装・調整。
- (5.1)yコマンドが仮アドレスでROM化されているようであれば、起動はmコマンドでユーザベクタ空間を書き換えることで行います。
- (5.2) スタートアップルーチンを導入された方は「ユーザベクタ空間の書き換え+スタートアップルーチン呼び出し」をまとめてサブルーチンにするといいでしょう。戻りはBACK()で。
(6)「mon4.cもROM内にあれば便利」と感じたらROM化してしまってください。
- (6.1)純正系でコンパイルした場合は、モニタのリンカスクリプトに"input mon4.obj"を追加すれば良いでしょう
- (6.2)gcc系でコンパイルした場合は、たとえば"h8300-hms-gcc superROM.o mon4.o"って感じで。
(0)それぞれの作業の中で、配置アドレスや.export/.import/.equ/#defineなどはその都度調整してください。

ところでもともとの思いつき

USBからのダウンロード(コマンド追加または自動化)はどうした？⇒ぼちぼちやります(^^;)
⇒ぼちぼちやってみました。こちら(03/JUN/30版)で。
USB.cはUSBから送れないのはともかく、mon4.cはどうなんだろ…まだ頭の中整理中(^^;;)。

最近(っていつ？)HOSv4(uITRON4.0準拠)いじりはじめました。この割り込み可能版モニタでHOS環境のタスク・カーネルのデバッグがある程度できるみたいです。HOSのお話はこちらのページにぐだぐだと。

無保証です。各自の責任においてお願いします。
当サイトはルネサス･テクノロジ(株)とは何ら関係ありません。同社に問い合わせるようなことは深くご遠慮ください
watson8に問い合わせるようなことは…お気軽にどうぞ。

感想などは

またはこちらの

からどうぞ。
つっこみもやんわりとなら歓迎します。

トップページ

へもどる