HIRESCLEAR.O
FILE INFORMATION
FILENAME(S): HIRESCLEAR.O
FILE TYPE(S): DEL
FILE SIZE: 3.5K
FIRST SEEN: 2025-12-01 19:06:55
APPEARS ON: 1 disk(s)
FILE HASH
cdce45506408845586b4476ec29826cf5cfe2c5c7773d0705e250859d2f5bd05
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE DISK 28 | HIRESCLEAR.O | DEL | Icebreaker | 11 | 12 |
⚠ CORRUPT DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 64 78 20 23 30 0D 20 6C 64 61 20 23 30 0D 6C 6F |dx #0. lda #0.lo| 00000010: 6F 70 30 20 73 74 61 20 74 61 67 66 6C 61 67 2C |op0 sta tagflag,| 00000020: 78 0D 20 69 6E 78 0D 20 63 70 78 20 23 30 0D 20 |x. inx. cpx #0. | 00000030: 62 6E 65 20 6C 6F 6F 70 30 0D 20 6C 64 61 20 23 |bne loop0. lda #| 00000040: 36 0D 20 73 74 61 20 35 33 32 38 31 0D 20 6C 64 |6. sta 53281. ld| 00000050: 61 20 23 31 34 0D 20 73 74 61 20 35 33 32 38 30 |a #14. sta 53280| 00000060: 0D 20 6C 64 78 20 23 30 0D 6C 6F 6F 70 31 20 6C |. ldx #0.loop1 l| 00000070: 64 61 20 6D 65 73 73 2C 78 0D 20 63 6D 70 20 23 |da mess,x. cmp #| 00000080: 33 36 0D 20 62 65 71 20 6E 65 78 74 31 0D 20 6A |36. beq next1. j| 00000090: 73 72 20 24 66 66 64 32 0D 20 69 6E 78 0D 20 6A |sr $ffd2. inx. j| 000000A0: 6D 70 20 6C 6F 6F 70 31 0D 6E 65 78 74 31 20 6C |mp loop1.next1 l| 000000B0: 64 78 20 23 30 0D 6C 6F 6F 70 32 20 6C 64 61 20 |dx #0.loop2 lda | 000000C0: 6D 65 73 73 32 2C 78 0D 20 63 6D 70 20 23 33 36 |mess2,x. cmp #36| 000000D0: 0D 20 62 65 71 20 6D 61 69 6E 0D 20 6A 73 72 20 |. beq main. jsr | 000000E0: 24 66 66 64 32 0D 20 69 6E 78 0D 20 6A 6D 70 20 |$ffd2. inx. jmp | 000000F0: 6C 6F 6F 70 32 0D 6D 61 69 6E 20 6A 73 72 20 61 |loop2.main jsr a| 00000100: 73 73 67 6E 0D 20 6A 73 72 20 69 6E 70 75 74 0D |ssgn. jsr input.| 00000110: 20 6A 73 72 20 64 65 6C 61 79 0D 20 6A 6D 70 20 | jsr delay. jmp | 00000120: 6D 61 69 6E 0D 61 73 73 67 6E 20 6C 64 61 20 23 |main.assgn lda #| 00000130: 31 36 30 0D 20 73 74 61 20 35 33 32 34 38 0D 20 |160. sta 53248. | 00000140: 6C 64 61 20 23 31 31 30 0D 20 73 74 61 20 35 33 |lda #110. sta 53| 00000150: 32 34 39 0D 20 6C 64 61 20 23 31 0D 20 73 74 61 |249. lda #1. sta| 00000160: 20 35 33 32 36 39 0D 20 73 74 61 20 35 35 35 38 | 53269. sta 5558| 00000170: 33 0D 20 6C 64 61 20 78 73 70 61 6E 64 0D 20 73 |3. lda xspand. s| 00000180: 74 61 20 35 33 32 37 37 0D 20 6C 64 61 20 79 73 |ta 53277. lda ys| 00000190: 70 61 6E 64 0D 20 73 74 61 20 35 33 32 37 31 0D |pand. sta 53271.| 000001A0: 20 6C 64 61 20 73 70 72 63 6F 6C 0D 20 73 74 61 | lda sprcol. sta| 000001B0: 20 35 33 32 38 37 0D 20 6C 64 61 20 6D 63 30 63 | 53287. lda mc0c| 000001C0: 6F 6C 0D 20 73 74 61 20 35 33 32 38 35 0D 20 6C |ol. sta 53285. l| 000001D0: 64 61 20 6D 63 31 63 6F 6C 0D 20 73 74 61 20 35 |da mc1col. sta 5| 000001E0: 33 32 38 36 0D 20 6C 64 61 20 6D 63 6D 6F 64 65 |3286. lda mcmode| 000001F0: 0D 20 73 74 61 20 35 33 32 37 36 0D 20 6C 64 61 |. sta 53276. lda| 00000200: 20 62 6C 6F 63 6B 0D 20 73 74 61 20 32 30 34 30 | block. sta 2040| 00000210: 0D 20 73 74 61 20 31 33 31 31 0D 20 74 61 78 0D |. sta 1311. tax.| 00000220: 20 6C 64 61 20 74 61 67 66 6C 61 67 2C 78 0D 20 | lda tagflag,x. | 00000230: 63 6D 70 20 23 31 0D 20 62 6E 65 20 6F 6B 67 6F |cmp #1. bne okgo| 00000240: 0D 20 6C 64 61 20 23 34 32 0D 20 73 74 61 20 31 |. lda #42. sta 1| 00000250: 34 34 38 0D 20 6C 64 61 20 23 31 0D 20 73 74 61 |448. lda #1. sta| 00000260: 20 35 35 37 32 30 0D 20 6A 6D 70 20 62 61 63 6B | 55720. jmp back| 00000270: 0D 6F 6B 67 6F 20 6C 64 61 20 23 33 32 0D 20 73 |.okgo lda #32. s| 00000280: 74 61 20 31 34 34 38 0D 62 61 63 6B 20 6C 64 61 |ta 1448.back lda| 00000290: 20 73 70 72 63 6F 6C 0D 20 63 6C 63 0D 20 61 64 | sprcol. clc. ad| 000002A0: 63 20 73 70 72 63 6F 6C 0D 20 74 61 78 0D 20 6C |c sprcol. tax. l| 000002B0: 64 61 20 23 31 32 32 0D 20 73 74 61 20 31 31 34 |da #122. sta 114| 000002C0: 38 2C 78 0D 20 6C 64 61 20 23 31 0D 20 73 74 61 |8,x. lda #1. sta| 000002D0: 20 35 35 34 32 30 2C 78 0D 20 63 70 78 20 23 30 | 55420,x. cpx #0| 000002E0: 0D 20 62 65 71 20 64 65 6C 65 6E 64 31 0D 20 64 |. beq delend1. d| 000002F0: 65 78 0D 20 64 65 78 0D 20 6C 64 61 20 23 33 32 |ex. dex. lda #32| 00000300: 0D 20 73 74 61 20 31 31 34 38 2C 78 0D 20 6A 6D |. sta 1148,x. jm| 00000310: 70 20 64 6F 6D 63 30 0D 64 65 6C 65 6E 64 31 20 |p domc0.delend1 | 00000320: 6C 64 78 20 23 33 30 0D 20 6C 64 61 20 23 33 32 |ldx #30. lda #32| 00000330: 0D 20 73 74 61 20 31 31 34 38 2C 78 0D 64 6F 6D |. sta 1148,x.dom| 00000340: 63 30 20 6C 64 61 20 6D 63 30 63 6F 6C 0D 20 63 |c0 lda mc0col. c| 00000350: 6C 63 0D 20 61 64 63 20 6D 63 30 63 6F 6C 0D 20 |lc. adc mc0col. | 00000360: 74 61 78 0D 20 6C 64 61 20 23 31 32 32 0D 20 73 |tax. lda #122. s| 00000370: 74 61 20 31 31 38 38 2C 78 0D 20 6C 64 61 20 23 |ta 1188,x. lda #| 00000380: 31 0D 20 73 74 61 20 35 35 34 36 30 2C 78 0D 20 |1. sta 55460,x. | 00000390: 63 70 78 20 23 30 0D 20 62 65 71 20 64 65 6C 65 |cpx #0. beq dele| 000003A0: 6E 64 32 0D 20 64 65 78 0D 20 64 65 78 0D 20 6C |nd2. dex. dex. l| 000003B0: 64 61 20 23 33 32 0D 20 73 74 61 20 31 31 38 38 |da #32. sta 1188| 000003C0: 2C 78 0D 20 6A 6D 70 20 64 6F 6D 63 31 0D 64 65 |,x. jmp domc1.de| 000003D0: 6C 65 6E 64 32 20 6C 64 78 20 23 33 30 0D 20 6C |lend2 ldx #30. l| 000003E0: 64 61 20 23 33 32 0D 20 73 74 61 20 31 31 38 38 |da #32. sta 1188| 000003F0: 2C 78 0D 64 6F 6D 63 31 20 6C 64 61 20 6D 63 31 |,x.domc1 lda mc1| 00000400: 63 6F 6C 0D 20 63 6C 63 0D 20 61 64 63 20 6D 63 |col. clc. adc mc| 00000410: 31 63 6F 6C 0D 20 74 61 78 0D 20 6C 64 61 20 23 |1col. tax. lda #| 00000420: 31 32 32 0D 20 73 74 61 20 31 32 32 38 2C 78 0D |122. sta 1228,x.| 00000430: 20 6C 64 61 20 23 31 0D 20 73 74 61 20 35 35 35 | lda #1. sta 555| 00000440: 30 30 2C 78 0D 20 63 70 78 20 23 30 0D 20 62 65 |00,x. cpx #0. be| 00000450: 71 20 64 65 6C 65 6E 64 33 0D 20 64 65 78 0D 20 |q delend3. dex. | 00000460: 64 65 78 0D 20 6C 64 61 20 23 33 32 0D 20 73 74 |dex. lda #32. st| 00000470: 61 20 31 32 32 38 2C 78 0D 20 6A 6D 70 20 61 72 |a 1228,x. jmp ar| 00000480: 67 0D 64 65 6C 65 6E 64 33 20 6C 64 78 20 23 33 |g.delend3 ldx #3| 00000490: 30 0D 20 6C 64 61 20 23 33 32 0D 20 73 74 61 20 |0. lda #32. sta | 000004A0: 31 32 32 38 2C 78 0D 61 72 67 20 72 74 73 0D 69 |1228,x.arg rts.i| 000004B0: 6E 70 75 74 20 6C 64 61 20 31 39 37 0D 20 63 6D |nput lda 197. cm| 000004C0: 70 20 23 35 36 0D 20 62 6E 65 20 6E 65 78 74 32 |p #56. bne next2| 000004D0: 0D 20 6C 64 78 20 73 70 72 63 6F 6C 0D 20 69 6E |. ldx sprcol. in| 000004E0: 78 0D 20 63 70 78 20 23 31 36 0D 20 62 6E 65 20 |x. cpx #16. bne | 000004F0: 6E 6F 66 6C 6F 70 31 0D 20 6C 64 78 20 23 30 0D |noflop1. ldx #0.| 00000500: 6E 6F 66 6C 6F 70 31 20 73 74 78 20 73 70 72 63 |noflop1 stx sprc| 00000510: 6F 6C 0D 6E 65 78 74 32 20 63 6D 70 20 23 35 39 |ol.next2 cmp #59| 00000520: 0D 20 62 6E 65 20 6E 65 78 74 33 0D 20 6C 64 78 |. bne next3. ldx| 00000530: 20 6D 63 30 63 6F 6C 0D 20 69 6E 78 0D 20 63 70 | mc0col. inx. cp| 00000540: 78 20 23 31 36 0D 20 62 6E 65 20 6E 6F 66 6C 6F |x #16. bne noflo| 00000550: 70 32 0D 20 6C 64 78 20 23 30 0D 6E 6F 66 6C 6F |p2. ldx #0.noflo| 00000560: 70 32 20 73 74 78 20 6D 63 30 63 6F 6C 0D 6E 65 |p2 stx mc0col.ne| 00000570: 78 74 33 20 63 6D 70 20 23 38 0D 20 62 6E 65 20 |xt3 cmp #8. bne | 00000580: 6E 65 78 74 34 0D 20 6C 64 78 20 6D 63 31 63 6F |next4. ldx mc1co| 00000590: 6C 0D 20 69 6E 78 0D 20 63 70 78 20 23 31 36 0D |l. inx. cpx #16.| 000005A0: 20 62 6E 65 20 6E 6F 66 6C 6F 70 33 0D 20 6C 64 | bne noflop3. ld| 000005B0: 78 20 23 30 0D 6E 6F 66 6C 6F 70 33 20 73 74 78 |x #0.noflop3 stx| 000005C0: 20 6D 63 31 63 6F 6C 0D 6E 65 78 74 34 20 63 6D | mc1col.next4 cm| 000005D0: 70 20 23 35 0D 20 62 6E 65 20 6E 65 78 74 35 0D |p #5. bne next5.| 000005E0: 20 69 6E 63 20 35 33 32 38 31 0D 6E 65 78 74 35 | inc 53281.next5| 000005F0: 20 63 6D 70 20 23 36 0D 20 62 6E 65 20 6E 65 78 | cmp #6. bne nex| 00000600: 74 36 0D 20 69 6E 63 20 35 33 32 38 30 0D 6E 65 |t6. inc 53280.ne| 00000610: 78 74 36 20 63 6D 70 20 23 31 37 0D 20 62 6E 65 |xt6 cmp #17. bne| 00000620: 20 6E 65 78 74 37 0D 20 6C 64 78 20 23 36 0D 20 | next7. ldx #6. | 00000630: 73 74 78 20 35 33 32 38 31 0D 20 6C 64 78 20 23 |stx 53281. ldx #| 00000640: 31 34 0D 20 73 74 78 20 35 33 32 38 30 0D 6E 65 |14. stx 53280.ne| 00000650: 78 74 37 20 63 6D 70 20 23 34 30 0D 20 62 6E 65 |xt7 cmp #40. bne| 00000660: 20 6E 65 78 74 38 0D 20 6C 64 78 20 23 31 0D 20 | next8. ldx #1. | 00000670: 73 74 78 20 78 73 70 61 6E 64 0D 6E 65 78 74 38 |stx xspand.next8| 00000680: 20 63 6D 70 20 23 34 33 0D 20 62 6E 65 20 6E 65 | cmp #43. bne ne| 00000690: 78 74 39 0D 20 6C 64 78 20 23 30 0D 20 73 74 78 |xt9. ldx #0. stx| 000006A0: 20 78 73 70 61 6E 64 0D 6E 65 78 74 39 20 63 6D | xspand.next9 cm| 000006B0: 70 20 23 34 36 0D 20 62 6E 65 20 6E 65 78 74 31 |p #46. bne next1| 000006C0: 30 0D 20 6C 64 78 20 23 31 0D 20 73 74 78 20 79 |0. ldx #1. stx y| 000006D0: 73 70 61 6E 64 0D 6E 65 78 74 31 30 20 63 6D 70 |spand.next10 cmp| 000006E0: 20 23 34 39 0D 20 62 6E 65 20 6E 65 78 74 31 31 | #49. bne next11| 000006F0: 0D 20 6C 64 78 20 23 30 0D 20 73 74 78 20 79 73 |. ldx #0. stx ys| 00000700: 70 61 6E 64 0D 6E 65 78 74 31 31 20 63 6D 70 20 |pand.next11 cmp | 00000710: 23 32 0D 20 62 6E 65 20 6E 65 78 74 31 32 0D 20 |#2. bne next12. | 00000720: 69 6E 63 20 62 6C 6F 63 6B 0D 6E 65 78 74 31 32 |inc block.next12| 00000730: 20 63 6D 70 20 23 37 0D 20 62 6E 65 20 6E 65 78 | cmp #7. bne nex| 00000740: 74 31 33 0D 20 64 65 63 20 62 6C 6F 63 6B 0D 6E |t13. dec block.n| 00000750: 65 78 74 31 33 20 63 6D 70 20 23 35 31 0D 20 62 |ext13 cmp #51. b| 00000760: 6E 65 20 6E 65 78 74 31 34 0D 20 6C 64 78 20 23 |ne next14. ldx #| 00000770: 30 0D 20 73 74 78 20 6D 63 6D 6F 64 65 0D 6E 65 |0. stx mcmode.ne| 00000780: 78 74 31 34 20 63 6D 70 20 23 30 0D 20 62 6E 65 |xt14 cmp #0. bne| 00000790: 20 6E 65 78 74 31 35 0D 20 6C 64 78 20 23 31 0D | next15. ldx #1.| 000007A0: 20 73 74 78 20 6D 63 6D 6F 64 65 0D 6E 65 78 74 | stx mcmode.next| 000007B0: 31 35 20 63 6D 70 20 23 36 33 0D 20 62 6E 65 20 |15 cmp #63. bne | 000007C0: 6E 65 78 74 31 36 0D 20 6A 6D 70 20 36 34 37 33 |next16. jmp 6473| 000007D0: 38 0D 6E 65 78 74 31 36 20 63 6D 70 20 23 31 33 |8.next16 cmp #13| 000007E0: 0D 20 62 65 71 20 73 61 76 65 69 74 0D 20 6A 6D |. beq saveit. jm| 000007F0: 70 20 6E 65 78 74 31 37 0D 73 61 76 65 69 74 20 |p next17.saveit | 00000800: 6E 6F 70 20 3B 73 61 76 65 0D 6E 65 78 74 31 37 |nop ;save.next17| 00000810: 20 63 6D 70 20 23 34 0D 20 62 6E 65 20 6E 65 78 | cmp #4. bne nex| 00000820: 74 31 38 0D 20 6C 64 78 20 62 6C 6F 63 6B 0D 20 |t18. ldx block. | 00000830: 6C 64 61 20 23 31 0D 20 73 74 61 20 74 61 67 66 |lda #1. sta tagf| 00000840: 6C 61 67 2C 78 0D 6E 65 78 74 31 38 20 63 6D 70 |lag,x.next18 cmp| 00000850: 20 23 33 0D 20 62 6E 65 20 6E 65 78 74 31 39 0D | #3. bne next19.| 00000860: 20 6C 64 78 20 62 6C 6F 63 6B 0D 20 6C 64 61 20 | ldx block. lda | 00000870: 23 30 0D 20 73 74 61 20 74 61 67 66 6C 61 67 2C |#0. sta tagflag,| 00000880: 78 0D 6E 65 78 74 31 39 20 72 74 73 0D 64 65 6C |x.next19 rts.del| 00000890: 61 79 20 6C 64 78 20 23 30 0D 69 6E 6E 65 72 20 |ay ldx #0.inner | 000008A0: 6C 64 79 20 23 30 0D 74 75 62 65 20 69 6E 79 0D |ldy #0.tube iny.| 000008B0: 20 63 70 79 20 23 32 35 35 0D 20 62 6E 65 20 74 | cpy #255. bne t| 000008C0: 75 62 65 0D 20 69 6E 78 0D 20 63 70 78 20 23 32 |ube. inx. cpx #2| 000008D0: 35 0D 20 62 6E 65 20 69 6E 6E 65 72 0D 20 72 74 |5. bne inner. rt| 000008E0: 73 0D 6D 65 73 73 20 64 66 62 20 31 34 37 2C 35 |s.mess dfb 147,5| 000008F0: 2C 31 34 2C 38 0D 20 74 78 74 20 27 A0 A0 A0 A0 |,14,8. txt '....| 00000900: 42 A0 57 A0 52 A0 43 A0 50 A0 47 A0 42 A0 59 A0 |B.W.R.C.P.G.B.Y.| 00000910: 4F A0 42 A0 52 A0 47 A0 47 A0 47 A0 42 A0 47 27 |O.B.R.G.G.G.B.G'| 00000920: 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 A0 |. dfb 13. txt '.| 00000930: A0 A0 A0 4C A0 48 A0 45 A0 59 A0 55 A0 52 A0 4C |...L.H.E.Y.U.R.L| 00000940: A0 45 A0 52 A0 52 A0 44 A0 59 A0 59 A0 52 A0 4C |.E.R.R.D.Y.Y.R.L| 00000950: A0 59 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 |.Y'. dfb 13. txt| 00000960: 20 27 A0 A0 A0 A0 4B A0 54 A0 44 A0 4E A0 52 A0 | '....K.T.D.N.R.| 00000970: 4E A0 55 A0 4C A0 47 A0 4E A0 32 A0 31 A0 32 A0 |N.U.L.G.N.2.1.2.| 00000980: 32 A0 32 A0 33 27 0D 20 64 66 62 20 31 33 0D 20 |2.2.3'. dfb 13. | 00000990: 74 78 74 20 27 53 50 52 3A 27 0D 20 64 66 62 20 |txt 'SPR:'. dfb | 000009A0: 31 33 0D 20 74 78 74 20 27 4D 43 30 3A 27 0D 20 |13. txt 'MC0:'. | 000009B0: 64 66 62 20 31 33 0D 20 74 78 74 20 27 4D 43 31 |dfb 13. txt 'MC1| 000009C0: 3A 27 0D 20 64 66 62 20 31 33 2C 31 33 0D 20 74 |:'. dfb 13,13. t| 000009D0: 78 74 20 27 62 4C 4F 43 4B 3A 27 0D 20 64 66 62 |xt 'bLOCK:'. dfb| 000009E0: 20 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 2C | 13,13,13,13,13,| 000009F0: 31 33 2C 31 33 0D 20 74 78 74 20 27 72 4F 54 41 |13,13. txt 'rOTA| 00000A00: 54 45 A0 42 4C 4F 43 4B A0 55 50 2F 44 4F 57 4E |TE.BLOCK.UP/DOWN| 00000A10: 3A A0 63 72 73 72 A0 64 6E 2F 63 72 73 72 A0 72 |:.crsr.dn/crsr.r| 00000A20: 67 68 74 27 0D 20 64 66 62 20 31 33 0D 20 74 78 |ght'. dfb 13. tx| 00000A30: 74 20 27 63 48 41 4E 47 45 A0 53 50 52 49 54 45 |t 'cHANGE.SPRITE| 00000A40: A0 43 4F 4C 4F 52 3A A0 31 27 0D 20 64 66 62 20 |.COLOR:.1'. dfb | 00000A50: 31 33 0D 20 74 78 74 20 27 63 48 41 4E 47 45 A0 |13. txt 'cHANGE.| 00000A60: 4D 55 4C 54 49 43 4F 4C 4F 52 30 3A A0 32 27 0D |MULTICOLOR0:.2'.| 00000A70: 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 63 48 | dfb 13. txt 'cH| 00000A80: 41 4E 47 45 A0 4D 55 4C 54 49 43 4F 4C 4F 52 31 |ANGE.MULTICOLOR1| 00000A90: 3A A0 33 24 27 0D 6D 65 73 73 32 20 64 66 62 20 |:.3$'.mess2 dfb | 00000AA0: 31 33 0D 20 74 78 74 20 27 65 58 50 41 4E 44 2F |13. txt 'eXPAND/| 00000AB0: 43 4F 4E 54 52 41 43 54 A0 78 2D 41 58 49 53 3A |CONTRACT.x-AXIS:| 00000AC0: A0 2B 2F 2D 27 0D 20 64 66 62 20 31 33 0D 20 74 |.+/-'. dfb 13. t| 00000AD0: 78 74 20 27 65 58 50 41 4E 44 2F 43 4F 4E 54 52 |xt 'eXPAND/CONTR| 00000AE0: 41 43 54 A0 79 2D 41 58 49 53 3A A0 40 2F 2A 27 |ACT.y-AXIS:.@/*'| 00000AF0: 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 74 |. dfb 13. txt 't| 00000B00: 61 67 2F 75 6E 74 61 67 A0 42 4C 4F 43 4B 3A A0 |ag/untag.BLOCK:.| 00000B10: 66 31 2F 66 37 27 0D 20 64 66 62 20 31 33 0D 20 |f1/f7'. dfb 13. | 00000B20: 74 78 74 20 27 69 4E 43 52 45 4D 45 4E 54 A0 42 |txt 'iNCREMENT.B| 00000B30: 41 43 4B 47 4E 44 2F 42 4F 52 44 45 52 A0 43 4F |ACKGND/BORDER.CO| 00000B40: 4C 4F 52 3A A0 66 33 2F 66 35 27 0D 20 64 66 62 |LOR:.f3/f5'. dfb| 00000B50: 20 31 33 0D 20 74 78 74 20 27 6D 55 4C 54 49 43 | 13. txt 'mULTIC| 00000B60: 4F 4C 4F 52 A0 4D 4F 44 45 A0 4F 46 46 2F 4F 4E |OLOR.MODE.OFF/ON| 00000B70: 3A A0 68 6F 6D 65 2F 64 65 6C 27 0D 20 64 66 62 |:.home/del'. dfb| 00000B80: 20 31 33 0D 20 74 78 74 20 27 72 45 53 54 4F 52 | 13. txt 'rESTOR| 00000B90: 45 A0 42 41 43 4B 47 4E 44 A0 26 A0 42 4F 52 44 |E.BACKGND.&.BORD| 00000BA0: 45 52 A0 43 4F 4C 4F 52 53 3A A0 72 27 0D 20 64 |ER.COLORS:.r'. d| 00000BB0: 66 62 20 31 33 0D 20 74 78 74 20 27 73 41 56 45 |fb 13. txt 'sAVE| 00000BC0: 3A A0 73 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |:.s.............| 00000BD0: A0 A0 71 55 49 54 3A A0 72 75 6E 2F 73 74 6F 70 |..qUIT:.run/stop| 00000BE0: 27 0D 20 64 66 62 20 31 0B 34 36 0F 0F 0F 0F 0F |'. dfb 1.46.....| 00000BF0: 0F 0F 0F FF FF 07 0B 03 64 78 20 23 30 0D 20 6C |........dx #0. l| 00000C00: 64 61 20 23 30 0D 6C 6F 6F 70 30 20 73 74 61 20 |da #0.loop0 sta | 00000C10: 74 61 67 66 6C 61 67 2C 78 0D 20 69 6E 78 0D 20 |tagflag,x. inx. | 00000C20: 63 70 78 20 23 30 0D 20 62 6E 65 20 6C 6F 6F 70 |cpx #0. bne loop| 00000C30: 30 0D 20 6C 64 61 20 23 36 0D 20 73 74 61 20 35 |0. lda #6. sta 5| 00000C40: 33 32 38 31 0D 20 6C 64 61 20 23 31 34 0D 20 73 |3281. lda #14. s| 00000C50: 74 61 20 35 33 32 38 30 0D 20 6C 64 78 20 23 30 |ta 53280. ldx #0| 00000C60: 0D 6C 6F 6F 70 31 20 6C 64 61 20 6D 65 73 73 2C |.loop1 lda mess,| 00000C70: 78 0D 20 63 6D 70 20 23 33 36 0D 20 62 65 71 20 |x. cmp #36. beq | 00000C80: 6E 65 78 74 31 0D 20 6A 73 72 20 24 66 66 64 32 |next1. jsr $ffd2| 00000C90: 0D 20 69 6E 78 0D 20 6A 6D 70 20 6C 6F 6F 70 31 |. inx. jmp loop1| 00000CA0: 0D 6E 65 78 74 31 20 6C 64 78 20 23 30 0D 6C 6F |.next1 ldx #0.lo| 00000CB0: 6F 70 32 20 6C 64 61 20 6D 65 73 73 32 2C 78 0D |op2 lda mess2,x.| 00000CC0: 20 63 6D 70 20 23 33 36 0D 20 62 65 71 20 6D 61 | cmp #36. beq ma| 00000CD0: 69 6E 0D 20 6A 73 72 20 24 66 66 64 32 0D 20 69 |in. jsr $ffd2. i| 00000CE0: 6E 78 0D 20 6A 6D 01 01 01 01 01 01 01 01 01 01 |nx. jm..........| 00000CF0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D00: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D10: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D20: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D30: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D40: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D50: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D60: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D70: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D80: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000D90: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000DA0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000DB0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000DC0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000DD0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000DE0: 01 01 01 01 |.... |
DX #0. LDA #0.LOOP0 STA TAGFLAG,X. INX. CPX #0. BNE LOOP0. LDA #6. STA 53281. LD A #14. STA 53280. LDX #0.LOOP1 LDA MESS, X. CMP #36. BEQ NEXT1. JSR $FFD2. INX. J MP LOOP1.NEXT1 LDX #0.LOOP2 LDA MESS2,X. CMP #36. BEQ MAIN. JSR $FFD2. INX. JMP LOOP2.MAIN JSR ASSGN. JSR INPUT. JSR DEL AY. JMP MAIN.ASSGN LDA #160. STA 53248. LDA #110. STA 53249. LDA #1. STA 53269. STA 55583. LDA XSPAND. STA 53277. LDA YS PAND. STA 53271. LDA SPRCOL. STA 53287. LDA MC0COL. STA 53285. LDA MC1COL. STA 5 3286. LDA MCMODE. STA 53276. LDA BLOCK. STA 2040. STA 1311. TAX. LDA TAGFLAG,X. CMP #1. BNE OKGO. LDA #42. STA 1448. LDA #1. STA 55720. JMP BACK.OKGO LDA #32. S TA 1448.BACK LDA SPRCOL. CLC. ADC SPRCOL . TAX. LDA #122. STA 1148,X. LDA #1. STA 55420,X. CPX #0. BEQ DELEND1. DEX. DEX. LDA #32. STA 1148,X. JMP DOMC0.DELEND1 LDX #30. LDA #32. STA 1148,X.DOMC0 LDA M C0COL. CLC. ADC MC0COL. TAX. LDA #122. S TA 1188,X. LDA #1. STA 55460,X. CPX #0. BEQ DELEND2. DEX. DEX. LDA #32. STA 1188 ,X. JMP DOMC1.DELEND2 LDX #30. LDA #32. STA 1188,X.DOMC1 LDA MC1COL. CLC. ADC MC 1COL. TAX. LDA #122. STA 1228,X. LDA #1. STA 55500,X. CPX #0. BEQ DELEND3. DEX. DEX. LDA #32. STA 1228,X. JMP ARG.DELEND 3 LDX #30. LDA #32. STA 1228,X.ARG RTS.I NPUT LDA 197. CMP #56. BNE NEXT2. LDX SP RCOL. INX. CPX #16. BNE NOFLOP1. LDX #0. NOFLOP1 STX SPRCOL.NEXT2 CMP #59. BNE NE XT3. LDX MC0COL. INX. CPX #16. BNE NOFLO P2. LDX #0.NOFLOP2 STX MC0COL.NEXT3 CMP #8. BNE NEXT4. LDX MC1COL. INX. CPX #16. BNE NOFLOP3. LDX #0.NOFLOP3 STX MC1COL. NEXT4 CMP #5. BNE NEXT5. INC 53281.NEXT5 CMP #6. BNE NEXT6. INC 53280.NEXT6 CMP #17. BNE NEXT7. LDX #6. STX 53281. LDX # 14. STX 53280.NEXT7 CMP #40. BNE NEXT8. LDX #1. STX XSPAND.NEXT8 CMP #43. BNE NE XT9. LDX #0. STX XSPAND.NEXT9 CMP #46. B NE NEXT10. LDX #1. STX YSPAND.NEXT10 CMP #49. BNE NEXT11. LDX #0. STX YSPAND.NEX T11 CMP #2. BNE NEXT12. INC BLOCK.NEXT12 CMP #7. BNE NEXT13. DEC BLOCK.NEXT13 CM P #51. BNE NEXT14. LDX #0. STX MCMODE.NE XT14 CMP #0. BNE NEXT15. LDX #1. STX MCM ODE.NEXT15 CMP #63. BNE NEXT16. JMP 6473 8.NEXT16 CMP #13. BEQ SAVEIT. JMP NEXT17 .SAVEIT NOP ;SAVE.NEXT17 CMP #4. BNE NEX T18. LDX BLOCK. LDA #1. STA TAGFLAG,X.NE XT18 CMP #3. BNE NEXT19. LDX BLOCK. LDA #0. STA TAGFLAG,X.NEXT19 RTS.DELAY LDX # 0.INNER LDY #0.TUBE INY. CPY #255. BNE T UBE. INX. CPX #25. BNE INNER. RTS.MESS D FB 147,5,14,8. TXT ' B W R C P G B Y O B R G G G B G'. DFB 13. TXT ' L H E Y U R L E R R D Y Y R L Y'. DFB 13. TXT ' K T D N R N U L G N 2 1 2 2 2 3'. DFB 13. TXT 'SPR:'. DFB 13. TXT 'MC0:'. DFB 13. TXT 'MC1:'. DFB 13,13. TXT 'BLOC K:'. DFB 13,13,13,13,13,13,13. TXT 'ROTA TE BLOCK UP/DOWN: CRSR DN/CRSR RGHT'. DF B 13. TXT 'CHANGE SPRITE COLOR: 1'. DFB 13. TXT 'CHANGE MULTICOLOR0: 2'. DFB 13. TXT 'CHANGE MULTICOLOR1: 3$'.MESS2 DFB 13. TXT 'EXPAND/CONTRACT X-AXIS: +/-'. D FB 13. TXT 'EXPAND/CONTRACT Y-AXIS: @/*' . DFB 13. TXT 'TAG/UNTAG BLOCK: F1/F7'. DFB 13. TXT 'INCREMENT BACKGND/BORDER CO LOR: F3/F5'. DFB 13. TXT 'MULTICOLOR MOD E OFF/ON: HOME/DEL'. DFB 13. TXT 'RESTOR E BACKGND & BORDER COLORS: R'. DFB 13. T XT 'SAVE: S QUIT: RUN/STOP '. DFB 1.46.............DX #0. LDA #0.LO OP0 STA TAGFLAG,X. INX. CPX #0. BNE LOOP 0. LDA #6. STA 53281. LDA #14. STA 53280 . LDX #0.LOOP1 LDA MESS,X. CMP #36. BEQ NEXT1. JSR $FFD2. INX. JMP LOOP1.NEXT1 L DX #0.LOOP2 LDA MESS2,X. CMP #36. BEQ MA IN. JSR $FFD2. INX. JM.................. ........................................ ........................................ ........................................ ........................................ ........................................ ....................................
> CLICK IMAGE PREVIEW FOR FULL MODAL