Inhaltsverzeichnis
Werbung
Fortsetzung Listing
61
:
Bestimmungsprogramm für Nadelbäume
Unterprogramm
zur
Tastenabfiage
:
130
U1
:
ABS
187
06.187
spetchere Akkuinhalt
als RÜcksprungadresse
131
LDA
188
05.188
lade die
Fragennummer
132
02.000
und
zeige sie
an
ANZ
133
U2:
P1E
000
16.000
lies
Port
'1
in den Akku
134
VGL
183
10.183
ist
es ,,255", also
nichts betätigt?
135
SPB 133
(U2)
11.133
falls
ja, warte weiter
auf
den
Tastendruck
1
36
ABS
1
86
06.186
sonst speichere
den
Wert in der
Hilfszelle
137
U3:
P1E000
16.000
lies
Port
1
wiederum
ist
der
Wert noch kleiner
als ,,255", die Taste also noch
138
VKL
183
13.183
nicht wieder
losgelassen?
139
SPB 137
(U3)
1
1.137
falls
ja,
springe zurÜck und
warte
noch
14O
SUB
186
08.186
subtrahiere die
Hilfszelle von
den
,,255"
141
VGL
182
10.182
und
vergleiche
mit,,128":ist
es gleich?
142
SPB 145
(U4)
11.145
falls ja,
springe zurSerienanzeige
143
VGL
181
10.181
sonst
vergleiche
mit,,2"
(Merkmal
stimmt)
144
stu
187
(RX)
vor
der Auswertung
des Vergleichs Rücksprung lns
21.187
Hauptprogramm wie
in
der
Adreßzelle
gespeichert
Anzeige einer ganzen Baumreihe:
145
U4:
LDA
179
05.179
lade den
Besinn des
Speicherbereichs
146
ADD
188
07,188
und addiere die aktuelle
Frage-Nummer dazu
147
ABS
185
06.185
speichere
dies als
indirekte
Adresse
148
LIA
185
19.185
lade so indirekt den letzten zutreffenden
Baum
149
ABS
186
06.186
und
spetchere
ihn
in der
Hilfszelle
150
U5:
LDA
184
05,184
lade
die aktuelle
Baumnummer
151
U6:
ANZ
02.000
und
zeige den Akkuinhalt
an
152
vzc
250
153
vzc250
154
vzc
250
155
vzc
250
03.2s0
)
03.250
|
für
insgesamt
03.250
[
eine
ganze Sekunde
os.250
)
156
ADD
180
07,180
dann
erhöhe
den
Akkuinhalt
um,,1
157
VGR
186
12.186
ist die
Grenze (in
der
Hilfszelle)
schon überschritten?
158
SPB 150
(U$
11.150
fallsia,sprinsezurückzumWiederanfang
1
59
SPU
1
51
(UG) 09.151
sonst
weiter
in der
Zählschleife
160
161
162
163
164
165
166
167
168
169
00.020
00.020
00.005
00.003
00.005
00.020
00.007
00.020
00.012
00.009
Verg
leichszahlen
für
ungenaue Bestimmung
FE
Werbung
Inhaltsverzeichnis
