€€Open letter aan BlackThunder en Astray/SCL van Slam/Trance
----------------------------------------------------------

Zo stelletje uit de baarmoede geslingerde LAMERS !, ja hier is je OPEN letter
terug !

Wat betreft over die lijn-routine, ja die had ik gekregen van ASTRAY, mocht
ik gebruiken, en daarbij komt ook nog dat hij zei dat hij hem had gejat
uit een grote demo, net zoals andere stukjes 'code' dat hij me had laten
zien.

zo, hier is dan jullie eigen geprogrameerde routine !!
ps: kijk onderaan en oordeel zelf
    nog wat toelichting, adda gebruik je niet zomaar (doet disassambler)
			 addx gebruik je ook niet
    een paar labels veranderen in tekst zodat het lijkt of je het zelf
    gedaan hebt is zeer lame BLACKTHUNDER en ASTRAY !!
Ü"      Ü
;-----------------------------------------------------------------------------
jmp$30000			;slecht !!
org$30000
load$30000

MOVE.L #0,D0
MOVE.L #0,A1

MOVE.L #$C60000,A7		;cool dudges !!
MOVE.L #$0,D0
MOVE.L #$0,D7

move #$4000, $dff09a
move.l #cop, $dff084

move.w #64, el
move.w #168, az

w:
MOVE.L SCREEN1,D0
MOVE.L SCREEN2,D1
MOVE.L D1,SCREEN1
MOVE.L D0,SCREEN2
MOVE.L SCREEN2,D0
MOVE.W D0,PLANE1+6
SWAP D0
MOVE.W D0,PLANE1+2
SWAP D0Ü8      ÜŒ
t:
cmp.b #$80,$dff006
bCS t
jsr wis				;een bsr.w is beter hoor !


move.w el, d0
move.w az, d1
jsr ddd_init

move.l #ddddata, a5
MOVE.L #ENDDATA-DDDDATA,D5
DIVS #6,D5
SUB.L #1,D5
AND.L #$0000FFFF,D5
door:
move.w (a5)+, d2
move.w (a5)+, d3
move.w (a5)+, d4

jsr ddd_calc

CLR.L D0
CLR.L D1
CLR.L D2
CLR.L D3

move.w x, d0Ü8      ÜŒmove.w y, d1
;MOVE.W D0,$30000
MOVE.W OLDX,D2
MOVE.W OLDY,D3

move.w D0,OLDX
move.w D1,OLDY
jsr blit
dbf d5, door

;add.w #2, el
cmp.w #358, el
ble niet
move.w #0, el
niet:

add.w #2, az
cmp.w #358, AZ
ble niet1
move.w #0, az
niet1:
btst #6, $bfe001
bne w
rts

oldx:dc.l 0
oldy:dc.l 0

el: dc.l 0Ü8      ÜŒaz: dc.l 0
XX:DC.L 0
sinus1:Dc.l ddd_sinus
sinus2:Dc.l ddd_sinus+360
cop:
dc.w $0100, $1000			;$100, $e0, $92 enz. is korter hoor!
dc.w $0092, $0038, $0094, $00d0
dc.w $008e, $2981, $0090, $29c1
dc.w $0180, $0000, $0182, $0ff0
dc.w $108, 0, $10a, 0
PLANE1:
dc.w $00e0, $0004, $00e2, $0000		;o gaat dat tegenwoordig zo ?
dc.w $ffff, $fffe


SCREEN1:DC.L $40000			;dat reserveren wij niet meer ?
SCREEN2:DC.L $42800

wis:
move.l SCREEN1, a0
Move.l #2560, d0
wis2:
move.l #0, (a0)+
dbf d0, wis2


