/[projet1]/public/oric/demos/assembly_2002/scroller.s
Defence Force logotype

Contents of /public/oric/demos/assembly_2002/scroller.s

Parent Directory Parent Directory | Revision Log Revision Log


Revision 473 - (show annotations)
Fri Apr 29 22:00:16 2011 UTC (8 years, 10 months ago) by dbug
File size: 12380 byte(s)
Added the Assembly 2002 demo, it's very messy, need some cleanup, but well
1
2 _MessageScroller
3 .asc "Assembly 2002. 11th consecutive event. Stuff you've never seen before. "
4 .asc "More preparations than ever before. Commitment like you've never "
5 .asc "witnessed before. Assembly 2002 -- Bringing back the fun, "
6 .asc "the attitude and That Thing You Used To Do to it. Hell yea! Don't take everything "
7 .asc "too seriously ;) --- They helped making this intro happen: "
8 .asc "Paul 'Lone Starr' Endresen Rob 'you know him' Hubbard "
9 .asc "God bless you for your influence. - Here we go! Wuuuup. "
10 .asc "Assembly 2002 - a phenomal list of guest speakers including Rob Hubbard, "
11 .asc "Bjorn 'Dr. Awesome' Lynne, Paul 'Lone Starr/Spaceballs' Endresen, Carlos 'Made/Bomb' Pardo "
12 .asc "and many, many others! Largest ever sum of prices given away in a demoscene event and live "
13 .asc "concert featuring Machinae Supremacy guest starring Rob Hubbard, Tero (Deetsay/Orange), CNCD "
14 .asc "and Crankshaft (Yolk/CNCD). - This all on top of our 'usual' party hooplas. "
15 .asc "Damn! Helsinki - Hartwall Areena - 1.-4. August. That Thing You Used To Do -- get back to it! "
16 .asc "- www.assembly.org - - Deck on the keys. Ha! Massive f*cking respect to Jmagic, "
17 .asc "Jugi, Heatbeat and Britelite/Dekadence, Shape&THG/DCS and H7/TRSI for making this intro possible. "
18 .asc "Schedule was tight but you just gotta be bloody awed seeing how these dudes pulled it off - especially "
19 .asc "Jmagic and Jugi. You guys, beer will not be running out for you this Boozembly. - "
20 .asc "People often ask me why do I keep myself bothered with these scene things.. It's because where I am "
21 .asc "I am mostly because of the scene. Things I've learned. Things I've seen. Things I've experienced. "
22 .asc "Every time I'm organizing something I'm listening to old modules from back in the day, watching - "
23 .asc "or atleast remembering - old demos. Stuff like that. And yea, I DO have a life you know if that's "
24 .asc "what you're thinking ;) Jester/Sanity said it in one of his great modules; So if it all ends tomorrow, "
25 .asc "I've seen it what's it like -- And I've had a good ride. - "
26 .asc "A hand out to these people.. In NO order! Over the years, you've maked it all worthwhile. "
27 .asc "Heatbeat, Jmagic, Jugi, Made, Lone Starr, Chaos, Scoopex allstars, Murk, Rob Hubbard, Jester, Stobo, "
28 .asc "Stargazer, Dizzy, Spaceman, Bit Arts, Audiomonster, Bruno, Cutcreator, Dean, Delorean, Dj. Joge, Dr. Awesome, "
29 .asc "Dreamer, Dreamfish, Dune, Echo, Emax, Greg, Groo, Merge, Moby, Mr. Man, Nightshade, Reflex, Romeo Knight, "
30 .asc "S.L.L, Slide, Subject, Supernao, Travolta, Ukulele, Yolk&Legend, Barry Leitch, Mantronix&Tip. Mostly musicians "
31 .asc "I know.. Plus a lot, a lot of other people aswell but just can't remember them right at the moment.. Let's "
32 .asc "just say that all of you coders and graphicians - mid-nineties Amiga-elites out there still able to read this! "
33 .asc "If you ever get around Finland, feel welcomed to drop in, any time. - "
34 .asc "About Assembly.. If we get 1 out of 100 gamers to even think about doing something for the scene.. "
35 .asc "Then we're there. We've reached our goal. -- Deck/Scoopex//Assembly Org signing off - Res-f*cking-pect "
36 .asc "for all of you sceners out there, oldskool or not. Keep doing your stuff and other people will follow you. "
37 .asc "It's Abyss // AsmOrg & FC hitting the keyboard now. Man, it's been like years since I last wrote scrollers "
38 .asc "for Future Crew prods, so this does feel like trip back in time! A lot has changed since - the people "
39 .asc "have come and gone, the scene has changed and grown, controversy and diverse opinions abound. Still "
40 .asc "something has stayed true and unchanging for me. The commitment to the scene is the driving force "
41 .asc "behind ASSEMBLY. Sure, it's big, filled with gamers, commercial and bad for your mental health, "
42 .asc "but still it manages to attract the movers and shakers of the demo scene. Judge us by the releases "
43 .asc "made at ASSEMBLY. Some of the most legendary demos have been released here - from Unreal and Second "
44 .asc "Reality to Spot and Lapsuus. -- We have the total party package for you this year. "
45 .asc "Legends like Rob Hubbard and Lone Starr, seminars with outstanding speakers, tough compos with more than "
46 .asc "40 000 euros in prizes, a great oldskool party area complete with free coffee and sofas, a monster of a "
47 .asc "concert with the likes of Machinae Supremacy and CNCD - so come and prove that the scene is alive! "
48 .asc "-- Utmost respect to Deck for putting the wheels in motion and getting this invtro done! "
49 .asc "A big hand to the dudes: Jmagic, Jugi, Heatbeat and Britelite/Dekadence, Shape&THG/DCS and H7/TRSI "
50 .asc "for getting the invtro done in a record time! My deepest thanks to all of the 200 volunteers "
51 .asc "making ASSEMBLY possible! Some personal shouts must go out to Embo, Tee, Henchman, Marvel, "
52 .asc "Pixel, Skaven, PSI, Trug, Gore, FTJ, Trixter, the FSC gang, RC, Captain and Hypponen. Pure love to my honey Eija! "
53 .asc " "
54 .byt 0
55
56
57 _InterruptInstall
58 sei
59 lda #$20 ; jsr
60 sta $400
61 lda #<_InterruptCode
62 sta $401
63 lda #>_InterruptCode
64 sta $402
65 lda #$60
66 sta $403 ; rts
67 cli
68 rts
69
70 FlipCounter1 .byt 0
71 FlipCounter2 .byt 0
72
73 _VblCounter .byt 0
74
75
76 _VSync
77 lda _VblCounter
78 beq _VSync
79 lda #0
80 sta _VblCounter
81 rts
82
83
84
85 _InterruptCode
86 inc FlipCounter1
87 lda FlipCounter1
88 and #2
89 beq _InterruptCodeEnd
90
91 lda #0
92 sta FlipCounter1
93 inc _VblCounter
94
95 jsr _ScrollerDisplay
96
97 inc FlipCounter2
98 lda FlipCounter2
99 and #2
100 beq _InterruptCodeEnd
101
102 lda #0
103 sta FlipCounter2
104
105 jsr _TeletypeUpdate
106
107 _InterruptCodeEnd
108 rts
109
110
111 _MessageScrollerPtr .word _MessageScroller
112
113
114 _ScrollerInit
115 ; paper
116 lda #16+1
117 sta $a000+40*0
118
119 lda #16+1
120 sta $a000+40*7
121
122 lda #16+4
123 sta $a000+40*1
124 sta $a000+40*6
125
126
127 lda #16+4
128 sta $a000+40*2
129 sta $a000+40*5
130
131 lda #16+4
132 sta $a000+40*3
133 sta $a000+40*4
134
135 ldx #38
136 lda #64
137 ScrollerInitEraseLoop
138 sta $a000+40*0,x
139 sta $a000+40*1,x
140 sta $a000+40*2,x
141 sta $a000+40*3,x
142 sta $a000+40*4,x
143 sta $a000+40*5,x
144 sta $a000+40*6,x
145 sta $a000+40*7,x
146 dex
147 bne ScrollerInitEraseLoop
148 rts
149
150
151
152
153
154
155
156
157
158 ScrollerCounter .byt 0
159
160 ScrollerCharBuffer .byt 0,1,2,3,4,5,6,7 ; Buffer with character to scroll
161
162 _ScrollerDisplay
163 ;Break jmp Break
164
165 lda ScrollerCounter
166 beq ScrollerNewCharacter
167
168 dec ScrollerCounter
169 jmp ScrollerEndNewCharacter
170
171 ScrollerNewCharacter
172 lda #6
173 sta ScrollerCounter
174
175 ; message
176 lda _MessageScrollerPtr
177 sta tmp6
178 lda _MessageScrollerPtr+1
179 sta tmp6+1
180
181 inc _MessageScrollerPtr
182 bne skipscrollermove
183 inc _MessageScrollerPtr+1
184 skipscrollermove
185
186 ; Get character and write into the buffer
187 ldy #0
188 lda (tmp6),y
189 beq ScrollerDisplayReset
190
191 sta tmp7
192 lda #0
193 sta tmp7+1
194
195 asl tmp7
196 rol tmp7+1
197
198 asl tmp7
199 rol tmp7+1
200
201 asl tmp7
202 rol tmp7+1
203
204 clc
205 lda #<_picture_font_2-32*8
206 adc tmp7
207 sta tmp7
208 lda #>_picture_font_2-32*8
209 adc tmp7+1
210 sta tmp7+1
211
212 ldy #0
213 loopcopychar
214 lda (tmp7),y
215 ora #64
216 sta ScrollerCharBuffer,y
217 iny
218 cpy #8
219 bne loopcopychar
220
221 ScrollerEndNewCharacter
222
223
224 ;Break jmp Break
225
226 lda #<$a000
227 sta tmp6
228 lda #>$a000
229 sta tmp6+1
230
231
232 ldx #0
233 ScrollerDisplayLoopMessageY
234 ; Get pixel from character
235 clc
236 lda ScrollerCharBuffer,x
237 rol
238 cmp #192
239 and #$3F
240 ora #64
241 sta ScrollerCharBuffer,x
242
243 ; And then scroll the whole scanline
244 ldy #38
245 ScrollerDisplayLoopMessageX
246 lda (tmp6),y
247 rol
248 cmp #192
249 and #%00111111
250 ora #%01000000
251 sta (tmp6),y
252
253 dey
254 bne ScrollerDisplayLoopMessageX
255
256 clc
257 lda tmp6
258 adc #40
259 sta tmp6
260 bcc skipkipppp
261 inc tmp6+1
262 skipkipppp
263
264 inx
265 cpx #8
266 bne ScrollerDisplayLoopMessageY
267
268 rts
269
270
271 ScrollerDisplayReset
272 lda #<_MessageScroller
273 sta _MessageScrollerPtr
274 lda #>_MessageScroller
275 sta _MessageScrollerPtr+1
276 rts
277
278
279
280
281 TeletypeMessage
282 ; 0123456789012345678901234567890123456789
283 .asc "ASSEMBLY.ORG production:",3,"ASSEMBLY 2002",0
284 .asc " ",0
285 .asc 4,"Starring:",0
286 .asc " JUGI KAARINEN",0
287 .asc " JMAGIC HEIKKINEN.",0
288 .asc " ",0
289 .asc 4,"Produced by:",0
290 .asc " PEKKA AAKKO",0
291 .asc " ",0
292 .asc 4,"Directed by:",0
293 .asc " JUSSI LAAKKONEN",0
294 .asc " ",0
295 .asc 4,"Also starring:",0
296 .asc " ALEKSI 'HEATBEAT' EEBEEN",0
297 .asc " JUUSO 'DECK' SALMIJARVI",0
298 .asc " ",0
299 .asc 4,"Oric port by:",0
300 .asc " JONATHAN 'TWILIGHTE' BRISTOW",0
301 .asc " JEROME 'JEDE' DEBRUNE",0
302 .asc " MICKAEL 'DBUG' POINTIER",0
303 .asc " ",0
304 .asc 4,"ASSEMBLY.ORG website:",0
305 ; 0123456789012345678901234567890123456789
306 .asc " http://www.assembly.org ",0
307 .asc " ",0
308 .asc 4,"DEFENCE FORCE website:",0
309 ; 0123456789012345678901234567890123456789
310 .asc " http://www.defence-force.org ",0
311 .asc " ",0
312
313 .asc " ",0
314 .asc " ",0
315 .asc " ",0
316 .asc 1
317
318 TeletypeMessagePtr .word TeletypeMessage
319 TeletypeXPos .byt 0
320
321 _TeletypeUpdate
322 ; Red paper
323 lda #17
324 sta $bf68+40*0
325 sta $bf68+40*1
326 sta $bf68+40*2
327
328 ; Insert new char
329 lda TeletypeMessagePtr
330 sta tmp6
331 lda TeletypeMessagePtr+1
332 sta tmp6+1
333
334 ldy #0
335
336 lda (tmp6),y
337 cmp #1
338 bne TeletypeNoEndOfText
339
340 ; Reinitialise to begin of message
341 ; and reload character
342 lda #<TeletypeMessage
343 sta TeletypeMessagePtr
344 sta tmp6
345 lda #>TeletypeMessage
346 sta TeletypeMessagePtr+1
347 sta tmp6+1
348 jmp TeletypeScrollUp
349
350 TeletypeNoEndOfText
351
352 inc TeletypeMessagePtr
353 bne skipteletypemove
354 inc TeletypeMessagePtr+1
355 skipteletypemove
356
357 cmp #0
358 beq TeletypeScrollUp
359
360 ldx TeletypeXPos
361 sta $bf68+40*2+1,x
362 inc TeletypeXPos
363
364 rts
365
366
367 TeletypeScrollUp
368 ldx #39
369 TeletypeScrollUpLoopX
370 lda $bf68+40*1,x
371 sta $bf68+40*0,x
372 lda $bf68+40*2,x
373 sta $bf68+40*1,x
374 lda #32
375 sta $bf68+40*2,x
376 dex
377 bne TeletypeScrollUpLoopX
378
379 ldx #0
380 stx TeletypeXPos
381 rts
382
383
384
385 _MessageAssemblyIntro
386 .asc "ASSEMBLY 2002.",0
387 .asc " 11TH CONSECUTIVE EVENT.",0
388 .asc " STUFF YOU HAVE NEVER SEEN BEFORE.",0
389 .asc " MORE PREPARATIONS THAN EVER",0
390 .asc " BEFORE.",0
391 .asc " COMMITMENT LIKE YOU HAVE NEVER",0
392 .asc " WITNESSED BEFORE.",0
393 .asc " ",0
394 .asc "ASSEMLY 2002 BRINGING BACK THE FUN",0
395 .asc " THE ATTITUDE AND THAT THING YOU",0
396 .asc " USED TO DO IT.",0
397 .asc " HELL YEA DON'T TAKE EVERYTHING TOO",0
398 .asc " SERIOUSLY",0
399 .asc 1
400
401
402 _MessageFightersIntro
403 .asc "DURING THE ASSEMBLY, YOU",0
404 .asc "WILL ENCOUNTER VARIOUS",0
405 .asc "FIGHTERS... HERE'S A SHORT",0
406 .asc "INTRODUCTION TO SOME OF THE",0
407 .asc "MOST DANGEROUS ONES.",0
408 .asc 1
409
410
411 _MessageFighterPehu
412 .asc "PEHU HAS A SET OF",0
413 .asc "POWERFUL SPELLS TO",0
414 .asc "LAME ANY OPPONENT",0
415 .asc "HE STARTS TO FIGHT",0
416 .asc "WITH.",0
417 .asc "SPECIAL ABILITIES:",0
418 .asc "SPELL OF",0
419 .asc "CONFISCATION",0
420 .asc "OF BEVERAGES",0
421 .asc 1
422
423 _MessageFighterAbyss
424 .asc "WITH HIS POWERFULL TOOLS,",0
425 .asc "ABYSS CAN CONTACT HIS",0
426 .asc "ARMY FROM GREAT",0
427 .asc "DISTANCES.",0
428 .asc "COMBINED WITH SPECIAL",0
429 .asc "KICKBOARDPORTATION",0
430 .asc "TRICK,THIS MAKES",0
431 .asc "HIM VERY MOBILE FIGHTER.",0
432 .asc "ABYSS CANNOT MOVE",0
433 .asc "OFF-ROAD, SO USE",0
434 .asc "THE ENVIRONMENT",0
435 .asc "WISELY AS A",0
436 .asc "DEFENCE.",0
437 .asc 1
438
439 _MessageFighterEetu
440 .asc "EETU IS THE MASTER OF",0
441 .asc "CAMOUFLAGE AND MAN WITH",0
442 .asc "SEVERAL TOURNAMENT",0
443 .asc "VICTORIES.",0
444 .asc "YOU MIGHT MEET THIS",0
445 .asc "FIGHTER WITH ONE FACE",0
446 .asc "BUT IN SEVERAL PHYSICAL",0
447 .asc "BODIES.",0
448 .asc 1
449
450 _MessageFighterSivu
451 .asc "WITH SURPRISING STAMINA,",0
452 .asc "SIVU KEEPS ON FIGHTING",0
453 .asc "TILL THE VERY END.",0
454 .asc "SPECIAL ABILITIES:",0
455 .asc "TOURNAMENT ENDURANCE",0
456 .asc 1
457
458 _MessageFighterVirne
459 .asc "VIRNE IS A WIZARD WHO IS",0
460 .asc "ESPECIALLY STRONG IN SPIRIT.",0
461 .asc "HIS MAGICAL POTIONS AND FAMOUS",0
462 .asc "GRILL OF FIRE CAN HAVE VERY",0
463 .asc "SURPRINSING RESULTS AND",0
464 .asc "ATTRACT OTHER FIREFIGHTERS.",0
465 .asc 1
466
467
468

  ViewVC Help
Powered by ViewVC 1.1.26