Inhaltsverzeichnis
Werbung
010
LDA
146
05.146
lade den Monat
01
1
VGR
141
12.141
ist
er sröBer als
,,2",
also März
etc
?
O12
SPB
027
(42) 11,027
falls
ia, liegt der
Normalfall
vor
013
VKL
141
13.141
ist er
kleiner als
,,2",
also Januar?
O14
SPB
018
(41)
11.018
falls
ia. sorinqe zu
018
015
AKO
031
04.031
sonst lade
,,31"
für Februar-Startwert
016
ADD
145
07,145
addiere
den
Taq
dazu
017
ABS
145
06,145
und
speichere
es als
korriqierten
Tas
018
A1:
AKO
172
04.'172
lade
..172"
äls Tabellenstartadresse
019
ADD
147
07.147
und addiere
das Jahr dazu
O2O
ABS
144
06.144
speichere
es in
derAdreßzelle
O21
LIA
144
19.144
lade indirekt
die Jahresschlüsselzahl
O22
VKL
145
13.145
ist
sie
kleiner als
der gespeicherte
Tag?
O23
SPB
027
(42)
11.027
falls ja,
sprinse
zu 027
o24
LDA
147
05.147
sonst lade
das Jahr
O25
SUB
140
08.140
und
verringere
es um,,1
026
ABS
1
47
06.147
speichere
das
vorherise
Jahr
wieder
Teilen durch
12
mit
Restbildung:
O27 A2
LDA
147
05.147
lade das Jahr
O28
VKL
142
13.142
ist
es
kleiner als
.,12"?
O29
SPB
033
(43)
11.033
falls ja,
sprinse
zu 033
030
SUB
142
08j142
sonst dividiere durch Subtraktion von
,,12"
031
ABS
147
06.147
und speichere
das Jahr
wieder
O32
SPU
027
(42)
O9.O27
dann
springe
zutückzur
Kontrolle
033
43:
ANZ
02.000
zeige das
Sternzeichen
an
Vorbereitung der Pon-Ausgabe:
034
AKO
148
04.148
lade
,,148" als Startadresse
035
ADD
47
07.147
addiere
das Sternzeichen
036
ADD
47
07.147
zweimal
dazu
037
ABS
44
06.144
und speichere
es in der Adreßzelle
038
LIA
144
19.144
lade
so indirekt die erste Lampenreihe,
039
P1A
000
17.000
und qib
sie an
Port
1 aus
040
AKO
001
04.001
lade,,1
O41
ADD
144
07.144
und addiere
dazu
die
bisherige Adresse
042
ABS
1
44
06.144
speichere die erhöhte
Adresse
wieder
043
LIA
144
19.144
lade indirekt die zweite Lampenreihe
O44
P2A
000
18.000
und sib den Wed an Port
2
aus
045
AKO 040
04.040
10
Sekunden Verzögerung:
lade
,,40" als
Zählerstad
046
A4:
YZG
25O
03.250
warte eine Viertelsekunde
047
SUB
140
08,140
dann
verrinsere
den
Zähler
um
,,1
O48
VGR
139
12.139
ist
der
Wert noch
qrößer als
,,0"?
049
SPB
046
(44)
11.046
falls
ia,
sprinse zurück
zum Warten
050
P1A
000
17.000
sonst schalte mit der..0"
im Akku
Fortsetzung Listing
59:
Ghinesische Sternzeichen
per
Computer
--.-:.'z-'a
-
si
ng 59:
Chinesische Stemzeichen
per
fumputer
38
Werbung
Inhaltsverzeichnis
