00000000: 70 20 6E 65 78 74 31 37 0D 73 61 76 65 69 74 20 |p next17.saveit |
00000010: 6E 6F 70 20 3B 73 61 76 65 0D 6E 65 78 74 31 37 |nop ;save.next17|
00000020: 20 63 6D 70 20 23 34 0D 20 62 6E 65 20 6E 65 78 | cmp #4. bne nex|
00000030: 74 31 38 0D 20 6C 64 78 20 62 6C 6F 63 6B 0D 20 |t18. ldx block. |
00000040: 6C 64 61 20 23 31 0D 20 73 74 61 20 74 61 67 66 |lda #1. sta tagf|
00000050: 6C 61 67 2C 78 0D 6E 65 78 74 31 38 20 63 6D 70 |lag,x.next18 cmp|
00000060: 20 23 33 0D 20 62 6E 65 20 6E 65 78 74 31 39 0D | #3. bne next19.|
00000070: 20 6C 64 78 20 62 6C 6F 63 6B 0D 20 6C 64 61 20 | ldx block. lda |
00000080: 23 30 0D 20 73 74 61 20 74 61 67 66 6C 61 67 2C |#0. sta tagflag,|
00000090: 78 0D 6E 65 78 74 31 39 20 72 74 73 0D 64 65 6C |x.next19 rts.del|
000000A0: 61 79 20 6C 64 78 20 23 30 0D 69 6E 6E 65 72 20 |ay ldx #0.inner |
000000B0: 6C 64 79 20 23 30 0D 74 75 62 65 20 69 6E 79 0D |ldy #0.tube iny.|
000000C0: 20 63 70 79 20 23 32 35 35 0D 20 62 6E 65 20 74 | cpy #255. bne t|
000000D0: 75 62 65 0D 20 69 6E 78 0D 20 63 70 78 20 23 32 |ube. inx. cpx #2|
000000E0: 35 0D 20 62 6E 65 20 69 6E 6E 65 72 0D 20 72 74 |5. bne inner. rt|
000000F0: 73 0D 6D 65 73 73 20 64 66 62 20 31 34 37 2C 35 |s.mess dfb 147,5|
00000100: 2C 31 34 2C 38 0D 20 74 78 74 20 27 A0 A0 A0 A0 |,14,8. txt '....|
00000110: 42 A0 57 A0 52 A0 43 A0 50 A0 47 A0 42 A0 59 A0 |B.W.R.C.P.G.B.Y.|
00000120: 4F A0 42 A0 52 A0 47 A0 47 A0 47 A0 42 A0 47 27 |O.B.R.G.G.G.B.G'|
00000130: 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 A0 |. dfb 13. txt '.|
00000140: A0 A0 A0 4C A0 48 A0 45 A0 59 A0 55 A0 52 A0 4C |...L.H.E.Y.U.R.L|
00000150: A0 45 A0 52 A0 52 A0 44 A0 59 A0 59 A0 52 A0 4C |.E.R.R.D.Y.Y.R.L|
00000160: A0 59 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 |.Y'. dfb 13. txt|
00000170: 20 27 A0 A0 A0 A0 4B A0 54 A0 44 A0 4E A0 52 A0 | '....K.T.D.N.R.|
00000180: 4E A0 55 A0 4C A0 47 A0 4E A0 32 A0 31 A0 32 A0 |N.U.L.G.N.2.1.2.|
00000190: 32 A0 32 A0 33 27 0D 20 64 66 62 20 31 33 0D 20 |2.2.3'. dfb 13. |
000001A0: 74 78 74 20 27 53 50 52 3A 27 0D 20 64 66 62 20 |txt 'SPR:'. dfb |
000001B0: 31 33 0D 20 74 78 74 20 27 4D 43 30 3A 27 0D 20 |13. txt 'MC0:'. |
000001C0: 64 66 62 20 31 33 0D 20 74 78 74 20 27 4D 43 31 |dfb 13. txt 'MC1|
000001D0: 3A 27 0D 20 64 66 62 20 31 33 2C 31 33 0D 20 74 |:'. dfb 13,13. t|
000001E0: 78 74 20 27 62 4C 4F 43 4B 3A 27 0D 20 64 66 62 |xt 'bLOCK:'. dfb|
000001F0: 20 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 2C | 13,13,13,13,13,|
00000200: 31 33 2C 31 33 0D 20 74 78 74 20 27 72 4F 54 41 |13,13. txt 'rOTA|
00000210: 54 45 A0 42 4C 4F 43 4B A0 55 50 2F 44 4F 57 4E |TE.BLOCK.UP/DOWN|
00000220: 3A A0 63 72 73 72 A0 64 6E 2F 63 72 73 72 A0 72 |:.crsr.dn/crsr.r|
00000230: 67 68 74 27 0D 20 64 66 62 20 31 33 0D 20 74 78 |ght'. dfb 13. tx|
00000240: 74 20 27 63 48 41 4E 47 45 A0 53 50 52 49 54 45 |t 'cHANGE.SPRITE|
00000250: A0 43 4F 4C 4F 52 3A A0 31 27 0D 20 64 66 62 20 |.COLOR:.1'. dfb |
00000260: 31 33 0D 20 74 78 74 20 27 63 48 41 4E 47 45 A0 |13. txt 'cHANGE.|
00000270: 4D 55 4C 54 49 43 4F 4C 4F 52 30 3A A0 32 27 0D |MULTICOLOR0:.2'.|
00000280: 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 63 48 | dfb 13. txt 'cH|
00000290: 41 4E 47 45 A0 4D 55 4C 54 49 43 4F 4C 4F 52 31 |ANGE.MULTICOLOR1|
000002A0: 3A A0 33 24 27 0D 6D 65 73 73 32 20 64 66 62 20 |:.3$'.mess2 dfb |
000002B0: 31 33 0D 20 74 78 74 20 27 65 58 50 41 4E 44 2F |13. txt 'eXPAND/|
000002C0: 43 4F 4E 54 52 41 43 54 A0 78 2D 41 58 49 53 3A |CONTRACT.x-AXIS:|
000002D0: A0 2B 2F 2D 27 0D 20 64 66 62 20 31 33 0D 20 74 |.+/-'. dfb 13. t|
000002E0: 78 74 20 27 65 58 50 41 4E 44 2F 43 4F 4E 54 52 |xt 'eXPAND/CONTR|
000002F0: 41 43 54 A0 79 2D 41 58 49 53 3A A0 40 2F 2A 27 |ACT.y-AXIS:.@/*'|
00000300: 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 74 |. dfb 13. txt 't|
00000310: 61 67 2F 75 6E 74 61 67 A0 42 4C 4F 43 4B 3A A0 |ag/untag.BLOCK:.|
00000320: 66 31 2F 66 37 27 0D 20 64 66 62 20 31 33 0D 20 |f1/f7'. dfb 13. |
00000330: 74 78 74 20 27 69 4E 43 52 45 4D 45 4E 54 A0 42 |txt 'iNCREMENT.B|
00000340: 41 43 4B 47 4E 44 2F 42 4F 52 44 45 52 A0 43 4F |ACKGND/BORDER.CO|
00000350: 4C 4F 52 3A A0 66 33 2F 66 35 27 0D 20 64 66 62 |LOR:.f3/f5'. dfb|
00000360: 20 31 33 0D 20 74 78 74 20 27 6D 55 4C 54 49 43 | 13. txt 'mULTIC|
00000370: 4F 4C 4F 52 A0 4D 4F 44 45 A0 4F 46 46 2F 4F 4E |OLOR.MODE.OFF/ON|
00000380: 3A A0 68 6F 6D 65 2F 64 65 6C 27 0D 20 64 66 62 |:.home/del'. dfb|
00000390: 20 31 33 0D 20 74 78 74 20 27 72 45 53 54 4F 52 | 13. txt 'rESTOR|
000003A0: 45 A0 42 41 43 4B 47 4E 44 A0 26 A0 42 4F 52 44 |E.BACKGND.&.BORD|
000003B0: 45 52 A0 43 4F 4C 4F 52 53 3A A0 72 27 0D 20 64 |ER.COLORS:.r'. d|
000003C0: 66 62 20 31 33 0D 20 74 78 74 20 27 73 41 56 45 |fb 13. txt 'sAVE|
000003D0: 3A A0 73 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |:.s.............|
000003E0: A0 A0 71 55 49 54 3A A0 72 75 6E 2F 73 74 6F 70 |..qUIT:.run/stop|
000003F0: 27 0D 20 64 66 62 20 31 39 0D 20 74 78 74 20 27 |'. dfb 19. txt '|
00000400: 24 27 0D 78 73 70 61 6E 64 20 64 66 62 20 31 0D |$'.xspand dfb 1.|
00000410: 79 73 70 61 6E 64 20 64 66 62 20 31 0D 73 70 72 |yspand dfb 1.spr|
00000420: 63 6F 6C 20 64 66 62 20 31 0D 6D 63 30 63 6F 6C |col dfb 1.mc0col|
00000430: 20 64 66 62 20 32 0D 6D 63 31 63 6F 6C 20 64 66 | dfb 2.mc1col df|
00000440: 62 20 33 0D 6D 63 6D 6F 64 65 20 64 66 62 20 30 |b 3.mcmode dfb 0|
00000450: 0D 62 6C 6F 63 6B 20 64 66 62 20 30 0D 74 61 67 |.block dfb 0.tag|
00000460: 66 6C 61 67 20 64 66 62 20 30 0D |flag dfb 0. |
P NEXT17.SAVEIT NOP ;SAVE.NEXT17 CMP #4.
BNE NEXT18. LDX BLOCK. LDA #1. STA TAGF
LAG,X.NEXT18 CMP #3. BNE NEXT19. LDX BLO
CK. LDA #0. STA TAGFLAG,X.NEXT19 RTS.DEL
AY LDX #0.INNER LDY #0.TUBE INY. CPY #25
5. BNE TUBE. INX. CPX #25. BNE INNER. RT
S.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. T
XT 'BLOCK:'. DFB 13,13,13,13,13,13,13. T
XT 'ROTATE BLOCK UP/DOWN: CRSR DN/CRSR R
GHT'. DFB 13. TXT 'CHANGE SPRITE COLOR:
1'. DFB 13. TXT 'CHANGE MULTICOLOR0: 2'.
DFB 13. TXT 'CHANGE MULTICOLOR1: 3$'.ME
SS2 DFB 13. TXT 'EXPAND/CONTRACT X-AXIS:
+/-'. DFB 13. TXT 'EXPAND/CONTRACT Y-AX
IS: @/*'. DFB 13. TXT 'TAG/UNTAG BLOCK:
F1/F7'. DFB 13. TXT 'INCREMENT BACKGND/B
ORDER COLOR: F3/F5'. DFB 13. TXT 'MULTIC
OLOR MODE OFF/ON: HOME/DEL'. DFB 13. TXT
'RESTORE BACKGND & BORDER COLORS: R'. D
FB 13. TXT 'SAVE: S QUIT:
RUN/STOP'. DFB 19. TXT '$'.XSPAND DFB 1.
YSPAND DFB 1.SPRCOL DFB 1.MC0COL DFB 2.M
C1COL DFB 3.MCMODE DFB 0.BLOCK DFB 0.TAG
FLAG DFB 0.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL