https://www.hive-project.de/wiki/ 2026-04-14T23:39:17+00:00 https://www.hive-project.de/wiki/ https://www.hive-project.de/wiki/_media/wiki:dokuwiki.svg text/html 2009-08-04T15:30:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:byte1?rev=1249399800&do=diff Einzelne Bits auslesen <http://forums.parallax.com/forums/default.aspx?f=25&m=367713> Beispiel 1: Einzelnes Bit auslesen PUB bittest(value, bit) return (value & (1 << bit)) > 0 ' This returns true if the bit is set, false if it is not. Beispiel 2: Mehrere Bits mit Maske auslesen PUB masktest(value, mask) return (value & mask) == mask 'So if you want to check if bits 0, 3, and 7 of a value are set you could do this: status := masktest(somevar, %10001001) text/html 2011-11-01T08:35:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:grafik1?rev=1320136500&do=diff Erweiterung des Grafikzeichensatzes auf 256 Zeichen und Sonderzeichen Deutsch Vorlage „VGA_HiRes_Text.spin“ Im Assemblerteil folgende Zeilen ändern: :fourline mov font_ptr,font_third 'get address of appropriate font section shl font_ptr,#8+2 **<----- ändern 7 in 8** add font_ptr,font_base :column rdbyte z,s… text/html 2020-09-17T08:31:39+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:pwm?rev=1600331499&do=diff pwmAsm.spin Bildergalarie Beide Kanäle mit unterschiedlichen sDuty Werten. Gegentaktausgang eines Kanals. (Quelle:) Datenblatt Modul Anschaltung an Propeller 1..4 beliebige Pin's PinA1 = PWM1 PinA2 = PWM1 negiert PinB1 = PWM2 PinB2 = PWM2 negiert text/html 2018-06-10T09:52:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:sonst1?rev=1528624320&do=diff Reboot Propeller aus Assembler <http://forums.parallax.com/forums/default.aspx?f=25&m=363100> <<-- leider schon TOT ist irgendwo noch ein Beispiel? ... 'restart prop CLKSET startprop ' startprop LONG $80 Als Alternative auch: hubop $, #%10000_000 text/html 2011-11-04T07:36:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:sonst2?rev=1320392160&do=diff Pseudo-Zufallszahl in bestimmtem Bereich erzeugen <SPIN> Liefert Zufallszahl (Pseudo) zwischen Startwert und Endwert-1 PUB rand(start,end) | rnd, dummy rnd := (dummy? >> start) ** (end << 1) return rnd [kuroneko] Ich hab' hier so meine Zweifel. Angenommen ich moechte Zahlen zwischen 31 und 42, text/html 2009-08-04T15:44:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:string1?rev=1249400640&do=diff Zeichenkette in Kleinbuchstaben umwandeln PUB strtolower (strAddr) | i {{ sets all characters in string to lowercase. }} bytefill(@ostr, 0, STR_MAX_LENGTH) REPEAT i FROM 0 TO strsize(strAddr) IF (byte[strAddr + i] => 65 AND byte[strAddr + i] =< 90) ' if byte is in the uppercase range, add 32 to byte ostr[i] += byte[strAddr + i] + 32 ELSE ostr[i] += byte[strAddr + i] … text/html 2009-08-04T15:46:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:string2?rev=1249400760&do=diff Zeichenkette in Großbuchstaben umwandeln PUB strtoupper (strAddr) | i {{ sets all characters in string to uppercase. }} bytefill(@ostr, 0, STR_MAX_LENGTH) REPEAT i FROM 0 TO strsize(strAddr) IF (byte[strAddr + i] => 97 AND byte[strAddr + i] =< 122) ' if byte is in the lowercase range, subtract 32 from byte ostr[i] += byte[strAddr + i] - 32 ELSE ostr[i] += byte[strAddr + i] … text/html 2009-08-04T15:47:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:string3?rev=1249400820&do=diff Teil einer Zeichenkette zurückliefern PUB substr (strAddr, start, count) | i {{ returns part of a string for count bytes starting from start byte. }} bytefill(@ostr, 0, STR_MAX_LENGTH) i~ IF (count < 0) ' if value is negative, go to the end of the string count := STR_MAX_LENGTH - start bytemove(@ostr, strAddr + start, count) ' just move the selected section return @ostr text/html 2009-08-04T15:48:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:string4?rev=1249400880&do=diff Teil einer Zeichenkette zurückliefern ab erstem Zeichen PUB strstr (strAddr, searchAddr, offset) | searchsize {{ finds first occurrence of search string and returns the remainder of str along with the search. }} searchsize := strsize(searchAddr) REPEAT UNTIL (offset + searchsize > STR_MAX_LENGTH) IF (strcomp(substr(strAddr, offset++, searchsize), searchAddr)) ' if string search found RETURN substr(strAddr, offset - 1, STR_MAX_LENGTH) ' return remainder of string RETUR… text/html 2009-08-04T15:49:00+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.hive-project.de/wiki/schnipsel:string5?rev=1249400940&do=diff Position innerhalb einer Zeichenkette zurückliefern PUB strpos (strAddr, searchAddr, offset) | searchsize {{ returns location of first occurrence of search in str, returns -1 if search is not found. }} searchsize := strsize(searchAddr) REPEAT UNTIL (offset + searchsize > STR_MAX_LENGTH) IF (strcomp(substr(strAddr, offset++, searchsize), searchAddr)) ' if string search found RETURN offset - 1 ' return byte location RETURN -1