(c)  騭, ᪢

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

                ᪮쪮 ᪨ 䥪⮢
                

("ZX-" 11-12/1997)

          1. ""

    ⢮  ਠ-
⮢ ⮣  䥪  (., -
, 몠 demo  F.S.R.D.,
INSANE, S4B, NOUMENON, EYE  ACHE
2, RAGE  ..).     ॠ-
        -
砢訩:    ࠭  室
 ⨭ (᪠, -
⠢  ணࠬ),     
䮭 (    ⪨  ⨭,
襭    梥⮬)  
ࠧ   "".  
룫廊,   㢨, -
⨢ "ZX FORUM 4" (䥪  -
     ⮣
஭ ).
   ⠪, ⥪ ணࠬ ( 
ࠧࠡ⪥   ᯮ짮  ࠣ-
 楤  "", ⮩
  .뭠   ZX  
5-6 1997):

BUF1    EQU  #8000 ; 
                   ;ਡ ⨭.
BUF2    EQU  #8300 ;ᨢ, ᮮ.
                   ;뢮 -
                   ; ( #340).
BUF3    EQU  #8700 ; (訩
                   ;  = 0!)

        LD      HL,BUF3
        EXX

        XOR     A
        LD      (23560),A

        LD      HL,BUF3     ;ନ㥬
        LD      DE,BUF3+1   ;
        LD      (HL),0
        LD      BC,8
        LDIR
        LD      A,%1000
        LD      (BUF3+4),A
        LD      (HL),A
        LD      BC,8
        LDIR
        LD      (HL),%10000
        LD      BC,8
        LDIR
        LD      (HL),%11000
        LD      BC,#E7
        LDIR

        LD      HL,#9000    ;ॡᨫ
        LD      DE,#4000    ;⨭
        LD      BC,#1B00    ; ࠭
        LDIR

        LD      HL,#5800    ;࠭
        LD      DE,BUF1     ; ਡ
        LD      BC,#300
        LDIR

        LD      HL,BUF2     ;㫨
        LD      (HL),0      ;ࠡ稩
        LD      DE,BUF2+1   ;
        LD      BC,#2FF
        LDIR

SSAVER  LD      HL,BUF2+#320 ;塞
        LD      (HL),-60     ;
        LD      DE,BUF2+#321 ;
        LD      BC,#1F       ;᫮ -60
                    ;(  祭
        LDIR        ;  䥪)

        LD      HL,0 ;室 
                     ; 

;  ᮤন  BUF2:

LOOP_1  LD      DE,BUF2+#300
        LD      B,#20

LOOP_2  INC     HL
        LD      A,H
        AND     #1F
        LD      H,A
        LD      A,(HL)   ;.  
        AND     %00111111
        ADD     A,%11000
        JR      NC,LL
        LD      A,%11000
LL      LD      (DE),A
        INC     DE
        DJNZ    LOOP_2

        PUSH    HL

        LD      IX,BUF2
        LD      DE,#5800
        LD      HL,BUF1
        LD      BC,#2FF
LOOP_4  LD      A,(IX+32)
        ADD     A,(IX+33)
        ADD     A,(IX+34)
        ADD     A,(IX+65)
        SRL     A
        SRL     A
        JR      Z,LOOP_5
        DEC     A
LOOP_5  INC     IX
        INC     HL
        INC     DE
        LD      (IX),A

; 祭   ,
;⥯ 塞 ᮮ. ਡ  ࠭:

        PUSH    BC

        EXX
        LD      L,A    ;  
        LD      A,(HL) ;A = 㦭 梥
        EXX
        LD      B,A

; ⥪饣 ਡ ⠭
; ୮ 梥 INK  PAPER
; 梥,  﫨  ;
;..  梥   
;"஧":

        LD      A,(HL)    ;. ⨭
        AND     %00111000 ;PAPER
        JP      NZ,TST_2  ;JP- ᪮
        LD      A,B       ;⥯ 
        OR      (HL)      ;୮ -
        LD      (DE),A    ;㣮 梥

TST_2   LD      A,(HL)
        AND     %00000111 ;INK
        JR      NZ,TST_Q
        LD      A,B
        AND     %00111000
        RRCA
        RRCA
        RRCA
        OR      (HL)
        LD      (DE),A

TST_Q   POP     BC
        DEC     BC
        LD      A,B
        OR      C
        JP      NZ,LOOP_4
        POP     HL

;஢ઠ :

        LD      A,(23560)
        AND     A
        JP      Z,LOOP_1
        RET

    ⥫  ⬥: -
, 㤭,   ண-
ࠬ,  "஧"  
,   㣮 梥 (
  ࠧ  ᪮쪮  梥⮢).
-,  祭 筮 -
㫨஢ 梥 ""   -
    (ᨢ   BUF3).
   ᮤন -
  쬨  祭,  ।-
饥 梥: %000000,%001000,...
%111000.   ࠡ ண-
ࠬ 祭      BUF2
(᫠   0    255), ,
 ᪠,  ।  "-
" , ४ 
ᮮ⢥騥 祭 ਡ-
⮢  ᮮ⢥⢨  ⮩ -
ன.
     䥪 (   ,
ᬮ७  )   ᨭ-
஭     뢠,
    ࠧ襭 - 
㦭   .

          2. ""

    楫  ᨢ 䥪-
⮢.       , ᠬ
⮩:

;--------------------------;
; (c)  騭, 1997     ;
;  "PLASMA"          ;
;--------------------------;

        LD      HL,#4000  ;CLS
        LD      (HL),L
        LD      DE,#4001
        LD      BC,#1AFF
        LDIR

;७ᨬ ᮤন 孥 ப
;  , .. ࠭  
;  ⨪:

M2      LD      HL,#5820
        LD      DE,#5AE0
        LD      BC,32
        LDIR
        LD      HL,#5AC0
        LD      DE,#5800
        LD      BC,32
        LDIR

; 横 塞 ਡ #5820-#5AE0:

        LD      IX,#5820
M1      LD      A,(IX+1)
        ADD     A,(IX-1)
        ADD     A,(IX+32)
        ADD     A,(IX-32)

        DEC     A      ;!
        SRL     A      ;!
        SRL     A      ;!

        LD      (IX),A
        INC     IX
        LD      A,XL
        CP      #E0
        JR      NZ,M1
        LD      A,XH
        CP      #5A
        JR      NZ,M1

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

      ᯥਬ஢
 ⮩  ணࠬ,    
⮪, 祭 "!".  -
 ⠪ ਠ:

) DEC A    ) SRL A    ) SRL A
   SRL A       DEC A       SRL A
   SRL A       SRL A       DEC A

) SRL A    ) ADD A,8
   SRL A       SRL A
   INC A       SRL A
               DEC A

   ᫥ ⮣ ⪠  -
  AND #3F    AND
#7F -  ⮦    -
䥪.

      㣮 ࠣ-
 ணࠬ:

        LD      A,(IX+1)
        ADD     A,(IX-1)
        ADD     A,(IX+32)
        ADD     A,(IX-32)

 ।,  祭  -
饣 ਡ    -
祭  ਡ⮢  ᫥, ࠢ,
᭨  ᢥ  :

   Ŀ
        - ⥪騩 ਡ
   ۱
        - 騥   ਡ
   

     १  -
  । ⠪ -
ᨬ⥩:

Ŀ LD  A,(IX+1)     Ŀ LD  A,(IX)
   ADD A,(IX)           ADD A,(IX)
  ADD A,(IX+32)       ADD A,(IX+31)
   ADD A,(IX-32)      ADD A,(IX+32)
                  

Ŀ LD  A,(IX-33)    Ŀ LD  A,(IX)
  ADD A,(IX-31)        ADD A,(IX)
   ADD A,(IX+31)       ADD A,(IX+32)
  ADD A,(IX+33)      ADD A,(IX+33)
                  

    ⥯ - ᫥騩  䥪.
   ࠡ    宦  
।騩,   룫廊  ᮢ-
襭 -㣮.  ந-
      ਡ⮢, 
  客  .
  ᯮ   -
⢥ Screen Saver'  ⮬ 
"" ( CS+S   -
,  襩 C  ४砩
梥).

;--------------------------;
; (c)  騭, 1997     ;
;  "PLASMA-2"        ;
;--------------------------;

BUF     EQU     #8000  ; 

;⠭ ਡ⮢:

        LD      HL,#5800
        LD      (HL),%00101111
        LD      DE,#5801
        LD      BC,#2FF
        LDIR

