1週間返信が無いから、動いてる（確認中）なのだとおもう。
動かなければ動かんぞゴルァ！はすぐ来るだろうから。暇だったので最適化(w
　　　　_asm_c("\n\tEXTRN\teventfg_,clrdata_\n");
　　　　_asm_c("\n\tLDA\teventfg_\n\tORA\tA\n"); /* if(eventfg) */
　　　　_asm_c("\n\tCNZ\tclrdata_\n");　　　　　　　　　/* crldata()　*/