LABLE.QUELL
FILE INFORMATION
FILENAME(S): LABLE.QUELL
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-10-20 14:31:32
APPEARS ON: 2 disk(s)
FILE HASH
f6c93a8594b5ef3ce2ff500ebf7ca3284c18bb05baa555bfc413331566e1ce98
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE DISC29 | LABLE.QUELL | PRG | Treasure Chest - Klaus Der Suhler | 25 | 4 | DOWNLOAD FILE |
| COMMODORE DISC29 | LABLE.QUELL | PRG | Treasure Chest - Plattfuss | 25 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0F 62 1A 62 64 00 2E 90 24 43 30 30 00 29 62 6E |.b.bd...$C00.)bn|
00000010: 00 3B 2E 4C 49 53 54 20 31 2C 33 00 35 62 78 00 |.;.LIST 1,3.5bx.|
00000020: 2E A4 57 2C 31 2C 33 00 6E 62 82 00 3B B0 B1 B1 |..W,1,3.nb..;...|
00000030: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000040: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000050: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 AE |................|
00000060: 00 B0 62 8C 00 3B B3 C4 41 54 55 4D 3A 31 38 2E |..b..;..ATUM:18.|
00000070: 30 32 2E 31 39 38 39 20 20 20 20 20 20 20 20 20 |02.1989 |
00000080: C1 55 54 4F 52 3A C3 48 52 49 53 54 49 41 4E 20 |.UTOR:.HRISTIAN |
00000090: CD 45 4E 5A 45 4C 20 20 AD B1 B1 B1 B1 B1 B1 B1 |.ENZEL ........|
000000A0: B1 AE 00 F2 62 96 00 3B B3 D0 52 4F 47 52 41 4D |....b..;..ROGRAM|
000000B0: 4D 4E 41 4D 45 2F 2D C1 55 46 47 41 42 45 3A CC |MNAME/-.UFGABE:.|
000000C0: 41 42 4C 45 2F 4C 41 42 4C 45 2D C1 55 46 52 55 |ABLE/LABLE-.UFRU|
000000D0: 46 45 20 49 4E 20 DA 45 49 4C 45 4E 4E 55 4D 3D |FE IN .EILENNUM=|
000000E0: 20 20 20 AB 00 34 63 A0 00 3B B3 20 20 20 20 20 | ..4c..;. |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 4D 45 52 4E 20 55 4D 57 41 4E 44 45 4C 4E 20 | MERN UMWANDELN |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 AB 00 76 63 AA 00 3B AD B2 B2 B2 | ..vc..;....|
00000130: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000140: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000150: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000160: B2 B2 B2 B2 B2 B2 B2 BD 00 7C 63 B4 00 3B 00 BE |.........|c..;..|
00000170: 63 BE 00 3B B0 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |c..;............|
00000180: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000190: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
000001A0: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 AE |................|
000001B0: 00 00 64 C8 00 3B B3 52 4F 55 54 49 4E 45 3A 4C |..d..;.ROUTINE:L|
000001C0: 41 42 4C 45 2D C4 45 4B 4C 41 52 41 54 49 4F 4E |ABLE-.EKLARATION|
000001D0: 20 46 49 4E 44 45 4E 20 20 20 20 20 20 20 20 20 | FINDEN |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 AB 00 42 64 D2 00 3B AD B2 B2 B2 B2 B2 B2 B2 | ..Bd..;........|
00000200: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000210: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000220: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000230: B2 B2 B2 BD 00 66 64 DC 00 D3 55 C4 45 20 81 23 |.....fd...U.E .#|
00000240: 24 31 3B DA 45 49 47 45 52 20 41 55 46 20 D4 45 |$1;.EIGER AUF .E|
00000250: 58 54 41 4E 46 41 4E 47 00 70 64 E6 00 20 82 24 |XTANFANG.pd.. .$|
00000260: 46 41 00 7B 64 F0 00 20 81 23 24 31 43 00 85 64 |FA.{d.. .#$1C..d|
00000270: FA 00 20 82 24 46 42 00 8B 64 04 01 3B 00 9C 64 |.. .$FB..d..;..d|
00000280: 0E 01 D3 55 CC 41 42 C4 45 46 20 84 23 34 00 A2 |...U.AB.EF .#4..|
00000290: 64 18 01 3B 00 CD 64 22 01 20 81 28 24 46 41 29 |d..;..d". .($FA)|
000002A0: 2C 59 3B 48 4F 48 4C 45 20 31 2E 42 59 54 45 20 |,Y;HOHLE 1.BYTE |
000002B0: 44 45 52 20 42 41 53 49 43 2D DA 45 49 4C 45 00 |DER BASIC-.EILE.|
000002C0: D8 64 2C 01 20 85 23 24 35 42 00 FF 64 36 01 20 |.d,. .#$5B..d6. |
000002D0: B8 CC 41 42 C4 45 C7 45 46 3B 53 50 52 49 4E 47 |..AB.E.EF;SPRING|
000002E0: 45 2C 20 57 45 4E 4E 20 4C 41 42 4C 45 2D C4 45 |E, WENN LABLE-.E|
000002F0: 2E 00 05 65 40 01 3B 00 47 65 4A 01 3B B0 B1 B1 |...e@.;.GeJ.;...|
00000300: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000310: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000320: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000330: B1 B1 B1 B1 B1 B1 B1 B1 AE 00 89 65 54 01 3B B3 |...........eT.;.|
00000340: 52 4F 55 54 49 4E 45 3A CC 49 4E 4B 41 44 44 52 |ROUTINE:.INKADDR|
00000350: 45 53 53 45 4E 20 4B 4F 52 52 49 47 49 45 52 45 |ESSEN KORRIGIERE|
00000360: 4E 2F D4 45 58 54 5A 45 49 47 45 52 20 53 45 54 |N/.EXTZEIGER SET|
00000370: 5A 45 4E 20 20 20 20 20 20 20 AB 00 CB 65 5E 01 |ZEN ...e^.|
00000380: 3B AD B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |;...............|
00000390: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000003A0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000003B0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 BD 00 D9 65 |...............e|
000003C0: 68 01 CE 45 DA 45 49 4C 45 20 9E 00 F8 65 72 01 |h..E.EILE ...er.|
000003D0: 20 81 28 24 46 41 29 2C 59 3B 48 4F 48 4C 45 20 | .($FA),Y;HOHLE |
000003E0: 42 41 53 49 43 2D 42 59 54 45 00 25 66 7C 01 20 |BASIC-BYTE.%f|. |
000003F0: B7 CE 45 DA 45 49 4C 45 3B 53 50 52 49 4E 47 45 |..E.EILE;SPRINGE|
00000400: 2C 20 57 45 4E 4E 20 4E 49 43 48 54 20 DA 45 49 |, WENN NICHT .EI|
00000410: 4C 45 4E 45 4E 44 45 00 2C 66 86 01 20 9E 00 36 |LENENDE.,f.. ..6|
00000420: 66 90 01 20 89 24 46 45 00 3C 66 9A 01 3B 00 46 |f.. .$FE.<f..;.F|
00000430: 66 A4 01 20 84 23 24 30 00 6B 66 AE 01 20 81 24 |f.. .#$0.kf.. .$|
00000440: 46 42 3B 48 4F 48 4C 45 20 48 49 47 48 2D 42 59 |FB;HOHLE HIGH-BY|
00000450: 54 45 20 D4 45 58 54 5A 45 49 47 45 52 00 75 66 |TE .EXTZEIGER.uf|
00000460: B8 01 20 82 24 46 44 00 99 66 C2 01 20 81 24 46 |.. .$FD..f.. .$F|
00000470: 41 3B 48 4F 48 4C 45 20 4C 4F 57 2D 42 59 54 45 |A;HOHLE LOW-BYTE|
00000480: 20 D4 45 58 54 5A 45 49 47 45 52 00 A0 66 CC 01 | .EXTZEIGER..f..|
00000490: 20 A6 00 BF 66 D6 01 20 86 24 46 45 3B 41 44 44 | ...f.. .$FE;ADD|
000004A0: 49 45 52 45 20 DA 45 49 4C 45 4E 4C 41 45 4E 47 |IERE .EILENLAENG|
000004B0: 45 00 E5 66 E0 01 20 82 28 24 46 41 29 2C 59 3B |E..f.. .($FA),Y;|
000004C0: 53 45 54 5A 45 20 4E 45 55 45 20 CC 49 4E 4B 41 |SETZE NEUE .INKA|
000004D0: 44 44 52 45 53 53 45 00 EF 66 EA 01 20 82 24 46 |DDRESSE..f.. .$F|
000004E0: 43 00 1A 67 F4 01 20 B5 CC 49 4E 4B C8 49 47 48 |C..g.. ..INK.IGH|
000004F0: 3B 53 50 52 49 4E 47 45 2C 57 45 4E 4E 20 4B 45 |;SPRINGE,WENN KE|
00000500: 49 4E 20 D5 45 42 45 52 4C 41 55 46 00 41 67 FE |IN .EBERLAUF.Ag.|
00000510: 01 20 8A 24 46 44 3B 45 52 48 4F 45 48 45 20 48 |. .$FD;ERHOEHE H|
00000520: 49 47 48 2D 42 59 54 45 20 D4 45 58 54 5A 45 49 |IGH-BYTE .EXTZEI|
00000530: 47 45 52 00 47 67 08 02 3B 00 56 67 12 02 CC 49 |GER.Gg..;.Vg...I|
00000540: 4E 4B C8 49 47 48 20 9E 00 7B 67 1C 02 20 81 24 |NK.IGH ..{g.. .$|
00000550: 46 44 3B 48 4F 48 4C 45 20 48 49 47 48 2D 42 59 |FD;HOHLE HIGH-BY|
00000560: 54 45 20 D4 45 58 54 5A 45 49 47 45 52 00 A1 67 |TE .EXTZEIGER..g|
00000570: 26 02 20 82 28 24 46 41 29 2C 59 3B 53 45 54 5A |&. .($FA),Y;SETZ|
00000580: 45 20 4E 45 55 45 20 CC 49 4E 4B 41 44 44 52 45 |E NEUE .INKADDRE|
00000590: 53 53 45 00 C2 67 30 02 20 82 24 46 42 3B 53 45 |SSE..g0. .$FB;SE|
000005A0: 54 5A 45 20 4E 45 55 45 4E 20 D4 45 58 54 5A 45 |TZE NEUEN .EXTZE|
000005B0: 49 47 45 52 00 CC 67 3A 02 20 81 24 46 43 00 ED |IGER..g:. .$FC..|
000005C0: 67 44 02 20 82 24 46 41 3B 53 45 54 5A 45 20 4E |gD. .$FA;SETZE N|
000005D0: 45 55 45 4E 20 D4 45 58 54 5A 45 49 47 45 52 00 |EUEN .EXTZEIGER.|
000005E0: 18 68 4E 02 20 81 28 24 46 41 29 2C 59 3B 48 4F |.hN. .($FA),Y;HO|
000005F0: 48 4C 45 20 48 49 47 48 2D 42 59 54 45 20 CC 49 |HLE HIGH-BYTE .I|
00000600: 4E 4B 41 44 44 52 45 53 53 45 00 48 68 62 02 20 |NKADDRESSE.Hhb. |
00000610: B7 D3 55 CC 41 42 C4 45 46 3B 53 50 52 49 4E 47 |..U.AB.EF;SPRING|
00000620: 45 2C 20 57 45 4E 4E 20 4E 49 43 48 54 20 4C 45 |E, WENN NICHT LE|
00000630: 54 5A 54 45 20 DA 45 49 4C 45 00 4E 68 6C 02 3B |TZTE .EILE.Nhl.;|
00000640: 00 6C 68 76 02 20 A4 3B 2A 2A 2A 2A 20 D0 52 4F |.lhv. .;**** .RO|
00000650: 47 52 41 4D 4D 45 4E 44 45 20 2A 2A 2A 2A 00 72 |GRAMMENDE ****.r|
00000660: 68 80 02 3B 00 B4 68 8A 02 3B B0 B1 B1 B1 B1 B1 |h..;..h..;......|
00000670: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000680: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000690: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
000006A0: B1 B1 B1 B1 B1 AE 00 F6 68 94 02 3B B3 52 4F 55 |........h..;.ROU|
000006B0: 54 49 4E 45 3A 4C 41 42 4C 45 2D C1 55 46 52 55 |TINE:LABLE-.UFRU|
000006C0: 46 20 46 49 4E 44 45 4E 20 20 20 20 20 20 20 20 |F FINDEN |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 20 20 AB 00 38 69 9E 02 3B AD B2 | ..8i..;..|
000006F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000700: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000710: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000720: B2 B2 B2 B2 B2 B2 B2 B2 B2 BD 00 60 69 A8 02 CC |...........`i...|
00000730: 41 42 C4 45 C7 45 46 20 81 23 24 31 3B DA 45 49 |AB.E.EF .#$1;.EI|
00000740: 47 45 52 20 41 55 46 20 D4 45 58 54 41 4E 46 41 |GER AUF .EXTANFA|
00000750: 4E 47 00 6A 69 B2 02 20 82 24 46 43 00 75 69 BC |NG.ji.. .$FC.ui.|
00000760: 02 20 81 23 24 31 43 00 7F 69 C6 02 20 82 24 46 |. .#$1C..i.. .$F|
00000770: 44 00 85 69 D0 02 3B 00 A7 69 DA 02 CE 45 C2 59 |D..i..;..i...E.Y|
00000780: 54 45 20 8A 24 46 43 3B 45 52 48 4F 48 45 20 D4 |TE .$FC;ERHOHE .|
00000790: 45 58 54 5A 45 49 47 45 52 00 D0 69 E4 02 20 B7 |EXTZEIGER..i.. .|
000007A0: D6 47 4C 30 30 3B 53 50 52 49 4E 47 45 2C 20 57 |.GL00;SPRINGE, W|
000007B0: 45 4E 4E 20 4B 45 49 4E 20 D5 45 42 45 52 4C 41 |ENN KEIN .EBERLA|
000007C0: 55 46 00 DA 69 EE 02 20 8A 24 46 44 00 E0 69 F8 |UF..i.. .$FD..i.|
000007D0: 02 3B 00 13 6A 02 03 D6 47 4C 30 30 20 81 28 24 |.;..j...GL00 .($|
000007E0: 46 43 29 2C 59 3B 48 4F 48 4C 45 20 32 2E 20 42 |FC),Y;HOHLE 2. B|
000007F0: 49 53 20 4C 45 54 5A 54 45 53 20 42 41 53 49 43 |IS LETZTES BASIC|
00000800: 2D 42 59 54 45 00 3F 6A 0C 03 20 B7 D6 47 4C CC |-BYTE.?j.. ..GL.|
00000810: 41 42 3B 53 50 52 49 4E 47 45 2C 20 57 45 4E 4E |AB;SPRINGE, WENN|
00000820: 20 4E 49 43 48 54 20 DA 45 49 4C 45 4E 45 4E 44 | NICHT .EILENEND|
00000830: 45 00 45 6A 16 03 3B 00 4F 6A 20 03 20 84 23 24 |E.Ej..;.Oj . .#$|
00000840: 36 00 7A 6A 2A 03 20 81 28 24 46 43 29 2C 59 3B |6.zj*. .($FC),Y;|
00000850: 48 4F 48 4C 45 20 48 49 47 48 2D 42 59 54 45 20 |HOHLE HIGH-BYTE |
00000860: CC 49 4E 4B 41 44 44 52 45 53 53 45 00 9E 6A 34 |.INKADDRESSE..j4|
00000870: 03 20 B8 D4 45 58 C5 4E 44 3B 53 50 52 49 4E 47 |. ..EX.ND;SPRING|
00000880: 45 2C 20 57 45 4E 4E 20 D4 45 58 54 45 4E 44 45 |E, WENN .EXTENDE|
00000890: 00 A4 6A 3E 03 3B 00 AB 6A 48 03 20 9A 00 B4 6A |..j>.;..jH. ...j|
000008A0: 4D 03 20 84 23 34 00 BB 6A 5C 03 20 A6 00 E1 6A |M. .#4..j\. ...j|
000008B0: 66 03 20 86 24 46 43 3B 41 44 44 49 45 52 45 20 |f. .$FC;ADDIERE |
000008C0: 4C 4F 57 2D 42 59 54 45 20 D4 45 58 54 5A 45 49 |LOW-BYTE .EXTZEI|
000008D0: 47 45 52 00 FC 6A 70 03 20 82 24 46 43 3B 4E 45 |GER..jp. .$FC;NE|
000008E0: 55 45 52 20 D4 45 58 54 5A 45 49 47 45 52 00 25 |UER .EXTZEIGER.%|
000008F0: 6B 7A 03 20 B5 D6 47 4C 30 30 3B 53 50 52 49 4E |kz. ..GL00;SPRIN|
00000900: 47 45 2C 20 57 45 4E 4E 20 4B 45 49 4E 20 D5 45 |GE, WENN KEIN .E|
00000910: 42 45 52 4C 41 55 46 00 4B 6B 84 03 20 8A 24 46 |BERLAUF.Kk.. .$F|
00000920: 44 3B 45 52 48 4F 48 45 20 48 49 47 48 2D 42 59 |D;ERHOHE HIGH-BY|
00000930: 54 45 20 D4 45 58 54 5A 45 49 47 45 52 00 65 6B |TE .EXTZEIGER.ek|
00000940: 8E 03 20 B7 D6 47 4C 30 30 3B 53 50 52 49 4E 47 |.. ..GL00;SPRING|
00000950: 45 20 49 4D 4D 45 52 00 6B 6B 98 03 3B 00 95 6B |E IMMER.kk..;..k|
00000960: A2 03 D6 47 4C CC 41 42 20 85 23 24 35 42 3B 56 |...GL.AB .#$5B;V|
00000970: 45 52 47 4C 45 49 43 48 45 2C 20 4F 42 20 4C 41 |ERGLEICHE, OB LA|
00000980: 42 4C 45 2D C4 45 2E 00 B6 6B AC 03 20 B7 CE 45 |BLE-.E...k.. ..E|
00000990: C2 59 54 45 3B 53 50 52 49 4E 47 45 2C 20 57 45 |.YTE;SPRINGE, WE|
000009A0: 4E 4E 20 4E 49 43 48 54 00 BC 6B B6 03 3B 00 CC |NN NICHT..k..;..|
000009B0: 6B C0 03 CE 45 CC 41 42 C2 59 54 45 20 9E 00 F5 |k...E.AB.YTE ...|
000009C0: 6B CA 03 20 81 28 24 46 43 29 2C 59 3B 48 4F 48 |k.. .($FC),Y;HOH|
000009D0: 4C 45 20 4E 41 45 43 48 53 54 45 53 20 4C 41 42 |LE NAECHSTES LAB|
000009E0: 4C 45 2D 42 59 54 45 00 1C 6C D4 03 20 85 28 24 |LE-BYTE..l.. .($|
000009F0: 46 41 29 2C 59 3B 56 45 52 47 4C 45 49 43 48 45 |FA),Y;VERGLEICHE|
00000A00: 20 4D 49 54 20 4C 41 42 4C 45 2D C4 45 2E 00 41 | MIT LABLE-.E..A|
00000A10: 6C DE 03 20 B8 CE 45 CC 41 42 C2 59 54 45 3B 53 |l.. ..E.AB.YTE;S|
00000A20: 50 52 49 4E 47 45 2C 20 57 45 4E 4E 20 47 4C 45 |PRINGE, WENN GLE|
00000A30: 49 43 48 00 47 6C E8 03 3B 00 4E 6C F2 03 20 A3 |ICH.Gl..;.Nl.. .|
00000A40: 00 64 6C FC 03 20 81 23 24 35 44 3B 4C 41 42 4C |.dl.. .#$5D;LABL|
00000A50: 45 2D C5 4E 44 45 00 94 6C 06 04 20 85 28 24 46 |E-.NDE..l.. .($F|
00000A60: 41 29 2C 59 3B 56 47 4C 20 4D 49 54 20 56 4F 52 |A),Y;VGL MIT VOR|
00000A70: 4C 45 54 5A 54 45 4D 20 42 59 54 45 20 4C 41 42 |LETZTEM BYTE LAB|
00000A80: 45 4C 2D C4 45 2E 00 C3 6C 10 04 20 B7 C6 41 4C |EL-.E...l.. ..AL|
00000A90: 53 CC 41 42 4C 45 3B 53 50 52 49 4E 47 45 2C 20 |S.ABLE;SPRINGE, |
00000AA0: 57 45 4E 4E 20 4E 49 43 48 54 20 4C 41 42 4C 45 |WENN NICHT LABLE|
00000AB0: 2D C5 4E 44 45 00 C9 6C 1A 04 3B 00 FC 6C 24 04 |-.NDE..l..;..l$.|
00000AC0: 20 85 28 24 46 43 29 2C 59 3B 56 47 4C 20 4D 49 | .($FC),Y;VGL MI|
00000AD0: 54 20 56 4F 52 4C 45 54 5A 54 45 4D 20 42 59 54 |T VORLETZTEM BYT|
00000AE0: 45 20 4C 41 42 4C 45 2D C1 55 46 52 55 46 00 22 |E LABLE-.UFRUF."|
00000AF0: 6D 2E 04 20 B8 CC 41 42 C7 45 46 3B 53 50 52 49 |m.. ..AB.EF;SPRI|
00000B00: 4E 47 45 2C 20 57 45 4E 4E 20 4C 41 42 4C 45 2D |NGE, WENN LABLE-|
00000B10: C5 4E 44 45 00 28 6D 38 04 3B 00 3A 6D 42 04 C6 |.NDE.(m8.;.:mB..|
00000B20: 41 4C 53 CC 41 42 4C 45 20 84 23 34 00 5E 6D 4C |ALS.ABLE .#4.^mL|
00000B30: 04 20 B7 CE 45 C2 59 54 45 3B 57 45 49 54 45 52 |. ..E.YTE;WEITER|
00000B40: 45 20 C1 55 46 52 55 46 45 20 53 55 43 48 45 4E |E .UFRUFE SUCHEN|
00000B50: 00 64 6D 56 04 3B 00 A6 6D 60 04 3B B0 B1 B1 B1 |.dmV.;..m`.;....|
00000B60: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000B70: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000B80: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000B90: B1 B1 B1 B1 B1 B1 B1 AE 00 E8 6D 6A 04 3B B3 52 |..........mj.;.R|
00000BA0: 4F 55 54 49 4E 45 3A 4C 41 42 4C 45 2D C1 55 46 |OUTINE:LABLE-.UF|
00000BB0: 52 55 46 45 20 47 45 46 55 4E 44 45 4E 2F C4 45 |RUFE GEFUNDEN/.E|
00000BC0: 4B 4C 41 52 41 54 49 4F 4E 20 4C 4F 45 53 43 48 |KLARATION LOESCH|
00000BD0: 45 4E 20 20 20 20 20 20 20 AB 00 2A 6E 74 04 3B |EN ..*nt.;|
00000BE0: AD B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000BF0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000C00: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000C10: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 BD 00 4F 6E 92 |.............On.|
00000C20: 04 D4 45 58 C5 4E 44 20 81 28 24 46 41 29 2C 59 |..EX.ND .($FA),Y|
00000C30: 3B 48 4F 48 4C 45 20 4C 41 42 4C 45 2D 42 59 54 |;HOHLE LABLE-BYT|
00000C40: 45 00 56 6E 9C 04 20 9E 00 61 6E A1 04 20 85 23 |E.Vn.. ..an.. .#|
00000C50: 24 35 44 00 87 6E A6 04 20 B7 D4 45 58 C5 4E 44 |$5D..n.. ..EX.ND|
00000C60: 3B 53 50 52 49 4E 47 45 2C 20 57 45 4E 4E 20 4E |;SPRINGE, WENN N|
00000C70: 49 43 48 54 20 C5 4E 44 45 00 8E 6E B0 04 20 9A |ICHT .NDE..n.. .|
00000C80: 00 95 6E BA 04 20 A7 00 9E 6E C4 04 20 92 23 34 |..n.. ...n.. .#4|
00000C90: 00 BD 6E CE 04 20 82 24 46 45 3B 53 49 43 48 45 |..n.. .$FE;SICHE|
00000CA0: 52 45 20 4C 41 42 4C 45 2D CC 41 45 4E 47 45 00 |RE LABLE-.AENGE.|
00000CB0: C6 6E D8 04 20 84 23 34 00 CC 6E E2 04 3B 00 F0 |.n.. .#4..n..;..|
00000CC0: 6E EC 04 20 81 24 46 42 3B 48 4F 48 4C 45 20 48 |n.. .$FB;HOHLE H|
00000CD0: 49 47 48 2D 42 59 54 45 20 4C 41 42 4C 45 2D C4 |IGH-BYTE LABLE-.|
00000CE0: 45 2E 00 18 6F F6 04 20 82 24 32 36 3B 53 49 43 |E...o.. .$26;SIC|
00000CF0: 48 45 52 45 20 41 4C 53 20 43 4F 50 59 2D DA 49 |HERE ALS COPY-.I|
00000D00: 45 4C 41 44 44 52 45 53 53 45 00 43 6F 00 05 20 |ELADDRESSE.Co.. |
00000D10: 82 24 32 38 3B 53 49 43 48 45 52 45 20 41 4C 53 |.$28;SICHERE ALS|
00000D20: 20 43 4F 50 59 2D C1 4E 46 41 4E 47 53 41 44 44 | COPY-.NFANGSADD|
00000D30: 52 45 53 53 45 00 49 6F 14 05 3B 00 73 6F 1E 05 |RESSE.Io..;.so..|
00000D40: 20 81 24 46 41 3B 48 4F 48 4C 45 20 4C 4F 57 2D | .$FA;HOHLE LOW-|
00000D50: 42 59 54 45 20 DA 45 49 47 45 52 20 4C 41 42 4C |BYTE .EIGER LABL|
00000D60: 45 2D C4 45 2E 00 9B 6F 28 05 20 82 24 32 35 3B |E-.E...o(. .$25;|
00000D70: 53 49 43 48 45 52 45 20 41 4C 53 20 43 4F 50 59 |SICHERE ALS COPY|
00000D80: 2D DA 49 45 4C 41 44 44 52 45 53 53 45 00 A2 6F |-.IELADDRESSE..o|
00000D90: 32 05 20 A6 00 C1 6F 3C 05 20 86 24 46 45 3B 41 |2. ...o<. .$FE;A|
00000DA0: 44 44 49 45 52 45 20 4C 41 42 4C 45 2D CC 41 45 |DDIERE LABLE-.AE|
00000DB0: 4E 47 45 00 EC 6F 46 05 20 82 24 32 37 3B 53 49 |NGE..oF. .$27;SI|
00000DC0: 43 48 45 52 45 20 41 4C 53 20 43 4F 50 59 2D C1 |CHERE ALS COPY-.|
00000DD0: 4E 46 41 4E 47 53 41 44 44 52 45 53 53 45 00 15 |NFANGSADDRESSE..|
00000DE0: 70 50 05 20 B5 C3 4F 50 59 31 3B 53 50 52 49 4E |pP. ..OPY1;SPRIN|
00000DF0: 47 45 2C 20 57 45 4E 4E 20 4B 45 49 4E 20 D5 45 |GE, WENN KEIN .E|
00000E00: 42 45 52 4C 41 55 46 00 1F 70 5A 05 20 8A 24 32 |BERLAUF..pZ. .$2|
00000E10: 38 00 25 70 64 05 3B 00 59 70 6E 05 C3 4F 50 59 |8.%pd.;.Ypn..OPY|
00000E20: 31 20 97 D3 43 48 49 45 42 C8 4F 43 48 3B 3D 3E |1 ..CHIEB.OCH;=>|
00000E30: 20 4C 41 42 4C 45 2D C4 45 4B 4C 41 52 41 54 49 | LABLE-.EKLARATI|
00000E40: 4F 4E 20 4C 4F 45 53 43 48 45 4E 00 64 70 78 05 |ON LOESCHEN.dpx.|
00000E50: 20 96 D3 55 C4 45 00 6A 70 82 05 3B 00 70 70 8C | ..U.E.jp..;.pp.|
00000E60: 05 3B 00 B2 70 96 05 3B B0 B1 B1 B1 B1 B1 B1 B1 |.;..p..;........|
00000E70: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000E80: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000E90: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00000EA0: B1 B1 B1 AE 00 F4 70 A0 05 3B B3 52 4F 55 54 49 |......p..;.ROUTI|
00000EB0: 4E 45 3A DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 |NE:.EILENNUMMER |
00000EC0: 55 4D 57 41 4E 44 45 4C 4E 20 20 20 20 20 20 20 |UMWANDELN |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EE0: 20 20 20 20 20 AB 00 36 71 AA 05 3B AD B2 B2 B2 | ..6q..;....|
00000EF0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000F00: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000F10: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000F20: B2 B2 B2 B2 B2 B2 B2 BD 00 43 71 B4 05 CC 41 42 |.........Cq...AB|
00000F30: C7 45 46 20 A3 00 4A 71 BE 05 20 A3 00 51 71 C8 |.EF ..Jq.. ..Qq.|
00000F40: 05 20 A3 00 67 71 D2 05 20 89 24 46 45 3B 4C 41 |. ..gq.. .$FE;LA|
00000F50: 42 4C 45 2D CC 41 4E 47 45 00 70 71 DC 05 20 83 |BLE-.ANGE.pq.. .|
00000F60: 23 36 00 7B 71 E6 05 20 81 23 27 30 27 00 91 71 |#6.{q.. .#'0'..q|
00000F70: F0 05 C9 4E 49 54 DA 45 49 CE 52 20 82 24 45 30 |...NIT.EI.R .$E0|
00000F80: 30 2C 58 00 98 71 FA 05 20 AF 00 A8 71 04 06 20 |0,X..q.. ...q.. |
00000F90: B7 C9 4E 49 54 DA 45 49 CE 52 00 AE 71 0E 06 3B |..NIT.EI.R..q..;|
00000FA0: 00 B7 71 18 06 20 84 23 32 00 E1 71 22 06 20 81 |..q.. .#2..q". .|
00000FB0: 28 24 46 41 29 2C 59 3B 48 4F 48 4C 45 20 4C 4F |($FA),Y;HOHLE LO|
00000FC0: 57 2D 42 59 54 45 20 DA 45 49 4C 45 4E 4E 55 4D |W-BYTE .EILENNUM|
00000FD0: 4D 45 52 00 EB 71 2C 06 20 82 24 32 35 00 F2 71 |MER..q,. .$25..q|
00000FE0: 36 06 20 9E 00 1D 72 40 06 20 81 28 24 46 41 29 |6. ...r@. .($FA)|
00000FF0: 2C 59 3B 48 4F 48 4C 45 20 48 49 47 48 2D 42 59 |,Y;HOHLE HIGH-BY|
00001000: 54 45 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 00 |TE .EILENNUMMER.|
00001010: 27 72 4A 06 20 82 24 32 36 00 54 72 54 06 20 8A |'rJ. .$26.TrT. .|
00001020: 24 32 35 3B 45 52 48 4F 45 48 45 20 4C 4F 57 2D |$25;ERHOEHE LOW-|
00001030: 42 59 54 45 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 |BYTE .EILENNUMME|
00001040: 52 20 55 4D 20 31 00 80 72 5E 06 20 B7 CC 4F 57 |R UM 1..r^. ..OW|
00001050: DA 45 49 CE 52 3B 53 50 52 49 4E 47 45 2C 20 57 |.EI.R;SPRINGE, W|
00001060: 45 4E 4E 20 4B 45 49 4E 20 D5 45 42 45 52 4C 41 |ENN KEIN .EBERLA|
00001070: 55 46 00 8A 72 68 06 20 8A 24 32 36 00 90 72 72 |UF..rh. .$26..rr|
00001080: 06 3B 00 C3 72 7C 06 CC 4F 57 DA 45 49 CE 52 20 |.;..r|..OW.EI.R |
00001090: 94 24 32 35 3B 45 52 4E 49 45 44 52 49 47 45 20 |.$25;ERNIEDRIGE |
000010A0: 4C 4F 57 2D 42 59 54 45 20 DA 45 49 4C 45 4E 4E |LOW-BYTE .EILENN|
000010B0: 55 4D 4D 45 52 00 EB 72 86 06 20 B8 C8 49 47 48 |UMMER..r.. ..IGH|
000010C0: DA 45 49 CE 52 3B 53 50 52 49 4E 47 45 2C 20 57 |.EI.R;SPRINGE, W|
000010D0: 45 4E 4E 20 D5 4E 54 45 52 4C 41 55 46 00 F1 72 |ENN .NTERLAUF..r|
000010E0: 90 06 3B 00 FE 72 9A 06 CC 4F 57 33 20 83 23 36 |..;..r...OW3 .#6|
000010F0: 00 0F 73 A4 06 CC 4F 57 32 20 8A 24 45 30 30 2C |..s...OW2 .$E00,|
00001100: 58 00 30 73 AE 06 20 81 24 45 30 30 2C 58 3B 48 |X.0s.. .$E00,X;H|
00001110: 4F 48 4C 45 20 C4 45 5A 49 4D 41 4C 5A 49 46 46 |OHLE .EZIMALZIFF|
00001120: 45 52 00 3D 73 B8 06 20 85 23 27 39 27 2B 31 00 |ER.=s.. .#'9'+1.|
00001130: 69 73 C2 06 20 B7 CC 4F 57 DA 45 49 CE 52 3B 53 |is.. ..OW.EI.R;S|
00001140: 50 52 49 4E 47 45 2C 20 57 45 4E 4E 20 4B 45 49 |PRINGE, WENN KEI|
00001150: 4E 20 D5 45 42 45 52 4C 41 55 46 00 74 73 CC 06 |N .EBERLAUF.ts..|
00001160: 20 81 23 27 30 27 00 81 73 D6 06 20 82 24 45 30 | .#'0'..s.. .$E0|
00001170: 30 2C 58 00 98 73 E0 06 20 AF 3B 4E 41 45 43 48 |0,X..s.. .;NAECH|
00001180: 53 54 45 20 DA 49 46 46 45 52 00 B1 73 EA 06 20 |STE .IFFER..s.. |
00001190: B7 CC 4F 57 32 3B 53 50 52 49 4E 47 45 20 49 4D |..OW2;SPRINGE IM|
000011A0: 4D 45 52 00 B7 73 F4 06 3B 00 E6 73 FE 06 C8 49 |MER..s..;..s...I|
000011B0: 47 48 DA 45 49 CE 52 20 81 24 32 36 3B 48 4F 48 |GH.EI.R .$26;HOH|
000011C0: 4C 45 20 48 49 47 48 2D 42 59 54 45 20 DA 45 49 |LE HIGH-BYTE .EI|
000011D0: 4C 45 4E 55 4D 4D 45 52 00 0D 74 08 07 20 B8 D3 |LENUMMER..t.. ..|
000011E0: 55 C1 4E 46 31 3B 53 50 52 49 4E 47 45 2C 20 57 |U.NF1;SPRINGE, W|
000011F0: 45 4E 4E 20 55 4D 47 45 57 41 4E 44 45 4C 54 00 |ENN UMGEWANDELT.|
00001200: 38 74 12 07 20 94 24 32 36 3B 45 52 4E 49 45 44 |8t.. .$26;ERNIED|
00001210: 52 49 47 45 20 48 49 47 48 2D 42 59 54 45 20 DA |RIGE HIGH-BYTE .|
00001220: 45 49 4C 45 4E 55 4D 4D 45 52 00 43 74 1C 07 20 |EILENUMMER.Ct.. |
00001230: 96 CC 4F 57 33 00 49 74 26 07 3B 00 8B 74 30 07 |..OW3.It&.;..t0.|
00001240: 3B B0 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |;...............|
00001250: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00001260: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00001270: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 AE 00 CD 74 |...............t|
00001280: 3A 07 3B B3 52 4F 55 54 49 4E 45 3A 4C 41 42 4C |:.;.ROUTINE:LABL|
00001290: 45 2D C1 55 46 52 55 46 20 44 55 52 43 48 20 DA |E-.UFRUF DURCH .|
000012A0: 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 45 52 53 45 |EILENNUMMER ERSE|
000012B0: 54 5A 45 4E 20 20 20 20 20 20 20 20 20 20 AB 00 |TZEN ..|
000012C0: 0F 75 44 07 3B AD B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.uD.;...........|
000012D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000012E0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000012F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001300: BD 00 1E 75 4E 07 D3 55 C1 4E 46 31 20 83 23 30 |...uN..U.NF1 .#0|
00001310: 00 29 75 58 07 20 81 23 27 30 27 00 35 75 62 07 |.)uX. .#'0'.5ub.|
00001320: D3 55 C1 4E 46 20 A2 00 56 75 6C 07 20 85 24 45 |.U.NF ..Vul. .$E|
00001330: 30 30 2C 58 3B 48 4F 48 4C 45 20 C4 45 5A 49 4D |00,X;HOHLE .EZIM|
00001340: 41 4C 5A 49 46 46 45 52 00 74 75 76 07 20 B8 D3 |ALZIFFER.tuv. ..|
00001350: 55 C1 4E 46 3B 53 50 52 49 4E 47 45 2C 20 57 45 |U.NF;SPRINGE, WE|
00001360: 4E 4E 20 27 30 27 00 7E 75 80 07 20 88 24 32 39 |NN '0'.~u.. .$29|
00001370: 00 84 75 8A 07 3B 00 8D 75 94 07 20 81 23 37 00 |..u..;..u.. .#7.|
00001380: 94 75 9E 07 20 A7 00 C2 75 A8 07 20 92 24 32 39 |.u.. ...u.. .$29|
00001390: 3B 42 45 52 45 43 48 4E 45 20 52 45 41 4C 45 20 |;BERECHNE REALE |
000013A0: C4 45 5A 49 4D 41 4C 5A 41 48 4C 45 4E 2D CC 41 |.EZIMALZAHLEN-.A|
000013B0: 45 4E 47 45 00 E7 75 B2 07 20 82 24 32 39 3B 53 |ENGE..u.. .$29;S|
000013C0: 49 43 48 45 52 45 20 DA 45 49 4C 45 4E 4E 55 4D |ICHERE .EILENNUM|
000013D0: 4D 45 52 4C 41 45 4E 47 45 00 ED 75 BC 07 3B 00 |MERLAENGE..u..;.|
000013E0: 13 76 C6 07 20 85 24 46 45 3B 56 45 52 47 4C 45 |.v.. .$FE;VERGLE|
000013F0: 49 43 48 45 20 4D 49 54 20 4C 41 42 4C 45 2D CC |ICHE MIT LABLE-.|
00001400: 41 45 4E 47 45 00 45 76 D0 07 20 B6 D0 52 45 D3 |AENGE.Ev.. ..RE.|
00001410: 43 48 D2 55 3B 53 50 52 49 4E 47 45 2C 20 57 45 |CH.U;SPRINGE, WE|
00001420: 4E 4E 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 |NN .EILENNUMMER |
00001430: 3E 20 4C 41 42 4C 45 00 4B 76 DA 07 3B 00 72 76 |> LABLE.Kv..;.rv|
00001440: E4 07 20 81 24 46 44 3B 48 4F 48 4C 45 20 48 49 |.. .$FD;HOHLE HI|
00001450: 47 48 2D 42 59 54 45 20 4C 41 42 4C 45 2D C1 55 |GH-BYTE LABLE-.U|
00001460: 46 52 55 46 00 9C 76 EE 07 20 82 24 32 36 3B 53 |FRUF..v.. .$26;S|
00001470: 49 43 48 45 52 45 20 41 4C 53 20 48 49 47 48 2D |ICHERE ALS HIGH-|
00001480: 42 59 54 45 20 43 4F 50 59 2D DA 49 45 4C 00 C7 |BYTE COPY-.IEL..|
00001490: 76 F8 07 20 82 24 32 38 3B 53 49 43 48 45 52 45 |v.. .$28;SICHERE|
000014A0: 20 41 4C 53 20 48 49 47 48 2D 42 59 54 45 20 43 | ALS HIGH-BYTE C|
000014B0: 4F 50 59 2D D3 54 41 52 54 00 CD 76 02 08 3B 00 |OPY-.TART..v..;.|
000014C0: F3 76 3E 08 20 81 24 46 43 3B 48 4F 48 4C 45 20 |.v>. .$FC;HOHLE |
000014D0: 4C 4F 57 2D 42 59 54 45 20 4C 41 42 4C 45 2D C1 |LOW-BYTE LABLE-.|
000014E0: 55 46 52 55 46 00 FA 76 48 08 20 A6 00 1F 77 52 |UFRUF..vH. ...wR|
000014F0: 08 20 86 24 32 39 3B 41 44 44 49 45 52 45 20 DA |. .$29;ADDIERE .|
00001500: 45 49 4C 45 4E 4E 55 4D 4D 45 52 4C 41 45 4E 47 |EILENNUMMERLAENG|
00001510: 45 00 48 77 5C 08 20 82 24 32 35 3B 53 49 43 48 |E.Hw\. .$25;SICH|
00001520: 45 52 45 20 41 4C 53 20 4C 4F 57 2D 42 59 54 45 |ERE ALS LOW-BYTE|
00001530: 20 43 4F 50 59 2D DA 49 45 4C 00 73 77 66 08 20 | COPY-.IEL.swf. |
00001540: B5 C3 4F 50 59 DA 49 45 4C 3B 53 50 52 49 4E 47 |..OPY.IEL;SPRING|
00001550: 45 2C 57 45 4E 4E 20 4B 45 49 4E 20 D5 45 42 45 |E,WENN KEIN .EBE|
00001560: 52 4C 41 55 46 00 99 77 70 08 20 8A 24 32 36 3B |RLAUF..wp. .$26;|
00001570: 45 52 48 4F 45 48 45 20 48 49 47 48 2D 42 59 54 |ERHOEHE HIGH-BYT|
00001580: 45 20 43 4F 50 59 2D DA 49 45 4C 00 9F 77 7A 08 |E COPY-.IEL..wz.|
00001590: 3B 00 CE 77 84 08 C3 4F 50 59 DA 49 45 4C 20 81 |;..w...OPY.IEL .|
000015A0: 24 46 43 3B 48 4F 48 4C 45 20 48 49 47 48 2D 42 |$FC;HOHLE HIGH-B|
000015B0: 59 54 45 20 4C 41 42 4C 45 2D C1 55 46 52 55 46 |YTE LABLE-.UFRUF|
000015C0: 00 D5 77 8E 08 20 A6 00 F4 77 98 08 20 86 24 46 |..w.. ...w.. .$F|
000015D0: 45 3B 41 44 44 49 45 52 45 20 4C 41 42 4C 45 2D |E;ADDIERE LABLE-|
000015E0: CC 41 45 4E 47 45 00 1E 78 A2 08 20 82 24 32 37 |.AENGE..x.. .$27|
000015F0: 3B 53 49 43 48 45 52 45 20 41 4C 53 20 4C 4F 57 |;SICHERE ALS LOW|
00001600: 2D 42 59 54 45 20 43 4F 50 59 2D D3 54 41 52 54 |-BYTE COPY-.TART|
00001610: 00 47 78 AC 08 20 B5 C3 4F 50 59 32 3B 53 50 52 |.Gx.. ..OPY2;SPR|
00001620: 49 4E 47 45 2C 20 57 45 4E 4E 20 4B 45 49 4E 20 |INGE, WENN KEIN |
00001630: D5 45 42 45 52 4C 41 55 46 00 6E 78 B6 08 20 8A |.EBERLAUF.nx.. .|
00001640: 24 32 38 3B 45 52 48 4F 45 48 45 20 48 49 47 48 |$28;ERHOEHE HIGH|
00001650: 2D 42 59 54 45 20 43 4F 50 59 2D D3 54 41 52 54 |-BYTE COPY-.TART|
00001660: 00 74 78 C0 08 3B 00 A6 78 CA 08 C3 4F 50 59 32 |.tx..;..x...OPY2|
00001670: 20 97 D3 43 48 49 45 42 C8 4F 43 48 3B 3D 3E 20 | ..CHIEB.OCH;=> |
00001680: 4C 41 42 4C 45 2D D5 45 42 45 52 48 41 4E 47 20 |LABLE-.EBERHANG |
00001690: 4C 4F 45 53 43 48 45 4E 00 AC 78 D4 08 3B 00 C9 |LOESCHEN..x..;..|
000016A0: 78 DE 08 20 B8 DA 45 49 CE 52 C5 49 4E 3B 53 50 |x.. ..EI.R.IN;SP|
000016B0: 52 49 4E 47 45 20 49 4D 4D 45 52 00 CF 78 E8 08 |RINGE IMMER..x..|
000016C0: 3B 00 FC 78 F2 08 D0 52 45 D3 43 48 D2 55 20 81 |;..x...RE.CH.U .|
000016D0: 24 31 32 31 31 3B 48 4F 48 4C 45 20 48 49 47 48 |$1211;HOHLE HIGH|
000016E0: 2D 42 59 54 45 20 D4 45 58 54 45 4E 44 45 00 27 |-BYTE .EXTENDE.'|
000016F0: 79 FC 08 20 82 24 32 36 3B 53 49 43 48 45 52 45 |y.. .$26;SICHERE|
00001700: 20 41 4C 53 20 48 49 47 48 2D 42 59 54 45 20 43 | ALS HIGH-BYTE C|
00001710: 4F 50 59 2D D3 54 41 52 54 00 51 79 06 09 20 82 |OPY-.TART.Qy.. .|
00001720: 24 32 38 3B 53 49 43 48 45 52 45 20 41 4C 53 20 |$28;SICHERE ALS |
00001730: 48 49 47 48 2D 42 59 54 45 20 43 4F 50 59 2D DA |HIGH-BYTE COPY-.|
00001740: 49 45 4C 00 5A 79 1A 09 20 84 23 34 00 7E 79 24 |IEL.Zy.. .#4.~y$|
00001750: 09 20 81 24 31 32 31 30 3B 48 4F 48 4C 45 20 4C |. .$1210;HOHLE L|
00001760: 4F 57 2D 42 59 54 45 20 D4 45 58 54 45 4E 44 45 |OW-BYTE .EXTENDE|
00001770: 00 A8 79 2E 09 20 82 24 32 35 3B 53 49 43 48 45 |..y.. .$25;SICHE|
00001780: 52 45 20 41 4C 53 20 4C 4F 57 2D 42 59 54 45 20 |RE ALS LOW-BYTE |
00001790: 43 4F 50 59 2D D3 54 41 52 54 00 AF 79 38 09 20 |COPY-.TART..y8. |
000017A0: A7 00 D2 79 42 09 20 92 24 46 45 3B 53 55 42 54 |...yB. .$FE;SUBT|
000017B0: 52 41 48 49 45 52 45 20 4C 41 42 4C 45 2D CC 41 |RAHIERE LABLE-.A|
000017C0: 45 4E 47 45 00 DB 79 47 09 20 92 23 32 00 E2 79 |ENGE..yG. .#2..y|
000017D0: 4C 09 20 A6 00 09 7A 56 09 20 86 24 32 39 3B 41 |L. ...zV. .$29;A|
000017E0: 44 44 49 45 52 45 20 DA 45 49 4C 45 4E 4E 55 4D |DDIERE .EILENNUM|
000017F0: 4D 45 52 4C 41 45 4E 47 45 2B 31 00 32 7A 60 09 |MERLAENGE+1.2z`.|
00001800: 20 82 24 32 37 3B 53 49 43 48 45 52 45 20 41 4C | .$27;SICHERE AL|
00001810: 53 20 4C 4F 57 2D 42 59 54 45 20 43 4F 50 59 2D |S LOW-BYTE COPY-|
00001820: DA 49 45 4C 00 5C 7A 6A 09 20 82 24 31 32 31 30 |.IEL.\zj. .$1210|
00001830: 3B 53 49 43 48 45 52 45 20 41 4C 53 20 4C 4F 57 |;SICHERE ALS LOW|
00001840: 2D 42 59 54 45 20 D4 45 58 54 45 4E 44 45 00 85 |-BYTE .EXTENDE..|
00001850: 7A 74 09 20 B5 C3 4F 50 59 33 3B 53 50 52 49 4E |zt. ..OPY3;SPRIN|
00001860: 47 45 2C 20 57 45 4E 4E 20 4B 45 49 4E 20 D5 45 |GE, WENN KEIN .E|
00001870: 42 45 52 4C 41 55 46 00 AE 7A 7E 09 20 94 24 32 |BERLAUF..z~. .$2|
00001880: 38 3B 45 52 4E 49 45 44 52 49 47 45 20 48 49 47 |8;ERNIEDRIGE HIG|
00001890: 48 2D 42 59 54 45 20 43 4F 50 59 2D DA 49 45 4C |H-BYTE COPY-.IEL|
000018A0: 00 D8 7A 88 09 20 94 24 31 32 31 31 3B 45 52 4E |..z.. .$1211;ERN|
000018B0: 49 45 44 52 49 47 45 20 48 49 47 48 2D 42 59 54 |IEDRIGE HIGH-BYT|
000018C0: 45 20 D4 45 58 54 45 4E 44 45 00 DE 7A 92 09 3B |E .EXTENDE..z..;|
000018D0: 00 02 7B 9C 09 C3 4F 50 59 33 20 81 28 24 32 37 |..{...OPY3 .($27|
000018E0: 29 2C 59 3B 48 4F 48 4C 45 20 42 41 53 49 43 2D |),Y;HOHLE BASIC-|
000018F0: 42 59 54 45 00 1B 7B A6 09 20 82 28 24 32 35 29 |BYTE..{.. .($25)|
00001900: 2C 59 3B 4C 45 47 45 20 45 53 20 41 42 00 21 7B |,Y;LEGE ES AB.!{|
00001910: B0 09 3B 00 4A 7B BA 09 20 94 24 32 35 3B 45 52 |..;.J{.. .$25;ER|
00001920: 4E 49 45 44 52 49 47 45 20 4C 4F 57 2D 42 59 54 |NIEDRIGE LOW-BYT|
00001930: 45 20 43 4F 50 59 2D D3 54 41 52 54 00 54 7B C4 |E COPY-.TART.T{.|
00001940: 09 20 81 24 32 35 00 5F 7B CE 09 20 85 23 24 46 |. .$25._{.. .#$F|
00001950: 46 00 89 7B D8 09 20 B7 C3 4F 50 59 DA 4C 3B 53 |F..{.. ..OPY.L;S|
00001960: 50 52 49 4E 47 45 2C 20 57 45 4E 4E 20 4B 45 49 |PRINGE, WENN KEI|
00001970: 4E 20 D5 4E 54 45 52 4C 41 55 46 00 B3 7B E2 09 |N .NTERLAUF..{..|
00001980: 20 94 24 32 36 3B 45 52 4E 49 45 44 52 49 47 45 | .$26;ERNIEDRIGE|
00001990: 20 48 49 47 48 2D 42 59 54 45 20 43 4F 50 59 2D | HIGH-BYTE COPY-|
000019A0: D3 54 41 52 54 00 B9 7B EC 09 3B 00 E6 7B F6 09 |.TART..{..;..{..|
000019B0: C3 4F 50 59 DA 4C 20 94 24 32 37 3B 45 52 4E 49 |.OPY.L .$27;ERNI|
000019C0: 45 44 49 47 45 20 4C 4F 57 2D 42 59 54 45 20 43 |EDIGE LOW-BYTE C|
000019D0: 4F 50 59 2D DA 49 45 4C 00 F0 7B 00 0A 20 81 24 |OPY-.IEL..{.. .$|
000019E0: 32 37 00 FB 7B 0A 0A 20 85 23 24 46 46 00 26 7C |27..{.. .#$FF.&||
000019F0: 14 0A 20 B7 D4 45 53 54 C5 4E 44 3B 53 50 52 49 |.. ..EST.ND;SPRI|
00001A00: 4E 47 45 2C 20 57 45 4E 4E 20 4B 45 49 4E 20 D5 |NGE, WENN KEIN .|
00001A10: 4E 54 45 52 4C 41 55 46 00 4F 7C 1E 0A 20 94 24 |NTERLAUF.O|.. .$|
00001A20: 32 38 3B 45 52 4E 49 45 44 52 49 47 45 20 48 49 |28;ERNIEDRIGE HI|
00001A30: 47 48 2D 42 59 54 45 20 43 4F 50 59 2D DA 49 45 |GH-BYTE COPY-.IE|
00001A40: 4C 00 55 7C 28 0A 3B 00 83 7C 32 0A D4 45 53 54 |L.U|(.;..|2..EST|
00001A50: C5 4E 44 20 81 24 46 44 3B 48 4F 48 4C 45 20 48 |.ND .$FD;HOHLE H|
00001A60: 49 47 48 2D 42 59 54 45 20 4C 41 42 4C 45 2D C1 |IGH-BYTE LABLE-.|
00001A70: 55 46 52 55 46 00 A0 7C 3C 0A 20 85 24 32 38 3B |UFRUF..|<. .$28;|
00001A80: 56 47 4C 20 4D 49 54 20 43 4F 50 59 2D D3 54 41 |VGL MIT COPY-.TA|
00001A90: 52 54 00 CE 7C 46 0A 20 B7 C3 4F 50 59 33 3B 53 |RT..|F. ..OPY3;S|
00001AA0: 50 52 49 4E 47 45 2C 20 57 45 4E 4E 20 C5 4E 44 |PRINGE, WENN .ND|
00001AB0: 45 20 4E 49 43 48 54 20 45 52 52 45 49 43 48 54 |E NICHT ERREICHT|
00001AC0: 00 F4 7C 50 0A 20 81 24 46 43 3B 48 4F 48 4C 45 |..|P. .$FC;HOHLE|
00001AD0: 20 4C 4F 57 2D 42 59 54 45 20 4C 41 42 4C 45 2D | LOW-BYTE LABLE-|
00001AE0: C1 55 46 52 55 46 00 11 7D 5A 0A 20 85 24 32 37 |.UFRUF..}Z. .$27|
00001AF0: 3B 56 47 4C 20 4D 49 54 20 43 4F 50 59 2D D3 54 |;VGL MIT COPY-.T|
00001B00: 41 52 54 00 3F 7D 64 0A 20 B7 C3 4F 50 59 33 3B |ART.?}d. ..OPY3;|
00001B10: 53 50 52 49 4E 47 45 2C 20 57 45 4E 4E 20 C5 4E |SPRINGE, WENN .N|
00001B20: 44 45 20 4E 49 43 48 54 20 45 52 52 45 49 43 48 |DE NICHT ERREICH|
00001B30: 54 00 45 7D 6E 0A 3B 00 78 7D 78 0A DA 45 49 CE |T.E}n.;.x}x..EI.|
00001B40: 52 C5 49 4E 20 81 24 45 30 30 2C 58 3B 48 4F 48 |R.IN .$E00,X;HOH|
00001B50: 4C 45 20 DA 49 46 46 45 52 20 44 45 52 20 DA 45 |LE .IFFER DER .E|
00001B60: 49 4C 45 4E 4E 55 4D 4D 45 52 00 9F 7D 82 0A 20 |ILENNUMMER..}.. |
00001B70: 82 28 24 46 43 29 2C 59 3B 53 45 54 5A 45 20 41 |.($FC),Y;SETZE A|
00001B80: 4E 53 54 41 54 54 20 4C 41 42 4C 45 2D CE 41 4D |NSTATT LABLE-.AM|
00001B90: 45 00 A6 7D 8C 0A 20 9E 00 AD 7D 96 0A 20 A2 00 |E..}.. ...}.. ..|
00001BA0: B7 7D A0 0A 20 8B 23 24 37 00 E8 7D AA 0A 20 B7 |.}.. .#$7..}.. .|
00001BB0: DA 45 49 CE 52 C5 49 4E 3B 53 50 52 49 4E 47 45 |.EI.R.IN;SPRINGE|
00001BC0: 2C 20 57 45 4E 4E 20 4E 49 43 48 54 20 4C 45 54 |, WENN NICHT LET|
00001BD0: 5A 54 45 20 DA 49 46 46 45 52 00 EE 7D B4 0A 3B |ZTE .IFFER..}..;|
00001BE0: 00 10 7E C8 0A 20 96 D3 55 C4 45 3B 57 45 49 54 |..~.. ..U.E;WEIT|
00001BF0: 45 52 45 20 C1 55 46 52 55 46 45 20 53 55 43 48 |ERE .UFRUFE SUCH|
00001C00: 45 4E 00 16 7E D2 0A 3B 00 58 7E DC 0A 3B B0 B1 |EN..~..;.X~..;..|
00001C10: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00001C20: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00001C30: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
00001C40: B1 B1 B1 B1 B1 B1 B1 B1 B1 AE 00 9A 7E E6 0A 3B |............~..;|
00001C50: B3 D5 4E 54 45 52 52 4F 55 54 49 4E 45 3A D3 50 |..NTERROUTINE:.P|
00001C60: 45 49 43 48 45 52 42 45 52 45 49 43 48 45 20 56 |EICHERBEREICHE V|
00001C70: 45 52 53 43 48 49 45 42 45 4E 20 20 20 20 20 20 |ERSCHIEBEN |
00001C80: 20 20 20 20 20 20 20 20 20 20 20 AB 00 DC 7E F0 | ...~.|
00001C90: 0A 3B AD B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.;..............|
00001CA0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001CB0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001CC0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 BD 00 EF |................|
00001CD0: 7E FA 0A D3 43 48 49 45 42 C8 4F 43 48 20 84 23 |~...CHIEB.OCH .#|
00001CE0: 34 00 12 7F 04 0B C3 4F 50 59 20 81 28 24 32 37 |4......OPY .($27|
00001CF0: 29 2C 59 3B 48 4F 48 4C 45 20 42 41 53 49 43 2D |),Y;HOHLE BASIC-|
00001D00: 42 59 54 45 00 2B 7F 0E 0B 20 82 28 24 32 35 29 |BYTE.+... .($25)|
00001D10: 2C 59 3B 4C 45 47 45 20 45 53 20 41 42 00 31 7F |,Y;LEGE ES AB.1.|
00001D20: 18 0B 3B 00 55 7F 22 0B 20 8A 24 32 35 3B 45 52 |..;.U.". .$25;ER|
00001D30: 48 4F 48 45 20 4C 4F 57 2D 42 59 54 45 20 43 4F |HOHE LOW-BYTE CO|
00001D40: 50 59 2D DA 49 45 4C 00 7F 7F 2C 0B 20 B7 C3 4F |PY-.IEL...,. ..O|
00001D50: 50 59 DA 49 3B 53 50 52 49 4E 47 45 2C 20 57 45 |PY.I;SPRINGE, WE|
00001D60: 4E 4E 20 4B 45 49 4E 20 D5 45 42 45 52 4C 41 55 |NN KEIN .EBERLAU|
00001D70: 46 00 89 7F 36 0B 20 8A 24 32 36 00 8F 7F 40 0B |F...6. .$26...@.|
00001D80: 3B 00 BB 7F 4A 0B C3 4F 50 59 DA 49 20 8A 24 32 |;...J..OPY.I .$2|
00001D90: 37 3B 45 52 48 4F 45 48 45 20 4C 4F 57 2D 42 59 |7;ERHOEHE LOW-BY|
00001DA0: 54 45 20 43 4F 50 59 2D D3 54 41 52 54 00 E5 7F |TE COPY-.TART...|
00001DB0: 54 0B 20 B7 D4 45 53 54 C5 4E 3B 53 50 52 49 4E |T. ..EST.N;SPRIN|
00001DC0: 47 45 2C 20 57 45 4E 4E 20 4B 45 49 4E 20 D5 45 |GE, WENN KEIN .E|
00001DD0: 42 45 52 4C 41 55 46 00 EF 7F 5E 0B 20 8A 24 32 |BERLAUF...^. .$2|
00001DE0: 38 00 F5 7F 68 0B 3B 00 20 80 72 0B D4 45 53 54 |8...h.;. .r..EST|
00001DF0: C5 4E 20 81 24 32 38 3B 48 4F 48 4C 45 20 48 49 |.N .$28;HOHLE HI|
00001E00: 47 48 2D 42 59 54 45 20 43 4F 50 59 2D D3 54 41 |GH-BYTE COPY-.TA|
00001E10: 52 54 00 3D 80 7C 0B 20 85 24 31 32 31 31 3B 56 |RT.=.|. .$1211;V|
00001E20: 47 4C 20 4D 49 54 20 D4 45 58 54 45 4E 44 45 00 |GL MIT .EXTENDE.|
00001E30: 70 80 86 0B 20 B7 C3 4F 50 59 3B 53 50 52 49 4E |p... ..OPY;SPRIN|
00001E40: 47 45 2C 20 57 45 4E 4E 20 C5 4E 44 C5 4E 44 C5 |GE, WENN .ND.ND.|
00001E50: 4E 44 45 20 4E 49 43 48 54 20 45 52 52 45 49 43 |NDE NICHT ERREIC|
00001E60: 48 54 00 94 80 90 0B 20 81 24 32 37 3B 48 4F 48 |HT..... .$27;HOH|
00001E70: 4C 45 20 4C 4F 57 2D 42 59 54 45 20 43 4F 50 59 |LE LOW-BYTE COPY|
00001E80: 2D D3 54 41 52 54 00 B1 80 9A 0B 20 85 24 31 32 |-.TART..... .$12|
00001E90: 31 30 3B 56 47 4C 20 4D 49 54 20 D4 45 58 54 45 |10;VGL MIT .EXTE|
00001EA0: 4E 44 45 00 DE 80 A4 0B 20 B7 C3 4F 50 59 3B 53 |NDE..... ..OPY;S|
00001EB0: 50 52 49 4E 47 45 2C 20 57 45 4E 4E 20 C5 4E 44 |PRINGE, WENN .ND|
00001EC0: 45 20 4E 49 43 48 54 20 45 52 52 45 49 43 48 54 |E NICHT ERREICHT|
00001ED0: 00 E4 80 AE 0B 3B 00 EB 80 B8 0B 20 A4 00 00 00 |.....;..... ....|
00001EE0: E7 |. |
.B.BD...$C00.)BN.;.LIST 1,3.5BX...W,1,3.
NB..;...................................
..................B..;.DATUM:18.02.1989
AUTOR:CHRISTIAN MENZEL ........
....B..;.PROGRAMMNAME/-AUFGABE:LABLE/LAB
LE-AUFRUFE IN ZEILENNUM= ..4C .;.
MERN UMWANDELN
..VC..;....................
........................................
.|C..;..C..;............................
..................................DH.;.R
OUTINE:LABLE-DEKLARATION FINDEN
..BDR.;................
........................................
.....FD..SUDE .#$1;ZEIGER AUF TEXTANFANG
.PD.. .$FA.{D.. .#$1C..D.. .$FB..D..;..D
..SULABDEF .#4..D..;.MD". .($FA),Y;HOHLE
1.BYTE DER BASIC-ZEILE.XD,. .#$5B..D6.
.LABDEGEF;SPRINGE, WENN LABLE-DE...E@.;.
GEJ.;...................................
...........................ET.;.ROUTINE:
LINKADDRESSEN KORRIGIEREN/TEXTZEIGER SET
ZEN ..KE^.;.......................
......................................YE
H.NEZEILE ...ER. .($FA),Y;HOHLE BASIC-BY
TE.%F|. .NEZEILE;SPRINGE, WENN NICHT ZEI
LENENDE.,F.. ..6F.. .$FE.<F..;.FF.. .#$0
.KF.. .$FB;HOHLE HIGH-BYTE TEXTZEIGER.UF
.. .$FD..FB. .$FA;HOHLE LOW-BYTE TEXTZEI
GER. FL. ...FV. .$FE;ADDIERE ZEILENLAENG
E..F.. .($FA),Y;SETZE NEUE LINKADDRESSE.
.F.. .$FC..G.. .LINKHIGH;SPRINGE,WENN KE
IN UEBERLAUF.AG.. .$FD;ERHOEHE HIGH-BYTE
TEXTZEIGER.GG..;.VG..LINKHIGH ..{G.. .$
FD;HOHLE HIGH-BYTE TEXTZEIGER..G&. .($FA
),Y;SETZE NEUE LINKADDRESSE.BG0. .$FB;SE
TZE NEUEN TEXTZEIGER.LG:. .$FC..GD. .$FA
;SETZE NEUEN TEXTZEIGER..HN. .($FA),Y;HO
HLE HIGH-BYTE LINKADDRESSE.HHB. .SULABDE
F;SPRINGE, WENN NICHT LETZTE ZEILE.NHL.;
.LHV. .;**** PROGRAMMENDE ****.RH..;..H.
.;......................................
........................H..;.ROUTINE:LAB
LE-AUFRUF FINDEN
..8I..;..........................
...................................`I..L
ABDEGEF .#$1;ZEIGER AUF TEXTANFANG.JI..
.$FC.UI.. .#$1C.IF. .$FD..IP.;..IZ.NEBY
TE .$FC;ERHOHE TEXTZEIGER.PI.. .VGL00;SP
RINGE, WENN KEIN UEBERLAUF.ZI.. .$FD..I.
.;..J..VGL00 .($FC),Y;HOHLE 2. BIS LETZT
ES BASIC-BYTE.?J.. .VGLLAB;SPRINGE, WENN
NICHT ZEILENENDE.EJ..;.OJ . .#$6.ZJ*. .
($FC),Y;HOHLE HIGH-BYTE LINKADDRESSE..J4
. .TEXEND;SPRINGE, WENN TEXTENDE..J>.;..
JH. ...JM. .#4..J\. ...JF. .$FC;ADDIERE
LOW-BYTE TEXTZEIGER..JP. .$FC;NEUER TEXT
ZEIGER.%KZ. .VGL00;SPRINGE, WENN KEIN UE
BERLAUF.KK.. .$FD;ERHOHE HIGH-BYTE TEXTZ
EIGER.EK.. .VGL00;SPRINGE IMMER.KK..;..K
..VGLLAB .#$5B;VERGLEICHE, OB LABLE-DE..
.K.. .NEBYTE;SPRINGE, WENN NICHT..K..;.L
K..NELABBYTE ...KJ. .($FC),Y;HOHLE NAECH
STES LABLE-BYTE..LT. .($FA),Y;VERGLEICHE
MIT LABLE-DE..AL.. .NELABBYTE;SPRINGE,
WENN GLEICH.GL..;.NL.. ..DL.. .#$5D;LABL
E-ENDE..L.. .($FA),Y;VGL MIT VORLETZTEM
BYTE LABEL-DE..CL.. .FALSLABLE;SPRINGE,
WENN NICHT LABLE-ENDE.IL..;..L$. .($FC),
Y;VGL MIT VORLETZTEM BYTE LABLE-AUFRUF."
M.. .LABGEF;SPRINGE, WENN LABLE-ENDE.(M8
.;.:MB.FALSLABLE .#4.^ML. .NEBYTE;WEITER
E AUFRUFE SUCHEN.DMV.;..M`.;............
........................................
..........MJ.;.ROUTINE:LABLE-AUFRUFE GEF
UNDEN/DEKLARATION LOESCHEN ..*NT.;
........................................
.....................ON..TEXEND .($FA),Y
;HOHLE LABLE-BYTE.VN.. ..AN.. .#$5D..N..
.TEXEND;SPRINGE, WENN NICHT ENDE..N.. .
..N.. ...ND. .#4..NN. .$FE;SICHERE LABLE
-LAENGE.FNX. .#4.LN..;..N.. .$FB;HOHLE H
IGH-BYTE LABLE-DE...O.. .$26;SICHERE ALS
COPY-ZIELADDRESSE.CO.. .$28;SICHERE ALS
COPY-ANFANGSADDRESSE.IO..;.SO.. .$FA;HO
HLE LOW-BYTE ZEIGER LABLE-DE...O(. .$25;
SICHERE ALS COPY-ZIELADDRESSE..O2. ..AO<
. .$FE;ADDIERE LABLE-LAENGE..OF. .$27;SI
CHERE ALS COPY-ANFANGSADDRESSE..PP. .COP
Y1;SPRINGE, WENN KEIN UEBERLAUF..PZ. .$2
8.%PD.;.YPN.COPY1 .SCHIEBHOCH;=> LABLE-D
EKLARATION LOESCHEN.DPX. .SUDE.JP..;.PP.
.;..P..;................................
..............................P .;.ROUTI
NE:ZEILENNUMMER UMWANDELN
..6Q..;....................
........................................
.CQ..LABGEF ..JQ.. ..QQH. ..GQR. .$FE;LA
BLE-LANGE.PQ.. .#6.{Q.. .#'0'..Q..INITZE
INR .$E00,X..Q.. ...Q.. .INITZEINR..Q..;
..Q.. .#2..Q". .($FA),Y;HOHLE LOW-BYTE Z
EILENNUMMER..Q,. .$25..Q6. ...R@. .($FA)
,Y;HOHLE HIGH-BYTE ZEILENNUMMER.'RJ. .$2
6.TRT. .$25;ERHOEHE LOW-BYTE ZEILENNUMME
R UM 1..R^. .LOWZEINR;SPRINGE, WENN KEIN
UEBERLAUF..RH. .$26..RR.;.CR|.LOWZEINR
.$25;ERNIEDRIGE LOW-BYTE ZEILENNUMMER..R
.. .HIGHZEINR;SPRINGE, WENN UNTERLAUF..R
..;..R..LOW3 .#6..S..LOW2 .$E00,X.0S.. .
$E00,X;HOHLE DEZIMALZIFFER.=S.. .#'9'+1.
ISB. .LOWZEINR;SPRINGE, WENN KEIN UEBERL
AUF.TSL. .#'0'..SV. .$E00,X..S.. .;NAECH
STE ZIFFER..S.. .LOW2;SPRINGE IMMER..S..
;..S..HIGHZEINR .$26;HOHLE HIGH-BYTE ZEI
LENUMMER..T.. .SUANF1;SPRINGE, WENN UMGE
WANDELT.8T.. .$26;ERNIEDRIGE HIGH-BYTE Z
EILENUMMER.CT.. .LOW3.IT&.;..T0.;.......
........................................
..............MT:.;.ROUTINE:LABLE-AUFRUF
DURCH ZEILENNUMMER ERSETZEN ..
.UD.;...................................
...........................UN.SUANF1 .#0
.)UX. .#'0'.5UB.SUANF ..VUL. .$E00,X;HOH
LE DEZIMALZIFFER.TUV. .SUANF;SPRINGE, WE
NN '0'.~U.. .$29..U..;..U.. .#7..U.. ..B
U.. .$29;BERECHNE REALE DEZIMALZAHLEN-LA
ENGE..U.. .$29;SICHERE ZEILENNUMMERLAENG
E..U..;..VF. .$FE;VERGLEICHE MIT LABLE-L
AENGE.EVP. .PRESCHRU;SPRINGE, WENN ZEILE
NNUMMER > LABLE.KVZ.;.RV.. .$FD;HOHLE HI
GH-BYTE LABLE-AUFRUF..V.. .$26;SICHERE A
LS HIGH-BYTE COPY-ZIEL.GV.. .$28;SICHERE
ALS HIGH-BYTE COPY-START.MV..;..V>. .$F
C;HOHLE LOW-BYTE LABLE-AUFRUF..VH. ...WR
. .$29;ADDIERE ZEILENNUMMERLAENGE.HW\. .
$25;SICHERE ALS LOW-BYTE COPY-ZIEL.SWF.
.COPYZIEL;SPRINGE,WENN KEIN UEBERLAUF..W
P. .$26;ERHOEHE HIGH-BYTE COPY-ZIEL..WZ.
;.NW..COPYZIEL .$FC;HOHLE HIGH-BYTE LABL
E-AUFRUF.UW.. ...W.. .$FE;ADDIERE LABLE-
LAENGE..X.. .$27;SICHERE ALS LOW-BYTE CO
PY-START.GX.. .COPY2;SPRINGE, WENN KEIN
UEBERLAUF.NX.. .$28;ERHOEHE HIGH-BYTE CO
PY-START.TX..;..XJ.COPY2 .SCHIEBHOCH;=>
LABLE-UEBERHANG LOESCHEN..XT.;.IX.. .ZEI
NREIN;SPRINGE IMMER.OX..;..X..PRESCHRU .
$1211;HOHLE HIGH-BYTE TEXTENDE.'Y.. .$26
;SICHERE ALS HIGH-BYTE COPY-START.QY.. .
$28;SICHERE ALS HIGH-BYTE COPY-ZIEL.ZY..
.#4.~Y$. .$1210;HOHLE LOW-BYTE TEXTENDE
..Y.. .$25;SICHERE ALS LOW-BYTE COPY-STA
RT..Y8. ..RYB. .$FE;SUBTRAHIERE LABLE-LA
ENGE..YG. .#2..YL. ...ZV. .$29;ADDIERE Z
EILENNUMMERLAENGE+1.2Z`. .$27;SICHERE AL
S LOW-BYTE COPY-ZIEL.\ZJ. .$1210;SICHERE
ALS LOW-BYTE TEXTENDE..ZT. .COPY3;SPRIN
GE, WENN KEIN UEBERLAUF..Z~. .$28;ERNIED
RIGE HIGH-BYTE COPY-ZIEL.XZ.. .$1211;ERN
IEDRIGE HIGH-BYTE TEXTENDE..Z..;..{..COP
Y3 .($27),Y;HOHLE BASIC-BYTE..{.. .($25)
,Y;LEGE ES AB.!{..;.J{.. .$25;ERNIEDRIGE
LOW-BYTE COPY-START.T{D. .$25._{N. .#$F
F..{X. .COPYZL;SPRINGE, WENN KEIN UNTERL
AUF..{.. .$26;ERNIEDRIGE HIGH-BYTE COPY-
START..{..;..{..COPYZL .$27;ERNIEDIGE LO
W-BYTE COPY-ZIEL..{.. .$27..{.. .#$FF.&|
.. .TESTEND;SPRINGE, WENN KEIN UNTERLAUF
.O|.. .$28;ERNIEDRIGE HIGH-BYTE COPY-ZIE
L.U|(.;..|2.TESTEND .$FD;HOHLE HIGH-BYTE
LABLE-AUFRUF. |<. .$28;VGL MIT COPY-STA
RT.N|F. .COPY3;SPRINGE, WENN ENDE NICHT
ERREICHT..|P. .$FC;HOHLE LOW-BYTE LABLE-
AUFRUF..}Z. .$27;VGL MIT COPY-START.?}D.
.COPY3;SPRINGE, WENN ENDE NICHT ERREICH
T.E}N.;.X}X.ZEINREIN .$E00,X;HOHLE ZIFFE
R DER ZEILENNUMMER..}.. .($FC),Y;SETZE A
NSTATT LABLE-NAME..}.. ...}.. ...} . .#$
7..}.. .ZEINREIN;SPRINGE, WENN NICHT LET
ZTE ZIFFER..}..;..~H. .SUDE;WEITERE AUFR
UFE SUCHEN..~R.;.X~..;..................
........................................
....~..;.UNTERROUTINE:SPEICHERBEREICHE V
ERSCHIEBEN ...~..;......
........................................
................~..SCHIEBHOCH .#4....CO
PY .($27),Y;HOHLE BASIC-BYTE.+.. .($25)
,Y;LEGE ES AB.1..;.U". .$25;ERHOHE LOW
-BYTE COPY-ZIEL.,. .COPYZI;SPRINGE, WE
NN KEIN UEBERLAUF..6. .$26..@.;..J.CO
PYZI .$27;ERHOEHE LOW-BYTE COPY-START..
T. .TESTEN;SPRINGE, WENN KEIN UEBERLAUF.
.^. .$28..H.;. .R.TESTEN .$28;HOHLE HI
GH-BYTE COPY-START.=.|. .$1211;VGL MIT T
EXTENDE.P... .COPY;SPRINGE, WENN ENDENDE
NDE NICHT ERREICHT..... .$27;HOHLE LOW-B
YTE COPY-START..... .$1210;VGL MIT TEXTE
NDE..... .COPY;SPRINGE, WENN ENDE NICHT
ERREICHT.....;..... .....
> CLICK IMAGE PREVIEW FOR FULL MODAL