SETUP.SRC
FILE INFORMATION
FILENAME(S): SETUP.SRC
FILE TYPE(S): PRG
FILE SIZE: 17.4K
FIRST SEEN: 2025-11-30 01:12:59
APPEARS ON: 2 disk(s)
FILE HASH
ec39b4f1fafd6fa113ce031a009b8a0c01267d4d0614a1fb9e636d589409acf5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10205 | SETUP.SRC | PRG | C64er | 5 | 0 | DOWNLOAD FILE |
| MAANDDISK SEPT | SETUP.SRC | PRG | earthshaker | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 61 5C 7E 5C 64 00 3B AF AF AF AF AF AF AF AF AF |a\~\d.;.........|
00000010: AF AF AF AF AF AF AF AF AF AF AF AF AF AF 00 9B |................|
00000020: 5C 6E 00 3B A1 20 20 20 20 20 20 20 20 20 20 20 |\n.;. |
00000030: 20 20 20 20 20 20 20 20 20 20 B6 00 B8 5C 78 00 | ...\x.|
00000040: 3B A1 20 20 20 41 54 4F 4D 55 48 52 20 20 56 2E |;. ATOMUHR V.|
00000050: 31 32 38 20 20 20 20 B6 00 D5 5C 82 00 3B A1 20 |128 ...\..;. |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 B6 00 F2 5C 8C 00 3B B7 B7 B7 B7 B7 | ...\..;.....|
00000080: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000090: B7 B7 00 0F 5D 96 00 3B AF AF AF AF AF AF AF AF |....]..;........|
000000A0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF 00 |................|
000000B0: 2C 5D A0 00 3B A1 20 20 20 20 20 20 20 20 20 20 |,]..;. |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 B6 00 49 5D AA | ..I].|
000000D0: 00 3B A1 20 20 20 42 45 54 52 49 45 42 53 53 59 |.;. BETRIEBSSY|
000000E0: 53 54 45 4D 20 20 20 20 B6 00 66 5D B4 00 3B A1 |STEM ..f]..;.|
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 B6 00 83 5D BE 00 3B B7 B7 B7 B7 | ...]..;....|
00000110: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000120: B7 B7 B7 00 89 5D C8 00 3B 00 95 5D D2 00 2E 90 |.....]..;..]....|
00000130: 24 31 33 30 30 00 9F 5D DC 00 2E A3 31 2C 33 00 |$1300..]....1,3.|
00000140: A5 5D E6 00 3B 00 AB 5D F0 00 3B 00 CB 5D FA 00 |.]..;..]..;..]..|
00000150: 20 97 53 43 52 45 45 4E 53 54 3B 45 49 4E 53 43 | .SCREENST;EINSC|
00000160: 48 41 4C 54 4D 45 4C 44 55 4E 47 00 D1 5D 04 01 |HALTMELDUNG..]..|
00000170: 3B 00 F5 5D 0E 01 20 97 42 45 46 49 4E 49 3B 42 |;..].. .BEFINI;B|
00000180: 45 46 45 48 4C 53 45 52 57 45 49 54 45 52 55 4E |EFEHLSERWEITERUN|
00000190: 47 20 45 49 4E 00 FB 5D 18 01 3B 00 02 5E 22 01 |G EIN..]..;..^".|
000001A0: 20 A9 00 08 5E 2C 01 3B 00 20 5E 36 01 20 81 24 | ...^,.;. ^6. .$|
000001B0: 44 44 30 46 3B 55 48 52 20 5B 43 49 41 20 32 5D |DD0F;UHR [CIA 2]|
000001C0: 00 44 5E 40 01 20 87 23 24 37 46 3B 42 45 49 20 |.D^@. .#$7F;BEI |
000001D0: 53 43 48 52 45 49 42 45 4E 20 55 48 52 20 53 45 |SCHREIBEN UHR SE|
000001E0: 54 5A 45 4E 00 50 5E 4A 01 20 82 24 44 44 30 46 |TZEN.P^J. .$DD0F|
000001F0: 00 6F 5E 54 01 20 81 24 44 44 30 45 3B 4E 45 54 |.o^T. .$DD0E;NET|
00000200: 5A 46 52 45 51 55 45 4E 5A 20 35 30 20 48 5A 00 |ZFREQUENZ 50 HZ.|
00000210: 7A 5E 5E 01 20 8F 23 24 38 30 00 86 5E 68 01 20 |z^^. .#$80..^h. |
00000220: 82 24 44 44 30 45 00 96 5E 72 01 20 81 23 24 30 |.$DD0E..^r. .#$0|
00000230: 30 3B 30 20 49 4E 00 AA 5E 7C 01 20 82 24 44 44 |0;0 IN..^|. .$DD|
00000240: 30 42 3B 53 54 55 4E 44 45 4E 00 BE 5E 86 01 20 |0B;STUNDEN..^.. |
00000250: 82 24 44 44 30 41 3B 4D 49 4E 55 54 45 4E 00 D3 |.$DD0A;MINUTEN..|
00000260: 5E 90 01 20 82 24 44 44 30 39 3B 53 45 4B 55 4E |^.. .$DD09;SEKUN|
00000270: 44 45 4E 00 F7 5E 9A 01 20 82 24 44 44 30 38 3B |DEN..^.. .$DD08;|
00000280: 31 2F 31 30 2D 53 45 4B 55 4E 44 45 4E 20 55 48 |1/10-SEKUNDEN UH|
00000290: 52 20 53 54 41 52 54 00 FD 5E A4 01 3B 00 23 5F |R START..^..;.#_|
000002A0: AE 01 20 81 23 3C 28 49 52 51 4E 45 57 29 3B 49 |.. .#<(IRQNEW);I|
000002B0: 52 51 2D 5A 45 49 47 45 52 20 56 45 52 42 49 45 |RQ-ZEIGER VERBIE|
000002C0: 47 45 4E 00 2E 5F B8 01 20 82 24 33 31 34 00 3F |GEN.._.. .$314.?|
000002D0: 5F C2 01 20 81 23 3E 28 49 52 51 4E 45 57 29 00 |_.. .#>(IRQNEW).|
000002E0: 4A 5F CC 01 20 82 24 33 31 35 00 50 5F D6 01 3B |J_.. .$315.P_..;|
000002F0: 00 57 5F E0 01 20 A8 00 5E 5F EA 01 20 A4 00 64 |.W_.. ..^_.. ..d|
00000300: 5F F4 01 3B 00 89 5F FE 01 49 52 51 4E 45 57 20 |_..;.._..IRQNEW |
00000310: 81 23 24 33 42 3B 50 4F 52 54 20 41 32 20 41 55 |.#$3B;PORT A2 AU|
00000320: 46 20 45 49 4E 47 41 4E 47 00 AF 5F 08 02 20 82 |F EINGANG.._.. .|
00000330: 24 44 44 30 32 3B 44 41 54 45 4E 52 49 43 48 54 |$DD02;DATENRICHT|
00000340: 55 4E 47 53 52 45 47 2E 20 50 4F 52 54 20 41 00 |UNGSREG. PORT A.|
00000350: B5 5F 12 02 3B 00 DA 5F 1C 02 55 4E 53 54 41 42 |._..;.._..UNSTAB|
00000360: 49 4C 20 81 24 44 44 30 30 3B 50 4F 52 54 20 41 |IL .$DD00;PORT A|
00000370: 32 20 41 55 53 4C 45 53 45 4E 00 F7 5F 26 02 20 |2 AUSLESEN.._&. |
00000380: 85 24 44 44 30 30 3B 45 4D 50 46 41 4E 47 20 53 |.$DD00;EMPFANG S|
00000390: 54 41 42 49 4C 20 3F 00 0D 60 30 02 20 B7 55 4E |TABIL ?..`0. .UN|
000003A0: 53 54 41 42 49 4C 3B 4E 45 49 4E 20 21 00 18 60 |STABIL;NEIN !..`|
000003B0: 3A 02 20 87 23 24 30 34 00 2F 60 44 02 20 B8 49 |:. .#$04./`D. .I|
000003C0: 4D 50 55 4C 53 3B 45 51 3D 49 4D 50 55 4C 53 00 |MPULS;EQ=IMPULS.|
000003D0: 3E 60 4E 02 20 96 4E 4F 49 4D 50 55 4C 53 00 44 |>`N. .NOIMPULS.D|
000003E0: 60 58 02 3B 00 73 60 62 02 49 4D 50 55 4C 53 20 |`X.;.s`b.IMPULS |
000003F0: 81 53 43 48 41 4C 54 46 4C 41 47 3B 54 49 4D 45 |.SCHALTFLAG;TIME|
00000400: 52 20 53 43 48 4F 4E 20 47 45 53 54 41 52 54 45 |R SCHON GESTARTE|
00000410: 54 20 3F 00 8F 60 6C 02 20 B7 54 49 4D 45 52 4F |T ?..`l. .TIMERO|
00000420: 4E 3B 5B 46 4C 41 47 53 54 41 52 54 3D 30 5D 00 |N;[FLAGSTART=0].|
00000430: A5 60 76 02 20 81 24 44 44 30 45 3B 54 49 4D 45 |.`v. .$DD0E;TIME|
00000440: 52 20 41 20 3D 00 C2 60 80 02 20 87 23 24 44 36 |R A =..`.. .#$D6|
00000450: 3B 45 49 4E 53 54 45 4C 4C 45 4E 20 2B 20 53 54 |;EINSTELLEN + ST|
00000460: 4F 50 00 DC 60 8A 02 20 8F 23 24 31 30 3B 32 35 |OP..`.. .#$10;25|
00000470: 35 20 49 4E 20 24 44 44 30 34 2F 35 00 E8 60 94 |5 IN $DD04/5..`.|
00000480: 02 20 82 24 44 44 30 45 00 FE 60 9E 02 20 81 24 |. .$DD0E..`.. .$|
00000490: 44 44 30 46 3B 54 49 4D 45 52 20 42 20 3D 00 1B |DD0F;TIMER B =..|
000004A0: 61 A8 02 20 87 23 24 44 36 3B 45 49 4E 53 54 45 |a.. .#$D6;EINSTE|
000004B0: 4C 4C 45 4E 20 2B 20 53 54 4F 50 00 35 61 B2 02 |LLEN + STOP.5a..|
000004C0: 20 8F 23 24 35 31 3B 32 35 35 20 49 4E 20 24 44 | .#$51;255 IN $D|
000004D0: 44 30 36 2F 37 00 61 61 BC 02 20 82 24 44 44 30 |D06/7.aa.. .$DD0|
000004E0: 46 3B 55 4E 44 20 4D 49 54 20 54 49 4D 45 52 20 |F;UND MIT TIMER |
000004F0: 41 20 4B 4F 50 50 45 4C 4E 20 2B 20 53 54 41 52 |A KOPPELN + STAR|
00000500: 54 00 9A 61 C6 02 54 52 59 41 47 41 49 4E 20 81 |T..a..TRYAGAIN .|
00000510: 24 44 44 30 36 3B 32 35 35 20 49 4E 20 54 49 4D |$DD06;255 IN TIM|
00000520: 45 52 20 42 20 4C 4F 57 42 59 54 45 20 45 49 4E |ER B LOWBYTE EIN|
00000530: 47 45 54 52 41 47 45 4E 20 3F 00 A5 61 D0 02 20 |GETRAGEN ?..a.. |
00000540: 85 23 24 46 46 00 BB 61 DA 02 20 B7 54 52 59 41 |.#$FF..a.. .TRYA|
00000550: 47 41 49 4E 3B 4E 45 49 4E 20 21 00 C7 61 E4 02 |GAIN;NEIN !..a..|
00000560: 20 81 24 44 44 30 45 00 E0 61 EE 02 20 8F 23 24 | .$DD0E..a.. .#$|
00000570: 30 31 3B 54 49 4D 45 52 20 41 20 53 54 41 52 54 |01;TIMER A START|
00000580: 00 EC 61 F8 02 20 82 24 44 44 30 45 00 16 62 02 |..a.. .$DD0E..b.|
00000590: 03 20 8A 53 43 48 41 4C 54 46 4C 41 47 3B 54 49 |. .SCHALTFLAG;TI|
000005A0: 4D 45 52 20 4F 4E 20 4D 45 52 4B 45 4E 20 5B 46 |MER ON MERKEN [F|
000005B0: 4C 41 47 3D 31 5D 00 24 62 0C 03 20 96 41 55 53 |LAG=1].$b.. .AUS|
000005C0: 47 41 42 45 00 2A 62 16 03 3B 00 64 62 20 03 54 |GABE.*b..;.db .T|
000005D0: 49 4D 45 52 4F 4E 20 81 53 43 48 41 4C 54 46 4C |IMERON .SCHALTFL|
000005E0: 41 47 3B 5A 57 45 49 54 45 20 50 4F 53 49 54 49 |AG;ZWEITE POSITI|
000005F0: 56 45 20 46 4C 41 4E 4B 45 20 5B 46 4C 41 47 3D |VE FLANKE [FLAG=|
00000600: 32 5D 20 3F 00 6F 62 2A 03 20 85 23 24 30 32 00 |2] ?.ob*. .#$02.|
00000610: 85 62 34 03 20 B8 52 45 53 45 54 54 49 4D 45 52 |.b4. .RESETTIMER|
00000620: 3B 4A 41 20 21 00 93 62 3E 03 20 96 41 55 53 47 |;JA !..b>. .AUSG|
00000630: 41 42 45 00 99 62 48 03 3B 00 B4 62 52 03 52 45 |ABE..bH.;..bR.RE|
00000640: 53 45 54 54 49 4D 45 52 20 81 23 24 30 30 3B 52 |SETTIMER .#$00;R|
00000650: 45 53 45 54 00 D9 62 5C 03 20 82 53 43 48 41 4C |ESET..b\. .SCHAL|
00000660: 54 46 4C 41 47 3B 53 43 48 41 4C 54 46 4C 41 47 |TFLAG;SCHALTFLAG|
00000670: 20 5B 46 4C 41 47 3D 30 5D 00 FA 62 66 03 20 81 | [FLAG=0]..bf. .|
00000680: 24 44 44 30 36 3B 4C 41 44 45 20 54 49 4D 45 52 |$DD06;LADE TIMER|
00000690: 20 42 20 4C 4F 57 42 59 54 45 00 24 63 70 03 20 | B LOWBYTE.$cp. |
000006A0: 85 23 24 46 30 3B 54 41 53 54 4C 55 45 43 4B 45 |.#$F0;TASTLUECKE|
000006B0: 20 49 4E 20 44 45 52 20 35 39 2D 53 45 4B 55 4E | IN DER 59-SEKUN|
000006C0: 44 45 20 3F 00 40 63 7A 03 20 B2 54 41 53 54 4C |DE ?.@cz. .TASTL|
000006D0: 55 45 43 4B 45 3B 4A 41 20 21 20 53 4F 4E 53 54 |UECKE;JA ! SONST|
000006E0: 00 57 63 84 03 20 8A 53 45 4B 43 54 3B 53 45 4B |.Wc.. .SEKCT;SEK|
000006F0: 55 4E 44 45 20 2B 31 00 64 63 8E 03 20 96 49 4D |UNDE +1.dc.. .IM|
00000700: 50 55 4C 53 00 6A 63 98 03 3B 00 8B 63 A2 03 54 |PULS.jc..;..c..T|
00000710: 41 53 54 4C 55 45 43 4B 45 20 81 23 24 32 30 3B |ASTLUECKE .#$20;|
00000720: 52 45 53 45 54 20 45 52 52 4F 52 00 97 63 AC 03 |RESET ERROR..c..|
00000730: 20 82 45 52 52 4F 52 00 AF 63 B6 03 20 8A 44 41 | .ERROR..c.. .DA|
00000740: 54 52 45 41 44 59 3B 5B 46 4C 41 47 3D 31 5D 00 |TREADY;[FLAG=1].|
00000750: CA 63 C0 03 20 81 53 45 4B 43 54 3B 53 45 4B 55 |.c.. .SEKCT;SEKU|
00000760: 4E 44 45 20 3D 20 35 38 20 3F 00 D5 63 CA 03 20 |NDE = 58 ?..c.. |
00000770: 85 23 24 33 41 00 04 64 D4 03 20 B8 52 45 53 45 |.#$3A..d.. .RESE|
00000780: 54 53 45 4B 3B 4B 45 49 4E 20 45 52 52 4F 52 20 |TSEK;KEIN ERROR |
00000790: 31 20 5B 35 39 2D 53 45 4B 55 4E 44 45 4E 45 52 |1 [59-SEKUNDENER|
000007A0: 52 4F 52 5D 00 17 64 DE 03 20 81 23 24 33 31 3B |ROR]..d.. .#$31;|
000007B0: 45 52 52 4F 52 20 31 00 2D 64 E8 03 20 82 45 52 |ERROR 1.-d.. .ER|
000007C0: 52 4F 52 3B 53 50 45 49 43 48 45 52 4E 00 33 64 |ROR;SPEICHERN.3d|
000007D0: F2 03 3B 00 4F 64 FC 03 52 45 53 45 54 53 45 4B |..;.Od..RESETSEK|
000007E0: 20 81 23 24 30 30 3B 53 45 4B 55 4E 44 45 4E 00 | .#$00;SEKUNDEN.|
000007F0: 5E 64 06 04 20 82 53 45 4B 43 54 3B 3D 30 00 6B |^d.. .SEKCT;=0.k|
00000800: 64 10 04 20 96 49 4D 50 55 4C 53 00 71 64 1A 04 |d.. .IMPULS.qd..|
00000810: 3B 00 93 64 24 04 4E 4F 49 4D 50 55 4C 53 20 81 |;..d$.NOIMPULS .|
00000820: 53 43 48 41 4C 54 46 4C 41 47 3B 46 4C 41 47 3D |SCHALTFLAG;FLAG=|
00000830: 31 20 3F 00 9E 64 2E 04 20 85 23 24 30 31 00 B0 |1 ?..d.. .#$01..|
00000840: 64 38 04 20 B8 53 46 4C 41 47 31 3B 4A 41 20 21 |d8. .SFLAG1;JA !|
00000850: 00 BE 64 42 04 20 96 41 55 53 47 41 42 45 00 C4 |..dB. .AUSGABE..|
00000860: 64 4C 04 3B 00 E5 64 56 04 53 46 4C 41 47 31 20 |dL.;..dV.SFLAG1 |
00000870: 8A 53 43 48 41 4C 54 46 4C 41 47 3B 5B 46 4C 41 |.SCHALTFLAG;[FLA|
00000880: 47 3D 20 32 5D 00 06 65 60 04 20 81 24 44 44 30 |G= 2]..e`. .$DD0|
00000890: 36 3B 4C 41 44 45 20 54 49 4D 45 52 20 42 20 4C |6;LADE TIMER B L|
000008A0: 4F 57 42 59 54 45 00 29 65 6A 04 20 85 23 24 46 |OWBYTE.)ej. .#$F|
000008B0: 45 3B 31 2F 31 30 20 4F 44 45 52 20 32 2F 31 30 |E;1/10 ODER 2/10|
000008C0: 2D 53 45 4B 55 4E 44 45 4E 00 36 65 74 04 20 B2 |-SEKUNDEN.6et. .|
000008D0: 53 45 54 42 49 54 00 4A 65 7E 04 20 A6 3B 31 30 |SETBIT.Je~. .;10|
000008E0: 30 20 4D 53 3D 42 49 54 3D 30 00 59 65 88 04 20 |0 MS=BIT=0.Ye.. |
000008F0: 96 53 54 4F 52 45 42 49 54 00 72 65 92 04 53 45 |.STOREBIT.re..SE|
00000900: 54 42 49 54 20 A7 3B 32 30 30 4D 53 3D 42 49 54 |TBIT .;200MS=BIT|
00000910: 3D 31 00 78 65 9C 04 3B 00 B0 65 A6 04 53 54 4F |=1.xe..;..e..STO|
00000920: 52 45 42 49 54 20 91 44 41 54 45 4E 52 45 47 3B |REBIT .DATENREG;|
00000930: 45 4D 50 46 41 4E 47 45 4E 45 20 42 49 54 53 20 |EMPFANGENE BITS |
00000940: 49 4E 20 52 45 47 2E 20 53 43 48 49 45 42 45 4E |IN REG. SCHIEBEN|
00000950: 00 DD 65 B0 04 20 91 44 41 54 45 4E 52 45 47 2B |..e.. .DATENREG+|
00000960: 31 3B 38 20 2A 20 38 20 42 49 54 53 20 3D 20 36 |1;8 * 8 BITS = 6|
00000970: 34 20 42 49 54 52 45 47 49 53 54 45 52 00 EE 65 |4 BITREGISTER..e|
00000980: BA 04 20 91 44 41 54 45 4E 52 45 47 2B 32 00 FF |.. .DATENREG+2..|
00000990: 65 C4 04 20 91 44 41 54 45 4E 52 45 47 2B 33 00 |e.. .DATENREG+3.|
000009A0: 10 66 CE 04 20 91 44 41 54 45 4E 52 45 47 2B 34 |.f.. .DATENREG+4|
000009B0: 00 21 66 D8 04 20 91 44 41 54 45 4E 52 45 47 2B |.!f.. .DATENREG+|
000009C0: 35 00 32 66 E2 04 20 91 44 41 54 45 4E 52 45 47 |5.2f.. .DATENREG|
000009D0: 2B 36 00 43 66 EC 04 20 91 44 41 54 45 4E 52 45 |+6.Cf.. .DATENRE|
000009E0: 47 2B 37 00 49 66 F6 04 3B 00 6E 66 00 05 41 55 |G+7.If..;.nf..AU|
000009F0: 53 47 41 42 45 20 81 44 41 54 52 45 41 44 59 3B |SGABE .DATREADY;|
00000A00: 44 41 54 45 4E 20 46 45 52 54 49 47 20 3F 00 79 |DATEN FERTIG ?.y|
00000A10: 66 0A 05 20 85 23 24 30 31 00 A3 66 14 05 20 B8 |f.. .#$01..f.. .|
00000A20: 4F 55 54 52 45 47 3B 4A 41 3A 20 44 41 54 45 4E |OUTREG;JA: DATEN|
00000A30: 20 49 4E 20 41 55 53 47 41 42 45 52 45 47 49 53 | IN AUSGABEREGIS|
00000A40: 54 45 52 00 B3 66 1E 05 20 96 53 43 52 45 45 4E |TER..f.. .SCREEN|
00000A50: 4F 55 54 00 B9 66 28 05 3B 00 D9 66 32 05 4F 55 |OUT..f(.;..f2.OU|
00000A60: 54 52 45 47 20 81 44 41 54 45 4E 52 45 47 3B 50 |TREG .DATENREG;P|
00000A70: 52 55 45 46 42 49 54 20 33 00 EE 66 3C 05 20 87 |RUEFBIT 3..f<. .|
00000A80: 23 24 38 30 3B 49 53 4F 4C 49 45 52 45 4E 00 0C |#$80;ISOLIEREN..|
00000A90: 67 46 05 20 82 50 52 55 45 46 42 33 3B 55 4E 44 |gF. .PRUEFB3;UND|
00000AA0: 20 41 42 53 50 45 49 43 48 45 52 4E 00 12 67 50 | ABSPEICHERN..gP|
00000AB0: 05 3B 00 36 67 5A 05 20 81 44 41 54 45 4E 52 45 |.;.6gZ. .DATENRE|
00000AC0: 47 2B 31 3B 4B 41 4C 45 4E 44 45 52 4A 41 48 52 |G+1;KALENDERJAHR|
00000AD0: 20 42 49 54 20 30 00 51 67 64 05 20 8C 3B 49 4E | BIT 0.Qgd. .;IN|
00000AE0: 53 20 43 2D 46 4C 41 47 20 53 43 48 49 45 42 45 |S C-FLAG SCHIEBE|
00000AF0: 4E 00 75 67 6E 05 20 81 44 41 54 45 4E 52 45 47 |N.ugn. .DATENREG|
00000B00: 3B 4B 41 4C 45 4E 44 45 52 4A 41 48 52 20 42 49 |;KALENDERJAHR BI|
00000B10: 54 20 37 2D 31 00 8E 67 78 05 20 90 3B 42 49 54 |T 7-1..gx. .;BIT|
00000B20: 20 30 20 45 49 4E 52 4F 54 49 45 52 45 4E 00 AC | 0 EINROTIEREN..|
00000B30: 67 82 05 20 82 41 4B 4C 4A 41 48 52 3B 55 4E 44 |g.. .AKLJAHR;UND|
00000B40: 20 41 42 53 50 45 49 43 48 45 52 4E 00 B2 67 8C | ABSPEICHERN..g.|
00000B50: 05 3B 00 D9 67 96 05 20 81 44 41 54 45 4E 52 45 |.;..g.. .DATENRE|
00000B60: 47 2B 31 3B 4B 41 4C 45 4E 44 45 52 4D 4F 4E 41 |G+1;KALENDERMONA|
00000B70: 54 20 42 49 54 20 34 2D 30 00 EE 67 A0 05 20 87 |T BIT 4-0..g.. .|
00000B80: 23 24 37 43 3B 49 53 4F 4C 49 45 52 45 4E 00 09 |#$7C;ISOLIEREN..|
00000B90: 68 AA 05 20 8E 3B 5A 57 45 49 4D 41 4C 20 4E 41 |h.. .;ZWEIMAL NA|
00000BA0: 43 48 20 52 45 43 48 54 53 00 19 68 B4 05 20 8E |CH RECHTS..h.. .|
00000BB0: 3B 53 43 48 49 45 42 45 4E 00 38 68 BE 05 20 82 |;SCHIEBEN.8h.. .|
00000BC0: 41 4B 4C 4D 4F 4E 41 54 3B 55 4E 44 20 41 42 53 |AKLMONAT;UND ABS|
00000BD0: 50 45 49 43 48 45 52 4E 00 3E 68 C8 05 3B 00 5F |PEICHERN.>h..;._|
00000BE0: 68 D2 05 20 81 44 41 54 45 4E 52 45 47 2B 32 3B |h.. .DATENREG+2;|
00000BF0: 57 4F 43 48 45 4E 54 41 47 20 42 49 54 20 30 00 |WOCHENTAG BIT 0.|
00000C00: 7A 68 DC 05 20 8C 3B 49 4E 53 20 43 2D 46 4C 41 |zh.. .;INS C-FLA|
00000C10: 47 20 53 43 48 49 45 42 45 4E 00 9D 68 E6 05 20 |G SCHIEBEN..h.. |
00000C20: 81 44 41 54 45 4E 52 45 47 2B 31 3B 57 4F 43 48 |.DATENREG+1;WOCH|
00000C30: 45 4E 54 41 47 20 42 49 54 20 32 2D 31 00 B2 68 |ENTAG BIT 2-1..h|
00000C40: F0 05 20 87 23 24 30 33 3B 49 53 4F 4C 49 45 52 |.. .#$03;ISOLIER|
00000C50: 45 4E 00 CB 68 FA 05 20 90 3B 42 49 54 20 30 20 |EN..h.. .;BIT 0 |
00000C60: 45 49 4E 52 4F 54 49 45 52 45 4E 00 E7 68 04 06 |EINROTIEREN..h..|
00000C70: 20 82 41 57 54 41 47 3B 55 4E 44 20 41 42 53 50 | .AWTAG;UND ABSP|
00000C80: 45 49 43 48 45 52 4E 00 ED 68 0E 06 3B 00 12 69 |EICHERN..h..;..i|
00000C90: 18 06 20 81 44 41 54 45 4E 52 45 47 2B 32 3B 4B |.. .DATENREG+2;K|
00000CA0: 41 4C 45 4E 44 45 52 54 41 47 20 42 49 54 20 35 |ALENDERTAG BIT 5|
00000CB0: 2D 30 00 27 69 22 06 20 87 23 24 37 45 3B 49 53 |-0.'i". .#$7E;IS|
00000CC0: 4F 4C 49 45 52 45 4E 00 4A 69 2C 06 20 8E 3B 45 |OLIEREN.Ji,. .;E|
00000CD0: 49 4E 4D 41 4C 20 4E 41 43 48 20 52 45 43 48 54 |INMAL NACH RECHT|
00000CE0: 53 20 53 43 48 49 45 42 45 4E 00 67 69 36 06 20 |S SCHIEBEN.gi6. |
00000CF0: 82 41 4B 4C 54 41 47 3B 55 4E 44 20 41 42 53 50 |.AKLTAG;UND ABSP|
00000D00: 45 49 43 48 45 52 4E 00 6D 69 40 06 3B 00 89 69 |EICHERN.mi@.;..i|
00000D10: 4A 06 20 81 44 41 54 45 4E 52 45 47 2B 32 3B 50 |J. .DATENREG+2;P|
00000D20: 52 55 45 46 42 49 54 20 32 00 A3 69 54 06 20 8E |RUEFBIT 2..iT. .|
00000D30: 3B 49 4E 53 20 43 41 52 52 59 20 53 43 48 49 45 |;INS CARRY SCHIE|
00000D40: 42 45 4E 00 C4 69 5E 06 20 81 44 41 54 45 4E 52 |BEN..i^. .DATENR|
00000D50: 45 47 2B 33 3B 53 54 55 4E 44 45 4E 20 42 49 54 |EG+3;STUNDEN BIT|
00000D60: 20 35 2D 30 00 E2 69 68 06 20 91 3B 50 52 55 45 | 5-0..ih. .;PRUE|
00000D70: 46 42 49 54 20 32 20 45 49 4E 52 4F 54 49 45 52 |FBIT 2 EINROTIER|
00000D80: 45 4E 00 05 6A 72 06 20 8E 3B 45 49 4E 4D 41 4C |EN..jr. .;EINMAL|
00000D90: 20 4E 41 43 48 20 52 45 43 48 54 53 20 53 43 48 | NACH RECHTS SCH|
00000DA0: 49 45 42 45 4E 00 24 6A 7C 06 20 82 53 54 55 4E |IEBEN.$j|. .STUN|
00000DB0: 44 45 4E 31 3B 55 4E 44 20 41 42 53 50 45 49 43 |DEN1;UND ABSPEIC|
00000DC0: 48 45 52 4E 00 2A 6A 86 06 3B 00 4B 6A 90 06 20 |HERN.*j..;.Kj.. |
00000DD0: 81 44 41 54 45 4E 52 45 47 2B 34 3B 4D 49 4E 55 |.DATENREG+4;MINU|
00000DE0: 54 45 4E 20 42 49 54 20 35 2D 30 00 66 6A 9A 06 |TEN BIT 5-0.fj..|
00000DF0: 20 82 4D 49 4E 55 54 45 4E 31 3B 41 42 53 50 45 | .MINUTEN1;ABSPE|
00000E00: 49 43 48 45 52 4E 00 85 6A A4 06 20 81 44 41 54 |ICHERN..j.. .DAT|
00000E10: 45 4E 52 45 47 2B 33 3B 4D 49 4E 55 54 45 4E 20 |ENREG+3;MINUTEN |
00000E20: 42 49 54 20 36 00 8C 6A AE 06 20 8E 00 A7 6A B8 |BIT 6..j.. ...j.|
00000E30: 06 20 91 4D 49 4E 55 54 45 4E 31 3B 45 49 4E 52 |. .MINUTEN1;EINR|
00000E40: 4F 54 49 45 52 45 4E 00 B9 6A C2 06 20 8E 3B 50 |OTIEREN..j.. .;P|
00000E50: 52 55 45 46 42 49 54 20 31 00 CE 6A CC 06 20 91 |RUEFBIT 1..j.. .|
00000E60: 4D 49 4E 55 54 45 4E 31 3B 44 49 54 4F 2E 00 D4 |MINUTEN1;DITO...|
00000E70: 6A D6 06 3B 00 01 6B E0 06 20 81 44 41 54 45 4E |j..;..k.. .DATEN|
00000E80: 52 45 47 2B 35 3B 43 4F 44 45 20 5A 31 20 5B 53 |REG+5;CODE Z1 [S|
00000E90: 4F 4D 4D 45 52 2F 57 49 4E 54 45 52 5A 45 49 54 |OMMER/WINTERZEIT|
00000EA0: 5D 00 16 6B EA 06 20 87 23 24 34 30 3B 49 53 4F |]..k.. .#$40;ISO|
00000EB0: 4C 49 45 52 45 4E 00 38 6B F4 06 20 8C 3B 45 49 |LIEREN.8k.. .;EI|
00000EC0: 4E 4D 41 4C 20 4E 41 43 48 20 4C 49 4E 4B 53 20 |NMAL NACH LINKS |
00000ED0: 53 43 48 49 45 42 45 4E 00 6D 6B FE 06 20 82 41 |SCHIEBEN.mk.. .A|
00000EE0: 53 4F 57 49 5A 45 49 3B 41 42 53 50 45 49 43 48 |SOWIZEI;ABSPEICH|
00000EF0: 45 52 4E 20 5B 24 38 30 3D 53 4F 4D 4D 45 52 5A |ERN [$80=SOMMERZ|
00000F00: 2F 24 30 30 3D 57 49 4E 54 45 52 5A 5D 00 73 6B |/$00=WINTERZ].sk|
00000F10: 08 07 3B 00 7E 6B 12 07 20 81 23 24 30 30 00 A3 |..;.~k.. .#$00..|
00000F20: 6B 1C 07 20 82 44 41 54 52 45 41 44 59 3B 52 45 |k.. .DATREADY;RE|
00000F30: 53 45 54 20 46 4C 41 47 20 44 41 54 45 4E 52 45 |SET FLAG DATENRE|
00000F40: 41 44 59 00 C7 6B 26 07 20 82 50 59 52 45 47 3B |ADY..k&. .PYREG;|
00000F50: 52 45 53 45 54 20 50 52 55 45 46 42 49 54 2D 52 |RESET PRUEFBIT-R|
00000F60: 45 47 49 53 54 45 52 00 D6 6B 30 07 20 81 4D 49 |EGISTER..k0. .MI|
00000F70: 4E 55 54 45 4E 31 00 F9 6B 3A 07 20 97 50 41 52 |NUTEN1..k:. .PAR|
00000F80: 49 54 59 31 3B 50 52 55 45 46 42 49 54 20 4D 49 |ITY1;PRUEFBIT MI|
00000F90: 4E 2E 20 54 45 53 54 45 4E 00 08 6C 44 07 20 81 |N. TESTEN..lD. .|
00000FA0: 53 54 55 4E 44 45 4E 31 00 2A 6C 4E 07 20 97 50 |STUNDEN1.*lN. .P|
00000FB0: 41 52 49 54 59 31 3B 50 52 55 45 46 42 49 54 20 |ARITY1;PRUEFBIT |
00000FC0: 48 48 2E 20 54 45 53 54 45 4E 00 4F 6C 58 07 20 |HH. TESTEN.OlX. |
00000FD0: 97 50 41 52 49 54 59 32 3B 50 52 55 45 46 42 49 |.PARITY2;PRUEFBI|
00000FE0: 54 20 27 52 45 53 54 27 20 54 45 53 54 45 4E 00 |T 'REST' TESTEN.|
00000FF0: 78 6C 62 07 20 97 4D 49 4E 55 54 45 53 54 31 3B |xlb. .MINUTEST1;|
00001000: 4D 49 4E 55 54 45 4E 53 50 52 55 4E 47 3E 31 20 |MINUTENSPRUNG>1 |
00001010: 4A 41 3D 45 52 52 4F 52 00 8C 6C 6C 07 20 81 45 |JA=ERROR..ll. .E|
00001020: 52 52 4F 52 3B 45 52 52 4F 52 20 3F 00 97 6C 76 |RROR;ERROR ?..lv|
00001030: 07 20 85 23 24 32 30 00 AD 6C 80 07 20 B8 54 52 |. .#$20..l.. .TR|
00001040: 41 4E 53 46 45 52 3B 4E 45 49 4E 20 21 00 C2 6C |ANSFER;NEIN !..l|
00001050: 8A 07 20 96 53 43 52 45 45 4E 4F 55 54 3B 4A 41 |.. .SCREENOUT;JA|
00001060: 20 21 00 C8 6C 94 07 3B 00 ED 6C 9E 07 54 52 41 | !..l..;..l..TRA|
00001070: 4E 53 46 45 52 20 81 53 54 55 4E 44 45 4E 31 3B |NSFER .STUNDEN1;|
00001080: 53 54 55 4E 44 45 4E 20 4C 41 44 45 4E 00 0A 6D |STUNDEN LADEN..m|
00001090: A8 07 20 87 23 24 33 46 3B 50 52 55 45 46 42 49 |.. .#$3F;PRUEFBI|
000010A0: 54 20 4C 4F 45 53 43 48 45 4E 00 2F 6D B2 07 20 |T LOESCHEN./m.. |
000010B0: 97 53 54 4F 52 45 48 48 3B 32 34 20 48 48 20 55 |.STOREHH;24 HH U|
000010C0: 48 52 20 2D 3E 20 31 32 20 48 48 20 55 48 52 00 |HR -> 12 HH UHR.|
000010D0: 44 6D BC 07 20 82 24 44 44 30 42 3B 55 48 52 20 |Dm.. .$DD0B;UHR |
000010E0: 53 54 4F 50 00 5A 6D C6 07 20 9B 3B 53 54 55 4E |STOP.Zm.. .;STUN|
000010F0: 44 45 4E 20 52 45 54 54 45 4E 00 77 6D D0 07 20 |DEN RETTEN.wm.. |
00001100: 81 4D 49 4E 55 54 45 4E 31 3B 4D 49 4E 55 54 45 |.MINUTEN1;MINUTE|
00001110: 4E 20 4C 41 44 45 4E 00 94 6D DA 07 20 87 23 24 |N LADEN..m.. .#$|
00001120: 37 46 3B 50 52 55 45 46 42 49 54 20 4C 4F 45 53 |7F;PRUEFBIT LOES|
00001130: 43 48 45 4E 00 AF 6D E4 07 20 82 24 44 44 30 41 |CHEN..m.. .$DD0A|
00001140: 3B 4D 49 4E 55 54 45 4E 20 49 4E 20 55 48 52 00 |;MINUTEN IN UHR.|
00001150: BF 6D EE 07 20 81 23 24 30 30 3B 30 20 49 4E 00 |.m.. .#$00;0 IN.|
00001160: D4 6D F8 07 20 82 24 44 44 30 39 3B 53 45 4B 55 |.m.. .$DD09;SEKU|
00001170: 4E 44 45 4E 00 F8 6D 02 08 20 82 24 44 44 30 38 |NDEN..m.. .$DD08|
00001180: 3B 31 2F 31 30 2D 53 45 4B 55 4E 44 45 4E 2F 55 |;1/10-SEKUNDEN/U|
00001190: 48 52 20 53 54 41 52 54 00 1A 6E 0C 08 20 A5 3B |HR START..n.. .;|
000011A0: 4E 4F 43 48 4D 41 4C 20 53 54 55 4E 44 45 4E 20 |NOCHMAL STUNDEN |
000011B0: 45 49 4E 54 52 41 47 45 4E 2C 00 4C 6E 16 08 20 |EINTRAGEN,.Ln.. |
000011C0: 89 24 44 44 30 42 3B 57 45 49 4C 20 54 49 4D 45 |.$DD0B;WEIL TIME|
000011D0: 52 20 53 54 55 4E 44 45 4E 20 45 56 54 4C 2E 20 |R STUNDEN EVTL. |
000011E0: 55 4D 20 31 20 45 52 48 4F 45 48 54 00 62 6E 20 |UM 1 ERHOEHT.bn |
000011F0: 08 20 82 24 44 44 30 38 3B 55 48 52 20 53 54 41 |. .$DD08;UHR STA|
00001200: 52 54 00 68 6E 2A 08 3B 00 90 6E 34 08 53 43 52 |RT.hn*.;..n4.SCR|
00001210: 45 45 4E 4F 55 54 20 97 53 54 4F 52 54 49 44 41 |EENOUT .STORTIDA|
00001220: 3B 44 41 54 45 4E 20 49 4E 20 42 55 46 46 45 52 |;DATEN IN BUFFER|
00001230: 00 C3 6E 3E 08 20 97 42 49 4C 44 53 43 48 49 52 |..n>. .BILDSCHIR|
00001240: 4D 3B 41 55 53 47 41 42 45 20 49 4D 20 44 49 52 |M;AUSGABE IM DIR|
00001250: 45 4B 54 4D 4F 44 55 53 2F 34 30 2D 5A 45 49 43 |EKTMODUS/40-ZEIC|
00001260: 48 45 4E 00 CF 6E 48 08 20 96 24 46 41 36 35 00 |HEN..nH. .$FA65.|
00001270: D5 6E 52 08 3B 00 02 6F 5C 08 50 41 52 49 54 59 |.nR.;..o\.PARITY|
00001280: 31 20 84 45 52 52 4F 52 3B 53 43 48 4F 4E 20 45 |1 .ERROR;SCHON E|
00001290: 52 52 4F 52 20 45 49 4E 47 45 54 52 41 47 45 4E |RROR EINGETRAGEN|
000012A0: 20 3F 00 0D 6F 66 08 20 93 23 24 32 30 00 26 6F | ?..of. .#$20.&o|
000012B0: 70 08 20 B8 50 41 52 49 54 59 31 53 54 52 54 3B |p. .PARITY1STRT;|
000012C0: 4E 45 49 4E 20 21 00 51 6F 7A 08 20 96 50 54 45 |NEIN !.Qoz. .PTE|
000012D0: 53 54 31 45 3B 4A 41 20 21 3A 50 41 52 49 54 59 |ST1E;JA !:PARITY|
000012E0: 54 45 53 54 20 4E 49 43 48 54 20 4E 4F 45 54 49 |TEST NICHT NOETI|
000012F0: 47 00 72 6F 84 08 50 41 52 49 54 59 31 53 54 52 |G.ro..PARITY1STR|
00001300: 54 20 84 23 24 30 30 3B 42 49 54 43 4F 55 4E 54 |T .#$00;BITCOUNT|
00001310: 45 52 00 85 6F 8E 08 20 83 23 24 30 38 3B 38 2A |ER..o.. .#$08;8*|
00001320: 53 48 49 46 54 00 93 6F 98 08 50 54 45 53 54 31 |SHIFT..o..PTEST1|
00001330: 4C 20 8E 00 A0 6F A2 08 20 B5 50 54 45 53 54 31 |L ...o.. .PTEST1|
00001340: 00 BB 6F AC 08 20 9E 3B 5A 41 45 48 4C 54 20 42 |..o.. .;ZAEHLT B|
00001350: 49 54 27 53 2C 57 45 4E 4E 20 31 00 C8 6F B6 08 |IT'S,WENN 1..o..|
00001360: 50 54 45 53 54 31 20 AF 00 D6 6F C0 08 20 B7 50 |PTEST1 ...o.. .P|
00001370: 54 45 53 54 31 4C 00 F2 6F CA 08 20 9A 3B 41 4E |TEST1L..o.. .;AN|
00001380: 5A 41 48 4C 20 42 49 54 27 53 20 49 4E 20 41 4B |ZAHL BIT'S IN AK|
00001390: 4B 55 00 F9 6F D4 08 20 8E 00 07 70 DE 08 20 B5 |KU..o.. ...p.. .|
000013A0: 50 54 45 53 54 31 45 00 29 70 E8 08 20 8A 50 59 |PTEST1E.)p.. .PY|
000013B0: 52 45 47 3B 50 41 52 49 54 41 45 54 53 45 52 52 |REG;PARITAETSERR|
000013C0: 4F 52 20 4D 45 52 4B 45 4E 00 37 70 F2 08 50 54 |OR MERKEN.7p..PT|
000013D0: 45 53 54 31 45 20 A4 00 3D 70 FC 08 3B 00 6A 70 |EST1E ..=p..;.jp|
000013E0: 06 09 50 41 52 49 54 59 32 20 84 45 52 52 4F 52 |..PARITY2 .ERROR|
000013F0: 3B 53 43 48 4F 4E 20 45 52 52 4F 52 20 45 49 4E |;SCHON ERROR EIN|
00001400: 47 45 54 52 41 47 45 4E 20 3F 00 75 70 10 09 20 |GETRAGEN ?.up.. |
00001410: 93 23 24 32 30 00 8E 70 1A 09 20 B8 50 41 52 49 |.#$20..p.. .PARI|
00001420: 54 59 32 53 54 52 54 3B 4E 45 49 4E 20 21 00 B6 |TY2STRT;NEIN !..|
00001430: 70 24 09 20 96 50 52 45 54 3B 4A 41 20 21 3A 50 |p$. .PRET;JA !:P|
00001440: 41 52 49 54 59 54 45 53 54 20 4E 49 43 48 54 20 |ARITYTEST NICHT |
00001450: 4E 4F 45 54 49 47 00 CE 70 2E 09 50 41 52 49 54 |NOETIG..p..PARIT|
00001460: 59 32 53 54 52 54 20 81 41 4B 4C 54 41 47 00 E4 |Y2STRT .AKLTAG..|
00001470: 70 38 09 20 84 23 24 30 30 3B 42 49 54 43 4F 55 |p8. .#$00;BITCOU|
00001480: 4E 54 45 52 00 F8 70 42 09 20 83 23 24 32 30 3B |NTER..pB. .#$20;|
00001490: 33 32 2A 53 48 49 46 54 00 06 71 4C 09 50 54 45 |32*SHIFT..qL.PTE|
000014A0: 53 54 32 4C 20 8E 00 13 71 56 09 20 B5 50 54 45 |ST2L ...qV. .PTE|
000014B0: 53 54 32 00 2E 71 60 09 20 9E 3B 5A 41 45 48 4C |ST2..q`. .;ZAEHL|
000014C0: 54 20 42 49 54 27 53 2C 57 45 4E 4E 20 31 00 3B |T BIT'S,WENN 1.;|
000014D0: 71 6A 09 50 54 45 53 54 32 20 AF 00 46 71 74 09 |qj.PTEST2 ..Fqt.|
000014E0: 20 8B 23 24 31 39 00 54 71 7E 09 20 B1 50 54 45 | .#$19.Tq~. .PTE|
000014F0: 53 54 32 4C 00 60 71 88 09 20 81 41 57 54 41 47 |ST2L.`q.. .AWTAG|
00001500: 00 6E 71 92 09 50 54 45 53 54 33 4C 20 8E 00 7B |.nq..PTEST3L ..{|
00001510: 71 9C 09 20 B5 50 54 45 53 54 33 00 82 71 A6 09 |q.. .PTEST3..q..|
00001520: 20 9E 00 8F 71 B0 09 50 54 45 53 54 33 20 AF 00 | ...q..PTEST3 ..|
00001530: 9A 71 BA 09 20 8B 23 24 31 31 00 A8 71 C4 09 20 |.q.. .#$11..q.. |
00001540: B1 50 54 45 53 54 33 4C 00 B7 71 CE 09 20 81 41 |.PTEST3L..q.. .A|
00001550: 4B 4C 4D 4F 4E 41 54 00 C5 71 D8 09 50 54 45 53 |KLMONAT..q..PTES|
00001560: 54 34 4C 20 8E 00 D2 71 E2 09 20 B5 50 54 45 53 |T4L ...q.. .PTES|
00001570: 54 34 00 D9 71 EC 09 20 9E 00 E6 71 F6 09 50 54 |T4..q.. ...q..PT|
00001580: 45 53 54 34 20 AF 00 F1 71 00 0A 20 8B 23 24 30 |EST4 ...q.. .#$0|
00001590: 39 00 FF 71 0A 0A 20 B1 50 54 45 53 54 34 4C 00 |9..q.. .PTEST4L.|
000015A0: 0D 72 14 0A 20 81 41 4B 4C 4A 41 48 52 00 1B 72 |.r.. .AKLJAHR..r|
000015B0: 1E 0A 50 54 45 53 54 35 4C 20 8E 00 28 72 28 0A |..PTEST5L ..(r(.|
000015C0: 20 B5 50 54 45 53 54 35 00 2F 72 32 0A 20 9E 00 | .PTEST5./r2. ..|
000015D0: 3C 72 3C 0A 50 54 45 53 54 35 20 AF 00 4A 72 46 |<r<.PTEST5 ..JrF|
000015E0: 0A 20 B7 50 54 45 53 54 35 4C 00 58 72 50 0A 20 |. .PTEST5L.XrP. |
000015F0: 8C 50 52 55 45 46 42 33 00 65 72 5A 0A 20 B5 50 |.PRUEFB3.erZ. .P|
00001600: 54 45 53 54 36 00 6C 72 64 0A 20 9E 00 8C 72 6E |TEST6.lrd. ...rn|
00001610: 0A 50 54 45 53 54 36 20 9A 3B 42 49 54 43 4F 55 |.PTEST6 .;BITCOU|
00001620: 4E 54 45 52 20 49 4E 20 41 4B 4B 55 00 93 72 78 |NTER IN AKKU..rx|
00001630: 0A 20 8E 00 A1 72 82 0A 20 B5 50 54 45 53 54 45 |. ...r.. .PTESTE|
00001640: 32 00 AD 72 8C 0A 20 8A 50 59 52 45 47 00 D1 72 |2..r.. .PYREG..r|
00001650: 96 0A 50 54 45 53 54 45 32 20 81 50 59 52 45 47 |..PTESTE2 .PYREG|
00001660: 3B 50 41 52 49 54 41 45 54 53 45 52 52 4F 52 20 |;PARITAETSERROR |
00001670: 3F 00 DC 72 A0 0A 20 B8 50 52 45 54 00 04 73 AA |?..r.. .PRET..s.|
00001680: 0A 20 81 23 24 33 32 3B 45 52 52 4F 52 43 4F 44 |. .#$32;ERRORCOD|
00001690: 45 20 32 20 5B 50 41 52 49 54 41 45 54 53 45 52 |E 2 [PARITAETSER|
000016A0: 52 4F 52 5D 00 10 73 B4 0A 20 82 45 52 52 4F 52 |ROR]..s.. .ERROR|
000016B0: 00 1B 73 BE 0A 50 52 45 54 20 A4 00 21 73 C8 0A |..s..PRET ..!s..|
000016C0: 3B 00 3F 73 D2 0A 53 54 4F 52 45 48 48 20 85 23 |;.?s..STOREHH .#|
000016D0: 24 31 32 3B 53 54 55 4E 44 45 4E 20 3E 31 31 00 |$12;STUNDEN >11.|
000016E0: 55 73 DC 0A 20 B2 53 54 4F 52 45 48 48 45 3B 4E |Us.. .STOREHHE;N|
000016F0: 45 49 4E 20 21 00 5C 73 E6 0A 20 AC 00 63 73 F0 |EIN !.\s.. ..cs.|
00001700: 0A 20 A6 00 7D 73 FA 0A 20 86 23 24 36 38 3B 50 |. ..}s.. .#$68;P|
00001710: 4D 2D 46 4C 41 47 20 53 45 54 5A 45 4E 00 84 73 |M-FLAG SETZEN..s|
00001720: 04 0B 20 AB 00 93 73 0E 0B 53 54 4F 52 45 48 48 |.. ...s..STOREHH|
00001730: 45 20 A4 00 99 73 18 0B 3B 00 C8 73 22 0B 4D 49 |E ...s..;..s".MI|
00001740: 4E 55 54 45 53 54 31 20 81 45 52 52 4F 52 3B 53 |NUTEST1 .ERROR;S|
00001750: 43 48 4F 4E 20 45 52 52 4F 52 20 45 49 4E 47 45 |CHON ERROR EINGE|
00001760: 54 52 41 47 45 4E 20 3F 00 D3 73 2C 0B 20 85 23 |TRAGEN ?..s,. .#|
00001770: 24 32 30 00 EA 73 36 0B 20 B8 4D 49 4E 55 54 45 |$20..s6. .MINUTE|
00001780: 53 54 32 3B 4E 45 49 4E 20 21 00 17 74 40 0B 20 |ST2;NEIN !..t@. |
00001790: 96 4D 49 4E 55 54 45 53 54 45 3B 4A 41 20 21 3A |.MINUTESTE;JA !:|
000017A0: 4B 45 49 4E 20 4D 49 4E 55 54 45 4E 54 45 53 54 |KEIN MINUTENTEST|
000017B0: 20 4E 4F 45 54 49 47 00 3E 74 4A 0B 4D 49 4E 55 | NOETIG.>tJ.MINU|
000017C0: 54 45 53 54 32 20 81 4D 49 4E 55 54 45 4E 31 3B |TEST2 .MINUTEN1;|
000017D0: 4D 49 4E 55 54 45 4E 20 44 43 46 20 37 37 00 5B |MINUTEN DCF 77.[|
000017E0: 74 54 0B 20 87 23 24 37 46 3B 50 52 55 45 46 42 |tT. .#$7F;PRUEFB|
000017F0: 49 54 20 4C 4F 45 53 43 48 45 4E 00 7E 74 5E 0B |IT LOESCHEN.~t^.|
00001800: 20 85 23 24 30 30 3B 4D 49 4E 55 54 45 4E 53 43 | .#$00;MINUTENSC|
00001810: 48 52 49 54 54 20 35 39 20 2D 3E 20 30 30 00 92 |HRITT 59 -> 00..|
00001820: 74 68 0B 20 B8 56 4F 52 48 45 52 35 39 3B 4A 41 |th. .VORHER59;JA|
00001830: 20 21 00 A0 74 72 0B 20 AC 3B 4E 45 49 4E 20 21 | !..tr. .;NEIN !|
00001840: 00 A7 74 7C 0B 20 A7 00 CD 74 86 0B 20 92 4F 4C |..t|. ...t.. .OL|
00001850: 44 4D 49 4E 55 54 45 3B 4D 49 4E 55 54 45 4E 4E |DMINUTE;MINUTENN|
00001860: 45 57 2D 4D 49 4E 55 54 45 4E 4F 4C 44 00 D4 74 |EW-MINUTENOLD..t|
00001870: 90 0B 20 AB 00 F2 74 9A 0B 20 85 23 24 30 31 3B |.. ...t.. .#$01;|
00001880: 4D 49 4E 55 54 45 4E 53 43 48 52 49 54 54 20 2B |MINUTENSCHRITT +|
00001890: 20 31 00 12 75 A4 0B 20 B8 4D 49 4E 55 54 45 53 | 1..u.. .MINUTES|
000018A0: 54 45 3B 4A 41 20 21 3A 4B 45 49 4E 20 45 52 52 |TE;JA !:KEIN ERR|
000018B0: 4F 52 00 2F 75 AE 0B 20 96 4D 49 4E 55 45 52 52 |OR./u.. .MINUERR|
000018C0: 4F 52 3B 4E 45 49 4E 20 21 3A 45 52 52 4F 52 00 |OR;NEIN !:ERROR.|
000018D0: 57 75 B8 0B 56 4F 52 48 45 52 35 39 20 81 4F 4C |Wu..VORHER59 .OL|
000018E0: 44 4D 49 4E 55 54 45 3B 4D 49 4E 55 54 45 4E 4F |DMINUTE;MINUTENO|
000018F0: 4C 44 20 3D 20 35 39 00 62 75 C2 0B 20 85 23 24 |LD = 59.bu.. .#$|
00001900: 35 39 00 82 75 CC 0B 20 B8 4D 49 4E 55 54 45 53 |59..u.. .MINUTES|
00001910: 54 45 3B 4A 41 20 21 3A 4B 45 49 4E 20 45 52 52 |TE;JA !:KEIN ERR|
00001920: 4F 52 00 B1 75 D6 0B 4D 49 4E 55 45 52 52 4F 52 |OR..u..MINUERROR|
00001930: 20 81 23 24 33 33 3B 45 52 52 4F 52 43 4F 44 45 | .#$33;ERRORCODE|
00001940: 20 33 20 5B 4D 49 4E 55 54 45 4E 45 52 52 4F 52 | 3 [MINUTENERROR|
00001950: 5D 00 C7 75 E0 0B 20 82 45 52 52 4F 52 3B 53 50 |]..u.. .ERROR;SP|
00001960: 45 49 43 48 45 52 4E 00 EA 75 EA 0B 4D 49 4E 55 |EICHERN..u..MINU|
00001970: 54 45 53 54 45 20 81 4D 49 4E 55 54 45 4E 31 3B |TESTE .MINUTEN1;|
00001980: 4D 49 4E 55 54 45 4E 4E 45 57 00 F8 75 F4 0B 20 |MINUTENNEW..u.. |
00001990: 87 23 24 37 46 3B 49 4E 00 13 76 FE 0B 20 82 4F |.#$7F;IN..v.. .O|
000019A0: 4C 44 4D 49 4E 55 54 45 3B 4D 49 4E 55 54 45 4E |LDMINUTE;MINUTEN|
000019B0: 4F 4C 44 00 1A 76 08 0C 20 A4 00 20 76 12 0C 3B |OLD..v.. .. v..;|
000019C0: 00 3B 76 1C 0C 53 43 52 45 45 4E 53 54 20 97 24 |.;v..SCREENST .$|
000019D0: 43 31 34 32 3B 53 43 4E 43 4C 52 00 41 76 26 0C |C142;SCNCLR.Av&.|
000019E0: 3B 00 60 76 30 0C 20 81 23 24 30 30 3B 4C 4F 57 |;.`v0. .#$00;LOW|
000019F0: 42 59 54 45 20 53 43 52 45 45 4E 53 54 41 52 54 |BYTE SCREENSTART|
00001A00: 00 80 76 3A 0C 20 83 23 24 30 34 3B 48 49 47 48 |..v:. .#$04;HIGH|
00001A10: 42 59 54 45 20 53 43 52 45 45 4E 53 54 41 52 54 |BYTE SCREENSTART|
00001A20: 00 96 76 44 0C 20 82 24 43 38 3B 49 4E 20 5A 45 |..vD. .$C8;IN ZE|
00001A30: 52 4F 50 41 47 45 00 A0 76 4E 0C 20 88 24 43 39 |ROPAGE..vN. .$C9|
00001A40: 00 C8 76 58 0C 20 81 23 3C 28 41 4E 5A 45 49 47 |..vX. .#<(ANZEIG|
00001A50: 45 31 29 3B 4C 4F 57 42 59 54 45 20 41 4E 5A 45 |E1);LOWBYTE ANZE|
00001A60: 49 47 45 53 54 41 52 54 00 F1 76 62 0C 20 83 23 |IGESTART..vb. .#|
00001A70: 3E 28 41 4E 5A 45 49 47 45 31 29 3B 48 49 47 48 |>(ANZEIGE1);HIGH|
00001A80: 42 59 54 45 20 41 4E 5A 45 49 47 45 53 54 41 52 |BYTE ANZEIGESTAR|
00001A90: 54 00 07 77 6C 0C 20 82 24 43 41 3B 49 4E 20 5A |T..wl. .$CA;IN Z|
00001AA0: 45 52 4F 50 41 47 45 00 11 77 76 0C 20 88 24 43 |EROPAGE..wv. .$C|
00001AB0: 42 00 17 77 80 0C 3B 00 29 77 8A 0C 20 84 23 24 |B..w..;.)w.. .#$|
00001AC0: 34 46 3B 5A 45 49 47 45 52 00 55 77 94 0C 5A 45 |4F;ZEIGER.Uw..ZE|
00001AD0: 49 4C 45 31 55 32 20 81 28 24 43 41 29 2C 59 3B |ILE1U2 .($CA),Y;|
00001AE0: 41 55 53 47 41 42 45 20 5A 45 49 4C 45 20 31 20 |AUSGABE ZEILE 1 |
00001AF0: 55 4E 44 20 32 00 63 77 9E 0C 20 82 28 24 43 38 |UND 2.cw.. .($C8|
00001B00: 29 2C 59 00 6A 77 A8 0C 20 A3 00 79 77 B2 0C 20 |),Y.jw.. ..yw.. |
00001B10: B1 5A 45 49 4C 45 31 55 32 00 7F 77 BC 0C 3B 00 |.ZEILE1U2..w..;.|
00001B20: A9 77 C6 0C 20 81 23 24 41 30 3B 4C 4F 57 42 59 |.w.. .#$A0;LOWBY|
00001B30: 54 45 20 53 43 52 45 45 4E 53 54 41 52 54 20 41 |TE SCREENSTART A|
00001B40: 42 20 5A 45 49 4C 45 20 33 00 BF 77 D0 0C 20 82 |B ZEILE 3..w.. .|
00001B50: 24 43 38 3B 49 4E 20 5A 45 52 4F 50 41 47 45 00 |$C8;IN ZEROPAGE.|
00001B60: E7 77 DA 0C 20 81 23 3C 28 41 4E 5A 45 49 47 45 |.w.. .#<(ANZEIGE|
00001B70: 32 29 3B 4C 4F 57 42 59 54 45 20 41 4E 5A 45 49 |2);LOWBYTE ANZEI|
00001B80: 47 45 53 54 41 52 54 00 10 78 E4 0C 20 83 23 3E |GESTART..x.. .#>|
00001B90: 28 41 4E 5A 45 49 47 45 32 29 3B 48 49 47 48 42 |(ANZEIGE2);HIGHB|
00001BA0: 59 54 45 20 41 4E 5A 45 49 47 45 53 54 41 52 54 |YTE ANZEIGESTART|
00001BB0: 00 26 78 EE 0C 20 82 24 43 41 3B 49 4E 20 5A 45 |.&x.. .$CA;IN ZE|
00001BC0: 52 4F 50 41 47 45 00 30 78 F8 0C 20 88 24 43 42 |ROPAGE.0x.. .$CB|
00001BD0: 00 36 78 02 0D 3B 00 59 78 0C 0D 20 83 23 24 30 |.6x..;.Yx.. .#$0|
00001BE0: 44 3B 4E 4F 43 48 20 31 33 20 5A 45 49 4C 45 4E |D;NOCH 13 ZEILEN|
00001BF0: 20 41 55 53 47 45 42 45 4E 00 76 78 16 0D 5A 45 | AUSGEBEN.vx..ZE|
00001C00: 49 4C 45 4E 52 45 53 54 31 20 84 23 24 31 38 3B |ILENREST1 .#$18;|
00001C10: 5A 45 49 47 45 52 00 A4 78 20 0D 5A 45 49 4C 45 |ZEIGER..x .ZEILE|
00001C20: 4E 52 45 53 54 32 20 81 28 24 43 41 29 2C 59 3B |NREST2 .($CA),Y;|
00001C30: 41 55 53 47 41 42 45 20 5A 45 49 4C 45 20 33 20 |AUSGABE ZEILE 3 |
00001C40: 2D 20 31 35 00 B2 78 2A 0D 20 82 28 24 43 38 29 |- 15..x*. .($C8)|
00001C50: 2C 59 00 B9 78 34 0D 20 A3 00 CB 78 3E 0D 20 B1 |,Y..x4. ...x>. .|
00001C60: 5A 45 49 4C 45 4E 52 45 53 54 32 00 D1 78 48 0D |ZEILENREST2..xH.|
00001C70: 3B 00 ED 78 52 0D 20 81 23 24 32 38 3B 41 44 52 |;..xR. .#$28;ADR|
00001C80: 2E 20 53 43 52 45 45 4E 20 2B 20 34 30 00 F4 78 |. SCREEN + 40..x|
00001C90: 5C 0D 20 A6 00 FE 78 66 0D 20 86 24 43 38 00 08 |\. ...xf. .$C8..|
00001CA0: 79 70 0D 20 82 24 43 38 00 13 79 7A 0D 20 81 23 |yp. .$C8..yz. .#|
00001CB0: 24 30 30 00 1D 79 84 0D 20 86 24 43 39 00 27 79 |$00..y.. .$C9.'y|
00001CC0: 8E 0D 20 82 24 43 39 00 2D 79 98 0D 3B 00 4A 79 |.. .$C9.-y..;.Jy|
00001CD0: A2 0D 20 81 23 24 31 39 3B 41 44 52 2E 20 41 4E |.. .#$19;ADR. AN|
00001CE0: 5A 45 49 47 45 20 2B 20 32 35 00 51 79 AC 0D 20 |ZEIGE + 25.Qy.. |
00001CF0: A6 00 5B 79 B6 0D 20 86 24 43 41 00 65 79 C0 0D |..[y.. .$CA.ey..|
00001D00: 20 82 24 43 41 00 70 79 CA 0D 20 81 23 24 30 30 | .$CA.py.. .#$00|
00001D10: 00 7A 79 D4 0D 20 86 24 43 42 00 84 79 DE 0D 20 |.zy.. .$CB..y.. |
00001D20: 82 24 43 42 00 8A 79 E8 0D 3B 00 91 79 F2 0D 20 |.$CB..y..;..y.. |
00001D30: AF 00 A3 79 FC 0D 20 B7 5A 45 49 4C 45 4E 52 45 |...y.. .ZEILENRE|
00001D40: 53 54 31 00 A9 79 06 0E 3B 00 C5 79 10 0E 20 83 |ST1..y..;..y.. .|
00001D50: 23 24 31 34 3B 43 55 52 53 4F 52 5A 45 49 4C 45 |#$14;CURSORZEILE|
00001D60: 20 3D 20 32 30 00 E1 79 1A 0E 20 84 23 24 30 30 | = 20..y.. .#$00|
00001D70: 3B 43 55 52 53 4F 52 53 50 41 4C 54 45 20 3D 20 |;CURSORSPALTE = |
00001D80: 30 00 E8 79 24 0E 20 A6 00 02 7A 2E 0E 20 97 24 |0..y$. ...z.. .$|
00001D90: 46 46 46 30 3B 43 55 52 53 4F 52 20 53 45 54 5A |FFF0;CURSOR SETZ|
00001DA0: 45 4E 00 08 7A 38 0E 3B 00 0F 7A 42 0E 20 A4 00 |EN..z8.;..zB. ..|
00001DB0: 15 7A 4C 0E 3B 00 4C 7A 56 0E 42 49 4C 44 53 43 |.zL.;.LzV.BILDSC|
00001DC0: 48 49 52 4D 20 83 23 24 34 46 3B 52 45 43 48 54 |HIRM .#$4F;RECHT|
00001DD0: 45 52 20 52 41 4E 44 20 42 45 49 20 38 30 20 5A |ER RAND BEI 80 Z|
00001DE0: 45 49 43 48 45 4E 53 43 48 49 52 4D 00 6E 7A 60 |EICHENSCHIRM.nz`|
00001DF0: 0E 20 8D 24 44 37 3B 38 30 20 5A 45 49 43 48 45 |. .$D7;80 ZEICHE|
00001E00: 4E 20 54 45 58 54 53 43 48 49 52 4D 20 3F 00 9A |N TEXTSCHIRM ?..|
00001E10: 7A 6A 0E 20 B1 54 45 53 54 4D 4F 44 45 3B 4E 45 |zj. .TESTMODE;NE|
00001E20: 49 4E 3A 34 30 20 5A 45 49 43 48 45 4E 20 54 45 |IN:40 ZEICHEN TE|
00001E30: 58 54 53 43 48 49 52 4D 20 21 00 A0 7A 74 0E 3B |XTSCHIRM !..zt.;|
00001E40: 00 D2 7A 7E 0E 52 55 4E 34 30 20 81 57 49 4E 44 |..z~.RUN40 .WIND|
00001E50: 4F 57 3B 46 4C 41 47 20 5B 4E 41 43 48 20 53 54 |OW;FLAG [NACH ST|
00001E60: 41 52 54 20 55 4E 44 20 44 49 52 45 4B 54 4D 4F |ART UND DIREKTMO|
00001E70: 44 45 00 FD 7A 88 0E 20 B8 4E 4F 44 41 54 41 4F |DE..z.. .NODATAO|
00001E80: 55 54 3B 4D 49 54 20 34 30 20 5A 45 49 43 48 45 |UT;MIT 40 ZEICHE|
00001E90: 4E 53 43 48 49 52 4D 20 3C 3E 20 30 5D 00 03 7B |NSCHIRM <> 0]..{|
00001EA0: 92 0E 3B 00 14 7B 9C 0E 20 81 23 24 30 30 3B 30 |..;..{.. .#$00;0|
00001EB0: 20 49 4E 3A 00 31 7B A6 0E 20 82 24 45 35 3B 46 | IN:.1{.. .$E5;F|
00001EC0: 45 4E 53 54 45 52 20 4F 42 45 52 47 52 45 4E 5A |ENSTER OBERGRENZ|
00001ED0: 45 00 4F 7B B0 0E 20 82 24 45 36 3B 46 45 4E 53 |E.O{.. .$E6;FENS|
00001EE0: 54 45 52 20 4C 49 4E 4B 45 52 20 52 41 4E 44 00 |TER LINKER RAND.|
00001EF0: 67 7B BA 0E 20 82 57 49 4E 44 4F 57 3B 52 45 53 |g{.. .WINDOW;RES|
00001F00: 45 54 20 46 4C 41 47 00 7A 7B C4 0E 20 81 23 24 |ET FLAG.z{.. .#$|
00001F10: 31 38 3B 24 31 38 20 49 4E 3A 00 98 7B CE 0E 20 |18;$18 IN:..{.. |
00001F20: 82 24 45 34 3B 46 45 4E 53 54 45 52 20 55 4E 54 |.$E4;FENSTER UNT|
00001F30: 45 52 47 52 45 4E 5A 45 00 BA 7B D8 0E 20 88 24 |ERGRENZE..{.. .$|
00001F40: 45 37 3B 58 20 3D 20 52 45 43 48 54 45 20 47 52 |E7;X = RECHTE GR|
00001F50: 45 4E 5A 45 20 34 30 2F 38 30 00 C0 7B E2 0E 3B |ENZE 40/80..{..;|
00001F60: 00 DB 7B EC 0E 4E 4F 44 41 54 41 4F 55 54 20 96 |..{..NODATAOUT .|
00001F70: 42 49 4C 44 53 43 48 49 52 4D 45 00 E1 7B F6 0E |BILDSCHIRME..{..|
00001F80: 3B 00 FE 7B 00 0F 54 45 53 54 4D 4F 44 45 20 81 |;..{..TESTMODE .|
00001F90: 24 37 46 3B 52 55 4E 20 4D 4F 44 45 20 3F 00 09 |$7F;RUN MODE ?..|
00001FA0: 7C 0A 0F 20 87 23 24 38 30 00 27 7C 14 0F 20 B8 ||.. .#$80.'|.. .|
00001FB0: 44 41 54 41 4F 55 54 3B 4E 45 49 4E 3A 44 49 52 |DATAOUT;NEIN:DIR|
00001FC0: 45 4B 54 4D 4F 44 45 00 50 7C 1E 0F 20 83 23 24 |EKTMODE.P|.. .#$|
00001FD0: 32 37 3B 52 45 43 48 54 45 52 20 52 41 4E 44 20 |27;RECHTER RAND |
00001FE0: 34 30 20 5A 45 49 43 48 45 4E 53 43 48 49 52 4D |40 ZEICHENSCHIRM|
00001FF0: 00 82 7C 28 0F 20 96 52 55 4E 34 30 3B 52 55 4E |..|(. .RUN40;RUN|
00002000: 20 55 2E 20 34 30 20 5A 45 49 2E 3D 20 46 52 45 | U. 40 ZEI.= FRE|
00002010: 45 57 49 4E 44 4F 57 2F 41 4E 5A 45 49 47 45 4F |EWINDOW/ANZEIGEO|
00002020: 46 46 00 88 7C 32 0F 3B 00 A0 7C 3C 0F 44 41 54 |FF..|2.;..|<.DAT|
00002030: 41 4F 55 54 20 81 23 24 30 32 3B 32 20 49 4E 3A |AOUT .#$02;2 IN:|
00002040: 00 BD 7C 46 0F 20 82 24 45 35 3B 46 45 4E 53 54 |..|F. .$E5;FENST|
00002050: 45 52 20 4F 42 45 52 47 52 45 4E 5A 45 00 D3 7C |ER OBERGRENZE..||
00002060: 50 0F 20 82 57 49 4E 44 4F 57 3B 53 45 54 20 46 |P. .WINDOW;SET F|
00002070: 4C 41 47 00 E4 7C 5A 0F 20 81 23 24 30 30 3B 30 |LAG..|Z. .#$00;0|
00002080: 20 49 4E 3A 00 02 7D 64 0F 20 82 24 45 36 3B 46 | IN:..}d. .$E6;F|
00002090: 45 4E 53 54 45 52 20 4C 49 4E 4B 45 52 20 52 41 |ENSTER LINKER RA|
000020A0: 4E 44 00 15 7D 6E 0F 20 81 23 24 31 38 3B 24 31 |ND..}n. .#$18;$1|
000020B0: 38 20 49 4E 3A 00 33 7D 78 0F 20 82 24 45 34 3B |8 IN:.3}x. .$E4;|
000020C0: 46 45 4E 53 54 45 52 20 55 4E 54 45 52 47 52 45 |FENSTER UNTERGRE|
000020D0: 4E 5A 45 00 46 7D 82 0F 20 81 23 24 32 37 3B 24 |NZE.F}.. .#$27;$|
000020E0: 32 37 20 49 4E 3A 00 65 7D 8C 0F 20 82 24 45 37 |27 IN:.e}.. .$E7|
000020F0: 3B 46 45 4E 53 54 45 52 20 52 45 43 48 54 45 52 |;FENSTER RECHTER|
00002100: 20 52 41 4E 44 00 6B 7D 96 0F 3B 00 97 7D A0 0F | RAND.k}..;..}..|
00002110: 20 83 23 24 34 46 3B 43 4F 55 4E 54 45 52 2F 5A | .#$4F;COUNTER/Z|
00002120: 45 49 47 45 52 20 46 41 52 42 52 41 4D 20 5A 45 |EIGER FARBRAM ZE|
00002130: 49 4C 45 20 31 2B 32 00 BA 7D AA 0F 20 81 23 24 |ILE 1+2..}.. .#$|
00002140: 30 31 3B 46 41 52 42 45 20 57 45 49 53 53 20 5A |01;FARBE WEISS Z|
00002150: 45 49 4C 45 20 31 20 2B 20 32 00 D2 7D B4 0F 53 |EILE 1 + 2..}..S|
00002160: 54 4F 52 45 57 45 49 53 53 20 82 24 44 38 30 30 |TOREWEISS .$D800|
00002170: 2C 58 00 D9 7D BE 0F 20 AF 00 EA 7D C8 0F 20 B1 |,X..}.. ...}.. .|
00002180: 53 54 4F 52 45 57 45 49 53 53 00 F0 7D D2 0F 3B |STOREWEISS..}..;|
00002190: 00 FB 7D DC 0F 20 81 23 24 30 36 00 1A 7E E6 0F |..}.. .#$06..~..|
000021A0: 20 82 24 44 30 32 31 3B 42 4C 41 55 45 52 20 48 | .$D021;BLAUER H|
000021B0: 49 4E 54 45 52 47 52 55 4E 44 00 20 7E F0 0F 3B |INTERGRUND. ~..;|
000021C0: 00 4A 7E FA 0F 20 83 23 24 34 46 3B 43 4F 55 4E |.J~.. .#$4F;COUN|
000021D0: 54 45 52 2F 5A 45 49 47 45 52 20 41 55 53 47 41 |TER/ZEIGER AUSGA|
000021E0: 42 45 20 41 4E 5A 45 49 47 45 00 7B 7E 04 10 4F |BE ANZEIGE.{~..O|
000021F0: 55 54 41 4E 5A 45 49 47 45 20 81 41 4E 5A 45 49 |UTANZEIGE .ANZEI|
00002200: 47 45 31 2C 58 3B 41 4E 5A 45 49 47 45 20 5A 45 |GE1,X;ANZEIGE ZE|
00002210: 49 4C 45 20 31 20 55 4E 44 20 32 00 88 7E 0E 10 |ILE 1 UND 2..~..|
00002220: 20 82 24 34 30 30 2C 58 00 8F 7E 18 10 20 AF 00 | .$400,X..~.. ..|
00002230: A0 7E 22 10 20 B1 4F 55 54 41 4E 5A 45 49 47 45 |.~". .OUTANZEIGE|
00002240: 00 A6 7E 2C 10 3B 00 C9 7E 36 10 20 83 54 49 42 |..~,.;..~6. .TIB|
00002250: 55 46 46 45 52 2B 31 3B 48 48 20 41 55 53 20 54 |UFFER+1;HH AUS T|
00002260: 49 4D 45 42 55 46 46 45 52 00 DD 7E 40 10 20 84 |IMEBUFFER..~@. .|
00002270: 54 49 42 55 46 46 45 52 2B 32 3B 49 4E 00 F6 7E |TIBUFFER+2;IN..~|
00002280: 4A 10 20 88 24 34 32 30 3B 56 49 44 45 4F 53 50 |J. .$420;VIDEOSP|
00002290: 45 49 43 48 45 52 00 01 7F 54 10 20 89 24 34 32 |EICHER...T. .$42|
000022A0: 31 00 07 7F 5E 10 3B 00 2A 7F 68 10 20 83 54 49 |1...^.;.*.h. .TI|
000022B0: 42 55 46 46 45 52 2B 33 3B 4D 4D 20 41 55 53 20 |BUFFER+3;MM AUS |
000022C0: 54 49 4D 45 42 55 46 46 45 52 00 3E 7F 72 10 20 |TIMEBUFFER.>.r. |
000022D0: 84 54 49 42 55 46 46 45 52 2B 34 3B 49 4E 00 57 |.TIBUFFER+4;IN.W|
000022E0: 7F 7C 10 20 88 24 34 32 33 3B 56 49 44 45 4F 53 |.|. .$423;VIDEOS|
000022F0: 50 45 49 43 48 45 52 00 62 7F 86 10 20 89 24 34 |PEICHER.b... .$4|
00002300: 32 34 00 68 7F 90 10 3B 00 8B 7F 9A 10 20 83 54 |24.h...;..... .T|
00002310: 49 42 55 46 46 45 52 2B 35 3B 53 53 20 41 55 53 |IBUFFER+5;SS AUS|
00002320: 20 54 49 4D 45 42 55 46 46 45 52 00 9F 7F A4 10 | TIMEBUFFER.....|
00002330: 20 84 54 49 42 55 46 46 45 52 2B 36 3B 49 4E 00 | .TIBUFFER+6;IN.|
00002340: B8 7F AE 10 20 88 24 34 32 36 3B 56 49 44 45 4F |.... .$426;VIDEO|
00002350: 53 50 45 49 43 48 45 52 00 C3 7F B8 10 20 89 24 |SPEICHER..... .$|
00002360: 34 32 37 00 C9 7F C2 10 3B 00 E5 7F CC 10 20 81 |427.....;..... .|
00002370: 45 52 52 4F 52 3B 45 52 52 4F 52 43 4F 44 45 20 |ERROR;ERRORCODE |
00002380: 4C 41 44 45 4E 00 05 80 D6 10 20 82 24 34 30 41 |LADEN..... .$40A|
00002390: 3B 55 4E 44 20 49 4E 20 56 49 44 45 4F 53 50 45 |;UND IN VIDEOSPE|
000023A0: 49 43 48 45 52 00 18 80 E0 10 20 85 23 24 32 30 |ICHER..... .#$20|
000023B0: 3B 45 52 52 4F 52 20 3F 00 4A 80 EA 10 20 B8 41 |;ERROR ?.J... .A|
000023C0: 53 43 49 49 49 4E 53 43 43 3B 4E 45 49 4E 3A 57 |SCIIINSCC;NEIN:W|
000023D0: 4F 43 48 45 4E 54 41 47 20 41 53 43 49 49 2D 3E |OCHENTAG ASCII->|
000023E0: 53 43 52 45 45 4E 43 4F 44 45 00 50 80 F4 10 3B |SCREENCODE.P...;|
000023F0: 00 5B 80 FE 10 20 83 23 24 30 32 00 8A 80 08 11 |.[... .#$02.....|
00002400: 45 52 52 4F 52 53 43 52 31 20 81 44 41 42 55 46 |ERRORSCR1 .DABUF|
00002410: 46 45 52 2C 58 3B 22 2A 22 20 41 55 53 20 44 41 |FER,X;"*" AUS DA|
00002420: 54 55 4D 53 42 55 46 46 45 52 00 9E 80 12 11 20 |TUMSBUFFER..... |
00002430: 82 24 34 31 35 2C 58 3B 55 4E 44 20 49 4E 00 BF |.$415,X;UND IN..|
00002440: 80 1C 11 20 AF 3B 56 49 44 45 4F 53 50 45 49 43 |... .;VIDEOSPEIC|
00002450: 48 45 52 20 5B 57 4F 43 48 45 4E 54 41 47 5D 00 |HER [WOCHENTAG].|
00002460: CF 80 26 11 20 B7 45 52 52 4F 52 53 43 52 31 00 |..&. .ERRORSCR1.|
00002470: D5 80 30 11 3B 00 E0 80 3A 11 20 83 23 24 30 33 |..0.;...:. .#$03|
00002480: 00 12 81 44 11 45 52 52 4F 52 53 43 52 32 20 81 |...D.ERRORSCR2 .|
00002490: 44 41 42 55 46 46 45 52 2B 31 31 2C 58 3B 22 2A |DABUFFER+11,X;"*|
000024A0: 22 20 41 55 53 20 44 41 54 55 4D 53 42 55 46 46 |" AUS DATUMSBUFF|
000024B0: 45 52 00 26 81 4E 11 20 82 24 34 33 45 2C 58 3B |ER.&.N. .$43E,X;|
000024C0: 55 4E 44 20 49 4E 00 46 81 58 11 20 AF 3B 56 49 |UND IN.F.X. .;VI|
000024D0: 44 45 4F 53 50 45 49 43 48 45 52 20 5B 4D 45 5A |DEOSPEICHER [MEZ|
000024E0: 2F 4D 45 53 5A 5D 00 56 81 62 11 20 B1 45 52 52 |/MESZ].V.b. .ERR|
000024F0: 4F 52 53 43 52 32 00 5C 81 6C 11 3B 00 6E 81 76 |ORSCR2.\.l.;.n.v|
00002500: 11 20 96 44 41 54 55 4D 53 43 52 45 45 4E 00 74 |. .DATUMSCREEN.t|
00002510: 81 80 11 3B 00 89 81 8A 11 41 53 43 49 49 49 4E |...;.....ASCIIIN|
00002520: 53 43 43 20 83 23 24 30 32 00 BE 81 94 11 57 4F |SCC .#$02.....WO|
00002530: 54 41 47 53 43 52 20 81 44 41 42 55 46 46 45 52 |TAGSCR .DABUFFER|
00002540: 2C 58 3B 42 55 43 48 53 54 41 42 45 20 57 4F 43 |,X;BUCHSTABE WOC|
00002550: 48 45 4E 54 41 47 20 5B 41 53 43 49 49 5D 00 C5 |HENTAG [ASCII]..|
00002560: 81 9E 11 20 A7 00 E7 81 A8 11 20 92 23 24 34 30 |... ...... .#$40|
00002570: 3B 20 2D 20 36 34 20 3D 20 42 49 4C 44 53 43 48 |; - 64 = BILDSCH|
00002580: 49 52 4D 43 4F 44 45 00 05 82 B2 11 20 82 24 34 |IRMCODE..... .$4|
00002590: 31 35 2C 58 3B 49 4E 20 56 49 44 45 4F 53 50 45 |15,X;IN VIDEOSPE|
000025A0: 49 43 48 45 52 00 0C 82 BC 11 20 AF 00 1B 82 C6 |ICHER..... .....|
000025B0: 11 20 B7 57 4F 54 41 47 53 43 52 00 21 82 D0 11 |. .WOTAGSCR.!...|
000025C0: 3B 00 2C 82 DA 11 20 83 23 24 30 33 00 62 82 E4 |;.,... .#$03.b..|
000025D0: 11 57 49 53 4F 53 43 52 20 81 44 41 42 55 46 46 |.WISOSCR .DABUFF|
000025E0: 45 52 2B 31 31 2C 58 3B 42 55 43 48 53 54 41 42 |ER+11,X;BUCHSTAB|
000025F0: 45 20 4D 45 5A 2F 4D 45 53 5A 20 5B 41 53 43 49 |E MEZ/MESZ [ASCI|
00002600: 49 5D 00 75 82 EE 11 20 85 23 24 32 30 3B 53 50 |I].u... .#$20;SP|
00002610: 41 43 45 20 3F 00 83 82 F8 11 20 B8 42 43 4F 44 |ACE ?..... .BCOD|
00002620: 45 4F 4B 00 8A 82 02 12 20 A7 00 AC 82 0C 12 20 |EOK..... ...... |
00002630: 92 23 24 34 30 3B 20 2D 20 36 34 20 3D 20 42 49 |.#$40; - 64 = BI|
00002640: 4C 44 53 43 48 49 52 4D 43 4F 44 45 00 C0 82 16 |LDSCHIRMCODE....|
00002650: 12 42 43 4F 44 45 4F 4B 20 82 24 34 33 45 2C 58 |.BCODEOK .$43E,X|
00002660: 00 C7 82 20 12 20 AF 00 D5 82 2A 12 20 B1 57 49 |... . ....*. .WI|
00002670: 53 4F 53 43 52 00 DB 82 34 12 3B 00 14 83 3E 12 |SOSCR...4.;...>.|
00002680: 44 41 54 55 4D 53 43 52 45 45 4E 20 83 44 41 42 |DATUMSCREEN .DAB|
00002690: 55 46 46 45 52 2B 34 3B 4B 41 4C 45 4E 44 45 52 |UFFER+4;KALENDER|
000026A0: 54 41 47 20 41 55 53 20 44 41 54 55 4D 53 42 55 |TAG AUS DATUMSBU|
000026B0: 46 46 45 52 00 28 83 48 12 20 84 44 41 42 55 46 |FFER.(.H. .DABUF|
000026C0: 46 45 52 2B 35 3B 49 4E 00 41 83 52 12 20 88 24 |FER+5;IN.A.R. .$|
000026D0: 34 34 38 3B 56 49 44 45 4F 53 50 45 49 43 48 45 |448;VIDEOSPEICHE|
000026E0: 52 00 4C 83 5C 12 20 89 24 34 34 39 00 52 83 66 |R.L.\. .$449.R.f|
000026F0: 12 3B 00 82 83 70 12 20 83 44 41 42 55 46 46 45 |.;...p. .DABUFFE|
00002700: 52 2B 36 3B 4B 41 4C 45 4E 44 45 52 4D 4F 4E 41 |R+6;KALENDERMONA|
00002710: 54 20 41 55 53 20 44 41 54 55 4D 53 42 55 46 46 |T AUS DATUMSBUFF|
00002720: 45 52 00 96 83 7A 12 20 84 44 41 42 55 46 46 45 |ER...z. .DABUFFE|
00002730: 52 2B 37 3B 49 4E 00 AF 83 84 12 20 88 24 34 34 |R+7;IN..... .$44|
00002740: 42 3B 56 49 44 45 4F 53 50 45 49 43 48 45 52 00 |B;VIDEOSPEICHER.|
00002750: BA 83 8E 12 20 89 24 34 34 43 00 C0 83 98 12 3B |.... .$44C.....;|
00002760: 00 EF 83 A2 12 20 83 44 41 42 55 46 46 45 52 2B |..... .DABUFFER+|
00002770: 38 3B 4B 41 4C 45 4E 44 45 52 4A 41 48 52 20 41 |8;KALENDERJAHR A|
00002780: 55 53 20 44 41 54 55 4D 53 42 55 46 46 45 52 00 |US DATUMSBUFFER.|
00002790: 03 84 AC 12 20 84 44 41 42 55 46 46 45 52 2B 39 |.... .DABUFFER+9|
000027A0: 3B 49 4E 00 1C 84 B6 12 20 88 24 34 34 45 3B 56 |;IN..... .$44E;V|
000027B0: 49 44 45 4F 53 50 45 49 43 48 45 52 00 27 84 C0 |IDEOSPEICHER.'..|
000027C0: 12 20 89 24 34 34 46 00 2D 84 CA 12 3B 00 3F 84 |. .$44F.-...;.?.|
000027D0: D4 12 42 49 4C 44 53 43 48 49 52 4D 45 20 A4 00 |..BILDSCHIRME ..|
000027E0: 45 84 DE 12 3B 00 66 84 E8 12 42 43 44 42 49 4C |E...;.f...BCDBIL|
000027F0: 44 20 82 42 43 44 43 4F 44 45 3B 43 4F 44 45 20 |D .BCDCODE;CODE |
00002800: 52 45 54 54 45 4E 00 87 84 F2 12 20 87 23 24 30 |RETTEN..... .#$0|
00002810: 46 3B 45 52 47 49 42 54 20 55 4E 54 45 52 45 53 |F;ERGIBT UNTERES|
00002820: 20 4E 49 42 42 4C 45 00 8E 84 FC 12 20 A6 00 A8 | NIBBLE..... ...|
00002830: 84 06 13 20 86 23 24 33 30 3B 42 49 4C 44 53 43 |... .#$30;BILDSC|
00002840: 48 49 52 4D 43 4F 44 45 00 B7 84 10 13 20 9B 3B |HIRMCODE..... .;|
00002850: 4C 4F 57 42 59 54 45 00 D2 84 1A 13 20 81 42 43 |LOWBYTE..... .BC|
00002860: 44 43 4F 44 45 3B 52 45 53 54 4F 52 45 20 43 4F |DCODE;RESTORE CO|
00002870: 44 45 00 F2 84 24 13 20 87 23 24 46 30 3B 45 52 |DE...$. .#$F0;ER|
00002880: 47 49 42 54 20 4F 42 45 52 45 53 20 4E 49 42 42 |GIBT OBERES NIBB|
00002890: 4C 45 00 F9 84 2E 13 20 8E 00 00 85 38 13 20 8E |LE..... ....8. .|
000028A0: 00 07 85 42 13 20 8E 00 0E 85 4C 13 20 8E 00 15 |...B. ....L. ...|
000028B0: 85 56 13 20 A6 00 2F 85 60 13 20 86 23 24 33 30 |.V. ../.`. .#$30|
000028C0: 3B 42 49 4C 44 53 43 48 49 52 4D 43 4F 44 45 00 |;BILDSCHIRMCODE.|
000028D0: 3F 85 6A 13 20 99 3B 48 49 47 48 42 59 54 45 00 |?.j. .;HIGHBYTE.|
000028E0: 46 85 74 13 20 A4 00 4C 85 7E 13 3B 00 6E 85 88 |F.t. ..L.~.;.n..|
000028F0: 13 53 54 4F 52 54 49 44 41 20 81 24 44 44 30 42 |.STORTIDA .$DD0B|
00002900: 3B 53 54 55 4E 44 45 4E 20 4C 41 44 45 4E 00 7E |;STUNDEN LADEN.~|
00002910: 85 92 13 20 85 23 24 38 30 3B 50 4D 20 3F 00 8F |... .#$80;PM ?..|
00002920: 85 9C 13 20 B1 50 4D 45 49 4E 3B 4A 41 20 21 00 |... .PMEIN;JA !.|
00002930: A2 85 A6 13 20 96 41 4D 45 49 4E 3B 4E 45 49 4E |.... .AMEIN;NEIN|
00002940: 20 21 00 C4 85 B0 13 50 4D 45 49 4E 20 87 23 24 | !.....PMEIN .#$|
00002950: 37 46 3B 50 4D 2D 46 4C 41 47 20 47 45 4C 4F 45 |7F;PM-FLAG GELOE|
00002960: 53 43 48 54 00 E3 85 BA 13 20 85 23 24 31 32 3B |SCHT..... .#$12;|
00002970: 31 32 20 55 48 52 20 4E 41 43 48 4D 49 54 54 41 |12 UHR NACHMITTA|
00002980: 47 20 3F 00 F7 85 C4 13 20 B8 53 54 4F 52 5A 45 |G ?..... .STORZE|
00002990: 49 54 3B 4A 41 20 21 00 15 86 CE 13 20 AC 3B 4E |IT;JA !..... .;N|
000029A0: 41 43 48 4D 49 54 54 41 47 20 55 4E 44 20 48 48 |ACHMITTAG UND HH|
000029B0: 20 3C 20 31 32 00 21 86 D8 13 20 A6 3B 44 41 4E | < 12.!... .;DAN|
000029C0: 4E 00 35 86 E2 13 20 86 23 24 31 32 3B 48 48 3D |N.5... .#$12;HH=|
000029D0: 48 48 2B 31 32 00 3C 86 EC 13 20 AB 00 4B 86 F6 |HH+12.<... ..K..|
000029E0: 13 20 96 53 54 4F 52 5A 45 49 54 00 6E 86 00 14 |. .STORZEIT.n...|
000029F0: 41 4D 45 49 4E 20 85 23 24 31 32 3B 31 32 20 55 |AMEIN .#$12;12 U|
00002A00: 48 52 20 56 4F 52 4D 49 54 54 41 47 20 3F 00 84 |HR VORMITTAG ?..|
00002A10: 86 0A 14 20 B7 53 54 4F 52 5A 45 49 54 3B 4E 45 |... .STORZEIT;NE|
00002A20: 49 4E 20 21 00 96 86 14 14 20 81 23 24 30 30 3B |IN !..... .#$00;|
00002A30: 3D 30 20 55 48 52 00 BC 86 1E 14 53 54 4F 52 5A |=0 UHR.....STORZ|
00002A40: 45 49 54 20 97 42 43 44 42 49 4C 44 3B 42 43 44 |EIT .BCDBILD;BCD|
00002A50: 2D 3E 41 53 43 49 49 2D 43 4F 44 45 00 E9 86 28 |->ASCII-CODE...(|
00002A60: 14 20 88 54 49 42 55 46 46 45 52 2B 31 3B 48 48 |. .TIBUFFER+1;HH|
00002A70: 20 49 4E 20 54 49 4D 45 42 55 46 46 45 52 20 5B | IN TIMEBUFFER [|
00002A80: 48 49 47 48 42 59 54 45 5D 00 16 87 32 14 20 89 |HIGHBYTE]...2. .|
00002A90: 54 49 42 55 46 46 45 52 2B 32 3B 22 20 20 22 20 |TIBUFFER+2;" " |
00002AA0: 20 22 20 20 20 20 20 20 20 20 20 20 5B 4C 4F 57 | " [LOW|
00002AB0: 42 59 54 45 20 5D 00 30 87 3C 14 20 81 24 44 44 |BYTE ].0.<. .$DD|
00002AC0: 30 41 3B 4D 49 4E 55 54 45 4E 20 4C 41 44 45 4E |0A;MINUTEN LADEN|
00002AD0: 00 4E 87 46 14 20 97 42 43 44 42 49 4C 44 3B 42 |.N.F. .BCDBILD;B|
00002AE0: 43 44 2D 3E 41 53 43 49 49 2D 43 4F 44 45 00 7B |CD->ASCII-CODE.{|
00002AF0: 87 50 14 20 88 54 49 42 55 46 46 45 52 2B 33 3B |.P. .TIBUFFER+3;|
00002B00: 4D 4D 20 49 4E 20 54 49 4D 45 42 55 46 46 45 52 |MM IN TIMEBUFFER|
00002B10: 20 5B 48 49 47 48 42 59 54 45 5D 00 A8 87 5A 14 | [HIGHBYTE]...Z.|
00002B20: 20 89 54 49 42 55 46 46 45 52 2B 34 3B 22 20 20 | .TIBUFFER+4;" |
00002B30: 22 20 20 22 20 20 20 20 20 20 20 20 20 20 5B 4C |" " [L|
00002B40: 4F 57 42 59 54 45 20 5D 00 C3 87 64 14 20 81 24 |OWBYTE ]...d. .$|
00002B50: 44 44 30 39 3B 53 45 4B 55 4E 44 45 4E 20 4C 41 |DD09;SEKUNDEN LA|
00002B60: 44 45 4E 00 E1 87 6E 14 20 97 42 43 44 42 49 4C |DEN...n. .BCDBIL|
00002B70: 44 3B 42 43 44 2D 3E 41 53 43 49 49 2D 43 4F 44 |D;BCD->ASCII-COD|
00002B80: 45 00 0E 88 78 14 20 88 54 49 42 55 46 46 45 52 |E...x. .TIBUFFER|
00002B90: 2B 35 3B 53 53 20 49 4E 20 54 49 4D 45 42 55 46 |+5;SS IN TIMEBUF|
00002BA0: 46 45 52 20 5B 48 49 47 48 42 59 54 45 5D 00 3B |FER [HIGHBYTE].;|
00002BB0: 88 82 14 20 89 54 49 42 55 46 46 45 52 2B 36 3B |... .TIBUFFER+6;|
00002BC0: 22 20 20 22 20 20 22 20 20 20 20 20 20 20 20 20 |" " " |
00002BD0: 20 5B 4C 4F 57 42 59 54 45 20 5D 00 5D 88 8C 14 | [LOWBYTE ].]...|
00002BE0: 20 81 24 44 44 30 38 3B 5A 57 49 53 43 48 45 4E | .$DD08;ZWISCHEN|
00002BF0: 53 50 45 49 43 48 45 52 20 46 52 45 49 00 63 88 |SPEICHER FREI.c.|
00002C00: 96 14 3B 00 7B 88 A0 14 20 81 45 52 52 4F 52 3B |..;.{... .ERROR;|
00002C10: 45 52 52 4F 52 20 4C 41 44 45 4E 00 8E 88 AA 14 |ERROR LADEN.....|
00002C20: 20 85 23 24 32 30 3B 45 52 52 4F 52 20 3F 00 A2 | .#$20;ERROR ?..|
00002C30: 88 B4 14 20 B8 53 54 4F 52 44 41 3B 4E 45 49 4E |... .STORDA;NEIN|
00002C40: 20 21 00 D0 88 BE 14 20 96 53 54 4F 52 44 41 54 | !..... .STORDAT|
00002C50: 3B 4A 41 3A 54 49 4D 45 52 42 45 54 52 49 45 42 |;JA:TIMERBETRIEB|
00002C60: 20 49 4D 20 44 41 54 55 4D 20 5A 45 49 47 45 4E | IM DATUM ZEIGEN|
00002C70: 00 D6 88 C8 14 3B 00 0B 89 D2 14 53 54 4F 52 44 |.....;.....STORD|
00002C80: 41 20 97 57 4F 43 48 45 4E 54 47 3B 43 4F 44 45 |A .WOCHENTG;CODE|
00002C90: 2D 3E 41 53 43 49 49 2D 43 4F 44 45 20 5B 4D 4F |->ASCII-CODE [MO|
00002CA0: 20 44 49 20 4D 49 20 2E 2E 2E 5D 00 2A 89 DC 14 | DI MI ...].*...|
00002CB0: 20 81 41 4B 4C 54 41 47 3B 4B 41 4C 45 4E 44 45 | .AKLTAG;KALENDE|
00002CC0: 52 54 41 47 20 4C 41 44 45 4E 00 43 89 E6 14 20 |RTAG LADEN.C... |
00002CD0: 97 42 43 44 42 49 4C 44 3B 53 49 45 48 45 20 4F |.BCDBILD;SIEHE O|
00002CE0: 42 45 4E 00 73 89 F0 14 20 88 44 41 42 55 46 46 |BEN.s... .DABUFF|
00002CF0: 45 52 2B 34 3B 4B 4C 54 20 49 4E 20 44 41 54 55 |ER+4;KLT IN DATU|
00002D00: 4D 53 42 55 46 46 45 52 20 5B 48 49 47 48 42 59 |MSBUFFER [HIGHBY|
00002D10: 54 45 5D 00 A3 89 FA 14 20 89 44 41 42 55 46 46 |TE]..... .DABUFF|
00002D20: 45 52 2B 35 3B 22 20 20 20 22 20 20 22 20 20 20 |ER+5;" " " |
00002D30: 20 20 20 20 20 20 20 20 20 5B 4C 4F 57 42 59 54 | [LOWBYT|
00002D40: 45 20 5D 00 C6 89 04 15 20 81 41 4B 4C 4D 4F 4E |E ]..... .AKLMON|
00002D50: 41 54 3B 4B 41 4C 45 4E 44 45 52 4D 4F 4E 41 54 |AT;KALENDERMONAT|
00002D60: 20 4C 41 44 45 4E 00 DF 89 0E 15 20 97 42 43 44 | LADEN..... .BCD|
00002D70: 42 49 4C 44 3B 53 49 45 48 45 20 4F 42 45 4E 00 |BILD;SIEHE OBEN.|
00002D80: 0F 8A 18 15 20 88 44 41 42 55 46 46 45 52 2B 36 |.... .DABUFFER+6|
00002D90: 3B 4B 4C 4D 20 49 4E 20 44 41 54 55 4D 53 42 55 |;KLM IN DATUMSBU|
00002DA0: 46 46 45 52 20 5B 48 49 47 48 42 59 54 45 5D 00 |FFER [HIGHBYTE].|
00002DB0: 3F 8A 22 15 20 89 44 41 42 55 46 46 45 52 2B 37 |?.". .DABUFFER+7|
00002DC0: 3B 22 20 20 20 22 20 20 22 20 20 20 20 20 20 20 |;" " " |
00002DD0: 20 20 20 20 20 5B 4C 4F 57 42 59 54 45 20 5D 00 | [LOWBYTE ].|
00002DE0: 60 8A 2C 15 20 81 41 4B 4C 4A 41 48 52 3B 4B 41 |`.,. .AKLJAHR;KA|
00002DF0: 4C 45 4E 44 45 52 4A 41 48 52 20 4C 41 44 45 4E |LENDERJAHR LADEN|
00002E00: 00 79 8A 36 15 20 97 42 43 44 42 49 4C 44 3B 53 |.y.6. .BCDBILD;S|
00002E10: 49 45 48 45 20 4F 42 45 4E 00 A9 8A 40 15 20 88 |IEHE OBEN...@. .|
00002E20: 44 41 42 55 46 46 45 52 2B 38 3B 4B 4C 4A 20 49 |DABUFFER+8;KLJ I|
00002E30: 4E 20 44 41 54 55 4D 53 42 55 46 46 45 52 20 5B |N DATUMSBUFFER [|
00002E40: 48 49 47 48 42 59 54 45 5D 00 D9 8A 4A 15 20 89 |HIGHBYTE]...J. .|
00002E50: 44 41 42 55 46 46 45 52 2B 39 3B 22 20 20 20 22 |DABUFFER+9;" "|
00002E60: 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 5B | " [|
00002E70: 4C 4F 57 42 59 54 45 20 5D 00 E8 8A 54 15 20 81 |LOWBYTE ]...T. .|
00002E80: 41 53 4F 57 49 5A 45 49 00 0D 8B 5E 15 20 85 23 |ASOWIZEI...^. .#|
00002E90: 24 38 30 3B 53 4F 4D 4D 45 52 20 2D 4F 44 45 52 |$80;SOMMER -ODER|
00002EA0: 20 57 49 4E 54 45 52 5A 45 49 54 20 3F 00 1E 8B | WINTERZEIT ?...|
00002EB0: 68 15 20 B8 53 4F 4D 4D 45 52 5A 45 49 54 00 3A |h. .SOMMERZEIT.:|
00002EC0: 8B 72 15 20 81 23 3C 28 57 49 54 49 4D 45 29 3B |.r. .#<(WITIME);|
00002ED0: 57 49 4E 54 45 52 5A 45 49 54 00 62 8B 7C 15 20 |WINTERZEIT.b.|. |
00002EE0: 83 23 3E 28 57 49 54 49 4D 45 29 3B 50 4F 49 4E |.#>(WITIME);POIN|
00002EF0: 54 45 52 20 41 55 46 20 41 53 43 49 49 2D 54 45 |TER AUF ASCII-TE|
00002F00: 58 54 00 77 8B 86 15 20 82 24 43 38 3B 57 49 4E |XT.w... .$C8;WIN|
00002F10: 54 45 52 5A 45 49 54 00 81 8B 90 15 20 88 24 43 |TERZEIT..... .$C|
00002F20: 39 00 90 8B 9A 15 20 96 57 49 53 4F 49 4E 42 55 |9..... .WISOINBU|
00002F30: 00 B6 8B A4 15 53 4F 4D 4D 45 52 5A 45 49 54 20 |.....SOMMERZEIT |
00002F40: 81 23 3C 28 53 4F 54 49 4D 45 29 3B 53 4F 4D 4D |.#<(SOTIME);SOMM|
00002F50: 45 52 5A 45 49 54 00 DE 8B AE 15 20 83 23 3E 28 |ERZEIT..... .#>(|
00002F60: 53 4F 54 49 4D 45 29 3B 50 4F 49 4E 54 45 52 20 |SOTIME);POINTER |
00002F70: 41 55 46 20 41 53 43 49 49 2D 54 45 58 54 00 F3 |AUF ASCII-TEXT..|
00002F80: 8B B8 15 20 82 24 43 38 3B 53 4F 4D 4D 45 52 5A |... .$C8;SOMMERZ|
00002F90: 45 49 54 00 FD 8B C2 15 20 88 24 43 39 00 1B 8C |EIT..... .$C9...|
00002FA0: CC 15 57 49 53 4F 49 4E 42 55 20 84 23 24 30 33 |..WISOINBU .#$03|
00002FB0: 3B 41 53 43 49 49 2D 54 45 58 54 00 34 8C D6 15 |;ASCII-TEXT.4...|
00002FC0: 57 49 53 4F 4C 4F 4F 50 20 81 28 24 43 38 29 2C |WISOLOOP .($C8),|
00002FD0: 59 3B 49 4E 00 51 8C E0 15 20 82 44 41 42 55 46 |Y;IN.Q... .DABUF|
00002FE0: 46 45 52 2B 31 31 2C 59 3B 44 41 42 55 46 46 45 |FER+11,Y;DABUFFE|
00002FF0: 52 00 58 8C EA 15 20 A3 00 67 8C F4 15 20 B1 57 |R.X... ..g... .W|
00003000: 49 53 4F 4C 4F 4F 50 00 7E 8C FE 15 20 96 53 54 |ISOLOOP.~... .ST|
00003010: 4F 52 45 4E 44 3B 46 45 52 54 49 47 20 21 00 84 |OREND;FERTIG !..|
00003020: 8C 08 16 3B 00 A8 8C 12 16 53 54 4F 52 44 41 54 |...;.....STORDAT|
00003030: 20 83 23 24 30 45 3B 41 53 43 49 49 2D 43 4F 44 | .#$0E;ASCII-COD|
00003040: 45 20 22 2A 22 20 49 4E 00 C1 8C 1C 16 20 81 23 |E "*" IN..... .#|
00003050: 24 32 41 3B 44 41 54 55 4D 53 42 55 46 46 45 52 |$2A;DATUMSBUFFER|
00003060: 2C 00 DE 8C 26 16 54 55 52 4E 4F 46 46 20 8B 23 |,...&.TURNOFF .#|
00003070: 24 30 33 3B 57 45 4E 4E 20 45 52 52 4F 52 00 EE |$03;WENN ERROR..|
00003080: 8C 30 16 20 B8 4A 55 4D 50 53 50 41 43 45 00 F9 |.0. .JUMPSPACE..|
00003090: 8C 3A 16 20 8B 23 24 30 41 00 09 8D 44 16 20 B8 |.:. .#$0A...D. .|
000030A0: 4A 55 4D 50 53 50 41 43 45 00 1A 8D 4E 16 20 82 |JUMPSPACE...N. .|
000030B0: 44 41 42 55 46 46 45 52 2C 58 00 2A 8D 58 16 4A |DABUFFER,X.*.X.J|
000030C0: 55 4D 50 53 50 41 43 45 20 AF 00 38 8D 62 16 20 |UMPSPACE ..8.b. |
000030D0: B7 54 55 52 4E 4F 46 46 00 3E 8D 6C 16 3B 00 4C |.TURNOFF.>.l.;.L|
000030E0: 8D 76 16 53 54 4F 52 45 4E 44 20 A4 00 52 8D 80 |.v.STOREND ..R..|
000030F0: 16 3B 00 76 8D 8A 16 57 4F 43 48 45 4E 54 47 20 |.;.v...WOCHENTG |
00003100: 83 41 57 54 41 47 3B 57 4F 43 48 45 4E 54 41 47 |.AWTAG;WOCHENTAG|
00003110: 20 4C 41 44 45 4E 00 84 8D 94 16 20 AF 3B 43 4F | LADEN..... .;CO|
00003120: 44 45 2D 31 00 8B 8D 9E 16 20 98 00 95 8D A8 16 |DE-1..... ......|
00003130: 20 8C 3B 2A 32 00 AE 8D B2 16 20 99 3B 5A 45 49 | .;*2..... .;ZEI|
00003140: 47 45 52 20 49 4E 20 54 41 42 45 4C 4C 45 00 CD |GER IN TABELLE..|
00003150: 8D BC 16 20 81 41 53 43 49 49 54 41 47 2C 58 3B |... .ASCIITAG,X;|
00003160: 41 53 43 49 49 2D 43 4F 44 45 20 49 4E 00 F6 8D |ASCII-CODE IN...|
00003170: C6 16 20 82 44 41 42 55 46 46 45 52 2B 31 3B 44 |.. .DABUFFER+1;D|
00003180: 41 54 55 4D 53 42 55 46 46 45 52 20 5B 48 49 47 |ATUMSBUFFER [HIG|
00003190: 48 42 59 54 45 5D 00 FD 8D D0 16 20 A2 00 1C 8E |HBYTE]..... ....|
000031A0: DA 16 20 81 41 53 43 49 49 54 41 47 2C 58 3B 41 |.. .ASCIITAG,X;A|
000031B0: 53 43 49 49 2D 43 4F 44 45 20 49 4E 00 44 8E E4 |SCII-CODE IN.D..|
000031C0: 16 20 82 44 41 42 55 46 46 45 52 2B 32 3B 44 41 |. .DABUFFER+2;DA|
000031D0: 54 55 4D 53 42 55 46 46 45 52 20 5B 4C 4F 57 42 |TUMSBUFFER [LOWB|
000031E0: 59 54 45 5D 00 4B 8E EE 16 20 A4 00 51 8E F8 16 |YTE].K... ..Q...|
000031F0: 3B 00 64 8E 02 17 56 41 52 54 49 53 20 2E 91 22 |;.d...VARTIS .."|
00003200: 54 49 24 22 00 6A 8E 0C 17 3B 00 8A 8E 16 17 54 |TI$".j...;.....T|
00003210: 49 42 55 46 46 45 52 20 2E 91 24 32 32 2C 22 30 |IBUFFER ..$22,"0|
00003220: 30 30 30 30 30 22 2C 24 32 32 00 90 8E 20 17 3B |00000",$22... .;|
00003230: 00 A3 8E 2A 17 56 41 52 44 41 53 20 2E 91 22 44 |...*.VARDAS .."D|
00003240: 41 24 22 00 A9 8E 34 17 3B 00 D1 8E 3E 17 44 41 |A$"...4.;...>.DA|
00003250: 42 55 46 46 45 52 20 2E 91 24 32 32 2C 22 57 57 |BUFFER ..$22,"WW|
00003260: 20 54 54 4D 4D 4A 4A 20 5A 5A 5A 5A 22 2C 24 32 | TTMMJJ ZZZZ",$2|
00003270: 32 00 D7 8E 48 17 3B 00 F7 8E 52 17 41 53 43 49 |2...H.;...R.ASCI|
00003280: 49 54 41 47 20 2E 91 22 4D 4F 44 49 4D 49 44 4F |ITAG .."MODIMIDO|
00003290: 46 52 53 41 53 4F 22 00 FD 8E 5C 17 3B 00 11 8F |FRSASO"...\.;...|
000032A0: 66 17 53 4F 54 49 4D 45 20 2E 91 22 4D 45 53 5A |f.SOTIME .."MESZ|
000032B0: 22 00 25 8F 70 17 57 49 54 49 4D 45 20 2E 91 22 |".%.p.WITIME .."|
000032C0: 4D 45 5A 20 22 00 2B 8F 7A 17 3B 00 65 8F 84 17 |MEZ ".+.z.;.e...|
000032D0: 41 4E 5A 45 49 47 45 31 20 2E A5 22 45 52 52 4F |ANZEIGE1 .."ERRO|
000032E0: 52 43 4F 44 45 3A 20 20 57 4F 43 48 45 4E 54 41 |RCODE: WOCHENTA|
000032F0: 47 3A 20 20 20 20 20 5A 45 49 54 3A 20 20 3A 20 |G: ZEIT: : |
00003300: 20 3A 20 20 22 00 97 8F 8E 17 20 2E A5 22 2D 20 | : "..... .."- |
00003310: 41 54 4F 4D 55 48 52 20 2D 20 5A 45 49 54 5A 4F |ATOMUHR - ZEITZO|
00003320: 4E 45 20 3A 20 20 20 20 20 44 41 54 2E 3A 20 20 |NE : DAT.: |
00003330: 3A 20 20 3A 20 20 22 00 C2 8F 98 17 41 4E 5A 45 |: : ".....ANZE|
00003340: 49 47 45 32 20 2E A5 22 C4 C4 C4 C4 C4 C4 C4 C4 |IGE2 .."........|
00003350: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00003360: C4 22 00 E5 8F A2 17 20 2E A5 22 41 54 4F 4D 55 |."..... .."ATOMU|
00003370: 48 52 20 20 44 43 46 20 37 37 20 20 37 37 2E 35 |HR DCF 77 77.5|
00003380: 20 4B 48 5A 22 00 08 90 AC 17 20 2E A5 22 C6 C6 | KHZ"..... .."..|
00003390: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000033A0: C6 C6 C6 C6 C6 C6 C6 22 00 2B 90 B6 17 20 2E A5 |.......".+... ..|
000033B0: 22 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |"...............|
000033C0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 4E 90 C0 17 |..........".N...|
000033D0: 20 2E A5 22 45 20 52 20 52 20 4F 20 52 20 43 20 | .."E R R O R C |
000033E0: 4F 20 44 20 45 20 3A 20 20 20 20 20 20 22 00 71 |O D E : ".q|
000033F0: 90 CA 17 20 2E A5 22 C6 C6 C6 C6 C6 C6 C6 C6 C6 |... ..".........|
00003400: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00003410: 22 00 94 90 D4 17 20 2E A5 22 31 3A 20 35 39 2D |"..... .."1: 59-|
00003420: 53 45 4B 55 4E 44 45 4E 45 52 52 4F 52 20 20 20 |SEKUNDENERROR |
00003430: 20 20 20 22 00 B7 90 DE 17 20 2E A5 22 32 3A 20 | "..... .."2: |
00003440: 50 41 52 49 54 41 45 54 53 45 52 52 4F 52 20 20 |PARITAETSERROR |
00003450: 20 20 20 20 20 20 22 00 DA 90 E8 17 20 2E A5 22 | "..... .."|
00003460: 33 3A 20 4D 49 4E 55 54 45 4E 45 52 52 4F 52 20 |3: MINUTENERROR |
00003470: 20 20 20 20 20 20 20 20 20 22 00 FD 90 F2 17 20 | "..... |
00003480: 2E A5 22 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |..".............|
00003490: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 20 91 |............". .|
000034A0: FC 17 20 2E A5 22 54 49 4D 45 52 42 45 54 52 49 |.. .."TIMERBETRI|
000034B0: 45 42 3A 20 2A 20 20 20 20 20 20 20 20 20 20 22 |EB: * "|
000034C0: 00 43 91 06 18 20 2E A5 22 C6 C6 C6 C6 C6 C6 C6 |.C... ..".......|
000034D0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000034E0: C6 C6 22 00 66 91 10 18 20 2E A5 22 50 52 47 3A |..".f... .."PRG:|
000034F0: 57 45 52 4E 45 52 20 48 41 55 42 52 49 43 48 20 |WERNER HAUBRICH |
00003500: 20 20 20 20 20 22 00 6C 91 1A 18 3B 00 7C 91 24 | ".l...;.|.$|
00003510: 18 45 52 52 4F 52 20 2E 91 24 33 31 00 8F 91 2E |.ERROR ..$31....|
00003520: 18 53 43 48 41 4C 54 46 4C 41 47 20 2E 91 30 00 |.SCHALTFLAG ..0.|
00003530: 9D 91 38 18 53 45 4B 43 54 20 2E 91 30 00 AE 91 |..8.SEKCT ..0...|
00003540: 42 18 44 41 54 52 45 41 44 59 20 2E 91 30 00 BF |B.DATREADY ..0..|
00003550: 91 4C 18 4D 49 4E 55 54 45 4E 31 20 2E 91 30 00 |.L.MINUTEN1 ..0.|
00003560: D0 91 56 18 53 54 55 4E 44 45 4E 31 20 2E 91 30 |..V.STUNDEN1 ..0|
00003570: 00 DE 91 60 18 50 59 52 45 47 20 2E 91 30 00 EC |...`.PYREG ..0..|
00003580: 91 6A 18 41 57 54 41 47 20 2E 91 30 00 FB 91 74 |.j.AWTAG ..0...t|
00003590: 18 41 4B 4C 54 41 47 20 2E 91 30 00 0C 92 7E 18 |.AKLTAG ..0...~.|
000035A0: 41 4B 4C 4D 4F 4E 41 54 20 2E 91 30 00 1C 92 88 |AKLMONAT ..0....|
000035B0: 18 41 4B 4C 4A 41 48 52 20 2E 91 30 00 2C 92 92 |.AKLJAHR ..0.,..|
000035C0: 18 50 52 55 45 46 42 33 20 2E 91 30 00 3D 92 9C |.PRUEFB3 ..0.=..|
000035D0: 18 41 53 4F 57 49 5A 45 49 20 2E 91 30 00 4F 92 |.ASOWIZEI ..0.O.|
000035E0: A6 18 4F 4C 44 4D 49 4E 55 54 45 20 2E 91 30 00 |..OLDMINUTE ..0.|
000035F0: 5F 92 B0 18 42 43 44 43 4F 44 45 20 2E 91 30 00 |_...BCDCODE ..0.|
00003600: 6E 92 BA 18 57 49 4E 44 4F 57 20 2E 91 31 00 74 |n...WINDOW ..1.t|
00003610: 92 C4 18 3B 00 85 92 CE 18 44 41 54 45 4E 52 45 |...;.....DATENRE|
00003620: 47 20 2E A7 38 00 8B 92 D8 18 3B 00 91 92 E2 18 |G ..8.....;.....|
00003630: 3B 00 97 92 EC 18 3B 00 9D 92 F6 18 3B 00 A3 92 |;.....;.....;...|
00003640: 00 19 3B 00 D2 92 0A 19 3B B6 B7 B7 B7 B7 B7 B7 |..;.....;.......|
00003650: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00003660: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00003670: B7 A1 00 01 93 14 19 3B B6 20 4E 45 55 45 53 20 |.......;. NEUES |
00003680: 42 45 46 45 48 4C 53 57 4F 52 54 20 22 41 54 4F |BEFEHLSWORT "ATO|
00003690: 4D 5A 45 49 54 22 20 20 20 20 20 20 20 20 20 20 |MZEIT" |
000036A0: A1 00 30 93 1E 19 3B B6 20 20 20 20 20 20 20 20 |..0...;. |
000036B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000036C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A1 | .|
000036D0: 00 5F 93 28 19 3B B6 B7 B7 B7 B7 B7 B7 B7 B7 B7 |._.(.;..........|
000036E0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000036F0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 A1 00 |................|
00003700: 8E 93 32 19 3B B6 20 57 49 52 4B 55 4E 47 3A 54 |..2.;. WIRKUNG:T|
00003710: 49 24 3D 41 54 4F 4D 5A 45 49 54 20 5B 48 48 4D |I$=ATOMZEIT [HHM|
00003720: 4D 53 53 5D 20 20 20 20 20 20 20 20 20 A1 00 BD |MSS] ...|
00003730: 93 3C 19 3B B6 20 20 20 20 20 20 20 20 20 44 41 |.<.;. DA|
00003740: 24 3D 44 41 54 55 4D 20 20 20 20 5B 57 54 20 54 |$=DATUM [WT T|
00003750: 54 4D 4D 4A 4A 20 5A 5A 5A 5A 5D 20 A1 00 EC 93 |TMMJJ ZZZZ] ....|
00003760: 46 19 3B B6 20 20 20 20 20 20 20 20 20 41 45 20 |F.;. AE |
00003770: 3D 45 52 52 4F 52 4E 52 2E 20 20 20 20 20 20 20 |=ERRORNR. |
00003780: 20 20 20 20 20 20 20 20 20 20 20 A1 00 1B 94 50 | ....P|
00003790: 19 3B B6 AF AF AF AF AF AF AF AF AF AF AF AF AF |.;..............|
000037A0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000037B0: AF AF AF AF AF AF AF AF AF AF A1 00 21 94 5A 19 |............!.Z.|
000037C0: 3B 00 27 94 64 19 3B 00 3B 94 6E 19 2E 8F 54 4B |;.'.d.;.;.n...TK|
000037D0: 42 41 55 56 4B 3D 24 30 33 30 43 00 50 94 78 19 |BAUVK=$030C.P.x.|
000037E0: 2E 8F 54 4B 42 41 55 4F 4C 44 3D 24 34 33 32 31 |..TKBAUOLD=$4321|
000037F0: 00 65 94 82 19 2E 8F 54 4B 4C 49 53 54 56 4B 3D |.e.....TKLISTVK=|
00003800: 24 30 33 30 45 00 7B 94 8C 19 2E 8F 54 4B 4C 49 |$030E.{.....TKLI|
00003810: 53 54 4F 4C 44 3D 24 35 31 43 44 00 90 94 96 19 |STOLD=$51CD.....|
00003820: 2E 8F 42 45 46 41 55 53 56 4B 3D 24 30 33 31 30 |..BEFAUSVK=$0310|
00003830: 00 A6 94 A0 19 2E 8F 42 45 46 41 55 53 4F 4C 44 |.......BEFAUSOLD|
00003840: 3D 24 34 42 41 39 00 BB 94 AA 19 2E 8F 53 45 41 |=$4BA9.......SEA|
00003850: 52 43 48 42 46 3D 24 34 33 45 32 00 CE 94 B4 19 |RCHBF=$43E2.....|
00003860: 2E 8F 54 4B 4C 49 53 54 3D 24 35 31 36 41 00 E1 |..TKLIST=$516A..|
00003870: 94 BE 19 2E 8F 54 58 54 50 54 52 3D 24 30 30 33 |.....TXTPTR=$003|
00003880: 44 00 F5 94 C8 19 2E 8F 49 4E 54 54 4F 46 4B 3D |D.......INTTOFK=|
00003890: 24 41 46 30 33 00 07 95 D2 19 2E 8F 48 49 41 44 |$AF03.......HIAD|
000038A0: 52 3D 24 30 30 46 41 00 19 95 DC 19 2E 8F 4C 4F |R=$00FA.......LO|
000038B0: 41 44 52 3D 24 30 30 46 42 00 2C 95 E6 19 2E 8F |ADR=$00FB.,.....|
000038C0: 4C 53 54 50 4E 54 3D 24 30 30 34 42 00 32 95 F0 |LSTPNT=$004B.2..|
000038D0: 19 3B 00 47 95 FA 19 56 41 52 41 45 20 2E 91 22 |.;.G...VARAE .."|
000038E0: 41 45 22 2C 24 42 32 00 4D 95 04 1A 3B 00 6B 95 |AE",$B2.M...;.k.|
000038F0: 0E 1A 42 57 54 41 42 20 2E 91 22 41 54 4F 4D 5A |..BWTAB .."ATOMZ|
00003900: 45 49 22 2C 24 44 34 2C 24 30 30 00 71 95 18 1A |EI",$D4,$00.q...|
00003910: 3B 00 89 95 22 1A 42 41 44 54 41 42 20 2E 92 41 |;...".BADTAB ..A|
00003920: 54 4F 4D 5A 45 49 54 2D 31 00 8F 95 2C 1A 3B 00 |TOMZEIT-1...,.;.|
00003930: BB 95 36 1A 42 45 46 49 4E 49 20 81 23 3C 28 42 |..6.BEFINI .#<(B|
00003940: 45 46 49 4E 54 4B 29 3B 56 45 4B 54 4F 52 45 4E |EFINTK);VEKTOREN|
00003950: 20 41 55 46 20 45 49 47 45 4E 45 00 DA 95 40 1A | AUF EIGENE...@.|
00003960: 20 82 54 4B 42 41 55 56 4B 3B 52 4F 55 54 49 4E | .TKBAUVK;ROUTIN|
00003970: 45 4E 20 52 49 43 48 54 45 4E 00 EC 95 4A 1A 20 |EN RICHTEN...J. |
00003980: 81 23 3E 28 42 45 46 49 4E 54 4B 29 00 FC 95 54 |.#>(BEFINTK)...T|
00003990: 1A 20 82 54 4B 42 41 55 56 4B 2B 31 00 0E 96 5E |. .TKBAUVK+1...^|
000039A0: 1A 20 81 23 3C 28 42 45 46 4C 49 53 54 29 00 1D |. .#<(BEFLIST)..|
000039B0: 96 68 1A 20 82 54 4B 4C 49 53 54 56 4B 00 2F 96 |.h. .TKLISTVK./.|
000039C0: 72 1A 20 81 23 3E 28 42 45 46 4C 49 53 54 29 00 |r. .#>(BEFLIST).|
000039D0: 40 96 7C 1A 20 82 54 4B 4C 49 53 54 56 4B 2B 31 |@.|. .TKLISTVK+1|
000039E0: 00 51 96 86 1A 20 81 23 3C 28 42 45 46 45 58 45 |.Q... .#<(BEFEXE|
000039F0: 29 00 60 96 90 1A 20 82 42 45 46 41 55 53 56 4B |).`... .BEFAUSVK|
00003A00: 00 71 96 9A 1A 20 81 23 3E 28 42 45 46 45 58 45 |.q... .#>(BEFEXE|
00003A10: 29 00 82 96 A4 1A 20 82 42 45 46 41 55 53 56 4B |)..... .BEFAUSVK|
00003A20: 2B 31 00 89 96 AE 1A 20 A4 00 8F 96 B8 1A 3B 00 |+1..... ......;.|
00003A30: B4 96 C2 1A 42 45 46 49 4E 54 4B 20 99 3B 4C 45 |....BEFINTK .;LE|
00003A40: 54 5A 54 45 53 20 5A 45 49 43 48 45 4E 20 52 45 |TZTES ZEICHEN RE|
00003A50: 54 54 45 4E 00 E8 96 CC 1A 20 81 23 3E 28 42 57 |TTEN..... .#>(BW|
00003A60: 54 41 42 29 3B 5A 45 49 47 45 52 20 41 55 46 20 |TAB);ZEIGER AUF |
00003A70: 4E 45 55 45 20 54 41 42 45 4C 4C 45 20 44 45 52 |NEUE TABELLE DER|
00003A80: 20 42 45 46 45 48 4C 45 00 F8 96 D6 1A 20 84 23 | BEFEHLE..... .#|
00003A90: 3C 28 42 57 54 41 42 29 00 24 97 E0 1A 20 97 53 |<(BWTAB).$... .S|
00003AA0: 45 41 52 43 48 42 46 3B 53 55 43 48 45 20 42 41 |EARCHBF;SUCHE BA|
00003AB0: 53 49 43 42 45 46 45 48 4C 20 49 4E 20 54 41 42 |SICBEFEHL IN TAB|
00003AC0: 45 4C 4C 45 00 3F 97 EA 1A 20 B1 42 45 46 4E 46 |ELLE.?... .BEFNF|
00003AD0: 4F 55 4E 44 3B 4E 49 43 48 54 20 44 52 49 4E 00 |OUND;NICHT DRIN.|
00003AE0: 66 97 F4 1A 20 87 23 24 37 46 3B 44 52 49 4E 3A |f... .#$7F;DRIN:|
00003AF0: 42 49 54 20 37 20 42 45 46 2D 4E 52 2E 20 4C 4F |BIT 7 BEF-NR. LO|
00003B00: 45 53 43 48 45 4E 00 7A 97 FE 1A 20 A6 3B 24 32 |ESCHEN.z... .;$2|
00003B10: 37 20 41 44 44 49 45 52 45 4E 00 98 97 08 1B 20 |7 ADDIEREN..... |
00003B20: 86 23 24 32 37 3B 3D 5A 57 45 49 54 45 53 20 54 |.#$27;=ZWEITES T|
00003B30: 4F 4B 45 4E 42 59 54 45 00 B4 97 12 1B 20 83 23 |OKENBYTE..... .#|
00003B40: 24 30 30 3B 46 4C 41 47 20 50 52 41 45 46 49 58 |$00;FLAG PRAEFIX|
00003B50: 20 24 46 45 00 D1 97 1C 1B 20 B5 42 41 43 4B 54 | $FE..... .BACKT|
00003B60: 4B 42 41 55 3B 49 4D 4D 45 52 20 53 50 52 55 4E |KBAU;IMMER SPRUN|
00003B70: 47 00 F5 97 26 1B 42 45 46 4E 46 4F 55 4E 44 20 |G...&.BEFNFOUND |
00003B80: A7 3B 46 4C 41 47 3A 4E 49 43 48 54 20 47 45 46 |.;FLAG:NICHT GEF|
00003B90: 55 4E 44 45 4E 00 09 98 30 1B 20 98 3B 52 45 53 |UNDEN...0. .;RES|
00003BA0: 54 4F 52 45 20 41 4B 4B 55 00 35 98 3A 1B 42 41 |TORE AKKU.5.:.BA|
00003BB0: 43 4B 54 4B 42 41 55 20 96 54 4B 42 41 55 4F 4C |CKTKBAU .TKBAUOL|
00003BC0: 44 3B 5A 55 52 55 45 43 4B 20 49 4E 54 45 52 50 |D;ZURUECK INTERP|
00003BD0: 52 45 54 45 52 00 3B 98 44 1B 3B 00 65 98 4E 1B |RETER.;.D.;.e.N.|
00003BE0: 42 45 46 4C 49 53 54 20 8B 23 24 46 46 3B 46 4C |BEFLIST .#$FF;FL|
00003BF0: 41 47 20 46 55 45 52 20 50 52 41 45 46 49 58 20 |AG FUER PRAEFIX |
00003C00: 24 43 45 20 3F 00 78 98 58 1B 20 B8 4E 4F 54 4C |$CE ?.x.X. .NOTL|
00003C10: 49 53 54 3B 4A 41 20 21 00 95 98 62 1B 20 85 23 |IST;JA !...b. .#|
00003C20: 24 32 37 3B 32 2E 54 4F 4B 45 4E 42 59 54 45 20 |$27;2.TOKENBYTE |
00003C30: 3C 20 24 32 37 00 A6 98 6C 1B 20 B5 4E 4F 54 4C |< $27...l. .NOTL|
00003C40: 49 53 54 3B 4A 41 00 C3 98 76 1B 20 85 23 24 32 |IST;JA...v. .#$2|
00003C50: 38 3B 32 2E 54 4F 4B 45 4E 42 59 54 45 20 3E 20 |8;2.TOKENBYTE > |
00003C60: 24 32 37 00 D6 98 80 1B 20 B6 4E 4F 54 4C 49 53 |$27..... .NOTLIS|
00003C70: 54 3B 4A 41 20 21 00 F4 98 8A 1B 20 92 23 24 32 |T;JA !..... .#$2|
00003C80: 36 3B 53 55 42 20 24 32 37 20 28 43 41 52 52 59 |6;SUB $27 (CARRY|
00003C90: 3D 30 21 29 00 04 99 94 1B 20 8F 23 24 38 30 3B |=0!)..... .#$80;|
00003CA0: 2B 31 32 38 00 1B 99 9E 1B 20 99 3B 41 4C 53 20 |+128..... .;ALS |
00003CB0: 4E 55 4D 4D 45 52 20 49 4E 20 58 00 42 99 A8 1B |NUMMER IN X.B...|
00003CC0: 20 81 23 3E 28 42 57 54 41 42 29 3B 48 49 47 48 | .#>(BWTAB);HIGH|
00003CD0: 42 59 54 45 20 54 41 42 45 4C 4C 45 4E 53 54 41 |BYTE TABELLENSTA|
00003CE0: 52 54 00 67 99 B2 1B 20 84 23 3C 28 42 57 54 41 |RT.g... .#<(BWTA|
00003CF0: 42 29 3B 4C 4F 57 42 59 54 45 20 20 22 20 20 20 |B);LOWBYTE " |
00003D00: 20 20 20 20 20 20 22 00 87 99 BC 1B 20 96 54 4B | "..... .TK|
00003D10: 4C 49 53 54 3B 42 45 46 45 48 4C 53 57 4F 52 54 |LIST;BEFEHLSWORT|
00003D20: 20 4C 49 53 54 45 4E 00 B3 99 C6 1B 4E 4F 54 4C | LISTEN.....NOTL|
00003D30: 49 53 54 20 A7 3B 46 4C 41 47 3A 49 4E 54 45 52 |IST .;FLAG:INTER|
00003D40: 50 52 45 54 45 52 20 4E 49 43 48 54 20 4C 49 53 |PRETER NICHT LIS|
00003D50: 54 45 4E 00 D3 99 D0 1B 20 96 54 4B 4C 49 53 54 |TEN..... .TKLIST|
00003D60: 4F 4C 44 3B 5A 55 4D 20 49 4E 54 45 52 50 52 45 |OLD;ZUM INTERPRE|
00003D70: 54 45 52 00 D9 99 DA 1B 3B 00 FC 99 E4 1B 42 45 |TER.....;.....BE|
00003D80: 46 45 58 45 20 85 23 24 32 37 3B 32 2E 54 4F 4B |FEXE .#$27;2.TOK|
00003D90: 45 4E 42 59 54 45 20 3C 20 24 32 37 00 0E 9A EE |ENBYTE < $27....|
00003DA0: 1B 20 B5 4E 4F 54 42 45 46 3B 4A 41 20 21 00 2B |. .NOTBEF;JA !.+|
00003DB0: 9A F8 1B 20 85 23 24 32 38 3B 32 2E 54 4F 4B 45 |... .#$28;2.TOKE|
00003DC0: 4E 42 59 54 45 20 3E 20 24 32 37 00 3D 9A 02 1C |NBYTE > $27.=...|
00003DD0: 20 B6 4E 4F 54 42 45 46 3B 4A 41 20 21 00 6A 9A | .NOTBEF;JA !.j.|
00003DE0: 0C 1C 20 92 23 24 32 36 3B 53 4F 4E 53 54 20 53 |.. .#$26;SONST S|
00003DF0: 42 43 20 24 32 37 20 28 43 41 52 52 59 3D 30 21 |BC $27 (CARRY=0!|
00003E00: 29 3D 4E 52 20 30 20 2E 2E 2E 00 83 9A 16 1C 20 |)=NR 0 ........ |
00003E10: 8C 3B 2A 32 20 5B 30 2C 32 2C 34 2C 36 20 2E 2E |.;*2 [0,2,4,6 ..|
00003E20: 2E 2E 5D 00 9C 9A 20 1C 20 99 3B 41 4C 53 20 5A |..]... . .;ALS Z|
00003E30: 45 49 47 45 52 20 4E 41 43 48 20 58 00 C7 9A 2A |EIGER NACH X...*|
00003E40: 1C 20 81 42 41 44 54 41 42 2B 31 2C 58 3B 48 49 |. .BADTAB+1,X;HI|
00003E50: 47 48 42 59 54 45 20 44 45 52 20 42 45 46 45 48 |GHBYTE DER BEFEH|
00003E60: 4C 53 2D 41 44 52 2E 00 D8 9A 34 1C 20 A0 3B 41 |LS-ADR....4. .;A|
00003E70: 55 46 20 53 54 41 43 4B 00 00 9B 3E 1C 20 81 42 |UF STACK...>. .B|
00003E80: 41 44 54 41 42 2C 58 3B 4C 4F 57 42 59 54 45 20 |ADTAB,X;LOWBYTE |
00003E90: 44 45 52 20 42 45 46 45 48 4C 53 2D 41 44 52 2E |DER BEFEHLS-ADR.|
00003EA0: 00 11 9B 48 1C 20 A0 3B 41 55 46 20 53 54 41 43 |...H. .;AUF STAC|
00003EB0: 4B 00 34 9B 52 1C 20 A6 3B 46 4C 41 47 3A 55 53 |K.4.R. .;FLAG:US|
00003EC0: 45 52 2D 41 44 52 45 53 53 45 20 41 55 46 20 53 |ER-ADRESSE AUF S|
00003ED0: 54 41 43 4B 00 49 9B 5C 1C 20 B5 42 41 43 4B 42 |TACK.I.\. .BACKB|
00003EE0: 45 58 45 3B 49 4D 4D 45 52 00 6A 9B 66 1C 4E 4F |EXE;IMMER.j.f.NO|
00003EF0: 54 42 45 46 20 A7 3B 46 4C 41 47 3A 4B 45 49 4E |TBEF .;FLAG:KEIN|
00003F00: 20 55 53 45 52 54 4F 4B 45 4E 00 92 9B 70 1C 42 | USERTOKEN...p.B|
00003F10: 41 43 4B 42 45 58 45 20 96 42 45 46 41 55 53 4F |ACKBEXE .BEFAUSO|
00003F20: 4C 44 3B 5A 55 4D 20 49 4E 54 45 52 50 52 45 54 |LD;ZUM INTERPRET|
00003F30: 45 52 00 98 9B 7A 1C 3B 00 BB 9B 84 1C 41 54 4F |ER...z.;.....ATO|
00003F40: 4D 5A 45 49 54 20 81 54 58 54 50 54 52 3B 54 58 |MZEIT .TXTPTR;TX|
00003F50: 54 50 54 52 20 52 45 54 54 45 4E 00 CA 9B 8E 1C |TPTR RETTEN.....|
00003F60: 20 83 54 58 54 50 54 52 2B 31 00 D4 9B 98 1C 20 | .TXTPTR+1..... |
00003F70: 82 24 46 43 00 DE 9B A2 1C 20 88 24 46 44 00 E4 |.$FC..... .$FD..|
00003F80: 9B AC 1C 3B 00 00 9C B6 1C 20 81 45 52 52 4F 52 |...;..... .ERROR|
00003F90: 3B 45 52 52 4F 52 43 4F 44 45 20 4C 41 44 45 4E |;ERRORCODE LADEN|
00003FA0: 00 13 9C C0 1C 20 85 23 24 32 30 3B 45 52 52 4F |..... .#$20;ERRO|
00003FB0: 52 20 3F 00 28 9C CA 1C 20 B7 41 45 53 54 4F 52 |R ?.(... .AESTOR|
00003FC0: 31 32 33 3B 4A 41 20 21 00 2E 9C D4 1C 3B 00 59 |123;JA !.....;.Y|
00003FD0: 9C DE 1C 20 81 23 24 30 30 3B 48 49 47 48 42 59 |... .#$00;HIGHBY|
00003FE0: 54 45 20 49 4E 54 2E 2D 5A 41 48 4C 20 5B 41 45 |TE INT.-ZAHL [AE|
00003FF0: 2D 45 52 52 4F 52 3A 30 5D 00 76 9C E8 1C 20 84 |-ERROR:0].v... .|
00004000: 23 24 30 30 3B 4C 4F 57 42 59 54 45 20 49 4E 54 |#$00;LOWBYTE INT|
00004010: 2E 2D 5A 41 48 4C 00 84 9C F2 1C 20 96 41 45 53 |.-ZAHL..... .AES|
00004020: 54 4F 52 30 00 A6 9C FC 1C 41 45 53 54 4F 52 31 |TOR0.....AESTOR1|
00004030: 32 33 20 A7 3B 45 52 52 4F 52 43 4F 44 45 20 24 |23 .;ERRORCODE $|
00004040: 33 31 2D 24 33 33 00 CA 9C 06 1D 20 92 23 24 33 |31-$33..... .#$3|
00004050: 30 3B 2D 20 24 33 30 20 45 52 47 49 42 54 20 41 |0;- $30 ERGIBT A|
00004060: 45 2D 43 4F 44 45 20 31 2D 33 00 E3 9C 10 1D 20 |E-CODE 1-3..... |
00004070: 9B 3B 4C 4F 57 42 59 54 45 20 49 4E 54 2E 2D 5A |.;LOWBYTE INT.-Z|
00004080: 41 48 4C 00 01 9D 1A 1D 20 81 23 24 30 30 3B 48 |AHL..... .#$00;H|
00004090: 49 47 48 42 59 54 45 20 49 4E 54 2E 2D 5A 41 48 |IGHBYTE INT.-ZAH|
000040A0: 4C 00 29 9D 24 1D 41 45 53 54 4F 52 30 20 97 49 |L.).$.AESTOR0 .I|
000040B0: 4E 54 54 4F 46 4B 3B 49 4E 54 2E 2D 3E 46 4C 49 |NTTOFK;INT.->FLI|
000040C0: 45 53 53 2E 2D 3E 46 41 43 00 52 9D 2E 1D 20 81 |ESS.->FAC.R... .|
000040D0: 23 3C 28 56 41 52 41 45 29 3B 54 58 54 5A 45 49 |#<(VARAE);TXTZEI|
000040E0: 47 45 52 20 41 55 46 20 56 41 52 2E 2D 4E 41 4D |GER AUF VAR.-NAM|
000040F0: 45 4E 00 5F 9D 38 1D 20 82 54 58 54 50 54 52 00 |EN._.8. .TXTPTR.|
00004100: 6F 9D 42 1D 20 81 23 3E 28 56 41 52 41 45 29 00 |o.B. .#>(VARAE).|
00004110: 7E 9D 4C 1D 20 82 54 58 54 50 54 52 2B 31 00 8C |~.L. .TXTPTR+1..|
00004120: 9D 56 1D 20 97 48 4F 4C 45 56 41 52 00 A8 9D 60 |.V. .HOLEVAR...`|
00004130: 1D 20 97 53 54 4F 52 56 41 52 52 3B 41 45 3D 45 |. .STORVARR;AE=E|
00004140: 52 52 4F 52 43 4F 44 45 00 AE 9D 6A 1D 3B 00 D3 |RRORCODE...j.;..|
00004150: 9D 74 1D 20 81 23 3C 28 56 41 52 54 49 53 29 3B |.t. .#<(VARTIS);|
00004160: 54 58 54 50 54 52 20 41 55 46 20 56 41 52 2E 20 |TXTPTR AUF VAR. |
00004170: 54 49 24 00 E0 9D 7E 1D 20 82 54 58 54 50 54 52 |TI$...~. .TXTPTR|
00004180: 00 F1 9D 88 1D 20 81 23 3E 28 56 41 52 54 49 53 |..... .#>(VARTIS|
00004190: 29 00 00 9E 92 1D 20 82 54 58 54 50 54 52 2B 31 |)..... .TXTPTR+1|
000041A0: 00 0E 9E 9C 1D 20 97 48 4F 4C 45 56 41 52 00 1D |..... .HOLEVAR..|
000041B0: 9E A6 1D 20 97 41 55 53 44 52 55 43 4B 00 3A 9E |... .AUSDRUCK.:.|
000041C0: B0 1D 20 97 53 54 4F 52 56 41 52 53 54 3B 54 49 |.. .STORVARST;TI|
000041D0: 24 3D 22 48 48 4D 4D 53 53 22 00 40 9E BA 1D 3B |$="HHMMSS".@...;|
000041E0: 00 65 9E C4 1D 20 81 23 3C 28 56 41 52 44 41 53 |.e... .#<(VARDAS|
000041F0: 29 3B 54 58 54 50 54 52 20 41 55 46 20 56 41 52 |);TXTPTR AUF VAR|
00004200: 2E 20 44 41 24 00 72 9E CE 1D 20 82 54 58 54 50 |. DA$.r... .TXTP|
00004210: 54 52 00 83 9E D8 1D 20 81 23 3E 28 56 41 52 44 |TR..... .#>(VARD|
00004220: 41 53 29 00 92 9E E2 1D 20 82 54 58 54 50 54 52 |AS)..... .TXTPTR|
00004230: 2B 31 00 A0 9E EC 1D 20 97 48 4F 4C 45 56 41 52 |+1..... .HOLEVAR|
00004240: 00 AF 9E F6 1D 20 97 41 55 53 44 52 55 43 4B 00 |..... .AUSDRUCK.|
00004250: D4 9E 00 1E 20 97 53 54 4F 52 56 41 52 53 54 3B |.... .STORVARST;|
00004260: 44 41 24 3D 22 57 54 20 54 54 4D 4D 4A 4A 20 5A |DA$="WT TTMMJJ Z|
00004270: 5A 5A 5A 22 00 DA 9E 0A 1E 3B 00 F3 9E 14 1E 20 |ZZZ".....;..... |
00004280: 81 24 46 43 3B 52 45 53 54 4F 52 45 20 54 58 54 |.$FC;RESTORE TXT|
00004290: 50 54 52 00 00 9F 1E 1E 20 82 54 58 54 50 54 52 |PTR..... .TXTPTR|
000042A0: 00 0A 9F 28 1E 20 81 24 46 44 00 19 9F 32 1E 20 |...(. .$FD...2. |
000042B0: 82 54 58 54 50 54 52 2B 31 00 1F 9F 3C 1E 3B 00 |.TXTPTR+1...<.;.|
000042C0: 3A 9F 46 1E 20 A4 3B 5A 55 52 55 45 43 4B 20 49 |:.F. .;ZURUECK I|
000042D0: 4E 54 45 52 50 52 45 54 45 52 00 40 9F 50 1E 3B |NTERPRETER.@.P.;|
000042E0: 00 75 9F 5A 1E 48 4F 4C 45 56 41 52 20 81 23 24 |.u.Z.HOLEVAR .#$|
000042F0: 37 41 3B 41 55 46 52 55 46 20 52 4F 4D 2D 52 4F |7A;AUFRUF ROM-RO|
00004300: 55 54 49 4E 45 20 56 41 52 49 41 42 4C 45 20 53 |UTINE VARIABLE S|
00004310: 55 43 48 45 4E 00 A6 9F 64 1E 20 82 48 49 41 44 |UCHEN...d. .HIAD|
00004320: 52 3B 55 4E 44 20 47 47 46 2E 41 4E 4C 45 47 45 |R;UND GGF.ANLEGE|
00004330: 4E 20 28 24 37 41 41 46 29 20 55 45 42 45 52 20 |N ($7AAF) UEBER |
00004340: 4A 53 52 46 41 52 00 B1 9F 6E 1E 20 81 23 24 41 |JSRFAR...n. .#$A|
00004350: 46 00 BD 9F 78 1E 20 82 4C 4F 41 44 52 00 C7 9F |F...x. .LOADR...|
00004360: 82 1E 20 97 46 41 52 00 D1 9F 8C 1E 20 81 24 30 |.. .FAR..... .$0|
00004370: 36 00 DE 9F 96 1E 20 82 4C 53 54 50 4E 54 00 E8 |6..... .LSTPNT..|
00004380: 9F A0 1E 20 84 24 30 38 00 F7 9F AA 1E 20 89 4C |... .$08..... .L|
00004390: 53 54 50 4E 54 2B 31 00 FE 9F B4 1E 20 A4 00 04 |STPNT+1..... ...|
000043A0: A0 BE 1E 3B 00 38 A0 C8 1E 53 54 4F 52 56 41 52 |...;.8...STORVAR|
000043B0: 52 20 81 23 24 35 33 3B 41 55 46 52 55 46 20 44 |R .#$53;AUFRUF D|
000043C0: 45 52 20 52 4F 4D 20 52 4F 55 54 49 4E 45 20 52 |ER ROM ROUTINE R|
000043D0: 45 41 4C 2D 5A 41 48 4C 00 62 A0 D2 1E 20 82 48 |EAL-ZAHL.b... .H|
000043E0: 49 41 44 52 3B 5A 55 57 45 49 53 45 4E 20 28 24 |IADR;ZUWEISEN ($|
000043F0: 35 33 46 41 29 20 55 45 42 45 52 20 4A 53 52 46 |53FA) UEBER JSRF|
00004400: 41 52 00 6D A0 DC 1E 20 81 23 24 46 41 00 79 A0 |AR.m... .#$FA.y.|
00004410: E6 1E 20 82 4C 4F 41 44 52 00 83 A0 F0 1E 20 97 |.. .LOADR..... .|
00004420: 46 41 52 00 8A A0 FA 1E 20 A4 00 90 A0 04 1F 3B |FAR..... ......;|
00004430: 00 C3 A0 0E 1F 41 55 53 44 52 55 43 4B 20 81 23 |.....AUSDRUCK .#|
00004440: 24 37 37 3B 41 55 46 52 55 46 20 44 45 52 20 52 |$77;AUFRUF DER R|
00004450: 4F 4D 20 52 4F 55 54 49 4E 45 20 41 55 53 44 52 |OM ROUTINE AUSDR|
00004460: 55 43 4B 00 EE A0 18 1F 20 82 48 49 41 44 52 3B |UCK..... .HIADR;|
00004470: 41 55 53 57 45 52 54 45 4E 20 28 24 37 37 45 46 |AUSWERTEN ($77EF|
00004480: 29 20 55 45 42 45 52 20 4A 53 52 46 41 52 00 F9 |) UEBER JSRFAR..|
00004490: A0 22 1F 20 81 23 24 45 46 00 05 A1 2C 1F 20 82 |.". .#$EF...,. .|
000044A0: 4C 4F 41 44 52 00 0F A1 36 1F 20 97 46 41 52 00 |LOADR...6. .FAR.|
000044B0: 16 A1 40 1F 20 A4 00 1C A1 4A 1F 3B 00 4E A1 54 |..@. ....J.;.N.T|
000044C0: 1F 53 54 4F 52 56 41 52 53 54 20 81 23 24 35 34 |.STORVARST .#$54|
000044D0: 3B 41 55 46 52 55 46 20 44 45 52 20 52 4F 4D 20 |;AUFRUF DER ROM |
000044E0: 52 4F 55 54 49 4E 45 20 53 54 52 49 4E 47 00 78 |ROUTINE STRING.x|
000044F0: A1 5E 1F 20 82 48 49 41 44 52 3B 5A 55 57 45 49 |.^. .HIADR;ZUWEI|
00004500: 53 45 4E 20 28 24 35 34 30 35 29 20 55 45 42 45 |SEN ($5405) UEBE|
00004510: 52 20 4A 53 52 46 41 52 00 83 A1 68 1F 20 81 23 |R JSRFAR...h. .#|
00004520: 24 30 35 00 8F A1 72 1F 20 82 4C 4F 41 44 52 00 |$05...r. .LOADR.|
00004530: 99 A1 7C 1F 20 97 46 41 52 00 A0 A1 86 1F 20 A4 |..|. .FAR..... .|
00004540: 00 A6 A1 90 1F 3B 00 B5 A1 9A 1F 46 41 52 20 81 |.....;.....FAR .|
00004550: 48 49 41 44 52 00 BF A1 A4 1F 20 82 24 30 33 00 |HIADR..... .$03.|
00004560: CB A1 AE 1F 20 81 4C 4F 41 44 52 00 D5 A1 B8 1F |.... .LOADR.....|
00004570: 20 82 24 30 34 00 E1 A1 C2 1F 20 81 24 46 46 30 | .$04..... .$FF0|
00004580: 30 00 ED A1 CC 1F 20 82 24 30 32 44 45 00 F8 A1 |0..... .$02DE...|
00004590: D6 1F 20 81 23 24 30 46 00 02 A2 E0 1F 20 82 24 |.. .#$0F..... .$|
000045A0: 30 32 00 0E A2 EA 1F 20 97 24 30 32 43 44 00 15 |02..... .$02CD..|
000045B0: A2 F4 1F 20 A4 00 1B A2 FE 1F 3B 00 00 00 |... ......;... |
A\~\D.;.........................\N.;.
...\X.;. ATOMUHR V.
128 ..U\..;. ...\
..;.........................]..;........
................,] .;.
..I]..;. BETRIEBSSYSTEM ..F]..;.
...]..;............
.............]H.;..]R...$1300..]....1,3.
.]..;..]..;.K].. .SCREENST;EINSCHALTMELD
UNG.Q]..;..].. .BEFINI;BEFEHLSERWEITERUN
G EIN..]..;..^". ...^,.;. ^6. .$DD0F;UHR
[CIA 2].D^@. .#$7F;BEI SCHREIBEN UHR SE
TZEN.P^J. .$DD0F.O^T. .$DD0E;NETZFREQUEN
Z 50 HZ.Z^^. .#$80..^H. .$DD0E..^R. .#$0
0;0 IN..^|. .$DD0B;STUNDEN..^.. .$DD0A;M
INUTEN.S^.. .$DD09;SEKUNDEN..^.. .$DD08;
1/10-SEKUNDEN UHR START..^..;.#_.. .#<(I
RQNEW);IRQ-ZEIGER VERBIEGEN.._.. .$314.?
_B. .#>(IRQNEW).J_L. .$315.P_V.;.W_.. ..
^_.. ..D_..;.._..IRQNEW .#$3B;PORT A2 AU
F EINGANG.._.. .$DD02;DATENRICHTUNGSREG.
PORT A.._..;.Z_..UNSTABIL .$DD00;PORT A
2 AUSLESEN.._&. .$DD00;EMPFANG STABIL ?.
.`0. .UNSTABIL;NEIN !..`:. .#$04./`D. .I
MPULS;EQ=IMPULS.>`N. .NOIMPULS.D`X.;.S`B
.IMPULS .SCHALTFLAG;TIMER SCHON GESTARTE
T ?..`L. .TIMERON;[FLAGSTART=0]..`V. .$D
D0E;TIMER A =.B`.. .#$D6;EINSTELLEN + ST
OP..`.. .#$10;255 IN $DD04/5..`.. .$DD0E
..`.. .$DD0F;TIMER B =..A.. .#$D6;EINSTE
LLEN + STOP.5A.. .#$51;255 IN $DD06/7.AA
.. .$DD0F;UND MIT TIMER A KOPPELN + STAR
T..AF.TRYAGAIN .$DD06;255 IN TIMER B LOW
BYTE EINGETRAGEN ?..AP. .#$FF..AZ. .TRYA
GAIN;NEIN !.GA.. .$DD0E..A.. .#$01;TIMER
A START..A.. .$DD0E..B.. .SCHALTFLAG;TI
MER ON MERKEN [FLAG=1].$B.. .AUSGABE.*B.
.;.DB .TIMERON .SCHALTFLAG;ZWEITE POSITI
VE FLANKE [FLAG=2] ?.OB*. .#$02..B4. .RE
SETTIMER;JA !..B>. .AUSGABE..BH.;..BR.RE
SETTIMER .#$00;RESET.YB\. .SCHALTFLAG;SC
HALTFLAG [FLAG=0]..BF. .$DD06;LADE TIMER
B LOWBYTE.$CP. .#$F0;TASTLUECKE IN DER
59-SEKUNDE ?.@CZ. .TASTLUECKE;JA ! SONST
.WC.. .SEKCT;SEKUNDE +1.DC.. .IMPULS.JC.
.;..C..TASTLUECKE .#$20;RESET ERROR..C..
.ERROR..C.. .DATREADY;[FLAG=1].JC.. .SE
KCT;SEKUNDE = 58 ?.UCJ. .#$3A..DT. .RESE
TSEK;KEIN ERROR 1 [59-SEKUNDENERROR]..D.
. .#$31;ERROR 1.-D.. .ERROR;SPEICHERN.3D
..;.OD..RESETSEK .#$00;SEKUNDEN.^D.. .SE
KCT;=0.KD.. .IMPULS.QD..;..D$.NOIMPULS .
SCHALTFLAG;FLAG=1 ?..D.. .#$01..D8. .SFL
AG1;JA !..DB. .AUSGABE.DDL.;..DV.SFLAG1
.SCHALTFLAG;[FLAG= 2]..E`. .$DD06;LADE T
IMER B LOWBYTE.)EJ. .#$FE;1/10 ODER 2/10
-SEKUNDEN.6ET. .SETBIT.JE~. .;100 MS=BIT
=0.YE.. .STOREBIT.RE..SETBIT .;200MS=BIT
=1.XE..;..E..STOREBIT .DATENREG;EMPFANGE
NE BITS IN REG. SCHIEBEN..E.. .DATENREG+
1;8 * 8 BITS = 64 BITREGISTER..E.. .DATE
NREG+2..ED. .DATENREG+3..FN. .DATENREG+4
.!FX. .DATENREG+5.2F.. .DATENREG+6.CF..
.DATENREG+7.IF..;.NF..AUSGABE .DATREADY;
DATEN FERTIG ?.YF.. .#$01..F.. .OUTREG;J
A: DATEN IN AUSGABEREGISTER..F.. .SCREEN
OUT..F(.;.YF2.OUTREG .DATENREG;PRUEFBIT
3..F<. .#$80;ISOLIEREN..GF. .PRUEFB3;UND
ABSPEICHERN..GP.;.6GZ. .DATENREG+1;KALE
NDERJAHR BIT 0.QGD. .;INS C-FLAG SCHIEBE
N.UGN. .DATENREG;KALENDERJAHR BIT 7-1..G
X. .;BIT 0 EINROTIEREN..G.. .AKLJAHR;UND
ABSPEICHERN..G..;.YG.. .DATENREG+1;KALE
NDERMONAT BIT 4-0..G . .#$7C;ISOLIEREN..
H.. .;ZWEIMAL NACH RECHTS..H.. .;SCHIEBE
N.8H.. .AKLMONAT;UND ABSPEICHERN.>HH.;._
HR. .DATENREG+2;WOCHENTAG BIT 0.ZH.. .;I
NS C-FLAG SCHIEBEN..H.. .DATENREG+1;WOCH
ENTAG BIT 2-1..H.. .#$03;ISOLIEREN.KH..
.;BIT 0 EINROTIEREN..H.. .AWTAG;UND ABSP
EICHERN..H..;..I.. .DATENREG+2;KALENDERT
AG BIT 5-0.'I". .#$7E;ISOLIEREN.JI,. .;E
INMAL NACH RECHTS SCHIEBEN.GI6. .AKLTAG;
UND ABSPEICHERN.MI@.;..IJ. .DATENREG+2;P
RUEFBIT 2..IT. .;INS CARRY SCHIEBEN.DI^.
.DATENREG+3;STUNDEN BIT 5-0..IH. .;PRUE
FBIT 2 EINROTIEREN..JR. .;EINMAL NACH RE
CHTS SCHIEBEN.$J|. .STUNDEN1;UND ABSPEIC
HERN.*J..;.KJ.. .DATENREG+4;MINUTEN BIT
5-0.FJ.. .MINUTEN1;ABSPEICHERN..J.. .DAT
ENREG+3;MINUTEN BIT 6..J.. ...J.. .MINUT
EN1;EINROTIEREN..JB. .;PRUEFBIT 1.NJL. .
MINUTEN1;DITO..TJV.;..K.. .DATENREG+5;CO
DE Z1 [SOMMER/WINTERZEIT]..K.. .#$40;ISO
LIEREN.8K.. .;EINMAL NACH LINKS SCHIEBEN
.MK.. .ASOWIZEI;ABSPEICHERN [$80=SOMMERZ
/$00=WINTERZ].SK..;.~K.. .#$00..K.. .DAT
READY;RESET FLAG DATENREADY.GK&. .PYREG;
RESET PRUEFBIT-REGISTER.VK0. .MINUTEN1..
K:. .PARITY1;PRUEFBIT MIN. TESTEN..LD. .
STUNDEN1.*LN. .PARITY1;PRUEFBIT HH. TEST
EN.OLX. .PARITY2;PRUEFBIT 'REST' TESTEN.
XLB. .MINUTEST1;MINUTENSPRUNG>1 JA=ERROR
..LL. .ERROR;ERROR ?..LV. .#$20..L.. .TR
ANSFER;NEIN !.BL.. .SCREENOUT;JA !.HL..;
..L..TRANSFER .STUNDEN1;STUNDEN LADEN..M
.. .#$3F;PRUEFBIT LOESCHEN./M.. .STOREHH
;24 HH UHR -> 12 HH UHR.DM.. .$DD0B;UHR
STOP.ZMF. .;STUNDEN RETTEN.WMP. .MINUTEN
1;MINUTEN LADEN..MZ. .#$7F;PRUEFBIT LOES
CHEN..M.. .$DD0A;MINUTEN IN UHR..M.. .#$
00;0 IN.TM.. .$DD09;SEKUNDEN..M.. .$DD08
;1/10-SEKUNDEN/UHR START..N.. .;NOCHMAL
STUNDEN EINTRAGEN,.LN.. .$DD0B;WEIL TIME
R STUNDEN EVTL. UM 1 ERHOEHT.BN . .$DD08
;UHR START.HN*.;..N4.SCREENOUT .STORTIDA
;DATEN IN BUFFER.CN>. .BILDSCHIRM;AUSGAB
E IM DIREKTMODUS/40-ZEICHEN.ONH. .$FA65.
UNR.;..O\.PARITY1 .ERROR;SCHON ERROR EIN
GETRAGEN ?..OF. .#$20.&OP. .PARITY1STRT;
NEIN !.QOZ. .PTEST1E;JA !:PARITYTEST NIC
HT NOETIG.RO..PARITY1STRT .#$00;BITCOUNT
ER..O.. .#$08;8*SHIFT..O..PTEST1L .. O..
.PTEST1..O.. .;ZAEHLT BIT'S,WENN 1.HO..
PTEST1 ..VO.. .PTEST1L..OJ. .;ANZAHL BIT
'S IN AKKU..OT. ...P.. .PTEST1E.)P.. .PY
REG;PARITAETSERROR MERKEN.7P..PTEST1E ..
=P..;.JP..PARITY2 .ERROR;SCHON ERROR EIN
GETRAGEN ?.UP.. .#$20..P.. .PARITY2STRT;
NEIN !..P$. .PRET;JA !:PARITYTEST NICHT
NOETIG.NP..PARITY2STRT .AKLTAG..P8. .#$0
0;BITCOUNTER..PB. .#$20;32*SHIFT..QL.PTE
ST2L ...QV. .PTEST2..Q`. .;ZAEHLT BIT'S,
WENN 1.;QJ.PTEST2 ..FQT. .#$19.TQ~. .PTE
ST2L.`Q.. .AWTAG.NQ..PTEST3L ..{Q.. .PTE
ST3..Q.. ...Q..PTEST3 ...Q.. .#$11..QD.
.PTEST3L..QN. .AKLMONAT.EQX.PTEST4L ..RQ
.. .PTEST4.YQ.. ...Q..PTEST4 ...Q.. .#$0
9..Q.. .PTEST4L..R.. .AKLJAHR..R..PTEST5
L ..(R(. .PTEST5./R2. ..<R<.PTEST5 ..JRF
. .PTEST5L.XRP. .PRUEFB3.ERZ. .PTEST6.LR
D. ...RN.PTEST6 .;BITCOUNTER IN AKKU..RX
. ...R.. .PTESTE2..R.. .PYREG.QR..PTESTE
2 .PYREG;PARITAETSERROR ?..R . .PRET..S.
. .#$32;ERRORCODE 2 [PARITAETSERROR]..S.
. .ERROR..S..PRET ..!SH.;.?SR.STOREHH .#
$12;STUNDEN >11.US.. .STOREHHE;NEIN !.\S
.. ..CS.. ..}S.. .#$68;PM-FLAG SETZEN..S
.. ...S..STOREHHE ...S..;.HS".MINUTEST1
.ERROR;SCHON ERROR EINGETRAGEN ?.SS,. .#
$20..S6. .MINUTEST2;NEIN !..T@. .MINUTES
TE;JA !:KEIN MINUTENTEST NOETIG.>TJ.MINU
TEST2 .MINUTEN1;MINUTEN DCF 77.[TT. .#$7
F;PRUEFBIT LOESCHEN.~T^. .#$00;MINUTENSC
HRITT 59 -> 00..TH. .VORHER59;JA !. TR.
.;NEIN !..T|. ..MT.. .OLDMINUTE;MINUTENN
EW-MINUTENOLD.TT.. ...T.. .#$01;MINUTENS
CHRITT + 1..U.. .MINUTESTE;JA !:KEIN ERR
OR./U.. .MINUERROR;NEIN !:ERROR.WU..VORH
ER59 .OLDMINUTE;MINUTENOLD = 59.BUB. .#$
59..UL. .MINUTESTE;JA !:KEIN ERROR..UV.M
INUERROR .#$33;ERRORCODE 3 [MINUTENERROR
].GU.. .ERROR;SPEICHERN..U..MINUTESTE .M
INUTEN1;MINUTENNEW..U.. .#$7F;IN..V.. .O
LDMINUTE;MINUTENOLD..V.. .. V..;.;V..SCR
EENST .$C142;SCNCLR.AV&.;.`V0. .#$00;LOW
BYTE SCREENSTART..V:. .#$04;HIGHBYTE SCR
EENSTART..VD. .$C8;IN ZEROPAGE. VN. .$C9
.HVX. .#<(ANZEIGE1);LOWBYTE ANZEIGESTART
..VB. .#>(ANZEIGE1);HIGHBYTE ANZEIGESTAR
T..WL. .$CA;IN ZEROPAGE..WV. .$CB..W..;.
)W.. .#$4F;ZEIGER.UW..ZEILE1U2 .($CA),Y;
AUSGABE ZEILE 1 UND 2.CW.. .($C8),Y.JW..
..YW.. .ZEILE1U2.W..;..WF. .#$A0;LOWBY
TE SCREENSTART AB ZEILE 3..WP. .$C8;IN Z
EROPAGE..WZ. .#<(ANZEIGE2);LOWBYTE ANZEI
GESTART..X.. .#>(ANZEIGE2);HIGHBYTE ANZE
IGESTART.&X.. .$CA;IN ZEROPAGE.0X.. .$CB
.6X..;.YX.. .#$0D;NOCH 13 ZEILEN AUSGEBE
N.VX..ZEILENREST1 .#$18;ZEIGER..X .ZEILE
NREST2 .($CA),Y;AUSGABE ZEILE 3 - 15..X*
. .($C8),Y..X4. ..KX>. .ZEILENREST2.QXH.
;..XR. .#$28;ADR. SCREEN + 40..X\. ...XF
. .$C8..YP. .$C8..YZ. .#$00..Y.. .$C9.'Y
.. .$C9.-Y..;.JY.. .#$19;ADR. ANZEIGE +
25.QY.. ..[Y.. .$CA.EY.. .$CA.PYJ. .#$00
.ZYT. .$CB..Y.. .$CB..Y..;..Y.. ...Y.. .
ZEILENREST1..Y..;.EY.. .#$14;CURSORZEILE
= 20..Y.. .#$00;CURSORSPALTE = 0..Y$. .
..Z.. .$FFF0;CURSOR SETZEN..Z8.;..ZB. ..
.ZL.;.LZV.BILDSCHIRM .#$4F;RECHTER RAND
BEI 80 ZEICHENSCHIRM.NZ`. .$D7;80 ZEICHE
N TEXTSCHIRM ?..ZJ. .TESTMODE;NEIN:40 ZE
ICHEN TEXTSCHIRM !. ZT.;.RZ~.RUN40 .WIND
OW;FLAG [NACH START UND DIREKTMODE..Z..
.NODATAOUT;MIT 40 ZEICHENSCHIRM <> 0]..{
..;..{.. .#$00;0 IN:.1{.. .$E5;FENSTER O
BERGRENZE.O{.. .$E6;FENSTER LINKER RAND.
G{.. .WINDOW;RESET FLAG.Z{D. .#$18;$18 I
N:..{N. .$E4;FENSTER UNTERGRENZE..{X. .$
E7;X = RECHTE GRENZE 40/80..{..;..{..NOD
ATAOUT .BILDSCHIRME..{..;..{..TESTMODE .
$7F;RUN MODE ?..|.. .#$80.'|.. .DATAOUT;
NEIN:DIREKTMODE.P|.. .#$27;RECHTER RAND
40 ZEICHENSCHIRM..|(. .RUN40;RUN U. 40 Z
EI.= FREEWINDOW/ANZEIGEOFF..|2.;. |<.DAT
AOUT .#$02;2 IN:..|F. .$E5;FENSTER OBERG
RENZE.S|P. .WINDOW;SET FLAG..|Z. .#$00;0
IN:..}D. .$E6;FENSTER LINKER RAND..}N.
.#$18;$18 IN:.3}X. .$E4;FENSTER UNTERGRE
NZE.F}.. .#$27;$27 IN:.E}.. .$E7;FENSTER
RECHTER RAND.K}..;..} . .#$4F;COUNTER/Z
EIGER FARBRAM ZEILE 1+2..}.. .#$01;FARBE
WEISS ZEILE 1 + 2.R}..STOREWEISS .$D800
,X.Y}.. ...}H. .STOREWEISS..}R.;..}.. .#
$06..~.. .$D021;BLAUER HINTERGRUND. ~..;
.J~.. .#$4F;COUNTER/ZEIGER AUSGABE ANZEI
GE.{~..OUTANZEIGE .ANZEIGE1,X;ANZEIGE ZE
ILE 1 UND 2..~.. .$400,X..~.. .. ~". .OU
TANZEIGE..~,.;.I~6. .TIBUFFER+1;HH AUS T
IMEBUFFER..~@. .TIBUFFER+2;IN..~J. .$420
;VIDEOSPEICHER..T. .$421..^.;.*H. .TI
BUFFER+3;MM AUS TIMEBUFFER.>R. .TIBUFFE
R+4;IN.W|. .$423;VIDEOSPEICHER.B.. .$4
24.H..;.... .TIBUFFER+5;SS AUS TIMEBUF
FER.... .TIBUFFER+6;IN.... .$426;VIDEO
SPEICHER.C.. .$427.IB.;..L. .ERROR;ER
RORCODE LADEN...V. .$40A;UND IN VIDEOSPE
ICHER..... .#$20;ERROR ?.J... .ASCIIINSC
C;NEIN:WOCHENTAG ASCII->SCREENCODE.P...;
.[... .#$02.....ERRORSCR1 .DABUFFER,X;"*
" AUS DATUMSBUFFER..... .$415,X;UND IN..
... .;VIDEOSPEICHER [WOCHENTAG].O.&. .ER
RORSCR1.U.0.;...:. .#$03...D.ERRORSCR2 .
DABUFFER+11,X;"*" AUS DATUMSBUFFER.&.N.
.$43E,X;UND IN.F.X. .;VIDEOSPEICHER [MEZ
/MESZ].V.B. .ERRORSCR2.\.L.;.N.V. .DATUM
SCREEN.T...;.....ASCIIINSCC .#$02.....WO
TAGSCR .DABUFFER,X;BUCHSTABE WOCHENTAG [
ASCII].E... ...... .#$40; - 64 = BILDSCH
IRMCODE..... .$415,X;IN VIDEOSPEICHER...
.. ....F. .WOTAGSCR.!.P.;.,.Z. .#$03.B..
.WISOSCR .DABUFFER+11,X;BUCHSTABE MEZ/ME
SZ [ASCII].U... .#$20;SPACE ?..... .BCOD
EOK..... ...... .#$40; - 64 = BILDSCHIRM
CODE.....BCODEOK .$43E,X.G. . ..U.*. .WI
SOSCR...4.;...>.DATUMSCREEN .DABUFFER+4;
KALENDERTAG AUS DATUMSBUFFER.(.H. .DABUF
FER+5;IN.A.R. .$448;VIDEOSPEICHER.L.\. .
$449.R.F.;...P. .DABUFFER+6;KALENDERMONA
T AUS DATUMSBUFFER...Z. .DABUFFER+7;IN..
... .$44B;VIDEOSPEICHER..... .$44C.....;
..... .DABUFFER+8;KALENDERJAHR AUS DATUM
SBUFFER..... .DABUFFER+9;IN..... .$44E;V
IDEOSPEICHER.'... .$44F.-.J.;.?.T.BILDSC
HIRME ..E...;.F...BCDBILD .BCDCODE;CODE
RETTEN..... .#$0F;ERGIBT UNTERES NIBBLE.
.... ...... .#$30;BILDSCHIRMCODE..... .;
LOWBYTE.R... .BCDCODE;RESTORE CODE...$.
.#$F0;ERGIBT OBERES NIBBLE..... ....8. .
...B. ....L. ....V. ../.`. .#$30;BILDSCH
IRMCODE.?.J. .;HIGHBYTE.F.T. ..L.~.;.N..
.STORTIDA .$DD0B;STUNDEN LADEN.~... .#$8
0;PM ?..... .PMEIN;JA !..... .AMEIN;NEIN
!.D...PMEIN .#$7F;PM-FLAG GELOESCHT....
. .#$12;12 UHR NACHMITTAG ?...D. .STORZE
IT;JA !...N. .;NACHMITTAG UND HH < 12.!.
X. .;DANN.5... .#$12;HH=HH+12.<... ..K..
. .STORZEIT.N...AMEIN .#$12;12 UHR VORMI
TTAG ?..... .STORZEIT;NEIN !..... .#$00;
=0 UHR.....STORZEIT .BCDBILD;BCD->ASCII-
CODE...(. .TIBUFFER+1;HH IN TIMEBUFFER [
HIGHBYTE]...2. .TIBUFFER+2;" " "
[LOWBYTE ].0.<. .$DD0A;MINUTEN LADEN
.N.F. .BCDBILD;BCD->ASCII-CODE.{.P. .TIB
UFFER+3;MM IN TIMEBUFFER [HIGHBYTE]...Z.
.TIBUFFER+4;" " " [LOWBYTE ]
.C.D. .$DD09;SEKUNDEN LADEN...N. .BCDBIL
D;BCD->ASCII-CODE...X. .TIBUFFER+5;SS IN
TIMEBUFFER [HIGHBYTE].;... .TIBUFFER+6;
" " " [LOWBYTE ].]... .$DD08;
ZWISCHENSPEICHER FREI.C...;.{. . .ERROR;
ERROR LADEN..... .#$20;ERROR ?..... .STO
RDA;NEIN !.P... .STORDAT;JA:TIMERBETRIEB
IM DATUM ZEIGEN.V.H.;...R.STORDA .WOCHE
NTG;CODE->ASCII-CODE [MO DI MI ...].*...
.AKLTAG;KALENDERTAG LADEN.C... .BCDBILD
;SIEHE OBEN.S... .DABUFFER+4;KLT IN DATU
MSBUFFER [HIGHBYTE]..... .DABUFFER+5;"
" " [LOWBYTE ].F... .AKLMON
AT;KALENDERMONAT LADEN..... .BCDBILD;SIE
HE OBEN..... .DABUFFER+6;KLM IN DATUMSBU
FFER [HIGHBYTE].?.". .DABUFFER+7;" "
" [LOWBYTE ].`.,. .AKLJAHR;KA
LENDERJAHR LADEN.Y.6. .BCDBILD;SIEHE OBE
N...@. .DABUFFER+8;KLJ IN DATUMSBUFFER [
HIGHBYTE].Y.J. .DABUFFER+9;" " "
[LOWBYTE ]...T. .ASOWIZEI...^. .#
$80;SOMMER -ODER WINTERZEIT ?...H. .SOMM
ERZEIT.:.R. .#<(WITIME);WINTERZEIT.B.|.
.#>(WITIME);POINTER AUF ASCII-TEXT.W...
.$C8;WINTERZEIT..... .$C9..... .WISOINBU
.....SOMMERZEIT .#<(SOTIME);SOMMERZEIT..
... .#>(SOTIME);POINTER AUF ASCII-TEXT..
... .$C8;SOMMERZEIT...B. .$C9...L.WISOIN
BU .#$03;ASCII-TEXT.4.V.WISOLOOP .($C8),
Y;IN.Q... .DABUFFER+11,Y;DABUFFER.X... .
.G... .WISOLOOP.~... .STOREND;FERTIG !..
...;.....STORDAT .#$0E;ASCII-CODE "*" IN
.A... .#$2A;DATUMSBUFFER,...&.TURNOFF .#
$03;WENN ERROR...0. .JUMPSPACE...:. .#$0
A...D. .JUMPSPACE...N. .DABUFFER,X.*.X.J
UMPSPACE ..8.B. .TURNOFF.>.L.;.L.V.STORE
ND ..R...;.V...WOCHENTG .AWTAG;WOCHENTAG
LADEN..... .;CODE-1..... ...... .;*2...
.. .;ZEIGER IN TABELLE.M... .ASCIITAG,X;
ASCII-CODE IN...F. .DABUFFER+1;DATUMSBUF
FER [HIGHBYTE]...P. ....Z. .ASCIITAG,X;A
SCII-CODE IN.D... .DABUFFER+2;DATUMSBUFF
ER [LOWBYTE].K... ..Q...;.D...VARTIS .."
TI$".J...;.....TIBUFFER ..$22,"000000",$
22... .;...*.VARDAS .."DA$"...4.;.Q.>.DA
BUFFER ..$22,"WW TTMMJJ ZZZZ",$22.W.H.;.
..R.ASCIITAG .."MODIMIDOFRSASO"...\.;...
F.SOTIME .."MESZ".%.P.WITIME .."MEZ ".+.
Z.;.E...ANZEIGE1 .."ERRORCODE: WOCHENTA
G: ZEIT: : : "..... .."- ATOMUHR
- ZEITZONE : DAT.: : : ".B...ANZE
IGE2 .."DDDDDDDDDDDDDDDDDDDDDDDDD".....
.."ATOMUHR DCF 77 77.5 KHZ"..... .."FF
FFFFFFFFFFFFFFFFFFFFFFF".+... .."DDDDDDD
DDDDDDDDDDDDDDDDDD".N... .."E R R O R C
O D E : ".Q.J. .."FFFFFFFFFFFFFFFFF
FFFFFFFF"...T. .."1: 59-SEKUNDENERROR
"..... .."2: PARITAETSERROR ".
Z... .."3: MINUTENERROR ".....
.."DDDDDDDDDDDDDDDDDDDDDDDDD". ... .."TI
MERBETRIEB: * ".C... .."FFFFFFF
FFFFFFFFFFFFFFFFFF".F... .."PRG:WERNER H
AUBRICH ".L...;.|.$.ERROR ..$31....
.SCHALTFLAG ..0...8.SEKCT ..0...B.DATREA
DY ..0...L.MINUTEN1 ..0.P.V.STUNDEN1 ..0
...`.PYREG ..0...J.AWTAG ..0...T.AKLTAG
..0...~.AKLMONAT ..0.....AKLJAHR ..0.,..
.PRUEFB3 ..0.=...ASOWIZEI ..0.O...OLDMIN
UTE ..0._...BCDCODE ..0.N...WINDOW ..1.T
.D.;...N.DATENREG ..8...X.;.....;.....;.
....;.....;.R...;.......................
.......................;. NEUES BEFEHLSW
ORT "ATOMZEIT" ..0...;.
.._.(.;..
........................................
..2.;. WIRKUNG:TI$=ATOMZEIT [HHMMSS]
....<.;. DA$=DATUM [WT T
TMMJJ ZZZZ] ....F.;. AE =ERRORNR
. ....P.;..............
............................!.Z.;.'.D.;.
;.N...TKBAUVK=$030C.P.X...TKBAUOLD=$4321
.E.....TKLISTVK=$030E.{.....TKLISTOLD=$5
1CD.......BEFAUSVK=$0310... ...BEFAUSOLD
=$4BA9.......SEARCHBF=$43E2.N.....TKLIST
=$516A.......TXTPTR=$003D...H...INTTOFK=
$AF03...R...HIADR=$00FA.......LOADR=$00F
B.,.....LSTPNT=$004B.2...;.G...VARAE .."
AE",$B2.M...;.K...BWTAB .."ATOMZEI",$D4,
$00.Q...;...".BADTAB ..ATOMZEIT-1...,.;.
..6.BEFINI .#<(BEFINTK);VEKTOREN AUF EIG
ENE.Z.@. .TKBAUVK;ROUTINEN RICHTEN...J.
.#>(BEFINTK)...T. .TKBAUVK+1...^. .#<(BE
FLIST)...H. .TKLISTVK./.R. .#>(BEFLIST).
@.|. .TKLISTVK+1.Q... .#<(BEFEXE).`... .
BEFAUSVK.Q... .#>(BEFEXE)..... .BEFAUSVK
+1..... ......;...B.BEFINTK .;LETZTES ZE
ICHEN RETTEN...L. .#>(BWTAB);ZEIGER AUF
NEUE TABELLE DER BEFEHLE...V. .#<(BWTAB)
.$... .SEARCHBF;SUCHE BASICBEFEHL IN TAB
ELLE.?... .BEFNFOUND;NICHT DRIN.F... .#$
7F;DRIN:BIT 7 BEF-NR. LOESCHEN.Z... .;$2
7 ADDIEREN..... .#$27;=ZWEITES TOKENBYTE
..... .#$00;FLAG PRAEFIX $FE.Q... .BACKT
KBAU;IMMER SPRUNG...&.BEFNFOUND .;FLAG:N
ICHT GEFUNDEN...0. .;RESTORE AKKU.5.:.BA
CKTKBAU .TKBAUOLD;ZURUECK INTERPRETER.;.
D.;.E.N.BEFLIST .#$FF;FLAG FUER PRAEFIX
$CE ?.X.X. .NOTLIST;JA !...B. .#$27;2.TO
KENBYTE < $27...L. .NOTLIST;JA.C.V. .#$2
8;2.TOKENBYTE > $27.V... .NOTLIST;JA !..
... .#$26;SUB $27 (CARRY=0!)..... .#$80;
+128..... .;ALS NUMMER IN X.B... .#>(BWT
AB);HIGHBYTE TABELLENSTART.G... .#<(BWTA
B);LOWBYTE " "..... .TKLIST;BEF
EHLSWORT LISTEN...F.NOTLIST .;FLAG:INTER
PRETER NICHT LISTEN.S.P. .TKLISTOLD;ZUM
INTERPRETER.Y.Z.;.....BEFEXE .#$27;2.TOK
ENBYTE < $27..... .NOTBEF;JA !.+... .#$2
8;2.TOKENBYTE > $27.=... .NOTBEF;JA !.J.
.. .#$26;SONST SBC $27 (CARRY=0!)=NR 0 .
....... .;*2 [0,2,4,6 ....]... . .;ALS Z
EIGER NACH X.G.*. .BADTAB+1,X;HIGHBYTE D
ER BEFEHLS-ADR..X.4. ;AUF STACK...>. .B
ADTAB,X;LOWBYTE DER BEFEHLS-ADR....H. ;
AUF STACK.4.R. .;FLAG:USER-ADRESSE AUF S
TACK.I.\. .BACKBEXE;IMMER.J.F.NOTBEF .;F
LAG:KEIN USERTOKEN...P.BACKBEXE .BEFAUSO
LD;ZUM INTERPRETER...Z.;.....ATOMZEIT .T
XTPTR;TXTPTR RETTEN.J... .TXTPTR+1.T...
.$FC..... .$FD.....;..... .ERROR;ERRORCO
DE LADEN..... .#$20;ERROR ?.(.J. .AESTOR
123;JA !...T.;.Y... .#$00;HIGHBYTE INT.-
ZAHL [AE-ERROR:0].V... .#$00;LOWBYTE INT
.-ZAHL..... .AESTOR0.....AESTOR123 .;ERR
ORCODE $31-$33.J... .#$30;- $30 ERGIBT A
E-CODE 1-3..... .;LOWBYTE INT.-ZAHL.....
.#$00;HIGHBYTE INT.-ZAHL.).$.AESTOR0 .I
NTTOFK;INT.->FLIESS.->FAC.R... .#<(VARAE
);TXTZEIGER AUF VAR.-NAMEN._.8. .TXTPTR.
O.B. .#>(VARAE).~.L. .TXTPTR+1...V. .HOL
EVAR...`. .STORVARR;AE=ERRORCODE...J.;.S
.T. .#<(VARTIS);TXTPTR AUF VAR. TI$...~.
.TXTPTR..... .#>(VARTIS)..... .TXTPTR+1
..... .HOLEVAR..... .AUSDRUCK.:... .STOR
VARST;TI$="HHMMSS".@...;.E.D. .#<(VARDAS
);TXTPTR AUF VAR. DA$.R.N. .TXTPTR...X.
.#>(VARDAS)..... .TXTPTR+1. ... .HOLEVAR
..... .AUSDRUCK.T... .STORVARST;DA$="WT
TTMMJJ ZZZZ".Z...;..... .$FC;RESTORE TXT
PTR..... .TXTPTR...(. .$FD...2. .TXTPTR+
1...<.;.:.F. .;ZURUECK INTERPRETER.@.P.;
.U.Z.HOLEVAR .#$7A;AUFRUF ROM-ROUTINE VA
RIABLE SUCHEN...D. .HIADR;UND GGF.ANLEGE
N ($7AAF) UEBER JSRFAR...N. .#$AF...X. .
LOADR.G... .FAR.Q... .$06..... .LSTPNT..
. . .$08..... .LSTPNT+1..... ... ..;.8 H
.STORVARR .#$53;AUFRUF DER ROM ROUTINE R
EAL-ZAHL.B R. .HIADR;ZUWEISEN ($53FA) UE
BER JSRFAR.M .. .#$FA.Y .. .LOADR.. .. .
FAR.. .. ... ..;.C ..AUSDRUCK .#$77;AUFR
UF DER ROM ROUTINE AUSDRUCK.. .. .HIADR;
AUSWERTEN ($77EF) UEBER JSRFAR.. ". .#$E
F...,. .LOADR...6. .FAR...@. ....J.;.N.T
.STORVARST .#$54;AUFRUF DER ROM ROUTINE
STRING.X.^. .HIADR;ZUWEISEN ($5405) UEBE
R JSRFAR...H. .#$05...R. .LOADR...|. .FA
R. ... ......;.....FAR .HIADR..... .$03.
K... .LOADR.U... .$04...B. .$FF00...L. .
$02DE...V. .#$0F..... .$02..... .$02CD..
... ......;...
> CLICK IMAGE PREVIEW FOR FULL MODAL