ALARMUHR.QUE
FILE INFORMATION
FILENAME(S): ALARMUHR.QUE
FILE TYPE(S): PRG
FILE SIZE: 10K
FIRST SEEN: 2025-11-30 01:12:50
APPEARS ON: 2 disk(s)
FILE HASH
317ae7f4c25bd5cab180c610003ba7507f23e2acf64d7c5a7688c3cd796b9e17
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER SONDERH 71 | ALARMUHR.QUE | PRG | C64er | 13 | 5 | DOWNLOAD FILE |
| 15835 SEITE A | ALARMUHR.QUE | PRG | C64er | 27 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0F 62 46 62 0A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |.bFb..;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 00 7D 62 14 00 3B 2A 20 |********.}b..;* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000070: B4 62 1E 00 3B 2A 20 C5 43 48 54 5A 45 49 54 55 |.b..;* .CHTZEITU|
00000080: 48 52 20 4D 49 54 20 C1 4C 41 52 4D 46 55 4E 4B |HR MIT .LARMFUNK|
00000090: 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 20 20 |TION |
000000A0: 20 20 20 20 20 2A 00 EB 62 28 00 3B 2A 20 20 20 | *..b(.;* |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 22 63 | *."c|
000000E0: 32 00 3B 2A 20 CC 41 45 55 46 54 20 4D 49 54 20 |2.;* .AEUFT MIT |
000000F0: 44 45 4D 20 CE CD C9 2D C3 C9 C1 20 20 20 20 20 |DEM ...-... |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 2A 00 59 63 3C 00 3B 2A 20 49 4E 20 D6 | *.Yc<.;* IN .|
00000120: 45 52 42 49 4E 44 55 4E 47 20 4D 49 54 20 44 45 |ERBINDUNG MIT DE|
00000130: 4D 20 C9 D2 D1 20 46 55 45 52 20 20 20 20 20 20 |M ... FUER |
00000140: 20 20 20 20 20 20 20 20 20 20 2A 00 90 63 46 00 | *..cF.|
00000150: 3B 2A 20 44 45 4E 20 C1 4C 41 52 4D 20 20 20 20 |;* DEN .LARM |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 2A 00 C7 63 50 00 3B 2A 20 20 20 20 20 20 20 | *..cP.;* |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 2A 00 FE 63 5A 00 3B 2A | *..cZ.;*|
000001C0: 20 20 C8 45 49 4D 4F 20 D0 4F 4E 4E 41 54 48 20 | .EIMO .ONNATH |
000001D0: 20 C8 41 4D 42 55 52 47 20 20 31 39 38 35 20 20 | .AMBURG 1985 |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000001F0: 00 35 64 64 00 3B 2A 20 20 20 20 20 20 20 20 20 |.5dd.;* |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 2A 00 6C 64 6E 00 3B 2A 20 28 | *.ldn.;* (|
00000230: D4 45 49 4C 57 45 49 53 45 20 57 55 52 44 45 20 |.EILWEISE WURDE |
00000240: 45 49 4E 20 D0 52 4F 47 52 41 4D 4D 20 41 55 53 |EIN .ROGRAMM AUS|
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 A3 | *..|
00000260: 64 78 00 3B 2A 20 44 45 4D 20 C9 4E 54 45 52 46 |dx.;* DEM .NTERF|
00000270: 41 43 45 20 C1 47 45 20 D3 59 53 54 45 4D 48 41 |ACE .GE .YSTEMHA|
00000280: 4E 44 42 55 43 48 20 20 20 20 20 20 20 20 20 20 |NDBUCH |
00000290: 20 20 20 20 2A 00 DA 64 82 00 3B 2A 20 5A 55 4D | *..d..;* ZUM|
000002A0: 20 C3 4F 4D 4D 4F 44 4F 52 45 20 36 34 2C 20 D3 | .OMMODORE 64, .|
000002B0: 45 49 54 45 20 31 31 34 20 20 20 20 20 20 20 20 |EITE 114 |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 11 65 8C | *..e.|
000002D0: 00 3B 2A 20 41 4C 53 20 C2 41 53 49 53 20 56 45 |.;* ALS .ASIS VE|
000002E0: 52 57 45 4E 44 45 54 29 20 20 20 20 20 20 20 20 |RWENDET) |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 2A 00 48 65 96 00 3B 2A 20 20 20 20 20 20 | *.He..;* |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 20 20 20 20 20 2A 00 7F 65 A0 00 3B | *..e..;|
00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 00 B6 65 AA 00 3B 2A 20 20 20 20 20 20 20 20 |*..e..;* |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 2A 00 ED 65 B4 00 3B 2A 20 | *..e..;* |
000003B0: CB 4F 52 52 49 47 49 45 52 54 20 56 4F 4E 3A 20 |.ORRIGIERT VON: |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000003E0: 24 66 BE 00 3B 2A 20 20 20 20 20 20 20 20 20 20 |$f..;* |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 2A 00 5B 66 C8 00 3B 2A 20 D5 57 | *.[f..;* .W|
00000420: 45 20 D4 48 49 45 4D 20 20 20 20 20 20 20 20 20 |E .HIEM |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 92 66 | *..f|
00000450: D2 00 3B 2A 20 CB 41 53 45 52 4E 45 4E 53 54 52 |..;* .ASERNENSTR|
00000460: 41 53 53 45 20 31 30 20 20 20 20 20 20 20 20 20 |ASSE 10 |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 2A 00 C9 66 DC 00 3B 2A 20 33 33 30 30 | *..f..;* 3300|
00000490: 20 C2 52 41 55 4E 53 43 48 57 45 49 47 20 20 20 | .RAUNSCHWEIG |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 2A 00 00 67 E6 00 | *..g..|
000004C0: 3B 2A 20 D3 45 50 54 45 4D 42 45 52 20 31 39 38 |;* .EPTEMBER 198|
000004D0: 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |8 |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004F0: 20 2A 00 37 67 F0 00 3B 2A 20 20 20 20 20 20 20 | *.7g..;* |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 2A 00 6E 67 FA 00 3B 2A | *.ng..;*|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000560: 00 74 67 04 01 3B 00 7A 67 0E 01 3B 00 80 67 18 |.tg..;.zg..;..g.|
00000570: 01 3B 00 8D 67 22 01 20 2E 90 24 43 30 30 30 00 |.;..g". ..$C000.|
00000580: A1 67 2C 01 20 2E 93 22 32 2E 41 4C 41 52 4D 2E |.g,. .."2.ALARM.|
00000590: 4F 42 22 00 A7 67 36 01 3B 00 AD 67 40 01 3B 00 |OB"..g6.;..g@.;.|
000005A0: B3 67 4A 01 3B 00 EA 67 54 01 3B 2A 2A 2A 2A 2A |.gJ.;..gT.;*****|
000005B0: 2A 2A 2A 2A 2A 2A 20 DA 45 52 4F 50 41 47 45 2D |****** .EROPAGE-|
000005C0: CC 41 42 45 4C 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.ABELS *********|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 67 5E |************..g^|
000005E0: 01 3B 00 16 68 68 01 2E 8F 56 45 52 5A 3A 3D 24 |.;..hh...VERZ:=$|
000005F0: 30 32 3B 41 4B 54 55 45 4C 4C 45 20 D6 45 52 5A |02;AKTUELLE .ERZ|
00000600: 4F 45 47 45 52 55 4E 47 00 45 68 72 01 2E 8F 46 |OEGERUNG.Ehr...F|
00000610: 41 52 42 3A 3D 24 30 33 3B D7 45 52 54 20 46 55 |ARB:=$03;.ERT FU|
00000620: 45 52 20 D2 41 48 4D 45 4E 2D C5 CF D2 2D CF 50 |ER .AHMEN-...-.P|
00000630: 45 52 41 54 49 4F 4E 00 67 68 7C 01 2E 8F 56 4F |ERATION.gh|...VO|
00000640: 52 57 3A 3D 24 30 34 3B D6 45 52 5A 4F 45 47 45 |RW:=$04;.ERZOEGE|
00000650: 52 55 4E 47 53 57 45 52 54 00 8C 68 86 01 2E 8F |RUNGSWERT..h....|
00000660: 56 41 4C 54 59 50 3A 3D 24 30 44 3B C9 4E 48 41 |VALTYP:=$0D;.NHA|
00000670: 4C 54 3A 46 46 3D D3 54 52 20 20 30 3D CE 00 9D |LT:FF=.TR 0=...|
00000680: 68 90 01 2E 8F 49 4E 44 45 58 3A 3D 24 32 32 00 |h....INDEX:=$22.|
00000690: B7 68 9A 01 2E 8F 49 4E 44 45 58 33 3A 3D 24 32 |.h....INDEX3:=$2|
000006A0: 34 3B D0 4F 49 4E 54 45 52 00 C9 68 A4 01 2E 8F |4;.OINTER..h....|
000006B0: 49 4E 44 45 58 34 3A 3D 24 32 35 00 E9 68 AE 01 |INDEX4:=$25..h..|
000006C0: 2E 8F 46 41 43 31 3A 3D 24 36 32 3B 31 2E CD 41 |..FAC1:=$62;1..A|
000006D0: 4E 54 49 53 53 45 4E 42 59 54 45 00 EF 68 B8 01 |NTISSENBYTE..h..|
000006E0: 3B 00 26 69 C2 01 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.&i..;*********|
000006F0: 2A 2A 20 CC 41 42 45 4C 53 20 D0 41 47 45 20 33 |** .ABELS .AGE 3|
00000700: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000710: 2A 2A 2A 2A 2A 2A 2A 2A 00 2C 69 CC 01 3B 00 4D |********.,i..;.M|
00000720: 69 D6 01 2E 8F 55 53 52 41 44 44 4C 3A 3D 24 30 |i....USRADDL:=$0|
00000730: 33 31 31 3B D5 D3 D2 2D D0 4F 49 4E 54 45 52 00 |311;...-.OINTER.|
00000740: 62 69 E0 01 2E 8F 55 53 52 41 44 44 48 3A 3D 24 |bi....USRADDH:=$|
00000750: 30 33 31 32 00 74 69 EA 01 2E 8F 46 52 45 49 3A |0312.ti....FREI:|
00000760: 3D 24 30 33 31 33 00 92 69 F4 01 2E 8F 49 52 51 |=$0313..i....IRQ|
00000770: 56 4C 3A 3D 24 30 33 31 34 3B C9 D2 D1 2D D6 45 |VL:=$0314;...-.E|
00000780: 43 54 4F 52 00 A5 69 FE 01 2E 8F 49 52 51 56 48 |CTOR..i....IRQVH|
00000790: 3A 3D 24 30 33 31 35 00 C4 69 08 02 2E 8F 4E 4D |:=$0315..i....NM|
000007A0: 49 4E 56 4C 3A 3D 24 30 33 31 38 3B CE CD C9 2D |INVL:=$0318;...-|
000007B0: D6 45 43 54 4F 52 00 D8 69 12 02 2E 8F 4E 4D 49 |.ECTOR..i....NMI|
000007C0: 4E 56 48 3A 3D 24 30 33 31 39 00 DE 69 1C 02 3B |NVH:=$0319..i..;|
000007D0: 00 15 6A 26 02 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..j&.;**********|
000007E0: 2A 20 CC 41 42 45 4C 53 20 C9 4E 54 45 52 50 52 |* .ABELS .NTERPR|
000007F0: 45 54 45 52 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ETER ***********|
00000800: 2A 2A 2A 2A 2A 2A 2A 00 1B 6A 30 02 3B 00 5E 6A |*******..j0.;.^j|
00000810: 3A 02 2E 8F 49 4C 4C 51 55 45 52 52 3A 3D 24 42 |:...ILLQUERR:=$B|
00000820: 32 34 38 3B 49 4C 4C 45 47 41 4C 20 51 55 41 4E |248;ILLEGAL QUAN|
00000830: 54 49 54 59 2D 45 52 52 4F 52 3D CE 4F 52 4D 41 |TITY-ERROR=.ORMA|
00000840: 4C 57 45 52 54 20 D5 D3 D2 2D D6 45 43 54 4F 52 |LWERT ...-.ECTOR|
00000850: 00 9F 6A 44 02 2E 8F 53 54 52 49 4E 49 38 3A 3D |..jD...STRINI8:=|
00000860: 24 42 34 37 44 3B D3 50 45 49 43 48 45 52 50 4C |$B47D;.PEICHERPL|
00000870: 41 54 5A 20 50 52 55 45 46 45 4E 2C 20 D3 54 52 |ATZ PRUEFEN, .TR|
00000880: 49 4E 47 50 4F 49 4E 54 45 52 20 53 45 54 5A 45 |INGPOINTER SETZE|
00000890: 4E 00 D0 6A 4E 02 2E 8F 53 54 52 4C 49 54 36 37 |N..jN...STRLIT67|
000008A0: 3A 3D 24 42 34 43 41 3B D2 45 53 54 20 44 45 52 |:=$B4CA;.EST DER|
000008B0: 20 D3 54 52 49 4E 47 4C 45 53 45 52 4F 55 54 49 | .TRINGLESEROUTI|
000008C0: 4E 45 00 FD 6A 58 02 2E 8F 4C 45 4E 31 3A 3D 24 |NE..jX...LEN1:=$|
000008D0: 42 37 38 32 3B D3 54 52 49 4E 47 4C 41 45 4E 47 |B782;.TRINGLAENG|
000008E0: 45 20 49 4E 20 D9 2D D2 45 47 49 53 54 45 52 00 |E IN .-.EGISTER.|
000008F0: 1F 6B 62 02 2E 8F 41 43 54 4F 46 43 3A 3D 24 42 |.kb...ACTOFC:=$B|
00000900: 43 33 43 3B C1 4B 4B 55 20 4E 41 43 48 20 C6 C1 |C3C;.KKU NACH ..|
00000910: C3 00 25 6B 6C 02 3B 00 5C 6B 76 02 3B 2A 2A 2A |..%kl.;.\kv.;***|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A 20 CC 41 42 45 4C 53 20 |******** .ABELS |
00000930: D6 C9 C3 2D C9 C9 2D C3 48 49 50 20 2A 2A 2A 2A |...-..-.HIP ****|
00000940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 62 |**************.b|
00000950: 6B 80 02 3B 00 80 6B 8A 02 2E 8F 52 41 4E 44 3A |k..;..k....RAND:|
00000960: 3D 24 44 30 32 30 3B D2 41 48 4D 45 4E 46 41 52 |=$D020;.AHMENFAR|
00000970: 42 45 00 86 6B 94 02 3B 00 BD 6B 9E 02 3B 2A 2A |BE..k..;..k..;**|
00000980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 CC 41 42 45 4C 53 |********* .ABELS|
00000990: 20 C3 C9 C1 2D C3 48 49 50 53 20 2A 2A 2A 2A 2A | ...-.HIPS *****|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000009B0: C3 6B A8 02 3B 00 E1 6B B2 02 2E 8F 43 49 41 31 |.k..;..k....CIA1|
000009C0: 3A 3D 24 44 43 30 30 3B D3 54 41 52 54 20 C3 C9 |:=$DC00;.TART ..|
000009D0: C1 20 31 00 08 6C BC 02 2E 8F 49 43 52 31 3A 3D |. 1..l....ICR1:=|
000009E0: 24 44 43 30 44 3B C9 D2 D1 2D CB 4F 4E 54 52 4F |$DC0D;...-.ONTRO|
000009F0: 4C 4C 52 45 47 49 53 54 45 52 00 33 6C C6 02 2E |LLREGISTER.3l...|
00000A00: 8F 43 52 41 31 3A 3D 24 44 43 30 45 3B D4 49 4D |.CRA1:=$DC0E;.IM|
00000A10: 45 52 20 C1 20 CB 4F 4E 54 52 4F 4C 4C 52 45 47 |ER . .ONTROLLREG|
00000A20: 49 53 54 45 52 00 39 6C D0 02 3B 00 5D 6C DA 02 |ISTER.9l..;.]l..|
00000A30: 2E 8F 54 4F 44 31 30 54 48 32 3A 3D 24 44 44 30 |..TOD10TH2:=$DD0|
00000A40: 38 3B 31 2F 31 30 20 D3 45 4B 55 4E 44 45 4E 00 |8;1/10 .EKUNDEN.|
00000A50: 7B 6C E4 02 2E 8F 54 4F 44 53 45 43 32 3A 3D 24 |{l....TODSEC2:=$|
00000A60: 44 44 30 39 3B D3 45 4B 55 4E 44 45 4E 00 98 6C |DD09;.EKUNDEN..l|
00000A70: EE 02 2E 8F 54 4F 44 4D 49 4E 32 3A 3D 24 44 44 |....TODMIN2:=$DD|
00000A80: 30 41 3B CD 49 4E 55 54 45 4E 00 C0 6C F8 02 2E |0A;.INUTEN..l...|
00000A90: 8F 54 4F 44 48 52 3A 3D 24 44 44 30 42 3B D3 54 |.TODHR:=$DD0B;.T|
00000AA0: 55 4E 44 45 4E 20 2B 20 C1 CD 2F D0 CD 2D C6 4C |UNDEN + ../..-.L|
00000AB0: 41 47 00 E7 6C 02 03 2E 8F 49 43 52 32 3A 3D 24 |AG..l....ICR2:=$|
00000AC0: 44 44 30 44 3B CE CD C9 2D CB 4F 4E 54 52 4F 4C |DD0D;...-.ONTROL|
00000AD0: 4C 52 45 47 49 53 54 45 52 00 12 6D 0C 03 2E 8F |LREGISTER..m....|
00000AE0: 43 52 41 32 3A 3D 24 44 44 30 45 3B D4 49 4D 45 |CRA2:=$DD0E;.IME|
00000AF0: 52 20 C1 20 CB 4F 4E 54 52 4F 4C 4C 52 45 47 49 |R . .ONTROLLREGI|
00000B00: 53 54 45 52 00 3D 6D 16 03 2E 8F 43 52 42 32 3A |STER.=m....CRB2:|
00000B10: 3D 24 44 44 30 46 3B D4 49 4D 45 52 20 C2 20 CB |=$DD0F;.IMER . .|
00000B20: 4F 4E 54 52 4F 4C 4C 52 45 47 49 53 54 45 52 00 |ONTROLLREGISTER.|
00000B30: 43 6D 20 03 3B 00 7A 6D 2A 03 3B 2A 2A 2A 2A 2A |Cm .;.zm*.;*****|
00000B40: 2A 2A 2A 2A 2A 2A 20 CC 41 42 45 4C 53 20 4F 42 |****** .ABELS OB|
00000B50: 45 52 45 53 20 D2 CF CD 20 2A 2A 2A 2A 2A 2A 2A |ERES ... *******|
00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 80 6D 34 |************..m4|
00000B70: 03 3B 00 9F 6D 3E 03 2E 8F 4E 4F 52 4D 3A 3D 24 |.;..m>...NORM:=$|
00000B80: 45 41 33 31 3B 4E 4F 52 4D 41 4C 45 52 20 C9 D2 |EA31;NORMALER ..|
00000B90: D1 00 D7 6D 48 03 2E 8F 54 41 53 54 46 4C 41 47 |...mH...TASTFLAG|
00000BA0: 3A 3D 24 46 36 42 43 3B D4 45 49 4C 20 44 45 52 |:=$F6BC;.EIL DER|
00000BB0: 20 CE CD C9 2D D2 4F 55 54 49 4E 45 20 28 4B 45 | ...-.OUTINE (KE|
00000BC0: 49 4E 20 CD 4F 44 55 4C 29 00 04 6E 52 03 2E 8F |IN .ODUL)..nR...|
00000BD0: 56 45 43 54 41 42 3A 3D 24 46 44 32 46 3B D4 41 |VECTAB:=$FD2F;.A|
00000BE0: 42 45 4C 4C 45 20 44 45 52 20 D2 CF CD 2D D6 45 |BELLE DER ...-.E|
00000BF0: 43 54 4F 52 45 4E 00 3C 6E 5C 03 2E 8F 56 45 43 |CTOREN.<n\...VEC|
00000C00: 54 41 42 37 3A 3D 24 46 44 33 35 3B CD D3 C2 20 |TAB7:=$FD35;... |
00000C10: 44 45 53 20 CE CD C9 2D D6 45 43 54 4F 52 53 20 |DES ...-.ECTORS |
00000C20: 49 4E 20 44 45 52 20 D4 41 42 45 4C 4C 45 00 7C |IN DER .ABELLE.||
00000C30: 6E 66 03 2E 8F 49 4F 52 45 53 45 54 31 39 3A 3D |nf...IORESET19:=|
00000C40: 24 46 44 42 36 3B C9 2F CF 2D D2 45 53 45 54 3A |$FDB6;./.-.ESET:|
00000C50: 20 42 45 49 20 D3 45 54 5A 45 4E 20 44 45 53 20 | BEI .ETZEN DES |
00000C60: C3 D2 C1 20 49 4D 20 C9 D2 D1 2D C3 C9 C1 00 B5 |... IM ...-.....|
00000C70: 6E 70 03 2E 8F 4E 4D 49 58 43 54 31 36 3A 3D 24 |np...NMIXCT16:=$|
00000C80: 46 45 36 43 3B CE CD C9 2D D2 4F 55 54 49 4E 45 |FE6C;...-.OUTINE|
00000C90: 20 41 42 20 D3 43 52 45 45 4E 2D C5 44 49 54 4F | AB .CREEN-.DITO|
00000CA0: 52 2D D2 45 53 45 54 00 E9 6E 7A 03 2E 8F 4E 4D |R-.ESET..nz...NM|
00000CB0: 49 52 53 32 33 32 3A 3D 24 46 45 37 32 3B CE CD |IRS232:=$FE72;..|
00000CC0: C9 2D D2 4F 55 54 49 4E 45 20 41 42 20 D2 D3 32 |.-.OUTINE AB ..2|
00000CD0: 33 32 2D C8 41 4E 44 4C 49 4E 47 00 12 6F 84 03 |32-.ANDLING..o..|
00000CE0: 2E 8F 4E 4D 49 45 4E 44 3A 3D 24 46 45 42 43 3B |..NMIEND:=$FEBC;|
00000CF0: C5 4E 44 45 20 44 45 52 20 CE CD C9 2D D2 4F 55 |.NDE DER ...-.OU|
00000D00: 54 49 4E 45 00 48 6F 8E 03 2E 8F 53 54 4F 50 3A |TINE.Ho....STOP:|
00000D10: 3D 24 46 46 45 31 3B CB 45 52 4E 41 4C 20 D3 54 |=$FFE1;.ERNAL .T|
00000D20: 4F 50 20 D3 50 52 55 4E 47 20 4E 41 43 48 20 CA |OP .PRUNG NACH .|
00000D30: CD D0 20 28 24 30 33 32 38 29 00 4E 6F 98 03 3B |.. ($0328).No..;|
00000D40: 00 85 6F A2 03 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..o..;**********|
00000D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D70: 2A 2A 2A 2A 2A 2A 2A 00 8B 6F AC 03 3B 00 91 6F |*******..o..;..o|
00000D80: B6 03 3B 00 97 6F C0 03 3B 00 9D 6F CA 03 3B 00 |..;..o..;..o..;.|
00000D90: A3 6F D4 03 3B 00 DA 6F 10 27 3B 2A 2A 2A 2A 2A |.o..;..o.';*****|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 20 C1 4B 54 49 56 49 45 52 |******* .KTIVIER|
00000DB0: 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |EN *************|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E0 6F 1A |************..o.|
00000DD0: 27 3B 00 03 70 24 27 49 4E 49 54 20 81 23 3C 28 |';..p$'INIT .#<(|
00000DE0: 55 53 52 29 3B D5 D3 D2 2D D6 45 43 54 4F 52 20 |USR);...-.ECTOR |
00000DF0: 4C 41 44 45 4E 00 11 70 2E 27 20 82 55 53 52 41 |LADEN..p.' .USRA|
00000E00: 44 44 4C 00 1F 70 38 27 20 81 23 3E 28 55 53 52 |DDL..p8' .#>(USR|
00000E10: 29 00 2D 70 42 27 20 82 55 53 52 41 44 44 48 00 |).-pB' .USRADDH.|
00000E20: 33 70 4C 27 3B 00 50 70 56 27 20 81 23 3C 28 4E |3pL';.PpV' .#<(N|
00000E30: 4D 49 29 3B CE CD C9 2D D6 45 43 54 4F 52 20 4D |MI);...-.ECTOR M|
00000E40: 49 54 00 6A 70 60 27 20 82 4E 4D 49 4E 56 4C 3B |IT.jp`' .NMINVL;|
00000E50: D3 54 41 52 54 41 44 52 45 53 53 45 00 84 70 6A |.TARTADRESSE..pj|
00000E60: 27 20 81 23 3E 28 4E 4D 49 29 3B 44 45 52 20 45 |' .#>(NMI);DER E|
00000E70: 49 47 45 4E 45 4E 00 A3 70 74 27 20 82 4E 4D 49 |IGENEN..pt' .NMI|
00000E80: 4E 56 48 3B CE CD C9 2D D2 4F 55 54 49 4E 45 20 |NVH;...-.OUTINE |
00000E90: 4C 41 44 45 4E 00 A9 70 7E 27 3B 00 C5 70 88 27 |LADEN..p~';..p.'|
00000EA0: 20 81 43 52 41 32 3B C2 49 54 20 37 20 C3 D2 C1 | .CRA2;.IT 7 ...|
00000EB0: 20 53 45 54 5A 45 4E 00 D7 70 92 27 20 8F 23 25 | SETZEN..p.' .#%|
00000EC0: 31 30 30 30 27 30 30 30 30 00 F7 70 9C 27 20 82 |1000'0000..p.' .|
00000ED0: 43 52 41 32 3B CE 45 54 5A 46 52 45 51 55 45 4E |CRA2;.ETZFREQUEN|
00000EE0: 5A 20 3D 20 35 30 20 C8 5A 00 FD 70 A6 27 3B 00 |Z = 50 .Z..p.';.|
00000EF0: 04 71 B0 27 20 A4 00 0A 71 BA 27 3B 00 10 71 C4 |.q.' ...q.';..q.|
00000F00: 27 3B 00 46 71 CE 27 3B 2A 2A 2A 2A 2A 2A 2A 2A |';.Fq.';********|
00000F10: 2A 2A 2A 20 C5 49 47 45 4E 45 20 CE CD C9 2D D2 |*** .IGENE ...-.|
00000F20: 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |OUTINE *********|
00000F30: 2A 2A 2A 2A 2A 2A 2A 2A 00 4C 71 D8 27 3B 00 71 |********.Lq.';.q|
00000F40: 71 E2 27 4E 4D 49 20 A0 3B C1 4E 46 41 4E 47 20 |q.'NMI .;.NFANG |
00000F50: 4E 4F 52 4D 41 4C 45 20 CE CD C9 2D D2 4F 55 54 |NORMALE ...-.OUT|
00000F60: 49 4E 45 00 88 71 EC 27 20 98 3B D2 45 47 49 53 |INE..q.' .;.EGIS|
00000F70: 54 45 52 20 52 45 54 54 45 4E 00 8F 71 F6 27 20 |TER RETTEN..q.' |
00000F80: A0 00 96 71 00 28 20 9A 00 9D 71 0A 28 20 A0 00 |...q.( ...q.( ..|
00000F90: A3 71 14 28 3B 00 C0 71 1E 28 20 81 23 24 37 46 |.q.(;..q.( .#$7F|
00000FA0: 3B D3 50 45 52 52 45 4E 20 41 4C 4C 45 52 20 CE |;.PERREN ALLER .|
00000FB0: CD C9 00 CB 71 28 28 20 82 49 43 52 32 00 D1 71 |....q(( .ICR2..q|
00000FC0: 32 28 3B 00 EB 71 3C 28 20 84 49 43 52 32 3B 50 |2(;..q<( .ICR2;P|
00000FD0: 52 55 45 46 45 4E 20 4F 42 20 CE CD C9 00 21 72 |RUEFEN OB ....!r|
00000FE0: 46 28 20 B1 52 45 53 54 4E 4D 49 3B 43 4F 4D 20 |F( .RESTNMI;COM |
00000FF0: C3 C9 C1 20 32 20 4B 4F 4D 4D 54 2C 20 57 45 4E |... 2 KOMMT, WEN|
00001000: 4E 20 4E 45 49 4E 2C 20 44 41 4E 4E 20 D3 50 52 |N NEIN, DANN .PR|
00001010: 55 4E 47 00 41 72 50 28 20 96 41 4C 41 52 4D 3B |UNG.ArP( .ALARM;|
00001020: 57 45 4E 4E 20 4A 41 2C 20 44 41 4E 4E 20 C1 4C |WENN JA, DANN .L|
00001030: 41 52 4D 00 74 72 5A 28 43 49 41 4E 4D 49 20 96 |ARM.trZ(CIANMI .|
00001040: 4E 4D 49 52 53 32 33 32 3B 52 45 53 54 20 44 45 |NMIRS232;REST DE|
00001050: 52 20 4E 4F 52 4D 41 4C 45 4E 20 CE CD C9 2D D2 |R NORMALEN ...-.|
00001060: 4F 55 54 49 4E 45 00 7A 72 64 28 3B 00 B0 72 6E |OUTINE.zrd(;..rn|
00001070: 28 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 C5 49 |(;*********** .I|
00001080: 47 45 4E 45 20 D2 45 53 54 4F 52 45 2D CE CD C9 |GENE .ESTORE-...|
00001090: 2D D2 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A |-.OUTINE *******|
000010A0: 2A 2A 00 B6 72 78 28 3B 00 DA 72 82 28 52 45 53 |**..rx(;..r.(RES|
000010B0: 54 4E 4D 49 20 97 54 41 53 54 46 4C 41 47 3B D4 |TNMI .TASTFLAG;.|
000010C0: 45 49 4C 20 44 45 52 20 CE CD C9 2D 00 F7 72 8C |EIL DER ...-..r.|
000010D0: 28 20 97 53 54 4F 50 3B D2 4F 55 54 49 4E 45 20 |( .STOP;.OUTINE |
000010E0: 5A 55 52 20 D3 D4 CF D0 2D 00 13 73 96 28 20 B7 |ZUR ....-..s.( .|
000010F0: 43 49 41 4E 4D 49 3B D4 41 53 54 45 4E 2D C1 42 |CIANMI;.ASTEN-.B|
00001100: 46 52 41 47 45 00 19 73 A0 28 3B 00 3A 73 AA 28 |FRAGE..s.(;.:s.(|
00001110: 20 83 23 24 30 34 3B C9 D2 D1 2D 20 55 4E 44 20 | .#$04;...- UND |
00001120: C2 D2 CB 2D D6 45 43 54 4F 52 45 4E 00 5C 73 B4 |...-.ECTOREN.\s.|
00001130: 28 55 4D 4C 41 44 31 20 81 56 45 43 54 41 42 2C |(UMLAD1 .VECTAB,|
00001140: 58 3B 52 45 53 54 41 55 52 49 45 52 45 4E 00 69 |X;RESTAURIEREN.i|
00001150: 73 BE 28 20 82 46 52 45 49 2C 58 00 70 73 C8 28 |s.( .FREI,X.ps.(|
00001160: 20 AF 00 7D 73 D2 28 20 B7 55 4D 4C 41 44 31 00 | ..}s.( .UMLAD1.|
00001170: 83 73 DC 28 3B 00 9F 73 E6 28 20 83 23 24 31 41 |.s.(;..s.( .#$1A|
00001180: 3B 52 45 53 54 41 55 52 49 45 52 45 4E 20 44 45 |;RESTAURIEREN DE|
00001190: 52 00 C0 73 F0 28 55 4D 4C 41 44 32 20 81 56 45 |R..s.(UMLAD2 .VE|
000011A0: 43 54 41 42 37 2C 58 3B 52 45 53 54 4C 49 43 48 |CTAB7,X;RESTLICH|
000011B0: 45 4E 00 D8 73 FA 28 20 82 4E 4D 49 4E 56 48 2C |EN..s.( .NMINVH,|
000011C0: 58 3B D6 45 43 54 4F 52 45 4E 00 DF 73 04 29 20 |X;.ECTOREN..s.) |
000011D0: AF 00 EC 73 0E 29 20 B7 55 4D 4C 41 44 32 00 F2 |...s.) .UMLAD2..|
000011E0: 73 18 29 3B 00 0B 74 22 29 20 81 23 24 37 46 3B |s.);..t") .#$7F;|
000011F0: 53 50 45 52 52 45 4E 20 41 4C 4C 45 52 00 1A 74 |SPERREN ALLER..t|
00001200: 2C 29 20 82 49 43 52 31 3B C9 D2 D1 00 29 74 36 |,) .ICR1;....)t6|
00001210: 29 20 82 49 43 52 32 3B CE CD C9 00 58 74 40 29 |) .ICR2;....Xt@)|
00001220: 20 82 43 49 41 31 3B C4 41 54 45 4E 52 45 47 49 | .CIA1;.ATENREGI|
00001230: 53 54 45 52 20 D0 4F 52 54 20 C1 20 41 55 46 20 |STER .ORT . AUF |
00001240: CE 4F 52 4D 41 4C 57 45 52 54 00 6B 74 4A 29 20 |.ORMALWERT.ktJ) |
00001250: 81 23 24 30 38 3B D4 49 4D 45 52 20 C1 00 7E 74 |.#$08;.IMER ..~t|
00001260: 54 29 20 82 43 52 41 31 3B 49 4D 20 C3 C9 C1 31 |T) .CRA1;IM ...1|
00001270: 00 84 74 5E 29 3B 00 A0 74 68 29 20 81 23 24 38 |..t^);..th) .#$8|
00001280: 38 3B D4 49 4D 45 52 20 C1 20 49 4D 20 C3 C9 C1 |8;.IMER . IM ...|
00001290: 32 3A 00 BC 74 72 29 20 82 43 52 41 32 3B 20 20 |2:..tr) .CRA2; |
000012A0: C2 49 54 20 30 20 41 55 46 20 D3 54 4F 50 00 F2 |.IT 0 AUF .TOP..|
000012B0: 74 7C 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 |t|); |
000012C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012D0: C2 49 54 20 33 20 41 55 46 20 C5 49 4E 5A 45 4C |.IT 3 AUF .INZEL|
000012E0: 4C 41 55 46 00 28 75 86 29 3B 20 20 20 20 20 20 |LAUF.(u.); |
000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001300: 20 20 20 20 20 20 C2 49 54 20 35 20 D3 59 53 54 | .IT 5 .YST|
00001310: 45 4D 54 41 4B 54 20 45 49 4E 00 63 75 90 29 3B |EMTAKT EIN.cu.);|
00001320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001330: 20 20 20 20 20 20 20 20 20 20 20 20 C2 49 54 20 | .IT |
00001340: 37 20 C5 43 48 54 5A 45 49 54 55 48 52 20 3D 20 |7 .CHTZEITUHR = |
00001350: 35 30 20 C8 5A 00 69 75 9A 29 3B 00 74 75 A4 29 |50 .Z.iu.);.tu.)|
00001360: 20 81 23 24 30 38 00 84 75 AE 29 20 97 49 4F 52 | .#$08..u.) .IOR|
00001370: 45 53 45 54 31 39 00 8A 75 B8 29 3B 00 BF 75 C2 |ESET19..u.);..u.|
00001380: 29 20 96 4E 4D 49 58 43 54 31 36 3B D2 45 53 54 |) .NMIXCT16;.EST|
00001390: 20 44 45 52 20 4E 4F 52 4D 41 4C 45 4E 20 D2 45 | DER NORMALEN .E|
000013A0: 53 54 4F 52 45 2D CE CD C9 2D D2 4F 55 54 49 4E |STORE-...-.OUTIN|
000013B0: 45 00 C5 75 CC 29 3B 00 CB 75 D6 29 3B 00 D1 75 |E..u.);..u.);..u|
000013C0: E0 29 3B 00 0A 76 EA 29 3B 2A 2A 2A 2A 2A 2A 2A |.);..v.);*******|
000013D0: 20 C1 42 53 43 48 41 4C 54 45 4E 20 44 45 52 20 | .BSCHALTEN DER |
000013E0: D4 49 4D 45 20 4F 46 20 C4 41 59 20 D5 48 52 20 |.IME OF .AY .HR |
000013F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 10 76 F4 |************..v.|
00001400: 29 3B 00 31 76 FE 29 41 55 53 20 81 23 3C 28 49 |);.1v.)AUS .#<(I|
00001410: 4C 4C 51 55 45 52 52 29 3B D5 D3 D2 2D D6 45 43 |LLQUERR);...-.EC|
00001420: 54 4F 52 00 4E 76 08 2A 20 82 55 53 52 41 44 44 |TOR.Nv.* .USRADD|
00001430: 4C 3B 41 55 46 20 CE 4F 52 4D 41 4C 57 45 52 54 |L;AUF .ORMALWERT|
00001440: 00 61 76 12 2A 20 81 23 3E 28 49 4C 4C 51 55 45 |.av.* .#>(ILLQUE|
00001450: 52 52 29 00 6F 76 1C 2A 20 82 55 53 52 41 44 44 |RR).ov.* .USRADD|
00001460: 48 00 75 76 26 2A 3B 00 7C 76 30 2A 20 A9 00 98 |H.uv&*;.|v0* ...|
00001470: 76 3A 2A 20 81 23 24 34 37 3B 52 45 53 54 41 55 |v:* .#$47;RESTAU|
00001480: 52 49 45 52 45 4E 20 44 45 53 00 B1 76 44 2A 20 |RIEREN DES..vD* |
00001490: 82 4E 4D 49 4E 56 4C 3B CE CD C9 2D D6 45 43 54 |.NMINVL;...-.ECT|
000014A0: 4F 52 53 00 BC 76 4E 2A 20 81 23 24 46 45 00 C9 |ORS..vN* .#$FE..|
000014B0: 76 58 2A 20 82 4E 4D 49 4E 56 48 00 CF 76 62 2A |vX* .NMINVH..vb*|
000014C0: 3B 00 EF 76 6C 2A 20 81 23 3C 28 4E 4F 52 4D 29 |;..vl* .#<(NORM)|
000014D0: 3B 52 45 53 54 41 55 52 49 45 52 45 4E 20 44 45 |;RESTAURIEREN DE|
000014E0: 53 00 07 77 76 2A 20 82 49 52 51 56 4C 3B C9 D2 |S..wv* .IRQVL;..|
000014F0: D1 2D D6 45 43 54 4F 52 53 00 16 77 80 2A 20 81 |.-.ECTORS..w.* .|
00001500: 23 3E 28 4E 4F 52 4D 29 00 22 77 8A 2A 20 82 49 |#>(NORM)."w.* .I|
00001510: 52 51 56 48 00 28 77 94 2A 3B 00 2F 77 9E 2A 20 |RQVH.(w.*;./w.* |
00001520: A8 00 36 77 A8 2A 20 A4 00 3C 77 B2 2A 3B 00 42 |..6w.* ..<w.*;.B|
00001530: 77 BC 2A 3B 00 48 77 C6 2A 3B 00 81 77 D0 2A 3B |w.*;.Hw.*;..w.*;|
00001540: 2A 2A 2A 2A 2A 2A 2A 20 44 55 52 43 48 20 D5 D3 |******* DURCH ..|
00001550: D2 20 41 55 46 52 55 46 42 41 52 45 20 D2 4F 55 |. AUFRUFBARE .OU|
00001560: 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TINE ***********|
00001570: 2A 2A 2A 00 87 77 DA 2A 3B 00 B7 77 E4 2A 55 53 |***..w.*;..w.*US|
00001580: 52 20 8D 56 41 4C 54 59 50 3B 57 45 4C 43 48 45 |R .VALTYP;WELCHE|
00001590: 52 20 D6 41 52 49 41 42 4C 45 4E 2D D4 59 50 20 |R .ARIABLEN-.YP |
000015A0: 4C 49 45 47 54 20 56 4F 52 00 E4 77 EE 2A 20 B2 |LIEGT VOR..w.* .|
000015B0: 53 54 52 49 4E 47 3B 57 45 4E 4E 20 D3 54 52 49 |STRING;WENN .TRI|
000015C0: 4E 47 2C 20 44 41 4E 4E 20 55 45 42 45 52 53 50 |NG, DANN UEBERSP|
000015D0: 52 49 4E 47 45 4E 00 FF 77 F8 2A 20 96 5A 41 48 |RINGEN..w.* .ZAH|
000015E0: 4C 56 41 52 3B 53 4F 4E 53 54 20 D3 50 52 55 4E |LVAR;SONST .PRUN|
000015F0: 47 00 05 78 02 2B 3B 00 0B 78 0C 2B 3B 00 11 78 |G..x.+;..x.+;..x|
00001600: 16 2B 3B 00 4A 78 20 2B 3B 2A 2A 2A 2A 2A 2A 2A |.+;.Jx +;*******|
00001610: 20 D3 54 45 4C 4C 45 4E 20 44 45 52 20 C5 43 48 | .TELLEN DER .CH|
00001620: 54 5A 45 49 54 55 48 52 20 2A 2A 2A 2A 2A 2A 2A |TZEITUHR *******|
00001630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 50 78 2A |************.Px*|
00001640: 2B 3B 00 70 78 34 2B 53 54 52 49 4E 47 20 97 4C |+;.px4+STRING .L|
00001650: 45 4E 31 3B 59 3D D3 54 52 49 4E 47 4C 41 45 4E |EN1;Y=.TRINGLAEN|
00001660: 47 45 00 8D 78 3E 2B 20 93 23 24 30 37 3B D3 54 |GE..x>+ .#$07;.T|
00001670: 52 49 4E 47 3D 37 20 DA 45 49 43 48 45 4E 3F 00 |RING=7 .EICHEN?.|
00001680: B2 78 48 2B 20 B7 41 4C 53 45 54 3B 4E 45 49 4E |.xH+ .ALSET;NEIN|
00001690: 2C 20 44 41 4E 4E 20 C1 4C 41 52 4D 20 53 54 45 |, DANN .LARM STE|
000016A0: 4C 4C 45 4E 00 B8 78 52 2B 3B 00 D4 78 5C 2B 20 |LLEN..xR+;..x\+ |
000016B0: 81 43 52 42 32 3B D4 49 4D 45 52 20 C2 20 49 4D |.CRB2;.IMER . IM|
000016C0: 20 C3 C9 C1 20 32 00 EE 78 66 2B 20 87 23 24 37 | ... 2..xf+ .#$7|
000016D0: 46 3B C2 49 54 20 37 20 4C 4F 45 53 43 48 45 4E |F;.IT 7 LOESCHEN|
000016E0: 00 09 79 70 2B 20 82 43 52 42 32 3B 4E 4F 52 4D |..yp+ .CRB2;NORM|
000016F0: 41 4C 45 20 D5 48 52 5A 45 49 54 00 0F 79 7A 2B |ALE .HRZEIT..yz+|
00001700: 3B 00 15 79 84 2B 3B 00 1B 79 8E 2B 3B 00 54 79 |;..y.+;..y.+;.Ty|
00001710: 98 2B 3B 2A 2A 2A 2A 2A 2A 2A 20 C1 55 53 4C 45 |.+;******* .USLE|
00001720: 53 45 4E 20 44 45 53 20 DA 45 49 54 2D D3 54 52 |SEN DES .EIT-.TR|
00001730: 49 4E 47 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |INGS ***********|
00001740: 2A 2A 2A 2A 2A 2A 00 5A 79 A2 2B 3B 00 76 79 AC |******.Zy.+;.vy.|
00001750: 2B 20 84 23 24 30 30 3B DA 41 45 48 4C 45 52 20 |+ .#$00;.AEHLER |
00001760: 41 55 46 20 CE 55 4C 4C 00 9D 79 B6 2B 53 54 45 |AUF .ULL..y.+STE|
00001770: 4C 4C 45 4E 20 81 23 24 32 34 3B C2 C3 C4 20 32 |LLEN .#$24;... 2|
00001780: 34 20 D3 54 44 2D D6 45 52 47 4C 45 49 43 48 00 |4 .TD-.ERGLEICH.|
00001790: CC 79 C0 2B 20 97 41 53 43 42 43 44 3B DA 45 49 |.y.+ .ASCBCD;.EI|
000017A0: 43 48 45 4E 54 45 53 54 20 55 4E 44 20 D5 4D 57 |CHENTEST UND .MW|
000017B0: 41 4E 44 4C 55 4E 47 20 49 4E 20 C2 C3 C4 00 D5 |ANDLUNG IN .....|
000017C0: 79 CA 2B 20 85 23 30 00 04 7A D4 2B 20 B7 53 54 |y.+ .#0..z.+ .ST|
000017D0: 44 31 32 3B D3 54 55 4E 44 45 4E 20 55 4E 47 4C |D12;.TUNDEN UNGL|
000017E0: 45 49 43 48 20 4E 55 4C 4C 2C 20 44 41 4E 4E 20 |EICH NULL, DANN |
000017F0: D3 50 52 55 4E 47 00 1E 7A DE 2B 20 81 23 24 32 |.PRUNG..z.+ .#$2|
00001800: 34 3B 53 4F 4E 53 54 20 3D 20 C2 C3 C4 20 32 34 |4;SONST = ... 24|
00001810: 00 47 7A E8 2B 53 54 44 31 32 20 85 23 24 31 33 |.Gz.+STD12 .#$13|
00001820: 3B D3 54 55 4E 44 45 4E 20 47 52 4F 45 53 53 45 |;.TUNDEN GROESSE|
00001830: 52 20 41 4C 53 20 31 32 3F 00 66 7A F2 2B 20 B5 |R ALS 12?.fz.+ .|
00001840: 53 54 44 53 45 54 3B 4E 45 49 4E 2C 20 44 41 4E |STDSET;NEIN, DAN|
00001850: 4E 20 D3 50 52 55 4E 47 00 83 7A FC 2B 50 4D 31 |N .PRUNG..z.+PM1|
00001860: 20 AC 3B 53 4F 4E 53 54 20 44 41 56 4F 4E 20 C2 | .;SONST DAVON .|
00001870: C3 C4 20 31 32 00 97 7A 06 2C 20 A7 3B 53 55 42 |.. 12..z., .;SUB|
00001880: 54 52 41 48 49 45 52 45 4E 00 A6 7A 10 2C 20 92 |TRAHIEREN..z., .|
00001890: 23 24 31 32 3B 55 4E 44 00 AD 7A 1A 2C 20 AB 00 |#$12;UND..z., ..|
000018A0: C7 7A 24 2C 50 4D 20 8F 23 24 38 30 3B C2 49 54 |.z$,PM .#$80;.IT|
000018B0: 20 37 20 53 45 54 5A 45 4E 00 CD 7A 2E 2C 3B 00 | 7 SETZEN..z.,;.|
000018C0: 06 7B 38 2C 53 54 44 53 45 54 20 82 54 4F 44 48 |.{8,STDSET .TODH|
000018D0: 52 3B C2 C3 C4 2D D3 54 55 4E 44 45 4E 20 55 4E |R;...-.TUNDEN UN|
000018E0: 44 20 C1 CD 2F D0 CD 2D C6 4C 41 47 20 49 4E 20 |D ../..-.LAG IN |
000018F0: D4 CF C4 2D C3 C9 C1 32 00 0C 7B 42 2C 3B 00 3C |...-...2..{B,;.<|
00001900: 7B 4C 2C 20 97 41 53 43 42 43 44 31 3B DA 45 49 |{L, .ASCBCD1;.EI|
00001910: 43 48 45 4E 54 45 53 54 20 55 4E 44 20 D5 4D 57 |CHENTEST UND .MW|
00001920: 41 4E 44 4C 55 4E 47 20 49 4E 20 C2 C3 C4 00 6A |ANDLUNG IN ....j|
00001930: 7B 56 2C 20 82 54 4F 44 4D 49 4E 32 3B C5 52 47 |{V, .TODMIN2;.RG|
00001940: 45 42 4E 49 53 20 49 4E 20 D4 CF C4 2D CD 49 4E |EBNIS IN ...-.IN|
00001950: 55 54 45 4E 52 45 47 49 53 54 45 52 00 70 7B 60 |UTENREGISTER.p{`|
00001960: 2C 3B 00 8C 7B 6A 2C 20 97 41 53 43 42 43 44 31 |,;..{j, .ASCBCD1|
00001970: 3B 44 41 53 53 45 4C 42 45 20 46 55 45 52 00 A3 |;DASSELBE FUER..|
00001980: 7B 74 2C 20 82 54 4F 44 53 45 43 32 3B D3 45 4B |{t, .TODSEC2;.EK|
00001990: 55 4E 44 45 4E 00 A9 7B 7E 2C 3B 00 D3 7B 88 2C |UNDEN..{~,;..{.,|
000019A0: 20 97 54 45 53 54 3B 50 52 55 45 46 45 4E 2C 20 | .TEST;PRUEFEN, |
000019B0: 4F 42 20 31 2F 31 30 20 D3 45 4B 55 4E 44 45 4E |OB 1/10 .EKUNDEN|
000019C0: 3D DA 41 48 4C 00 F7 7B 92 2C 20 82 54 4F 44 31 |=.AHL..{., .TOD1|
000019D0: 30 54 48 32 3B 55 4E 44 20 49 4E 53 20 D4 CF C4 |0TH2;UND INS ...|
000019E0: 2D D2 45 47 49 53 54 45 52 00 FD 7B 9C 2C 3B 00 |-.EGISTER..{.,;.|
000019F0: 16 7C A6 2C 20 81 23 30 3B CB 45 4E 4E 55 4E 47 |.|., .#0;.ENNUNG|
00001A00: 20 46 55 45 52 20 CF CB 00 4E 7C B0 2C 41 4B 4B | FUER ...N|.,AKK|
00001A10: 55 46 41 43 20 96 41 43 54 4F 46 43 3B C1 4B 4B |UFAC .ACTOFC;.KK|
00001A20: 55 20 5A 55 52 20 D5 45 42 45 52 47 41 42 45 20 |U ZUR .EBERGABE |
00001A30: 49 4E 53 20 C2 41 53 49 43 20 49 4E 20 C6 C1 C3 |INS .ASIC IN ...|
00001A40: 00 54 7C BA 2C 3B 00 5A 7C C4 2C 3B 00 60 7C CE |.T|.,;.Z|.,;.`|.|
00001A50: 2C 3B 00 9B 7C D8 2C 3B 2A 2A 2A 2A 2A 2A 2A 2A |,;..|.,;********|
00001A60: 2A 2A 20 C6 45 48 4C 45 52 20 41 55 46 47 45 54 |** .EHLER AUFGET|
00001A70: 52 45 54 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |RETEN **********|
00001A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A1 7C |*************..||
00001A90: E2 2C 3B 00 BF 7C EC 2C 46 45 48 4C 45 52 20 A1 |.,;..|.,FEHLER .|
00001AA0: 3B 4A 53 52 2D C1 44 52 45 53 53 45 4E 20 56 4F |;JSR-.DRESSEN VO|
00001AB0: 4D 00 D3 7C F6 2C 20 A1 3B D3 54 41 50 45 4C 20 |M..|., .;.TAPEL |
00001AC0: 48 4F 4C 45 4E 00 D9 7C 00 2D 3B 00 E5 7C 0A 2D |HOLEN..|.-;..|.-|
00001AD0: 45 52 52 4F 52 20 A1 00 EC 7C 14 2D 20 A1 00 F2 |ERROR ...|.- ...|
00001AE0: 7C 1E 2D 3B 00 14 7D 28 2D 45 52 52 4F 52 31 20 ||.-;..}(-ERROR1 |
00001AF0: 81 23 24 46 46 3B C6 45 48 4C 45 52 4B 45 4E 4E |.#$FF;.EHLERKENN|
00001B00: 55 4E 47 20 49 4E 00 2F 7D 32 2D 20 B7 41 4B 4B |UNG IN./}2- .AKK|
00001B10: 55 46 41 43 3B C1 4B 4B 55 20 55 4E 44 20 C6 C1 |UFAC;.KKU UND ..|
00001B20: C3 00 35 7D 3C 2D 3B 00 3B 7D 46 2D 3B 00 41 7D |..5}<-;.;}F-;.A}|
00001B30: 50 2D 3B 00 7C 7D 5A 2D 3B 2A 2A 2A 2A 2A 2A 2A |P-;.|}Z-;*******|
00001B40: 2A 2A 2A 20 C1 4C 41 52 4D 5A 45 49 54 20 45 49 |*** .LARMZEIT EI|
00001B50: 4E 4C 45 53 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |NLESEN *********|
00001B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 82 |**************..|
00001B70: 7D 64 2D 3B 00 9F 7D 6E 2D 41 4C 53 45 54 20 93 |}d-;..}n-ALSET .|
00001B80: 23 24 30 38 3B 20 38 20 DA 45 49 43 48 45 4E 20 |#$08; 8 .EICHEN |
00001B90: 3F 00 BA 7D 78 2D 20 B7 45 52 52 4F 52 31 3B 4E |?..}x- .ERROR1;N|
00001BA0: 45 49 4E 20 3D 20 C6 45 48 4C 45 52 00 C0 7D 82 |EIN = .EHLER..}.|
00001BB0: 2D 3B 00 D4 7D 8C 2D 20 81 43 52 42 32 3B C1 4C |-;..}.- .CRB2;.L|
00001BC0: 41 52 4D 42 49 54 00 ED 7D 96 2D 20 8F 23 25 31 |ARMBIT..}.- .#%1|
00001BD0: 30 30 30 27 30 30 30 30 3B 53 45 54 5A 45 4E 00 |000'0000;SETZEN.|
00001BE0: F8 7D A0 2D 20 82 43 52 42 32 00 FE 7D AA 2D 3B |.}.- .CRB2..}.-;|
00001BF0: 00 1A 7E B4 2D 20 81 23 25 31 30 30 30 27 30 31 |..~.- .#%1000'01|
00001C00: 30 30 3B C1 4C 41 52 4D 2D CE CD C9 00 2E 7E BE |00;.LARM-.....~.|
00001C10: 2D 20 82 49 43 52 32 3B 5A 55 4C 41 53 53 45 4E |- .ICR2;ZULASSEN|
00001C20: 00 34 7E C8 2D 3B 00 4E 7E D2 2D 20 81 23 24 33 |.4~.-;.N~.- .#$3|
00001C30: 43 3B D6 45 52 5A 4F 45 47 45 52 55 4E 47 53 2D |C;.ERZOEGERUNGS-|
00001C40: 00 67 7E DC 2D 20 82 56 4F 52 57 3B D7 45 52 54 |.g~.- .VORW;.ERT|
00001C50: 20 56 4F 52 47 45 42 45 4E 00 72 7E E6 2D 20 82 | VORGEBEN.r~.- .|
00001C60: 56 45 52 5A 00 86 7E F0 2D 20 81 23 24 46 46 3B |VERZ..~.- .#$FF;|
00001C70: C5 CF D2 2D D7 45 52 54 00 9A 7E FA 2D 20 82 46 |...-.ERT..~.- .F|
00001C80: 41 52 42 3B 56 4F 52 47 45 42 45 4E 00 BA 7E 04 |ARB;VORGEBEN..~.|
00001C90: 2E 20 84 23 24 30 31 3B C2 55 43 48 53 54 41 42 |. .#$01;.UCHSTAB|
00001CA0: 45 20 55 45 42 45 52 4C 45 53 45 4E 00 C0 7E 0E |E UEBERLESEN..~.|
00001CB0: 2E 3B 00 D9 7E 18 2E 20 81 23 24 32 34 3B C2 C3 |.;..~.. .#$24;..|
00001CC0: C4 20 32 34 20 C7 52 45 4E 5A 45 00 F8 7E 22 2E |. 24 .RENZE..~".|
00001CD0: 20 97 41 53 43 42 43 44 3B D5 4D 57 41 4E 44 4C | .ASCBCD;.MWANDL|
00001CE0: 55 4E 47 20 49 4E 20 C2 C3 C4 00 01 7F 2C 2E 20 |UNG IN ......,. |
00001CF0: 85 23 30 00 2C 7F 36 2E 20 B7 41 4C 31 32 3B D3 |.#0.,.6. .AL12;.|
00001D00: 54 55 4E 44 45 4E 20 55 4E 47 4C 45 49 43 48 20 |TUNDEN UNGLEICH |
00001D10: 30 2C 20 44 41 4E 4E 20 D3 50 52 55 4E 47 00 42 |0, DANN .PRUNG.B|
00001D20: 7F 40 2E 20 81 23 24 31 32 3B 53 4F 4E 53 54 20 |.@. .#$12;SONST |
00001D30: 3D 20 31 32 00 4F 7F 4A 2E 20 B7 53 54 44 53 45 |= 12.O.J. .STDSE|
00001D40: 54 00 5E 7F 54 2E 41 4C 31 32 20 85 23 24 31 32 |T.^.T.AL12 .#$12|
00001D50: 00 89 7F 5E 2E 20 B8 50 4D 3B 47 4C 45 49 43 48 |...^. .PM;GLEICH|
00001D60: 20 31 32 2C 20 44 41 4E 4E 20 C1 CD 2F D0 CD 2D | 12, DANN ../..-|
00001D70: C6 4C 41 47 20 53 45 54 5A 45 4E 00 AB 7F 68 2E |.LAG SETZEN...h.|
00001D80: 20 B5 53 54 44 53 45 54 3B 4B 4C 45 49 4E 45 52 | .STDSET;KLEINER|
00001D90: 31 32 2C 44 41 4E 4E D3 50 52 55 4E 47 00 CE 7F |12,DANN.PRUNG...|
00001DA0: 72 2E 20 B6 50 4D 31 3B 47 52 4F 45 53 53 45 52 |r. .PM1;GROESSER|
00001DB0: 20 31 32 2C 20 44 41 4E 4E 20 D3 50 52 55 4E 47 | 12, DANN .PRUNG|
00001DC0: 00 D4 7F 7C 2E 3B 00 DA 7F 86 2E 3B 00 E0 7F 90 |...|.;.....;....|
00001DD0: 2E 3B 00 1B 80 9A 2E 3B 2A 2A 2A 2A 2A 2A 2A 2A |.;.....;********|
00001DE0: 2A 20 D5 4D 57 41 4E 44 4C 55 4E 47 20 C1 D3 C3 |* .MWANDLUNG ...|
00001DF0: C9 C9 20 49 4E 20 C2 C3 C4 20 2A 2A 2A 2A 2A 2A |.. IN ... ******|
00001E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 21 80 |*************.!.|
00001E10: A4 2E 3B 00 53 80 AE 2E 41 53 43 42 43 44 31 20 |..;.S...ASCBCD1 |
00001E20: 81 23 24 36 30 3B C2 C3 C4 20 36 30 20 41 4C 53 |.#$60;... 60 ALS|
00001E30: 20 C7 52 45 4E 5A 45 20 46 55 45 52 20 D0 52 55 | .RENZE FUER .RU|
00001E40: 45 46 55 4E 47 00 59 80 B8 2E 3B 00 6C 80 C2 2E |EFUNG.Y...;.l...|
00001E50: 41 53 43 42 43 44 20 82 49 4E 44 45 58 33 00 89 |ASCBCD .INDEX3..|
00001E60: 80 CC 2E 20 97 54 45 53 54 31 3B 50 52 55 45 46 |... .TEST1;PRUEF|
00001E70: 45 4E 2C 20 4F 42 20 DA 41 48 4C 00 9F 80 D6 2E |EN, OB .AHL.....|
00001E80: 20 8C 3B 55 4E 54 45 52 45 4E 20 CE 49 42 42 4C | .;UNTEREN .IBBL|
00001E90: 45 00 B0 80 E0 2E 20 8C 3B 4E 41 43 48 20 4F 42 |E..... .;NACH OB|
00001EA0: 45 4E 00 B7 80 EA 2E 20 8C 00 BE 80 F4 2E 20 8C |EN..... ...... .|
00001EB0: 00 E1 80 FE 2E 20 82 49 4E 44 45 58 34 3B 55 4E |..... .INDEX4;UN|
00001EC0: 44 20 5A 57 49 53 43 48 45 4E 53 50 45 49 43 48 |D ZWISCHENSPEICH|
00001ED0: 45 52 4E 00 FB 80 08 2F 20 97 54 45 53 54 31 3B |ERN..../ .TEST1;|
00001EE0: 4E 41 45 43 48 53 54 45 20 5A 41 48 4C 00 1B 81 |NAECHSTE ZAHL...|
00001EF0: 12 2F 20 8F 49 4E 44 45 58 34 3B 42 45 49 44 45 |./ .INDEX4;BEIDE|
00001F00: 20 CE 49 42 42 4C 45 20 4F 44 45 52 4E 00 39 81 | .IBBLE ODERN.9.|
00001F10: 1C 2F 20 85 49 4E 44 45 58 33 3B 55 4E 54 45 52 |./ .INDEX3;UNTER|
00001F20: 20 C7 52 45 4E 5A 57 45 52 54 3F 00 53 81 26 2F | .RENZWERT?.S.&/|
00001F30: 20 B6 45 52 52 4F 52 3B 4E 45 49 4E 20 3D 20 C6 | .ERROR;NEIN = .|
00001F40: 45 48 4C 45 52 00 59 81 30 2F 3B 00 60 81 3A 2F |EHLER.Y.0/;.`.:/|
00001F50: 20 A4 00 66 81 44 2F 3B 00 6C 81 4E 2F 3B 00 72 | ..f.D/;.l.N/;.r|
00001F60: 81 58 2F 3B 00 AD 81 62 2F 3B 2A 2A 2A 2A 2A 2A |.X/;...b/;******|
00001F70: 2A 2A 2A 20 D0 52 55 45 46 55 4E 47 20 4F 42 20 |*** .RUEFUNG OB |
00001F80: C1 D3 C3 C9 C9 2D DA 41 48 4C 20 2A 2A 2A 2A 2A |.....-.AHL *****|
00001F90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001FA0: B3 81 6C 2F 3B 00 D8 81 76 2F 54 45 53 54 31 20 |..l/;...v/TEST1 |
00001FB0: 81 28 49 4E 44 45 58 29 2C 59 3B DA 45 49 43 48 |.(INDEX),Y;.EICH|
00001FC0: 45 4E 20 49 4E 20 C1 4B 4B 55 00 DF 81 80 2F 20 |EN IN .KKU..../ |
00001FD0: A7 00 F6 81 8A 2F 20 92 23 24 33 30 3B 3C 20 C1 |...../ .#$30;< .|
00001FE0: D3 C3 C9 C9 20 30 20 3F 00 0F 82 94 2F 20 B5 46 |.... 0 ?..../ .F|
00001FF0: 45 48 4C 45 52 3B 4A 41 20 3D 20 C6 45 48 4C 45 |EHLER;JA = .EHLE|
00002000: 52 00 15 82 9E 2F 3B 00 2D 82 A8 2F 20 85 23 24 |R..../;.-../ .#$|
00002010: 30 41 3B 3E 3D 20 C1 D3 C3 C9 C9 20 3A 20 3F 00 |0A;>= ..... : ?.|
00002020: 46 82 B2 2F 20 B6 46 45 48 4C 45 52 3B 4A 41 20 |F../ .FEHLER;JA |
00002030: 3D 20 C6 45 48 4C 45 52 00 67 82 BC 2F 20 9E 3B |= .EHLER.g../ .;|
00002040: D3 43 48 4C 45 49 46 45 4E 5A 41 45 48 4C 45 52 |.CHLEIFENZAEHLER|
00002050: 20 45 52 48 4F 45 48 45 4E 00 6E 82 C6 2F 20 A4 | ERHOEHEN.n../ .|
00002060: 00 74 82 D0 2F 3B 00 7A 82 DA 2F 3B 00 80 82 E4 |.t../;.z../;....|
00002070: 2F 3B 00 BB 82 EE 2F 3B 2A 2A 2A 2A 2A 2A 2A 2A |/;..../;********|
00002080: 2A 20 D5 48 52 20 4C 45 53 45 4E 20 2A 2A 2A 2A |* .HR LESEN ****|
00002090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C1 82 |*************...|
000020B0: F8 2F 3B 00 E0 82 02 30 5A 41 48 4C 56 41 52 20 |./;....0ZAHLVAR |
000020C0: 81 23 24 30 37 3B D3 54 52 49 4E 47 4C 41 45 4E |.#$07;.TRINGLAEN|
000020D0: 47 45 00 0F 83 0C 30 20 97 53 54 52 49 4E 49 38 |GE....0 .STRINI8|
000020E0: 3B D3 43 48 41 46 46 54 20 37 20 C2 59 54 45 20 |;.CHAFFT 7 .YTE |
000020F0: D0 4C 41 54 5A 20 46 55 45 52 20 D3 54 52 49 4E |.LATZ FUER .TRIN|
00002100: 47 00 28 83 16 30 20 84 23 24 30 30 3B DA 41 45 |G.(..0 .#$00;.AE|
00002110: 48 4C 45 52 20 41 55 46 20 30 00 44 83 20 30 20 |HLER AUF 0.D. 0 |
00002120: 81 54 4F 44 48 52 3B D3 54 55 4E 44 45 20 41 55 |.TODHR;.TUNDE AU|
00002130: 53 4C 45 53 45 4E 00 64 83 2A 30 20 AE 3B D3 54 |SLESEN.d.*0 .;.T|
00002140: 41 54 55 53 20 5A 57 49 53 43 48 45 4E 53 50 45 |ATUS ZWISCHENSPE|
00002150: 49 43 48 45 52 4E 00 6A 83 34 30 3B 00 8D 83 3E |ICHERN.j.40;...>|
00002160: 30 20 87 23 24 31 46 3B 4C 4F 45 53 43 48 45 4E |0 .#$1F;LOESCHEN|
00002170: 20 44 45 53 20 C1 CD 2F D0 CD 2D C6 4C 41 47 00 | DES ../..-.LAG.|
00002180: A3 83 48 30 20 85 23 24 31 32 3B 3D 20 C2 C3 C4 |..H0 .#$12;= ...|
00002190: 20 31 32 20 3F 00 C4 83 52 30 20 B7 4E 4F 31 32 | 12 ?...R0 .NO12|
000021A0: 3B 55 4E 47 4C 45 49 43 48 2C 20 44 41 4E 4E 20 |;UNGLEICH, DANN |
000021B0: D3 50 52 55 4E 47 00 E3 83 5C 30 20 81 23 24 30 |.PRUNG...\0 .#$0|
000021C0: 30 3B 53 4F 4E 53 54 20 53 54 41 54 54 44 45 53 |0;SONST STATTDES|
000021D0: 53 45 4E 20 30 00 E9 83 66 30 3B 00 08 84 70 30 |SEN 0...f0;...p0|
000021E0: 4E 4F 31 32 20 9F 3B 53 54 41 54 55 53 20 5A 55 |NO12 .;STATUS ZU|
000021F0: 52 55 45 43 4B 48 4F 4C 45 4E 00 32 84 7A 30 20 |RUECKHOLEN.2.z0 |
00002200: B1 41 4D 3B D3 50 52 55 4E 47 2C 20 57 45 4E 4E |.AM;.PRUNG, WENN|
00002210: 20 C1 CD 2F D0 CD 20 4E 49 43 48 54 20 47 45 53 | ../.. NICHT GES|
00002220: 45 54 5A 54 00 38 84 84 30 3B 00 4E 84 8E 30 20 |ETZT.8..0;.N..0 |
00002230: AC 3B 53 4F 4E 53 54 20 41 44 44 49 45 52 45 4E |.;SONST ADDIEREN|
00002240: 00 60 84 98 30 20 A6 3B 56 4F 4E 20 C2 C3 C4 20 |.`..0 .;VON ... |
00002250: 31 32 00 6B 84 A2 30 20 86 23 24 31 32 00 72 84 |12.k..0 .#$12.r.|
00002260: AC 30 20 AB 00 78 84 B6 30 3B 00 9B 84 C0 30 41 |.0 ..x..0;....0A|
00002270: 4D 20 97 42 43 44 41 53 43 3B D5 4D 57 41 4E 44 |M .BCDASC;.MWAND|
00002280: 4C 55 4E 47 20 49 4E 20 C1 D3 C3 C9 C9 00 A1 84 |LUNG IN ........|
00002290: CA 30 3B 00 BD 84 D4 30 20 81 54 4F 44 4D 49 4E |.0;....0 .TODMIN|
000022A0: 32 3B 44 41 53 53 45 4C 42 45 20 46 55 45 52 00 |2;DASSELBE FUER.|
000022B0: D2 84 DE 30 20 97 42 43 44 41 53 43 3B CD 49 4E |...0 .BCDASC;.IN|
000022C0: 55 54 45 4E 00 D8 84 E8 30 3B 00 F4 84 F2 30 20 |UTEN....0;....0 |
000022D0: 81 54 4F 44 53 45 43 32 3B 44 41 53 53 45 4C 42 |.TODSEC2;DASSELB|
000022E0: 45 20 46 55 45 52 00 0A 85 FC 30 20 97 42 43 44 |E FUER....0 .BCD|
000022F0: 41 53 43 3B D3 45 4B 55 4E 44 45 4E 00 10 85 06 |ASC;.EKUNDEN....|
00002300: 31 3B 00 2D 85 10 31 20 81 54 4F 44 31 30 54 48 |1;.-..1 .TOD10TH|
00002310: 32 3B 44 41 53 53 45 4C 42 45 20 46 55 45 52 00 |2;DASSELBE FUER.|
00002320: 49 85 1A 31 20 97 42 43 44 41 53 43 31 3B 31 2F |I..1 .BCDASC1;1/|
00002330: 31 30 20 D3 45 4B 55 4E 44 45 4E 00 4F 85 24 31 |10 .EKUNDEN.O.$1|
00002340: 3B 00 6A 85 2E 31 20 A1 3B D5 D3 D2 2D D3 54 52 |;.j..1 .;...-.TR|
00002350: 49 4E 47 2D C1 52 47 55 4D 45 4E 54 00 89 85 38 |ING-.RGUMENT...8|
00002360: 31 20 A1 3B D2 55 45 43 4B 53 50 52 55 4E 47 20 |1 .;.UECKSPRUNG |
00002370: 56 4F 52 42 45 52 45 49 54 45 4E 00 8F 85 42 31 |VORBEREITEN...B1|
00002380: 3B 00 BA 85 4C 31 20 96 53 54 52 4C 49 54 36 37 |;...L1 .STRLIT67|
00002390: 3B 53 45 54 5A 54 20 44 45 4E 20 D3 54 52 49 4E |;SETZT DEN .TRIN|
000023A0: 47 20 46 55 45 52 20 C2 41 53 49 43 00 C0 85 56 |G FUER .ASIC...V|
000023B0: 31 3B 00 C6 85 60 31 3B 00 CC 85 6A 31 3B 00 04 |1;...`1;...j1;..|
000023C0: 86 74 31 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.t1;************|
000023D0: 20 D5 4D 57 41 4E 44 4C 55 4E 47 20 C2 C3 C4 20 | .MWANDLUNG ... |
000023E0: 49 4E 20 C1 D3 C3 C9 C9 20 2A 2A 2A 2A 2A 2A 2A |IN ..... *******|
000023F0: 2A 2A 2A 2A 2A 2A 00 0A 86 7E 31 3B 00 34 86 88 |******...~1;.4..|
00002400: 31 42 43 44 41 53 43 20 A0 3B 41 55 46 20 D3 54 |1BCDASC .;AUF .T|
00002410: 41 50 45 4C 20 5A 57 49 53 43 48 45 4E 53 50 45 |APEL ZWISCHENSPE|
00002420: 49 43 48 45 52 4E 00 3A 86 92 31 3B 00 5A 86 9C |ICHERN.:..1;.Z..|
00002430: 31 20 8E 3B 4F 42 45 52 45 4E 20 CE 49 42 42 45 |1 .;OBEREN .IBBE|
00002440: 4C 20 4E 41 43 48 20 55 4E 54 45 4E 00 61 86 A6 |L NACH UNTEN.a..|
00002450: 31 20 8E 00 68 86 B0 31 20 8E 00 6F 86 BA 31 20 |1 ..h..1 ..o..1 |
00002460: 8E 00 75 86 C4 31 3B 00 A4 86 CE 31 20 97 42 43 |..u..1;....1 .BC|
00002470: 44 41 53 43 31 3B 49 4E 20 C1 D3 C3 C9 C9 20 55 |DASC1;IN ..... U|
00002480: 4D 57 41 4E 44 45 4C 4E 20 55 4E 44 20 53 50 45 |MWANDELN UND SPE|
00002490: 49 43 48 45 52 4E 00 AA 86 D8 31 3B 00 CB 86 E2 |ICHERN....1;....|
000024A0: 31 20 A1 3B 5A 55 52 55 45 43 4B 48 4F 4C 45 4E |1 .;ZURUECKHOLEN|
000024B0: 20 44 45 52 20 C2 C3 C4 2D DA 41 48 4C 00 F1 86 | DER ...-.AHL...|
000024C0: EC 31 20 87 23 24 30 46 3B 4C 4F 45 53 43 48 45 |.1 .#$0F;LOESCHE|
000024D0: 4E 20 44 45 53 20 4F 42 45 52 45 4E 20 CE 49 42 |N DES OBEREN .IB|
000024E0: 42 45 4C 00 17 87 F6 31 42 43 44 41 53 43 31 20 |BEL....1BCDASC1 |
000024F0: 8F 23 24 33 30 3B 41 55 53 20 DA 41 48 4C 20 57 |.#$30;AUS .AHL W|
00002500: 49 52 44 20 C1 D3 C3 C9 C9 00 1D 87 00 32 3B 00 |IRD .........2;.|
00002510: 47 87 0A 32 20 82 28 46 41 43 31 29 2C 59 3B 45 |G..2 .(FAC1),Y;E|
00002520: 49 4E 54 52 41 47 45 4E 20 49 4E 20 D3 54 52 49 |INTRAGEN IN .TRI|
00002530: 4E 47 54 41 42 45 4C 4C 45 00 4D 87 14 32 3B 00 |NGTABELLE.M..2;.|
00002540: 65 87 1E 32 20 9E 3B DA 41 45 48 4C 45 52 20 45 |e..2 .;.AEHLER E|
00002550: 52 48 4F 45 48 45 4E 00 6C 87 28 32 20 A4 00 72 |RHOEHEN.l.(2 ..r|
00002560: 87 32 32 3B 00 78 87 3C 32 3B 00 7E 87 46 32 3B |.22;.x.<2;.~.F2;|
00002570: 00 B9 87 50 32 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...P2;**********|
00002580: 2A 2A 20 D2 45 53 54 20 C1 D3 C3 C9 C9 2D C2 C3 |** .EST .....-..|
00002590: C4 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000025A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 87 5A 32 |***********...Z2|
000025B0: 3B 00 E5 87 64 32 54 45 53 54 20 97 54 45 53 54 |;...d2TEST .TEST|
000025C0: 31 3B 50 52 55 45 46 54 20 41 55 46 20 C1 D3 C3 |1;PRUEFT AUF ...|
000025D0: C9 C9 2D DA 41 48 4C 00 EC 87 6E 32 20 A4 00 F2 |..-.AHL...n2 ...|
000025E0: 87 78 32 3B 00 F8 87 82 32 3B 00 FE 87 8C 32 3B |.x2;....2;....2;|
000025F0: 00 3A 88 96 32 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.:..2;**********|
00002600: 2A 2A 20 CE CD C9 2D D2 45 41 4B 54 49 4F 4E 20 |** ...-.EAKTION |
00002610: 41 55 46 20 C1 4C 41 52 4D 20 2A 2A 2A 2A 2A 2A |AUF .LARM ******|
00002620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 40 88 A0 |************.@..|
00002630: 32 3B 00 66 88 AA 32 41 4C 41 52 4D 20 81 23 3C |2;.f..2ALARM .#<|
00002640: 28 41 4C 49 52 51 29 3B 4E 45 55 45 52 20 C9 D2 |(ALIRQ);NEUER ..|
00002650: D1 2D D6 45 43 54 4F 52 00 72 88 B4 32 20 82 49 |.-.ECTOR.r..2 .I|
00002660: 52 51 56 4C 00 82 88 BE 32 20 81 23 3E 28 41 4C |RQVL....2 .#>(AL|
00002670: 49 52 51 29 00 8E 88 C8 32 20 82 49 52 51 56 48 |IRQ)....2 .IRQVH|
00002680: 00 94 88 D2 32 3B 00 BF 88 DC 32 20 96 4E 4D 49 |....2;....2 .NMI|
00002690: 45 4E 44 3B D2 45 53 54 20 44 45 52 20 4E 4F 52 |END;.EST DER NOR|
000026A0: 4D 41 4C 45 4E 20 CE CD C9 2D D2 4F 55 54 49 4E |MALEN ...-.OUTIN|
000026B0: 45 00 C5 88 E6 32 3B 00 CB 88 F0 32 3B 00 D1 88 |E....2;....2;...|
000026C0: FA 32 3B 00 0D 89 04 33 3B 2A 2A 2A 2A 2A 2A 2A |.2;....3;*******|
000026D0: 2A 2A 2A 2A 2A 20 C1 4C 41 52 4D 2D C9 D2 D1 20 |***** .LARM-... |
000026E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000026F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002700: 13 89 0E 33 3B 00 3A 89 18 33 41 4C 49 52 51 20 |...3;.:..3ALIRQ |
00002710: 94 56 45 52 5A 3B DA 45 49 54 5A 41 45 48 4C 45 |.VERZ;.EITZAEHLE|
00002720: 52 20 56 45 52 52 49 4E 47 45 52 4E 00 5C 89 22 |R VERRINGERN.\."|
00002730: 33 20 B8 42 4C 49 4E 4B 3B 42 4C 49 4E 4B 45 4E |3 .BLINK;BLINKEN|
00002740: 2C 20 57 45 4E 4E 20 53 43 48 4F 4E 20 30 00 62 |, WENN SCHON 0.b|
00002750: 89 2C 33 3B 00 80 89 36 33 20 96 4E 4F 52 4D 3B |.,3;...63 .NORM;|
00002760: 53 4F 4E 53 54 20 4E 4F 52 4D 41 4C 45 52 20 C9 |SONST NORMALER .|
00002770: D2 D1 00 86 89 40 33 3B 00 B0 89 4A 33 42 4C 49 |.....@3;...J3BLI|
00002780: 4E 4B 20 81 56 4F 52 57 3B DA 45 49 54 5A 41 45 |NK .VORW;.EITZAE|
00002790: 48 4C 45 52 20 5A 55 52 55 45 43 4B 53 45 54 5A |HLER ZURUECKSETZ|
000027A0: 45 4E 00 BB 89 54 33 20 82 56 45 52 5A 00 C1 89 |EN...T3 .VERZ...|
000027B0: 5E 33 3B 00 E4 89 68 33 20 81 52 41 4E 44 3B D2 |^3;...h3 .RAND;.|
000027C0: 41 48 4D 45 4E 46 41 52 42 45 20 49 4E 56 45 52 |AHMENFARBE INVER|
000027D0: 54 49 45 52 45 4E 00 EF 89 72 33 20 95 46 41 52 |TIEREN...r3 .FAR|
000027E0: 42 00 FA 89 7C 33 20 82 52 41 4E 44 00 00 8A 86 |B...|3 .RAND....|
000027F0: 33 3B 00 1C 8A 90 33 20 96 4E 4F 52 4D 3B 5A 55 |3;....3 .NORM;ZU|
00002800: 4D 20 4E 4F 52 4D 41 4C 45 4E 20 C9 D2 D1 00 00 |M NORMALEN .....|
00002810: 00 |. |
.BFB..;*********************************
****************.}B..;*
*..B..;* E
CHTZEITUHR MIT ALARMFUNKTION
*..B(.;*
*."C2.;* LAEUFT MIT
DEM NMI-CIA *.YC<
.;* IN VERBINDUNG MIT DEM IRQ FUER
*..CF.;* DEN ALARM
*.GCP.;*
*..CZ.;* HEIMO PONNATH HAMBURG 1985
*.5DD.;*
*.LDN.;* (
TEILWEISE WURDE EIN PROGRAMM AUS
*..DX.;* DEM INTERFACE AGE SYSTEMHA
NDBUCH *.ZD..;* ZUM COMMODO
RE 64, SEITE 114 *..E.
.;* ALS BASIS VERWENDET)
*.HE..;*
*.E .;********
****************************************
*..E..;*
*..E..;* KORRIGIERT VON:
*.$F..;*
*.[FH.;* UWE THIEM
*..FR.;* KASERNENSTR
ASSE 10 *.IF.
.;* 3300 BRAUNSCHWEIG
*..G..;* SEPTEMBER 1988
*.7G..;*
*.NG..;*********************************
****************.TG..;.ZG..;..G..;..G".
..$C000..G,. .."2.ALARM.OB"..G6.;..G@.;.
.GJ.;..GT.;*********** ZEROPAGE-LABELS *
********************..G^.;..HH...VERZ:=$
02;AKTUELLE VERZOEGERUNG.EHR...FARB:=$03
;WERT FUER RAHMEN-EOR-OPERATION.GH|...VO
RW:=$04;VERZOEGERUNGSWERT..H....VALTYP:=
$0D;INHALT:FF=STR 0=N..H....INDEX:=$22.
.H....INDEX3:=$24;POINTER.IH....INDEX4:=
$25..H....FAC1:=$62;1.MANTISSENBYTE..H..
;.&IB.;*********** LABELS PAGE 3 *******
****************.,IL.;.MIV...USRADDL:=$0
311;USR-POINTER.BI....USRADDH:=$0312.TI.
...FREI:=$0313..I....IRQVL:=$0314;IRQ-VE
CTOR..I....IRQVH:=$0315.DI....NMINVL:=$0
318;NMI-VECTOR.XI....NMINVH:=$0319..I..;
..J&.;*********** LABELS INTERPRETER ***
***************..J0.;.^J:...ILLQUERR:=$B
248;ILLEGAL QUANTITY-ERROR=NORMALWERT US
R-VECTOR..JD...STRINI8:=$B47D;SPEICHERPL
ATZ PRUEFEN, STRINGPOINTER SETZEN.PJN...
STRLIT67:=$B4CA;REST DER STRINGLESEROUTI
NE..JX...LEN1:=$B782;STRINGLAENGE IN Y-R
EGISTER..KB...ACTOFC:=$BC3C;AKKU NACH FA
C.%KL.;.\KV.;*********** LABELS VIC-II-C
HIP ******************.BK..;..K....RAND:
=$D020;RAHMENFARBE..K..;..K..;**********
* LABELS CIA-CHIPS ********************.
CK..;..K....CIA1:=$DC00;START CIA 1..L..
..ICR1:=$DC0D;IRQ-KONTROLLREGISTER.3LF..
.CRA1:=$DC0E;TIMER A KONTROLLREGISTER.9L
P.;.]LZ...TOD10TH2:=$DD08;1/10 SEKUNDEN.
{L....TODSEC2:=$DD09;SEKUNDEN..L....TODM
IN2:=$DD0A;MINUTEN..L....TODHR:=$DD0B;ST
UNDEN + AM/PM-FLAG..L....ICR2:=$DD0D;NMI
-KONTROLLREGISTER..M....CRA2:=$DD0E;TIME
R A KONTROLLREGISTER.=M....CRB2:=$DD0F;T
IMER B KONTROLLREGISTER.CM .;.ZM*.;*****
****** LABELS OBERES ROM ***************
****..M4.;..M>...NORM:=$EA31;NORMALER IR
Q.WMH...TASTFLAG:=$F6BC;TEIL DER NMI-ROU
TINE (KEIN MODUL)..NR...VECTAB:=$FD2F;TA
BELLE DER ROM-VECTOREN.<N\...VECTAB7:=$F
D35;MSB DES NMI-VECTORS IN DER TABELLE.|
NF...IORESET19:=$FDB6;I/O-RESET: BEI SET
ZEN DES CRA IM IRQ-CIA..NP...NMIXCT16:=$
FE6C;NMI-ROUTINE AB SCREEN-EDITOR-RESET.
.NZ...NMIRS232:=$FE72;NMI-ROUTINE AB RS2
32-HANDLING..O....NMIEND:=$FEBC;ENDE DER
NMI-ROUTINE.HO....STOP:=$FFE1;KERNAL ST
OP SPRUNG NACH JMP ($0328).NO..;..O..;**
****************************************
*******..O..;..O..;..O..;..OJ.;..OT.;.ZO
.';************ AKTIVIEREN *************
************..O.';..P$'INIT .#<(USR);USR
-VECTOR LADEN..P.' .USRADDL..P8' .#>(USR
).-PB' .USRADDH.3PL';.PPV' .#<(NMI);NMI-
VECTOR MIT.JP`' .NMINVL;STARTADRESSE..PJ
' .#>(NMI);DER EIGENEN..PT' .NMINVH;NMI-
ROUTINE LADEN..P~';.EP.' .CRA2;BIT 7 CRA
SETZEN.WP.' .#%1000'0000..P.' .CRA2;NET
ZFREQUENZ = 50 HZ..P.';..Q.' ...Q.';..QD
';.FQN';*********** EIGENE NMI-ROUTINE *
****************.LQX';.QQ.'NMI ;ANFANG
NORMALE NMI-ROUTINE..Q.' .;REGISTER RETT
EN..Q.' ..Q.( ...Q.( ..Q.(;..Q.( .#$7F
;SPERREN ALLER NMI.KQ(( .ICR2.QQ2(;..Q<(
.ICR2;PRUEFEN OB NMI.!RF( .RESTNMI;COM
CIA 2 KOMMT, WENN NEIN, DANN SPRUNG.ARP(
.ALARM;WENN JA, DANN ALARM.TRZ(CIANMI .
NMIRS232;REST DER NORMALEN NMI-ROUTINE.Z
RD(;..RN(;*********** EIGENE RESTORE-NMI
-ROUTINE *********..RX(;.ZR.(RESTNMI .TA
STFLAG;TEIL DER NMI-..R.( .STOP;ROUTINE
ZUR STOP-..S.( .CIANMI;TASTEN-ABFRAGE..S
(;.:S.( .#$04;IRQ- UND BRK-VECTOREN.\S.
(UMLAD1 .VECTAB,X;RESTAURIEREN.IS.( .FRE
I,X.PSH( ..}SR( .UMLAD1..S.(;..S.( .#$1A
;RESTAURIEREN DER..S.(UMLAD2 .VECTAB7,X;
RESTLICHEN.XS.( .NMINVH,X;VECTOREN..S.)
...S.) .UMLAD2..S.);..T") .#$7F;SPERREN
ALLER..T,) .ICR1;IRQ.)T6) .ICR2;NMI.XT@)
.CIA1;DATENREGISTER PORT A AUF NORMALWE
RT.KTJ) .#$08;TIMER A.~TT) .CRA1;IM CIA1
..T^);. TH) .#$88;TIMER A IM CIA2:..TR)
.CRA2; BIT 0 AUF STOP..T|);
BIT 3 AUF EINZELLAUF.(U.
); BIT 5 SYST
EMTAKT EIN.CU.);
BIT 7 ECHTZEITUHR = 50 HZ.IU.);.TU.)
.#$08..U.) .IORESET19..U.);..UB) .NMIXC
T16;REST DER NORMALEN RESTORE-NMI-ROUTIN
E.EUL);.KUV);.QU.);..V.);******* ABSCHAL
TEN DER TIME OF DAY UHR ************..V.
);.1V.)AUS .#<(ILLQUERR);USR-VECTOR.NV.*
.USRADDL;AUF NORMALWERT.AV.* .#>(ILLQUE
RR).OV.* .USRADDH.UV&*;.|V0* ...V:* .#$4
7;RESTAURIEREN DES..VD* .NMINVL;NMI-VECT
ORS..VN* .#$FE.IVX* .NMINVH.OVB*;..VL* .
#<(NORM);RESTAURIEREN DES..WV* .IRQVL;IR
Q-VECTORS..W.* .#>(NORM)."W.* .IRQVH.(W.
*;./W.* ..6W.* ..<W.*;.BW.*;.HWF*;..WP*;
******* DURCH USR AUFRUFBARE ROUTINE ***
***********..WZ*;..W.*USR .VALTYP;WELCHE
R VARIABLEN-TYP LIEGT VOR..W.* .STRING;W
ENN STRING, DANN UEBERSPRINGEN..W.* .ZAH
LVAR;SONST SPRUNG..X.+;..X.+;..X.+;.JX +
;******* STELLEN DER ECHTZEITUHR *******
************.PX*+;.PX4+STRING .LEN1;Y=ST
RINGLAENGE..X>+ .#$07;STRING=7 ZEICHEN?.
.XH+ .ALSET;NEIN, DANN ALARM STELLEN..XR
+;.TX\+ .CRB2;TIMER B IM CIA 2..XF+ .#$7
F;BIT 7 LOESCHEN..YP+ .CRB2;NORMALE UHRZ
EIT..YZ+;..Y.+;..Y.+;.TY.+;******* AUSLE
SEN DES ZEIT-STRINGS *****************.Z
Y.+;.VY.+ .#$00;ZAEHLER AUF NULL..Y.+STE
LLEN .#$24;BCD 24 STD-VERGLEICH.LY.+ .AS
CBCD;ZEICHENTEST UND UMWANDLUNG IN BCD.U
YJ+ .#0..ZT+ .STD12;STUNDEN UNGLEICH NUL
L, DANN SPRUNG..Z.+ .#$24;SONST = BCD 24
.GZ.+STD12 .#$13;STUNDEN GROESSER ALS 12
?.FZ.+ .STDSET;NEIN, DANN SPRUNG..Z.+PM1
.;SONST DAVON BCD 12..Z., .;SUBTRAHIERE
N..Z., .#$12;UND..Z., ..GZ$,PM .#$80;BIT
7 SETZEN.MZ.,;..{8,STDSET .TODHR;BCD-ST
UNDEN UND AM/PM-FLAG IN TOD-CIA2..{B,;.<
{L, .ASCBCD1;ZEICHENTEST UND UMWANDLUNG
IN BCD.J{V, .TODMIN2;ERGEBNIS IN TOD-MIN
UTENREGISTER.P{`,;..{J, .ASCBCD1;DASSELB
E FUER..{T, .TODSEC2;SEKUNDEN..{~,;.S{.,
.TEST;PRUEFEN, OB 1/10 SEKUNDEN=ZAHL..{
., .TOD10TH2;UND INS TOD-REGISTER..{.,;.
.|., .#0;KENNUNG FUER OK.N|.,AKKUFAC .AC
TOFC;AKKU ZUR UEBERGABE INS BASIC IN FAC
.T|.,;.Z|D,;.`|N,;..|X,;********** FEHLE
R AUFGETRETEN ***********************..|
.,;..|.,FEHLER .;JSR-ADRESSEN VOM.S|., .
;STAPEL HOLEN.Y|.-;..|.-ERROR ...|.- ...
|.-;..}(-ERROR1 .#$FF;FEHLERKENNUNG IN./
}2- .AKKUFAC;AKKU UND FAC.5}<-;.;}F-;.A}
P-;.|}Z-;********** ALARMZEIT EINLESEN *
**********************..}D-;..}N-ALSET .
#$08; 8 ZEICHEN ?..}X- .ERROR1;NEIN = FE
HLER..}.-;.T}.- .CRB2;ALARMBIT..}.- .#%1
000'0000;SETZEN..} - .CRB2..}.-;..~.- .#
%1000'0100;ALARM-NMI..~.- .ICR2;ZULASSEN
.4~H-;.N~R- .#$3C;VERZOEGERUNGS-.G~.- .V
ORW;WERT VORGEBEN.R~.- .VERZ..~.- .#$FF;
EOR-WERT..~.- .FARB;VORGEBEN..~.. .#$01;
BUCHSTABE UEBERLESEN..~..;.Y~.. .#$24;BC
D 24 GRENZE..~". .ASCBCD;UMWANDLUNG IN B
CD..,. .#0.,6. .AL12;STUNDEN UNGLEICH
0, DANN SPRUNG.B@. .#$12;SONST = 12.OJ
. .STDSET.^T.AL12 .#$12..^. .PM;GLEICH
12, DANN AM/PM-FLAG SETZEN..H. .STDSET
;KLEINER12,DANNSPRUNG.NR. .PM1;GROESSER
12, DANN SPRUNG.T|.;.Z..;....;.....;
********* UMWANDLUNG ASCII IN BCD ******
*************.!...;.S...ASCBCD1 .#$60;BC
D 60 ALS GRENZE FUER PRUEFUNG.Y...;.L.B.
ASCBCD .INDEX3...L. .TEST1;PRUEFEN, OB Z
AHL...V. .;UNTEREN NIBBLE..... .;NACH OB
EN..... ...... ...... .INDEX4;UND ZWISCH
ENSPEICHERN..../ .TEST1;NAECHSTE ZAHL...
./ .INDEX4;BEIDE NIBBLE ODERN.9../ .INDE
X3;UNTER GRENZWERT?.S.&/ .ERROR;NEIN = F
EHLER.Y.0/;.`.:/ ..F.D/;.L.N/;.R.X/;...B
/;********* PRUEFUNG OB ASCII-ZAHL *****
***************...L/;.X.V/TEST1 .(INDEX)
,Y;ZEICHEN IN AKKU..../ ...../ .#$30;< A
SCII 0 ?..../ .FEHLER;JA = FEHLER..../;.
-../ .#$0A;>= ASCII : ?.F../ .FEHLER;JA
= FEHLER.G../ .;SCHLEIFENZAEHLER ERHOEHE
N.N.F/ ..T.P/;.Z.Z/;..../;..../;********
* UHR LESEN ****************************
*****.A../;....0ZAHLVAR .#$07;STRINGLAEN
GE....0 .STRINI8;SCHAFFT 7 BYTE PLATZ FU
ER STRING.(..0 .#$00;ZAEHLER AUF 0.D. 0
.TODHR;STUNDE AUSLESEN.D.*0 .;STATUS ZWI
SCHENSPEICHERN.J.40;...>0 .#$1F;LOESCHEN
DES AM/PM-FLAG...H0 .#$12;= BCD 12 ?.D.
R0 .NO12;UNGLEICH, DANN SPRUNG...\0 .#$0
0;SONST STATTDESSEN 0...F0;...P0NO12 .;S
TATUS ZURUECKHOLEN.2.Z0 .AM;SPRUNG, WENN
AM/PM NICHT GESETZT.8..0;.N..0 .;SONST
ADDIEREN.`..0 .;VON BCD 12.K..0 .#$12.R.
.0 ..X..0;....0AM .BCDASC;UMWANDLUNG IN
ASCII...J0;...T0 .TODMIN2;DASSELBE FUER.
R..0 .BCDASC;MINUTEN.X..0;....0 .TODSEC2
;DASSELBE FUER....0 .BCDASC;SEKUNDEN....
1;.-..1 .TOD10TH2;DASSELBE FUER.I..1 .BC
DASC1;1/10 SEKUNDEN.O.$1;.J..1 .;USR-STR
ING-ARGUMENT...81 .;RUECKSPRUNG VORBEREI
TEN...B1;...L1 .STRLIT67;SETZT DEN STRIN
G FUER BASIC...V1;.F.`1;.L.J1;...T1;****
******** UMWANDLUNG BCD IN ASCII *******
******...~1;.4..1BCDASC ;AUF STAPEL ZWI
SCHENSPEICHERN.:..1;.Z..1 .;OBEREN NIBBE
L NACH UNTEN.A..1 ..H..1 ..O..1 ..U.D1;.
..N1 .BCDASC1;IN ASCII UMWANDELN UND SPE
ICHERN...X1;.K..1 .;ZURUECKHOLEN DER BCD
-ZAHL....1 .#$0F;LOESCHEN DES OBEREN NIB
BEL....1BCDASC1 .#$30;AUS ZAHL WIRD ASCI
I....2;.G..2 .(FAC1),Y;EINTRAGEN IN STRI
NGTABELLE.M..2;.E..2 .;ZAEHLER ERHOEHEN.
L.(2 ..R.22;.X.<2;.~.F2;...P2;**********
** REST ASCII-BCD **********************
***...Z2;...D2TEST .TEST1;PRUEFT AUF ASC
II-ZAHL...N2 ....X2;....2;....2;.:..2;**
********** NMI-REAKTION AUF ALARM ******
************.@. 2;.F..2ALARM .#<(ALIRQ);
NEUER IRQ-VECTOR.R..2 .IRQVL....2 .#>(AL
IRQ)...H2 .IRQVH...R2;....2 .NMIEND;REST
DER NORMALEN NMI-ROUTINE.E..2;.K..2;.Q.
.2;....3;************ ALARM-IRQ ********
***********************....3;.:..3ALIRQ
.VERZ;ZEITZAEHLER VERRINGERN.\."3 .BLINK
;BLINKEN, WENN SCHON 0.B.,3;...63 .NORM;
SONST NORMALER IRQ...@3;...J3BLINK .VORW
;ZEITZAEHLER ZURUECKSETZEN...T3 .VERZ.A.
^3;...H3 .RAND;RAHMENFARBE INVERTIEREN..
.R3 .FARB...|3 .RAND....3;....3 .NORM;ZU
M NORMALEN IRQ...
> CLICK IMAGE PREVIEW FOR FULL MODAL