$ gisp refal_patterns.gisp
== Word split with s/w variables ==
Subject: (greetings from gisp world)
Pattern description: [s.first w.middle 'world]
Pattern data: ((var s first) (var w middle) world)
Matches: 1
  #1
  s.first = greetings
  w.middle = (from gisp)

== Bracket structure with s/e variables ==
Subject: (sum (x plus y) done)
Pattern description: ['sum (s.lhs 'plus s.rhs) e.rest]
Pattern data: (sum (br ((var s lhs) plus (var s rhs))) (var e rest))
Matches: 1
  #1
  s.lhs = x
  s.rhs = y
  e.rest = (done)

== Repeated s-variable enforces equality ==
Subject: (dup x x)
Pattern description: ['dup s.sym s.sym]
Pattern data: (dup (var s sym) (var s sym))
Matches: 1
  #1
  s.sym = x

== Repeated variable mismatch ==
Subject: (dup x y)
Result: no match (as expected)

== Backtracking across e-variables ==
Subject: (a middle middle b)
Pattern description: [e.head 'middle e.tail]
Pattern data: ((var e head) middle (var e tail))
Matches: 2
  #1
  e.head = (a middle)
  e.tail = (b)
  #2
  e.head = (a)
  e.tail = (middle b)

== Clause evaluation (factorial skeleton) ==
fact(0) => (1)
fact(3) => (* 3 (fact 2))

$ ./maze.gisp
┌───────────────────────────────────────┐ 
│                                       │ 
│   ┌───────┬───────┐   ┌───────╴   ╷   │ 
│   │       │       │   │           │   │ 
├───┘   ┌───┘   ╷   └───┘   ┌───┬───┘   │ 
│       │       │           │   │       │ 
│   ╶───┤   ┌───┴───────────┘   │   ┌───┤ 
│       │   │                   │   │   │ 
├───┐   │   └───┐   ╷   ╶───┐   │   ╵   │ 
│   │   │       │   │       │   │       │ 
│   ╵   ├───╴   │   └───┐   │   ├───╴   │ 
│       │       │       │   │   │       │ 
│   ┌───┘   ┌───┴───┐   │   └───┤   ┌───┤ 
│   │       │       │   │       │   │   │ 
│   │   ╶───┤   ┌───┘   ├───╴   │   ╵   │ 
│   │       │   │       │       │       │ 
│   ├───╴   │   │   ╶───┤   ┌───┴───┐   │ 
│   │       │   │       │   │       │   │ 
│   ╵   ┌───┘   └───╴   │   ╵   ╷   ╵   │ 
│       │               │       │       │ 
└───────┴───────────────┴───────┴───────┘ 

type Handshake[Treq any, Tack any] struct {
    Req chan Treq
    Ack chan Tack
}

func AsyncAdder(a, b, sum *Handshake[int, struct{}]) {
    for {
        // Wait for inputs to arrive
        var x, y int
        haveA, haveB := false, false

        for !(haveA && haveB) {
            select {
            case x = <-a.Req:
                haveA = true
            case y = <-b.Req:
                haveB = true
            }
        }

        // Compute sum
        s := x + y

        // Send result downstream (Req↑)
        sum.Req <- s

        // Wait for output Ack↑
        <-sum.Ack

        // Only now acknowledge inputs (completing 4-phase handshake)
        a.Ack <- struct{}{}
        b.Ack <- struct{}{}
    }
}

I'm selling one of my PDP-11/73s with "all my good parts" to cover the costs of the 11/24 I'm building. Basically, it's an infallible system as long as I stay one PDP ahead of things 🙂

Plug it in, turn it on - boot 211BSD UNIX already custom configured, serve WWW pages, FTP, Telnet, and more. This is your chance to own a maxed-out and completely turnkey, ready-to-run PDP-11 UNIX Workstation. You could also install and run RT-11 or RSX-11, but this machine has been carefully set up and configured with 211BSD UNIX, including all networking features.

This machine represents a collection of my very best PDP-11 components, including:

• DEC M8190 CPU
• DEC M8637 Fast PMI Memory (x2) for a total of 4M installed, the max permitted
• DEC M3104 Eight Port Serial Multiplex - Connect up to 9 total terminals (plus Ethernet sessions)
• DEC M7555 MFM and Floppy Controller
• Emulex UC07 SCSI Controller - Supports tapes, drives, jaz, and more, up to 6 devices - Boot multiple systems
• DEC M7516 Ethernet Adapter - The faster/better DELQA NIC
• DEC RX50 Dual Floppy Drive - Tested and mounted as /mnt/flopppy0 and /mnt/floppy1 for each file interchange
• Seagate ST43400N - 3GB SCSI Drive - Contains /root, /swap, /usr, and /data partitions

It's all housed in a rare and very nice DEC BA23 chassis and tower pedestal case with front cover plate.

🧭 1981–1983: Ранняя эра IBM PC и XT

• Базовое управление файлами и дисками, только односторонние дискеты.
• Функционально идентична MS-DOS 1.x для совместимых компьютеров.

• 2.1 поставлялась с IBM PC/XT (1983).
• Стала стандартной версией DOS для ранних клонов XT примерно до 1984 года.
• Многие ПК сторонних производителей поставлялись с MS-DOS 2.1 или 2.11.

🧭 1984–1986: Зрелое поколение XT

• 3.2 (1986) поддерживала дискеты объёмом 720 КБ и стала широко использоваться на клонах класса XT.
• Многие PC/AT использовали DOS 3.3, но машины класса XT в основном оставались на версии 3.2.

🧭 1987–1990: клоны XT и турбо XT

• Поставлялась в комплекте с большинством клонов машин той эпохи.
• Стала фактическим стандартом DOS в конце 1980-х годов.

• Многие пользователи оставались с версией 3.3, поскольку она была быстрее и совместимее.

🧭 1990–1994: Пользователи устаревших XT

• Всё ещё может работать на XT с 640 КБ ОЗУ.
• Используется энтузиастами и как вариант обновления с версии 3.3.

  Период   Типичное оборудование  Версии DOS  Самые популярные
--------------------------------------------------------------
1981–1983  IBM PC, PC/XT          1.0 – 2.1   2.1
1984–1986  Клоны PC/XT            3.0 – 3.2   3.2
1987–1990  Клоны Turbo XT         3.3 – 4.01  3.3
1991–1994  Устаревшие системы XT  3.3 – 5.0   5.0