
                          *   *   *

    ᪮쪮 ᫮  ਢ  室 ⥪ intro
"Start".
     ᭠ ஡묨 ﬨ. ப ணࠬ
஭㬥஢   ⮣, ⮡   뫮 㤮 뫠.
᫨  㦭  ணࠬ, ⮡ ⪮஢  
,   ப 㪠뢠  .
    ணࠬ ।祭  樨  ᥬ ZXASM.
᫨  ᯮ - 㣮 ᥬ, 
  ࠪ	 ZXASM ᮡ ᨭ⠪.
     ப 221, 223,	230, 245 室 , ࠡ騥 
 ॣ஢  IX.  ZXASM   ਭ
祭 XH  XL.  㣨 ᥬ   
  HX  LX,     ন
(-⠪  㬥஢  Z80) -  ⠪
砥 ਤ	ࠢ  㪠  XH  H, XL - 
L,  ।  ⠪  ⠢ -䨪	#DD.
ਬ,  INC XL  ப 221 㤥 룫拉  
: DB #DD  INC L.
     ப 402-430  484   㢨  "\" -
᫥ ⪠  .  ਬ ⠬, ⮡
 訩  塠⭮ 稭. ᫨  ᯮ㥬
 ᥬ    ন, , ,
।ᬮ७ ᯥ樠  ᫥ 襣 
(ਬ,  ALASM'  "."),   ᥬ ᠬ 뢠
訩 ,  १    (, 
ZXASM  ⮩ ᯮᮡ).  ࠩ 砥 
ᯮ짮 ࠢ⢮ 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-3/2001.
3. .騭. "ﭨ  OUTD  䫠 ७".
   "⥫.  " 5/2001 ( ᥢ
   BV_Creator).
