TB/SET SPRITES
FILE INFORMATION
FILENAME(S): TB/SET SPRITES
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 16:59:31
APPEARS ON: 1 disk(s)
FILE HASH
9d5c7878378b6e5f7981a5d2e2d5b2c50f6a5c724409c53edcef5cd1c33146eb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC UTILITIES | TB/SET SPRITES | PRG | High Voltage Complete C64 Collection | 9 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 00 00 8F 20 53 45 54 20 53 50 52 49 |.. .... SET SPRI| 00000010: 54 45 53 20 28 41 55 47 20 32 35 2F 38 34 29 3A |TES (AUG 25/84):| 00000020: 00 26 08 01 00 3A 00 46 08 02 00 8F 20 36 20 53 |.&...:.F.... 6 S| 00000030: 54 41 54 45 4D 45 4E 54 53 2C 20 30 20 46 55 4E |TATEMENTS, 0 FUN| 00000040: 43 54 49 4F 4E 53 00 4C 08 03 00 3A 00 69 08 04 |CTIONS.L...:.i..| 00000050: 00 8F 20 4B 45 59 57 4F 52 44 20 43 48 41 52 41 |.. KEYWORD CHARA| 00000060: 43 54 45 52 53 3A 20 32 37 00 6F 08 05 00 3A 00 |CTERS: 27.o...:.| 00000070: 92 08 06 00 8F 20 4B 45 59 57 4F 52 44 20 20 52 |..... KEYWORD R| 00000080: 4F 55 54 49 4E 45 20 20 4C 49 4E 45 20 20 53 45 |OUTINE LINE SE| 00000090: 52 23 00 B4 08 07 00 8F 20 53 2F 43 4F 4C 53 50 |R#...... S/COLSP| 000000A0: 52 20 43 4F 4C 53 50 20 20 20 20 33 35 33 30 20 |R COLSP 3530 | 000000B0: 20 30 33 31 00 D6 08 08 00 8F 20 53 2F 53 53 50 | 031...... S/SSP| 000000C0: 52 20 20 20 53 53 50 20 20 20 20 20 20 33 35 35 |R SSP 355| 000000D0: 30 20 20 30 33 32 00 F8 08 09 00 8F 20 53 2F 43 |0 032...... S/C| 000000E0: 53 50 52 20 20 20 43 53 50 20 20 20 20 20 20 33 |SPR CSP 3| 000000F0: 35 36 30 20 20 30 33 33 00 1A 09 0A 00 8F 20 53 |560 033...... S| 00000100: 2F 58 53 50 52 20 20 20 58 53 50 20 20 20 20 20 |/XSPR XSP | 00000110: 20 33 35 37 34 20 20 30 33 34 00 3C 09 0B 00 8F | 3574 034.<....| 00000120: 20 53 2F 59 53 50 52 20 20 20 59 53 50 20 20 20 | S/YSPR YSP | 00000130: 20 20 20 33 36 32 38 20 20 30 33 35 00 5E 09 0C | 3628 035.^..| 00000140: 00 8F 20 53 2F 58 59 53 50 52 20 20 58 59 53 50 |.. S/XYSPR XYSP| 00000150: 20 20 20 20 20 33 36 35 36 20 20 30 33 36 00 64 | 3656 036.d| 00000160: 09 0D 00 3A 00 7E 09 0E 00 8F 20 55 2F 43 48 4B |...:.~.... U/CHK| 00000170: 53 50 52 20 28 33 36 36 34 2F 30 33 37 29 00 98 |SPR (3664/037)..| 00000180: 09 0F 00 8F 20 55 2F 52 41 53 43 48 4B 20 28 33 |.... U/RASCHK (3| 00000190: 36 37 36 2F 30 33 38 29 00 B2 09 10 00 8F 20 44 |676/038)...... D| 000001A0: 2F 50 4F 57 45 52 53 20 28 33 36 39 34 2F 30 33 |/POWERS (3694/03| 000001B0: 39 29 00 B8 09 11 00 3A 00 DF 09 12 00 8F 20 3D |9).....:...... =| 000001C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000001D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.| 000001E0: E5 09 13 00 3A 00 FD 09 6C 00 2E C6 20 22 43 4F |....:...l... "CO| 000001F0: 4C 53 50 D2 53 53 50 D2 43 53 50 D2 22 00 14 0A |LSP.SSP.CSP."...| 00000200: 6D 00 2E C6 20 22 58 53 50 D2 59 53 50 D2 58 59 |m... "XSP.YSP.XY| 00000210: 53 50 D2 22 00 31 0A 54 04 2E 57 B0 44 20 43 4F |SP.".1.T..W.D CO| 00000220: 4C 53 50 AB 31 2C 53 53 50 AB 31 2C 43 53 50 AB |LSP.1,SSP.1,CSP.| 00000230: 31 00 4D 0A 55 04 2E 57 B0 44 20 58 53 50 AB 31 |1.M.U..W.D XSP.1| 00000240: 2C 59 53 50 AB 31 2C 58 59 53 50 AB 31 00 71 0A |,YSP.1,XYSP.1.q.| 00000250: CA 0D 43 4F 4C 53 50 20 4A 53 52 20 43 48 53 31 |..COLSP JSR CHS1| 00000260: 20 3B A1 20 53 50 52 49 54 45 20 4E 55 4D 42 45 | ;. SPRITE NUMBE| 00000270: 52 00 79 0A CC 0D 54 58 41 00 87 0A CE 0D 50 48 |R.y...TXA.....PH| 00000280: 41 20 3B 94 20 49 54 00 A4 0A D0 0D 4A 53 52 20 |A ;. IT.....JSR | 00000290: 24 42 37 46 31 20 3B 43 48 45 43 4B 20 43 4F 4D |$B7F1 ;CHECK COM| 000002A0: 4D 41 20 AF 00 B6 0A D2 0D 50 4C 41 20 3B A1 20 |MA ......PLA ;. | 000002B0: 43 4F 4C 4F 55 52 00 D0 0A D4 0D 54 41 59 20 3B |COLOUR.....TAY ;| 000002C0: 53 50 52 49 54 45 23 20 49 53 20 49 4E 44 45 58 |SPRITE# IS INDEX| 000002D0: 00 D8 0A D6 0D 54 58 41 00 F2 0A D8 0D 53 54 41 |.....TXA.....STA| 000002E0: 20 24 44 30 32 37 2C 59 20 3B 97 20 43 4F 4C 4F | $D027,Y ;. COLO| 000002F0: 55 52 00 FA 0A DA 0D 52 54 53 00 00 0B DC 0D 3B |UR.....RTS.....;| 00000300: 00 22 0B DE 0D 53 53 50 20 4A 53 52 20 43 48 53 |."...SSP JSR CHS| 00000310: 31 20 3B A1 20 53 50 52 49 54 45 20 4E 55 4D 42 |1 ;. SPRITE NUMB| 00000320: 45 52 00 40 0B E0 0D 4C 44 41 20 50 4F 57 45 52 |ER.@...LDA POWER| 00000330: 53 2C 58 20 3B 53 45 54 20 54 48 45 20 42 49 54 |S,X ;SET THE BIT| 00000340: 00 5E 0B E2 0D B0 41 20 24 44 30 31 35 20 3B B0 |.^....A $D015 ;.| 00000350: 20 53 50 52 49 54 45 20 45 4E 41 42 4C 45 00 7A | SPRITE ENABLE.z| 00000360: 0B E4 0D 42 4E 45 20 43 53 50 31 20 3B 52 47 53 |...BNE CSP1 ;RGS| 00000370: 54 52 2C 20 54 55 52 4E 20 91 00 80 0B E6 0D 3B |TR, TURN ......;| 00000380: 00 A2 0B E8 0D 43 53 50 20 4A 53 52 20 43 48 53 |.....CSP JSR CHS| 00000390: 31 20 3B A1 20 53 50 52 49 54 45 20 4E 55 4D 42 |1 ;. SPRITE NUMB| 000003A0: 45 52 00 C0 0B EA 0D 4C 44 41 20 50 4F 57 45 52 |ER.....LDA POWER| 000003B0: 53 2C 58 20 3B 53 45 54 20 54 48 45 20 42 49 54 |S,X ;SET THE BIT| 000003C0: 00 D9 0B EC 0D 45 B0 20 23 24 46 46 20 3B 4D 41 |.....E. #$FF ;MA| 000003D0: 53 4B 20 49 54 20 4F 55 54 00 F6 0B EE 0D AF 20 |SK IT OUT...... | 000003E0: 24 44 30 31 35 20 3B AF 20 53 50 52 49 54 45 20 |$D015 ;. SPRITE | 000003F0: 45 4E 41 42 4C 45 00 1A 0C F0 0D 43 53 50 31 20 |ENABLE.....CSP1 | 00000400: 53 54 41 20 24 44 30 31 35 20 3B 52 47 53 54 52 |STA $D015 ;RGSTR| 00000410: 2C 20 54 55 52 4E 20 4F 46 46 00 22 0C F2 0D 52 |, TURN OFF."...R| 00000420: 54 53 00 28 0C F4 0D 3B 00 4A 0C F6 0D 58 53 50 |TS.(...;.J...XSP| 00000430: 20 4A 53 52 20 43 48 53 31 20 3B A1 20 53 50 52 | JSR CHS1 ;. SPR| 00000440: 49 54 45 20 4E 55 4D 42 45 52 00 5B 0C F8 0D 53 |ITE NUMBER.[...S| 00000450: 54 58 20 54 33 20 3B 94 20 49 54 00 72 0C FA 0D |TX T3 ;. IT.r...| 00000460: 4A 53 52 20 24 41 45 46 44 20 3B A1 20 43 4F 4D |JSR $AEFD ;. COM| 00000470: 4D 41 00 8B 0C FC 0D 4A 53 52 20 24 41 44 38 41 |MA.....JSR $AD8A| 00000480: 20 3B A1 20 58 20 B9 49 54 49 91 00 A6 0C FE 0D | ;. X .ITI......| 00000490: 4A 53 52 20 24 42 37 46 37 20 3B 43 91 56 20 A4 |JSR $B7F7 ;C.V .| 000004A0: 20 B5 45 47 45 52 00 BF 0C 00 0E 4C 44 41 20 24 | .EGER.....LDA $| 000004B0: 31 35 20 3B A1 20 48 49 47 48 20 42 59 54 45 00 |15 ;. HIGH BYTE.| 000004C0: D4 0C 02 0E 43 4D 50 20 23 32 20 3B 42 52 41 4E |....CMP #2 ;BRAN| 000004D0: 43 48 20 8B 00 E9 0C 04 0E 42 43 53 20 58 53 33 |CH ......BCS XS3| 000004E0: 20 3B A4 4F 20 48 49 47 48 00 05 0D 06 0E 4C 44 | ;.O HIGH.....LD| 000004F0: 58 20 54 33 20 3B A1 20 53 50 52 49 54 45 20 4E |X T3 ;. SPRITE N| 00000500: 55 4D 42 45 52 00 1E 0D 08 0E 52 B0 20 3B 50 55 |UMBER.....R. ;PU| 00000510: 54 20 4D 53 42 20 49 4E 20 43 41 52 52 59 00 3C |T MSB IN CARRY.<| 00000520: 0D 0A 0E 4C 44 41 20 50 4F 57 45 52 53 2C 58 20 |...LDA POWERS,X | 00000530: 3B 53 45 54 20 54 48 45 20 42 49 54 00 58 0D 0C |;SET THE BIT.X..| 00000540: 0E 42 43 43 20 58 53 31 20 3B 42 52 41 4E 43 48 |.BCC XS1 ;BRANCH| 00000550: 20 91 20 30 20 4D 53 42 00 75 0D 0E 0E B0 41 20 | . 0 MSB.u....A | 00000560: 24 44 30 31 30 20 3B B0 20 4D 53 42 20 52 45 47 |$D010 ;. MSB REG| 00000570: 49 53 54 45 52 00 87 0D 10 0E 42 43 53 20 58 53 |ISTER.....BCS XS| 00000580: 32 20 3B 53 4B 49 50 00 A5 0D 12 0E 58 53 31 20 |2 ;SKIP.....XS1 | 00000590: 45 B0 20 23 24 46 46 20 3B 4D 41 53 4B 20 54 48 |E. #$FF ;MASK TH| 000005A0: 45 20 42 49 54 00 C0 0D 14 0E AF 20 24 44 30 31 |E BIT...... $D01| 000005B0: 30 20 3B 43 4C 45 41 52 20 54 48 45 20 42 49 54 |0 ;CLEAR THE BIT| 000005C0: 00 D3 0D 16 0E 58 53 32 20 54 41 59 20 3B 94 20 |.....XS2 TAY ;. | 000005D0: 4D 53 42 00 EA 0D 18 0E 54 58 41 20 3B 53 50 52 |MSB.....TXA ;SPR| 000005E0: 49 54 45 20 4E 55 4D 42 45 52 00 FD 0D 1A 0E 41 |ITE NUMBER.....A| 000005F0: 53 4C 20 3B 44 4F 55 42 4C 45 20 49 54 00 13 0E |SL ;DOUBLE IT...| 00000600: 1C 0E 54 41 58 20 3B 55 53 45 20 41 53 20 49 4E |..TAX ;USE AS IN| 00000610: 44 45 58 00 2D 0E 1E 0E 4C 44 41 20 24 31 34 20 |DEX.-...LDA $14 | 00000620: 3B A1 20 58 20 4C 4F 57 20 42 59 54 45 00 46 0E |;. X LOW BYTE.F.| 00000630: 20 0E 4A 53 52 20 52 C6 48 4B 20 3B 92 20 81 20 | .JSR R.HK ;. . | 00000640: 52 41 53 54 45 52 00 5F 0E 22 0E 53 54 59 20 24 |RASTER._.".STY $| 00000650: 44 30 31 30 20 3B 57 52 49 54 45 20 4D 53 42 00 |D010 ;WRITE MSB.| 00000660: 7F 0E 24 0E 53 54 41 20 24 44 30 30 30 2C 58 20 |..$.STA $D000,X | 00000670: 3B 57 52 49 54 45 20 4C 4F 57 20 42 59 54 45 00 |;WRITE LOW BYTE.| 00000680: 87 0E 26 0E 52 54 53 00 AB 0E 28 0E 58 53 33 20 |..&.RTS...(.XS3 | 00000690: 4A 4D 50 20 24 42 32 34 38 20 3B 49 4C 4C 45 47 |JMP $B248 ;ILLEG| 000006A0: 41 4C 20 51 55 41 4E 54 49 54 59 00 B1 0E 2A 0E |AL QUANTITY...*.| 000006B0: 3B 00 D3 0E 2C 0E 59 53 50 20 4A 53 52 20 43 48 |;...,.YSP JSR CH| 000006C0: 53 31 20 3B A1 20 53 50 52 49 54 45 20 4E 55 4D |S1 ;. SPRITE NUM| 000006D0: 42 45 52 00 EA 0E 2E 0E 59 53 31 20 54 58 41 20 |BER.....YS1 TXA | 000006E0: 3B 44 4F 55 42 4C 45 20 49 54 00 F2 0E 30 0E 41 |;DOUBLE IT...0.A| 000006F0: 53 4C 00 08 0F 32 0E 50 48 41 20 3B 53 45 54 20 |SL...2.PHA ;SET | 00000700: 49 54 20 41 53 49 44 45 00 26 0F 34 0E 4A 53 52 |IT ASIDE.&.4.JSR| 00000710: 20 24 42 37 46 31 20 3B 43 4F 4D 4D 41 2C 20 59 | $B7F1 ;COMMA, Y| 00000720: AB B9 49 54 49 91 00 3C 0F 36 0E 54 58 41 20 3B |..ITI..<.6.TXA ;| 00000730: 4D 4F 56 45 20 49 54 20 A4 20 2E 59 00 44 0F 38 |MOVE IT . .Y.D.8| 00000740: 0E 54 41 59 00 5B 0F 3A 0E 50 4C 41 20 3B A1 20 |.TAY.[.:.PLA ;. | 00000750: 32 AC 28 53 50 52 49 54 45 23 29 00 71 0F 3C 0E |2.(SPRITE#).q.<.| 00000760: 54 41 58 20 3B 55 53 45 20 41 53 20 49 4E 44 45 |TAX ;USE AS INDE| 00000770: 58 00 82 0F 3E 0E 54 59 41 20 3B 59 AB B9 49 54 |X...>.TYA ;Y..IT| 00000780: 49 91 00 9B 0F 40 0E 4A 53 52 20 52 C6 48 4B 20 |I....@.JSR R.HK | 00000790: 3B 92 20 81 20 52 41 53 54 45 52 00 B8 0F 42 0E |;. . RASTER...B.| 000007A0: 53 54 41 20 24 44 30 30 31 2C 58 20 3B 57 52 49 |STA $D001,X ;WRI| 000007B0: 54 45 20 B9 49 54 49 91 00 C0 0F 44 0E 52 54 53 |TE .ITI....D.RTS| 000007C0: 00 C6 0F 46 0E 3B 00 E6 0F 48 0E 58 59 53 50 20 |...F.;...H.XYSP | 000007D0: 4A 53 52 20 58 53 50 20 3B 57 52 49 54 45 20 58 |JSR XSP ;WRITE X| 000007E0: AB B9 49 54 49 91 00 02 10 4A 0E 4C 44 58 20 54 |..ITI....J.LDX T| 000007F0: 33 20 3B A1 20 53 50 52 49 54 45 20 4E 55 4D 42 |3 ;. SPRITE NUMB| 00000800: 45 52 00 1D 10 4C 0E 42 50 4C 20 59 53 31 20 3B |ER...L.BPL YS1 ;| 00000810: 57 52 49 54 45 20 59 AB B9 49 54 49 91 00 23 10 |WRITE Y..ITI..#.| 00000820: 4E 0E 3B 00 45 10 50 0E 43 48 4B 53 50 52 20 4A |N.;.E.P.CHKSPR J| 00000830: 53 52 20 24 37 33 20 3B 42 55 4D 50 20 43 48 52 |SR $73 ;BUMP CHR| 00000840: A1 20 50 54 52 00 69 10 52 0E 43 48 53 31 20 4A |. PTR.i.R.CHS1 J| 00000850: 53 52 20 24 42 37 39 45 20 3B A1 20 53 50 52 49 |SR $B79E ;. SPRI| 00000860: 54 45 20 4E 55 4D 42 45 52 00 85 10 54 0E 43 50 |TE NUMBER...T.CP| 00000870: 58 20 23 38 20 3B 4D 55 53 54 20 42 45 20 55 4E |X #8 ;MUST BE UN| 00000880: 44 45 52 20 38 00 91 10 56 0E 42 43 53 20 58 53 |DER 8...V.BCS XS| 00000890: 33 00 99 10 58 0E 52 54 53 00 9F 10 5A 0E 3B 00 |3...X.RTS...Z.;.| 000008A0: BD 10 5C 0E 52 C6 48 4B 20 50 48 41 20 3B 53 A4 |..\.R.HK PHA ;S.| 000008B0: 52 45 20 41 43 43 55 4D 55 4C 41 A4 52 00 DF 10 |RE ACCUMULA.R...| 000008C0: 5E 0E 52 41 53 31 20 4C 44 41 20 24 44 30 31 32 |^.RAS1 LDA $D012| 000008D0: 20 3B 87 20 52 41 53 54 45 52 20 4C 49 4E 45 00 | ;. RASTER LINE.| 000008E0: 02 11 60 0E 53 42 43 20 24 44 30 30 31 2C 58 20 |..`.SBC $D001,X | 000008F0: 3B 53 55 42 54 52 41 43 54 20 53 50 52 49 54 45 |;SUBTRACT SPRITE| 00000900: AB 59 00 0F 11 62 0E 42 43 43 20 52 41 53 32 00 |.Y...b.BCC RAS2.| 00000910: 24 11 64 0E 43 4D 50 20 23 24 32 42 20 3B 92 20 |$.d.CMP #$2B ;. | 00000920: 54 49 4C 4C 00 42 11 66 0E 42 43 43 20 52 41 53 |TILL.B.f.BCC RAS| 00000930: 31 20 3B 43 4C 45 41 52 20 4F 46 20 53 50 52 49 |1 ;CLEAR OF SPRI| 00000940: 54 45 00 4F 11 68 0E 52 41 53 32 20 50 4C 41 00 |TE.O.h.RAS2 PLA.| 00000950: 57 11 6A 0E 52 54 53 00 5D 11 6C 0E 3B 00 83 11 |W.j.RTS.].l.;...| 00000960: 6E 0E 50 4F 57 45 52 53 20 2E 42 59 54 45 20 31 |n.POWERS .BYTE 1| 00000970: 2C 32 2C 34 2C 38 2C 31 36 2C 33 32 2C 36 34 2C |,2,4,8,16,32,64,| 00000980: 31 32 38 00 89 11 70 0E 3B 00 00 00 |128...p.;... |
.. .... SET SPRITES (AUG 25/84):.&...:.F
.... 6 STATEMENTS, 0 FUNCTIONS.L...:.I..
.. KEYWORD CHARACTERS: 27.O...:...... KE
YWORD ROUTINE LINE SER#...... S/COLSP
R COLSP 3530 031.V.... S/SSPR SSP
3550 032...... S/CSPR CSP 3
560 033...... S/XSPR XSP 3574 0
34.<.... S/YSPR YSP 3628 035.^..
.. S/XYSPR XYSP 3656 036.D...:.~..
.. U/CHKSPR (3664/037)...... U/RASCHK (3
676/038)...... D/POWERS (3694/039).....:
...... ================================.
....:...L..F "COLSPRSSPRCSPR"...M..F "XS
PRYSPRXYSPR".1.T..W.D COLSP.1,SSP.1,CSP.
1.M.U..W.D XSP.1,YSP.1,XYSP.1.Q.J.COLSP
JSR CHS1 ;. SPRITE NUMBER.Y.L.TXA...N.PH
A ;. IT...P.JSR $B7F1 ;CHECK COMMA ....R
.PLA ;. COLOUR.P.T.TAY ;SPRITE# IS INDEX
.X.V.TXA...X.STA $D027,Y ;. COLOUR...Z.R
TS.....;."...SSP JSR CHS1 ;. SPRITE NUMB
ER.@...LDA POWERS,X ;SET THE BIT.^....A
$D015 ;. SPRITE ENABLE.Z...BNE CSP1 ;RGS
TR, TURN ......;.....CSP JSR CHS1 ;. SPR
ITE NUMBER.....LDA POWERS,X ;SET THE BIT
.Y...E. #$FF ;MASK IT OUT...... $D015 ;.
SPRITE ENABLE.....CSP1 STA $D015 ;RGSTR
, TURN OFF."...RTS.(...;.J...XSP JSR CHS
1 ;. SPRITE NUMBER.[...STX T3 ;. IT.R...
JSR $AEFD ;. COMMA.....JSR $AD8A ;. X .I
TI......JSR $B7F7 ;C.V . .EGER.....LDA $
15 ;. HIGH BYTE.T...CMP #2 ;BRANCH .....
.BCS XS3 ;.O HIGH.....LDX T3 ;. SPRITE N
UMBER.....R. ;PUT MSB IN CARRY.<...LDA P
OWERS,X ;SET THE BIT.X...BCC XS1 ;BRANCH
. 0 MSB.U....A $D010 ;. MSB REGISTER...
..BCS XS2 ;SKIP.....XS1 E. #$FF ;MASK TH
E BIT...... $D010 ;CLEAR THE BIT.S...XS2
TAY ;. MSB.....TXA ;SPRITE NUMBER.....A
SL ;DOUBLE IT.....TAX ;USE AS INDEX.-...
LDA $14 ;. X LOW BYTE.F. .JSR RFHK ;. .
RASTER._.".STY $D010 ;WRITE MSB..$.STA
$D000,X ;WRITE LOW BYTE...&.RTS...(.XS3
JMP $B248 ;ILLEGAL QUANTITY...*.;.S.,.YS
P JSR CHS1 ;. SPRITE NUMBER.....YS1 TXA
;DOUBLE IT...0.ASL...2.PHA ;SET IT ASIDE
.&.4.JSR $B7F1 ;COMMA, Y..ITI..<.6.TXA ;
MOVE IT . .Y.D.8.TAY.[.:.PLA ;. 2.(SPRIT
E#).Q.<.TAX ;USE AS INDEX...>.TYA ;Y..IT
I....@.JSR RFHK ;. . RASTER...B.STA $D00
1,X ;WRITE .ITI....D.RTS.F.F.;...H.XYSP
JSR XSP ;WRITE X..ITI....J.LDX T3 ;. SPR
ITE NUMBER...L.BPL YS1 ;WRITE Y..ITI..#.
N.;.E.P.CHKSPR JSR $73 ;BUMP CHR. PTR.I.
R.CHS1 JSR $B79E ;. SPRITE NUMBER...T.CP
X #8 ;MUST BE UNDER 8...V.BCS XS3...X.RT
S...Z.;...\.RFHK PHA ;S.RE ACCUMULA.R...
^.RAS1 LDA $D012 ;. RASTER LINE...`.SBC
$D001,X ;SUBTRACT SPRITE.Y...B.BCC RAS2.
$.D.CMP #$2B ;. TILL.B.F.BCC RAS1 ;CLEAR
OF SPRITE.O.H.RAS2 PLA.W.J.RTS.].L.;...
N.POWERS .BYTE 1,2,4,8,16,32,64,128...P.
;...
> CLICK IMAGE PREVIEW FOR FULL MODAL