nedoPC.org

> tunguska -e

'bg.bmp' not found in '/usr/local/share/tunguska/'
Falling back to 'share/bg.bmp' ... success!
Tunguska loaded null memory, basically
rendering it a drooling vegetable :-(

It's a lot more fun with something in the
memory to execute...Running testcase
't = 10' => 10 (expect 10)
't = t+10' => 20 (expect 20)
't = -365' => 364 (expect 364)
't = 365' => -364 (expect -364)
't = 5; t = t * 2' => 10 (expect 10)
't = 5; t = t / 2' => 2 (expect 2)
't = 5; t = t % 3' => 2 (expect 2)
'm.memref(25) = 10; m.memref(0, 25) += 5' => 15 (expect 15)
'm.memref("DDD", "DDD") = 10; m.memref(-729*729/2) += 5' => 15 (expect 15)
't = 1000; t.to_int();' => 271 (expect 271)
't = -1000; t.to_int();' => -271 (expect -271)
Initial benchmark: 67.935 thousand operations per second

Index: Makefile
===================================================================
RCS file: /cvsroot/tunguska/tunguska_sources/Makefile,v
retrieving revision 1.7
retrieving revision 1.8
diff -r1.7 -r1.8
7,8c7,8
< tunguska: trit.o tryte.o machine.o tunguska.o display.o keyboard.o interrupt.o disk.o coprocessor.o
<    g++ trit.o tryte.o machine.o tunguska.o interrupt.o display.o keyboard.o disk.o coprocessor.o -o tunguska ${LDFLAGS}
---
> tunguska: trit.o tryte.o machine.o tunguska.o display.o keyboard.o interrupt.o disk.o agdp.o
>    g++ trit.o tryte.o machine.o tunguska.o interrupt.o display.o keyboard.o disk.o agdp.o -o tunguska ${LDFLAGS}
Index: disk.cc
===================================================================
RCS file: /cvsroot/tunguska/tunguska_sources/disk.cc,v
retrieving revision 1.9
retrieving revision 1.10
diff -r1.9 -r1.10
46c46,47
<    tryte &d = m->memref("DDD", "DDA");
---
>    static int offset = tryte::word_to_int("DDD", "DDA");
>    tryte &d = m->memref(offset);
Index: display.cc
===================================================================
RCS file: /cvsroot/tunguska/tunguska_sources/display.cc,v
retrieving revision 1.9
retrieving revision 1.10
diff -r1.9 -r1.10
101c101,103
<    tryte displaytryte = m.memref("DDD", "DDB");
---
>    static int displaymem = tryte::word_to_int("DDD", "DDB");
>
>    tryte displaytryte = m.memref(displaymem);
110c112
<    if(refresh == 1) { m.memref("DDD", "DDB")[5] = 0; }
---
>    if(refresh == 1) { m.memref(displaymem)[5] = 0; }
Index: machine.cc
===================================================================
RCS file: /cvsroot/tunguska/tunguska_sources/machine.cc,v
retrieving revision 1.13
retrieving revision 1.15
diff -r1.13 -r1.15
74c74,75
<    STRTOOPC(LAD); STRTOOPC(BIT); STRTOOPC(BLT); STRTOOPC(BLS);
---
>    STRTOOPC(LAD); STRTOOPC(BIT); STRTOOPC(PGT); STRTOOPC(PGS);
>    STRTOOPC(CAD);
93,94c94,97
<    memref("DDD", "DDD") = i->IRQ();
<    memref("DDD", "DDC") = i->data();
---
>    static int memirq = tryte::word_to_int("DDD", "DDD");
>    static int memirqdata = tryte::word_to_int("DDD", "DDC");
>    memref(memirq) = i->IRQ();
>    memref(memirqdata) = i->data();
119c122,123
<    if((CL > memref("444", "441")) == 1) CL = 0;
---
>    static int moffset = tryte::word_to_int("444", "441");
>    if((CL > memref(moffset)) == 1) CL = 0;
261,262c265,267
<       case BLT: blt(arg); break;
<       case BLS: bls(arg); break;
---
>       case PGT: pgt(arg); break;
>       case PGS: pgs(arg); break;
>       case CAD: cad(abs1, abs2); break;
455a461,471
> /* Compare ADdress */
> void machine::cad(const tryte* t, const tryte* t2) {
>    int V =  tryte::word_to_int(*t, *t2);
>    int V2 = tryte::word_to_int(X, Y);
>
>    int diff = V - V2;
>    if(diff != 0) diff = diff / abs(diff);
>
>    pflag(diff);
> }
>
464c480
< void machine::blt(const tryte* t) {
---
> void machine::pgt(const tryte* t) {
474c490
< void machine::bls(const tryte* t) {
---
> void machine::pgs(const tryte* t) {
Index: machine.h
===================================================================
RCS file: /cvsroot/tunguska/tunguska_sources/machine.h,v
retrieving revision 1.7
retrieving revision 1.9
diff -r1.7 -r1.9
61c61
<          IVC, PRM, TSH, BUT, LAD, BLT, BLS
---
>          IVC, PRM, TSH, BUT, LAD, PGT, PGS, CAD
167,168c167,170
<       void blt(const tryte* t);
<       void bls(const tryte* t);
---
>       void cad(const tryte* t, const tryte* t2);
>
>       void pgt(const tryte* t);
>       void pgs(const tryte* t);
Index: tunguska.cc
===================================================================
RCS file: /cvsroot/tunguska/tunguska_sources/tunguska.cc,v
retrieving revision 1.13
retrieving revision 1.15
diff -r1.13 -r1.15
26c26
< #include "coprocessor.h"
---
> #include "agdp.h"
35c35
< #define POLL_INTERVAL 5000
---
> #define POLL_INTERVAL 10000
69c69
<       coprocessor* cop) {
---
>       agdp* agd) {
114c114
<       cop->heartbeat(*m);
---
>       agd->heartbeat(*m);
117c117
< }
---
>    }
155c155
<    coprocessor* cop = new coprocessor();
---
>    agdp* agd= new agdp();
192c192
<       cycle(m, disp, floppy, keyboard, cop);
---
>       cycle(m, disp, floppy, keyboard, agd);
204c204
<       cycle(m, disp, floppy, keyboard, cop);
---
>       cycle(m, disp, floppy, keyboard, agd);

Index: ram.asm
===================================================================
RCS file: /cvsroot/tunguska/tunguska_memory_image_sources/ram.asm,v
retrieving revision 1.20
retrieving revision 1.21
diff -r1.20 -r1.21
236c236
<       BLS   #%DDD
---
>       PGS   #%DDD
277c277
<       BLS   #%DDD
---
>       PGS   #%DDD
Index: stdlib.asm
===================================================================
RCS file: /cvsroot/tunguska/tunguska_memory_image_sources/stdlib.asm,v
retrieving revision 1.6
retrieving revision 1.7
diff -r1.6 -r1.7
627a628
>