home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV3N2.ZIP / TOSHFUNC.SRC < prev    next >
Encoding:
Text File  |  1992-03-31  |  943 b   |  42 lines
  1. { Low-level control functions of Toshiba T1000SE
  2.   (probably same on most other Toshiba laptops) }
  3.  
  4. { Don't run this as a program; extract the parts you need. }
  5.  
  6. BEGIN
  7.  
  8.   { Select lower CPU speed }
  9.   port[$0e3] := $5a;
  10.   port[$0e4] := port[$0e4] OR $80;
  11.  
  12.   { Select higher CPU speed }
  13.   port[$0e3] := $5a;
  14.   port[$0e4] := port[$0e4] AND NOT $80;
  15.  
  16.   { Disable speaker }
  17.   port[$0e5] := $5a;
  18.   port[$0e6] := port[$0e6] OR $20;
  19.  
  20.   { Enable speaker }
  21.   port[$0e5] := $5a;
  22.   port[$0e6] := port[$0e6] AND NOT $20;
  23.  
  24.   { Disable battery-low beeper }
  25.   port[$0e5] := $5a;
  26.   port[$0e6] := port[$0e6] OR $10;
  27.  
  28.   { Enable battery-low beeper }
  29.   port[$0e5] := $5a;
  30.   port[$0e6] := port[$0e6] AND NOT $10;
  31.  
  32.   { Modem power on }
  33.   port[$0e5] := $5a;
  34.   port[$0e6] := port[$0e6] OR $4;
  35.  
  36.   { Modem power off }
  37.   { (Only Toshiba, not Megahertz modems) }
  38.   port[$0e5] := $5a;
  39.   port[$0e6] := port[$0e6] AND NOT $4;
  40.  
  41. END.
  42.