🚀 go-pugleaf

In article <81@cscdec.cs.com> jack@cscdec.cs.com (Jack Hudler) writes:
>In article <10312@milton.u.washington.edu> zyx@milton.u.washington.edu (Bt Garner) writes:

>>The Plea:  Is there a way to access the speaker without the use of DosBeep?
>>Examples would be greatly apprecited, any language will do.
>>
>Probably not, but don;t take my word for it. However, why don't you just start
>a thread that handles the beeping.

It is possible to do this if you have IOPL.  An example in Modula-2:

(*# call (iopl => on) *)
IMPLEMENTATION MODULE IOPsound;
IMPORT SYSTEM;
PROCEDURE BeepProc;
TYPE bs = SET OF [0..7};
CONST freq=3000; PPIport=60H; Timer=42H;
VAR m:bs; delay,j,interval:CARDINAL;
BEGIN
  interval := CARDINAL(1193181 DIV LONGVARD(freq));
  m := bs(SYSTEM.In(PPIport+1));
  IF m*bs{0,1} = bs{} THEN
    SYSTEM.Out(Timer+1,SHORTCARD(m+bs{0,1}));
    SYSTEM.Out(Timer+3,0B6H);
  END;
  SYSTEM.Out(Timer+3,SHORTCARD(interval MOD 256));
  SYSTEM.Out(Timer+2,SHORTCARD(interval DIV 256));
  FOR delay := 1 TO 10000 DO j := delay*delay END;
  m := bs(SYSTEM.In(PPIport+1));
  SYSTEM.Out(PPIport+1,SHORTCARD(m*bs{2,3,4,5,6,7}));
END BeepProc;
END IOPsound.

Example taken from the Modula-2 1.0 OS/2 supplemental documentation.

Mikael Wahlgren      d9mikael@dtek.chalmers.se