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

Вариант тестового кода, выводит последовательно цифры от 0 до 9, формат 5х8
http://se.uploads.ru/t/IpkFm.jpg

Поля DATA формируются суммой значений битов в строке.
Формат строки: DATA <строка 1>, ...сверху вниз..., <строка8>
Пример для цифры 5:
http://s4.uploads.ru/t/XTO9s.jpg

Количество символов ограничено фантазией, но потребуется внести поправки в данный код:
- увеличить количество строк DATA
- добавить определения в блок Select Case

При использовании кода в качестве подпрограммы достаточно определить номер выводимого символа.

Код:
$Regfile="m16adef.dat"
$Crystal=8000000
$hwstack=16
$swstack=16
$framesize=32

Config portC = Output          ' Выбор колонки
Config portA = Output          ' Выбор строки

Dim a As Byte                            ' Временная переменная
Dim b As Byte                            ' Временная переменная
Dim simvol As Byte                    ' Номер выводимого символа в списке DATA
Dim c As Byte                            ' Значение порта колонки
Dim r As Byte                            ' Значение порта строки
Dim stroka(8) As Byte                ' Содержимое строк выбранного символа

'****************************************************************************************************

Do

Select Case simvol                                   ' Определяем строку DATA по номеру символа
   Case 0 : Restore dt0 : Gosub chtenie
   Case 1 : Restore dt1 : Gosub chtenie
   Case 2 : Restore dt2 : Gosub chtenie
   Case 3 : Restore dt3 : Gosub chtenie
   Case 4 : Restore dt4 : Gosub chtenie
   Case 5 : Restore dt5 : Gosub chtenie
   Case 6 : Restore dt6 : Gosub chtenie
   Case 7 : Restore dt7 : Gosub chtenie
   Case 8 : Restore dt8 : Gosub chtenie
   Case 9 : Restore dt9 : Gosub chtenie
End Select

For a = 0 To 100                                        ' Выводим символ на матрицу
For c = 0 To 7
   PORTA.c = 0
   PORTC = stroka(c+1)
Waitms 1
   portA = 255
Next c
Next a

Waitms 500                                                ' Данный фрагмент
Incr simvol                                                 ' для тестирования
If simvol > 9 Then simvol = 0                     ' данного примера
Loop

End

'****************************************************************************************************
'                Заполнение массива строк значениями выбранного символа
chtenie:
For r =1 To 8
   Read c
   stroka(r) = c
Next r
Return

'****************************************************************************************************
'                Блок DATA символов
dt0:
Data 56, 68, 68, 68, 68, 68, 68, 56
dt1:
Data 16, 24, 16, 16, 16, 16, 16, 16
dt2:
Data 56, 68, 68, 64, 32, 16, 8, 124
dt3:
Data 56, 68, 68, 32, 64, 68, 68, 56
dt4:
Data 64, 80, 72, 68, 124, 64, 64, 64
dt5:
Data 124, 4, 4, 60, 64, 64, 68, 56
dt6:
Data 56, 68, 4, 60, 68, 68, 68, 56
dt7:
Data 124, 64, 64, 64, 32, 16, 16, 16
dt8:
Data 56, 68, 68, 56, 68, 68, 68, 56
dt9:
Data 56, 68, 68, 68, 120, 64, 68, 56