_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SCROLL ROUTINE

FILE INFORMATION

FILENAME(S): SCROLL ROUTINE

FILE TYPE(S): DEL

FILE SIZE: 1.6K

FIRST SEEN: 2025-11-30 21:12:57

APPEARS ON: 1 disk(s)

FILE HASH

0460440a6490e94f2740d3ff8f107c73cdbf985ac7067d5b5946bc5164d49188

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
ABC CRACKINGS SCROLL ROUTINE DEL DuncanTwain 34 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 08 0D 08 5E 06 AC B2  24 37 30 30 30 00 1C 08  |....^...$7000...|
00000010: 68 06 50 4C 4F 54 B2 24  46 46 46 30 00 28 08 72  |h.PLOT.$FFF0.(.r|
00000020: 06 4C 44 58 20 23 32 30  00 34 08 7C 06 4C 44 59  |.LDX #20.4.|.LDY|
00000030: 20 23 31 31 00 3C 08 86  06 43 4C 43 00 49 08 90  | #11.<...CLC.I..|
00000040: 06 4A 53 52 20 50 4C 4F  54 00 56 08 9A 06 4C 44  |.JSR PLOT.V...LD|
00000050: 58 20 23 24 30 30 00 6B  08 A4 06 52 31 37 30 30  |X #$00.k...R1700|
00000060: 20 4C 44 41 20 50 52 4F  47 2C 58 00 77 08 AE 06  | LDA PROG,X.w...|
00000070: 43 4D 50 20 23 30 30 00  85 08 B8 06 42 45 51 20  |CMP #00.....BEQ |
00000080: 52 31 37 36 30 00 93 08  C2 06 4A 53 52 20 24 46  |R1760.....JSR $F|
00000090: 46 44 32 00 9B 08 CC 06  49 4E 58 00 A9 08 D6 06  |FD2.....INX.....|
000000A0: 42 4E 45 20 52 31 37 30  30 00 B9 08 DB 06 42 59  |BNE R1700.....BY|
000000B0: 54 20 24 44 34 2C 24 34  43 00 C7 08 E0 06 52 31  |T $D4,$4C.....R1|
000000C0: 37 36 30 20 53 45 49 00  D5 08 EA 06 4C 44 58 20  |760 SEI.....LDX |
000000D0: 23 B3 B5 45 52 00 E3 08  F4 06 4C 44 59 20 23 B1  |#..ER.....LDY #.|
000000E0: B5 45 52 00 F1 08 FE 06  53 54 58 20 24 30 33 31  |.ER.....STX $031|
000000F0: 34 00 FF 08 08 07 53 54  59 20 24 30 33 31 35 00  |4.....STY $0315.|
00000100: 13 09 12 07 42 59 54 20  24 41 46 2C 24 31 41 2C  |....BYT $AF,$1A,|
00000110: 24 44 30 00 1F 09 1C 07  B0 41 20 23 24 30 31 00  |$D0......A #$01.|
00000120: 2D 09 26 07 53 54 41 20  24 44 30 31 41 00 41 09  |-.&.STA $D01A.A.|
00000130: 30 07 42 59 54 20 24 41  46 2C 24 30 45 2C 24 44  |0.BYT $AF,$0E,$D|
00000140: 43 00 4C 09 3A 07 AF 20  23 24 46 45 00 5A 09 44  |C.L.:.. #$FE.Z.D|
00000150: 07 53 54 41 20 24 44 43  30 45 00 6A 09 49 07 42  |.STA $DC0E.j.I.B|
00000160: 59 54 20 24 41 37 2C 24  30 41 00 77 09 4E 07 4C  |YT $A7,$0A.w.N.L|
00000170: 44 41 20 23 24 44 30 00  8B 09 58 07 42 59 54 20  |DA #$D0...X.BYT |
00000180: 24 38 46 2C 24 31 32 2C  24 44 30 00 98 09 62 07  |$8F,$12,$D0...b.|
00000190: 4C 44 41 20 23 24 30 37  00 A8 09 6C 07 42 59 54  |LDA #$07...l.BYT|
000001A0: 20 24 38 37 2C 24 30 32  00 B5 09 76 07 4C 44 41  | $87,$02...v.LDA|
000001B0: 20 23 24 30 31 00 C5 09  80 07 42 59 54 20 24 38  | #$01.....BYT $8|
000001C0: 37 2C 24 46 42 00 CD 09  8A 07 43 4C 49 00 DA 09  |7,$FB.....CLI...|
000001D0: 94 07 4C 44 41 20 23 24  30 30 00 EA 09 9E 07 42  |..LDA #$00.....B|
000001E0: 59 54 20 24 38 37 2C 24  43 36 00 00 0A A8 07 52  |YT $87,$C6.....R|
000001F0: 31 39 36 30 20 42 59 54  20 24 41 37 2C 24 43 36  |1960 BYT $A7,$C6|
00000200: 00 0E 0A B2 07 42 45 51  20 52 31 39 36 30 00 16  |.....BEQ R1960..|
00000210: 0A BC 07 53 45 49 00 26  0A C1 07 42 59 54 20 24  |...SEI.&...BYT $|
00000220: 41 37 2C 24 30 41 00 33  0A C6 07 4C 44 41 20 23  |A7,$0A.3...LDA #|
00000230: 24 33 31 00 47 0A D0 07  42 59 54 20 24 38 46 2C  |$31.G...BYT $8F,|
00000240: 24 31 34 2C 24 30 33 00  54 0A DA 07 4C 44 41 20  |$14,$03.T...LDA |
00000250: 23 24 45 41 00 68 0A E4  07 42 59 54 20 24 38 46  |#$EA.h...BYT $8F|
00000260: 2C 24 31 35 2C 24 30 33  00 70 0A EE 07 43 4C 49  |,$15,$03.p...CLI|
00000270: 00 84 0A F8 07 42 59 54  20 24 41 46 2C 24 30 45  |.....BYT $AF,$0E|
00000280: 2C 24 44 43 00 90 0A 02  08 B0 41 20 23 24 30 31  |,$DC......A #$01|
00000290: 00 9E 0A 0C 08 53 54 41  20 24 44 43 30 45 00 B2  |.....STA $DC0E..|
000002A0: 0A 16 08 42 59 54 20 24  41 46 2C 24 31 41 2C 24  |...BYT $AF,$1A,$|
000002B0: 44 30 00 BD 0A 20 08 AF  20 23 24 46 45 00 CB 0A  |D0... .. #$FE...|
000002C0: 2A 08 53 54 41 20 24 44  30 31 41 00 D9 0A 3E 08  |*.STA $D01A...>.|
000002D0: 4A 53 52 20 24 46 46 38  34 00 E7 0A 48 08 4A 53  |JSR $FF84...H.JS|
000002E0: 52 20 24 46 46 38 31 00  F4 0A 52 08 4C 44 41 20  |R $FF81...R.LDA |
000002F0: 23 24 30 30 00 00 0B 5C  08 53 54 41 20 24 43 36  |#$00...\.STA $C6|
00000300: 00 08 0B 66 08 52 54 53  00 1B 0B B8 0B B5 45 52  |...f.RTS......ER|
00000310: 20 4A 53 52 20 53 43 52  4F 4C 4C 00 2F 0B C2 0B  | JSR SCROLL./...|
00000320: 42 59 54 20 24 41 46 2C  24 31 39 2C 24 44 30 00  |BYT $AF,$19,$D0.|
00000330: 3A 0B CC 0B AF 20 23 24  30 31 00 48 0B D6 0B 53  |:.... #$01.H...S|
00000340: 54 41 20 24 44 30 31 39  00 56 0B E0 0B 42 45 51  |TA $D019.V...BEQ|
00000350: 20 52 33 31 38 30 00 66  0B EA 0B 42 59 54 20 24  | R3180.f...BYT $|
00000360: 41 37 2C 24 46 42 00 74  0B F4 0B 42 4E 45 20 52  |A7,$FB.t...BNE R|
00000370: 33 31 39 30 00 84 0B FE  0B 42 59 54 20 24 45 37  |3190.....BYT $E7|
00000380: 2C 24 46 42 00 98 0B 08  0C 42 59 54 20 24 41 46  |,$FB.....BYT $AF|
00000390: 2C 24 31 36 2C 24 44 30  00 A5 0B 12 0C 4C 44 58  |,$16,$D0.....LDX|
000003A0: 20 23 24 46 46 00 B0 0B  1C 0C AF 20 23 24 45 38  | #$FF...... #$E8|
000003B0: 00 C4 0B 26 0C 42 59 54  20 24 38 46 2C 24 31 36  |...&.BYT $8F,$16|
000003C0: 2C 24 44 30 00 D1 0B 30  0C 4C 44 41 20 23 24 31  |,$D0...0.LDA #$1|
000003D0: 42 00 E5 0B 3A 0C 42 59  54 20 24 38 46 2C 24 31  |B...:.BYT $8F,$1|
000003E0: 31 2C 24 44 30 00 F2 0B  44 0C 4C 44 41 20 23 24  |1,$D0...D.LDA #$|
000003F0: 44 30 00 06 0C 45 0C 42  59 54 20 24 38 46 2C 24  |D0...E.BYT $8F,$|
00000400: 31 32 2C 24 44 30 00 17  0C 6C 0C 52 33 31 38 30  |12,$D0...l.R3180|
00000410: 20 4A 4D 50 20 B5 80 00  2D 0C 76 0C 52 33 31 39  | JMP ...-.v.R319|
00000420: 30 20 42 59 54 20 24 43  37 2C 24 46 42 00 3A 0C  |0 BYT $C7,$FB.:.|
00000430: 80 0C 4C 44 41 20 23 24  31 42 00 48 0C 8A 0C 53  |..LDA #$1B.H...S|
00000440: 54 41 20 24 44 30 31 31  00 58 0C 94 0C 42 59 54  |TA $D011.X...BYT|
00000450: 20 24 41 37 2C 24 30 32  00 63 0C 9E 0C AF 20 23  | $A7,$02.c.... #|
00000460: 24 30 37 00 6F 0C A8 0C  53 54 41 20 24 30 32 00  |$07.o...STA $02.|
00000470: 83 0C B2 0C 42 59 54 20  24 41 46 2C 24 31 36 2C  |....BYT $AF,$16,|
00000480: 24 44 30 00 8E 0C BC 0C  AF 20 23 24 45 38 00 99  |$D0...... #$E8..|
00000490: 0C C6 0C B0 41 20 24 30  32 00 A7 0C D0 0C 53 54  |....A $02.....ST|
000004A0: 41 20 24 44 30 31 36 00  B4 0C DA 0C 4C 44 41 20  |A $D016.....LDA |
000004B0: 23 24 44 41 00 C2 0C E4  0C 53 54 41 20 24 44 30  |#$DA.....STA $D0|
000004C0: 31 32 00 CD 0C 0C 0D 4A  4D 50 20 B5 80 00 E4 0C  |12.....JMP .....|
000004D0: A0 0F 53 43 52 4F 4C 4C  20 42 59 54 20 24 41 37  |..SCROLL BYT $A7|
000004E0: 2C 24 30 32 00 F2 0C AA  0F 42 45 51 20 52 34 30  |,$02.....BEQ R40|
000004F0: 34 30 00 02 0D B4 0F 42  59 54 20 24 43 37 2C 24  |40.....BYT $C7,$|
00000500: 30 32 00 0A 0D BE 0F 52  54 53 00 1D 0D C8 0F 52  |02.....RTS.....R|
00000510: 34 30 34 30 20 4C 44 41  20 23 24 30 37 00 29 0D  |4040 LDA #$07.).|
00000520: D2 0F 53 54 41 20 24 30  32 00 36 0D DC 0F 4C 44  |..STA $02.6...LD|
00000530: 41 20 31 38 32 34 00 3E  0D E6 0F 50 48 41 00 4B  |A 1824.>...PHA.K|
00000540: 0D F0 0F 4C 44 58 20 23  24 30 30 00 60 0D FA 0F  |...LDX #$00.`...|
00000550: 52 34 30 39 30 20 4C 44  41 20 31 38 32 35 2C 58  |R4090 LDA 1825,X|
00000560: 00 6F 0D 04 10 53 54 41  20 31 38 32 34 2C 58 00  |.o...STA 1824,X.|
00000570: 77 0D 0E 10 49 4E 58 00  84 0D 18 10 43 50 58 20  |w...INX.....CPX |
00000580: 23 24 32 37 00 92 0D 22  10 42 4E 45 20 52 34 30  |#$27...".BNE R40|
00000590: 39 30 00 9A 0D 2C 10 50  4C 41 00 A7 0D 36 10 53  |90...,.PLA...6.S|
000005A0: 54 41 20 31 38 36 33 00  AF 0D 40 10 52 54 53 00  |TA 1863...@.RTS.|
000005B0: C0 0D 88 13 B5 80 20 4A  53 52 20 24 45 41 38 37  |...... JSR $EA87|
000005C0: 00 C8 0D 9C 13 50 4C 41  00 D0 0D A6 13 54 41 59  |.....PLA.....TAY|
000005D0: 00 D8 0D B0 13 50 4C 41  00 E0 0D BA 13 54 41 58  |.....PLA.....TAX|
000005E0: 00 E8 0D C4 13 50 4C 41  00 F0 0D CE 13 52 54 49  |.....PLA.....RTI|
000005F0: 00 29 0E D0 20 50 52 4F  47 20 54 58 54 20 22 41  |.).. PROG TXT "A|
00000600: 42 43 20 43 52 41 43 4B  49 4E 47 53 20 50 52 45  |BC CRACKINGS PRE|
00000610: 53 45 4E 54 53 20 3A 20  41 20 53 43 52 4F 4C 4C  |SENTS : A SCROLL|
00000620: 20 52 4F 55 54 49 4E 45  22 00 50 0E D5 20 54 58  | ROUTINE".P.. TX|
00000630: 54 20 22 28 43 4F 4E 54  41 49 4E 49 4E 47 20 49  |T "(CONTAINING I|
00000640: 4C 4C 45 47 41 4C 20 4F  50 43 4F 44 45 53 29 22  |LLEGAL OPCODES)"|
00000650: 00 5C 0E DA 20 42 59 54  20 24 30 30 00 00 00     |.\.. BYT $00... |
....^...$7000...H.PLOT.$FFF0.(.R.LDX #20
.4.|.LDY #11.<...CLC.I...JSR PLOT.V...LD
X #$00.K...R1700 LDA PROG,X.W...CMP #00.
....BEQ R1760...B.JSR $FFD2...L.INX...V.
BNE R1700.....BYT $D4,$4C.G...R1760 SEI.
U...LDX #..ER.....LDY #..ER.....STX $031
4.....STY $0315.....BYT $AF,$1A,$D0.....
.A #$01.-.&.STA $D01A.A.0.BYT $AF,$0E,$D
C.L.:.. #$FE.Z.D.STA $DC0E.J.I.BYT $A7,$
0A.W.N.LDA #$D0...X.BYT $8F,$12,$D0...B.
LDA #$07...L.BYT $87,$02...V.LDA #$01.E.
..BYT $87,$FB.M...CLI.Z...LDA #$00.....B
YT $87,$C6.....R1960 BYT $A7,$C6.....BEQ
 R1960.....SEI.&.A.BYT $A7,$0A.3.F.LDA #
$31.G.P.BYT $8F,$14,$03.T.Z.LDA #$EA.H..
.BYT $8F,$15,$03.P...CLI.....BYT $AF,$0E
,$DC......A #$01.....STA $DC0E.....BYT $
AF,$1A,$D0... .. #$FE.K.*.STA $D01A.Y.>.
JSR $FF84...H.JSR $FF81...R.LDA #$00...\
.STA $C6...F.RTS......ER JSR SCROLL./.B.
BYT $AF,$19,$D0.:.L.. #$01.H.V.STA $D019
.V...BEQ R3180.F...BYT $A7,$FB.T...BNE R
3190.....BYT $E7,$FB.....BYT $AF,$16,$D0
.....LDX #$FF...... #$E8.D.&.BYT $8F,$16
,$D0.Q.0.LDA #$1B...:.BYT $8F,$11,$D0...
D.LDA #$D0...E.BYT $8F,$12,$D0...L.R3180
 JMP ...-.V.R3190 BYT $C7,$FB.:...LDA #$
1B.H...STA $D011.X...BYT $A7,$02.C.... #
$07.O...STA $02.....BYT $AF,$16,$D0.....
. #$E8...F..A $02...P.STA $D016...Z.LDA 
#$DA.B...STA $D012.M...JMP ..... .SCROLL
 BYT $A7,$02.....BEQ R4040.....BYT $C7,$
02.....RTS...H.R4040 LDA #$07.).R.STA $0
2.6...LDA 1824.>...PHA.K...LDX #$00.`...
R4090 LDA 1825,X.O...STA 1824,X.W...INX.
....CPX #$27...".BNE R4090...,.PLA...6.S
TA 1863...@.RTS....... JSR $EA87.H...PLA
.P...TAY.X...PLA.....TAX...D.PLA...N.RTI
.).P PROG TXT "ABC CRACKINGS PRESENTS : 
A SCROLL ROUTINE".P.U TXT "(CONTAINING I
LLEGAL OPCODES)".\.Z BYT $00...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL