(c) Савинов Алексей,
г.Кировск, Мурманская обл.

   Данная процедура обеспечивает
вывод на экран символов  двойной
ширины.
145.
     ORG  60000
     ENT
     LD   A,(23296)
DBS  LD   L,A
     LD   H,0
     ADD  HL,HL
     ADD  HL,HL
     ADD  HL,HL
     LD   DE,(23606)
     ADD  HL,DE
     EX   DE,HL
     LD   HL,(23684)
     LD   B,8
     PUSH HL
DBS1 PUSH BC
     PUSH DE
     LD   A,(DE)
     LD   DE,0
     LD   B,8
DBS2 RLCA
     PUSH AF
     RL   E
     RL   D
     POP  AF
     RL   E
     RL   D
     DJNZ DBS2
     LD   (HL),D
     INC  HL
     LD   (HL),E
     DEC  HL
     POP  DE
     INC  H
     INC  DE
     POP  BC
     DJNZ DBS1
     POP  HL
     INC  HL
     INC  HL
     LD   (23684),HL
     RET
2
   Ее дамп:

EA60: 3A 00 5B 6F 26 00 29 29:C6
EA68: 29 ED 5B 36 5C 19 EB 2A:83
EA70: 84 5C 06 08 E5 C5 D5 1A:E1
EA78: 11 00 00 06 08 07 F5 CB:48
EA80: 13 CB 12 F1 CB 13 CB 12:06
EA88: 10 F3 72 23 73 2B D1 24:9D
EA90: 13 C1 10 E1 E1 23 23 22:88
EA98: 84 5C C9 00 00 00 00 00:2B

   Протестировать данную  проце-
дуру можно с  помощью  следующей
программы на BASICе:

10 LOAD "DBLSYM" CODE 60000
20 PRINT AT 5,0
30 LET A$="SAVINOV ALEXEJ"
40 FOR N=1 TO LEN A$
50 POKE 23296,CODE A$(N)
60 RANDOMIZE USR 60000
70 NEXT N

   Следующая процедура обеспечи-
вает "растворение" символов. Она
взята  из  программы  "LODE RUN-
NER".
145.
      ORG  40000
LOOP1 LD   B,8
      LD   DE,0
LOOP2 LD   HL,#4000
      PUSH DE
LOOP3 LD   A,(DE)
      AND  (HL)
      LD   (HL),A
      INC  HL
      INC  DE
      LD   A,H
      CP   #58
      JR   NZ,LOOP3
      PUSH BC
      LD   BC,1    ; PAUSE
      CALL 7997
      POP  BC
      POP  DE
      LD   HL,100
      ADD  HL,DE
      EX   DE,HL
      DJNZ LOOP2
      CALL 3435
      RET
2
  Ее дамп:

9C40: 06 08 11 00 00 21 00 40:5C
9C48: D5 1A A6 77 23 13 7C FE:A0
9C50: 58 20 F6 C5 01 01 00 CD:EE
9C58: 3D 1F C1 D1 21 64 00 19:80
9C60: EB 10 E2 CD 6B 0D C9 00:E7