[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Addressing 2GS slots with Orca Pascal?

I tried it on my 2GS and it works. I did test with $0E0C030 and it worked too. The difference in execution speed between debug/no debug builds is impressive. Without debug option I had to put a delay loop between each reference to speaker in order to hear a tone. What a crappy way to make music knowing there is an Ensoniq chip on the motherboard! :).
The next step is to drop the sprite card in and have fun with the registers. Now, where did I put that old color TV, RF modulator and the game/antenna switch... 

Thanks for the code sample,


Yves
Out of curiosity I tried this trivial program to see if I could click the speaker in Bernie to the Rescue: 

 + - + - + Cut click.pas + - + - +

{$keep 'click'}
program click(output);
var 
  s: byte;
  p: ^byte;
  i: integer;
begin 
  p:= Pointer($0c030);
  for i:= 1 to 27000 do begin
     s:= p^;
  end;
end.

 + - + - + End click.pas + - + - +
It caused Bernie to click the speaker. Cool, I learned something else new today :o) It's been so long since I wrote a Pascal program I hope I didn't do something wrong ;o)