Читатель-читателю - Драйвер принтера для Scorpion'а.

<b>Читатель-читателю</b> - Драйвер принтера для Scorpion'а.

(c) Мотов А., г.Усолье-Сибирское

   Хочу   предложить   читателям
свою  версию  драйвера  принтера
"ZX-WORD 2.1" для  "SCORPION'а".
Дело в том, что у  меня  принтер
"CANNON  BJ-30",  который  имеет
855 таблицу вместо 866.  Драйвер
перекодирует символы при  выдаче
на принтер в соответствии с  855
таблицей. Программа очень проста
и в комментариях не нуждается.
140.
          ORG     #5B00
          JR      RETU
          NOP
          CALL    CPAR
          LD      BC,#FFDD
          OUT     (C),A
L1        CALL    #1F54
          JR      NC,NW
          IN      A,(#FE)
          RLCA
          JR      C,L1
          LD      BC,#1FFD
          LD      A,#20
          OUT     (C),A
          XOR     A
          OUT     (C),A
          SCF
          CCF
          RET
CPAR      CP      #80
          RET     C
          LD      HL,TAB
          SUB     #80
          LD      E,A
          LD      D,0
          ADD     HL,DE
          LD      A,(HL)
RETU      RET
NW        SCF
          RET

TAB   DEFB     161,163,236,173,167,169,234
      DEFB     244,184,190,199,209,211,213
      DEFB     215,221,226,228,230,232,171
      DEFB     182,165,252,246,250,159,242
      DEFB     238,248,157,224,160,162,235
      DEFB     172,166,168,233,243,183,189
      DEFB     198,208,210,212,214,216,176
      DEFB     177,178,179,255,255,255,255
      DEFB     255,185,186,187,188,255,255
      DEFB     191,192,193,194,195,196,197
      DEFB     255,255,200,201,202,203,204
      DEFB     205,206,255,255,255,255,255
      DEFB     255,255,255,255,255,217,218
      DEFB     219,220,255,255,223,225,227
      DEFB     229,231,170,181,164,251,245
      DEFB     249,158,241,237,247,156,222
      DEFB     133,132,255,255,255,255,255
      DEFB     255,255,255,255,255,255,255
      DEFB     254,255
2
   Для нормальной  работы  прог-
раммы необходимо изменить содер-
жимое ячейки с адресом  28111  с
#E0 на #DF. Причина описана в N5
за 1994г. Макарычевым В.П. Хотел
бы заметить, что у меня програм-
ма работает и в режиме 128К.

   Прим.ред.:  Для ассемблирования данного
драйвера на MASM'е нужно вместо строчки:
140.
          ORG     #5B00

вставить комбинацию строчек:

          ORG     #C000
          PHASE   #5B00
2
   При таком подходе MASM сгенерирует объ-
ектный код в адрес #C000, но реально прог-
рамма должна запускаться с адреса #5B00.
   Данное ограничение отсутствует во  всех
версиях TASM'а.

                 *   *   *

Другие статьи номера: