<!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>doc_inner/gnu_global/Y/176.html</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>
<a id='TOP' name='TOP'></a><h2 class='header'><a href='../mains.html'>root</a>/<a href='../files/30282.html'>doc_inner</a>/<a href='../files/30285.html'>gnu_global</a>/<a href='../files/30291.html'>Y</a>/176.html</h2>
<em class='comment'>/* [<][>][^][v][top]<a href='#BOTTOM'>[bottom]</a><a href='../mains.html'>[index]</a><a href='../help.html'>[help]</a> */</em>
<hr />
<pre>
<a id='L1' name='L1'></a><!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>
<a id='L2' name='L2'></a><html xmlns='http://www.w3.org/1999/xhtml'>
<a id='L3' name='L3'></a><head>
<a id='L4' name='L4'></a><title>pass</title>
<a id='L5' name='L5'></a><meta name='robots' content='noindex,nofollow' />
<a id='L6' name='L6'></a><meta name='generator' content='GLOBAL-6.6.14' />
<a id='L7' name='L7'></a><meta http-equiv='Content-Style-Type' content='text/css' />
<a id='L8' name='L8'></a><link rel='stylesheet' type='text/css' href='../style.css' />
<a id='L9' name='L9'></a></head>
<a id='L10' name='L10'></a><body>
<a id='L11' name='L11'></a><pre>
<a id='L12' name='L12'></a><span class='curline'><a href='../S/23880.html#L127'>pass</a> 127 include/assemble.h bool assemblefile(const char *file, PASS pass);</span>
<a id='L13' name='L13'></a><span class='curline'><a href='../S/24338.html#L30'>pass</a> 30 src/assemble.c WORD getadr(const char *prog, const char *str, PASS pass);</span>
<a id='L14' name='L14'></a><span class='curline'><a href='../S/24338.html#L54'>pass</a> 54 src/assemble.c WORD getliteral(const char *str, PASS pass);</span>
<a id='L15' name='L15'></a><span class='curline'><a href='../S/24338.html#L63'>pass</a> 63 src/assemble.c void writememory(WORD word, WORD adr, PASS pass);</span>
<a id='L16' name='L16'></a><span class='curline'><a href='../S/24338.html#L72'>pass</a> 72 src/assemble.c void writestr(const char *str, bool literal, PASS pass);</span>
<a id='L17' name='L17'></a><span class='curline'><a href='../S/24338.html#L80'>pass</a> 80 src/assemble.c void writedc(const char *str, PASS pass);</span>
<a id='L18' name='L18'></a><span class='curline'><a href='../S/24338.html#L89'>pass</a> 89 src/assemble.c void assemble_start(const CMDLINE *cmdl, PASS pass);</span>
<a id='L19' name='L19'></a><span class='curline'><a href='../S/24338.html#L98'>pass</a> 98 src/assemble.c void assemble_ds(const CMDLINE *cmdl, PASS pass);</span>
<a id='L20' name='L20'></a><span class='curline'><a href='../S/24338.html#L107'>pass</a> 107 src/assemble.c void assemble_end(const CMDLINE *cmdl, PASS pass);</span>
<a id='L21' name='L21'></a><span class='curline'><a href='../S/24338.html#L116'>pass</a> 116 src/assemble.c void assemble_dc(const CMDLINE *cmdl, PASS pass);</span>
<a id='L22' name='L22'></a><span class='curline'><a href='../S/24338.html#L136'>pass</a> 136 src/assemble.c void assemble_in(const CMDLINE *cmdl, PASS pass);</span>
<a id='L23' name='L23'></a><span class='curline'><a href='../S/24338.html#L158'>pass</a> 158 src/assemble.c void assemble_out(const CMDLINE *cmdl, PASS pass);</span>
<a id='L24' name='L24'></a><span class='curline'><a href='../S/24338.html#L177'>pass</a> 177 src/assemble.c void assemble_rpush(const CMDLINE *cmdl, PASS pass);</span>
<a id='L25' name='L25'></a><span class='curline'><a href='../S/24338.html#L197'>pass</a> 197 src/assemble.c void assemble_rpop(const CMDLINE *cmdl, PASS pass);</span>
<a id='L26' name='L26'></a><span class='curline'><a href='../S/24338.html#L217'>pass</a> 217 src/assemble.c bool casl2cmd(CMD *cmdtbl, const CMDLINE *cmdl, PASS pass);</span>
<a id='L27' name='L27'></a><span class='curline'><a href='../S/24338.html#L227'>pass</a> 227 src/assemble.c bool assemble_comet2cmd(const CMDLINE *cmdl, PASS pass);</span>
<a id='L28' name='L28'></a><span class='curline'><a href='../S/24338.html#L237'>pass</a> 237 src/assemble.c bool assembletok(const CMDLINE *cmdl, PASS pass);</span>
<a id='L29' name='L29'></a><span class='curline'><a href='../S/24338.html#L249'>pass</a> 249 src/assemble.c bool assembleline(const char *line, PASS pass);</span>
<a id='L30' name='L30'></a><span class='curline'><a href='../S/24338.html#L301'>pass</a> 301 src/assemble.c WORD getadr(const char *prog, const char *str, PASS pass)</span>
<a id='L31' name='L31'></a><span class='curline'><a href='../S/24338.html#L306'>pass</a> 306 src/assemble.c adr = getliteral(str, pass);</span>
<a id='L32' name='L32'></a><span class='curline'><a href='../S/24338.html#L310'>pass</a> 310 src/assemble.c if(pass == SECOND) {</span>
<a id='L33' name='L33'></a><span class='curline'><a href='../S/24338.html#L342'>pass</a> 342 src/assemble.c WORD getliteral(const char *str, PASS pass)</span>
<a id='L34' name='L34'></a><span class='curline'><a href='../S/24338.html#L349'>pass</a> 349 src/assemble.c writestr(str, true, pass);</span>
<a id='L35' name='L35'></a><span class='curline'><a href='../S/24338.html#L351'>pass</a> 351 src/assemble.c writememory(nh2word(str), (asptr-&gt;lptr)++, pass);</span>
<a id='L36' name='L36'></a><span class='curline'><a href='../S/24338.html#L356'>pass</a> 356 src/assemble.c void writememory(WORD word, WORD adr, PASS pass)</span>
<a id='L37' name='L37'></a><span class='curline'><a href='../S/24338.html#L367'>pass</a> 367 src/assemble.c if(pass == SECOND &amp;&amp; asmode.asdetail == true) {</span>
<a id='L38' name='L38'></a><span class='curline'><a href='../S/24338.html#L372'>pass</a> 372 src/assemble.c void writestr(const char *str, bool literal, PASS pass)</span>
<a id='L39' name='L39'></a><span class='curline'><a href='../S/24338.html#L390'>pass</a> 390 src/assemble.c writememory(str[i], (asptr-&gt;lptr)++, pass);</span>
<a id='L40' name='L40'></a><span class='curline'><a href='../S/24338.html#L393'>pass</a> 393 src/assemble.c writememory(str[i], (asptr-&gt;ptr)++, pass);</span>
<a id='L41' name='L41'></a><span class='curline'><a href='../S/24338.html#L398'>pass</a> 398 src/assemble.c void writedc(const char *str, PASS pass)</span>
<a id='L42' name='L42'></a><span class='curline'><a href='../S/24338.html#L403'>pass</a> 403 src/assemble.c writestr(str, false, pass);</span>
<a id='L43' name='L43'></a><span class='curline'><a href='../S/24338.html#L408'>pass</a> 408 src/assemble.c if(pass == SECOND &amp;&amp; (adr = getlabel(asptr-&gt;prog, str)) == 0xFFFF) {</span>
<a id='L44' name='L44'></a><span class='curline'><a href='../S/24338.html#L411'>pass</a> 411 src/assemble.c if(pass == SECOND &amp;&amp; adr == 0xFFFF) {</span>
<a id='L45' name='L45'></a><span class='curline'><a href='../S/24338.html#L415'>pass</a> 415 src/assemble.c writememory(adr, (asptr-&gt;ptr)++, pass);</span>
<a id='L46' name='L46'></a><span class='curline'><a href='../S/24338.html#L419'>pass</a> 419 src/assemble.c void assemble_start(const CMDLINE *cmdl, PASS pass)</span>
<a id='L47' name='L47'></a><span class='curline'><a href='../S/24338.html#L433'>pass</a> 433 src/assemble.c asptr-&gt;ptr = execptr-&gt;start = getadr(asptr-&gt;prog, cmdl-&gt;opd-&gt;opdv[0], pass);</span>
<a id='L48' name='L48'></a><span class='curline'><a href='../S/24338.html#L437'>pass</a> 437 src/assemble.c void assemble_end(const CMDLINE *cmdl, PASS pass)</span>
<a id='L49' name='L49'></a><span class='curline'><a href='../S/24338.html#L444'>pass</a> 444 src/assemble.c if(pass == FIRST) {</span>
<a id='L50' name='L50'></a><span class='curline'><a href='../S/24338.html#L448'>pass</a> 448 src/assemble.c else if(pass == SECOND) {</span>
<a id='L51' name='L51'></a><span class='curline'><a href='../S/24338.html#L454'>pass</a> 454 src/assemble.c void assemble_ds(const CMDLINE *cmdl, PASS pass)</span>
<a id='L52' name='L52'></a><span class='curline'><a href='../S/24338.html#L461'>pass</a> 461 src/assemble.c writememory(0x0, (asptr-&gt;ptr)++, pass);</span>
<a id='L53' name='L53'></a><span class='curline'><a href='../S/24338.html#L468'>pass</a> 468 src/assemble.c void assemble_dc(const CMDLINE *cmdl, PASS pass)</span>
<a id='L54' name='L54'></a><span class='curline'><a href='../S/24338.html#L475'>pass</a> 475 src/assemble.c writedc(cmdl-&gt;opd-&gt;opdv[i], pass);</span>
<a id='L55' name='L55'></a><span class='curline'><a href='../S/24338.html#L482'>pass</a> 482 src/assemble.c void assemble_in(const CMDLINE *cmdl, PASS pass)</span>
<a id='L56' name='L56'></a><span class='curline'><a href='../S/24338.html#L490'>pass</a> 490 src/assemble.c assembleline(" PUSH 0,GR1", pass);</span>
<a id='L57' name='L57'></a><span class='curline'><a href='../S/24338.html#L491'>pass</a> 491 src/assemble.c assembleline(" PUSH 0,GR2", pass);</span>
<a id='L58' name='L58'></a><span class='curline'><a href='../S/24338.html#L493'>pass</a> 493 src/assemble.c assembleline(line, pass);</span>
<a id='L59' name='L59'></a><span class='curline'><a href='../S/24338.html#L495'>pass</a> 495 src/assemble.c assembleline(line, pass);</span>
<a id='L60' name='L60'></a><span class='curline'><a href='../S/24338.html#L496'>pass</a> 496 src/assemble.c assembleline(" SVC 1", pass);</span>
<a id='L61' name='L61'></a><span class='curline'><a href='../S/24338.html#L497'>pass</a> 497 src/assemble.c assembleline(" POP GR2", pass);</span>
<a id='L62' name='L62'></a><span class='curline'><a href='../S/24338.html#L498'>pass</a> 498 src/assemble.c assembleline(" POP GR1", pass);</span>
<a id='L63' name='L63'></a><span class='curline'><a href='../S/24338.html#L502'>pass</a> 502 src/assemble.c void assemble_out(const CMDLINE *cmdl, PASS pass)</span>
<a id='L64' name='L64'></a><span class='curline'><a href='../S/24338.html#L510'>pass</a> 510 src/assemble.c assembleline(" PUSH 0,GR1", pass);</span>
<a id='L65' name='L65'></a><span class='curline'><a href='../S/24338.html#L511'>pass</a> 511 src/assemble.c assembleline(" PUSH 0,GR2", pass);</span>
<a id='L66' name='L66'></a><span class='curline'><a href='../S/24338.html#L513'>pass</a> 513 src/assemble.c assembleline(line, pass);</span>
<a id='L67' name='L67'></a><span class='curline'><a href='../S/24338.html#L515'>pass</a> 515 src/assemble.c assembleline(line, pass);</span>
<a id='L68' name='L68'></a><span class='curline'><a href='../S/24338.html#L516'>pass</a> 516 src/assemble.c assembleline(" SVC 2", pass);</span>
<a id='L69' name='L69'></a><span class='curline'><a href='../S/24338.html#L517'>pass</a> 517 src/assemble.c assembleline(" LAD GR1,=#A", pass);</span>
<a id='L70' name='L70'></a><span class='curline'><a href='../S/24338.html#L518'>pass</a> 518 src/assemble.c assembleline(" LAD GR2,=1", pass);</span>
<a id='L71' name='L71'></a><span class='curline'><a href='../S/24338.html#L519'>pass</a> 519 src/assemble.c assembleline(" SVC 2", pass);</span>
<a id='L72' name='L72'></a><span class='curline'><a href='../S/24338.html#L520'>pass</a> 520 src/assemble.c assembleline(" POP GR2", pass);</span>
<a id='L73' name='L73'></a><span class='curline'><a href='../S/24338.html#L521'>pass</a> 521 src/assemble.c assembleline(" POP GR1", pass);</span>
<a id='L74' name='L74'></a><span class='curline'><a href='../S/24338.html#L525'>pass</a> 525 src/assemble.c void assemble_rpush(const CMDLINE *cmdl, PASS pass)</span>
<a id='L75' name='L75'></a><span class='curline'><a href='../S/24338.html#L535'>pass</a> 535 src/assemble.c assembleline(line, pass);</span>
<a id='L76' name='L76'></a><span class='curline'><a href='../S/24338.html#L540'>pass</a> 540 src/assemble.c void assemble_rpop(const CMDLINE *cmdl, PASS pass)</span>
<a id='L77' name='L77'></a><span class='curline'><a href='../S/24338.html#L550'>pass</a> 550 src/assemble.c assembleline(line, pass);</span>
<a id='L78' name='L78'></a><span class='curline'><a href='../S/24338.html#L555'>pass</a> 555 src/assemble.c bool casl2cmd(CMD *cmdtbl, const CMDLINE *cmdl, PASS pass)</span>
<a id='L79' name='L79'></a><span class='curline'><a href='../S/24338.html#L562'>pass</a> 562 src/assemble.c (*cmdptr)(cmdl, pass);</span>
<a id='L80' name='L80'></a><span class='curline'><a href='../S/24338.html#L569'>pass</a> 569 src/assemble.c bool assemble_comet2cmd(const CMDLINE *cmdl, PASS pass)</span>
<a id='L81' name='L81'></a><span class='curline'><a href='../S/24338.html#L582'>pass</a> 582 src/assemble.c writememory(cmd, (asptr-&gt;ptr)++, pass);</span>
<a id='L82' name='L82'></a><span class='curline'><a href='../S/24338.html#L593'>pass</a> 593 src/assemble.c writememory(cmd, (asptr-&gt;ptr)++, pass);</span>
<a id='L83' name='L83'></a><span class='curline'><a href='../S/24338.html#L603'>pass</a> 603 src/assemble.c writememory(cmd, (asptr-&gt;ptr)++, pass);</span>
<a id='L84' name='L84'></a><span class='curline'><a href='../S/24338.html#L620'>pass</a> 620 src/assemble.c adr = getadr(asptr-&gt;prog, cmdl-&gt;opd-&gt;opdv[1], pass); /* 第2オペランドはアドレス */</span>
<a id='L85' name='L85'></a><span class='curline'><a href='../S/24338.html#L622'>pass</a> 622 src/assemble.c writememory(cmd, (asptr-&gt;ptr)++, pass);</span>
<a id='L86' name='L86'></a><span class='curline'><a href='../S/24338.html#L623'>pass</a> 623 src/assemble.c writememory(adr, (asptr-&gt;ptr)++, pass);</span>
<a id='L87' name='L87'></a><span class='curline'><a href='../S/24338.html#L646'>pass</a> 646 src/assemble.c if(pass == SECOND &amp;&amp; cmd == 0x8000) { /* CALL命令 */</span>
<a id='L88' name='L88'></a><span class='curline'><a href='../S/24338.html#L649'>pass</a> 649 src/assemble.c if(cmd != 0x8000 || (pass == SECOND &amp;&amp; adr == 0xFFFF)) {</span>
<a id='L89' name='L89'></a><span class='curline'><a href='../S/24338.html#L650'>pass</a> 650 src/assemble.c adr = getadr(asptr-&gt;prog, cmdl-&gt;opd-&gt;opdv[0], pass);</span>
<a id='L90' name='L90'></a><span class='curline'><a href='../S/24338.html#L653'>pass</a> 653 src/assemble.c writememory(cmd, (asptr-&gt;ptr)++, pass);</span>
<a id='L91' name='L91'></a><span class='curline'><a href='../S/24338.html#L654'>pass</a> 654 src/assemble.c writememory(adr, (asptr-&gt;ptr)++, pass);</span>
<a id='L92' name='L92'></a><span class='curline'><a href='../S/24338.html#L659'>pass</a> 659 src/assemble.c bool assembletok(const CMDLINE *cmdl, PASS pass)</span>
<a id='L93' name='L93'></a><span class='curline'><a href='../S/24338.html#L666'>pass</a> 666 src/assemble.c if(casl2cmd(ascmd, cmdl, pass) == false &amp;&amp; casl2cmd(macrocmd, cmdl, pass) == false) {</span>
<a id='L94' name='L94'></a><span class='curline'><a href='../S/24338.html#L668'>pass</a> 668 src/assemble.c if(assemble_comet2cmd(cmdl, pass) == false) {</span>
<a id='L95' name='L95'></a><span class='curline'><a href='../S/24338.html#L677'>pass</a> 677 src/assemble.c bool assembleline(const char *line, PASS pass)</span>
<a id='L96' name='L96'></a><span class='curline'><a href='../S/24338.html#L686'>pass</a> 686 src/assemble.c if(pass == FIRST &amp;&amp; cmdl-&gt;label[0]) {</span>
<a id='L97' name='L97'></a><span class='curline'><a href='../S/24338.html#L691'>pass</a> 691 src/assemble.c stat = assembletok(cmdl, pass);</span>
<a id='L98' name='L98'></a><span class='curline'><a href='../S/24338.html#L711'>pass</a> 711 src/assemble.c bool assemblefile(const char *file, PASS pass)</span>
<a id='L99' name='L99'></a><span class='curline'><a href='../S/24338.html#L723'>pass</a> 723 src/assemble.c if((pass == FIRST &amp;&amp; asmode.src == true) || (pass == SECOND &amp;&amp; asmode.asdetail == true)) {</span>
<a id='L100' name='L100'></a><span class='curline'><a href='../S/24338.html#L726'>pass</a> 726 src/assemble.c if(assembleline(line, pass) == false) {</span>
<a id='L101' name='L101'></a><span class='curline'><a href='../S/24338.html#L742'>pass</a> 742 src/assemble.c PASS pass;</span>
<a id='L102' name='L102'></a><span class='curline'><a href='../S/24338.html#L750'>pass</a> 750 src/assemble.c for(pass = FIRST; pass &lt;= SECOND; pass++) {</span>
<a id='L103' name='L103'></a><span class='curline'><a href='../S/24338.html#L753'>pass</a> 753 src/assemble.c if(pass == FIRST) {</span>
<a id='L104' name='L104'></a><span class='curline'><a href='../S/24338.html#L755'>pass</a> 755 src/assemble.c } else if(pass == SECOND) {</span>
<a id='L105' name='L105'></a><span class='curline'><a href='../S/24338.html#L761'>pass</a> 761 src/assemble.c fprintf(stdout, "\nAssemble %s (%d)\n", filev[i], pass);</span>
<a id='L106' name='L106'></a><span class='curline'><a href='../S/24338.html#L764'>pass</a> 764 src/assemble.c stat = assemblefile(filev[i], pass);</span>
<a id='L107' name='L107'></a><span class='curline'><a href='../S/24338.html#L769'>pass</a> 769 src/assemble.c if(pass == FIRST &amp;&amp; asmode.label == true) {</span>
<a id='L108' name='L108'></a></pre>
<a id='L109' name='L109'></a></body>
<a id='L110' name='L110'></a></html>
</pre>
<hr />
<a id='BOTTOM' name='BOTTOM'></a>
<em class='comment'>/* [<][>][^][v]<a href='#TOP'>[top]</a>[bottom]<a href='../mains.html'>[index]</a><a href='../help.html'>[help]</a> */</em>
</body>
</html>