SCROLL-MASCH.SRC

FILE INFORMATION

FILENAME(S): SCROLL-MASCH.SRC

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-11-30 21:13:39

APPEARS ON: 1 disk(s)

FILE HASH

72ba167ec3d91bd01add3eeefaa9efed488fabe5416bc1855cadbdda14793629

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
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 2A 20 41 4E 20 56 44  |- ADR(A,Y* AN VD|
000007D0: 43 20 8F E2 EE EE E2 EE  EF E1 E1 E8 00 E8 02 EE  |C ..............|
000007E0: 02 2E 00 EE E8 E8 CE EE  E8 E0 EE EE EE E9 00 EE  |................|
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        |..(.. PHP..(..  |

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 ....................N.........DX#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.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL