home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n20.zip / FIGURES.ZIP / FIGURE.3 < prev    next >
Text File  |  1987-10-16  |  1KB  |  30 lines
  1.   FUNCTION TwiceB(B : byte) : byte;
  2.   BEGIN
  3.     TwiceB := B*2;
  4.   END;
  5.  
  6.   FUNCTION TwiceI(I : Integer) : Integer;
  7.   BEGIN
  8.     TwiceI := I*2;
  9.   END;
  10.  
  11.  TwiceB                         TwiceI
  12.  ---------------------------------------------------
  13.  55      PUSH BP                55      PUSH BP
  14.  8BEC    MOV  BP,SP             8BEC    MOV  BP,SP
  15.  55      PUSH BP                55      PUSH BP
  16.  E90000  JMP  2D77              E90000  JMP  2D99
  17.  8A4604  MOV  AL,[BP+04]        8B4604  MOV  AX,[BP+04]
  18.  32E4    XOR  AH,AH       ;<===
  19.  B90200  MOV  CX,0002           B90200  MOV  CX,0002
  20.  F7E9    IMUL CX                F7E9    IMUL CX
  21.  884606  MOV  [BP+06],AL        894606  MOV  [BP+06],AX
  22.  E90000  JMP  2D87              E90000  JMP  2DA7
  23.  8A4606  MOV  AL,[BP+06]        8B4606  MOV  AX,[BP+06]
  24.  32E4    XOR  AH,AH       ;<===
  25.  8BE5    MOV  SP,BP             8BE5    MOV  SP,BP
  26.  5D      POP  BP                5D      POP  BP
  27.  C20300  RET  0003              C20400  RET  0004
  28.  
  29.  34 bytes                       30 bytes
  30.