COLOR.CHASE.PAL

FILE INFORMATION

FILENAME(S): COLOR.CHASE.PAL

FILE TYPE(S): PRG

FILE SIZE: 2.8K

FIRST SEEN: 2025-11-30 18:12:16

APPEARS ON: 1 disk(s)

FILE HASH

b27cab050bbe4fcc95120aebd2e125cae3b368c1449f1a7ac3d72aecc320dd8e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOADSTAR 60 S 1	COLOR.CHASE.PAL	PRG	Sailor, Ganheden	30	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0A 08 64 00 9E 37  30 30 00 10 08 6E 00 3B  |....d..700...n.;|
00000010: 00 1C 08 78 00 2E 4F 50  54 20 4F 4F 00 22 08 82  |...x..OPT OO."..|
00000020: 00 3B 00 48 08 8C 00 3B  20 27 43 4F 4C B0 20 43  |.;.H...; 'COL. C|
00000030: 48 41 53 45 52 27 2C 20  42 59 20 53 43 4F 54 54  |HASER', BY SCOTT|
00000040: 20 45 2E 20 52 45 53 48  00 4E 08 96 00 3B 00 54  | E. RESH.N...;.T|
00000050: 08 A0 00 3B 00 78 08 AA  00 3B 20 43 4F 44 45 20  |...;.x...; CODE |
00000060: 57 49 4C 4C 20 42 45 20  41 54 20 24 43 30 30 30  |WILL BE AT $C000|
00000070: 20 28 34 39 31 35 32 29  00 7E 08 B4 00 3B 00 95  | (49152).~...;..|
00000080: 08 BE 00 4C 43 4D 45 4D  20 B2 20 24 44 38 30 30  |...LCMEM . $D800|
00000090: 20 AB 20 34 30 00 A3 08  C8 00 52 30 4C 20 B2 20  | . 40.....R0L . |
000000A0: 24 46 42 00 B5 08 D2 00  52 30 48 20 B2 20 52 30  |$FB.....R0H . R0|
000000B0: 4C 20 AA 20 31 00 C7 08  DC 00 52 31 4C 20 B2 20  |L . 1.....R1L . |
000000C0: 52 30 48 20 AA 20 31 00  D9 08 E6 00 52 31 48 20  |R0H . 1.....R1H |
000000D0: B2 20 52 31 4C 20 AA 20  31 00 EA 08 F0 00 42 4B  |. R1L . 1.....BK|
000000E0: 47 BB 20 B2 20 24 44 30  32 31 00 F0 08 FA 00 3B  |G. . $D021.....;|
000000F0: 00 F6 08 04 01 3B 00 05  09 0E 01 4A 4D 50 20 49  |.....;.....JMP I|
00000100: 4E 49 54 20 3B 00 14 09  18 01 4A 4D 50 20 50 41  |NIT ;.....JMP PA|
00000110: 53 54 20 3B 00 1A 09 22  01 3B 00 20 09 2C 01 3B  |ST ;...".;. .,.;|
00000120: 00 3E 09 36 01 49 4E 49  54 20 4C 44 58 20 23 33  |.>.6.INIT LDX #3|
00000130: 20 3B 20 43 4F 50 59 20  C5 55 45 53 20 A4 00 5F  | ; COPY .UES .._|
00000140: 09 40 01 4C 31 20 4C 44  41 20 52 30 4C 2C 58 20  |.@.L1 LDA R0L,X |
00000150: 3B 20 20 4C 4F 43 41 4C  20 53 A4 52 41 47 45 00  |;  LOCAL S.RAGE.|
00000160: 71 09 4A 01 53 54 41 20  4C 4F 43 41 4C 2C 58 20  |q.J.STA LOCAL,X |
00000170: 3B 00 7B 09 54 01 44 45  58 20 3B 00 88 09 5E 01  |;.{.T.DEX ;...^.|
00000180: 42 50 4C 20 4C 31 20 3B  00 8E 09 68 01 3B 00 AF  |BPL L1 ;...h.;..|
00000190: 09 72 01 4C 44 41 20 52  31 4C 20 3B 20 8B 20 45  |.r.LDA R1L ; . E|
000001A0: 49 54 48 45 52 20 C3 47  54 48 20 B2 20 30 2C 00  |ITHER .GTH . 0,.|
000001B0: CE 09 7C 01 42 45 51 20  4F 4F 48 20 3B 20 20 A7  |..|.BEQ OOH ;  .|
000001C0: 20 45 58 49 54 2C 20 45  4C 53 45 20 4F 4B 00 DC  | EXIT, ELSE OK..|
000001D0: 09 86 01 4C 44 41 20 52  31 48 20 3B 00 EA 09 90  |...LDA R1H ;....|
000001E0: 01 42 4E 45 20 4F 4B 31  20 3B 00 F0 09 9A 01 3B  |.BNE OK1 ;.....;|
000001F0: 00 08 0A A4 01 4F 4F 48  20 52 54 53 20 3B 20 8E  |.....OOH RTS ; .|
00000200: 20 A4 20 42 41 53 49 43  00 0E 0A AE 01 3B 00 23  | . BASIC.....;.#|
00000210: 0A B8 01 4F 4B 31 20 44  45 43 20 43 4F 4C 55 4D  |...OK1 DEC COLUM|
00000220: 4E 20 3B 00 31 0A C2 01  44 45 43 20 52 4F 57 20  |N ;.1...DEC ROW |
00000230: 3B 00 37 0A CC 01 3B 00  41 0A D6 01 43 4C 43 20  |;.7...;.A...CLC |
00000240: 3B 00 63 0A E0 01 4C 44  41 20 58 43 20 3B 20 8B  |;.c...LDA XC ; .|
00000250: 20 58 AA 43 4F 4C 55 4D  4E B1 33 39 20 A7 20 45  | X.COLUMN.39 . E|
00000260: 52 52 B0 00 74 0A EA 01  41 44 43 20 43 4F 4C 55  |RR..t...ADC COLU|
00000270: 4D 4E 20 3B 00 82 0A F4  01 43 4D 50 20 23 34 30  |MN ;.....CMP #40|
00000280: 20 3B 00 90 0A FE 01 42  43 53 20 4F 4F 48 20 3B  | ;.....BCS OOH ;|
00000290: 00 AF 0A 08 02 4C 44 41  20 59 43 20 3B 20 8B 20  |.....LDA YC ; . |
000002A0: 59 AA 52 4F 57 B1 32 34  20 A7 20 45 52 52 B0 00  |Y.ROW.24 . ERR..|
000002B0: BD 0A 12 02 41 44 43 20  52 4F 57 20 3B 00 CB 0A  |....ADC ROW ;...|
000002C0: 1C 02 43 4D 50 20 23 32  35 20 3B 00 D9 0A 26 02  |..CMP #25 ;...&.|
000002D0: 42 43 53 20 4F 4F 48 20  3B 00 DF 0A 30 02 3B 00  |BCS OOH ;...0.;.|
000002E0: 03 0B 3A 02 4C 44 41 20  23 B1 4C 43 4D 45 4D 20  |..:.LDA #.LCMEM |
000002F0: 3B 20 49 4E 49 54 20 43  4F 4C B0 4D 45 4D 20 50  |; INIT COL.MEM P|
00000300: 4E 54 52 00 11 0B 44 02  53 54 41 20 52 30 48 20  |NTR...D.STA R0H |
00000310: 3B 00 23 0B 4E 02 4C 44  41 20 23 B3 4C 43 4D 45  |;.#.N.LDA #.LCME|
00000320: 4D 20 3B 00 31 0B 58 02  53 54 41 20 52 30 4C 20  |M ;.1.X.STA R0L |
00000330: 3B 00 4C 0B 62 02 4C 44  58 20 59 43 20 3B 20 58  |;.L.b.LDX YC ; X|
00000340: 20 B2 20 52 4F 57 20 43  4F 55 4E 54 00 52 0B 6C  | . ROW COUNT.R.l|
00000350: 02 3B 00 6E 0B 76 02 43  4C 43 20 3B 20 41 44 44  |.;.n.v.CLC ; ADD|
00000360: 20 49 4E 20 52 4F 57 20  4F 46 46 53 45 54 00 90  | IN ROW OFFSET..|
00000370: 0B 80 02 4C 32 20 4C 44  41 20 23 34 30 20 3B 20  |...L2 LDA #40 ; |
00000380: 20 A4 20 43 4F 4C B0 4D  45 4D 20 50 4F B5 45 52  | . COL.MEM PO.ER|
00000390: 00 9E 0B 8A 02 41 44 43  20 52 30 4C 20 3B 00 AC  |.....ADC R0L ;..|
000003A0: 0B 94 02 53 54 41 20 52  30 4C 20 3B 00 BA 0B 9E  |...STA R0L ;....|
000003B0: 02 42 43 43 20 4F 4B 32  20 3B 00 C8 0B A8 02 49  |.BCC OK2 ;.....I|
000003C0: 4E 43 20 52 30 48 20 3B  00 D2 0B B2 02 43 4C 43  |NC R0H ;.....CLC|
000003D0: 20 3B 00 E0 0B BC 02 4F  4B 32 20 44 45 58 20 3B  | ;.....OK2 DEX ;|
000003E0: 00 ED 0B C6 02 42 50 4C  20 4C 32 20 3B 00 F3 0B  |.....BPL L2 ;...|
000003F0: D0 02 3B 00 10 0C DA 02  4C 44 41 20 58 43 20 3B  |..;.....LDA XC ;|
00000400: 20 41 44 44 20 49 4E 20  58 AB 43 4F B0 44 20 A4  | ADD IN X.CO.D .|
00000410: 00 2D 0C E4 02 41 44 43  20 52 30 4C 20 3B 20 20  |.-...ADC R0L ;  |
00000420: 43 4F 4C B0 4D 45 4D 20  50 4F B5 45 52 00 3B 0C  |COL.MEM PO.ER.;.|
00000430: EE 02 53 54 41 20 52 30  4C 20 3B 00 49 0C F8 02  |..STA R0L ;.I...|
00000440: 42 43 43 20 4F 4B 33 20  3B 00 57 0C 02 03 49 4E  |BCC OK3 ;.W...IN|
00000450: 43 20 52 30 48 20 3B 00  7C 0C 0C 03 4F 4B 33 20  |C R0H ;.|...OK3 |
00000460: 4C 44 41 20 52 30 4C 20  3B 20 50 52 45 53 45 52  |LDA R0L ; PRESER|
00000470: 56 45 20 42 41 53 45 20  50 4E 54 52 00 8B 0C 16  |VE BASE PNTR....|
00000480: 03 53 54 41 20 54 45 4D  50 20 3B 00 99 0C 20 03  |.STA TEMP ;... .|
00000490: 4C 44 41 20 52 30 48 20  3B 00 AA 0C 2A 03 53 54  |LDA R0H ;...*.ST|
000004A0: 41 20 54 45 4D 50 AA 31  20 3B 00 B0 0C 34 03 3B  |A TEMP.1 ;...4.;|
000004B0: 00 D1 0C 3E 03 4C 44 59  20 23 30 20 3B 20 46 45  |...>.LDY #0 ; FE|
000004C0: 54 43 48 20 43 4F 4C B0  20 53 45 45 44 20 C5 55  |TCH COL. SEED .U|
000004D0: 45 00 E3 0C 48 03 4C 44  41 20 28 52 30 4C 29 2C  |E...H.LDA (R0L),|
000004E0: 59 20 3B 00 F3 0C 52 03  53 54 41 20 4D 41 49 4E  |Y ;...R.STA MAIN|
000004F0: 43 20 3B 00 F9 0C 5C 03  3B 00 21 0D 66 03 3B B2  |C ;...\.;.!.f.;.|
00000500: B2 B2 B2 B2 B2 B2 B2 B2  B2 B2 B2 B2 B2 B2 B2 B2  |................|
00000510: B2 B2 B2 B2 B2 B2 B2 B2  B2 B2 B2 B2 B2 B2 B2 B2  |................|
00000520: B2 00 27 0D 70 03 3B 00  4D 0D 7A 03 50 41 53 54  |..'.p.;.M.z.PAST|
00000530: 20 4C 44 41 20 54 45 4D  50 20 3B 20 49 4E 49 54  | LDA TEMP ; INIT|
00000540: 20 43 4F 4C B0 4D 45 4D  20 50 4E 54 52 00 5B 0D  | COL.MEM PNTR.[.|
00000550: 84 03 53 54 41 20 52 30  4C 20 3B 00 6C 0D 8E 03  |..STA R0L ;.l...|
00000560: 4C 44 41 20 54 45 4D 50  AA 31 20 3B 00 7A 0D 98  |LDA TEMP.1 ;.z..|
00000570: 03 53 54 41 20 52 30 48  20 3B 00 80 0D A2 03 3B  |.STA R0H ;.....;|
00000580: 00 A0 0D AC 03 4C 44 41  20 4D 41 49 4E 43 20 3B  |.....LDA MAINC ;|
00000590: 20 49 4E 49 54 20 43 4F  4C B0 20 C5 55 45 20 81  | INIT COL. .UE .|
000005A0: 00 BB 0D B6 03 53 54 41  20 43 4F 4C B0 20 3B 20  |.....STA COL. ; |
000005B0: 20 54 48 49 53 20 52 4F  55 4E 44 00 C1 0D C0 03  | THIS ROUND.....|
000005C0: 3B 00 E1 0D CA 03 44 45  43 20 4D 41 49 4E 43 20  |;.....DEC MAINC |
000005D0: 3B 20 55 50 44 41 54 45  20 43 4F 4C B0 20 C5 55  |; UPDATE COL. .U|
000005E0: 45 00 03 0E D4 03 3B 20  28 A8 45 3A 20 43 48 41  |E.....; (.E: CHA|
000005F0: 4E 47 45 20 27 44 45 43  27 20 A4 20 27 49 4E 43  |NGE 'DEC' . 'INC|
00000600: 27 20 A4 00 27 0E DE 03  3B 20 4D 4F 56 45 20 43  |' ..'...; MOVE C|
00000610: 4F 4C B0 53 20 43 4F 55  4E 54 45 52 AB 43 4C 4F  |OL.S COUNTER.CLO|
00000620: 43 4B 57 49 53 45 29 00  2D 0E E8 03 3B 00 4E 0E  |CKWISE).-...;.N.|
00000630: F2 03 4C 44 41 20 42 4B  47 BB 20 3B 20 46 45 54  |..LDA BKG. ; FET|
00000640: 43 48 20 42 41 43 4B 47  BB 20 43 4F 4C B0 00 6E  |CH BACKG. COL..n|
00000650: 0E FC 03 AF 20 23 31 35  20 3B 20 20 81 20 27 43  |.... #15 ;  . 'C|
00000660: 46 45 54 43 48 27 20 52  4F 55 54 49 4E 45 00 7E  |FETCH' ROUTINE.~|
00000670: 0E 06 04 53 54 41 20 42  54 45 4D 50 20 3B 00 84  |...STA BTEMP ;..|
00000680: 0E 10 04 3B 00 91 0E 1A  04 4C 44 59 20 23 30 20  |...;.....LDY #0 |
00000690: 3B 00 B6 0E 24 04 4C 44  58 20 43 4F 4C 55 4D 4E  |;...$.LDX COLUMN|
000006A0: 20 3B 20 23 20 43 48 41  52 41 43 54 45 52 53 20  | ; # CHARACTERS |
000006B0: 41 43 52 4F 53 53 00 BC  0E 2E 04 3B 00 E0 0E 38  |ACROSS.....;...8|
000006C0: 04 4C 33 20 4A 53 52 20  46 43 4F 4C B0 20 3B 20  |.L3 JSR FCOL. ; |
000006D0: 4D 4F 56 45 20 43 4F 4C  B0 20 4C 45 46 54 20 A4  |MOVE COL. LEFT .|
000006E0: 00 05 0F 42 04 53 54 41  20 28 52 30 4C 29 2C 59  |...B.STA (R0L),Y|
000006F0: 20 3B 20 20 52 49 47 48  54 20 41 4C 91 47 20 54  | ;  RIGHT AL.G T|
00000700: 48 45 20 A4 50 00 0F 0F  4C 04 49 4E 59 20 3B 00  |HE .P...L.INY ;.|
00000710: 19 0F 56 04 44 45 58 20  3B 00 26 0F 60 04 42 50  |..V.DEX ;.&.`.BP|
00000720: 4C 20 4C 33 20 3B 00 2C  0F 6A 04 3B 00 3A 0F 74  |L L3 ;.,.j.;.:.t|
00000730: 04 4C 44 58 20 52 4F 57  20 3B 00 44 0F 7E 04 44  |.LDX ROW ;.D.~.D|
00000740: 45 58 20 3B 00 55 0F 88  04 4C 44 59 20 43 4F 4C  |EX ;.U...LDY COL|
00000750: 55 4D 4E 20 3B 00 5B 0F  92 04 3B 00 7D 0F 9C 04  |UMN ;.[...;.}...|
00000760: 4C 34 20 4C 44 41 20 52  30 4C 20 3B 20 4D 4F 56  |L4 LDA R0L ; MOV|
00000770: 45 20 43 4F 4C B0 20 27  44 4F 57 4E 27 00 9C 0F  |E COL. 'DOWN'...|
00000780: A6 04 43 4C 43 20 3B 20  20 41 4C 91 47 20 54 48  |..CLC ;  AL.G TH|
00000790: 45 20 52 49 47 48 54 20  53 49 44 45 00 AA 0F B0  |E RIGHT SIDE....|
000007A0: 04 41 44 43 20 23 34 30  20 3B 00 B8 0F BA 04 53  |.ADC #40 ;.....S|
000007B0: 54 41 20 52 30 4C 20 3B  00 C6 0F C4 04 42 43 43  |TA R0L ;.....BCC|
000007C0: 20 4E 43 31 20 3B 00 D4  0F CE 04 49 4E 43 20 52  | NC1 ;.....INC R|
000007D0: 30 48 20 3B 00 E8 0F D8  04 4E 43 31 20 4A 53 52  |0H ;.....NC1 JSR|
000007E0: 20 46 43 4F 4C B0 20 3B  00 FA 0F E2 04 53 54 41  | FCOL. ;.....STA|
000007F0: 20 28 52 30 4C 29 2C 59  20 3B 00 04 10 EC 04 44  | (R0L),Y ;.....D|
00000800: 45 58 20 3B 00 11 10 F6  04 42 4E 45 20 4C 34 20  |EX ;.....BNE L4 |
00000810: 3B 00 17 10 00 05 3B 00  28 10 0A 05 4C 44 58 20  |;.....;.(...LDX |
00000820: 43 4F 4C 55 4D 4E 20 3B  00 32 10 14 05 54 58 41  |COLUMN ;.2...TXA|
00000830: 20 3B 00 3C 10 1E 05 43  4C 43 20 3B 00 4A 10 28  | ;.<...CLC ;.J.(|
00000840: 05 41 44 43 20 23 34 30  20 3B 00 54 10 32 05 54  |.ADC #40 ;.T.2.T|
00000850: 41 59 20 3B 00 5A 10 3C  05 3B 00 7B 10 46 05 44  |AY ;.Z.<.;.{.F.D|
00000860: 4C 20 4A 53 52 20 46 43  4F 4C B0 20 3B 20 4D 4F  |L JSR FCOL. ; MO|
00000870: 56 45 20 54 48 45 20 43  4F 4C B0 00 A0 10 50 05  |VE THE COL....P.|
00000880: 53 54 41 20 28 52 30 4C  29 2C 59 20 3B 20 20 52  |STA (R0L),Y ;  R|
00000890: 49 47 48 54 20 A4 20 4C  45 46 54 20 41 4C 91 47  |IGHT . LEFT AL.G|
000008A0: 00 B5 10 5A 05 44 45 59  20 3B 20 20 54 48 45 20  |...Z.DEY ;  THE |
000008B0: 42 4F 54 A4 4D 00 BF 10  64 05 44 45 58 20 3B 00  |BOT.M...d.DEX ;.|
000008C0: CC 10 6E 05 42 50 4C 20  44 4C 20 3B 00 D2 10 78  |..n.BPL DL ;...x|
000008D0: 05 3B 00 DF 10 82 05 4C  44 59 20 23 30 20 3B 00  |.;.....LDY #0 ;.|
000008E0: ED 10 8C 05 4C 44 58 20  52 4F 57 20 3B 00 F7 10  |....LDX ROW ;...|
000008F0: 96 05 44 45 58 20 3B 00  FD 10 A0 05 3B 00 21 11  |..DEX ;.....;.!.|
00000900: AA 05 46 49 4E 41 4C 20  4A 53 52 20 46 43 4F 4C  |..FINAL JSR FCOL|
00000910: B0 20 3B 20 4D 4F 56 45  20 54 48 45 20 43 4F 4C  |. ; MOVE THE COL|
00000920: B0 00 42 11 B4 05 53 54  41 20 28 52 30 4C 29 2C  |..B...STA (R0L),|
00000930: 59 20 3B 20 20 27 55 50  27 20 41 4C 91 47 20 54  |Y ;  'UP' AL.G T|
00000940: 48 45 00 5D 11 BE 05 4C  44 41 20 52 30 4C 20 3B  |HE.]...LDA R0L ;|
00000950: 20 20 4C 45 46 54 20 43  4F 4C 55 4D 4E 00 67 11  |  LEFT COLUMN.g.|
00000960: C8 05 53 45 43 20 3B 00  75 11 D2 05 53 42 43 20  |..SEC ;.u...SBC |
00000970: 23 34 30 20 3B 00 83 11  DC 05 53 54 41 20 52 30  |#40 ;.....STA R0|
00000980: 4C 20 3B 00 A4 11 E6 05  42 43 53 20 4E 42 B0 52  |L ;.....BCS NB.R|
00000990: 4F 57 20 3B 20 44 45 43  20 52 30 48 20 91 4C 59  |OW ; DEC R0H .LY|
000009A0: 20 8B 20 41 00 C7 11 F0  05 44 45 43 20 52 30 48  | . A.....DEC R0H|
000009B0: 20 3B 20 20 27 42 B0 52  4F 57 27 20 43 91 44 2E  | ;  'B.ROW' C.D.|
000009C0: 20 45 58 49 53 54 53 00  D6 11 FA 05 4E 42 B0 52  | EXISTS.....NB.R|
000009D0: 4F 57 20 44 45 58 00 E4  11 04 06 42 4E 45 20 46  |OW DEX.....BNE F|
000009E0: 49 4E 41 4C 00 EA 11 0E  06 3B 00 FE 11 18 06 52  |INAL.....;.....R|
000009F0: 54 53 20 3B 20 8E 20 A4  20 42 41 53 49 43 00 04  |TS ; . . BASIC..|
00000A00: 12 22 06 3B 00 26 12 2C  06 46 43 4F 4C B0 20 4C  |.".;.&.,.FCOL. L|
00000A10: 44 41 20 43 4F 4C B0 20  3B 20 27 46 45 54 43 48  |DA COL. ; 'FETCH|
00000A20: 20 43 4F 4C B0 27 00 44  12 36 06 49 4E 43 20 43  | COL.'.D.6.INC C|
00000A30: 4F 4C B0 20 3B 20 20 52  4F 55 54 49 4E 45 2C 20  |OL. ;  ROUTINE, |
00000A40: A1 53 20 82 00 62 12 40  06 AF 20 23 31 35 20 3B  |.S ..b.@.. #15 ;|
00000A50: 20 20 43 4F 4C B0 20 28  57 91 27 54 20 41 4C 4C  |  COL. (W.'T ALL|
00000A60: 4F 57 00 84 12 4A 06 43  4D 50 20 42 54 45 4D 50  |OW...J.CMP BTEMP|
00000A70: 20 3B 20 20 42 41 43 4B  47 52 4F 55 4E 44 20 43  | ;  BACKGROUND C|
00000A80: 4F 4C B0 29 00 94 12 54  06 42 45 51 20 46 43 4F  |OL.)...T.BEQ FCO|
00000A90: 4C B0 20 3B 00 9E 12 5E  06 52 54 53 20 3B 00 A4  |L. ;...^.RTS ;..|
00000AA0: 12 68 06 3B 00 BC 12 72  06 4C 4F 43 41 4C 20 2E  |.h.;...r.LOCAL .|
00000AB0: 42 59 54 45 20 30 2C 30  2C 30 2C 30 00 C2 12 7C  |BYTE 0,0,0,0...||
00000AC0: 06 3B 00 D1 12 86 06 58  43 20 B2 20 4C 4F 43 41  |.;.....XC . LOCA|
00000AD0: 4C 00 E2 12 90 06 59 43  20 B2 20 4C 4F 43 41 4C  |L.....YC . LOCAL|
00000AE0: AA 31 00 F7 12 9A 06 43  4F 4C 55 4D 4E 20 B2 20  |.1.....COLUMN . |
00000AF0: 4C 4F 43 41 4C AA 32 00  09 13 A4 06 52 4F 57 20  |LOCAL.2.....ROW |
00000B00: B2 20 4C 4F 43 41 4C AA  33 00 0F 13 AE 06 3B 00  |. LOCAL.3.....;.|
00000B10: 1F 13 B8 06 54 45 4D 50  20 2E 57 B0 44 20 30 00  |....TEMP .W.D 0.|
00000B20: 30 13 C2 06 43 4F 4C B0  20 2E 42 59 54 45 20 30  |0...COL. .BYTE 0|
00000B30: 00 42 13 CC 06 4D 41 49  4E 43 20 2E 42 59 54 45  |.B...MAINC .BYTE|
00000B40: 20 30 00 54 13 D6 06 42  54 45 4D 50 20 2E 42 59  | 0.T...BTEMP .BY|
00000B50: 54 45 20 30 00 00 00                              |TE 0...         |

....D..700...N.;...X..OPT OO."...;.H...;
 'COL. CHASER', BY SCOTT E. RESH.N...;.T
. .;.X...; CODE WILL BE AT $C000 (49152)
.~...;.....LCMEM . $D800 . 40...H.R0L . 
$FB...R.R0H . R0L . 1.G...R1L . R0H . 1.
Y...R1H . R1L . 1.....BKG. . $D021.....;
.....;.....JMP INIT ;.....JMP PAST ;..."
.;. .,.;.>.6.INIT LDX #3 ; COPY EUES .._
.@.L1 LDA R0L,X ;  LOCAL S.RAGE.Q.J.STA 
LOCAL,X ;.{.T.DEX ;...^.BPL L1 ;...H.;..
.R.LDA R1L ; . EITHER CGTH . 0,.N.|.BEQ 
OOH ;  . EXIT, ELSE OK.....LDA R1H ;....
.BNE OK1 ;.....;.....OOH RTS ; . . BASIC
.....;.#...OK1 DEC COLUMN ;.1.B.DEC ROW 
;.7.L.;.A.V.CLC ;.C...LDA XC ; . X.COLUM
N.39 . ERR..T...ADC COLUMN ;.....CMP #40
 ;.....BCS OOH ;.....LDA YC ; . Y.ROW.24
 . ERR......ADC ROW ;.K...CMP #25 ;.Y.&.
BCS OOH ;...0.;...:.LDA #.LCMEM ; INIT C
OL.MEM PNTR...D.STA R0H ;.#.N.LDA #.LCME
M ;.1.X.STA R0L ;.L.B.LDX YC ; X . ROW C
OUNT.R.L.;.N.V.CLC ; ADD IN ROW OFFSET..
...L2 LDA #40 ;  . COL.MEM PO.ER.....ADC
 R0L ;.....STA R0L ;.....BCC OK2 ;.H...I
NC R0H ;.R...CLC ;.....OK2 DEX ;...F.BPL
 L2 ;...P.;...Z.LDA XC ; ADD IN X.CO.D .
.-...ADC R0L ;  COL.MEM PO.ER.;...STA R0
L ;.I...BCC OK3 ;.W...INC R0H ;.|...OK3 
LDA R0L ; PRESERVE BASE PNTR.....STA TEM
P ;... .LDA R0H ;...*.STA TEMP.1 ;...4.;
.Q.>.LDY #0 ; FETCH COL. SEED EUE...H.LD
A (R0L),Y ;...R.STA MAINC ;...\.;.!.F.;.
..................................'.P.;.
M.Z.PAST LDA TEMP ; INIT COL.MEM PNTR.[.
..STA R0L ;.L...LDA TEMP.1 ;.Z...STA R0H
 ;.....;. ...LDA MAINC ; INIT COL. EUE .
.....STA COL. ;  THIS ROUND.A...;...J.DE
C MAINC ; UPDATE COL. EUE...T.; (.E: CHA
NGE 'DEC' . 'INC' ..'...; MOVE COL.S COU
NTER.CLOCKWISE).-...;.N...LDA BKG. ; FET
CH BACKG. COL..N.... #15 ;  . 'CFETCH' R
OUTINE.~...STA BTEMP ;.....;.....LDY #0 
;...$.LDX COLUMN ; # CHARACTERS ACROSS..
...;...8.L3 JSR FCOL. ; MOVE COL. LEFT .
...B.STA (R0L),Y ;  RIGHT AL.G THE .P...
L.INY ;...V.DEX ;.&.`.BPL L3 ;.,.J.;.:.T
.LDX ROW ;.D.~.DEX ;.U...LDY COLUMN ;.[.
..;.}...L4 LDA R0L ; MOVE COL. 'DOWN'...
..CLC ;  AL.G THE RIGHT SIDE.....ADC #40
 ;.....STA R0L ;.F.D.BCC NC1 ;.T.N.INC R
0H ;...X.NC1 JSR FCOL. ;.....STA (R0L),Y
 ;.....DEX ;.....BNE L4 ;.....;.(...LDX 
COLUMN ;.2...TXA ;.<...CLC ;.J.(.ADC #40
 ;.T.2.TAY ;.Z.<.;.{.F.DL JSR FCOL. ; MO
VE THE COL.. .P.STA (R0L),Y ;  RIGHT . L
EFT AL.G...Z.DEY ;  THE BOT.M...D.DEX ;.
L.N.BPL DL ;.R.X.;.....LDY #0 ;.....LDX 
ROW ;.....DEX ;... .;.!...FINAL JSR FCOL
. ; MOVE THE COL..B...STA (R0L),Y ;  'UP
' AL.G THE.]...LDA R0L ;  LEFT COLUMN.G.
H.SEC ;.U.R.SBC #40 ;.....STA R0L ;.....
BCS NB.ROW ; DEC R0H .LY . A.G...DEC R0H
 ;  'B.ROW' C.D. EXISTS.V...NB.ROW DEX..
...BNE FINAL.....;.....RTS ; . . BASIC..
.".;.&.,.FCOL. LDA COL. ; 'FETCH COL.'.D
.6.INC COL. ;  ROUTINE, .S ..B.@.. #15 ;
  COL. (W.'T ALLOW...J.CMP BTEMP ;  BACK
GROUND COL.)...T.BEQ FCOL. ;...^.RTS ;..
.H.;...R.LOCAL .BYTE 0,0,0,0.B.|.;.Q...X
C . LOCAL.....YC . LOCAL.1.....COLUMN . 
LOCAL.2.....ROW . LOCAL.3.....;.....TEMP
 .W.D 0.0.B.COL. .BYTE 0.B.L.MAINC .BYTE
 0.T.V.BTEMP .BYTE 0...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL