CP1 Anleitung (Manual) - 8Bit-Homecomputermuseum
CP1 Anleitung (Manual) - 8Bit-Homecomputermuseum
CP1 Anleitung (Manual) - 8Bit-Homecomputermuseum
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Fortsetzung Listing 38:<br />
Adresse Mnemonics Code Kommentar<br />
020 A2: AKO 001 04.001 lade„1"...<br />
021 ABS 103 06.103 und setze so den 1. Würfel zurück<br />
022 ADD 104 07.104 addiere den 2. Zähler zu dieser „1"...<br />
023 ABS 104 06.104 und speichere ihn wieder<br />
024 VGR 102 12.102 ist er jetzt größer als „6"?<br />
025 SPB 027 (A3) 11.027 falls ja, setze ihn auch zurück bei 027<br />
026 SPU 011 (A1) 09.011 sonst „würfele" den ersten weiter bei 011<br />
027 A3: AKO 001 04.001 lade„1"...<br />
028 ABS 104 06.104 und setze den 2. Würfel zurück<br />
029 SPU 011 (A1) 09.011 weiterzählen beim 1. Würfel<br />
030 B1: AKO 010 04.010 Taste war gedrückt! Lade „10"<br />
031 B2: ABS 106 06.106 als Zähler für Multiplikation speichern<br />
032 LDA 105 05.105 lade die Anzeigezelle<br />
033 ADD 104 07.104 addiere den 2. Würfelwert dazu ...<br />
034 ABS 105 06.105 und speichere ihn wieder<br />
035 LDA 106 05.106 lade den Zähler<br />
036 SUB 101 08.101 subtrahiere „1" davon<br />
037 VGR 100 12.100 ist er noch größer als „0"?<br />
038 SPB 031 (B2) 11.031 falls ja, weiter addieren bei 031<br />
039 LDA 105 05.105 sonst wurde mit „10" multipliziert; lade Anzeigezelle ...<br />
040 ADD 103 07.103 und zähle den 1. Würfel hinzu<br />
041 ABS 105 06.105 speichere den anzeigbaren Wert in 105 ...<br />
96<br />
042 ANZ 02.000 und zeige ihn an<br />
043 LDA 103 05.103 lade den 1. Zähler (1. Würfel)<br />
044 VGL 104 10.104 ist er gleich dem 2. Zähler (2. Würfel)?<br />
045 SPB 052 (C2) 11.052 falls ja, springe zum Blinken<br />
046 AKO 000 04.000 sonst lade „0" als Verzögerungszählerstart<br />
047 C1: VZG 250 03.250 Verzögerungsschleife: 6 x 250 ms<br />
048 ADD 101 07.101 erhöhe um „1"<br />
049 VKL 102 13.102 noch kleiner als „6"?<br />
050 SPB 047 (C1) 11.047 falls ja, weiter verzögern<br />
051 SPU 001 (A0) 09.001 fertig - neuer Würfelstart am Programmanfang<br />
052 C2: AKO 012 04.012 Blinken erwünscht! Lade „12"<br />
053 C3: ABS 106 06.106 in der Zählerzelle speichern<br />
054 VZG 250 03.250 warte 1/4 Sekunde<br />
055 AKO 100 04.100 lade „100"<br />
056 ANZ 02.000 zeige sie an<br />
057 VZG 025 03.025 aber nur kurz<br />
058 LDA 105 05.105 lade den erwürfelten Wert<br />
059 ANZ 02.000 zeige ihn an<br />
060 LDA 106 05.106 lade den Zähler<br />
061 SUB 101 08.101 verringere ihn um „1"<br />
062 VGR 100 12.100 ist er noch größer als „0"?<br />
063 SPB 053 (C3) 11.053 falls ja, weiterblinken<br />
064 SPU 001 (A0) 09.001 sonst fertig - neuer Start am Programmanfang<br />
100 00.000 „0" als Vergleichszahl<br />
101 00.001 „1" als Schrittweite<br />
102 00.006 „6" als Grenze des Zählers<br />
103<br />
104<br />
105<br />
106 - Hilfszelle<br />
-<br />
-<br />
1. Zähler(1. Würfel)<br />
2. Zähler (2. Würfel)<br />
Doppelwürfelanzeige