
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Hallo Joe, hier mal die Quadratwurzel-Funktion des Open-Micro-Betriebssystems. Sie berechnet die Quadratwurzel von einer 8-Bit-Zahl, mathematisch korrekt gerundet. Daran wird das Verfahren gut verständlich. Für 32-Bit müßte man entsprechend erweitern: INCLUDE "OMAX.DEF" DIM a,b,c BYTE PrintSpc=ON FOR a=0 TO 255 sqrint(a) PRINT a;b NEXT a End2Host=ON END ' SQR-Funktion aus dem Open-Micro-Betriebssystem ' Quadratwurzel von einer 8-Bit-Zahl, mathematisch korrekt gerundet! ' Dieser Algorithmus stammt von Rene Stadler alias Topmail. ' Übergabe im Akkumulator, Rückgabe in b PROCEDURE sqrint INLASM ! sta b ! beq sqrint_2 'bei 0 ! deca ! lsra ! clr b #sqrint_1 ! inc b ! sub b ! bcc sqrint_1 #sqrint_2 ! rts END PROCEDURE Noch viel Spaß und Erfolg mit den OM-Mikrocontrollern! Dietmar Meine Homepage: http://ccintern.dharlos.de |
| Antwort schreiben |