(c)  騭, ᪢

ZXNet : 500:95/462.53
E-mail: bestview@mtu-net.ru
WWW   : http://www.ivr.da.ru

                    ॡ᪠ ࠭
                   

("ZX-" 11-12/1997)
 ᫥ ।஢: 17.03.2003.

    ⭮,  뫪 ᮤন ࠭  (#1800
⮢)   ६, 祬 ஬⮪  
뢠ﬨ.   , ᫨ ࠦ  
  1/50 ᥪ㭤,     1/25 ᥪ㭤, 
ᯮᮡ ⠪ 믮 뫪,     ⥪騩
 -    ⨭;    ᫥騩
 -   㦥  ⨭.
    ᬮਬ,   砥  ᯮᮡ.  
 (#4000-#5800) 室 ࢠ ⨭. ᫥
室  뢠  稭 ᮢ ࠦ,
稭  孥  ࠭,      殢
ᮢ뢠 ᠬ  ப  ࠭.

          Ŀ 
                         
            Ŀ   
                             
              ࠭       ࠭
                             
               
                               
           

     -   稭 ॡ뢠  ⨭ 
  , ண  ⮬  浪,  
ࠦ  ࠭ (..  , ᢥ ). ᪮
 ନ ࠦ ॥, 祬  塞 ᮤন
,  ࠭ 㤥 ࠦ ࢠ ⨭.
    ॡ᪠ ⨭ த  ⮣,   
 ࠭. ⠥, ᪮쪮   ६:  ࠭ -
320 ப,    - 80 ப,    ப
 ᯥ樠쭮 ய⨫. .. ६ ᮢ  ப -
224 ⠪, 砥 (320-81)*224=53536 ⠪⮢.   ६,
筮,     ,  
   㦭.
    ᫥ ⮣,     ࠭, 㯨 ᫥騩
 뢠,   ᮢ뢠 ᫥騩 .
         
࠭ (.. 㦥  ⨭), ,   ६,
ॡ뢠   ⠢  ன ⨭.
ॡ᪠   襭  ⮣ ,   
ᮢ  ப  ࠭, .. 楤 ॡ᪨
 㪫뢠  53536+(80+192-1)*224=114240 ⠪⮢. 
⮣  ⪮ 墠   ॡ᪨ ⨭  
ਡ⠬ ( ⮬ 砥 楤  뫠  ।
8  ⨭  ਡ   8 ).
       "⠣-128". ଥ 
⫨砥    ᫥騬 ࠬࠬ:  
 ⠢ 64 ப  80,   ࠭ 312 ப
 320. ⮡ 楤 ॡ᪨ ࠡ⠫   , 
    (312-81)*224+(64+191)*224=108864
⠪⮢.  ⮣  ࠢ 墠⠥,  뢠,  
/⥭  ULA ମ .   ᫨
, , 㤥 ࠡ ॥ (ࡨ஢
), 楤 ॡ᪨     㦭
१. ⮡  ࠢ쭮 ࠡ⠫   ⮬ 砥, 㦭,
⮡  "㪫뢠  뢠"  蠫 ᢮ ࠡ 
⮣,   ᮢ뢠    ࠭).

     ⥯ -  ணࠬ, 믮騥     :
 1/25 ᥪ㭤   梥 ࠭     
. ࢠ ணࠬ ᯮ LDIR,   ࠡ⠥ 
ᬮ७  .  ࠧ!

    ணࠬ 1:

        LD      HL,#8000 ;1- ⨭.
        LD      (HL),0
        LD      DE,#8001
        LD      BC,#17FF
        LDIR

        LD      HL,#9800 ;2- ⨭.
        LD      (HL),#FF
        LD      DE,#9801
        LD      BC,#17FF
        LDIR

L1      HALT
        LD      HL,#8000
        LD      DE,#4000
        LD      BC,#1800
        LDIR
        HALT
        LD      HL,#9800
        LD      DE,#4000
        LD      BC,#1800
        LDIR

        XOR     A
        IN      A,(254)
        CPL
        AND     31
        JR      Z,L1
        RET


    ணࠬ 2:

PIC1    EQU     #8000    ;1- ⨭.
PIC2    EQU     #9800    ;2- ⨭.

        LD      HL,PIC1
        LD      (HL),0
        LD      DE,PIC1+1
        LD      BC,#17FF
        LDIR

        LD      HL,PIC2
        LD      (HL),#FF
        LD      DE,PIC2+1
        LD      BC,#17FF
        LDIR

;ந ⠡窨  ᠬ ॡ᪨:

        LD      BC,PIC1-#4000
        LD      HL,TABL1
        LD      DE,#4000
        CALL    MAKE_T
        LD      BC,PIC2-#4000
        LD      HL,TABL2
        LD      DE,#4000
        CALL    MAKE_T

; 横 ணࠬ:

LOOP1   LD      HL,TABL1
        LD      DE,BUFER+100
        LD      BC,192*4
        LDIR
        CALL    MOVER

        LD      HL,TABL2
        LD      DE,BUFER+100
        LD      BC,192*4
        LDIR
        CALL    MOVER

        XOR     A
        IN      A,(254)
        CPL
        AND     31
        JR      Z,LOOP1

;---------------------------------------
;楤 MOVER ।⢥
;믮 뫪:

MOVER   HALT

;⮡  뫮 থ  ࠡ
;뢠,  ⠢  DI
;(⮣  室  ⮩ 楤
;㦭 ⠢ EI)

        LD      (QUIT+1),SP
        LD      SP,BUFER+100

;প,    1- ப:

        LD      HL,0
        LD      DE,0
        LD      BC,#330
        LDIR

        LD      BC,#1800

;  ⥪  祭 HL  DE,
;㪠뢠騥  ᫥ ப:

MMMM    POP     DE
        POP     HL

TO_LDI  LDI:LDI:LDI:LDI:LDI:LDI:LDI:LDI
        LDI:LDI:LDI:LDI:LDI:LDI:LDI:LDI
        LDI:LDI:LDI:LDI:LDI:LDI:LDI:LDI
        LDI:LDI:LDI:LDI:LDI:LDI:LDI:LDI

        JP      PE,MMMM ;த...

QUIT    LD      SP,0
        RET

;---------------------------------------
;楤 MAKE_T ந ⠡:

MAKE_T  LD      A,D
        CP      #58
        RET     Z
        LD      (HL),E
        INC     HL
        LD      (HL),D
        INC     HL
        EX      DE,HL
        ADD     HL,BC
        EX      DE,HL
        LD      (HL),E
        INC     HL
        LD      (HL),D
        INC     HL
        EX      DE,HL
        AND     A
        SBC     HL,BC
        EX      DE,HL
        INC     D
        LD      A,D
        AND     7
        JR      NZ,MAKE_T
        LD      A,E
        SUB     #E0
        LD      E,A
        JR      NC,MAKE_T
        LD      A,D
        SUB     8
        LD      D,A
        JR      MAKE_T

;---------------------------------------

TABL1   DS      192*4
TABL2   DS      192*4

;⥪  楤
;ࠡ⪨ 뢠 (᫨  ६
;ࠡ . MOVER 뢠
;饭,   㦥):

BUFER   DS      100

;"ࠧ" ⠡窠 ᮢ ப
;(ࠧ蠥 楤ன ࠡ⪨
;뢠  㦤  ):

        DS      192*4