ddd_init:
Ü8      ÜŒ;  d0 = elevatie     d1 = azimuth

  move.l #ddd_sinus, a1 
  move.l a1, a2
  muls #2, d0
  muls #2, d1
  add.l d0, a1
  add.l d1, a2
  move (a1), se      ; sinus elevatie
  move (a2), sa      ; sinus azimuth

  move.l #ddd_cosin, a1
  move.l a1, a2
  add.l d0, a1
  add.l d1, a2
  move (a1), ce      ; cosinus elevatie
  move (a2), ca      ; cosinus azimuth

  move ca, xx
  neg xx

  move sa, yx
  move ce, zy

  move se, d2
  neg d2
  muls sa, d2
  divs #128, d2   ; delen door 128
  move d2, xyÜ8      ÜŒ
  move se, d2
  neg d2
  muls ca, d2
  divs #128, d2   ; delen door 128
  move d2, yy
rts

se: dc.w 0
sa: dc.w 0
ce: dc.w 0
ca: dc.w 0

yx: dc.w 0
zy: dc.w 0
xy: dc.w 0
yy: dc.w 0

PLUS1 : DC.W 160
PLUS2 : DC.W 128


ddd_calc:

  ; d2 = x    d3 = y   d4 = z
clr.l d0
clr.l d1

move.w xx, d0Ü8      ÜŒmuls d2, d0
move.l d0, d1
move.w yx, d0
muls d3, d0
addx.l d0, d1
divs #128, d1
add.w PLUS1,d1
move.w d1, x


clr.l d0
clr.l d1
move.w xy, d0
muls d2, d0
move.l d0,d1
move.w yy, d0
muls d3,d0
addx.l d0, d1
move.w zy,d0
muls d4,d0
addx.l d0, d1
divs #128, d1
add.w PLUS2,d1
move.w d1,y
rts

x: dc.w 0
y: dc.w 0
Ü8      ÜŒddd_sinus:
dc.w $0000, $0002, $0004, $0007, $0009, $000B, $000D, $0010, $0012, $0014
dc.w $0016, $0018, $001B, $001D, $001F, $0021, $0023, $0025, $0028, $002A
dc.w $002C, $002E, $0030, $0032, $0034, $0036, $0038, $003A, $003C, $003E
dc.w $0040, $0042, $0044, $0046, $0048, $0049, $004B, $004D, $004F, $0051
dc.w $0052, $0054, $0056, $0057, $0059, $005B, $005C, $005E, $005F, $0061
dc.w $0062, $0063, $0065, $0066, $0068, $0069, $006A, $006B, $006D, $006E
dc.w $006F, $0070, $0071, $0072, $0073, $0074, $0075, $0076, $0077, $0077
dc.w $0078, $0079, $007A, $007A, $007B, $007C, $007C, $007D, $007D, $007E
dc.w $007E, $007E, $007F, $007F, $007F, $0080, $0080, $0080, $0080, $0080
dc.w $0080, $0080, $0080, $0080, $0080, $0080, $007F, $007F, $007F, $007E
dc.w $007E, $007E, $007D, $007D, $007C, $007C, $007B, $007A, $007A, $0079
dc.w $0078, $0077, $0077, $0076, $0075, $0074, $0073, $0072, $0071, $0070
dc.w $006F, $006E, $006D, $006B, $006A, $0069, $0068, $0066, $0065, $0063
dc.w $0062, $0061, $005F, $005E, $005C, $005B, $0059, $0057, $0056, $0054
dc.w $0052, $0051, $004F, $004D, $004B, $0049, $0048, $0046, $0044, $0042
dc.w $0040, $003E, $003C, $003A, $0038, $0036, $0034, $0032, $0030, $002E
dc.w $002C, $002A, $0028, $0025, $0023, $0021, $001F, $001D, $001B, $0018
dc.w $0016, $0014, $0012, $0010, $000D, $000B, $0009, $0007, $0004, $0002
dc.w $0000, $FFFE, $FFFC, $FFF9, $FFF7, $FFF5, $FFF3, $FFF0, $FFEE, $FFEC
dc.w $FFEA, $FFE8, $FFE5, $FFE3, $FFE1, $FFDF, $FFDD, $FFDB, $FFD8, $FFD6
dc.w $FFD4, $FFD2, $FFD0, $FFCE, $FFCC, $FFCA, $FFC8, $FFC6, $FFC4, $FFC2
dc.w $FFC0, $FFBE, $FFBC, $FFBA, $FFB8, $FFB7, $FFB5, $FFB3, $FFB1, $FFAF
dc.w $FFAE, $FFAC, $FFAA, $FFA9, $FFA7, $FFA5, $FFA4, $FFA2, $FFA1, $FF9F
dc.w $FF9E, $FF9D, $FF9B, $FF9A, $FF98, $FF97, $FF96, $FF95, $FF93, $FF92
dc.w $FF91, $FF90, $FF8F, $FF8E, $FF8D, $FF8C, $FF8B, $FF8A, $FF89, $FF89
dc.w $FF88, $FF87, $FF86, $FF86, $FF85, $FF84, $FF84, $FF83, $FF83, $FF82
dc.w $FF82, $FF82, $FF81, $FF81, $FF81, $FF80, $FF80, $FF80, $FF80, $FF80
dc.w $FF80, $FF80, $FF80, $FF80, $FF80, $FF80, $FF81, $FF81, $FF81, $FF82Ü8      ÜŒdc.w $FF82, $FF82, $FF83, $FF83, $FF84, $FF84, $FF85, $FF86, $FF86, $FF87
dc.w $FF88, $FF89, $FF89, $FF8A, $FF8B, $FF8C, $FF8D, $FF8E, $FF8F, $FF90
dc.w $FF91, $FF92, $FF93, $FF95, $FF96, $FF97, $FF98, $FF9A, $FF9B, $FF9D
dc.w $FF9E, $FF9F, $FFA1, $FFA2, $FFA4, $FFA5, $FFA7, $FFA9, $FFAA, $FFAC
dc.w $FFAE, $FFAF, $FFB1, $FFB3, $FFB5, $FFB7, $FFB8, $FFBA, $FFBC, $FFBE
dc.w $FFC0, $FFC2, $FFC4, $FFC6, $FFC8, $FFCA, $FFCC, $FFCE, $FFD0, $FFD2
dc.w $FFD4, $FFD6, $FFD8, $FFDB, $FFDD, $FFDF, $FFE1, $FFE3, $FFE5, $FFE8
dc.w $FFEA, $FFEC, $FFEE, $FFF0, $FFF3, $FFF5, $FFF7, $FFF9, $FFFC, $FFFE


ddd_cosin:
dc.w $0080, $0080, $0080, $0080, $0080, $0080, $007F, $007F, $007F, $007E
dc.w $007E, $007E, $007D, $007D, $007C, $007C, $007B, $007A, $007A, $0079
dc.w $0078, $0077, $0077, $0076, $0075, $0074, $0073, $0072, $0071, $0070
dc.w $006F, $006E, $006D, $006B, $006A, $0069, $0068, $0066, $0065, $0063
dc.w $0062, $0061, $005F, $005E, $005C, $005B, $0059, $0057, $0056, $0054
dc.w $0052, $0051, $004F, $004D, $004B, $0049, $0048, $0046, $0044, $0042
dc.w $0040, $003E, $003C, $003A, $0038, $0036, $0034, $0032, $0030, $002E
dc.w $002C, $002A, $0028, $0025, $0023, $0021, $001F, $001D, $001B, $0018
dc.w $0016, $0014, $0012, $0010, $000D, $000B, $0009, $0007, $0004, $0002
dc.w $0000, $FFFE, $FFFC, $FFF9, $FFF7, $FFF5, $FFF3, $FFF0, $FFEE, $FFEC
dc.w $FFEA, $FFE8, $FFE5, $FFE3, $FFE1, $FFDF, $FFDD, $FFDB, $FFD8, $FFD6
dc.w $FFD4, $FFD2, $FFD0, $FFCE, $FFCC, $FFCA, $FFC8, $FFC6, $FFC4, $FFC2
dc.w $FFC0, $FFBE, $FFBC, $FFBA, $FFB8, $FFB7, $FFB5, $FFB3, $FFB1, $FFAF
dc.w $FFAE, $FFAC, $FFAA, $FFA9, $FFA7, $FFA5, $FFA4, $FFA2, $FFA1, $FF9F
dc.w $FF9E, $FF9D, $FF9B, $FF9A, $FF98, $FF97, $FF96, $FF95, $FF93, $FF92
dc.w $FF91, $FF90, $FF8F, $FF8E, $FF8D, $FF8C, $FF8B, $FF8A, $FF89, $FF89
dc.w $FF88, $FF87, $FF86, $FF86, $FF85, $FF84, $FF84, $FF83, $FF83, $FF82
dc.w $FF82, $FF82, $FF81, $FF81, $FF81, $FF80, $FF80, $FF80, $FF80, $FF80Ü8      ÜŒdc.w $FF80, $FF80, $FF80, $FF80, $FF80, $FF80, $FF81, $FF81, $FF81, $FF82
dc.w $FF82, $FF82, $FF83, $FF83, $FF84, $FF84, $FF85, $FF86, $FF86, $FF87
dc.w $FF88, $FF89, $FF89, $FF8A, $FF8B, $FF8C, $FF8D, $FF8E, $FF8F, $FF90
dc.w $FF91, $FF92, $FF93, $FF95, $FF96, $FF97, $FF98, $FF9A, $FF9B, $FF9D
dc.w $FF9E, $FF9F, $FFA1, $FFA2, $FFA4, $FFA5, $FFA7, $FFA9, $FFAA, $FFAC
dc.w $FFAE, $FFAF, $FFB1, $FFB3, $FFB5, $FFB7, $FFB8, $FFBA, $FFBC, $FFBE
dc.w $FFC0, $FFC2, $FFC4, $FFC6, $FFC8, $FFCA, $FFCC, $FFCE, $FFD0, $FFD2
dc.w $FFD4, $FFD6, $FFD8, $FFDB, $FFDD, $FFDF, $FFE1, $FFE3, $FFE5, $FFE8
dc.w $FFEA, $FFEC, $FFEE, $FFF0, $FFF3, $FFF5, $FFF7, $FFF9, $FFFC, $FFFE
dc.w $0000, $0002, $0004, $0007, $0009, $000B, $000D, $0010, $0012, $0014
dc.w $0016, $0018, $001B, $001D, $001F, $0021, $0023, $0025, $0028, $002A
dc.w $002C, $002E, $0030, $0032, $0034, $0036, $0038, $003A, $003C, $003E
dc.w $0040, $0042, $0044, $0046, $0048, $0049, $004B, $004D, $004F, $0051
dc.w $0052, $0054, $0056, $0057, $0059, $005B, $005C, $005E, $005F, $0061
dc.w $0062, $0063, $0065, $0066, $0068, $0069, $006A, $006B, $006D, $006E
dc.w $006F, $0070, $0071, $0072, $0073, $0074, $0075, $0076, $0077, $0077
dc.w $0078, $0079, $007A, $007A, $007B, $007C, $007C, $007D, $007D, $007E
dc.w $007E, $007E, $007F, $007F, $007F, $0080, $0080, $0080, $0080, $0080
 

ddddata:
DC.W -90,-90,0
DC.W -90, 80,0
DC.W -80, 90,0
DC.W -60, 90,0
DC.W -55, 85,0
DC.W -50, 85,0
DC.W -50, 90,0
DC.W -50, 30,0Ü8      ÜŒDC.W  45, 30,0
DC.W  45, 90,0
DC.W -50, 90,0
DC.W  90, 90,0
DC.W  90,-90,0
DC.W  70,-90,0
DC.W  70, 20,0
DC.W -70, 20,0
DC.W -70,-90,0
DC.W  70,-90,0
DC.W -90,-90,0

ENDDATA:

			;en hier begint het dan !

M2D9A0:DC.L 1

BLIT:
A2D898:
MOVEM.L D0-D7/A0-A6,MEM0
MOVE.W M2D9A0,D6
MOVEQ #$0F,D4
AND.W D2,D4
SUB.W D3,D1
MULU #$28,D3;$30

;$2D8A8
SUB.W D2,D0Ü8      ÜŒBLT A2D8CE
TST.W D1
BLT A2D8BE
CMP.W D0,D1
BGE A2D8B8
MOVEQ #$11,D7
BRA A2D8F0
A2D8B8:
MOVEQ #$01,D7
EXG D1,D0
BRA A2D8F0
A2D8BE:
NEG.W D1

;$2D8C0
CMP.W D0,D1
BGE A2D8C8
MOVEQ #$19,D7
BRA A2D8F0
A2D8C8:
MOVEQ #$05,D7
EXG D1,D0
BRA A2D8F0
A2D8CE:
NEG.W D0
TST.W D1
BLT A2D8E2
CMP.W D0,D1
BGE A2D8DCÜ8      ÜŒ
;$2D8D8
MOVEQ #$15,D7
BRA A2D8F0
A2D8DC:
MOVEQ #$09,D7
EXG D1,D0
BRA A2D8F0
A2D8E2:
NEG.W D1
CMP.W D0,D1
BGE A2D8EC
MOVEQ #$1D,D7
BRA A2D8F0
A2D8EC:
MOVEQ #$0D,D7
EXG D1,D0

;$2D8F0
A2D8F0:
BTST #$0,D6
BEQ A2D8FC
BSET #$1,D7
A2D8FC:
ADD.W D1,D1
ASR.W #3,D2
EXT.L D2
ADD.L D2,D3
MOVE.W D1,D2Ü8      ÜŒSUB.W D0,D2
BGE A2D90E
OR.W #$40,D7
A2D90E:
MOVE.W D2,A3

;$2D910
LEA $DFF000,A6
A2D910:
;BTST #$6,$2(A6)
;BNE A2D910
BSR WAITBOB;A2D384
MOVE.W #$28,$60(A6)
MOVE.W #$28,$66(A6)
MOVE.L #$FFFFFFFF,$44(A6)
MOVE.L #$FFFF8000,$72(A6)
MOVE.W D1,$62(A6)
MOVE.W D2,D1
SUB.W D0,D1
MOVE.W D1,$64(A6)

;$2D94A
MOVE.W D7,D5
ADD.W #$1,D0
ASL.W #6,D0
ADD.W #$2,D0
MOVE.W D4,D2
SWAP D4
ASR.L #4,D4Ü8      ÜŒOR.W #$0B00,D4
SWAP D5
MOVE.W D4,D5
BTST #$1,D6
BEQ A2D972

;2D96C
MOVE.B #$4A,D5
BRA A2D976
A2D972:
MOVE.B #$CA,D5
A2D976:
SWAP D5
ADD.L SCREEN1,D3
;ADD.L M2D99C,D3
MOVE.L D5,$40(A6)
MOVE.W A3,$52(A6)
MOVE.L D3,$48(A6)
MOVE.L D3,$54(A6)
MOVE.W D0,$58(A6)
BSR WAITBOB;A2D38E;??????????????????????????????? (je weet het niet he ?)
MOVEM.L MEM0,D0-D7/A0-A6
RTS
MEM0:BLK.L 25,0

SCREEN:DC.L $40000

A2CF18:;CLEAR
CLEAR1:Ü8      ÜŒMOVE.W #$4000,$DFF09A;JSR $2D384
MOVE.L SCREEN,$DFF054
MOVE.W #$0000,$DFF042
MOVE.W #$0100,$DFF040
MOVE.W #$0000,$DFF066
MOVE.W #$3318,$DFF058
MOVE.W #$C000,$DFF09A;JSR $2D38E
RTS

