
          JR   NC,PTBL_5
          LD   D,A
          INC  HL
          PUSH HL
          LD   A,E
          AND  #18
          ADD  A,#40
          LD   H,A
          LD   A,E
          AND  7
          RRCA
          RRCA
          RRCA
          ADD  A,D
          LD   L,A
          POP  DE
          LD   B,8
PTLB_2    LD   A,(DE)
MODE      NOP
          LD   (HL),A
          INC  H
          INC  DE
          DJNZ PTBL_2
          EX   DE,HL
PTBL_3    POP  DE
          POP  AF
          DEC  A
          JR   NZ,PTBL_1
          RET
PTBL_4    INC  HL
PTBL_5    LD   DE,9
          ADD  HL,DE
          JR   PTBL_3

    ࠧ -   ᬮ५    "" <   
ᥬ>.

2.  ᫨  ࢮ 楤  ⢮,    .
 ।祭   ࠩ  ᢮ ⨪쭮 .
    室  HL -  砫 ࠩ.

SP_MIRROR      LD   A,(HL)
MIR_1          INC  HL
               PUSH AF
               INC  HL
               LD   A,9    ; ਭ ࠩ
               SUB  (HL)
               LD   (HL),A
               LD   B,8
MIR_2          INC  HL
               LD   A,(HL)
               RLA
               RR   D
               RLA
               RR   D
               RLA
               RR   D
               RLA
               RR   D
               RLA
               RR   D
               RLA
               RR   D
               RLA
               RR   D
               RLA
               RR   D
               LD   (HL),D
               DJNZ MIR_2
               POP  AF
               DEC  A
               JR   NZ,MIR_1
               RET

**************************************************
   () 殢 ३
                .᭮쨭, 1996

   ।  ணࠬ,  믮  ࠭
᫥騬 ᯮᮡ: ࠦ ( ਡ⮢) ᤢ 
ࠧ ( ᨬ  VAR2  VAR3) ⭮⥫쭮 業
࠭.  楤 뫠 祭  稪 ணࠬ
"Joe Blade II"

     ORG  40000
     ENT  $
     LD   D,0       ;VAR1
L1   PUSH BC
     LD   HL,16384
     LD   E,192
L2   LD   BC,4112
     RLC  D
L3   RR   (HL)      ;VAR2
     INC  HL
     DJNZ L3
     ADD  HL,BC
     LD   B,16
     RLC  D
L4   DEC  HL
     RL   (HL)      ;VAR3
     DJNZ L4
     ADD  HL,BC
     DEC  E
     JR   NZ,L2
     POP  BC
     DJNZ L1
     RET

ਨ:
1. ६ VAR1. 뫠  ॣ D ᫮ 0...255, 
믮 楤 ࠭ 㤥  ⨬ ⮬ (
 ⠥ ᫥).
2. ६ VAR2  VAR3.  ⠢  ᤢ
ᮤন    㪠뢠 HL ( ⨭ ६
ᯥ稢 ᤢ ࠦ  業 ࠭).

************************   ************************
 , ..
         .:  ।  ५㥬 楤,  ॢ稢 
࠭   ᯮ짮 . 쭥訥 ࠢ ꥤ     
 CLOCK   ZX  94/2   ਪ稪  IBM. 祭 ,  ⮫ 
筠 楤  "  ".
          祭 䥪⭮!

         ORG   #9C40
         LD    HL,#4000
         LD    DE,#57FF
         LD    BC,#C00
CYCL     PUSH  BC
         PUSH  HL
         PUSH  DE
         LD    L,(HL)
         LD    B,#8
LOOP1    RR    L
         RL    H
         DJNZ  LOOP1
         LD    A,H
         EX    DE,HL
         LD    L,(HL)
         LD    B,#8
LOOP2    RR    L
         RL    H
         DJNZ  LOOP2
         POP   DE
         LD    (DE),A
         LD    A,H
         POP   HL
         LD    HL,A
         DEC   DE
         INC   HL
         DEC   BC
         LD    A,B
         OR    C
         JR    NZ,CYKL
         LD    HL,#5800
         LD    DE,#5AFF
         LD    BC,#180
ATR      PUSH  HL
         LD    L,(HL)
         LD    A,(DE)
         LD    H,A
         LD    A,L
         LD    (DE),A
         LD    A,H
         POP   HL
         LD    HL,A
         INC   HL
         DEC   DE
         DEC   BC
         LD    A,B
         OR    C
         JR    NZ,ATR
         RET

           MON:

#9C40    21 00 40 11 FF 57 01 00
#9C48    0C C5 E5 D5 6E 06 08 CB
#9C50    1D CB 14 10 FA 7C EB 6E
#9C58    06 08 CB 1D CB 14 10 FA
#9C60    D1 12 7C E1 77 1B 23 C1
#9C68    0B 78 B1 20 DC 21 00 58
#9C70    11 FF 5A 01 80 01 E5 6E
#9C78    1A 67 7D 12 7C E1 77 23
#9C80    1B 0B 78 B1 20 F0 C9 00
***********************************************************************
      .:   祭   ᫠   ., ଠ᪮ ., ᫠ 
ਠ,    猪  稭 ணࠬ⮢.
         :  ணࠬ, ।  ࠭ ZX-  
  ᮡ ਢ ५㥬 楤.  ,  ᫨ ணࠬ  
  (浪 ᪮쪮  ),    易⥫쭮  
५㥬.
      誮 㦥     த஢ १ 
 㤮.
      楤  ࣠  䥩.  
ந  ࠭    ਭ  , ஥ 뢠 ⥭ 
ਭ   . ⤠  ࠤ 楤 뢠 १:

DEF FN R(X,Y,Len,Hig,Col,Sh)=USR add

: X,Y  -  न  孥   㣫 ;
     Len  Hig -    ;
     Col - 梥⮢ ਡ ;
     Sh - 梥⮢ ਡ ⥭;
     add -   㧪 楤.
        뢠  , ⠪  ᫥ ᮢ  (㭪).
  ⨬묨 祭ﬨ  ࠬ஢ 楤  ᫥.  
 ࠬ஢      ⥬ ६  Def Add (23563), ᯮ 
ᬥ饭.  ᫨ ᯮ짮 楤   ᨪ,   ணࠬ  誮, 
  ॣ IX  㦭  ᢮ ,  ஬   㣨  
祭 X, y, Len  ..  ᫥ 砥 ਤ ࠢ ᬥ饭,  
  ᤥ   .

       ᫨  ᨪ    ᫨  誮
        Def Fn

      LD    IX,(23563)    LD     IX,adr
X         (IX+4)              (IX+0)
Y         (IX+12)             (IX+1)
Len       (IX+20)             (IX+2)
Hig       (IX+28)             (IX+3)
Col       (IX+36)             (IX+4)
Sh        (IX+44)             (IX+5)

         楤  ⮨   ᨬ ⥩: ᮢ ࠬ  
 RST 16   ਡ⮢. ᫨ 㤠 ப 80  570  :

570 NEXT LD    IX,(23563)
571      LD    E,(IX+4)
572      LD    D,(IX+12)

  楤 㤥   窨 室  ᠬ add  add+90.
add - ᮢ ᥣ .
add+90 - ⮫쪮 ਡ.
           楤   㧪.  - 154 .

