あやしいわーるど@にゃーにゃーはてな(At your own risk.) このページをアンテナに追加 RSSフィード

1992年10月15日(木) [E500]PLAY 3 music subroutine Programed By T.Kobayashi (Ryu)[PLA

[]PLAY 3 music subroutine Programed By T.Kobayashi (Ryu)[PLAY 3]

でまぁ、これがその改良版つーか。コマンドはPLAYX "CCC" ではなくて PLAY"CCC"

ΣXD<ははは! ここいらあたりは結構ヤバいんじゃないかなーとおもうけど!

どっちも雑誌にのってるやつだしねぇ

Σ:)<まぁ、コッソリもの2。ドキュメント出てきたらその時点で追加しときます

とりあえず発掘調査の成果物です。

Σ|3<まぁ、コレが伏線でね。じつはコレ用の音楽プログラムをのっけるにあたり必要になります

すみません、作者の皆様。諸関係者様方。

☆★☆ PLAYXとの相違点 ★☆★

・poke &17,xxxでのテンポ設定を、MMLの’Txxx’で設定できるようにした。

・上記のためPLAYXでのテンポ設定はなくなりました。

オクターブの変更の<、>を逆にした。(<が下がる。>が上がる)

・他はPLAYXと互換を保っています。

Σ|3<マニュアルの一部抜粋。いや、コレはまた別のなんだけど非公開モノなので

ええ……懐かしいあの日々……

Σ|3<つーことで本体です。海外ファンサブの皆さんは敬意を払って取り扱うようにしてください

あんたがやってねー!

100 CLS :PRINT "******** PLAY3 ********"
110 L=1000:S=&HBF000
120 '
130 LOCATE 0,2:PRINT "Line No:";L
140 SUM=0
150 FOR J=0 TO 7
160 READ D$:POKE (S+J),VAL ("&H"+D$)
170 IF D$="END"THEN PRINT "Completed":END
180 'LOCATE0,3:PR."Writing Address =";S+J
190 SUM=SUM+VAL ("&H"+D$)
200 NEXT J
210 READ D$:IF SUM<>VAL ("&H"+D$)THEN PRINT "Error":BEEP 1:KEY 0,"L. "+STR$ L:END
220 L=L+10:S=S+8
230 GOTO 130
1000 DATA 0C,26,F0,0B,30,BC,80,D1,36A:'BF000
1010 DATA 90,0C,35,F0,0B,30,BC,80,338:'(00)
1020 DATA D1,93,07,0C,FF,FF,0F,30,3B4:'BF010
1030 DATA BC,80,D1,90,30,BC,80,D1,4DA:'(00)
1040 DATA 93,05,FA,F1,0B,07,04,50,2E9:'BF020
1050 DATA 4C,41,59,1F,05,45,58,4F,1F6:'(00)
1060 DATA 46,46,02,00,00,1F,3F,F0,1DC:'BF030
1070 DATA 8B,02,13,F0,8B,00,00,2F,24A:'(00)
1080 DATA 30,CC,FB,A0,30,E8,36,EC,4D1:'BF040
1090 DATA 04,57,F0,2C,05,19,F2,0B,292:'(00)
1100 DATA 3C,30,E0,26,EC,3F,07,0D,2B1:'BF050
1110 DATA EE,F1,0B,30,A5,30,0D,EF,3EB:'(00)
1120 DATA F1,0B,30,A5,33,0D,19,F5,31F:'BF060
1130 DATA 0B,AD,F4,F1,0B,0D,ED,F1,493:'(00)
1140 DATA 0B,AD,39,F5,0B,AD,29,F5,3BC:'BF070
1150 DATA 0B,0D,47,F5,0B,AD,19,F5,31A:'(00)
1160 DATA 0B,30,CC,13,FF,90,24,60,32D:'BF080
1170 DATA 0D,18,99,60,22,18,02,7C,1D6:'(00)
1180 DATA 04,90,24,60,22,18,8F,60,241:'BF090
1190 DATA 0D,18,89,60,3A,18,B2,60,272:'(00)
1200 DATA 3E,14,CA,F1,60,3C,14,D7,394:'BF0A0
1210 DATA F1,60,4F,14,B1,F1,60,54,40A:'(00)
1220 DATA 18,DA,60,4C,18,75,60,52,2DD:'BF0B0
1230 DATA 18,66,60,2B,14,C5,F1,60,333:'(00)
1240 DATA 2D,14,D2,F1,60,49,18,7B,340:'BF0C0
1250 DATA 2D,0D,DF,F1,0B,60,23,1A,2B2:'(00)
1260 DATA 06,0D,E6,F1,0B,90,24,48,2F1:'BF0D0
1270 DATA 41,60,07,1E,40,45,50,90,22B:'(00)
1280 DATA 05,FD,10,3D,90,24,48,30,27B:'BF0E0
1290 DATA 60,0A,1C,10,48,25,60,06,169:'(00)
1300 DATA 1E,04,40,0A,12,06,30,98,14C:'BF0F0
1310 DATA 00,33,7C,04,28,88,F7,F1,34B:'(00)
1320 DATA 0B,60,00,38,1A,04,30,B8,1A9:'BF100
1330 DATA 00,33,46,01,B0,25,30,61,1E0:'(00)
1340 DATA 13,10,1F,83,30,80,13,30,1B8:'BF110
1350 DATA CC,13,FF,12,98,3D,13,8F,367:'(00)
1360 DATA 09,00,13,40,7C,04,08,FF,1E3:'BF120
1370 DATA B0,25,06,90,04,48,30,60,247:'(00)
1380 DATA 0A,1C,08,48,55,60,06,1F,150:'BF130
1390 DATA A8,40,0A,30,B8,00,33,6C,279:'(00)
1400 DATA 04,13,B2,90,04,48,30,1C,1F1:'BF140
1410 DATA 04,A8,F7,F1,0B,6C,04,13,322:'(00)
1420 DATA C0,2C,08,FF,B0,25,8C,F4,448:'BF150
1430 DATA F1,0B,0A,10,00,45,42,AC,249:'(00)
1440 DATA F4,F1,0B,B5,04,30,84,30,38D:'BF160
1450 DATA 6C,04,6C,04,30,A4,30,30,214:'(00)
1460 DATA 84,33,6C,04,6C,04,30,A4,26B:'BF170
1470 DATA 33,3C,13,EB,90,04,48,30,279:'(00)
1480 DATA 60,0A,1F,F3,40,D0,B0,25,361:'BF180
1490 DATA 6C,04,13,FB,09,00,08,DF,26E:'(00)
1500 DATA B0,25,90,04,48,30,60,0A,24B:'BF190
1510 DATA 1E,12,28,FD,01,46,00,46,1E2:'(00)
1520 DATA 00,46,10,46,11,38,46,10,13B:'BF1A0
1530 DATA 6C,04,13,1A,B1,25,02,91,206:'(00)
1540 DATA F0,90,24,48,30,60,0A,17,29D:'BF1B0
1550 DATA 91,F0,30,B8,00,30,40,E0,3B9:'(00)
1560 DATA B0,25,02,91,F0,32,F0,00,37A:'BF1C0
1570 DATA 13,30,30,98,00,30,6C,00,1A7:'(00)
1580 DATA 13,1D,32,F0,00,13,30,30,1C5:'BF1D0
1590 DATA 98,00,30,7C,00,13,2A,A0,221:'(00)
1600 DATA C0,10,30,50,60,80,B0,10,2F0:'BF1E0
1610 DATA 20,40,50,70,90,FF,03,05,2B7:'(00)
1620 DATA 03,05,03,05,00,00,00,01,011:'BF1F0
1630 DATA 12,1F,0D,00,00,00,AD,1F,10A:'(00)
1640 DATA F5,0B,AD,2F,F5,0B,AD,3F,3C8:'BF200
1650 DATA F5,0B,08,02,A8,1C,F5,0B,2CE:'(00)
1660 DATA A8,2C,F5,0B,A8,3C,F5,0B,3B8:'BF210
1670 DATA 07,0B,00,00,AB,1D,F5,0B,1DA:'(00)
1680 DATA AB,2D,F5,0B,AB,3D,F5,0B,3C0:'BF220
1690 DATA 8D,19,F5,0B,AD,16,F5,0B,369:'(00)
1700 DATA 8D,29,F5,0B,AD,26,F5,0B,389:'BF230
1710 DATA 8D,39,F5,0B,AD,36,F5,0B,3A9:'(00)
1720 DATA 0C,16,F5,0B,04,66,F3,0C,28B:'BF240
1730 DATA 26,F5,0B,04,66,F3,0C,36,2C5:'(00)
1740 DATA F5,0B,04,66,F3,08,00,75,2DA:'BF250
1750 DATA 88,1E,F5,0B,30,D0,00,2E,2D4:'(00)
1760 DATA F5,0B,30,61,00,00,18,08,1B1:'BF260
1770 DATA 30,63,00,1E,03,30,80,00,164:'(00)
1780 DATA 30,D0,00,3E,F5,0B,30,61,2CF:'BF270
1790 DATA 00,00,18,08,30,63,00,1E,0D1:'(00)
1800 DATA 03,30,80,00,60,00,18,DD,208:'BF280
1810 DATA FD,10,88,1E,F5,0B,4E,01,302:'(00)
1820 DATA A8,1E,F5,0B,88,2E,F5,0B,37C:'BF290
1830 DATA 4E,01,A8,2E,F5,0B,88,3E,2EB:'(00)
1840 DATA F5,0B,4E,01,A8,3E,F5,0B,335:'BF2A0
1850 DATA 44,33,88,0B,F5,0B,0C,00,216:'(00)
1860 DATA 00,00,44,33,9F,F4,1E,02,22A:'BF2B0
1870 DATA 45,43,60,00,1B,0C,AC,0C,1C7:'(00)
1880 DATA F5,0B,30,CC,00,00,0D,0F,218:'BF2C0
1890 DATA F5,0B,88,1D,F5,0B,6C,00,311:'(00)
1900 DATA 18,0D,7C,00,18,09,8A,1F,16B:'BF2D0
1910 DATA F5,0B,B2,25,30,6D,00,88,2FC:'(00)
1920 DATA 2D,F5,0B,6C,00,18,0D,7C,23A:'BF2E0
1930 DATA 00,18,09,8A,2F,F5,0B,B2,28C:'(00)
1940 DATA 25,30,6D,00,88,3D,F5,0B,287:'BF2F0
1950 DATA 6C,00,18,0D,7C,00,18,09,12E:'(00)
1960 DATA 8A,3F,F5,0B,B2,25,30,6D,33D:'BF300
1970 DATA 00,8C,0C,F5,0B,8A,0F,F5,326:'(00)
1980 DATA 0B,FD,32,FD,53,AA,F4,F3,51B:'BF310
1990 DATA 0B,AB,3F,F4,0B,AB,FF,F3,491:'(00)
2000 DATA 0B,AD,06,F4,0B,AD,27,F4,385:'BF320
2010 DATA 0B,AD,46,F4,0B,AD,5A,F4,3F8:'(00)
2020 DATA 0B,30,7D,00,14,EF,F3,8B,339:'BF330
2030 DATA 11,F5,0B,AB,3F,F4,0B,AB,3A5:'(00)
2040 DATA FF,F3,0B,7C,03,7C,03,7C,377:'BF340
2050 DATA 03,30,7D,00,14,EF,F3,8A,330:'(00)
2060 DATA 13,F5,0B,AA,F4,F3,0B,7C,42B:'BF350
2070 DATA 02,7C,02,7C,02,30,7D,00,1AB:'(00)
2080 DATA 14,EF,F3,12,75,07,2D,90,341:'BF360
2090 DATA 84,07,60,FF,18,26,90,84,33C:'(00)
2100 DATA 08,60,00,1A,2A,95,04,90,1D5:'BF370
2110 DATA 25,60,FF,18,17,60,DF,18,30A:'(00)
2120 DATA 0B,60,E0,1C,20,70,0F,B0,2B6:'BF380
2130 DATA 84,06,13,15,90,25,A8,0B,21A:'(00)
2140 DATA F5,0B,13,1D,B0,84,07,08,273:'BF390
2150 DATA 00,B0,84,08,3D,97,06,93,2A9:'(00)
2160 DATA 84,09,3D,9F,06,B5,04,28,250:'BF3A0
2170 DATA 70,F0,E4,E4,FD,10,E4,E4,5FD:'(00)
2180 DATA B0,84,07,46,01,46,00,0D,1D5:'BF3B0
2190 DATA 79,F4,0B,45,50,90,84,06,327:'(00)
2200 DATA 46,00,45,50,93,05,B3,84,2AA:'BF3C0
2210 DATA 09,38,70,0F,0D,FB,F4,0B,2C7:'(00)
2220 DATA 45,50,90,05,B0,84,08,3D,2A3:'BF3D0
2230 DATA 9F,06,0B,04,00,7C,03,1B,14E:'(00)
2240 DATA 04,30,CC,FD,02,00,00,00,1FF:'BF3E0
2250 DATA 7C,04,1B,12,02,40,F2,7C,25D:'(00)
2260 DATA 02,1A,41,0A,00,00,30,CC,163:'BF3F0
2270 DATA FD,02,7C,03,1A,22,0B,00,1C5:'(00)
2280 DATA 00,7C,05,1A,0E,0D,00,00,0B6:'BF400
2290 DATA 00,30,CC,FD,12,7C,04,1B,2A6:'(00)
2300 DATA 22,12,5F,00,00,00,30,CC,18F:'BF410
2310 DATA FD,12,7C,04,1B,2F,12,52,23D:'(00)
2320 DATA 00,00,7C,05,1B,13,0D,00,0BC:'BF420
2330 DATA 00,00,30,CC,FD,12,7C,04,28B:'(00)
2340 DATA 1B,43,12,3E,00,00,30,CC,1AA:'BF430
2350 DATA FD,02,7C,03,1A,15,0B,00,1B8:'(00)
2360 DATA 00,7C,05,1B,32,0D,00,00,0DB:'BF440
2370 DATA 00,30,CC,FD,12,7C,04,1B,2A6:'(00)
2380 DATA 62,12,1F,00,00,7C,05,1A,12E:'BF450
2390 DATA 0E,0D,00,00,00,30,CC,FD,214:'(00)
2400 DATA 12,7C,04,1B,76,12,0B,00,140:'BF460
2410 DATA 00,00,00,00,00,00,7C,04,080:'(00)
2420 DATA 1B,83,30,CC,FD,02,02,40,2DB:'BF470
2430 DATA F2,00,00,00,00,00,00,00,0F2:'(00)
2440 DATA 00,00,00,2E,01,97,00,4C,112:'BF480
2450 DATA 00,26,00,13,00,1D,01,8F,0E6:'(00)
2460 DATA 00,48,00,24,00,12,00,0D,08B:'BF490
2470 DATA 01,87,00,44,00,22,00,11,0FF:'(00)
2480 DATA 00,FE,00,7F,00,40,00,20,1DD:'BF4A0
2490 DATA 00,10,00,F0,00,78,00,3C,1B4:'(00)
2500 DATA 00,1E,00,0F,00,E2,00,71,180:'BF4B0
2510 DATA 00,39,00,1D,00,0F,00,D6,13B:'(00)
2520 DATA 00,6B,00,36,00,1B,00,0E,0CA:'BF4C0
2530 DATA 00,CA,00,65,00,33,00,1A,17C:'(00)
2540 DATA 00,0D,00,BE,00,5F,00,30,15A:'BF4D0
2550 DATA 00,18,00,0C,00,B4,00,5A,132:'(00)
2560 DATA 00,2D,00,17,00,0C,00,AA,0FA:'BF4E0
2570 DATA 00,55,00,2B,00,16,00,0B,0A1:'(00)
2580 DATA 00,A0,00,50,00,28,00,14,12C:'BF4F0
2590 DATA 00,0A,00,03,06,09,0C,12,03A:'(00)
2600 DATA 18,24,30,48,60,02,04,06,120:'BF500
2610 DATA 10,20,01,01,00,00,00,00,032:'(00)
2620 DATA 00,00,00,00,00,00,00,00,000:'BF510
2630 DATA 00,00,00,00,00,00,00,00,000:'(00)
2640 DATA 00,00,00,00,00,00,00,00,000:'BF520
2650 DATA 00,00,00,00,00,00,00,00,000:'(00)
2660 DATA 00,00,00,00,00,00,00,00,000:'BF530
2670 DATA 00,00,00,00,00,00,00,00,000:'(00)
2680 DATA 00,00,00,00,00,00,00,00,000:'BF540
2690 DATA 00,00,00,00,00,00,00,00,000:'(00)
2700 DATA END
  1. PC-E500 PLAY 3 music subroutine (C) 1993 Programed By T.Kobayashi (Ryu)

引用元 (株)工学社 月刊I/O別冊 93.11 ポケコンジャーナル第71号 グラフィック&サウンド

ΣXD<にゃ!