waitbob:
btst #$e,$dff002
bne waitbob
rts

DC.B "END END END"		;tja je was zeker moe ?

;-----------------------------------------------------------------------------
Ü"      Ü
ps: van een sinus kan je ook een cosinus maken hoor !


Weet je, dat is pas lame !! hij zei dat ik hem mocht gebruiken, en aanpassen
om het wat sneller te maken, en tja, dat heb ik gedaan !
Weet je, VUILNISBAK en BLACKSHIT, wat jullie doen, dat noem ik lame, je
zien een mooie glanzende vector van mij, met leuke kleurtjes, en je denkt
whow, hoe doet die gozer dat ? even zijn source 'resourcen' dan kunnen wij
het ook namelijk de volgende keer doen !

Nou lamers, voor jullie een uitleg van het hoor !

je zet een leuke vector op het scherm, je zet 3 keer de zelfde bitplane
adress neer in de copper, en je verschuift ook nog eens de on-even bitplanes
een pixel naar rechts of links als je dat leuk vind !
Dan moet je alleen nog maar de kleurtjes zetten, moeilijk he ?
Stelletje NURTS !

Weet je Astray, laat ik maar niks over jou geripte coding zeggen he ?
Weet je wat jullie 2 moeten doen ? Jullie moeten ook mijn volgende
product resourcen, want daar heb ik een nieuwe lijnroutine in zitten
die zeer weinig raster tijd kost, MOET JE RIPPEN MAN !!

En dan nu over dat mooie meisje van mij in die demo ... Jaloers op mijn
vriendin ? Dacht ik al, tja met zulke uitspraken van jullie krijg je ook
geen vriendin ! (zag ik jullie niet bij de ROSE WOLK naar binnen stappen ?)

Ü8      Ü
Tja, had ik gezegd, girl pixeled by ikke ? Dacht het niet he, zeg wat zijn
jullie knap (ongelukkig!), ja jullie konden het zien, WHOWW SUKKELS !

Weet je, jullie zijn gewoon jaloers, omdat jullie nou niks releasen, en
alleen maar beloftes aansmeren, die jullie niet waar konden maken, zoals
de veel beloofde party's van jullie met 2 unlimited en dano !
Ja daar word je ook HEEEEEL beroemd mee hoor !
Breng eens wat uit, dan kunnen wij ook eens lachen om jullie "productie's" !

Trouwens, ik zit pas een half jaar op de amiga te coden, en weet je, toen
ik bij you was VUILNUSBAK, programeerde je al lang, en wist presies hoe je
moest rippen van andermans demo's, weet je ik ben verbaasd dat je wat over
anderen durft te zeggen, want ik heb nog niks gejat !

Sorry dat ik you terug pak ASTRAY, maar die BLACKSHIT ken ik niet, dus
wat heeft het voor zin om je woorden vuil te maken aan een lamer die toch niks
doet in de SCENE ? O ja, dat doet Silicon ook niet trouwens !

Jullie geven dit tijdschrift een slechte naam, en jullie zelf ook trouwens !
Nu is Silicon Limited weer voor de zoveelste keer gedoopt in Silicon Lamited!

Oke, nog even over de muziek by EP/Illusions in onze demo !

Kijk die muziek van mijn broertje wat gewoon te mooi, om te zeggen dat
hij ook in Silicon zat, Tja je moet hem gelijk geven als hij zegt dat
silicon niks uitbrengt, weet je, hij heeft nu zo'n honderd schijven met
tunes, en ik vraag me af of jullie daar nog wat van te zien krijgen !
Ü8      ÜŒ
Nou ik stop er maar mee, want ik heb geen zin om te antwoorden op een
briefje van luitjes die zelf LAMERS zijn !

En als jullie nog meer 'eigen gemaakte' spul van jullie willen zien hier,
dan moet je dat vooral niet vergeten te zegen hoor !

	   ***** BLACKTUNDER & ASTRAY, MASTERS IN RIPPING !! *****