; (C) Savchenko Vladislav, 1996
10         ENT   $
20         LD    IX,(23563)
30         LD    A,2
40         CALL  #1601
50         LD    C,(IX+4)
60         LD    B,(IX+12)
70         PUSH  BC
80         PUSH  BC
90         XOR   A
100        PUSH  AF
110        CALL  2715
120        LD    C,131
130        LD    DE,#8B87
140 STROKA LD    A,D
150        RST   #10
160        LD    B,(IX+20)
170 LOOP   LD    A,C
180        RST   #10
190        DJNZ  LOOP
200        LD    A,E
210        RST   #10
220        POP   AF
230        AND   A
240        JR    NZ,NEXT
250        POP   DE
260        LD    B,(IX+28)
270 LOOP2  PUSH  BC
280        INC   D
290        LD    C,E
300        LD    B,D
310        PUSH  DE
320        CALL  2715
330        POP   DE
340        LD    A,138
350        RST   #10
360        LD    A,(IX+20)
370        INC   A
380        ADD   A,E
390        LD    C,A
400        LD    B,D
410        PUSH  DE
420        CALL  2715
430        POP   DE
440        LD    A,133
450        RST   #10
460        POP   BC
470        DJNZ  LOOP2
480        INC   D
490        LD    B,D
500        LD    C,E
510        CALL  2715
520        LD    C,140
530        LD    DE,#8E8D
540        INC   A
550        PUSH  AF
560        JR    STROKA
570 NEXT   POP   DE
580        LD    A,D
590        AND   #18
600        RRCA
610        RRCA
620        RRCA
630        OR    #58
640        LD    H,A
650        LD    A,D
660        AND   #07
670        RRCA
680        RRCA
690        RRCA
700        ADD   A,E
710        LD    L,A
720        LD    B,(IX+28)
730        INC   B
740        INC   B
750        LD    D,1
760        LD    E,(IX+20)
770        INC   E
780        INC   E
790 LOOP3  PUSH  BC
800        LD    B,E
810        PUSH  HL
820        LD    A,(IX+36)
830 LOOP4  LD    (HL),A
840        INC   HL
850        DJNZ  LOOP4
860        DEC   D
870        JR    Z,NEXT2
880        LD    A,(IX+44)
890        LD    (HL),A
900 NEXT2  POP   HL
910        LD    DE,#0020
920        ADC   HL,DE
930        POP   BC
940        DJNZ  LOOP3
950        INC   HL
960        LD    B,E
970 LOOP5  LD    (HL),A
980        INC   HL
990        DJNZ  LOOP5
1000       RET


       楤 - 饭 ५㥬 ਠ, 㡫 ࠭ 
 ZX  楤 Select.   ᯮ짮   ਥ,    ⮫쪮  
ᬮ७ , ..

Def Fn S(X,Y,Len,N,Col)=USR add

Len -  ᪨;
N - ⢮ 롨ࠥ 㭪⮢;
Col - 梥⮢ ਡ ᪨.

  ॣ C 楤 頥  ࠭ 㭪.     
 ᨪ,   ।  ਣ:

Np = RANDOMIZE Fn S(X,Y,Len,N,Col)

ணࠬ ⠭  ७     ࠡ  ᨪ. , 
 ᫮ ।    ᯮ짮  誮  ""   
.
     ।  楤,  ࣠    ணࠬ  
 .

; (C) Savchenko Vladislav, 1996
10         ENT   $
20         LD    IX,(23563)
30         LD    D,(IX+4)
40         LD    E,(IX+12)
50         LD    A,E
60         AND   #18
70         RRCA
80         RRCA
90         RRCA
100        OR    #58
110        LD    H,A
120        LD    A,E
130        AND   #07
140        RRCA
150        RRCA
160        RRCA
170        ADD   A,D
180        LD    L,A
190        LD    DE,#0020
200        LD    B,(IX+28)
210        LD    C,D
220        DEC   B
230 LEN    PUSH  BC
240        LD    B,(IX+20)
250        LD    C,(HL)
260        PUSH  BC
270        LD    A,(IX+36)
280        PUSH  HL
290 LOOP1  LD    (HL),A
300        INC   HL
310        DJNZ  LOOP1
320        POP   HL
330        RES   5,(IY+1)
340 KEY    BIT   5,(IY+1)
350        JR    Z,KEY
360        LD    A,(IY-50)
370        CP    14
380        JR    NC,KEY
390        CP    10
400        JR    C,KEY
410        POP   BC
420        PUSH  HL
430 LOOP2  LD    (HL),C
440        INC   HL
450        DJNZ  LOOP2
460        POP   HL
470        POP   BC
480        CP    13
490        JR    C,NEXTA
500        LD    B,0
510        INC   C
520        RET
530 NEXTA  CP    11
540        JR    C,NEXTB
550        LD    A,C
560        OR    A
570        JR    Z,LEN
580        SBC   HL,DE
590        DEC   C
600        JR    LEN
610 NEXTB  LD    A,C
620        CP    B
630        JR    NC,LEN
640        ADC   HL,DE
650        DEC   HL
660        INC   C
670        JR    LEN

                  110 .

     .:  ⭮  ᮡ ⮩ 楤,  ,   
