00000000: 20 23 36 0D 20 62 6E 65 20 6E 65 78 74 36 0D 20 | #6. bne next6. |
00000010: 69 6E 63 20 35 33 32 38 30 0D 6E 65 78 74 36 20 |inc 53280.next6 |
00000020: 63 6D 70 20 23 31 37 0D 20 62 6E 65 20 6E 65 78 |cmp #17. bne nex|
00000030: 74 37 0D 20 6C 64 78 20 23 36 0D 20 73 74 78 20 |t7. ldx #6. stx |
00000040: 35 33 32 38 31 0D 20 6C 64 78 20 23 31 34 0D 20 |53281. ldx #14. |
00000050: 73 74 78 20 35 33 32 38 30 0D 6E 65 78 74 37 20 |stx 53280.next7 |
00000060: 63 6D 70 20 23 34 30 0D 20 62 6E 65 20 6E 65 78 |cmp #40. bne nex|
00000070: 74 38 0D 20 6C 64 78 20 23 31 0D 20 73 74 78 20 |t8. ldx #1. stx |
00000080: 78 73 70 61 6E 64 0D 6E 65 78 74 38 20 63 6D 70 |xspand.next8 cmp|
00000090: 20 23 34 33 0D 20 62 6E 65 20 6E 65 78 74 39 0D | #43. bne next9.|
000000A0: 20 6C 64 78 20 23 30 0D 20 73 74 78 20 78 73 70 | ldx #0. stx xsp|
000000B0: 61 6E 64 0D 6E 65 78 74 39 20 63 6D 70 20 23 34 |and.next9 cmp #4|
000000C0: 36 0D 20 62 6E 65 20 6E 65 78 74 31 30 0D 20 6C |6. bne next10. l|
000000D0: 64 78 20 23 31 0D 20 73 74 78 20 79 73 70 61 6E |dx #1. stx yspan|
000000E0: 64 0D 6E 65 78 74 31 30 20 63 6D 70 20 23 34 39 |d.next10 cmp #49|
000000F0: 0D 20 62 6E 65 20 6E 65 78 74 31 31 0D 20 6C 64 |. bne next11. ld|
00000100: 78 20 23 30 0D 20 73 74 78 20 79 73 70 61 6E 64 |x #0. stx yspand|
00000110: 0D 6E 65 78 74 31 31 20 63 6D 70 20 23 32 0D 20 |.next11 cmp #2. |
00000120: 62 6E 65 20 6E 65 78 74 31 32 0D 20 69 6E 63 20 |bne next12. inc |
00000130: 62 6C 6F 63 6B 0D 6E 65 78 74 31 32 20 63 6D 70 |block.next12 cmp|
00000140: 20 23 37 0D 20 62 6E 65 20 6E 65 78 74 31 33 0D | #7. bne next13.|
00000150: 20 64 65 63 20 62 6C 6F 63 6B 0D 6E 65 78 74 31 | dec block.next1|
00000160: 33 20 63 6D 70 20 23 35 31 0D 20 62 6E 65 20 6E |3 cmp #51. bne n|
00000170: 65 78 74 31 34 0D 20 6C 64 78 20 23 30 0D 20 73 |ext14. ldx #0. s|
00000180: 74 78 20 6D 63 6D 6F 64 65 0D 6E 65 78 74 31 34 |tx mcmode.next14|
00000190: 20 63 6D 70 20 23 30 0D 20 62 6E 65 20 6E 65 78 | cmp #0. bne nex|
000001A0: 74 31 35 0D 20 6C 64 78 20 23 31 0D 20 73 74 78 |t15. ldx #1. stx|
000001B0: 20 6D 63 6D 6F 64 65 0D 6E 65 78 74 31 35 20 63 | mcmode.next15 c|
000001C0: 6D 70 20 23 36 33 0D 20 62 6E 65 20 6E 65 78 74 |mp #63. bne next|
000001D0: 31 36 0D 20 6A 6D 70 20 36 34 37 33 38 0D 6E 65 |16. jmp 64738.ne|
000001E0: 78 74 31 36 20 63 6D 70 20 23 31 33 0D 20 62 65 |xt16 cmp #13. be|
000001F0: 71 20 73 61 76 65 69 74 0D 20 6A 6D 70 20 6E 65 |q saveit. jmp ne|
00000200: 78 74 31 37 0D 73 61 76 65 69 74 20 6E 6F 70 20 |xt17.saveit nop |
00000210: 3B 73 61 76 65 0D 6E 65 78 74 31 37 20 63 6D 70 |;save.next17 cmp|
00000220: 20 23 34 0D 20 62 6E 65 20 6E 65 78 74 31 38 0D | #4. bne next18.|
00000230: 20 6C 64 78 20 62 6C 6F 63 6B 0D 20 6C 64 61 20 | ldx block. lda |
00000240: 23 31 0D 20 73 74 61 20 74 61 67 66 6C 61 67 2C |#1. sta tagflag,|
00000250: 78 0D 6E 65 78 74 31 38 20 63 6D 70 20 23 33 0D |x.next18 cmp #3.|
00000260: 20 62 6E 65 20 6E 65 78 74 31 39 0D 20 6C 64 78 | bne next19. ldx|
00000270: 20 62 6C 6F 63 6B 0D 20 6C 64 61 20 23 30 0D 20 | block. lda #0. |
00000280: 73 74 61 20 74 61 67 66 6C 61 67 2C 78 0D 6E 65 |sta tagflag,x.ne|
00000290: 78 74 31 39 20 72 74 73 0D 64 65 6C 61 79 20 6C |xt19 rts.delay l|
000002A0: 64 78 20 23 30 0D 69 6E 6E 65 72 20 6C 64 79 20 |dx #0.inner ldy |
000002B0: 23 30 0D 74 75 62 65 20 69 6E 79 0D 20 63 70 79 |#0.tube iny. cpy|
000002C0: 20 23 32 35 35 0D 20 62 6E 65 20 74 75 62 65 0D | #255. bne tube.|
000002D0: 20 69 6E 78 0D 20 63 70 78 20 23 32 35 0D 20 62 | inx. cpx #25. b|
000002E0: 6E 65 20 69 6E 6E 65 72 0D 20 72 74 73 0D 6D 65 |ne inner. rts.me|
000002F0: 73 73 20 64 66 62 20 31 34 37 2C 35 2C 31 34 2C |ss dfb 147,5,14,|
00000300: 38 0D 20 74 78 74 20 27 A0 A0 A0 A0 42 A0 57 A0 |8. txt '....B.W.|
00000310: 52 A0 43 A0 50 A0 47 A0 42 A0 59 A0 4F A0 42 A0 |R.C.P.G.B.Y.O.B.|
00000320: 52 A0 47 A0 47 A0 47 A0 42 A0 47 27 0D 20 64 66 |R.G.G.G.B.G'. df|
00000330: 62 20 31 33 0D 20 74 78 74 20 27 A0 A0 A0 A0 4C |b 13. txt '....L|
00000340: A0 48 A0 45 A0 59 A0 55 A0 52 A0 4C A0 45 A0 52 |.H.E.Y.U.R.L.E.R|
00000350: A0 52 A0 44 A0 59 A0 59 A0 52 A0 4C A0 59 27 0D |.R.D.Y.Y.R.L.Y'.|
00000360: 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 A0 A0 | dfb 13. txt '..|
00000370: A0 A0 4B A0 54 A0 44 A0 4E A0 52 A0 4E A0 55 A0 |..K.T.D.N.R.N.U.|
00000380: 4C A0 47 A0 4E A0 32 A0 31 A0 32 A0 32 A0 32 A0 |L.G.N.2.1.2.2.2.|
00000390: 33 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 |3'. dfb 13. txt |
000003A0: 27 53 50 52 3A 27 0D 20 64 66 62 20 31 33 0D 20 |'SPR:'. dfb 13. |
000003B0: 74 78 74 20 27 4D 43 30 3A 27 0D 20 64 66 62 20 |txt 'MC0:'. dfb |
000003C0: 31 33 0D 20 74 78 74 20 27 4D 43 31 3A 27 0D 20 |13. txt 'MC1:'. |
000003D0: 64 66 62 20 31 33 2C 31 33 0D 20 74 78 74 20 27 |dfb 13,13. txt '|
000003E0: 62 4C 4F 43 4B 3A 27 0D 20 64 66 62 20 31 33 2C |bLOCK:'. dfb 13,|
000003F0: 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 |13,13,13,13,13,1|
00000400: 33 0D 20 74 78 74 20 27 72 4F 54 41 54 45 A0 42 |3. txt 'rOTATE.B|
00000410: 4C 4F 43 4B A0 55 50 2F 44 4F 57 4E 3A A0 63 72 |LOCK.UP/DOWN:.cr|
00000420: 73 72 A0 64 6E 2F 63 72 73 72 A0 72 67 68 74 27 |sr.dn/crsr.rght'|
00000430: 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 63 |. dfb 13. txt 'c|
00000440: 48 41 4E 47 45 A0 53 50 52 49 54 45 A0 43 4F 4C |HANGE.SPRITE.COL|
00000450: 4F 52 3A A0 31 27 0D 20 64 66 62 20 31 33 0D 20 |OR:.1'. dfb 13. |
00000460: 74 78 74 20 27 63 48 41 4E 47 45 A0 4D 55 4C 54 |txt 'cHANGE.MULT|
00000470: 49 43 4F 4C 4F 52 30 3A A0 32 27 0D 20 64 66 62 |ICOLOR0:.2'. dfb|
00000480: 20 31 33 0D 20 74 78 74 20 27 63 48 41 4E 47 45 | 13. txt 'cHANGE|
00000490: A0 4D 55 4C 54 49 43 4F 4C 4F 52 31 3A A0 33 24 |.MULTICOLOR1:.3$|
000004A0: 27 0D 6D 65 73 73 32 20 64 66 62 20 31 33 0D 20 |'.mess2 dfb 13. |
000004B0: 74 78 74 20 27 65 58 50 41 4E 44 2F 43 4F 4E 54 |txt 'eXPAND/CONT|
000004C0: 52 41 43 54 A0 78 2D 41 58 49 53 3A A0 2B 2F 2D |RACT.x-AXIS:.+/-|
000004D0: 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 27 |'. dfb 13. txt '|
000004E0: 65 58 50 41 4E 44 2F 43 4F 4E 54 52 41 43 54 A0 |eXPAND/CONTRACT.|
000004F0: 79 2D 41 58 49 53 3A A0 40 2F 2A 27 0D 20 64 66 |y-AXIS:.@/*'. df|
00000500: 62 20 31 33 0D 20 74 78 74 20 27 74 61 67 2F 75 |b 13. txt 'tag/u|
00000510: 6E 74 61 67 A0 42 4C 4F 43 4B 3A A0 66 31 2F 66 |ntag.BLOCK:.f1/f|
00000520: 37 27 0D 20 64 66 62 20 31 33 0D 20 74 78 74 20 |7'. dfb 13. txt |
00000530: 27 69 4E 43 52 45 4D 45 4E 54 A0 42 41 43 4B 47 |'iNCREMENT.BACKG|
00000540: 4E 44 2F 42 4F 52 44 45 52 A0 43 4F 4C 4F 52 3A |ND/BORDER.COLOR:|
00000550: A0 66 33 2F 66 35 27 0D 20 64 66 62 20 31 33 0D |.f3/f5'. dfb 13.|
00000560: 20 74 78 74 20 27 6D 55 4C 54 49 43 4F 4C 4F 52 | txt 'mULTICOLOR|
00000570: A0 4D 4F 44 45 A0 4F 46 46 2F 4F 4E 3A A0 68 6F |.MODE.OFF/ON:.ho|
00000580: 6D 65 2F 64 65 6C 27 0D 20 64 66 62 20 31 33 0D |me/del'. dfb 13.|
00000590: 20 74 78 74 20 27 72 45 53 54 4F 52 45 A0 42 41 | txt 'rESTORE.BA|
000005A0: 43 4B 47 4E 44 A0 26 A0 42 4F 52 44 45 52 A0 43 |CKGND.&.BORDER.C|
000005B0: 4F 4C 4F 52 53 3A A0 72 27 0D 20 64 66 62 20 31 |OLORS:.r'. dfb 1|
000005C0: 33 0D 20 74 78 74 20 27 73 41 56 45 3A A0 73 A0 |3. txt 'sAVE:.s.|
000005D0: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 71 55 |..............qU|
000005E0: 49 54 3A A0 72 75 6E 2F 73 74 6F 70 27 0D 20 64 |IT:.run/stop'. d|
000005F0: 66 62 20 31 39 0D 20 74 78 74 20 27 24 27 0D 78 |fb 19. txt '$'.x|
00000600: 73 70 61 6E 64 20 64 66 62 20 31 0D 79 73 70 61 |spand dfb 1.yspa|
00000610: 6E 64 20 64 66 62 20 31 0D 73 70 72 63 6F 6C 20 |nd dfb 1.sprcol |
00000620: 64 66 62 20 31 0D 6D 63 30 63 6F 6C 20 64 66 62 |dfb 1.mc0col dfb|
00000630: 20 32 0D 6D 63 31 63 6F 6C 20 64 66 62 20 33 0D | 2.mc1col dfb 3.|
00000640: 6D 63 6D 6F 64 65 20 64 66 62 20 30 0D 62 6C 6F |mcmode dfb 0.blo|
00000650: 63 6B 20 64 66 62 20 30 0D 74 61 67 66 6C 61 67 |ck dfb 0.tagflag|
00000660: 20 64 66 62 20 30 0D | dfb 0. |
#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 NEXT9.
LDX #0. STX XSPAND.NEXT9 CMP #46. BNE N
EXT10. LDX #1. STX YSPAND.NEXT10 CMP #49
. BNE NEXT11. LDX #0. STX YSPAND.NEXT11
CMP #2. BNE NEXT12. INC BLOCK.NEXT12 CMP
#7. BNE NEXT13. DEC BLOCK.NEXT13 CMP #5
1. BNE NEXT14. LDX #0. STX MCMODE.NEXT14
CMP #0. BNE NEXT15. LDX #1. STX MCMODE.
NEXT15 CMP #63. BNE NEXT16. JMP 64738.NE
XT16 CMP #13. BEQ SAVEIT. JMP NEXT17.SAV
EIT NOP ;SAVE.NEXT17 CMP #4. BNE NEXT18.
LDX BLOCK. LDA #1. STA TAGFLAG,X.NEXT18
CMP #3. BNE NEXT19. LDX BLOCK. LDA #0.
STA TAGFLAG,X.NEXT19 RTS.DELAY LDX #0.IN
NER LDY #0.TUBE INY. CPY #255. BNE TUBE.
INX. CPX #25. BNE INNER. RTS.MESS DFB 1
47,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 B
LOCK UP/DOWN: CRSR DN/CRSR RGHT'. DFB 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: +/-'. DFB 1
3. TXT 'EXPAND/CONTRACT Y-AXIS: @/*'. DF
B 13. TXT 'TAG/UNTAG BLOCK: F1/F7'. DFB
13. TXT 'INCREMENT BACKGND/BORDER COLOR:
F3/F5'. DFB 13. TXT 'MULTICOLOR MODE OF
F/ON: HOME/DEL'. DFB 13. TXT 'RESTORE BA
CKGND & BORDER COLORS: R'. DFB 13. TXT '
SAVE: S QUIT: RUN/STOP'. D
FB 19. TXT '$'.XSPAND DFB 1.YSPAND DFB 1
.SPRCOL DFB 1.MC0COL DFB 2.MC1COL DFB 3.
MCMODE DFB 0.BLOCK DFB 0.TAGFLAG DFB 0.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL