SCROLL.FA
FILE INFORMATION
FILENAME(S): SCROLL.FA
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-12-01 01:08:46
APPEARS ON: 1 disk(s)
FILE HASH
6fcab93d71e4767db3f4684489a9e10f630d385f78a3dbba0eec395f92c31ba7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FAST ASS SYSTEM | SCROLL.FA | PRG | hedning, loot | 17 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 1C 12 3C 12 64 00 3B 20 53 4D 4F 4F 54 48 20 53 |..<.d.; SMOOTH S|
00000010: 43 52 4F 4C 4C 49 4E 47 20 52 4F 55 54 49 4E 45 |CROLLING ROUTINE|
00000020: 53 00 42 12 6E 00 3B 00 48 12 78 00 3B 00 79 12 |S.B.n.;.H.x.;.y.|
00000030: 82 00 53 43 4C 53 43 52 20 20 20 20 B2 20 24 45 |..SCLSCR . $E|
00000040: 38 45 41 3B 20 53 43 52 4F 4C 4C 20 53 43 52 45 |8EA; SCROLL SCRE|
00000050: 45 4E 20 55 50 20 4F 4E 45 20 4C 49 4E 45 00 7F |EN UP ONE LINE..|
00000060: 12 8C 00 3B 00 90 12 96 00 53 43 4C 58 3A 20 20 |...;.....SCLX: |
00000070: 20 90 80 20 30 00 A1 12 A0 00 53 43 4C 59 3A 20 | .. 0.....SCLY: |
00000080: 20 20 90 80 20 30 00 B2 12 AA 00 53 43 4C 52 4F | .. 0.....SCLRO|
00000090: 57 3A 20 90 80 20 30 00 C3 12 AF 00 46 52 4F 4D |W: .. 0.....FROM|
000000A0: 52 4F 57 3A 90 80 20 30 00 D4 12 B4 00 54 4F 52 |ROW:.. 0.....TOR|
000000B0: 4F 57 3A 20 20 90 80 20 30 00 DA 12 BE 00 3B 00 |OW: .. 0.....;.|
000000C0: 03 13 C8 00 3B 20 22 47 4F 33 38 22 20 53 45 54 |....; "GO38" SET|
000000D0: 20 53 43 52 45 45 4E 20 A4 20 33 38 20 43 4F 4C | SCREEN . 38 COL|
000000E0: 55 4D 4E 20 4D 4F 44 45 00 09 13 D2 00 3B 00 20 |UMN MODE.....;. |
000000F0: 13 DC 00 47 4F 33 38 3A 20 20 20 20 20 90 94 20 |...GO38: .. |
00000100: 24 44 30 31 36 00 35 13 E6 00 20 20 20 20 20 20 |$D016.5... |
00000110: 20 20 20 20 AF 20 23 32 34 37 00 4C 13 F0 00 20 | . #247.L... |
00000120: 20 20 20 20 20 20 20 20 20 90 97 20 24 44 30 31 | .. $D01|
00000130: 36 00 5D 13 FA 00 20 20 20 20 20 20 20 20 20 20 |6.]... |
00000140: 90 B6 00 63 13 04 01 3B 00 8C 13 0E 01 3B 20 22 |...c...;.....; "|
00000150: 47 4F 34 30 22 20 53 45 54 20 53 43 52 45 45 4E |GO40" SET SCREEN|
00000160: 20 A4 20 34 30 20 43 4F 4C 55 4D 4E 20 4D 4F 44 | . 40 COLUMN MOD|
00000170: 45 00 92 13 18 01 3B 00 A9 13 22 01 47 4F 34 30 |E.....;...".GO40|
00000180: 3A 20 20 20 20 20 90 94 20 24 44 30 31 36 00 BD |: .. $D016..|
00000190: 13 2C 01 20 20 20 20 20 20 20 20 20 20 90 95 20 |.,. .. |
000001A0: 23 38 00 D4 13 36 01 20 20 20 20 20 20 20 20 20 |#8...6. |
000001B0: 20 90 97 20 24 44 30 31 36 00 E5 13 40 01 20 20 | .. $D016...@. |
000001C0: 20 20 20 20 20 20 20 20 90 B6 00 EB 13 4A 01 3B | .....J.;|
000001D0: 00 11 14 54 01 3B 20 22 47 4F 32 34 22 20 53 45 |...T.; "GO24" SE|
000001E0: 54 20 53 43 52 45 45 4E 20 A4 20 32 34 20 52 4F |T SCREEN . 24 RO|
000001F0: 57 20 4D 4F 44 45 00 17 14 5E 01 3B 00 2E 14 68 |W MODE...^.;...h|
00000200: 01 47 4F 32 34 3A 20 20 20 20 20 90 94 20 24 44 |.GO24: .. $D|
00000210: 30 31 31 00 43 14 72 01 20 20 20 20 20 20 20 20 |011.C.r. |
00000220: 20 20 AF 20 23 32 34 37 00 5A 14 7C 01 20 20 20 | . #247.Z.|. |
00000230: 20 20 20 20 20 20 20 90 97 20 24 44 30 31 31 00 | .. $D011.|
00000240: 6B 14 86 01 20 20 20 20 20 20 20 20 20 20 90 B6 |k... ..|
00000250: 00 71 14 90 01 3B 00 97 14 9A 01 3B 20 22 47 4F |.q...;.....; "GO|
00000260: 32 35 22 20 53 45 54 20 53 43 52 45 45 4E 20 A4 |25" SET SCREEN .|
00000270: 20 32 35 20 52 4F 57 20 4D 4F 44 45 00 9D 14 A4 | 25 ROW MODE....|
00000280: 01 3B 00 B4 14 AE 01 47 4F 32 35 3A 20 20 20 20 |.;.....GO25: |
00000290: 20 90 94 20 24 44 30 31 31 00 C8 14 B8 01 20 20 | .. $D011..... |
000002A0: 20 20 20 20 20 20 20 20 90 95 20 23 38 00 DF 14 | .. #8...|
000002B0: C2 01 20 20 20 20 20 20 20 20 20 20 90 97 20 24 |.. .. $|
000002C0: 44 30 31 31 00 F0 14 CC 01 20 20 20 20 20 20 20 |D011..... |
000002D0: 20 20 20 90 B6 00 F6 14 D6 01 3B 00 21 15 E0 01 | .......;.!...|
000002E0: 3B 20 22 53 43 52 4F 4C 4C 58 22 20 53 43 52 4F |; "SCROLLX" SCRO|
000002F0: 4C 4C 20 53 43 52 45 45 4E 20 52 49 47 48 54 20 |LL SCREEN RIGHT |
00000300: B0 20 4C 45 46 54 00 27 15 EA 01 3B 00 3E 15 F4 |. LEFT.'...;.>..|
00000310: 01 53 43 52 4F 4C 4C 58 3A 20 20 90 94 20 24 44 |.SCROLLX: .. $D|
00000320: 30 31 36 00 53 15 FE 01 20 20 20 20 20 20 20 20 |016.S... |
00000330: 20 20 AF 20 23 32 34 38 00 69 15 08 02 20 20 20 | . #248.i... |
00000340: 20 20 20 20 20 20 20 90 95 20 53 43 4C 58 00 80 | .. SCLX..|
00000350: 15 12 02 20 20 20 20 20 20 20 20 20 20 90 97 20 |... .. |
00000360: 24 44 30 31 36 00 91 15 1C 02 20 20 20 20 20 20 |$D016..... |
00000370: 20 20 20 20 90 B6 00 97 15 26 02 3B 00 BF 15 30 | .....&.;...0|
00000380: 02 3B 20 22 53 43 52 4F 4C 4C 59 22 20 53 43 52 |.; "SCROLLY" SCR|
00000390: 4F 4C 4C 20 53 43 52 45 45 4E 20 55 50 20 B0 20 |OLL SCREEN UP . |
000003A0: 44 4F 57 4E 00 C5 15 3A 02 3B 00 DC 15 44 02 53 |DOWN...:.;...D.S|
000003B0: 43 52 4F 4C 4C 59 3A 20 20 90 94 20 24 44 30 31 |CROLLY: .. $D01|
000003C0: 31 00 F1 15 4E 02 20 20 20 20 20 20 20 20 20 20 |1...N. |
000003D0: AF 20 23 32 34 38 00 07 16 58 02 20 20 20 20 20 |. #248...X. |
000003E0: 20 20 20 20 20 90 95 20 53 43 4C 59 00 1E 16 62 | .. SCLY...b|
000003F0: 02 20 20 20 20 20 20 20 20 20 20 90 97 20 24 44 |. .. $D|
00000400: 30 31 31 00 2F 16 6C 02 20 20 20 20 20 20 20 20 |011./.l. |
00000410: 20 20 90 B6 00 35 16 76 02 3B 00 5E 16 80 02 3B | ...5.v.;.^...;|
00000420: 20 22 58 4C 49 4E 45 53 43 4C 22 20 53 48 49 46 | "XLINESCL" SHIF|
00000430: 54 20 4C 49 4E 45 20 52 49 47 48 54 20 B0 20 4C |T LINE RIGHT . L|
00000440: 45 46 54 00 64 16 8A 02 3B 00 7C 16 94 02 58 4C |EFT.d...;.|...XL|
00000450: 49 4E 45 53 43 4C 3A 20 90 94 20 53 43 4C 52 4F |INESCL: .. SCLRO|
00000460: 57 00 91 16 9E 02 20 20 20 20 20 20 20 20 20 20 |W..... |
00000470: 90 97 20 24 44 36 00 A7 16 A8 02 20 20 20 20 20 |.. $D6..... |
00000480: 20 20 20 20 20 90 94 20 23 24 30 30 00 BC 16 B2 | .. #$00....|
00000490: 02 20 20 20 20 20 20 20 20 20 20 90 97 20 24 44 |. .. $D|
000004A0: 33 00 01 17 BC 02 20 20 20 20 20 20 20 20 20 20 |3..... |
000004B0: 90 A4 20 24 45 35 36 43 3B 20 43 41 4C 43 2E 20 |.. $E56C; CALC. |
000004C0: 50 4F 49 4E 54 45 52 20 A4 20 53 43 52 45 45 4E |POINTER . SCREEN|
000004D0: 20 52 41 4D 2C 20 53 54 4F 52 45 20 49 4E 20 24 | RAM, STORE IN $|
000004E0: 44 31 AB 24 44 32 00 07 17 C6 02 3B 00 4C 17 D0 |D1.$D2.....;.L..|
000004F0: 02 20 20 20 20 20 20 20 20 20 20 90 A4 20 24 45 |. .. $E|
00000500: 41 32 34 3B 20 43 41 4C 43 2E 20 50 4F 49 4E 54 |A24; CALC. POINT|
00000510: 45 52 20 A4 20 43 4F 4C 4F 55 52 20 52 41 4D 2C |ER . COLOUR RAM,|
00000520: 20 53 54 4F 52 45 20 49 4E 20 24 46 33 AB 24 46 | STORE IN $F3.$F|
00000530: 34 00 52 17 DA 02 3B 00 68 17 E4 02 20 20 20 20 |4.R...;.h... |
00000540: 20 20 20 20 20 20 90 94 20 53 43 4C 58 00 81 17 | .. SCLX...|
00000550: EE 02 20 20 20 20 20 20 20 20 20 20 90 8A 20 4C |.. .. L|
00000560: 45 46 54 53 43 4C 00 87 17 F8 02 3B 00 9A 17 02 |EFTSCL.....;....|
00000570: 03 3B 20 53 43 52 4F 4C 4C 20 52 49 47 48 54 00 |.; SCROLL RIGHT.|
00000580: A0 17 0C 03 3B 00 B4 17 16 03 20 20 20 20 20 20 |....;..... |
00000590: 20 20 20 20 90 A2 20 23 31 00 BA 17 20 03 3B 00 | .. #1... .;.|
000005A0: CB 17 2A 03 52 49 47 48 54 4C 4F 4F 50 3A 90 BF |..*.RIGHTLOOP:..|
000005B0: 00 DC 17 34 03 20 20 20 20 20 20 20 20 20 20 90 |...4. .|
000005C0: BA 00 F5 17 3E 03 20 20 20 20 20 20 20 20 20 20 |....>. |
000005D0: 90 94 20 28 24 44 31 29 2C 59 00 06 18 48 03 20 |.. ($D1),Y...H. |
000005E0: 20 20 20 20 20 20 20 20 20 90 AD 00 1F 18 52 03 | .....R.|
000005F0: 20 20 20 20 20 20 20 20 20 20 90 97 20 28 24 44 | .. ($D|
00000600: 31 29 2C 59 00 30 18 5C 03 20 20 20 20 20 20 20 |1),Y.0.\. |
00000610: 20 20 20 90 BD 00 41 18 66 03 20 20 20 20 20 20 | ...A.f. |
00000620: 20 20 20 20 90 BB 00 5A 18 70 03 20 20 20 20 20 | ...Z.p. |
00000630: 20 20 20 20 20 90 94 20 28 24 46 33 29 2C 59 00 | .. ($F3),Y.|
00000640: 6B 18 7A 03 20 20 20 20 20 20 20 20 20 20 90 AD |k.z. ..|
00000650: 00 84 18 84 03 20 20 20 20 20 20 20 20 20 20 90 |..... .|
00000660: 97 20 28 24 46 33 29 2C 59 00 95 18 8E 03 20 20 |. ($F3),Y..... |
00000670: 20 20 20 20 20 20 20 20 90 AF 00 A6 18 93 03 20 | ....... |
00000680: 20 20 20 20 20 20 20 20 20 90 AF 00 BB 18 98 03 | .......|
00000690: 20 20 20 20 20 20 20 20 20 20 90 A0 20 23 34 30 | .. #40|
000006A0: 00 D6 18 9D 03 20 20 20 20 20 20 20 20 20 20 90 |..... .|
000006B0: 8C 20 52 49 47 48 54 4C 4F 4F 50 00 E7 18 A2 03 |. RIGHTLOOP.....|
000006C0: 20 20 20 20 20 20 20 20 20 20 90 B6 00 ED 18 AC | ......|
000006D0: 03 3B 00 F3 18 B6 03 3B 00 08 19 C0 03 4C 45 46 |.;.....;.....LEF|
000006E0: 54 53 43 4C 3A 20 20 90 A2 20 23 33 38 00 0E 19 |TSCL: .. #38...|
000006F0: CA 03 3B 00 1F 19 D4 03 4C 45 46 54 4C 4F 4F 50 |..;.....LEFTLOOP|
00000700: 3A 20 90 BF 00 30 19 DE 03 20 20 20 20 20 20 20 |: ...0... |
00000710: 20 20 20 90 BA 00 48 19 E8 03 20 20 20 20 20 20 | ...H... |
00000720: 20 20 20 90 94 20 28 24 44 31 29 2C 59 00 58 19 | .. ($D1),Y.X.|
00000730: F2 03 20 20 20 20 20 20 20 20 20 90 AF 00 70 19 |.. ...p.|
00000740: FC 03 20 20 20 20 20 20 20 20 20 90 97 20 28 24 |.. .. ($|
00000750: 44 31 29 2C 59 00 80 19 06 04 20 20 20 20 20 20 |D1),Y..... |
00000760: 20 20 20 90 BD 00 90 19 10 04 20 20 20 20 20 20 | ....... |
00000770: 20 20 20 90 BB 00 A8 19 1A 04 20 20 20 20 20 20 | ....... |
00000780: 20 20 20 90 94 20 28 24 46 33 29 2C 59 00 B8 19 | .. ($F3),Y...|
00000790: 24 04 20 20 20 20 20 20 20 20 20 90 AF 00 D0 19 |$. .....|
000007A0: 2E 04 20 20 20 20 20 20 20 20 20 90 97 20 28 24 |.. .. ($|
000007B0: 46 33 29 2C 59 00 E0 19 38 04 20 20 20 20 20 20 |F3),Y...8. |
000007C0: 20 20 20 90 AD 00 F0 19 42 04 20 20 20 20 20 20 | .....B. |
000007D0: 20 20 20 90 AD 00 05 1A 56 04 20 20 20 20 20 20 | .....V. |
000007E0: 20 20 20 90 A0 20 23 24 46 46 00 1E 1A 60 04 20 | .. #$FF...`. |
000007F0: 20 20 20 20 20 20 20 20 90 8C 20 4C 45 46 54 4C | .. LEFTL|
00000800: 4F 4F 50 00 2E 1A 6A 04 20 20 20 20 20 20 20 20 |OOP...j. |
00000810: 20 90 B6 00 34 1A 74 04 3B 00 5F 1A 7E 04 3B 20 | ...4.t.;._.~.; |
00000820: 22 53 43 4C 53 43 52 58 22 20 53 43 52 4F 4C 4C |"SCLSCRX" SCROLL|
00000830: 20 53 43 52 45 45 4E 20 4C 45 46 54 20 B0 20 52 | SCREEN LEFT . R|
00000840: 49 47 48 54 00 65 1A 88 04 3B 00 7A 1A 92 04 53 |IGHT.e...;.z...S|
00000850: 43 4C 53 43 52 58 3A 20 90 94 20 23 24 30 30 00 |CLSCRX: .. #$00.|
00000860: 91 1A 9C 04 20 20 20 20 20 20 20 20 20 90 97 20 |.... .. |
00000870: 53 43 4C 52 4F 57 00 97 1A A6 04 3B 00 B0 1A B0 |SCLROW.....;....|
00000880: 04 53 43 52 4C 4F 4F 50 3A 20 90 A4 20 58 4C 49 |.SCRLOOP: .. XLI|
00000890: 4E 45 53 43 4C 00 C7 1A BA 04 20 20 20 20 20 20 |NESCL..... |
000008A0: 20 20 20 90 9A 20 53 43 4C 52 4F 57 00 DE 1A C4 | .. SCLROW....|
000008B0: 04 20 20 20 20 20 20 20 20 20 90 94 20 53 43 4C |. .. SCL|
000008C0: 52 4F 57 00 F2 1A CE 04 20 20 20 20 20 20 20 20 |ROW..... |
000008D0: 20 90 92 20 23 32 35 00 0A 1B D8 04 20 20 20 20 | .. #25..... |
000008E0: 20 20 20 20 20 90 8C 20 53 43 52 4C 4F 4F 50 00 | .. SCRLOOP.|
000008F0: 1A 1B E2 04 20 20 20 20 20 20 20 20 20 90 B6 00 |.... ...|
00000900: 20 1B EC 04 3B 00 4C 1B F6 04 3B 20 22 53 43 4C | ...;.L...; "SCL|
00000910: 53 43 52 55 50 22 20 53 43 52 4F 4C 4C 20 53 43 |SCRUP" SCROLL SC|
00000920: 52 45 45 4E 20 55 50 20 4F 4E 45 20 4C 49 4E 45 |REEN UP ONE LINE|
00000930: 2E 00 52 1B 00 05 3B 00 67 1B 0A 05 53 43 4C 53 |..R...;.g...SCLS|
00000940: 43 52 55 50 3A 90 94 20 23 24 30 31 00 7E 1B 14 |CRUP:.. #$01.~..|
00000950: 05 20 20 20 20 20 20 20 20 20 90 97 20 53 43 4C |. .. SCL|
00000960: 52 4F 57 00 84 1B 1E 05 3B 00 9B 1B 28 05 55 50 |ROW.....;...(.UP|
00000970: 4C 4F 4F 50 3A 20 20 90 94 20 53 43 4C 52 4F 57 |LOOP: .. SCLROW|
00000980: 00 B3 1B 32 05 20 20 20 20 20 20 20 20 20 90 97 |...2. ..|
00000990: 20 46 52 4F 4D 52 4F 57 00 C9 1B 3C 05 20 20 20 | FROMROW...<. |
000009A0: 20 20 20 20 20 20 90 97 20 54 4F 52 4F 57 00 DF | .. TOROW..|
000009B0: 1B 46 05 20 20 20 20 20 20 20 20 20 90 99 20 54 |.F. .. T|
000009C0: 4F 52 4F 57 00 E5 1B 5A 05 3B 00 FE 1B 64 05 20 |OROW...Z.;...d. |
000009D0: 20 20 20 20 20 20 20 20 90 A4 20 43 41 4C 43 41 | .. CALCA|
000009E0: 44 44 52 00 16 1C 78 05 20 20 20 20 20 20 20 20 |DDR...x. |
000009F0: 20 90 A4 20 4D 4F 56 45 52 4F 57 00 1C 1C 82 05 | .. MOVEROW.....|
00000A00: 3B 00 33 1C 8C 05 20 20 20 20 20 20 20 20 20 90 |;.3... .|
00000A10: 9A 20 53 43 4C 52 4F 57 00 4A 1C 96 05 20 20 20 |. SCLROW.J... |
00000A20: 20 20 20 20 20 20 90 94 20 53 43 4C 52 4F 57 00 | .. SCLROW.|
00000A30: 5E 1C A0 05 20 20 20 20 20 20 20 20 20 90 92 20 |^... .. |
00000A40: 23 32 35 00 75 1C AA 05 20 20 20 20 20 20 20 20 |#25.u... |
00000A50: 20 90 8C 20 55 50 4C 4F 4F 50 00 85 1C B4 05 20 | .. UPLOOP..... |
00000A60: 20 20 20 20 20 20 20 20 90 B6 00 8B 1C BE 05 3B | .......;|
00000A70: 00 BB 1C C8 05 3B 20 22 53 43 4C 53 43 52 44 4F |.....; "SCLSCRDO|
00000A80: 57 4E 22 20 53 43 52 4F 4C 4C 20 53 43 52 45 45 |WN" SCROLL SCREE|
00000A90: 4E 20 44 4F 57 4E 20 4F 4E 45 20 4C 49 4E 45 2E |N DOWN ONE LINE.|
00000AA0: 00 C1 1C D2 05 3B 00 D8 1C DC 05 53 43 4C 53 43 |.....;.....SCLSC|
00000AB0: 52 44 4F 57 4E 3A 90 94 20 23 24 31 37 00 F1 1C |RDOWN:.. #$17...|
00000AC0: E6 05 20 20 20 20 20 20 20 20 20 20 20 90 97 20 |.. .. |
00000AD0: 53 43 4C 52 4F 57 00 F7 1C F0 05 3B 00 10 1D FA |SCLROW.....;....|
00000AE0: 05 44 4F 57 4E 4C 4F 4F 50 3A 20 20 90 94 20 53 |.DOWNLOOP: .. S|
00000AF0: 43 4C 52 4F 57 00 2A 1D 04 06 20 20 20 20 20 20 |CLROW.*... |
00000B00: 20 20 20 20 20 90 97 20 46 52 4F 4D 52 4F 57 00 | .. FROMROW.|
00000B10: 42 1D 0E 06 20 20 20 20 20 20 20 20 20 20 20 90 |B... .|
00000B20: 97 20 54 4F 52 4F 57 00 5A 1D 18 06 20 20 20 20 |. TOROW.Z... |
00000B30: 20 20 20 20 20 20 20 90 9A 20 54 4F 52 4F 57 00 | .. TOROW.|
00000B40: 60 1D 22 06 3B 00 7B 1D 2C 06 20 20 20 20 20 20 |`.".;.{.,. |
00000B50: 20 20 20 20 20 90 A4 20 43 41 4C 43 41 44 44 52 | .. CALCADDR|
00000B60: 00 95 1D 36 06 20 20 20 20 20 20 20 20 20 20 20 |...6. |
00000B70: 90 A4 20 4D 4F 56 45 52 4F 57 00 9B 1D 40 06 3B |.. MOVEROW...@.;|
00000B80: 00 B4 1D 4A 06 20 20 20 20 20 20 20 20 20 20 20 |...J. |
00000B90: 90 99 20 53 43 4C 52 4F 57 00 CF 1D 54 06 20 20 |.. SCLROW...T. |
00000BA0: 20 20 20 20 20 20 20 20 20 90 8D 20 44 4F 57 4E | .. DOWN|
00000BB0: 4C 4F 4F 50 00 E1 1D 5E 06 20 20 20 20 20 20 20 |LOOP...^. |
00000BC0: 20 20 20 20 90 B6 00 E7 1D 68 06 3B 00 22 1E 72 | .....h.;.".r|
00000BD0: 06 3B 20 22 43 41 4C 43 41 44 44 52 22 20 43 41 |.; "CALCADDR" CA|
00000BE0: 4C 43 55 4C 41 54 45 20 41 44 44 52 45 53 53 20 |LCULATE ADDRESS |
00000BF0: 81 20 53 4F 55 52 43 45 20 AF 20 54 41 52 47 45 |. SOURCE . TARGE|
00000C00: 54 20 52 4F 57 53 2E 00 28 1E 7C 06 3B 00 40 1E |T ROWS..(.|.;.@.|
00000C10: 86 06 43 41 4C 43 41 44 44 52 3A 90 A1 20 46 52 |..CALCADDR:.. FR|
00000C20: 4F 4D 52 4F 57 00 54 1E 88 06 20 20 20 20 20 20 |OMROW.T... |
00000C30: 20 20 20 90 9E 20 24 44 36 00 69 1E 8A 06 20 20 | .. $D6.i... |
00000C40: 20 20 20 20 20 20 20 90 A2 20 23 24 30 30 00 7D | .. #$00.}|
00000C50: 1E 8C 06 20 20 20 20 20 20 20 20 20 90 A3 20 24 |... .. $|
00000C60: 44 33 00 C1 1E 90 06 20 20 20 20 20 20 20 20 20 |D3..... |
00000C70: 90 A4 20 24 45 35 36 43 3B 20 43 41 4C 43 2E 20 |.. $E56C; CALC. |
00000C80: 50 4F 49 4E 54 45 52 20 A4 20 53 43 52 45 45 4E |POINTER . SCREEN|
00000C90: 20 52 41 4D 2C 20 53 54 4F 52 45 20 49 4E 20 24 | RAM, STORE IN $|
00000CA0: 44 31 AB 24 44 32 00 C7 1E 9A 06 3B 00 0B 1F A4 |D1.$D2.....;....|
00000CB0: 06 20 20 20 20 20 20 20 20 20 90 A4 20 24 45 41 |. .. $EA|
00000CC0: 32 34 3B 20 43 41 4C 43 2E 20 50 4F 49 4E 54 45 |24; CALC. POINTE|
00000CD0: 52 20 A4 20 43 4F 4C 4F 55 52 20 52 41 4D 2C 20 |R . COLOUR RAM, |
00000CE0: 53 54 4F 52 45 20 49 4E 20 24 46 33 AB 24 46 34 |STORE IN $F3.$F4|
00000CF0: 00 11 1F AE 06 3B 00 25 1F B8 06 20 20 20 20 20 |.....;.%... |
00000D00: 20 20 20 20 90 A1 20 24 44 31 00 39 1F C2 06 20 | .. $D1.9... |
00000D10: 20 20 20 20 20 20 20 20 90 A2 20 24 44 32 00 4D | .. $D2.M|
00000D20: 1F CC 06 20 20 20 20 20 20 20 20 20 90 9E 20 24 |... .. $|
00000D30: 46 43 00 61 1F D6 06 20 20 20 20 20 20 20 20 20 |FC.a... |
00000D40: 90 A3 20 24 46 44 00 67 1F E0 06 3B 00 7B 1F EA |.. $FD.g...;.{..|
00000D50: 06 20 20 20 20 20 20 20 20 20 90 A1 20 24 46 33 |. .. $F3|
00000D60: 00 8F 1F F4 06 20 20 20 20 20 20 20 20 20 90 A2 |..... ..|
00000D70: 20 24 46 34 00 A3 1F FE 06 20 20 20 20 20 20 20 | $F4..... |
00000D80: 20 20 90 9E 20 24 46 45 00 B7 1F 08 07 20 20 20 | .. $FE..... |
00000D90: 20 20 20 20 20 20 90 A3 20 24 46 46 00 BD 1F 12 | .. $FF....|
00000DA0: 07 3B 00 D3 1F 1C 07 20 20 20 20 20 20 20 20 20 |.;..... |
00000DB0: 90 A1 20 54 4F 52 4F 57 00 E7 1F 1E 07 20 20 20 |.. TOROW..... |
00000DC0: 20 20 20 20 20 20 90 9E 20 24 44 36 00 FC 1F 20 | .. $D6... |
00000DD0: 07 20 20 20 20 20 20 20 20 20 90 A2 20 23 24 30 |. .. #$0|
00000DE0: 30 00 10 20 22 07 20 20 20 20 20 20 20 20 20 90 |0.. ". .|
00000DF0: A3 20 24 44 33 00 54 20 26 07 20 20 20 20 20 20 |. $D3.T &. |
00000E00: 20 20 20 90 A4 20 24 45 35 36 43 3B 20 43 41 4C | .. $E56C; CAL|
00000E10: 43 2E 20 50 4F 49 4E 54 45 52 20 A4 20 53 43 52 |C. POINTER . SCR|
00000E20: 45 45 4E 20 52 41 4D 2C 20 53 54 4F 52 45 20 49 |EEN RAM, STORE I|
00000E30: 4E 20 24 44 31 AB 24 44 32 00 5A 20 30 07 3B 00 |N $D1.$D2.Z 0.;.|
00000E40: 9E 20 3A 07 20 20 20 20 20 20 20 20 20 90 A4 20 |. :. .. |
00000E50: 24 45 41 32 34 3B 20 43 41 4C 43 2E 20 50 4F 49 |$EA24; CALC. POI|
00000E60: 4E 54 45 52 20 A4 20 43 4F 4C 4F 55 52 20 52 41 |NTER . COLOUR RA|
00000E70: 4D 2C 20 53 54 4F 52 45 20 49 4E 20 24 46 33 AB |M, STORE IN $F3.|
00000E80: 24 46 34 00 A4 20 44 07 3B 00 B4 20 4E 07 20 20 |$F4.. D.;.. N. |
00000E90: 20 20 20 20 20 20 20 90 B6 00 BA 20 58 07 3B 00 | .... X.;.|
00000EA0: FE 20 62 07 3B 20 22 4D 4F 56 45 52 4F 57 22 20 |. b.; "MOVEROW" |
00000EB0: 4D 4F 56 45 20 41 20 52 4F 57 20 57 49 54 48 20 |MOVE A ROW WITH |
00000EC0: 41 44 44 52 2E 20 49 4E 20 28 24 46 43 AB 46 44 |ADDR. IN ($FC.FD|
00000ED0: 29 20 A4 20 52 4F 57 20 49 4E 20 28 24 44 31 AB |) . ROW IN ($D1.|
00000EE0: 44 32 29 00 25 21 6C 07 3B 20 43 4F 4C 4F 55 52 |D2).%!l.; COLOUR|
00000EF0: 53 20 46 52 4F 4D 20 28 24 46 45 AB 46 46 29 20 |S FROM ($FE.FF) |
00000F00: A4 20 28 24 46 33 AB 46 34 29 00 2B 21 76 07 3B |. ($F3.F4).+!v.;|
00000F10: 00 40 21 80 07 4D 4F 56 45 52 4F 57 3A 20 90 A2 |.@!..MOVEROW: ..|
00000F20: 20 23 24 30 30 00 46 21 8A 07 3B 00 5E 21 94 07 | #$00.F!..;.^!..|
00000F30: 4D 4F 56 45 4C 4F 4F 50 3A 90 94 20 28 24 46 43 |MOVELOOP:.. ($FC|
00000F40: 29 2C 59 00 76 21 9E 07 20 20 20 20 20 20 20 20 |),Y.v!.. |
00000F50: 20 90 97 20 28 24 44 31 29 2C 59 00 8E 21 A8 07 | .. ($D1),Y..!..|
00000F60: 20 20 20 20 20 20 20 20 20 90 94 20 28 24 46 45 | .. ($FE|
00000F70: 29 2C 59 00 A6 21 B2 07 20 20 20 20 20 20 20 20 |),Y..!.. |
00000F80: 20 90 97 20 28 24 46 33 29 2C 59 00 AC 21 BC 07 | .. ($F3),Y..!..|
00000F90: 3B 00 BC 21 C6 07 20 20 20 20 20 20 20 20 20 90 |;..!.. .|
00000FA0: AF 00 D0 21 D0 07 20 20 20 20 20 20 20 20 20 90 |...!.. .|
00000FB0: A0 20 23 34 30 00 E9 21 DA 07 20 20 20 20 20 20 |. #40..!.. |
00000FC0: 20 20 20 90 8C 20 4D 4F 56 45 4C 4F 4F 50 00 F9 | .. MOVELOOP..|
00000FD0: 21 E4 07 20 20 20 20 20 20 20 20 20 90 B6 00 FF |!.. ....|
00000FE0: 21 EE 07 3B 00 05 22 F8 07 3B 00 0B 22 02 08 3B |!..;.."..;.."..;|
00000FF0: 00 19 22 F1 13 9E 20 53 43 52 4F 4C 4C 59 00 00 |.."... SCROLLY..|
00001000: 00 12 07 00 20 20 20 22 43 55 52 53 4F 52 2E 46 |.... "CURSOR.F|
00001010: 2E 41 22 20 20 20 20 20 20 20 50 52 47 |.A" PRG |
..<.D.; SMOOTH SCROLLING ROUTINES.B.N.;.
H.X.;.Y...SCLSCR . $E8EA; SCROLL SCRE
EN UP ONE LINE....;.....SCLX: .. 0...
.SCLY: .. 0.....SCLROW: .. 0.C...FROM
ROW:.. 0.T...TOROW: .. 0.Z...;...H.; "G
O38" SET SCREEN . 38 COLUMN MODE...R.;.
...GO38: .. $D016.5... . #2
47.L... .. $D016.]...
...C...;.....; "GO40" SET SCREEN . 40 CO
LUMN MODE.....;...".GO40: .. $D016..
.,. .. #8.T.6. .. $D01
6...@. .....J.;...T.; "GO24" SE
T SCREEN . 24 ROW MODE...^.;...H.GO24:
.. $D011.C.R. . #247.Z.|.
.. $D011.K... ...Q...;..
...; "GO25" SET SCREEN . 25 ROW MODE....
.;.....GO25: .. $D011.H...
.. #8...B. .. $D011...L.
.....V.;.!...; "SCROLLX" SCROLL SCREE
N RIGHT . LEFT.'...;.>...SCROLLX: .. $D
016.S... . #248.I... .
. SCLX..... .. $D016.....
.....&.;...0.; "SCROLLY" SCROLL SCRE
EN UP . DOWN.E.:.;...D.SCROLLY: .. $D01
1...N. . #248...X. ..
SCLY...B. .. $D011./.L.
...5.V.;.^...; "XLINESCL" SHIFT LINE R
IGHT . LEFT.D...;.|...XLINESCL: .. SCLRO
W..... .. $D6..... ..
#$00..... .. $D3.....
.. $E56C; CALC. POINTER . SCREEN RAM, ST
ORE IN $D1.$D2...F.;.L.P. .. $E
A24; CALC. POINTER . COLOUR RAM, STORE I
N $F3.$F4.R.Z.;.H... .. SCLX...
.. .. LEFTSCL.....;.....; SCROL
L RIGHT. ...;..... .. #1... .;.
K.*.RIGHTLOOP:.....4. .....>.
.. ($D1),Y...H. .....R.
.. ($D1),Y.0.\. ...A.
F. ...Z.P. .. ($F3),Y.
K.Z. ....... .. ($F3),
Y..... ....... .......
. #40.V... .. RIGHTL
OOP..... .......;.....;.....LEF
TSCL: .. #38...J.;...T.LEFTLOOP: ...0..
. ...H... .. ($D1),Y.X.
.. ...P... .. ($D1),Y...
.. ....... .......
.. ($F3),Y...$. ...P...
.. ($F3),Y...8. .....B.
.....V. . #$FF...`.
.. LEFTLOOP...J. ...4.T.;._.~.;
"SCLSCRX" SCROLL SCREEN LEFT . RIGHT.E..
.;.Z...SCLSCRX: .. #$00..... ..
SCLROW.....;.....SCRLOOP: .. XLINESCL.G.
.. .. SCLROW...D. .. SCL
ROW...N. .. #25...X. ..
SCRLOOP..... ... ...;.L...; "SCL
SCRUP" SCROLL SCREEN UP ONE LINE..R...;.
G...SCLSCRUP:.. #$01.~... .. SCL
ROW.....;...(.UPLOOP: .. SCLROW...2.
.. FROMROW.I.<. .. TOROW..
.F. .. TOROW...Z.;...D.
.. CALCADDR...X. .. MOVEROW.....
;.3... .. SCLROW.J... ..
SCLROW.^. . .. #25.U...
.. UPLOOP..... .......;...H.; "
SCLSCRDOWN" SCROLL SCREEN DOWN ONE LINE.
.A.R.;.X...SCLSCRDOWN:.. #$17.....
.. SCLROW.....;.....DOWNLOOP: .. S
CLROW.*... .. FROMROW.B...
.. TOROW.Z... .. TOROW.
`.".;.{.,. .. CALCADDR...6.
.. MOVEROW...@.;...J.
.. SCLROW.O.T. .. DOWNLOOP...^
. .....H.;.".R.; "CALCADDR" CA
LCULATE ADDRESS . SOURCE . TARGET ROWS..
(.|.;.@...CALCADDR:.. FROMROW.T...
.. $D6.I... .. #$00.}...
.. $D3.A... .. $E56C; CALC.
POINTER . SCREEN RAM, STORE IN $D1.$D2.G
...;..... .. $EA24; CALC. POINTE
R . COLOUR RAM, STORE IN $F3.$F4.....;.%
... .. $D1.9.B. .. $D2.M
.L. .. $FC.A.V. .. $FD.G
...;.{... .. $F3..... ..
$F4..... .. $FE..... ..
$FF.....;.S... .. TOROW.....
.. $D6... . .. #$00.. ".
.. $D3.T &. .. $E56C; CAL
C. POINTER . SCREEN RAM, STORE IN $D1.$D
2.Z 0.;.. :. .. $EA24; CALC. POI
NTER . COLOUR RAM, STORE IN $F3.$F4.. D.
;.. N. .... X.;.. B.; "MOVEROW"
MOVE A ROW WITH ADDR. IN ($FC.FD) . ROW
IN ($D1.D2).%!L.; COLOURS FROM ($FE.FF)
. ($F3.F4).+!V.;.@!..MOVEROW: .. #$00.F!
..;.^!..MOVELOOP:.. ($FC),Y.V!..
.. ($D1),Y..!.. .. ($FE),Y..!..
.. ($F3),Y..!..;..!F. .
..P!P. . #40..!Z. .. MO
VELOOP..!.. ....!..;.."..;.."..;
.."... SCROLLY...... "CURSOR.F.A"
PRG
> CLICK IMAGE PREVIEW FOR FULL MODAL