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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

23.1
date     87.08.26.10.27.17;  author bayes;  state Exp;
branches ;
next     22.2;

22.2
date     87.08.25.19.32.07;  author jws;  state Exp;
branches ;
next     22.1;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1.1
date     86.06.30.15.07.36;  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, 1985.
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                         *)


$MODCAL ON$
$PARTIAL_EVAL ON$
$STACKCHECK ON$
$RANGE OFF$
$DEBUG OFF$
$OVFLCHECK OFF$
$PAGE$

(************************************************************************)
(*                                                                      *)
(*          RELEASED    VERSION         3.1                             *)
(*                                                                      *)
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      IOLIB           DMA_DRIVERS                                     *)
(*                                                                      *)
(*                                                                      *)
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      library      -  IOLIB                                           *)
(*      name         -  DMA_DRIVERS                                     *)
(*      module(s)    -  init_dma                                        *)
(*                                                                      *)
(*      author       -  Tim Mikkelsen                                   *)
(*      phone        -  303-226-3800   ext. 2910                        *)
(*                                                                      *)
(*      date         -  June  1 , 1981                                  *)
(*      update       -  Aug  10 , 1983 by J Schmidt - rev. number       *)
(*      release      -  Jul  12 , 1985                                  *)
(*                                                                      *)
(*      source       -  IOLIB:DMA_DRV.TEXT                              *)
(*      object       -  IOLIB:DMA_DRV.CODE                              *)
(*                                                                      *)
(************************************************************************)
$PAGE$
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      BUG FIX HISTORY         - after release 1.0                     *)
(*                                                                      *)
(*                                                                      *)
(*      BUG #   BY  / ON        LOC             DESCRIPTION             *)
(*      -----   -----------     --------------  ----------------------  *)
(*                                                                      *)
(*      367     T Mikkelsen     dma_initialize  Allow eXecute of driver *)
(*              09/22/82                        and have it install     *)
(*                                              itself in the system.   *)
(*                                                                      *)
(************************************************************************)
$PAGE$
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      This is the source code for an external procedures library      *)
(*      to be used for general purpose interfacing on the HP 9826.      *)
(*                                                                      *)
(*      The library consists of 3 primary sets of modules -             *)
(*                                                                      *)
(*              1.      KERNEL modules                                  *)
(*              2.      driver modules                                  *)
(*              3.      IOLIB  modules                                  *)
(*                                                                      *)
(*      The KERNEL modules consist of the following modules -           *)
(*                                                                      *)
(*              1.      iodeclarations  ( contains static r/w space )   *)
(*              2.      iocomasm                                        *)
(*              3.      general_0       ( initialization & low level    *)
(*                                        routines like ioread/iowrite) *)
(*      The KERNEL modules also have an executable program segement     *)
(*      that gets executed at the time it is loaded.  This program      *)
(*      initializes the static read/write memory.  This program also    *)
(*      allocates the temporary storage for any card that exists -      *)
(*      independent of whether there is or is not a driver for it.      *)
(*                                                                      *)
(*      The driver modules consist of the actual assembly or PASCAL     *)
(*      routines that deal with a specific interface card.  There is    *)
(*      also an executable program segment for each driver module.      *)
(*      This program searches the select code table in the static r/w   *)
(*      initialized by the KERNEL general_0 module for all select codes *)
(*      that have the right interface card ( HPIB drivers will search   *)
(*      for the 98624 interface ).  This program will then set up the   *)
(*      driver tables to point to the correct drivers.                  *)
(*                                                                      *)
(*      The rest of the IOLIB modules are high-level modules that are   *)
(*      used by an end user in his/her application program.             *)
(*                                                                      *)
(*      The KERNEL and some set of driver modules will exist in the     *)
(*      SYSTEM.INITLIB file as object code ( not EXPORT text ).  The    *)
(*      export text will reside on the SYSTEM.LIBRARY file.  The rest   *)
(*      of the library will reside on the SYSTEM.LIBRARY.               *)
(*                                                                      *)
(************************************************************************)
$PAGE$
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      REFERENCES :                                                    *)
(*                                                                      *)
(*                                                                      *)
(*      1.  9826 I/O Designers Guide            ( Loyd Nelson )         *)
(*                                                                      *)
(*      2.  68000 Manual                        ( Motorola )            *)
(*                                                                      *)
(*      3.  Pascal alpha site ERS               ( Roger Ison )          *)
(*                                                                      *)
(*      4.  Pascal I/O Library ERS              ( Tim Mikkelsen )       *)
(*                                                                      *)
(*      5.  9826 HPL EIO & IOD listings         ( Bob Hallissy )        *)
(*                                                                      *)
(*      6.  9826 HPL Misc. I/O Doc.             ( Bob Hallissy )        *)
(*                                                                      *)
(*      7.  9826 card documentation             ( Mfg. Specs. )         *)
(*                                                                      *)
(*      8.  Pascal I/O Library ISR              ( Tim Mikkelsen )       *)
(*                                                                      *)
(*                                                                      *)
(************************************************************************)
$PAGE$
PROGRAM dma_initialize ( INPUT , OUTPUT );
$PAGE$
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      DMA DRIVERS                                                     *)
(*                                                                      *)
(*                                                                      *)
(************************************************************************)
$PAGE$
MODULE init_dma ;

	{ by      Tim Mikkelsen
	  date    09/23/81
	  update  10/04/82

	  purpose This module is a series of DMA procedures to be linked into
		  the system isr poll routines. The module also contains the
		  initialization code.
	}

IMPORT  $SEARCH 'IOLIB:KERNEL.CODE'$
	  sysglobals, iodeclarations ;

EXPORT


  PROCEDURE dma_isr_0   ( an_isrib   : PISRIB );
  PROCEDURE dma_isr_1   ( an_isrib   : PISRIB );
  PROCEDURE io_init_dma;


IMPLEMENT


  IMPORT  isr,
	  general_0 ;



  PROCEDURE dma_isr_0   ( an_isrib   : PISRIB );
  VAR io_work_word : io_word;
  BEGIN
    IF dma_ch_0.dummy_pr = NIL
      THEN BEGIN
	{ no procedure for dma isr - disable channel }
	io_work_word:=ioread_word(3,0);
      END
      ELSE BEGIN
	{ call the procedure with a temp ptr }
	CALL(dma_ch_0.real_proc,isc_table[dma_isc_0].io_tmp_ptr);
      END; { of IF }
  END; { of dma_isr_0 }




  PROCEDURE dma_isr_1   ( an_isrib   : PISRIB );
  VAR io_work_word : io_word;
  BEGIN
    IF dma_ch_1.dummy_pr = NIL
      THEN BEGIN
	{ no procedure for dma isr - disable channel }
	io_work_word:=ioread_word(3,8);
      END
      ELSE BEGIN
	{ call the procedure with a temp ptr }
	CALL(dma_ch_1.real_proc,isc_table[dma_isc_1].io_tmp_ptr);
      END; { of IF }
  END; { of dma_isr_1 }


  PROCEDURE io_init_dma;
  VAR dummy       : INTEGER;
  BEGIN

    io_revid := io_revid + ' D3.2';      { DMA revision added 2/5/82 TM }

    { initialize the DMA variables }

    dma_ch_0.dummy_pr := NIL;
    dma_ch_0.dummy_sl := NIL;
    dma_isc_0         := no_isc;
    dma_ch_1.dummy_pr := NIL;
    dma_ch_1.dummy_sl := NIL;
    dma_isc_1         := no_isc;



    { see if dma really exists }

    TRY
      dummy:=ioread_word(3,0);
      dma_here:=TRUE;
      isc_table[3].card_id:=hp98620;
    RECOVER
      BEGIN
	IF escapecode=-12
	  THEN BEGIN
	    dma_here := FALSE;
	  END
	  ELSE BEGIN
	    { some other problem }
	    ESCAPE(ESCAPECODE);
	  END; { of IF }
      END; { of RECOVER BEGIN }


    { if the card has isrs then unlink the ISR }

    IF dma_isrib0.INTREGADDR <> NIL THEN
	ISRUNLINK(3,                    { interrupt level       }
		  ADDR(dma_isrib0));    { ptr to the isrib      }

    IF dma_isrib1.INTREGADDR <> NIL THEN
	ISRUNLINK(3,                    { interrupt level       }
		  ADDR(dma_isrib1));    { ptr to the isrib      }


    { if the card exists then link in an ISR for it }

    IF dma_here
      THEN WITH isc_table[3] DO BEGIN
	{ dma if installed is always int. level 3 }
	PERMISRLINK(dma_isr_0,                  { channel 0 isr  }
		ANYPTR(INTEGER(card_ptr)+7),    { channel 0 addr }
		2,                              { int reg mask   }
		2,                              { int reg value  }
		3,                              { int level      }
		ADDR(dma_isrib0));              { isrib 0 info   }
	PERMISRLINK(dma_isr_1,                  { channel 1 isr  }
		ANYPTR(INTEGER(card_ptr)+15),   { channel 1 addr }
		2,                              { int reg mask   }
		2,                              { int reg value  }
		3,                              { int level      }
		ADDR(dma_isrib1));              { isrib 1 info   }
      END; { of IF }

  END; { of io_init_dma }

END; { of MODULE init_dma }
$PAGE$

IMPORT    init_dma ,
	  LOADER ;                                              { 367 TM 9/22/82 }


BEGIN
  io_init_dma;
  MARKUSER;                                                     { 367 TM 9/22/82 }
END. { of dma_initialize }
@


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


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

 (c) Copyright Hewlett-Packard Company, 1985.
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                         *)


$MODCAL ON$
$PARTIAL_EVAL ON$
$STACKCHECK ON$
$RANGE OFF$
$DEBUG OFF$
$OVFLCHECK OFF$
$PAGE$

(************************************************************************)
(*                                                                      *)
(*          RELEASED    VERSION         3.1                             *)
(*                                                                      *)
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      IOLIB           DMA_DRIVERS                                     *)
(*                                                                      *)
(*                                                                      *)
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      library      -  IOLIB                                           *)
(*      name         -  DMA_DRIVERS                                     *)
(*      module(s)    -  init_dma                                        *)
(*                                                                      *)
(*      author       -  Tim Mikkelsen                                   *)
(*      phone        -  303-226-3800   ext. 2910                        *)
(*                                                                      *)
(*      date         -  June  1 , 1981                                  *)
(*      update       -  Aug  10 , 1983 by J Schmidt - rev. number       *)
(*      release      -  Jul  12 , 1985                                  *)
(*                                                                      *)
(*      source       -  IOLIB:DMA_DRV.TEXT                              *)
(*      object       -  IOLIB:DMA_DRV.CODE                              *)
(*                                                                      *)
(************************************************************************)
$PAGE$
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      BUG FIX HISTORY         - after release 1.0                     *)
(*                                                                      *)
(*                                                                      *)
(*      BUG #   BY  / ON        LOC             DESCRIPTION             *)
(*      -----   -----------     --------------  ----------------------  *)
(*                                                                      *)
(*      367     T Mikkelsen     dma_initialize  Allow eXecute of driver *)
(*              09/22/82                        and have it install     *)
(*                                              itself in the system.   *)
(*                                                                      *)
(************************************************************************)
$PAGE$
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      This is the source code for an external procedures library      *)
(*      to be used for general purpose interfacing on the HP 9826.      *)
(*                                                                      *)
(*      The library consists of 3 primary sets of modules -             *)
(*                                                                      *)
(*              1.      KERNEL modules                                  *)
(*              2.      driver modules                                  *)
(*              3.      IOLIB  modules                                  *)
(*                                                                      *)
(*      The KERNEL modules consist of the following modules -           *)
(*                                                                      *)
(*              1.      iodeclarations  ( contains static r/w space )   *)
(*              2.      iocomasm                                        *)
(*              3.      general_0       ( initialization & low level    *)
(*                                        routines like ioread/iowrite) *)
(*      The KERNEL modules also have an executable program segement     *)
(*      that gets executed at the time it is loaded.  This program      *)
(*      initializes the static read/write memory.  This program also    *)
(*      allocates the temporary storage for any card that exists -      *)
(*      independent of whether there is or is not a driver for it.      *)
(*                                                                      *)
(*      The driver modules consist of the actual assembly or PASCAL     *)
(*      routines that deal with a specific interface card.  There is    *)
(*      also an executable program segment for each driver module.      *)
(*      This program searches the select code table in the static r/w   *)
(*      initialized by the KERNEL general_0 module for all select codes *)
(*      that have the right interface card ( HPIB drivers will search   *)
(*      for the 98624 interface ).  This program will then set up the   *)
(*      driver tables to point to the correct drivers.                  *)
(*                                                                      *)
(*      The rest of the IOLIB modules are high-level modules that are   *)
(*      used by an end user in his/her application program.             *)
(*                                                                      *)
(*      The KERNEL and some set of driver modules will exist in the     *)
(*      SYSTEM.INITLIB file as object code ( not EXPORT text ).  The    *)
(*      export text will reside on the SYSTEM.LIBRARY file.  The rest   *)
(*      of the library will reside on the SYSTEM.LIBRARY.               *)
(*                                                                      *)
(************************************************************************)
$PAGE$
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      REFERENCES :                                                    *)
(*                                                                      *)
(*                                                                      *)
(*      1.  9826 I/O Designers Guide            ( Loyd Nelson )         *)
(*                                                                      *)
(*      2.  68000 Manual                        ( Motorola )            *)
(*                                                                      *)
(*      3.  Pascal alpha site ERS               ( Roger Ison )          *)
(*                                                                      *)
(*      4.  Pascal I/O Library ERS              ( Tim Mikkelsen )       *)
(*                                                                      *)
(*      5.  9826 HPL EIO & IOD listings         ( Bob Hallissy )        *)
(*                                                                      *)
(*      6.  9826 HPL Misc. I/O Doc.             ( Bob Hallissy )        *)
(*                                                                      *)
(*      7.  9826 card documentation             ( Mfg. Specs. )         *)
(*                                                                      *)
(*      8.  Pascal I/O Library ISR              ( Tim Mikkelsen )       *)
(*                                                                      *)
(*                                                                      *)
(************************************************************************)
$PAGE$
PROGRAM dma_initialize ( INPUT , OUTPUT );
$PAGE$
(************************************************************************)
(*                                                                      *)
(*                                                                      *)
(*      DMA DRIVERS                                                     *)
(*                                                                      *)
(*                                                                      *)
(************************************************************************)
$PAGE$
MODULE init_dma ;

	{ by      Tim Mikkelsen
	  date    09/23/81
	  update  10/04/82

	  purpose This module is a series of DMA procedures to be linked into
		  the system isr poll routines. The module also contains the
		  initialization code.
	}

IMPORT  $SEARCH 'IOLIB:KERNEL.CODE'$
	  sysglobals, iodeclarations ;

EXPORT


  PROCEDURE dma_isr_0   ( an_isrib   : PISRIB );
  PROCEDURE dma_isr_1   ( an_isrib   : PISRIB );
  PROCEDURE io_init_dma;


IMPLEMENT


  IMPORT  isr,
	  general_0 ;



  PROCEDURE dma_isr_0   ( an_isrib   : PISRIB );
  VAR io_work_word : io_word;
  BEGIN
    IF dma_ch_0.dummy_pr = NIL
      THEN BEGIN
	{ no procedure for dma isr - disable channel }
	io_work_word:=ioread_word(3,0);
      END
      ELSE BEGIN
	{ call the procedure with a temp ptr }
	CALL(dma_ch_0.real_proc,isc_table[dma_isc_0].io_tmp_ptr);
      END; { of IF }
  END; { of dma_isr_0 }




  PROCEDURE dma_isr_1   ( an_isrib   : PISRIB );
  VAR io_work_word : io_word;
  BEGIN
    IF dma_ch_1.dummy_pr = NIL
      THEN BEGIN
	{ no procedure for dma isr - disable channel }
	io_work_word:=ioread_word(3,8);
      END
      ELSE BEGIN
	{ call the procedure with a temp ptr }
	CALL(dma_ch_1.real_proc,isc_table[dma_isc_1].io_tmp_ptr);
      END; { of IF }
  END; { of dma_isr_1 }


  PROCEDURE io_init_dma;
  VAR dummy       : INTEGER;
  BEGIN

    io_revid := io_revid + ' D3.2';      { DMA revision added 2/5/82 TM }

    { initialize the DMA variables }

    dma_ch_0.dummy_pr := NIL;
    dma_ch_0.dummy_sl := NIL;
    dma_isc_0         := no_isc;
    dma_ch_1.dummy_pr := NIL;
    dma_ch_1.dummy_sl := NIL;
    dma_isc_1         := no_isc;



    { see if dma really exists }

    TRY
      dummy:=ioread_word(3,0);
      dma_here:=TRUE;
      isc_table[3].card_id:=hp98620;
    RECOVER
      BEGIN
	IF escapecode=-12
	  THEN BEGIN
	    dma_here := FALSE;
	  END
	  ELSE BEGIN
	    { some other problem }
	    ESCAPE(ESCAPECODE);
	  END; { of IF }
      END; { of RECOVER BEGIN }


    { if the card has isrs then unlink the ISR }

    IF dma_isrib0.INTREGADDR <> NIL THEN
	ISRUNLINK(3,                    { interrupt level       }
		  ADDR(dma_isrib0));    { ptr to the isrib      }

    IF dma_isrib1.INTREGADDR <> NIL THEN
	ISRUNLINK(3,                    { interrupt level       }
		  ADDR(dma_isrib1));    { ptr to the isrib      }


    { if the card exists then link in an ISR for it }

    IF dma_here
      THEN WITH isc_table[3] DO BEGIN
	{ dma if installed is always int. level 3 }
	PERMISRLINK(dma_isr_0,                  { channel 0 isr  }
		ANYPTR(INTEGER(card_ptr)+7),    { channel 0 addr }
		2,                              { int reg mask   }
		2,                              { int reg value  }
		3,                              { int level      }
		ADDR(dma_isrib0));              { isrib 0 info   }
	PERMISRLINK(dma_isr_1,                  { channel 1 isr  }
		ANYPTR(INTEGER(card_ptr)+15),   { channel 1 addr }
		2,                              { int reg mask   }
		2,                              { int reg value  }
		3,                              { int level      }
		ADDR(dma_isrib1));              { isrib 1 info   }
      END; { of IF }

  END; { of io_init_dma }

END; { of MODULE init_dma }
$PAGE$

IMPORT    init_dma ,
	  LOADER ;                                              { 367 TM 9/22/82 }


BEGIN
  io_init_dma;
  MARKUSER;                                                     { 367 TM 9/22/82 }
END. { of dma_initialize }
@


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.2
log
@Pws2unix automatic delta on Tue Aug 25 18:23:33 MDT 1987
@
text
@@


22.1
log
@Automatic bump of revision number for PWS version 3.2N
@
text
@d218 1
a218 1
    io_revid := io_revid + ' D3.1';      { DMA revision added 2/5/82 TM }
@


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
@Automatic bump of revision number for PWS version 3.2h
@
text
@@


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


1.1
log
@Initial revision
@
text
@@
