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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1.1
date     86.06.30.17.33.16;  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
@$modcal$
PROGRAM INITRSCRT;
module rskeys;
import
  sysglobals, isr, sysdevs;
export
  procedure initrs232;
implement
var
  rs232isrib  :isrib;
  rs232resetreg     [6422529 { 620001 } ]: char;
  rs232intreg       [6422531 { 620003 } ]: char;
  rs232rcvbuf       [6422545 { 620011 } ]: char;
  rs232xmitbuf      [6422545 { 620011 } ]: char;
  rs232intenablereg [6422547 { 620013 } ]: char;
  rs232intidreg     [6422549 { 620015 } ]: char;
  rs232linectrlreg  [6422551 { 620017 } ]: char;
  rs232modemctrlreg [6422553 { 620019 } ]: char;
  rs232linestatreg  [6422555 { 62001B } ]: char;
  rs232modemstatreg [6422557 { 62001D } ]: char;


procedure rs232isr(isribptr : pisrib);
var
  rs232data:   char;

begin(*rs232isr*)
   rs232data := rs232rcvbuf;
   with keybuffer^ do
   begin
     if size>=maxsize then beep
     else keybufops(kappend,rs232data);
   end;
end;

procedure initrs232;
  procedure pause;
   var
      dummyint : integer;
   begin
      {do nothing}
   end;

begin
   permisrlink(rs232isr,charptr(6422531){620003HEX},
		192,192,6,addr(rs232isrib));
   rs232resetreg     := chr(255); {reset write interface }
   pause;
   rs232resetreg     := chr(0);   {reset write interface }
   pause;
   rs232linectrlreg  := chr(128); {set divisor latch access bit}
   rs232xmitbuf      := chr(32);  {low byte of baud rate divisor}
   rs232intenablereg := chr(0);   {top byte of baud rate divisor}

   rs232linectrlreg  := chr(3);   {8 bits, 1 stop bit}
   rs232modemctrlreg := chr(0);
   rs232intenablereg := chr(1);   {rcv buffer full interrupt}
   rs232intreg       := chr(128); {enable interrupts }
end;

end;    {rskeys module}


module rscrt;
import
  sysglobals, misc, sysdevs;
export
  procedure rscrtinit;
