00000000: 20 20 20 20 20 20 20 20 90 8C 20 4C 45 46 54 4C | .. LEFTL|
00000010: 4F 4F 50 00 2E 1A 6A 04 20 20 20 20 20 20 20 20 |OOP...j. |
00000020: 20 90 B6 00 34 1A 74 04 3B 00 5F 1A 7E 04 3B 20 | ...4.t.;._.~.; |
00000030: 22 53 43 4C 53 43 52 58 22 20 53 43 52 4F 4C 4C |"SCLSCRX" SCROLL|
00000040: 20 53 43 52 45 45 4E 20 4C 45 46 54 20 B0 20 52 | SCREEN LEFT . R|
00000050: 49 47 48 54 00 65 1A 88 04 3B 00 7A 1A 92 04 53 |IGHT.e...;.z...S|
00000060: 43 4C 53 43 52 58 3A 20 90 94 20 23 24 30 30 00 |CLSCRX: .. #$00.|
00000070: 91 1A 9C 04 20 20 20 20 20 20 20 20 20 90 97 20 |.... .. |
00000080: 53 43 4C 52 4F 57 00 97 1A A6 04 3B 00 B0 1A B0 |SCLROW.....;....|
00000090: 04 53 43 52 4C 4F 4F 50 3A 20 90 A4 20 58 4C 49 |.SCRLOOP: .. XLI|
000000A0: 4E 45 53 43 4C 00 C7 1A BA 04 20 20 20 20 20 20 |NESCL..... |
000000B0: 20 20 20 90 9A 20 53 43 4C 52 4F 57 00 DE 1A C4 | .. SCLROW....|
000000C0: 04 20 20 20 20 20 20 20 20 20 90 94 20 53 43 4C |. .. SCL|
000000D0: 52 4F 57 00 F2 1A CE 04 20 20 20 20 20 20 20 20 |ROW..... |
000000E0: 20 90 92 20 23 32 35 00 0A 1B D8 04 20 20 20 20 | .. #25..... |
000000F0: 20 20 20 20 20 90 8C 20 53 43 52 4C 4F 4F 50 00 | .. SCRLOOP.|
00000100: 1A 1B E2 04 20 20 20 20 20 20 20 20 20 90 B6 00 |.... ...|
00000110: 20 1B EC 04 3B 00 4C 1B F6 04 3B 20 22 53 43 4C | ...;.L...; "SCL|
00000120: 53 43 52 55 50 22 20 53 43 52 4F 4C 4C 20 53 43 |SCRUP" SCROLL SC|
00000130: 52 45 45 4E 20 55 50 20 4F 4E 45 20 4C 49 4E 45 |REEN UP ONE LINE|
00000140: 2E 00 52 1B 00 05 3B 00 67 1B 0A 05 53 43 4C 53 |..R...;.g...SCLS|
00000150: 43 52 55 50 3A 90 94 20 23 24 30 31 00 7E 1B 14 |CRUP:.. #$01.~..|
00000160: 05 20 20 20 20 20 20 20 20 20 90 97 20 53 43 4C |. .. SCL|
00000170: 52 4F 57 00 84 1B 1E 05 3B 00 9B 1B 28 05 55 50 |ROW.....;...(.UP|
00000180: 4C 4F 4F 50 3A 20 20 90 94 20 53 43 4C 52 4F 57 |LOOP: .. SCLROW|
00000190: 00 B3 1B 32 05 20 20 20 20 20 20 20 20 20 90 97 |...2. ..|
000001A0: 20 46 52 4F 4D 52 4F 57 00 C9 1B 3C 05 20 20 20 | FROMROW...<. |
000001B0: 20 20 20 20 20 20 90 97 20 54 4F 52 4F 57 00 DF | .. TOROW..|
000001C0: 1B 46 05 20 20 20 20 20 20 20 20 20 90 99 20 54 |.F. .. T|
000001D0: 4F 52 4F 57 00 E5 1B 5A 05 3B 00 FE 1B 64 05 20 |OROW...Z.;...d. |
000001E0: 20 20 20 20 20 20 20 20 90 A4 20 43 41 4C 43 41 | .. CALCA|
000001F0: 44 44 52 00 16 1C 78 05 20 20 20 20 20 20 20 20 |DDR...x. |
00000200: 20 90 A4 20 4D 4F 56 45 52 4F 57 00 1C 1C 82 05 | .. MOVEROW.....|
00000210: 3B 00 33 1C 8C 05 20 20 20 20 20 20 20 20 20 90 |;.3... .|
00000220: 9A 20 53 43 4C 52 4F 57 00 4A 1C 96 05 20 20 20 |. SCLROW.J... |
00000230: 20 20 20 20 20 20 90 94 20 53 43 4C 52 4F 57 00 | .. SCLROW.|
00000240: 5E 1C A0 05 20 20 20 20 20 20 20 20 20 90 92 20 |^... .. |
00000250: 23 32 35 00 75 1C AA 05 20 20 20 20 20 20 20 20 |#25.u... |
00000260: 20 90 8C 20 55 50 4C 4F 4F 50 00 85 1C B4 05 20 | .. UPLOOP..... |
00000270: 20 20 20 20 20 20 20 20 90 B6 00 8B 1C BE 05 3B | .......;|
00000280: 00 BB 1C C8 05 3B 20 22 53 43 4C 53 43 52 44 4F |.....; "SCLSCRDO|
00000290: 57 4E 22 20 53 43 52 4F 4C 4C 20 53 43 52 45 45 |WN" SCROLL SCREE|
000002A0: 4E 20 44 4F 57 4E 20 4F 4E 45 20 4C 49 4E 45 2E |N DOWN ONE LINE.|
000002B0: 00 C1 1C D2 05 3B 00 D8 1C DC 05 53 43 4C 53 43 |.....;.....SCLSC|
000002C0: 52 44 4F 57 4E 3A 90 94 20 23 24 31 37 00 F1 1C |RDOWN:.. #$17...|
000002D0: E6 05 20 20 20 20 20 20 20 20 20 20 20 90 97 20 |.. .. |
000002E0: 53 43 4C 52 4F 57 00 F7 1C F0 05 3B 00 10 1D FA |SCLROW.....;....|
000002F0: 05 44 4F 57 4E 4C 4F 4F 50 3A 20 20 90 94 20 53 |.DOWNLOOP: .. S|
00000300: 43 4C 52 4F 57 00 2A 1D 04 06 20 20 20 20 20 20 |CLROW.*... |
00000310: 20 20 20 20 20 90 97 20 46 52 4F 4D 52 4F 57 00 | .. FROMROW.|
00000320: 42 1D 0E 06 20 20 20 20 20 20 20 20 20 20 20 90 |B... .|
00000330: 97 20 54 4F 52 4F 57 00 5A 1D 18 06 20 20 20 20 |. TOROW.Z... |
00000340: 20 20 20 20 20 20 20 90 9A 20 54 4F 52 4F 57 00 | .. TOROW.|
00000350: 60 1D 22 06 3B 00 7B 1D 2C 06 20 20 20 20 20 20 |`.".;.{.,. |
00000360: 20 20 20 20 20 90 A4 20 43 41 4C 43 41 44 44 52 | .. CALCADDR|
00000370: 00 95 1D 36 06 20 20 20 20 20 20 20 20 20 20 20 |...6. |
00000380: 90 A4 20 4D 4F 56 45 52 4F 57 00 9B 1D 40 06 3B |.. MOVEROW...@.;|
00000390: 00 B4 1D 4A 06 20 20 20 20 20 20 20 20 20 20 20 |...J. |
000003A0: 90 99 20 53 43 4C 52 4F 57 00 CF 1D 54 06 20 20 |.. SCLROW...T. |
000003B0: 20 20 20 20 20 20 20 20 20 90 8D 20 44 4F 57 4E | .. DOWN|
000003C0: 4C 4F 4F 50 00 E1 1D 5E 06 20 20 20 20 20 20 20 |LOOP...^. |
000003D0: 20 20 20 20 90 B6 00 E7 1D 68 06 3B 00 22 1E 72 | .....h.;.".r|
000003E0: 06 3B 20 22 43 41 4C 43 41 44 44 52 22 20 43 41 |.; "CALCADDR" CA|
000003F0: 4C 43 55 4C 41 54 45 20 41 44 44 52 45 53 53 20 |LCULATE ADDRESS |
00000400: 81 20 53 4F 55 52 43 45 20 AF 20 54 41 52 47 45 |. SOURCE . TARGE|
00000410: 54 20 52 4F 57 53 2E 00 28 1E 7C 06 3B 00 40 1E |T ROWS..(.|.;.@.|
00000420: 86 06 43 41 4C 43 41 44 44 52 3A 90 A1 20 46 52 |..CALCADDR:.. FR|
00000430: 4F 4D 52 4F 57 00 54 1E 88 06 20 20 20 20 20 20 |OMROW.T... |
00000440: 20 20 20 90 9E 20 24 44 36 00 69 1E 8A 06 20 20 | .. $D6.i... |
00000450: 20 20 20 20 20 20 20 90 A2 20 23 24 30 30 00 7D | .. #$00.}|
00000460: 1E 8C 06 20 20 20 20 20 20 20 20 20 90 A3 20 24 |... .. $|
00000470: 44 33 00 C1 1E 90 06 20 20 20 20 20 20 20 20 20 |D3..... |
00000480: 90 A4 20 24 45 35 36 43 3B 20 43 41 4C 43 2E 20 |.. $E56C; CALC. |
00000490: 50 4F 49 4E 54 45 52 20 A4 20 53 43 52 45 45 4E |POINTER . SCREEN|
000004A0: 20 52 41 4D 2C 20 53 54 4F 52 45 20 49 4E 20 24 | RAM, STORE IN $|
000004B0: 44 31 AB 24 44 32 00 C7 1E 9A 06 3B 00 0B 1F A4 |D1.$D2.....;....|
000004C0: 06 20 20 20 20 20 20 20 20 20 90 A4 20 24 45 41 |. .. $EA|
000004D0: 32 34 3B 20 43 41 4C 43 2E 20 50 4F 49 4E 54 45 |24; CALC. POINTE|
000004E0: 52 20 A4 20 43 4F 4C 4F 55 52 20 52 41 4D 2C 20 |R . COLOUR RAM, |
000004F0: 53 54 4F 52 45 20 49 4E 20 24 46 33 AB 24 46 34 |STORE IN $F3.$F4|
00000500: 00 11 1F AE 06 3B 00 25 1F B8 06 20 20 20 20 20 |.....;.%... |
00000510: 20 20 20 20 90 A1 20 24 44 31 00 39 1F C2 06 20 | .. $D1.9... |
00000520: 20 20 20 20 20 20 20 20 90 A2 20 24 44 32 00 4D | .. $D2.M|
00000530: 1F CC 06 20 20 20 20 20 20 20 20 20 90 9E 20 24 |... .. $|
00000540: 46 43 00 61 1F D6 06 20 20 20 20 20 20 20 20 20 |FC.a... |
00000550: 90 A3 20 24 46 44 00 67 1F E0 06 3B 00 7B 1F EA |.. $FD.g...;.{..|
00000560: 06 20 20 20 20 20 20 20 20 20 90 A1 20 24 46 33 |. .. $F3|
00000570: 00 8F 1F F4 06 20 20 20 20 20 20 20 20 20 90 A2 |..... ..|
00000580: 20 24 46 34 00 A3 1F FE 06 20 20 20 20 20 20 20 | $F4..... |
00000590: 20 20 90 9E 20 24 46 45 00 B7 1F 08 07 20 20 20 | .. $FE..... |
000005A0: 20 20 20 20 20 20 90 A3 20 24 46 46 00 BD 1F 12 | .. $FF....|
000005B0: 07 3B 00 D3 1F 1C 07 20 20 20 20 20 20 20 20 20 |.;..... |
000005C0: 90 A1 20 54 4F 52 4F 57 00 E7 1F 1E 07 20 20 20 |.. TOROW..... |
000005D0: 20 20 20 20 20 20 90 9E 20 24 44 36 00 FC 1F 20 | .. $D6... |
000005E0: 07 20 20 20 20 20 20 20 20 20 90 A2 20 23 24 30 |. .. #$0|
000005F0: 30 00 10 20 22 07 20 20 20 20 20 20 20 20 20 90 |0.. ". .|
00000600: A3 20 24 44 33 00 54 20 26 07 20 20 20 20 20 20 |. $D3.T &. |
00000610: 20 20 20 90 A4 20 24 45 35 36 43 3B 20 43 41 4C | .. $E56C; CAL|
00000620: 43 2E 20 50 4F 49 4E 54 45 52 20 A4 20 53 43 52 |C. POINTER . SCR|
00000630: 45 45 4E 20 52 41 4D 2C 20 53 54 4F 52 45 20 49 |EEN RAM, STORE I|
00000640: 4E 20 24 44 31 AB 24 44 32 00 5A 20 30 07 3B 00 |N $D1.$D2.Z 0.;.|
00000650: 9E 20 3A 07 20 20 20 20 20 20 20 20 20 90 A4 20 |. :. .. |
00000660: 24 45 41 32 34 3B 20 43 41 4C 43 2E 20 50 4F 49 |$EA24; CALC. POI|
00000670: 4E 54 45 52 20 A4 20 43 4F 4C 4F 55 52 20 52 41 |NTER . COLOUR RA|
00000680: 4D 2C 20 53 54 4F 52 45 20 49 4E 20 24 46 33 AB |M, STORE IN $F3.|
00000690: 24 46 34 00 A4 20 44 07 3B 00 B4 20 4E 07 20 20 |$F4.. D.;.. N. |
000006A0: 20 20 20 20 20 20 20 90 B6 00 BA 20 58 07 3B 00 | .... X.;.|
000006B0: FE 20 62 07 3B 20 22 4D 4F 56 45 52 4F 57 22 20 |. b.; "MOVEROW" |
000006C0: 4D 4F 56 45 20 41 20 52 4F 57 20 57 49 54 48 20 |MOVE A ROW WITH |
000006D0: 41 44 44 52 2E 20 49 4E 20 28 24 46 43 AB 46 44 |ADDR. IN ($FC.FD|
000006E0: 29 20 A4 20 52 4F 57 20 49 4E 20 28 24 44 31 AB |) . ROW IN ($D1.|
000006F0: 44 32 29 00 25 21 6C 07 3B 20 43 4F 4C 4F 55 52 |D2).%!l.; COLOUR|
00000700: 53 20 46 52 4F 4D 20 28 24 46 45 AB 46 46 29 20 |S FROM ($FE.FF) |
00000710: A4 20 28 24 46 33 AB 46 34 29 00 2B 21 76 07 3B |. ($F3.F4).+!v.;|
00000720: 00 40 21 80 07 4D 4F 56 45 52 4F 57 3A 20 90 A2 |.@!..MOVEROW: ..|
00000730: 20 23 24 30 30 00 46 21 8A 07 3B 00 5E 21 94 07 | #$00.F!..;.^!..|
00000740: 4D 4F 56 45 4C 4F 4F 50 3A 90 94 20 28 24 46 43 |MOVELOOP:.. ($FC|
00000750: 29 2C 59 00 76 21 9E 07 20 20 20 20 20 20 20 20 |),Y.v!.. |
00000760: 20 90 97 20 28 24 44 31 29 2C 59 00 8E 21 A8 07 | .. ($D1),Y..!..|
00000770: 20 20 20 20 20 20 20 20 20 90 94 20 28 24 46 45 | .. ($FE|
00000780: 29 2C 59 00 A6 21 B2 07 20 20 20 20 20 20 20 20 |),Y..!.. |
00000790: 20 90 97 20 28 24 46 33 29 2C 59 00 AC 21 BC 07 | .. ($F3),Y..!..|
000007A0: 3B 00 BC 21 C6 07 20 20 20 20 20 20 20 20 20 90 |;..!.. .|
000007B0: AF 00 D0 21 D0 07 20 20 20 20 20 20 20 20 20 90 |...!.. .|
000007C0: A0 20 23 34 30 00 E9 21 DA 07 20 20 20 20 20 20 |. #40..!.. |
000007D0: 20 20 20 90 8C 20 4D 4F 56 45 4C 4F 4F 50 00 F9 | .. MOVELOOP..|
000007E0: 21 E4 07 20 20 20 20 20 20 20 20 20 90 B6 00 FF |!.. ....|
000007F0: 21 EE 07 3B 00 05 22 F8 07 3B 00 0B 22 02 08 3B |!..;.."..;.."..;|
00000800: 00 19 22 F1 13 9E 20 53 43 52 4F 4C 4C 59 00 00 |.."... SCROLLY..|
00000810: 00 12 07 00 20 20 20 22 43 55 52 53 4F 52 2E 46 |.... "CURSOR.F|
00000820: 2E 41 22 20 20 20 20 20 20 20 50 52 47 |.A" PRG |
.. LEFTLOOP...J. ...4.T.
;._.~.; "SCLSCRX" SCROLL SCREEN LEFT . R
IGHT.E...;.Z...SCLSCRX: .. #$00.....
.. SCLROW.....;.....SCRLOOP: .. XLI
NESCL.G... .. SCLROW...D.
.. SCLROW...N. .. #25...X.
.. SCRLOOP..... ... ...;.L.
..; "SCLSCRUP" SCROLL SCREEN UP ONE LINE
..R...;.G...SCLSCRUP:.. #$01.~...
.. SCLROW.....;...(.UPLOOP: .. SCLROW
...2. .. FROMROW.I.<. ..
TOROW...F. .. TOROW...Z.;...D.
.. CALCADDR...X. .. MOVE
ROW.....;.3... .. SCLROW.J...
.. SCLROW.^. . .. #25.U...
.. UPLOOP..... .......;
...H.; "SCLSCRDOWN" SCROLL SCREEN DOWN O
NE LINE..A.R.;.X...SCLSCRDOWN:.. #$17...
.. .. SCLROW.....;.....DOWNLOO
P: .. SCLROW.*... .. FROMROW.
B... .. TOROW.Z... .
. TOROW.`.".;.{.,. .. CALCADDR
...6. .. MOVEROW...@.;...J.
.. SCLROW.O.T. .. DOWN
LOOP...^. .....H.;.".R.; "CALC
ADDR" CALCULATE ADDRESS . SOURCE . TARGE
T ROWS..(.|.;.@...CALCADDR:.. FROMROW.T.
.. .. $D6.I... .. #$00.}
... .. $D3.A... .. $E56C
; CALC. POINTER . SCREEN RAM, STORE IN $
D1.$D2.G...;..... .. $EA24; CALC
. POINTER . COLOUR RAM, STORE IN $F3.$F4
.....;.%... .. $D1.9.B.
.. $D2.M.L. .. $FC.A.V.
.. $FD.G...;.{... .. $F3.....
.. $F4..... .. $FE.....
.. $FF.....;.S... .. TOROW
..... .. $D6... . .. #$0
0.. ". .. $D3.T &. .. $E
56C; CALC. POINTER . SCREEN RAM, STORE I
N $D1.$D2.Z 0.;.. :. .. $EA24; C
ALC. POINTER . COLOUR RAM, STORE IN $F3.
$F4.. D.;.. N. .... X.;.. B.; "M
OVEROW" 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.
.. MOVELOOP..!.. ....!..;..".
.;.."..;.."... SCROLLY...... "CURSOR.F
.A" PRG
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL