head     56.3;
access   paws bayes jws quist brad dew jwh;
symbols  ;
locks    ; strict;
comment  @# @;


56.3
date     93.01.27.13.40.42;  author jwh;  state Exp;
branches ;
next     56.2;

56.2
date     93.01.27.12.15.30;  author jwh;  state Exp;
branches ;
next     56.1;

56.1
date     91.11.05.10.00.35;  author jwh;  state Exp;
branches ;
next     55.1;

55.1
date     91.08.25.10.35.23;  author jwh;  state Exp;
branches ;
next     54.1;

54.1
date     91.03.18.15.36.14;  author jwh;  state Exp;
branches ;
next     53.1;

53.1
date     91.03.11.19.35.01;  author jwh;  state Exp;
branches ;
next     52.1;

52.1
date     91.02.19.09.21.09;  author jwh;  state Exp;
branches ;
next     51.1;

51.1
date     91.01.30.16.19.44;  author jwh;  state Exp;
branches ;
next     50.1;

50.1
date     90.10.29.16.33.34;  author jwh;  state Exp;
branches ;
next     49.1;

49.1
date     90.08.14.14.17.17;  author jwh;  state Exp;
branches ;
next     48.1;

48.1
date     90.07.26.11.23.51;  author jwh;  state Exp;
branches ;
next     47.1;

47.1
date     90.05.14.11.10.07;  author dew;  state Exp;
branches ;
next     46.1;

46.1
date     90.05.07.08.57.10;  author jwh;  state Exp;
branches ;
next     45.1;

45.1
date     90.04.19.16.05.17;  author jwh;  state Exp;
branches ;
next     44.1;

44.1
date     90.04.01.22.23.40;  author jwh;  state Exp;
branches ;
next     43.1;

43.1
date     90.03.20.14.15.11;  author jwh;  state Exp;
branches ;
next     42.1;

42.1
date     90.01.23.17.59.14;  author jwh;  state Exp;
branches ;
next     41.1;

41.1
date     89.12.22.11.41.03;  author jwh;  state Exp;
branches ;
next     40.1;

40.1
date     89.09.29.12.02.14;  author jwh;  state Exp;
branches ;
next     39.1;

39.1
date     89.09.26.16.47.03;  author dew;  state Exp;
branches ;
next     38.1;

38.1
date     89.08.29.11.39.37;  author jwh;  state Exp;
branches ;
next     37.1;

37.1
date     89.05.12.11.53.07;  author dew;  state Exp;
branches ;
next     36.1;

36.1
date     89.02.06.10.30.28;  author dew;  state Exp;
branches ;
next     35.1;

35.1
date     89.02.02.13.48.37;  author dew;  state Exp;
branches ;
next     34.1;

34.1
date     89.01.23.16.22.16;  author jwh;  state Exp;
branches ;
next     33.1;

33.1
date     89.01.16.11.52.42;  author dew;  state Exp;
branches ;
next     32.1;

32.1
date     89.01.10.12.03.15;  author bayes;  state Exp;
branches ;
next     31.1;

31.1
date     88.12.14.18.23.55;  author bayes;  state Exp;
branches ;
next     30.1;

30.1
date     88.12.09.14.00.41;  author dew;  state Exp;
branches ;
next     29.1;

29.1
date     88.10.31.15.45.14;  author bayes;  state Exp;
branches ;
next     28.1;

28.1
date     88.10.06.11.10.43;  author dew;  state Exp;
branches ;
next     27.1;

27.1
date     88.09.29.11.54.54;  author bayes;  state Exp;
branches ;
next     26.1;

26.1
date     88.09.28.14.23.27;  author bayes;  state Exp;
branches ;
next     25.1;

25.1
date     88.03.02.09.51.27;  author bayes;  state Exp;
branches ;
next     24.1;

24.1
date     87.08.31.10.26.43;  author jws;  state Exp;
branches ;
next     23.1;

23.1
date     87.08.26.11.17.17;  author bayes;  state Exp;
branches ;
next     22.1;

22.1
date     87.08.17.11.54.52;  author bayes;  state Exp;
branches ;
next     21.1;

21.1
date     87.08.12.14.38.37;  author bayes;  state Exp;
branches ;
next     20.1;

20.1
date     87.07.30.11.49.30;  author bayes;  state Exp;
branches ;
next     19.1;

19.1
date     87.06.01.09.06.37;  author jws;  state Exp;
branches ;
next     18.1;

18.1
date     87.05.20.16.08.20;  author bayes;  state Exp;
branches ;
next     17.1;

17.1
date     87.04.30.11.11.11;  author jws;  state Exp;
branches ;
next     16.1;

16.1
date     87.04.26.16.20.39;  author jws;  state Exp;
branches ;
next     15.1;

15.1
date     87.04.13.10.04.01;  author jws;  state Exp;
branches ;
next     14.1;

14.1
date     87.04.01.16.16.11;  author jws;  state Exp;
branches ;
next     13.1;

13.1
date     87.02.28.19.02.58;  author jws;  state Exp;
branches ;
next     12.1;

12.1
date     87.02.02.13.58.09;  author jws;  state Exp;
branches ;
next     11.1;

11.1
date     87.01.19.10.24.07;  author jws;  state Exp;
branches ;
next     10.1;

10.1
date     86.12.24.11.40.25;  author jws;  state Exp;
branches ;
next     9.1;

9.1
date     86.12.12.15.26.21;  author bayes;  state Exp;
branches ;
next     8.1;

8.1
date     86.11.27.12.33.14;  author jws;  state Exp;
branches ;
next     7.1;

7.1
date     86.11.20.14.50.30;  author hal;  state Exp;
branches ;
next     6.1;

6.1
date     86.11.04.18.40.00;  author paws;  state Exp;
branches ;
next     5.1;

5.1
date     86.10.28.17.29.23;  author hal;  state Exp;
branches ;
next     4.1;

4.1
date     86.09.30.20.22.47;  author hal;  state Exp;
branches ;
next     3.1;

3.1
date     86.09.01.12.52.44;  author hal;  state Exp;
branches ;
next     2.1;

2.1
date     86.07.30.15.22.18;  author hal;  state Exp;
branches ;
next     1.1;

1.1
date     86.06.30.17.31.12;  author danm;  state tmp;
branches ;
next     ;


desc
@Base file for PWS 3.2 release.

@


56.3
log
@
pws2rcs automatic delta on Wed Jan 27 13:14:25 MST 1993
@
text
@					       (*

 (c) Copyright Hewlett-Packard Company, 1984.
All rights are reserved.  Copying or other
reproduction of this program except for archival
purposes is prohibited without the prior
written consent of Hewlett-Packard Company.


	    RESTRICTED RIGHTS LEGEND

Use, duplication, or disclosure by the Government
is subject to restrictions as set forth in
paragraph (b) (3) (B) of the Rights in Technical
Data and Computer Software clause in
DAR 7-104.9(a).

HEWLETT-PACKARD COMPANY
Fort Collins, Colorado                         *)

(* REMOTE CONSOLE - 26/JAN/1983 *)


$modcal$
$heap_dispose off$
$iocheck off$
$range off$ $ovflcheck off$
$debug off$
$STACKCHECK OFF$

program findconsole;

MODULE findc;

IMPORT sysglobals,asm;

EXPORT

VAR internal_console : BOOLEAN;
    console_isc      : INTEGER;

PROCEDURE findit;

IMPLEMENT

PROCEDURE findit;
TYPE char_ptr     = ^CHAR;
VAR  skip         : BOOLEAN;
     found_remote : BOOLEAN;
     value,isc    : INTEGER;
     keyboard,crt : BOOLEAN;
BEGIN

  console_isc := -1;
  internal_console := FALSE;
  found_remote := FALSE;

  { search for 98626 or 98628 with 'remote' switch set - isc 0,8-31 }
  FOR isc:=0 TO 31 DO BEGIN
    IF ( (isc>0) AND (isc<8) ) OR skip
      THEN BEGIN
	skip := FALSE;
	{ skip isc 1..7 and double wide cards }
      END
      ELSE BEGIN
	TRY

	  value := ORD(char_ptr(HEX('600001')+isc*65536)^);

	  IF (value=28) OR (value=29) THEN skip:=TRUE;
	      { skip double wide cards }

	  IF value=(128+2)
	    THEN BEGIN
	      { remote bit set on a 98626 card }
	      console_isc := isc;
	      found_remote := TRUE;
	    END;

	  IF (value=(128+52)) AND
	     ((ORD(char_ptr(HEX('60400D')+isc*65536)^))=0)     { card alive? }
	    THEN BEGIN
	      { remote bit set on a 98628 card }
	      value := ORD(char_ptr(HEX('600000')+isc*65536+16395)^)*256+
		       ORD(char_ptr(HEX('600000')+isc*65536+16393)^);
	      IF value < 32768
		THEN BEGIN
		  value := ORD(char_ptr(HEX('600000')+isc*65536+value*2+1)^);
		  IF value MOD 128 = 1
		    THEN BEGIN
		      value := ORD(char_ptr(HEX('600000')+
					    isc*65536+HEX('402F'))^);
		      IF value = 1
			THEN BEGIN
			  console_isc := isc;
			  found_remote := TRUE;
			END; { of IF value = 1 THEN }
		    END; { of IF value MOD 128 =1 THEN }
		END; { of IF value<32768 THEN }
	    END; { of IF value=(128+52) THEN }

	RECOVER BEGIN
	  { bus error, I hope }
	END;

      END; { of IF }
  END; { of FOR TO BEGIN }



  { search for keyboard and crt hardware }
  TRY
    crt := TRUE;
    value := ORD(char_ptr(HEX('512001'))^);
  RECOVER crt := FALSE;

  value := ORD(char_ptr(HEX('FFFED3'))^);
  IF value MOD 16 > 7 THEN keyboard := FALSE
		      ELSE keyboard := TRUE;

  IF keyboard AND crt AND NOT found_remote
    THEN BEGIN
      internal_console := TRUE;
    END;




  { search for 98626 or 98628 without 'remote' switch set - isc 0,8-31 }
  IF NOT found_remote AND NOT internal_console
    THEN BEGIN
      { search again }
      FOR isc:=0 TO 31 DO BEGIN
	IF ( (isc>0) AND (isc<8) ) OR skip
	  THEN BEGIN
	    skip := FALSE;
	    { skip isc 1..7 and double wide cards }
	  END
	  ELSE BEGIN
	    TRY

	      value := ORD(char_ptr(HEX('600001')+isc*65536)^);

	      IF (value=28) OR (value=29) THEN skip:=TRUE;
		  { skip double wide cards }

	      IF value=(2)
		THEN BEGIN
		  { no remote bit set on a 98626 card }
		  console_isc := isc;
		END;

	      IF (value=52) AND
		 ((ORD(char_ptr(HEX('60400D')+isc*65536)^))=0) { card alive? }
		THEN BEGIN
		  { no remote bit set on a 98628 card }
		  value := ORD(char_ptr(HEX('600000')+isc*65536+16395)^)*256+
			   ORD(char_ptr(HEX('600000')+isc*65536+16393)^);
		  IF value < 32768
		    THEN BEGIN
		      value:=ORD(char_ptr(HEX('600000')+isc*65536+value*2+1)^);
		      IF value MOD 128 = 1
			THEN BEGIN
			  value := ORD(char_ptr(HEX('600000')+
						isc*65536+HEX('402F'))^);
			  IF value = 1
			    THEN BEGIN
			      console_isc := isc;
			    END; { IF value=1 THEN }
			END; { of IF value MOD 128=1 THEN }
		    END; { of IF value<32768 THEN }
		END; { of IF value=(52) THEN }

	    RECOVER BEGIN
	      { bus error, I hope }
	    END;

	  END; { of IF }
      END { of FOR TO BEGIN }
    END; { of IF NOT internal_console AND NOT found_remote }

  IF (console_isc=-1) AND NOT internal_console
    THEN BEGIN
      { panic - no console }
      internal_console := TRUE;
      { hope some part of the hardware is there }
    END;


END; { of PROCEDURE findit }


END; { of MODULE findc }

IMPORT findc,loader;

BEGIN
  findit;
  markuser;
END.

@


56.2
log
@
pws2rcs automatic delta on Wed Jan 27 11:57:27 MST 1993
@
text
@d1 201
@


56.1
log
@Automatic bump of revision number for PWS version 3.25
@
text
@a0 201
					       (*

 (c) Copyright Hewlett-Packard Company, 1984.
All rights are reserved.  Copying or other
reproduction of this program except for archival
purposes is prohibited without the prior
written consent of Hewlett-Packard Company.


	    RESTRICTED RIGHTS LEGEND

Use, duplication, or disclosure by the Government
is subject to restrictions as set forth in
paragraph (b) (3) (B) of the Rights in Technical
Data and Computer Software clause in
DAR 7-104.9(a).

HEWLETT-PACKARD COMPANY
Fort Collins, Colorado                         *)

(* REMOTE CONSOLE - 26/JAN/1983 *)


$modcal$
$heap_dispose off$
$iocheck off$
$range off$ $ovflcheck off$
$debug off$
$STACKCHECK OFF$

program findconsole;

MODULE findc;

IMPORT sysglobals,asm;

EXPORT

VAR internal_console : BOOLEAN;
    console_isc      : INTEGER;

PROCEDURE findit;

