home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / masm / masm6 / mixed / pascal.asm < prev    next >
Encoding:
Assembly Source File  |  1990-12-03  |  469 b   |  18 lines
  1. ; Assemble with ML /c PASCAL.ASM
  2. ; Called by PASMAIN.PAS 
  3.  
  4.         .MODEL  medium, PASCAL
  5.         .386
  6. Power2  PROTO PASCAL  factor:WORD, power:WORD
  7.         .CODE
  8.  
  9. Power2  PROC    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.         ret                   ; Leave return value in AX
  15.  
  16. Power2  ENDP
  17.         END
  18.