Порты спектрума и его клонов

[demetrius2003]

Если кому интересно - нашёл в своих записях следующий код. Он реально работал. Дельта была подключена к D-100.

5B00                 org 5B00h
5B00                 ld      bc, 0FFDh
5B03
5B03 loc_5B03:                               ; CODE XREF: 5B0E
5B03                 in      a, (c)
5B05                 and     1
5B07                 jr      nz, loc_5B11
5B09                 ld      a, (5C08h)
5B0C                 cp      20h ; ' '
5B0E                 jr      nz, loc_5B03
5B10                 ret
5B11 ; ---------------------------------------------------------------------------
5B11
5B11 loc_5B11:                               ; CODE XREF: 5B07
5B11                 ld      a, 0
5B13                 xor     0FFh
5B15                 out     (c), a
5B17                 ld      bc, 1FFDh
5B1A                 or      10h
5B1C                 out     (c), a
5B1E                 and     0EFh
5B20                 out     (c), a
5B22                 ret

Остаётся только непонятно, откуда взялся этот код? Я его сам набирал в Зевсе! Всё из головы повылетало!

[Advertiser]