Ben's computer, 36 bit draft version 22-02-12

Octal 36 is a simple 36 bit computer using MSI and LSI logic from 1977,using a
18 bit bus with up to 20 bits of address space.The bus speed about 1.5 mhz, for
a 80 x 25 Video Card (25Mhz). Two 2400 baud serial ports and two emulated 1.5
meg platter drives (SD cards) with 8 Kb BIOS and 96Kb ram are the standard sys-
tem. The octal front panel with Run/stop, adr/load, dep, exam, pc/ac,hi/low is
used to boot start the system.


 Internaly 3 512 x 8 proms are for the microcode. 2901 bit slices are used for
the data path, on 2 20/16 bit cards. Programable logic like the 82S100 may be
used for microcode decoding in 1977. A current version could use CMOS 22V10's
or just 74HCTXX. 100 ns flash proms would be the only programable parts then.
Altera's DE1 Cyclone II, FPGA development system is used for prototyping the
TTL hardware. 256Kb or 64K words total memory and of that 16K words is reserved
for the single user OS. This just a bit more than IBM's big computerrs
 Single word floating point will be supported in software. 28 bit mantissa,9 bit
exponent.

 * Internal memory model

  36                18       9      1
 +-----------------+--------+--------+
 |                 |        |        | 6 GP registers A B C D X Y
 +-----------------+--------+--------+
 |                 |        |        | 4 GP optional registers E F G W .
 +-----------------+--------+--------+  ± extended flag or sign

                20                  1
 +------------+----+--------+--------+
 |------------|    .        .        | 2 special registers S PC
 +------------+----+--------+--------+

 [C] [R] [E]                           flags C carry R run E Enable IRQ

 * OP CODE FORMAT

  111 111 111
  876 543 210 987 654 321
 +---+---+---+---+---+---+
 |0a-|000|AAA|.SS|110|0±#|   DIRECT 20 bits
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |0a-|000|AAA|.SS|MMx|XXX|   MEM REF ST<SIZE> A <MODE> X (EFA)=AC
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |0aC|OOO|AAA|.SS|MMx|XXX|   MEM REF OP<SIZE> A <MODE> X AC = AC OP (EFA)
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |00-|000|AAA|.00|000|###|   CTL                       CONTROL = NOP,HLT,DI,EI
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |0a-|000|AAA|.00|010|000|   LIT                       interal use
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |0a0|000|AAA|.00|10x|XXX|   LEA A X #                 AC = EFA
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |0a0|000|AAA|.00|110|0±#|   JSV A Z                   (-S) = PC, PC = #ADR
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |0aC|OOO|AAA|.00|10x|XXX|   OP% A X                   AC = AC OP IX
 +---+---+---+---+---+---+   (register)
 +---+---+---+---+---+---+
 |1aC|OOO|AAA|±##|###|###|   byte #                    AC = AC OP # byte
 +---+---+---+---+---+---+   
 +---+---+---+---+---+---+
 |0aI|CCC|AAA|.00|11?|###|   BCC A #                   IF(CC) PC = #ADR
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |0a-|SSS|AAA|.01|00#|###|   SFT A #                   SFT AC #N TIMES
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |0a-|111|AAA|.10|00.|XXX|   JMP A R+                  PC = (R+)
 +---+---+---+---+---+---+
 +---+---+---+---+---+---+
 |0a-|111|AAA|.01|110|000|    SCC A                    A = CONDITION(CC)
 +---+---+---+---+---+---+



  * FUNCTION MATRIX

    A/X    OP  C   COND    SS      MM   SFT
   +-----+--------+-------+-------+----+---+
 0 |A  E | ST  -  |-      |REG   %|-R  |-  |
   +-----+--------+-------+-------+----+---+
 1 |B  F | -   XOR|Z      |BYTE  .|-R  |SZL|
   +-----+--------+-------+-------+----+---+
 2 |C  G | SBX BIT|S      |SHORT :|R+,#|SCL|
   +-----+--------+-------+-------+----+---+
 3 |D  W | ADX AND|S+Z    |WORD   |R+,#|ROL|
   +-----+--------+-------+-------+----+---+
 4 |X  - | LD  OR |~C     |REG    |R # |ROR|
   +-----+--------+-------+-------+----+---+
 5 |Y  - | CAD CAC|~C+Z   |BYTE   |R # |SZR|
   +-----+--------+-------+-------+----+---+
 6 |S  - | SUB SBC|1      |SHORT  |Z   |SCR|
   +-----+--------+-------+-------+----+---+
 7 |#  - | ADD ADC|1      |WORD   |Z   |ASR|
   +-----+--------+-------+-------+----+---+

   * FRONT PANEL

   +---+---+---+---+---+---+
   | D | D | D | D | D | D | <run>    NIXIE TUBES
   +---+---+---+---+---+---+
   +---+---+---+---+---+---+
 PP|SSS|SSS|SSS|SSS|SSS|SSS| D X A R  PANEL AND FUNCTION SWITCHES
   +---+---+---+---+---+---+

-- sive program
  debug 7
@@gol.inc
define EOF -1 TTY 0 NUL 0
define true 1
define false 0
define size 8190
define sizepl 8191
char line[81]
char flags[sizepl] ;
begin
main() {
    int i, prime, k, count, iter;
    printf(TTY,"10 iterations\n");
   strcpy(line,"Hit enter to start:");
   getin(line,TTY);
    iter = 1;
    while(iter <= 10) {
        count=0 ;
        i = 0
        while(i <= size){
            flags [i] = true;i=i+1;}
             
        i = 0;
        while(i <= size){
            if (flags[i]) {
                prime = i + i + 3;
                k = i + prime;
                while (k <= size) {
                    flags[k] = false;
                    k = k + prime;
                }
                count = count + 1;
            }
        i=i+1;
        }
    iter = iter+1;
    }
    printf(TTY ,"\n%d primes", count);
}
end