home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / QDRTBL2.C < prev    next >
Encoding:
Text File  |  1988-10-09  |  656 b   |  18 lines
  1. /* Funktion für die Quadrate der Zahlen 0 bis 10 */
  2.  
  3. int Quadrat(int Wert)
  4.   {
  5.   asm  jmp  DatenUeberspringen      /* hinter die Daten springen */
  6.   /* Tabelle von Quadraten */
  7.  
  8.   asm  QuadratTabelle  label  word;
  9.   asm  dw   0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 100;
  10.  
  11. DatenUeberspringen:
  12.   asm  mov  bx,Wert;                /* Wert der quadriert werden soll */
  13.   asm  shl  bx,1;                   /* mit zwei multiplizieren, um die */
  14.                                     /* Tabelle wortweise zu adressieren */
  15.   asm  mov  ax,[QuadratTabelle+bx]; /* Quadrat ermitteln */
  16.   return(_AX);                      /* Ergebnis zurückliefern */
  17.   }
  18.