Мигаем светодиодом: PC XT — style

На самом деле между PC XT и 48-ю (!) светодиодами притаился "рояль в кустах":

Эта плата была спонтанно приобретена на ebay. Ясных планов её использования у меня не было, просто захотелось, да и сейчас не такой большой выбор старого ISA-железа, в особенности 8-битного.

На этой плате установлены сразу 2 чипа 8255 и одна микросхема 8253. 8253 мы в этой публикации использовать не будем. Сверху видны 2 40-пиновых гребёнки для подключения шлейфов. Слева - 16 светодиодов, о них чуть позже.

В двух словах о 8255. Она предоставляет доступ к 24 линиям ввода/вывода - к трём 8-битным портам Port A, Port B и Port C. Микросхема может работать в нескольких режимах, мы же будем использовать самый элементарный - просто будем класть байт в порт.

Светодиоды слева на карте подключены к Port A каждой из двух 8255. Уж не знаю, зачем это было реализовано, возможно, просто для демонстрации работоспособности. Но именно наблюдение за чарующим перемигиванием светодиодов и подвело меня к замыслу "вытащить" все 48 линий наружу и сделать, таким образом, светодиодную матрицу.

Плата приехала вместе с подробнейшей книжицей, в которой была принципиальная схема, описание режимов работы 8255 и 8253 и распиновка верхних гребёнок.

Делаем печатные платы

Сначала упомяну комп, к которому всё это будет подключаться - публикация на хабре.

Решил разделить собственно светодиодную матрицу от всей прочей нехитрой логики, поэтому плат было две:

Основная плата:

Сверху вниз:

• гнездо подключения светодиодной матрицы (аноды), находится с обратной стороны

• 6 330-омных резисторных сборок

• 1-й разъем к плате c 8255-ми

• 4 логических инвертора 74HC04N

• гнездо подключения светодиодной матрицы (катоды), находится с обратной стороны

• ещё 4 логических инвертора 74HC04N

• 2-й разъем к плате c 8255-ми

Аноды светодиодов подключены через резисторные сборки к +5В, катоды подключены к выходам инверторов. Входы инверторов подключены к портам 8255-х.

Светодиодная матрица

Сверху, соответственно, выведены аноды, снизу - катоды. Светодиоды на этом виде на обратной стороне платы. Если же смотреть со стороны светодиодов, то вертикальные ряды идут слева направо в порядке: Port A, Port B, Port C первой 8255, Port A, Port B, Port C второй 8255.

Для разработки плат использовал онлайн редактор easyeda.com. Особых проблем при проектировании не возникло, но было много мороки правильно соотнести 6 портов и 48 светодиодов. Разводка платы прошла автоматическая.

Готовые платы

Платы заказывались на jlcpcb.com.

Платы из посылки

Платы с установленными деталями:

вид спереди:

На дворе дефицит чипов, поэтому копеечные инверторы бережно установлены в панельки!

вид сзади:

Готовый "бутерброд"

Подключённый и закреплённый на раме:

Программируем всё вот это вот, наконец...

Даёшь ретро-железу винтажную IDE!

Да, пришлось активировать нейронные связи, когда-то давно отвечавшие за навыки работы в Turbo Pascal. А также мышечную память, ответственную за Ctrl-K B, Ctrl-K K, Ctrl-K C, Ctrl-Y и так далее.

Немного подробностей

Первоначальная инициализация: готовим рандомайзер, переключаем 8255-е в режим простого чтения/записи в порт, гасим все светодиоды.

Procedure AllOff; Forward;

Procedure Init;

Const PORT1_CONTROL_REGISTER = $01B3;
      PORT2_CONTROL_REGISTER = $01B7;

Begin
     Randomize;
     Port[PORT1_CONTROL_REGISTER]:=$80;
     Port[PORT2_CONTROL_REGISTER]:=$80;
     AllOff;
End;

Procedure AllOff;

Begin
     MATRIX[0]:=0;
     MATRIX[1]:=0;
     MATRIX[2]:=0;
     MATRIX[3]:=0;
     MATRIX[4]:=0;
     MATRIX[5]:=0;
     Update;
End;

Передаём сформированный массив в порты. Тут я решил заменить унылые Port[xxxx]:=yyyy на ассемблерную вставку.

Var MATRIX : Array [0..5] of Byte;

Procedure Update;

Const PORT_1A = $01B0;
      PORT_1B = $01B1;
      PORT_1C = $01B2;
      PORT_2A = $01B4;
      PORT_2B = $01B5;
      PORT_2C = $01B6;

Begin
     asm
        LEA DI, MATRIX

        XOR BX, BX
        MOV DX, PORT_1A
        MOV AL, [DI+BX]
        OUT DX, AL

        INC BX
        MOV DX, PORT_1B
        MOV AL, [DI+BX]
        OUT DX, AL

        INC BX
        MOV DX, PORT_1C
        MOV AL, [DI+BX]
        OUT DX, AL

        INC BX
        MOV DX, PORT_2A
        MOV AL, [DI+BX]
        OUT DX, AL

        INC BX
        MOV DX, PORT_2B
        MOV AL, [DI+BX]
        OUT DX, AL

        INC BX
        MOV DX, PORT_2C
        MOV AL, [DI+BX]
        OUT DX, AL
     end;
End;

Здесь находится репозиторий с исходным кодом.

Заключение

Здесь можно увидеть демонстрацию работы. Качество видео получилось так себе, в реальности все гораздо лучше.

Что дальше? Я первоначально хотел насверлить в непрозрачном оргстекле толщиной 3 мм 48 отверстий и "надеть" на светодиоды, чтобы отделить их друг от друга, а сверху - уже прозрачное красное оргстекло. Специально для этого подбирал цилиндрические светодиоды с плоской шляпкой. Сейчас уже не уверен, хватит ли у меня запала.

Что более вероятно, так это то, что я займусь вторым чипом на плате - 8253. Там 3 независимых счетчика, возможно, я после визуальных эффектов перейду к аудио. Ясно, что это будет весьма и весьма примитивная "музычка". Посмотрим!