home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / GRLF-C-1.ZIP / GCOMM / _ASIHSEL.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-14  |  863 b   |  37 lines
  1. ;
  2. ; The Greenleaf Comm Library
  3. ;
  4. ; Copyright (C) 1990 Greenleaf Software Inc.  All Rights Reserved.
  5. ;
  6.         .xlist
  7.         include model.h
  8.         include prologue.h
  9.         include asiports.equ
  10.         .list
  11.  
  12.         extrn   pcdigi:near
  13.         extrn   psdigi:near
  14.  
  15.         dseg    _commlib
  16.         extrn   ihdptr:word
  17.         endds
  18.  
  19.         pseg    _asihsel
  20.  
  21. ;==>--  void asihsel(int selection)
  22. ;       Select alternate comm interrupt handler, presently only handles
  23. ;       PS/2 digiboards, the selection parameter must be 1
  24. ;
  25.             cproc   asihsel
  26.             mov     ax,parm1_
  27.             cmp     ax,1
  28.             je      use_ps
  29.             mov     ax,offset pcdigi
  30.             jmp     short store_it
  31. use_ps:     mov     ax,offset psdigi
  32. store_it:   mov     ihdptr,ax
  33.             cproce
  34.         endps
  35.         end
  36.  
  37.