home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PROGJRN / PJ_7_2.ARC / EXAMPLE.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-02-26  |  2.1 KB  |  69 lines
  1. ; EXAMPLE.asm
  2. ; sample code fragment showing runtime dynamic linking
  3. ;
  4. ; By Ray Duncan
  5. ; 
  6.  
  7.  
  8. objbuf  db      64 dup (0)      ; receives failing module
  9.                                 ; or entry point name
  10.  
  11. objbuf_len equ  $-objbuf
  12.  
  13. mname   db      'VIOCALLS',0    ; module name
  14.  
  15. mhandle dw      0               ; receives module handle
  16.  
  17. ename   db      'VIOGETANSI',0  ; entry point name
  18.  
  19. eptr    dd      0               ; receives far pointer
  20.                                 ; to entry point
  21.  
  22.         .
  23.         .
  24.         .
  25.                                 ; attach to DLL...
  26.         push    ds              ; receives failing dynlink
  27.         push    offset DGROUP:objbuf
  28.         push    objbuf_len      ; length of buffer
  29.         push    ds              ; address of module name
  30.         push    offset DGROUP:mname
  31.         push    ds              ; receives module handle
  32.         push    offset DGROUP:mhandle
  33.         call    DosLoadModule   ; transfer to OS/2
  34.         or      ax,ax           ; module found?
  35.         jnz     error           ; jump if no such module
  36.  
  37.                                 ; get entry point...
  38.         push    mhandle         ; module handle
  39.         push    ds              ; address of entry name
  40.         push    offset DGROUP:ename
  41.         push    ds              ; receives entry pointer
  42.         push    offset DGROUP:eptr
  43.         call    DosGetProcAddr  ; transfer to OS/2
  44.         or      ax,ax           ; entry point found?
  45.         jnz     error           ; jump if no entry point
  46.  
  47.         .
  48.         .                       ; other processing here...
  49.         .
  50.  
  51.         call    eptr            ; indirect call to
  52.                                 ; dynlink library routine
  53.  
  54.         .
  55.         .                       ; other processing here...
  56.         .
  57.  
  58.                                 ; module no longer
  59.                                 ; needed, release it...
  60.         push    mhandle         ; module handle
  61.         call    DosFreeModule   ; transfer to OS/2î        or      ax,ax           ; should never fail
  62.         jnz     error           ; but check anyway
  63.         .
  64.         .
  65.         .
  66.  
  67.  
  68.  
  69.