* アセンブルのエラー定義
*/
static CERR cerr_assemble[] = {
- { 106, "operand mismatch in assemble command" },
+ { 106, "operand mismatch in CASL II command" },
{ 107, "no label in START" },
{ 108, "not command of operand \"r\"" },
{ 109, "not command of operand \"r1,r2\"" },
}
/**
- * アドレスを返す
+ * アドレスを返す\n
* アドレスには、リテラル／10進定数／16進定数／アドレス定数が含まれる
*/
WORD getadr(const char *prog, const char *str, PASS pass)
}
/**
- * 汎用レジスタを表す文字列 "GR[0-7]" から、レジスタ番号 [0-7] をWORD値で返す
- * 文字列が汎用レジスタを表さない場合は、0xFFFFを返す
+ * 汎用レジスタを表す文字列 "GR[0-7]" から、レジスタ番号 [0-7] をWORD値で返す\n
+ * 文字列が汎用レジスタを表さない場合は、0xFFFFを返す\n
* is_xがtrueの場合は指標レジスタ。GR0が指定された場合は、COMET IIの仕様によりエラー発生
*/
WORD getgr(const char *str, bool is_x)
}
/**
- * 定数の前に等号（=）をつけて記述されるリテラルを返す
+ * 定数の前に等号（=）をつけて記述されるリテラルを返す\n
* リテラルには、10進定数／16進定数／文字定数が含まれる
*/
WORD getliteral(const char *str, PASS pass)
/**
* アセンブラ命令STARTの処理
+ * \relates casl2cmd
*/
void assemble_start(const CMDLINE *cmdl, PASS pass)
{
/**
* アセンブラ命令ENDの処理
+ * \relates casl2cmd
*/
void assemble_end(const CMDLINE *cmdl, PASS pass)
{
/**
* アセンブラ命令DSの処理
+ * \relates casl2cmd
*/
void assemble_ds(const CMDLINE *cmdl, PASS pass)
{
/**
* アセンブラ命令DCの処理
+ * \relates casl2cmd
*/
void assemble_dc(const CMDLINE *cmdl, PASS pass)
{
}
/**
- * マクロ命令 "IN IBUF,LEN" をアセンブル
+ * マクロ命令 "IN IBUF,LEN" をアセンブル\n
+ * \code
* PUSH 0,GR1
* PUSH 0,GR2
* LAD GR1,IBUF
* SVC 1
* POP GR2
* POP GR1
+ * \endcode
+ * \relates casl2cmd
*/
void assemble_in(const CMDLINE *cmdl, PASS pass)
{
}
/**
- * マクロ命令 "OUT OBUF,LEN" をアセンブル
+ * マクロ命令 "OUT OBUF,LEN" をアセンブル\n
+ * \code
* PUSH 0,GR1
* PUSH 0,GR2
* LAD GR1,OBUF
* SVC 2
* POP GR2
* POP GR1
+ * \endcode
+ * \relates casl2cmd
*/
void assemble_out(const CMDLINE *cmdl, PASS pass)
{
FREE(line);
}
-/** マクロ命令 "RPUSH" をメモリに書き込む
+/**
+ * マクロ命令 "RPUSH" をメモリに書き込む
+ * \code
* PUSH 0,GR1
* PUSH 0,GR2
* PUSH 0,GR3
* PUSH 0,GR5
* PUSH 0,GR6
* PUSH 0,GR7
+ * \endcode
+ * \relates casl2cmd
*/
void assemble_rpush(const CMDLINE *cmdl, PASS pass)
{
}
/**
- * マクロ命令 "RPOP" をメモリに書き込む
+ * マクロ命令 "RPOP" をメモリに書き込む\n
+ * \code
* POP GR7
* POP GR6
* POP GR5
* POP GR3
* POP GR2
* POP GR1
+ * \endcode
+ * \relates casl2cmd
*/
void assemble_rpop(const CMDLINE *cmdl, PASS pass)
{
}
/**
- * アセンブラ言語CASL IIの命令を処理
- * 命令が表で定義されている場合はtrue、それ以外の場合はfalseを返す
- * エラー発生時は、cerrを設定
+ * アセンブラ言語CASL IIの命令を処理\n
+ * 命令が表で定義されている場合はtrue、それ以外の場合はfalseを返す\n
+ * エラー発生時は、cerrを設定\n
+ * 関数へのポインタで呼び出す関数は、Class Reference 参照
+ * \class casl2cmd
*/
bool casl2cmd(CMD *cmdtbl, const CMDLINE *cmdl, PASS pass)
{
}
/**
- * システムCOMET IIの命令をアセンブル
+ * システムCOMET IIの命令をアセンブル\n
* アセンブルに成功した場合はtrue、失敗した場合はfalseを返す
*/
bool assemble_comet2cmd(const CMDLINE *cmdl, PASS pass)
}
/**
- * 1行をアセンブル
+ * 1行をアセンブル\n
* passが1の場合はラベルを登録し、2の場合はラベルからアドレスを読み込む
*/
bool assembleline(const char *line, PASS pass)
}
/**
- * 指定された名前のファイルをアセンブル
+ * 指定された名前のファイルをアセンブル\n
* アセンブル完了時はtrue、エラー発生時はfalseを返す
*/
bool assemblefile(const char *file, PASS pass)
/**
* プログラムレジスタ（PR）を表す文字列を返す
- **/
+ */
char *pr2str(WORD pr) {
char *str = malloc_chk(CERRSTRSIZE + 1, "pr2str.pr");
/**
* NOP命令。語長1（OPのみ）
+ * \relates exec
*/
void nop()
{
/**
* LD命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void ld_r_adr_x()
{
/**
* LD命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void ld_r1_r2()
{
/**
* ST命令。語長2
+ * \relates exec
*/
void st()
{
/**
* LAD命令。語長2
+ * \relates exec
*/
void lad()
{
}
/**
- * ADDA命令のテンプレート
+ * ADDA命令のテンプレート\n
* 汎用レジスタrに値valを算術加算
+ * \relates exec
*/
void adda(WORD r, WORD val)
{
/**
* ADDA命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void adda_r_adr_x()
{
/**
* ADDA命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void adda_r1_r2()
{
/**
* SUBA命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void suba_r_adr_x()
{
/**
* SUBA命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void suba_r1_r2()
{
}
/**
- * ADDL命令のテンプレート
+ * ADDL命令のテンプレート\n
* 汎用レジスタrに値valを論理加算
+ * \relates exec
*/
void addl(WORD r, WORD val)
{
/**
* ADDL命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void addl_r_adr_x()
{
/**
* ADDL命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void addl_r1_r2()
{
/**
* SUBL命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void subl_r_adr_x()
{
sys->cpu->pr += 2;
}
+
/**
* SUBL命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void subl_r1_r2()
{
/**
* AND命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void and_r_adr_x()
{
/**
* AND命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void and_r1_r2()
{
/**
* OR命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void or_r_adr_x()
{
/**
* OR命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void or_r1_r2()
{
/**
* XOR命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void xor_r_adr_x()
{
/**
* XOR命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void xor_r1_r2()
{
}
/**
- * CPA命令のテンプレート
+ * CPA命令のテンプレート\n
* 汎用レジスタrの内容と値valを算術比較
*/
void cpa(WORD r, WORD val)
/**
* CPA命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void cpa_r_adr_x()
{
/**
* CPA命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void cpa_r1_r2()
{
}
/**
- * CPL命令のテンプレート
+ * CPL命令のテンプレート\n
* 汎用レジスタrの内容と値valを論理比較
*/
void cpl(WORD r, WORD val)
/**
* CPL命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void cpl_r_adr_x()
{
/**
* CPL命令 - オペランドr1,r2。語長1
+ * \relates exec
*/
void cpl_r1_r2()
{
}
/**
- * SLA命令 - オペランドr,adr,x。語長2
+ * SLA命令 - オペランドr,adr,x。語長2\n
+ * \relates exec
* 算術演算なので、第15ビットは送り出されない
*/
void sla()
}
/**
- * SRA命令 - オペランドr,adr,x。語長2
- * 算術演算なので、第15ビットは送り出されない
+ * SRA命令 - オペランドr,adr,x。語長2\n
+ * 算術演算なので、第15ビットは送り出されない\n
* 空いたビット位置には符号と同じものが入る
+ * \relates exec
*/
void sra()
{
/**
* SLL命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void sll()
{
/**
* SRL命令 - オペランドr,adr,x。語長2
+ * \relates exec
*/
void srl()
{
/**
* JPL命令。語長2
+ * \relates exec
*/
void jpl()
{
/**
* JMI命令。語長2
+ * \relates exec
*/
void jmi()
{
/**
* JNZ命令。語長2
+ * \relates exec
*/
void jnz()
{
/**
* JZE命令。語長2
+ * \relates exec
*/
void jze()
{
/**
* JOV命令。語長2
+ * \relates exec
*/
void jov()
{
/**
* JUMP命令。語長2
+ * \relates exec
*/
void jump()
{
/**
* PUSH命令。語長2
+ * \relates exec
*/
void push()
{
/**
* POP命令。語長1
+ * \relates exec
*/
void pop()
{
/**
* CALL命令。語長2
+ * \relates exec
*/
void call()
{
/**
* RET命令。語長1（OPのみ）
+ * \relates exec
*/
void ret()
{
/**
* SVC命令。語長2
+ * \relates exec
*/
void svc()
{
/**
* 仮想マシンCOMET IIの実行
+ * \class exec
*/
void exec()
{
projects / YACASL2.git / commitdiff