NEUE STEUERZ.SRC
FILE INFORMATION
FILENAME(S): NEUE STEUERZ.SRC
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-10-20 14:29:58
APPEARS ON: 2 disk(s)
FILE HASH
0550bc72d0ddc5dc66cbcaff1b15c5d41bc67b5dabdece1713ac45b2d541a67b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 1 | NEUE STEUERZ.SRC | PRG | Treasure Chest - Klaus Der Suhler | 17 | 3 | DOWNLOAD FILE |
| MT90499 SEITE 1 | NEUE STEUERZ.SRC | PRG | DuncanTwain | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F DE 1F 64 00 3B 00 03 20 6E 00 3B 20 2A 2A |....d.;.. n.; **|
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 00 28 20 78 |************.( x|
00000030: 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.; * |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 2A 00 4D 20 82 00 3B 20 2A 20 20 20 20 20 4E 45 |*.M ..; * NE|
00000060: 55 45 20 53 54 45 55 45 52 5A 45 49 43 48 45 4E |UE STEUERZEICHEN|
00000070: 20 20 20 20 20 2A 00 72 20 8C 00 3B 20 2A 20 20 | *.r ..; * |
00000080: 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | =============|
00000090: 3D 3D 3D 3D 3D 20 20 20 20 20 2A 00 97 20 96 00 |===== *.. ..|
000000A0: 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |; * |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000000C0: 00 BC 20 A0 00 3B 20 2A 20 45 49 4E 3A 20 53 59 |.. ..; * EIN: SY|
000000D0: 53 20 34 39 31 35 32 20 20 20 20 20 20 20 20 20 |S 49152 |
000000E0: 20 20 20 20 2A 00 E1 20 AA 00 3B 20 2A 20 41 55 | *.. ..; * AU|
000000F0: 53 3A 20 3C 52 55 4E 2F 53 54 4F 50 3E 2B 3C 52 |S: <RUN/STOP>+<R|
00000100: 45 53 54 4F 52 45 3E 20 20 2A 00 06 21 B4 00 3B |ESTORE> *..!..;|
00000110: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000130: 2B 21 BE 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |+!..; **********|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 2A 2A 2A 2A 00 50 21 C8 00 3B 20 2A 20 20 20 20 |****.P!..; * |
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 2A 00 75 21 D2 00 3B 20 | *.u!..; |
00000180: 2A 20 43 48 52 24 28 32 29 20 3D 20 3C 43 54 52 |* CHR$(2) = <CTR|
00000190: 4C 3E 2B 3C 42 3E 20 3A 20 20 20 20 20 2A 00 9A |L>+<B> : *..|
000001A0: 21 DC 00 3B 20 2A 20 20 20 42 49 4C 44 53 43 48 |!..; * BILDSCH|
000001B0: 49 52 4D 20 49 4E 56 45 52 54 49 45 52 45 4E 20 |IRM INVERTIEREN |
000001C0: 20 20 2A 00 BF 21 E6 00 3B 20 2A 20 20 20 20 20 | *..!..; * |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 2A 00 E4 21 F0 00 3B 20 2A | *..!..; *|
000001F0: 20 43 48 52 24 28 34 29 20 3D 20 3C 43 54 52 4C | CHR$(4) = <CTRL|
00000200: 3E 2B 3C 44 3E 20 3A 20 20 20 20 20 2A 00 09 22 |>+<D> : *.."|
00000210: FA 00 3B 20 2A 20 20 20 41 4B 54 55 45 4C 4C 45 |..; * AKTUELLE|
00000220: 20 5A 45 49 4C 45 20 4C 4F 45 53 43 48 45 4E 20 | ZEILE LOESCHEN |
00000230: 20 2A 00 2E 22 04 01 3B 20 2A 20 20 20 20 20 20 | *.."..; * |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 20 20 20 20 20 20 2A 00 53 22 0E 01 3B 20 2A 20 | *.S"..; * |
00000260: 43 48 52 24 28 37 29 20 3D 20 3C 43 54 52 4C 3E |CHR$(7) = <CTRL>|
00000270: 2B 3C 47 3E 20 3A 20 20 20 20 20 2A 00 78 22 18 |+<G> : *.x".|
00000280: 01 3B 20 2A 20 20 20 4B 4C 49 4E 47 45 4C 54 4F |.; * KLINGELTO|
00000290: 4E 20 45 52 5A 45 55 47 45 4E 20 20 20 20 20 20 |N ERZEUGEN |
000002A0: 2A 00 9D 22 22 01 3B 20 2A 20 20 20 20 20 20 20 |*.."".; * |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 2A 00 C2 22 2C 01 3B 20 2A 20 43 | *..",.; * C|
000002D0: 48 52 24 28 32 37 29 3D 20 3C 43 54 52 4C 3E 2B |HR$(27)= <CTRL>+|
000002E0: 3C 5D 3E 20 3A 20 20 20 20 20 2A 00 E7 22 36 01 |<]> : *.."6.|
000002F0: 3B 20 2A 20 20 20 51 55 4F 54 45 20 4D 4F 44 45 |; * QUOTE MODE|
00000300: 20 56 45 52 4C 41 53 53 45 4E 20 20 20 20 20 2A | VERLASSEN *|
00000310: 00 0C 23 40 01 3B 20 2A 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 2A 00 31 23 4A 01 3B 20 2A 2A 2A 2A | *.1#J.; ****|
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 00 56 23 54 01 3B |**********.V#T.;|
00000360: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * |
00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000380: 7B 23 5E 01 3B 20 2A 20 50 52 49 4E 5A 49 50 3A |{#^.; * PRINZIP:|
00000390: 20 56 45 52 42 49 45 47 45 4E 20 44 45 53 20 20 | VERBIEGEN DES |
000003A0: 20 20 20 2A 00 A0 23 68 01 3B 20 2A 20 20 20 20 | *..#h.; * |
000003B0: 20 20 20 20 20 20 49 42 53 4F 55 54 2D 56 45 4B | IBSOUT-VEK|
000003C0: 54 4F 52 53 20 20 20 20 2A 00 C5 23 72 01 3B 20 |TORS *..#r.; |
000003D0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 EA | *..|
000003F0: 23 7C 01 3B 20 2A 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 2A 00 0F 24 86 01 3B 20 2A 20 28 57 29 20 | *..$..; * (W) |
00000420: 32 35 2E 30 39 2E 31 39 38 37 20 42 59 20 20 20 |25.09.1987 BY |
00000430: 20 20 20 20 20 20 20 2A 00 34 24 90 01 3B 20 2A | *.4$..; *|
00000440: 20 20 20 20 20 46 4C 4F 52 49 41 4E 20 4D 55 45 | FLORIAN MUE|
00000450: 4C 4C 45 52 20 20 20 20 20 20 20 20 2A 00 59 24 |LLER *.Y$|
00000460: 9A 01 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 |..; * |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 2A 00 7E 24 A4 01 3B 20 2A 20 41 53 53 45 4D | *.~$..; * ASSEM|
00000490: 42 4C 45 52 3A 20 48 59 50 52 41 2D 41 53 53 20 |BLER: HYPRA-ASS |
000004A0: 20 20 20 20 20 20 2A 00 A3 24 AE 01 3B 20 2A 20 | *..$..; * |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 28 43 36 34 29 | (C64)|
000004C0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 C8 24 B8 | *..$.|
000004D0: 01 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.; * |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004F0: 2A 00 ED 24 C2 01 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |*..$..; ********|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 2A 2A 2A 2A 2A 00 F3 24 CC 01 3B 00 F9 24 D6 |******..$..;..$.|
00000520: 01 3B 00 FF 24 E0 01 3B 00 0D 25 EA 01 2E 42 41 |.;..$..;..%...BA|
00000530: 20 24 43 30 30 30 00 13 25 F4 01 3B 00 19 25 FE | $C000..%..;..%.|
00000540: 01 3B 00 44 25 08 02 2E 47 4C 20 49 42 53 4F 55 |.;.D%...GL IBSOU|
00000550: 54 20 20 20 3D 20 24 30 33 32 36 20 20 20 20 3B |T = $0326 ;|
00000560: 20 42 53 4F 55 54 2D 56 45 4B 54 4F 52 00 79 25 | BSOUT-VEKTOR.y%|
00000570: 12 02 2E 47 4C 20 4F 4C 44 42 53 4F 55 54 20 3D |...GL OLDBSOUT =|
00000580: 20 24 46 31 43 41 20 20 20 20 3B 20 4E 4F 52 4D | $F1CA ; NORM|
00000590: 41 4C 45 52 20 49 42 53 4F 55 54 2D 49 4E 48 41 |ALER IBSOUT-INHA|
000005A0: 4C 54 00 AA 25 1C 02 2E 47 4C 20 44 45 4C 4C 49 |LT..%...GL DELLI|
000005B0: 4E 20 20 20 3D 20 24 45 39 46 46 20 20 20 20 3B |N = $E9FF ;|
000005C0: 20 5A 45 49 4C 45 20 28 58 29 20 4C 4F 45 53 43 | ZEILE (X) LOESC|
000005D0: 48 45 4E 00 D8 25 26 02 2E 47 4C 20 51 54 53 57 |HEN..%&..GL QTSW|
000005E0: 20 20 20 20 20 3D 20 20 20 24 44 34 20 20 20 20 | = $D4 |
000005F0: 3B 20 51 55 4F 54 45 2D 4D 4F 44 45 2D 46 4C 41 |; QUOTE-MODE-FLA|
00000600: 47 00 0B 26 30 02 2E 47 4C 20 54 42 4C 58 20 20 |G..&0..GL TBLX |
00000610: 20 20 20 3D 20 20 20 24 44 36 20 20 20 20 3B 20 | = $D6 ; |
00000620: 41 4B 54 55 45 4C 4C 45 20 43 55 52 53 4F 52 5A |AKTUELLE CURSORZ|
00000630: 45 49 4C 45 00 50 26 3A 02 2E 47 4C 20 41 4E 5A |EILE.P&:..GL ANZ|
00000640: 41 48 4C 20 20 20 3D 20 34 20 20 20 20 20 20 20 |AHL = 4 |
00000650: 20 3B 20 41 4E 5A 41 48 4C 20 44 45 52 20 5A 55 | ; ANZAHL DER ZU|
00000660: 53 41 45 54 5A 4C 49 43 48 45 4E 20 53 54 45 55 |SAETZLICHEN STEU|
00000670: 45 52 5A 45 49 43 48 45 4E 00 56 26 44 02 3B 00 |ERZEICHEN.V&D.;.|
00000680: 5C 26 4E 02 3B 00 62 26 58 02 3B 00 80 26 62 02 |\&N.;.b&X.;..&b.|
00000690: 3B 20 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 53 49 |; *** INITIALISI|
000006A0: 45 52 55 4E 47 20 2A 2A 2A 00 86 26 6C 02 3B 00 |ERUNG ***..&l.;.|
000006B0: 8C 26 76 02 3B 00 A9 26 80 02 20 4C 44 41 23 3C |.&v.;..&.. LDA#<|
000006C0: 28 4E 45 57 42 53 4F 55 54 29 3B 20 56 45 4B 54 |(NEWBSOUT); VEKT|
000006D0: 4F 52 00 C6 26 8A 02 20 4C 44 59 23 3E 28 4E 45 |OR..&.. LDY#>(NE|
000006E0: 57 42 53 4F 55 54 29 3B 20 49 42 53 4F 55 54 00 |WBSOUT); IBSOUT.|
000006F0: E3 26 94 02 20 53 54 41 49 42 53 4F 55 54 3B 20 |.&.. STAIBSOUT; |
00000700: 41 55 46 20 4E 45 57 42 53 4F 55 54 00 FE 26 9E |AUF NEWBSOUT..&.|
00000710: 02 20 53 54 59 49 42 53 4F 55 54 2B 31 3B 20 55 |. STYIBSOUT+1; U|
00000720: 4D 4C 45 4E 4B 45 4E 00 1C 27 A8 02 20 52 54 53 |MLENKEN..'.. RTS|
00000730: 3B 20 55 4E 44 20 5A 55 52 55 45 43 4B 53 50 52 |; UND ZURUECKSPR|
00000740: 49 4E 47 45 4E 00 22 27 B2 02 3B 00 28 27 BC 02 |INGEN."'..;.('..|
00000750: 3B 00 2E 27 C6 02 3B 00 52 27 D0 02 3B 20 2A 2A |;..'..;.R'..; **|
00000760: 2A 20 52 45 54 54 55 4E 47 53 53 50 45 49 43 48 |* RETTUNGSSPEICH|
00000770: 45 52 20 46 55 45 52 20 2A 2A 2A 00 76 27 DA 02 |ER FUER ***.v'..|
00000780: 3B 20 2A 2A 2A 20 20 20 50 52 4F 5A 45 53 53 4F |; *** PROZESSO|
00000790: 52 2D 52 45 47 49 53 54 45 52 20 20 2A 2A 2A 00 |R-REGISTER ***.|
000007A0: 7C 27 E4 02 3B 00 82 27 EE 02 3B 00 B7 27 F8 02 ||'..;..'..;..'..|
000007B0: 58 47 45 54 20 2E 42 41 58 47 45 54 2B 31 3B 20 |XGET .BAXGET+1; |
000007C0: 52 45 54 54 55 4E 47 53 53 50 45 49 43 48 45 52 |RETTUNGSSPEICHER|
000007D0: 20 46 55 45 52 20 58 2D 52 45 47 49 53 54 45 52 | FUER X-REGISTER|
000007E0: 00 ED 27 02 03 41 4B 4B 55 20 2E 42 41 41 4B 4B |..'..AKKU .BAAKK|
000007F0: 55 2B 31 3B 20 52 45 54 54 55 4E 47 53 53 50 45 |U+1; RETTUNGSSPE|
00000800: 49 43 48 45 52 20 46 55 45 52 20 41 4B 4B 55 4D |ICHER FUER AKKUM|
00000810: 55 4C 41 54 4F 52 00 22 28 0C 03 59 47 45 54 20 |ULATOR."(..YGET |
00000820: 2E 42 41 59 47 45 54 2B 31 3B 20 52 45 54 54 55 |.BAYGET+1; RETTU|
00000830: 4E 47 53 53 50 45 49 43 48 45 52 20 46 55 45 52 |NGSSPEICHER FUER|
00000840: 20 59 2D 52 45 47 49 53 54 45 52 00 28 28 16 03 | Y-REGISTER.((..|
00000850: 3B 00 2E 28 20 03 3B 00 34 28 2A 03 3B 00 59 28 |;..( .;.4(*.;.Y(|
00000860: 34 03 3B 20 2A 2A 2A 20 4D 41 4B 52 4F 20 46 55 |4.; *** MAKRO FU|
00000870: 45 52 20 52 55 45 43 4B 53 50 52 55 4E 47 20 2A |ER RUECKSPRUNG *|
00000880: 2A 2A 00 7E 28 3E 03 3B 20 2A 2A 2A 20 20 41 55 |**.~(>.; *** AU|
00000890: 53 20 45 49 47 45 4E 45 4D 20 4E 45 57 42 53 4F |S EIGENEM NEWBSO|
000008A0: 55 54 20 20 2A 2A 2A 00 84 28 48 03 3B 00 AD 28 |UT ***..(H.;..(|
000008B0: 52 03 2E 4D 41 20 52 45 54 55 52 4E 20 28 41 4B |R..MA RETURN (AK|
000008C0: 4B 55 2C 58 47 45 54 2C 59 47 45 54 2C 4F 4C 42 |KU,XGET,YGET,OLB|
000008D0: 44 53 4F 55 54 29 00 C6 28 5C 03 20 4C 44 41 41 |DSOUT)..(\. LDAA|
000008E0: 4B 4B 55 3B 20 50 52 4F 5A 45 53 53 4F 52 2D 00 |KKU; PROZESSOR-.|
000008F0: DD 28 66 03 20 4C 44 58 58 47 45 54 3B 20 52 45 |.(f. LDXXGET; RE|
00000900: 47 49 53 54 45 52 00 FC 28 70 03 20 4C 44 59 59 |GISTER..(p. LDYY|
00000910: 47 45 54 3B 20 57 49 45 44 45 52 48 45 52 53 54 |GET; WIEDERHERST|
00000920: 45 4C 4C 45 4E 00 25 29 7A 03 20 4A 4D 50 4F 4C |ELLEN.%)z. JMPOL|
00000930: 44 42 53 4F 55 54 3B 20 57 45 49 54 45 52 20 57 |DBSOUT; WEITER W|
00000940: 49 45 20 41 4C 54 45 53 20 42 53 4F 55 54 00 2D |IE ALTES BSOUT.-|
00000950: 29 84 03 2E 52 54 00 33 29 8E 03 3B 00 39 29 E8 |)...RT.3)..;.9).|
00000960: 03 3B 00 3F 29 F2 03 3B 00 63 29 FC 03 3B 20 2A |.;.?)..;.c)..; *|
00000970: 2A 2A 20 4E 45 55 45 20 42 53 4F 55 54 2D 42 45 |** NEUE BSOUT-BE|
00000980: 48 41 4E 44 4C 55 4E 47 20 2A 2A 2A 00 69 29 06 |HANDLUNG ***.i).|
00000990: 04 3B 00 6F 29 10 04 3B 00 75 29 1A 04 3B 00 9D |.;.o)..;.u)..;..|
000009A0: 29 24 04 4E 45 57 42 53 4F 55 54 20 53 54 58 58 |)$.NEWBSOUT STXX|
000009B0: 47 45 54 3B 20 58 2D 52 45 47 49 53 54 45 52 20 |GET; X-REGISTER |
000009C0: 52 45 54 54 45 4E 00 C9 29 2E 04 20 4C 44 58 23 |RETTEN..).. LDX#|
000009D0: 41 4E 5A 41 48 4C 2D 31 3B 20 53 55 43 48 49 4E |ANZAHL-1; SUCHIN|
000009E0: 44 45 58 20 49 4E 49 54 49 41 4C 49 53 49 45 52 |DEX INITIALISIER|
000009F0: 45 4E 00 F3 29 38 04 56 47 4C 20 43 4D 50 43 48 |EN..)8.VGL CMPCH|
00000A00: 41 52 53 2C 58 3B 20 56 45 52 47 4C 45 49 43 48 |ARS,X; VERGLEICH|
00000A10: 20 4D 49 54 20 54 41 42 45 4C 4C 45 00 2D 2A 42 | MIT TABELLE.-*B|
00000A20: 04 20 42 45 51 46 4F 55 4E 44 3B 20 55 45 42 45 |. BEQFOUND; UEBE|
00000A30: 52 45 49 4E 53 54 49 4D 4D 55 4E 47 20 28 5A 3D |REINSTIMMUNG (Z=|
00000A40: 31 29 3A 20 5A 45 49 43 48 45 4E 20 41 55 53 46 |1): ZEICHEN AUSF|
00000A50: 55 45 48 52 45 4E 00 4B 2A 4C 04 20 44 45 58 3B |UEHREN.K*L. DEX;|
00000A60: 20 49 4E 44 45 58 20 57 45 49 54 45 52 5A 41 45 | INDEX WEITERZAE|
00000A70: 48 4C 45 4E 00 84 2A 56 04 20 42 50 4C 56 47 4C |HLEN..*V. BPLVGL|
00000A80: 3B 20 47 45 47 45 42 45 4E 45 4E 46 41 4C 4C 53 |; GEGEBENENFALLS|
00000A90: 20 57 45 49 54 45 52 45 20 53 55 43 48 45 20 49 | WEITERE SUCHE I|
00000AA0: 4E 20 44 45 52 20 54 41 42 45 4C 4C 45 00 AE 2A |N DER TABELLE..*|
00000AB0: 60 04 20 4C 44 58 58 47 45 54 3B 20 58 2D 52 45 |`. LDXXGET; X-RE|
00000AC0: 47 49 53 54 45 52 20 57 49 45 44 45 52 48 45 52 |GISTER WIEDERHER|
00000AD0: 53 54 45 4C 4C 45 4E 00 DC 2A 6A 04 20 4A 4D 50 |STELLEN..*j. JMP|
00000AE0: 4F 4C 44 42 53 4F 55 54 3B 20 55 4E 44 20 5A 45 |OLDBSOUT; UND ZE|
00000AF0: 49 43 48 45 4E 20 4E 4F 52 4D 41 4C 20 41 55 53 |ICHEN NORMAL AUS|
00000B00: 47 45 42 45 4E 00 E2 2A DC 05 3B 00 08 2B E6 05 |GEBEN..*..;..+..|
00000B10: 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |; ==============|
00000B20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000B30: 3D 00 2E 2B F0 05 3B 20 42 45 48 41 4E 44 4C 55 |=..+..; BEHANDLU|
00000B40: 4E 47 20 45 49 4E 45 53 20 4E 45 55 45 4E 20 5A |NG EINES NEUEN Z|
00000B50: 45 49 43 48 45 4E 53 00 54 2B FA 05 3B 20 3D 3D |EICHENS.T+..; ==|
00000B60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000B70: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 5A 2B |=============.Z+|
00000B80: 04 06 3B 00 80 2B 0E 06 46 4F 55 4E 44 20 53 54 |..;..+..FOUND ST|
00000B90: 41 41 4B 4B 55 3B 20 41 4B 4B 55 4D 55 4C 41 54 |AAKKU; AKKUMULAT|
00000BA0: 4F 52 20 52 45 54 54 45 4E 00 A0 2B 18 06 20 53 |OR RETTEN..+.. S|
00000BB0: 54 59 59 47 45 54 3B 20 59 2D 52 45 47 49 53 54 |TYYGET; Y-REGIST|
00000BC0: 45 52 20 52 45 54 54 45 4E 00 BC 2B 22 06 20 4C |ER RETTEN..+". L|
00000BD0: 44 41 4C 4F 57 2C 58 3B 20 53 50 52 55 4E 47 42 |DALOW,X; SPRUNGB|
00000BE0: 45 46 45 48 4C 00 E0 2B 2C 06 20 53 54 41 53 50 |EFEHL..+,. STASP|
00000BF0: 52 55 4E 47 2B 31 3B 20 41 55 46 20 45 4E 54 53 |RUNG+1; AUF ENTS|
00000C00: 50 52 45 43 48 45 4E 44 45 00 F8 2B 36 06 20 4C |PRECHENDE..+6. L|
00000C10: 44 41 48 49 47 48 2C 58 3B 20 52 4F 55 54 49 4E |DAHIGH,X; ROUTIN|
00000C20: 45 00 11 2C 40 06 20 53 54 41 53 50 52 55 4E 47 |E..,@. STASPRUNG|
00000C30: 2B 32 3B 20 4C 45 4E 4B 45 4E 00 3A 2C 4A 06 53 |+2; LENKEN.:,J.S|
00000C40: 50 52 55 4E 47 20 4A 4D 50 24 30 30 30 30 3B 20 |PRUNG JMP$0000; |
00000C50: 53 45 4C 42 53 54 4D 4F 44 49 46 49 4B 41 54 49 |SELBSTMODIFIKATI|
00000C60: 4F 4E 21 00 40 2C 54 06 3B 00 46 2C D0 07 3B 00 |ON!.@,T.;.F,..;.|
00000C70: 5D 2C DA 07 3B 20 2A 2A 2A 20 54 41 42 45 4C 4C |],..; *** TABELL|
00000C80: 45 4E 20 2A 2A 2A 00 63 2C E4 07 3B 00 84 2C EE |EN ***.c,..;..,.|
00000C90: 07 4C 4F 57 20 2E 42 59 3C 28 44 29 2C 3C 28 42 |.LOW .BY<(D),<(B|
00000CA0: 29 2C 3C 28 45 53 43 29 2C 3C 28 47 29 00 A6 2C |),<(ESC),<(G)..,|
00000CB0: F8 07 48 49 47 48 20 2E 42 59 3E 28 44 29 2C 3E |..HIGH .BY>(D),>|
00000CC0: 28 42 29 2C 3E 28 45 53 43 29 2C 3E 28 47 29 00 |(B),>(ESC),>(G).|
00000CD0: CE 2C 02 08 43 48 41 52 53 20 2E 42 59 24 30 34 |.,..CHARS .BY$04|
00000CE0: 2C 24 30 32 2C 24 31 42 2C 24 30 37 3B 20 44 2C |,$02,$1B,$07; D,|
00000CF0: 42 2C 45 53 43 2C 47 00 D4 2C 0C 08 3B 00 DA 2C |B,ESC,G..,..;..,|
00000D00: 16 08 3B 00 E0 2C 88 13 3B 00 E6 2C 92 13 3B 00 |..;..,..;..,..;.|
00000D10: FC 2C 9C 13 3B 20 2A 2A 2A 20 43 48 52 24 28 34 |.,..; *** CHR$(4|
00000D20: 29 20 2A 2A 2A 00 02 2D A6 13 3B 00 08 2D B0 13 |) ***..-..;..-..|
00000D30: 3B 00 2C 2D BA 13 44 20 2E 42 41 44 3B 20 41 4B |;.,-..D .BAD; AK|
00000D40: 54 55 45 4C 4C 45 20 5A 45 49 4C 45 20 4C 4F 45 |TUELLE ZEILE LOE|
00000D50: 53 43 48 45 4E 00 5B 2D C4 13 20 4C 44 58 54 42 |SCHEN.[-.. LDXTB|
00000D60: 4C 58 3B 20 4E 55 4D 4D 45 52 20 44 45 52 20 41 |LX; NUMMER DER A|
00000D70: 4B 54 55 45 4C 4C 45 4E 20 5A 45 49 4C 45 20 48 |KTUELLEN ZEILE H|
00000D80: 4F 4C 45 4E 00 7E 2D CE 13 20 4A 53 52 44 45 4C |OLEN.~-.. JSRDEL|
00000D90: 4C 49 4E 3B 20 55 4E 44 20 5A 45 49 4C 45 20 4C |LIN; UND ZEILE L|
00000DA0: 4F 45 53 43 48 45 4E 00 A6 2D D8 13 20 2E 2E 2E |OESCHEN..-.. ...|
00000DB0: 52 45 54 55 52 4E 28 41 4B 4B 55 2C 58 47 45 54 |RETURN(AKKU,XGET|
00000DC0: 2C 59 47 45 54 2C 4F 4C 44 42 53 4F 55 54 29 00 |,YGET,OLDBSOUT).|
00000DD0: AC 2D E2 13 3B 00 B2 2D 70 17 3B 00 B8 2D 7A 17 |.-..;..-p.;..-z.|
00000DE0: 3B 00 CE 2D 84 17 3B 20 2A 2A 2A 20 43 48 52 24 |;..-..; *** CHR$|
00000DF0: 28 32 29 20 2A 2A 2A 00 D4 2D 8E 17 3B 00 DA 2D |(2) ***..-..;..-|
00000E00: 98 17 3B 00 FD 2D A2 17 42 20 2E 42 41 42 3B 20 |..;..-..B .BAB; |
00000E10: 42 49 4C 44 53 43 48 49 52 4D 20 49 4E 56 45 52 |BILDSCHIRM INVER|
00000E20: 54 49 45 52 45 4E 00 1D 2E AC 17 20 4C 44 41 23 |TIEREN..... LDA#|
00000E30: 3C 28 31 30 32 34 29 3B 20 4C 4F 57 2D 42 59 54 |<(1024); LOW-BYT|
00000E40: 45 53 20 41 55 46 00 46 2E B6 17 20 53 54 41 52 |ES AUF.F... STAR|
00000E50: 45 41 44 2B 31 3B 20 42 49 4C 44 53 43 48 49 52 |EAD+1; BILDSCHIR|
00000E60: 4D 53 50 45 49 43 48 45 52 41 4E 46 41 4E 47 00 |MSPEICHERANFANG.|
00000E70: 5E 2E C0 17 20 53 54 41 57 52 49 54 45 2B 31 3B |^... STAWRITE+1;|
00000E80: 20 53 45 54 5A 45 4E 00 7F 2E CA 17 20 4C 44 41 | SETZEN..... LDA|
00000E90: 23 3E 28 31 30 32 34 29 3B 20 48 49 47 48 2D 42 |#>(1024); HIGH-B|
00000EA0: 59 54 45 53 20 41 55 46 00 A8 2E D4 17 20 53 54 |YTES AUF..... ST|
00000EB0: 41 52 45 41 44 2B 32 3B 20 42 49 4C 44 53 43 48 |AREAD+2; BILDSCH|
00000EC0: 49 52 4D 53 50 45 49 43 48 45 52 41 4E 46 41 4E |IRMSPEICHERANFAN|
00000ED0: 47 00 C0 2E DE 17 20 53 54 41 57 52 49 54 45 2B |G..... STAWRITE+|
00000EE0: 32 3B 20 53 45 54 5A 45 4E 00 C6 2E E8 17 3B 00 |2; SETZEN.....;.|
00000EF0: E8 2E F2 17 20 4C 44 59 23 30 3B 20 4F 46 46 53 |.... LDY#0; OFFS|
00000F00: 45 54 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 |ET INITIALISIERE|
00000F10: 4E 00 12 2F FC 17 52 45 41 44 20 4C 44 41 24 46 |N../..READ LDA$F|
00000F20: 46 46 46 2C 59 3B 20 42 49 4C 44 53 43 48 49 52 |FFF,Y; BILDSCHIR|
00000F30: 4D 43 4F 44 45 20 4C 41 44 45 4E 00 37 2F 06 18 |MCODE LADEN.7/..|
00000F40: 20 45 4F 52 23 24 38 30 3B 20 52 45 56 45 52 53 | EOR#$80; REVERS|
00000F50: 2D 42 49 54 20 3E 3E 46 4C 49 50 50 45 4E 3C 3C |-BIT >>FLIPPEN<<|
00000F60: 00 62 2F 10 18 57 52 49 54 45 20 53 54 41 24 46 |.b/..WRITE STA$F|
00000F70: 46 46 46 2C 59 3B 20 55 4E 44 20 5A 55 52 55 45 |FFF,Y; UND ZURUE|
00000F80: 43 4B 53 43 48 52 45 49 42 45 4E 00 7C 2F 1A 18 |CKSCHREIBEN.|/..|
00000F90: 20 49 4E 59 3B 20 4F 46 46 53 45 54 20 45 52 48 | INY; OFFSET ERH|
00000FA0: 4F 45 48 45 4E 00 9E 2F 24 18 20 42 4E 45 52 45 |OEHEN../$. BNERE|
00000FB0: 41 44 3B 20 53 43 48 4C 45 49 46 45 20 46 4F 52 |AD; SCHLEIFE FOR|
00000FC0: 54 53 45 54 5A 45 4E 00 B9 2F 2E 18 20 49 4E 43 |TSETZEN../.. INC|
00000FD0: 52 45 41 44 2B 32 3B 20 48 49 47 48 2D 42 59 54 |READ+2; HIGH-BYT|
00000FE0: 45 53 00 D3 2F 38 18 20 49 4E 43 57 52 49 54 45 |ES../8. INCWRITE|
00000FF0: 2B 32 3B 20 45 52 48 4F 45 48 45 4E 00 FE 2F 42 |+2; ERHOEHEN../B|
00001000: 18 20 4C 44 41 57 52 49 54 45 2B 32 3B 20 55 4E |. LDAWRITE+2; UN|
00001010: 44 20 5A 57 45 43 4B 53 20 50 52 55 45 46 55 4E |D ZWECKS PRUEFUN|
00001020: 47 20 4C 45 53 45 4E 00 19 30 4C 18 20 43 4D 50 |G LESEN..0L. CMP|
00001030: 23 3E 28 32 30 34 38 29 3B 20 46 45 52 54 49 47 |#>(2048); FERTIG|
00001040: 20 3F 00 46 30 56 18 20 42 43 43 52 45 41 44 3B | ?.F0V. BCCREAD;|
00001050: 20 4E 45 49 4E 20 28 43 3D 30 29 3A 20 57 45 49 | NEIN (C=0): WEI|
00001060: 54 45 52 20 49 4E 20 53 43 48 4C 45 49 46 45 00 |TER IN SCHLEIFE.|
00001070: 4C 30 60 18 3B 00 74 30 6A 18 20 2E 2E 2E 52 45 |L0`.;.t0j. ...RE|
00001080: 54 55 52 4E 28 41 4B 4B 55 2C 58 47 45 54 2C 59 |TURN(AKKU,XGET,Y|
00001090: 47 45 54 2C 4F 4C 44 42 53 4F 55 54 29 00 7A 30 |GET,OLDBSOUT).z0|
000010A0: 74 18 3B 00 80 30 7E 18 3B 00 86 30 58 1B 3B 00 |t.;..0~.;..0X.;.|
000010B0: 8C 30 62 1B 3B 00 A3 30 6C 1B 3B 20 2A 2A 2A 20 |.0b.;..0l.; *** |
000010C0: 43 48 52 24 28 32 37 29 20 2A 2A 2A 00 A9 30 76 |CHR$(27) ***..0v|
000010D0: 1B 3B 00 AF 30 80 1B 3B 00 C6 30 8A 1B 45 53 43 |.;..0..;..0..ESC|
000010E0: 20 2E 42 41 45 53 43 3B 20 45 53 43 41 50 45 00 | .BAESC; ESCAPE.|
000010F0: E0 30 94 1B 20 4C 44 41 23 30 3B 20 4C 4F 45 53 |.0.. LDA#0; LOES|
00001100: 43 48 57 45 52 54 20 49 4E 00 08 31 9E 1B 20 53 |CHWERT IN..1.. S|
00001110: 54 41 51 54 53 57 3B 20 51 55 4F 54 45 2D 4D 4F |TAQTSW; QUOTE-MO|
00001120: 44 45 2D 46 4C 41 47 20 53 43 48 52 45 49 42 45 |DE-FLAG SCHREIBE|
00001130: 4E 00 2B 31 A8 1B 20 53 54 41 41 4B 4B 55 3B 20 |N.+1.. STAAKKU; |
00001140: 43 48 52 24 28 30 29 20 5A 55 52 55 45 43 4B 47 |CHR$(0) ZURUECKG|
00001150: 45 42 45 4E 00 53 31 B2 1B 20 2E 2E 2E 52 45 54 |EBEN.S1.. ...RET|
00001160: 55 52 4E 28 41 4B 4B 55 2C 58 47 45 54 2C 59 47 |URN(AKKU,XGET,YG|
00001170: 45 54 2C 4F 4C 44 42 53 4F 55 54 29 00 59 31 BC |ET,OLDBSOUT).Y1.|
00001180: 1B 3B 00 5F 31 40 1F 3B 00 65 31 4A 1F 3B 00 7B |.;._1@.;.e1J.;.{|
00001190: 31 54 1F 3B 20 2A 2A 2A 20 43 48 52 24 28 37 29 |1T.; *** CHR$(7)|
000011A0: 20 2A 2A 2A 00 81 31 5E 1F 3B 00 87 31 68 1F 3B | ***..1^.;..1h.;|
000011B0: 00 A9 31 72 1F 47 20 2E 42 41 47 3B 20 42 45 4C |..1r.G .BAG; BEL|
000011C0: 4C 20 28 4B 4C 49 4E 47 45 4C 5A 45 49 43 48 45 |L (KLINGELZEICHE|
000011D0: 4E 29 00 C2 31 7C 1F 20 4C 44 41 23 24 30 46 3B |N)..1|. LDA#$0F;|
000011E0: 20 53 49 47 4E 41 4C 54 4F 4E 2D 00 D7 31 86 1F | SIGNALTON-..1..|
000011F0: 20 53 54 41 24 44 34 31 38 3B 20 4D 4F 44 55 4C | STA$D418; MODUL|
00001200: 00 ED 31 90 1F 20 4C 44 41 23 30 3B 20 57 55 52 |..1.. LDA#0; WUR|
00001210: 44 45 20 41 55 53 00 09 32 9A 1F 20 53 54 41 24 |DE AUS..2.. STA$|
00001220: 44 34 30 35 3B 20 44 45 4D 20 50 52 4F 47 52 41 |D405; DEM PROGRA|
00001230: 4D 4D 00 1F 32 A4 1F 20 4C 44 41 23 24 46 37 3B |MM..2.. LDA#$F7;|
00001240: 20 3E 3E 4D 53 45 3C 3C 00 43 32 AE 1F 20 53 54 | >>MSE<<.C2.. ST|
00001250: 41 24 44 34 30 36 3B 20 28 36 34 27 45 52 2D 45 |A$D406; (64'ER-E|
00001260: 49 4E 47 41 42 45 48 49 4C 46 45 29 00 5F 32 B8 |INGABEHILFE)._2.|
00001270: 1F 20 4C 44 41 23 24 31 31 3B 20 3E 3E 45 4E 54 |. LDA#$11; >>ENT|
00001280: 4C 49 45 48 45 4E 3C 3C 00 6D 32 C2 1F 20 53 54 |LIEHEN<<.m2.. ST|
00001290: 41 24 44 34 30 34 00 7A 32 CC 1F 20 4C 44 41 23 |A$D404.z2.. LDA#|
000012A0: 24 33 32 00 88 32 D6 1F 20 53 54 41 24 44 34 30 |$32..2.. STA$D40|
000012B0: 31 00 93 32 E0 1F 20 4C 44 41 23 30 00 A1 32 EA |1..2.. LDA#0..2.|
000012C0: 1F 20 53 54 41 24 44 34 30 30 00 BF 32 F4 1F 20 |. STA$D400..2.. |
000012D0: 4C 44 59 23 24 38 30 3B 20 57 41 52 54 45 2D 4B |LDY#$80; WARTE-K|
000012E0: 4F 4E 53 54 41 4E 54 45 00 E1 32 FE 1F 53 4F 55 |ONSTANTE..2..SOU|
000012F0: 4E 44 31 20 4C 44 58 23 24 46 46 3B 20 57 41 52 |ND1 LDX#$FF; WAR|
00001300: 54 45 53 43 48 4C 45 49 46 45 00 07 33 08 20 53 |TESCHLEIFE..3. S|
00001310: 4F 55 4E 44 32 20 44 45 58 3B 20 4C 4F 57 2D 42 |OUND2 DEX; LOW-B|
00001320: 59 54 45 20 41 42 47 45 4C 41 55 46 45 4E 20 3F |YTE ABGELAUFEN ?|
00001330: 00 43 33 12 20 20 42 4E 45 53 4F 55 4E 44 32 3B |.C3. BNESOUND2;|
00001340: 20 4E 45 49 4E 20 28 5A 3D 30 29 3A 20 49 4E 4E | NEIN (Z=0): INN|
00001350: 45 52 45 20 57 41 52 54 45 53 43 48 4C 45 49 46 |ERE WARTESCHLEIF|
00001360: 45 20 46 4F 52 54 53 45 54 5A 45 4E 00 64 33 1C |E FORTSETZEN.d3.|
00001370: 20 20 44 45 59 3B 20 48 49 47 48 2D 42 59 54 45 | DEY; HIGH-BYTE|
00001380: 20 41 42 47 45 4C 41 55 46 45 4E 20 3F 00 A2 33 | ABGELAUFEN ?..3|
00001390: 26 20 20 42 4E 45 53 4F 55 4E 44 31 3B 20 4E 45 |& BNESOUND1; NE|
000013A0: 49 4E 20 28 5A 3D 30 29 3A 20 41 45 55 53 53 45 |IN (Z=0): AEUSSE|
000013B0: 52 45 20 57 41 52 54 45 53 43 48 4C 45 49 46 45 |RE WARTESCHLEIFE|
000013C0: 20 46 4F 52 54 53 45 54 5A 45 4E 00 A8 33 30 20 | FORTSETZEN..30 |
000013D0: 3B 00 C1 33 3A 20 20 4C 44 41 23 24 31 30 3B 20 |;..3: LDA#$10; |
000013E0: 54 4F 4E 20 57 49 45 44 45 52 00 DA 33 44 20 20 |TON WIEDER..3D |
000013F0: 53 54 41 24 44 34 30 34 3B 20 41 42 53 54 45 4C |STA$D404; ABSTEL|
00001400: 4C 45 4E 00 E0 33 4E 20 3B 00 08 34 58 20 20 2E |LEN..3N ;..4X .|
00001410: 2E 2E 52 45 54 55 52 4E 28 41 4B 4B 55 2C 58 47 |..RETURN(AKKU,XG|
00001420: 45 54 2C 59 47 45 54 2C 4F 4C 44 42 53 4F 55 54 |ET,YGET,OLDBSOUT|
00001430: 29 00 0E 34 62 20 3B 00 14 34 6C 20 3B 00 00 00 |)..4b ;..4l ;...|
X...D.;.. N.; **************************
****.( X.; *
*.M ..; * NEUE STEUERZEICHEN *.R
..; * ================== *.. ..
; * *.. .; *
EIN: SYS 49152 *.. ..; * AU
S: <RUN/STOP>+<RESTORE> *..!..; *
*.+!..; **********
********************.P!H.; *
*.U!R.; * CHR$(2) = <CTR
L>+<B> : *..!..; * BILDSCHIRM INVE
RTIEREN *..!..; *
*..!..; * CHR$(4) = <CTRL>+<D> :
*.."..; * AKTUELLE ZEILE LOESCHEN
*.."..; * *.
S"..; * CHR$(7) = <CTRL>+<G> : *.X".
.; * KLINGELTON ERZEUGEN *.."".;
* *.B",.; * C
HR$(27)= <CTRL>+<]> : *.."6.; * QU
OTE MODE VERLASSEN *..#@.; *
*.1#J.; ************
******************.V#T.; *
*.{#^.; * PRINZIP: VERBIEG
EN DES *. #H.; * IBSOUT-VEK
TORS *.E#R.; *
*..#|.; *
*..$..; * (W) 25.09.1987 BY *
.4$..; * FLORIAN MUELLER *.Y$
..; * *.~$..;
* ASSEMBLER: HYPRA-ASS *..$..; *
(C64) *.H$..; *
*..$B.; ********
**********************..$L.;..$V.;..$..;
..%...BA $C000..%..;..%..;.D%...GL IBSOU
T = $0326 ; BSOUT-VEKTOR.Y%...GL OL
DBSOUT = $F1CA ; NORMALER IBSOUT-INHA
LT..%...GL DELLIN = $E9FF ; ZEILE (
X) LOESCHEN.X%&..GL QTSW = $D4
; QUOTE-MODE-FLAG..&0..GL TBLX = $
D6 ; AKTUELLE CURSORZEILE.P&:..GL ANZ
AHL = 4 ; ANZAHL DER ZUSAETZLIC
HEN STEUERZEICHEN.V&D.;.\&N.;.B&X.;..&B.
; *** INITIALISIERUNG ***..&L.;..&V.;..&
.. LDA#<(NEWBSOUT); VEKTOR.F&.. LDY#>(NE
WBSOUT); IBSOUT..&.. STAIBSOUT; AUF NEWB
SOUT..&.. STYIBSOUT+1; UMLENKEN..'.. RTS
; UND ZURUECKSPRINGEN."'..;.('..;..'F.;.
R'P.; *** RETTUNGSSPEICHER FUER ***.V'Z.
; *** PROZESSOR-REGISTER ***.|'..;..'
..;..'..XGET .BAXGET+1; RETTUNGSSPEICHER
FUER X-REGISTER..'..AKKU .BAAKKU+1; RET
TUNGSSPEICHER FUER AKKUMULATOR."(..YGET
.BAYGET+1; RETTUNGSSPEICHER FUER Y-REGIS
TER.((..;..( .;.4(*.;.Y(4.; *** MAKRO FU
ER RUECKSPRUNG ***.~(>.; *** AUS EIGENE
M NEWBSOUT ***..(H.;..(R..MA RETURN (AK
KU,XGET,YGET,OLBDSOUT).F(\. LDAAKKU; PRO
ZESSOR-..(F. LDXXGET; REGISTER..(P. LDYY
GET; WIEDERHERSTELLEN.%)Z. JMPOLDBSOUT;
WEITER WIE ALTES BSOUT.-)...RT.3)..;.9).
.;.?)..;.C)..; *** NEUE BSOUT-BEHANDLUNG
***.I)..;.O)..;.U)..;..)$.NEWBSOUT STXX
GET; X-REGISTER RETTEN.I).. LDX#ANZAHL-1
; SUCHINDEX INITIALISIEREN..)8.VGL CMPCH
ARS,X; VERGLEICH MIT TABELLE.-*B. BEQFOU
ND; UEBEREINSTIMMUNG (Z=1): ZEICHEN AUSF
UEHREN.K*L. DEX; INDEX WEITERZAEHLEN..*V
. BPLVGL; GEGEBENENFALLS WEITERE SUCHE I
N DER TABELLE..*`. LDXXGET; X-REGISTER W
IEDERHERSTELLEN..*J. JMPOLDBSOUT; UND ZE
ICHEN NORMAL AUSGEBEN..*..;..+..; ======
=========================..+..; BEHANDLU
NG EINES NEUEN ZEICHENS.T+..; ==========
=====================.Z+..;..+..FOUND ST
AAKKU; AKKUMULATOR RETTEN. +.. STYYGET;
Y-REGISTER RETTEN..+". LDALOW,X; SPRUNGB
EFEHL..+,. STASPRUNG+1; AUF ENTSPRECHEND
E..+6. LDAHIGH,X; ROUTINE..,@. STASPRUNG
+2; LENKEN.:,J.SPRUNG JMP$0000; SELBSTMO
DIFIKATION!.@,T.;.F,P.;.],Z.; *** TABELL
EN ***.C,..;..,..LOW .BY<(D),<(B),<(ESC)
,<(G)..,..HIGH .BY>(D),>(B),>(ESC),>(G).
N,..CHARS .BY$04,$02,$1B,$07; D,B,ESC,G.
T,..;.Z,..;..,..;..,..;..,..; *** CHR$(4
) ***..-..;..-..;.,-..D .BAD; AKTUELLE Z
EILE LOESCHEN.[-D. LDXTBLX; NUMMER DER A
KTUELLEN ZEILE HOLEN.~-N. JSRDELLIN; UND
ZEILE LOESCHEN..-X. ...RETURN(AKKU,XGET
,YGET,OLDBSOUT)..-..;..-P.;..-Z.;.N-..;
*** CHR$(2) ***.T-..;.Z-..;..-..B .BAB;
BILDSCHIRM INVERTIEREN..... LDA#<(1024);
LOW-BYTES AUF.F... STAREAD+1; BILDSCHIR
MSPEICHERANFANG.^... STAWRITE+1; SETZEN.
.J. LDA#>(1024); HIGH-BYTES AUF...T. ST
AREAD+2; BILDSCHIRMSPEICHERANFANG..... S
TAWRITE+2; SETZEN.F...;..... LDY#0; OFFS
ET INITIALISIEREN../..READ LDA$FFFF,Y; B
ILDSCHIRMCODE LADEN.7/.. EOR#$80; REVERS
-BIT >>FLIPPEN<<.B/..WRITE STA$FFFF,Y; U
ND ZURUECKSCHREIBEN.|/.. INY; OFFSET ERH
OEHEN../$. BNEREAD; SCHLEIFE FORTSETZEN.
./.. INCREAD+2; HIGH-BYTES.S/8. INCWRITE
+2; ERHOEHEN../B. LDAWRITE+2; UND ZWECKS
PRUEFUNG LESEN..0L. CMP#>(2048); FERTIG
?.F0V. BCCREAD; NEIN (C=0): WEITER IN S
CHLEIFE.L0`.;.T0J. ...RETURN(AKKU,XGET,Y
GET,OLDBSOUT).Z0T.;..0~.;..0X.;..0B.;..0
L.; *** CHR$(27) ***..0V.;..0..;.F0..ESC
.BAESC; ESCAPE..0.. LDA#0; LOESCHWERT I
N..1.. STAQTSW; QUOTE-MODE-FLAG SCHREIBE
N.+1.. STAAKKU; CHR$(0) ZURUECKGEBEN.S1.
. ...RETURN(AKKU,XGET,YGET,OLDBSOUT).Y1.
.;._1@.;.E1J.;.{1T.; *** CHR$(7) ***..1^
.;..1H.;..1R.G .BAG; BELL (KLINGELZEICHE
N).B1|. LDA#$0F; SIGNALTON-.W1.. STA$D41
8; MODUL..1.. LDA#0; WURDE AUS..2.. STA$
D405; DEM PROGRAMM..2.. LDA#$F7; >>MSE<<
.C2.. STA$D406; (64'ER-EINGABEHILFE)._2.
. LDA#$11; >>ENTLIEHEN<<.M2B. STA$D404.Z
2L. LDA#$32..2V. STA$D401..2.. LDA#0..2.
. STA$D400..2.. LDY#$80; WARTE-KONSTANTE
..2..SOUND1 LDX#$FF; WARTESCHLEIFE..3. S
OUND2 DEX; LOW-BYTE ABGELAUFEN ?.C3. BN
ESOUND2; NEIN (Z=0): INNERE WARTESCHLEIF
E FORTSETZEN.D3. DEY; HIGH-BYTE ABGELAU
FEN ?..3& BNESOUND1; NEIN (Z=0): AEUSSE
RE WARTESCHLEIFE FORTSETZEN..30 ;.A3: L
DA#$10; TON WIEDER.Z3D STA$D404; ABSTEL
LEN..3N ;..4X ...RETURN(AKKU,XGET,YGET,
OLDBSOUT)..4B ;..4L ;...
> CLICK IMAGE PREVIEW FOR FULL MODAL