00000000: 6C 64 78 20 23 30 0D 20 73 74 78 20 79 73 70 61 |ldx #0. stx yspa|
00000010: 6E 64 0D 6E 65 78 74 31 31 20 63 6D 70 20 23 32 |nd.next11 cmp #2|
00000020: 0D 20 62 6E 65 20 6E 65 78 74 31 32 0D 20 69 6E |. bne next12. in|
00000030: 63 20 62 6C 6F 63 6B 0D 6E 65 78 74 31 32 20 63 |c block.next12 c|
00000040: 6D 70 20 23 37 0D 20 62 6E 65 20 6E 65 78 74 31 |mp #7. bne next1|
00000050: 33 0D 20 64 65 63 20 62 6C 6F 63 6B 0D 6E 65 78 |3. dec block.nex|
00000060: 74 31 33 20 63 6D 70 20 23 35 31 0D 20 62 6E 65 |t13 cmp #51. bne|
00000070: 20 6E 65 78 74 31 34 0D 20 6C 64 78 20 23 30 0D | next14. ldx #0.|
00000080: 20 73 74 78 20 6D 63 6D 6F 64 65 0D 6E 65 78 74 | stx mcmode.next|
00000090: 31 34 20 63 6D 70 20 23 30 0D 20 62 6E 65 20 6E |14 cmp #0. bne n|
000000A0: 65 78 74 31 35 0D 20 6C 64 78 20 23 31 0D 20 73 |ext15. ldx #1. s|
000000B0: 74 78 20 6D 63 6D 6F 64 65 0D 6E 65 78 74 31 35 |tx mcmode.next15|
000000C0: 20 63 6D 70 20 23 36 33 0D 20 62 6E 65 20 6E 65 | cmp #63. bne ne|
000000D0: 78 74 31 36 0D 20 6A 6D 70 20 36 34 37 33 38 0D |xt16. jmp 64738.|
000000E0: 6E 65 78 74 31 36 20 63 6D 70 20 23 31 33 0D 20 |next16 cmp #13. |
000000F0: 62 65 71 20 73 61 76 65 69 74 0D 20 6A 6D 70 20 |beq saveit. jmp |
00000100: 6E 65 78 74 31 37 0D 73 61 76 65 69 74 20 6E 6F |next17.saveit no|
00000110: 70 20 3B 73 61 76 65 0D 6E 65 78 74 31 37 20 63 |p ;save.next17 c|
00000120: 6D 70 20 23 34 0D 20 62 6E 65 20 6E 65 78 74 31 |mp #4. bne next1|
00000130: 38 0D 20 6C 64 78 20 62 6C 6F 63 6B 0D 20 6C 64 |8. ldx block. ld|
00000140: 61 20 23 31 0D 20 73 74 61 20 74 61 67 66 6C 61 |a #1. sta tagfla|
00000150: 67 2C 78 0D 6E 65 78 74 31 38 20 63 6D 70 20 23 |g,x.next18 cmp #|
00000160: 33 0D 20 62 6E 65 20 6E 65 78 74 31 39 0D 20 6C |3. bne next19. l|
00000170: 64 78 20 62 6C 6F 63 6B 0D 20 6C 64 61 20 23 30 |dx block. lda #0|
00000180: 0D 20 73 74 61 20 74 61 67 66 6C 61 67 2C 78 0D |. sta tagflag,x.|
00000190: 6E 65 78 74 31 39 20 72 74 73 0D 64 65 6C 61 79 |next19 rts.delay|
000001A0: 20 6C 64 78 20 23 30 0D 69 6E 6E 65 72 20 6C 64 | ldx #0.inner ld|
000001B0: 79 20 23 30 0D 74 75 62 65 20 69 6E 79 0D 20 63 |y #0.tube iny. c|
000001C0: 70 79 20 23 32 35 35 0D 20 62 6E 65 20 74 75 62 |py #255. bne tub|
000001D0: 65 0D 20 69 6E 78 0D 20 63 70 78 20 23 32 35 0D |e. inx. cpx #25.|
000001E0: 20 62 6E 65 20 69 6E 6E 65 72 0D 20 72 74 73 0D | bne inner. rts.|
000001F0: 6D 65 73 73 20 64 66 62 20 31 34 37 2C 35 2C 31 |mess dfb 147,5,1|
00000200: 34 2C 38 0D 20 74 78 74 20 27 A0 A0 A0 A0 42 A0 |4,8. txt '....B.|
00000210: 57 A0 52 A0 43 A0 50 A0 47 A0 42 A0 59 A0 4F A0 |W.R.C.P.G.B.Y.O.|
00000220: 42 A0 52 A0 47 A0 47 A0 47 A0 42 A0 47 27 0D 20 |B.R.G.G.G.B.G'. |
00000230: 64 66 62 20 31 33 0D 20 74 78 74 20 27 A0 A0 A0 |dfb 13. txt '...|
00000240: A0 4C A0 48 A0 45 A0 59 A0 55 A0 52 A0 4C A0 45 |.L.H.E.Y.U.R.L.E|
00000250: A0 52 A0 52 A0 44 A0 59 A0 59 A0 52 A0 4C A0 59 |.R.R.D.Y.Y.R.L.Y|
00000260: 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 |'. dfb 13. txt '|
00000270: A0 A0 A0 A0 4B A0 54 A0 44 A0 4E A0 52 A0 4E A0 |....K.T.D.N.R.N.|
00000280: 55 A0 4C A0 47 A0 4E A0 32 A0 31 A0 32 A0 32 A0 |U.L.G.N.2.1.2.2.|
00000290: 32 A0 33 27 0D 20 64 66 62 20 31 33 0D 20 74 78 |2.3'. dfb 13. tx|
000002A0: 74 20 27 53 50 52 3A 27 0D 20 64 66 62 20 31 33 |t 'SPR:'. dfb 13|
000002B0: 0D 20 74 78 74 20 27 4D 43 30 3A 27 0D 20 64 66 |. txt 'MC0:'. df|
000002C0: 62 20 31 33 0D 20 74 78 74 20 27 4D 43 31 3A 27 |b 13. txt 'MC1:'|
000002D0: 0D 20 64 66 62 20 31 33 2C 31 33 0D 20 74 78 74 |. dfb 13,13. txt|
000002E0: 20 27 62 4C 4F 43 4B 3A 27 0D 20 64 66 62 20 31 | 'bLOCK:'. dfb 1|
000002F0: 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 |3,13,13,13,13,13|
00000300: 2C 31 33 0D 20 74 78 74 20 27 72 4F 54 41 54 45 |,13. txt 'rOTATE|
00000310: A0 42 4C 4F 43 4B A0 55 50 2F 44 4F 57 4E 3A A0 |.BLOCK.UP/DOWN:.|
00000320: 63 72 73 72 A0 64 6E 2F 63 72 73 72 A0 72 67 68 |crsr.dn/crsr.rgh|
00000330: 74 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 |t'. dfb 13. txt |
00000340: 27 63 48 41 4E 47 45 A0 53 50 52 49 54 45 A0 43 |'cHANGE.SPRITE.C|
00000350: 4F 4C 4F 52 3A A0 31 27 0D 20 64 66 62 20 31 33 |OLOR:.1'. dfb 13|
00000360: 0D 20 74 78 74 20 27 63 48 41 4E 47 45 A0 4D 55 |. txt 'cHANGE.MU|
00000370: 4C 54 49 43 4F 4C 4F 52 30 3A A0 32 27 0D 20 64 |LTICOLOR0:.2'. d|
00000380: 66 62 20 31 33 0D 20 74 78 74 20 27 63 48 41 4E |fb 13. txt 'cHAN|
00000390: 47 45 A0 4D 55 4C 54 49 43 4F 4C 4F 52 31 3A A0 |GE.MULTICOLOR1:.|
000003A0: 33 24 27 0D 6D 65 73 73 32 20 64 66 62 20 31 33 |3$'.mess2 dfb 13|
000003B0: 0D 20 74 78 74 20 27 65 58 50 41 4E 44 2F 43 4F |. txt 'eXPAND/CO|
000003C0: 4E 54 52 41 43 54 A0 78 2D 41 58 49 53 3A A0 2B |NTRACT.x-AXIS:.+|
000003D0: 2F 2D 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 |/-'. dfb 13. txt|
000003E0: 20 27 65 58 50 41 4E 44 2F 43 4F 4E 54 52 41 43 | 'eXPAND/CONTRAC|
000003F0: 54 A0 79 2D 41 58 49 53 3A A0 40 2F 2A 27 0D 20 |T.y-AXIS:.@/*'. |
00000400: 64 66 62 20 31 33 0D 20 74 78 74 20 27 74 61 67 |dfb 13. txt 'tag|
00000410: 2F 75 6E 74 61 67 A0 42 4C 4F 43 4B 3A A0 66 31 |/untag.BLOCK:.f1|
00000420: 2F 66 37 27 0D 20 64 66 62 20 31 33 0D 20 74 78 |/f7'. dfb 13. tx|
00000430: 74 20 27 69 4E 43 52 45 4D 45 4E 54 A0 42 41 43 |t 'iNCREMENT.BAC|
00000440: 4B 47 4E 44 2F 42 4F 52 44 45 52 A0 43 4F 4C 4F |KGND/BORDER.COLO|
00000450: 52 3A A0 66 33 2F 66 35 27 0D 20 64 66 62 20 31 |R:.f3/f5'. dfb 1|
00000460: 33 0D 20 74 78 74 20 27 6D 55 4C 54 49 43 4F 4C |3. txt 'mULTICOL|
00000470: 4F 52 A0 4D 4F 44 45 A0 4F 46 46 2F 4F 4E 3A A0 |OR.MODE.OFF/ON:.|
00000480: 68 6F 6D 65 2F 64 65 6C 27 0D 20 64 66 62 20 31 |home/del'. dfb 1|
00000490: 33 0D 20 74 78 74 20 27 72 45 53 54 4F 52 45 A0 |3. txt 'rESTORE.|
000004A0: 42 41 43 4B 47 4E 44 A0 26 A0 42 4F 52 44 45 52 |BACKGND.&.BORDER|
000004B0: A0 43 4F 4C 4F 52 53 3A A0 72 27 0D 20 64 66 62 |.COLORS:.r'. dfb|
000004C0: 20 31 33 0D 20 74 78 74 20 27 73 41 56 45 3A A0 | 13. txt 'sAVE:.|
000004D0: 73 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |s...............|
000004E0: 71 55 49 54 3A A0 72 75 6E 2F 73 74 6F 70 27 0D |qUIT:.run/stop'.|
000004F0: 20 64 66 62 20 31 39 0D 20 74 78 74 20 27 24 27 | dfb 19. txt '$'|
00000500: 0D 78 73 70 61 6E 64 20 64 66 62 20 31 0D 79 73 |.xspand dfb 1.ys|
00000510: 70 61 6E 64 20 64 66 62 20 31 0D 73 70 72 63 6F |pand dfb 1.sprco|
00000520: 6C 20 64 66 62 20 31 0D 6D 63 30 63 6F 6C 20 64 |l dfb 1.mc0col d|
00000530: 66 62 20 32 0D 6D 63 31 63 6F 6C 20 64 66 62 20 |fb 2.mc1col dfb |
00000540: 33 0D 6D 63 6D 6F 64 65 20 64 66 62 20 30 0D 62 |3.mcmode dfb 0.b|
00000550: 6C 6F 63 6B 20 64 66 62 20 30 0D 74 61 67 66 6C |lock dfb 0.tagfl|
00000560: 61 67 20 64 66 62 20 30 0D |ag dfb 0. |
LDX #0. STX YSPAND.NEXT11 CMP #2. BNE NE
XT12. INC BLOCK.NEXT12 CMP #7. BNE NEXT1
3. DEC BLOCK.NEXT13 CMP #51. BNE NEXT14.
LDX #0. STX MCMODE.NEXT14 CMP #0. BNE N
EXT15. LDX #1. STX MCMODE.NEXT15 CMP #63
. BNE NEXT16. JMP 64738.NEXT16 CMP #13.
BEQ SAVEIT. JMP NEXT17.SAVEIT NOP ;SAVE.
NEXT17 CMP #4. BNE NEXT18. LDX BLOCK. LD
A #1. STA TAGFLAG,X.NEXT18 CMP #3. BNE N
EXT19. LDX BLOCK. LDA #0. STA TAGFLAG,X.
NEXT19 RTS.DELAY LDX #0.INNER LDY #0.TUB
E 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 '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 COLOR: 1'. DFB 13. TXT 'CHANGE MU
LTICOLOR0: 2'. DFB 13. TXT 'CHANGE MULTI
COLOR1: 3$'.MESS2 DFB 13. TXT 'EXPAND/CO
NTRACT X-AXIS: +/-'. DFB 13. TXT 'EXPAND
/CONTRACT Y-AXIS: @/*'. DFB 13. TXT 'TAG
/UNTAG BLOCK: F1/F7'. DFB 13. TXT 'INCRE
MENT BACKGND/BORDER COLOR: F3/F5'. DFB 1
3. TXT 'MULTICOLOR MODE OFF/ON: HOME/DEL
'. DFB 13. 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 DFB 2.MC1COL DFB 3.MCMODE DFB 0.B
LOCK DFB 0.TAGFLAG DFB 0.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL