home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / asmutil / usoftpd.zip / CA.ASM < prev    next >
Assembly Source File  |  1987-07-31  |  298b  |  19 lines
  1.  
  2. .MODEL SMALL
  3. .CODE
  4.     PUBLIC    _Power2
  5. _Power2 PROC
  6.     push    bp    ;Entry sequence
  7.     mov    bp,sp
  8.  
  9.     mov    ax,[bp+4]    ; Load Arg1 into AX
  10.     mov    cx,[bp+6]    ; Load Arg2 into CX
  11.     shl    ax,cl        ; AX = AX * (2 to power of CX)
  12.                 ; Leave return value in AX
  13.  
  14.     pop    bp        ; Exit sequence
  15.     ret
  16. _Power2 ENDP
  17.     END
  18.  
  19.