(c)  騭, ᪢

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

       㦭  ⨭? ᥢ䨪 !
       

("⥫.  " 10/2000,  ᥢ
 BV_Creator)
(ࢮ砫쭠  -  ZX News #50)
 ᫥ ।஢: 4.05.2003.

      室 ᯥ ᮤন
஬ ᯥ㬮᪮ ࠭  㢥祭 . 
祭  ᤥ    楤, 
४ ࠭ 䠩  ⥪⮢ ᥢ᪨ 䠩,
  㦥   ᯥ   ਭ.
     ४஢   室騬   㣮
ᥫ 室 ࠦ ⠢  ᮮ⢥⢨  
 ᨬ ⥪: #20 (஡) -   ᥫ
몫祭, #DC ("") -   ⮫쪮  ᥫ, #DF
("") -   ⮫쪮 孨 ᥫ, , , #DB
("") -  祭  ᥫ.
    ᫥  祭 ⠪ ࠧ ⥪⮢ 䠩
  砫 ࠦ ଠ A2. ࠦ 
㢥稢  㬥,  ࠧ .
    ,  : ᥫ,  뫨 묨 
࠭,  묨  㬠,  ,   ࠦ
 ஢. ᫨  ⥫쭮, 筮
 冷 ᨬ  ८ࠧ饩 楤 (⪠
DECODE)  .
    ᫨  ந  ਭ  㧪 ⪮, 
ࠦ  㬥頥  ਭ  㬠,   
१  ᪨   ⥪⮢ ।   
.
    ,   ࠦ  ⥪⮢ ଠ 
    ࠧ 㤮, 祬  ᪮,
ᮡ ᫨  ந   ᯥ-ᮢ⨬
,   PC. -, ଠ ⥪   ZX
Spectrum  PC,   ᪨ ଠ ⢥ ࠧ,
 , 諮  ᯮ짮 ணࠬ-८ࠧ⥫ 
 ᪮ ଠ  㣮. , ᫨  ⮢
ணࠬ,  ᫨ ? -,  PC   
 ணࠬ   ᪨ 䠩,   
⥪  ᯥ樠쭠 ணࠬ   㦭: 筮
ᯮ짮  "copy _䠩 prn".
    । ᪮ 楤   #4000  ᯮ
室 ⨭,  ᫥ ᪠   #8000 㤥
ନ஢ ⥪  #6100 ⮢.  ⥪ 㦭 
 ,  ⮬ (᫨  㤥 ந  PC)
९  ᪥ MS-DOS (४  ⮣ ணࠬ
TRMSHOBETA).
     稬,  楤  ᯮ짮  ⮫쪮 
,  㦭  ⨭.  ᥪ,  
⥪⮢ 䠩  ᯮ ᥢ᪨ ⨭
(筮 ᮧ  ⥪⮢ ।).  , ⥯ 
 ᮢ 㦭 ⨭ (ࠧ㬥, 讣
ࠧ)  ᪮ ।,  ᥬ 㤮⢠,  ⥬
८ࠧ   ⥪⮢ ଠ.
     楤 - ᥣ 103 ,     㬥.
 筮  ⠫ ⮣ , ⮡  㤭 
 ࠡ 楤.
      ஡   楤, 室 
᢮ ॡ⥩. ਬ,  ᤥ ⠪, ⮡
८ࠧ뢠   ࠭,      묨
न⠬;    㣨 ᥢ᪨ ᨬ
("","","")  ஬ ⥭   
;    楤  - ᪨
।  㧪 ࠦ  ⥪⮢ ଠ...  
  !

     楤 ८ࠧ:

DESTIN  EQU     #8000

        LD      DE,#00BF  ;न.
        LD      HL,DESTIN ; txt.

        LD      B,128
LP_MAIN PUSH    BC        ; 横.

LP_2    CALL    GET_P
        ADD     A,A
        LD      B,A
        INC     D
        CALL    GET_P
        DEC     D
        ADD     A,B

        EXX
        LD      HL,DECODE
        LD      D,0
        LD      E,A
        ADD     HL,DE
        LD      A,(HL)
        EXX

        LD      (HL),A
        INC     HL

        DEC     E
        LD      A,E
        CP      -1
        JR      NZ,LP_2

        INC     D
        INC     D
        LD      E,191

        LD      (HL),13  ;
        INC     HL       ;ॢ
        LD      (HL),10  ;ப.
        INC     HL

        POP     BC
        DJNZ    LP_MAIN

        RET

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

DECODE  DB  #20,#DC,#DF,#DB ;.

;---------------------------------------
;楤 GET_P - 㧭 梥 窨.
;
;室: DE - न 窨 (X,Y).
;室: A - 梥 (0  1).
;
;祭 㣨 ॣ஢  .

GET_P   PUSH    HL
        PUSH    DE
        PUSH    BC

        LD      A,E
        AND     A
        RRA
        SCF
        RRA
        AND     A
        RRA
        XOR     E
        AND     #F8
        XOR     E
        LD      H,A
        LD      A,D
        RLCA
        RLCA
        RLCA
        XOR     E
        AND     #C7
        XOR     E
        RLCA
        RLCA
        LD      L,A
        LD      A,D
        AND     7
        LD      B,A
        INC     B
        LD      A,1
LOOP    RRCA
        DJNZ    LOOP

        LD      B,(HL)
        AND     B

        POP     BC
        POP     DE
        POP     HL

        CP      0
        RET     Z
        LD      A,1
        RET
