SPRMON.S
FILE INFORMATION
FILENAME(S): SPRMON.S
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-01 19:06:54
APPEARS ON: 2 disk(s)
FILE HASH
b79de7a1873efca2049084a328aa4412e0d9049b265f17a971c88978de099c51
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE DISK 28 | SPRMON.S | PRG | Icebreaker | 19 | 9 | DOWNLOAD FILE |
| ICE DISK 28 | SPRMON.S | PRG | Icebreaker | 10 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 0A 20 6F 72 67 20 24 39 66 66 33 0D 2A 2A 2A |.. org $9ff3.***| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 67 6F |*************.go| 00000030: 62 61 63 6B 20 6C 64 61 20 24 30 31 20 3B 72 65 |back lda $01 ;re| 00000040: 74 75 72 6E 0D 20 6F 72 61 20 23 24 30 31 20 3B |turn. ora #$01 ;| 00000050: 74 6F 0D 20 73 74 61 20 24 30 31 20 3B 62 61 73 |to. sta $01 ;bas| 00000060: 69 63 0D 20 72 74 73 0D 20 6C 64 61 20 24 30 31 |ic. rts. lda $01| 00000070: 20 3B 6A 75 6D 70 0D 20 61 6E 64 20 23 24 66 65 | ;jump. and #$fe| 00000080: 20 3B 68 65 72 65 A0 32 0D 20 73 74 61 20 24 30 | ;here.2. sta $0| 00000090: 31 20 3B 62 65 67 69 6E 0D 2A 2A 2A 2A 2A 2A 2A |1 ;begin.*******| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 2A A0 A0 A0 A0 73 |*********.*....s| 000000C0: 74 61 72 74 A0 6F 66 A0 62 61 73 69 63 A0 72 6F |tart.of.basic.ro| 000000D0: 6D 21 21 A0 A0 A0 A0 A0 A0 2A 0D 2A 2A 2A 2A 2A |m!!......*.*****| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 20 6C 64 78 |***********. ldx| 00000100: 20 23 30 0D 20 6C 64 61 20 23 30 0D 6C 6F 6F 70 | #0. lda #0.loop| 00000110: 30 20 73 74 61 20 74 61 67 66 6C 61 67 2C 78 0D |0 sta tagflag,x.| 00000120: 20 69 6E 78 0D 20 63 70 78 20 23 30 0D 20 62 6E | inx. cpx #0. bn| 00000130: 65 20 6C 6F 6F 70 30 0D 20 6C 64 61 20 23 36 0D |e loop0. lda #6.| 00000140: 20 73 74 61 20 35 33 32 38 31 0D 20 6C 64 61 20 | sta 53281. lda | 00000150: 23 31 34 0D 20 73 74 61 20 35 33 32 38 30 0D 20 |#14. sta 53280. | 00000160: 6C 64 78 20 23 30 0D 6C 6F 6F 70 31 20 6C 64 61 |ldx #0.loop1 lda| 00000170: 20 6D 65 73 73 2C 78 0D 20 63 6D 70 20 23 33 36 | mess,x. cmp #36| 00000180: 0D 20 62 65 71 20 6E 65 78 74 31 0D 20 6A 73 72 |. beq next1. jsr| 00000190: 20 24 66 66 64 32 0D 20 69 6E 78 0D 20 6A 6D 70 | $ffd2. inx. jmp| 000001A0: 20 6C 6F 6F 70 31 0D 6E 65 78 74 31 20 6C 64 78 | loop1.next1 ldx| 000001B0: 20 23 30 0D 6C 6F 6F 70 32 20 6C 64 61 20 6D 65 | #0.loop2 lda me| 000001C0: 73 73 32 2C 78 0D 20 63 6D 70 20 23 33 36 0D 20 |ss2,x. cmp #36. | 000001D0: 62 65 71 20 6D 61 69 6E 0D 20 6A 73 72 20 24 66 |beq main. jsr $f| 000001E0: 66 64 32 0D 20 69 6E 78 0D 20 6A 6D 70 20 6C 6F |fd2. inx. jmp lo| 000001F0: 6F 70 32 0D 6D 61 69 6E 20 6A 73 72 20 61 73 73 |op2.main jsr ass| 00000200: 67 6E 0D 20 6A 73 72 20 69 6E 70 75 74 0D 20 6A |gn. jsr input. j| 00000210: 73 72 20 64 65 6C 61 79 0D 20 6A 6D 70 20 6D 61 |sr delay. jmp ma| 00000220: 69 6E 0D 61 73 73 67 6E 20 6C 64 61 20 23 31 36 |in.assgn lda #16| 00000230: 30 0D 20 73 74 61 20 35 33 32 34 38 0D 20 6C 64 |0. sta 53248. ld| 00000240: 61 20 23 31 31 30 0D 20 73 74 61 20 35 33 32 34 |a #110. sta 5324| 00000250: 39 0D 20 6C 64 61 20 23 31 0D 20 73 74 61 20 35 |9. lda #1. sta 5| 00000260: 33 32 36 39 0D 20 73 74 61 20 35 35 35 38 33 0D |3269. sta 55583.| 00000270: 20 6C 64 61 20 78 73 70 61 6E 64 0D 20 73 74 61 | lda xspand. sta| 00000280: 20 35 33 32 37 37 0D 20 6C 64 61 20 79 73 70 61 | 53277. lda yspa| 00000290: 6E 64 0D 20 73 74 61 20 35 33 32 37 31 0D 20 6C |nd. sta 53271. l| 000002A0: 64 61 20 73 70 72 63 6F 6C 0D 20 73 74 61 20 35 |da sprcol. sta 5| 000002B0: 33 32 38 37 0D 20 6C 64 61 20 6D 63 30 63 6F 6C |3287. lda mc0col| 000002C0: 0D 20 73 74 61 20 35 33 32 38 35 0D 20 6C 64 61 |. sta 53285. lda| 000002D0: 20 6D 63 31 63 6F 6C 0D 20 73 74 61 20 35 33 32 | mc1col. sta 532| 000002E0: 38 36 0D 20 6C 64 61 20 6D 63 6D 6F 64 65 0D 20 |86. lda mcmode. | 000002F0: 73 74 61 20 35 33 32 37 36 0D 20 6C 64 61 20 62 |sta 53276. lda b| 00000300: 6C 6F 63 6B 0D 20 73 74 61 20 32 30 34 30 0D 20 |lock. sta 2040. | 00000310: 73 74 61 20 31 33 31 31 0D 20 74 61 78 0D 20 6C |sta 1311. tax. l| 00000320: 64 61 20 74 61 67 66 6C 61 67 2C 78 0D 20 63 6D |da tagflag,x. cm| 00000330: 70 20 23 31 0D 20 62 6E 65 20 6F 6B 67 6F 0D 20 |p #1. bne okgo. | 00000340: 6C 64 61 20 23 34 32 0D 20 73 74 61 20 31 34 34 |lda #42. sta 144| 00000350: 38 0D 20 6C 64 61 20 23 31 0D 20 73 74 61 20 35 |8. lda #1. sta 5| 00000360: 35 37 32 30 0D 20 6A 6D 70 20 62 61 63 6B 0D 6F |5720. jmp back.o| 00000370: 6B 67 6F 20 6C 64 61 20 23 33 32 0D 20 73 74 61 |kgo lda #32. sta| 00000380: 20 31 34 34 38 0D 62 61 63 6B 20 6C 64 61 20 73 | 1448.back lda s| 00000390: 70 72 63 6F 6C 0D 20 63 6C 63 0D 20 61 64 63 20 |prcol. clc. adc | 000003A0: 73 70 72 63 6F 6C 0D 20 74 61 78 0D 20 6C 64 61 |sprcol. tax. lda| 000003B0: 20 23 31 32 32 0D 20 73 74 61 20 31 31 34 38 2C | #122. sta 1148,| 000003C0: 78 0D 20 6C 64 61 20 23 31 0D 20 73 74 61 20 35 |x. lda #1. sta 5| 000003D0: 35 34 32 30 2C 78 0D 20 63 70 78 20 23 30 0D 20 |5420,x. cpx #0. | 000003E0: 62 65 71 20 64 65 6C 65 6E 64 31 0D 20 64 65 78 |beq delend1. dex| 000003F0: 0D 20 64 65 78 0D 20 6C 64 61 20 23 33 32 0D 20 |. dex. lda #32. | 00000400: 73 74 61 20 31 31 34 38 2C 78 0D 20 6A 6D 70 20 |sta 1148,x. jmp | 00000410: 64 6F 6D 63 30 0D 64 65 6C 65 6E 64 31 20 6C 64 |domc0.delend1 ld| 00000420: 78 20 23 33 30 0D 20 6C 64 61 20 23 33 32 0D 20 |x #30. lda #32. | 00000430: 73 74 61 20 31 31 34 38 2C 78 0D 64 6F 6D 63 30 |sta 1148,x.domc0| 00000440: 20 6C 64 61 20 6D 63 30 63 6F 6C 0D 20 63 6C 63 | lda mc0col. clc| 00000450: 0D 20 61 64 63 20 6D 63 30 63 6F 6C 0D 20 74 61 |. adc mc0col. ta| 00000460: 78 0D 20 6C 64 61 20 23 31 32 32 0D 20 73 74 61 |x. lda #122. sta| 00000470: 20 31 31 38 38 2C 78 0D 20 6C 64 61 20 23 31 0D | 1188,x. lda #1.| 00000480: 20 73 74 61 20 35 35 34 36 30 2C 78 0D 20 63 70 | sta 55460,x. cp| 00000490: 78 20 23 30 0D 20 62 65 71 20 64 65 6C 65 6E 64 |x #0. beq delend| 000004A0: 32 0D 20 64 65 78 0D 20 64 65 78 0D 20 6C 64 61 |2. dex. dex. lda| 000004B0: 20 23 33 32 0D 20 73 74 61 20 31 31 38 38 2C 78 | #32. sta 1188,x| 000004C0: 0D 20 6A 6D 70 20 64 6F 6D 63 31 0D 64 65 6C 65 |. jmp domc1.dele| 000004D0: 6E 64 32 20 6C 64 78 20 23 33 30 0D 20 6C 64 61 |nd2 ldx #30. lda| 000004E0: 20 23 33 32 0D 20 73 74 61 20 31 31 38 38 2C 78 | #32. sta 1188,x| 000004F0: 0D 64 6F 6D 63 31 20 6C 64 61 20 6D 63 31 63 6F |.domc1 lda mc1co| 00000500: 6C 0D 20 63 6C 63 0D 20 61 64 63 20 6D 63 31 63 |l. clc. adc mc1c| 00000510: 6F 6C 0D 20 74 61 78 0D 20 6C 64 61 20 23 31 32 |ol. tax. lda #12| 00000520: 32 0D 20 73 74 61 20 31 32 32 38 2C 78 0D 20 6C |2. sta 1228,x. l| 00000530: 64 61 20 23 31 0D 20 73 74 61 20 35 35 35 30 30 |da #1. sta 55500| 00000540: 2C 78 0D 20 63 70 78 20 23 30 0D 20 62 65 71 20 |,x. cpx #0. beq | 00000550: 64 65 6C 65 6E 64 33 0D 20 64 65 78 0D 20 64 65 |delend3. dex. de| 00000560: 78 0D 20 6C 64 61 20 23 33 32 0D 20 73 74 61 20 |x. lda #32. sta | 00000570: 31 32 32 38 2C 78 0D 20 6A 6D 70 20 61 72 67 0D |1228,x. jmp arg.| 00000580: 64 65 6C 65 6E 64 33 20 6C 64 78 20 23 33 30 0D |delend3 ldx #30.| 00000590: 20 6C 64 61 20 23 33 32 0D 20 73 74 61 20 31 32 | lda #32. sta 12| 000005A0: 32 38 2C 78 0D 61 72 67 20 72 74 73 0D 69 6E 70 |28,x.arg rts.inp| 000005B0: 75 74 20 6C 64 61 20 31 39 37 0D 20 63 6D 70 20 |ut lda 197. cmp | 000005C0: 23 35 36 0D 20 62 6E 65 20 6E 65 78 74 32 0D 20 |#56. bne next2. | 000005D0: 6C 64 78 20 73 70 72 63 6F 6C 0D 20 69 6E 78 0D |ldx sprcol. inx.| 000005E0: 20 63 70 78 20 23 31 36 0D 20 62 6E 65 20 6E 6F | cpx #16. bne no| 000005F0: 66 6C 6F 70 31 0D 20 6C 64 78 20 23 30 0D 6E 6F |flop1. ldx #0.no| 00000600: 66 6C 6F 70 31 20 73 74 78 20 73 70 72 63 6F 6C |flop1 stx sprcol| 00000610: 0D 6E 65 78 74 32 20 63 6D 70 20 23 35 39 0D 20 |.next2 cmp #59. | 00000620: 62 6E 65 20 6E 65 78 74 33 0D 20 6C 64 78 20 6D |bne next3. ldx m| 00000630: 63 30 63 6F 6C 0D 20 69 6E 78 0D 20 63 70 78 20 |c0col. inx. cpx | 00000640: 23 31 36 0D 20 62 6E 65 20 6E 6F 66 6C 6F 70 32 |#16. bne noflop2| 00000650: 0D 20 6C 64 78 20 23 30 0D 6E 6F 66 6C 6F 70 32 |. ldx #0.noflop2| 00000660: 20 73 74 78 20 6D 63 30 63 6F 6C 0D 6E 65 78 74 | stx mc0col.next| 00000670: 33 20 63 6D 70 20 23 38 0D 20 62 6E 65 20 6E 65 |3 cmp #8. bne ne| 00000680: 78 74 34 0D 20 6C 64 78 20 6D 63 31 63 6F 6C 0D |xt4. ldx mc1col.| 00000690: 20 69 6E 78 0D 20 63 70 78 20 23 31 36 0D 20 62 | inx. cpx #16. b| 000006A0: 6E 65 20 6E 6F 66 6C 6F 70 33 0D 20 6C 64 78 20 |ne noflop3. ldx | 000006B0: 23 30 0D 6E 6F 66 6C 6F 70 33 20 73 74 78 20 6D |#0.noflop3 stx m| 000006C0: 63 31 63 6F 6C 0D 6E 65 78 74 34 20 63 6D 70 20 |c1col.next4 cmp | 000006D0: 23 35 0D 20 62 6E 65 20 6E 65 78 74 35 0D 20 69 |#5. bne next5. i| 000006E0: 6E 63 20 35 33 32 38 31 0D 6E 65 78 74 35 20 63 |nc 53281.next5 c| 000006F0: 6D 70 20 23 36 0D 20 62 6E 65 20 6E 65 78 74 36 |mp #6. bne next6| 00000700: 0D 20 69 6E 63 20 35 33 32 38 30 0D 6E 65 78 74 |. inc 53280.next| 00000710: 36 20 63 6D 70 20 23 31 37 0D 20 62 6E 65 20 6E |6 cmp #17. bne n| 00000720: 65 78 74 37 0D 20 6C 64 78 20 23 36 0D 20 73 74 |ext7. ldx #6. st| 00000730: 78 20 35 33 32 38 31 0D 20 6C 64 78 20 23 31 34 |x 53281. ldx #14| 00000740: 0D 20 73 74 78 20 35 33 32 38 30 0D 6E 65 78 74 |. stx 53280.next| 00000750: 37 20 63 6D 70 20 23 34 30 0D 20 62 6E 65 20 6E |7 cmp #40. bne n| 00000760: 65 78 74 38 0D 20 6C 64 78 20 23 31 0D 20 73 74 |ext8. ldx #1. st| 00000770: 78 20 78 73 70 61 6E 64 0D 6E 65 78 74 38 20 63 |x xspand.next8 c| 00000780: 6D 70 20 23 34 33 0D 20 62 6E 65 20 6E 65 78 74 |mp #43. bne next| 00000790: 39 0D 20 6C 64 78 20 23 30 0D 20 73 74 78 20 78 |9. ldx #0. stx x| 000007A0: 73 70 61 6E 64 0D 6E 65 78 74 39 20 63 6D 70 20 |spand.next9 cmp | 000007B0: 23 34 36 0D 20 62 6E 65 20 6E 65 78 74 31 30 0D |#46. bne next10.| 000007C0: 20 6C 64 78 20 23 31 0D 20 73 74 78 20 79 73 70 | ldx #1. stx ysp| 000007D0: 61 6E 64 0D 6E 65 78 74 31 30 20 63 6D 70 20 23 |and.next10 cmp #| 000007E0: 34 39 0D 20 62 6E 65 20 6E 65 78 74 31 31 0D 20 |49. bne next11. | 000007F0: 6C 64 78 20 23 30 0D 20 73 74 78 20 79 73 70 61 |ldx #0. stx yspa| 00000800: 6E 64 0D 6E 65 78 74 31 31 20 63 6D 70 20 23 32 |nd.next11 cmp #2| 00000810: 0D 20 62 6E 65 20 6E 65 78 74 31 32 0D 20 69 6E |. bne next12. in| 00000820: 63 20 62 6C 6F 63 6B 0D 6E 65 78 74 31 32 20 63 |c block.next12 c| 00000830: 6D 70 20 23 37 0D 20 62 6E 65 20 6E 65 78 74 31 |mp #7. bne next1| 00000840: 33 0D 20 64 65 63 20 62 6C 6F 63 6B 0D 6E 65 78 |3. dec block.nex| 00000850: 74 31 33 20 63 6D 70 20 23 35 31 0D 20 62 6E 65 |t13 cmp #51. bne| 00000860: 20 6E 65 78 74 31 34 0D 20 6C 64 78 20 23 30 0D | next14. ldx #0.| 00000870: 20 73 74 78 20 6D 63 6D 6F 64 65 0D 6E 65 78 74 | stx mcmode.next| 00000880: 31 34 20 63 6D 70 20 23 30 0D 20 62 6E 65 20 6E |14 cmp #0. bne n| 00000890: 65 78 74 31 35 0D 20 6C 64 78 20 23 31 0D 20 73 |ext15. ldx #1. s| 000008A0: 74 78 20 6D 63 6D 6F 64 65 0D 6E 65 78 74 31 35 |tx mcmode.next15| 000008B0: 20 63 6D 70 20 23 36 33 0D 20 62 6E 65 20 6E 65 | cmp #63. bne ne| 000008C0: 78 74 31 36 0D 20 6A 6D 70 20 36 34 37 33 38 0D |xt16. jmp 64738.| 000008D0: 6E 65 78 74 31 36 20 63 6D 70 20 23 31 33 0D 20 |next16 cmp #13. | 000008E0: 62 65 71 20 73 61 76 65 69 74 0D 20 6A 6D 70 20 |beq saveit. jmp | 000008F0: 6E 65 78 74 31 37 0D 73 61 76 65 69 74 20 6E 6F |next17.saveit no| 00000900: 70 20 3B 73 61 76 65 0D 6E 65 78 74 31 37 20 63 |p ;save.next17 c| 00000910: 6D 70 20 23 34 0D 20 62 6E 65 20 6E 65 78 74 31 |mp #4. bne next1| 00000920: 38 0D 20 6C 64 78 20 62 6C 6F 63 6B 0D 20 6C 64 |8. ldx block. ld| 00000930: 61 20 23 31 0D 20 73 74 61 20 74 61 67 66 6C 61 |a #1. sta tagfla| 00000940: 67 2C 78 0D 6E 65 78 74 31 38 20 63 6D 70 20 23 |g,x.next18 cmp #| 00000950: 33 0D 20 62 6E 65 20 6E 65 78 74 31 39 0D 20 6C |3. bne next19. l| 00000960: 64 78 20 62 6C 6F 63 6B 0D 20 6C 64 61 20 23 30 |dx block. lda #0| 00000970: 0D 20 73 74 61 20 74 61 67 66 6C 61 67 2C 78 0D |. sta tagflag,x.| 00000980: 6E 65 78 74 31 39 20 72 74 73 0D 64 65 6C 61 79 |next19 rts.delay| 00000990: 20 6C 64 78 20 23 30 0D 69 6E 6E 65 72 20 6C 64 | ldx #0.inner ld| 000009A0: 79 20 23 30 0D 74 75 62 65 20 69 6E 79 0D 20 63 |y #0.tube iny. c| 000009B0: 70 79 20 23 32 35 35 0D 20 62 6E 65 20 74 75 62 |py #255. bne tub| 000009C0: 65 0D 20 69 6E 78 0D 20 63 70 78 20 23 32 35 0D |e. inx. cpx #25.| 000009D0: 20 62 6E 65 20 69 6E 6E 65 72 0D 20 72 74 73 0D | bne inner. rts.| 000009E0: 6D 65 73 73 20 64 66 62 20 31 34 37 2C 35 2C 31 |mess dfb 147,5,1| 000009F0: 34 2C 38 0D 20 74 78 74 20 27 A0 A0 A0 A0 42 A0 |4,8. txt '....B.| 00000A00: 57 A0 52 A0 43 A0 50 A0 47 A0 42 A0 59 A0 4F A0 |W.R.C.P.G.B.Y.O.| 00000A10: 42 A0 52 A0 47 A0 47 A0 47 A0 42 A0 47 27 0D 20 |B.R.G.G.G.B.G'. | 00000A20: 64 66 62 20 31 33 0D 20 74 78 74 20 27 A0 A0 A0 |dfb 13. txt '...| 00000A30: A0 4C A0 48 A0 45 A0 59 A0 55 A0 52 A0 4C A0 45 |.L.H.E.Y.U.R.L.E| 00000A40: A0 52 A0 52 A0 44 A0 59 A0 59 A0 52 A0 4C A0 59 |.R.R.D.Y.Y.R.L.Y| 00000A50: 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 |'. dfb 13. txt '| 00000A60: A0 A0 A0 A0 4B A0 54 A0 44 A0 4E A0 52 A0 4E A0 |....K.T.D.N.R.N.| 00000A70: 55 A0 4C A0 47 A0 4E A0 32 A0 31 A0 32 A0 32 A0 |U.L.G.N.2.1.2.2.| 00000A80: 32 A0 33 27 0D 20 64 66 62 20 31 33 0D 20 74 78 |2.3'. dfb 13. tx| 00000A90: 74 20 27 53 50 52 3A 27 0D 20 64 66 62 20 31 33 |t 'SPR:'. dfb 13| 00000AA0: 0D 20 74 78 74 20 27 4D 43 30 3A 27 0D 20 64 66 |. txt 'MC0:'. df| 00000AB0: 62 20 31 33 0D 20 74 78 74 20 27 4D 43 31 3A 27 |b 13. txt 'MC1:'| 00000AC0: 0D 20 64 66 62 20 31 33 2C 31 33 0D 20 74 78 74 |. dfb 13,13. txt| 00000AD0: 20 27 62 4C 4F 43 4B 3A 27 0D 20 64 66 62 20 31 | 'bLOCK:'. dfb 1| 00000AE0: 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 |3,13,13,13,13,13| 00000AF0: 2C 31 33 0D 20 74 78 74 20 27 72 4F 54 41 54 45 |,13. txt 'rOTATE| 00000B00: A0 42 4C 4F 43 4B A0 55 50 2F 44 4F 57 4E 3A A0 |.BLOCK.UP/DOWN:.| 00000B10: 63 72 73 72 A0 64 6E 2F 63 72 73 72 A0 72 67 68 |crsr.dn/crsr.rgh| 00000B20: 74 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 |t'. dfb 13. txt | 00000B30: 27 63 48 41 4E 47 45 A0 53 50 52 49 54 45 A0 43 |'cHANGE.SPRITE.C| 00000B40: 4F 4C 4F 52 3A A0 31 27 0D 20 64 66 62 20 31 33 |OLOR:.1'. dfb 13| 00000B50: 0D 20 74 78 74 20 27 63 48 41 4E 47 45 A0 4D 55 |. txt 'cHANGE.MU| 00000B60: 4C 54 49 43 4F 4C 4F 52 30 3A A0 32 27 0D 20 64 |LTICOLOR0:.2'. d| 00000B70: 66 62 20 31 33 0D 20 74 78 74 20 27 63 48 41 4E |fb 13. txt 'cHAN| 00000B80: 47 45 A0 4D 55 4C 54 49 43 4F 4C 4F 52 31 3A A0 |GE.MULTICOLOR1:.| 00000B90: 33 24 27 0D 6D 65 73 73 32 20 64 66 62 20 31 33 |3$'.mess2 dfb 13| 00000BA0: 0D 20 74 78 74 20 27 65 58 50 41 4E 44 2F 43 4F |. txt 'eXPAND/CO| 00000BB0: 4E 54 52 41 43 54 A0 78 2D 41 58 49 53 3A A0 2B |NTRACT.x-AXIS:.+| 00000BC0: 2F 2D 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 |/-'. dfb 13. txt| 00000BD0: 20 27 65 58 50 41 4E 44 2F 43 4F 4E 54 52 41 43 | 'eXPAND/CONTRAC| 00000BE0: 54 A0 79 2D 41 58 49 53 3A A0 40 2F 2A 27 0D 20 |T.y-AXIS:.@/*'. | 00000BF0: 64 66 62 20 31 33 0D 20 74 78 74 20 27 74 61 67 |dfb 13. txt 'tag| 00000C00: 2F 75 6E 74 61 67 A0 42 4C 4F 43 4B 3A A0 66 31 |/untag.BLOCK:.f1| 00000C10: 2F 66 37 27 0D 20 64 66 62 20 31 33 0D 20 74 78 |/f7'. dfb 13. tx| 00000C20: 74 20 27 69 4E 43 52 45 4D 45 4E 54 A0 42 41 43 |t 'iNCREMENT.BAC| 00000C30: 4B 47 4E 44 2F 42 4F 52 44 45 52 A0 43 4F 4C 4F |KGND/BORDER.COLO| 00000C40: 52 3A A0 66 33 2F 66 35 27 0D 20 64 66 62 20 31 |R:.f3/f5'. dfb 1| 00000C50: 33 0D 20 74 78 74 20 27 6D 55 4C 54 49 43 4F 4C |3. txt 'mULTICOL| 00000C60: 4F 52 A0 4D 4F 44 45 A0 4F 46 46 2F 4F 4E 3A A0 |OR.MODE.OFF/ON:.| 00000C70: 68 6F 6D 65 2F 64 65 6C 27 0D 20 64 66 62 20 31 |home/del'. dfb 1| 00000C80: 33 0D 20 74 78 74 20 27 72 45 53 54 4F 52 45 A0 |3. txt 'rESTORE.| 00000C90: 42 41 43 4B 47 4E 44 A0 26 A0 42 4F 52 44 45 52 |BACKGND.&.BORDER| 00000CA0: A0 43 4F 4C 4F 52 53 3A A0 72 27 0D 20 64 66 62 |.COLORS:.r'. dfb| 00000CB0: 20 31 33 0D 20 74 78 74 20 27 73 41 56 45 3A A0 | 13. txt 'sAVE:.| 00000CC0: 73 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |s...............| 00000CD0: 71 55 49 54 3A A0 72 75 6E 2F 73 74 6F 70 27 0D |qUIT:.run/stop'.| 00000CE0: 20 64 66 62 20 31 39 0D 20 74 78 74 20 27 24 27 | dfb 19. txt '$'| 00000CF0: 0D 78 73 70 61 6E 64 20 64 66 62 20 31 0D 79 73 |.xspand dfb 1.ys| 00000D00: 70 61 6E 64 20 64 66 62 20 31 0D 73 70 72 63 6F |pand dfb 1.sprco| 00000D10: 6C 20 64 66 62 20 31 0D 6D 63 30 63 6F 6C 20 64 |l dfb 1.mc0col d| 00000D20: 66 62 20 32 0D 6D 63 31 63 6F 6C 20 64 66 62 20 |fb 2.mc1col dfb | 00000D30: 33 0D 6D 63 6D 6F 64 65 20 64 66 62 20 30 0D 62 |3.mcmode dfb 0.b| 00000D40: 6C 6F 63 6B 20 64 66 62 20 30 0D 74 61 67 66 6C |lock dfb 0.tagfl| 00000D50: 61 67 20 64 66 62 20 30 0D |ag dfb 0. |
.. ORG $9FF3.*************************** *****.GOBACK LDA $01 ;RETURN. ORA #$01 ; TO. STA $01 ;BASIC. RTS. LDA $01 ;JUMP. AND #$FE ;HERE 2. STA $01 ;BEGIN.******* *************************.* START OF BASIC ROM!! *.********************* ***********. LDX #0. LDA #0.LOOP0 STA TA GFLAG,X. INX. CPX #0. BNE LOOP0. LDA #6. STA 53281. LDA #14. STA 53280. LDX #0.L OOP1 LDA MESS,X. CMP #36. BEQ NEXT1. JSR $FFD2. INX. JMP LOOP1.NEXT1 LDX #0.LOOP 2 LDA MESS2,X. CMP #36. BEQ MAIN. JSR $F FD2. INX. JMP LOOP2.MAIN JSR ASSGN. JSR INPUT. JSR DELAY. JMP MAIN.ASSGN LDA #16 0. STA 53248. LDA #110. STA 53249. LDA # 1. STA 53269. STA 55583. LDA XSPAND. STA 53277. LDA YSPAND. STA 53271. LDA SPRCO L. STA 53287. LDA MC0COL. STA 53285. LDA MC1COL. STA 53286. LDA MCMODE. STA 5327 6. LDA BLOCK. STA 2040. STA 1311. TAX. L DA TAGFLAG,X. CMP #1. BNE OKGO. LDA #42. STA 1448. LDA #1. STA 55720. JMP BACK.O KGO LDA #32. STA 1448.BACK LDA SPRCOL. C LC. ADC SPRCOL. TAX. LDA #122. STA 1148, X. LDA #1. STA 55420,X. CPX #0. BEQ DELE ND1. DEX. DEX. LDA #32. STA 1148,X. JMP DOMC0.DELEND1 LDX #30. LDA #32. STA 1148 ,X.DOMC0 LDA MC0COL. CLC. ADC MC0COL. TA X. LDA #122. STA 1188,X. LDA #1. STA 554 60,X. CPX #0. BEQ DELEND2. DEX. DEX. LDA #32. STA 1188,X. JMP DOMC1.DELEND2 LDX #30. LDA #32. STA 1188,X.DOMC1 LDA MC1CO L. CLC. ADC MC1COL. TAX. LDA #122. STA 1 228,X. LDA #1. STA 55500,X. CPX #0. BEQ DELEND3. DEX. DEX. LDA #32. STA 1228,X. JMP ARG.DELEND3 LDX #30. LDA #32. STA 12 28,X.ARG RTS.INPUT LDA 197. CMP #56. BNE NEXT2. LDX SPRCOL. INX. CPX #16. BNE NO FLOP1. LDX #0.NOFLOP1 STX SPRCOL.NEXT2 C MP #59. BNE NEXT3. LDX MC0COL. INX. CPX #16. BNE NOFLOP2. LDX #0.NOFLOP2 STX MC0 COL.NEXT3 CMP #8. BNE NEXT4. LDX MC1COL. INX. CPX #16. BNE NOFLOP3. LDX #0.NOFLO P3 STX MC1COL.NEXT4 CMP #5. BNE NEXT5. I NC 53281.NEXT5 CMP #6. BNE NEXT6. INC 53 280.NEXT6 CMP #17. BNE NEXT7. LDX #6. ST X 53281. LDX #14. STX 53280.NEXT7 CMP #4 0. BNE NEXT8. LDX #1. STX XSPAND.NEXT8 C MP #43. BNE NEXT9. LDX #0. STX XSPAND.NE XT9 CMP #46. BNE NEXT10. LDX #1. STX YSP AND.NEXT10 CMP #49. BNE NEXT11. LDX #0. STX YSPAND.NEXT11 CMP #2. BNE NEXT12. IN C BLOCK.NEXT12 CMP #7. BNE NEXT13. DEC B LOCK.NEXT13 CMP #51. BNE NEXT14. LDX #0. STX MCMODE.NEXT14 CMP #0. BNE NEXT15. L DX #1. STX MCMODE.NEXT15 CMP #63. BNE NE XT16. JMP 64738.NEXT16 CMP #13. BEQ SAVE IT. JMP NEXT17.SAVEIT NOP ;SAVE.NEXT17 C MP #4. BNE NEXT18. LDX BLOCK. LDA #1. ST A TAGFLAG,X.NEXT18 CMP #3. BNE NEXT19. L DX BLOCK. LDA #0. STA TAGFLAG,X.NEXT19 R TS.DELAY LDX #0.INNER LDY #0.TUBE INY. C PY #255. BNE TUBE. INX. CPX #25. BNE INN ER. RTS.MESS DFB 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 'BLOCK:'. DFB 13,13,13,13,13,13 ,13. TXT 'ROTATE BLOCK UP/DOWN: CRSR DN/ CRSR RGHT'. DFB 13. TXT 'CHANGE SPRITE C OLOR: 1'. DFB 13. TXT 'CHANGE MULTICOLOR 0: 2'. DFB 13. TXT 'CHANGE MULTICOLOR1: 3$'.MESS2 DFB 13. TXT 'EXPAND/CONTRACT X -AXIS: +/-'. DFB 13. TXT 'EXPAND/CONTRAC T Y-AXIS: @/*'. DFB 13. TXT 'TAG/UNTAG B LOCK: F1/F7'. DFB 13. TXT 'INCREMENT BAC KGND/BORDER COLOR: F3/F5'. DFB 13. TXT ' MULTICOLOR MODE OFF/ON: HOME/DEL'. DFB 1 3. TXT 'RESTORE BACKGND & BORDER COLORS: R'. DFB 13. TXT 'SAVE: S QUIT: RUN/STOP'. DFB 19. TXT '$'.XSPAND DFB 1.YSPAND DFB 1.SPRCOL DFB 1.MC0COL D FB 2.MC1COL DFB 3.MCMODE DFB 0.BLOCK DFB 0.TAGFLAG DFB 0.
> CLICK IMAGE PREVIEW FOR FULL MODAL