Here it is:<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD><font class="mrc-small">Code:</font><HR></TD></TR><TR><TD><FONT class="mrc-small"><PRE>; Simple star-loop (in 7 bitplanez, yer N.O.P. the only one!)
;
; By BiFi 1994
;
ORG &HC000
START: LD A,15 ; COLOR 15,0,0
LD HL,0
LD (&HF3E9),A
LD (&HF3EA),HL
CALL &H62
LD A,5 ; SCREEN 5
CALL &H5F
LD C,&H99 ; FOR I=1 TO 7:COLOR=(I,I,I,I):NEXT I
LD DE,&H0190
OUT (C),D
OUT (C),E
LD A,&H77
LD B,7
INC C
PLT_LP: OUT (C),A
OUT (C),A
SUB &H11
DJNZ PLT_LP
LD HL,&H7800 ; FOR I=0 TO 6:SPRITE$(I)=128:NEXT I
LD B,7
SPR_LP: PUSH BC
LD B,7
LD A,128
CALL &H0177
INC HL
SPRITE: LD A,0
CALL &H0177
INC HL
DJNZ SPRITE
POP BC
DJNZ SPR_LP
LD HL,&H7400 ; FOR I=0 TO 6:COLOR SPRITE(I)=I+1:NEXT I
LD DE,CLRTAB
LD B,32
SPRCLR: LD A,(DE)
CALL &H0177
PUSH BC
LD BC,16
ADD HL,BC
POP BC
INC DE
DJNZ SPRCLR
DI ; It'z time to set the TIMI-hook
LD BC,5
LD DE,OLD_HK
LD HL,&HFD9F
PUSH BC
PUSH HL
LDIR
POP DE
POP BC
LD HL,NEW_HK
LDIR
EI
SPC: LD A,0
CALL &HD8
JR Z,SPC
DI
LD BC,5
LD DE,&HFD9F
LD HL,OLD_HK
LDIR
XOR A
JP &H5F
NEW_HK: JP HOOK
RET
RET
HOOK: PUSH AF
PUSH BC
PUSH DE
PUSH HL
PUSH IX
LD B,32
LD DE,4
LD IX,SPR_AT
MV_SPR: LD C,(IX+2)
LD A,(IX+1)
INC C
SUB C
LD (IX+1),A
ADD IX,DE
DJNZ MV_SPR
LD BC,128
LD HL,SPR_AT
LD DE,&H7600
CALL &H5C
POP IX
POP HL
POP DE
POP BC
POP AF
OLD_HK: DB 201,201,201,201,201
CLRTAB: DB 7,7,7,7,7,6,6,6,6
DB 5,5,5,5,5,4,4,4,4
DB 3,3,3,3,3,2,2,2,2
DB 1,1,1,1,1
SPR_AT: DB 108,118,0,0,115,240,0,0
DB 137,212,0,0,13,91,0,0
DB 199,152,0,0,119,47,1,0
DB 165,4,1,0,17,93,1,0
DB 183,46,1,0,49,198,2,0
DB 43,223,2,0,117,58,2,0
DB 114,159,2,0,1,1,2,0
DB 17,164,3,0,196,65,3,0
DB 91,72,3,0,42,96,3,0
DB 179,61,4,0,151,218,4,0
DB 108,250,4,0,14,102,4,0
DB 126,153,4,0,41,57,5,0
DB 16,81,5,0,109,8,5,0
DB 42,167,5,0,56,218,6,0
DB 113,129,6,0,166,75,6,0
DB 86,83,6,0,209,244,6,0
</PRE></FONT></TD></TR><TR><TD><HR></TD></TR></TABLE>
|