home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / masm / masm6 / mixed / qpex.asm < prev    next >
Encoding:
Assembly Source File  |  1990-12-03  |  409 b   |  20 lines
  1. ; Assemble with ML /c QPEX.ASM
  2.  
  3. Power2  PROTO PASCAL  factor:WORD, power:WORD
  4.  
  5. CODE    SEGMENT WORD PUBLIC
  6.     ASSUME  CS:CODE
  7.  
  8.  
  9. Power2  PROC PASCAL   factor:WORD, power:WORD
  10.  
  11.     mov     ax, factor        ; Load factor into AX
  12.     mov     cx, power         ; Load power into CX
  13.     shl    ax, cl              ; AX = AX * (2 to power of CX)
  14.                   ; Leave return value in AX
  15.     ret
  16. Power2  ENDP
  17.  
  18. CODE    ENDS
  19.     END
  20.