
                          *   *   *

    ᪮쪮 ᫮  ਢ񭭮  室 ⥪ intro
"Start".
     ᭠ ஡묨 ﬨ. ப ணࠬ
஭㬥஢   ⮣, ⮡   뫮 㤮 뫠.
᫨  㦭  ணࠬ, ⮡ ⪮஢  
,   ப 㪠뢠  .
    ணࠬ ।祭  樨  ᥬ ZX ASM.
᫨  ᯮ - 㣮 ᥬ, 
  ࠪ  ZX ASM ᮡ ᨭ⠪.
     ப 221, 223, 230, 245 室 , ࠡ騥 
 ॣ஢  IX.  ZX ASM   ਭ
祭 XH  XL.  㣨 ᥬ   
  HX  LX,     ন
(-⠪  㬥஢  Z80) -  ⠪
砥 ਤ ࠢ  㪠  XH  H, XL - 
L,  ।  ⠪  ⠢ -䨪 #DD.
ਬ,  INC XL  ப 221 㤥 룫拉  
: DB #DD  INC L.
     ப 402-430  484   㢨  "\" -
᫥ ⪠  .  ਬ ⠬, ⮡
 訩  塠⭮ 稭. ᫨  ᯮ㥬
 ᥬ    ন, , ,
।ᬮ७ ᯥ樠  ᫥ 襣 
(ਬ,  ALASM'  "."),   ᥬ ᠬ 뢠
訩 ,  १    (, 
ZX ASM  ⮩ ᯮᮡ).  ࠩ 砥 
ᯮ짮 ࠢ⢮ A\256=A-((A/256)*256).

001 Ŀ
002                                       
003                "START"                
004            512 bytes intro            
005                  for                  
006        Chaos Constructions 000        
007                                       
008    (c) 2000 by Ivan Roshin, Moscow    
009                                       
010 
011
012 ; :
013
014 TABLE_SIN  EQU  #AA00 ; 
015                       ;࠭
016                       ; 砩!
017
018 PALETTE    EQU  TABLE_SIN+#100 ; 
019                       ;⮦!
020
021 ; ⠭ ஫:
022
023 black      EQU  0   ; 梥⮢.
024 blue       EQU  1
025 red        EQU  2
026 magenta    EQU  3
027 green      EQU  4
028 cyan       EQU  5
029 yellow     EQU  6
030 white      EQU  7
031
032 paper      EQU  8   ;. 㬭.
033
034 ;ਬ  ਡ:
035 ;white*paper+black
036
037 border     EQU  254 ; ࠢ
038                     ;梥⮬ .
039
040 ; 楤  ࠡ
041 ; ஬:
042
043 A_TO_STACK EQU  #2D28
044 FROM_STACK EQU  #2DD5
045
046 ;ᯮ㥬  :
047
048 multiply   EQU  #04
049 add_       EQU  #0F
050 sin        EQU  #1F
051 stk_data   EQU  #34
052 end_calc   EQU  #38
053 stk_one    EQU  #A1
054
055
056 ;諠 ᠬ ணࠬ:
057
058            ORG  #8001
059
060 ; #8000  쭥襬  11 ⮢
061 ; ᯮ짮   AY.
062 ;
063 ; ⠭ ᫥騥 祭:
064 ;#8007=%00111000 ( AY); -,
065 ;訥 2      
066 ;묨,  ᨬ  㤮⢠.
067 ;#800A - ࠢ  - 9 (஬
068 ;ୠ). 訥 3   
069 ;묨,  ᨬ  㤮⢠.
070 ;
071 ;   "஥" 
072 ;ணࠬ   
073 ;.
074
075 ;ந ⠡ sample  #8201 (筥,
076 ;ࠨ  -  4 祭
077 ;㦥 室  #81FD):
078
079            LD   HL,#8201
080            LD   BC,#0C40
081
082 ;B - ⥪ ஬ (㬥蠥
083 ;     6 int');
084 ;C - ⠭ #40, ᯮ㥬 
085 ;    ⠭ ᬥ饭  
086 ;    ᮮ⢥⢨  up_2, up_0, dn_2.
087
088 ;  #8007   %01111000 - 
089 ;祭   ६ 
090 ;㦭   LD A,B:
091
092 MAKE_SAMPL LD   A,B
093            LD   (HL),B
094            INC  L
095
096 ;  #800A - #A9 (஬
097 ;ୠ  ࠢ  = 9) 
098 ;६  㦭  
099 ;XOR C:
100
101            XOR  C
102            LD   (HL),A
103            INC  L
104            LD   (HL),A
105            INC  L
106            ADD  A,C
107            LD   (HL),A
108            INC  L
109            SUB  C
110            LD   (HL),A
111            INC  L
112            LD   (HL),A
113            INC  L
114            DJNZ MAKE_SAMPL
115
116            LD   (HL),B ;=LD (HL),0
117
118            HALT
119            CALL CLS
120
121 ;㥬  (HL=#57FF):
122
123 ; 楤 ᯥ樠쭮 ⠪ ᠭ,
124 ;⮡  ࠣ JR $+3, . ᬥ饭
125 ; JR, ࠢ 1, 㤥 ᯮ짮
126 ;⥬  ⢥  (६
127 ;QUARK).
128
129 GRID_1     LD   D,%10101010
130            BIT  0,H
131            JR   Z,GRID_2
132            LD   DE,%0001000101000100
133            BIT  1,H
134            JR   Z,GRID_2
135 QUARK      EQU  $-1 ;  ࠢ 1
136            LD   D,E
137 GRID_2     LD   (HL),D
138            DEC  HL
139            BIT  6,H
140            JR   NZ,GRID_1
141
142 ;᫥ ᮢ ⪨ HL=#3FFF, D=#AA,
143 ;A=0 (  ᫥ CLS)!
144
145 ;ନ㥬 ⠡ sin:
146
147            LD   E,A ;DE=#AA00=TABLE_SIN!
148
149 LOOP_SIN   PUSH DE
150
151 ;᫨ ᯮ짮 ॣ஢  BC
152 ; DE,   
153 ;( LD A,C: CALL A_TO_STACK ⠢
154 ;CALL A_TO_STACK+1).  ᮦ,  ⮩
155 ;ணࠬ ᯮ짮 BC  DE
156 ; ( ⮬  塞)...
157
158            LD   A,E
159            CALL A_TO_STACK
160
161 ;᫥
162 ;int ((1+sin((2*Pi/255)*COUNTER))*127):
163
164            RST  #28
165            DB   stk_data ;2*Pi/255
166            DB   #EB,#49,#D9,#B4,#56
167            DB   multiply
168            DB   sin
169            DB   stk_one
170            DB   add_
171            DB   stk_data ;127
172            DB   #40,#B0,#00,#7F
173            DB   multiply
174            DB   end_calc
175
176            CALL FROM_STACK
177            POP  DE
178            LD   (DE),A
179            INC  E
180            JR   NZ,LOOP_SIN
181
182 ;ନ㥬  (DE=TABLE_SIN!):
183
184            LD   HL,COLORS-#74
185
186 ;饭 -#74 ࠭ ᯥ樠쭮.
187 ;  ⮬,  256    12.
188
189            INC  D ;DE:=PALETTE!
190
191 MAKE_PAL_1 LD   A,(HL)
192            INC  HL
193            LD   B,0+(256+11)/12
194 MAKE_PAL_2 LD   (DE),A
195            INC  E
196            DJNZ MAKE_PAL_2
197            JR   NZ,MAKE_PAL_1
198
199 ;PLASMA - । ॣ஢:
200 ;
201 ;DE -   䠩 ਡ⮢,
202 ; C - न y  ࠭
203 ; (न x 砥  E AND 31),
204 ; H - 訩   ⠡ sin
205 ;       (ࠧ  1),
206 ; L - ᯮ  㯠  ⠡,
207 ; B - ᬥ饭  x,
208 ;XH - ᬥ饭  y,
209 ;XL - ᬥ饭  ⠡ SIN ( ⮬
210 ;     ᬥ饭  ᬥ饭  x,y),
211 ;     砫쭮 祭 XL  .
212
213 PLASMA     HALT
214            CALL PLAY
215
216 ;饭  x,y ६  ⠡ sin,
217 ;⮣  㤥   䨣
218 ;ᠦ (  砥 - ):
219
220            LD   H,TABLE_SIN/256
221            INC  XL
222
223            LD   A,XL
224            LD   L,A
225            LD   B,(HL)
226
227            ADD  A,H ;ᤢ 䠧 = #AA
228            LD   L,A
229            LD   A,(HL)
230            LD   XH,A
231
232            LD   DE,#5800
233            LD   C,24
234            XOR  A
235
236 ;sin (2*x+sm_x) + sin (2*y+sm_y) + sm_x:
237
238 LOOP       ADD  A,A      ;2*x
239            ADD  A,B      ;2*x+sm_x
240            LD   L,A
241            LD   A,(HL)   ;sin(2*x+sm_x)
242            EX   AF,AF'
243            LD   A,C      ;y
244            ADD  A,A      ;2*y
245            ADD  A,XH     ;2*y+sm_y
246            LD   L,A
247            EX   AF,AF'
248            ADD  A,(HL)   ;㬬 ᨭᮢ.
249            ADD  A,B      ;+sm_x
250            LD   L,A
251
252            INC  H ;= LD H,PALETTE/256
253
254            LD   A,(HL)
255            LD   (DE),A
256            INC  E
257            LD   (DE),A
258            INC  DE
259
260            DEC  H ;⠭ H.
261
262            LD   A,E
263            AND  31
264            JR   NZ,LOOP ;  x.
265
266            DEC  C
267            JR   NZ,LOOP ;  y.
268
269            JR   PLASMA  ; ᭠砫.
270
271 ;---------------------------------------
272 ; 梥⮢  :
273
274 COLORS     DB   yellow*paper+yellow
275            DB   yellow*paper+red
276            DB   red*paper+yellow
277            DB   red*paper+red
278            DB   red*paper+magenta
279            DB   magenta*paper+red
280            DB   magenta*paper+magenta
281            DB   magenta*paper+green
282            DB   green*paper+magenta
283            DB   green*paper+green
284            DB   green*paper+yellow
285            DB   yellow*paper+green
286
287 ;---------------------------------------
288 ; । ࠢ, 
289 ; 稢:
290
291 END        POP  AF ;᫥ ⮣ A=0!
292            LD   (TRIGGER),A ;饭
293                             ; JR=0.
294            POP  AF ; .
295
296            CALL CLS
297
298 ; :
299
300            LD   B,#4D
301 ACCORD     PUSH BC
302            LD   DE,freq_e5-freq_shift
303            CALL NE_NOTE_F
304            HALT
305            POP  BC
306            DJNZ ACCORD
307
308 ;---------------------------------------
309 ;楤 ⪨ ࠭:
310
311 CLS        XOR  A
312            OUT  (border),A
313
314            LD   HL,#5AFF
315 CLS_1      LD   (HL),A
316            DEC  L
317
318 ;뢠 横 -    2
319 ;,   맮 CLS ᫥ HALT
320 ;ਡ  ०, 祬 
321 ; .
322
323            LD   (HL),A
324            DEC  HL
325            BIT  3,H
326            JR   NZ,CLS_1
327
328            RET
329
330 END_MAIN
331
332 ;---------------------------------------
333
334            ORG  #80C6
335
336  
337
338  ⠭
339
340 tempo      EQU  12    ;ࢠ 
341                       ;⠬  1/50 .
342
343 length     EQU  24    ; 
344                       ; ୠ.
345
346 patt_size  EQU  8     ;⢮ 
347                       ; ୥.
348
349 note_g4    EQU  0     ; 
350 note_b4    EQU  1     ;( 砩 
351 note_a4    EQU  2     ;  ⠪
352 note_c5    EQU  3     ;浪 - 
353 note_e5    EQU  4     ; ᮢ-
354 note_g5    EQU  5     ; ⠡
355 note_b5    EQU  6     ;FREQ_TABLE 
356 note_d5    EQU  7     ;ORNAMENTS).
357 note_f5    EQU  8
358 note_a5    EQU  9
359
360 freq_g4    EQU  #114  ;祭 ⥫
361 freq_a4    EQU  #F8   ; 
362 freq_b4    EQU  #DD   ; 
363 freq_c5    EQU  #CF   ;ᯮ㥬 
364 freq_d5    EQU  #B8   ;
365 freq_e5    EQU  #A5   ;(ᯮ
366 freq_f5    EQU  #9B   ; , 
367 freq_g5    EQU  #8A   ; ⥬஢-
368 freq_a5    EQU  #7C   ;).
369 freq_b5    EQU  #6E
370
371 freq_shift EQU  freq_g4-#C9
372                       ; 祭,
373                       ;⮡  -
374                       ; freq ᫮
375                       ;freq-freq_shift
376                       ;뫮 0..#FF.
377
378 code_up    EQU  #00 ;⨬ 祭ﬨ
379 code_dn    EQU  #40 ;, 㤥
380 code_max   EQU  #80 ; ஬ 
381                     ;୥ -
382                     ;,  
383                     ; ᨬ쭮.
384
385 code_pack  EQU  #20 ; 
386                     ;(2  
387                     ;4 ࠧ).
388
389 ornament_0 EQU  1   ;饭 ᯮ-
390 ornament_1 EQU  5   ; ୠ⮢ 
391 ornament_2 EQU  2   ;⠡ ORNAMENTS.
392 ornament_3 EQU  0
393
394
395  ६
396
397 ; positions
398 ;
399 ;࠭ 訩  砫 
400 ;ୠ.
401
402 POSITIONS  DB   PATTERN_0\256
403            DB   PATTERN_1\256
404            DB   PATTERN_2\256
405            DB   PATTERN_3\256
406
407            DB   PATTERN_0\256
408            DB   PATTERN_1\256
409            DB   PATTERN_2\256
410            DB   PATTERN_4\256
411
412            DB   PATTERN_5\256
413            DB   PATTERN_6\256
414            DB   PATTERN_2\256
415            DB   PATTERN_3\256
416
417            DB   PATTERN_5\256
418            DB   PATTERN_7\256
419            DB   PATTERN_8\256
420            DB   PATTERN_9\256
421
422            DB   PATTERN_10\256
423            DB   PATTERN_11\256
424            DB   PATTERN_12\256
425            DB   PATTERN_12\256
426
427            DB   PATTERN_10\256
428            DB   PATTERN_11\256
429            DB   PATTERN_12\256
430            DB   PATTERN_12\256
431
432  楤
433
434 PLAY
435
436 ;஢塞:  ३  ᫥饩
437 ;?
438
439            LD   HL,QUARK
440            DEC  (HL)
441            JR   NZ,NE_NOTE ;
442
443            LD   (HL),tempo
444
445 ; 室 - ࠧ 㥬 祭
446 ;  ஬   A  B:
447
448            LD   HL,(FREQ_A)
449            LD   (FREQ_B),HL
450
451 ; ⠭   SAMPLE 
452 ; A:
453
454            LD   HL,SAMPLE
455            LD   (POS_IN_S_A),HL
456
457 ;   ⠭ ਣ 
458 ; ...
459
460            LD   (POS_IN_S_B),HL
461
462 ;஢ઠ:  ३  ᫥饩
463 ;position?
464
465            LD   A,patt_size-1
466 NOTE       EQU  $-1
467            INC  A
468            AND  7
469            PUSH AF ;!
470            LD   (NOTE),A
471            JR   NZ,NE_POSIT
472
473 ;室  ᫥饩 position:
474
475            LD   D,A ;=LD DE,0
476            LD   E,A ;(⮬ ਣ)
477
478            LD   HL,POSITIONS-1
479 POSITION   EQU  $-2
480            INC  HL
481            LD   (POSITION),HL
482
483            LD   A,L
484            CP   PLAY\256
485            JR   Z,END
486
487            LD   L,(HL)
488            INC  H ;=LD H,PATTERN_0/256
489            LD   A,(HL)
490
491 ;    
492 ;室 祭, ࠪਧ饥
493 ; ஬  ୥:
494 ;%00  up, %10  dn, %01  max.
495 ; ᨬ  ⮣ 祭
496 ;⠭   CODE_I_D_N
497 ;   INC (HL), DEC (HL), NOP,
498 ; ⠪ ⠭ ⥪ ஬
499 ;ALL_AMP
500
501            ADD  A,A       ;code_max=#80
502            JR   C,SET_PAR ; DE=#0000
503
504            LD   DE,#34FF
505            ADD  A,A       ;code_dn=#40
506            JR   C,SET_PAR
507
508            LD   DE,#3505  ;code_up=#00
509
510 ;  D - ,   
511 ; CODE_I_D_N,  E - ALL_AMP.
512
513 SET_PAR    LD   A,D
514            LD   (CODE_I_D_N),A
515            LD   A,E
516            LD   (A_AMP),A
517
518 ;᫨  㯠 (..  ୥
519 ; 2 ), 頥 
520 ;NOP (#00),   INC HL (#23):
521
522            BIT  5,(HL)
523            LD   A,#23
524            JR   Z,SET_COD
525            XOR  A
526 SET_COD    LD   (ADR_CODE),A
527
528 ;訥 5 ⮢ -  ୠ.
529
530            LD   A,(HL)
531            AND  %00011111
532            LD   (ORNAMENT),A
533
534 ;⠭  砫 ୠ:
535
536            INC  HL
537            LD   (POS_IN_PAT),HL
538
539 ;ࠡ⪠ । NOTE.
540 ;頥  㪠⥫ 樨
541 ; sample   B ( A 
542 ;饭 ࠭):
543
544 NE_POSIT   LD   HL,SAMPLE+12
545            LD   (POS_IN_S_B),HL
546
547 ;  । 㤥  訥
548 ;4   訥: ᫨ .  NOTE
549 ;=0,  訥, ᫨ 1,  訥.
550
551            LD   HL,0
552 POS_IN_PAT EQU  $-2
553
554            POP  AF ;NOTE
555            RRCA
556            LD   A,(HL)
557            JR   C,NOTE_LOW
558
559            RRCA
560            RRCA
561            RRCA
562            RRCA
563
564 ;塞 ஬:
565
566            LD   HL,A_AMP
567 CODE_I_D_N NOP  ; INC (HL), DEC (HL).
568
569            JR   NOTE_TO_AY
570
571 NOTE_LOW   INC  HL ; NOP  PACKED.
572 ADR_CODE   EQU  $-1
573            LD   (POS_IN_PAT),HL
574
575 NOTE_TO_AY AND  %00001111
576            ADD  A,FREQ_TABLE\256
577            LD   L,A
578
579 ; H 㦥 ⠭ FREQ_TABLE/256.
580
581            LD   A,(HL)
582            LD   (FREQ_A),A
583
584 NE_NOTE
585
586 ;ࠡ⪠  A (業ࠫ쭮):
587
588 ; ᠬ 砫   A ⮨  g4
589 ; ஬ -9 (. ).  ࢮ
590 ;맮 PLAY  祭 
591 ;᪮஢   B,  ⠬ 㤥
592 ; (㤠 2->1->0)  
593 ; (  - ..   
594 ;⠬ ᯮ). -  
595 ;B  ᠬ 砫   設 -
596 ; ⠪ ᤥ :
597
598            LD   DE,9*256+(freq_g4-freq_shift)
599 FREQ_A     EQU  $-2   ;E
600 A_AMP      EQU  $-1   ;D
601
602 NE_NOTE_F  LD   HL,0
603 POS_IN_S_A EQU  $-2
604            LD   A,(HL)
605            INC  HL
606            LD   (POS_IN_S_A),HL
607
608            LD   L,8
609            CALL IZM_FRQ
610
611 ;ࠡ⪠  B ():
612
613            LD   HL,0
614 POS_IN_S_B EQU  $-2
615            LD   A,(HL)
616            PUSH AF ; 䨭. ठ.
617            INC  HL
618            LD   (POS_IN_S_B),HL
619
620            LD   L,9
621            LD   DE,0
622 FREQ_B     EQU  $-2   ;E
623 B_AMP      EQU  $-1   ;D
624            CALL IZM_FRQ
625            POP  AF
626
627 ;ࠡ⪠  C (ࠢ):
628
629            JR   C_NORM
630 TRIGGER    EQU  $-1
631
632 ;   (䨭 )
633 ; TRIGGER 뢠 0,  砥
634 ;室  ᫥饩 .
635
636            LD   L,#A
637            LD   E,freq_g5-freq_shift
638            CALL IZM_FRQ
639            JR   OUT_AY
640
641 C_NORM     LD   A,2            ;諮
642 SM_IN_ORN  EQU  $-1            ;ᬥ饭
643                                ; .
644            INC  A
645            CP   3
646            JR   NZ,SAVE_SM
647            XOR  A
648 SAVE_SM    LD   (SM_IN_ORN),A
649
650            ADD  A,ornament_0 ;N ⥪..
651 ORNAMENT   EQU  $-1
652            ADD  A,ORNAMENTS\256
653
654            LD   H,ORNAMENTS/256
655            LD   L,A
656
657 ;HL 㪠뢠  祭 ⥫
658 ;.
659
660            LD   A,(HL)
661            LD   HL,#8004
662            CALL IZM_FRQ_2
663
664 ;뢮  AY:
665
666 OUT_AY     LD   L,#0A     ;H=#80
667 OUT_AY_1   LD   BC,#FFFD
668            OUT  (C),L
669            LD   B,#BF
670            OUTD
671
672 ;᫥ OUTD 䫠 C=0, ᫨ 祭 H
673 ;  ᫥ 㬥襭,  C=1,
674 ;᫨  ( ᫨  (HL)  0).
675 ;   ? ;-)
676
677            JR   NC,OUT_AY_1
678            RET
679
680 ;---------------------------------------
681
682 IZM_FRQ    SUB  D
683            LD   H,#80
684            LD   (HL),A ;஬.
685
686 ;  ॣ L  ॣ AY
687 ;  , ८ࠧ㥬 
688 ;  ॣ AY  襣 
689 ; ⮣  :
690
691            SLA  L       ;*2
692            RES  4,L     ;-16
693
694            RLCA
695            RLCA
696            RLCA
697            AND  7
698            ADD  A,E
699            SUB  2
700
701 IZM_FRQ_2  ADD  A,freq_shift
702
703 ;᫥ ਡ freq_shift  A 㤥
704 ;訩  ⥫,   䫠 C -
705 ;訩 .
706
707            LD   (HL),A
708
709            INC  L
710            LD   A,0   ;砥 祭
711            ADC  A,A   ;襣 
712                       ; 뢮 .
713            LD   (HL),A
714
715 ;           RET   (.)
716
717 ;  (   ⠡
718 ;ᮮ⢥ 祭 ⥫ 
719 ; ᬥ饭 freq_shift, ..  
720 ;   ,   ).
721 ;
722 ;祭 freq_shift ࠭ ⠪
723 ;ࠧ, ⮡   ⠡
724 ;ࠢ #C9  㦨 ६
725 ; RET,  ᮪頥 
726 ; ணࠬ.
727 ;
728 ;freq_shift min = #15
729 ;freq_shift max = #6E
730 ;
731 ;1- .  ⠡ (g4): .. #A6-#FF.
732 ;
733 ;饭  ⠡楩 ORNAMENTS.
734 ;
735 ; ornaments (8 ⮢).
736 ;
737 ;࠭ 祭 freq.  ᯮ짮-
738 ; 㦭  ᬥ饭  ⮩ ⠡-
739 ;, ⮣ ornament -  3 , -
740 ;뢠  ⮣ ᬥ饭.
741
742 FREQ_TABLE DB   freq_g4-freq_shift
743            DB   freq_b4-freq_shift
744 ORNAMENTS  DB   freq_a4-freq_shift
745            DB   freq_c5-freq_shift
746            DB   freq_e5-freq_shift
747            DB   freq_g5-freq_shift
748            DB   freq_b5-freq_shift
749            DB   freq_d5-freq_shift
750            DB   freq_f5-freq_shift
751            DB   freq_a5-freq_shift
752
753 ;    ୥:
754 ;
755 ;1  - ஬ + ୠ,
756 ;4  - ,   2 .
757
758 PATTERN_0  DB   code_dn+code_pack+ornament_0
759            DB   note_c5*16+note_g4
760
761 PATTERN_1  DB   code_dn+code_pack+ornament_1
762            DB   note_d5*16+note_a4
763
764 PATTERN_2  DB   code_dn+code_pack+ornament_0
765            DB   note_e5*16+note_b4
766
767 PATTERN_3  DB   code_up+code_pack+ornament_0
768            DB   note_e5*16+note_b4
769
770 PATTERN_4  DB   code_up+ornament_0
771            DB   note_e5*16+note_c5
772            DB   note_d5*16+note_e5
773            DB   note_a5*16+note_g5
774            DB   note_f5*16+note_e5
775
776 PATTERN_5  DB   code_dn+code_pack+ornament_1
777            DB   note_a5*16+note_d5
778
779 PATTERN_6  DB   code_max+code_pack+ornament_2
780            DB   note_g5*16+note_d5
781
782 PATTERN_7  DB   code_dn+code_pack+ornament_2
783            DB   note_b5*16+note_e5
784
785 PATTERN_8  DB   code_dn+code_pack+ornament_0
786            DB   note_f5*16+note_c5
787
788 PATTERN_9  DB   code_up+ornament_0
789            DB   note_g5*16+note_c5
790            DB   note_g5*16+note_c5
791            DB   note_a5*16+note_c5
792            DB   note_a5*16+note_c5
793
794 PATTERN_10 DB   code_max+ornament_1
795            DB   note_a5*16+note_d5
796            DB   note_f5*16+note_d5
797            DB   note_a5*16+note_d5
798            DB   note_f5*16+note_d5
799
800 PATTERN_11 DB   code_max+ornament_3
801            DB   note_e5*16+note_a4
802            DB   note_c5*16+note_a4
803            DB   note_e5*16+note_a4
804            DB   note_c5*16+note_a4
805
806 PATTERN_12 DB   code_max+ornament_0
807            DB   note_g5*16+note_c5
808            DB   note_e5*16+note_c5
809            DB   note_g5*16+note_c5
810            DB   note_e5*16+note_c5
811
812 END_PLAY
813
814            ORG  #81FD
815
816 ;⠭, ਡ塞  祭
817 ;  sample  㪠뢠騥 
818 ;ᬥ饭 :
819
820 up_2       EQU  #80
821 up_0       EQU  #40
822 dn_2       EQU  #00
823
824 ; 4  ⠡ sample:
825
826 SAMPLE     DB   #F+up_0
827            DB   #E+up_0
828            DB   #D+up_0
829            DB   #D+up_0





1. .騭. "Z80: ⨬ 㧪 ⠭  ॣ".
   "⥫.  " 9/2000, 2/2001  (
   ᥢ BV_Creator).

2. .騭. "  ணࠬ஢ 䬥᪨ 権".
   "⥫.  " 12/2000, 1-4/2001.

3. .騭. "ﭨ  OUTD  䫠 ७".
   "⥫.  " 5/2001 ( ᥢ
   BV_Creator).




    㣨    ணࠬ஢ ᪨ 䥪⮢:

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

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

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

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

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

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


    㣨    ࠧ  ⨬樨 
ணࠬ஢  ᥬ Z80:

1. "  ५㥬 ணࠬ". "ZX-" 5-6/1997.

2. "Z80: ⨬ 㧪 ⠭  ॣ".
   "⥫.  " 9/2000, 2/2001 (
   ᥢ BV_Creator).

3. "  ணࠬ஢ 䬥᪨ 権".
   "⥫.  " 12/2000, 1-4/2001.

4. "ﭨ  OUTD  䫠 ७". "⥫. 
   " 5/2001, ".  " 8/2003 (
   ᥢ BV_Creator).

5. " 맮 ணࠬ  ࠧ  ".
   ".  " 12/2001, 2/2002, 4/2002.

6. "襭 ᦠ ணࠬ  ᥬ Z80". ". 
   " 4/2003.

7. "楤 ࠢ ப  ᥬ Z80". ". 
   " 6/2003.