IMPLEMENT

PROCEDURE findit;
TYPE char_ptr     = ^CHAR;
VAR  skip         : BOOLEAN;
     found_remote : BOOLEAN;
     value,isc    : INTEGER;
     keyboard,crt : BOOLEAN;
BEGIN

  console_isc := -1;
  internal_console := FALSE;
  found_remote := FALSE;

  { search for 98626 or 98628 with 'remote' switch set - isc 0,8-31 }
  FOR isc:=0 TO 31 DO BEGIN
    IF ( (isc>0) AND (isc<8) ) OR skip
      THEN BEGIN
	skip := FALSE;
	{ skip isc 1..7 and double wide cards }
      END
      ELSE BEGIN
	TRY

	  value := ORD(char_ptr(HEX('600001')+isc*65536)^);

	  IF (value=28) OR (value=29) THEN skip:=TRUE;
	      { skip double wide cards }

	  IF value=(128+2)
	    THEN BEGIN
	      { remote bit set on a 98626 card }
	      console_isc := isc;
	      found_remote := TRUE;
	    END;

	  IF (value=(128+52)) AND
	     ((ORD(char_ptr(HEX('60400D')+isc*65536)^))=0)     { card alive? }
	    THEN BEGIN
	      { remote bit set on a 98628 card }
	      value := ORD(char_ptr(HEX('600000')+isc*65536+16395)^)*256+
		       ORD(char_ptr(HEX('600000')+isc*65536+16393)^);
	      IF value < 32768
		THEN BEGIN
		  value := ORD(char_ptr(HEX('600000')+isc*65536+value*2+1)^);
		  IF value MOD 128 = 1
		    THEN BEGIN
		      value := ORD(char_ptr(HEX('600000')+
					    isc*65536+HEX('402F'))^);
		      IF value = 1
			THEN BEGIN
			  console_isc := isc;
			  found_remote := TRUE;
			END; { of IF value = 1 THEN }
		    END; { of IF value MOD 128 =1 THEN }
		END; { of IF value<32768 THEN }
	    END; { of IF value=(128+52) THEN }

	RECOVER BEGIN
	  { bus error, I hope }
	END;

      END; { of IF }
  END; { of FOR TO BEGIN }



  { search for keyboard and crt hardware }
  TRY
    crt := TRUE;
    value := ORD(char_ptr(HEX('512001'))^);
  RECOVER crt := FALSE;

  value := ORD(char_ptr(HEX('FFFED3'))^);
  IF value MOD 16 > 7 THEN keyboard := FALSE
		      ELSE keyboard := TRUE;

  IF keyboard AND crt AND NOT found_remote
    THEN BEGIN
      internal_console := TRUE;
    END;




  { search for 98626 or 98628 without 'remote' switch set - isc 0,8-31 }
  IF NOT found_remote AND NOT internal_console
    THEN BEGIN
      { search again }
      FOR isc:=0 TO 31 DO BEGIN
	IF ( (isc>0) AND (isc<8) ) OR skip
	  THEN BEGIN
	    skip := FALSE;
	    { skip isc 1..7 and double wide cards }
	  END
	  ELSE BEGIN
	    TRY

	      value := ORD(char_ptr(HEX('600001')+isc*65536)^);

	      IF (value=28) OR (value=29) THEN skip:=TRUE;
		  { skip double wide cards }

	      IF value=(2)
		THEN BEGIN
		  { no remote bit set on a 98626 card }
		  console_isc := isc;
		END;

	      IF (value=52) AND
		 ((ORD(char_ptr(HEX('60400D')+isc*65536)^))=0) { card alive? }
		THEN BEGIN
		  { no remote bit set on a 98628 card }
		  value := ORD(char_ptr(HEX('600000')+isc*65536+16395)^)*256+
			   ORD(char_ptr(HEX('600000')+isc*65536+16393)^);
		  IF value < 32768
		    THEN BEGIN
		      value:=ORD(char_ptr(HEX('600000')+isc*65536+value*2+1)^);
		      IF value MOD 128 = 1
			THEN BEGIN
			  value := ORD(char_ptr(HEX('600000')+
						isc*65536+HEX('402F'))^);
			  IF value = 1
			    THEN BEGIN
			      console_isc := isc;
			    END; { IF value=1 THEN }
			END; { of IF value MOD 128=1 THEN }
		    END; { of IF value<32768 THEN }
		END; { of IF value=(52) THEN }

	    RECOVER BEGIN
	      { bus error, I hope }
	    END;

	  END; { of IF }
      END { of FOR TO BEGIN }
    END; { of IF NOT internal_console AND NOT found_remote }

  IF (console_isc=-1) AND NOT internal_console
    THEN BEGIN
      { panic - no console }
      internal_console := TRUE;
      { hope some part of the hardware is there }
    END;


