SC.B
FILE INFORMATION
FILENAME(S): SC.B
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-12-01 01:08:46
APPEARS ON: 1 disk(s)
FILE HASH
6ee27df983d459f3e2de38f9b88cc0b7ed2d6ae31e77e18781915ef57611f7a8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FAST ASS SYSTEM | SC.B | PRG | hedning, loot | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 1C 12 2D 12 0A 00 81 20 50 41 53 53 B2 31 20 A4 |..-.... PASS.1 .|
00000010: 20 33 00 3C 12 14 00 90 82 20 34 39 31 35 32 2C | 3.<..... 49152,|
00000020: 30 00 56 12 1E 00 8B 20 50 41 53 53 B2 33 20 A7 |0.V.... PASS.3 .|
00000030: 20 90 82 20 34 39 31 35 32 2C 31 00 76 12 64 00 | .. 49152,1.v.d.|
00000040: 3B 20 53 4D 4F 4F 54 48 20 53 43 52 4F 4C 4C 49 |; SMOOTH SCROLLI|
00000050: 4E 47 20 52 4F 55 54 49 4E 45 53 00 7C 12 6E 00 |NG ROUTINES.|.n.|
00000060: 3B 00 82 12 78 00 3B 00 B3 12 82 00 53 43 4C 53 |;...x.;.....SCLS|
00000070: 43 52 20 20 20 20 B2 20 24 45 38 45 41 3B 20 53 |CR . $E8EA; S|
00000080: 43 52 4F 4C 4C 20 53 43 52 45 45 4E 20 55 50 20 |CROLL SCREEN UP |
00000090: 4F 4E 45 20 4C 49 4E 45 00 B9 12 8C 00 3B 00 CA |ONE LINE.....;..|
000000A0: 12 96 00 53 43 4C 58 3A 20 20 20 90 80 20 30 00 |...SCLX: .. 0.|
000000B0: DB 12 A0 00 53 43 4C 59 3A 20 20 20 90 80 20 30 |....SCLY: .. 0|
000000C0: 00 EC 12 AA 00 53 43 4C 52 4F 57 3A 20 90 80 20 |.....SCLROW: .. |
000000D0: 30 00 FD 12 AF 00 46 52 4F 4D 52 4F 57 3A 90 80 |0.....FROMROW:..|
000000E0: 20 30 00 0E 13 B4 00 54 4F 52 4F 57 3A 20 20 90 | 0.....TOROW: .|
000000F0: 80 20 30 00 14 13 BE 00 3B 00 3D 13 C8 00 3B 20 |. 0.....;.=...; |
00000100: 22 47 4F 33 38 22 20 53 45 54 20 53 43 52 45 45 |"GO38" SET SCREE|
00000110: 4E 20 A4 20 33 38 20 43 4F 4C 55 4D 4E 20 4D 4F |N . 38 COLUMN MO|
00000120: 44 45 00 43 13 D2 00 3B 00 5A 13 DC 00 47 4F 33 |DE.C...;.Z...GO3|
00000130: 38 3A 20 20 20 20 20 90 94 20 24 44 30 31 36 00 |8: .. $D016.|
00000140: 6F 13 E6 00 20 20 20 20 20 20 20 20 20 20 AF 20 |o... . |
00000150: 23 32 34 37 00 86 13 F0 00 20 20 20 20 20 20 20 |#247..... |
00000160: 20 20 20 90 97 20 24 44 30 31 36 00 97 13 FA 00 | .. $D016.....|
00000170: 20 20 20 20 20 20 20 20 20 20 90 B6 00 9D 13 04 | ......|
00000180: 01 3B 00 C6 13 0E 01 3B 20 22 47 4F 34 30 22 20 |.;.....; "GO40" |
00000190: 53 45 54 20 53 43 52 45 45 4E 20 A4 20 34 30 20 |SET SCREEN . 40 |
000001A0: 43 4F 4C 55 4D 4E 20 4D 4F 44 45 00 CC 13 18 01 |COLUMN MODE.....|
000001B0: 3B 00 E3 13 22 01 47 4F 34 30 3A 20 20 20 20 20 |;...".GO40: |
000001C0: 90 94 20 24 44 30 31 36 00 F7 13 2C 01 20 20 20 |.. $D016...,. |
000001D0: 20 20 20 20 20 20 20 90 95 20 23 38 00 0E 14 36 | .. #8...6|
000001E0: 01 20 20 20 20 20 20 20 20 20 20 90 97 20 24 44 |. .. $D|
000001F0: 30 31 36 00 1F 14 40 01 20 20 20 20 20 20 20 20 |016...@. |
00000200: 20 20 90 B6 00 25 14 4A 01 3B 00 4B 14 54 01 3B | ...%.J.;.K.T.;|
00000210: 20 22 47 4F 32 34 22 20 53 45 54 20 53 43 52 45 | "GO24" SET SCRE|
00000220: 45 4E 20 A4 20 32 34 20 52 4F 57 20 4D 4F 44 45 |EN . 24 ROW MODE|
00000230: 00 51 14 5E 01 3B 00 68 14 68 01 47 4F 32 34 3A |.Q.^.;.h.h.GO24:|
00000240: 20 20 20 20 20 90 94 20 24 44 30 31 31 00 7D 14 | .. $D011.}.|
00000250: 72 01 20 20 20 20 20 20 20 20 20 20 AF 20 23 32 |r. . #2|
00000260: 34 37 00 94 14 7C 01 20 20 20 20 20 20 20 20 20 |47...|. |
00000270: 20 90 97 20 24 44 30 31 31 00 A5 14 86 01 20 20 | .. $D011..... |
00000280: 20 20 20 20 20 20 20 20 90 B6 00 AB 14 90 01 3B | .......;|
00000290: 00 D1 14 9A 01 3B 20 22 47 4F 32 35 22 20 53 45 |.....; "GO25" SE|
000002A0: 54 20 53 43 52 45 45 4E 20 A4 20 32 35 20 52 4F |T SCREEN . 25 RO|
000002B0: 57 20 4D 4F 44 45 00 D7 14 A4 01 3B 00 EE 14 AE |W MODE.....;....|
000002C0: 01 47 4F 32 35 3A 20 20 20 20 20 90 94 20 24 44 |.GO25: .. $D|
000002D0: 30 31 31 00 02 15 B8 01 20 20 20 20 20 20 20 20 |011..... |
000002E0: 20 20 90 95 20 23 38 00 19 15 C2 01 20 20 20 20 | .. #8..... |
000002F0: 20 20 20 20 20 20 90 97 20 24 44 30 31 31 00 2A | .. $D011.*|
00000300: 15 CC 01 20 20 20 20 20 20 20 20 20 20 90 B6 00 |... ...|
00000310: 30 15 D6 01 3B 00 5B 15 E0 01 3B 20 22 53 43 52 |0...;.[...; "SCR|
00000320: 4F 4C 4C 58 22 20 53 43 52 4F 4C 4C 20 53 43 52 |OLLX" SCROLL SCR|
00000330: 45 45 4E 20 52 49 47 48 54 20 B0 20 4C 45 46 54 |EEN RIGHT . LEFT|
00000340: 00 61 15 EA 01 3B 00 78 15 F4 01 53 43 52 4F 4C |.a...;.x...SCROL|
00000350: 4C 58 3A 20 20 90 94 20 24 44 30 31 36 00 8D 15 |LX: .. $D016...|
00000360: FE 01 20 20 20 20 20 20 20 20 20 20 AF 20 23 32 |.. . #2|
00000370: 34 38 00 A3 15 08 02 20 20 20 20 20 20 20 20 20 |48..... |
00000380: 20 90 95 20 53 43 4C 58 00 BA 15 12 02 20 20 20 | .. SCLX..... |
00000390: 20 20 20 20 20 20 20 90 97 20 24 44 30 31 36 00 | .. $D016.|
000003A0: CB 15 1C 02 20 20 20 20 20 20 20 20 20 20 90 B6 |.... ..|
000003B0: 00 D1 15 26 02 3B 00 F9 15 30 02 3B 20 22 53 43 |...&.;...0.; "SC|
000003C0: 52 4F 4C 4C 59 22 20 53 43 52 4F 4C 4C 20 53 43 |ROLLY" SCROLL SC|
000003D0: 52 45 45 4E 20 55 50 20 B0 20 44 4F 57 4E 00 FF |REEN UP . DOWN..|
000003E0: 15 3A 02 3B 00 16 16 44 02 53 43 52 4F 4C 4C 59 |.:.;...D.SCROLLY|
000003F0: 3A 20 20 90 94 20 24 44 30 31 31 00 2B 16 4E 02 |: .. $D011.+.N.|
00000400: 20 20 20 20 20 20 20 20 20 20 AF 20 23 32 34 38 | . #248|
00000410: 00 41 16 58 02 20 20 20 20 20 20 20 20 20 20 90 |.A.X. .|
00000420: 95 20 53 43 4C 59 00 58 16 62 02 20 20 20 20 20 |. SCLY.X.b. |
00000430: 20 20 20 20 20 90 97 20 24 44 30 31 31 00 69 16 | .. $D011.i.|
00000440: 6C 02 20 20 20 20 20 20 20 20 20 20 90 B6 00 6F |l. ...o|
00000450: 16 76 02 3B 00 98 16 80 02 3B 20 22 58 4C 49 4E |.v.;.....; "XLIN|
00000460: 45 53 43 4C 22 20 53 48 49 46 54 20 4C 49 4E 45 |ESCL" SHIFT LINE|
00000470: 20 52 49 47 48 54 20 B0 20 4C 45 46 54 00 9E 16 | RIGHT . LEFT...|
00000480: 8A 02 3B 00 B6 16 94 02 58 4C 49 4E 45 53 43 4C |..;.....XLINESCL|
00000490: 3A 20 90 94 20 53 43 4C 52 4F 57 00 CB 16 9E 02 |: .. SCLROW.....|
000004A0: 20 20 20 20 20 20 20 20 20 20 90 97 20 24 44 36 | .. $D6|
000004B0: 00 E1 16 A8 02 20 20 20 20 20 20 20 20 20 20 90 |..... .|
000004C0: 94 20 23 24 30 30 00 F6 16 B2 02 20 20 20 20 20 |. #$00..... |
000004D0: 20 20 20 20 20 90 97 20 24 44 33 00 3B 17 BC 02 | .. $D3.;...|
000004E0: 20 20 20 20 20 20 20 20 20 20 90 A4 20 24 45 35 | .. $E5|
000004F0: 36 43 3B 20 43 41 4C 43 2E 20 50 4F 49 4E 54 45 |6C; CALC. POINTE|
00000500: 52 20 A4 20 53 43 52 45 45 4E 20 52 41 4D 2C 20 |R . SCREEN RAM, |
00000510: 53 54 4F 52 45 20 49 4E 20 24 44 31 AB 24 44 32 |STORE IN $D1.$D2|
00000520: 00 41 17 C6 02 3B 00 86 17 D0 02 20 20 20 20 20 |.A...;..... |
00000530: 20 20 20 20 20 90 A4 20 24 45 41 32 34 3B 20 43 | .. $EA24; C|
00000540: 41 4C 43 2E 20 50 4F 49 4E 54 45 52 20 A4 20 43 |ALC. POINTER . C|
00000550: 4F 4C 4F 55 52 20 52 41 4D 2C 20 53 54 4F 52 45 |OLOUR RAM, STORE|
00000560: 20 49 4E 20 24 46 33 AB 24 46 34 00 8C 17 DA 02 | IN $F3.$F4.....|
00000570: 3B 00 A2 17 E4 02 20 20 20 20 20 20 20 20 20 20 |;..... |
00000580: 90 94 20 53 43 4C 58 00 BB 17 EE 02 20 20 20 20 |.. SCLX..... |
00000590: 20 20 20 20 20 20 90 8A 20 4C 45 46 54 53 43 4C | .. LEFTSCL|
000005A0: 00 C1 17 F8 02 3B 00 D4 17 02 03 3B 20 53 43 52 |.....;.....; SCR|
000005B0: 4F 4C 4C 20 52 49 47 48 54 00 DA 17 0C 03 3B 00 |OLL RIGHT.....;.|
000005C0: EE 17 16 03 20 20 20 20 20 20 20 20 20 20 90 A2 |.... ..|
000005D0: 20 23 31 00 F4 17 20 03 3B 00 05 18 2A 03 52 49 | #1... .;...*.RI|
000005E0: 47 48 54 4C 4F 4F 50 3A 90 BF 00 16 18 34 03 20 |GHTLOOP:.....4. |
000005F0: 20 20 20 20 20 20 20 20 20 90 BA 00 2F 18 3E 03 | .../.>.|
00000600: 20 20 20 20 20 20 20 20 20 20 90 94 20 28 24 44 | .. ($D|
00000610: 31 29 2C 59 00 40 18 48 03 20 20 20 20 20 20 20 |1),Y.@.H. |
00000620: 20 20 20 90 AD 00 59 18 52 03 20 20 20 20 20 20 | ...Y.R. |
00000630: 20 20 20 20 90 97 20 28 24 44 31 29 2C 59 00 6A | .. ($D1),Y.j|
00000640: 18 5C 03 20 20 20 20 20 20 20 20 20 20 90 BD 00 |.\. ...|
00000650: 7B 18 66 03 20 20 20 20 20 20 20 20 20 20 90 BB |{.f. ..|
00000660: 00 94 18 70 03 20 20 20 20 20 20 20 20 20 20 90 |...p. .|
00000670: 94 20 28 24 46 33 29 2C 59 00 A5 18 7A 03 20 20 |. ($F3),Y...z. |
00000680: 20 20 20 20 20 20 20 20 90 AD 00 BE 18 84 03 20 | ....... |
00000690: 20 20 20 20 20 20 20 20 20 90 97 20 28 24 46 33 | .. ($F3|
000006A0: 29 2C 59 00 CF 18 8E 03 20 20 20 20 20 20 20 20 |),Y..... |
000006B0: 20 20 90 AF 00 E0 18 93 03 20 20 20 20 20 20 20 | ....... |
000006C0: 20 20 20 90 AF 00 F5 18 98 03 20 20 20 20 20 20 | ....... |
000006D0: 20 20 20 20 90 A0 20 23 34 30 00 10 19 9D 03 20 | .. #40..... |
000006E0: 20 20 20 20 20 20 20 20 20 90 8C 20 52 49 47 48 | .. RIGH|
000006F0: 54 4C 4F 4F 50 00 21 19 A2 03 20 20 20 20 20 20 |TLOOP.!... |
00000700: 20 20 20 20 90 B6 00 27 19 AC 03 3B 00 2D 19 B6 | ...'...;.-..|
00000710: 03 3B 00 42 19 C0 03 4C 45 46 54 53 43 4C 3A 20 |.;.B...LEFTSCL: |
00000720: 20 90 A2 20 23 33 38 00 48 19 CA 03 3B 00 59 19 | .. #38.H...;.Y.|
00000730: D4 03 4C 45 46 54 4C 4F 4F 50 3A 20 90 BF 00 6A |..LEFTLOOP: ...j|
00000740: 19 DE 03 20 20 20 20 20 20 20 20 20 20 90 BA 00 |... ...|
00000750: 82 19 E8 03 20 20 20 20 20 20 20 20 20 90 94 20 |.... .. |
00000760: 28 24 44 31 29 2C 59 00 92 19 F2 03 20 20 20 20 |($D1),Y..... |
00000770: 20 20 20 20 20 90 AF 00 AA 19 FC 03 20 20 20 20 | ....... |
00000780: 20 20 20 20 20 90 97 20 28 24 44 31 29 2C 59 00 | .. ($D1),Y.|
00000790: BA 19 06 04 20 20 20 20 20 20 20 20 20 90 BD 00 |.... ...|
000007A0: CA 19 10 04 20 20 20 20 20 20 20 20 20 90 BB 00 |.... ...|
000007B0: E2 19 1A 04 20 20 20 20 20 20 20 20 20 90 94 20 |.... .. |
000007C0: 28 24 46 33 29 2C 59 00 F2 19 24 04 20 20 20 20 |($F3),Y...$. |
000007D0: 20 20 20 20 20 90 AF 00 0A 1A 2E 04 20 20 20 20 | ....... |
000007E0: 20 20 20 20 20 90 97 20 28 24 46 33 29 2C 59 00 | .. ($F3),Y.|
000007F0: 1A 1A 38 04 20 20 20 20 20 20 20 20 20 90 AD 00 |..8. ...|
00000800: 2A 1A 42 04 20 20 20 20 20 20 20 20 20 90 AD 00 |*.B. ...|
00000810: 3F 1A 56 04 20 20 20 20 20 20 20 20 20 90 A0 20 |?.V. .. |
00000820: 23 24 46 46 00 58 1A 60 04 20 20 20 20 20 20 20 |#$FF.X.`. |
00000830: 20 20 90 8C 20 4C 45 46 54 4C 4F 4F 50 00 68 1A | .. LEFTLOOP.h.|
00000840: 6A 04 20 20 20 20 20 20 20 20 20 90 B6 00 6E 1A |j. ...n.|
00000850: 74 04 3B 00 99 1A 7E 04 3B 20 22 53 43 4C 53 43 |t.;...~.; "SCLSC|
00000860: 52 58 22 20 53 43 52 4F 4C 4C 20 53 43 52 45 45 |RX" SCROLL SCREE|
00000870: 4E 20 4C 45 46 54 20 B0 20 52 49 47 48 54 00 9F |N LEFT . RIGHT..|
00000880: 1A 88 04 3B 00 B4 1A 92 04 53 43 4C 53 43 52 58 |...;.....SCLSCRX|
00000890: 3A 20 90 94 20 23 24 30 30 00 CB 1A 9C 04 20 20 |: .. #$00..... |
000008A0: 20 20 20 20 20 20 20 90 97 20 53 43 4C 52 4F 57 | .. SCLROW|
000008B0: 00 D1 1A A6 04 3B 00 EA 1A B0 04 53 43 52 4C 4F |.....;.....SCRLO|
000008C0: 4F 50 3A 20 90 A4 20 58 4C 49 4E 45 53 43 4C 00 |OP: .. XLINESCL.|
000008D0: 01 1B BA 04 20 20 20 20 20 20 20 20 20 90 9A 20 |.... .. |
000008E0: 53 43 4C 52 4F 57 00 18 1B C4 04 20 20 20 20 20 |SCLROW..... |
000008F0: 20 20 20 20 90 94 20 53 43 4C 52 4F 57 00 2C 1B | .. SCLROW.,.|
00000900: CE 04 20 20 20 20 20 20 20 20 20 90 92 20 23 32 |.. .. #2|
00000910: 35 00 44 1B D8 04 20 20 20 20 20 20 20 20 20 90 |5.D... .|
00000920: 8C 20 53 43 52 4C 4F 4F 50 00 54 1B E2 04 20 20 |. SCRLOOP.T... |
00000930: 20 20 20 20 20 20 20 90 B6 00 5A 1B EC 04 3B 00 | ...Z...;.|
00000940: 86 1B F6 04 3B 20 22 53 43 4C 53 43 52 55 50 22 |....; "SCLSCRUP"|
00000950: 20 53 43 52 4F 4C 4C 20 53 43 52 45 45 4E 20 55 | SCROLL SCREEN U|
00000960: 50 20 4F 4E 45 20 4C 49 4E 45 2E 00 8C 1B 00 05 |P ONE LINE......|
00000970: 3B 00 A1 1B 0A 05 53 43 4C 53 43 52 55 50 3A 90 |;.....SCLSCRUP:.|
00000980: 94 20 23 24 30 31 00 B8 1B 14 05 20 20 20 20 20 |. #$01..... |
00000990: 20 20 20 20 90 97 20 53 43 4C 52 4F 57 00 BE 1B | .. SCLROW...|
000009A0: 1E 05 3B 00 D5 1B 28 05 55 50 4C 4F 4F 50 3A 20 |..;...(.UPLOOP: |
000009B0: 20 90 94 20 53 43 4C 52 4F 57 00 ED 1B 32 05 20 | .. SCLROW...2. |
000009C0: 20 20 20 20 20 20 20 20 90 97 20 46 52 4F 4D 52 | .. FROMR|
000009D0: 4F 57 00 03 1C 3C 05 20 20 20 20 20 20 20 20 20 |OW...<. |
000009E0: 90 97 20 54 4F 52 4F 57 00 19 1C 46 05 20 20 20 |.. TOROW...F. |
000009F0: 20 20 20 20 20 20 90 99 20 54 4F 52 4F 57 00 1F | .. TOROW..|
00000A00: 1C 5A 05 3B 00 38 1C 64 05 20 20 20 20 20 20 20 |.Z.;.8.d. |
00000A10: 20 20 90 A4 20 43 41 4C 43 41 44 44 52 00 50 1C | .. CALCADDR.P.|
00000A20: 78 05 20 20 20 20 20 20 20 20 20 90 A4 20 4D 4F |x. .. MO|
00000A30: 56 45 52 4F 57 00 56 1C 82 05 3B 00 6D 1C 8C 05 |VEROW.V...;.m...|
00000A40: 20 20 20 20 20 20 20 20 20 90 9A 20 53 43 4C 52 | .. SCLR|
00000A50: 4F 57 00 84 1C 96 05 20 20 20 20 20 20 20 20 20 |OW..... |
00000A60: 90 94 20 53 43 4C 52 4F 57 00 98 1C A0 05 20 20 |.. SCLROW..... |
00000A70: 20 20 20 20 20 20 20 90 92 20 23 32 35 00 AF 1C | .. #25...|
00000A80: AA 05 20 20 20 20 20 20 20 20 20 90 8C 20 55 50 |.. .. UP|
00000A90: 4C 4F 4F 50 00 BF 1C B4 05 20 20 20 20 20 20 20 |LOOP..... |
00000AA0: 20 20 90 B6 00 C5 1C BE 05 3B 00 F5 1C C8 05 3B | .......;.....;|
00000AB0: 20 22 53 43 4C 53 43 52 44 4F 57 4E 22 20 53 43 | "SCLSCRDOWN" SC|
00000AC0: 52 4F 4C 4C 20 53 43 52 45 45 4E 20 44 4F 57 4E |ROLL SCREEN DOWN|
00000AD0: 20 4F 4E 45 20 4C 49 4E 45 2E 00 FB 1C D2 05 3B | ONE LINE......;|
00000AE0: 00 12 1D DC 05 53 43 4C 53 43 52 44 4F 57 4E 3A |.....SCLSCRDOWN:|
00000AF0: 90 94 20 23 24 31 37 00 2B 1D E6 05 20 20 20 20 |.. #$17.+... |
00000B00: 20 20 20 20 20 20 20 90 97 20 53 43 4C 52 4F 57 | .. SCLROW|
00000B10: 00 31 1D F0 05 3B 00 4A 1D FA 05 44 4F 57 4E 4C |.1...;.J...DOWNL|
00000B20: 4F 4F 50 3A 20 20 90 94 20 53 43 4C 52 4F 57 00 |OOP: .. SCLROW.|
00000B30: 64 1D 04 06 20 20 20 20 20 20 20 20 20 20 20 90 |d... .|
00000B40: 97 20 46 52 4F 4D 52 4F 57 00 7C 1D 0E 06 20 20 |. FROMROW.|... |
00000B50: 20 20 20 20 20 20 20 20 20 90 97 20 54 4F 52 4F | .. TORO|
00000B60: 57 00 94 1D 18 06 20 20 20 20 20 20 20 20 20 20 |W..... |
00000B70: 20 90 9A 20 54 4F 52 4F 57 00 9A 1D 22 06 3B 00 | .. TOROW...".;.|
00000B80: B5 1D 2C 06 20 20 20 20 20 20 20 20 20 20 20 90 |..,. .|
00000B90: A4 20 43 41 4C 43 41 44 44 52 00 CF 1D 36 06 20 |. CALCADDR...6. |
00000BA0: 20 20 20 20 20 20 20 20 20 20 90 A4 20 4D 4F 56 | .. MOV|
00000BB0: 45 52 4F 57 00 D5 1D 40 06 3B 00 EE 1D 4A 06 20 |EROW...@.;...J. |
00000BC0: 20 20 20 20 20 20 20 20 20 20 90 99 20 53 43 4C | .. SCL|
00000BD0: 52 4F 57 00 09 1E 54 06 20 20 20 20 20 20 20 20 |ROW...T. |
00000BE0: 20 20 20 90 8D 20 44 4F 57 4E 4C 4F 4F 50 00 1B | .. DOWNLOOP..|
00000BF0: 1E 5E 06 20 20 20 20 20 20 20 20 20 20 20 90 B6 |.^. ..|
00000C00: 00 21 1E 68 06 3B 00 5C 1E 72 06 3B 20 22 43 41 |.!.h.;.\.r.; "CA|
00000C10: 4C 43 41 44 44 52 22 20 43 41 4C 43 55 4C 41 54 |LCADDR" CALCULAT|
00000C20: 45 20 41 44 44 52 45 53 53 20 81 20 53 4F 55 52 |E ADDRESS . SOUR|
00000C30: 43 45 20 AF 20 54 41 52 47 45 54 20 52 4F 57 53 |CE . TARGET ROWS|
00000C40: 2E 00 62 1E 7C 06 3B 00 7A 1E 86 06 43 41 4C 43 |..b.|.;.z...CALC|
00000C50: 41 44 44 52 3A 90 A1 20 46 52 4F 4D 52 4F 57 00 |ADDR:.. FROMROW.|
00000C60: 8E 1E 88 06 20 20 20 20 20 20 20 20 20 90 9E 20 |.... .. |
00000C70: 24 44 36 00 A3 1E 8A 06 20 20 20 20 20 20 20 20 |$D6..... |
00000C80: 20 90 A2 20 23 24 30 30 00 B7 1E 8C 06 20 20 20 | .. #$00..... |
00000C90: 20 20 20 20 20 20 90 A3 20 24 44 33 00 FB 1E 90 | .. $D3....|
00000CA0: 06 20 20 20 20 20 20 20 20 20 90 A4 20 24 45 35 |. .. $E5|
00000CB0: 36 43 3B 20 43 41 4C 43 2E 20 50 4F 49 4E 54 45 |6C; CALC. POINTE|
00000CC0: 52 20 A4 20 53 43 52 45 45 4E 20 52 41 4D 2C 20 |R . SCREEN RAM, |
00000CD0: 53 54 4F 52 45 20 49 4E 20 24 44 31 AB 24 44 32 |STORE IN $D1.$D2|
00000CE0: 00 01 1F 9A 06 3B 00 45 1F A4 06 20 20 20 20 20 |.....;.E... |
00000CF0: 20 20 20 20 90 A4 20 24 45 41 32 34 3B 20 43 41 | .. $EA24; CA|
00000D00: 4C 43 2E 20 50 4F 49 4E 54 45 52 20 A4 20 43 4F |LC. POINTER . CO|
00000D10: 4C 4F 55 52 20 52 41 4D 2C 20 53 54 4F 52 45 20 |LOUR RAM, STORE |
00000D20: 49 4E 20 24 46 33 AB 24 46 34 00 4B 1F AE 06 3B |IN $F3.$F4.K...;|
00000D30: 00 5F 1F B8 06 20 20 20 20 20 20 20 20 20 90 A1 |._... ..|
00000D40: 20 24 44 31 00 73 1F C2 06 20 20 20 20 20 20 20 | $D1.s... |
00000D50: 20 20 90 A2 20 24 44 32 00 87 1F CC 06 20 20 20 | .. $D2..... |
00000D60: 20 20 20 20 20 20 90 9E 20 24 46 43 00 9B 1F D6 | .. $FC....|
00000D70: 06 20 20 20 20 20 20 20 20 20 90 A3 20 24 46 44 |. .. $FD|
00000D80: 00 A1 1F E0 06 3B 00 B5 1F EA 06 20 20 20 20 20 |.....;..... |
00000D90: 20 20 20 20 90 A1 20 24 46 33 00 C9 1F F4 06 20 | .. $F3..... |
00000DA0: 20 20 20 20 20 20 20 20 90 A2 20 24 46 34 00 DD | .. $F4..|
00000DB0: 1F FE 06 20 20 20 20 20 20 20 20 20 90 9E 20 24 |... .. $|
00000DC0: 46 45 00 F1 1F 08 07 20 20 20 20 20 20 20 20 20 |FE..... |
00000DD0: 90 A3 20 24 46 46 00 F7 1F 12 07 3B 00 0D 20 1C |.. $FF.....;.. .|
00000DE0: 07 20 20 20 20 20 20 20 20 20 90 A1 20 54 4F 52 |. .. TOR|
00000DF0: 4F 57 00 21 20 1E 07 20 20 20 20 20 20 20 20 20 |OW.! .. |
00000E00: 90 9E 20 24 44 36 00 36 20 20 07 20 20 20 20 20 |.. $D6.6 . |
00000E10: 20 20 20 20 90 A2 20 23 24 30 30 00 4A 20 22 07 | .. #$00.J ".|
00000E20: 20 20 20 20 20 20 20 20 20 90 A3 20 24 44 33 00 | .. $D3.|
00000E30: 8E 20 26 07 20 20 20 20 20 20 20 20 20 90 A4 20 |. &. .. |
00000E40: 24 45 35 36 43 3B 20 43 41 4C 43 2E 20 50 4F 49 |$E56C; CALC. POI|
00000E50: 4E 54 45 52 20 A4 20 53 43 52 45 45 4E 20 52 41 |NTER . SCREEN RA|
00000E60: 4D 2C 20 53 54 4F 52 45 20 49 4E 20 24 44 31 AB |M, STORE IN $D1.|
00000E70: 24 44 32 00 94 20 30 07 3B 00 D8 20 3A 07 20 20 |$D2.. 0.;.. :. |
00000E80: 20 20 20 20 20 20 20 90 A4 20 24 45 41 32 34 3B | .. $EA24;|
00000E90: 20 43 41 4C 43 2E 20 50 4F 49 4E 54 45 52 20 A4 | CALC. POINTER .|
00000EA0: 20 43 4F 4C 4F 55 52 20 52 41 4D 2C 20 53 54 4F | COLOUR RAM, STO|
00000EB0: 52 45 20 49 4E 20 24 46 33 AB 24 46 34 00 DE 20 |RE IN $F3.$F4.. |
00000EC0: 44 07 3B 00 EE 20 4E 07 20 20 20 20 20 20 20 20 |D.;.. N. |
00000ED0: 20 90 B6 00 F4 20 58 07 3B 00 38 21 62 07 3B 20 | .... X.;.8!b.; |
00000EE0: 22 4D 4F 56 45 52 4F 57 22 20 4D 4F 56 45 20 41 |"MOVEROW" MOVE A|
00000EF0: 20 52 4F 57 20 57 49 54 48 20 41 44 44 52 2E 20 | ROW WITH ADDR. |
00000F00: 49 4E 20 28 24 46 43 AB 46 44 29 20 A4 20 52 4F |IN ($FC.FD) . RO|
00000F10: 57 20 49 4E 20 28 24 44 31 AB 44 32 29 00 5F 21 |W IN ($D1.D2)._!|
00000F20: 6C 07 3B 20 43 4F 4C 4F 55 52 53 20 46 52 4F 4D |l.; COLOURS FROM|
00000F30: 20 28 24 46 45 AB 46 46 29 20 A4 20 28 24 46 33 | ($FE.FF) . ($F3|
00000F40: AB 46 34 29 00 65 21 76 07 3B 00 7A 21 80 07 4D |.F4).e!v.;.z!..M|
00000F50: 4F 56 45 52 4F 57 3A 20 90 A2 20 23 24 30 30 00 |OVEROW: .. #$00.|
00000F60: 80 21 8A 07 3B 00 98 21 94 07 4D 4F 56 45 4C 4F |.!..;..!..MOVELO|
00000F70: 4F 50 3A 90 94 20 28 24 46 43 29 2C 59 00 B0 21 |OP:.. ($FC),Y..!|
00000F80: 9E 07 20 20 20 20 20 20 20 20 20 90 97 20 28 24 |.. .. ($|
00000F90: 44 31 29 2C 59 00 C8 21 A8 07 20 20 20 20 20 20 |D1),Y..!.. |
00000FA0: 20 20 20 90 94 20 28 24 46 45 29 2C 59 00 E0 21 | .. ($FE),Y..!|
00000FB0: B2 07 20 20 20 20 20 20 20 20 20 90 97 20 28 24 |.. .. ($|
00000FC0: 46 33 29 2C 59 00 E6 21 BC 07 3B 00 F6 21 C6 07 |F3),Y..!..;..!..|
00000FD0: 20 20 20 20 20 20 20 20 20 90 AF 00 0A 22 D0 07 | ...."..|
00000FE0: 20 20 20 20 20 20 20 20 20 90 A0 20 23 34 30 00 | .. #40.|
00000FF0: 23 22 DA 07 20 20 20 20 20 20 20 20 20 90 8C 20 |#".. .. |
00001000: 4D 4F 56 45 4C 4F 4F 50 00 33 22 E4 07 20 20 20 |MOVELOOP.3".. |
00001010: 20 20 20 20 20 20 90 B6 00 39 22 EE 07 3B 00 3F | ...9"..;.?|
00001020: 22 F8 07 3B 00 45 22 02 08 3B 00 50 22 0C 08 82 |"..;.E"..;.P"...|
00001030: 20 50 41 53 53 00 5A 22 88 13 99 22 93 22 3B 00 | PASS.Z"...".";.|
00001040: 8F 22 92 13 41 24 28 30 29 B2 22 9F 4C 4F 56 45 |."..A$(0).".LOVE|
00001050: 20 48 41 53 20 47 4F 4E 45 2C 20 4C 4F 56 45 20 | HAS GONE, LOVE |
00001060: 48 41 53 20 54 55 52 4E 45 44 20 54 4F 20 50 41 |HAS TURNED TO PA|
00001070: 49 4E 2E 22 00 C4 22 9C 13 41 24 28 31 29 B2 22 |IN.".."..A$(1)."|
00001080: 99 54 48 45 20 46 45 45 4C 49 4E 47 20 49 53 20 |.THE FEELING IS |
00001090: 57 52 4F 4E 47 2C 20 4A 4F 59 20 48 41 53 20 54 |WRONG, JOY HAS T|
000010A0: 55 52 4E 45 44 20 54 4F 22 00 F9 22 A6 13 41 24 |URNED TO".."..A$|
000010B0: 28 32 29 B2 22 9A 50 41 49 4E 2E 20 57 49 4C 4C |(2).".PAIN. WILL|
000010C0: 20 57 45 20 45 56 45 52 20 42 45 20 54 48 45 20 | WE EVER BE THE |
000010D0: 53 41 4D 45 3F 20 20 20 20 20 20 20 20 22 00 2D |SAME? ".-|
000010E0: 23 AB 13 41 24 28 33 29 B2 22 20 20 20 20 20 20 |#..A$(3)." |
000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001110: 20 22 00 38 23 B0 13 9E 20 47 4F 32 34 00 51 23 | ".8#... GO24.Q#|
00001120: BA 13 97 20 53 43 4C 59 2C 30 20 3A 20 9E 20 53 |... SCLY,0 : . S|
00001130: 43 52 4F 4C 4C 59 00 5C 23 C4 13 4C 49 4E 45 B2 |CROLLY.\#..LINE.|
00001140: 30 00 6D 23 CE 13 81 20 4C 4F 4F 50 B2 30 20 A4 |0.m#... LOOP.0 .|
00001150: 20 33 00 80 23 D8 13 99 20 22 13 22 3B 41 24 28 | 3..#... ".";A$(|
00001160: 4C 4F 4F 50 29 00 93 23 E2 13 81 20 53 43 52 4F |LOOP)..#... SCRO|
00001170: 4C 4C B2 30 20 A4 20 37 00 A5 23 EC 13 97 20 53 |LL.0 . 7..#... S|
00001180: 43 4C 59 2C 53 43 52 4F 4C 4C 00 B3 23 F1 13 9E |CLY,SCROLL..#...|
00001190: 20 53 43 52 4F 4C 4C 59 00 C0 23 F6 13 82 20 53 | SCROLLY..#... S|
000011A0: 43 52 4F 4C 4C 00 D1 23 00 14 9E 20 53 43 4C 53 |CROLL..#... SCLS|
000011B0: 43 52 44 4F 57 4E 00 DC 23 0A 14 82 20 4C 4F 4F |CRDOWN..#... LOO|
000011C0: 50 00 F5 23 14 14 97 20 53 43 4C 59 2C 30 20 3A |P..#... SCLY,0 :|
000011D0: 20 9E 20 53 43 52 4F 4C 4C 59 00 07 24 1E 14 81 | . SCROLLY..$...|
000011E0: 20 4C 4F 4F 50 B2 31 20 A4 20 32 30 00 15 24 28 | LOOP.1 . 20..$(|
000011F0: 14 9E 20 53 43 4C 53 43 52 58 00 26 24 32 14 9E |.. SCLSCRX.&$2..|
00001200: 20 53 43 4C 53 43 52 44 4F 57 4E 00 2C 24 3C 14 | SCLSCRDOWN.,$<.|
00001210: 82 00 00 00 12 07 00 20 20 20 22 43 55 52 53 4F |....... "CURSO|
00001220: 52 2E 46 2E 41 22 20 20 20 20 20 20 20 50 52 47 |R.F.A" PRG|
..-.... PASS.1 . 3.<..... 49152,0.V....
PASS.3 . .. 49152,1.V.D.; SMOOTH SCROLLI
NG ROUTINES.|.N.;...X.;.....SCLSCR .
$E8EA; SCROLL SCREEN UP ONE LINE.....;.J
...SCLX: .. 0... .SCLY: .. 0.....SCL
ROW: .. 0.....FROMROW:.. 0.....TOROW: .
. 0.....;.=.H.; "GO38" SET SCREEN . 38 C
OLUMN MODE.C.R.;.Z...GO38: .. $D016.
O... . #247..... .. $D
016..... .......;.F...; "GO40"
SET SCREEN . 40 COLUMN MODE.L...;...".GO
40: .. $D016...,. .. #8...6
. .. $D016...@. ...%.J
.;.K.T.; "GO24" SET SCREEN . 24 ROW MODE
.Q.^.;.H.H.GO24: .. $D011.}.R.
. #247...|. .. $D011.....
.......;.Q...; "GO25" SET SCREEN
. 25 ROW MODE.W...;.....GO25: .. $D
011..... .. #8...B. ..
$D011.*.L. ...0.V.;.[...; "SCR
OLLX" SCROLL SCREEN RIGHT . LEFT.A...;.X
...SCROLLX: .. $D016..... . #2
48..... .. SCLX..... .
. $D016.K... ...Q.&.;...0.; "SC
ROLLY" SCROLL SCREEN UP . DOWN...:.;...D
.SCROLLY: .. $D011.+.N. . #248
.A.X. .. SCLY.X.B. ..
$D011.I.L. ...O.V.;.....; "XLIN
ESCL" SHIFT LINE RIGHT . LEFT.....;.....
XLINESCL: .. SCLROW.K... .. $D6
..... .. #$00..... ..
$D3.;... .. $E56C; CALC. POINTE
R . SCREEN RAM, STORE IN $D1.$D2.A.F.;..
.P. .. $EA24; CALC. POINTER . C
OLOUR RAM, STORE IN $F3.$F4...Z.;.....
.. SCLX..... .. LEFTSCL
.A...;.T...; SCROLL RIGHT.Z...;.....
.. #1... .;...*.RIGHTLOOP:.....4.
.../.>. .. ($D1),Y.@.H
. ...Y.R. .. ($D1),Y.J
.\. ...{.F. .....P.
.. ($F3),Y...Z. .......
.. ($F3),Y.O... ......
. ....... . #40.....
.. RIGHTLOOP.!... ...'
...;.-...;.B...LEFTSCL: .. #38.H.J.;.Y.
T.LEFTLOOP: ...J... .......
.. ($D1),Y..... .......
.. ($D1),Y..... ...J...
....... .. ($F3),Y...$.
....... .. ($F3),Y...8.
...*.B. ...?.V. .
#$FF.X.`. .. LEFTLOOP.H.J.
...N.T.;...~.; "SCLSCRX" SCROLL SCREE
N LEFT . RIGHT.....;.....SCLSCRX: .. #$0
0.K... .. SCLROW.Q...;.....SCRLO
OP: .. XLINESCL..... .. SCLROW..
.D. .. SCLROW.,.N. .. #2
5.D.X. .. SCRLOOP.T... .
..Z...;.....; "SCLSCRUP" SCROLL SCREEN U
P ONE LINE......;.....SCLSCRUP:.. #$01..
... .. SCLROW.....;.U.(.UPLOOP:
.. SCLROW...2. .. FROMROW...<.
.. TOROW...F. .. TOROW..
.Z.;.8.D. .. CALCADDR.P.X.
.. MOVEROW.V...;.M... .. SCLR
OW..... .. SCLROW... . .
. #25..... .. UPLOOP.....
...E...;...H.; "SCLSCRDOWN" SCROLL SCR
EEN DOWN ONE LINE....R.;.....SCLSCRDOWN:
.. #$17.+... .. SCLROW.1...;.J
...DOWNLOOP: .. SCLROW.D... .
. FROMROW.|... .. TOROW.....
.. TOROW...".;...,. .
. CALCADDR.O.6. .. MOVEROW.U.@
.;...J. .. SCLROW...T.
.. DOWNLOOP...^. ...!.H.;.\
.R.; "CALCADDR" CALCULATE ADDRESS . SOUR
CE . TARGET ROWS..B.|.;.Z...CALCADDR:..
FROMROW..... .. $D6.....
.. #$00..... .. $D3.....
.. $E56C; CALC. POINTER . SCREEN RAM,
STORE IN $D1.$D2.....;.E... .. $
EA24; CALC. POINTER . COLOUR RAM, STORE
IN $F3.$F4.K...;._... .. $D1.S.B
. .. $D2...L. .. $FC...V
. .. $FD.....;..... .. $
F3.I... .. $F4..... .. $
FE..... .. $FF.....;.. ..
.. TOROW.! .. .. $D6.6 .
.. #$00.J ". .. $D3.. &.
.. $E56C; CALC. POINTER . SCREEN RA
M, STORE IN $D1.$D2.. 0.;.X :. .
. $EA24; CALC. POINTER . COLOUR RAM, STO
RE IN $F3.$F4.. D.;.. N. .... X.
;.8!B.; "MOVEROW" MOVE A ROW WITH ADDR.
IN ($FC.FD) . ROW IN ($D1.D2)._!L.; COLO
URS FROM ($FE.FF) . ($F3.F4).E!V.;.Z!..M
OVEROW: .. #$00..!..;..!..MOVELOOP:.. ($
FC),Y..!.. .. ($D1),Y.H!..
.. ($FE),Y..!.. .. ($F3),Y..!
..;..!F. ...."P. . #40.
#"Z. .. MOVELOOP.3".. ..
.9"..;.?"..;.E"..;.P"... PASS.Z"...".";.
."..A$(0).".LOVE HAS GONE, LOVE HAS TURN
ED TO PAIN.".D"..A$(1).".THE FEELING IS
WRONG, JOY HAS TURNED TO".."..A$(2).".PA
IN. WILL WE EVER BE THE SAME? ".-
#..A$(3)."
".8#... GO24.Q#... SCLY,0 : . S
CROLLY.\#D.LINE.0.M#N.. LOOP.0 . 3..#X..
".";A$(LOOP)..#... SCROLL.0 . 7..#... S
CLY,SCROLL..#... SCROLLY..#... SCROLL.Q#
... SCLSCRDOWN..#... LOOP..#... SCLY,0 :
. SCROLLY..$... LOOP.1 . 20..$(.. SCLSC
RX.&$2.. SCLSCRDOWN.,$<........ "CURSO
R.F.A" PRG
> CLICK IMAGE PREVIEW FOR FULL MODAL