http://www.titanic-magazin.de/news.html?&tx_ttnews[tt_news]=4946&cHash=feedcaa7883cc413072196d13f278830

Grüße
Stefan

PS: Wer Ironie findet, darf sie behalten.

danke für den VProcessor! Durch den VProcessor habe ich zum ersten Mal die Maschinensprache richtig verstanden, und das auf spielerische Art.

Für den Wettbewerb habe ich mir eine Abbildung der Modulo-Operation für ganze positive Zahlen überlegt.

Grüße,
Marco

—————————————-

MOV $0 15; Laden des 1. Operanden
MOV $1 7; Laden des 2. Operanden
MOV $2 -1; Ergebnis mit Vorbelegung
CMP $0 $1; Vergleich beider Operanden
JB below; Bedingte Sprunganweisung below
JE equal; Bedingte Sprunganweisung equal
JA above; Bedingte Sprunganweisung above
LBL below; Falls 1. Op kleiner als 2. Op
MOV $2 $0; Divisonsrest immer gleich dem 1. Operand
HLT; Programm beenden
LBL equal; Falls 1. Op gleich 2. Op
MOV $2 0; Divisonsrest immer gleich 0
HLT; Programm beenden
LBL above; Falls 1. Op groesser als 2. Op
MOV a $0; 1. Op in Register A schreiben
MOV b $1; 2. Op in Register B schreiben
LBL loop; Sprungmarke für Berechnungsschleife
SUB a b; Subtraktion des 2. Op vom 1. Op
CMP a 0; Vergleich der Differenz mit 0
JA above1; Bedingte Sprunganweisung above1
JB below1; Bedingte Sprunganweisung below1
LBL above1; Falls Zwischenergebnis groesser 0
PUSH a; Schiebe Zwischenergebnis auf Stack
JMP loop; Führe Differenzbildung erneut durch
LBL below1; Falls Zwischenergebnis kleiner 0
POP $2; Schreibe Divisonsrest vom Stack in Ergebnis
HLT; Programm beenden

für’s erst Mal rumprobieren hats Spass gemacht. Weil ich gerade dieses herrliche Video über Natur und Algorithmen gesehen habe (http://vimeo.com/9953368), hier ein ein simples Programm um die Fibonacci Reihe zu berechnen:

MOV A 0 ;initial Wer for Register A
MOV B 1 ; initial Wer for Register B
PUSH A ; zeige A (0)
LBL fib ; setze Sprungmarke
ADD A B ; addiere A und B (0 + 1, 1 +1, 1 + 2, 2 + 3 …)
PUSH A ; zeige A (1, 2, 3, 5, 8, 13 …)
MOV $0 A ; Wert von Register A, in welchem die Berechnung aus A + B steht, merken
MOV A B ; Wert von B nach A schieben
MOV B $0 ; das Ergebnis aus der Berechnung A + B, welches in $0 steht, nach B schreiben
CMP B 100 ; Abbruchbedingung der Schleife
JAE end ; wenn der vergleich false ergibt, sprich wenn B > 100 ist, zu Sprungmarke end springen
JMP fib ; ansonsten wieder zu Sprungmarke fib und weiter rechnen
LBL end ; setze Sprungmarke end
HLT ; Programm beenden

Das Programm von Ramon ist aber schon spannender

Cheers

Andy

auch ein schönes Programm, das ein praktisches Problem löst :).

MOV $0, 2 ; Bandbreite in MBit/s eintragen
MOV $1, 10 ; Groesse der Datei in X eintragen
MOV $2, 1 ; X, Masseinheit, fuer Datei (0 = Kilobyte, 1 = Megabyte, 2 = Gigabyte) eintragen
MOV $3, 0 ; Resultat
MOV $11, 8192 ; Ein Kilobyte in Bit
MOV $12, 8388608 ; Ein Megabyte in Bit
MOV $13, 8589934592 ; Ein Gigabyte in Bit
CMP $2, 1; Masseinheit mit 1 vergleichen
JA giga ; wenn groesser 1, dann Giga
JE mega ; wenn gleich 1, dann Mega. Sonst Kilo (optimaler Fall)
MUL $1, $11 ; Rechne Datenmenge (Kilo) nach Bit um
JMP calc
LBL giga
MUL $1, $13 ; Rechne Datenmenge (Giga) nach Bit um
JMP calc
LBL mega
MUL $1, $12 ; Rechne Datenmenge (Mega) nach Bit um
JMP calc
LBL calc
MUL $0, 1024000 ; Rechne Bandbreite in Bit um
DIV $1, $0 ; Berechne Uebertragunszeit (Menge durch Geschwindigkeit)
PUSH $1 ; Resultat (in Sekunden) auf den Stack legen

vielen Dank für die beiden Einsendungen schon mal :). Die Programme laufen fehlerfrei durch, machen den beschriebenen Job und sind auch noch ausführlich kommentiert. Großartig :). Ich drücke euch schon mal den Daumen fürs Gewinnen (und freue mich natürlich trotzdem auf weitere spannende Einsendungen ;)).