<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>
<html xmlns='http://www.w3.org/1999/xhtml'>
<head>
<title>cmdl</title>
<meta name='robots' content='noindex,nofollow' />
<meta name='generator' content='GLOBAL-6.6.14' />
<meta http-equiv='Content-Style-Type' content='text/css' />
<link rel='stylesheet' type='text/css' href='../style.css' />
</head>
<body>
<pre>
<span class='curline'><a href='../S/30200.html#L89'>cmdl</a> 89 src/assemble.c void assemble_start(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L98'>cmdl</a> 98 src/assemble.c void assemble_ds(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L107'>cmdl</a> 107 src/assemble.c void assemble_end(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L116'>cmdl</a> 116 src/assemble.c void assemble_dc(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L136'>cmdl</a> 136 src/assemble.c void assemble_in(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L158'>cmdl</a> 158 src/assemble.c void assemble_out(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L177'>cmdl</a> 177 src/assemble.c void assemble_rpush(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L197'>cmdl</a> 197 src/assemble.c void assemble_rpop(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L217'>cmdl</a> 217 src/assemble.c bool casl2cmd(CMD *cmdtbl, const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L227'>cmdl</a> 227 src/assemble.c bool assemble_comet2cmd(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L237'>cmdl</a> 237 src/assemble.c bool assembletok(const CMDLINE *cmdl, PASS pass);</span>
<span class='curline'><a href='../S/30200.html#L419'>cmdl</a> 419 src/assemble.c void assemble_start(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L421'>cmdl</a> 421 src/assemble.c if(cmdl->opd->opdc > 1) {</span>
<span class='curline'><a href='../S/30200.html#L425'>cmdl</a> 425 src/assemble.c if(!cmdl->label[0]) {</span>
<span class='curline'><a href='../S/30200.html#L430'>cmdl</a> 430 src/assemble.c strcpy(asptr->prog, cmdl->label);</span>
<span class='curline'><a href='../S/30200.html#L432'>cmdl</a> 432 src/assemble.c if(cmdl->opd->opdv[0] != NULL) {</span>
<span class='curline'><a href='../S/30200.html#L433'>cmdl</a> 433 src/assemble.c asptr->ptr = execptr->start = getadr(asptr->prog, cmdl->opd->opdv[0], pass);</span>
<span class='curline'><a href='../S/30200.html#L437'>cmdl</a> 437 src/assemble.c void assemble_end(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L439'>cmdl</a> 439 src/assemble.c if(cmdl->opd->opdc > 0) {</span>
<span class='curline'><a href='../S/30200.html#L454'>cmdl</a> 454 src/assemble.c void assemble_ds(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L456'>cmdl</a> 456 src/assemble.c if(cmdl->opd->opdc != 1) {</span>
<span class='curline'><a href='../S/30200.html#L460'>cmdl</a> 460 src/assemble.c for(int i = 0; i < atoi(cmdl->opd->opdv[0]); i++) {</span>
<span class='curline'><a href='../S/30200.html#L468'>cmdl</a> 468 src/assemble.c void assemble_dc(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L470'>cmdl</a> 470 src/assemble.c if(cmdl->opd->opdc == 0 || cmdl->opd->opdc >= OPDSIZE) {</span>
<span class='curline'><a href='../S/30200.html#L474'>cmdl</a> 474 src/assemble.c for(int i = 0; i < cmdl->opd->opdc; i++) {</span>
<span class='curline'><a href='../S/30200.html#L475'>cmdl</a> 475 src/assemble.c writedc(cmdl->opd->opdv[i], pass);</span>
<span class='curline'><a href='../S/30200.html#L482'>cmdl</a> 482 src/assemble.c void assemble_in(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L486'>cmdl</a> 486 src/assemble.c if(cmdl->opd->opdc == 0 || cmdl->opd->opdc > 2) {</span>
<span class='curline'><a href='../S/30200.html#L492'>cmdl</a> 492 src/assemble.c sprintf(line, " LAD GR1,%s", cmdl->opd->opdv[0]);</span>
<span class='curline'><a href='../S/30200.html#L494'>cmdl</a> 494 src/assemble.c sprintf(line, " LAD GR2,%s", cmdl->opd->opdv[1]);</span>
<span class='curline'><a href='../S/30200.html#L502'>cmdl</a> 502 src/assemble.c void assemble_out(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L506'>cmdl</a> 506 src/assemble.c if(cmdl->opd->opdc == 0 || cmdl->opd->opdc > 2) {</span>
<span class='curline'><a href='../S/30200.html#L512'>cmdl</a> 512 src/assemble.c sprintf(line, " LAD GR1,%s", cmdl->opd->opdv[0]);</span>
<span class='curline'><a href='../S/30200.html#L514'>cmdl</a> 514 src/assemble.c sprintf(line, " LAD GR2,%s", cmdl->opd->opdv[1]);</span>
<span class='curline'><a href='../S/30200.html#L525'>cmdl</a> 525 src/assemble.c void assemble_rpush(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L529'>cmdl</a> 529 src/assemble.c if(cmdl->opd->opdc > 0) {</span>
<span class='curline'><a href='../S/30200.html#L540'>cmdl</a> 540 src/assemble.c void assemble_rpop(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L544'>cmdl</a> 544 src/assemble.c if(cmdl->opd->opdc > 0) {</span>
<span class='curline'><a href='../S/30200.html#L555'>cmdl</a> 555 src/assemble.c bool casl2cmd(CMD *cmdtbl, const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L560'>cmdl</a> 560 src/assemble.c if(strcmp(cmdl->cmd, cmdtbl[i].name) == 0) {</span>
<span class='curline'><a href='../S/30200.html#L562'>cmdl</a> 562 src/assemble.c (*cmdptr)(cmdl, pass);</span>
<span class='curline'><a href='../S/30200.html#L569'>cmdl</a> 569 src/assemble.c bool assemble_comet2cmd(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L577'>cmdl</a> 577 src/assemble.c if(cmdl->opd->opdc == 0) {</span>
<span class='curline'><a href='../S/30200.html#L578'>cmdl</a> 578 src/assemble.c if((cmd = getcmdcode(cmdl->cmd, NONE)) == 0xFFFF) {</span>
<span class='curline'><a href='../S/30200.html#L579'>cmdl</a> 579 src/assemble.c setcerr(112, cmdl->cmd); /* not command of no operand */</span>
<span class='curline'><a href='../S/30200.html#L585'>cmdl</a> 585 src/assemble.c else if((r_r1 = grword(cmdl->opd->opdv[0], false)) != 0xFFFF) {</span>
<span class='curline'><a href='../S/30200.html#L587'>cmdl</a> 587 src/assemble.c if(cmdl->opd->opdc == 1) {</span>
<span class='curline'><a href='../S/30200.html#L588'>cmdl</a> 588 src/assemble.c if((cmd = getcmdcode(cmdl->cmd, R_)) == 0xFFFF) {</span>
<span class='curline'><a href='../S/30200.html#L589'>cmdl</a> 589 src/assemble.c setcerr(108, cmdl->cmd); /* not command of operand "r" */</span>
<span class='curline'><a href='../S/30200.html#L596'>cmdl</a> 596 src/assemble.c else if(cmdl->opd->opdc == 2 && (x_r2 = grword(cmdl->opd->opdv[1], false)) != 0xFFFF) {</span>
<span class='curline'><a href='../S/30200.html#L597'>cmdl</a> 597 src/assemble.c if((cmd = getcmdcode(cmdl->cmd, R1_R2)) == 0xFFFF) {</span>
<span class='curline'><a href='../S/30200.html#L598'>cmdl</a> 598 src/assemble.c setcerr(109, cmdl->cmd); /* not command of operand "r1,r2" */</span>
<span class='curline'><a href='../S/30200.html#L606'>cmdl</a> 606 src/assemble.c else if(cmdl->opd->opdc == 2 || cmdl->opd->opdc == 3) {</span>
<span class='curline'><a href='../S/30200.html#L607'>cmdl</a> 607 src/assemble.c if((cmd = getcmdcode(cmdl->cmd, R_ADR_X)) == 0xFFFF) {</span>
<span class='curline'><a href='../S/30200.html#L608'>cmdl</a> 608 src/assemble.c setcerr(110, cmdl->cmd); /* not command of operand "r,adr[,x]" */</span>
<span class='curline'><a href='../S/30200.html#L613'>cmdl</a> 613 src/assemble.c if(cmdl->opd->opdc == 3) { /* 第3オペランドは指標レジスタとして用いる汎用レジスタ */</span>
<span class='curline'><a href='../S/30200.html#L614'>cmdl</a> 614 src/assemble.c if((x_r2 = grword(cmdl->opd->opdv[2], true)) == 0xFFFF) {</span>
<span class='curline'><a href='../S/30200.html#L615'>cmdl</a> 615 src/assemble.c setcerr(125, cmdl->cmd); /* not GR in operand x */</span>
<span class='curline'><a href='../S/30200.html#L620'>cmdl</a> 620 src/assemble.c adr = getadr(asptr->prog, cmdl->opd->opdv[1], pass); /* 第2オペランドはアドレス */</span>
<span class='curline'><a href='../S/30200.html#L625'>cmdl</a> 625 src/assemble.c setcerr(113, cmdl->cmd); /* operand too many in COMET II command */</span>
<span class='curline'><a href='../S/30200.html#L630'>cmdl</a> 630 src/assemble.c else if(cmdl->opd->opdc == 1 || cmdl->opd->opdc == 2) {</span>
<span class='curline'><a href='../S/30200.html#L631'>cmdl</a> 631 src/assemble.c if((cmd = getcmdcode(cmdl->cmd, ADR_X)) == 0xFFFF) {</span>
<span class='curline'><a href='../S/30200.html#L632'>cmdl</a> 632 src/assemble.c setcerr(111, cmdl->cmd); /* not command of operand "adr[,x]" */</span>
<span class='curline'><a href='../S/30200.html#L636'>cmdl</a> 636 src/assemble.c if(cmdl->opd->opdc == 2) { /* 第2オペランドは指標レジスタとして用いる汎用レジスタ */</span>
<span class='curline'><a href='../S/30200.html#L637'>cmdl</a> 637 src/assemble.c x_r2 = grword(cmdl->opd->opdv[1], true);</span>
<span class='curline'><a href='../S/30200.html#L647'>cmdl</a> 647 src/assemble.c adr = getlabel("", cmdl->opd->opdv[0]);</span>
<span class='curline'><a href='../S/30200.html#L650'>cmdl</a> 650 src/assemble.c adr = getadr(asptr->prog, cmdl->opd->opdv[0], pass);</span>
<span class='curline'><a href='../S/30200.html#L659'>cmdl</a> 659 src/assemble.c bool assembletok(const CMDLINE *cmdl, PASS pass)</span>
<span class='curline'><a href='../S/30200.html#L662'>cmdl</a> 662 src/assemble.c if(!cmdl->cmd[0]) {</span>
<span class='curline'><a href='../S/30200.html#L666'>cmdl</a> 666 src/assemble.c if(casl2cmd(ascmd, cmdl, pass) == false && casl2cmd(macrocmd, cmdl, pass) == false) {</span>
<span class='curline'><a href='../S/30200.html#L668'>cmdl</a> 668 src/assemble.c if(assemble_comet2cmd(cmdl, pass) == false) {</span>
<span class='curline'><a href='../S/30200.html#L670'>cmdl</a> 670 src/assemble.c setcerr(113, cmdl->cmd); /* operand too many in COMET II command */</span>
<span class='curline'><a href='../S/30200.html#L679'>cmdl</a> 679 src/assemble.c CMDLINE *cmdl = NULL;</span>
<span class='curline'><a href='../S/30200.html#L682'>cmdl</a> 682 src/assemble.c cmdl = linetok(line);</span>
<span class='curline'><a href='../S/30200.html#L684'>cmdl</a> 684 src/assemble.c if(cmdl != NULL) {</span>
<span class='curline'><a href='../S/30200.html#L686'>cmdl</a> 686 src/assemble.c if(pass == FIRST && cmdl->label[0]) {</span>
<span class='curline'><a href='../S/30200.html#L687'>cmdl</a> 687 src/assemble.c stat = addlabel(asptr->prog, cmdl->label, asptr->ptr);</span>
<span class='curline'><a href='../S/30200.html#L691'>cmdl</a> 691 src/assemble.c stat = assembletok(cmdl, pass);</span>
<span class='curline'><a href='../S/30200.html#L693'>cmdl</a> 693 src/assemble.c FREE(cmdl->label);</span>
<span class='curline'><a href='../S/30200.html#L694'>cmdl</a> 694 src/assemble.c if(cmdl->opd != NULL) {</span>
<span class='curline'><a href='../S/30200.html#L695'>cmdl</a> 695 src/assemble.c for(int i = 0; i < cmdl->opd->opdc; i++) {</span>
<span class='curline'><a href='../S/30200.html#L696'>cmdl</a> 696 src/assemble.c FREE(cmdl->opd->opdv[i]);</span>
<span class='curline'><a href='../S/30200.html#L699'>cmdl</a> 699 src/assemble.c FREE(cmdl->opd);</span>
<span class='curline'><a href='../S/30200.html#L700'>cmdl</a> 700 src/assemble.c FREE(cmdl->cmd);</span>
<span class='curline'><a href='../S/30200.html#L702'>cmdl</a> 702 src/assemble.c FREE(cmdl);</span>
<span class='curline'><a href='../S/30187.html#L101'>cmdl</a> 101 src/token.c CMDLINE *cmdl = NULL;</span>
<span class='curline'><a href='../S/30187.html#L116'>cmdl</a> 116 src/token.c cmdl = malloc_chk(sizeof(CMDLINE), "cmdl");</span>
<span class='curline'><a href='../S/30187.html#L121'>cmdl</a> 121 src/token.c cmdl->label = strdup_chk("", "cmdl->label");</span>
<span class='curline'><a href='../S/30187.html#L123'>cmdl</a> 123 src/token.c cmdl->label = strndup_chk(p, i, "cmdl->label");</span>
<span class='curline'><a href='../S/30187.html#L126'>cmdl</a> 126 src/token.c setcerr(104, cmdl->label); /* label length is too long */</span>
<span class='curline'><a href='../S/30187.html#L127'>cmdl</a> 127 src/token.c FREE(cmdl->label);</span>
<span class='curline'><a href='../S/30187.html#L139'>cmdl</a> 139 src/token.c if(cmdl->label) { /* ラベルが定義されていて命令がない場合はエラー */</span>
<span class='curline'><a href='../S/30187.html#L142'>cmdl</a> 142 src/token.c FREE(cmdl->label);</span>
<span class='curline'><a href='../S/30187.html#L143'>cmdl</a> 143 src/token.c FREE(cmdl);</span>
<span class='curline'><a href='../S/30187.html#L148'>cmdl</a> 148 src/token.c cmdl->cmd = strndup_chk(p, i, "cmdl.cmd");</span>
<span class='curline'><a href='../S/30187.html#L156'>cmdl</a> 156 src/token.c cmdl->opd = opdtok(p);</span>
<span class='curline'><a href='../S/30187.html#L159'>cmdl</a> 159 src/token.c return cmdl;</span>
</pre>
</body>
</html>