home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / masm / masm6 / mixed / basic.asm next >
Encoding:
Assembly Source File  |  1990-12-03  |  559 b   |  20 lines
  1. ; Called by BASMAIN.BAS
  2. ; Assemble with ML /c BASIC.ASM
  3.  
  4.         .MODEL  medium
  5.  
  6. Power2  PROTO   PASCAL, Factor:PTR WORD, Power:PTR WORD
  7.         .CODE
  8. Power2  PROC    PASCAL, Factor:PTR WORD, Power:PTR WORD
  9.  
  10.         mov     bx, WORD PTR Factor   ; Load Factor into
  11.         mov     ax, [bx]              ;  AX
  12.         mov     bx, WORD PTR Power    ; Load Power into
  13.         mov     cx, [bx]              ;   CX
  14.         shl     ax, cl                ; AX = AX * (2 to power of CX)
  15.                 
  16.         ret
  17. Power2  ENDP     
  18.  
  19.         END
  20.