SCROLL-MASCH.SRC
FILE INFORMATION
FILENAME(S): SCROLL-MASCH.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 4 disk(s)
FILE HASH
3a102445748236c006c61e5e7c4086edab169bfd565d9b8ed83e346305fceea1
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15722 SEITE A | SCROLL-MASCH.SRC | PRG | C64er | 19 | 0 | DOWNLOAD FILE |
| DIVERSEN 1 | SCROLL-MASCH.SRC | PRG | DuncanTwain | 9 | 17 | DOWNLOAD FILE |
| DIVERSEN 64 ER A | SCROLL-MASCH.SRC | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
| 15722 SEITE A | SCROLL-MASCH.SRC | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FE 1F 64 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |....d.;*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 00 24 20 6E 00 3B 2A 2A 20 |*******.$ n.;** | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 00 4A 20 | **.J | 00000050: 78 00 3B 2A 2A 20 20 20 38 30 2D DA 45 49 43 48 |x.;** 80-.EICH| 00000060: 45 4E 2D D3 43 52 4F 4C 4C 49 4E 47 20 20 20 20 |EN-.CROLLING | 00000070: 20 2A 2A 00 70 20 82 00 3B 2A 2A 20 20 20 20 20 | **.p ..;** | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 2A 2A 00 96 20 8C 00 3B 2A | **.. ..;*| 000000A0: 2A 20 20 57 52 49 54 54 45 4E 20 42 59 20 CE 49 |* WRITTEN BY .I| 000000B0: 4E 4F 20 C3 49 4D 45 52 4D 41 4E 20 20 2A 2A 00 |NO .IMERMAN **.| 000000C0: BC 20 A0 00 3B 2A 2A 20 37 34 30 33 20 C1 4D 4D |. ..;** 7403 .MM| 000000D0: 45 52 42 55 43 48 2D 31 20 C5 4E 54 52 49 4E 47 |ERBUCH-1 .NTRING| 000000E0: 45 4E 20 2A 2A 00 E2 20 A2 00 3B 2A 2A 20 20 20 |EN **.. ..;** | 000000F0: 20 20 20 20 20 28 C3 29 20 49 4E 20 31 39 38 36 | (.) IN 1986| 00000100: 20 20 20 20 20 20 20 20 20 2A 2A 00 08 21 A4 00 | **..!..| 00000110: 3B 2A 2A 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 20 2A | *| 00000130: 2A 00 2E 21 AA 00 3B 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 2A 2A 2A 00 4B 21 B4 00 2E 4F 42 20 |*******.K!...OB | 00000160: 22 D3 43 52 4F 4C 4C CD 41 53 43 48 49 4E 45 2C |".CROLL.ASCHINE,| 00000170: 50 2C 57 22 00 59 21 C8 00 2E 42 41 20 24 30 42 |P,W".Y!...BA $0B| 00000180: 30 30 00 5F 21 DC 00 3B 00 74 21 F0 00 2E 45 51 |00._!..;.t!...EQ| 00000190: 20 56 44 43 52 45 47 3D 24 44 36 30 30 00 89 21 | VDCREG=$D600..!| 000001A0: 04 01 2E 45 51 20 56 44 43 44 41 54 3D 24 44 36 |...EQ VDCDAT=$D6| 000001B0: 30 31 00 9E 21 18 01 2E 45 51 20 4F 4C 44 49 52 |01..!...EQ OLDIR| 000001C0: 51 3D 24 46 41 36 35 00 B3 21 2C 01 2E 45 51 20 |Q=$FA65..!,..EQ | 000001D0: 49 52 51 56 45 43 3D 24 30 33 31 34 00 C9 21 40 |IRQVEC=$0314..!@| 000001E0: 01 2E 45 51 20 43 48 41 52 47 45 4E 3D 24 32 30 |..EQ CHARGEN=$20| 000001F0: 30 30 00 E6 21 54 01 2E 45 51 20 46 43 48 52 31 |00..!T..EQ FCHR1| 00000200: 3D 43 48 41 52 47 45 4E 2B 28 31 2A 31 36 29 00 |=CHARGEN+(1*16).| 00000210: F9 21 68 01 2E 45 51 20 48 4F 4C 45 3D 24 43 44 |.!h..EQ HOLE=$CD| 00000220: 44 41 00 0D 22 7C 01 2E 45 51 20 53 45 54 5A 45 |DA.."|..EQ SETZE| 00000230: 3D 24 43 44 43 43 00 22 22 90 01 2E 45 51 20 47 |=$CDCC.""...EQ G| 00000240: 45 54 43 48 52 3D 24 43 44 44 38 00 37 22 A4 01 |ETCHR=$CDD8.7"..| 00000250: 2E 45 51 20 50 55 54 43 48 52 3D 24 43 44 43 41 |.EQ PUTCHR=$CDCA| 00000260: 00 4D 22 B8 01 2E 45 51 20 43 4F 44 45 54 41 42 |.M"...EQ CODETAB| 00000270: 3D 24 30 44 46 46 00 53 22 CC 01 3B 00 74 22 E0 |=$0DFF.S"..;.t".| 00000280: 01 3B 2D 2D 2D 2D 20 D0 41 52 41 4D 45 54 45 52 |.;---- .ARAMETER| 00000290: 20 53 45 54 5A 45 4E 20 20 2D 2D 2D 2D 00 7A 22 | SETZEN ----.z"| 000002A0: F4 01 3B 00 9F 22 08 02 20 53 54 41 4C 45 4E 2B |..;..".. STALEN+| 000002B0: 31 3B 4C 41 45 4E 47 45 20 44 45 52 20 CC 41 55 |1;LAENGE DER .AU| 000002C0: 46 53 43 48 52 49 46 54 00 BD 22 1C 02 20 53 54 |FSCHRIFT..".. ST| 000002D0: 41 43 4F 50 59 44 45 46 2B 31 3B 41 42 53 50 45 |ACOPYDEF+1;ABSPE| 000002E0: 49 43 48 45 52 4E 00 EA 22 30 02 20 53 54 58 47 |ICHERN.."0. STXG| 000002F0: 52 4B 4C 2B 31 3B CD 4F 44 55 53 20 28 C7 52 4F |RKL+1;.ODUS (.RO| 00000300: 53 53 2F 4B 4C 45 49 4E 29 20 46 45 53 54 4C 45 |SS/KLEIN) FESTLE| 00000310: 47 45 4E 00 0F 23 44 02 20 53 54 59 54 45 4D 50 |GEN..#D. STYTEMP| 00000320: 4F 3B C7 45 53 43 48 57 49 4E 44 49 47 4B 45 49 |O;.ESCHWINDIGKEI| 00000330: 54 20 53 45 54 5A 45 4E 00 28 23 58 02 20 4C 44 |T SETZEN.(#X. LD| 00000340: 41 23 3C 28 46 43 48 52 31 29 3B D6 45 4B 54 4F |A#<(FCHR1);.EKTO| 00000350: 52 00 44 23 6C 02 20 4C 44 59 23 3E 28 46 43 48 |R.D#l. LDY#>(FCH| 00000360: 52 31 29 3B 20 45 52 5A 45 55 47 45 4E 00 57 23 |R1); ERZEUGEN.W#| 00000370: 80 02 20 53 54 41 53 45 54 57 45 52 54 45 2B 31 |.. STASETWERTE+1| 00000380: 00 66 23 94 02 20 53 54 59 53 45 54 31 2B 31 00 |.f#.. STYSET1+1.| 00000390: 77 23 A8 02 20 4A 53 52 53 45 54 57 45 52 54 45 |w#.. JSRSETWERTE| 000003A0: 00 9C 23 BC 02 20 4A 53 52 43 4F 50 59 44 45 46 |..#.. JSRCOPYDEF| 000003B0: 3B DA 45 49 43 48 45 4E 53 41 54 5A 20 C3 4F 50 |;.EICHENSATZ .OP| 000003C0: 49 45 52 45 4E 00 B8 23 D0 02 20 4A 53 52 4B 4F |IEREN..#.. JSRKO| 000003D0: 52 52 57 45 52 54 45 3B CB 4F 52 52 45 4B 54 55 |RRWERTE;.ORREKTU| 000003E0: 52 00 DE 23 E4 02 20 4A 53 52 43 4C 52 54 41 42 |R..#.. JSRCLRTAB| 000003F0: 3B C3 41 52 52 59 2D D4 41 42 45 4C 4C 45 20 4C |;.ARRY-.ABELLE L| 00000400: 4F 45 53 43 48 45 4E 00 F0 23 F8 02 20 4A 53 52 |OESCHEN..#.. JSR| 00000410: 24 30 32 44 44 3B D2 CF CD 00 12 24 0C 03 20 4A |$02DD;.....$.. J| 00000420: 4D 50 53 43 52 4F 4C 4C 3B 5A 55 52 20 D3 43 52 |MPSCROLL;ZUR .CR| 00000430: 4F 4C 4C 2D 52 4F 55 54 49 4E 45 00 18 24 20 03 |OLL-ROUTINE..$ .| 00000440: 3B 00 37 24 34 03 3B 2D 2D 2D 20 D0 41 52 41 4D |;.7$4.;--- .ARAM| 00000450: 45 54 45 52 2D D4 41 42 45 4C 4C 45 20 2D 2D 2D |ETER-.ABELLE ---| 00000460: 00 3D 24 48 03 3B 00 4E 24 5C 03 54 45 4D 50 4F |.=$H.;.N$\.TEMPO| 00000470: 20 2E 42 59 24 30 31 00 63 24 70 03 50 4F 49 4E | .BY$01.c$p.POIN| 00000480: 54 45 52 20 2E 57 4F 46 43 48 52 31 00 83 24 84 |TER .WOFCHR1..$.| 00000490: 03 43 41 52 52 59 54 41 42 20 2E 42 59 24 30 30 |.CARRYTAB .BY$00| 000004A0: 2C 24 30 30 2C 24 30 30 2C 24 30 30 00 9B 24 98 |,$00,$00,$00..$.| 000004B0: 03 20 2E 42 59 24 30 30 2C 24 30 30 2C 24 30 30 |. .BY$00,$00,$00| 000004C0: 2C 24 30 30 00 A1 24 AC 03 3B 00 EB 24 C0 03 3B |,$00..$..;..$..;| 000004D0: 2D 2D 20 C4 49 45 53 45 20 D2 4F 55 54 49 4E 45 |-- .IESE .OUTINE| 000004E0: 20 CB 4F 52 52 49 47 49 45 52 54 20 44 45 4E 2C | .ORRIGIERT DEN,| 000004F0: 20 42 45 49 4D 20 CB 4F 50 49 45 52 45 4E 20 44 | BEIM .OPIEREN D| 00000500: 45 53 20 DA 45 49 43 48 45 4E 53 41 54 5A 45 53 |ES .EICHENSATZES| 00000510: 20 20 2D 2D 00 0B 25 D4 03 3B 2D 2D 20 41 55 46 | --..%..;-- AUF| 00000520: 47 45 54 52 45 54 45 4E 45 4E 20 C6 45 48 4C 45 |GETRETENEN .EHLE| 00000530: 52 20 2D 2D 00 11 25 E8 03 3B 00 29 25 FC 03 4B |R --..%..;.)%..K| 00000540: 4F 52 52 57 45 52 54 45 20 4A 53 52 53 55 42 54 |ORRWERTE JSRSUBT| 00000550: 52 41 00 39 25 10 04 20 4C 44 41 50 4F 49 4E 54 |RA.9%.. LDAPOINT| 00000560: 45 52 00 4C 25 24 04 20 53 54 41 53 45 54 57 45 |ER.L%$. STASETWE| 00000570: 52 54 45 2B 31 00 5E 25 38 04 20 4C 44 41 50 4F |RTE+1.^%8. LDAPO| 00000580: 49 4E 54 45 52 2B 31 00 6D 25 4C 04 20 53 54 41 |INTER+1.m%L. STA| 00000590: 53 45 54 31 2B 31 00 76 25 60 04 20 52 54 53 00 |SET1+1.v%`. RTS.| 000005A0: 7C 25 74 04 3B 00 91 25 88 04 53 45 54 57 45 52 ||%t.;..%..SETWER| 000005B0: 54 45 20 4C 44 41 23 24 30 30 00 A1 25 9C 04 20 |TE LDA#$00..%.. | 000005C0: 53 54 41 50 4F 49 4E 54 45 52 00 B2 25 B0 04 53 |STAPOINTER..%..S| 000005D0: 45 54 31 20 4C 44 41 23 24 30 30 00 C4 25 C4 04 |ET1 LDA#$00..%..| 000005E0: 20 53 54 41 50 4F 49 4E 54 45 52 2B 31 00 CD 25 | STAPOINTER+1..%| 000005F0: D8 04 20 52 54 53 00 D3 25 EC 04 3B 00 F0 25 00 |.. RTS..%..;..%.| 00000600: 05 3B 2D 2D 2D 2D 20 D3 54 45 55 45 52 52 4F 55 |.;---- .TEUERROU| 00000610: 54 49 4E 45 20 2D 2D 2D 2D 00 F6 25 14 05 3B 00 |TINE ----..%..;.| 00000620: 0D 26 28 05 53 43 52 4F 4C 4C 20 4A 53 52 53 45 |.&(.SCROLL JSRSE| 00000630: 54 57 45 52 54 45 00 16 26 3C 05 20 53 45 49 00 |TWERTE..&<. SEI.| 00000640: 25 26 50 05 4C 45 4E 20 4C 44 41 23 32 36 00 39 |%&P.LEN LDA#26.9| 00000650: 26 64 05 20 53 54 41 24 46 44 3B C1 2E DA 45 49 |&d. STA$FD;...EI| 00000660: 43 48 00 53 26 78 05 42 59 54 53 43 52 20 4C 44 |CH.S&x.BYTSCR LD| 00000670: 41 23 24 30 30 3B 42 49 54 43 4E 54 00 65 26 8C |A#$00;BITCNT.e&.| 00000680: 05 20 53 54 41 24 41 36 3B 41 55 46 20 30 00 79 |. STA$A6;AUF 0.y| 00000690: 26 A0 05 53 45 54 54 41 42 20 4A 53 52 4C 45 53 |&..SETTAB JSRLES| 000006A0: 45 4E 00 8F 26 B4 05 20 4A 53 52 4C 45 53 45 4E |EN..&.. JSRLESEN| 000006B0: 3B 4B 4F 52 52 45 4B 2E 00 9B 26 C8 05 20 4A 53 |;KORREK...&.. JS| 000006C0: 52 52 4F 54 00 AD 26 DC 05 20 4A 53 52 53 43 48 |RROT..&.. JSRSCH| 000006D0: 52 45 49 42 45 4E 00 BB 26 F0 05 20 4A 53 52 57 |REIBEN..&.. JSRW| 000006E0: 41 52 54 45 00 C7 26 04 06 20 4C 44 41 24 41 36 |ARTE..&.. LDA$A6| 000006F0: 00 D4 26 18 06 20 43 4D 50 23 24 30 38 00 E3 26 |..&.. CMP#$08..&| 00000700: 2C 06 20 42 4E 45 53 45 54 54 41 42 00 FA 26 40 |,. BNESETTAB..&@| 00000710: 06 20 4A 53 52 53 55 42 54 52 41 3B 2B 31 36 42 |. JSRSUBTRA;+16B| 00000720: 59 54 45 00 0E 27 54 06 20 4A 53 52 24 39 31 30 |YTE..'T. JSR$910| 00000730: 39 3B 47 45 54 49 4E 00 1B 27 68 06 20 42 4E 45 |9;GETIN..'h. BNE| 00000740: 53 54 4F 50 00 2C 27 7C 06 20 44 45 43 24 46 44 |STOP.,'|. DEC$FD| 00000750: 3B 41 4C 4C 45 00 43 27 90 06 20 42 4E 45 42 59 |;ALLE.C'.. BNEBY| 00000760: 54 53 43 52 3B DA 45 49 43 48 45 4E 00 4C 27 A4 |TSCR;.EICHEN.L'.| 00000770: 06 20 43 4C 49 00 5B 27 B8 06 20 4A 4D 50 53 43 |. CLI.['.. JMPSC| 00000780: 52 4F 4C 4C 00 68 27 CC 06 53 54 4F 50 20 43 4C |ROLL.h'..STOP CL| 00000790: 49 00 7A 27 E0 06 20 53 54 41 24 46 46 3B 54 41 |I.z'.. STA$FF;TA| 000007A0: 53 54 45 00 83 27 F4 06 20 52 54 53 00 89 27 08 |STE..'.. RTS..'.| 000007B0: 07 3B 00 8F 27 1C 07 3B 00 B3 27 30 07 3B 2D 2D |.;..'..;..'0.;--| 000007C0: 2D 20 41 44 52 28 41 2C 59 29 20 41 4E 20 56 44 |- ADR(A,Y) AN VD| 000007D0: 43 20 53 45 4E 44 45 4E 20 2D 2D 2D 00 B9 27 44 |C SENDEN ---..'D| 000007E0: 07 3B 00 D3 27 58 07 53 45 4E 44 41 44 52 20 4C |.;..'X.SENDADR L| 000007F0: 44 58 23 31 39 3B 4C 4F 2D 41 44 52 00 E1 27 6C |DX#19;LO-ADR..'l| 00000800: 07 20 4A 53 52 53 45 54 5A 45 00 F1 27 80 07 20 |. JSRSETZE..'.. | 00000810: 54 59 41 3B 48 49 2D 41 44 52 00 FA 27 94 07 20 |TYA;HI-ADR..'.. | 00000820: 44 45 58 00 08 28 A8 07 20 4A 53 52 53 45 54 5A |DEX..(.. JSRSETZ| 00000830: 45 00 11 28 BC 07 20 52 54 53 00 17 28 D0 07 3B |E..(.. RTS..(..;| 00000840: 00 37 28 E4 07 3B 20 2D 2D 2D 20 5A 45 49 47 45 |.7(..; --- ZEIGE| 00000850: 52 20 3D 20 5A 45 49 47 45 52 2B 31 20 2D 2D 2D |R = ZEIGER+1 ---| 00000860: 00 3D 28 F8 07 3B 00 51 28 0C 08 49 4E 43 52 20 |.=(..;.Q(..INCR | 00000870: 49 4E 43 50 4F 49 4E 54 45 52 00 5C 28 20 08 20 |INCPOINTER.\( . | 00000880: 42 4E 45 49 31 00 6E 28 34 08 20 49 4E 43 50 4F |BNEI1.n(4. INCPO| 00000890: 49 4E 54 45 52 2B 31 00 79 28 48 08 49 31 20 52 |INTER+1.y(H.I1 R| 000008A0: 54 53 00 7F 28 5C 08 3B 00 9C 28 70 08 3B 2D 2D |TS..(\.;..(p.;--| 000008B0: 2D 20 42 59 54 45 20 52 4F 54 49 45 52 45 4E 20 |- BYTE ROTIEREN | 000008C0: 20 20 2D 2D 2D 00 A2 28 84 08 3B 00 AE 28 98 08 | ---..(..;..(..| 000008D0: 52 4F 54 20 43 4C 43 00 B7 28 AC 08 20 52 4F 4C |ROT CLC..(.. ROL| 000008E0: 00 C0 28 C0 08 20 50 48 50 00 C9 28 D4 08 20 50 |..(.. PHP..(.. P| 000008F0: 48 41 00 DC 28 E8 08 20 4C 44 59 24 41 36 3B 42 |HA..(.. LDY$A6;B| 00000900: 49 54 43 4E 54 00 EF 28 FC 08 20 4C 44 41 43 41 |ITCNT..(.. LDACA| 00000910: 52 52 59 54 41 42 2C 59 00 FC 28 10 09 20 42 45 |RRYTAB,Y..(.. BE| 00000920: 51 52 4F 54 32 00 05 29 24 09 20 50 4C 41 00 12 |QROT2..)$. PLA..| 00000930: 29 38 09 20 4F 52 41 23 24 30 31 00 1B 29 4C 09 |)8. ORA#$01..)L.| 00000940: 20 50 48 41 00 28 29 60 09 52 4F 54 32 20 50 4C | PHA.()`.ROT2 PL| 00000950: 41 00 36 29 74 09 20 54 41 58 3B C2 59 54 45 00 |A.6)t. TAX;.YTE.| 00000960: 43 29 88 09 20 4C 44 41 23 24 30 30 00 4C 29 9C |C).. LDA#$00.L).| 00000970: 09 20 50 4C 50 00 59 29 B0 09 20 42 43 43 52 4F |. PLP.Y).. BCCRO| 00000980: 54 31 00 66 29 C4 09 20 4C 44 41 23 24 30 31 00 |T1.f).. LDA#$01.| 00000990: 82 29 D8 09 52 4F 54 31 20 53 54 41 43 41 52 52 |.)..ROT1 STACARR| 000009A0: 59 54 41 42 2C 59 3B 46 4C 41 47 00 90 29 EC 09 |YTAB,Y;FLAG..)..| 000009B0: 20 54 58 41 3B C2 59 54 45 00 A3 29 00 0A 20 53 | TXA;.YTE..).. S| 000009C0: 54 41 24 41 37 3B 4D 45 52 4B 45 4E 00 B6 29 14 |TA$A7;MERKEN..).| 000009D0: 0A 20 49 4E 43 24 41 36 3B 42 49 54 43 4E 54 00 |. INC$A6;BITCNT.| 000009E0: BF 29 28 0A 20 52 54 53 00 C5 29 3C 0A 3B 00 E9 |.)(. RTS..)<.;..| 000009F0: 29 50 0A 3B 20 2D 2D 2D 20 43 41 52 52 59 54 41 |)P.; --- CARRYTA| 00000A00: 42 45 4C 4C 45 20 4C 4F 45 53 43 48 45 4E 20 2D |BELLE LOESCHEN -| 00000A10: 2D 2D 00 EF 29 64 0A 3B 00 02 2A 78 0A 43 4C 52 |--..)d.;..*x.CLR| 00000A20: 54 41 42 20 4C 44 59 23 24 30 37 00 0F 2A 8C 0A |TAB LDY#$07..*..| 00000A30: 20 4C 44 41 23 24 30 30 00 26 2A A0 0A 43 4C 52 | LDA#$00.&*..CLR| 00000A40: 31 20 53 54 41 43 41 52 52 59 54 41 42 2C 59 00 |1 STACARRYTAB,Y.| 00000A50: 2F 2A B4 0A 20 44 45 59 00 3C 2A C8 0A 20 42 50 |/*.. DEY.<*.. BP| 00000A60: 4C 43 4C 52 31 00 45 2A DC 0A 20 52 54 53 00 4B |LCLR1.E*.. RTS.K| 00000A70: 2A F0 0A 3B 00 6F 2A 04 0B 3B 20 2D 2D 2D 20 DA |*..;.o*..; --- .| 00000A80: 45 49 43 48 45 4E 20 41 55 53 20 D2 C1 CD 20 4C |EICHEN AUS ... L| 00000A90: 45 53 45 4E 20 2D 2D 2D 00 8C 2A 18 0B 4C 45 53 |ESEN ---..*..LES| 00000AA0: 45 4E 20 4C 44 41 50 4F 49 4E 54 45 52 3B 4C 4F |EN LDAPOINTER;LO| 00000AB0: 2D DA 45 49 2E 00 A6 2A 2C 0B 20 4C 44 59 50 4F |-.EI...*,. LDYPO| 00000AC0: 49 4E 54 45 52 2B 31 3B 48 49 2D DA 45 49 2E 00 |INTER+1;HI-.EI..| 00000AD0: B6 2A 40 0B 20 4A 53 52 53 45 4E 44 41 44 52 00 |.*@. JSRSENDADR.| 00000AE0: C5 2A 54 0B 20 4A 53 52 47 45 54 43 48 52 00 D8 |.*T. JSRGETCHR..| 00000AF0: 2A 68 0B 20 53 54 41 24 41 37 3B 4D 45 52 4B 45 |*h. STA$A7;MERKE| 00000B00: 4E 00 E1 2A 7C 0B 20 52 54 53 00 E7 2A 90 0B 3B |N..*|. RTS..*..;| 00000B10: 00 0D 2B A4 0B 3B 2D 2D 2D 20 DA 45 49 43 48 45 |..+..;--- .EICHE| 00000B20: 4E 20 49 4E 20 D6 C4 C3 2D D2 C1 CD 20 53 43 48 |N IN ...-... SCH| 00000B30: 52 2E 20 2D 2D 2D 00 13 2B B8 0B 3B 00 2C 2B CC |R. ---..+..;.,+.| 00000B40: 0B 53 43 48 52 45 49 42 45 4E 20 4C 44 41 50 4F |.SCHREIBEN LDAPO| 00000B50: 49 4E 54 45 52 00 3E 2B E0 0B 20 4C 44 59 50 4F |INTER.>+.. LDYPO| 00000B60: 49 4E 54 45 52 2B 31 00 4E 2B F4 0B 20 4A 53 52 |INTER+1.N+.. JSR| 00000B70: 53 45 4E 44 41 44 52 00 5A 2B 08 0C 20 4C 44 41 |SENDADR.Z+.. LDA| 00000B80: 24 41 37 00 6F 2B 1C 0C 20 4A 53 52 50 55 54 43 |$A7.o+.. JSRPUTC| 00000B90: 48 52 3B 53 43 48 52 2E 00 7C 2B 30 0C 20 4A 53 |HR;SCHR..|+0. JS| 00000BA0: 52 49 4E 43 52 00 85 2B 44 0C 20 52 54 53 00 8B |RINCR..+D. RTS..| 00000BB0: 2B 58 0C 3B 00 B0 2B 6C 0C 3B 2D 2D 20 C5 52 4E |+X.;..+l.;-- .RN| 00000BC0: 49 45 44 52 49 47 45 20 50 4F 49 4E 54 45 52 20 |IEDRIGE POINTER | 00000BD0: 55 4D 20 32 34 20 2D 2D 2D 00 B6 2B 80 0C 3B 00 |UM 24 ---..+..;.| 00000BE0: CC 2B 94 0C 53 55 42 54 52 41 20 4C 44 41 50 4F |.+..SUBTRA LDAPO| 00000BF0: 49 4E 54 45 52 00 D5 2B A8 0C 20 53 45 43 00 E2 |INTER..+.. SEC..| 00000C00: 2B BC 0C 20 53 42 43 23 24 31 38 00 F2 2B D0 0C |+.. SBC#$18..+..| 00000C10: 20 53 54 41 50 4F 49 4E 54 45 52 00 FF 2B E4 0C | STAPOINTER..+..| 00000C20: 20 42 43 53 53 55 42 31 00 11 2C F8 0C 20 44 45 | BCSSUB1..,.. DE| 00000C30: 43 50 4F 49 4E 54 45 52 2B 31 00 1E 2C 0C 0D 53 |CPOINTER+1..,..S| 00000C40: 55 42 31 20 52 54 53 00 24 2C 20 0D 3B 00 45 2C |UB1 RTS.$, .;.E,| 00000C50: 34 0D 3B 2D 2D 20 C5 52 48 4F 45 48 45 20 50 4F |4.;-- .RHOEHE PO| 00000C60: 49 4E 54 45 52 20 55 4D 20 38 20 2D 2D 2D 00 4B |INTER UM 8 ---.K| 00000C70: 2C 48 0D 3B 00 62 2C 5C 0D 41 44 44 49 45 52 45 |,H.;.b,\.ADDIERE| 00000C80: 20 4C 44 41 50 4F 49 4E 54 45 52 00 6B 2C 70 0D | LDAPOINTER.k,p.| 00000C90: 20 43 4C 43 00 78 2C 84 0D 20 41 44 43 23 24 30 | CLC.x,.. ADC#$0| 00000CA0: 38 00 88 2C 98 0D 20 53 54 41 50 4F 49 4E 54 45 |8..,.. STAPOINTE| 00000CB0: 52 00 95 2C AC 0D 20 42 43 43 41 44 44 31 00 A7 |R..,.. BCCADD1..| 00000CC0: 2C C0 0D 20 49 4E 43 50 4F 49 4E 54 45 52 2B 31 |,.. INCPOINTER+1| 00000CD0: 00 B4 2C D4 0D 41 44 44 31 20 52 54 53 00 BA 2C |..,..ADD1 RTS..,| 00000CE0: E8 0D 3B 00 D0 2C FC 0D 3B 2A 2A 2A 2A 20 57 41 |..;..,..;**** WA| 00000CF0: 52 54 45 4E 20 2A 2A 2A 2A 00 D6 2C 10 0E 3B 00 |RTEN ****..,..;.| 00000D00: E9 2C 24 0E 57 41 52 54 45 20 4C 44 58 54 45 4D |.,$.WARTE LDXTEM| 00000D10: 50 4F 00 FC 2C 38 0E 57 31 20 44 45 58 3B 47 45 |PO..,8.W1 DEX;GE| 00000D20: 53 43 48 57 2E 00 07 2D 4C 0E 20 42 4E 45 57 31 |SCHW...-L. BNEW1| 00000D30: 00 10 2D 60 0E 20 52 54 53 00 16 2D 74 0E 3B 00 |..-`. RTS..-t.;.| 00000D40: 3B 2D 88 0E 3B 2A 2A 2A 2A 20 44 45 46 49 4E 49 |;-..;**** DEFINI| 00000D50: 54 49 4F 4E 45 4E 20 4B 4F 50 49 45 52 45 4E 20 |TIONEN KOPIEREN | 00000D60: 2A 2A 2A 2A 00 41 2D 9C 0E 3B 00 5C 2D B0 0E 43 |****.A-..;.\-..C| 00000D70: 4F 50 59 44 45 46 20 4C 44 41 23 24 31 41 3B C1 |OPYDEF LDA#$1A;.| 00000D80: 4E 5A 41 48 4C 00 68 2D C4 0E 20 53 54 41 24 46 |NZAHL.h-.. STA$F| 00000D90: 43 00 75 2D D8 0E 20 4C 44 59 23 24 30 30 00 89 |C.u-.. LDY#$00..| 00000DA0: 2D EC 0E 20 53 54 59 24 46 45 3B DA 41 45 48 4C |-.. STY$FE;.AEHL| 00000DB0: 45 52 00 9A 2D 00 0F 43 4F 50 59 33 20 4C 44 59 |ER..-..COPY3 LDY| 00000DC0: 24 46 45 00 B2 2D 14 0F 20 4C 44 41 43 4F 44 45 |$FE..-.. LDACODE| 00000DD0: 54 41 42 2C 59 3B C1 D3 C3 C9 C9 00 C7 2D 28 0F |TAB,Y;.......-(.| 00000DE0: 20 43 4D 50 23 24 36 30 3B DA 45 49 43 48 45 4E | CMP#$60;.EICHEN| 00000DF0: 00 DB 2D 3C 0F 20 42 43 43 4F 4B 31 3B 49 4E 20 |..-<. BCCOK1;IN | 00000E00: 50 4F 4B 45 00 E8 2D 50 0F 20 41 4E 44 23 24 37 |POKE..-P. AND#$7| 00000E10: 46 00 F4 2D 64 0F 2E 42 59 20 24 32 43 00 04 2E |F..-d..BY $2C...| 00000E20: 78 0F 4F 4B 31 20 41 4E 44 23 24 33 46 00 1A 2E |x.OK1 AND#$3F...| 00000E30: 8C 0F 4F 4B 32 20 53 54 41 24 46 30 3B 4D 45 52 |..OK2 STA$F0;MER| 00000E40: 4B 45 4E 00 2F 2E A0 0F 20 4C 44 41 23 24 30 30 |KEN./... LDA#$00| 00000E50: 3B 4C 4F 2D 43 48 41 52 00 48 2E B4 0F 47 52 4B |;LO-CHAR.H...GRK| 00000E60: 4C 20 4C 44 58 23 24 44 38 3B 48 49 2D 43 48 41 |L LDX#$D8;HI-CHA| 00000E70: 52 00 54 2E C8 0F 20 53 54 41 24 46 41 00 62 2E |R.T... STA$FA.b.| 00000E80: DC 0F 20 53 54 58 24 46 41 2B 31 00 76 2E F0 0F |.. STX$FA+1.v...| 00000E90: 20 4C 44 59 24 46 30 3B 5A 45 49 43 48 45 4E 00 | LDY$F0;ZEICHEN.| 00000EA0: 83 2E 04 10 4C 4F 4F 50 20 43 4C 43 00 97 2E 18 |....LOOP CLC....| 00000EB0: 10 20 4C 44 41 24 46 41 3B 41 44 52 45 53 53 45 |. LDA$FA;ADRESSE| 00000EC0: 00 A4 2E 2C 10 20 41 44 43 23 24 30 38 00 B8 2E |...,. ADC#$08...| 00000ED0: 40 10 20 53 54 41 24 46 41 3B 42 45 52 45 43 48 |@. STA$FA;BERECH| 00000EE0: 2D 00 CA 2E 54 10 20 42 43 43 4E 4F 49 4E 4B 3B |-...T. BCCNOINK;| 00000EF0: 4E 45 4E 00 DC 2E 68 10 20 49 4E 43 24 46 41 2B |NEN...h. INC$FA+| 00000F00: 31 3B 55 4E 44 00 EA 2E 7C 10 4E 4F 49 4E 4B 20 |1;UND...|.NOINK | 00000F10: 44 45 59 00 FE 2E 90 10 20 42 4E 45 4C 4F 4F 50 |DEY..... BNELOOP| 00000F20: 3B 47 45 46 2E 20 3F 00 13 2F A4 10 20 4C 44 59 |;GEF. ?../.. LDY| 00000F30: 23 24 30 30 3B C3 C8 C1 D2 C7 C5 CE 00 2C 2F B8 |#$00;........,/.| 00000F40: 10 43 4F 50 59 31 20 4C 44 58 23 24 30 31 3B 4F |.COPY1 LDX#$01;O| 00000F50: 46 46 53 45 54 00 40 2F CC 10 20 4C 44 41 23 24 |FFSET.@/.. LDA#$| 00000F60: 46 41 3B 5A 45 49 47 45 52 00 55 2F E0 10 20 53 |FA;ZEIGER.U/.. S| 00000F70: 54 41 24 30 32 41 41 3B 53 45 54 5A 45 4E 00 69 |TA$02AA;SETZEN.i| 00000F80: 2F F4 10 20 4A 53 52 24 30 32 41 32 3B 46 45 54 |/.. JSR$02A2;FET| 00000F90: 43 48 00 80 2F 08 11 20 53 54 41 43 41 52 52 59 |CH../.. STACARRY| 00000FA0: 54 41 42 2C 59 3B 55 4E 44 00 90 2F 1C 11 20 49 |TAB,Y;UND../.. I| 00000FB0: 4E 59 3B 4D 45 52 4B 45 4E 00 A4 2F 30 11 20 43 |NY;MERKEN../0. C| 00000FC0: 50 59 23 24 30 38 3B 41 4C 4C 45 20 3F 00 B7 2F |PY#$08;ALLE ?../| 00000FD0: 44 11 20 42 4E 45 43 4F 50 59 31 3B 4E 45 49 4E |D. BNECOPY1;NEIN| 00000FE0: 00 CD 2F 58 11 20 4A 53 52 24 30 32 44 44 3B D2 |../X. JSR$02DD;.| 00000FF0: CF CD 20 45 49 4E 00 E0 2F 6C 11 20 4C 44 59 23 |.. EIN../l. LDY#| 00001000: 24 30 30 3B 49 4E 44 45 58 00 F3 2F 80 11 20 53 |$00;INDEX../.. S| 00001010: 54 59 24 46 46 3B 4D 45 52 4B 45 4E 00 13 30 94 |TY$FF;MERKEN..0.| 00001020: 11 43 4F 50 59 32 20 4C 44 41 43 41 52 52 59 54 |.COPY2 LDACARRYT| 00001030: 41 42 2C 59 3B 49 4E 20 D6 C4 C3 2D 00 1F 30 A8 |AB,Y;IN ...-..0.| 00001040: 11 20 53 54 41 24 41 37 00 35 30 BC 11 20 4A 53 |. STA$A7.50.. JS| 00001050: 52 53 43 48 52 45 49 42 45 4E 3B D2 C1 CD 00 47 |RSCHREIBEN;....G| 00001060: 30 D0 11 20 49 4E 43 24 46 46 3B 49 4E 44 45 58 |0.. INC$FF;INDEX| 00001070: 00 59 30 E4 11 20 4C 44 59 24 46 46 3B 48 4F 4C |.Y0.. LDY$FF;HOL| 00001080: 45 4E 00 6D 30 F8 11 20 43 50 59 23 24 30 38 3B |EN.m0.. CPY#$08;| 00001090: 46 45 52 54 49 47 00 81 30 0C 12 20 42 4E 45 43 |FERTIG..0.. BNEC| 000010A0: 4F 50 59 32 3B 4E 45 49 4E 21 00 97 30 20 12 20 |OPY2;NEIN!..0 . | 000010B0: 4A 53 52 41 44 44 49 45 52 45 3B 50 4E 54 2B 38 |JSRADDIERE;PNT+8| 000010C0: 00 A9 30 34 12 20 49 4E 43 24 46 45 3B 20 41 4C |..04. INC$FE; AL| 000010D0: 4C 45 00 BD 30 48 12 20 4C 44 59 24 46 43 3B DA |LE..0H. LDY$FC;.| 000010E0: 45 49 43 48 45 4E 00 D1 30 5C 12 20 43 50 59 24 |EICHEN..0\. CPY$| 000010F0: 46 45 3B 43 4F 50 49 45 52 54 00 E6 30 70 12 20 |FE;COPIERT..0p. | 00001100: 42 43 53 43 4F 50 59 33 3B 4E 45 49 4E 20 21 00 |BCSCOPY3;NEIN !.| 00001110: FC 30 84 12 20 4A 53 52 41 44 44 49 45 52 45 3B |.0.. JSRADDIERE;| 00001120: 4B 4F 52 52 2E 00 0B 31 98 12 20 52 54 53 3B 4A |KORR...1.. RTS;J| 00001130: 41 20 21 21 00 11 31 AC 12 3B 00 19 31 C0 12 2E |A !!..1..;..1...| 00001140: 45 4E 00 00 00 |EN... |
X...D.;********************************.
$ N.;** **.J
X.;** 80-ZEICHEN-SCROLLING **.P ..
;** **.. ..;*
* WRITTEN BY NINO CIMERMAN **.. .;**
7403 AMMERBUCH-1 ENTRINGEN **.. ..;**
(C) IN 1986 **..!..;**
**..!..;*********
***********************.K!...OB "SCROLLM
ASCHINE,P,W".Y!H..BA $0B00._!..;.T!...EQ
VDCREG=$D600..!...EQ VDCDAT=$D601..!...
EQ OLDIRQ=$FA65..!,..EQ IRQVEC=$0314.I!@
..EQ CHARGEN=$2000..!T..EQ FCHR1=CHARGEN
+(1*16)..!H..EQ HOLE=$CDDA.."|..EQ SETZE
=$CDCC.""...EQ GETCHR=$CDD8.7"...EQ PUTC
HR=$CDCA.M"...EQ CODETAB=$0DFF.S"L.;.T".
.;---- PARAMETER SETZEN ----.Z"..;.."..
STALEN+1;LAENGE DER LAUFSCHRIFT..".. ST
ACOPYDEF+1;ABSPEICHERN.."0. STXGRKL+1;MO
DUS (GROSS/KLEIN) FESTLEGEN..#D. STYTEMP
O;GESCHWINDIGKEIT SETZEN.(#X. LDA#<(FCHR
1);VEKTOR.D#L. LDY#>(FCHR1); ERZEUGEN.W#
.. STASETWERTE+1.F#.. STYSET1+1.W#.. JSR
SETWERTE..#.. JSRCOPYDEF;ZEICHENSATZ COP
IEREN..#P. JSRKORRWERTE;KORREKTUR..#.. J
SRCLRTAB;CARRY-TABELLE LOESCHEN..#.. JSR
$02DD;ROM..$.. JMPSCROLL;ZUR SCROLL-ROUT
INE..$ .;.7$4.;--- PARAMETER-TABELLE ---
.=$H.;.N$\.TEMPO .BY$01.C$P.POINTER .WOF
CHR1..$..CARRYTAB .BY$00,$00,$00,$00..$.
. .BY$00,$00,$00,$00..$..;..$..;-- DIESE
ROUTINE KORRIGIERT DEN, BEIM KOPIEREN D
ES ZEICHENSATZES --..%T.;-- AUFGETRETEN
EN FEHLER --..%..;.)%..KORRWERTE JSRSUBT
RA.9%.. LDAPOINTER.L%$. STASETWERTE+1.^%
8. LDAPOINTER+1.M%L. STASET1+1.V%`. RTS.
|%T.;..%..SETWERTE LDA#$00..%.. STAPOINT
ER..%..SET1 LDA#$00.D%D. STAPOINTER+1.M%
X. RTS.S%..;..%..;---- STEUERROUTINE ---
-..%..;..&(.SCROLL JSRSETWERTE..&<. SEI.
%&P.LEN LDA#26.9&D. STA$FD;A.ZEICH.S&X.B
YTSCR LDA#$00;BITCNT.E&.. STA$A6;AUF 0.Y
& .SETTAB JSRLESEN..&.. JSRLESEN;KORREK.
..&H. JSRROT..&.. JSRSCHREIBEN..&.. JSRW
ARTE.G&.. LDA$A6.T&.. CMP#$08..&,. BNESE
TTAB..&@. JSRSUBTRA;+16BYTE..'T. JSR$910
9;GETIN..'H. BNESTOP.,'|. DEC$FD;ALLE.C'
.. BNEBYTSCR;ZEICHEN.L'.. CLI.['.. JMPSC
ROLL.H'L.STOP CLI.Z'.. STA$FF;TASTE..'..
RTS..'..;..'..;..'0.;--- ADR(A,Y) AN VD
C SENDEN ---..'D.;.S'X.SENDADR LDX#19;LO
-ADR..'L. JSRSETZE..'.. TYA;HI-ADR..'..
DEX..(.. JSRSETZE..(.. RTS..(P.;.7(..; -
-- ZEIGER = ZEIGER+1 ---.=(..;.Q(..INCR
INCPOINTER.\( . BNEI1.N(4. INCPOINTER+1.
Y(H.I1 RTS.(\.;..(P.;--- BYTE ROTIEREN
---..(..;..(..ROT CLC..(.. ROL..(.. PH
P.I(T. PHA..(.. LDY$A6;BITCNT..(.. LDACA
RRYTAB,Y..(.. BEQROT2..)$. PLA..)8. ORA#
$01..)L. PHA.()`.ROT2 PLA.6)T. TAX;BYTE.
C).. LDA#$00.L).. PLP.Y).. BCCROT1.F)D.
LDA#$01..)X.ROT1 STACARRYTAB,Y;FLAG..)..
TXA;BYTE..).. STA$A7;MERKEN..).. INC$A6
;BITCNT..)(. RTS.E)<.;..)P.; --- CARRYTA
BELLE LOESCHEN ---..)D.;..*X.CLRTAB LDY#
$07..*.. LDA#$00.&* .CLR1 STACARRYTAB,Y.
/*.. DEY.<*H. BPLCLR1.E*.. RTS.K*..;.O*.
.; --- ZEICHEN AUS RAM LESEN ---..*..LES
EN LDAPOINTER;LO-ZEI...*,. LDYPOINTER+1;
HI-ZEI...*@. JSRSENDADR.E*T. JSRGETCHR.X
*H. STA$A7;MERKEN..*|. RTS..*..;..+..;--
- ZEICHEN IN VDC-RAM SCHR. ---..+..;.,+L
.SCHREIBEN LDAPOINTER.>+.. LDYPOINTER+1.
N+.. JSRSENDADR.Z+.. LDA$A7.O+.. JSRPUTC
HR;SCHR..|+0. JSRINCR..+D. RTS..+X.;..+L
.;-- ERNIEDRIGE POINTER UM 24 ---..+..;.
L+..SUBTRA LDAPOINTER.U+.. SEC..+.. SBC#
$18..+P. STAPOINTER..+.. BCSSUB1..,.. DE
CPOINTER+1..,..SUB1 RTS.$, .;.E,4.;-- ER
HOEHE POINTER UM 8 ---.K,H.;.B,\.ADDIERE
LDAPOINTER.K,P. CLC.X,.. ADC#$08..,.. S
TAPOINTER..,.. BCCADD1..,.. INCPOINTER+1
..,T.ADD1 RTS..,..;.P,..;**** WARTEN ***
*.V,..;..,$.WARTE LDXTEMPO..,8.W1 DEX;GE
SCHW...-L. BNEW1..-`. RTS..-T.;.;-..;***
* DEFINITIONEN KOPIEREN ****.A-..;.\-..C
OPYDEF LDA#$1A;ANZAHL.H-D. STA$FC.U-X. L
DY#$00..-.. STY$FE;ZAEHLER..-..COPY3 LDY
$FE..-.. LDACODETAB,Y;ASCII.G-(. CMP#$60
;ZEICHEN..-<. BCCOK1;IN POKE..-P. AND#$7
F..-D..BY $2C...X.OK1 AND#$3F.....OK2 ST
A$F0;MERKEN./. . LDA#$00;LO-CHAR.H...GRK
L LDX#$D8;HI-CHAR.T.H. STA$FA.B... STX$F
A+1.V... LDY$F0;ZEICHEN.....LOOP CLC....
. LDA$FA;ADRESSE...,. ADC#$08...@. STA$F
A;BERECH-.J.T. BCCNOINK;NEN...H. INC$FA+
1;UND...|.NOINK DEY..... BNELOOP;GEF. ?.
./.. LDY#$00;CHARGEN.,/..COPY1 LDX#$01;O
FFSET.@/L. LDA#$FA;ZEIGER.U/.. STA$02AA;
SETZEN.I/.. JSR$02A2;FETCH../.. STACARRY
TAB,Y;UND../.. INY;MERKEN../0. CPY#$08;A
LLE ?../D. BNECOPY1;NEIN.M/X. JSR$02DD;R
OM EIN../L. LDY#$00;INDEX../.. STY$FF;ME
RKEN..0..COPY2 LDACARRYTAB,Y;IN VDC-..0.
. STA$A7.50.. JSRSCHREIBEN;RAM.G0P. INC$
FF;INDEX.Y0.. LDY$FF;HOLEN.M0.. CPY#$08;
FERTIG..0.. BNECOPY2;NEIN!..0 . JSRADDIE
RE;PNT+8..04. INC$FE; ALLE..0H. LDY$FC;Z
EICHEN.Q0\. CPY$FE;COPIERT..0P. BCSCOPY3
;NEIN !..0.. JSRADDIERE;KORR...1.. RTS;J
A !!..1..;..1...EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL