SCLOAD.S
FILE INFORMATION
FILENAME(S): SCLOAD.S
FILE TYPE(S): DEL
FILE SIZE: 2.8K
FIRST SEEN: 2025-12-01 19:06:55
APPEARS ON: 1 disk(s)
FILE HASH
11a5c255f7277e808bf654871d52e431d82b8bec30189a9fb762fb8a99b357b4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE DISK 28 | SCLOAD.S | DEL | Icebreaker | 10 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 61 73 73 67 6E 0D 20 6A 73 72 20 69 6E 70 75 | assgn. jsr inpu| 00000010: 74 0D 20 6A 73 72 20 64 65 6C 61 79 0D 20 6A 6D |t. jsr delay. jm| 00000020: 70 20 6D 61 69 6E 0D 61 73 73 67 6E 20 6C 64 61 |p main.assgn lda| 00000030: 20 23 31 36 30 0D 20 73 74 61 20 35 33 32 34 38 | #160. sta 53248| 00000040: 0D 20 6C 64 61 20 23 31 31 30 0D 20 73 74 61 20 |. lda #110. sta | 00000050: 35 33 32 34 39 0D 20 6C 64 61 20 23 31 0D 20 73 |53249. lda #1. s| 00000060: 74 61 20 35 33 32 36 39 0D 20 73 74 61 20 35 35 |ta 53269. sta 55| 00000070: 35 38 33 0D 20 6C 64 61 20 78 73 70 61 6E 64 0D |583. lda xspand.| 00000080: 20 73 74 61 20 35 33 32 37 37 0D 20 6C 64 61 20 | sta 53277. lda | 00000090: 79 73 70 61 6E 64 0D 20 73 74 61 20 35 33 32 37 |yspand. sta 5327| 000000A0: 31 0D 20 6C 64 61 20 73 70 72 63 6F 6C 0D 20 73 |1. lda sprcol. s| 000000B0: 74 61 20 35 33 32 38 37 0D 20 6C 64 61 20 6D 63 |ta 53287. lda mc| 000000C0: 30 63 6F 6C 0D 20 73 74 61 20 35 33 32 38 35 0D |0col. sta 53285.| 000000D0: 20 6C 64 61 20 6D 63 31 63 6F 6C 0D 20 73 74 61 | lda mc1col. sta| 000000E0: 20 35 33 32 38 36 0D 20 6C 64 61 20 6D 63 6D 6F | 53286. lda mcmo| 000000F0: 64 65 0D 20 73 74 61 20 35 33 32 37 36 0D 20 6C |de. sta 53276. l| 00000100: 64 61 20 62 6C 6F 63 6B 0D 20 73 74 61 20 32 30 |da block. sta 20| 00000110: 34 30 0D 20 73 74 61 20 31 33 31 31 0D 20 74 61 |40. sta 1311. ta| 00000120: 78 0D 20 6C 64 61 20 74 61 67 66 6C 61 67 2C 78 |x. lda tagflag,x| 00000130: 0D 20 63 6D 70 20 23 31 0D 20 62 6E 65 20 6F 6B |. cmp #1. bne ok| 00000140: 67 6F 0D 20 6C 64 61 20 23 34 32 0D 20 73 74 61 |go. lda #42. sta| 00000150: 20 31 34 34 38 0D 20 6C 64 61 20 23 31 0D 20 73 | 1448. lda #1. s| 00000160: 74 61 20 35 35 37 32 30 0D 20 6A 6D 70 20 62 61 |ta 55720. jmp ba| 00000170: 63 6B 0D 6F 6B 67 6F 20 6C 64 61 20 23 33 32 0D |ck.okgo lda #32.| 00000180: 20 73 74 61 20 31 34 34 38 0D 62 61 63 6B 20 6C | sta 1448.back l| 00000190: 64 61 20 73 70 72 63 6F 6C 0D 20 63 6C 63 0D 20 |da sprcol. clc. | 000001A0: 61 64 63 20 73 70 72 63 6F 6C 0D 20 74 61 78 0D |adc sprcol. tax.| 000001B0: 20 6C 64 61 20 23 31 32 32 0D 20 73 74 61 20 31 | lda #122. sta 1| 000001C0: 31 34 38 2C 78 0D 20 6C 64 61 20 23 31 0D 20 73 |148,x. lda #1. s| 000001D0: 74 61 20 35 35 34 32 30 2C 78 0D 20 63 70 78 20 |ta 55420,x. cpx | 000001E0: 23 30 0D 20 62 65 71 20 64 65 6C 65 6E 64 31 0D |#0. beq delend1.| 000001F0: 20 64 65 78 0D 20 64 65 78 0D 20 6C 64 61 20 23 | dex. dex. lda #| 00000200: 33 32 0D 20 73 74 61 20 31 31 34 38 2C 78 0D 20 |32. sta 1148,x. | 00000210: 6A 6D 70 20 64 6F 6D 63 30 0D 64 65 6C 65 6E 64 |jmp domc0.delend| 00000220: 31 20 6C 64 78 20 23 33 30 0D 20 6C 64 61 20 23 |1 ldx #30. lda #| 00000230: 33 32 0D 20 73 74 61 20 31 31 34 38 2C 78 0D 64 |32. sta 1148,x.d| 00000240: 6F 6D 63 30 20 6C 64 61 20 6D 63 30 63 6F 6C 0D |omc0 lda mc0col.| 00000250: 20 63 6C 63 0D 20 61 64 63 20 6D 63 30 63 6F 6C | clc. adc mc0col| 00000260: 0D 20 74 61 78 0D 20 6C 64 61 20 23 31 32 32 0D |. tax. lda #122.| 00000270: 20 73 74 61 20 31 31 38 38 2C 78 0D 20 6C 64 61 | sta 1188,x. lda| 00000280: 20 23 31 0D 20 73 74 61 20 35 35 34 36 30 2C 78 | #1. sta 55460,x| 00000290: 0D 20 63 70 78 20 23 30 0D 20 62 65 71 20 64 65 |. cpx #0. beq de| 000002A0: 6C 65 6E 64 32 0D 20 64 65 78 0D 20 64 65 78 0D |lend2. dex. dex.| 000002B0: 20 6C 64 61 20 23 33 32 0D 20 73 74 61 20 31 31 | lda #32. sta 11| 000002C0: 38 38 2C 78 0D 20 6A 6D 70 20 64 6F 6D 63 31 0D |88,x. jmp domc1.| 000002D0: 64 65 6C 65 6E 64 32 20 6C 64 78 20 23 33 30 0D |delend2 ldx #30.| 000002E0: 20 6C 64 61 20 23 33 32 0D 20 73 74 61 20 31 31 | lda #32. sta 11| 000002F0: 38 38 2C 78 0D 64 6F 6D 63 31 20 6C 64 61 20 6D |88,x.domc1 lda m| 00000300: 63 31 63 6F 6C 0D 20 63 6C 63 0D 20 61 64 63 20 |c1col. clc. adc | 00000310: 6D 63 31 63 6F 6C 0D 20 74 61 78 0D 20 6C 64 61 |mc1col. tax. lda| 00000320: 20 23 31 32 32 0D 20 73 74 61 20 31 32 32 38 2C | #122. sta 1228,| 00000330: 78 0D 20 6C 64 61 20 23 31 0D 20 73 74 61 20 35 |x. lda #1. sta 5| 00000340: 35 35 30 30 2C 78 0D 20 63 70 78 20 23 30 0D 20 |5500,x. cpx #0. | 00000350: 62 65 71 20 64 65 6C 65 6E 64 33 0D 20 64 65 78 |beq delend3. dex| 00000360: 0D 20 64 65 78 0D 20 6C 64 61 20 23 33 32 0D 20 |. dex. lda #32. | 00000370: 73 74 61 20 31 32 32 38 2C 78 0D 20 6A 6D 70 20 |sta 1228,x. jmp | 00000380: 61 72 67 0D 64 65 6C 65 6E 64 33 20 6C 64 78 20 |arg.delend3 ldx | 00000390: 23 33 30 0D 20 6C 64 61 20 23 33 32 0D 20 73 74 |#30. lda #32. st| 000003A0: 61 20 31 32 32 38 2C 78 0D 61 72 67 20 72 74 73 |a 1228,x.arg rts| 000003B0: 0D 69 6E 70 75 74 20 6C 64 61 20 31 39 37 0D 20 |.input lda 197. | 000003C0: 63 6D 70 20 23 35 36 0D 20 62 6E 65 20 6E 65 78 |cmp #56. bne nex| 000003D0: 74 32 0D 20 6C 64 78 20 73 70 72 63 6F 6C 0D 20 |t2. ldx sprcol. | 000003E0: 69 6E 78 0D 20 63 70 78 20 23 31 36 0D 20 62 6E |inx. cpx #16. bn| 000003F0: 65 20 6E 6F 66 6C 6F 70 31 0D 20 6C 64 78 20 23 |e noflop1. ldx #| 00000400: 30 0D 6E 6F 66 6C 6F 70 31 20 73 74 78 20 73 70 |0.noflop1 stx sp| 00000410: 72 63 6F 6C 0D 6E 65 78 74 32 20 63 6D 70 20 23 |rcol.next2 cmp #| 00000420: 35 39 0D 20 62 6E 65 20 6E 65 78 74 33 0D 20 6C |59. bne next3. l| 00000430: 64 78 20 6D 63 30 63 6F 6C 0D 20 69 6E 78 0D 20 |dx mc0col. inx. | 00000440: 63 70 78 20 23 31 36 0D 20 62 6E 65 20 6E 6F 66 |cpx #16. bne nof| 00000450: 6C 6F 70 32 0D 20 6C 64 78 20 23 30 0D 6E 6F 66 |lop2. ldx #0.nof| 00000460: 6C 6F 70 32 20 73 74 78 20 6D 63 30 63 6F 6C 0D |lop2 stx mc0col.| 00000470: 6E 65 78 74 33 20 63 6D 70 20 23 38 0D 20 62 6E |next3 cmp #8. bn| 00000480: 65 20 6E 65 78 74 34 0D 20 6C 64 78 20 6D 63 31 |e next4. ldx mc1| 00000490: 63 6F 6C 0D 20 69 6E 78 0D 20 63 70 78 20 23 31 |col. inx. cpx #1| 000004A0: 36 0D 20 62 6E 65 20 6E 6F 66 6C 6F 70 33 0D 20 |6. bne noflop3. | 000004B0: 6C 64 78 20 23 30 0D 6E 6F 66 6C 6F 70 33 20 73 |ldx #0.noflop3 s| 000004C0: 74 78 20 6D 63 31 63 6F 6C 0D 6E 65 78 74 34 20 |tx mc1col.next4 | 000004D0: 63 6D 70 20 23 35 0D 20 62 6E 65 20 6E 65 78 74 |cmp #5. bne next| 000004E0: 35 0D 20 69 6E 63 20 35 33 32 38 31 0D 6E 65 78 |5. inc 53281.nex| 000004F0: 74 35 20 63 6D 70 20 23 36 0D 20 62 6E 65 20 6E |t5 cmp #6. bne n| 00000500: 65 78 74 36 0D 20 69 6E 63 20 35 33 32 38 30 0D |ext6. inc 53280.| 00000510: 6E 65 78 74 36 20 63 6D 70 20 23 31 37 0D 20 62 |next6 cmp #17. b| 00000520: 6E 65 20 6E 65 78 74 37 0D 20 6C 64 78 20 23 36 |ne next7. ldx #6| 00000530: 0D 20 73 74 78 20 35 33 32 38 31 0D 20 6C 64 78 |. stx 53281. ldx| 00000540: 20 23 31 34 0D 20 73 74 78 20 35 33 32 38 30 0D | #14. stx 53280.| 00000550: 6E 65 78 74 37 20 63 6D 70 20 23 34 30 0D 20 62 |next7 cmp #40. b| 00000560: 6E 65 20 6E 65 78 74 38 0D 20 6C 64 78 20 23 31 |ne next8. ldx #1| 00000570: 0D 20 73 74 78 20 78 73 70 61 6E 64 0D 6E 65 78 |. stx xspand.nex| 00000580: 74 38 20 63 6D 70 20 23 34 33 0D 20 62 6E 65 20 |t8 cmp #43. bne | 00000590: 6E 65 78 74 39 0D 20 6C 64 78 20 23 30 0D 20 73 |next9. ldx #0. s| 000005A0: 74 78 20 78 73 70 61 6E 64 0D 6E 65 78 74 39 20 |tx xspand.next9 | 000005B0: 63 6D 70 20 23 34 36 0D 20 62 6E 65 20 6E 65 78 |cmp #46. bne nex| 000005C0: 74 31 30 0D 20 6C 64 78 20 23 31 0D 20 73 74 78 |t10. ldx #1. stx| 000005D0: 20 79 73 70 61 6E 64 0D 6E 65 78 74 31 30 20 63 | yspand.next10 c| 000005E0: 6D 70 20 23 34 39 0D 20 62 6E 65 20 6E 65 78 74 |mp #49. bne next| 000005F0: 31 31 0D 20 6C 64 78 20 23 30 0D 20 73 74 78 20 |11. ldx #0. stx | 00000600: 79 73 70 61 6E 64 0D 6E 65 78 74 31 31 20 63 6D |yspand.next11 cm| 00000610: 70 20 23 32 0D 20 62 6E 65 20 6E 65 78 74 31 32 |p #2. bne next12| 00000620: 0D 20 69 6E 63 20 62 6C 6F 63 6B 0D 6E 65 78 74 |. inc block.next| 00000630: 31 32 20 63 6D 70 20 23 37 0D 20 62 6E 65 20 6E |12 cmp #7. bne n| 00000640: 65 78 74 31 33 0D 20 64 65 63 20 62 6C 6F 63 6B |ext13. dec block| 00000650: 0D 6E 65 78 74 31 33 20 63 6D 70 20 23 35 31 0D |.next13 cmp #51.| 00000660: 20 62 6E 65 20 6E 65 78 74 31 34 0D 20 6C 64 78 | bne next14. ldx| 00000670: 20 23 30 0D 20 73 74 78 20 6D 63 6D 6F 64 65 0D | #0. stx mcmode.| 00000680: 6E 65 78 74 31 34 20 63 6D 70 20 23 30 0D 20 62 |next14 cmp #0. b| 00000690: 6E 65 20 6E 65 78 74 31 35 0D 20 6C 64 78 20 23 |ne next15. ldx #| 000006A0: 31 0D 20 73 74 78 20 6D 63 6D 6F 64 65 0D 6E 65 |1. stx mcmode.ne| 000006B0: 78 74 31 35 20 63 6D 70 20 23 36 33 0D 20 62 6E |xt15 cmp #63. bn| 000006C0: 65 20 6E 65 78 74 31 36 0D 20 6A 6D 70 20 36 34 |e next16. jmp 64| 000006D0: 37 33 38 0D 6E 65 78 74 31 36 20 63 6D 70 20 23 |738.next16 cmp #| 000006E0: 31 33 0D 20 62 65 71 20 73 61 76 65 69 74 0D 20 |13. beq saveit. | 000006F0: 6A 6D 70 20 6E 65 78 74 31 37 0D 73 61 76 65 69 |jmp next17.savei| 00000700: 74 20 6E 6F 70 20 3B 73 61 76 65 0D 6E 65 78 74 |t nop ;save.next| 00000710: 31 37 20 63 6D 70 20 23 34 0D 20 62 6E 65 20 6E |17 cmp #4. bne n| 00000720: 65 78 74 31 38 0D 20 6C 64 78 20 62 6C 6F 63 6B |ext18. ldx block| 00000730: 0D 20 6C 64 61 20 23 31 0D 20 73 74 61 20 74 61 |. lda #1. sta ta| 00000740: 67 66 6C 61 67 2C 78 0D 6E 65 78 74 31 38 20 63 |gflag,x.next18 c| 00000750: 6D 70 20 23 33 0D 20 62 6E 65 20 6E 65 78 74 31 |mp #3. bne next1| 00000760: 39 0D 20 6C 64 78 20 62 6C 6F 63 6B 0D 20 6C 64 |9. ldx block. ld| 00000770: 61 20 23 30 0D 20 73 74 61 20 74 61 67 66 6C 61 |a #0. sta tagfla| 00000780: 67 2C 78 0D 6E 65 78 74 31 39 20 72 74 73 0D 64 |g,x.next19 rts.d| 00000790: 65 6C 61 79 20 6C 64 78 20 23 30 0D 69 6E 6E 65 |elay ldx #0.inne| 000007A0: 72 20 6C 64 79 20 23 30 0D 74 75 62 65 20 69 6E |r ldy #0.tube in| 000007B0: 79 0D 20 63 70 79 20 23 32 35 35 0D 20 62 6E 65 |y. cpy #255. bne| 000007C0: 20 74 75 62 65 0D 20 69 6E 78 0D 20 63 70 78 20 | tube. inx. cpx | 000007D0: 23 32 35 0D 20 62 6E 65 20 69 6E 6E 65 72 0D 20 |#25. bne inner. | 000007E0: 72 74 73 0D 6D 65 73 73 20 64 66 62 20 31 34 37 |rts.mess dfb 147| 000007F0: 2C 35 2C 31 34 2C 38 0D 20 74 78 74 20 27 A0 A0 |,5,14,8. txt '..| 00000800: A0 A0 42 A0 57 A0 52 A0 43 A0 50 A0 47 A0 42 A0 |..B.W.R.C.P.G.B.| 00000810: 59 A0 4F A0 42 A0 52 A0 47 A0 47 A0 47 A0 42 A0 |Y.O.B.R.G.G.G.B.| 00000820: 47 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 |G'. dfb 13. txt | 00000830: 27 A0 A0 A0 A0 4C A0 48 A0 45 A0 59 A0 55 A0 52 |'....L.H.E.Y.U.R| 00000840: A0 4C A0 45 A0 52 A0 52 A0 44 A0 59 A0 59 A0 52 |.L.E.R.R.D.Y.Y.R| 00000850: A0 4C A0 59 27 0D 20 64 66 62 20 31 33 0D 20 74 |.L.Y'. dfb 13. t| 00000860: 78 74 20 27 A0 A0 A0 A0 4B A0 54 A0 44 A0 4E A0 |xt '....K.T.D.N.| 00000870: 52 A0 4E A0 55 A0 4C A0 47 A0 4E A0 32 A0 31 A0 |R.N.U.L.G.N.2.1.| 00000880: 32 A0 32 A0 32 A0 33 27 0D 20 64 66 62 20 31 33 |2.2.2.3'. dfb 13| 00000890: 0D 20 74 78 74 20 27 53 50 52 3A 27 0D 20 64 66 |. txt 'SPR:'. df| 000008A0: 62 20 31 33 0D 20 74 78 74 20 27 4D 43 30 3A 27 |b 13. txt 'MC0:'| 000008B0: 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 4D |. dfb 13. txt 'M| 000008C0: 43 31 3A 27 0D 20 64 66 62 20 31 33 2C 31 33 0D |C1:'. dfb 13,13.| 000008D0: 20 74 78 74 20 27 62 4C 4F 43 4B 3A 27 0D 20 64 | txt 'bLOCK:'. d| 000008E0: 66 62 20 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 |fb 13,13,13,13,1| 000008F0: 33 2C 31 33 2C 31 33 0D 20 74 78 74 20 27 72 4F |3,13,13. txt 'rO| 00000900: 54 41 54 45 A0 42 4C 4F 43 4B A0 55 50 2F 44 4F |TATE.BLOCK.UP/DO| 00000910: 57 4E 3A A0 63 72 73 72 A0 64 6E 2F 63 72 73 72 |WN:.crsr.dn/crsr| 00000920: A0 72 67 68 74 27 0D 20 64 66 62 20 31 33 0D 20 |.rght'. dfb 13. | 00000930: 74 78 74 20 27 63 48 41 4E 47 45 A0 53 50 52 49 |txt 'cHANGE.SPRI| 00000940: 54 45 A0 43 4F 4C 4F 52 3A A0 31 27 0D 20 64 66 |TE.COLOR:.1'. df| 00000950: 62 20 31 33 0D 20 74 78 74 20 27 63 48 41 4E 47 |b 13. txt 'cHANG| 00000960: 45 A0 4D 55 4C 54 49 43 4F 4C 4F 52 30 3A A0 32 |E.MULTICOLOR0:.2| 00000970: 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 |'. dfb 13. txt '| 00000980: 63 48 41 4E 47 45 A0 4D 55 4C 54 49 43 4F 4C 4F |cHANGE.MULTICOLO| 00000990: 52 31 3A A0 33 24 27 0D 6D 65 73 73 32 20 64 66 |R1:.3$'.mess2 df| 000009A0: 62 20 31 33 0D 20 74 78 74 20 27 65 58 50 41 4E |b 13. txt 'eXPAN| 000009B0: 44 2F 43 4F 4E 54 52 41 43 54 A0 78 2D 41 58 49 |D/CONTRACT.x-AXI| 000009C0: 53 3A A0 2B 2F 2D 27 0D 20 64 66 62 20 31 33 0D |S:.+/-'. dfb 13.| 000009D0: 20 74 78 74 20 27 65 58 50 41 4E 44 2F 43 4F 4E | txt 'eXPAND/CON| 000009E0: 54 52 41 43 54 A0 79 2D 41 58 49 53 3A A0 40 2F |TRACT.y-AXIS:.@/| 000009F0: 2A 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 |*'. dfb 13. txt | 00000A00: 27 74 61 67 2F 75 6E 74 61 67 A0 42 4C 4F 43 4B |'tag/untag.BLOCK| 00000A10: 3A A0 66 31 2F 66 37 27 0D 20 64 66 62 20 31 33 |:.f1/f7'. dfb 13| 00000A20: 0D 20 74 78 74 20 27 69 4E 43 52 45 4D 45 4E 54 |. txt 'iNCREMENT| 00000A30: A0 42 41 43 4B 47 4E 44 2F 42 4F 52 44 45 52 A0 |.BACKGND/BORDER.| 00000A40: 43 4F 4C 4F 52 3A A0 66 33 2F 66 35 27 0D 20 64 |COLOR:.f3/f5'. d| 00000A50: 66 62 20 31 33 0D 20 74 78 74 20 27 6D 55 4C 54 |fb 13. txt 'mULT| 00000A60: 49 43 4F 4C 4F 52 A0 4D 4F 44 45 A0 4F 46 46 2F |ICOLOR.MODE.OFF/| 00000A70: 4F 4E 3A A0 68 6F 6D 65 2F 64 65 6C 27 0D 20 64 |ON:.home/del'. d| 00000A80: 66 62 20 31 33 0D 20 74 78 74 20 27 72 45 53 54 |fb 13. txt 'rEST| 00000A90: 4F 52 45 A0 42 41 43 4B 47 4E 44 A0 26 A0 42 4F |ORE.BACKGND.&.BO| 00000AA0: 52 44 45 52 A0 43 4F 4C 4F 52 53 3A A0 72 27 0D |RDER.COLORS:.r'.| 00000AB0: 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 73 41 | dfb 13. txt 'sA| 00000AC0: 56 45 3A A0 73 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |VE:.s...........| 00000AD0: A0 A0 A0 A0 71 55 49 54 3A A0 72 75 6E 2F 73 74 |....qUIT:.run/st| 00000AE0: 6F 70 27 0D 20 64 66 62 20 31 39 0D 20 74 78 74 |op'. dfb 19. txt| 00000AF0: 20 27 24 27 0D 78 73 70 61 6E 64 20 64 66 62 20 | '$'.xspand dfb | 00000B00: 31 0D 79 73 70 61 6E 64 20 64 66 62 20 31 0D 73 |1.yspand dfb 1.s| 00000B10: 70 72 63 6F 6C 20 64 66 62 20 31 0D 6D 63 30 63 |prcol dfb 1.mc0c| 00000B20: 6F 6C 20 64 66 62 20 32 0D 6D 63 31 63 6F 6C 20 |ol dfb 2.mc1col | 00000B30: 64 66 62 20 33 0D 6D 63 6D 6F 64 65 20 64 66 62 |dfb 3.mcmode dfb| 00000B40: 20 30 0D 62 6C 6F 63 6B 20 64 66 62 20 30 0D 74 | 0.block dfb 0.t| 00000B50: 61 67 66 6C 61 67 20 64 66 62 20 30 0D |agflag dfb 0. |
ASSGN. JSR INPUT. JSR DELAY. JMP MAIN.A
SSGN LDA #160. STA 53248. LDA #110. STA
53249. LDA #1. STA 53269. STA 55583. LDA
XSPAND. STA 53277. LDA YSPAND. STA 5327
1. LDA SPRCOL. STA 53287. LDA MC0COL. ST
A 53285. LDA MC1COL. STA 53286. LDA MCMO
DE. STA 53276. LDA BLOCK. STA 2040. STA
1311. TAX. LDA TAGFLAG,X. CMP #1. BNE OK
GO. LDA #42. STA 1448. LDA #1. STA 55720
. JMP BACK.OKGO LDA #32. STA 1448.BACK L
DA SPRCOL. CLC. ADC SPRCOL. TAX. LDA #12
2. 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 MC0COL. CLC. AD
C MC0COL. TAX. LDA #122. STA 1188,X. LDA
#1. STA 55460,X. CPX #0. BEQ DELEND2. D
EX. DEX. LDA #32. STA 1188,X. JMP DOMC1.
DELEND2 LDX #30. LDA #32. STA 1188,X.DOM
C1 LDA MC1COL. CLC. ADC MC1COL. TAX. LDA
#122. STA 1228,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 1228,X.ARG RTS.INPUT LDA 197.
CMP #56. BNE NEXT2. LDX SPRCOL. INX. CPX
#16. BNE NOFLOP1. LDX #0.NOFLOP1 STX SP
RCOL.NEXT2 CMP #59. BNE NEXT3. LDX MC0CO
L. INX. CPX #16. BNE NOFLOP2. LDX #0.NOF
LOP2 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 N
EXT6. INC 53280.NEXT6 CMP #17. BNE NEXT7
. LDX #6. STX 53281. LDX #14. STX 53280.
NEXT7 CMP #40. BNE NEXT8. LDX #1. STX XS
PAND.NEXT8 CMP #43. BNE NEXT9. LDX #0. S
TX XSPAND.NEXT9 CMP #46. BNE NEXT10. LDX
#1. STX YSPAND.NEXT10 CMP #49. BNE NEXT
11. LDX #0. STX YSPAND.NEXT11 CMP #2. BN
E NEXT12. INC BLOCK.NEXT12 CMP #7. BNE N
EXT13. DEC BLOCK.NEXT13 CMP #51. BNE NEX
T14. LDX #0. STX MCMODE.NEXT14 CMP #0. B
NE NEXT15. LDX #1. STX MCMODE.NEXT15 CMP
#63. BNE NEXT16. JMP 64738.NEXT16 CMP #
13. BEQ SAVEIT. JMP NEXT17.SAVEIT NOP ;S
AVE.NEXT17 CMP #4. BNE NEXT18. LDX BLOCK
. LDA #1. STA TAGFLAG,X.NEXT18 CMP #3. B
NE NEXT19. LDX BLOCK. LDA #0. STA TAGFLA
G,X.NEXT19 RTS.DELAY LDX #0.INNER LDY #0
.TUBE INY. CPY #255. BNE TUBE. INX. CPX
#25. BNE INNER. 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 'S
PR:'. DFB 13. TXT 'MC0:'. DFB 13. TXT 'M
C1:'. DFB 13,13. TXT 'BLOCK:'. DFB 13,13
,13,13,13,13,13. TXT 'ROTATE BLOCK UP/DO
WN: CRSR DN/CRSR RGHT'. DFB 13. TXT 'CHA
NGE SPRITE COLOR: 1'. DFB 13. TXT 'CHANG
E MULTICOLOR0: 2'. DFB 13. TXT 'CHANGE M
ULTICOLOR1: 3$'.MESS2 DFB 13. TXT 'EXPAN
D/CONTRACT X-AXIS: +/-'. DFB 13. TXT 'EX
PAND/CONTRACT Y-AXIS: @/*'. DFB 13. TXT
'TAG/UNTAG BLOCK: F1/F7'. DFB 13. TXT 'I
NCREMENT BACKGND/BORDER COLOR: F3/F5'. D
FB 13. TXT 'MULTICOLOR MODE OFF/ON: HOME
/DEL'. DFB 13. TXT 'RESTORE BACKGND & BO
RDER COLORS: R'. DFB 13. TXT 'SAVE: S
QUIT: RUN/STOP'. DFB 19. TXT
'$'.XSPAND DFB 1.YSPAND DFB 1.SPRCOL DF
B 1.MC0COL DFB 2.MC1COL DFB 3.MCMODE DFB
0.BLOCK DFB 0.TAGFLAG DFB 0.
> CLICK IMAGE PREVIEW FOR FULL MODAL