<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>
<html xmlns='http://www.w3.org/1999/xhtml'>
<head>
<title>sys</title>
<meta name='robots' content='noindex,nofollow' />
<meta name='generator' content='GLOBAL-6.6.14' />
<meta http-equiv='Content-Style-Type' content='text/css' />
<link rel='stylesheet' type='text/css' href='../style.css' />
</head>
<body>
<pre>
<span class='curline'><a href='../S/2448.html#L55'>sys</a> 55 include/struct.h extern SYSTEM *sys;</span>
<span class='curline'><a href='../S/2847.html#L352'>sys</a> 352 src/assemble.c if(adr >= sys->memsize) {</span>
<span class='curline'><a href='../S/2847.html#L357'>sys</a> 357 src/assemble.c (sys->memory)[adr] = word;</span>
<span class='curline'><a href='../S/2847.html#L789'>sys</a> 789 src/assemble.c fwrite(sys->memory, sizeof(WORD), execptr->end, fp);</span>
<span class='curline'><a href='../S/2835.html#L236'>sys</a> 236 src/disassemble.c cmd = sys->memory[i] & 0xFF00;</span>
<span class='curline'><a href='../S/2835.html#L239'>sys</a> 239 src/disassemble.c if(sys->memory[i] == 0) {</span>
<span class='curline'><a href='../S/2835.html#L246'>sys</a> 246 src/disassemble.c disassemble_dc(sys->memory[i], i);</span>
<span class='curline'><a href='../S/2835.html#L249'>sys</a> 249 src/disassemble.c disassemble_cmd_adr_x(cmdtype, cmdname, sys->memory[i], sys->memory[i+1], i);</span>
<span class='curline'><a href='../S/2835.html#L252'>sys</a> 252 src/disassemble.c disassemble_cmd_r(cmdtype, cmdname, sys->memory[i], i);</span>
<span class='curline'><a href='../S/2848.html#L9'>sys</a> 9 src/dump.c fprintf(stdout, "#%04X: adr :", sys->cpu->pr);</span>
<span class='curline'><a href='../S/2848.html#L10'>sys</a> 10 src/dump.c if(end > sys->memsize) {</span>
<span class='curline'><a href='../S/2848.html#L11'>sys</a> 11 src/dump.c end = sys->memsize;</span>
<span class='curline'><a href='../S/2848.html#L13'>sys</a> 13 src/dump.c for(int i = 0; i < sys->memsize && i < col; i++) {</span>
<span class='curline'><a href='../S/2848.html#L22'>sys</a> 22 src/dump.c fprintf(stdout, "#%04X: %04X: ", sys->cpu->pr, i);</span>
<span class='curline'><a href='../S/2848.html#L29'>sys</a> 29 src/dump.c fprintf(stdout, "%04X", sys->memory[i]);</span>
<span class='curline'><a href='../S/2848.html#L40'>sys</a> 40 src/dump.c char *sp = word2bit(sys->cpu->sp);</span>
<span class='curline'><a href='../S/2848.html#L41'>sys</a> 41 src/dump.c char *pr = word2bit(sys->cpu->pr);</span>
<span class='curline'><a href='../S/2848.html#L42'>sys</a> 42 src/dump.c char *fr = word2bit(sys->cpu->fr);</span>
<span class='curline'><a href='../S/2848.html#L47'>sys</a> 47 src/dump.c fprintf(stdout, "#%04X: GR%d: ", sys->cpu->pr, i);</span>
<span class='curline'><a href='../S/2848.html#L48'>sys</a> 48 src/dump.c print_dumpword(sys->cpu->gr[i], execmode.logical);</span>
<span class='curline'><a href='../S/2848.html#L51'>sys</a> 51 src/dump.c fprintf(stdout, "#%04X: SP: %6d = #%04X = %s\n", sys->cpu->pr, sys->cpu->sp, sys->cpu->sp, sp);</span>
<span class='curline'><a href='../S/2848.html#L52'>sys</a> 52 src/dump.c fprintf(stdout, "#%04X: PR: %6d = #%04X = %s\n", sys->cpu->pr, sys->cpu->pr, sys->cpu->pr, pr);</span>
<span class='curline'><a href='../S/2848.html#L53'>sys</a> 53 src/dump.c fprintf(stdout, "#%04X: FR (OF SF ZF): %s\n", sys->cpu->pr, fr + L3BIT); /* FRは下位3けたを表示 */</span>
<span class='curline'><a href='../S/2836.html#L103'>sys</a> 103 src/exec.c sys->memory[sys->cpu->gr[1]] = sys->memory[sys->cpu->gr[2]] = 0x0;</span>
<span class='curline'><a href='../S/2836.html#L111'>sys</a> 111 src/exec.c if(sys->cpu->gr[1] + i > execptr->end) {</span>
<span class='curline'><a href='../S/2836.html#L115'>sys</a> 115 src/exec.c sys->memory[sys->cpu->gr[1] + i] = buf[i];</span>
<span class='curline'><a href='../S/2836.html#L117'>sys</a> 117 src/exec.c sys->memory[sys->cpu->gr[2]] = i + 1;</span>
<span class='curline'><a href='../S/2836.html#L126'>sys</a> 126 src/exec.c for(i = 0; i < sys->memory[sys->cpu->gr[2]]; i++) {</span>
<span class='curline'><a href='../S/2836.html#L127'>sys</a> 127 src/exec.c if(sys->cpu->gr[1] + i > execptr->end) {</span>
<span class='curline'><a href='../S/2836.html#L134'>sys</a> 134 src/exec.c if(((w = sys->memory[sys->cpu->gr[1]+i]) >= 0x20 && w <= 0x7E) || /* JIS X 0201ラテン文字 */</span>
<span class='curline'><a href='../S/2836.html#L147'>sys</a> 147 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/2836.html#L150'>sys</a> 150 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/2836.html#L154'>sys</a> 154 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/2836.html#L164'>sys</a> 164 src/exec.c setcerr(205, s = pr2str(sys->cpu->pr)); /* r/r1 in word #1 - not GR */</span>
<span class='curline'><a href='../S/2836.html#L177'>sys</a> 177 src/exec.c setcerr(206, s = pr2str(sys->cpu->pr)); /* r/r1 in word #1 - not GR */</span>
<span class='curline'><a href='../S/2836.html#L190'>sys</a> 190 src/exec.c a += sys->cpu->gr[x];</span>
<span class='curline'><a href='../S/2836.html#L200'>sys</a> 200 src/exec.c if((a = get_adr_x(adr, oprx)) >= sys->memsize) {</span>
<span class='curline'><a href='../S/2836.html#L201'>sys</a> 201 src/exec.c setcerr(207, s = pr2str(sys->cpu->pr + 1)); /* address in word #2 - out of memory */</span>
<span class='curline'><a href='../S/2836.html#L205'>sys</a> 205 src/exec.c return sys->memory[a];</span>
<span class='curline'><a href='../S/2836.html#L216'>sys</a> 216 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L221'>sys</a> 221 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L222'>sys</a> 222 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] = get_val_adr_x(w[1], w[0]));</span>
<span class='curline'><a href='../S/2836.html#L223'>sys</a> 223 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L228'>sys</a> 228 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L229'>sys</a> 229 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] = sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/2836.html#L230'>sys</a> 230 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L235'>sys</a> 235 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L236'>sys</a> 236 src/exec.c sys->memory[get_adr_x(w[1], w[0])] = sys->cpu->gr[get_r_r1(w[0])];</span>
<span class='curline'><a href='../S/2836.html#L237'>sys</a> 237 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L242'>sys</a> 242 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L243'>sys</a> 243 src/exec.c sys->cpu->gr[get_r_r1(w[0])] = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/2836.html#L244'>sys</a> 244 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L251'>sys</a> 251 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/2836.html#L254'>sys</a> 254 src/exec.c if((tmp = (short)(sys->cpu->gr[r]) + (short)val) > 32767 || tmp < -32768) {</span>
<span class='curline'><a href='../S/2836.html#L255'>sys</a> 255 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/2836.html#L258'>sys</a> 258 src/exec.c sys->cpu->gr[r] = (WORD)(tmp & 0xFFFF);</span>
<span class='curline'><a href='../S/2836.html#L259'>sys</a> 259 src/exec.c if((sys->cpu->gr[r] & 0x8000) == 0x8000) {</span>
<span class='curline'><a href='../S/2836.html#L260'>sys</a> 260 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/2836.html#L261'>sys</a> 261 src/exec.c } else if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/2836.html#L262'>sys</a> 262 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/2836.html#L268'>sys</a> 268 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L270'>sys</a> 270 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L275'>sys</a> 275 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L276'>sys</a> 276 src/exec.c adda(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/2836.html#L277'>sys</a> 277 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L282'>sys</a> 282 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L284'>sys</a> 284 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L289'>sys</a> 289 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L290'>sys</a> 290 src/exec.c adda(get_r_r1(w[0]), ~(sys->cpu->gr[get_x_r2(w[0])]) + 1);</span>
<span class='curline'><a href='../S/2836.html#L291'>sys</a> 291 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L299'>sys</a> 299 src/exec.c o = sys->cpu->gr[r];</span>
<span class='curline'><a href='../S/2836.html#L300'>sys</a> 300 src/exec.c sys->cpu->fr = 0; /* flag initialize */</span>
<span class='curline'><a href='../S/2836.html#L305'>sys</a> 305 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/2836.html#L309'>sys</a> 309 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/2836.html#L316'>sys</a> 316 src/exec.c sys->cpu->gr[r] = (WORD)s;</span>
<span class='curline'><a href='../S/2836.html#L319'>sys</a> 319 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/2836.html#L322'>sys</a> 322 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/2836.html#L328'>sys</a> 328 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L330'>sys</a> 330 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L335'>sys</a> 335 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L336'>sys</a> 336 src/exec.c addl_gr(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])], true);</span>
<span class='curline'><a href='../S/2836.html#L337'>sys</a> 337 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L342'>sys</a> 342 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L344'>sys</a> 344 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L349'>sys</a> 349 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L350'>sys</a> 350 src/exec.c addl_gr(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])], false);</span>
<span class='curline'><a href='../S/2836.html#L351'>sys</a> 351 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L356'>sys</a> 356 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L357'>sys</a> 357 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] &= get_val_adr_x(w[1], w[0]));</span>
<span class='curline'><a href='../S/2836.html#L358'>sys</a> 358 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L363'>sys</a> 363 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L364'>sys</a> 364 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] &= sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/2836.html#L365'>sys</a> 365 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L370'>sys</a> 370 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L371'>sys</a> 371 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] |= get_val_adr_x(w[1], w[0]));</span>
<span class='curline'><a href='../S/2836.html#L372'>sys</a> 372 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L377'>sys</a> 377 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L378'>sys</a> 378 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] |= sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/2836.html#L379'>sys</a> 379 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L384'>sys</a> 384 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L385'>sys</a> 385 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] ^= get_val_adr_x(w[1], w[0]));</span>
<span class='curline'><a href='../S/2836.html#L386'>sys</a> 386 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L391'>sys</a> 391 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L392'>sys</a> 392 src/exec.c setfr(sys->cpu->gr[get_r_r1(w[0])] ^= sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/2836.html#L393'>sys</a> 393 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L398'>sys</a> 398 src/exec.c sys->cpu->fr = 0;</span>
<span class='curline'><a href='../S/2836.html#L399'>sys</a> 399 src/exec.c if((short)sys->cpu->gr[r] < (short)val) {</span>
<span class='curline'><a href='../S/2836.html#L400'>sys</a> 400 src/exec.c sys->cpu->fr = SF;</span>
<span class='curline'><a href='../S/2836.html#L401'>sys</a> 401 src/exec.c } else if(sys->cpu->gr[r] == val) {</span>
<span class='curline'><a href='../S/2836.html#L402'>sys</a> 402 src/exec.c sys->cpu->fr = ZF;</span>
<span class='curline'><a href='../S/2836.html#L408'>sys</a> 408 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L410'>sys</a> 410 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L415'>sys</a> 415 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L416'>sys</a> 416 src/exec.c cpa(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/2836.html#L417'>sys</a> 417 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L422'>sys</a> 422 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/2836.html#L423'>sys</a> 423 src/exec.c if(sys->cpu->gr[r] < val) {</span>
<span class='curline'><a href='../S/2836.html#L424'>sys</a> 424 src/exec.c sys->cpu->fr = SF;</span>
<span class='curline'><a href='../S/2836.html#L425'>sys</a> 425 src/exec.c } else if(sys->cpu->gr[r] == val) {</span>
<span class='curline'><a href='../S/2836.html#L426'>sys</a> 426 src/exec.c sys->cpu->fr = ZF;</span>
<span class='curline'><a href='../S/2836.html#L432'>sys</a> 432 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L434'>sys</a> 434 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L439'>sys</a> 439 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L440'>sys</a> 440 src/exec.c cpl(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/2836.html#L441'>sys</a> 441 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L446'>sys</a> 446 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L448'>sys</a> 448 src/exec.c WORD sign = sys->cpu->gr[r] & 0x8000;</span>
<span class='curline'><a href='../S/2836.html#L451'>sys</a> 451 src/exec.c sys->cpu->fr = 0;</span>
<span class='curline'><a href='../S/2836.html#L452'>sys</a> 452 src/exec.c sys->cpu->gr[r] &= 0x7FFF;</span>
<span class='curline'><a href='../S/2836.html#L454'>sys</a> 454 src/exec.c last = sys->cpu->gr[r] & 0x4000;</span>
<span class='curline'><a href='../S/2836.html#L455'>sys</a> 455 src/exec.c sys->cpu->gr[r] <<= 1;</span>
<span class='curline'><a href='../S/2836.html#L457'>sys</a> 457 src/exec.c sys->cpu->gr[r] = sign | (sys->cpu->gr[r] & 0x7FFF);</span>
<span class='curline'><a href='../S/2836.html#L460'>sys</a> 460 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/2836.html#L464'>sys</a> 464 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/2836.html#L467'>sys</a> 467 src/exec.c if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/2836.html#L468'>sys</a> 468 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/2836.html#L470'>sys</a> 470 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L475'>sys</a> 475 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L477'>sys</a> 477 src/exec.c WORD sign = sys->cpu->gr[r] & 0x8000;</span>
<span class='curline'><a href='../S/2836.html#L480'>sys</a> 480 src/exec.c sys->cpu->fr = 0;</span>
<span class='curline'><a href='../S/2836.html#L481'>sys</a> 481 src/exec.c sys->cpu->gr[r] &= 0x7FFF;</span>
<span class='curline'><a href='../S/2836.html#L483'>sys</a> 483 src/exec.c last = sys->cpu->gr[r] & 0x1;</span>
<span class='curline'><a href='../S/2836.html#L484'>sys</a> 484 src/exec.c sys->cpu->gr[r] >>= 1;</span>
<span class='curline'><a href='../S/2836.html#L486'>sys</a> 486 src/exec.c sys->cpu->gr[r] |= 0x4000;</span>
<span class='curline'><a href='../S/2836.html#L489'>sys</a> 489 src/exec.c sys->cpu->gr[r] = sign | sys->cpu->gr[r];</span>
<span class='curline'><a href='../S/2836.html#L492'>sys</a> 492 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/2836.html#L496'>sys</a> 496 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/2836.html#L499'>sys</a> 499 src/exec.c if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/2836.html#L500'>sys</a> 500 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/2836.html#L502'>sys</a> 502 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L507'>sys</a> 507 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L511'>sys</a> 511 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/2836.html#L513'>sys</a> 513 src/exec.c last = sys->cpu->gr[r] & 0x8000;</span>
<span class='curline'><a href='../S/2836.html#L514'>sys</a> 514 src/exec.c sys->cpu->gr[r] <<= 1;</span>
<span class='curline'><a href='../S/2836.html#L518'>sys</a> 518 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/2836.html#L521'>sys</a> 521 src/exec.c if((sys->cpu->gr[r] & 0x8000) > 0x0) {</span>
<span class='curline'><a href='../S/2836.html#L522'>sys</a> 522 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/2836.html#L525'>sys</a> 525 src/exec.c if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/2836.html#L526'>sys</a> 526 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/2836.html#L528'>sys</a> 528 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L533'>sys</a> 533 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L537'>sys</a> 537 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/2836.html#L539'>sys</a> 539 src/exec.c last = sys->cpu->gr[r] & 0x0001;</span>
<span class='curline'><a href='../S/2836.html#L540'>sys</a> 540 src/exec.c sys->cpu->gr[r] >>= 1;</span>
<span class='curline'><a href='../S/2836.html#L544'>sys</a> 544 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/2836.html#L547'>sys</a> 547 src/exec.c if((sys->cpu->gr[r] & 0x8000) > 0x0) {</span>
<span class='curline'><a href='../S/2836.html#L548'>sys</a> 548 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/2836.html#L551'>sys</a> 551 src/exec.c if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/2836.html#L552'>sys</a> 552 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/2836.html#L554'>sys</a> 554 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L559'>sys</a> 559 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L560'>sys</a> 560 src/exec.c if((sys->cpu->fr & (SF | ZF)) == 0) {</span>
<span class='curline'><a href='../S/2836.html#L561'>sys</a> 561 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/2836.html#L563'>sys</a> 563 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L569'>sys</a> 569 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L570'>sys</a> 570 src/exec.c if((sys->cpu->fr & SF) > 0) {</span>
<span class='curline'><a href='../S/2836.html#L571'>sys</a> 571 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/2836.html#L573'>sys</a> 573 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L579'>sys</a> 579 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L580'>sys</a> 580 src/exec.c if((sys->cpu->fr & ZF) == 0) {</span>
<span class='curline'><a href='../S/2836.html#L581'>sys</a> 581 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/2836.html#L583'>sys</a> 583 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L589'>sys</a> 589 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L590'>sys</a> 590 src/exec.c if((sys->cpu->fr & ZF) > 0) {</span>
<span class='curline'><a href='../S/2836.html#L591'>sys</a> 591 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/2836.html#L593'>sys</a> 593 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L599'>sys</a> 599 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L600'>sys</a> 600 src/exec.c if((sys->cpu->fr & OF) > 0) {</span>
<span class='curline'><a href='../S/2836.html#L601'>sys</a> 601 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/2836.html#L603'>sys</a> 603 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L609'>sys</a> 609 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L610'>sys</a> 610 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/2836.html#L615'>sys</a> 615 src/exec.c assert(sys->cpu->sp > execptr->end && sys->cpu->sp <= sys->memsize);</span>
<span class='curline'><a href='../S/2836.html#L616'>sys</a> 616 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L617'>sys</a> 617 src/exec.c sys->memory[--(sys->cpu->sp)] = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/2836.html#L618'>sys</a> 618 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L623'>sys</a> 623 src/exec.c assert(sys->cpu->sp > execptr->end);</span>
<span class='curline'><a href='../S/2836.html#L624'>sys</a> 624 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/2836.html#L627'>sys</a> 627 src/exec.c if(sys->cpu->sp >= sys->memsize) {</span>
<span class='curline'><a href='../S/2836.html#L628'>sys</a> 628 src/exec.c setcerr(203, s = pr2str(sys->cpu->pr)); /* Stack Pointer (SP) - stack underflow */</span>
<span class='curline'><a href='../S/2836.html#L631'>sys</a> 631 src/exec.c sys->cpu->gr[get_r_r1(w[0])] = sys->memory[(sys->cpu->sp)++];</span>
<span class='curline'><a href='../S/2836.html#L632'>sys</a> 632 src/exec.c sys->cpu->pr += 1;</span>
<span class='curline'><a href='../S/2836.html#L638'>sys</a> 638 src/exec.c assert(sys->cpu->sp > execptr->end && sys->cpu->sp <= sys->memsize);</span>
<span class='curline'><a href='../S/2836.html#L639'>sys</a> 639 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L640'>sys</a> 640 src/exec.c sys->memory[--(sys->cpu->sp)] = sys->cpu->pr + 1;</span>
<span class='curline'><a href='../S/2836.html#L641'>sys</a> 641 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/2836.html#L646'>sys</a> 646 src/exec.c assert(sys->cpu->sp <= sys->memsize);</span>
<span class='curline'><a href='../S/2836.html#L647'>sys</a> 647 src/exec.c if(sys->cpu->sp == sys->memsize) {</span>
<span class='curline'><a href='../S/2836.html#L649'>sys</a> 649 src/exec.c } else if(sys->cpu->sp < sys->memsize) {</span>
<span class='curline'><a href='../S/2836.html#L650'>sys</a> 650 src/exec.c sys->cpu->pr = sys->memory[(sys->cpu->sp)++] + 1;</span>
<span class='curline'><a href='../S/2836.html#L656'>sys</a> 656 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/2836.html#L669'>sys</a> 669 src/exec.c sys->cpu->pr += 2;</span>
<span class='curline'><a href='../S/2836.html#L686'>sys</a> 686 src/exec.c for (sys->cpu->pr = execptr->start; ; ) {</span>
<span class='curline'><a href='../S/2836.html#L690'>sys</a> 690 src/exec.c fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);</span>
<span class='curline'><a href='../S/2836.html#L694'>sys</a> 694 src/exec.c fprintf(stdout, "#%04X: Memory::::\n", sys->cpu->pr);</span>
<span class='curline'><a href='../S/2836.html#L701'>sys</a> 701 src/exec.c (execmode.monitor == true && sys->cpu->pr == execptr->start) ||</span>
<span class='curline'><a href='../S/2836.html#L702'>sys</a> 702 src/exec.c execmode.step == true || getbps(sys->cpu->pr) == true)</span>
<span class='curline'><a href='../S/2836.html#L704'>sys</a> 704 src/exec.c if(sys->cpu->pr == execptr->start) {</span>
<span class='curline'><a href='../S/2836.html#L710'>sys</a> 710 src/exec.c if(sys->cpu->pr >= sys->memsize) {</span>
<span class='curline'><a href='../S/2836.html#L711'>sys</a> 711 src/exec.c setcerr(201, s = pr2str(sys->cpu->pr)); /* Program Register (PR) - memory overflow */</span>
<span class='curline'><a href='../S/2836.html#L715'>sys</a> 715 src/exec.c if(sys->cpu->sp <= execptr->end) {</span>
<span class='curline'><a href='../S/2836.html#L716'>sys</a> 716 src/exec.c setcerr(202, s = pr2str(sys->cpu->pr)); /* Stack Pointer (SP) - stack overflow */</span>
<span class='curline'><a href='../S/2836.html#L721'>sys</a> 721 src/exec.c if((cmdptr = getcmdptr(sys->memory[sys->cpu->pr] & 0xFF00)) == NULL) {</span>
<span class='curline'><a href='../S/2836.html#L722'>sys</a> 722 src/exec.c setcerr(204, s = pr2str(sys->cpu->pr)); /* OP in word #1 - not command code */</span>
<span class='curline'><a href='../S/2836.html#L743'>sys</a> 743 src/exec.c } while(clock_end - clock_begin < CLOCKS_PER_SEC / sys->clocks);</span>
<span class='curline'><a href='../S/2852.html#L37'>sys</a> 37 src/load.c end = start + fread(sys->memory + start, sizeof(WORD), sys->memsize - start, fp);</span>
<span class='curline'><a href='../S/2852.html#L38'>sys</a> 38 src/load.c if(end == sys->memsize) {</span>
<span class='curline'><a href='../S/2834.html#L319'>sys</a> 319 src/monitor.c reset(sys->memsize, sys->clocks); /* COMET II仮想マシンのリセット */</span>
<span class='curline'><a href='../S/2834.html#L327'>sys</a> 327 src/monitor.c fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);</span>
<span class='curline'><a href='../S/2834.html#L337'>sys</a> 337 src/monitor.c fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);</span>
<span class='curline'><a href='../S/2853.html#L7'>sys</a> 7 src/struct.c SYSTEM *sys = NULL;</span>
<span class='curline'><a href='../S/2853.html#L255'>sys</a> 255 src/struct.c sys = malloc_chk(sizeof(SYSTEM), "sys");</span>
<span class='curline'><a href='../S/2853.html#L257'>sys</a> 257 src/struct.c sys->memsize = memsize;</span>
<span class='curline'><a href='../S/2853.html#L259'>sys</a> 259 src/struct.c sys->clocks = clocks;</span>
<span class='curline'><a href='../S/2853.html#L261'>sys</a> 261 src/struct.c sys->memory = calloc_chk(sys->memsize, sizeof(WORD), "memory");</span>
<span class='curline'><a href='../S/2853.html#L263'>sys</a> 263 src/struct.c sys->cpu = malloc_chk(sizeof(CPU), "cpu");</span>
<span class='curline'><a href='../S/2853.html#L265'>sys</a> 265 src/struct.c sys->cpu->gr[i] = 0x0;</span>
<span class='curline'><a href='../S/2853.html#L267'>sys</a> 267 src/struct.c sys->cpu->sp = sys->memsize; /* スタックポインタ */</span>
<span class='curline'><a href='../S/2853.html#L268'>sys</a> 268 src/struct.c sys->cpu->pr = 0x0; /* プログラムレジスタ */</span>
<span class='curline'><a href='../S/2853.html#L269'>sys</a> 269 src/struct.c sys->cpu->fr = 0x0; /* フラグレジスタ */</span>
<span class='curline'><a href='../S/2853.html#L281'>sys</a> 281 src/struct.c FREE(sys->memory);</span>
<span class='curline'><a href='../S/2853.html#L282'>sys</a> 282 src/struct.c FREE(sys->cpu);</span>
<span class='curline'><a href='../S/2853.html#L283'>sys</a> 283 src/struct.c FREE(sys);</span>
</pre>
</body>
</html>