


Жизнь в плане измерений теперь точно должна улучшиться

Moderator: Shaos
Блин... какие все негодяи!Alekcandr wrote:Жду конструктивной критики
Вот это привильный шаг!Alekcandr wrote:Понес выбрасывать.MSX две штуки. Ослов пять штук (этого тоже с экраном кривым ).
Code: Select all
5 ' Initializes the sound registers of the PSG
10 FOR R=0 TO 13
20 IF R=7 THEN SOUND R,&B10111111 ELSE SOUND R,0
30 NEXT
40 ' Plays the note C on channel A with a volume of 12
50 SOUND 0,&hAC ' 8 least significant bits of frequency on channel A
60 SOUND 1,1 ' 4 most significant bits of frequency on channel A
70 SOUND 8,&b1100 ' Sets the volume to 12 on channel A
80 SOUND 7,&b10111110 ' Activates the sound generator on channel A
Code: Select all
5 ' Initializes the sound registers of the PSG
10 FOR R=0 TO 13
15 IF R=7 THEN SOUND R,&B10111111 ELSE SOUND R,0
20 NEXT
25 ' Plays the note C on channel A with a volume of 15
30 SOUND 0,&hAC ' 8 least significant bits of frequency on channel A
35 SOUND 1,1 ' 4 most significant bits of frequency on channel A
40 SOUND 8,&b1111 ' Sets the volume to 15 on channel A
45 ' Plays the note C on channel B with a volume of 15
50 SOUND 2,&hAC ' 8 least significant bits of frequency on channel B
55 SOUND 3,1 ' 4 most significant bits of frequency on channel B
60 SOUND 9,&b1111 ' Sets the volume to 15 on channel B
65 ' Activates the sound generator on channel A and B
70 SOUND 7,&b10111100