<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=11"/>
<meta name="generator" content="Doxygen 1.14.0"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>YACASL2: src/assemble.c Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<script type="text/javascript" src="clipboard.js"></script>
<script type="text/javascript" src="cookie.js"></script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/searchdata.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/x-mathjax-config">
MathJax.Hub.Config({
extensions: ["tex2jax.js"],
jax: ["input/TeX","output/HTML-CSS"],
});
</script>
<script type="text/javascript" async="async" src="http://www.mathjax.org/mathjax/MathJax.js"></script>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr id="projectrow">
<td id="projectalign">
<div id="projectname">YACASL2
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.14.0 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search/",'.html');
</script>
<script type="text/javascript">
$(function() { codefold.init(); });
</script>
<script type="text/javascript" src="menudata.js"></script>
<script type="text/javascript" src="menu.js"></script>
<script type="text/javascript">
$(function() {
initMenu('',true,false,'search.php','Search',false);
$(function() { init_search(); });
});
</script>
<div id="main-nav"></div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>
<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<div id="MSearchResults">
<div class="SRPage">
<div id="SRIndex">
<div id="SRResults"></div>
<div class="SRStatus" id="Loading">Loading...</div>
<div class="SRStatus" id="Searching">Searching...</div>
<div class="SRStatus" id="NoMatches">No Matches</div>
</div>
</div>
</div>
</div>
<div id="nav-path" class="navpath">
<ul>
<li class="navelem"><a href="dir_68267d1309a1af8e8297ef4c3efbcdba.html">src</a></li> </ul>
</div>
</div><!-- top -->
<div id="doc-content">
<div class="header">
<div class="headertitle"><div class="title">assemble.c</div></div>
</div><!--header-->
<div class="contents">
<a href="assemble_8c.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno"> 1</span><span class="preprocessor">#include "<a class="code" href="assemble_8h.html">assemble.h</a>"</span></div>
<div class="line"><a id="l00002" name="l00002"></a><span class="lineno"> 2</span><span class="preprocessor">#include <stdio.h></span></div>
<div class="line"><a id="l00003" name="l00003"></a><span class="lineno"> 3</span><span class="preprocessor">#include <stdlib.h></span></div>
<div class="line"><a id="l00004" name="l00004"></a><span class="lineno"> 4</span><span class="preprocessor">#include <string.h></span></div>
<div class="line"><a id="l00005" name="l00005"></a><span class="lineno"> 5</span><span class="preprocessor">#include <ctype.h></span></div>
<div class="line"><a id="l00006" name="l00006"></a><span class="lineno"> 6</span><span class="preprocessor">#include <assert.h></span></div>
<div class="line"><a id="l00007" name="l00007"></a><span class="lineno"> 7</span><span class="preprocessor">#include <errno.h></span></div>
<div class="line"><a id="l00008" name="l00008"></a><span class="lineno"> 8</span></div>
<div class="line"><a id="l00017" name="l00017"></a><span class="lineno"> 17</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#aae50ee9ef8d396f5b69da45fae877ff9">printline</a>(FILE *stream, <span class="keyword">const</span> <span class="keywordtype">char</span> *filename, <span class="keywordtype">int</span> lineno, <span class="keywordtype">char</span> *line);</div>
<div class="line"><a id="l00018" name="l00018"></a><span class="lineno"> 18</span></div>
<div class="line"><a id="l00030" name="l00030"></a><span class="lineno"> 30</span><a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> <a class="code hl_function" href="assemble_8c.html#a0a205123d42143aeca611a0486b4c931">getadr</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *prog, <span class="keyword">const</span> <span class="keywordtype">char</span> *str, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00031" name="l00031"></a><span class="lineno"> 31</span></div>
<div class="line"><a id="l00044" name="l00044"></a><span class="lineno"> 44</span><a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> <a class="code hl_function" href="assemble_8c.html#aae434272813db1ad8795273374e05772">grword</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <span class="keywordtype">bool</span> is_x);</div>
<div class="line"><a id="l00045" name="l00045"></a><span class="lineno"> 45</span></div>
<div class="line"><a id="l00054" name="l00054"></a><span class="lineno"> 54</span><a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> <a class="code hl_function" href="assemble_8c.html#aa716f1c4b620d19dd50c3c1ee40ec770">getliteral</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00055" name="l00055"></a><span class="lineno"> 55</span></div>
<div class="line"><a id="l00063" name="l00063"></a><span class="lineno"> 63</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(<a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> word, <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> adr, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00064" name="l00064"></a><span class="lineno"> 64</span></div>
<div class="line"><a id="l00072" name="l00072"></a><span class="lineno"> 72</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#aec8fb55fddc1268fcc29b23372d2041d">writestr</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <span class="keywordtype">bool</span> literal, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00073" name="l00073"></a><span class="lineno"> 73</span></div>
<div class="line"><a id="l00080" name="l00080"></a><span class="lineno"> 80</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#ad28aa41ef02ecc6614acfb153801b9be">writedc</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00081" name="l00081"></a><span class="lineno"> 81</span></div>
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno"> 89</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a0c64bca33cb0d09cd9fba1db19dbaf1a">assemble_start</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00090" name="l00090"></a><span class="lineno"> 90</span></div>
<div class="line"><a id="l00098" name="l00098"></a><span class="lineno"> 98</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a4653a2ca1a9d7a3547be4ad1e0f6924d">assemble_ds</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00099" name="l00099"></a><span class="lineno"> 99</span></div>
<div class="line"><a id="l00107" name="l00107"></a><span class="lineno"> 107</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#ad9b27bc05700d0d56189aa78b62e7afd">assemble_end</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00108" name="l00108"></a><span class="lineno"> 108</span></div>
<div class="line"><a id="l00116" name="l00116"></a><span class="lineno"> 116</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a46a04f1f6f4148513bd878663cd77eb8">assemble_dc</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00117" name="l00117"></a><span class="lineno"> 117</span></div>
<div class="line"><a id="l00136" name="l00136"></a><span class="lineno"> 136</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#adcfe77609107385a9fe5a2633e7ef497">assemble_in</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00137" name="l00137"></a><span class="lineno"> 137</span></div>
<div class="line"><a id="l00158" name="l00158"></a><span class="lineno"> 158</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a83ef1d1240a865d959f23b03e220def6">assemble_out</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00159" name="l00159"></a><span class="lineno"> 159</span></div>
<div class="line"><a id="l00177" name="l00177"></a><span class="lineno"> 177</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#aea855d2b0f43de522375a5f7657b2046">assemble_rpush</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00178" name="l00178"></a><span class="lineno"> 178</span></div>
<div class="line"><a id="l00197" name="l00197"></a><span class="lineno"> 197</span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a1e3f5e6b2f3c6b80148673ca0db33fdf">assemble_rpop</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00198" name="l00198"></a><span class="lineno"> 198</span></div>
<div class="line"><a id="l00203" name="l00203"></a><span class="lineno"> 203</span></div>
<div class="line"><a id="l00217" name="l00217"></a><span class="lineno"> 217</span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#acd9a0f035261dfc22abda9cf12f21c31">casl2cmd</a>(<a class="code hl_struct" href="struct_c_m_d.html">CMD</a> *cmdtbl, <span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00218" name="l00218"></a><span class="lineno"> 218</span></div>
<div class="line"><a id="l00227" name="l00227"></a><span class="lineno"> 227</span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#a1ff9d415430cab87480fd25355fab500">assemble_comet2cmd</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00228" name="l00228"></a><span class="lineno"> 228</span></div>
<div class="line"><a id="l00237" name="l00237"></a><span class="lineno"> 237</span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#a207dbf0d6c2c6350e652c3415be3db23">assembletok</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00238" name="l00238"></a><span class="lineno"> 238</span></div>
<div class="line"><a id="l00249" name="l00249"></a><span class="lineno"> 249</span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *line, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass);</div>
<div class="line"><a id="l00250" name="l00250"></a><span class="lineno"> 250</span></div>
<div class="foldopen" id="foldopen00254" data-start="{" data-end="};">
<div class="line"><a id="l00254" name="l00254"></a><span class="lineno"><a class="line" href="assemble_8c.html#ada5a49ba9ed3d14906ec815fd5ed9922"> 254</a></span><span class="keyword">static</span> <a class="code hl_typedef" href="cerr_8h.html#a3636a4b86cca574b3786f76f5231ffe5">CERR</a> <a class="code hl_variable" href="assemble_8c.html#ada5a49ba9ed3d14906ec815fd5ed9922">cerr_assemble</a>[] = {</div>
<div class="line"><a id="l00255" name="l00255"></a><span class="lineno"> 255</span> { 106, <span class="stringliteral">"operand mismatch in CASL II command"</span> },</div>
<div class="line"><a id="l00256" name="l00256"></a><span class="lineno"> 256</span> { 107, <span class="stringliteral">"no label in START"</span> },</div>
<div class="line"><a id="l00257" name="l00257"></a><span class="lineno"> 257</span> { 108, <span class="stringliteral">"not command of operand \"r\""</span> },</div>
<div class="line"><a id="l00258" name="l00258"></a><span class="lineno"> 258</span> { 109, <span class="stringliteral">"not command of operand \"r1,r2\""</span> },</div>
<div class="line"><a id="l00259" name="l00259"></a><span class="lineno"> 259</span> { 110, <span class="stringliteral">"not command of operand \"r,adr[,x]\""</span> },</div>
<div class="line"><a id="l00260" name="l00260"></a><span class="lineno"> 260</span> { 111, <span class="stringliteral">"not command of operand \"adr[,x]\""</span> },</div>
<div class="line"><a id="l00261" name="l00261"></a><span class="lineno"> 261</span> { 112, <span class="stringliteral">"not command of no operand"</span> },</div>
<div class="line"><a id="l00262" name="l00262"></a><span class="lineno"> 262</span> { 113, <span class="stringliteral">"operand too many in COMET II command"</span> },</div>
<div class="line"><a id="l00263" name="l00263"></a><span class="lineno"> 263</span> { 119, <span class="stringliteral">"out of COMET II memory"</span> },</div>
<div class="line"><a id="l00264" name="l00264"></a><span class="lineno"> 264</span> { 120, <span class="stringliteral">"GR0 in operand x"</span> },</div>
<div class="line"><a id="l00265" name="l00265"></a><span class="lineno"> 265</span> { 122, <span class="stringliteral">"cannot create hash table"</span> },</div>
<div class="line"><a id="l00266" name="l00266"></a><span class="lineno"> 266</span> { 124, <span class="stringliteral">"more than one character in literal"</span> },</div>
<div class="line"><a id="l00267" name="l00267"></a><span class="lineno"> 267</span> { 125, <span class="stringliteral">"not GR in operand x"</span> },</div>
<div class="line"><a id="l00268" name="l00268"></a><span class="lineno"> 268</span>};</div>
</div>
<div class="line"><a id="l00269" name="l00269"></a><span class="lineno"> 269</span></div>
<div class="foldopen" id="foldopen00273" data-start="{" data-end="};">
<div class="line"><a id="l00273" name="l00273"></a><span class="lineno"><a class="line" href="assemble_8c.html#acac768f18660c818a242788ce67a0a6e"> 273</a></span><span class="keyword">static</span> <a class="code hl_struct" href="struct_c_m_d.html">CMD</a> <a class="code hl_variable" href="assemble_8c.html#acac768f18660c818a242788ce67a0a6e">ascmd</a>[] = {</div>
<div class="line"><a id="l00274" name="l00274"></a><span class="lineno"> 274</span> { <span class="stringliteral">"START"</span>, <a class="code hl_function" href="assemble_8c.html#a0c64bca33cb0d09cd9fba1db19dbaf1a">assemble_start</a> },</div>
<div class="line"><a id="l00275" name="l00275"></a><span class="lineno"> 275</span> { <span class="stringliteral">"END"</span>, <a class="code hl_function" href="assemble_8c.html#ad9b27bc05700d0d56189aa78b62e7afd">assemble_end</a> },</div>
<div class="line"><a id="l00276" name="l00276"></a><span class="lineno"> 276</span> { <span class="stringliteral">"DS"</span>, <a class="code hl_function" href="assemble_8c.html#a4653a2ca1a9d7a3547be4ad1e0f6924d">assemble_ds</a> },</div>
<div class="line"><a id="l00277" name="l00277"></a><span class="lineno"> 277</span> { <span class="stringliteral">"DC"</span>, <a class="code hl_function" href="assemble_8c.html#a46a04f1f6f4148513bd878663cd77eb8">assemble_dc</a> },</div>
<div class="line"><a id="l00278" name="l00278"></a><span class="lineno"> 278</span> { <span class="stringliteral">""</span>, NULL }</div>
<div class="line"><a id="l00279" name="l00279"></a><span class="lineno"> 279</span>};</div>
</div>
<div class="line"><a id="l00280" name="l00280"></a><span class="lineno"> 280</span></div>
<div class="foldopen" id="foldopen00284" data-start="{" data-end="};">
<div class="line"><a id="l00284" name="l00284"></a><span class="lineno"><a class="line" href="assemble_8c.html#adccc7654cba3b0ad2c68b1b70c24db15"> 284</a></span><span class="keyword">static</span> <a class="code hl_struct" href="struct_c_m_d.html">CMD</a> <a class="code hl_variable" href="assemble_8c.html#adccc7654cba3b0ad2c68b1b70c24db15">macrocmd</a>[] = {</div>
<div class="line"><a id="l00285" name="l00285"></a><span class="lineno"> 285</span> { <span class="stringliteral">"OUT"</span>, <a class="code hl_function" href="assemble_8c.html#a83ef1d1240a865d959f23b03e220def6">assemble_out</a> },</div>
<div class="line"><a id="l00286" name="l00286"></a><span class="lineno"> 286</span> { <span class="stringliteral">"IN"</span>, <a class="code hl_function" href="assemble_8c.html#adcfe77609107385a9fe5a2633e7ef497">assemble_in</a> },</div>
<div class="line"><a id="l00287" name="l00287"></a><span class="lineno"> 287</span> { <span class="stringliteral">"RPUSH"</span>, <a class="code hl_function" href="assemble_8c.html#aea855d2b0f43de522375a5f7657b2046">assemble_rpush</a> },</div>
<div class="line"><a id="l00288" name="l00288"></a><span class="lineno"> 288</span> { <span class="stringliteral">"RPOP"</span>, <a class="code hl_function" href="assemble_8c.html#a1e3f5e6b2f3c6b80148673ca0db33fdf">assemble_rpop</a> },</div>
<div class="line"><a id="l00289" name="l00289"></a><span class="lineno"> 289</span> { <span class="stringliteral">""</span>, NULL }</div>
<div class="line"><a id="l00290" name="l00290"></a><span class="lineno"> 290</span>};</div>
</div>
<div class="line"><a id="l00291" name="l00291"></a><span class="lineno"> 291</span> </div>
<div class="line"><a id="l00292" name="l00292"></a><span class="lineno"><a class="line" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069"> 292</a></span><a class="code hl_struct" href="struct_a_s_p_t_r.html">ASPTR</a> *<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a> = NULL;</div>
<div class="line"><a id="l00293" name="l00293"></a><span class="lineno"> 293</span> </div>
<div class="line"><a id="l00294" name="l00294"></a><span class="lineno"><a class="line" href="assemble_8h.html#a553af9531f70e1be37646213319427eb"> 294</a></span><a class="code hl_struct" href="struct_a_s_m_o_d_e.html">ASMODE</a> <a class="code hl_variable" href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a> = {<span class="keyword">false</span>, <span class="keyword">false</span>, <span class="keyword">false</span>, <span class="keyword">false</span>, <span class="keyword">false</span>};</div>
<div class="line"><a id="l00295" name="l00295"></a><span class="lineno"> 295</span> </div>
<div class="foldopen" id="foldopen00296" data-start="{" data-end="}">
<div class="line"><a id="l00296" name="l00296"></a><span class="lineno"><a class="line" href="assemble_8c.html#aae50ee9ef8d396f5b69da45fae877ff9"> 296</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#aae50ee9ef8d396f5b69da45fae877ff9">printline</a>(FILE *stream, <span class="keyword">const</span> <span class="keywordtype">char</span> *filename, <span class="keywordtype">int</span> lineno, <span class="keywordtype">char</span> *line)</div>
<div class="line"><a id="l00297" name="l00297"></a><span class="lineno"> 297</span>{</div>
<div class="line"><a id="l00298" name="l00298"></a><span class="lineno"> 298</span> fprintf(stream, <span class="stringliteral">"%s:%5d:%s"</span>, filename, lineno, line);</div>
<div class="line"><a id="l00299" name="l00299"></a><span class="lineno"> 299</span>}</div>
</div>
<div class="line"><a id="l00300" name="l00300"></a><span class="lineno"> 300</span> </div>
<div class="foldopen" id="foldopen00301" data-start="{" data-end="}">
<div class="line"><a id="l00301" name="l00301"></a><span class="lineno"><a class="line" href="assemble_8c.html#a0a205123d42143aeca611a0486b4c931"> 301</a></span><a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> <a class="code hl_function" href="assemble_8c.html#a0a205123d42143aeca611a0486b4c931">getadr</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *prog, <span class="keyword">const</span> <span class="keywordtype">char</span> *str, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00302" name="l00302"></a><span class="lineno"> 302</span>{</div>
<div class="line"><a id="l00303" name="l00303"></a><span class="lineno"> 303</span> <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> adr = 0;</div>
<div class="line"><a id="l00304" name="l00304"></a><span class="lineno"> 304</span> </div>
<div class="line"><a id="l00305" name="l00305"></a><span class="lineno"> 305</span> <span class="keywordflow">if</span>(str[0] == <span class="charliteral">'='</span>) {</div>
<div class="line"><a id="l00306" name="l00306"></a><span class="lineno"> 306</span> adr = <a class="code hl_function" href="assemble_8c.html#aa716f1c4b620d19dd50c3c1ee40ec770">getliteral</a>(str, pass);</div>
<div class="line"><a id="l00307" name="l00307"></a><span class="lineno"> 307</span> } <span class="keywordflow">else</span> <span class="keywordflow">if</span>(isdigit(str[0]) || str[0] == <span class="charliteral">'-'</span> || str[0] == <span class="charliteral">'#'</span>) {</div>
<div class="line"><a id="l00308" name="l00308"></a><span class="lineno"> 308</span> adr = <a class="code hl_function" href="word_8h.html#a29fa9e71f68a25a914b4d2d1ce0b3043">nh2word</a>(str);</div>
<div class="line"><a id="l00309" name="l00309"></a><span class="lineno"> 309</span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a id="l00310" name="l00310"></a><span class="lineno"> 310</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a>) {</div>
<div class="line"><a id="l00311" name="l00311"></a><span class="lineno"> 311</span> <span class="keywordflow">if</span>((adr = <a class="code hl_function" href="assemble_8h.html#a8b2ae1a0bae14a00c2ca265c79d021cc">getlabel</a>(prog, str)) == 0xFFFF) {</div>
<div class="line"><a id="l00312" name="l00312"></a><span class="lineno"> 312</span> adr = <a class="code hl_function" href="assemble_8h.html#a8b2ae1a0bae14a00c2ca265c79d021cc">getlabel</a>(<span class="stringliteral">""</span>, str);</div>
<div class="line"><a id="l00313" name="l00313"></a><span class="lineno"> 313</span> }</div>
<div class="line"><a id="l00314" name="l00314"></a><span class="lineno"> 314</span> <span class="keywordflow">if</span>(adr == 0xFFFF) {</div>
<div class="line"><a id="l00315" name="l00315"></a><span class="lineno"> 315</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(103, str); <span class="comment">/* label not found */</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(103, str); <span class="comment">/* label not found */</span></div>
<div class="line"><a id="l00316" name="l00316"></a><span class="lineno"> 316</span> }</div>
<div class="line"><a id="l00317" name="l00317"></a><span class="lineno"> 317</span> }</div>
<div class="line"><a id="l00318" name="l00318"></a><span class="lineno"> 318</span> }</div>
<div class="line"><a id="l00319" name="l00319"></a><span class="lineno"> 319</span> <span class="keywordflow">return</span> adr;</div>
<div class="line"><a id="l00320" name="l00320"></a><span class="lineno"> 320</span>}</div>
</div>
<div class="line"><a id="l00321" name="l00321"></a><span class="lineno"> 321</span> </div>
<div class="foldopen" id="foldopen00322" data-start="{" data-end="}">
<div class="line"><a id="l00322" name="l00322"></a><span class="lineno"><a class="line" href="assemble_8c.html#aae434272813db1ad8795273374e05772"> 322</a></span><a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> <a class="code hl_function" href="assemble_8c.html#aae434272813db1ad8795273374e05772">grword</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <span class="keywordtype">bool</span> is_x)</div>
<div class="line"><a id="l00323" name="l00323"></a><span class="lineno"> 323</span>{</div>
<div class="line"><a id="l00324" name="l00324"></a><span class="lineno"> 324</span> <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> r = 0;</div>
<div class="line"><a id="l00325" name="l00325"></a><span class="lineno"> 325</span> </div>
<div class="line"><a id="l00326" name="l00326"></a><span class="lineno"> 326</span> <span class="comment">/* "GR[0-7]" 以外の文字列では、0xFFFFを返して終了 */</span></div>
<div class="line"><a id="l00327" name="l00327"></a><span class="lineno"> 327</span> <span class="keywordflow">if</span>(strlen(str) != 3 ||</div>
<div class="line"><a id="l00328" name="l00328"></a><span class="lineno"> 328</span> strncmp(str, <span class="stringliteral">"GR"</span>, 2) != 0 ||</div>
<div class="line"><a id="l00329" name="l00329"></a><span class="lineno"> 329</span> str[2] < <span class="charliteral">'0'</span> || str[2] > <span class="charliteral">'0'</span> + (<a class="code hl_enumvalue" href="struct_8h.html#a3163ec8332252a40b7609df6cc48a6e6a8fa6b56ad50d439c542216068ede577d">GRSIZE</a> - 1))</div>
<div class="line"><a id="l00330" name="l00330"></a><span class="lineno"> 330</span> {</div>
<div class="line"><a id="l00331" name="l00331"></a><span class="lineno"> 331</span> <span class="keywordflow">return</span> 0xFFFF;</div>
<div class="line"><a id="l00332" name="l00332"></a><span class="lineno"> 332</span> }</div>
<div class="line"><a id="l00333" name="l00333"></a><span class="lineno"> 333</span> r = (<a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a>)(str[2] - <span class="charliteral">'0'</span>);</div>
<div class="line"><a id="l00334" name="l00334"></a><span class="lineno"> 334</span> <span class="comment">/* GR0は指標レジスタとして用いることができない */</span></div>
<div class="line"><a id="l00335" name="l00335"></a><span class="lineno"> 335</span> <span class="keywordflow">if</span>(is_x == <span class="keyword">true</span> && r == 0x0) {</div>
<div class="line"><a id="l00336" name="l00336"></a><span class="lineno"> 336</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(120, <span class="stringliteral">""</span>); <span class="comment">/* GR0 in operand x */</span></div>
<div class="line"><a id="l00337" name="l00337"></a><span class="lineno"> 337</span> <span class="keywordflow">return</span> 0;</div>
<div class="line"><a id="l00338" name="l00338"></a><span class="lineno"> 338</span> }</div>
<div class="line"><a id="l00339" name="l00339"></a><span class="lineno"> 339</span> <span class="keywordflow">return</span> r;</div>
<div class="line"><a id="l00340" name="l00340"></a><span class="lineno"> 340</span>}</div>
</div>
<div class="line"><a id="l00341" name="l00341"></a><span class="lineno"> 341</span> </div>
<div class="foldopen" id="foldopen00342" data-start="{" data-end="}">
<div class="line"><a id="l00342" name="l00342"></a><span class="lineno"><a class="line" href="assemble_8c.html#aa716f1c4b620d19dd50c3c1ee40ec770"> 342</a></span><a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> <a class="code hl_function" href="assemble_8c.html#aa716f1c4b620d19dd50c3c1ee40ec770">getliteral</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00343" name="l00343"></a><span class="lineno"> 343</span>{</div>
<div class="line"><a id="l00344" name="l00344"></a><span class="lineno"> 344</span> assert(str[0] == <span class="charliteral">'='</span>);</div>
<div class="line"><a id="l00345" name="l00345"></a><span class="lineno"> 345</span> <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> adr = <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->lptr;</div>
<div class="line"><a id="l00346" name="l00346"></a><span class="lineno"> 346</span> </div>
<div class="line"><a id="l00347" name="l00347"></a><span class="lineno"> 347</span> str++;</div>
<div class="line"><a id="l00348" name="l00348"></a><span class="lineno"> 348</span> <span class="keywordflow">if</span>(str[0] == <span class="charliteral">'\''</span>) { <span class="comment">/* 文字定数 */</span></div>
<div class="line"><a id="l00349" name="l00349"></a><span class="lineno"> 349</span> <a class="code hl_function" href="assemble_8c.html#aec8fb55fddc1268fcc29b23372d2041d">writestr</a>(str, <span class="keyword">true</span>, pass);</div>
<div class="line"><a id="l00350" name="l00350"></a><span class="lineno"> 350</span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a id="l00351" name="l00351"></a><span class="lineno"> 351</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(<a class="code hl_function" href="word_8h.html#a29fa9e71f68a25a914b4d2d1ce0b3043">nh2word</a>(str), (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->lptr)++, pass);</div>
<div class="line"><a id="l00352" name="l00352"></a><span class="lineno"> 352</span> }</div>
<div class="line"><a id="l00353" name="l00353"></a><span class="lineno"> 353</span> <span class="keywordflow">return</span> adr;</div>
<div class="line"><a id="l00354" name="l00354"></a><span class="lineno"> 354</span>}</div>
</div>
<div class="line"><a id="l00355" name="l00355"></a><span class="lineno"> 355</span> </div>
<div class="foldopen" id="foldopen00356" data-start="{" data-end="}">
<div class="line"><a id="l00356" name="l00356"></a><span class="lineno"><a class="line" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1"> 356</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(<a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> word, <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> adr, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00357" name="l00357"></a><span class="lineno"> 357</span>{</div>
<div class="line"><a id="l00358" name="l00358"></a><span class="lineno"> 358</span> <span class="keywordtype">char</span> *n = NULL;</div>
<div class="line"><a id="l00359" name="l00359"></a><span class="lineno"> 359</span> </div>
<div class="line"><a id="l00360" name="l00360"></a><span class="lineno"> 360</span> <span class="comment">/* メモリオーバーの場合、エラー発生 */</span></div>
<div class="line"><a id="l00361" name="l00361"></a><span class="lineno"> 361</span> <span class="keywordflow">if</span>(adr >= <a class="code hl_variable" href="struct_8h.html#a98d202b8436afcd618aaca20d7748227">sys</a>->memsize) {</div>
<div class="line"><a id="l00362" name="l00362"></a><span class="lineno"> 362</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(119, (n = <a class="code hl_function" href="word_8h.html#af0f7f3f8b1dcb1ae401afef951d2ef19">word2n</a>(adr))); <span class="comment">/* out of COMET II memory */</span></div>
<div class="line"><a id="l00363" name="l00363"></a><span class="lineno"> 363</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(n);</div>
<div class="line"><a id="l00364" name="l00364"></a><span class="lineno"> 364</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00365" name="l00365"></a><span class="lineno"> 365</span> }</div>
<div class="line"><a id="l00366" name="l00366"></a><span class="lineno"> 366</span> (<a class="code hl_variable" href="struct_8h.html#a98d202b8436afcd618aaca20d7748227">sys</a>->memory)[adr] = word;</div>
<div class="line"><a id="l00367" name="l00367"></a><span class="lineno"> 367</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a> && <a class="code hl_variable" href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a>.asdetail == <span class="keyword">true</span>) {</div>
<div class="line"><a id="l00368" name="l00368"></a><span class="lineno"> 368</span> fprintf(stdout, <span class="stringliteral">"\t#%04X\t#%04X\n"</span>, adr, word);</div>
<div class="line"><a id="l00369" name="l00369"></a><span class="lineno"> 369</span> }</div>
<div class="line"><a id="l00370" name="l00370"></a><span class="lineno"> 370</span>}</div>
</div>
<div class="line"><a id="l00371" name="l00371"></a><span class="lineno"> 371</span> </div>
<div class="foldopen" id="foldopen00372" data-start="{" data-end="}">
<div class="line"><a id="l00372" name="l00372"></a><span class="lineno"><a class="line" href="assemble_8c.html#aec8fb55fddc1268fcc29b23372d2041d"> 372</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#aec8fb55fddc1268fcc29b23372d2041d">writestr</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <span class="keywordtype">bool</span> literal, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00373" name="l00373"></a><span class="lineno"> 373</span>{</div>
<div class="line"><a id="l00374" name="l00374"></a><span class="lineno"> 374</span> assert(str[0] == <span class="charliteral">'\''</span>);</div>
<div class="line"><a id="l00375" name="l00375"></a><span class="lineno"> 375</span> <span class="keywordtype">bool</span> lw = <span class="keyword">false</span>;</div>
<div class="line"><a id="l00376" name="l00376"></a><span class="lineno"> 376</span> </div>
<div class="line"><a id="l00377" name="l00377"></a><span class="lineno"> 377</span> <span class="comment">/* 「'」の場合、1文字スキップし、次の文字が「'」でなければ正常終了 */</span></div>
<div class="line"><a id="l00378" name="l00378"></a><span class="lineno"> 378</span> <span class="keywordflow">for</span>(<span class="keywordtype">int</span> i = 1; str[i] != <span class="charliteral">'\''</span> || str[++i] == <span class="charliteral">'\''</span>; i++) {</div>
<div class="line"><a id="l00379" name="l00379"></a><span class="lineno"> 379</span> <span class="comment">/* 「'」が閉じないまま文字列が終了した場合はエラー */</span></div>
<div class="line"><a id="l00380" name="l00380"></a><span class="lineno"> 380</span> <span class="keywordflow">if</span>(!str[i]) {</div>
<div class="line"><a id="l00381" name="l00381"></a><span class="lineno"> 381</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(123, str); <span class="comment">/* unclosed quote */</span></div>
<div class="line"><a id="l00382" name="l00382"></a><span class="lineno"> 382</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00383" name="l00383"></a><span class="lineno"> 383</span> }</div>
<div class="line"><a id="l00384" name="l00384"></a><span class="lineno"> 384</span> <span class="keywordflow">if</span>(literal == <span class="keyword">true</span> && lw == <span class="keyword">true</span>) {</div>
<div class="line"><a id="l00385" name="l00385"></a><span class="lineno"> 385</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(124, str); <span class="comment">/* more than one character in literal */</span></div>
<div class="line"><a id="l00386" name="l00386"></a><span class="lineno"> 386</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00387" name="l00387"></a><span class="lineno"> 387</span> }</div>
<div class="line"><a id="l00388" name="l00388"></a><span class="lineno"> 388</span> <span class="comment">/*リテラルの場合はリテラル領域に書込 */</span></div>
<div class="line"><a id="l00389" name="l00389"></a><span class="lineno"> 389</span> <span class="keywordflow">if</span>(literal == <span class="keyword">true</span>) {</div>
<div class="line"><a id="l00390" name="l00390"></a><span class="lineno"> 390</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(str[i], (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->lptr)++, pass);</div>
<div class="line"><a id="l00391" name="l00391"></a><span class="lineno"> 391</span> lw = <span class="keyword">true</span>;</div>
<div class="line"><a id="l00392" name="l00392"></a><span class="lineno"> 392</span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a id="l00393" name="l00393"></a><span class="lineno"> 393</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(str[i], (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00394" name="l00394"></a><span class="lineno"> 394</span> }</div>
<div class="line"><a id="l00395" name="l00395"></a><span class="lineno"> 395</span> }</div>
<div class="line"><a id="l00396" name="l00396"></a><span class="lineno"> 396</span>}</div>
</div>
<div class="line"><a id="l00397" name="l00397"></a><span class="lineno"> 397</span> </div>
<div class="foldopen" id="foldopen00398" data-start="{" data-end="}">
<div class="line"><a id="l00398" name="l00398"></a><span class="lineno"><a class="line" href="assemble_8c.html#ad28aa41ef02ecc6614acfb153801b9be"> 398</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#ad28aa41ef02ecc6614acfb153801b9be">writedc</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *str, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00399" name="l00399"></a><span class="lineno"> 399</span>{</div>
<div class="line"><a id="l00400" name="l00400"></a><span class="lineno"> 400</span> <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> adr = 0;</div>
<div class="line"><a id="l00401" name="l00401"></a><span class="lineno"> 401</span> </div>
<div class="line"><a id="l00402" name="l00402"></a><span class="lineno"> 402</span> <span class="keywordflow">if</span>(*str == <span class="charliteral">'\''</span>) {</div>
<div class="line"><a id="l00403" name="l00403"></a><span class="lineno"> 403</span> <a class="code hl_function" href="assemble_8c.html#aec8fb55fddc1268fcc29b23372d2041d">writestr</a>(str, <span class="keyword">false</span>, pass);</div>
<div class="line"><a id="l00404" name="l00404"></a><span class="lineno"> 404</span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a id="l00405" name="l00405"></a><span class="lineno"> 405</span> <span class="keywordflow">if</span>(str[0] == <span class="charliteral">'#'</span> || isdigit(str[0]) || str[0] == <span class="charliteral">'-'</span>) {</div>
<div class="line"><a id="l00406" name="l00406"></a><span class="lineno"> 406</span> adr = <a class="code hl_function" href="word_8h.html#a29fa9e71f68a25a914b4d2d1ce0b3043">nh2word</a>(str);</div>
<div class="line"><a id="l00407" name="l00407"></a><span class="lineno"> 407</span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a id="l00408" name="l00408"></a><span class="lineno"> 408</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a> && (adr = <a class="code hl_function" href="assemble_8h.html#a8b2ae1a0bae14a00c2ca265c79d021cc">getlabel</a>(<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->prog, str)) == 0xFFFF) {</div>
<div class="line"><a id="l00409" name="l00409"></a><span class="lineno"> 409</span> adr = <a class="code hl_function" href="assemble_8h.html#a8b2ae1a0bae14a00c2ca265c79d021cc">getlabel</a>(<span class="stringliteral">""</span>, str);</div>
<div class="line"><a id="l00410" name="l00410"></a><span class="lineno"> 410</span> }</div>
<div class="line"><a id="l00411" name="l00411"></a><span class="lineno"> 411</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a> && adr == 0xFFFF) {</div>
<div class="line"><a id="l00412" name="l00412"></a><span class="lineno"> 412</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(103, str); <span class="comment">/* label not found */</span></div>
<div class="line"><a id="l00413" name="l00413"></a><span class="lineno"> 413</span> }</div>
<div class="line"><a id="l00414" name="l00414"></a><span class="lineno"> 414</span> }</div>
<div class="line"><a id="l00415" name="l00415"></a><span class="lineno"> 415</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(adr, (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00416" name="l00416"></a><span class="lineno"> 416</span> }</div>
<div class="line"><a id="l00417" name="l00417"></a><span class="lineno"> 417</span>}</div>
</div>
<div class="line"><a id="l00418" name="l00418"></a><span class="lineno"> 418</span> </div>
<div class="foldopen" id="foldopen00419" data-start="{" data-end="}">
<div class="line"><a id="l00419" name="l00419"></a><span class="lineno"><a class="line" href="class_casl2cmd.html#a0c64bca33cb0d09cd9fba1db19dbaf1a"> 419</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a0c64bca33cb0d09cd9fba1db19dbaf1a">assemble_start</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00420" name="l00420"></a><span class="lineno"> 420</span>{</div>
<div class="line"><a id="l00421" name="l00421"></a><span class="lineno"> 421</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> > 1) {</div>
<div class="line"><a id="l00422" name="l00422"></a><span class="lineno"> 422</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(106, <span class="stringliteral">""</span>); <span class="comment">/* operand count mismatch */</span></div>
<div class="line"><a id="l00423" name="l00423"></a><span class="lineno"> 423</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00424" name="l00424"></a><span class="lineno"> 424</span> }</div>
<div class="line"><a id="l00425" name="l00425"></a><span class="lineno"> 425</span> <span class="keywordflow">if</span>(!cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a>[0]) {</div>
<div class="line"><a id="l00426" name="l00426"></a><span class="lineno"> 426</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(107, <span class="stringliteral">""</span>); <span class="comment">/* no label in START */</span></div>
<div class="line"><a id="l00427" name="l00427"></a><span class="lineno"> 427</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00428" name="l00428"></a><span class="lineno"> 428</span> }</div>
<div class="line"><a id="l00429" name="l00429"></a><span class="lineno"> 429</span> <span class="comment">/* プログラム名の設定 */</span></div>
<div class="line"><a id="l00430" name="l00430"></a><span class="lineno"> 430</span> strcpy(<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->prog, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a>);</div>
<div class="line"><a id="l00431" name="l00431"></a><span class="lineno"> 431</span> <span class="comment">/* オペランドがある場合、書き込みと実行の開始アドレスを設定 */</span></div>
<div class="line"><a id="l00432" name="l00432"></a><span class="lineno"> 432</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[0] != NULL) {</div>
<div class="line"><a id="l00433" name="l00433"></a><span class="lineno"> 433</span> <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr = <a class="code hl_variable" href="struct_8h.html#a4be4aa2dd7d478878cc9fda6aed8498e">execptr</a>->start = <a class="code hl_function" href="assemble_8c.html#a0a205123d42143aeca611a0486b4c931">getadr</a>(<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->prog, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[0], pass);</div>
<div class="line"><a id="l00434" name="l00434"></a><span class="lineno"> 434</span> }</div>
<div class="line"><a id="l00435" name="l00435"></a><span class="lineno"> 435</span>}</div>
</div>
<div class="line"><a id="l00436" name="l00436"></a><span class="lineno"> 436</span> </div>
<div class="foldopen" id="foldopen00437" data-start="{" data-end="}">
<div class="line"><a id="l00437" name="l00437"></a><span class="lineno"><a class="line" href="class_casl2cmd.html#ad9b27bc05700d0d56189aa78b62e7afd"> 437</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#ad9b27bc05700d0d56189aa78b62e7afd">assemble_end</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00438" name="l00438"></a><span class="lineno"> 438</span>{</div>
<div class="line"><a id="l00439" name="l00439"></a><span class="lineno"> 439</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> > 0) {</div>
<div class="line"><a id="l00440" name="l00440"></a><span class="lineno"> 440</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(106, <span class="stringliteral">""</span>); <span class="comment">/* operand count mismatch */</span></div>
<div class="line"><a id="l00441" name="l00441"></a><span class="lineno"> 441</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00442" name="l00442"></a><span class="lineno"> 442</span> }</div>
<div class="line"><a id="l00443" name="l00443"></a><span class="lineno"> 443</span> <span class="comment">/* 1回目のアセンブルの場合は、リテラル領域開始アドレスを設定 */</span></div>
<div class="line"><a id="l00444" name="l00444"></a><span class="lineno"> 444</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa6a7856cca1833641e731676636b193f1">FIRST</a>) {</div>
<div class="line"><a id="l00445" name="l00445"></a><span class="lineno"> 445</span> <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->lptr = <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr;</div>
<div class="line"><a id="l00446" name="l00446"></a><span class="lineno"> 446</span> }</div>
<div class="line"><a id="l00447" name="l00447"></a><span class="lineno"> 447</span> <span class="comment">/* 2回目のアセンブルの場合は、リテラル領域終了アドレスを実行終了アドレスとして設定 */</span></div>
<div class="line"><a id="l00448" name="l00448"></a><span class="lineno"> 448</span> <span class="keywordflow">else</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a>) {</div>
<div class="line"><a id="l00449" name="l00449"></a><span class="lineno"> 449</span> <a class="code hl_variable" href="struct_8h.html#a4be4aa2dd7d478878cc9fda6aed8498e">execptr</a>->end = <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->lptr;</div>
<div class="line"><a id="l00450" name="l00450"></a><span class="lineno"> 450</span> }</div>
<div class="line"><a id="l00451" name="l00451"></a><span class="lineno"> 451</span> strcpy(<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->prog, <span class="stringliteral">""</span>);</div>
<div class="line"><a id="l00452" name="l00452"></a><span class="lineno"> 452</span>}</div>
</div>
<div class="line"><a id="l00453" name="l00453"></a><span class="lineno"> 453</span> </div>
<div class="foldopen" id="foldopen00454" data-start="{" data-end="}">
<div class="line"><a id="l00454" name="l00454"></a><span class="lineno"><a class="line" href="class_casl2cmd.html#a4653a2ca1a9d7a3547be4ad1e0f6924d"> 454</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a4653a2ca1a9d7a3547be4ad1e0f6924d">assemble_ds</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00455" name="l00455"></a><span class="lineno"> 455</span>{</div>
<div class="line"><a id="l00456" name="l00456"></a><span class="lineno"> 456</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> != 1) {</div>
<div class="line"><a id="l00457" name="l00457"></a><span class="lineno"> 457</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(106, <span class="stringliteral">""</span>); <span class="comment">/* operand count mismatch */</span></div>
<div class="line"><a id="l00458" name="l00458"></a><span class="lineno"> 458</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00459" name="l00459"></a><span class="lineno"> 459</span> }</div>
<div class="line"><a id="l00460" name="l00460"></a><span class="lineno"> 460</span> <span class="keywordflow">for</span>(<span class="keywordtype">int</span> i = 0; i < atoi(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[0]); i++) {</div>
<div class="line"><a id="l00461" name="l00461"></a><span class="lineno"> 461</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(0x0, (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00462" name="l00462"></a><span class="lineno"> 462</span> <span class="keywordflow">if</span>(<a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num > 0) {</div>
<div class="line"><a id="l00463" name="l00463"></a><span class="lineno"> 463</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00464" name="l00464"></a><span class="lineno"> 464</span> }</div>
<div class="line"><a id="l00465" name="l00465"></a><span class="lineno"> 465</span> }</div>
<div class="line"><a id="l00466" name="l00466"></a><span class="lineno"> 466</span>}</div>
</div>
<div class="line"><a id="l00467" name="l00467"></a><span class="lineno"> 467</span> </div>
<div class="foldopen" id="foldopen00468" data-start="{" data-end="}">
<div class="line"><a id="l00468" name="l00468"></a><span class="lineno"><a class="line" href="class_casl2cmd.html#a46a04f1f6f4148513bd878663cd77eb8"> 468</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a46a04f1f6f4148513bd878663cd77eb8">assemble_dc</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00469" name="l00469"></a><span class="lineno"> 469</span>{</div>
<div class="line"><a id="l00470" name="l00470"></a><span class="lineno"> 470</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 0 || cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> >= <a class="code hl_enumvalue" href="token_8h.html#aac8199e822580470cb8af690f73a54b6ade9e86d3712c3a79f3a931c681f041cd">OPDSIZE</a>) {</div>
<div class="line"><a id="l00471" name="l00471"></a><span class="lineno"> 471</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(106, <span class="stringliteral">""</span>); <span class="comment">/* operand count mismatch */</span></div>
<div class="line"><a id="l00472" name="l00472"></a><span class="lineno"> 472</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00473" name="l00473"></a><span class="lineno"> 473</span> }</div>
<div class="line"><a id="l00474" name="l00474"></a><span class="lineno"> 474</span> <span class="keywordflow">for</span>(<span class="keywordtype">int</span> i = 0; i < cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a>; i++) {</div>
<div class="line"><a id="l00475" name="l00475"></a><span class="lineno"> 475</span> <a class="code hl_function" href="assemble_8c.html#ad28aa41ef02ecc6614acfb153801b9be">writedc</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[i], pass);</div>
<div class="line"><a id="l00476" name="l00476"></a><span class="lineno"> 476</span> <span class="keywordflow">if</span>(<a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num > 0) {</div>
<div class="line"><a id="l00477" name="l00477"></a><span class="lineno"> 477</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00478" name="l00478"></a><span class="lineno"> 478</span> }</div>
<div class="line"><a id="l00479" name="l00479"></a><span class="lineno"> 479</span> }</div>
<div class="line"><a id="l00480" name="l00480"></a><span class="lineno"> 480</span>}</div>
</div>
<div class="line"><a id="l00481" name="l00481"></a><span class="lineno"> 481</span> </div>
<div class="foldopen" id="foldopen00482" data-start="{" data-end="}">
<div class="line"><a id="l00482" name="l00482"></a><span class="lineno"><a class="line" href="class_casl2cmd.html#adcfe77609107385a9fe5a2633e7ef497"> 482</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#adcfe77609107385a9fe5a2633e7ef497">assemble_in</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00483" name="l00483"></a><span class="lineno"> 483</span>{</div>
<div class="line"><a id="l00484" name="l00484"></a><span class="lineno"> 484</span> <span class="keywordtype">char</span> *line = <a class="code hl_function" href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a>(<a class="code hl_enumvalue" href="token_8h.html#a6eba7a114c1abce729b4ed765a09c9fea6e325320fe8e40ee5b7b30fa2bf925a4">LINESIZE</a> + 1, <span class="stringliteral">"assemble_in.line"</span>);</div>
<div class="line"><a id="l00485" name="l00485"></a><span class="lineno"> 485</span> </div>
<div class="line"><a id="l00486" name="l00486"></a><span class="lineno"> 486</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 0 || cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> > 2) {</div>
<div class="line"><a id="l00487" name="l00487"></a><span class="lineno"> 487</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(106, <span class="stringliteral">""</span>); <span class="comment">/* operand count mismatch */</span></div>
<div class="line"><a id="l00488" name="l00488"></a><span class="lineno"> 488</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00489" name="l00489"></a><span class="lineno"> 489</span> }</div>
<div class="line"><a id="l00490" name="l00490"></a><span class="lineno"> 490</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" PUSH 0,GR1"</span>, pass);</div>
<div class="line"><a id="l00491" name="l00491"></a><span class="lineno"> 491</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" PUSH 0,GR2"</span>, pass);</div>
<div class="line"><a id="l00492" name="l00492"></a><span class="lineno"> 492</span> sprintf(line, <span class="stringliteral">" LAD GR1,%s"</span>, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[0]);</div>
<div class="line"><a id="l00493" name="l00493"></a><span class="lineno"> 493</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(line, pass);</div>
<div class="line"><a id="l00494" name="l00494"></a><span class="lineno"> 494</span> sprintf(line, <span class="stringliteral">" LAD GR2,%s"</span>, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[1]);</div>
<div class="line"><a id="l00495" name="l00495"></a><span class="lineno"> 495</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(line, pass);</div>
<div class="line"><a id="l00496" name="l00496"></a><span class="lineno"> 496</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" SVC 1"</span>, pass);</div>
<div class="line"><a id="l00497" name="l00497"></a><span class="lineno"> 497</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" POP GR2"</span>, pass);</div>
<div class="line"><a id="l00498" name="l00498"></a><span class="lineno"> 498</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" POP GR1"</span>, pass);</div>
<div class="line"><a id="l00499" name="l00499"></a><span class="lineno"> 499</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(line);</div>
<div class="line"><a id="l00500" name="l00500"></a><span class="lineno"> 500</span>}</div>
</div>
<div class="line"><a id="l00501" name="l00501"></a><span class="lineno"> 501</span> </div>
<div class="foldopen" id="foldopen00502" data-start="{" data-end="}">
<div class="line"><a id="l00502" name="l00502"></a><span class="lineno"><a class="line" href="class_casl2cmd.html#a83ef1d1240a865d959f23b03e220def6"> 502</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a83ef1d1240a865d959f23b03e220def6">assemble_out</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00503" name="l00503"></a><span class="lineno"> 503</span>{</div>
<div class="line"><a id="l00504" name="l00504"></a><span class="lineno"> 504</span> <span class="keywordtype">char</span> *line = <a class="code hl_function" href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a>(<a class="code hl_enumvalue" href="token_8h.html#a6eba7a114c1abce729b4ed765a09c9fea6e325320fe8e40ee5b7b30fa2bf925a4">LINESIZE</a> + 1, <span class="stringliteral">"assemble_out.line"</span>);</div>
<div class="line"><a id="l00505" name="l00505"></a><span class="lineno"> 505</span> </div>
<div class="line"><a id="l00506" name="l00506"></a><span class="lineno"> 506</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 0 || cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> > 2) {</div>
<div class="line"><a id="l00507" name="l00507"></a><span class="lineno"> 507</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(106, <span class="stringliteral">""</span>); <span class="comment">/* operand count mismatch */</span></div>
<div class="line"><a id="l00508" name="l00508"></a><span class="lineno"> 508</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00509" name="l00509"></a><span class="lineno"> 509</span> }</div>
<div class="line"><a id="l00510" name="l00510"></a><span class="lineno"> 510</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" PUSH 0,GR1"</span>, pass);</div>
<div class="line"><a id="l00511" name="l00511"></a><span class="lineno"> 511</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" PUSH 0,GR2"</span>, pass);</div>
<div class="line"><a id="l00512" name="l00512"></a><span class="lineno"> 512</span> sprintf(line, <span class="stringliteral">" LAD GR1,%s"</span>, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[0]);</div>
<div class="line"><a id="l00513" name="l00513"></a><span class="lineno"> 513</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(line, pass);</div>
<div class="line"><a id="l00514" name="l00514"></a><span class="lineno"> 514</span> sprintf(line, <span class="stringliteral">" LAD GR2,%s"</span>, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[1]);</div>
<div class="line"><a id="l00515" name="l00515"></a><span class="lineno"> 515</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(line, pass);</div>
<div class="line"><a id="l00516" name="l00516"></a><span class="lineno"> 516</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" SVC 2"</span>, pass);</div>
<div class="line"><a id="l00517" name="l00517"></a><span class="lineno"> 517</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" LAD GR1,=#A"</span>, pass);</div>
<div class="line"><a id="l00518" name="l00518"></a><span class="lineno"> 518</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" LAD GR2,=1"</span>, pass);</div>
<div class="line"><a id="l00519" name="l00519"></a><span class="lineno"> 519</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" SVC 2"</span>, pass);</div>
<div class="line"><a id="l00520" name="l00520"></a><span class="lineno"> 520</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" POP GR2"</span>, pass);</div>
<div class="line"><a id="l00521" name="l00521"></a><span class="lineno"> 521</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="stringliteral">" POP GR1"</span>, pass);</div>
<div class="line"><a id="l00522" name="l00522"></a><span class="lineno"> 522</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(line);</div>
<div class="line"><a id="l00523" name="l00523"></a><span class="lineno"> 523</span>}</div>
</div>
<div class="line"><a id="l00524" name="l00524"></a><span class="lineno"> 524</span> </div>
<div class="foldopen" id="foldopen00525" data-start="{" data-end="}">
<div class="line"><a id="l00525" name="l00525"></a><span class="lineno"><a class="line" href="class_casl2cmd.html#aea855d2b0f43de522375a5f7657b2046"> 525</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#aea855d2b0f43de522375a5f7657b2046">assemble_rpush</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00526" name="l00526"></a><span class="lineno"> 526</span>{</div>
<div class="line"><a id="l00527" name="l00527"></a><span class="lineno"> 527</span> <span class="keywordtype">char</span> *line = <a class="code hl_function" href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a>(<a class="code hl_enumvalue" href="token_8h.html#a6eba7a114c1abce729b4ed765a09c9fea6e325320fe8e40ee5b7b30fa2bf925a4">LINESIZE</a> + 1, <span class="stringliteral">"assemble_rpush.line"</span>);</div>
<div class="line"><a id="l00528" name="l00528"></a><span class="lineno"> 528</span> </div>
<div class="line"><a id="l00529" name="l00529"></a><span class="lineno"> 529</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> > 0) {</div>
<div class="line"><a id="l00530" name="l00530"></a><span class="lineno"> 530</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(106, <span class="stringliteral">""</span>); <span class="comment">/* operand count mismatch */</span></div>
<div class="line"><a id="l00531" name="l00531"></a><span class="lineno"> 531</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00532" name="l00532"></a><span class="lineno"> 532</span> }</div>
<div class="line"><a id="l00533" name="l00533"></a><span class="lineno"> 533</span> <span class="keywordflow">for</span>(<span class="keywordtype">int</span> i = 1; i <= <a class="code hl_enumvalue" href="struct_8h.html#a3163ec8332252a40b7609df6cc48a6e6a8fa6b56ad50d439c542216068ede577d">GRSIZE</a>-1; i++) {</div>
<div class="line"><a id="l00534" name="l00534"></a><span class="lineno"> 534</span> sprintf(line, <span class="stringliteral">" PUSH 0,GR%d"</span>, i);</div>
<div class="line"><a id="l00535" name="l00535"></a><span class="lineno"> 535</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(line, pass);</div>
<div class="line"><a id="l00536" name="l00536"></a><span class="lineno"> 536</span> }</div>
<div class="line"><a id="l00537" name="l00537"></a><span class="lineno"> 537</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(line);</div>
<div class="line"><a id="l00538" name="l00538"></a><span class="lineno"> 538</span>}</div>
</div>
<div class="line"><a id="l00539" name="l00539"></a><span class="lineno"> 539</span> </div>
<div class="foldopen" id="foldopen00540" data-start="{" data-end="}">
<div class="line"><a id="l00540" name="l00540"></a><span class="lineno"><a class="line" href="class_casl2cmd.html#a1e3f5e6b2f3c6b80148673ca0db33fdf"> 540</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a1e3f5e6b2f3c6b80148673ca0db33fdf">assemble_rpop</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00541" name="l00541"></a><span class="lineno"> 541</span>{</div>
<div class="line"><a id="l00542" name="l00542"></a><span class="lineno"> 542</span> <span class="keywordtype">char</span> *line = <a class="code hl_function" href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a>(<a class="code hl_enumvalue" href="token_8h.html#a6eba7a114c1abce729b4ed765a09c9fea6e325320fe8e40ee5b7b30fa2bf925a4">LINESIZE</a> + 1, <span class="stringliteral">"assemble_rpop.line"</span>);</div>
<div class="line"><a id="l00543" name="l00543"></a><span class="lineno"> 543</span> </div>
<div class="line"><a id="l00544" name="l00544"></a><span class="lineno"> 544</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> > 0) {</div>
<div class="line"><a id="l00545" name="l00545"></a><span class="lineno"> 545</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(106, <span class="stringliteral">""</span>); <span class="comment">/* operand count mismatch */</span></div>
<div class="line"><a id="l00546" name="l00546"></a><span class="lineno"> 546</span> <span class="keywordflow">return</span>;</div>
<div class="line"><a id="l00547" name="l00547"></a><span class="lineno"> 547</span> }</div>
<div class="line"><a id="l00548" name="l00548"></a><span class="lineno"> 548</span> <span class="keywordflow">for</span>(<span class="keywordtype">int</span> i = <a class="code hl_enumvalue" href="struct_8h.html#a3163ec8332252a40b7609df6cc48a6e6a8fa6b56ad50d439c542216068ede577d">GRSIZE</a>-1; i >= 1; i--) {</div>
<div class="line"><a id="l00549" name="l00549"></a><span class="lineno"> 549</span> sprintf(line, <span class="stringliteral">" POP GR%d"</span>, i);</div>
<div class="line"><a id="l00550" name="l00550"></a><span class="lineno"> 550</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(line, pass);</div>
<div class="line"><a id="l00551" name="l00551"></a><span class="lineno"> 551</span> }</div>
<div class="line"><a id="l00552" name="l00552"></a><span class="lineno"> 552</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(line);</div>
<div class="line"><a id="l00553" name="l00553"></a><span class="lineno"> 553</span>}</div>
</div>
<div class="line"><a id="l00554" name="l00554"></a><span class="lineno"> 554</span> </div>
<div class="foldopen" id="foldopen00555" data-start="{" data-end="}">
<div class="line"><a id="l00555" name="l00555"></a><span class="lineno"><a class="line" href="class_casl2cmd.html#acd9a0f035261dfc22abda9cf12f21c31"> 555</a></span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#acd9a0f035261dfc22abda9cf12f21c31">casl2cmd</a>(<a class="code hl_struct" href="struct_c_m_d.html">CMD</a> *cmdtbl, <span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00556" name="l00556"></a><span class="lineno"> 556</span>{</div>
<div class="line"><a id="l00557" name="l00557"></a><span class="lineno"> 557</span> void (*cmdptr)(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a>) = NULL;</div>
<div class="line"><a id="l00558" name="l00558"></a><span class="lineno"> 558</span> </div>
<div class="line"><a id="l00559" name="l00559"></a><span class="lineno"> 559</span> <span class="keywordflow">for</span>(<span class="keywordtype">int</span> i = 0; cmdtbl[i].<a class="code hl_variable" href="struct_c_m_d.html#aee71a54848ea8b49360a02a20050670e">name</a>[0]; i++) {</div>
<div class="line"><a id="l00560" name="l00560"></a><span class="lineno"> 560</span> <span class="keywordflow">if</span>(strcmp(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>, cmdtbl[i].<a class="code hl_variable" href="struct_c_m_d.html#aee71a54848ea8b49360a02a20050670e">name</a>) == 0) {</div>
<div class="line"><a id="l00561" name="l00561"></a><span class="lineno"> 561</span> cmdptr = cmdtbl[i].<a class="code hl_variable" href="struct_c_m_d.html#a34e876a2e2217b983a6bb7aa0c09c1b1">ptr</a>;</div>
<div class="line"><a id="l00562" name="l00562"></a><span class="lineno"> 562</span> (*cmdptr)(cmdl, pass);</div>
<div class="line"><a id="l00563" name="l00563"></a><span class="lineno"> 563</span> <span class="keywordflow">return</span> <span class="keyword">true</span>;</div>
<div class="line"><a id="l00564" name="l00564"></a><span class="lineno"> 564</span> }</div>
<div class="line"><a id="l00565" name="l00565"></a><span class="lineno"> 565</span> }</div>
<div class="line"><a id="l00566" name="l00566"></a><span class="lineno"> 566</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00567" name="l00567"></a><span class="lineno"> 567</span>}</div>
</div>
<div class="line"><a id="l00568" name="l00568"></a><span class="lineno"> 568</span> </div>
<div class="foldopen" id="foldopen00569" data-start="{" data-end="}">
<div class="line"><a id="l00569" name="l00569"></a><span class="lineno"><a class="line" href="assemble_8c.html#a1ff9d415430cab87480fd25355fab500"> 569</a></span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#a1ff9d415430cab87480fd25355fab500">assemble_comet2cmd</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00570" name="l00570"></a><span class="lineno"> 570</span>{</div>
<div class="line"><a id="l00571" name="l00571"></a><span class="lineno"> 571</span> <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> cmd = 0;</div>
<div class="line"><a id="l00572" name="l00572"></a><span class="lineno"> 572</span> <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> r_r1 = 0;</div>
<div class="line"><a id="l00573" name="l00573"></a><span class="lineno"> 573</span> <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> x_r2 = 0;</div>
<div class="line"><a id="l00574" name="l00574"></a><span class="lineno"> 574</span> <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> adr = 0;</div>
<div class="line"><a id="l00575" name="l00575"></a><span class="lineno"> 575</span> </div>
<div class="line"><a id="l00576" name="l00576"></a><span class="lineno"> 576</span> <span class="comment">/* オペランドなし */</span></div>
<div class="line"><a id="l00577" name="l00577"></a><span class="lineno"> 577</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 0) {</div>
<div class="line"><a id="l00578" name="l00578"></a><span class="lineno"> 578</span> <span class="keywordflow">if</span>((cmd = <a class="code hl_function" href="struct_8h.html#ae5076231c2c9f5011a92b4901e881695">getcmdcode</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>, <a class="code hl_enumvalue" href="struct_8h.html#a8772ddb837dae62899db0754b7606766ac157bdf0b85a40d2619cbc8bc1ae5fe2">NONE</a>)) == 0xFFFF) {</div>
<div class="line"><a id="l00579" name="l00579"></a><span class="lineno"> 579</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(112, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>); <span class="comment">/* not command of no operand */</span></div>
<div class="line"><a id="l00580" name="l00580"></a><span class="lineno"> 580</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00581" name="l00581"></a><span class="lineno"> 581</span> }</div>
<div class="line"><a id="l00582" name="l00582"></a><span class="lineno"> 582</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(cmd, (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00583" name="l00583"></a><span class="lineno"> 583</span> }</div>
<div class="line"><a id="l00584" name="l00584"></a><span class="lineno"> 584</span> <span class="comment">/* 第1オペランドは汎用レジスタ */</span></div>
<div class="line"><a id="l00585" name="l00585"></a><span class="lineno"> 585</span> <span class="keywordflow">else</span> <span class="keywordflow">if</span>((r_r1 = <a class="code hl_function" href="assemble_8c.html#aae434272813db1ad8795273374e05772">grword</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[0], <span class="keyword">false</span>)) != 0xFFFF) {</div>
<div class="line"><a id="l00586" name="l00586"></a><span class="lineno"> 586</span> <span class="comment">/* オペランド数1 */</span></div>
<div class="line"><a id="l00587" name="l00587"></a><span class="lineno"> 587</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 1) {</div>
<div class="line"><a id="l00588" name="l00588"></a><span class="lineno"> 588</span> <span class="keywordflow">if</span>((cmd = <a class="code hl_function" href="struct_8h.html#ae5076231c2c9f5011a92b4901e881695">getcmdcode</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>, <a class="code hl_enumvalue" href="struct_8h.html#a8772ddb837dae62899db0754b7606766a20858f2dbe9ee37ca9c39a99e11bfaea">R_</a>)) == 0xFFFF) {</div>
<div class="line"><a id="l00589" name="l00589"></a><span class="lineno"> 589</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(108, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>); <span class="comment">/* not command of operand "r" */</span></div>
<div class="line"><a id="l00590" name="l00590"></a><span class="lineno"> 590</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00591" name="l00591"></a><span class="lineno"> 591</span> }</div>
<div class="line"><a id="l00592" name="l00592"></a><span class="lineno"> 592</span> cmd |= (r_r1 << 4);</div>
<div class="line"><a id="l00593" name="l00593"></a><span class="lineno"> 593</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(cmd, (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00594" name="l00594"></a><span class="lineno"> 594</span> }</div>
<div class="line"><a id="l00595" name="l00595"></a><span class="lineno"> 595</span> <span class="comment">/* オペランド数2。第2オペランドは汎用レジスタ */</span></div>
<div class="line"><a id="l00596" name="l00596"></a><span class="lineno"> 596</span> <span class="keywordflow">else</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 2 && (x_r2 = <a class="code hl_function" href="assemble_8c.html#aae434272813db1ad8795273374e05772">grword</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[1], <span class="keyword">false</span>)) != 0xFFFF) {</div>
<div class="line"><a id="l00597" name="l00597"></a><span class="lineno"> 597</span> <span class="keywordflow">if</span>((cmd = <a class="code hl_function" href="struct_8h.html#ae5076231c2c9f5011a92b4901e881695">getcmdcode</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>, <a class="code hl_enumvalue" href="struct_8h.html#a8772ddb837dae62899db0754b7606766ac82f34e8304fe6bd020a6123a6692349">R1_R2</a>)) == 0xFFFF) {</div>
<div class="line"><a id="l00598" name="l00598"></a><span class="lineno"> 598</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(109, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>); <span class="comment">/* not command of operand "r1,r2" */</span></div>
<div class="line"><a id="l00599" name="l00599"></a><span class="lineno"> 599</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00600" name="l00600"></a><span class="lineno"> 600</span> }</div>
<div class="line"><a id="l00601" name="l00601"></a><span class="lineno"> 601</span> cmd |= ((r_r1 << 4) | x_r2); <span class="comment">/* 第1オペランド、第2オペランドともに汎用レジスタ */</span></div>
<div class="line"><a id="l00602" name="l00602"></a><span class="lineno"> 602</span> <span class="comment">/* メモリへの書き込み */</span></div>
<div class="line"><a id="l00603" name="l00603"></a><span class="lineno"> 603</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(cmd, (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00604" name="l00604"></a><span class="lineno"> 604</span> }</div>
<div class="line"><a id="l00605" name="l00605"></a><span class="lineno"> 605</span> <span class="comment">/* オペランド数2または3 */</span></div>
<div class="line"><a id="l00606" name="l00606"></a><span class="lineno"> 606</span> <span class="keywordflow">else</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 2 || cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 3) {</div>
<div class="line"><a id="l00607" name="l00607"></a><span class="lineno"> 607</span> <span class="keywordflow">if</span>((cmd = <a class="code hl_function" href="struct_8h.html#ae5076231c2c9f5011a92b4901e881695">getcmdcode</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>, <a class="code hl_enumvalue" href="struct_8h.html#a8772ddb837dae62899db0754b7606766a53dcd004ffb58d413bd033976c4df75d">R_ADR_X</a>)) == 0xFFFF) {</div>
<div class="line"><a id="l00608" name="l00608"></a><span class="lineno"> 608</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(110, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>); <span class="comment">/* not command of operand "r,adr[,x]" */</span></div>
<div class="line"><a id="l00609" name="l00609"></a><span class="lineno"> 609</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00610" name="l00610"></a><span class="lineno"> 610</span> }</div>
<div class="line"><a id="l00611" name="l00611"></a><span class="lineno"> 611</span> cmd |= (r_r1 << 4); <span class="comment">/* 第1オペランドは汎用レジスタ */</span></div>
<div class="line"><a id="l00612" name="l00612"></a><span class="lineno"> 612</span> <span class="comment">/* オペランド数3の場合 */</span></div>
<div class="line"><a id="l00613" name="l00613"></a><span class="lineno"> 613</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 3) { <span class="comment">/* 第3オペランドは指標レジスタとして用いる汎用レジスタ */</span></div>
<div class="line"><a id="l00614" name="l00614"></a><span class="lineno"> 614</span> <span class="keywordflow">if</span>((x_r2 = <a class="code hl_function" href="assemble_8c.html#aae434272813db1ad8795273374e05772">grword</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[2], <span class="keyword">true</span>)) == 0xFFFF) {</div>
<div class="line"><a id="l00615" name="l00615"></a><span class="lineno"> 615</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(125, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>); <span class="comment">/* not GR in operand x */</span></div>
<div class="line"><a id="l00616" name="l00616"></a><span class="lineno"> 616</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00617" name="l00617"></a><span class="lineno"> 617</span> }</div>
<div class="line"><a id="l00618" name="l00618"></a><span class="lineno"> 618</span> cmd |= x_r2;</div>
<div class="line"><a id="l00619" name="l00619"></a><span class="lineno"> 619</span> }</div>
<div class="line"><a id="l00620" name="l00620"></a><span class="lineno"> 620</span> adr = <a class="code hl_function" href="assemble_8c.html#a0a205123d42143aeca611a0486b4c931">getadr</a>(<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->prog, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[1], pass); <span class="comment">/* 第2オペランドはアドレス */</span></div>
<div class="line"><a id="l00621" name="l00621"></a><span class="lineno"> 621</span> <span class="comment">/* メモリへの書き込み */</span></div>
<div class="line"><a id="l00622" name="l00622"></a><span class="lineno"> 622</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(cmd, (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00623" name="l00623"></a><span class="lineno"> 623</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(adr, (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00624" name="l00624"></a><span class="lineno"> 624</span> } <span class="keywordflow">else</span> {</div>
<div class="line"><a id="l00625" name="l00625"></a><span class="lineno"> 625</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(113, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>); <span class="comment">/* operand too many in COMET II command */</span></div>
<div class="line"><a id="l00626" name="l00626"></a><span class="lineno"> 626</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00627" name="l00627"></a><span class="lineno"> 627</span> }</div>
<div class="line"><a id="l00628" name="l00628"></a><span class="lineno"> 628</span> }</div>
<div class="line"><a id="l00629" name="l00629"></a><span class="lineno"> 629</span> <span class="comment">/* オペランド数1または2。第1オペランドはアドレス */</span></div>
<div class="line"><a id="l00630" name="l00630"></a><span class="lineno"> 630</span> <span class="keywordflow">else</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 1 || cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 2) {</div>
<div class="line"><a id="l00631" name="l00631"></a><span class="lineno"> 631</span> <span class="keywordflow">if</span>((cmd = <a class="code hl_function" href="struct_8h.html#ae5076231c2c9f5011a92b4901e881695">getcmdcode</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>, <a class="code hl_enumvalue" href="struct_8h.html#a8772ddb837dae62899db0754b7606766aa563615d1f9228e498ba281495479270">ADR_X</a>)) == 0xFFFF) {</div>
<div class="line"><a id="l00632" name="l00632"></a><span class="lineno"> 632</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(111, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>); <span class="comment">/* not command of operand "adr[,x]" */</span></div>
<div class="line"><a id="l00633" name="l00633"></a><span class="lineno"> 633</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00634" name="l00634"></a><span class="lineno"> 634</span> }</div>
<div class="line"><a id="l00635" name="l00635"></a><span class="lineno"> 635</span> <span class="comment">/* オペランド数2の場合 */</span></div>
<div class="line"><a id="l00636" name="l00636"></a><span class="lineno"> 636</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a> == 2) { <span class="comment">/* 第2オペランドは指標レジスタとして用いる汎用レジスタ */</span></div>
<div class="line"><a id="l00637" name="l00637"></a><span class="lineno"> 637</span> x_r2 = <a class="code hl_function" href="assemble_8c.html#aae434272813db1ad8795273374e05772">grword</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[1], <span class="keyword">true</span>);</div>
<div class="line"><a id="l00638" name="l00638"></a><span class="lineno"> 638</span> <span class="keywordflow">if</span>(<a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num > 0) {</div>
<div class="line"><a id="l00639" name="l00639"></a><span class="lineno"> 639</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00640" name="l00640"></a><span class="lineno"> 640</span> }</div>
<div class="line"><a id="l00641" name="l00641"></a><span class="lineno"> 641</span> cmd |= x_r2;</div>
<div class="line"><a id="l00642" name="l00642"></a><span class="lineno"> 642</span> }</div>
<div class="line"><a id="l00643" name="l00643"></a><span class="lineno"> 643</span> <span class="comment">/* CALLの場合はプログラムの入口名を表すラベルを取得 */</span></div>
<div class="line"><a id="l00644" name="l00644"></a><span class="lineno"> 644</span> <span class="comment">/* CALL以外の命令の場合と、プログラムの入口名を取得できない場合は、 */</span></div>
<div class="line"><a id="l00645" name="l00645"></a><span class="lineno"> 645</span> <span class="comment">/* 同一プログラム内のラベルを取得 */</span></div>
<div class="line"><a id="l00646" name="l00646"></a><span class="lineno"> 646</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a> && cmd == 0x8000) { <span class="comment">/* CALL命令 */</span></div>
<div class="line"><a id="l00647" name="l00647"></a><span class="lineno"> 647</span> adr = <a class="code hl_function" href="assemble_8h.html#a8b2ae1a0bae14a00c2ca265c79d021cc">getlabel</a>(<span class="stringliteral">""</span>, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[0]);</div>
<div class="line"><a id="l00648" name="l00648"></a><span class="lineno"> 648</span> }</div>
<div class="line"><a id="l00649" name="l00649"></a><span class="lineno"> 649</span> <span class="keywordflow">if</span>(cmd != 0x8000 || (pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a> && adr == 0xFFFF)) {</div>
<div class="line"><a id="l00650" name="l00650"></a><span class="lineno"> 650</span> adr = <a class="code hl_function" href="assemble_8c.html#a0a205123d42143aeca611a0486b4c931">getadr</a>(<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->prog, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[0], pass);</div>
<div class="line"><a id="l00651" name="l00651"></a><span class="lineno"> 651</span> }</div>
<div class="line"><a id="l00652" name="l00652"></a><span class="lineno"> 652</span> <span class="comment">/* メモリへの書込 */</span></div>
<div class="line"><a id="l00653" name="l00653"></a><span class="lineno"> 653</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(cmd, (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00654" name="l00654"></a><span class="lineno"> 654</span> <a class="code hl_function" href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a>(adr, (<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr)++, pass);</div>
<div class="line"><a id="l00655" name="l00655"></a><span class="lineno"> 655</span> }</div>
<div class="line"><a id="l00656" name="l00656"></a><span class="lineno"> 656</span> <span class="keywordflow">return</span> (<a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num == 0) ? true : <span class="keyword">false</span>;</div>
<div class="line"><a id="l00657" name="l00657"></a><span class="lineno"> 657</span>}</div>
</div>
<div class="line"><a id="l00658" name="l00658"></a><span class="lineno"> 658</span> </div>
<div class="foldopen" id="foldopen00659" data-start="{" data-end="}">
<div class="line"><a id="l00659" name="l00659"></a><span class="lineno"><a class="line" href="assemble_8c.html#a207dbf0d6c2c6350e652c3415be3db23"> 659</a></span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#a207dbf0d6c2c6350e652c3415be3db23">assembletok</a>(<span class="keyword">const</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00660" name="l00660"></a><span class="lineno"> 660</span>{</div>
<div class="line"><a id="l00661" name="l00661"></a><span class="lineno"> 661</span> <span class="comment">/* 命令がない場合 */</span></div>
<div class="line"><a id="l00662" name="l00662"></a><span class="lineno"> 662</span> <span class="keywordflow">if</span>(!cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>[0]) {</div>
<div class="line"><a id="l00663" name="l00663"></a><span class="lineno"> 663</span> <span class="keywordflow">return</span> <span class="keyword">true</span>;</div>
<div class="line"><a id="l00664" name="l00664"></a><span class="lineno"> 664</span> }</div>
<div class="line"><a id="l00665" name="l00665"></a><span class="lineno"> 665</span> <span class="comment">/* アセンブラ命令またはマクロ命令の書込 */</span></div>
<div class="line"><a id="l00666" name="l00666"></a><span class="lineno"> 666</span> <span class="keywordflow">if</span>(<a class="code hl_function" href="assemble_8c.html#acd9a0f035261dfc22abda9cf12f21c31">casl2cmd</a>(<a class="code hl_variable" href="assemble_8c.html#acac768f18660c818a242788ce67a0a6e">ascmd</a>, cmdl, pass) == <span class="keyword">false</span> && <a class="code hl_function" href="assemble_8c.html#acd9a0f035261dfc22abda9cf12f21c31">casl2cmd</a>(<a class="code hl_variable" href="assemble_8c.html#adccc7654cba3b0ad2c68b1b70c24db15">macrocmd</a>, cmdl, pass) == <span class="keyword">false</span>) {</div>
<div class="line"><a id="l00667" name="l00667"></a><span class="lineno"> 667</span> <span class="comment">/* 機械語命令の書込 */</span></div>
<div class="line"><a id="l00668" name="l00668"></a><span class="lineno"> 668</span> <span class="keywordflow">if</span>(<a class="code hl_function" href="assemble_8c.html#a1ff9d415430cab87480fd25355fab500">assemble_comet2cmd</a>(cmdl, pass) == <span class="keyword">false</span>) {</div>
<div class="line"><a id="l00669" name="l00669"></a><span class="lineno"> 669</span> <span class="keywordflow">if</span>(<a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num == 0) {</div>
<div class="line"><a id="l00670" name="l00670"></a><span class="lineno"> 670</span> <a class="code hl_function" href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a>(113, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>); <span class="comment">/* operand too many in COMET II command */</span></div>
<div class="line"><a id="l00671" name="l00671"></a><span class="lineno"> 671</span> }</div>
<div class="line"><a id="l00672" name="l00672"></a><span class="lineno"> 672</span> }</div>
<div class="line"><a id="l00673" name="l00673"></a><span class="lineno"> 673</span> }</div>
<div class="line"><a id="l00674" name="l00674"></a><span class="lineno"> 674</span> <span class="keywordflow">return</span> (<a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num == 0) ? true : <span class="keyword">false</span>;</div>
<div class="line"><a id="l00675" name="l00675"></a><span class="lineno"> 675</span>}</div>
</div>
<div class="line"><a id="l00676" name="l00676"></a><span class="lineno"> 676</span> </div>
<div class="foldopen" id="foldopen00677" data-start="{" data-end="}">
<div class="line"><a id="l00677" name="l00677"></a><span class="lineno"><a class="line" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64"> 677</a></span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *line, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00678" name="l00678"></a><span class="lineno"> 678</span>{</div>
<div class="line"><a id="l00679" name="l00679"></a><span class="lineno"> 679</span> <a class="code hl_struct" href="struct_c_m_d_l_i_n_e.html">CMDLINE</a> *cmdl = NULL;</div>
<div class="line"><a id="l00680" name="l00680"></a><span class="lineno"> 680</span> <span class="keywordtype">bool</span> stat = <span class="keyword">true</span>;</div>
<div class="line"><a id="l00681" name="l00681"></a><span class="lineno"> 681</span> </div>
<div class="line"><a id="l00682" name="l00682"></a><span class="lineno"> 682</span> cmdl = <a class="code hl_function" href="token_8h.html#a0e427bc88eca4d0d5a3479933c839003">linetok</a>(line);</div>
<div class="line"><a id="l00683" name="l00683"></a><span class="lineno"> 683</span> stat = (<a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num == 0) ? <span class="keyword">true</span> : <span class="keyword">false</span>;</div>
<div class="line"><a id="l00684" name="l00684"></a><span class="lineno"> 684</span> <span class="keywordflow">if</span>(cmdl != NULL) {</div>
<div class="line"><a id="l00685" name="l00685"></a><span class="lineno"> 685</span> <span class="keywordflow">if</span>(stat == <span class="keyword">true</span>) {</div>
<div class="line"><a id="l00686" name="l00686"></a><span class="lineno"> 686</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa6a7856cca1833641e731676636b193f1">FIRST</a> && cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a>[0]) {</div>
<div class="line"><a id="l00687" name="l00687"></a><span class="lineno"> 687</span> stat = <a class="code hl_function" href="assemble_8h.html#a13845f111eda3f65e76716c9aca802aa">addlabel</a>(<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->prog, cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a>, <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr);</div>
<div class="line"><a id="l00688" name="l00688"></a><span class="lineno"> 688</span> }</div>
<div class="line"><a id="l00689" name="l00689"></a><span class="lineno"> 689</span> }</div>
<div class="line"><a id="l00690" name="l00690"></a><span class="lineno"> 690</span> <span class="keywordflow">if</span>(stat == <span class="keyword">true</span>) {</div>
<div class="line"><a id="l00691" name="l00691"></a><span class="lineno"> 691</span> stat = <a class="code hl_function" href="assemble_8c.html#a207dbf0d6c2c6350e652c3415be3db23">assembletok</a>(cmdl, pass);</div>
<div class="line"><a id="l00692" name="l00692"></a><span class="lineno"> 692</span> }</div>
<div class="line"><a id="l00693" name="l00693"></a><span class="lineno"> 693</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">label</a>);</div>
<div class="line"><a id="l00694" name="l00694"></a><span class="lineno"> 694</span> <span class="keywordflow">if</span>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a> != NULL) {</div>
<div class="line"><a id="l00695" name="l00695"></a><span class="lineno"> 695</span> <span class="keywordflow">for</span>(<span class="keywordtype">int</span> i = 0; i < cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">opdc</a>; i++) {</div>
<div class="line"><a id="l00696" name="l00696"></a><span class="lineno"> 696</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>-><a class="code hl_variable" href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">opdv</a>[i]);</div>
<div class="line"><a id="l00697" name="l00697"></a><span class="lineno"> 697</span> }</div>
<div class="line"><a id="l00698" name="l00698"></a><span class="lineno"> 698</span> }</div>
<div class="line"><a id="l00699" name="l00699"></a><span class="lineno"> 699</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">opd</a>);</div>
<div class="line"><a id="l00700" name="l00700"></a><span class="lineno"> 700</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(cmdl-><a class="code hl_variable" href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">cmd</a>);</div>
<div class="line"><a id="l00701" name="l00701"></a><span class="lineno"> 701</span> }</div>
<div class="line"><a id="l00702" name="l00702"></a><span class="lineno"> 702</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(cmdl);</div>
<div class="line"><a id="l00703" name="l00703"></a><span class="lineno"> 703</span> <span class="keywordflow">return</span> stat;</div>
<div class="line"><a id="l00704" name="l00704"></a><span class="lineno"> 704</span>}</div>
</div>
<div class="line"><a id="l00705" name="l00705"></a><span class="lineno"> 705</span></div>
<div class="foldopen" id="foldopen00711" data-start="{" data-end="}">
<div class="line"><a id="l00711" name="l00711"></a><span class="lineno"><a class="line" href="assemble_8h.html#a36c8ab963b3acab70a2862e8252c996b"> 711</a></span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#a36c8ab963b3acab70a2862e8252c996b">assemblefile</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *file, <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass)</div>
<div class="line"><a id="l00712" name="l00712"></a><span class="lineno"> 712</span>{</div>
<div class="line"><a id="l00713" name="l00713"></a><span class="lineno"> 713</span> <span class="keywordtype">int</span> lineno = 1;</div>
<div class="line"><a id="l00714" name="l00714"></a><span class="lineno"> 714</span> <span class="keywordtype">char</span> *line = NULL;</div>
<div class="line"><a id="l00715" name="l00715"></a><span class="lineno"> 715</span> FILE *fp = NULL;</div>
<div class="line"><a id="l00716" name="l00716"></a><span class="lineno"> 716</span> </div>
<div class="line"><a id="l00717" name="l00717"></a><span class="lineno"> 717</span> <span class="keywordflow">if</span>((fp = fopen(file, <span class="stringliteral">"r"</span>)) == NULL) {</div>
<div class="line"><a id="l00718" name="l00718"></a><span class="lineno"> 718</span> <a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num = errno;</div>
<div class="line"><a id="l00719" name="l00719"></a><span class="lineno"> 719</span> perror(file);</div>
<div class="line"><a id="l00720" name="l00720"></a><span class="lineno"> 720</span> <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a id="l00721" name="l00721"></a><span class="lineno"> 721</span> }</div>
<div class="line"><a id="l00722" name="l00722"></a><span class="lineno"> 722</span> <span class="keywordflow">for</span>(line = <a class="code hl_function" href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a>(<a class="code hl_enumvalue" href="token_8h.html#a6eba7a114c1abce729b4ed765a09c9fea6e325320fe8e40ee5b7b30fa2bf925a4">LINESIZE</a> + 1, <span class="stringliteral">"assemble.line"</span>); fgets(line, <a class="code hl_enumvalue" href="token_8h.html#a6eba7a114c1abce729b4ed765a09c9fea6e325320fe8e40ee5b7b30fa2bf925a4">LINESIZE</a>, fp); lineno++) {</div>
<div class="line"><a id="l00723" name="l00723"></a><span class="lineno"> 723</span> <span class="keywordflow">if</span>((pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa6a7856cca1833641e731676636b193f1">FIRST</a> && <a class="code hl_variable" href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a>.src == <span class="keyword">true</span>) || (pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a> && <a class="code hl_variable" href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a>.asdetail == <span class="keyword">true</span>)) {</div>
<div class="line"><a id="l00724" name="l00724"></a><span class="lineno"> 724</span> <a class="code hl_function" href="assemble_8c.html#aae50ee9ef8d396f5b69da45fae877ff9">printline</a>(stdout, file, lineno, line);</div>
<div class="line"><a id="l00725" name="l00725"></a><span class="lineno"> 725</span> }</div>
<div class="line"><a id="l00726" name="l00726"></a><span class="lineno"> 726</span> <span class="keywordflow">if</span>(<a class="code hl_function" href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a>(line, pass) == <span class="keyword">false</span>) {</div>
<div class="line"><a id="l00727" name="l00727"></a><span class="lineno"> 727</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00728" name="l00728"></a><span class="lineno"> 728</span> }</div>
<div class="line"><a id="l00729" name="l00729"></a><span class="lineno"> 729</span> }</div>
<div class="line"><a id="l00730" name="l00730"></a><span class="lineno"> 730</span> <span class="keywordflow">if</span>(<a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num > 0) {</div>
<div class="line"><a id="l00731" name="l00731"></a><span class="lineno"> 731</span> fprintf(stderr, <span class="stringliteral">"Assemble error - %d: %s\n"</span>, <a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num, <a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->msg);</div>
<div class="line"><a id="l00732" name="l00732"></a><span class="lineno"> 732</span> <a class="code hl_function" href="assemble_8c.html#aae50ee9ef8d396f5b69da45fae877ff9">printline</a>(stderr, file, lineno, line);</div>
<div class="line"><a id="l00733" name="l00733"></a><span class="lineno"> 733</span> }</div>
<div class="line"><a id="l00734" name="l00734"></a><span class="lineno"> 734</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(line);</div>
<div class="line"><a id="l00735" name="l00735"></a><span class="lineno"> 735</span> fclose(fp);</div>
<div class="line"><a id="l00736" name="l00736"></a><span class="lineno"> 736</span> <span class="keywordflow">return</span> (<a class="code hl_variable" href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a>->num == 0) ? true : <span class="keyword">false</span>;</div>
<div class="line"><a id="l00737" name="l00737"></a><span class="lineno"> 737</span>}</div>
</div>
<div class="line"><a id="l00738" name="l00738"></a><span class="lineno"> 738</span> </div>
<div class="foldopen" id="foldopen00739" data-start="{" data-end="}">
<div class="line"><a id="l00739" name="l00739"></a><span class="lineno"><a class="line" href="assemble_8h.html#ae474115c02013d6a814a3c9a734b01a9"> 739</a></span><span class="keywordtype">bool</span> <a class="code hl_function" href="assemble_8c.html#ae474115c02013d6a814a3c9a734b01a9">assemble</a>(<span class="keywordtype">int</span> filec, <span class="keywordtype">char</span> *filev[], <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> adr)</div>
<div class="line"><a id="l00740" name="l00740"></a><span class="lineno"> 740</span>{</div>
<div class="line"><a id="l00741" name="l00741"></a><span class="lineno"> 741</span> <span class="keywordtype">int</span> i;</div>
<div class="line"><a id="l00742" name="l00742"></a><span class="lineno"> 742</span> <a class="code hl_enumeration" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a> pass;</div>
<div class="line"><a id="l00743" name="l00743"></a><span class="lineno"> 743</span> <a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a> bp[filec];</div>
<div class="line"><a id="l00744" name="l00744"></a><span class="lineno"> 744</span> <span class="keywordtype">bool</span> stat = <span class="keyword">false</span>;</div>
<div class="line"><a id="l00745" name="l00745"></a><span class="lineno"> 745</span> </div>
<div class="line"><a id="l00746" name="l00746"></a><span class="lineno"> 746</span> <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a> = <a class="code hl_function" href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a>(<span class="keyword">sizeof</span>(<a class="code hl_struct" href="struct_a_s_p_t_r.html">ASPTR</a>), <span class="stringliteral">"asptr"</span>); <span class="comment">/* アセンブル時のプロパティ用の領域確保 */</span></div>
<div class="line"><a id="l00747" name="l00747"></a><span class="lineno"> 747</span> <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->prog = <a class="code hl_function" href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a>(<a class="code hl_enumvalue" href="token_8h.html#aac8199e822580470cb8af690f73a54b6a67e6ba0721eec2e887d62ad391dbcb85">LABELSIZE</a> + 1, <span class="stringliteral">"asptr.prog"</span>);</div>
<div class="line"><a id="l00748" name="l00748"></a><span class="lineno"> 748</span> <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr = adr;</div>
<div class="line"><a id="l00749" name="l00749"></a><span class="lineno"> 749</span> <span class="comment">/* アセンブル。ラベル表作成のため、2回行う */</span></div>
<div class="line"><a id="l00750" name="l00750"></a><span class="lineno"> 750</span> <span class="keywordflow">for</span>(pass = <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa6a7856cca1833641e731676636b193f1">FIRST</a>; pass <= <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a>; pass++) {</div>
<div class="line"><a id="l00751" name="l00751"></a><span class="lineno"> 751</span> <span class="keywordflow">for</span>(i = 0; i < filec; i++) {</div>
<div class="line"><a id="l00752" name="l00752"></a><span class="lineno"> 752</span> <span class="comment">/* データの格納開始位置 */</span></div>
<div class="line"><a id="l00753" name="l00753"></a><span class="lineno"> 753</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa6a7856cca1833641e731676636b193f1">FIRST</a>) {</div>
<div class="line"><a id="l00754" name="l00754"></a><span class="lineno"> 754</span> bp[i] = <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr;</div>
<div class="line"><a id="l00755" name="l00755"></a><span class="lineno"> 755</span> } <span class="keywordflow">else</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a>) {</div>
<div class="line"><a id="l00756" name="l00756"></a><span class="lineno"> 756</span> <a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->ptr = bp[i];</div>
<div class="line"><a id="l00757" name="l00757"></a><span class="lineno"> 757</span> }</div>
<div class="line"><a id="l00758" name="l00758"></a><span class="lineno"> 758</span> <span class="keywordflow">if</span>(<a class="code hl_variable" href="struct_8h.html#afdbb7e7d9e799a0e0814654774763d18">execmode</a>.trace == <span class="keyword">true</span> || <a class="code hl_variable" href="struct_8h.html#afdbb7e7d9e799a0e0814654774763d18">execmode</a>.dump == <span class="keyword">true</span> ||</div>
<div class="line"><a id="l00759" name="l00759"></a><span class="lineno"> 759</span> <a class="code hl_variable" href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a>.src == <span class="keyword">true</span> || <a class="code hl_variable" href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a>.label == <span class="keyword">true</span> || <a class="code hl_variable" href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a>.asdetail == <span class="keyword">true</span>)</div>
<div class="line"><a id="l00760" name="l00760"></a><span class="lineno"> 760</span> {</div>
<div class="line"><a id="l00761" name="l00761"></a><span class="lineno"> 761</span> fprintf(stdout, <span class="stringliteral">"\nAssemble %s (%d)\n"</span>, filev[i], pass);</div>
<div class="line"><a id="l00762" name="l00762"></a><span class="lineno"> 762</span> }</div>
<div class="line"><a id="l00763" name="l00763"></a><span class="lineno"> 763</span> <span class="comment">/* ファイルをアセンブル */</span></div>
<div class="line"><a id="l00764" name="l00764"></a><span class="lineno"> 764</span> stat = <a class="code hl_function" href="assemble_8c.html#a36c8ab963b3acab70a2862e8252c996b">assemblefile</a>(filev[i], pass);</div>
<div class="line"><a id="l00765" name="l00765"></a><span class="lineno"> 765</span> <span class="keywordflow">if</span>(stat == <span class="keyword">false</span>) {</div>
<div class="line"><a id="l00766" name="l00766"></a><span class="lineno"> 766</span> <span class="keywordflow">goto</span> asfin;</div>
<div class="line"><a id="l00767" name="l00767"></a><span class="lineno"> 767</span> }</div>
<div class="line"><a id="l00768" name="l00768"></a><span class="lineno"> 768</span> }</div>
<div class="line"><a id="l00769" name="l00769"></a><span class="lineno"> 769</span> <span class="keywordflow">if</span>(pass == <a class="code hl_enumvalue" href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa6a7856cca1833641e731676636b193f1">FIRST</a> && <a class="code hl_variable" href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a>.label == <span class="keyword">true</span>) {</div>
<div class="line"><a id="l00770" name="l00770"></a><span class="lineno"> 770</span> fprintf(stdout, <span class="stringliteral">"\nLabel::::\n"</span>);</div>
<div class="line"><a id="l00771" name="l00771"></a><span class="lineno"> 771</span> <a class="code hl_function" href="assemble_8h.html#a3195492a17ee089ac687975cf79bde8b">printlabel</a>();</div>
<div class="line"><a id="l00772" name="l00772"></a><span class="lineno"> 772</span> <span class="keywordflow">if</span>(<a class="code hl_variable" href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a>.onlylabel == <span class="keyword">true</span>) {</div>
<div class="line"><a id="l00773" name="l00773"></a><span class="lineno"> 773</span> <span class="keywordflow">break</span>;</div>
<div class="line"><a id="l00774" name="l00774"></a><span class="lineno"> 774</span> }</div>
<div class="line"><a id="l00775" name="l00775"></a><span class="lineno"> 775</span> }</div>
<div class="line"><a id="l00776" name="l00776"></a><span class="lineno"> 776</span> }</div>
<div class="line"><a id="l00777" name="l00777"></a><span class="lineno"> 777</span>asfin:</div>
<div class="line"><a id="l00778" name="l00778"></a><span class="lineno"> 778</span> <a class="code hl_function" href="assemble_8h.html#aee91ab081a311d3a398a846e5014102a">freelabel</a>(); <span class="comment">/* ラベルハッシュ表を解放 */</span></div>
<div class="line"><a id="l00779" name="l00779"></a><span class="lineno"> 779</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>->prog); <span class="comment">/* アセンブル時のプロパティを解放 */</span></div>
<div class="line"><a id="l00780" name="l00780"></a><span class="lineno"> 780</span> <a class="code hl_define" href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a>(<a class="code hl_variable" href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a>);</div>
<div class="line"><a id="l00781" name="l00781"></a><span class="lineno"> 781</span> <span class="keywordflow">return</span> stat;</div>
<div class="line"><a id="l00782" name="l00782"></a><span class="lineno"> 782</span>}</div>
</div>
<div class="line"><a id="l00783" name="l00783"></a><span class="lineno"> 783</span> </div>
<div class="line"><a id="l00784" name="l00784"></a><span class="lineno"> 784</span><span class="comment">/* assemble.hで定義された関数群 */</span></div>
<div class="foldopen" id="foldopen00785" data-start="{" data-end="}">
<div class="line"><a id="l00785" name="l00785"></a><span class="lineno"><a class="line" href="assemble_8h.html#abeec7aeba384ae8621167386e0f3e2e9"> 785</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#abeec7aeba384ae8621167386e0f3e2e9">addcerrlist_assemble</a>()</div>
<div class="line"><a id="l00786" name="l00786"></a><span class="lineno"> 786</span>{</div>
<div class="line"><a id="l00787" name="l00787"></a><span class="lineno"> 787</span> <a class="code hl_function" href="token_8h.html#a5e1c73d564047b8ead994a3b1d9daa11">addcerrlist_tok</a>();</div>
<div class="line"><a id="l00788" name="l00788"></a><span class="lineno"> 788</span> <a class="code hl_function" href="word_8h.html#a77bd186bba51763cd956c4a25b6941d8">addcerrlist_word</a>();</div>
<div class="line"><a id="l00789" name="l00789"></a><span class="lineno"> 789</span> <a class="code hl_function" href="assemble_8h.html#a10a81977ba4af7876ecbed2ca0167b5b">addcerrlist_label</a>();</div>
<div class="line"><a id="l00790" name="l00790"></a><span class="lineno"> 790</span> <a class="code hl_function" href="cerr_8h.html#a4d0e0d9cf66be33e95ca2c73d2ea2c63">addcerrlist</a>(<a class="code hl_define" href="cmem_8h.html#abd34d9a0fac0c592a7b76395011bb370">ARRAYSIZE</a>(<a class="code hl_variable" href="assemble_8c.html#ada5a49ba9ed3d14906ec815fd5ed9922">cerr_assemble</a>), <a class="code hl_variable" href="assemble_8c.html#ada5a49ba9ed3d14906ec815fd5ed9922">cerr_assemble</a>);</div>
<div class="line"><a id="l00791" name="l00791"></a><span class="lineno"> 791</span>}</div>
</div>
<div class="line"><a id="l00792" name="l00792"></a><span class="lineno"> 792</span> </div>
<div class="foldopen" id="foldopen00793" data-start="{" data-end="}">
<div class="line"><a id="l00793" name="l00793"></a><span class="lineno"><a class="line" href="assemble_8h.html#a84a92a5aed87fed78d98a41a4805a26b"> 793</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="assemble_8c.html#a84a92a5aed87fed78d98a41a4805a26b">outassemble</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *file)</div>
<div class="line"><a id="l00794" name="l00794"></a><span class="lineno"> 794</span>{</div>
<div class="line"><a id="l00795" name="l00795"></a><span class="lineno"> 795</span> FILE *fp = NULL;</div>
<div class="line"><a id="l00796" name="l00796"></a><span class="lineno"> 796</span> </div>
<div class="line"><a id="l00797" name="l00797"></a><span class="lineno"> 797</span> <span class="keywordflow">if</span>((fp = fopen(file, <span class="stringliteral">"w"</span>)) == NULL) {</div>
<div class="line"><a id="l00798" name="l00798"></a><span class="lineno"> 798</span> perror(file);</div>
<div class="line"><a id="l00799" name="l00799"></a><span class="lineno"> 799</span> exit(1);</div>
<div class="line"><a id="l00800" name="l00800"></a><span class="lineno"> 800</span> }</div>
<div class="line"><a id="l00801" name="l00801"></a><span class="lineno"> 801</span> fwrite(<a class="code hl_variable" href="struct_8h.html#a98d202b8436afcd618aaca20d7748227">sys</a>->memory, <span class="keyword">sizeof</span>(<a class="code hl_typedef" href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a>), <a class="code hl_variable" href="struct_8h.html#a4be4aa2dd7d478878cc9fda6aed8498e">execptr</a>->end, fp);</div>
<div class="line"><a id="l00802" name="l00802"></a><span class="lineno"> 802</span> fclose(fp);</div>
<div class="line"><a id="l00803" name="l00803"></a><span class="lineno"> 803</span>}</div>
</div>
<div class="ttc" id="aassemble_8c_html_a0a205123d42143aeca611a0486b4c931"><div class="ttname"><a href="assemble_8c.html#a0a205123d42143aeca611a0486b4c931">getadr</a></div><div class="ttdeci">WORD getadr(const char *prog, const char *str, PASS pass)</div><div class="ttdoc">アドレスを返す</div><div class="ttdef"><b>Definition</b> <a href="#l00301">assemble.c:301</a></div></div>
<div class="ttc" id="aassemble_8c_html_a0c64bca33cb0d09cd9fba1db19dbaf1a"><div class="ttname"><a href="assemble_8c.html#a0c64bca33cb0d09cd9fba1db19dbaf1a">assemble_start</a></div><div class="ttdeci">void assemble_start(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">アセンブラ命令STARTの処理</div><div class="ttdef"><b>Definition</b> <a href="#l00419">assemble.c:419</a></div></div>
<div class="ttc" id="aassemble_8c_html_a1e3f5e6b2f3c6b80148673ca0db33fdf"><div class="ttname"><a href="assemble_8c.html#a1e3f5e6b2f3c6b80148673ca0db33fdf">assemble_rpop</a></div><div class="ttdeci">void assemble_rpop(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">マクロ命令 "RPOP" をメモリに書き込む</div><div class="ttdef"><b>Definition</b> <a href="#l00540">assemble.c:540</a></div></div>
<div class="ttc" id="aassemble_8c_html_a1ff9d415430cab87480fd25355fab500"><div class="ttname"><a href="assemble_8c.html#a1ff9d415430cab87480fd25355fab500">assemble_comet2cmd</a></div><div class="ttdeci">bool assemble_comet2cmd(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">システムCOMET IIの命令をアセンブルする</div><div class="ttdef"><b>Definition</b> <a href="#l00569">assemble.c:569</a></div></div>
<div class="ttc" id="aassemble_8c_html_a207dbf0d6c2c6350e652c3415be3db23"><div class="ttname"><a href="assemble_8c.html#a207dbf0d6c2c6350e652c3415be3db23">assembletok</a></div><div class="ttdeci">bool assembletok(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">トークンをアセンブルする</div><div class="ttdef"><b>Definition</b> <a href="#l00659">assemble.c:659</a></div></div>
<div class="ttc" id="aassemble_8c_html_a36c8ab963b3acab70a2862e8252c996b"><div class="ttname"><a href="assemble_8c.html#a36c8ab963b3acab70a2862e8252c996b">assemblefile</a></div><div class="ttdeci">bool assemblefile(const char *file, PASS pass)</div><div class="ttdoc">指定された名前のファイルをアセンブル</div><div class="ttdef"><b>Definition</b> <a href="#l00711">assemble.c:711</a></div></div>
<div class="ttc" id="aassemble_8c_html_a4653a2ca1a9d7a3547be4ad1e0f6924d"><div class="ttname"><a href="assemble_8c.html#a4653a2ca1a9d7a3547be4ad1e0f6924d">assemble_ds</a></div><div class="ttdeci">void assemble_ds(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">アセンブラ命令DSの処理</div><div class="ttdef"><b>Definition</b> <a href="#l00454">assemble.c:454</a></div></div>
<div class="ttc" id="aassemble_8c_html_a46a04f1f6f4148513bd878663cd77eb8"><div class="ttname"><a href="assemble_8c.html#a46a04f1f6f4148513bd878663cd77eb8">assemble_dc</a></div><div class="ttdeci">void assemble_dc(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">アセンブラ命令DCの処理</div><div class="ttdef"><b>Definition</b> <a href="#l00468">assemble.c:468</a></div></div>
<div class="ttc" id="aassemble_8c_html_a83ef1d1240a865d959f23b03e220def6"><div class="ttname"><a href="assemble_8c.html#a83ef1d1240a865d959f23b03e220def6">assemble_out</a></div><div class="ttdeci">void assemble_out(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">マクロ命令 "OUT OBUF,LEN" をアセンブル</div><div class="ttdef"><b>Definition</b> <a href="#l00502">assemble.c:502</a></div></div>
<div class="ttc" id="aassemble_8c_html_a84a92a5aed87fed78d98a41a4805a26b"><div class="ttname"><a href="assemble_8c.html#a84a92a5aed87fed78d98a41a4805a26b">outassemble</a></div><div class="ttdeci">void outassemble(const char *file)</div><div class="ttdoc">ファイルにアセンブル結果を書き込む</div><div class="ttdef"><b>Definition</b> <a href="#l00793">assemble.c:793</a></div></div>
<div class="ttc" id="aassemble_8c_html_aa716f1c4b620d19dd50c3c1ee40ec770"><div class="ttname"><a href="assemble_8c.html#aa716f1c4b620d19dd50c3c1ee40ec770">getliteral</a></div><div class="ttdeci">WORD getliteral(const char *str, PASS pass)</div><div class="ttdoc">リテラルを返す</div><div class="ttdef"><b>Definition</b> <a href="#l00342">assemble.c:342</a></div></div>
<div class="ttc" id="aassemble_8c_html_aae434272813db1ad8795273374e05772"><div class="ttname"><a href="assemble_8c.html#aae434272813db1ad8795273374e05772">grword</a></div><div class="ttdeci">WORD grword(const char *str, bool is_x)</div><div class="ttdoc">汎用レジスタを表す文字列からレジスタ番号を返す</div><div class="ttdef"><b>Definition</b> <a href="#l00322">assemble.c:322</a></div></div>
<div class="ttc" id="aassemble_8c_html_aae50ee9ef8d396f5b69da45fae877ff9"><div class="ttname"><a href="assemble_8c.html#aae50ee9ef8d396f5b69da45fae877ff9">printline</a></div><div class="ttdeci">void printline(FILE *stream, const char *filename, int lineno, char *line)</div><div class="ttdoc">ファイルストリームの現在行を番号付きで表示する</div><div class="ttdef"><b>Definition</b> <a href="#l00296">assemble.c:296</a></div></div>
<div class="ttc" id="aassemble_8c_html_ab584cfb355d7e4000c4c6eeefa07fe64"><div class="ttname"><a href="assemble_8c.html#ab584cfb355d7e4000c4c6eeefa07fe64">assembleline</a></div><div class="ttdeci">bool assembleline(const char *line, PASS pass)</div><div class="ttdoc">1行をアセンブルする</div><div class="ttdef"><b>Definition</b> <a href="#l00677">assemble.c:677</a></div></div>
<div class="ttc" id="aassemble_8c_html_abeec7aeba384ae8621167386e0f3e2e9"><div class="ttname"><a href="assemble_8c.html#abeec7aeba384ae8621167386e0f3e2e9">addcerrlist_assemble</a></div><div class="ttdeci">void addcerrlist_assemble()</div><div class="ttdoc">アセンブルエラーをエラーリストに追加する</div><div class="ttdef"><b>Definition</b> <a href="#l00785">assemble.c:785</a></div></div>
<div class="ttc" id="aassemble_8c_html_acac768f18660c818a242788ce67a0a6e"><div class="ttname"><a href="assemble_8c.html#acac768f18660c818a242788ce67a0a6e">ascmd</a></div><div class="ttdeci">static CMD ascmd[]</div><div class="ttdoc">アセンブラ命令</div><div class="ttdef"><b>Definition</b> <a href="#l00273">assemble.c:273</a></div></div>
<div class="ttc" id="aassemble_8c_html_acd9a0f035261dfc22abda9cf12f21c31"><div class="ttname"><a href="assemble_8c.html#acd9a0f035261dfc22abda9cf12f21c31">casl2cmd</a></div><div class="ttdeci">bool casl2cmd(CMD *cmdtbl, const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">アセンブラ言語CASL IIの命令を処理する。</div><div class="ttdef"><b>Definition</b> <a href="#l00555">assemble.c:555</a></div></div>
<div class="ttc" id="aassemble_8c_html_ad28aa41ef02ecc6614acfb153801b9be"><div class="ttname"><a href="assemble_8c.html#ad28aa41ef02ecc6614acfb153801b9be">writedc</a></div><div class="ttdeci">void writedc(const char *str, PASS pass)</div><div class="ttdoc">DC命令を書込</div><div class="ttdef"><b>Definition</b> <a href="#l00398">assemble.c:398</a></div></div>
<div class="ttc" id="aassemble_8c_html_ad9b27bc05700d0d56189aa78b62e7afd"><div class="ttname"><a href="assemble_8c.html#ad9b27bc05700d0d56189aa78b62e7afd">assemble_end</a></div><div class="ttdeci">void assemble_end(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">アセンブラ命令ENDの処理</div><div class="ttdef"><b>Definition</b> <a href="#l00437">assemble.c:437</a></div></div>
<div class="ttc" id="aassemble_8c_html_ada5a49ba9ed3d14906ec815fd5ed9922"><div class="ttname"><a href="assemble_8c.html#ada5a49ba9ed3d14906ec815fd5ed9922">cerr_assemble</a></div><div class="ttdeci">static CERR cerr_assemble[]</div><div class="ttdoc">アセンブルのエラー</div><div class="ttdef"><b>Definition</b> <a href="#l00254">assemble.c:254</a></div></div>
<div class="ttc" id="aassemble_8c_html_adccc7654cba3b0ad2c68b1b70c24db15"><div class="ttname"><a href="assemble_8c.html#adccc7654cba3b0ad2c68b1b70c24db15">macrocmd</a></div><div class="ttdeci">static CMD macrocmd[]</div><div class="ttdoc">マクロ命令</div><div class="ttdef"><b>Definition</b> <a href="#l00284">assemble.c:284</a></div></div>
<div class="ttc" id="aassemble_8c_html_adcfe77609107385a9fe5a2633e7ef497"><div class="ttname"><a href="assemble_8c.html#adcfe77609107385a9fe5a2633e7ef497">assemble_in</a></div><div class="ttdeci">void assemble_in(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">マクロ命令 "IN IBUF,LEN" をアセンブル</div><div class="ttdef"><b>Definition</b> <a href="#l00482">assemble.c:482</a></div></div>
<div class="ttc" id="aassemble_8c_html_ae361104cdf7e4e9509a009b328487fc1"><div class="ttname"><a href="assemble_8c.html#ae361104cdf7e4e9509a009b328487fc1">writememory</a></div><div class="ttdeci">void writememory(WORD word, WORD adr, PASS pass)</div><div class="ttdoc">アドレス値をメモリに書き込む</div><div class="ttdef"><b>Definition</b> <a href="#l00356">assemble.c:356</a></div></div>
<div class="ttc" id="aassemble_8c_html_ae474115c02013d6a814a3c9a734b01a9"><div class="ttname"><a href="assemble_8c.html#ae474115c02013d6a814a3c9a734b01a9">assemble</a></div><div class="ttdeci">bool assemble(int filec, char *filev[], WORD adr)</div><div class="ttdoc">指定された1つまたは複数のファイルを2回アセンブル</div><div class="ttdef"><b>Definition</b> <a href="#l00739">assemble.c:739</a></div></div>
<div class="ttc" id="aassemble_8c_html_aea855d2b0f43de522375a5f7657b2046"><div class="ttname"><a href="assemble_8c.html#aea855d2b0f43de522375a5f7657b2046">assemble_rpush</a></div><div class="ttdeci">void assemble_rpush(const CMDLINE *cmdl, PASS pass)</div><div class="ttdoc">マクロ命令 "RPUSH" をメモリに書き込む</div><div class="ttdef"><b>Definition</b> <a href="#l00525">assemble.c:525</a></div></div>
<div class="ttc" id="aassemble_8c_html_aec8fb55fddc1268fcc29b23372d2041d"><div class="ttname"><a href="assemble_8c.html#aec8fb55fddc1268fcc29b23372d2041d">writestr</a></div><div class="ttdeci">void writestr(const char *str, bool literal, PASS pass)</div><div class="ttdoc">文字をメモリに書き込む</div><div class="ttdef"><b>Definition</b> <a href="#l00372">assemble.c:372</a></div></div>
<div class="ttc" id="aassemble_8h_html"><div class="ttname"><a href="assemble_8h.html">assemble.h</a></div></div>
<div class="ttc" id="aassemble_8h_html_a0a1d55e200c1b9a323e22e634842de6f"><div class="ttname"><a href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6f">PASS</a></div><div class="ttdeci">PASS</div><div class="ttdoc">アセンブラが、1回目か2回目かを表す数値</div><div class="ttdef"><b>Definition</b> <a href="assemble_8h_source.html#l00067">assemble.h:67</a></div></div>
<div class="ttc" id="aassemble_8h_html_a0a1d55e200c1b9a323e22e634842de6fa6a7856cca1833641e731676636b193f1"><div class="ttname"><a href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa6a7856cca1833641e731676636b193f1">FIRST</a></div><div class="ttdeci">@ FIRST</div><div class="ttdef"><b>Definition</b> <a href="assemble_8h_source.html#l00068">assemble.h:68</a></div></div>
<div class="ttc" id="aassemble_8h_html_a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3"><div class="ttname"><a href="assemble_8h.html#a0a1d55e200c1b9a323e22e634842de6fa7cb36ff0a80f238d5b987d9250d369e3">SECOND</a></div><div class="ttdeci">@ SECOND</div><div class="ttdef"><b>Definition</b> <a href="assemble_8h_source.html#l00069">assemble.h:69</a></div></div>
<div class="ttc" id="aassemble_8h_html_a10a81977ba4af7876ecbed2ca0167b5b"><div class="ttname"><a href="assemble_8h.html#a10a81977ba4af7876ecbed2ca0167b5b">addcerrlist_label</a></div><div class="ttdeci">void addcerrlist_label()</div><div class="ttdoc">ラベルのエラーをエラーリストに追加する</div><div class="ttdef"><b>Definition</b> <a href="label_8c_source.html#l00084">label.c:84</a></div></div>
<div class="ttc" id="aassemble_8h_html_a13845f111eda3f65e76716c9aca802aa"><div class="ttname"><a href="assemble_8h.html#a13845f111eda3f65e76716c9aca802aa">addlabel</a></div><div class="ttdeci">bool addlabel(const char *prog, const char *label, WORD adr)</div><div class="ttdoc">プログラム名、ラベル、アドレスをラベル表に追加する</div><div class="ttdef"><b>Definition</b> <a href="label_8c_source.html#l00106">label.c:106</a></div></div>
<div class="ttc" id="aassemble_8h_html_a3195492a17ee089ac687975cf79bde8b"><div class="ttname"><a href="assemble_8h.html#a3195492a17ee089ac687975cf79bde8b">printlabel</a></div><div class="ttdeci">void printlabel()</div><div class="ttdoc">ラベル表を表示する</div><div class="ttdef"><b>Definition</b> <a href="label_8c_source.html#l00135">label.c:135</a></div></div>
<div class="ttc" id="aassemble_8h_html_a553af9531f70e1be37646213319427eb"><div class="ttname"><a href="assemble_8h.html#a553af9531f70e1be37646213319427eb">asmode</a></div><div class="ttdeci">ASMODE asmode</div><div class="ttdoc">アセンブルモード: src, label, onlylabel, asdetail, onlyassemble</div><div class="ttdef"><b>Definition</b> <a href="#l00294">assemble.c:294</a></div></div>
<div class="ttc" id="aassemble_8h_html_a671dfafc32a3b439790e2e0ac1de9069"><div class="ttname"><a href="assemble_8h.html#a671dfafc32a3b439790e2e0ac1de9069">asptr</a></div><div class="ttdeci">ASPTR * asptr</div><div class="ttdoc">アセンブル時の、現在およびリテラルのアドレスとプログラム入口名: ptr, lptr, prog</div><div class="ttdef"><b>Definition</b> <a href="#l00292">assemble.c:292</a></div></div>
<div class="ttc" id="aassemble_8h_html_a8b2ae1a0bae14a00c2ca265c79d021cc"><div class="ttname"><a href="assemble_8h.html#a8b2ae1a0bae14a00c2ca265c79d021cc">getlabel</a></div><div class="ttdeci">WORD getlabel(const char *prog, const char *label)</div><div class="ttdoc">プログラム名とラベルに対応するアドレスをラベル表から検索する</div><div class="ttdef"><b>Definition</b> <a href="label_8c_source.html#l00089">label.c:89</a></div></div>
<div class="ttc" id="aassemble_8h_html_aee91ab081a311d3a398a846e5014102a"><div class="ttname"><a href="assemble_8h.html#aee91ab081a311d3a398a846e5014102a">freelabel</a></div><div class="ttdeci">void freelabel()</div><div class="ttdoc">ラベル表を解放する</div><div class="ttdef"><b>Definition</b> <a href="label_8c_source.html#l00158">label.c:158</a></div></div>
<div class="ttc" id="acerr_8h_html_a253bd93a3781dbfd5cbff9d5b7097adc"><div class="ttname"><a href="cerr_8h.html#a253bd93a3781dbfd5cbff9d5b7097adc">cerr</a></div><div class="ttdeci">CERR * cerr</div><div class="ttdoc">現在のエラー</div><div class="ttdef"><b>Definition</b> <a href="cerr_8c_source.html#l00010">cerr.c:10</a></div></div>
<div class="ttc" id="acerr_8h_html_a3636a4b86cca574b3786f76f5231ffe5"><div class="ttname"><a href="cerr_8h.html#a3636a4b86cca574b3786f76f5231ffe5">CERR</a></div><div class="ttdeci">struct _CERR CERR</div><div class="ttdoc">エラーを表すデータ型</div></div>
<div class="ttc" id="acerr_8h_html_a4d0e0d9cf66be33e95ca2c73d2ea2c63"><div class="ttname"><a href="cerr_8h.html#a4d0e0d9cf66be33e95ca2c73d2ea2c63">addcerrlist</a></div><div class="ttdeci">void addcerrlist(int cerrc, CERR cerrv[])</div><div class="ttdoc">エラーリストを作成・追加する</div><div class="ttdef"><b>Definition</b> <a href="cerr_8c_source.html#l00014">cerr.c:14</a></div></div>
<div class="ttc" id="acerr_8h_html_ac878972bcd42a554769270aadf8c6bbe"><div class="ttname"><a href="cerr_8h.html#ac878972bcd42a554769270aadf8c6bbe">setcerr</a></div><div class="ttdeci">void setcerr(int num, const char *str)</div><div class="ttdoc">現在のエラーを設定する</div><div class="ttdef"><b>Definition</b> <a href="cerr_8c_source.html#l00046">cerr.c:46</a></div></div>
<div class="ttc" id="acmem_8h_html_a105949c59c998e38aad80266afac92bf"><div class="ttname"><a href="cmem_8h.html#a105949c59c998e38aad80266afac92bf">FREE</a></div><div class="ttdeci">#define FREE(ptr)</div><div class="ttdoc">メモリを解放するマクロ</div><div class="ttdef"><b>Definition</b> <a href="cmem_8h_source.html#l00022">cmem.h:22</a></div></div>
<div class="ttc" id="acmem_8h_html_ab59996fd09e57355900e5d0f6a772297"><div class="ttname"><a href="cmem_8h.html#ab59996fd09e57355900e5d0f6a772297">malloc_chk</a></div><div class="ttdeci">void * malloc_chk(size_t size, const char *tag)</div><div class="ttdoc">mallocを実行し、0で初期化する</div><div class="ttdef"><b>Definition</b> <a href="cmem_8c_source.html#l00023">cmem.c:23</a></div></div>
<div class="ttc" id="acmem_8h_html_abd34d9a0fac0c592a7b76395011bb370"><div class="ttname"><a href="cmem_8h.html#abd34d9a0fac0c592a7b76395011bb370">ARRAYSIZE</a></div><div class="ttdeci">#define ARRAYSIZE(array)</div><div class="ttdoc">配列のサイズを返すマクロ</div><div class="ttdef"><b>Definition</b> <a href="cmem_8h_source.html#l00015">cmem.h:15</a></div></div>
<div class="ttc" id="astruct_8h_html_a3163ec8332252a40b7609df6cc48a6e6a8fa6b56ad50d439c542216068ede577d"><div class="ttname"><a href="struct_8h.html#a3163ec8332252a40b7609df6cc48a6e6a8fa6b56ad50d439c542216068ede577d">GRSIZE</a></div><div class="ttdeci">@ GRSIZE</div><div class="ttdef"><b>Definition</b> <a href="struct_8h_source.html#l00019">struct.h:19</a></div></div>
<div class="ttc" id="astruct_8h_html_a4be4aa2dd7d478878cc9fda6aed8498e"><div class="ttname"><a href="struct_8h.html#a4be4aa2dd7d478878cc9fda6aed8498e">execptr</a></div><div class="ttdeci">EXECPTR * execptr</div><div class="ttdef"><b>Definition</b> <a href="struct_8c_source.html#l00013">struct.c:13</a></div></div>
<div class="ttc" id="astruct_8h_html_a8772ddb837dae62899db0754b7606766a20858f2dbe9ee37ca9c39a99e11bfaea"><div class="ttname"><a href="struct_8h.html#a8772ddb837dae62899db0754b7606766a20858f2dbe9ee37ca9c39a99e11bfaea">R_</a></div><div class="ttdeci">@ R_</div><div class="ttdef"><b>Definition</b> <a href="struct_8h_source.html#l00097">struct.h:97</a></div></div>
<div class="ttc" id="astruct_8h_html_a8772ddb837dae62899db0754b7606766a53dcd004ffb58d413bd033976c4df75d"><div class="ttname"><a href="struct_8h.html#a8772ddb837dae62899db0754b7606766a53dcd004ffb58d413bd033976c4df75d">R_ADR_X</a></div><div class="ttdeci">@ R_ADR_X</div><div class="ttdef"><b>Definition</b> <a href="struct_8h_source.html#l00080">struct.h:80</a></div></div>
<div class="ttc" id="astruct_8h_html_a8772ddb837dae62899db0754b7606766aa563615d1f9228e498ba281495479270"><div class="ttname"><a href="struct_8h.html#a8772ddb837dae62899db0754b7606766aa563615d1f9228e498ba281495479270">ADR_X</a></div><div class="ttdeci">@ ADR_X</div><div class="ttdef"><b>Definition</b> <a href="struct_8h_source.html#l00092">struct.h:92</a></div></div>
<div class="ttc" id="astruct_8h_html_a8772ddb837dae62899db0754b7606766ac157bdf0b85a40d2619cbc8bc1ae5fe2"><div class="ttname"><a href="struct_8h.html#a8772ddb837dae62899db0754b7606766ac157bdf0b85a40d2619cbc8bc1ae5fe2">NONE</a></div><div class="ttdeci">@ NONE</div><div class="ttdef"><b>Definition</b> <a href="struct_8h_source.html#l00101">struct.h:101</a></div></div>
<div class="ttc" id="astruct_8h_html_a8772ddb837dae62899db0754b7606766ac82f34e8304fe6bd020a6123a6692349"><div class="ttname"><a href="struct_8h.html#a8772ddb837dae62899db0754b7606766ac82f34e8304fe6bd020a6123a6692349">R1_R2</a></div><div class="ttdeci">@ R1_R2</div><div class="ttdef"><b>Definition</b> <a href="struct_8h_source.html#l00086">struct.h:86</a></div></div>
<div class="ttc" id="astruct_8h_html_a98d202b8436afcd618aaca20d7748227"><div class="ttname"><a href="struct_8h.html#a98d202b8436afcd618aaca20d7748227">sys</a></div><div class="ttdeci">SYSTEM * sys</div><div class="ttdoc">COMET IIの仮想実行マシンシステム</div><div class="ttdef"><b>Definition</b> <a href="struct_8c_source.html#l00008">struct.c:8</a></div></div>
<div class="ttc" id="astruct_8h_html_ae5076231c2c9f5011a92b4901e881695"><div class="ttname"><a href="struct_8h.html#ae5076231c2c9f5011a92b4901e881695">getcmdcode</a></div><div class="ttdeci">WORD getcmdcode(const char *cmd, CMDTYPE type)</div><div class="ttdef"><b>Definition</b> <a href="struct_8c_source.html#l00164">struct.c:164</a></div></div>
<div class="ttc" id="astruct_8h_html_afdbb7e7d9e799a0e0814654774763d18"><div class="ttname"><a href="struct_8h.html#afdbb7e7d9e799a0e0814654774763d18">execmode</a></div><div class="ttdeci">EXECMODE execmode</div><div class="ttdoc">実行モード: trace, logical, dump, reverse, monitor, step</div><div class="ttdef"><b>Definition</b> <a href="exec_8c_source.html#l00090">exec.c:90</a></div></div>
<div class="ttc" id="astruct_a_s_m_o_d_e_html"><div class="ttname"><a href="struct_a_s_m_o_d_e.html">ASMODE</a></div><div class="ttdoc">アセンブルモードを表すデータ型</div><div class="ttdef"><b>Definition</b> <a href="assemble_8h_source.html#l00013">assemble.h:13</a></div></div>
<div class="ttc" id="astruct_a_s_p_t_r_html"><div class="ttname"><a href="struct_a_s_p_t_r.html">ASPTR</a></div><div class="ttdoc">アセンブル時の現在およびリテラルのアドレスとプログラム入口名を表すデータ型</div><div class="ttdef"><b>Definition</b> <a href="assemble_8h_source.html#l00029">assemble.h:29</a></div></div>
<div class="ttc" id="astruct_c_m_d_html"><div class="ttname"><a href="struct_c_m_d.html">CMD</a></div><div class="ttdef"><b>Definition</b> <a href="struct_8h_source.html#l00107">struct.h:107</a></div></div>
<div class="ttc" id="astruct_c_m_d_html_a34e876a2e2217b983a6bb7aa0c09c1b1"><div class="ttname"><a href="struct_c_m_d.html#a34e876a2e2217b983a6bb7aa0c09c1b1">CMD::ptr</a></div><div class="ttdeci">void * ptr</div><div class="ttdef"><b>Definition</b> <a href="struct_8h_source.html#l00109">struct.h:109</a></div></div>
<div class="ttc" id="astruct_c_m_d_html_aee71a54848ea8b49360a02a20050670e"><div class="ttname"><a href="struct_c_m_d.html#aee71a54848ea8b49360a02a20050670e">CMD::name</a></div><div class="ttdeci">char * name</div><div class="ttdef"><b>Definition</b> <a href="struct_8h_source.html#l00108">struct.h:108</a></div></div>
<div class="ttc" id="astruct_c_m_d_l_i_n_e_html"><div class="ttname"><a href="struct_c_m_d_l_i_n_e.html">CMDLINE</a></div><div class="ttdoc">命令行を表すデータ型</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00041">token.h:41</a></div></div>
<div class="ttc" id="astruct_c_m_d_l_i_n_e_html_a7783943c9e1aaefbf9bf6c63ae6684ba"><div class="ttname"><a href="struct_c_m_d_l_i_n_e.html#a7783943c9e1aaefbf9bf6c63ae6684ba">CMDLINE::opd</a></div><div class="ttdeci">OPD * opd</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00044">token.h:44</a></div></div>
<div class="ttc" id="astruct_c_m_d_l_i_n_e_html_a87d8067e9959877c420bacd8dad907ca"><div class="ttname"><a href="struct_c_m_d_l_i_n_e.html#a87d8067e9959877c420bacd8dad907ca">CMDLINE::cmd</a></div><div class="ttdeci">char * cmd</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00043">token.h:43</a></div></div>
<div class="ttc" id="astruct_c_m_d_l_i_n_e_html_ad3c07addcac5f06f9a7637cb993c6c89"><div class="ttname"><a href="struct_c_m_d_l_i_n_e.html#ad3c07addcac5f06f9a7637cb993c6c89">CMDLINE::label</a></div><div class="ttdeci">char * label</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00042">token.h:42</a></div></div>
<div class="ttc" id="astruct_o_p_d_html_a1b736d979fe0ba67cb92e11ad954ee3d"><div class="ttname"><a href="struct_o_p_d.html#a1b736d979fe0ba67cb92e11ad954ee3d">OPD::opdc</a></div><div class="ttdeci">int opdc</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00034">token.h:34</a></div></div>
<div class="ttc" id="astruct_o_p_d_html_ab8b0d619dcabf00339e15ce27777f3d2"><div class="ttname"><a href="struct_o_p_d.html#ab8b0d619dcabf00339e15ce27777f3d2">OPD::opdv</a></div><div class="ttdeci">char * opdv[OPDSIZE]</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00035">token.h:35</a></div></div>
<div class="ttc" id="atoken_8h_html_a0e427bc88eca4d0d5a3479933c839003"><div class="ttname"><a href="token_8h.html#a0e427bc88eca4d0d5a3479933c839003">linetok</a></div><div class="ttdeci">CMDLINE * linetok(const char *line)</div><div class="ttdoc">行から、ラベル・コマンド・オペランドを取得する</div><div class="ttdef"><b>Definition</b> <a href="token_8c_source.html#l00097">token.c:97</a></div></div>
<div class="ttc" id="atoken_8h_html_a5e1c73d564047b8ead994a3b1d9daa11"><div class="ttname"><a href="token_8h.html#a5e1c73d564047b8ead994a3b1d9daa11">addcerrlist_tok</a></div><div class="ttdeci">void addcerrlist_tok()</div><div class="ttdoc">トークン取得のエラーを追加する</div><div class="ttdef"><b>Definition</b> <a href="token_8c_source.html#l00091">token.c:91</a></div></div>
<div class="ttc" id="atoken_8h_html_a6eba7a114c1abce729b4ed765a09c9fea6e325320fe8e40ee5b7b30fa2bf925a4"><div class="ttname"><a href="token_8h.html#a6eba7a114c1abce729b4ed765a09c9fea6e325320fe8e40ee5b7b30fa2bf925a4">LINESIZE</a></div><div class="ttdeci">@ LINESIZE</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00026">token.h:26</a></div></div>
<div class="ttc" id="atoken_8h_html_aac8199e822580470cb8af690f73a54b6a67e6ba0721eec2e887d62ad391dbcb85"><div class="ttname"><a href="token_8h.html#aac8199e822580470cb8af690f73a54b6a67e6ba0721eec2e887d62ad391dbcb85">LABELSIZE</a></div><div class="ttdeci">@ LABELSIZE</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00018">token.h:18</a></div></div>
<div class="ttc" id="atoken_8h_html_aac8199e822580470cb8af690f73a54b6ade9e86d3712c3a79f3a931c681f041cd"><div class="ttname"><a href="token_8h.html#aac8199e822580470cb8af690f73a54b6ade9e86d3712c3a79f3a931c681f041cd">OPDSIZE</a></div><div class="ttdeci">@ OPDSIZE</div><div class="ttdef"><b>Definition</b> <a href="token_8h_source.html#l00019">token.h:19</a></div></div>
<div class="ttc" id="aword_8h_html_a197942eefa7db30960ae396d68339b97"><div class="ttname"><a href="word_8h.html#a197942eefa7db30960ae396d68339b97">WORD</a></div><div class="ttdeci">unsigned short WORD</div><div class="ttdoc">16ビットの数値を表すデータ型</div><div class="ttdef"><b>Definition</b> <a href="word_8h_source.html#l00009">word.h:9</a></div></div>
<div class="ttc" id="aword_8h_html_a29fa9e71f68a25a914b4d2d1ce0b3043"><div class="ttname"><a href="word_8h.html#a29fa9e71f68a25a914b4d2d1ce0b3043">nh2word</a></div><div class="ttdeci">WORD nh2word(const char *str)</div><div class="ttdoc">10進数または16進数の文字列をWORD値に変換する</div><div class="ttdef"><b>Definition</b> <a href="word_8c_source.html#l00082">word.c:82</a></div></div>
<div class="ttc" id="aword_8h_html_a77bd186bba51763cd956c4a25b6941d8"><div class="ttname"><a href="word_8h.html#a77bd186bba51763cd956c4a25b6941d8">addcerrlist_word</a></div><div class="ttdeci">void addcerrlist_word()</div><div class="ttdoc">wordデータ型についてのエラーをエラーリストに追加する</div><div class="ttdef"><b>Definition</b> <a href="word_8c_source.html#l00077">word.c:77</a></div></div>
<div class="ttc" id="aword_8h_html_af0f7f3f8b1dcb1ae401afef951d2ef19"><div class="ttname"><a href="word_8h.html#af0f7f3f8b1dcb1ae401afef951d2ef19">word2n</a></div><div class="ttdeci">char * word2n(WORD word)</div><div class="ttdoc">WORD値を10進数値を表す文字列に変換する</div><div class="ttdef"><b>Definition</b> <a href="word_8c_source.html#l00102">word.c:102</a></div></div>
</div><!-- fragment --></div><!-- contents -->
<!-- start footer part -->
<hr class="footer"/><address class="footer"><small>
Generated on <span class="timestamp"></span> for YACASL2 by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.14.0
</small></address>
</div><!-- doc-content -->
</body>
</html>