END; { of PROCEDURE findit }


END; { of MODULE findc }

IMPORT findc,loader;

BEGIN
  findit;
  markuser;
END.

@


55.1
log
@Automatic bump of revision number for PWS version 3.25A
@
text
@@


54.1
log
@Automatic bump of revision number for PWS version 3.24
@
text
@@


53.1
log
@Automatic bump of revision number for PWS version 3.24B
@
text
@@


52.1
log
@Automatic bump of revision number for PWS version 3.24A
@
text
@@


51.1
log
@Automatic bump of revision number for PWS version 3.24d
@
text
@@


50.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


49.1
log
@Automatic bump of revision number for PWS version 3.24b
@
text
@@


48.1
log
@Automatic bump of revision number for PWS version 3.24a
@
text
@@


47.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


46.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


45.1
log
@Automatic bump of revision number for PWS version 3.23C
@
text
@@


44.1
log
@Automatic bump of revision number for PWS version 3.23B
@
text
@@


43.1
log
@Automatic bump of revision number for PWS version 3.23aA
@
text
@@


42.1
log
@Automatic bump of revision number for PWS version 3.23e
@
text
@@


41.1
log
@Automatic bump of revision number for PWS version 3.23d
@
text
@@


40.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


39.1
log
@Automatic bump of revision number for PWS version 3.23b
@
text
@@


38.1
log
@Automatic bump of revision number for PWS version 3.23a
@
text
@@


37.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


36.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


35.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


34.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


33.1
log
@Automatic bump of revision number for PWS version 3.22D
@
text
@@


32.1
log
@Automatic bump of revision number for PWS version 3.22C
@
text
@@


31.1
log
@Automatic bump of revision number for PWS version 3.22B
@
text
@@


30.1
log
@Automatic bump of revision number for PWS version 3.22A
@
text
@@


29.1
log
@Automatic bump of revision number for PWS version 3.22b
@
text
@@


28.1
log
@Automatic bump of revision number for PWS version 3.3b
@
text
@@


27.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


26.1
log
@Automatic bump of revision number for PWS version 3.3 Synch
@
text
@@


25.1
log
@Automatic bump of revision number for PWS version 3.2Y
@
text
@@


24.1
log
@Automatic bump of revision number for PWS version 3.2
@
text
@@


23.1
log
@Automatic bump of revision number for PWS version 3.2P
@
text
@@


22.1
log
@Automatic bump of revision number for PWS version 3.2N
@
text
@@


21.1
log
@Automatic bump of revision number for PWS version 3.2M
@
text
@@


20.1
log
@Automatic bump of revision number for PWS version 3.2L
@
text
@@


19.1
log
@Automatic bump of revision number for PWS version 3.2K
@
text
@@


18.1
log
@Automatic bump of revision number for PWS version 3.2J
@
text
@@


17.1
log
@Automatic bump of revision number for PWS version 3.2I+
@
text
@@


16.1
log
@Automatic bump of revision number for PWS version 3.2I
@
text
@@


15.1
log
@Automatic bump of revision number for PWS version 3.2H
@
text
@@


14.1
log
@Automatic bump of revision number for PWS version 3.2G
@
text
@@


13.1
log
@Automatic bump of revision number for PWS version 3.2F
@
text
@@


12.1
log
@Automatic bump of revision number for PWS version 3.2E
@
text
@@


11.1
log
@Automatic bump of revision number for PWS version 3.2D
@
text
@@


10.1
log
@Automatic bump of revision number for PWS version 3.2C
@
text
@@


9.1
log
@Automatic bump of revision number for PWS version 3.2B
@
text
@@


8.1
log
@Automatic bump of revision number for PWS version 3.2A
@
text
@@


7.1
log
@Automatic bump of revision number for PWS version 3.2l
@
text
@@


6.1
log
@Automatic bump of revision number for PWS version 3.2k
@
text
@@


5.1
log
@Automatic bump of revision number for PWS version 3.2j
@
text
@@


4.1
log
@Automatic bump of revision number for PWS version 3.2i
@
text
@@


3.1
log
@Auto bump revision for PAWS 3.2h
@
text
@@


2.1
log
@Auto bump rev number to 2.1 for sys 3.2e.
@
text
@@


1.1
log
@Initial revision
@
text
@@
