8.BALL DEMO
FILE INFORMATION
FILENAME(S): 8.BALL DEMO
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 16:44:36
APPEARS ON: 1 disk(s)
FILE HASH
eabb5d4a8cc611a74ef98832f8c1df4f2fc7e138be17c2920e1299e79e50e966
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | 8.BALL DEMO | PRG | High Voltage Complete C64 Collection | 1 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 10 3B 20 55 53 45 4C 45 53 53 20 44 45 4D 4F |..; USELESS DEMO| 00000010: 00 3B 20 57 52 49 54 54 45 4E 20 42 59 20 50 45 |.; WRITTEN BY PE| 00000020: 54 45 52 20 4B 41 4C 44 49 20 31 39 38 39 00 02 |TER KALDI 1989..| 00000030: 00 2A 24 36 30 30 30 00 02 00 53 50 4C 41 43 45 |.*$6000...SPLACE| 00000040: 3D 20 20 20 31 31 00 56 49 43 3D 20 20 20 20 20 |= 11.VIC= | 00000050: 20 35 33 32 34 38 00 48 55 52 52 59 3D 20 20 20 | 53248.HURRY= | 00000060: 20 35 00 02 00 4D 41 49 4E 2F 00 CA 53 52 20 49 | 5...MAIN/..SR I| 00000070: 4E 49 54 00 CA 53 52 20 53 50 52 49 4E 49 54 00 |NIT..SR SPRINIT.| 00000080: D2 54 53 00 02 00 49 52 51 2F 00 D3 45 49 00 CA |.TS...IRQ/..EI..| 00000090: 53 52 20 47 45 54 4B 45 59 00 00 CC 44 59 20 23 |SR GETKEY...DY #| 000000A0: 48 55 52 52 59 00 D3 54 59 20 4D 48 45 4C 50 00 |HURRY..TY MHELP.| 000000B0: 00 4E 4F 56 45 52 2F 00 CA 53 52 20 43 48 41 4E |.NOVER/..SR CHAN| 000000C0: 47 45 00 CA 53 52 20 4D 4F 56 45 00 CA 53 52 20 |GE..SR MOVE..SR | 000000D0: 53 48 4F 57 00 C4 45 43 20 4D 48 45 4C 50 00 C2 |SHOW..EC MHELP..| 000000E0: 4E 45 20 4E 4F 56 45 52 00 00 CA 4D 50 20 24 45 |NE NOVER...MP $E| 000000F0: 41 33 31 00 02 00 47 45 54 4B 45 59 2F 00 CC 44 |A31...GETKEY/..D| 00000100: 41 20 31 39 37 00 C3 4D 50 20 23 36 34 00 C2 45 |A 197..MP #64..E| 00000110: 51 20 47 4F 55 54 00 D3 54 41 20 43 48 45 4C 50 |Q GOUT..TA CHELP| 00000120: 00 CC 44 59 20 23 37 00 47 45 31 2F 00 CC 44 41 |..DY #7.GE1/..DA| 00000130: 20 23 30 00 D2 4F 4C 20 43 48 45 4C 50 00 D2 4F | #0..OL CHELP..O| 00000140: 4C 00 D3 54 41 20 44 49 52 45 43 54 49 4F 4E 2C |L..TA DIRECTION,| 00000150: 59 00 C4 45 59 00 C2 50 4C 20 47 45 31 00 47 4F |Y..EY..PL GE1.GO| 00000160: 55 54 2F 00 D2 54 53 00 02 00 49 4E 49 54 2F 00 |UT/..TS...INIT/.| 00000170: D3 45 49 00 CC 44 41 20 23 3C 49 52 51 3A 53 54 |.EI..DA #<IRQ:ST| 00000180: 41 20 24 33 31 34 00 CC 44 41 20 23 3E 49 52 51 |A $314..DA #>IRQ| 00000190: 3A 53 54 41 20 24 33 31 35 00 CC 44 59 20 23 37 |:STA $315..DY #7| 000001A0: 00 00 4C 4F 4F 50 2F 00 CC 44 41 20 23 30 00 D3 |..LOOP/..DA #0..| 000001B0: 54 41 20 53 50 45 45 44 2C 59 00 D3 54 41 20 44 |TA SPEED,Y..TA D| 000001C0: 49 52 45 43 54 49 4F 4E 2C 59 00 CC 44 41 20 23 |IRECTION,Y..DA #| 000001D0: 31 30 30 00 D3 54 41 20 58 43 4F 4F 52 44 2C 59 |100..TA XCOORD,Y| 000001E0: 00 D3 54 41 20 59 43 4F 4F 52 44 2C 59 00 C4 45 |..TA YCOORD,Y..E| 000001F0: 59 00 C2 50 4C 20 4C 4F 4F 50 00 00 CC 44 41 20 |Y..PL LOOP...DA | 00000200: 23 30 00 D3 54 41 20 58 50 4C 55 53 00 00 C3 4C |#0..TA XPLUS...L| 00000210: 49 00 D2 54 53 00 02 00 53 50 52 49 4E 49 54 2F |I..TS...SPRINIT/| 00000220: 00 CC 44 59 20 23 36 33 00 53 50 52 31 2F 00 CC |..DY #63.SPR1/..| 00000230: 44 41 20 53 50 52 49 54 45 2C 59 00 D3 54 41 20 |DA SPRITE,Y..TA | 00000240: 53 50 4C 41 43 45 2A 36 34 2C 59 00 C4 45 59 00 |SPLACE*64,Y..EY.| 00000250: C2 50 4C 20 53 50 52 31 00 00 D3 54 59 20 56 49 |.PL SPR1...TY VI| 00000260: 43 2B 32 37 00 D3 54 59 20 35 33 32 36 39 00 C9 |C+27..TY 53269..| 00000270: 4E 59 00 D3 54 59 20 35 33 32 37 31 00 D3 54 59 |NY..TY 53271..TY| 00000280: 20 35 33 32 37 37 00 D3 54 59 20 56 49 43 2B 32 | 53277..TY VIC+2| 00000290: 38 00 00 CC 44 59 20 23 37 00 53 50 52 32 2F 00 |8...DY #7.SPR2/.| 000002A0: CC 44 41 20 23 53 50 4C 41 43 45 00 D3 54 41 20 |.DA #SPLACE..TA | 000002B0: 32 30 34 30 2C 59 00 CC 44 41 20 23 43 4F 4C 4F |2040,Y..DA #COLO| 000002C0: 52 31 00 D3 54 41 20 56 49 43 2B 33 39 2C 59 00 |R1..TA VIC+39,Y.| 000002D0: 00 C4 45 59 00 C2 50 4C 20 53 50 52 32 00 00 D2 |..EY..PL SPR2...| 000002E0: 54 53 00 02 00 43 48 41 4E 47 45 2F 00 3B 20 20 |TS...CHANGE/.; | 000002F0: 53 50 45 45 44 20 3A 20 30 2B 2C 31 2D 00 3B 20 |SPEED : 0+,1-.; | 00000300: 20 44 49 52 45 43 2E 3A 20 30 58 2C 31 59 00 02 | DIREC.: 0X,1Y..| 00000310: 00 CC 44 59 20 23 38 00 D3 54 59 20 43 48 45 4C |..DY #8..TY CHEL| 00000320: 50 00 43 48 31 2F 00 C4 45 43 20 43 48 45 4C 50 |P.CH1/..EC CHELP| 00000330: 00 CC 44 59 20 43 48 45 4C 50 00 C2 4D 49 20 43 |..DY CHELP..MI C| 00000340: 4F 55 54 00 CC 44 41 20 53 50 45 45 44 2C 59 00 |OUT..DA SPEED,Y.| 00000350: C2 4E 45 20 4D 49 4E 55 53 00 00 CC 44 41 20 44 |.NE MINUS...DA D| 00000360: 49 52 45 43 54 49 4F 4E 2C 59 00 C2 45 51 20 50 |IRECTION,Y..EQ P| 00000370: 58 43 48 41 4E 00 50 59 43 48 41 4E 2F 00 CC 44 |XCHAN.PYCHAN/..D| 00000380: 41 20 23 59 4D 41 58 00 C2 4E 45 20 45 58 41 4D |A #YMAX..NE EXAM| 00000390: 59 00 00 50 58 43 48 41 4E 2F 00 CC 44 41 20 48 |Y..PXCHAN/..DA H| 000003A0: 45 4C 50 2C 59 00 C1 4E 44 20 58 50 4C 55 53 00 |ELP,Y..ND XPLUS.| 000003B0: C2 45 51 20 53 54 41 54 45 4F 4B 00 CC 44 41 20 |.EQ STATEOK..DA | 000003C0: 23 58 4D 41 58 00 C2 4E 45 20 45 58 41 4D 58 00 |#XMAX..NE EXAMX.| 000003D0: 00 4D 49 4E 55 53 2F 00 CC 44 41 20 44 49 52 45 |.MINUS/..DA DIRE| 000003E0: 43 54 49 4F 4E 2C 59 00 C2 45 51 20 4D 58 43 48 |CTION,Y..EQ MXCH| 000003F0: 41 4E 00 4D 59 43 48 41 4E 2F 00 CC 44 41 20 23 |AN.MYCHAN/..DA #| 00000400: 59 4D 49 4E 00 C2 4E 45 20 45 58 41 4D 59 00 4D |YMIN..NE EXAMY.M| 00000410: 58 43 48 41 4E 2F 00 CC 44 41 20 48 45 4C 50 2C |XCHAN/..DA HELP,| 00000420: 59 00 C1 4E 44 20 58 50 4C 55 53 00 C2 4E 45 20 |Y..ND XPLUS..NE | 00000430: 53 54 41 54 45 4F 4B 00 CC 44 41 20 23 58 4D 49 |STATEOK..DA #XMI| 00000440: 4E 00 C2 4E 45 20 45 58 41 4D 58 00 02 00 45 58 |N..NE EXAMX...EX| 00000450: 41 4D 59 2F 00 C3 4D 50 20 59 43 4F 4F 52 44 2C |AMY/..MP YCOORD,| 00000460: 59 00 CA 4D 50 20 45 58 41 31 00 45 58 41 4D 58 |Y..MP EXA1.EXAMX| 00000470: 2F 00 C3 4D 50 20 58 43 4F 4F 52 44 2C 59 00 45 |/..MP XCOORD,Y.E| 00000480: 58 41 31 2F 00 C2 4E 45 20 53 54 41 54 45 4F 4B |XA1/..NE STATEOK| 00000490: 00 CA 4D 50 20 53 54 41 54 45 43 48 00 02 00 53 |..MP STATECH...S| 000004A0: 54 41 54 45 43 48 2F 00 CC 44 41 20 56 49 43 2B |TATECH/..DA VIC+| 000004B0: 33 39 2C 59 00 C5 4F 52 20 23 4F 52 4C 41 4E 44 |39,Y..OR #ORLAND| 000004C0: 4F 00 D3 54 41 20 56 49 43 2B 33 39 2C 59 00 CC |O..TA VIC+39,Y..| 000004D0: 44 41 20 53 50 45 45 44 2C 59 00 C5 4F 52 20 23 |DA SPEED,Y..OR #| 000004E0: 31 00 D3 54 41 20 53 50 45 45 44 2C 59 00 53 54 |1..TA SPEED,Y.ST| 000004F0: 41 54 45 4F 4B 2F 00 CA 4D 50 20 43 48 31 00 43 |ATEOK/..MP CH1.C| 00000500: 4F 55 54 2F 00 D2 54 53 00 02 00 3B 20 20 53 50 |OUT/..TS...; SP| 00000510: 45 45 44 20 3A 20 30 2B 2C 31 2D 00 3B 20 20 44 |EED : 0+,1-.; D| 00000520: 49 52 45 43 2E 3A 20 30 58 2C 31 59 00 02 00 4D |IREC.: 0X,1Y...M| 00000530: 4F 56 45 2F 00 CC 44 58 20 23 38 00 D3 54 58 20 |OVE/..DX #8..TX | 00000540: 43 48 45 4C 50 00 4D 56 31 2F 00 C4 45 43 20 43 |CHELP.MV1/..EC C| 00000550: 48 45 4C 50 00 CC 44 58 20 43 48 45 4C 50 00 C2 |HELP..DX CHELP..| 00000560: 4D 49 20 4D 4F 55 54 00 00 CC 44 41 20 44 49 52 |MI MOUT...DA DIR| 00000570: 45 43 54 49 4F 4E 2C 58 00 C2 45 51 20 58 4D 4F |ECTION,X..EQ XMO| 00000580: 56 45 00 59 4D 4F 56 45 2F 00 CC 44 41 20 53 50 |VE.YMOVE/..DA SP| 00000590: 45 45 44 2C 58 00 C2 45 51 20 59 49 4E 43 00 59 |EED,X..EQ YINC.Y| 000005A0: 44 45 43 2F 00 C4 45 43 20 59 43 4F 4F 52 44 2C |DEC/..EC YCOORD,| 000005B0: 58 00 CA 4D 50 20 41 57 41 59 00 59 49 4E 43 2F |X..MP AWAY.YINC/| 000005C0: 00 C9 4E 43 20 59 43 4F 4F 52 44 2C 58 00 CA 4D |..NC YCOORD,X..M| 000005D0: 50 20 41 57 41 59 00 58 4D 4F 56 45 2F 00 CC 44 |P AWAY.XMOVE/..D| 000005E0: 41 20 53 50 45 45 44 2C 58 00 C2 45 51 20 58 49 |A SPEED,X..EQ XI| 000005F0: 4E 43 00 58 44 45 43 2F 00 CC 44 41 20 58 43 4F |NC.XDEC/..DA XCO| 00000600: 4F 52 44 2C 58 00 C2 4E 45 20 58 44 31 00 CC 44 |ORD,X..NE XD1..D| 00000610: 41 20 48 45 4C 50 2C 58 00 C5 4F 52 20 23 24 46 |A HELP,X..OR #$F| 00000620: 46 00 C1 4E 44 20 58 50 4C 55 53 00 D3 54 41 20 |F..ND XPLUS..TA | 00000630: 58 50 4C 55 53 00 58 44 31 2F 00 C4 45 43 20 58 |XPLUS.XD1/..EC X| 00000640: 43 4F 4F 52 44 2C 58 00 CA 4D 50 20 41 57 41 59 |COORD,X..MP AWAY| 00000650: 00 58 49 4E 43 2F 00 C9 4E 43 20 58 43 4F 4F 52 |.XINC/..NC XCOOR| 00000660: 44 2C 58 00 C2 4E 45 20 41 57 41 59 00 CC 44 41 |D,X..NE AWAY..DA| 00000670: 20 48 45 4C 50 2C 58 00 CF 52 41 20 58 50 4C 55 | HELP,X..RA XPLU| 00000680: 53 00 D3 54 41 20 58 50 4C 55 53 00 CA 4D 50 20 |S..TA XPLUS..MP | 00000690: 41 57 41 59 00 02 00 41 57 41 59 2F 00 CA 4D 50 |AWAY...AWAY/..MP| 000006A0: 20 4D 56 31 00 4D 4F 55 54 2F 00 D2 54 53 00 02 | MV1.MOUT/..TS..| 000006B0: 00 53 48 4F 57 2F 00 CC 44 58 20 23 30 00 CC 44 |.SHOW/..DX #0..D| 000006C0: 59 20 23 30 00 53 48 31 2F 00 CC 44 41 20 58 43 |Y #0.SH1/..DA XC| 000006D0: 4F 4F 52 44 2C 59 00 D3 54 41 20 56 49 43 2C 58 |OORD,Y..TA VIC,X| 000006E0: 00 C9 4E 58 00 CC 44 41 20 59 43 4F 4F 52 44 2C |..NX..DA YCOORD,| 000006F0: 59 00 D3 54 41 20 56 49 43 2C 58 00 C9 4E 58 00 |Y..TA VIC,X..NX.| 00000700: C9 4E 59 00 C3 50 59 20 23 38 00 C2 4E 45 20 53 |.NY..PY #8..NE S| 00000710: 48 31 00 00 CC 44 41 20 58 50 4C 55 53 00 D3 54 |H1...DA XPLUS..T| 00000720: 41 20 56 49 43 2B 31 36 00 00 D2 54 53 00 02 00 |A VIC+16...TS...| 00000730: 53 50 52 49 54 45 2F 00 2E 42 20 25 30 30 30 30 |SPRITE/..B %0000| 00000740: 30 30 30 30 2C 25 30 30 30 30 30 30 30 30 2C 25 |0000,%00000000,%| 00000750: 30 30 30 30 30 30 30 30 00 2E 42 20 25 30 30 30 |00000000..B %000| 00000760: 30 30 30 30 30 2C 25 30 30 30 30 30 30 30 30 2C |00000,%00000000,| 00000770: 25 30 30 30 30 30 30 30 30 00 2E 42 20 25 30 30 |%00000000..B %00| 00000780: 30 30 30 30 30 30 2C 25 30 30 30 30 30 30 30 30 |000000,%00000000| 00000790: 2C 25 30 30 30 30 30 30 30 30 00 2E 42 20 25 30 |,%00000000..B %0| 000007A0: 30 30 30 30 30 30 30 2C 25 30 30 30 30 30 30 30 |0000000,%0000000| 000007B0: 30 2C 25 30 30 30 30 30 30 30 30 00 2E 42 20 25 |0,%00000000..B %| 000007C0: 30 30 30 30 30 30 30 30 2C 25 31 31 31 31 31 31 |00000000,%111111| 000007D0: 31 31 2C 25 30 30 30 30 30 30 30 30 00 2E 42 20 |11,%00000000..B | 000007E0: 25 30 30 30 30 30 30 30 31 2C 25 31 31 31 31 30 |%00000001,%11110| 000007F0: 30 31 31 2C 25 31 30 30 30 30 30 30 30 00 2E 42 |011,%10000000..B| 00000800: 20 25 30 30 30 30 30 30 31 31 2C 25 31 31 31 31 | %00000011,%1111| 00000810: 31 31 30 30 2C 25 31 31 30 30 30 30 30 30 00 2E |1100,%11000000..| 00000820: 42 20 25 30 30 30 30 30 31 31 31 2C 25 31 31 31 |B %00000111,%111| 00000830: 31 31 31 31 31 2C 25 30 31 31 30 30 30 30 30 00 |11111,%01100000.| 00000840: 2E 42 20 25 30 30 30 30 30 31 31 31 2C 25 31 31 |.B %00000111,%11| 00000850: 31 31 31 31 31 31 2C 25 31 30 31 30 30 30 30 30 |111111,%10100000| 00000860: 00 2E 42 20 25 30 30 30 30 31 31 31 31 2C 25 31 |..B %00001111,%1| 00000870: 31 31 31 31 31 31 31 2C 25 31 31 31 31 30 30 30 |1111111,%1111000| 00000880: 30 00 2E 42 20 25 30 30 30 30 31 31 31 31 2C 25 |0..B %00001111,%| 00000890: 31 31 31 31 31 31 31 31 2C 25 31 31 31 31 30 30 |11111111,%111100| 000008A0: 30 30 00 2E 42 20 25 30 30 30 30 31 31 31 31 2C |00..B %00001111,| 000008B0: 25 31 31 31 31 31 31 31 31 2C 25 31 31 31 31 30 |%11111111,%11110| 000008C0: 30 30 30 00 2E 42 20 25 30 30 30 30 30 31 31 31 |000..B %00000111| 000008D0: 2C 25 31 31 31 31 31 31 31 31 2C 25 31 31 31 30 |,%11111111,%1110| 000008E0: 30 30 30 30 00 2E 42 20 25 30 30 30 30 30 31 31 |0000..B %0000011| 000008F0: 31 2C 25 31 31 31 31 31 31 31 31 2C 25 31 31 31 |1,%11111111,%111| 00000900: 30 30 30 30 30 00 2E 42 20 25 30 30 30 30 30 30 |00000..B %000000| 00000910: 31 31 2C 25 31 31 31 31 31 31 31 31 2C 25 31 31 |11,%11111111,%11| 00000920: 30 30 30 30 30 30 00 2E 42 20 25 30 30 30 30 30 |000000..B %00000| 00000930: 30 30 31 2C 25 31 31 31 31 31 31 31 31 2C 25 31 |001,%11111111,%1| 00000940: 30 30 30 30 30 30 30 00 2E 42 20 25 30 30 30 30 |0000000..B %0000| 00000950: 30 30 30 30 2C 25 31 31 31 31 31 31 31 31 2C 25 |0000,%11111111,%| 00000960: 30 30 30 30 30 30 30 30 00 2E 42 20 25 30 30 30 |00000000..B %000| 00000970: 30 30 30 30 30 2C 25 30 30 30 30 30 30 30 30 2C |00000,%00000000,| 00000980: 25 30 30 30 30 30 30 30 30 00 2E 42 20 25 30 30 |%00000000..B %00| 00000990: 30 30 30 30 30 30 2C 25 30 30 30 30 30 30 30 30 |000000,%00000000| 000009A0: 2C 25 30 30 30 30 30 30 30 30 00 2E 42 20 25 30 |,%00000000..B %0| 000009B0: 30 30 30 30 30 30 30 2C 25 30 30 30 30 30 30 30 |0000000,%0000000| 000009C0: 30 2C 25 30 30 30 30 30 30 30 30 00 2E 42 20 25 |0,%00000000..B %| 000009D0: 30 30 30 30 30 30 30 30 2C 25 30 30 30 30 30 30 |00000000,%000000| 000009E0: 30 30 2C 25 30 30 30 30 30 30 30 30 00 02 00 BB |00,%00000000....| 000009F0: 20 56 41 52 49 41 42 4C 45 53 00 02 00 58 43 4F | VARIABLES...XCO| 00000A00: 4F 52 44 2F 2E 42 20 30 2C 30 2C 30 2C 30 2C 30 |ORD/.B 0,0,0,0,0| 00000A10: 2C 30 2C 30 2C 30 00 59 43 4F 4F 52 44 2F 2E 42 |,0,0,0.YCOORD/.B| 00000A20: 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 | 0,0,0,0,0,0,0,0| 00000A30: 00 53 50 45 45 44 2F 20 2E 42 20 30 2C 30 2C 30 |.SPEED/ .B 0,0,0| 00000A40: 2C 30 2C 30 2C 30 2C 30 2C 30 00 44 49 52 45 43 |,0,0,0,0,0.DIREC| 00000A50: 54 49 4F 4E 2F 2E 42 20 30 2C 30 2C 30 2C 30 2C |TION/.B 0,0,0,0,| 00000A60: 30 2C 30 2C 30 2C 30 00 00 58 50 4C 55 53 2F 2E |0,0,0,0..XPLUS/.| 00000A70: 42 20 30 00 43 48 45 4C 50 2F 2E 42 20 30 00 4D |B 0.CHELP/.B 0.M| 00000A80: 48 45 4C 50 2F 2E 42 20 30 00 00 58 4D 49 4E 3D |HELP/.B 0..XMIN=| 00000A90: 30 2B 31 36 00 58 4D 41 58 3D 36 34 2B 38 00 59 |0+16.XMAX=64+8.Y| 00000AA0: 4D 49 4E 3D 30 2B 35 31 2D 38 00 59 4D 41 58 3D |MIN=0+51-8.YMAX=| 00000AB0: 31 39 39 2B 35 31 2D 32 34 00 00 43 4F 4C 4F 52 |199+51-24..COLOR| 00000AC0: 31 3D 30 00 4F 52 4C 41 4E 44 4F 3D 31 00 00 48 |1=0.ORLANDO=1..H| 00000AD0: 45 4C 50 2F 2E 42 20 31 2C 32 2C 34 2C 38 2C 31 |ELP/.B 1,2,4,8,1| 00000AE0: 36 2C 33 32 2C 36 34 2C 31 32 38 00 5D 00 01 |6,32,64,128.].. |
..; USELESS DEMO.; WRITTEN BY PETER KALD I 1989...*$6000...SPLACE= 11.VIC= 53248.HURRY= 5...MAIN/.JSR INIT.JSR SPRINIT.RTS...IRQ/.SEI.JSR GETKEY..LDY # HURRY.STY MHELP..NOVER/.JSR CHANGE.JSR M OVE.JSR SHOW.DEC MHELP.BNE NOVER..JMP $E A31...GETKEY/.LDA 197.CMP #64.BEQ GOUT.S TA CHELP.LDY #7.GE1/.LDA #0.ROL CHELP.RO L.STA DIRECTION,Y.DEY.BPL GE1.GOUT/.RTS. ..INIT/.SEI.LDA #<IRQ:STA $314.LDA #>IRQ :STA $315.LDY #7..LOOP/.LDA #0.STA SPEED ,Y.STA DIRECTION,Y.LDA #100.STA XCOORD,Y .STA YCOORD,Y.DEY.BPL LOOP..LDA #0.STA X PLUS..CLI.RTS...SPRINIT/.LDY #63.SPR1/.L DA SPRITE,Y.STA SPLACE*64,Y.DEY.BPL SPR1 ..STY VIC+27.STY 53269.INY.STY 53271.STY 53277.STY VIC+28..LDY #7.SPR2/.LDA #SPL ACE.STA 2040,Y.LDA #COLOR1.STA VIC+39,Y. .DEY.BPL SPR2..RTS...CHANGE/.; SPEED : 0+,1-.; DIREC.: 0X,1Y...LDY #8.STY CHEL P.CH1/.DEC CHELP.LDY CHELP.BMI COUT.LDA SPEED,Y.BNE MINUS..LDA DIRECTION,Y.BEQ P XCHAN.PYCHAN/.LDA #YMAX.BNE EXAMY..PXCHA N/.LDA HELP,Y.AND XPLUS.BEQ STATEOK.LDA #XMAX.BNE EXAMX..MINUS/.LDA DIRECTION,Y. BEQ MXCHAN.MYCHAN/.LDA #YMIN.BNE EXAMY.M XCHAN/.LDA HELP,Y.AND XPLUS.BNE STATEOK. LDA #XMIN.BNE EXAMX...EXAMY/.CMP YCOORD, Y.JMP EXA1.EXAMX/.CMP XCOORD,Y.EXA1/.BNE STATEOK.JMP STATECH...STATECH/.LDA VIC+ 39,Y.EOR #ORLANDO.STA VIC+39,Y.LDA SPEED ,Y.EOR #1.STA SPEED,Y.STATEOK/.JMP CH1.C OUT/.RTS...; SPEED : 0+,1-.; DIREC.: 0 X,1Y...MOVE/.LDX #8.STX CHELP.MV1/.DEC C HELP.LDX CHELP.BMI MOUT..LDA DIRECTION,X .BEQ XMOVE.YMOVE/.LDA SPEED,X.BEQ YINC.Y DEC/.DEC YCOORD,X.JMP AWAY.YINC/.INC YCO ORD,X.JMP AWAY.XMOVE/.LDA SPEED,X.BEQ XI NC.XDEC/.LDA XCOORD,X.BNE XD1.LDA HELP,X .EOR #$FF.AND XPLUS.STA XPLUS.XD1/.DEC X COORD,X.JMP AWAY.XINC/.INC XCOORD,X.BNE AWAY.LDA HELP,X.ORA XPLUS.STA XPLUS.JMP AWAY...AWAY/.JMP MV1.MOUT/.RTS...SHOW/.L DX #0.LDY #0.SH1/.LDA XCOORD,Y.STA VIC,X .INX.LDA YCOORD,Y.STA VIC,X.INX.INY.CPY #8.BNE SH1..LDA XPLUS.STA VIC+16..RTS... SPRITE/..B %00000000,%00000000,%00000000 ..B %00000000,%00000000,%00000000..B %00 000000,%00000000,%00000000..B %00000000, %00000000,%00000000..B %00000000,%111111 11,%00000000..B %00000001,%11110011,%100 00000..B %00000011,%11111100,%11000000.. B %00000111,%11111111,%01100000..B %0000 0111,%11111111,%10100000..B %00001111,%1 1111111,%11110000..B %00001111,%11111111 ,%11110000..B %00001111,%11111111,%11110 000..B %00000111,%11111111,%11100000..B %00000111,%11111111,%11100000..B %000000 11,%11111111,%11000000..B %00000001,%111 11111,%10000000..B %00000000,%11111111,% 00000000..B %00000000,%00000000,%0000000 0..B %00000000,%00000000,%00000000..B %0 0000000,%00000000,%00000000..B %00000000 ,%00000000,%00000000.... VARIABLES...XCO ORD/.B 0,0,0,0,0,0,0,0.YCOORD/.B 0,0,0,0 ,0,0,0,0.SPEED/ .B 0,0,0,0,0,0,0,0.DIREC TION/.B 0,0,0,0,0,0,0,0..XPLUS/.B 0.CHEL P/.B 0.MHELP/.B 0..XMIN=0+16.XMAX=64+8.Y MIN=0+51-8.YMAX=199+51-24..COLOR1=0.ORLA NDO=1..HELP/.B 1,2,4,8,16,32,64,128.]..
> CLICK IMAGE PREVIEW FOR FULL MODAL