ࠡ⠥ ⮫쪮  ࠧ襭 뢠 IM1.   . ᫨  ࠡ⠥ 
 묨 뢠ﬨ,   ᮢ⮢   ࠡ⪨ 뢠 
  CALL #66. ᫨    ᯮ짮 뢠 ,   
।⥫쭥,  ⠢    ப 330  340,  ⠪ 
७     KEY. ᫨     ந,  ⠩ 
 ᠬ.
*************************************************************************
(c)  ࣥ , 1996

     । 楤,   . 楤 
ᯮ짮, ਬ,  ᮮ饭 "Game Over"   ᪨
⠢. ,  㤥 ᭮ ஡ ᢮ ᨫ  ணࠬ஢,
 । ꥤ ணࠬ,  ⥫ (ZX-ॢ 96/4-5 , 
. 7)   ணࠬ ⠪, ⮡  ⮣ 稫 䥪 ய
ᨣ,   ,  ⮬  .  㤥  
ணࠬ ⠪ த,  ⪠ ࠭ ⠬ ந  ⠬.

 10         ORG     40000
 20         LD      A,#3F
 30         LD      (23693),A
 40         LD      (23624),A
 50         OUT     (#FE),A
 60         CALL    #0D6B         ; ࠭ 
 70         HALT
 80         LD      A,#07
 90         LD      (23693),A
100         LD      (23624),A
110         XOR     A
120         OUT     (#FE),A
130         CALL    #0D6B         ; ࠭ 
140         LD      HL,20064
150         LD      B,32
160         LD      A,#FF
170 L0      LD      (HL),A
180         INC     H
190         LD      (HL),A
200         DEC     H
210         INC     L
220         DJNZ    L0            ;  ஢ ࠧ⪨ (
                                     । ࠭)
230         LD      A,3
240         LD      (23697),A
250         LD      BC,#5000
260         LD      HL,#80FF
270 L1      CALL    PLOT
280         PUSH    BC
290         INC     B
300         CALL    PLOT
310         LD      C,L
320         CALL    PLOT
330         DEC     B
340         CALL    PLOT
350         HALT
360         POP     BC
370         INC     C
380         DEC     L
390         DEC     H
400         JR      NZ,L1         ; ய 殮
410         LD      A,3
420         LD      (20079),A
430         LD      (20335),A
440         XOR     A
450 L2      LD      (22895),A
460         CALL    PAUSE
470         INC     A
480         CP      #08
490         JR      NZ,L2         ;  ⭮
500 L3      CALL    PAUSE
510         DEC     A
520         LD      (22895),A
530         JR      NZ,L3         : ᭥ ⭮
540         RET
550 PAUSE   PUSH    AF
560         LD      A,4
570 L00     HALT
580         DEC     A
590         JR      NZ,L00
600         POP     AF
610         RET
620 PLOT    PUSH    HL
630         PUSH    BC
640         CALL    #22E5
650         POP     BC
660         POP     HL
670         RET

9C40: 3E 3F 32 8D 5C 32 48 5C :4A
9C48: D3 FE CD 6B 0D 76 3E 07 :B5
9C50: 32 8D 5C 32 48 5C AF D3 :5F
9C58: FE CD 6B 0D 21 60 4E 06 :0C
9C60: 20 3E FF 77 24 77 25 2C :BC
9C68: 10 F9 3E 03 32 91 5C 01 :6E
9C70: 00 50 21 FF 80 CD B3 9C :18
9C78: C5 04 CD B3 9C 4D CD B3 :C6
9C80: 9C 05 CD B3 9C 76 C1 0C :1C
9C88: 2D 25 20 E9 3E 03 32 6F :61
9C90: 4E 32 6F 4F AF 32 6F 59 :13
9C98: CD AA 9C 3C FE 08 20 F5 :9E
9CA0: CD AA 9C 3D 32 6F 59 20 :A6
9CA8: F7 C9 F5 3E 04 76 3D 20 :0E
9CB0: FC F1 C9 E5 C5 CD E5 22 :80
9CB8: C1 E1 C9 00 00 00 00 00 :BF
*************************************************************
(c) ન ਩, 1996

     । 楤 ⪨ ࠭ 䥪⮬ ⪫祭 ⥫. 
㦥 ਫ ,  ணࠬ 頥 ࠭  ⠬,  
뫮     . ⮬ ,  ᭮ 
ᯥਬ஢.

 10         ORG     40000
 20         LD      B,5
 30         CALL    SNEG
 40         LD      HL,0
 50         LD      (VAR),HL
 60         LD      HL,22528
 70         LD      DE,23264
 80         LD      B,11
 90 L0      PUSH    BC
 00         PUSH    HL
110         PUSH    DE
120         LD      B,32
130 L1      LD      (HL),0
140         XOR     A
150         LD      (DE),A
160         INC     HL
170         INC     DE
180         DJNZ    L1
190         LD      B,1
200         CALL    SNEG
210         POP     DE
220         POP     HL
230         LD      B,32
240 L2      DEC     DE
250         DJNZ    L2
260         LD      BC,32
270         ADD     HL,BC
280         POP     BC
290         DJNZ    L0
300         LD      HL,22880
310         LD      DE,22911
320         LD      B,16
330 L4      PUSH    BC
340         LD      B,1
350 L3      PUSH    BC
360         LD      (HL),0
370         PUSH    HL
380         LD      BC,32
390         ADD     HL,BC
400         LD      (HL),0
410         POP     HL
420         XOR     A
430         LD      (DE),A
440         PUSH    DE
450         LD      A,32
460         ADD     A,E
470         LD      E,A
480         XOR     A
490         LD      (DE),A
500         POP     DE
510         POP     BC
520         DJNZ    L3
530         INC     HL
540         DEC     DE
550         LD      B,1
560         CALL    SNEG
570         POP     BC
580         DJNZ    L4
590         LD      HL,16384
600         LD      DE,16385
610         LD      BC,6144
620         LD      (HL),0
630         LDIR
640         RET
650 SNEG    PUSH    HL
660         PUSH    DE
670         LD      HL,(VAR)
680 L5      PUSH    BC
690         PUSH    HL
700         LD      DE,16384
710         LD      BC,6144
720         LDIR
730         POP     HL
740         LD      BC,20
750         ADD     HL,BC
760         POP     BC
770         DJNZ    L5
780         LD      (VAR),HL
790         POP     DE
800         POP     HL
810         RET
820 VAR     DEFW    0

9C40: 06 05 CD AE 9C 21 00 00 :1F
9C48: 22 CB 9C 21 00 58 11 E0 :D7
9C50: 5A 06 0B C5 E5 D5 06 20 :FC
9C58: 36 00 AF 12 23 13 10 F8 :29
9C60: 06 01 CD AE 9C D1 E1 06 :D2
9C68: 20 1B 10 FD 01 20 00 09 :76
9C70: C1 10 E0 21 60 59 11 7F :27
9C78: 59 06 10 C5 06 01 C5 36 :4A
9C80: 00 E5 01 20 00 09 36 00 :61
9C88: E1 AF 12 D5 3E 20 83 5F :DB
9C90: AF 12 D1 C1 10 E8 23 1B :B5
9C98: 06 01 CD AE 9C C1 10 DB :FE
9CA0: 21 00 40 11 01 40 01 00 :F0
9CA8: 18 36 00 ED B0 C9 E5 D5 :B2
9CB0: 2A CB 9C C5 E5 11 00 40 :D8
9CB8: 01 00 18 ED B0 E1 01 14 :00
9CC0: 00 09 C1 10 EE 22 CB 9C :AD
9CC8: D1 E1 C9 00 00 00 00 00 :DF
*****************************************************************************
(c) મ , 1996

     ᫠  楤,    ந  ࠭
ਣ ᯮᮡ,  㣠 뢮 ⨭  ࠭ ⥬  ᯮᮡ. 
ன 楤 室 㧨 ⨭   BUFF.
      ⥯ । ⨭ ணࠬ ⪨ ࠭.

  10         ORG     30000
  20         CALL    INIT
  30 PRN1    LD      DE,22527
  40         LD      HL,BUFF+6143+640
  50         LD      B,212
  60 LOOP2   PUSH    BC
  70         PUSH    HL
  80         PUSH    DE
  90         LD      BC,256+32
 100 L2      PUSH    BC
 110 L3      PUSH    HL
 120         PUSH    DE
 130         PUSH    BC
 140         LD      BC,32
 150         LDDR
 160         POP     BC
 170         POP     DE
 180         POP     HL
 190         CALL    DWN_D
 200         LD      A,D
 210         CP      88
 220         POP     IX
 230         JR      NC,EXT
 240         PUSH    IX
 250         DJNZ    L3
 260         ADD     HL,BC
 270         POP     BC
 280         INC     B
 290         LD      A,D
 300         CP      88
 310         JR      C,L2
 320 EXT     POP     DE
 330         LD      A,D
 340         AND     7
 350         JR      NZ,PASS3
 360         LD      A,D
 370         RRCA
 380         RRCA
 390         RRCA
 400         AND     3
 410         OR      88
 420         PUSH    DE
 430         LD      D,A
 440         PUSH    DE
 450         POP     HL
 460         DEC     DE
 470         LD      (HL),71
 480         LD      BC,31
 490         LDDR
 500         POP     DE
 510 PASS3   POP     HL
 520         CALL    UP_D
 530         LD      A,D
 540         CP      64
 550         JR      NC,L7
 560         CALL    DWN_D
 570 L7      LD      BC,32
 580         AND     A
 590         SBC     HL,BC
 600         POP     BC
 610         LD      A,B
 620         CP      140
 630         JR      C,PASS1
 640         HALT
 650 PASS1   DJNZ    LOOP2
 660         RET
 670 INIT    XOR     A
 680         OUT     (254),A
 690         LD      DE,BUFF+1
 700         LD      HL,BUFF
 710         LD      (HL),A
 720         LD      BC,639
 730         LDIR
 740         LD      HL,16384
 750         LD      B,192
 760 L1      PUSH    HL
 770         PUSH    BC
 780         LD      BC,32
 790         LDIR
 800         POP     BC
 810         POP     HL
 820         CALL    DWN_H
 830         DJNZ    L1
 840         RET
 850 DWN_H   INC     H
 860         LD      A,H
 870         AND     7
 880         RET     NZ
 890         LD      A,L
 900         ADD     A,32
 910         LD      L,A
 920         RET     C
 930         LD      A,H
 940         SUB     8
 950         LD      H,A
 960         RET
 970 DWN_D   INC     D
 980         LD      A,D
 990         AND     7
1000         RET     NZ
1010         LD      A,E
1020         ADD     A,32
1030         LD      E,A
1040         RET     C
1050         LD      A,D
1060         SUB     8
1070         LD      D,A
1080         RET
1090 UP_D    DEC     D
1100         LD      A,D
1110         AND     7
1120         CP      7
1130         RET     NZ
1140         LD      A,E
1150         SUB     32
1160         LD      E,A
1170         RET     C
1180         LD      A,D
1190         ADD     A,8
1200         LD      D,A
1210         RET
1220 BUFF    DEFS    6784

7530: CD 9A 75 11 FF 57 21 6B :74
7538: 90 06 D4 C5 E5 D5 01 20 :B7
7540: 01 C5 E5 D5 C5 01 20 00 :1B
7548: ED B8 C1 D1 E1 CD CC 75 :E3
7550: 7A FE 58 DD E1 30 0C DD :6C
7558: E5 10 E7 09 C1 04 7A FE :EF
7560: 58 38 DE D1 7A E6 07 20 :9B
7568: 15 7A 0F 0F 0F E6 03 F6 :78
7570: 58 D5 57 D5 E1 1B 36 47 :B7
7578: 01 1F 00 ED B8 D1 E1 CD :31
7580: DB 75 7A FE 40 30 03 CD :FD
7588: CC 75 01 20 00 A7 ED 42 :35
7590: C1 78 FE 8C 38 01 76 10 :87
7598: A2 C9 AF D3 FE 11 ED 75 :6B
75A0: 21 EC 75 77 01 7F 02 ED :7D
75A8: B0 21 00 40 06 C0 E5 C5 :9E
75B0: 01 20 00 ED B0 C1 E1 CD :52
75B8: BD 75 10 F2 C9 24 7C E6 :B0
75C0: 07 C0 7D C6 20 6F D8 7C :22
75C8: D6 08 67 C9 14 7A E6 07 :C6
75D0: C0 7B C6 20 5F D8 7A D6 :ED
75D8: 08 57 C9 15 7A E6 07 FE :EF
75E0: 07 C0 7B D6 20 5F D8 7A :3E
75E8: C6 08 57 C9 00 00 00 00 :4B

      ⥯ ணࠬ 뢮 ⨭  ࠭. ᫨ ࠢ  ணࠬ,
  ,   쭮 宦.

  10         ORG     30000
  20         CALL    INIT
  30 PRN1    LD      DE,22527
  40         LD      HL,BUFF+6143+576+768
  50         LD      B,192+18
  60 LOOP2   PUSH    BC
  70         PUSH    DE
  80         PUSH    HL
  90         LD      A,B
 100         LD      BC,256+32
 110         CP      193
 120         JR      NC,L2
 130         LD      A,D
 140         CPL
 150         AND     7
 160         JR      NZ,L2
 170         LD      A,D
 180         RRCA
 190         RRCA
 200         RRCA
 210         AND     3
 220         PUSH    DE
 230         PUSH    HL
 240         PUSH    BC
 250         LD      D,A
 260         LD      HL,BUFF
 270         ADD     HL,DE
 280         OR      88
 290         LD      D,A
 300         LD      BC,32
 310         LDDR
 320         POP     BC
 330         POP     HL
 340         POP     DE
 350 L2      PUSH    BC
 360 L3      PUSH    HL
 370         PUSH    DE
 380         PUSH    BC
 390         LD      BC,32
 400         LDDR
 410         POP     BC
 420         POP     DE
 430         POP     HL
 440         CALL    UP_D
 450         LD      A,D
 460         CP      64
 470         POP     IX
 480         JR      C,EXT
 490         PUSH    IX
 500         DJNZ    L3
 510         AND     A
 520         SBC     HL,BC
 530         POP     BC
 540         INC     B
 550         LD      A,D
 560         CP      64
 570         JR      NC,L2
 580 EXT     POP     HL
 590         LD      BC,32
 600         AND     A
 610         SBC     HL,BC
 620         POP     DE
 630         POP     BC
 640         LD      A,B
 650         CP      193
 660         JR      NC,PASS3
 670         CALL    UP_D
 680         LD      A,B
 690 PASS3   CP      65
 700         JR      NC,PASS1
 710         HALT
 720 PASS1   DJNZ    LOOP2
 730         RET
 740 INIT    XOR     A
 750         OUT     (254),A
 760         LD      HL,22528
 770         LD      DE,22529
 780         LD      BC,767
 790         LD      (HL),A
 800         LDIR
 810         LD      HL,BUFF
 820         LD      DE,16384
 830         LD      BC,6144
 840         LDIR
 850         LD      DE,BUFF
 860         LD      BC,768
 870         LDIR
 880         LD      HL,16384
 890         LD      B,192
 900 L1      PUSH    HL
 910         PUSH    BC
 920         LD      BC,32
 930         LDIR
 940         POP     BC
 950         POP     HL
 960         CALL    DWN_H
 970         DJNZ    L1
 980         PUSH    DE
 990         POP     HL
1000         INC     DE
1010         LD      (HL),B
1020         LD      BC,575
1030         LDIR
1040         LD      HL,16384
1050         LD      DE,16385
1060         LD      (HL),B
1070         LD      BC,6143
1080         LDIR
1090         INC     DE
1100         INC     HL
1110         LD      BC,767
1120         LD      (HL),71
1130         LDIR
