home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / smodel3d / emattset.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-02  |  3.1 KB  |  86 lines
  1. {$R-,S-,I-,D-,T-,F+,V-,B+,N-,L+ }
  2. {$M 1024,0,0 }
  3. program EmulATT;
  4. uses dos;
  5.  
  6. var
  7.     regs      : registers;      {registers for INTR function}
  8. CONST
  9.    Version = '1.00c'; {Beta Test Release}
  10.    VERDATE = '02 February 1988';
  11.  
  12. begin {EMATTSET}
  13.   Writeln ('EMATTSET: Version ',version,',  ',verdate);
  14.   Writeln ('AT&T Graphics card Emulator for the DEC VAXmate computer');
  15.   writeln ('       Copyright 1988 University of Saskatchewan');
  16.   writeln;
  17.   writeln ('         Written by Kevin Lowey');
  18.   writeln ('         Department of Computing Services');
  19.   writeln ('         Room 56 Physics Building');
  20.   writeln ('         University of Saskatchewan');
  21.   writeln ('         Saskatoon, Saskatchewan Canada S7N 0W0');
  22.   writeln;
  23.   writeln ('         LOWEY@SASK.BITNET');
  24.   writeln ('         ...!ihnp4!sask!lowey.uucp');
  25.   writeln ('         (306) 966-4826 SASK-TEL');
  26.   writeln;
  27.  
  28.   { Check to see if already installed }
  29.   regs.ax := $FF00;
  30.   intr($10,regs);
  31.   if NOT (regs.ax = $FF42) then begin {Signature found}
  32.     writeln ('The program EMULATT is not currently installed');
  33.     writeln ('Run EMULATT to make your VAXmate computer emulate');
  34.     writeln ('the AT&T 6300 640x400x2 graphics mode along with the');
  35.     writeln ('DEC VAXmate 640x400x2 graphics mode.');
  36.     writeln ('Program aborting . . .');
  37.     halt(1);
  38.   end
  39.   else begin {install}
  40.     if paramstr(1) = '+' then begin
  41.       regs.ax := $FF01;
  42.       intr($10,regs);
  43.       if regs.ax = $FFFF then begin
  44.         writeln ('The AT&T emulator will now report to calling programs');
  45.         writeln ('that it is using an AT&T graphics card, and NOT the');
  46.         writeln ('VAXmate graphics card.  This is not the default setting.');
  47.       end
  48.       else begin
  49.         writeln ('An error occured.  The AT&T graphics emulator will');
  50.         writeln ('continue to report the current settings');
  51.       end;
  52.     end
  53.     else if paramstr(1) = '-' then begin
  54.       regs.ax := $FF02;
  55.       intr($10,regs);
  56.       if regs.ax = $FFFF then begin
  57.         writeln ('The AT&T emulator will now report to calling programs');
  58.         writeln ('that it is using the VAXmate graphics card, and NOT the');
  59.         writeln ('AT&T graphics card.  This is the default setting.');
  60.       end
  61.       else begin
  62.         writeln ('An error occured.  The AT&T graphics emulator will');
  63.         writeln ('continue to report the current settings');
  64.       end;
  65.     end
  66.     else begin {Unrecognised Parameter}
  67.       writeln ('USAGE:  EMATTSET {+,-}');
  68.       writeln (
  69.         '  "EMATTSET +" makes EMULATT report that it is using an AT&T');
  70.       writeln (
  71.         '               graphics card for compatibility with AT&T software.');
  72.       writeln;
  73.       writeln (
  74.         '  "EMATTSET -" makes EMULATT report that it is using a VAXmate');
  75.       writeln (
  76.         '               graphics card for compatibility with DEC software.');
  77.       writeln;
  78.       regs.ax := $FF03;
  79.       intr($10,regs);
  80.       if regs.AX = $FF40 then
  81.         writeln ('EMULATT is currently set to "+"')
  82.       else
  83.         writeln ('EMULATT is currently set to "-"');
  84.     end; {usage}
  85.   end; {install}
  86. end. {att2vaxMATE}