Беглый поиск по Оберону вот что дал: http://exaprog.com/. Правда, товарищ всё пишет по английски. Когда-то с кем-то из Казани я контактировал по поводу Оберона-07, возможно, это одно и то же лицо.

Код выглядит примерно так
МОДУЛЬ Compiler;

ИМПОРТ мДец := DECL,
    мСкан := SCAN,
    мУтиль := UTILS,
    X86, SYSTEM,
    мКонст := modConstante,
    мКо := modConstErr,
    мФк := modFuncCompiler,
    мСтр := modString,
    мСпис := modList,
    мТипы := modType,
    мОш := modError,
    мПроц := modProcess,
    мКонс := modConsole,
    мПров := modAssertion;

ТИПЫ

    тМетка = УКАЗАТЕЛЬ НА ЗАПИСЬ (мСпис.тУзел)
        a, b: ЦЕЛОЕ
    КОНЕЦ;

ПЕРЕМ
    pExpr, pFactor: ПРОЦЕДУРА (ПЕРЕМ e: мДец.тВыражение);
    pOpSeq: ПРОЦЕДУРА;
    Lex: мСтр.тСтрока;
    sttypes: мДец.тТипНабор;

ПРОЦЕДУРА BaseOf(тип0_, тип1_: мТипы.туТип): БУЛЕВО;
    ПЕРЕМ
        усл1, усл2 :БУЛЕВО;
    НАЧАЛО
        усл1 := (тип0_.тип_узла = тип1_.тип_узла);
        усл2 := (тип0_.тип_узла ВХОДИТ {мКонст._тЗапись, мКонст._тУказатель});
        ЕСЛИ усл1 & усл2 ТОГДА
            ЕСЛИ тип0_.тип_узла = мКонст._тУказатель ТОГДА
                тип0_ := тип0_.предок;
                тип1_ := тип1_.предок
            КОНЕЦ;
            ПОКА (тип1_ # ПУСТО) & (тип1_ # тип0_) ДЕЛАТЬ
                тип1_ := тип1_.предок
            КОНЕЦ
        КОНЕЦ
        ВЕРНУТЬ тип0_ = тип1_
    КОНЕЦ BaseOf;

ПРОЦЕДУРА Designator(ПЕРЕМ выраж_: мДец.тВыражение);
    ПЕРЕМ
        имя_узел: мДец.туИмя;
        узел: мСкан.туУзел;
        выраж1: мДец.тВыражение;
        строка_ном, позиция, i, n, bases, glob, loc, idx: ЦЕЛОЕ;
        imp, break, guard: БУЛЕВО;
        f: мДец.туПоле;
        T, тип_предка: мТипы.туТип;
        s: мДец.туСтрКонст;

Сейчас на гитхабе лежит гораздо более сильная переработка на русский.
Также логика усилена, кое-какие мелочи переделаны (даже пожалуй уже и не мелочи).
Компилятор вполне рабочий, но для практических целей откровенно слаб. Мучение сплошное, либ нету))

Маловероятно, т.к. задачи спускались "сверху", а машин и специалистов было очень мало, как и свободного времени.