Wie spät ist es bitte?

Haben Sie auch schon beim Programmieren jedes Zeitgefühl verloren und vielleicht einen Termin verpaßt? Mit diesem Uhr-Programm dürfte das nicht mehr passieren. Zusätzlich zur ständigen Zeitanzeige kann noch eine Alarmfunktion aufgerufen werden.

Mit »Piep Piep Piep« erinnert Sie dieses Programm daran, daß es schon wieder nach Mitternacht ist. Es ist vielleicht besser, die neueste Version zu speichern und ins Bett zu gehen. Aber genug der Vorrede, gehen wir »in medias res«.

Das Programm CIA-Uhr wird bei jedem Interrupt des C 64 einmal abgearbeitet, also 60mal pro Sekunde. Dabei wird die Echtzeituhr des C 64 abgefragt, die Alarmzeit überprüft und die Uhrzeit auf den Bildschirm gedruckt. Im Gegensatz zu Tl oder Tl$ hat die Echtzeituhr eine große Ganggenauigkeit. Die Variable Tl wird nämlich nur bei jedem Interrupt hochgezählt. Ein Interrupt muß aber nicht jede 60stel Sekunde stattfinden. Beispielsweise werden beim Speichern oder Laden von Programmen wesentlich weniger Interrupts pro Sekunde vom Computer ausgelöst als im READY-Modus.

Das Programm muß mit dem MSE eingegeben werden. Nach dem Laden mit LOAD"UHR",8,1 (1,1) muß NEW eingegeben werden, damit kein OUT OF MEMORY ERROR auftritt. Gestellt wird die Uhr durch SYS 49152,"Uhrzeit","Alarmzeit". Die Zeiten müssen 6stellig angegeben werden. Die Alarmzeit kann auch weggelassen werden. Bei RUN/STOP-RESTORE verschwindet die Anzeige vom Bildschirm, während die Uhr intern aber weiterläuft. Mit SYS 49152 wird die Anzeige wieder aktiviert. Das Maschinenprogramm kann auch in andere Speicherbereiche verschoben werden. Man sollte dazu wissen, daß in den Bereichen $C0A3 bis $C0A6 und $C137 bis $C14D Tabellen stehen.

(Jörg Dorchain/hm)

PROGRAMM : UHR            C000 C231
-----------------------------------
C000 : 78 A9 36 8D 14 03 A9 C0   0E
C008 : 8D 15 03 58 AD 0F DC 29   05
C010 : 7F 8D 0F DC A9 85 8D 0D   CC
C018 : DC AD 0E DC 09 80 8D 0E   D1
C020 : DC 4C EB C1 AD 0D DC 29   5E
C028 : 04 F0 03 20 BB C0 AD 43   68
C030 : C1 F0 03 20 C1 C0 A0 00   D3
C038 : AD 0B DC AE 08 DC 29 10   A4
C040 : 18 4A 4A 4A 4A 20 9B C0   EF
C048 : AD 0B DC AE 08 DC 29 0F   B2
C050 : A2 00 20 9B C0 BD A3 C0   78
C058 : 20 9B C0 E8 AD 0A DC 29   84
C060 : F0 4A 4A 4A 4A 20 9B C0   E7
C068 : AD 0A DC 29 0F 20 9B C0   58
C070 : BD A3 C0 20 9B C0 E8 AD   F2
C078 : 09 DC 29 F0 4A 4A 4A 4A   0C
C080 : 20 9B C0 AD 09 DC 29 0F   8E
C088 : 20 9B C0 BD A3 C0 20 9B   56
C090 : C0 E8 AD 08 DC 20 9B C0   EF
C098 : 4C 31 EA 18 69 B0 99 1E   F9
C0A0 : 04 C8 60 0A FE 0B A9 20   91
C0A8 : 8D 04 D4 A9 07 8D 05 D4   3C
C0B0 : A9 F4 8D 06 D4 A9 0F 8D   E9
C0B8 : 18 D4 60 A9 09 8D 43 C1   15
C0C0 : 60 6C 37 C1 A9 14 8D 00   CE
C0C8 : D4 A9 1A 8D 01 D4 A9 21   49
C0D0 : 8D 04 D4 A0 14 4C 10 C1   10
C0D8 : A9 20 8D 04 D4 A0 0A 4C   88
C0E0 : 10 C1 A9 CF 8D 00 D4 A9   B5
C0E8 : 22 8D 01 D4 A9 21 8D 04   8E
C0F0 : D4 A0 14 4C 10 C1 A9 20   99
C0F8 : 8D 04 D4 A0 0A 4C 10 C1   97
C100 : A0 00 8C 41 C1 A9 C4 8D   83
C108 : 37 C1 A9 C0 8D 38 C1 60   05
C110 : 8C 42 C1 A9 1D 8D 37 C1   01
C118 : A9 C1 8D 38 C1 CE 42 C1   2B
C120 : D0 14 AC 41 C1 B9 39 C1   A0
C128 : 8D 37 C1 C8 B9 39 C1 8D   62
C130 : 38 C1 C8 8C 41 C1 60 C4   3A
C138 : C0 D8 C0 E2 C0 F3 C0 00   9F
C140 : C1 00 00 00 10 00 00 00   03
C148 : 00 00 00 00 00 00 20 A6   16
C150 : C0 20 06 E2 20 FD AE 20   EB
C158 : 9E AD 20 8F AD 20 A3 B6   9F
C160 : 86 14 84 15 C9 06 F0 0A   59
C168 : A9 00 AA A8 18 D8 B8 4C   95
C170 : 48 B2 A0 FF C8 B1 14 38   14
C178 : E9 30 90 EC 99 45 C1 C0   87
C180 : 05 D0 F1 A0 FF C8 B1 14   B3
C188 : C9 3A B0 DC C0 05 D0 F5   99
C190 : A0 FF A2 00 C8 B9 45 C1   CB
C198 : 0A 0A 0A 0A 8D 44 C1 C8   FF
C1A0 : B9 45 C1 0D 44 C1 9D 4B   6D
C1A8 : C1 E8 E0 03 D0 E6 A2 00   45
C1B0 : A0 0B F8 BD 4B C1 F0 B0   B3
C1B8 : C9 24 D0 03 A9 00 18 B0   84
C1C0 : A7 C9 12 90 04 E9 12 09   CC
C1C8 : 80 99 00 DC E8 88 BD 4B   11
C1D0 : C1 C9 60 B0 93 99 00 DC   64
C1D8 : E8 88 BD 4B C1 C9 60 B0   2A
C1E0 : 87 99 00 DC D8 A9 00 8D   C5
C1E8 : 08 DC 60 20 4E C1 20 0C   06
C1F0 : C2 AD 0F DC 09 80 8D 0F   D1
C1F8 : DC 20 51 C1 20 0C C2 78   CF
C200 : A9 24 8D 14 03 A9 C0 8D   3D
C208 : 15 03 58 60 A0 FF C8 B9   62
C210 : 45 C1 F0 FA C0 09 D0 03   6F
C218 : 4C 0B E2 A0 FF A9 00 C8   95
C220 : 99 45 C1 C0 08 D0 F8 60   90
C228 : A9 00 8D 43 C1 4C A6 C0   38
C230 : 46                        ED

Listing zur CIA-Uhr. Es muß mit dem MSE (siehe Seite 18) eingegeben werden.