;******************************************************* ;* ;* WAVE-INTRO by HAEGAR / THRUST ;* ;* startdate: 07/19/88 >ri ;* >DATCR ;* enddate: 07/19/88 >CRUNCH ;* ;* SUNSETGLOW 1988 THRUST ;* ;******************************************************* sound = $57800 fontram = $6d000 copperram = $7eb00 pic = $7a000 picr = pic+1600 scrollfield = pic - 5000 scrollfieldend = scrollfield+4224 haus = $73000 trap: move.l #start,$80 trap #0 rts start: move.w #$2700,sr movem.l d0-d7/a0-a6,-(sp) ;-------floppystop------- ori.b #$80,$bfd100 ori.b #$8,$bfd100 andi.b #$f7,$bfd100 ori.b #$10,$bfd100 andi.b #$ef,$bfd100 jsr s move.l #sintab,a0 move.l #sintab_end,a1 sub.l a0,a1 move.l a1,d0 move.w d0,sintab_save ;------init haus move.l #copperram,a0 move.l #newcopper,a1 move.l #bitplanes1,a2 sub.l a1,a2 add.l a2,a0 move.l a0,haus_copper_ram move.l #copperram,a0 move.l #newcopper,a1 move.l #bitplanes,a2 sub.l a1,a2 add.l a2,a0 move.l a0,bitplanes_ram bsr copy_copper bsr init_copperlist move.l #$73000+18,d0 move.w #3,d1 move.l haus_copper_ram,a0 loop_f: swap d0 move.w d0,2(a0) swap d0 move.w d0,6(a0) add.l #40,d0 add.l #8,a0 dbra d1,loop_f move.l #copperram,a0 move.l #newcopper,a1 move.l #bitscroll,a2 sub.l a1,a2 add.l a2,a0 move.l a0,scroll_copper_ram move.l #scrollfield,d0 move.w #2,d1 move.l scroll_copper_ram,a0 loop_e: swap d0 move.w d0,2(a0) swap d0 move.w d0,6(a0) add.l #44,d0 add.l #8,a0 dbra d1,loop_e move.w #$80,$dff096 move.l #copperram,$dff080 clr.w $dff088 move.w #$8080,$dff096 bsr mt_init wait: cmp.b #$30,$dff006 bne wait bsr mt_newirq btst #10,$dff016 beq mouse bsr scroll_rout mouse: bsr write_line bsr asr_init btst #6,$bfe001 bne wait end: move.w #15,$dff096 ;sound aus copperinit: move.l 4,a6 move.l #gfxname,a1 jsr -408(a6) move.l d0,a1 move.w #$80,$dff096 move.l 38(a1),$dff080 clr.w $dff088 move.w #$8080,$dff096 jsr -414(a6) move.w #$8020,$dff096 ;mouse an movem.l (a7)+,d0-d7/a0-a6 move.w #$2000,sr rte gfxname: dc.b "graphics.library",0 even ;******************************************************** ;* waverout ;******************************************************** write_line: move.l bitplanes_ram,a0 move.l #sintab,a1 ;sintabelle add.w #4,sintab_pointer ;erhoehe pointer move.w sintab_save,d1 move.w sintab_pointer,d2 cmp.w d1,d2 ble sintab_weiter move.w #0,sintab_pointer sintab_weiter: move.w sintab_pointer,d0 ;zeiger auf sintab move.l #pic,d1 ;bildadd move.w #80,d4 ;schleifen_zaehler write_loop: moveq #0,d2 move.w 0(a1,d0.w),d2 ;sin_nach d2 tst.w asr_ bne no_0 moveq #0,d2 no_0: move.w #100,d6 muls asr_,d6 add.w #1000,d6 divs d6,d2 mulu #160,d2 ;= zeile move.l d1,d3 add.l d2,d3 ;zeile and.l #$fffff,d3 add.l #4,a0 ;offset copperlist to adresse bplpoin move.w #3,d7 ;little_loop l_loop: swap d3 move.w d3,2(a0) swap d3 move.w d3,6(a0) add.l #40,d3 add.l #8,a0 dbra d7,l_loop add.w #6,d0 sub.l a3,a3 move.w d0,a3 add.l #sintab,a3 move.l #sintab_end,a4 cmp.l a3,a4 bge weiter_d0 moveq #0,d0 weiter_d0: add.l #160,d1 dbra d4,write_loop rts ;------copy_copper--------------------- clear_copper: move.l #copperram,a0 clr_loop: clr.l (a0)+ cmp.l #$7fff0,a0 ble clr_loop rts copy_copper: move.l #copperram,a0 move.l #newcopper,a1 move.l #copper_end,a2 copper_schleife: move.l (a1)+,(a0)+ cmp.l a1,a2 bge copper_schleife rts ;************************************************** ;* asr_ ;************************************************** asr_init: sub.w #1,asr_time tst.w asr_time beq asr_weiter rts asr_weiter: move.w asr_time_save,asr_time move.l #asr_data,a0 add.l asr_pointer,a0 move.w (a0),asr_ add.l #2,asr_pointer move.l #asr_dataend,d1 move.l #asr_data,d0 add.l asr_pointer,d0 cmp.l d0,d1 ble gleich rts gleich: clr.l asr_pointer rts ;************************************************** ;* init copperliste ;************************************************** init_copperlist: move.w #80,d0 ;schleifenzaehler move.l bitplanes_ram,a0 move.w #$00e0,d1 ;first bitplane move.l #pic,d3 ;picadd move.w #$5307,d2 ;wait_copper init_copper_list: move.w d1,d4 ;save bitplaneadressedesti move.w d2,(a0)+ ;write waitline move.w #$fffe,(a0)+ ;write waitmask move.w d4,(a0)+ ;first bitplane hi add swap d3 move.w d3,(a0)+ ;and write high add.w #2,d4 ;next adresse for bitplane move.w d4,(a0)+ ;and write swap d3 move.w d3,(a0)+ ;write low add.l #40,d3 ;next bitplane add.w #2,d4 move.w d4,(a0)+ ;first bitplane hi add swap d3 move.w d3,(a0)+ ;and write high add.w #2,d4 ;next adresse for bitplane move.w d4,(a0)+ ;and write swap d3 move.w d3,(a0)+ ;write low add.l #40,d3 ;next bitplane add.w #2,d4 move.w d4,(a0)+ ;first bitplane hi add swap d3 move.w d3,(a0)+ ;and write high add.w #2,d4 ;next adresse for bitplane move.w d4,(a0)+ ;and write swap d3 mov&/ h F V!BGW/>1!>\ },AHqEAa <1$pn5\ө- uW@"ou ].r'R>8R_} :` T3ur $`@G 5?Wqü0HH!W. pPY [z_ x@H¿+W?-V~d " Hŋ@=B}? cϢ0 FX _!b`WB?I/}|@}CH:\]P̽ @T? TaGTGhB8w&/p.)B<<@m?*<"uU`PVxK9rGXDgH(H_<_H  !:T{*"(|4p?pDFB U?*\= SXt#?`Ua 5<}"4ƾFEyC@؉ЇhW@}@C-fW ?yW,[> Y: 8(PjPU t70!h\_ .~CFH .'GBAN%P>]# #E 0?/?@ XB(uA\P<}+2\ xF =E?DH~& F nU:zC PR;O\I` oq SQ8 !AD T,`?ЎO.Ad`L(X ɅZ\I>]&U@AX8 @ `ڀeQ B5`/az @T:Ճ~6=PyP -XpP#*Lh v (X,(AV#2`f@ A 5= 58$*T. \ h:p @Bskp(8+ p X@;تs p;~C D0epD ?J?0g; pP0;l&+upt˸(?\/PP;aQ8*K p@ aD@!E(s D Ȉx. >E8P0` >4"06z~4d7l c z7P= m?X,`1`d. z\(uA \ kb60=kc_}`e jPO L4X:x[: u5i" zLb x(d5YiA (Eih !lx: j` H1T B@EWlr0 HP̔=%0dwL.D_<*4ajS@~*\ (AAB|R:ӸӠd i q;@~B-P27JP?x8A pW@ŀH x@NޠqHWHÿ0J P=YP- 1*̂$@.B@l zt@(Fd@OTB_,߂ ^ŢxP@PWB#`Q0z 9(`P @-21i8?@PW`{5 p5 x /⨺ # (dG>L@…_OTd[# H>T iQA`0/Ƞp:o 1@v RP= aE@DB͔ '$_%#PP?jRe+RP7`a0+ B파(<bU7[8B"Dh( _D? xh‚(VN`o@( ҁ~@(0=V]Y#p .T q @܉"$$<7 pR -Ю .@oz.(zKʟ(®h {AB  qsT}A䨐g@Ëy 2Q]@@. rVUP;`m@Za"i7 aV6P;`m *|2&~ 5 +X2C'2G E-@Nd (7(*AAP0:x\,"D(($m8A@BA@€APom -~W$6 01,P0; jP= mh€B)x@(P:@? P5 p@-P8J upD8 /%c=OP @P= R G }^ ad @$ @/@ P@X! WHZAn5pP= Beb@ r``%XG%D[xNw$Gt,6&5<]\?@23ӑ"!"0 0b [9pKKPB|?l.M w d$gU4,]>!cSCPBA]_LNDK ﶦ`e,!nr`%eU-]Ss+WX>yx@e``fbV0vG=~Qʨqpz11#3YʃJYAB@Muvtw-!6*:.5/fZr$h`o+ Jn!qHYyy8Yh>O+#㓊{n>pi虙+H"th_b)`ʩq +*ȉp1`!}>\l,Lu5WD%5t/m<̞RQM[@G]ADEdcsz;=t}qnfb||bbrjzv~qesghm{>K[O $Dd4,M\<=tE9h _N7{+rr KgW(RZV.^.6F*b #K;k3}u9ap/ۃx6tM/nT!> e5$o|{{a ɈnC~M!<;+4& ##~"s\tp/'2;FW )yx鰠حMOGCAHE y|{7m}D"fQ545TG#;>x' !6*,(/Se^bHB=dNs|4"5:;Q>wVFGǧR !))!*(%NpicDSÇ0Zs  r1PBV׷RS\^߽ acac!B~?_n.NWb~mwlFI]G_PS^PY MIOJD$ ͎V?/#= ;W`(̜<||1홾ʖѝװpy#@>,@AA~~=^ooH U+# %%,>u)`A 1HɈ0 ?w:1&1 [{3uy%5 _`HĔt ,,̌$舰 dJT\\T@C / MKMFOqb`c RX_W^+lb)9%U5uR*J2Ғ‚<l,L0ccc0K+ɀ?憚ʚƶ($L|J:F6TsAP';+#=8y̪ 3>\\\J{xzy<:^lkT2+JJ rbb;7o?a)9d5 ]mMuE9 1APtTdD8XX@$f-Gq2?172|vwsN\?5u#3{HXt,"bH)!.&*"$$ /V&z:*JrT4l]$AoND\>?_.Nvw47WI?%&o[ؾ{A#c~Dj+ˇde?qpIXD$AA |;>;8|rr|ttpz?`wZ`;Zj++[Wv>`Qp J)(TTeExXh@o&%'&gg‚8[YXG"Q,.=} yٙɉcӲ{ƖwΞ~Hh!ߧI*6574566!""?a" #%!c*; ><K}uUx=`^=@w_ۄTVV7N.oݼC#`гq *i#߉t(*J @"BB#~T%h1"?mN O,nC7ח'GsScC(@Ʀdf&%$ew ϭ߾Q1q J+YZYYAZT@KxdL|@0.7ƺ*lRY_Z9?:~uswx7zG+ WAS]SWX32p KJ'-[WH`@H3!(@˕D$T9I/:'g6O/ooώv7W[{;ۛ *6`1J 2У$?BFICHG z3J[Y>?|?> Ӄw U%!3T98J^Y]KOBQ=Muyqa~. t#HIQ3@1$'kP?[:vN^>!,@Un= EumcGׯHX$tl|J&V527?J lZRlx`7wdU5u N,o^=}~<ߟcE#}- .X@"& H++j@'+ %8<JA,"th?őΆʲᩥË0(8x8hيrˋsr KGf/aoIH!'"ljf"'- -#+,;\dp/-UE232J minj|yv x Jzz@VPQfdc 3+(VFjb,p1??CBDF~;]jo,+,'[_X,88 ET4u M ߋdŅx8U~Qc^WgeV4v N-#   {uqzbx`gvOn0)yAk(?OOWGKDA!( caffaacgdH_cu9YY嵭{gt\"RR":@޽R3 I(C@Uf%<<\&1 ^j-(mW&$4V¶vuwtLZVQEU]CMj%€W>,1;ɞƊҚw@`ЊP100Ӓbenrd5UU5 -]c3[` D AQ Xt))RRTPWbtGAN;+ rrZzFgWv!IOBF@A+}qzt`{|ne{h  b&!$@4"%DEy9+N@Iw;^TPPXZUP?>xCB( +O*"LDH@ũΖ⢢⒊ӛ8lB2V^aQqIi&x NrDe%%DBKpz"@ $9@pujd9kL%\ \jHp! L*hmع'<T%yٙIPѻ]U Рꢖ|ÐQ;hjj;X8*hi)pУW   lqll^/`/?`.yq?rwYwssa|ihiej.g/,J 7Lƞ"tʺ\|$xԬ,HHTdH0py:xy}|jnoii/iͮ()iXnY\Z?{z>=8yzGEUSSS԰4036QPPUa7ֻ66>0'(?>.nndž''Fjj:sۚzz[F7FiܠG .MMIz ZnV:2"tR6A:8dARLf b&9IV6n1aZ6&V* l,X4T:y=}{;$puQp/pk'3kK uyE5yYE]#}sgǏϟH(xx@ĄȰ$$HbVfr^>F: 22 |\ dH@/[PP?0DDaP!AFB}}{Zؾ7inVMQ|~^BMM~pRhHwf 1=,.7$26 'ĸH%L;1 srrhCSұ2H#1#] ?\/ OA`? >#C'd%Dd`@>|Ay;@|yB[!:#g*:))uorf}cpe (*. 2&*/'8373+yQ qhx1pPon{&k_J MOBD,!ď B}zpy]Sٜ^0_5:ٰ򾼇|J,GC"aύiϥe $'('KBDIEX$ _'ȀʖꎪܦǭhX \$ZmNDv)&>y*<f8Dj"0{z(ώL57w/m~#H_VFZIANK m u qodq|xafd t|r rgd|woq~ syj}NMA ?CFdGwn7F<>abᱰ!arp*32R ӓ3P ¿}<vn76 6U-WW Llw7. W^xLxltpRp/44?wwg##+]/w>{x$#b b`eQ!dE'$CAE' ;!pA`a !!ppsyشv>#F4pp)x QI1_A?n.Ʈ?f6w/ׯl y @a lRZtBbfdTl 88pg$7 {. &"&!1>) ,<<:80:wVֶ6֦n@!AQQpp0QHȐAPA~_ϮRAA؁`y@Y?< !S*X__1  O`rpȧo 嬵Tx j r J @AA0Dr4?z>7,_`X<,8kA{8 f # P@y8?\_8 !Fv @.B ^]5N/כ.|oHp `X4)¸ẃX\`4X#S -HPϿX,H/؀X`!x[TeR}@_{DGBD|..@`J B #k@ra> - "QG:P? w0|&|쒒?C(cC B^PxtQ xrCzb@,T"UC - n;ۿ ۛ ' k(hGVVB0A?4v @_r/2~ zv|s]VF@{tq@Nuwp@ F8? v&:8* "?~aʆ  OP`= Рx w~77 ;''kN9wo|$☪`@>]B#a#|zc}fT̬'c 񗦠&Т??n.吢x^LJuE~w ㉂Wy]|ȵ'(?|,OL^CSГ0!\|?#c@b yHEEД 72R2q\ Tt { @5xx=x>(/ r|F!޾H/߄d s8!@|&x@Ћx S*?:0:UV0V0 t~s|o@7pǷzjC=?xA@z|