implement
var
  oldcrtio : amtype;

  procedure writers232(c: char);
  var
      rs232resetreg     [6422529 { 620001 } ]: char;
      rs232intreg       [6422531 { 620003 } ]: char;
      rs232rcvbuf       [6422545 { 620011 } ]: char;
      rs232xmitbuf      [6422545 { 620011 } ]: char;
      rs232intenablereg [6422547 { 620013 } ]: char;
      rs232intidreg     [6422549 { 620015 } ]: char;
      rs232linectrlreg  [6422551 { 620017 } ]: char;
      rs232modemctrlreg [6422553 { 620019 } ]: char;
      rs232linestatreg  [6422555 { 62001B } ]: char;
      rs232modemstatreg [6422557 { 62001D } ]: char;
      rs232status: packed record case integer of
		     0: (pad : boolean;
			tsre : boolean;  {transmitter shift reg empty}
			thre : boolean;  {transmitter holding reg empty}
			bi   : boolean;  {break indicator}
			fe   : boolean;  {framing error}
			pe   : boolean;  {parity error}
			oe   : boolean;  {overrun error}
			dr   : boolean); {data ready}
		     1: (statchar : char)
		   end;

  begin
     repeat
	rs232status.statchar := rs232linestatreg;
     until rs232status.thre;

     rs232xmitbuf := c;
  end;


  procedure rscrtio(fp: fibp; request: amrequesttype;
		    anyvar  buffer: window; bufsize,position: integer);
  var
    c : char;
    buf : charptr;
    length : integer;
  begin
    case request of
      writeeol: writers232(#13);
      startwrite,
      writebytes:
	begin
	  length:=bufsize; buf:=addr(buffer);
	  while length>0 do
	  begin
	    c:=buf^; buf:=addr(buf^,1); length:=length-1;
	    writers232(c);
	    if c=chr(etx) then length:=0;
	  end; {while}
	end;
      otherwise
    end; { case }
    CALL(OLDCRTIO,FP,REQUEST,BUFFER,BUFSIZE,POSITION);
  end;

  procedure rscrtinit;
  begin
    oldcrtio:=crtiohook;
    crtiohook:=rscrtio;
  end;
end; { rscrt module }
import rskeys,rscrt,loader;
BEGIN
  initrs232;
  rscrtinit;
  markuser;
END.
@


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


56.1
log
@Automatic bump of revision number for PWS version 3.25
@
text
@a0 142
$modcal$
PROGRAM INITRSCRT;
module rskeys;
import
  sysglobals, isr, sysdevs;
export
  procedure initrs232;
implement
var
  rs232isrib  :isrib;
  rs232resetreg     [6422529 { 620001 } ]: char;
  rs232intreg       [6422531 { 620003 } ]: char;
  rs232rcvbuf       [6422545 { 620011 } ]: char;
  rs232xmitbuf      [6422545 { 620011 } ]: char;
  rs232intenablereg [6422547 { 620013 } ]: char;
  rs232intidreg     [6422549 { 620015 } ]: char;
  rs232linectrlreg  [6422551 { 620017 } ]: char;
  rs232modemctrlreg [6422553 { 620019 } ]: char;
  rs232linestatreg  [6422555 { 62001B } ]: char;
  rs232modemstatreg [6422557 { 62001D } ]: char;


procedure rs232isr(isribptr : pisrib);
var
  rs232data:   char;

begin(*rs232isr*)
   rs232data := rs232rcvbuf;
   with keybuffer^ do
   begin
     if size>=maxsize then beep
     else keybufops(kappend,rs232data);
   end;
end;

procedure initrs232;
  procedure pause;
   var
      dummyint : integer;
   begin
      {do nothing}
   end;

begin
   permisrlink(rs232isr,charptr(6422531){620003HEX},
		192,192,6,addr(rs232isrib));
   rs232resetreg     := chr(255); {reset write interface }
   pause;
   rs232resetreg     := chr(0);   {reset write interface }
   pause;
   rs232linectrlreg  := chr(128); {set divisor latch access bit}
   rs232xmitbuf      := chr(32);  {low byte of baud rate divisor}
   rs232intenablereg := chr(0);   {top byte of baud rate divisor}

   rs232linectrlreg  := chr(3);   {8 bits, 1 stop bit}
   rs232modemctrlreg := chr(0);
   rs232intenablereg := chr(1);   {rcv buffer full interrupt}
   rs232intreg       := chr(128); {enable interrupts }
end;

end;    {rskeys module}


module rscrt;
import
  sysglobals, misc, sysdevs;
export
  procedure rscrtinit;
implement
var
  oldcrtio : amtype;

  procedure writers232(c: char);
  var
      rs232resetreg     [6422529 { 620001 } ]: char;
      rs232intreg       [6422531 { 620003 } ]: char;
      rs232rcvbuf       [6422545 { 620011 } ]: char;
      rs232xmitbuf      [6422545 { 620011 } ]: char;
      rs232intenablereg [6422547 { 620013 } ]: char;
      rs232intidreg     [6422549 { 620015 } ]: char;
      rs232linectrlreg  [6422551 { 620017 } ]: char;
      rs232modemctrlreg [6422553 { 620019 } ]: char;
      rs232linestatreg  [6422555 { 62001B } ]: char;
      rs232modemstatreg [6422557 { 62001D } ]: char;
      rs232status: packed record case integer of
		     0: (pad : boolean;
			tsre : boolean;  {transmitter shift reg empty}
			thre : boolean;  {transmitter holding reg empty}
			bi   : boolean;  {break indicator}
			fe   : boolean;  {framing error}
			pe   : boolean;  {parity error}
			oe   : boolean;  {overrun error}
			dr   : boolean); {data ready}
		     1: (statchar : char)
		   end;

  begin
     repeat
	rs232status.statchar := rs232linestatreg;
     until rs232status.thre;

     rs232xmitbuf := c;
  end;


  procedure rscrtio(fp: fibp; request: amrequesttype;
		    anyvar  buffer: window; bufsize,position: integer);
  var
    c : char;
    buf : charptr;
    length : integer;
  begin
    case request of
      writeeol: writers232(#13);
      startwrite,
      writebytes:
	begin
	  length:=bufsize; buf:=addr(buffer);
	  while length>0 do
	  begin
	    c:=buf^; buf:=addr(buf^,1); length:=length-1;
	    writers232(c);
	    if c=chr(etx) then length:=0;
	  end; {while}
	end;
      otherwise
    end; { case }
    CALL(OLDCRTIO,FP,REQUEST,BUFFER,BUFSIZE,POSITION);
  end;

  procedure rscrtinit;
  begin
    oldcrtio:=crtiohook;
    crtiohook:=rscrtio;
  end;
end; { rscrt module }
import rskeys,rscrt,loader;
BEGIN
  initrs232;
  rscrtinit;
  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
@@
