> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 64 00 8F 20 52 45 41 44 4F 55 54 20 |....d.. READOUT |
00000010: 52 54 43 36 34 00 3A 08 6E 00 8F 20 28 43 29 20 |RTC64.:.n.. (C) |
00000020: 31 39 39 30 20 42 59 20 4A 45 4E 53 2D 4D 49 43 |1990 BY JENS-MIC|
00000030: 48 41 45 4C 20 47 52 4F 53 53 00 4F 08 78 00 8F |HAEL GROSS.O.x..|
00000040: 20 31 30 30 30 20 42 45 52 4C 49 4E 20 32 37 00 | 1000 BERLIN 27.|
00000050: 69 08 82 00 8F 20 4E 45 48 45 49 4D 45 52 20 53 |i.... NEHEIMER S|
00000060: 54 52 41 53 53 45 20 34 37 00 7F 08 8C 00 8F 20 |TRASSE 47...... |
00000070: 28 30 33 30 29 20 34 33 32 20 39 37 20 32 32 00 |(030) 432 97 22.|
00000080: 85 08 96 00 8F 00 A9 08 A0 00 8F 20 41 43 48 54 |........... ACHT|
00000090: 55 4E 47 21 20 42 45 49 20 55 4E 54 45 52 42 52 |UNG! BEI UNTERBR|
000000A0: 45 43 48 45 4E 20 44 45 53 00 CC 08 AA 00 8F 20 |ECHEN DES...... |
000000B0: 50 52 4F 47 52 41 4D 4D 53 20 57 49 52 44 20 44 |PROGRAMMS WIRD D|
000000C0: 49 45 20 55 48 52 20 4E 49 43 48 54 00 EF 08 B4 |IE UHR NICHT....|
000000D0: 00 8F 20 41 42 47 45 53 43 48 41 4C 54 45 54 2E |.. ABGESCHALTET.|
000000E0: 20 5A 55 4D 20 41 42 53 43 48 41 4C 54 45 4E 00 | ZUM ABSCHALTEN.|
000000F0: 13 09 BE 00 8F 20 4D 55 53 53 20 27 50 4F 4B 45 |..... MUSS 'POKE|
00000100: 20 53 44 2C 32 35 35 27 20 45 49 4E 47 45 47 45 | SD,255' EINGEGE|
00000110: 42 45 4E 00 20 09 C8 00 8F 20 57 45 52 44 45 4E |BEN. .... WERDEN|
00000120: 00 26 09 D2 00 8F 00 2C 09 DC 00 8F 00 4E 09 F0 |.&.....,.....N..|
00000130: 00 43 32 B2 35 36 35 37 36 20 3A 8F 20 42 41 53 |.C2.56576 :. BAS|
00000140: 49 53 41 44 52 45 53 53 45 20 43 49 41 32 00 91 |ISADRESSE CIA2..|
00000150: 09 FA 00 50 42 B2 43 32 AA 31 20 20 3A 8F 20 41 |...PB.C2.1 :. A|
00000160: 44 52 45 53 53 45 20 50 4F 52 54 20 42 20 20 20 |DRESSE PORT B |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 28 55 53 45 52 50 4F 52 54 | (USERPORT|
00000190: 29 00 D9 09 04 01 44 42 B2 43 32 AA 33 20 20 3A |).....DB.C2.3 :|
000001A0: 8F 20 41 44 52 45 53 53 45 20 52 49 43 48 54 55 |. ADRESSE RICHTU|
000001B0: 4E 47 53 52 45 2D 20 20 20 20 20 20 20 20 20 20 |NGSRE- |
000001C0: 20 20 20 20 20 20 20 20 20 20 47 49 53 54 45 52 | GISTER|
000001D0: 20 55 53 45 52 50 4F 52 54 00 16 0A 18 01 53 44 | USERPORT.....SD|
000001E0: B2 43 32 AB 32 34 34 3A 8F 20 53 45 52 49 45 4C |.C2.244:. SERIEL|
000001F0: 4C 45 53 20 52 45 47 49 53 54 45 52 20 20 20 20 |LES REGISTER |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 43 49 41 31 00 3B 0A 22 01 43 41 B2 43 32 | CIA1.;.".CA.C2|
00000220: AB 32 34 32 3A 8F 20 42 45 46 45 48 4C 53 52 45 |.242:. BEFEHLSRE|
00000230: 47 49 53 54 45 52 20 43 49 41 31 00 60 0A 36 01 |GISTER CIA1.`.6.|
00000240: 41 57 25 B2 32 AE 34 20 20 3A 8F 20 42 49 54 20 |AW%.2.4 :. BIT |
00000250: 46 55 45 52 20 41 44 52 45 53 53 57 52 49 54 45 |FUER ADRESSWRITE|
00000260: 00 83 0A 40 01 52 44 25 B2 32 AE 35 20 20 3A 8F |...@.RD%.2.5 :.|
00000270: 20 42 49 54 20 46 55 45 52 20 44 41 54 41 20 52 | BIT FUER DATA R|
00000280: 45 41 44 00 A7 0A 4A 01 57 52 25 B2 32 AE 36 20 |EAD...J.WR%.2.6 |
00000290: 20 3A 8F 20 42 49 54 20 46 55 45 52 20 44 41 54 | :. BIT FUER DAT|
000002A0: 41 20 57 52 49 54 45 00 B5 0A 5E 01 86 20 54 41 |A WRITE...^.. TA|
000002B0: 24 28 31 35 29 00 F7 0A A4 01 97 20 43 41 2C 36 |$(15)...... CA,6|
000002C0: 35 3A 8F 20 53 45 52 49 45 4C 4C 45 53 20 52 45 |5:. SERIELLES RE|
000002D0: 47 49 53 54 45 52 20 20 20 20 20 20 20 20 20 20 |GISTER |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 41 55 46 20 | AUF |
000002F0: 41 55 53 47 41 42 45 00 3F 0B AE 01 97 20 53 44 |AUSGABE.?.... SD|
00000300: 2C 30 3A 8F 20 4E 41 43 48 20 31 2F 36 30 20 53 |,0:. NACH 1/60 S|
00000310: 45 4B 55 4E 44 45 20 49 53 54 20 20 20 20 20 20 |EKUNDE IST |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 44 49 45 | DIE|
00000330: 20 55 48 52 20 53 45 4C 45 4B 54 49 45 52 54 00 | UHR SELEKTIERT.|
00000340: 8C 0B B3 01 3A 20 20 20 20 20 20 20 20 3A 8F 20 |....: :. |
00000350: 41 42 53 43 48 41 4C 54 55 4E 47 20 4D 49 54 20 |ABSCHALTUNG MIT |
00000360: 32 35 35 3B 20 20 20 20 20 20 20 20 20 20 20 20 |255; |
00000370: 20 20 20 20 20 20 20 20 55 4D 53 43 48 41 4C 54 | UMSCHALT|
00000380: 55 4E 47 20 4E 55 52 20 41 4C 4C 45 00 CD 0B B4 |UNG NUR ALLE....|
00000390: 01 3A 20 20 20 20 20 20 20 20 3A 8F 20 31 2F 38 |.: :. 1/8|
000003A0: 20 53 45 4B 55 4E 44 45 20 4D 4F 45 47 4C 49 43 | SEKUNDE MOEGLIC|
000003B0: 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |H |
000003C0: 20 20 20 20 20 49 4E 20 42 41 53 49 43 00 E5 0B | IN BASIC...|
000003D0: B8 01 8D 32 30 30 30 3A 8F 20 49 4E 49 54 2D 46 |...2000:. INIT-F|
000003E0: 45 4C 44 45 52 00 FC 0B C2 01 99 22 13 11 11 11 |ELDER......"....|
000003F0: 11 11 11 11 11 11 11 22 A3 36 29 3B 00 1C 0C CC |.......".6);....|
00000400: 01 52 25 B2 36 3A 8D 31 30 30 30 3A 99 54 41 24 |.R%.6:.1000:.TA$|
00000410: 28 44 25 29 22 20 44 45 4E 20 22 3B 00 31 0C D6 |(D%)" DEN ";.1..|
00000420: 01 52 25 B2 37 3A 8D 31 30 30 30 3A 54 25 B2 44 |.R%.7:.1000:T%.D|
00000430: 25 00 60 0C E0 01 52 25 B2 38 3A 8D 31 30 30 30 |%.`...R%.8:.1000|
00000440: 3A 54 25 B2 54 25 AA 28 44 25 AF 37 29 AC 31 30 |:T%.T%.(D%.7).10|
00000450: 3A 99 C9 28 C4 28 54 25 29 2C 32 29 22 2E 22 3B |:..(.(T%),2)".";|
00000460: 00 75 0C EA 01 52 25 B2 39 3A 8D 31 30 30 30 3A |.u...R%.9:.1000:|
00000470: 4D 25 B2 44 25 00 A5 0C F4 01 52 25 B2 31 30 3A |M%.D%.....R%.10:|
00000480: 8D 31 30 30 30 3A 4D 25 B2 4D 25 AA 28 44 25 AF |.1000:M%.M%.(D%.|
00000490: 31 29 AC 31 30 3A 99 C9 28 C4 28 4D 25 29 2C 32 |1).10:..(.(M%),2|
000004A0: 29 22 2E 22 3B 00 BB 0C FE 01 52 25 B2 31 31 3A |)".";.....R%.11:|
000004B0: 8D 31 30 30 30 3A 4A 25 B2 44 25 00 E3 0C 08 02 |.1000:J%.D%.....|
000004C0: 52 25 B2 31 32 3A 8D 31 30 30 30 3A 4A 25 B2 4A |R%.12:.1000:J%.J|
000004D0: 25 AA 44 25 AC 31 30 3A 99 C9 28 C4 28 4A 25 29 |%.D%.10:..(.(J%)|
000004E0: 2C 32 29 00 07 0D 12 02 99 22 13 11 11 11 11 11 |,2)......"......|
000004F0: 11 11 11 11 11 11 11 22 A3 31 30 29 22 45 53 20 |.......".10)"ES |
00000500: 49 53 54 3A 20 22 3B 00 15 0D 1C 02 81 49 B2 35 |IST: ";......I.5|
00000510: A4 30 A9 AB 31 00 34 0D 26 02 52 25 B2 49 3A 8D |.0..1.4.&.R%.I:.|
00000520: 31 30 30 30 3A 8B 49 B2 35 A7 44 25 B2 44 25 AA |1000:.I.5.D%.D%.|
00000530: 38 AF 31 35 00 45 0D 30 02 99 C9 28 C4 28 44 25 |8.15.E.0...(.(D%|
00000540: 29 2C 31 29 3B 00 58 0D 3A 02 8B 49 B2 34 B0 49 |),1);.X.:..I.4.I|
00000550: B2 32 A7 99 22 3A 22 3B 00 5F 0D 44 02 82 49 00 |.2..":";._.D..I.|
00000560: 68 0D 4E 02 89 34 35 30 00 6E 0D E6 03 90 00 74 |h.N..450.n.....t|
00000570: 0D E7 03 3A 00 99 0D E8 03 8F 20 2A 20 52 45 47 |...:...... * REG|
00000580: 49 53 54 45 52 20 52 25 20 49 4E 20 44 25 20 45 |ISTER R% IN D% E|
00000590: 49 4E 4C 45 53 45 4E 20 2A 00 B9 0D 06 04 97 20 |INLESEN *...... |
000005A0: 44 42 2C 32 35 35 3A 8F 20 50 4F 52 54 20 41 55 |DB,255:. PORT AU|
000005B0: 46 20 41 55 53 47 41 42 45 00 D8 0D 10 04 97 20 |F AUSGABE...... |
000005C0: 50 42 2C 52 25 20 3A 8F 20 52 45 47 49 53 54 45 |PB,R% :. REGISTE|
000005D0: 52 41 44 52 45 53 53 45 00 1B 0E 1A 04 97 20 50 |RADRESSE...... P|
000005E0: 42 2C 52 25 B0 41 57 25 3A 8F 20 53 54 52 4F 42 |B,R%.AW%:. STROB|
000005F0: 45 20 46 55 45 52 20 20 20 20 20 20 20 20 20 20 |E FUER |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 | A|
00000610: 44 52 45 53 53 20 57 52 49 54 45 00 3A 0E 24 04 |DRESS WRITE.:.$.|
00000620: 97 20 50 42 2C 52 25 20 3A 8F 20 53 54 52 4F 42 |. PB,R% :. STROB|
00000630: 45 20 4C 4F 45 53 43 48 45 4E 00 79 0E 2E 04 97 |E LOESCHEN.y....|
00000640: 20 44 42 2C 32 34 30 3A 8F 20 44 41 54 45 4E 4C | DB,240:. DATENL|
00000650: 45 49 54 55 4E 47 45 4E 20 41 55 46 20 20 20 20 |EITUNGEN AUF |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: 20 20 45 49 4E 47 41 4E 47 00 B5 0E 38 04 97 20 | EINGANG...8.. |
00000680: 50 42 2C 52 44 25 3A 8F 20 53 54 52 4F 42 45 20 |PB,RD%:. STROBE |
00000690: 46 55 45 52 20 44 41 54 41 20 20 20 20 20 20 20 |FUER DATA |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 52 45 41 44 00 D6 0E 42 04 44 25 B2 C2 28 50 | READ...B.D%..(P|
000006C0: 42 29 AF 31 35 3A 8F 20 44 41 54 45 4E 20 45 49 |B).15:. DATEN EI|
000006D0: 4E 4C 45 53 45 4E 00 DC 0E 4C 04 8E 00 E2 0E 56 |NLESEN...L.....V|
000006E0: 04 3A 00 FC 0E D0 07 8F 20 2D 2D 2D 2D 2D 2D 2D |.:...... -------|
000006F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 16 0F DA |------------....|
00000700: 07 8F 20 2A 20 46 45 4C 44 45 52 20 45 49 4E 4C |.. * FELDER EINL|
00000710: 45 53 45 4E 20 2A 00 30 0F E4 07 8F 20 2D 2D 2D |ESEN *.0.... ---|
00000720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000730: 00 36 0F EE 07 8C 00 4B 0F F8 07 81 49 B2 30 A4 |.6.....K....I.0.|
00000740: 36 3A 87 54 41 24 28 49 29 3A 82 00 7E 0F 02 08 |6:.TA$(I):..~...|
00000750: 99 22 93 11 11 0E 08 20 20 2A 2A 2A 20 D2 D4 C3 |."..... *** ...|
00000760: 20 36 34 20 42 59 20 CA 45 4E 53 2D CD 49 43 48 | 64 BY .ENS-.ICH|
00000770: 41 45 4C 20 C7 52 4F 53 53 20 2A 2A 2A 22 00 84 |AEL .ROSS ***"..|
00000780: 0F 0C 08 8E 00 8A 0F 16 08 3A 00 A3 0F 60 EA 8F |.........:...`..|
00000790: 20 2A 2A 2A 20 57 4F 43 48 45 4E 54 41 47 45 20 | *** WOCHENTAGE |
000007A0: 2A 2A 2A 00 B6 0F 6A EA 83 20 22 20 20 20 20 4D |***...j.. " M|
000007B0: 4F 4E 54 41 47 22 00 C9 0F 74 EA 83 20 22 20 20 |ONTAG"...t.. " |
000007C0: 44 49 45 4E 53 54 41 47 22 00 DC 0F 7E EA 83 20 |DIENSTAG"...~.. |
000007D0: 22 20 20 4D 49 54 54 57 4F 43 48 22 00 EF 0F 88 |" MITTWOCH"....|
000007E0: EA 83 20 22 44 4F 4E 4E 45 52 53 54 41 47 22 00 |.. "DONNERSTAG".|
000007F0: 02 10 92 EA 83 20 22 20 20 20 46 52 45 49 54 41 |..... " FREITA|
00000800: 47 22 00 15 10 9C EA 83 20 22 20 20 20 53 41 4D |G"...... " SAM|
00000810: 53 54 41 47 22 00 28 10 A6 EA 83 20 22 20 20 20 |STAG".(.... " |
00000820: 53 4F 4E 4E 54 41 47 22 00 2E 10 B0 EA 3A 00 00 |SONNTAG".....:..|
00000830: 00 |. |
....D.. READOUT RTC64.:.N.. (C) 1990 BY
JENS-MICHAEL GROSS.O.X.. 1000 BERLIN 27.
I.... NEHEIMER STRASSE 47..... (030) 43
2 97 22......... .. ACHTUNG! BEI UNTERBR
ECHEN DES.L.... PROGRAMMS WIRD DIE UHR N
ICHT...... ABGESCHALTET. ZUM ABSCHALTEN.
..... MUSS 'POKE SD,255' EINGEGEBEN. .H.
. WERDEN.&.R...,.....N...C2.56576 :. BAS
ISADRESSE CIA2.....PB.C2.1 :. ADRESSE P
ORT B (USERPORT
).Y...DB.C2.3 :. ADRESSE RICHTUNGSRE-
GISTER USERPORT.....SD
.C2.244:. SERIELLES REGISTER
CIA1.;.".CA.C2.242:. BEFEHLSRE
GISTER CIA1.`.6.AW%.2.4 :. BIT FUER ADR
ESSWRITE...@.RD%.2.5 :. BIT FUER DATA R
EAD...J.WR%.2.6 :. BIT FUER DATA WRITE.
..^.. TA$(15)...... CA,65:. SERIELLES RE
GISTER AUF AUSGABE.
?.... SD,0:. NACH 1/60 SEKUNDE IST
DIE UHR SELEKTIERT.....:
:. ABSCHALTUNG MIT 255;
UMSCHALTUNG NUR ALLE.M...:
:. 1/8 SEKUNDE MOEGLICH
IN BASIC......2000:. INIT-FELDER...
B.."...........".6);...L.R%.6:.1000:.TA$
(D%)" DEN ";.1.V.R%.7:.1000:T%.D%.`...R%
.8:.1000:T%.T%.(D%.7).10:.I(D(T%),2)".";
.U...R%.9:.1000:M%.D%.....R%.10:.1000:M%
.M%.(D%.1).10:.I(D(M%),2)".";.....R%.11:
.1000:J%.D%.....R%.12:.1000:J%.J%.D%.10:
.I(D(J%),2)......".............".10)"ES
IST: ";......I.5.0..1.4.&.R%.I:.1000:.I.
5.D%.D%.8.15.E.0..I(D(D%),1);.X.:..I.4.I
.2..":";._.D..I.H.N..450.N.....T...:....
.. * REGISTER R% IN D% EINLESEN *......
DB,255:. PORT AUF AUSGABE.X.... PB,R% :.
REGISTERADRESSE...... PB,R%.AW%:. STROB
E FUER ADRESS WR
ITE.:.$.. PB,R% :. STROBE LOESCHEN.Y....
DB,240:. DATENLEITUNGEN AUF
EINGANG...8.. PB,RD%:. STROBE
FUER DATA READ.V.
B.D%.B(PB).15:. DATEN EINLESEN...L.....V
.:...P.. -------------------...Z.. * FEL
DER EINLESEN *.0.... -------------------
.6.....K....I.0.6:.TA$(I):..~....".....
*** RTC 64 BY JENS-MICHAEL GROSS ***"..
.........:...`.. *** WOCHENTAGE ***...J.
. " MONTAG".I.T.. " DIENSTAG"...~..
" MITTWOCH"...... "DONNERSTAG"...... "
FREITAG"...... " SAMSTAG".(.... "
SONNTAG".....:...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL