scene.org File Archive

File download

<root>­/­mirrors­/­amigascne­/­Scrollers­/­C-Groupstext­/­Cryptoburners/CRB&IT-DrammenMegapartyInv90.txt

File size:
6 717 bytes (6.56K)
File date:
2011-02-08 23:04:52
Download count:
all-time: 173

Preview

                                                                                                                                                                                                      welcome to the megaparty in drammen, norway.                      organized by cryptoburners, it & visual arts.              the party starts 7th april 1990 and ends 10th april 1990.                   the credits for this intro are:   coding by tec of it    music by time traveller & blackstar of crb   font by bugbear of crb.                        some info about the party... as we said, the party will begin saturday 7th april, and the doors will be opened at about 2 pm... important: there will be no admittance on friday !!!!    (if you arrive friday you have to sleep outside... comprendo???)    there has always been a lack of foreigners on norwegian parties, but we are trying to change that, so buy a ticket to drammen right away....  the entrance price will be 75 nok for scandinavians, and those outside scandinavia can expect to pay 35 nok. ( we prefer norwegian currency )......    at the party we will arrange a demo, music and a graphic competition with great prizes. we will also sell some food and softdrinks at reasonable prices.   for invitations write to:       po.box 141                    3055 kr.elva                    norway         or call:    4 7 - 3 - 8 2 6 2 1 1    (espen)        or:   4 7 - 3 - 8 7 6 8 9 3     (ulf)  ..... but remember.. today (10.3.) it is only 1 month left to the party begins, so help us to spread this intro fast... if you cant get an invitation in time, call us!      message to zelnik of vision factory:  call blackstar as soon as you can.        message to visual arts:  hvorfor release en paranoimia-intro til? hvor blei det av den fantastiske invitasjonsdemoen?         ok, that was all.       the intro will now restart...............             



.l a0,$54(a6)
	move.l #$1000000,$40(a6)
	move.w 12(a5),$66(a6)
	move.w 14(a5),$58(a6)
	rts
clear:	move.l 80(a5),a0
	wblt
	move.l a0,$dff054
	move.l #$1000000,$dff040
	clr.w $dff066
	move.w #%1001110111010110,$dff058
	rts
Scroll:
	lea	$dff000,a0
	move.l	#$40002,$050(a0);BltAPth
	move.l	#$40000,$054(a0);BltDPth
	move.w	#$0000,$064(a0);BltAMod
	move.w	#$0000,$066(a0);BltDMod
	move.w	#$ffff,$044(a0);BltAFwm
	move.w	#$ffff,$046(a0);BltALwm
	move.w	#$e9f0,$040(a0);BltCon0
	clr.w	$042(a0);BltCon1
	move.w	#[64*30]+22,$058(a0);BltSize
	addq.b	#2,Counter
	cmp.b	#$10,Counter
	beq.s	Getchar
	rts
Getchar:
	clr.b	Counter
	clr.l	d2
	lea	Text,a2
	lea	Charpos,a3
	add.l	Textpointer,a2
	move.b	(a2),d2
	cmp.b	#$60,d2
	bhi.s	Vanlige
	cmp.b	#31,d2
	bhi.s	Uvanlige
	clr.l	Textpointer
	bra.s	Getchar
Vanlige:
	sub.b	#$61,d2
	lsl	#2,d2
	move.l	(a3,d2.b),d2
	bra.s	Spyttutfont
Uvanlige:
	sub.b	#32,d2
	lea	Poschar,a2
	move.b	(a2,d2.b),d2
	lsl	#2,d2
	move.l	(a3,d2.b),d2
Spyttutfont:
	move.l	d2,$050(a0);BltAPth
	move.l	#$4002a,$054(a0);BltDPth
	move.w	#$0026,$064(a0);BltAMod
	move.w	#$002a,$066(a0);BltDMod
	move.w	#$ffff,$044(a0);BltAFwm
	move.w	#$ffff,$046(a0);BltALwm
	move.w	#$09f0,$040(a0);BltCon0
	move.w	#[64*30]+1,$058(a0);BltSize
	addq.l	#1,Textpointer
	rts
Waitblit:
	btst	#14,$002(a0)
	bne.s	Waitblit
	rts
Raster:
	move.w	$dff006,d0
	and.w	#$ff00,d0
	cmp.w	#$ff00,d0
	bne.s	Raster	
	rts
Copperlist:
	dc.w	$0102,$0000
	dc.w	$0009,$fffe
	dc.w	$0100,$1200
	dc.w	$0108,$0000
	dc.w	$010a,$0000
	dc.w	$0092,$0030
	dc.w	$0094,$00d8
	dc.w	$008e,$2981
	dc.w	$0090,$29c1
	dc.w	$0180,$0000
	dc.w	$00e0,$0004
	dc.w	$00e2,$0000
	dc.w	$0096,$0020
	dc.w    $0102,$0000
	dc.w	$0182,$000f
	dc.w	$ffff,$fffe
Text:
	dc.b	'cryptoburners   ,.()!-?&<>:0123456789      ',0
Poschar:
	dc.b	47,29,0,0,0,0,33,0,30,31,0,34,27,32,26,0
	dc.b	46,37,38,39,40,41,42,43,44,45,28,0,35,0
	dc.b    36,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,47 
Counter:	dc.b	0
Grname:		dc.b	'graphics.library',0
Dmastore:	dc.w	0
Interstore:	dc.w	0
Coptr:		dc.w	0
textpointer:	dc.l	0	
Charpos:
	dc.l	$50000,$50002,$50004,$50006,$50008
	dc.l	$5000a,$5000c,$5000e,$50010,$50012
	dc.l	$50014,$50016,$50018,$5001a,$5001c
	dc.l	$5001e,$50020,$50022,$50024,$50026
	dc.l	$504d8,$504da,$504dc,$504de,$504e0
	dc.l	$504e2
	dc.l	$504e4,$504e6,$504e8,$504ea,$504ec
	dc.l	$504ee,$504f0,$504f2,$504f4,$504f6
	dc.l	$504f8,$504fa,$504fc,$504fe
	dc.l	$509b0,$509b2,$509b4,$509b6,$509b8
	dc.l	$509ba,$509bc,$509be            

Custom = $dff000
BltAPth = $050
BltDPth = $054
BltAMod = $064
BltDMod = $066
BltAFwm = $044
BltALwm = $046
BltCon0 = $040
BltCon1 = $042
Bltsize = $058
Cop1lch = $080
Copjmp1 = $088
>extern "df0:sincos",sin
>Extern	'df0:fonter',$6c000,3684
rot:	macro
	move.w ?2,d5
	move.w ?3,d6
xa?1:	move.w #0,d0
xb?1:	move.w #0,d1
	muls d1,d5
	muls d0,d6
	sub.l d6,d5
	muls d0,?2
	muls d1,?3
	add.l ?2,?3
	swap ?3
	swap d5
	endm
rec:	macro
	cmp.w ?1,?2
	b?3.s nx?0
	move.w ?2,?1
nx?0:	endm
out:	macro
	cmp.w #$?1,?2
	b?3
	move.w #$?1,d4
	sub.w ?4,d4
	move.w d3,d5
	sub.w d1,d5
	move.w d2,d6
	sub.w d0,?5
	move.w #$?1,?6
	ext.l ?7
	asl.l #8,?7
	ext.l ?8
	endm
geo:	macro
	divs ?1,?2
	muls d4,?2
	asr.l #8,?2
	add.w ?3,?4
	endm
wblt:	macro
wbl?0:	btst #6,2(a6)
	bne.s wbl?0
	endm
blit:	macro
	addq.l #2,a2
	add.l #$2470,a1
	cmp.l a1,a0
	beq.s gf?1
	tst.w 40(a5)
	bne.s m?1
	cmp.w #$d0c,(a2)
	beq.s gf?1
m?1:	move.w (a2),$40(a6)
	move.l a1,$54(a6)
	move.l a1,$4c(a6)
	move.l a0,$50(a6)
	move.w d6,$58(a6)
gf?1:	endm
m44:	macro
	add.w ?1,?1
	move.w 120(a5,?1.w),?1
	endm
start:	jsr mt_init
	move.w #375,d0
	lea $68000,a0
fssds:	clr.l (a0)+
	dbra d0,fssds
	lea dils,a0
	moveq #1,d0
	move.l #$100000,d2
lll:	move.l d2,d1
	divs d0,d1
	move.w d1,(a0)+
	addq.w #1,d0
	cmp.w #$2000,d0
	bne.s lll
	lea regs,a5
	lea regs+120,a0
	moveq #0,d7
dlo:	move.w d7,d6
	mulu #44,d6
	move.w d6,(a0)+
	addq.w #1,d7
	cmp.w #$180,d7
	bne.s dlo
	move.w #$3fbf,d0
	lea $70000,a0
clo:	clr.l (a0)+
	dbra d0,clo
	move.l 4,a6
	jsr -132(a6)
	lea $dff000,a6
	move.w #$ffff,$44(a6)
	move.w $1c(a6),su_5
	bset #15,su_5
	move.w #$7fff,$9a(a6)
	move.l #interrupt,$6c
	move.w #$c020,$9a(a6)
	move.l #copper,$80(a6)
	move.w #$8000,$dff036
su_1:	btst #6,$bfe001
	beq.s su_3
su_2:	move.w $6(a6),d0
	and.w #$ff00,d0
	cmp.w #$ff00,d0
	bne.s su_2
	bsr program
	bra.s su_1
su_3:	move.l 4,a6		
	lea su_4,a1		
	moveq #0,d0
	jsr -408(a6)
	move.l d0,a0
	move.l 38(a0),$dff080
	move.l 4,a6
	jsr -138(a6)
	move.w #$7fff,$dff09a
	move.l #$00fc0cd8,$6c.w
	move.w su_5,$dff09a
	move.w #$8020,$dff096
	jsr mt_end
	rts
su_4:	dc.b 'graphics.library',0,0
su_5:	dc.w $0000