Перевёл по своему, с нуля:


Код:
; Генерируем утолщённый шрифт.
       ld hl,15616         ; ПЗУ-шрифт.
       ld de,60000         ; адрес нашего нового шрифта.
       ld bc,768           ; меняем 96 знаков * 8 строчек.
; Начало цикла
font1  ld a,(hl)           ; берём биты строчки.
       rlca                ; сдвигаем влево.
       or (hl)             ; объединяем оба изображения. 
       ld (de),a           ; пишем в новый шрифт.
       inc hl              ; следующий байт старого.
       inc de              ; следующий байт нового.
       dec bc              ; уменьшаем счетчик.
       ld a,b              ; старший байт (счётчика)
       or c                ; объединяем с младшим байтом.
       jr nz,font1         ; цикл повторяем, пока не настанет bc=zero.
;новый шрифт устанавливаем как текущий.
       ld hl,60000-256     ; адрес шрифта минут 32*8.
       ld (23606),hl       ; записываем в системную переменную.
       ret
[свернуть]