;頥  
;(#640    BUF):

        LD      HL,BUF
        LD      (HL),0
        LD      DE,BUF+1
        LD      BC,#63F
        LDIR

;७ᨬ ᮤন 孥 ப
;୮    ,
;.. ࠭     ⨪:

M2      LD      HL,BUF+32
        LD      DE,BUF+#300+32
        LD      BC,32
        LDIR
        LD      HL,BUF+#300
        LD      DE,BUF
        LD      BC,32
        LDIR

; 横 塞 ਡ  :

        LD      IX,BUF+32
M1      LD      A,(IX+1)
        ADD     A,(IX-1)
        ADD     A,(IX+32)
        ADD     A,(IX-32)

        SRL     A
        DEC     A
        SRL     A

        LD      (IX),A
        CALL    TO_SCR
        INC     IX
        LD      A,XL
        CP   BUF+#320-((BUF+#320)/256*256)
        JP      NZ,M1
        LD      A,XH
        CP      (BUF+#320)/256
        JP      NZ,M1

;  :

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

;--------------------------------------
;楤 TO_SCR  ⥪饥
;.
;
;室: A  - 祭  ,
;           ।饥 ⨯ 客
;      IX - ⥪騩   

TO_SCR  AND     %00111000
        RRCA
        LD      L,A
        LD      H,0
        LD      DE,TAB-4
        ADD     HL,DE
        LD      B,H
        LD      C,L

;BC -  客

        PUSH    IX
        POP     HL
        LD      DE,#320
        ADD     HL,DE

;HL -   ᯮ⥫쭮 ,
;      ࠭ 諮 祭
;     客  ⮣ 

        CP      (HL)  ;祭 ᮢ?
        RET     Z     ;᫨  - 室

        PUSH    AF
        LD      (HL),A
        LD      DE,-BUF-#340
        ADD     HL,DE

;HL - ᬥ饭  ᭮ , 㧭
;       न :

        LD      A,L
        AND     31
        LD      D,A    ;X
        RL      L
        RL      H
        RL      L
        RL      H
        RL      L
        RL      H
        LD      A,H
        AND     31
        LD      E,A    ;Y

        AND     #18
        OR      #40
        LD      H,A
        LD      A,E
        AND     #7
        RRA
        RRA
        RRA
        RRA
        ADD     A,D
        LD      L,A

;HL -   ࠭

        POP     AF       ;᫨ A=0,
        AND     A        ; 頥
        JP      Z,TO_CL  ;

        LD      D,H
        LD      E,L
        INC     D
        INC     D
        INC     D
        INC     D

;HL 㪠뢠    ,
; DE -    

        LD      A,(BC)
        LD      (HL),A
        LD      (DE),A
        INC     H
        INC     D
        INC     BC
        LD      A,(BC)
        LD      (HL),A
        LD      (DE),A
        INC     H
        INC     D
        INC     BC
        LD      A,(BC)
        LD      (HL),A
        LD      (DE),A
        INC     H
        INC     D
        INC     BC
        LD      A,(BC)
        LD      (HL),A
        LD      (DE),A
        RET

;᫨ 㦭   :

TO_CL   LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        RET

;, । ࠧ ⨯
;客:

TAB     DB  %01000100
        DB  %00000000
        DB  %00010001
        DB  %00000000

        DB  %01000100
        DB  %00010001
        DB  %01000100
        DB  %00010001

        DB  %01010101
        DB  %10101010
        DB  %01010101
        DB  %10101010

        DB  %11011101
        DB  %10101010
        DB  %01110111
        DB  %10101010

        DB  %01010101
        DB  %10101010
        DB  %01010101
        DB  %10101010

        DB  %01000100
        DB  %00010001
        DB  %01000100
        DB  %00010001

        DB  %01000100
        DB  %00000000
        DB  %00010001
        DB  %00000000


    , , ᫥  -
䥪 (ᯮ짮    Screen
Saver  ZX- 7-10   ZX-FORUM
4):

;--------------------------;
; (c)  騭, 1997     ;
;  "PLASMA-3"        ;
;--------------------------;

BUF     EQU #4000    ; ᯮ
                     ;  #410
                     ;⮢ (.
                     ; = 0!)
B_SCR   EQU BUF+#20  ; ࢮ
                     ;塞 ப
                     ; 
B_UP    EQU BUF      ; ப
B_DOWN  EQU BUF+#320 ; ப

SSAVER  LD      HL,(RND+1)
NEW_RND LD      A,(HL)
        INC     HL
        AND     7
        CP      6
        JR      NC,NEW_RND

        AND     A
        RLCA
        RLCA
        LD      HL,TABL1
        LD      D,0
        LD      E,A
        ADD     HL,DE
        LD      DE,BUF+#400
        LD      BC,4
        LDIR

        LD      HL,TABL2
        LD      BC,12
        LDIR

; H' ᨬ 訩  
;:

        LD      H,D
        EXX

;७ᨬ ᮤন 孥 ப
;୮    ,
;.. ࠭     ⨪:

M2      LD      HL,B_SCR
        LD      DE,B_DOWN
        LD      BC,32
        LDIR

        LD      HL,B_SCR+#2E0
        LD      DE,B_UP
        LD      BC,32
        LDIR

; 横 塞 ਡ  :

        LD      IX,B_SCR
M1      LD      A,(IX-32)
        ADD     A,(IX-1)
        ADD     A,(IX+1)
        ADD     A,(IX+32)
        SRL     A
        SRL     A
        LD      (IX),A

;--------------------------------------
; 祭    ।塞
; 梥  뢮  ࠭:

        EXX
        RRCA
        RRCA
        AND     15
        LD      L,A
        LD      A,(HL)
        EXX

        PUSH    IX
        POP     HL
        LD      DE,#5800-B_SCR
        ADD     HL,DE
        EX      AF,AF'      ;!
        LD      A,(IX-1)    ;!
        CP      (IX)        ;!
        JR      C,TO_SCR1   ;!
        CP      16          ;!
        JR      C,TO_SCR1   ;!
        DEC     HL          ;!
        LD      A,(HL)      ;!
        INC     HL          ;!
        LD      (HL),A      ;!
        JR      NO_CP       ;!

TO_SCR1 EX      AF,AF'      ;!
        LD      (HL),A
;--------------------------------------

NO_CP   INC     IX
        LD      DE,1-#5800+B_SCR-B_DOWN
        ADD     HL,DE
        LD      A,H
        OR      L
        JR      NZ,M1

;  , ⥯ 
;  ਭ 砩
;祭:

        LD      B,5
L23     PUSH    BC
        CALL    RND
        POP     BC
        DJNZ    L23

;  - ?

        LD      A,(23560)
        AND     A
        JR      Z,M2
        RET

;=================================
;楤 RND  砩
;ࠧ . ࠭ ᫮ 
; ࠭ (BUF..BUF+#400)

RND     LD      HL,0
        LD      A,H
        AND     #3F
        LD      H,A
        LD      D,(HL)
        INC     HL
        LD      E,(HL)
        INC     HL
        LD      A,(HL)
        XOR     D
        XOR     E
        SUB     16
        LD      B,A
        LD      A,D
        AND     3
        LD      D,A
        LD      E,B
        LD      (RND+1),HL
        LD      HL,BUF
        ADD     HL,DE
        LD      A,B
        AND     %01111111
        LD      (HL),A
        DEC     HL
        LD      (HL),A
        DEC     HL
        LD      (HL),A
        RET

;:

TABL1   DB      %00001001
        DB      %01001001
        DB      %00011011
        DB      %01011011

        DB      %00001001
        DB      %01001001
        DB      %00101101
        DB      %01101101

        DB      %00010010
        DB      %01010010
        DB      %00011011
        DB      %01011011

        DB      %00010010
        DB      %01010010
        DB      %00110110
        DB      %01110110

        DB      %00100100
        DB      %01100100
        DB      %00101101
        DB      %01101101

        DB      %00100100
        DB      %01100100
        DB      %00110110
        DB      %01110110

TABL2   DB      %00111111
        DB      %01111111
        DB      %01111111
        DB      %01111111
        DB      %01111111
        DB      %01111111
        DB      %01111111
        DB      %01111111
        DB      %01111111
        DB      %01111111
        DB      %01111111
        DB      %01111111

   ப, 祭  "!", -
砫쭮 ⢮   ⮩
ணࠬ ( ⠪    -
짮  ZX- 7-10), 
⮬  뫨   楫
 譨   䥪  
ᤥ  묨  室
梥⮢.



    㣨    ணࠬ஢ ᪨ 䥪⮢:

1. "ࠩ ࠭   '⠣-128'". "ZX-"
   3-4/1997.

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

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

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

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

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