L3.TEDMON

FILE INFORMATION

FILENAME(S): L3.TEDMON

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 01:12:56

APPEARS ON: 1 disk(s)

FILE HASH

efe29ac787deb7bbd0b6d02a41b350f843d9afb1ef785d852647becfcd10ac79

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15944 SEITE B	L3.TEDMON	PRG	C64er	26	15	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 25 1C 64 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..%.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 00 49 1C  6E 00 8F 20 2A 20 20 20  |*****.I.n.. *   |
00000030: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000040: 20 20 20 20 20 20 20 20  2A 00 6D 1C 78 00 8F 20  |        *.m.x.. |
00000050: 2A 20 53 49 4D 55 4C 41  54 49 4F 4E 20 44 45 53  |* SIMULATION DES|
00000060: 20 4D 4F 4E 49 54 4F 52  42 45 2D 20 2A 00 91 1C  | MONITORBE- *...|
00000070: 82 00 8F 20 2A 20 20 20  20 20 20 20 20 20 20 20  |... *           |
00000080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000090: 2A 00 B5 1C 8C 00 8F 20  2A 20 20 46 45 48 4C 53  |*...... *  FEHLS|
000000A0: 20 27 54 27 20 4D 49 54  54 45 4C 53 20 42 41 53  | 'T' MITTELS BAS|
000000B0: 49 43 20 20 2A 00 D9 1C  96 00 8F 20 2A 20 20 20  |IC  *...... *   |
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  2A 00 FD 1C A0 00 8F 20  |        *...... |
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 21 1D  |*************.!.|
00000100: AA 00 8F 20 2A 20 20 20  20 20 20 20 20 20 20 20  |... *           |
00000110: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000120: 2A 00 45 1D B4 00 8F 20  2A 20 20 20 20 42 59 20  |*.E.... *    BY |
00000130: 46 4C 4F 52 49 41 4E 20  4D 55 45 4C 4C 45 52 20  |FLORIAN MUELLER |
00000140: 20 20 20 20 2A 00 69 1D  BE 00 8F 20 2A 20 20 20  |    *.i.... *   |
00000150: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000160: 20 20 20 20 20 20 20 20  2A 00 8D 1D C8 00 8F 20  |        *...... |
00000170: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 93 1D  |*************...|
00000190: D2 00 3A 00 C7 1D DC 00  99 C7 28 31 33 29 C7 28  |..:.......(13).(|
000001A0: 31 33 29 22 56 45 52 53  43 48 49 45 42 45 4E 20  |13)"VERSCHIEBEN |
000001B0: 4D 49 54 54 45 4C 53 20  42 41 53 49 43 22 C7 28  |MITTELS BASIC".(|
000001C0: 37 29 C7 28 31 33 29 00  F1 1D E6 00 85 20 22 53  |7).(13)...... "S|
000001D0: 50 45 49 43 48 45 52 42  41 4E 4B 20 44 45 53 20  |PEICHERBANK DES |
000001E0: 51 55 45 4C 4C 42 45 52  45 49 43 48 53 22 3B 42  |QUELLBEREICHS";B|
000001F0: 51 00 26 1E F0 00 85 20  22 41 4E 46 41 4E 47 53  |Q.&.... "ANFANGS|
00000200: 41 44 52 45 53 53 45 20  44 2E 51 55 45 4C 4C 42  |ADRESSE D.QUELLB|
00000210: 45 52 45 49 43 48 53 22  3B 41 51 24 3A 41 51 B2  |EREICHS";AQ$:AQ.|
00000220: D1 28 41 51 24 29 00 5B  1E FA 00 85 20 22 45 4E  |.(AQ$).[.... "EN|
00000230: 44 41 44 52 45 53 53 45  20 20 20 44 45 53 20 51  |DADRESSE   DES Q|
00000240: 55 45 4C 4C 42 45 52 45  49 43 48 53 22 3B 45 51  |UELLBEREICHS";EQ|
00000250: 24 3A 45 51 B2 D1 28 45  51 24 29 00 85 1E 04 01  |$:EQ..(EQ$).....|
00000260: 85 20 22 53 50 45 49 43  48 45 52 42 41 4E 4B 20  |. "SPEICHERBANK |
00000270: 44 45 53 20 20 5A 49 45  4C 42 45 52 45 49 43 48  |DES  ZIELBEREICH|
00000280: 53 22 3B 42 5A 00 BA 1E  0E 01 85 20 22 41 4E 46  |S";BZ...... "ANF|
00000290: 41 4E 47 53 41 44 52 45  53 53 45 20 44 2E 20 5A  |ANGSADRESSE D. Z|
000002A0: 49 45 4C 42 45 52 45 49  43 48 53 22 3B 41 5A 24  |IELBEREICHS";AZ$|
000002B0: 3A 41 5A B2 D1 28 41 5A  24 29 00 EE 1E 18 01 45  |:AZ..(AZ$).....E|
000002C0: 5A B2 41 5A AA 28 45 51  AB 41 51 29 3A 8F 20 45  |Z.AZ.(EQ.AQ):. E|
000002D0: 4E 44 45 20 44 45 53 20  5A 49 45 4C 42 45 52 45  |NDE DES ZIELBERE|
000002E0: 49 43 48 53 20 42 45 52  45 43 48 4E 45 4E 00 1E  |ICHS BERECHNEN..|
000002F0: 1F 22 01 99 22 3D 3E 20  45 4E 44 41 44 52 45 53  |.".."=> ENDADRES|
00000300: 53 45 20 44 45 53 20 5A  49 45 4C 42 45 52 45 49  |SE DES ZIELBEREI|
00000310: 43 48 53 20 3D 20 24 22  3B D2 28 45 5A 29 00 24  |CHS = $";.(EZ).$|
00000320: 1F 2C 01 3A 00 62 1F 36  01 8B 20 41 51 B1 41 5A  |.,.:.b.6.. AQ.AZ|
00000330: 20 A7 20 34 34 30 3A 8F  20 47 45 47 45 42 45 4E  | . 440:. GEGEBEN|
00000340: 45 4E 46 41 4C 4C 53 20  5A 57 45 49 54 45 20 53  |ENFALLS ZWEITE S|
00000350: 43 48 4C 45 49 46 45 20  41 4E 53 50 52 49 4E 47  |CHLEIFE ANSPRING|
00000360: 45 4E 00 68 1F 40 01 3A  00 9A 1F 4A 01 51 B2 45  |EN.h.@.:...J.Q.E|
00000370: 51 3A 5A B2 45 5A 3A 8F  20 51 20 3D 20 51 55 45  |Q:Z.EZ:. Q = QUE|
00000380: 4C 4C 41 44 52 45 53 53  45 3B 20 5A 20 3D 20 5A  |LLADRESSE; Z = Z|
00000390: 49 45 4C 41 44 52 45 53  53 45 00 A0 1F 54 01 3A  |IELADRESSE...T.:|
000003A0: 00 AD 1F 5E 01 EB 20 FC  20 51 B3 41 51 00 DB 1F  |...^.. . Q.AQ...|
000003B0: 68 01 3A FE 02 20 42 51  3A 51 55 45 4C 4C B2 C2  |h.:.. BQ:QUELL..|
000003C0: 28 51 29 3A 8F 20 51 55  45 4C 4C 42 45 52 45 49  |(Q):. QUELLBEREI|
000003D0: 43 48 20 41 55 53 4C 45  53 45 4E 00 0B 20 72 01  |CH AUSLESEN.. r.|
000003E0: 3A FE 02 20 42 5A 3A 97  20 5A 2C 20 51 55 45 4C  |:.. BZ:. Z, QUEL|
000003F0: 4C 3A 8F 20 5A 49 45 4C  42 45 52 45 49 43 48 20  |L:. ZIELBEREICH |
00000400: 42 45 53 43 48 52 45 49  42 45 4E 00 33 20 7C 01  |BESCHREIBEN.3 |.|
00000410: 3A 8B 20 C2 28 5A 29 B3  B1 51 55 45 4C 4C 20 A7  |:. .(Z)..QUELL .|
00000420: 20 99 20 C9 28 D2 28 42  51 29 2C 31 29 3B D2 28  | . .(.(BQ),1);.(|
00000430: 51 29 2C 00 69 20 86 01  3A 51 B2 51 AB 31 3A 5A  |Q),.i ..:Q.Q.1:Z|
00000440: B2 5A AB 31 3A 8F 20 51  55 45 4C 4C 2D 20 55 4E  |.Z.1:. QUELL- UN|
00000450: 44 20 5A 49 45 4C 41 44  52 45 53 53 45 20 45 52  |D ZIELADRESSE ER|
00000460: 4E 49 45 44 52 49 47 45  4E 00 6F 20 90 01 EC 00  |NIEDRIGEN.o ....|
00000470: 75 20 9A 01 3A 00 7B 20  A4 01 8A 00 81 20 AE 01  |u ..:.{ ..... ..|
00000480: 3A 00 A8 20 B8 01 51 B2  41 51 3A 5A B2 45 51 3A  |:.. ..Q.AQ:Z.EQ:|
00000490: 8F 20 51 3D 51 55 45 4C  4C 2D 2C 5A 3D 5A 49 45  |. Q=QUELL-,Z=ZIE|
000004A0: 4C 41 44 52 45 53 53 45  00 AE 20 C2 01 3A 00 BB  |LADRESSE.. ..:..|
000004B0: 20 CC 01 EB 20 FC 20 51  B1 45 51 00 E9 20 D6 01  | ... . Q.EQ.. ..|
000004C0: 3A FE 02 20 42 51 3A 51  55 45 4C 4C B2 C2 28 51  |:.. BQ:QUELL..(Q|
000004D0: 29 3A 8F 20 51 55 45 4C  4C 42 45 52 45 49 43 48  |):. QUELLBEREICH|
000004E0: 20 41 55 53 4C 45 53 45  4E 00 19 21 E0 01 3A FE  | AUSLESEN..!..:.|
000004F0: 02 20 42 5A 3A 97 20 5A  2C 20 51 55 45 4C 4C 3A  |. BZ:. Z, QUELL:|
00000500: 8F 20 5A 49 45 4C 42 45  52 45 49 43 48 20 42 45  |. ZIELBEREICH BE|
00000510: 53 43 48 52 45 49 42 45  4E 00 41 21 EA 01 3A 8B  |SCHREIBEN.A!..:.|
00000520: 20 C2 28 5A 29 B3 B1 51  55 45 4C 4C 20 A7 20 99  | .(Z)..QUELL . .|
00000530: 20 C9 28 D2 28 42 51 29  2C 31 29 3B D2 28 51 29  | .(.(BQ),1);.(Q)|
00000540: 2C 00 74 21 F4 01 3A 51  B2 51 AA 31 3A 5A B2 5A  |,.t!..:Q.Q.1:Z.Z|
00000550: AA 31 3A 8F 20 51 55 45  4C 4C 2D 20 55 4E 44 20  |.1:. QUELL- UND |
00000560: 5A 49 45 4C 41 44 52 45  53 53 45 20 45 52 48 4F  |ZIELADRESSE ERHO|
00000570: 45 48 45 4E 00 7A 21 FE  01 EC 00 80 21 08 02 3A  |EHEN.z!.....!..:|
00000580: 00 86 21 12 02 8A 00 00  00 3D                    |..!......=      |

..%.D.. *****************************.I.
N.. *                           *.M.X.. 
* SIMULATION DES MONITORBE- *...... *   
                        *...... *  FEHLS
 'T' MITTELS BASIC  *.Y.... *           
                *... .. ****************
*************.!.... *                   
        *.E.... *    BY FLORIAN MUELLER 
    *.I.... *                           
*...H.. *****************************...
R.:.G....G(13)G(13)"VERSCHIEBEN MITTELS 
BASIC"G(7)G(13)...... "SPEICHERBANK DES 
QUELLBEREICHS";BQ.&.... "ANFANGSADRESSE 
D.QUELLBEREICHS";AQ$:AQ.Q(AQ$).[.... "EN
DADRESSE   DES QUELLBEREICHS";EQ$:EQ.Q(E
Q$)...... "SPEICHERBANK DES  ZIELBEREICH
S";BZ...... "ANFANGSADRESSE D. ZIELBEREI
CHS";AZ$:AZ.Q(AZ$).....EZ.AZ.(EQ.AQ):. E
NDE DES ZIELBEREICHS BERECHNEN...".."=> 
ENDADRESSE DES ZIELBEREICHS = $";R(EZ).$
.,.:.B.6.. AQ.AZ . 440:. GEGEBENENFALLS 
ZWEITE SCHLEIFE ANSPRINGEN.H.@.:...J.Q.E
Q:Z.EZ:. Q = QUELLADRESSE; Z = ZIELADRES
SE. .T.:...^.. . Q.AQ...H.:.. BQ:QUELL.B
(Q):. QUELLBEREICH AUSLESEN.. R.:.. BZ:.
 Z, QUELL:. ZIELBEREICH BESCHREIBEN.3 |.
:. B(Z)..QUELL . . I(R(BQ),1);R(Q),.I ..
:Q.Q.1:Z.Z.1:. QUELL- UND ZIELADRESSE ER
NIEDRIGEN.O ....U ..:.{ ..... ..:.. ..Q.
AQ:Z.EQ:. Q=QUELL-,Z=ZIELADRESSE.. B.:..
 L.. . Q.EQ.. V.:.. BQ:QUELL.B(Q):. QUEL
LBEREICH AUSLESEN..!..:.. BZ:. Z, QUELL:
. ZIELBEREICH BESCHREIBEN.A!..:. B(Z)..Q
UELL . . I(R(BQ),1);R(Q),.T!..:Q.Q.1:Z.Z
.1:. QUELL- UND ZIELADRESSE ERHOEHEN.Z!.
....!..:..!......=

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL