(c)  騭, ᪢

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

          ࠩ ࠭   "⠣-128"
          

("ZX-" 3-4/1997)
( ᫥ ।஢: 23.10.2002)

    ।  襬    ࠩ  ࠭  -  
 楤  ᥬ (211 ⮢), 뢠   뢠-
  2- த.  ᯮ  ࠩ, 祭  
 ணࠬ,   ॠ   ࠭    multicolor-䥪
 (  ப   ஬  ᢮ 梥⮬). 
 ⮬    ஡,  易  ࠧ筮 ᨭ஭樥 
 ࠧ  ⨯  ஢,  ⮩  ࠩ
 (। ਠ ⠭  "⠣-128").

      ਬ ணࠬ, ᯮ饩 ࠩ  ॠ樨
 ⥩襣 䥪:  ࠭    梥  .
   ᮡ      ,   ணࠬ 
 䥪,  ⠪    ணࠬ - ᥣ  217 ⮢  (
 ࠩ).

        ORG     #6000

;᭮ ணࠬ:

N       EQU     37  ;  ⨪  .

        LD      HL,#5800 ;⠭
        LD      DE,#5801 ;ਡ⮢
        LD      BC,#2FF  ;( 易⥫쭮).
        LD      (HL),L
        LDIR

;㥬  (室  multicolor'):

        LD      HL,#4000
LP1     XOR     A
        BIT     0,H
        JR      NZ,NE_FF
        CPL
NE_FF   LD      (HL),A
        INC     HL
        LD      A,H
        CP      #58
        JR      NZ,LP1

;樠 䥪:

        CALL    E_INIT

;⮡ 뢠 ࠩ  뢠,
;ନ㥬 ⠡, ਬ,  
;#FEFE:

        LD      HL,#FE00
        LD      B,0
LOOPT   LD      (HL),#62
        INC     HL
        DJNZ    LOOPT
        LD      (HL),#62
        LD      A,#FE
        LD      I,A
        IM      2

LOOP_M  HALT
        CALL    EFFECT
        IN      A,(254)  ;- ?
        CPL
        AND     %00011111
        JR      Z,LOOP_M ;᫨ 
        IM      1
        RET              ;室  ணࠬ

;---------------------------------------
; 䥪 "梥 ":

;窠 室  樠樨:

E_INIT  LD      HL,DATA+40
        LD      DE,DATA+41
        LD      BC,300
        LD      (HL),0
        LDIR
        LD      HL,DATA
        LD      DE,DATA+1
        LD      BC,39
        LD      (HL),7
        LDIR
        RET

;窠 室  맮 ࠧ  뢠:

EFFECT  LD      HL,(A_BEG)
        LD      B,1
        LD      A,(A_WAY)
        CALL    MOVE
        LD      (A_WAY),A
        LD      (A_BEG),HL

        LD      HL,(B_BEG)
        LD      B,2
        LD      A,(B_WAY)
        CALL    MOVE
        CALL    MOVE
        LD      (B_WAY),A
        LD      (B_BEG),HL

        LD      HL,(C_BEG)
        LD      B,4
        LD      A,(C_WAY)
        CALL    MOVE
        CALL    MOVE
        CALL    MOVE
        LD      (C_WAY),A
        LD      (C_BEG),HL

        RET

;楤 MOVE ᤢ :

MOVE    AND     A
        JR      NZ,MOVE_D

; :

        LD      A,H
        OR      L
        JR      Z,MOVE_D
MOVE_UP DEC     HL
        PUSH    HL
        LD      DE,DATA
        ADD     HL,DE
        LD      A,(HL)
        OR      B
        LD      (HL),A
        LD      DE,40
        ADD     HL,DE
        LD      A,(HL)
        XOR     B
        LD      (HL),A
        POP     HL
        XOR     A
        RET

; :

MOVE_D  LD      DE,297-40
        AND     A
        SBC     HL,DE
        PUSH    AF
        ADD     HL,DE
        POP     AF
        JR      Z,MOVE_UP
        PUSH    HL
        LD      DE,DATA
        ADD     HL,DE
        LD      A,(HL)
        XOR     B
        LD      (HL),A
        LD      DE,40
        ADD     HL,DE
        LD      A,(HL)
        OR      B
        LD      (HL),A
        POP     HL
        INC     HL
        LD      A,1
        RET

A_BEG   DW      0  ;न
B_BEG   DW      0  ;
C_BEG   DW      0

A_WAY   DB      0  ;ࠢ
B_WAY   DB      0  ;
C_WAY   DB      0

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

        ORG     #6262

;=======================================
;ࠩ ࠭:

        DI
        PUSH    AF  ;࠭塞 祭
        PUSH    BC  ;ᯮ㥬
        PUSH    DE  ;ॣ஢.
        PUSH    HL
        PUSH    IX
        PUSH    IY
        LD      (M122+1),SP

;প,      孥 ப:

        LD      D,H    ;WAIT
        LD      E,L    ;WAIT
        LD      BC,171 ;WAIT
        LDIR           ;WAIT

        LD      IX,DATA+1 ; ⠡
        LD      HL,#5720  ;⥪騩  ਡ⮢
        LD      BC,3      ;B - ᥣ 0, C - 稪.
        LD      A,(DATA)  ;梥 ࢮ ப
        LD      YL,A      ; 梥
        LD      DE,#20

;  砫 । ப:

M3      LD      SP,HL
        SBC     HL,DE

        LD      A,YL
        OUT     (254),A

        LD      A,(IX+1)
        LD      YL,A
        AND     A
        RLCA
        RLCA
        RLCA
        OR      (IX)
        LD      D,A

        LD      A,H
        CP      #58
        JR      C,NO_ATR
        CP      #5B
        JR      NC,NO_ATR2

; ப 㦥 ᮢ,
; ਡ  ᬥ.

        LD      E,D
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE

;16 ⮢ ,   砫
;᫥饩 ப:

        LD      A,D
        AND     7
        OUT     (254),A
        LD      A,C

;塞 ⠢訥 ਡ:

        LD      C,#20  ;BC=#20
        ADD     HL,BC
        LD      SP,HL
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE
        PUSH    DE
        LD      C,A
        INC     XL
        LD      A,0    ;WAIT

NEXT_L  LD      DE,#10
        INC     IX
        DEC     C
        JR      NZ,M10

        LD      C,4
        ADD     HL,DE
        JR      M3

M10     SBC     HL,DE
        JP      M3

; , ᫨ ⥪ ப
;楫 ⭮  :

NO_ATR  LD      A,0 ;WAIT
        LD      A,0 ;WAIT

;஢ઠ  祭 HL:   
;  뢠?

NO_ATR2 LD      DE,#5720+((N-1)*#20)
        AND     A
        SBC     HL,DE
        JR      NC,M122
        ADD     HL,DE

        LD      DE,(0)  ;WAIT
        LD      DE,(0)  ;WAIT
        NOP             ;WAIT

        LD      A,(IX)
        OUT     (254),A

        LD      A,(IX)  ;WAIT
        LD      A,(IX)  ;WAIT
        LD      A,(IX)  ;WAIT
        LD      A,(IX)  ;WAIT
        INC     DE      ;WAIT

        LD      DE,#20
        ADD     HL,DE
        INC     XL
        JR      NEXT_L

;室  뢠:

M122    LD      SP,0
        POP     IY    ;⠭
        POP     IX    ;祭 ॣ஢
        POP     HL
        POP     DE
        POP     BC
        XOR     A
        OUT     (254),A
        POP     AF
        EI
        RET

;=======================================

        ORG     #7001

;---------------------------------------
;ᨢ   multicolor':

DATA    DS      320


    ᪮쪮 砭   ணࠬ:

-   㢨 㬥஢  INC XL.  
    祭 ਭ ᥬ஬ ZX ASM 3.0.   
  㣨 ᥬ,  ⠪  ⫠稪 STS  砥
   INC LX ( DD 2C).
- ப  ணࠬ,  祭  ਥ  "WAIT",  㦭
  ⮫쪮  প.
-  砫 ᨢ DATA 易⥫쭮   .

       ࠡ   ࠩ  ணࠬ    ,  
  -  ᨢ , ᯮ   DATA
  騩  ⮫쪮 ⮢, ᪮쪮  ப multicolor'  
       ࠭.  祭        ⮣
 ᨢ - ᫮  0  7, ।饥 梥  ᮮ⢥饩
 ப ࠭.  ᫨  ᨢ  , multicolor-䥪
 㤥 .  ⮡  , 室  1/50
 ᥪ㭤 ( ०)    ᨢ.

    ⨪ ࠧ multicolor'   ।-
   祭 ६ N.  祭    ,
    ࠭ 1-7 (. 1)  31-37 (. 2) ⥫쭮.
   ⮬,  ᫮ 砭 ࠡ ࠩ ஢
 ⮫쪮 ⮣,  ⥪ ப 楫 ⭮  -
  (  孥,     ࠭).

        Ŀ      Ŀ
              
          Ŀ        Ŀ
                             
                             
             ࠭           ࠭
                             
                  ٲ
                         ర
              

               .1                    .2

    ⮡ ந 祭  প    ࠩ,  
 ,  祭  "WAIT",    ᠬ  砫  ࠩ. 
 㢨 ⠪ ࠣ:

        LD      D,H    ;WAIT
        LD      E,L    ;WAIT
        LD      BC,171 ;WAIT
        LDIR           ;WAIT

      襣  ⢠  ࠦ , 
 㦠    BC  ᫮      NOP'  (  , 
 㣮).     १⮬ ᥭ  㤮,
 ᫨      ᪥  ணࠬ    ࠭  
  ⨭  ࠧ梥묨 ﬨ.  ⮣ 㦭
  ப CALL E_INIT  CALL EFFECT,   ப DATA
 DS 320  ⠪ ப:

  DATA    DB      7,0,4,0,4,0,4,0
          DB      4,0,4,0,4,0,4,0
          DB      4,0,4,0,4,0,4,0
          DB      4,0,4,0,4,0,4,0
          DB      4,0,4,0,4,0,4,0
          DB      4,0,4,0,4,0,4,0
          DB      4,0,4,0,4,0,4,0
          DB      4,0,4,0,4,0,4,7
          DB      0,1,2,3,4,5,6,7
          DB      4,0,4,0,4,0,4,0
          .......................

       ᯮ짮  ࠩ    ᢮  ணࠬ  
 ᨭ஭஢  뢠ﬨ  HALT.   易
   ⥬,    ᫨    뢠  㤥 
 믮    , ࠩ  筥 ᢮
 ࠡ,  ⨭  ᬥ.

    ᫨    訫 ணࠬ஢  multicolor-䥪,
  ᯮ ࠩ,  ਤ ⥫쭮 뢠, 
 ᪮쪮  ⠪⮢  믮     ⮪ ணࠬ.
       ﭭ   ᪠      ࠢ筨  ᢥ  
 ⥫쭮  믮    ,  㣮   
  㤮,४ ᯮ짮  ⮩ 楫 ணࠬ
 "HELP_Z80" - ஭ ࠢ筨    ய-
  Z80,   㧨     ᥬ  
 ⫠稪  STS  (   )  뢠  㦭 
 ⨥  .

    :  ਬ  ᪨  䥪⮢, 砥  
   ᠭ    ࠩ,    㢨  
  demo "Ray".



    㣨    ணࠬ஢ ᪨ 䥪⮢:

1. " ᪨ 䥪". "ZX-" 3-4/1997.

2. "᪨ 䥪 '梥 '". "ZX-" 7-10/1997.

3. "᪮쪮 ᪨ 䥪⮢". "ZX-" 11-12/1997.

4. "᪨ 䥪 'iris'". ZX Format #8, Adventurer #8.

5. "襭 䥪  demo 'Art Vision'". Adventurer #8.

6. "⨬  ਬ intro 'Start'". ". 
   " 7-10/2001.
