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