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 / _ASREG.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-14  |  966 b   |  41 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.         dseg    _commlib
  13.         extrn   tblptr:word
  14.         endds
  15.  
  16.         pseg    _asregister
  17.  
  18. ;==>--  void _asregister(p)
  19. ;       struct TABLEPORT *p;
  20. ;
  21. ;       This function _asiregister() is only called once, the first time
  22. ;       asifirst() is called.  It's parameter points to the base of the
  23. ;       array of pointers pointing to the port information structure.
  24. ;
  25.         cproc   _asregister,,_asregis,,,<DS,ES,NOSI,NODI>
  26.         if      _LDATA
  27.          les    bx,parm1_
  28.         else
  29.          mov    bx,ds
  30.          mov    es,bx
  31.          mov    bx,parm1_
  32.         endif
  33.         mov     word ptr tblptr,bx
  34.         mov     word ptr tblptr+2,es
  35.         xor     ax,ax
  36.         cproce
  37.  
  38.         endps
  39.         end
  40.  
  41.