QUELLTEXT
FILE INFORMATION
FILENAME(S): QUELLTEXT
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 01:12:35
APPEARS ON: 2 disk(s)
FILE HASH
ef62f910af181957d556a02e7a45ca96a517bf4bc67ae29425a61499d7bf8d16
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 3 86 | QUELLTEXT | PRG | C64er | 22 | 1 | DOWNLOAD FILE |
| AUSGABE 3 86 | QUELLTEXT | PRG | DuncanTwain | 22 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E5 1F 64 00 2E 42 41 24 43 30 30 30 00 EB |....d..BA$C000..| 00000010: 1F 6E 00 3B 00 07 20 78 00 3B 20 2A 2A 2A 2A 2A |.n.;.. x.; *****| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 00 23 20 82 00 3B 20 2A 2A 20 20 50 53 45 55 44 |.# ..; ** PSEUD| 00000040: 4F 2D 53 43 52 4F 4C 4C 20 20 2A 2A 00 3F 20 8C |O-SCROLL **.? .| 00000050: 00 3B 20 2A 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.; **-----------| 00000060: 2D 2D 2D 2D 2D 2D 2A 2A 00 5B 20 96 00 3B 20 2A |------**.[ ..; *| 00000070: 2A 20 20 20 28 43 29 20 31 39 38 35 20 42 59 20 |* (C) 1985 BY | 00000080: 20 20 2A 2A 00 77 20 A0 00 3B 20 2A 2A 20 20 20 | **.w ..; ** | 00000090: 4E 2E 42 45 52 47 45 52 48 4F 46 46 20 20 2A 2A |N.BERGERHOFF **| 000000A0: 00 93 20 AA 00 3B 20 2A 2A 20 20 20 4D 45 49 53 |.. ..; ** MEIS| 000000B0: 45 4E 57 45 47 20 32 32 20 20 2A 2A 00 AF 20 B4 |ENWEG 22 **.. .| 000000C0: 00 3B 20 2A 2A 20 20 35 30 32 30 20 46 52 45 43 |.; ** 5020 FREC| 000000D0: 48 45 4E 20 34 20 2A 2A 00 CB 20 BE 00 3B 20 2A |HEN 4 **.. ..; *| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000F0: 2A 2A 2A 2A 00 D1 20 C8 00 3B 00 F5 20 D2 00 2E |****.. ..;.. ...| 00000100: 47 4C 20 56 3D 35 33 32 34 38 20 20 20 20 20 20 |GL V=53248 | 00000110: 20 20 3B 56 49 43 2D 41 44 52 45 53 53 45 00 19 | ;VIC-ADRESSE..| 00000120: 21 DC 00 2E 47 4C 20 53 41 54 5A 3D 35 33 32 34 |!...GL SATZ=5324| 00000130: 38 20 20 20 20 20 3B 5A 45 49 43 48 45 4E 53 41 |8 ;ZEICHENSA| 00000140: 54 5A 00 3E 21 E6 00 2E 47 4C 20 5A 49 45 4C 3D |TZ.>!...GL ZIEL=| 00000150: 31 34 33 33 36 20 20 20 20 20 3B 5A 49 45 4C 2D |14336 ;ZIEL-| 00000160: 41 44 52 45 53 53 45 00 60 21 F0 00 2E 47 4C 20 |ADRESSE.`!...GL | 00000170: 49 52 51 56 45 43 3D 24 30 33 31 34 20 20 20 3B |IRQVEC=$0314 ;| 00000180: 49 52 51 56 45 43 54 4F 52 00 7F 21 FA 00 2E 47 |IRQVECTOR..!...G| 00000190: 4C 20 43 48 4B 4F 4D 3D 24 41 45 46 44 20 20 20 |L CHKOM=$AEFD | 000001A0: 20 3B 4B 4F 4D 4D 41 3F 00 A2 21 04 01 2E 47 4C | ;KOMMA?..!...GL| 000001B0: 20 47 45 54 42 59 54 3D 24 42 37 39 45 20 20 20 | GETBYT=$B79E | 000001C0: 3B 42 59 54 45 20 48 4F 4C 45 4E 00 C8 21 0E 01 |;BYTE HOLEN..!..| 000001D0: 2E 47 4C 20 5A 44 45 46 3D 5A 49 45 4C 2B 37 30 |.GL ZDEF=ZIEL+70| 000001E0: 34 20 20 3B 4E 45 55 45 53 20 5A 45 49 43 48 45 |4 ;NEUES ZEICHE| 000001F0: 4E 00 ED 21 18 01 2E 47 4C 20 49 52 51 41 4C 54 |N..!...GL IRQALT| 00000200: 3D 24 45 41 33 31 20 20 20 3B 41 4C 54 45 20 52 |=$EA31 ;ALTE R| 00000210: 4F 55 54 49 4E 45 00 F3 21 22 01 3B 00 0F 22 2C |OUTINE..!".;..",| 00000220: 01 49 4E 49 54 20 53 45 49 3B 4B 45 49 4E 20 49 |.INIT SEI;KEIN I| 00000230: 4E 54 45 52 52 55 50 54 00 21 22 36 01 20 4C 44 |NTERRUPT.!"6. LD| 00000240: 41 24 30 31 3B 52 45 47 2E 31 00 31 22 40 01 20 |A$01;REG.1.1"@. | 00000250: 50 48 41 3B 52 45 54 54 45 4E 00 3E 22 4A 01 20 |PHA;RETTEN.>"J. | 00000260: 41 4E 44 23 32 35 31 00 4B 22 54 01 20 53 54 41 |AND#251.K"T. STA| 00000270: 24 30 31 3B 00 66 22 5E 01 20 4C 44 41 23 3E 28 |$01;.f"^. LDA#>(| 00000280: 53 41 54 5A 29 3B 48 49 47 48 2D 42 59 54 45 00 |SATZ);HIGH-BYTE.| 00000290: 79 22 68 01 20 53 54 41 24 30 33 3B 4D 45 52 4B |y"h. STA$03;MERK| 000002A0: 45 4E 00 97 22 72 01 20 4C 44 41 23 3E 28 5A 49 |EN.."r. LDA#>(ZI| 000002B0: 45 4C 29 3B 4E 4F 43 48 4D 41 4C 20 46 55 45 52 |EL);NOCHMAL FUER| 000002C0: 00 AC 22 7C 01 20 53 54 41 24 30 35 3B 44 41 53 |.."|. STA$05;DAS| 000002D0: 20 5A 49 45 4C 00 B8 22 86 01 20 4C 44 59 23 30 | ZIEL..".. LDY#0| 000002E0: 30 00 CE 22 90 01 20 53 54 59 24 30 32 3B 4C 4F |0..".. STY$02;LO| 000002F0: 57 2D 42 59 54 45 53 00 E3 22 9A 01 20 53 54 59 |W-BYTES..".. STY| 00000300: 24 30 34 3B 4C 4F 45 53 43 48 45 4E 00 F0 22 A4 |$04;LOESCHEN..".| 00000310: 01 20 4C 44 58 23 24 31 30 00 0D 23 AE 01 43 4F |. LDX#$10..#..CO| 00000320: 50 59 20 4C 44 41 28 30 32 29 2C 59 3B 4C 41 44 |PY LDA(02),Y;LAD| 00000330: 45 4E 20 55 4E 44 00 25 23 B8 01 20 53 54 41 28 |EN UND.%#.. STA(| 00000340: 30 34 29 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 2E |04),Y;KOPIEREN..| 00000350: 23 C2 01 20 49 4E 59 00 3B 23 CC 01 20 42 4E 45 |#.. INY.;#.. BNE| 00000360: 43 4F 50 59 00 52 23 D6 01 20 49 4E 43 24 30 33 |COPY.R#.. INC$03| 00000370: 3B 48 49 47 48 2D 42 59 54 45 53 00 67 23 E0 01 |;HIGH-BYTES.g#..| 00000380: 20 49 4E 43 24 30 35 3B 45 52 48 4F 45 48 45 4E | INC$05;ERHOEHEN| 00000390: 00 70 23 EA 01 20 44 45 58 00 7D 23 F4 01 20 42 |.p#.. DEX.}#.. B| 000003A0: 4E 45 43 4F 50 59 00 90 23 FE 01 20 50 4C 41 3B |NECOPY..#.. PLA;| 000003B0: 56 4F 4D 20 53 54 41 43 4B 00 A9 23 08 02 20 53 |VOM STACK..#.. S| 000003C0: 54 41 24 30 31 3B 5A 55 52 55 45 43 4B 48 4F 4C |TA$01;ZURUECKHOL| 000003D0: 45 4E 00 B6 23 12 02 20 4C 44 41 56 2B 32 34 00 |EN..#.. LDAV+24.| 000003E0: C8 23 1C 02 20 4F 52 41 23 31 34 3B 4E 45 55 45 |.#.. ORA#14;NEUE| 000003F0: 52 00 E1 23 26 02 20 53 54 41 56 2B 32 34 3B 5A |R..#&. STAV+24;Z| 00000400: 45 49 43 48 45 4E 53 41 54 5A 00 EA 23 30 02 20 |EICHENSATZ..#0. | 00000410: 43 4C 49 00 02 24 3A 02 20 4C 44 41 23 30 38 3B |CLI..$:. LDA#08;| 00000420: 4B 2F 47 20 53 43 48 52 49 46 54 00 1B 24 44 02 |K/G SCHRIFT..$D.| 00000430: 20 4A 53 52 24 46 46 44 32 3B 42 4C 4F 43 4B 49 | JSR$FFD2;BLOCKI| 00000440: 45 52 45 4E 00 29 24 4E 02 49 4E 20 4C 44 58 23 |EREN.)$N.IN LDX#| 00000450: 34 30 00 35 24 58 02 20 4C 44 59 23 30 30 00 54 |40.5$X. LDY#00.T| 00000460: 24 62 02 49 4E 31 20 4C 44 41 44 45 46 2C 58 3B |$b.IN1 LDADEF,X;| 00000470: 4E 45 55 45 20 5A 45 49 43 48 45 4E 2D 00 6E 24 |NEUE ZEICHEN-.n$| 00000480: 6C 02 20 53 54 41 5A 44 45 46 2C 59 3B 44 45 46 |l. STAZDEF,Y;DEF| 00000490: 49 4E 49 54 49 4F 4E 00 77 24 76 02 20 49 4E 58 |INITION.w$v. INX| 000004A0: 00 80 24 80 02 20 49 4E 59 00 8C 24 8A 02 20 43 |..$.. INY..$.. C| 000004B0: 50 59 23 30 38 00 98 24 94 02 20 42 4E 45 49 4E |PY#08..$.. BNEIN| 000004C0: 31 00 A4 24 9E 02 20 4C 44 41 23 30 35 00 B8 24 |1..$.. LDA#05..$| 000004D0: A8 02 20 53 54 41 24 46 41 3B 4D 45 52 4B 45 52 |.. STA$FA;MERKER| 000004E0: 31 00 C4 24 B2 02 20 4C 44 41 23 30 30 00 D8 24 |1..$.. LDA#00..$| 000004F0: BC 02 20 53 54 41 24 46 45 3B 4D 45 52 4B 45 52 |.. STA$FE;MERKER| 00000500: 32 00 E1 24 C6 02 20 52 54 53 00 E7 24 D0 02 3B |2..$.. RTS..$..;| 00000510: 00 F4 24 DA 02 41 4E 20 4A 53 52 49 4E 00 09 25 |..$..AN JSRIN..%| 00000520: E4 02 20 4A 53 52 43 48 4B 4F 4D 3B 4B 4F 4D 4D |.. JSRCHKOM;KOMM| 00000530: 41 3F 00 23 25 EE 02 20 4A 53 52 47 45 54 42 59 |A?.#%.. JSRGETBY| 00000540: 54 3B 42 59 54 45 20 48 4F 4C 45 4E 00 38 25 F8 |T;BYTE HOLEN.8%.| 00000550: 02 20 53 54 58 53 50 45 45 44 3B 4D 45 52 4B 45 |. STXSPEED;MERKE| 00000560: 4E 00 46 25 02 03 20 4A 53 52 43 48 4B 4F 4D 00 |N.F%.. JSRCHKOM.| 00000570: 62 25 0C 03 20 4A 53 52 47 45 54 42 59 54 3B 56 |b%.. JSRGETBYT;V| 00000580: 49 44 45 51 52 41 4D 20 4D 49 54 00 7A 25 16 03 |IDEQRAM MIT.z%..| 00000590: 20 43 50 58 23 30 30 3B 38 38 20 46 55 45 4C 4C | CPX#00;88 FUELL| 000005A0: 45 4E 3F 00 85 25 20 03 20 42 4E 45 41 30 00 95 |EN?..% . BNEA0..| 000005B0: 25 2A 03 20 4A 53 52 46 55 4C 4C 3B 4A 41 00 A5 |%*. JSRFULL;JA..| 000005C0: 25 34 03 41 30 20 4A 53 52 43 48 4B 4F 4D 00 B4 |%4.A0 JSRCHKOM..| 000005D0: 25 3E 03 20 4A 53 52 47 45 54 42 59 54 00 C6 25 |%>. JSRGETBYT..%| 000005E0: 48 03 20 43 50 58 23 30 30 3B 48 4F 43 48 3F 00 |H. CPX#00;HOCH?.| 000005F0: D1 25 52 03 20 42 4E 45 41 31 00 DD 25 5C 03 20 |.%R. BNEA1..%\. | 00000600: 53 45 49 3B 4A 41 00 EE 25 66 03 20 4C 44 41 23 |SEI;JA..%f. LDA#| 00000610: 3C 28 49 52 51 31 29 00 FF 25 70 03 20 4C 44 59 |<(IRQ1)..%p. LDY| 00000620: 23 3E 28 49 52 51 31 29 00 0E 26 7A 03 20 53 54 |#>(IRQ1)..&z. ST| 00000630: 41 49 52 51 56 45 43 00 1F 26 84 03 20 53 54 59 |AIRQVEC..&.. STY| 00000640: 49 52 51 56 45 43 2B 31 00 28 26 8E 03 20 43 4C |IRQVEC+1.(&.. CL| 00000650: 49 00 31 26 98 03 20 52 54 53 00 43 26 A2 03 41 |I.1&.. RTS.C&..A| 00000660: 31 20 53 45 49 3B 52 55 4E 54 45 52 00 54 26 AC |1 SEI;RUNTER.T&.| 00000670: 03 20 4C 44 41 23 3C 28 49 52 51 32 29 00 65 26 |. LDA#<(IRQ2).e&| 00000680: B6 03 20 4C 44 59 23 3E 28 49 52 51 32 29 00 74 |.. LDY#>(IRQ2).t| 00000690: 26 C0 03 20 53 54 41 49 52 51 56 45 43 00 85 26 |&.. STAIRQVEC..&| 000006A0: CA 03 20 53 54 59 49 52 51 56 45 43 2B 31 00 8E |.. STYIRQVEC+1..| 000006B0: 26 D4 03 20 43 4C 49 00 97 26 DE 03 20 52 54 53 |&.. CLI..&.. RTS| 000006C0: 00 9D 26 E8 03 3B 00 B6 26 F2 03 46 55 4C 4C 20 |..&..;..&..FULL | 000006D0: 4C 44 58 23 30 30 3B 56 49 44 45 4F 52 41 4D 00 |LDX#00;VIDEORAM.| 000006E0: C9 26 FC 03 20 4C 44 41 23 38 38 3B 4D 49 54 20 |.&.. LDA#88;MIT | 000006F0: 38 38 00 E5 26 06 04 46 31 20 53 54 41 31 30 32 |88..&..F1 STA102| 00000700: 34 2C 58 3B 41 55 46 46 55 45 4C 4C 45 4E 00 EE |4,X;AUFFUELLEN..| 00000710: 26 10 04 20 49 4E 58 00 F9 26 1A 04 20 42 4E 45 |&.. INX..&.. BNE| 00000720: 46 31 00 0A 27 24 04 46 32 20 53 54 41 31 32 38 |F1..'$.F2 STA128| 00000730: 30 2C 58 00 13 27 2E 04 20 49 4E 58 00 1E 27 38 |0,X..'.. INX..'8| 00000740: 04 20 42 4E 45 46 32 00 2F 27 42 04 46 33 20 53 |. BNEF2./'B.F3 S| 00000750: 54 41 31 35 33 36 2C 58 00 38 27 4C 04 20 49 4E |TA1536,X.8'L. IN| 00000760: 58 00 43 27 56 04 20 42 4E 45 46 33 00 54 27 60 |X.C'V. BNEF3.T'`| 00000770: 04 46 34 20 53 54 41 31 37 36 38 2C 58 00 5D 27 |.F4 STA1768,X.]'| 00000780: 6A 04 20 49 4E 58 00 68 27 74 04 20 42 4E 45 46 |j. INX.h't. BNEF| 00000790: 34 00 71 27 7E 04 20 52 54 53 00 77 27 88 04 3B |4.q'~. RTS.w'..;| 000007A0: 00 91 27 92 04 49 52 51 31 20 4A 53 52 54 49 4D |..'..IRQ1 JSRTIM| 000007B0: 45 3B 49 53 54 20 5A 45 49 54 00 A8 27 9C 04 20 |E;IST ZEIT..'.. | 000007C0: 42 4E 45 42 41 43 4B 3B 45 52 52 45 49 43 48 54 |BNEBACK;ERREICHT| 000007D0: 3F 00 B4 27 A6 04 20 49 4E 43 24 46 41 00 C0 27 |?..'.. INC$FA..'| 000007E0: B0 04 20 4C 44 58 24 46 41 00 CC 27 BA 04 20 43 |.. LDX$FA..'.. C| 000007F0: 50 58 23 31 31 00 D8 27 C4 04 20 42 4E 45 49 52 |PX#11..'.. BNEIR| 00000800: 31 00 E4 27 CE 04 20 4C 44 41 23 30 33 00 ED 27 |1..'.. LDA#03..'| 00000810: D8 04 20 54 41 58 00 F9 27 E2 04 20 53 54 41 24 |.. TAX..'.. STA$| 00000820: 46 41 00 0B 28 EC 04 49 52 31 20 4A 4D 50 57 45 |FA..(..IR1 JMPWE| 00000830: 49 54 45 52 00 11 28 F6 04 3B 00 2B 28 00 05 49 |ITER..(..;.+(..I| 00000840: 52 51 32 20 4A 53 52 54 49 4D 45 3B 49 53 54 20 |RQ2 JSRTIME;IST | 00000850: 5A 45 49 54 00 42 28 0A 05 20 42 4E 45 42 41 43 |ZEIT.B(.. BNEBAC| 00000860: 4B 3B 45 52 52 45 49 43 48 54 3F 00 4E 28 14 05 |K;ERREICHT?.N(..| 00000870: 20 44 45 43 24 46 41 00 5A 28 1E 05 20 4C 44 58 | DEC$FA.Z(.. LDX| 00000880: 24 46 41 00 67 28 28 05 20 43 50 58 23 24 46 46 |$FA.g((. CPX#$FF| 00000890: 00 76 28 32 05 20 42 4E 45 57 45 49 54 45 52 00 |.v(2. BNEWEITER.| 000008A0: 82 28 3C 05 20 4C 44 41 23 30 37 00 8B 28 46 05 |.(<. LDA#07..(F.| 000008B0: 20 54 41 58 00 97 28 50 05 20 53 54 41 24 46 41 | TAX..(P. STA$FA| 000008C0: 00 A9 28 5A 05 57 45 49 54 45 52 20 4C 44 59 23 |..(Z.WEITER LDY#| 000008D0: 30 30 00 B2 28 64 05 20 54 58 41 00 BC 28 6E 05 |00..(d. TXA..(n.| 000008E0: 20 41 53 4C 3B 00 CC 28 78 05 20 41 53 4C 3B 20 | ASL;..(x. ASL; | 000008F0: 4D 41 4C 20 38 00 D6 28 82 05 20 41 53 4C 3B 00 |MAL 8..(.. ASL;.| 00000900: DF 28 8C 05 20 54 41 58 00 FD 28 96 05 57 31 20 |.(.. TAX..(..W1 | 00000910: 4C 44 41 44 45 46 2C 58 3B 4C 41 44 45 4E 20 55 |LDADEF,X;LADEN U| 00000920: 4E 44 20 4E 45 55 00 17 29 A0 05 20 53 54 41 5A |ND NEU..).. STAZ| 00000930: 44 45 46 2C 59 3B 44 45 46 49 4E 49 45 52 45 4E |DEF,Y;DEFINIEREN| 00000940: 00 20 29 AA 05 20 49 4E 58 00 29 29 B4 05 20 49 |. ).. INX.)).. I| 00000950: 4E 59 00 35 29 BE 05 20 43 50 59 23 30 38 00 40 |NY.5).. CPY#08.@| 00000960: 29 C8 05 20 42 4E 45 57 31 00 60 29 D2 05 42 41 |).. BNEW1.`)..BA| 00000970: 43 4B 20 4A 4D 50 49 52 51 41 4C 54 3B 41 4C 54 |CK JMPIRQALT;ALT| 00000980: 45 20 52 4F 55 54 49 4E 45 00 66 29 DC 05 3B 00 |E ROUTINE.f)..;.| 00000990: 76 29 E6 05 54 49 4D 45 20 49 4E 43 24 46 45 00 |v)..TIME INC$FE.| 000009A0: 82 29 F0 05 20 4C 44 41 24 46 45 00 90 29 FA 05 |.).. LDA$FE..)..| 000009B0: 20 43 4D 50 53 50 45 45 44 00 9B 29 04 06 20 42 | CMPSPEED..).. B| 000009C0: 45 51 54 31 00 A7 29 0E 06 20 4C 44 41 23 31 30 |EQT1..).. LDA#10| 000009D0: 00 B0 29 18 06 20 52 54 53 00 BE 29 22 06 54 31 |..).. RTS..)".T1| 000009E0: 20 4C 44 41 23 30 30 00 CA 29 2C 06 20 53 54 41 | LDA#00..),. STA| 000009F0: 24 46 45 00 D3 29 36 06 20 52 54 53 00 D9 29 40 |$FE..)6. RTS..)@| 00000A00: 06 3B 00 E5 29 4A 06 41 55 53 20 53 45 49 00 00 |.;..)J.AUS SEI..| 00000A10: 2A 54 06 20 4C 44 41 23 24 33 31 3B 41 4C 54 45 |*T. LDA#$31;ALTE| 00000A20: 20 56 45 43 54 4F 52 45 4E 00 0D 2A 5E 06 20 4C | VECTOREN..*^. L| 00000A30: 44 59 23 24 45 41 00 27 2A 68 06 20 53 54 41 49 |DY#$EA.'*h. STAI| 00000A40: 52 51 56 45 43 3B 48 45 52 53 54 45 4C 4C 45 4E |RQVEC;HERSTELLEN| 00000A50: 00 38 2A 72 06 20 53 54 59 49 52 51 56 45 43 2B |.8*r. STYIRQVEC+| 00000A60: 31 00 41 2A 7C 06 20 43 4C 49 00 52 2A 86 06 20 |1.A*|. CLI.R*.. | 00000A70: 52 54 53 3B 5A 55 52 55 45 43 4B 00 58 2A 90 06 |RTS;ZURUECK.X*..| 00000A80: 3B 00 69 2A 9A 06 53 50 45 45 44 20 2E 42 59 30 |;.i*..SPEED .BY0| 00000A90: 2C 30 00 6F 2A A4 06 3B 00 93 2A AE 06 3B 20 2A |,0.o*..;..*..; *| 00000AA0: 2A 2A 2A 20 5A 45 49 43 48 45 4E 44 45 46 49 4E |*** ZEICHENDEFIN| 00000AB0: 49 54 49 4F 4E 45 4E 20 2A 2A 2A 2A 00 99 2A B8 |ITIONEN ****..*.| 00000AC0: 06 3B 00 B8 2A C2 06 44 45 46 20 2E 42 59 36 30 |.;..*..DEF .BY60| 00000AD0: 2C 36 30 2C 32 34 2C 30 2C 30 2C 30 2C 30 2C 32 |,60,24,0,0,0,0,2| 00000AE0: 34 00 D4 2A CC 06 2E 42 59 20 36 30 2C 32 34 2C |4..*...BY 60,24,| 00000AF0: 30 2C 30 2C 30 2C 30 2C 32 34 2C 36 30 00 F0 2A |0,0,0,0,24,60..*| 00000B00: D6 06 2E 42 59 20 32 34 2C 30 2C 30 2C 30 2C 30 |...BY 24,0,0,0,0| 00000B10: 2C 32 34 2C 36 30 2C 36 30 00 0C 2B E0 06 2E 42 |,24,60,60..+...B| 00000B20: 59 20 30 2C 30 2C 30 2C 30 2C 32 34 2C 36 30 2C |Y 0,0,0,0,24,60,| 00000B30: 36 30 2C 32 34 00 28 2B EA 06 2E 42 59 20 30 2C |60,24.(+...BY 0,| 00000B40: 30 2C 30 2C 32 34 2C 36 30 2C 36 30 2C 32 34 2C |0,0,24,60,60,24,| 00000B50: 30 00 44 2B F4 06 2E 42 59 20 30 2C 30 2C 32 34 |0.D+...BY 0,0,24| 00000B60: 2C 36 30 2C 36 30 2C 32 34 2C 30 2C 30 00 60 2B |,60,60,24,0,0.`+| 00000B70: FE 06 2E 42 59 20 30 2C 32 34 2C 36 30 2C 36 30 |...BY 0,24,60,60| 00000B80: 2C 32 34 2C 30 2C 30 2C 30 00 7C 2B 08 07 2E 42 |,24,0,0,0.|+...B| 00000B90: 59 20 32 34 2C 36 30 2C 36 30 2C 32 34 2C 30 2C |Y 24,60,60,24,0,| 00000BA0: 30 2C 30 2C 30 00 98 2B 12 07 2E 42 59 20 36 30 |0,0,0..+...BY 60| 00000BB0: 2C 36 30 2C 32 34 2C 30 2C 30 2C 30 2C 30 2C 32 |,60,24,0,0,0,0,2| 00000BC0: 34 00 B4 2B 1C 07 2E 42 59 20 36 30 2C 32 34 2C |4..+...BY 60,24,| 00000BD0: 30 2C 30 2C 30 2C 30 2C 32 34 2C 36 30 00 D0 2B |0,0,0,0,24,60..+| 00000BE0: 26 07 2E 42 59 20 32 34 2C 30 2C 30 2C 30 2C 30 |&..BY 24,0,0,0,0| 00000BF0: 2C 32 34 2C 36 30 2C 36 30 00 00 00 |,24,60,60... |
X...D..BA$C000...N.;.. X.; ************* ********.# ..; ** PSEUDO-SCROLL **.? . .; **-----------------**.[ ..; ** (C) 1985 BY **.W .; ** N.BERGERHOFF ** .. ..; ** MEISENWEG 22 **.. ..; ** 5 020 FRECHEN 4 **.K ..; ***************** ****.Q H.;.. R..GL V=53248 ;VIC-A DRESSE..!...GL SATZ=53248 ;ZEICHENSA TZ.>!...GL ZIEL=14336 ;ZIEL-ADRESSE. `!...GL IRQVEC=$0314 ;IRQVECTOR.!...G L CHKOM=$AEFD ;KOMMA?..!...GL GETBYT= $B79E ;BYTE HOLEN.H!...GL ZDEF=ZIEL+70 4 ;NEUES ZEICHEN..!...GL IRQALT=$EA31 ;ALTE ROUTINE..!".;..",.INIT SEI;KEIN I NTERRUPT.!"6. LDA$01;REG.1.1"@. PHA;RETT EN.>"J. AND#251.K"T. STA$01;.F"^. LDA#>( SATZ);HIGH-BYTE.Y"H. STA$03;MERKEN.."R. LDA#>(ZIEL);NOCHMAL FUER.."|. STA$05;DAS ZIEL..".. LDY#00.N".. STY$02;LOW-BYTES. .".. STY$04;LOESCHEN..".. LDX#$10..#..CO PY LDA(02),Y;LADEN UND.%#.. STA(04),Y;KO PIEREN..#B. INY.;#L. BNECOPY.R#V. INC$03 ;HIGH-BYTES.G#.. INC$05;ERHOEHEN.P#.. DE X.}#.. BNECOPY..#.. PLA;VOM STACK..#.. S TA$01;ZURUECKHOLEN..#.. LDAV+24.H#.. ORA #14;NEUER..#&. STAV+24;ZEICHENSATZ..#0. CLI..$:. LDA#08;K/G SCHRIFT..$D. JSR$FFD 2;BLOCKIEREN.)$N.IN LDX#40.5$X. LDY#00.T $B.IN1 LDADEF,X;NEUE ZEICHEN-.N$L. STAZD EF,Y;DEFINITION.W$V. INX..$.. INY..$.. C PY#08..$.. BNEIN1..$.. LDA#05..$.. STA$F A;MERKER1.D$.. LDA#00.X$.. STA$FE;MERKER 2..$F. RTS..$P.;..$Z.AN JSRIN..%.. JSRCH KOM;KOMMA?.#%.. JSRGETBYT;BYTE HOLEN.8%. . STXSPEED;MERKEN.F%.. JSRCHKOM.B%.. JSR GETBYT;VIDEQRAM MIT.Z%.. CPX#00;88 FUELL EN?..% . BNEA0..%*. JSRFULL;JA..%4.A0 JS RCHKOM..%>. JSRGETBYT.F%H. CPX#00;HOCH?. Q%R. BNEA1..%\. SEI;JA..%F. LDA#<(IRQ1). .%P. LDY#>(IRQ1)..&Z. STAIRQVEC..&.. STY IRQVEC+1.(&.. CLI.1&.. RTS.C&..A1 SEI;RU NTER.T&.. LDA#<(IRQ2).E&.. LDY#>(IRQ2).T &.. STAIRQVEC..&J. STYIRQVEC+1..&T. CLI. .&.. RTS..&..;..&..FULL LDX#00;VIDEORAM. I&.. LDA#88;MIT 88..&..F1 STA1024,X;AUFF UELLEN..&.. INX..&.. BNEF1..'$.F2 STA128 0,X..'.. INX..'8. BNEF2./'B.F3 STA1536,X .8'L. INX.C'V. BNEF3.T'`.F4 STA1768,X.]' J. INX.H'T. BNEF4.Q'~. RTS.W'..;..'..IRQ 1 JSRTIME;IST ZEIT..'.. BNEBACK;ERREICHT ?..'.. INC$FA..'.. LDX$FA.L'.. CPX#11.X' D. BNEIR1..'N. LDA#03..'X. TAX..'.. STA$ FA..(..IR1 JMPWEITER..(..;.+(..IRQ2 JSRT IME;IST ZEIT.B(.. BNEBACK;ERREICHT?.N(.. DEC$FA.Z(.. LDX$FA.G((. CPX#$FF.V(2. BN EWEITER..(<. LDA#07..(F. TAX..(P. STA$FA ..(Z.WEITER LDY#00..(D. TXA..(N. ASL;.L( X. ASL; MAL 8.V(.. ASL;..(.. TAX..(..W1 LDADEF,X;LADEN UND NEU..) . STAZDEF,Y;DE FINIEREN. ).. INX.)).. INY.5).. CPY#08.@ )H. BNEW1.`)R.BACK JMPIRQALT;ALTE ROUTIN E.F)..;.V)..TIME INC$FE..).. LDA$FE..).. CMPSPEED..).. BEQT1..).. LDA#10..).. RT S..)".T1 LDA#00.J),. STA$FE.S)6. RTS.Y)@ .;..)J.AUS SEI..*T. LDA#$31;ALTE VECTORE N..*^. LDY#$EA.'*H. STAIRQVEC;HERSTELLEN .8*R. STYIRQVEC+1.A*|. CLI.R*.. RTS;ZURU ECK.X*..;.I*..SPEED .BY0,0.O*..;..*..; * *** ZEICHENDEFINITIONEN ****..*..;..*B.D EF .BY60,60,24,0,0,0,0,24.T*L..BY 60,24, 0,0,0,0,24,60..*V..BY 24,0,0,0,0,24,60,6 0..+...BY 0,0,0,0,24,60,60,24.(+...BY 0, 0,0,24,60,60,24,0.D+...BY 0,0,24,60,60,2 4,0,0.`+...BY 0,24,60,60,24,0,0,0.|+...B Y 24,60,60,24,0,0,0,0..+...BY 60,60,24,0 ,0,0,0,24..+...BY 60,24,0,0,0,0,24,60.P+ &..BY 24,0,0,0,0,24,60,60...
> CLICK IMAGE PREVIEW FOR FULL MODAL