<!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/29751.html#L58'>sys</a> 58 include/struct.h extern SYSTEM *sys;</span>
<span class='curline'><a href='../S/30200.html#L361'>sys</a> 361 src/assemble.c if(adr >= sys->memsize) {</span>
<span class='curline'><a href='../S/30200.html#L366'>sys</a> 366 src/assemble.c (sys->memory)[adr] = word;</span>
<span class='curline'><a href='../S/30200.html#L801'>sys</a> 801 src/assemble.c fwrite(sys->memory, sizeof(WORD), execptr->end, fp);</span>
<span class='curline'><a href='../S/30203.html#L11'>sys</a> 11 src/dump.c fprintf(stdout, "#%04X: adr :", sys->cpu->pr);</span>
<span class='curline'><a href='../S/30203.html#L12'>sys</a> 12 src/dump.c if(end > sys->memsize) {</span>
<span class='curline'><a href='../S/30203.html#L13'>sys</a> 13 src/dump.c end = sys->memsize;</span>
<span class='curline'><a href='../S/30203.html#L15'>sys</a> 15 src/dump.c for(int i = 0; i < sys->memsize && i < col; i++) {</span>
<span class='curline'><a href='../S/30203.html#L24'>sys</a> 24 src/dump.c fprintf(stdout, "#%04X: %04X: ", sys->cpu->pr, i);</span>
<span class='curline'><a href='../S/30203.html#L31'>sys</a> 31 src/dump.c fprintf(stdout, "%04X", sys->memory[i]);</span>
<span class='curline'><a href='../S/30203.html#L42'>sys</a> 42 src/dump.c char *sp = word2bit(sys->cpu->sp);</span>
<span class='curline'><a href='../S/30203.html#L43'>sys</a> 43 src/dump.c char *pr = word2bit(sys->cpu->pr);</span>
<span class='curline'><a href='../S/30203.html#L44'>sys</a> 44 src/dump.c char *fr = word2bit(sys->cpu->fr);</span>
<span class='curline'><a href='../S/30203.html#L49'>sys</a> 49 src/dump.c fprintf(stdout, "#%04X: GR%d: ", sys->cpu->pr, i);</span>
<span class='curline'><a href='../S/30203.html#L50'>sys</a> 50 src/dump.c print_dumpword(sys->cpu->gr[i], execmode.logical);</span>
<span class='curline'><a href='../S/30203.html#L53'>sys</a> 53 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/30203.html#L54'>sys</a> 54 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/30203.html#L55'>sys</a> 55 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/30203.html#L64'>sys</a> 64 src/dump.c if(sys->cpu->pr == execptr->start && execmode.reverse == true) { /* reverseオプション指定時、スタート時にプログラム全体を逆アセンブル */</span>
<span class='curline'><a href='../S/30203.html#L65'>sys</a> 65 src/dump.c disassemble_memory(sys->memory, execptr->start, (execptr->end)-1);</span>
<span class='curline'><a href='../S/30203.html#L68'>sys</a> 68 src/dump.c fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);</span>
<span class='curline'><a href='../S/30203.html#L72'>sys</a> 72 src/dump.c fprintf(stdout, "#%04X: Memory::::\n", sys->cpu->pr);</span>
<span class='curline'><a href='../S/30203.html#L76'>sys</a> 76 src/dump.c fprintf(stdout, "#%04X: Disassemble::::", sys->cpu->pr);</span>
<span class='curline'><a href='../S/30203.html#L77'>sys</a> 77 src/dump.c disassemble_memory(sys->memory, sys->cpu->pr, sys->cpu->pr + code2cmdwordlen(sys->memory[sys->cpu->pr] & 0xFF00) - 1);</span>
<span class='curline'><a href='../S/30182.html#L114'>sys</a> 114 src/exec.c sys->memory[sys->cpu->gr[1]] = 0x0;</span>
<span class='curline'><a href='../S/30182.html#L115'>sys</a> 115 src/exec.c sys->memory[sys->cpu->gr[2]] = 0xFFFF;</span>
<span class='curline'><a href='../S/30182.html#L123'>sys</a> 123 src/exec.c if(sys->cpu->gr[1] + i >= execptr->end) {</span>
<span class='curline'><a href='../S/30182.html#L127'>sys</a> 127 src/exec.c sys->memory[sys->cpu->gr[1] + i] = buf[i];</span>
<span class='curline'><a href='../S/30182.html#L128'>sys</a> 128 src/exec.c sys->memory[sys->cpu->gr[2]] = i + 1;</span>
<span class='curline'><a href='../S/30182.html#L138'>sys</a> 138 src/exec.c for(i = 0; i < sys->memory[sys->cpu->gr[2]]; i++) {</span>
<span class='curline'><a href='../S/30182.html#L139'>sys</a> 139 src/exec.c if(sys->cpu->gr[1] + i >= execptr->end) {</span>
<span class='curline'><a href='../S/30182.html#L146'>sys</a> 146 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/30182.html#L159'>sys</a> 159 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/30182.html#L162'>sys</a> 162 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/30182.html#L166'>sys</a> 166 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/30182.html#L176'>sys</a> 176 src/exec.c setcerr(205, s = pr2str(sys->cpu->pr)); /* r/r1 in word #1 - not GR */</span>
<span class='curline'><a href='../S/30182.html#L189'>sys</a> 189 src/exec.c setcerr(206, s = pr2str(sys->cpu->pr)); /* r/r1 in word #1 - not GR */</span>
<span class='curline'><a href='../S/30182.html#L202'>sys</a> 202 src/exec.c a += sys->cpu->gr[x];</span>
<span class='curline'><a href='../S/30182.html#L212'>sys</a> 212 src/exec.c if((a = get_adr_x(adr, oprx)) >= sys->memsize) {</span>
<span class='curline'><a href='../S/30182.html#L213'>sys</a> 213 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/30182.html#L217'>sys</a> 217 src/exec.c return sys->memory[a];</span>
<span class='curline'><a href='../S/30182.html#L228'>sys</a> 228 src/exec.c sys->cpu->pr += getcmdwordlen("NOP", NONE);</span>
<span class='curline'><a href='../S/30182.html#L233'>sys</a> 233 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L234'>sys</a> 234 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/30182.html#L235'>sys</a> 235 src/exec.c sys->cpu->pr += getcmdwordlen("LD", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L240'>sys</a> 240 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L241'>sys</a> 241 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/30182.html#L242'>sys</a> 242 src/exec.c sys->cpu->pr += getcmdwordlen("LD", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L247'>sys</a> 247 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L248'>sys</a> 248 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/30182.html#L249'>sys</a> 249 src/exec.c sys->cpu->pr += getcmdwordlen("ST", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L254'>sys</a> 254 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L255'>sys</a> 255 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/30182.html#L256'>sys</a> 256 src/exec.c sys->cpu->pr += getcmdwordlen("LAD", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L263'>sys</a> 263 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/30182.html#L266'>sys</a> 266 src/exec.c if((tmp = (short)(sys->cpu->gr[r]) + (short)val) > 32767 || tmp < -32768) {</span>
<span class='curline'><a href='../S/30182.html#L267'>sys</a> 267 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/30182.html#L270'>sys</a> 270 src/exec.c sys->cpu->gr[r] = (WORD)(tmp & 0xFFFF);</span>
<span class='curline'><a href='../S/30182.html#L271'>sys</a> 271 src/exec.c if((sys->cpu->gr[r] & 0x8000) == 0x8000) {</span>
<span class='curline'><a href='../S/30182.html#L272'>sys</a> 272 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/30182.html#L273'>sys</a> 273 src/exec.c } else if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/30182.html#L274'>sys</a> 274 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/30182.html#L280'>sys</a> 280 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L282'>sys</a> 282 src/exec.c sys->cpu->pr += getcmdwordlen("ADDA", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L287'>sys</a> 287 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L288'>sys</a> 288 src/exec.c adda(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/30182.html#L289'>sys</a> 289 src/exec.c sys->cpu->pr += getcmdwordlen("ADDA", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L294'>sys</a> 294 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L296'>sys</a> 296 src/exec.c sys->cpu->pr += getcmdwordlen("SUBA", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L301'>sys</a> 301 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L302'>sys</a> 302 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/30182.html#L303'>sys</a> 303 src/exec.c sys->cpu->pr += getcmdwordlen("SUBA", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L311'>sys</a> 311 src/exec.c o = sys->cpu->gr[r];</span>
<span class='curline'><a href='../S/30182.html#L312'>sys</a> 312 src/exec.c sys->cpu->fr = 0; /* flag initialize */</span>
<span class='curline'><a href='../S/30182.html#L317'>sys</a> 317 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/30182.html#L321'>sys</a> 321 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/30182.html#L328'>sys</a> 328 src/exec.c sys->cpu->gr[r] = (WORD)s;</span>
<span class='curline'><a href='../S/30182.html#L331'>sys</a> 331 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/30182.html#L334'>sys</a> 334 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/30182.html#L340'>sys</a> 340 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L342'>sys</a> 342 src/exec.c sys->cpu->pr += getcmdwordlen("ADDL", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L347'>sys</a> 347 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L348'>sys</a> 348 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/30182.html#L349'>sys</a> 349 src/exec.c sys->cpu->pr += getcmdwordlen("ADDL", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L354'>sys</a> 354 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L356'>sys</a> 356 src/exec.c sys->cpu->pr += getcmdwordlen("SUBL", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L361'>sys</a> 361 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L362'>sys</a> 362 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/30182.html#L363'>sys</a> 363 src/exec.c sys->cpu->pr += getcmdwordlen("SUBL", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L368'>sys</a> 368 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L369'>sys</a> 369 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/30182.html#L370'>sys</a> 370 src/exec.c sys->cpu->pr += getcmdwordlen("AND", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L375'>sys</a> 375 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L376'>sys</a> 376 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/30182.html#L377'>sys</a> 377 src/exec.c sys->cpu->pr += getcmdwordlen("AND", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L382'>sys</a> 382 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L383'>sys</a> 383 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/30182.html#L384'>sys</a> 384 src/exec.c sys->cpu->pr += getcmdwordlen("OR", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L389'>sys</a> 389 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L390'>sys</a> 390 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/30182.html#L391'>sys</a> 391 src/exec.c sys->cpu->pr += getcmdwordlen("OR", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L396'>sys</a> 396 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L397'>sys</a> 397 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/30182.html#L398'>sys</a> 398 src/exec.c sys->cpu->pr += getcmdwordlen("XOR", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L403'>sys</a> 403 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L404'>sys</a> 404 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/30182.html#L405'>sys</a> 405 src/exec.c sys->cpu->pr += getcmdwordlen("XOR", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L410'>sys</a> 410 src/exec.c sys->cpu->fr = 0;</span>
<span class='curline'><a href='../S/30182.html#L411'>sys</a> 411 src/exec.c if((short)sys->cpu->gr[r] < (short)val) {</span>
<span class='curline'><a href='../S/30182.html#L412'>sys</a> 412 src/exec.c sys->cpu->fr = SF;</span>
<span class='curline'><a href='../S/30182.html#L413'>sys</a> 413 src/exec.c } else if(sys->cpu->gr[r] == val) {</span>
<span class='curline'><a href='../S/30182.html#L414'>sys</a> 414 src/exec.c sys->cpu->fr = ZF;</span>
<span class='curline'><a href='../S/30182.html#L420'>sys</a> 420 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L422'>sys</a> 422 src/exec.c sys->cpu->pr += getcmdwordlen("CPA", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L427'>sys</a> 427 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L428'>sys</a> 428 src/exec.c cpa(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/30182.html#L429'>sys</a> 429 src/exec.c sys->cpu->pr += getcmdwordlen("CPA", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L434'>sys</a> 434 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/30182.html#L435'>sys</a> 435 src/exec.c if(sys->cpu->gr[r] < val) {</span>
<span class='curline'><a href='../S/30182.html#L436'>sys</a> 436 src/exec.c sys->cpu->fr = SF;</span>
<span class='curline'><a href='../S/30182.html#L437'>sys</a> 437 src/exec.c } else if(sys->cpu->gr[r] == val) {</span>
<span class='curline'><a href='../S/30182.html#L438'>sys</a> 438 src/exec.c sys->cpu->fr = ZF;</span>
<span class='curline'><a href='../S/30182.html#L444'>sys</a> 444 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L446'>sys</a> 446 src/exec.c sys->cpu->pr += getcmdwordlen("CPL", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L451'>sys</a> 451 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L452'>sys</a> 452 src/exec.c cpl(get_r_r1(w[0]), sys->cpu->gr[get_x_r2(w[0])]);</span>
<span class='curline'><a href='../S/30182.html#L453'>sys</a> 453 src/exec.c sys->cpu->pr += getcmdwordlen("CPL", R1_R2);</span>
<span class='curline'><a href='../S/30182.html#L458'>sys</a> 458 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L460'>sys</a> 460 src/exec.c WORD sign = sys->cpu->gr[r] & 0x8000;</span>
<span class='curline'><a href='../S/30182.html#L463'>sys</a> 463 src/exec.c sys->cpu->fr = 0;</span>
<span class='curline'><a href='../S/30182.html#L464'>sys</a> 464 src/exec.c sys->cpu->gr[r] &= 0x7FFF;</span>
<span class='curline'><a href='../S/30182.html#L466'>sys</a> 466 src/exec.c last = sys->cpu->gr[r] & 0x4000;</span>
<span class='curline'><a href='../S/30182.html#L467'>sys</a> 467 src/exec.c sys->cpu->gr[r] <<= 1;</span>
<span class='curline'><a href='../S/30182.html#L469'>sys</a> 469 src/exec.c sys->cpu->gr[r] = sign | (sys->cpu->gr[r] & 0x7FFF);</span>
<span class='curline'><a href='../S/30182.html#L472'>sys</a> 472 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/30182.html#L476'>sys</a> 476 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/30182.html#L479'>sys</a> 479 src/exec.c if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/30182.html#L480'>sys</a> 480 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/30182.html#L482'>sys</a> 482 src/exec.c sys->cpu->pr += getcmdwordlen("SLA", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L487'>sys</a> 487 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L489'>sys</a> 489 src/exec.c WORD sign = sys->cpu->gr[r] & 0x8000;</span>
<span class='curline'><a href='../S/30182.html#L492'>sys</a> 492 src/exec.c sys->cpu->fr = 0;</span>
<span class='curline'><a href='../S/30182.html#L493'>sys</a> 493 src/exec.c sys->cpu->gr[r] &= 0x7FFF;</span>
<span class='curline'><a href='../S/30182.html#L495'>sys</a> 495 src/exec.c last = sys->cpu->gr[r] & 0x1;</span>
<span class='curline'><a href='../S/30182.html#L496'>sys</a> 496 src/exec.c sys->cpu->gr[r] >>= 1;</span>
<span class='curline'><a href='../S/30182.html#L498'>sys</a> 498 src/exec.c sys->cpu->gr[r] |= 0x4000;</span>
<span class='curline'><a href='../S/30182.html#L501'>sys</a> 501 src/exec.c sys->cpu->gr[r] = sign | sys->cpu->gr[r];</span>
<span class='curline'><a href='../S/30182.html#L504'>sys</a> 504 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/30182.html#L508'>sys</a> 508 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/30182.html#L511'>sys</a> 511 src/exec.c if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/30182.html#L512'>sys</a> 512 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/30182.html#L514'>sys</a> 514 src/exec.c sys->cpu->pr += getcmdwordlen("SRA", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L519'>sys</a> 519 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L523'>sys</a> 523 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/30182.html#L525'>sys</a> 525 src/exec.c last = sys->cpu->gr[r] & 0x8000;</span>
<span class='curline'><a href='../S/30182.html#L526'>sys</a> 526 src/exec.c sys->cpu->gr[r] <<= 1;</span>
<span class='curline'><a href='../S/30182.html#L530'>sys</a> 530 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/30182.html#L533'>sys</a> 533 src/exec.c if((sys->cpu->gr[r] & 0x8000) > 0x0) {</span>
<span class='curline'><a href='../S/30182.html#L534'>sys</a> 534 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/30182.html#L537'>sys</a> 537 src/exec.c if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/30182.html#L538'>sys</a> 538 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/30182.html#L540'>sys</a> 540 src/exec.c sys->cpu->pr += getcmdwordlen("SLL", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L545'>sys</a> 545 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L549'>sys</a> 549 src/exec.c sys->cpu->fr = 0x0;</span>
<span class='curline'><a href='../S/30182.html#L551'>sys</a> 551 src/exec.c last = sys->cpu->gr[r] & 0x0001;</span>
<span class='curline'><a href='../S/30182.html#L552'>sys</a> 552 src/exec.c sys->cpu->gr[r] >>= 1;</span>
<span class='curline'><a href='../S/30182.html#L556'>sys</a> 556 src/exec.c sys->cpu->fr += OF;</span>
<span class='curline'><a href='../S/30182.html#L559'>sys</a> 559 src/exec.c if((sys->cpu->gr[r] & 0x8000) > 0x0) {</span>
<span class='curline'><a href='../S/30182.html#L560'>sys</a> 560 src/exec.c sys->cpu->fr += SF;</span>
<span class='curline'><a href='../S/30182.html#L563'>sys</a> 563 src/exec.c if(sys->cpu->gr[r] == 0x0) {</span>
<span class='curline'><a href='../S/30182.html#L564'>sys</a> 564 src/exec.c sys->cpu->fr += ZF;</span>
<span class='curline'><a href='../S/30182.html#L566'>sys</a> 566 src/exec.c sys->cpu->pr += getcmdwordlen("SRL", R_ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L571'>sys</a> 571 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L572'>sys</a> 572 src/exec.c if((sys->cpu->fr & SF) > 0) {</span>
<span class='curline'><a href='../S/30182.html#L573'>sys</a> 573 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/30182.html#L575'>sys</a> 575 src/exec.c sys->cpu->pr += getcmdwordlen("JMI", ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L581'>sys</a> 581 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L582'>sys</a> 582 src/exec.c if((sys->cpu->fr & ZF) == 0) {</span>
<span class='curline'><a href='../S/30182.html#L583'>sys</a> 583 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/30182.html#L585'>sys</a> 585 src/exec.c sys->cpu->pr += getcmdwordlen("JNZ", ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L591'>sys</a> 591 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L592'>sys</a> 592 src/exec.c if((sys->cpu->fr & ZF) > 0) {</span>
<span class='curline'><a href='../S/30182.html#L593'>sys</a> 593 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/30182.html#L595'>sys</a> 595 src/exec.c sys->cpu->pr += getcmdwordlen("JZE", ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L601'>sys</a> 601 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L602'>sys</a> 602 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/30182.html#L607'>sys</a> 607 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L608'>sys</a> 608 src/exec.c if((sys->cpu->fr & (SF | ZF)) == 0) {</span>
<span class='curline'><a href='../S/30182.html#L609'>sys</a> 609 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/30182.html#L611'>sys</a> 611 src/exec.c sys->cpu->pr += getcmdwordlen("JPL", ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L617'>sys</a> 617 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L618'>sys</a> 618 src/exec.c if((sys->cpu->fr & OF) > 0) {</span>
<span class='curline'><a href='../S/30182.html#L619'>sys</a> 619 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/30182.html#L621'>sys</a> 621 src/exec.c sys->cpu->pr += getcmdwordlen("JOV", ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L627'>sys</a> 627 src/exec.c assert(sys->cpu->sp > execptr->end && sys->cpu->sp <= sys->memsize);</span>
<span class='curline'><a href='../S/30182.html#L628'>sys</a> 628 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L629'>sys</a> 629 src/exec.c sys->memory[--(sys->cpu->sp)] = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/30182.html#L630'>sys</a> 630 src/exec.c sys->cpu->pr += getcmdwordlen("PUSH", ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L635'>sys</a> 635 src/exec.c assert(sys->cpu->sp > execptr->end);</span>
<span class='curline'><a href='../S/30182.html#L636'>sys</a> 636 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr]};</span>
<span class='curline'><a href='../S/30182.html#L639'>sys</a> 639 src/exec.c if(sys->cpu->sp >= sys->memsize) {</span>
<span class='curline'><a href='../S/30182.html#L640'>sys</a> 640 src/exec.c setcerr(203, s = pr2str(sys->cpu->pr)); /* Stack Pointer (SP) - stack underflow */</span>
<span class='curline'><a href='../S/30182.html#L643'>sys</a> 643 src/exec.c sys->cpu->gr[get_r_r1(w[0])] = sys->memory[(sys->cpu->sp)++];</span>
<span class='curline'><a href='../S/30182.html#L644'>sys</a> 644 src/exec.c sys->cpu->pr += getcmdwordlen("POP", R_);</span>
<span class='curline'><a href='../S/30182.html#L650'>sys</a> 650 src/exec.c assert(sys->cpu->sp > execptr->end && sys->cpu->sp <= sys->memsize);</span>
<span class='curline'><a href='../S/30182.html#L651'>sys</a> 651 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L652'>sys</a> 652 src/exec.c sys->memory[--(sys->cpu->sp)] = sys->cpu->pr + 1;</span>
<span class='curline'><a href='../S/30182.html#L653'>sys</a> 653 src/exec.c sys->cpu->pr = get_adr_x(w[1], w[0]);</span>
<span class='curline'><a href='../S/30182.html#L658'>sys</a> 658 src/exec.c assert(sys->cpu->sp <= sys->memsize);</span>
<span class='curline'><a href='../S/30182.html#L659'>sys</a> 659 src/exec.c if(sys->cpu->sp == sys->memsize) {</span>
<span class='curline'><a href='../S/30182.html#L661'>sys</a> 661 src/exec.c } else if(sys->cpu->sp < sys->memsize) {</span>
<span class='curline'><a href='../S/30182.html#L662'>sys</a> 662 src/exec.c sys->cpu->pr = sys->memory[(sys->cpu->sp)++] + 1;</span>
<span class='curline'><a href='../S/30182.html#L668'>sys</a> 668 src/exec.c WORD w[] = {sys->memory[sys->cpu->pr], sys->memory[sys->cpu->pr + 1]};</span>
<span class='curline'><a href='../S/30182.html#L681'>sys</a> 681 src/exec.c sys->cpu->pr += getcmdwordlen("SVC", ADR_X);</span>
<span class='curline'><a href='../S/30182.html#L695'>sys</a> 695 src/exec.c for (sys->cpu->pr = execptr->start; ; ) {</span>
<span class='curline'><a href='../S/30182.html#L699'>sys</a> 699 src/exec.c if((execmode.monitor == true && execptr->started == false) || execptr->stop == true || execmode.step == true || getbps(sys->cpu->pr) == true)</span>
<span class='curline'><a href='../S/30182.html#L709'>sys</a> 709 src/exec.c if(sys->cpu->pr >= sys->memsize) {</span>
<span class='curline'><a href='../S/30182.html#L710'>sys</a> 710 src/exec.c setcerr(201, s = pr2str(sys->cpu->pr)); /* Program Register (PR) - memory overflow */</span>
<span class='curline'><a href='../S/30182.html#L714'>sys</a> 714 src/exec.c if(sys->cpu->sp <= execptr->end) {</span>
<span class='curline'><a href='../S/30182.html#L715'>sys</a> 715 src/exec.c setcerr(202, s = pr2str(sys->cpu->pr)); /* Stack Pointer (SP) - stack overflow */</span>
<span class='curline'><a href='../S/30182.html#L720'>sys</a> 720 src/exec.c if((cmdptr = getcmdptr(sys->memory[sys->cpu->pr] & 0xFF00)) == NULL) {</span>
<span class='curline'><a href='../S/30182.html#L721'>sys</a> 721 src/exec.c setcerr(204, s = pr2str(sys->cpu->pr)); /* OP in word #1 - not command code */</span>
<span class='curline'><a href='../S/30182.html#L741'>sys</a> 741 src/exec.c } while(clock_end - clock_begin < CLOCKS_PER_SEC / sys->clocks);</span>
<span class='curline'><a href='../S/30211.html#L30'>sys</a> 30 src/load.c end = start + fread(sys->memory + start, sizeof(WORD), sys->memsize - start, fp);</span>
<span class='curline'><a href='../S/30211.html#L31'>sys</a> 31 src/load.c if(end == sys->memsize) {</span>
<span class='curline'><a href='../S/30177.html#L309'>sys</a> 309 src/monitor.c disassemble_memory(sys->memory, nh2word(args->argv[0]), nh2word(args->argv[1]));</span>
<span class='curline'><a href='../S/30177.html#L311'>sys</a> 311 src/monitor.c disassemble_memory(sys->memory, execptr->start, (execptr->end)-1);</span>
<span class='curline'><a href='../S/30177.html#L330'>sys</a> 330 src/monitor.c fprintf(stdout, "#%04X: Register::::\n", sys->cpu->pr);</span>
<span class='curline'><a href='../S/30213.html#L8'>sys</a> 8 src/struct.c SYSTEM *sys = NULL;</span>
<span class='curline'><a href='../S/30213.html#L331'>sys</a> 331 src/struct.c sys = malloc_chk(sizeof(SYSTEM), "sys");</span>
<span class='curline'><a href='../S/30213.html#L333'>sys</a> 333 src/struct.c sys->memsize = memsize;</span>
<span class='curline'><a href='../S/30213.html#L336'>sys</a> 336 src/struct.c sys->clocks = clocks;</span>
<span class='curline'><a href='../S/30213.html#L338'>sys</a> 338 src/struct.c sys->cpu = malloc_chk(sizeof(CPU), "comet2_init.cpu");</span>
<span class='curline'><a href='../S/30213.html#L342'>sys</a> 342 src/struct.c sys->memory = calloc_chk(sys->memsize, sizeof(WORD), "comet2_init.memory");</span>
<span class='curline'><a href='../S/30213.html#L354'>sys</a> 354 src/struct.c sys->cpu->gr[i] = 0x0;</span>
<span class='curline'><a href='../S/30213.html#L356'>sys</a> 356 src/struct.c sys->cpu->sp = sys->memsize; /* スタックポインタ */</span>
<span class='curline'><a href='../S/30213.html#L357'>sys</a> 357 src/struct.c sys->cpu->pr = 0x0; /* プログラムレジスタ */</span>
<span class='curline'><a href='../S/30213.html#L358'>sys</a> 358 src/struct.c sys->cpu->fr = 0x0; /* フラグレジスタ */</span>
<span class='curline'><a href='../S/30213.html#L365'>sys</a> 365 src/struct.c memset(sys->memory, 0, sys->memsize * sizeof(WORD));</span>
<span class='curline'><a href='../S/30213.html#L402'>sys</a> 402 src/struct.c FREE(sys->memory);</span>
<span class='curline'><a href='../S/30213.html#L403'>sys</a> 403 src/struct.c FREE(sys->cpu);</span>
<span class='curline'><a href='../S/30213.html#L404'>sys</a> 404 src/struct.c FREE(sys);</span>
</pre>
</body>
</html>