CP1 Anleitung (Manual) - 8Bit-Homecomputermuseum

Fortsetzung Listing 39:
070 VGR 106 12.106 ist der Sinkbetrag größer als die letzte Höhe?
071 SPB 097 (E2) 11.097 falls ja, ist der Boden erreicht; springe zum Ende
072 ABS 120 06.120 sonst in der Hilfszelle Zwischenspeichern
073 LDA 106 05.106 lade stattdessen die Höhe ...
074 SUB 120 08.120 und subtrahiere den Sinkbetrag
075 ABS 106 06.106 dann speichere die Höhe wieder. ..
076 SPU 082 (H3) 09.082 und springe zur neuen Geschwindigkeitsberechnung
077 H2: ABS 120 06.120 speichere das Ansteigen mal in der Hilfszelle
078 AKO 100 04.100 lade „100" ...
079 SUB 120 08.120 und subtrahiere die Hilfszelle davon: reiner Steigbetrag ...
080 ADD 106 07.106 zu dem die alte Flughöhe addiert wird
081 ABS 106 06.106 dies ist die neue Höhe
082 H3: LDA 108 05.108 lade die Geschwindigkeit (interne Darstellung)
083 ADD 102 07.102 addiere „2" als Steigerung durch die Mondanziehung ...
084 SUB 109 08.109 und subtrahiere den durch das Triebwerk verursachten
Betrag
085 ABS 108 06.108 speichere die neue Geschwindigkeit
086 ABS 107 06.107 auch für die Anzeige
087 VGR 103 12.103 ist der Wert größer als „100", also sinken?
088 SPB 021 (R0) 11.021 falls ja, springe zur Anzeige und neuen Eingabe
089 AKO 200 04.200 sonst steigt die Rakete - Aufbereitung der
Geschwindigkeitsanzeige:
090 SUB 107 08.107 subtrahiere die interne Darstellung von „200" ...
091 ADD 103 07.103 und addiere „100" dazu: Steigen hat jetzt...
092 ABS 107 06.107 „2" als Hunderterstelle, Sinken „1"
093 SPU 021 (R0) 09.021 dann springe zur Anzeige und Eingabe
094 E1: AKO 000 04.000 wir haben keinen Treibstoff mehr!
095 ABS 109 06.109 der Verbrauch ist deshalb auch null
096 SPU 060 (H1) 09.060 Weiter zur Berechnung
097 E2: LDA 107 05.107 wir sind unten! Lade die Geschwindigkeit...
098 E3: ANZ 02.000 und zeige sie an
099 SPU 098 (E3) 09.098 immer weiter so!
100
101
102
103
* 00.000 „0"
* 00.001 „1"
* 00.002 „2" Vergleichszahlen
* 00.100 „100"
104 * 00.255 „255" J
105
Treibstoffvorrat
-
-
106 - Flughöhe
107
Geschwindigkeit (für Anzeige aufbereitet)
108 - Geschwindigkeit (intern)
109 00.000 Treibstoffverbrauch wie an Port 1 gelesen
110
111 00.001 „1"
112 00.002 „2"
113 00.004 „4"
114 00.008 „8"
115 00.016 „16"
116 00.032 „32"
117 00.064 „64"
118 00.128 „128"
Adressz eile zur Einlesedecodierung
Vergleichszahlen zur Eingabedecodierung
119 00.111 „111" als Startadresse dieses Vergieichszahlenbereichs
120
• Hilfszelle während der Rechnung
121
* 00.128 Vergleichszahl „128"
-
122 - Rücksprungadresse für Einleseroutine
99