home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MASM.ZIP / SAMPLES / MIXED / PASCAL.AS$ / PASCAL.bin
Encoding:
Text File  |  1991-02-14  |  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.