DOSk+pCN @ hpNudos.librarya5 '%arrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***5 8 fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;M5ήoveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b 5g"#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #5{}3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$5z10000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_color5*Qs: dc.w $01a0,$0000 dc.w $01a2,$0fff dc.w $01a4,$0bbb dc.w $01a6,$0888 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$0a75 ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0200 dc.w $2111,$fffe,$0180,$0300 dc.w $2211,$fffe,$0180,$0400 dc.w $2311,$fffe,$0180,$0500 dc.w $2411,$fffe,$0180,$0610 dc.w $2511,$fffe,$0180,$0720 dc.w $2611,$fffe,$0180,$0831 dc.w $2711,$fffe,$0180,$0942 dc.w $2811,$fffe,$0180,$0a53 dc.w $2911,$fffe,5a$0180,$0b64 dc.w $2a11,$fffe,$0180,$0c75 dc.w $2b11,$fffe,$0180,$0d86 dc.w $2c11,$fffe,$0180,$0e97 dc.w $2d11,$fffe,$0180,$0fa8 dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$025400 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0fa8 dc.w $5111,$fffe,$0180,$0e97 dc.w $5211,$fffe,$0180,$0d86 dc.w $5311,$fffe,$0180,$0c75 dc.w $5411,$fffe,$0180,$0b64 dc.w $5511,$fffe,$0180,$0a53,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w 5B$5611,$fffe,$0180,$0942;1 dc.w $5711,$fffe,$0180,$0831 dc.w $5811,$fffe,$0180,$0720 dc.w $5911,$fffe,$0180,$0610 dc.w $5a11,$fffe,$0180,$0500;5 dc.w $5b11,$fffe,$0180,$0400 dc.w $5c11,$fffe,$0180,$0300 dc.w $5d11,$fffe,$0180,$0200 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0200 dc.w $6111,$fffe,$0180,$0300 dc.w $6211,$fffe,$0180,$0400 dc.w $6311,$fffe,$0180,$0500 dc.w $6411,$fffe,$0180,$0610 dc.w $6511,$fffe,$0180,$0720 5؂dc.w $6611,$fffe,$0180,$0831 dc.w $6711,$fffe,$0180,$0610 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0610 dc.w $e311,$fffe,$0180,$0831 dc.w $e411,$fffe,$0180,$0720 dc.w $e511,$fffe,$0180,$0610 dc.w $e611,$fffe,$0180,$0500 dc.w $e711,$fffe,$0180,$0400 dc.w $e811,$fffe,$0180,$0300 dc.w $e911,$fffe,$0180,$0200 ;;;;;;;;;;;;;;;; dc.w $e5},d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output r5YUoutine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l 5 L#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite 5 x`pointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 5  ; *** Menutext *** text1: dc.b " F1 Euro Chart by CRUSADERS " dc.b " F2 Comp++'zMile Menu by ADDONIC " dc.b " F3 New Demo by PARADOX " dc.b " F4 Star Demo by ARROW " dc.b " F5 Vector Demo by EUPHORIA " dc.b " F6 ",'' dc.b " " dc.b " Released: +,(Fl 05-11-90 " dc.b " " dc.b " Compile done by Axel and Chester " even tuttiname: dc.b '28' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.b 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 38+-LL/40,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 e dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 ; *** Little scroller *** gtext: dc.b 'SEE YOU ALL AT THE AMIEXPO IN COLOGNE / GERMANY !!' dc.b ' ' dc.b ' ' endG: ; *** Scroll text for the big scroller *** ; *** ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890?!. 5*4----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 ad5+d.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memory5ŵ *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256 -<` 2H @ B  T̐X2@  ,  ,$@ 0   $0@ "@h $ @  @H @d(5Nt"T%B̭32UdʠZ,\[ R(UdVT2jeP dg&V $,~ol< # ~LW .Ya3xWF1<< @0` 3p @0` 0`@ P`@`8@( 0 p34l~l?h ?7&x @SxN@ lH 46hxp "kA``B@ i, /͜W 0& `[ 8 '04"p4 00p p0v 2`0:Ar@0`0 'O8`/H  g# L&&<`@   6306  47H0   p 0"@ 0X $ 4@@ h&Hտ\&'  2084 nƴ[ ȉ43!W$xFBΕcx$燐1x > ?@o O?w@_=d 0@0p  `0` 08p ```  `@P``p 1`!;nCv  `x@6`l(0&`0 `0 #``0-0'`00 h0`0` 0@h2 @2 `6 X@C6`6 ,` 6 6 0  2``6X60  `6~6ǀ@@߁C& `6F0?6` /?8?n 0 p\0 8 07` p 0n0&$ տ @6@7  2`6n  `0Gw 3_Ɨ=a=7}  g@ gB gD`````|`t`l`d`\ `T `LHA /g 9go4`vprtv09 y'pg`>2IHB49'p ;r7B8DD CnD CmDy't3'pB09'tJ@j y't`@ @e y't`j09 3'p9 wf'v dgB fg`xCE ogjI`K ,  -   B9`>CE:#g,  IK: ,  - B9NqCJ9'wg QgQ` QfgQ`'w`B9'w,z ,C , <"<N,z C prt&<(<*<Nt9f2C z ppNR #f #" 9g`9 9Pf B9B9 9ga`a9 9 <8_\ 9 9 9 9 9 !9 )9 19 99 A9 I9 Q9 Y9 a9 i9 qLNu "$&(*,.02468:<> ,8   u !"#$% &1' B( S) d* u+ ,-.N2(Pv T 2 OPQR S = Mq uT dU S V BW1X YZ[\]^`abcde f1g ow 1  1 B 1 B S d u  S d,k, S >&?"  u d S B1  B ')1* +,-./0a|#Nqa.:ԑ9 O 9 Og Nu3 N#(#(3 3333aB9NuAQ^C|.p zgj ygn xgr wgv vgz sg~gTIQB`RII9(: gQ#Nu`"`D``` ?k%`x#)3 33&303aNu9f#P#T3@3B3d3f3D3F3XNu,-.%/0123485678X9:;<=>?@ABCD8EFhGH8IJ%KLMN(OPQRSTSUo@vov88graphics.library @`ABCDEFGHIJ K L M N OPQRSTUVWXYZ1234567 8!9"0#?$!%.& 'z'x'y'w'v's'D Atopaz.font̨V*UKVTS"VeS+-TW2yQuJUV*5L3 Lʦwک#*eS<` @@ (P @` ``p p@  `@  Pm5lWLFFi 2j` ,nq@F #T1@ @  @)@53+$@&E$  fU @ 3 34h0  #@  XHd  @0( "PFi0 r0`` 2 @ "@   ` 9{@(QlH  "@4 V  &w+C_f ;beam 2 under 256 dc.w $0011,$fffe,$0180,$0b64 dc.w $0111,$fffe,$0180,$0c75 dc.w $0211,$fffe,$0180,$0d86 dc.w $0311,$fffe,$0180,$0e97 dc.w $0411,$fffe,$0180,$0fa8 dc.w $0511,$fffe,$0180,$0a53 dc.w $0611,$fffe,$0180,$0b64 ; /////////*** The scroll copper murks *** fontpos:dc.w $0711,$fffe dc.w $0182,$0fa8 dc.w $0100,$1200 dc.w $008e,$2c6b dc.w $0090,$2cff dc.w $0092,$0018 dc.w $0094,$00d8 fontbpl: dc.w $00e0,$0000 dc.w $00e2,$0000 bplcon1:dc.w $0102+D5b,$00ff ;move and move... ; /////////*** end of scroll routine copper murks *** dc.w $1411,$fffe,$0180,$0a53,$0100,$0200 dc.w $1511,$fffe,$0180,$0fa8 dc.w $1611,$fffe,$0180,$0e97 dc.w $1711,$fffe,$0180,$0d86 dc.w $1811,$fffe,$0180,$0c75 dc.w $1911,$fffe,$0180,$0b64 dc.w $1a11,$fffe,$0180,$0a53 dc.w $1b11,$fffe,$0180,$0942 dc.w $1c11,$fffe,$0180,$0831 dc.w $1d11,$fffe,$0180,$0720,$0182,$0942 dc.w $1e11,$fffe,$0180,$0610 dc.w $1f11,$fffe,$0180,$0610 +EG t dc.w $2011,$fffe,$0180,$0610 ; credits dc.w $0100,$1200 dc.w $0102,$0000 ;end of wobbling credbpl:dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $2711,$fffe,$0100,$0200 dc.w $2911,$fffe,$0180,$0831 dc.w $2a11,$fffe,$0180,$0720 dc.w $2b11,$fffe,$0180,$0610 dc.w $2c11,$fffe,$0180,$0500 dc.w $2d11,$fffe,$0180,$0400 dc.w $2e11,$fffe,$0180,$0300 dc.w $2f11,$fffe,$0180,$0200 dc.w $3011,$fffe,$0180,$0000 coppend:dc.w $ffff,$fffe ; Scroll subroutines + F sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld mov+!G.ޙWe.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) +"Hw*O ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s deco+#Innt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blitt+$Jj!er move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.w+%Kw= $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853+&L8ތ00 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b +'7Š'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Var+N8s fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;M+Oή[oveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b +Pg"#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #+Q{F3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$+Rz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_color+S*s: dc.w $01a0,$0000 dc.w $01a2,$0fff dc.w $01a4,$0bbb dc.w $01a6,$0888 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$0a75 ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0200 dc.w $2111,$fffe,$0180,$0300 dc.w $2211,$fffe,$0180,$0400 dc.w $2311,$fffe,$0180,$0500 dc.w $2411,$fffe,$0180,$0610 dc.w $2511,$fffe,$0180,$0720 dc.w $2611,$fffe,$0180,$0831 dc.w $2711,$fffe,$0180,$0942 dc.w $2811,$fffe,$0180,$0a53 dc.w $2911,$fffe,+Ta$0180,$0b64 dc.w $2a11,$fffe,$0180,$0c75 dc.w $2b11,$fffe,$0180,$0d86 dc.w $2c11,$fffe,$0180,$0e97 dc.w $2d11,$fffe,$0180,$0fa8 dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02+U400 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0fa8 dc.w $5111,$fffe,$0180,$0e97 dc.w $5211,$fffe,$0180,$0d86 dc.w $5311,$fffe,$0180,$0c75 dc.w $5411,$fffe,$0180,$0b64 dc.w $5511,$fffe,$0180,$0a53,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w +VBJ$5611,$fffe,$0180,$0942;1 dc.w $5711,$fffe,$0180,$0831 dc.w $5811,$fffe,$0180,$0720 dc.w $5911,$fffe,$0180,$0610 dc.w $5a11,$fffe,$0180,$0500;5 dc.w $5b11,$fffe,$0180,$0400 dc.w $5c11,$fffe,$0180,$0300 dc.w $5d11,$fffe,$0180,$0200 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0200 dc.w $6111,$fffe,$0180,$0300 dc.w $6211,$fffe,$0180,$0400 dc.w $6311,$fffe,$0180,$0500 dc.w $6411,$fffe,$0180,$0610 dc.w $6511,$fffe,$0180,$0720 +W؂!dc.w $6611,$fffe,$0180,$0831 dc.w $6711,$fffe,$0180,$0610 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0610 dc.w $e311,$fffe,$0180,$0831 dc.w $e411,$fffe,$0180,$0720 dc.w $e511,$fffe,$0180,$0610 dc.w $e611,$fffe,$0180,$0500 dc.w $e711,$fffe,$0180,$0400 dc.w $e811,$fffe,$0180,$0300 dc.w $e911,$fffe,$0180,$0200 ;;;;;;;;;;;;;;;; dc.w $e+BVsb11,$fffe,$0180,$0200 dc.w $ec11,$fffe,$0180,$0300 dc.w $ed11,$fffe,$0180,$0400 dc.w $ee11,$fffe,$0180,$0500 dc.w $ef11,$fffe,$0180,$0610 dc.w $f011,$fffe,$0180,$0720 dc.w $f111,$fffe,$0180,$0831 dc.w $f211,$fffe,$0180,$0610 ;;;;;;;;;;;;;;;;; little scroll color dc.w $f311,$fffe,$0182,$0942 dc.w $fc11,$fffe,$0180,$0720 dc.w $fd11,$fffe,$0180,$0831 dc.w $fe11,$fffe,$0180,$0942 dc.w $ff11,$fffe,$0180,$0a53 ; *** under 256 *** dc.w $ffdf,$fffe+YYUoutine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l +Z L#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite + [x`gpointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 + \ ; *** Menutext *** text1: dc.b " F1 EUROCHARTS BY CRUSADERS " dc.b " F2 LIONS VECTOR DEMO BY ENERGY " dc.b " F3 NEW DEMO BY RARE " dc.bv1m " F4 KNICK-KNACK BY E.O.C. " dc.b " F5 LIVING SCROLL BY E.O.C. " dc.b " F6 TUTTI-FRUTTI LIST BY BRAINSTORM ",'' dc.b " " dc.b " " dc.b " Compile was done by Orlando and Chester " dc.b " rglKUtԉ#BJfrNx&)t:")pD(jN$)v0(RgH&)$)")pDI@N#A$)v0(Jg$)pDINJfrN#j`t")pDI NNNq$")p IN#A JfrN") #p$)v!(") B") t!") B"! $rNNq$")pIN#A JfrN") #p$)v(g") p I N%|lrN")$) ! (") t!") B"! $rNNq*#pX#pX#pX#pXJfr`J g")"0`"<#A B$Bl`")$) R#B(&)r i`$()#D,JnJfr` ")"0#A4Jf~J fXr{pHIN#A4JfrN ,l "),`"<#A8$)4B(")4t!Jf")!4 `")!4Rh#i4J g")"0`"<#A t#BR#A("),(o ")(`"),#A0J g.$)ԩ&)֩$"#CD&)0$)Dp@(jpN` ")ҩ$$)ԩ&)0p@(jpN")0ө$өөJ f$)&0(l &)S!(")$n^"!"!"!J f")$0l!")$NNq(#pH #pH* ,{y/")#pJg ")fJf%|lr` ""0N#jX`")#pJg")$fJg&")tg f%|lrNrpILN#A JfrNp<(j8N#A0G" p@(jN#A4#i,(&*Xt") pI0N%AXNRAMJfr`n"<XҊ#A`")#p")Jg $f")Jf%|lr`"$)!("p(jxNrNNq#BDr#AHDntԉԁґ!(rҩH`"NNqT#vgSh")"0 p@(jHN")v2p Released : 30-Aug-(who cares?) " even tuttiname: dc.b '16' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.b 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 BY RARE " dc.bot9?@@?P@?P@?P@?P@?P@H @?H @?H @?H @d s̀2{2. @?0 ; &, l&wk`+=` N5wl`06ݬX31mѬukV.` ۏnb \z @X`'A_ L@0 D 4/ @;h. v Y 0 D҈fyX`Q%1\ @=h`pe&'q] _.*qP LxI]b@y0 TSE@U0 Te@2:`*Ttfw m/X($L%JS ^J!(BP^=̼hx7vp=]"tOki(ň( 0"(SZY / l r6vgY $8/U 9a>`Ā&K{;$ 8` u/vH&d0uQYAcjgkNǰ񰽃9i'dݲƎrti8#BX5$r8{#!҈Ⱦ.dXBT: (<u>! ZXyI*+`Y0| y }!p²@N3*B.4Tz`$Hs)q61(By\3BpHXS;sB#@Fd<%0)ƃc]U" *l`9UuK%5*A ~H-day The new day dawning. It's only just begun. We march into the future Towards the rising sun. Beyond the wide, wide horizon. A journey filled with wonder Is waiting just for fun...1;31;40m *** B R A I N S T O R M ***0;31;40m 0CY.v,s^ No Limits, Spreadpoint...' dc.b ' Sorry, no SPECIAL greetings from other members... ' dc.b 'and again I have to write : END OF TEXT ' dc.b ' ' endG: ; *** Scroll text for the big scroller *** ; *** ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890?!. ; x=normal / z=very slow / y=slow / v=very fast / s=stop / w=fast text: dc.b ' ' DC.B 'SHOW ME... DONT TELL ME! v-t{ ' DC.B 'HERE IS TUTTI FRUTTI COMPILE NR.16 BROUGHT TO YOU BY ' DC.B 'BRAINSTORM. ' dc.b 'WAIT A WHILE TO READ THE PERSONAL GREETINGS. ' DC.B 'FIRST OF ALL I HAVE TO THANK ALL THOSE WHO WROTE ME ' DC.B 'AND WITH ME I MEAN ORLANDO... BECAUSE THEY SAW MY NO MORE MR NICE GUY ' DC.B 'DEMO. SORRY I CANT ANSWER ALL LETTERS BECAUSE IT TAKES ' DC.B 'JUST TOO MUCH TIME. BUT ILL TRY TO ANSWER MOST OF THEM... ' DC.B 'THE LAME ONES WONT BE ANSWERED. FOR EXAMPLE IF YOU SEv.c"NT ME ' DC.B 'A DISK WITH DEMOS THAT ARE OLDER THAN 3 MONTHS I SEE N O ' DC.B 'REASON WHY I SHOULD ANSWER THIS CRAP... ' DC.B 'BUT HERE SOME ADVERTISEMENT FOR ZINE... AS YOU CERTAINLY ' DC.B 'HAVE READ IN ISSUE 6 YOU CAN NOW PUBLISH YOUR BBS NUMBERS FOR ' DC.B 'FREE. JUST SEND ME THE BBS NUMBERS WITH THE NAME OF THE BBS ' DC.B 'TO THE FOLLOWING ADDRESS ... y zORLANDO BUDELACCI ' DC.B 'BIRMANNSGASSE 34 4055 BASLE SWITZERLAND ' DC.B 'AND NOW...y v1(: See the new day The new day dawning. It's only just begun. We march into the future Towards the rising sun. Beyond the wide, wide horizon. A journey filled with wonder Is waiting just for fun... *** B R A I N S T O R M ***0;31;40m 0M  ALoaderpGx: Charging hard and no one's give in Living on your knees, conformity Or dying on your feet for honesty Inbred, our bodies work as ONE Bloody, but never cry submission Following our instinct not a trend Go against the masses till the end... 0;32;40m!!! YOU CANNOT STOP WHAT HAS ALREADY BEGUN !!! 0;33;40m *GX** B R A I N S T O R M ***0;31;40m 0N"Np9E f1`t f2`h f3`\ f4`P f5`D f6`8 f7`, f8` f9` f$"<`"<apNu"<tvN"Nup3QpNu110dos.library* 0;31;40m Code by1;33;40m Orlando0;31;40m Design by 1;33;40mChester 0;31;40m 0;31;40mDealing out the agony within tz%X&C|\F hbign`G;8:2HoEp D P /ϖnv6tx?;,D8_s3qJ@VG, k` , CC`^#e.tK; w'me>i-0/b8<@ {Q_ ,RFTESATW`tb~0i03&tu(@`` x p=pYx, o_w2KE?/_bQ=81 yN` a0AfȾ \ i`o! 3K'O??6@Z#0?8D*` _} >`nu{;@Fz+aY+ th(xywIO8è[03/GYf5P#B$Y Ue#' ujZ5 bi A`X$ ~6, c{ 6z<ᱵ П"{QaDŽ7:c7 u!O9 D$]Ȓ@ ׇ͠a+AP6L".@%<9:v˅"GvPw&T 2 ̉PC@n-w؝y<6DkC448F룀IX BA:8QX`uXvWTtA^p cYy.c40) &ds* (- U?8" 78{b=1`0-xgTѨzw'Kv3:\_V^Bv$8 `D@heHv|( ^! - ^x(t&]o($RHBxX3"X= 2x)4``#*h ZJ ت  WB|1q>Jb -}ez0mc`VFQ4t0;@ 3hh*ҘJp8s#raBLxf$YGA0pbXT ZR$(_ *C]=F0(P:"cD,v6mEj? h i@0DRG||LP^)&wګ #ڙ SA\`=.\Y1 *"'C  Eod`KLp 0pT,AAAAAACÜÒÚ Q@PHXDGWO_@APATCLABARAJCZAVANA^_YAx~ ҴHCKGO_)3CHg8U#`a6 l)*@)8!`DB?kј9h cC'h#8Qt|ax< 28x3x,&pv1YP 3  XaXw@/A*r%;.HA ! žE3-e09:@  HaJ[.B1@۹`:K#'C;MEҲ ƎCQ"`Va\lzL !*!T+A'(S(bO,A npe,ݰyúx㰅˜` Ɍjx Bica X{Xq 5J11hlC| /K;gCS^ S:a{[[C;;W[#S'`?W;"ӿ(lRbNeSKX[3?YâlZ~ f-W+D䚮,҆2% igoDEl+xLBֺ3O `k(ܼj&Θ:5͝?}XqpD(tbb\ kڇf7dI<K~@9T@0u Ki9yA!R'¤L5j #ZwC{7 3L?A'OZ8AfC@ar@.CXCxdS,.w쒏$*@BZڹ9F':[ؙ(X^g3Lە8 ]a46G$C 5dUO\`I0-PA{ZS+t`(Y|1h;3 Ȍp ^#1S b*fhj|o?bE(>rbUzxGh~8<1=` 468D`*y>-( +G|+ 1>(䞡YId \5+# /¡AD̨;28u OS`Ā&K{;$ 8` u/vH&d0uQYAcjgkNǰ񰽃9i'dݲƎrti8#BX5$r8{#!҈Ⱦ.dXBT: (<u>! ZXyI*+`Y0| y }!p²@N3*B.4Tz`$Hs)q61(By\3BpHXS;sB#@Fd<%0)ƃc]U" *l`9UuK%5*A ~nDut᫣X" =-.F.vrHG'E0(.ďlH@Ίع?uM2/nc$H̅DH,-,fRrqrvu!= FM̗蝉=B.Lh'4;~++I5Ж"rolCiddƃ?V^ӠWSuS W_tÐ)CLL ,`qw0U0p1pp61p ``xP gpAwp0ʐ 8J@?@?@?@?@iiK}crI#ڎn3&!t)](KrJWf~x; &k$plHfPVu@N.e|B!߰Vc ESJ àŮX@yv-Y@<\9B3œkL/PZP>@9~؝΁cP 6 I$+dF>J9Gl6 `$x b@0!B$CчՇqXN ^Ɍ tSHhPd ˟~jk)<DjWr܅!0M$$NzȔ'p\WHT 3ZrEp*_AcYbQK0DotaDP3ňI2"x~@FO 45`-d DS ~OP_26r=Do0 lBnnBן>L6S?{6t<3xo}yр-N ! ۤ=@̡)K>$79k *&^D@*>x!rVBCjP:@IXރD`t$]1ԕ@9HKXWl M028`J>!N*$=EDlBLGIC^K 9Z@!.abS@zZf( HAa`y(T@V %Sr6I-(30(BpkM{2C_A xz(9y%rDvO<=T'Rɠ G[gG#4nG1q![hA)UԠDQA=lKoIDxGs{|~+xFkCCuwI|E$;<·I멍4*M0_ s~20!+ypGB{xt89mAgAp5QJ7X$ȏ}c/4FCvlg?& )df)&HLy%R30J`iJ4Lu02071?8}@=φp"(`@&G'zn _O^e@O2̀D+b  Jr7{ֈ+ $$AA2I06<#?ߠ v9*'J:ZJ H Ay<TH" 0H΀FD#.  HP~8bҁq؀jź<AA7xPy4aс鱨AA#Ā)AA0檅#mqŋEqp kPpUϔ5ȀM8P ;< :49`P 9\ ,R2*ᲀ%   ( Sd<HtPqB ӂ+J=" cJ84|T.h?AAA; \ btcc8I<L ༠]#;J;cs=Ԡ I9$jNduAAL@\d?=]J;[; Ƞ ߐߑV~@r |8PD`PH(za@]BPPqP p?ZE bPD&vtj9< %S4@(KR)<W8ђ@h cS6K=Z7 &A*Q(A y:?s۰&k@>tvp Jm 5s31*AL:Ldj#@m@Gq ZI5V$4m11?)M(s--i>&akj7!2 P 29)2:a:xFQ%ZP ?/žv΢&P| XLNokLgxQ9>hK `A 1+x6gkD@pxY[ŗcHdž4 h`?T ET~1?:`KClkip =2c@g@)L!HgcdU,1mH*1%H\mVGW }j`!}M ])c>TT4>*;H)S|0 2axh?|Rs'z`$}¢ ?:;Ђ2B0LgnlC/_x ƯQq650a p$3%3tu0'ws.JL@GobG^ rѶBS!@| eldr`2@$H/{B TT` \lA`g0@n -`eNj P6Pw 8@0%ӈP(@%P@:3>btkroxG 09>`KTtF0a??g`  Yiۉ  0 D;`0D!ITބ^YO* a3 J°dѦǿrt**517G`LPpH/{Izh h&i| 13צS:[o.r#y'+t]BbRIxJ[Y'>^aX*:'=ha 0%zs v;9AK'kLh.EhZڠe il0W[#$f҄7#ci@D qhJrv&.\!C &%Ӹk$ uFӱ ZJqD%ʛC9\}X&6i8.tP3O? >{KpXF@XP1q552'Ave.9v8RxZ t`&1Oؚ1c}^屠=DB!FyO@ ƮP`#xBiZNh+& BǪ8/L .6-.,a0/`C<kh?^[*Ͱ'08GA`bpD1+^ #Ӄ`CNLn[Ddyώv'l(i@CRӪ;A"!PDB">;T&It$)"](&&X(  MkP2:(jcatbP'4 `-8FXB9<^>~hU&ٰ ? ay#$b0G% FfgrBf; lv8#!hlff3 # } ǡ5B;-;քTPZh:L[@E>a0>S1ڗ<0 "dhѲ"'Tcx>! U}fp@ e`MP{LBz |^$D9 h5x3ޏo.iL<6HBXAf`)E@t &, 5Q<qwR˃ T<0S%x3rpe$ . 1!A̼i;#" 1 AI e|zWwP- H@b0Ɇ @@ @hj@T@P^N1HW A9)kvܚ3t`9h^4~8ƴ<ƚ0G[r_yf@,?[_!p`%'P $ˌ0m@9f &EH OKEӉN!#"\:9cڜX=T{!갼$JVEߏT'FДyf(C AKa@w 6Ga@v ut+4p[0^JȁJ@st"P-4` *F*6fAÓ`#>D)ˆ.\֟}E;epxHA.C"ɄMCvE yQjKX,#@91B1S9H !q` j,\}1'8 g`4/. "pu4!ax$b6X*!#a(~>a2 g O ; L#c4<$xj2E̐z8`[.r:´"5q (>"*l0)D !7%&@)z1<%T%u%zh,'du$ P T!)y~OP`%t_lO6 f R?HE.820PÍPTL>+b$nD\uwmrmB"I@n|a W1sD5# $kBhYj@p@//z0'4C8 $$8@D\ni΂nQi^$0)hFkWHmB J/%f&\A}G_ `mr&h2xj3  WS_N7ڜ]U X!!!!!!!!q L̀ԀKO{׀üiPS>RŁ偦ZA A Ԧ1:((̠ <Xg (R3g$#L  4   $|$P'!r(@rN9]F!n^K$|+%cm8h'> ZDW=> OJ頻F_~X =΃[2B4zA D* tC~ =gr\&G2SP L4<S6" D `@-lɂ( )3 @FQy=iA/z ~?᡼ Oa@Fd=`O؃y^$-j@o7G*< y\CLxkhG>Pa`BtqO L&&`igBPV`\֖սG;f`?\'00 A"ćʣQ{fP 11Ā p5&P 7ExdYH2|h!d]򀵊 ֝cd'R47-1:f@7 KuHXݣ&*I.D,:Vj\* c0P9*7upXDnF[&y!C \L0FGU˟nj-?1i h\Mbxn%2qcu!Y :&Q $P!S?3Uҥ~j |o" QfKFi-gNF#6'$ \Z4 5c7:Jv#"N4s`m lms=1@P0oIzB Fb Sӡr*fCP'0")e@F 9O9'B(Aol*&d ZBH78 4 e7H0cp?aB!&r$VSђJ} b@CX4%h k Q16W"B p) < ?ք$1P'a>L|w'oAU Z 1&~/yypd$%W{!ލgg#Ds0c,WƑ$Lr ܡ̕7 !AK  BBb Ā EH,k KHr$=n~!]024ȈFb2ΆRND^]@  T?5o". . pp13ѐ_1A6T #nR(!UԆ-HdT pk-@@#%Kj !Q9` ѝz7iw 2續:f7]4=@QӏC8aI$nFN jќ $[_l)3Q 330AZA@)f0 4W0Gh}hRoP9*1y*6wߒ@:(iƠHzlBARP̐@"h  y("PJ8+S м!A8!A<K,R8̎" (95d 7Bjflj`kjdIlGobHfichdcje/ALLfb{^;XJa `@?0` ha`'a.R!6"!uprj5nD`ELJ  Q[R#)D@*A.wnA'0Dl]OGR3Ff-hB(9Q%hࠈ|OQ3/"'ZxgPiZx2һ*3 C$M*/?X,%Bɂ P4<V TA3$+O@aa4M^ 8 p'$~Gl7/@NݫVū\h\ V S yR;GH)O?*p!fB (̏kz[@xh`ک@csc8#`țup7x.ڇZ)h@vQp0ZfIˋ_Z' `IY _>CD;)̠r\%!م-&zLxR(IS'ɀ hI >Z9-o'_5ߓ`@tg".klIzbCp@DDE 0$Ix"C`DR(\ A)A3[6@/(hB*' VB@H@E`9p-( 8)@QJ鱼9gq"? c,Df$(G(P(A xx0s@|)TM?DqN&+Nu<:3gɟB ¬gW~ bZb" 8\}/.`"E` ĝ4wGfm,ªSR?9ZFSaT9#t@\JU@I$ @af*@))"RRHEŀ@ F|֟I 9*#u+D鑳 $@ Ca7kKfP+@ZpF>a@@? u "ZF 0Gs,SNBDA"|h-y$PEҥT3#Fe$A^-&ihPkj&;kk#AP]L(('!%MH"HM /ߦJ  zO:H|d29N.fDjf5l#P؍ 45 5\4 ,g!Xge控p 40xgX>`$}h "r)`XhJ^<lxؔ"6ȓR$NTH  C%b#MrT vD{M\G&Q3M50/s@!2\$\ b$3Ki O T1i sN`R"y.#GChw&ЀOf&u0:a%X@ ָUॣiaS@Gl1l2D7*"GOPdIBș¼-p&\"3`wZLjm/ ̤a5 2B%NPX"[P!P ֖'zkuA_dd_JMGuZר#.l"_ PL ~ c΀xh(N2- Uƫd\.\E3>p,!s(8?㑨 *PIb"? $6G@;-qHZf Ɋ^>HoXS19X 2"% 8i+3~S$P`34K<tchxDx{jAnN#2#~RiOS0FPa:Xo~Y7kcp!P0P;vH\ #=>Ge\'SD: `TE._:\JJh{0@#"DS]4' /gpah ƶ~~sH I3+si~n" fbA_ 6%zRƒ@(B I*I:-/`=M(%Z"eۛd )0QS,(N<\$m3VMCL̙ G/F'nG"Mp)PLvbFꃁg p `Le("D`" A7 ,ǰ @7ͽ@b tDSʑPF*B*3(IZS'HN & __%'p@GwLqB49]5C;2PIm!HmKHxME)BFƵ"<;O 3*au>rs~r}{)Ů 9C:D ^I L׵qf|_<7@<#}0wg .W (I^3u0\p uGjt Va@4t趐XWmB 3(Ȑ#$7Cf X 6p db@Ά-  C" 84 - j2F8a aAjz* +kJ`Z px\ri.Fk2`7ZJi6&:Sf~ 4WNIԂv79YTj ,P1 4E`NTlr*Zf6NL&J Bh+*?: SXF Äy`4{nERt@?y5Q (BBHSC; #@L@CiAfHe&T B$i=FgDPx2 ƛ` s0@%UOח2*HlY׾E#x\Rl 1Y'!]dOP!PДܹ* xYhhɄ ]L2UDRp1 `$"LzBC J5H#@; ke$ "uAiY@>l/8H'3$JAg B1 MbH(,F &k'&t33~"8xp`xp&ťp^0 ~u66 l jC`Z͂s@t>9؀$t U`vi`% 6 S[aU%@CApƲ#hF@*h^rD"2B`  nh 4.\ .0-GV?߀H6 <l&3qX D*PAr]mF* T(5'QPKAA <G0dFQFc2 c&&6 X #MVBaĀ_T,R 7@BE؋1D\!fn̍G0NN@0lTW'f& >MHWKP2 !aD?0@깠w~$Wgf[ߐ9$T\C e(Qi<3^`"؍9L"@E CSdR1¼bBGX A6eIJ50A.T; f.W: 5aXj2fbPT%RC4 M5T:&b Ꮟ8D#sI.eY/MB >GK ֙x5*G%T@ MpPmAhIX4@9@L@$5 %sJE|]BANg6PPL$rPsA%#SPC/ඐ$]xR5s4NB5SB6U}^ ?¾!=fB&3B DL MeҐ !i1łC( iȉ/ Q.GQ5LMt1ӑXH |'LCCR!d.WX "33"RXʐ `cBrwϐ3 TB6l@a̐LNOݟX pD PT\ 1HP].OVX@2" %҈Dι?0#U SϣԄ }`ֽL)Q > `;է01!1GhXK'G`I<ҐHZh'D}0%@0BY2PT$;QJH`1`0eU0#-@ f7*L( uFSΰ0H =S6r`b+}Y@:ShdS45 AB6 d8(|?7cp :p^\oCgU'b b(ɉ)I`?bLbT,ɑWlZ FV~~)4HxYRA mf:ZTu@?,UH"Xp/ J/ Hk"4&#8`=9b< C; jC%8PEB$@E}&*HeR6 AaRCA!Nv41TsLjFe@fL@@!k*K蜁@x&b PYoFD3_ ٌn2D 8گ<,B`Z䡚QC9?-~=%? wϗ3 c@'yŤ6OfYp|8p!P~8p!_32"@X`s1ܚPde(چ(ԅ<6m8i hUy?i0I%Tshc 6 y'pn_} 2`-^X Sԩϰ d4']Y .:ij*$ԑ [?uA/'פ@n[IJ^1B IO;">$K0d BC@}M&LEa<ʬQ?A n0"z3Qf$pN v 8D Re><@)lxp2R68㞿^e X5g2Ŷ;(^e֊/("p7lޟQ\.Y^ !J >Rs :Ic"?u S3 / 3Ƈ㱾U# ~3 {!TܖEs0T'$Y``3x 7,T@  !LO Cetb T (A1d0D Vq@.JR%uP 4p@(gkPEdmdtjBuiDL K*q|GObg/Ğ?ϽYbpA!D@2йgҋ+46Z|\_jC#U0FkNgz}F}{ hXP*HxRMNTNb+8*M>MR# ~,ua[t'sk!+vx-Gtn @&` 'A  y @N #aH82B/JJ -;6UpɮjV@t0h`P FCS E bC9(O}=g3dOK5I?;:|wʷ.|zp߹$K9~x7W򕫽1D3H#uT1p`?sd#V7xAK" LX =S680ICQDO%%@ (-ƒJ $0{Z`!CDնѠ&  Q(vO g}j,K\(z`yL?qJM Пb b Lw?O.}#( ~]. 9?sk55"0f B@eG}C0s n*C".V$i)+LuψWQĦAD`1e% h(0a5>@?zΛ̵f^xeR֖ -|%0+JC( f$= GN_tR*`8Kdm?H.p#OLpLE0> Ê$@ŊꞖ/OI-062@K\RHC|01z.n?埁2:'O@D6XeXAf@/qok(Wg`yb"-=(p,˟ <31Ae (`(Fd#ARs~3fQGO@I  qf%/}R6sI"rA͂ NR* udPx?n5`y~C^t2qaaw*q.CQ!Z،fE0#b+So@3PKϭc"xO"l`KP9A?*.rh 2>>͂-pZU##i0k_eOT`P i`#mPw{0ה@_―YXcy=~Oǘbrŏ?/a: F ,0:M"d>$ǟtA0:"~XK Ǝph( v@C`Ls ʶ mɷBoah$aeOwqqxaY  9l 85"h0gR)LyEL" Z9KSi"&p'@16zy9 k$J4]!1r\2`p\A0J (^dY ."r #0Re@oǥ &y; ȧ;`E ]%_1}P7;CMT-P-1iCH-7aؒ!es2Pa<\ u'D::'!FB[P@N[[|nLx28G@a@vB /1`0#BrXc \\7SW4~uW$ l 1$a^u.\X!MxdOaZ7D2 s8ok$# >  `u&c`0{deB@ q،/|][H H5\R766ZX9 rw6ؤ.ex¢/ӗ|čv)P7u$3 2m c1Pqh4 @&U4@@(+C@+%L$}<k7 5 8LQk9,x>.ci/ m -Gx,TK+Ab &@QjHS_# "IHo/\lA!c<! 8_ބ0%J7}+@ZG j(X &dCgSA`.I@xS8 ik~aAB@ \fi׆Gn\jq R˯` z=8Z'-@GjHQoQ~NwH S(k r}˄@ocp-m (7TʈR˟M&xmcj 5CIAr5C=߽ѥ4كp ?%E">\,11G CԀO|x H-/?@B4trBe.2$ &0m"pgb:̘l @G@\W![`SZxVgO!%!qA 0 HrP䤁1t3"ޢDYĤ`>‚af `V%.*6`xx@oB!p[_}$JMv͠F9BU_Dz?K|_1pdX.I-f0KR@FêVW?T:h%?AqqxGG_-X1a 5T: }a0xD&8 b!(b&l1"%$,|qeK4qR0E5_j5 f'gbo/?AgV$1Қj,ˎ0xjjpAπ4@ J@tf#B%`9 MgE)q'!i$#AE*ٷHBH$_ͰhgP>Ϧ?jv 9#{N7'J pSFgC>$B(q$i3Q?d bAe(ISw\8T3P1{" UTf`"-93jۅ́/W38`6 #$UmV륌^Vf 0 ",KH^B$0l2I&sh)6 F]bJ0>N5)Xg6Wp k4K\i!mgV}8$亥\akqc+,]1Y3_? ;d @$蛑0ģ- "ctPs Uf U8(< `q$AI!'& fB EoJ9@>"0ʝNiA"R fQ,I , 21DH>x$4b-v#4@`db=ul5bKd60 | p 5S5c #9t1@ xGy%o QH -QEĉsj_AwK X[H 5آ6`̓iK9E B6#x 8x3~W#<Po)'\dV[ ITS+QLnhP4?R@&Q/~x~|Ea3(/f9-#3Lˀg<@ @d1AS;%kK <2jOCIA.TefQ䇄? Y$c̏I@XG]Мsh=2UfY"I3W,d]f] 7 r7 1 tRcN"I[ @ ?X$.e>K4iADk>!YJ;Y.5(40tSKuL(s#U5B3G{hUh `Dq @BpAsg2| 3dLD0"g+;"|i h 3ā >IɒxpD P`3tАpRTp6S6k~ypfD 5 A , kOP*JgY{0Pא5"΀Zw`X_F^AK\1!259B`e=ӘXW9Gb4Uẻ~uJ**c!.d:m&wu(ٍ{~& o2 }$8ǁ.tAOl[GV BpRZppJG0M@Aǹ!-[㕋32BSV#85$YF`FZ@ '&8]4BQ3 ƀflz}tzH {(:)iA0H,gi> Pc 0bQ8?pYZ{2D20$ /,Bsj< 3C)3=:R J s(QBu#6U5wM`VBen>1P-L2w0PpW$GqTё%68Hx o0-n(L0u B3ԃ^ `lbgf@!Bh6[wc9.﫞 g%/'wErtP yǪ 9TѼ b=PNi1McrRh{(. `iY0Lj3"A+`.%`iDo6jqo%)Bk@d/ w̋tQdD٦ŢEFC0_L0"%@lŪ3xL#2DN rp'#XN$B๮a6ۘ.%0(? Rf @V?vM2̄_(hќ ΒPۤ@%07D dۀ:r@@!j(lJ lClo! Hx_`(H`eghLmđ}/O,XHR#0dhY*x N+EɱFd[?}?[={YNP*'!sr^n!f@^y CBEQrhe AJP3U(=Ŝ`:YdJ .%\B6O'>'S鍼r芕@j9}|^>E [ pW%"@Pif||A(RzD T x`,o̠-#7z~p 05x)ghg|,b 5!#[H}&ӀnAKn&+# 0/ &p ?U-5;`8Bw u&ad* '3P taE@3(A39RT@ C yB+Vw4d ' 22TPNf_H(8Z6*cSRwFB8S`OI!;Է ∱z d$>`{4 آ   Q (8-&fXcA cKDvd0O<`"zXa[M @TS9j`"gPD@!I>\OZ`/(ʍ87FI1_ILR6[(q Mn~aWMC9uٚot7ބҤ`hYY7 HJSHIʂ=JCXKt\#Ej|Xxd^_?b:sCi˟|ϰ+֫Uy*q㯎MwI(P7,[k *R^&.`UiS)) @"\\dQhLI} bar(?B2."V hl8P&w>e." aK}QX|8["9ӟ7(D/m>LyiTZAfA5ǟR6X2s  PT`9+6CO؀3A@(+WO89膜23$ r S\.O/愙̊ȐNg14GC @`4szzCOfdy&Zz~Q, ?yT:)&("DUHH_tL v}J16Ps b:"-$$K 77Yb$A@-gTl{[ U.'- IYcnl(gPeˈ%<A@{FJ(t rlǓ?i6hLO% Z㴂9 0C6Fw4<Y]aw6H݄$="rKٸ˓ ̂w #On!h ԟd ?) s,qJӠ%al) C }h}y/ 'j˄C&D P 6;y b#o 3*G,zigFAkWZ-}`Na<(Ki&ٔ\-Iy22ot7iI>P*yF݊&fFbI@B@haKhD ;D$' 6`4 Nᦪ[(eNwRW`BqUNiRr @CC nI  B?~&1$7 A%`$z TQ!$Bǁ 5{:DZ0`p i$=Ҁ 9B_y@R{2PF"bT"MQyZ̔]+om  c[5KD Ɨ 62{Z?s'<C!/C؈906A O@!FrY@1E, %O)``T[osl 33`ʑ3BP 6) y?ZWٛ fM|䃩˓PZHteo#%6B6iR0Te`:e8FF (!!mQB$ 83u#<ȐO-5{}nJ8``94?Y=c&=`$m4n,%l;@6owG$:]P瞁k;bE#Cva+2`߶BM$l3y8#y6d /JKQ#k6Kͧ~C@o?E~ U7sϊNB6V¨7~B}y >7RA8A A` @A@.#Nw 2H |l0Xm/Ѣ 0n2D~`8 cE(hs-e@ آ/ZMH\R 7'~6=ʁbX`+J } Zxy:l˝1T jnB@ 6*QYhBR}h8%1%'?+2(00 5 Dt*<7d1̱9 o~`fh1<O Z (` $:Fp6Rw"Ǐ* B^`#H@A@R1Eϋ4t0ĺCb`@?2A3 ɃHas-f lFHƟA pu IX^e6++JNk  ]jЇuGF 7I!IB,B[FSFuyd.MVJ`fayf6 l 1#d @?3FwGrʅMPT^:>i9gwmtx5Hy2!PB_IU 4(~F0Hm"1"M| yA'i[2 RcPGBde#-Krrj6KxL> $d=K6Gw! X ,MHTSei@Eʀ9\R"rhg)\W ؄ y$ i1t 7bWmjN'F:jK/_ 6 pvV k GNt-kZҘ;ehTPƯg@%턀F};=]oTvaTaE ٜL'%P! 6=G% Ͽvy"|@w enKt|6Z0b!Dj{t!l>&\Fd&t=(SXA(cWTWE7Z;B\ ?RP/k4#դ,l wS< : ,`U1xO? ,Ȥ0cMD($D@A1 D.U K'\ i^w+;CSyH!!(^)̀Um0ʇbju y[$"Fġ"bIC32qx '$_`e.KAaPD @Kl~uW[SB 4DF8ºM),IuRf?P D@ޓgjB7 ,:43 AG_kd921X VOp5qG〴$BB<=o1;L7 mtU +~ {< ?LW=t aD.PO 3&uv>aJ:ɓB 7M[׋)LzD4afA/O+5B,wYy9p4h0_X"DCXMJD0CH2neP# I? Li~.`mnX lBHl|ˊ@qb"%f5$[߹ 3)37 8?|HMӚ̑4E 3#~Z_ Ȍ)"Z:c9U7օ @rz j1 eHsAǯ!/ B @/(-&inA0_j 2FQ Jcʤ?DV#LGmoQ!t 82~J@DcB @T$΀H yM|h@3֎f YtxoR# `-`l |?:;K"EMR44l#|q]'nS wO#p3q9lNbb&0 ?YN% -vE잇x˦L|'@F CIGb " "0$7a PHdRa%@̆eT6BSa^U0N#@Gfe`(!QNryB]ncPb` (>/.9AMzO!^AHm1:7 ` ynci!a Fjf`]60|`!gӐA?hF 2YMԶ]t@0 ?DmF,X/^"t=[8ERa9ER~!I*T&06 )/5`)+ 0~`p |?;Z]R;k¥X<" #ZKٲBLP  ZO&X|hIB0hAP#2 йX0L$"g @QTN`@'U ِ|`A(G:1dE\3B3R e Lb%_<@}\U#z`t ;I3ngDA '* R#].HfMGilQm8{1ϠCgqbl g&|E tad@+׾jT/ 'gE?j0A_X>vQU7#PE|S &j9py7)=1{1ROY:Sz eǙ*UW@ F`iˍ+ !&b`  <Ky򁮋"͚+-|fk]dyR/O?DB | D!s*f, ͪ}E)?(gh!`=(EL-  i% ^&?6 Fa0pi8fI@ `hbѿ|ђ@t YTf4 }A0 H^bE'T40g h)ɽ` pa Vf@iO·TIɴ.Wx6(0 ?_gI`@0C2.?e6:qa&>5 Qx~ Lk>^ k^p8.&)Yy3>!8#xA%'AN|8ABXn ;ز/b3$ mT_kFPU jhN )73;o4DˠR E\$E T)gAߋN.1˓H@p* LX⛐ xC& a-k5 < <0+3`<2DqDlX<.d F879$q[DARIb`N]8 '# X . ԭy[ (ctse2T=02od .k8 QU-s6,p %7sbS{I@fu|(p{7$)nVDɁaq6b A'!3 *@E^\UUm[N'1|oǔiNi&A|LK*È Y $$w;3W,DD~? },t2ir"$6z#;1@V60`4(@=懗 Ug /H$xhHBB̵y 1  p `!|,yS_D0N gc^@>@GaI6^!XauÿZ$PA j\4Gbu8ʶ;pb >86p*Q I&Wk1@/Kd\oz/'NS%ጢI8kG_G@ChF+ESؿ\0oj05fp8OK*{ 8*|D7+zK˗̔D~t?ڤYgMBB=L (.^T:Dg‛ _|_&мce S:*d?̐͜?ϧ+`ӀvK$9hJX Ȭw?Y(+G@!}IzhH`_nR#($Zgd[H"q@|s0uB-bWyE :ƌ@r ӡ HDB im$J~ | 4: XBB0_\\\=JQ-DEB]Ă9'Oq@"LLA@Ga% 1 1L0utm/0HRC"SqC]ɝ\eA̍xBPeUR0# ӱ(`!3? &A _?_fn2:zIPx"b4[n{8BqObc05(30+a''R 굺{XBEbg0* YD桀A?@B( P`&'E0Ck5"{BTpƺVplB0 `dasb=IP%I Xi:O3mVEGY(xlfZlp IfO FynPFmg`Z}H3^% m 1wBc9U$ lo$9'p9q '0fa $ _(zNy- EV n!7 MkL`GCǯq8m`I1҆^̹ 1x- DM8'${qp7$wYpa$  |}o0Q`},!*N.OxS6KaddH2G>mA8 0@e  X6S(7S?HI4RlAw5LpxA -?.y~[hne)7:߄ԤjYzH &ח3E!ۏ0A' 0&`y~{n ~4 x2>!`pbp3=_ۥbDl0a9 ,HZi YD)g3JB=#͆_ $fnzd'=Q˭IRTD<݆0}%t ,y|O/1(NqԦ" up=]ty 53 50%2$ ؉L Fˊ@!+Jdjda”dp@ BZŮ(8i6ny9Y i(&01*iAc |hHMWD >!L>& L3!G? 3GI6#8E2&/Bj,D}LOvx( 0"9~DK е4drT rp"X&kdT'M8liH La\=Akx DHhLY& DiΠx*'@~|)/(G1if~!Uxx xu'&rlbTqɛrfr~@%GxxTx`p:p)x 24G o@2 XLr.F ?-zA#??ٿ_ :y~@ŝ8lq;h&9Gq,4i=$x0g5(2< inpl YHU =?L4$ ? ,ЭCKg&&" NpMud O z#M4M4xh: A6kAlQ:/ +~t&}0\#F4N@:!YsylK"LjPis#0I.$÷ y;>HALS"3 ؄j-H dX*w4)`آ< "6i3 (9' `he4"W %tqAѐ ѾhZMԮƟ)+A CHB8a̐n?S+ t80h`!!g{DapR86YQ30+WpQTN$0 }7 ]"bE&`A nF`er&_ ӵ&4 4r?zNZTYC='(-O='C +@)X *_pjJ5=-AcM{Q eSr- -uM5C'$yi?{H~8]z0JH 'F7`ŅBߗ_!G;B_,(ń`^ /Ÿ0kǁ''ewXrb6'/҅ =hP >o3qZ{ @ ~^ mR.QD pJ (%'"e05@&0 PZ#$P.oIʛe hrzBȲ.8l3QذcZII9jN63XN  ReeDi$ (_FWF(𢴁VXK#N.c2MXRlى)3gI DJ ͱ" U1kAWZЕAC@FѭYs࡙y> x%دDZ$6]O`6=0c۪dH$X Tmm"4AP $#ep/1  & h% 4@r'm2Uo1*?aH&PY3p-}"GA6 . 2& ah+ey2nJ 3B БEP8В:gDZnXHVXa?0#g"[$J/H\} Tb[eF.#'2Pyp?>'BπfI1.N 0Lk%C1\_#O'LAϣ`SN! _ѽX@ѩ öS&&"1`lOǡ/Qd)ie Z{NKA,7DD@4@Rp4KowiUvFn kRh!r׈(s(zL$C^F!r7n9)"h! j~6 BȊt J]"8Z難 ]]cY,-J64Gp"tdt2 h,,$~t]aO"wY̏Kş@bǐAd|dk &A|drdiIqqR}TA;hqjBy>z _?Lh$π,&G@DA:F24(;II`u߸NR̶p@[A:!s'L&.C Luj@@2 tY"&!)>l6rv8~0[oH$,Uؤlumbq.;z/U{OXm$0cAL5GOG gh(Ro2 ύ1#و4#<3,"?U" d "|&2D ŎĜg `c>!YnIHSЁ  }%IQ7PlU7 6v JbD; 6) lDB/1& 6 %0=kR 0YɘbVddG100\ `A26?T"_u4_}$'% l$h^Xo$p`㌘5$@?@/)E۞nR06,4 fg! [f[b$lz> rif!\a22!S%΅*~xpOFqOގ$V@1g xg hQ.$҉t Fp1aN_7 Pї^ 1ޞ+P{W'PB돏3Ԃy%0"3 #S ~/9ӧ/IJ]Ua&!y `i>=(&B4fy9|uD/N<CyL_)jr6`%P 0 56hI հ@  Q DCwQIIàmgELkD D@Ӹ.!]"Bm#'r˅M&]ZAfQPeF@D~(9 A5MXL`iQ0ne3'2kp=,~?rm[ID 6OWIb$O XfhXp! 0%BLA K7Q5G`]ORnBi9SD )@Α/vm7 D8$l@/w GTۙsZԍy>qXZF%PIm$20~7a4?C2h/`@\X`)S8:Mܧ58,8lx x kb0z^wX٫Y1G{rMPZ:4 IR ;0LH}>陈((D;ClkU#@"I\R|BM29R =H^xݼ!lQF):B6`\X-$ᅗ Nt&X '?D羝9܎pfj0W,a[C+pdcEѹ\_@Clֈ{U:93},P pׂr -19:&Ƒ`_TĤAG0" a+Cl _4 CpPр } #@Y @$sIo?_=3C@iG%AFs@$j)C! ?|}@y31Q(; /?VH2Pڔ(ba6< ѣÁ“xi@Pz}ˏ_ I hDTmjjx'~ @*]I4h[[O#{ "҄A`I"`fBF~M~= qΑa")(1"dqNCs V3Hk~B",j/04͐:*?a)`҂o{'f;g *?ԝmpYP ECU=$Rg +}0* f^ ?V7bDa$Hˈа `MaѐC A%P)pq0 c%c Pj@dbywy9z7ᓊB7 'kAzf1Bhd|Ӈόp( D (07'N@N A`53r\h#q D5$Axl4thq:#9 @nbBs\HX pRBL? pIM(^% cCA߀BZ$ A!c<؇65p_A?Lal46'0Gp$c I#/A 7yނŏ^XRг bGSTh 7dD<ȅ3\; K FPHB~A4Fèwr+ TBPC~A?F4H\h%^l-Dr>ZeQ܎4R:| [  TШ&`eTP2@ɴKb<L/xj80y,'NK/&D "|vF`jkC8OR#1,G=wK HK^ *H o$9f* *HN2•3!]<|:gp €7 ])mfDh6R= JE_J 7ChDey<g=s!91$ pPiZ!tvG)ti8V|c|X vK2x%Å I0!g ‚C;gW5J=4Azqy$(s6PCf 3YR&f$)wA*ȯaV 1|bVf 46^Xp"AD-|<r,!F bq#?_R6fP6u T'Q@@WJ&+r;@&A+ ! w 7,-P''%L!jf(m$>=!~mgw>C2 y[ @H00$p2l8##c+kP fZ`5`2eTlMX <84 (~NpBMuFjqo2%h[;Z P:=Y @ 0 o$jLQd@Dl'mt40h0\8#q@}f+^6q̀ ^zx3:.`։9X΃ `Pa0/[=&aw .Caa'XiR)OmSٓIg'8?!aSG4 n< / xx)@:$'+JHg3', PmmH5*(`qD-P!P |>-tIG~l0UC 4HzHHč9Dm|( bMJS$qe n '99̼ @zL<U[9Wc6lAm#i,$kG _k&1t2l"\ujPLM.8VA8]9WA0eй` 9.~ |HP[$4k;fQ4(kԁ2FIv@C9bX70 Ad7 @aBHL% ^I^j @.pQG'?A%;j'Zj 82>˱EmEpRn,<8K"BZq(D20 !뎠2 *x$(K)?.0 g!c83rL/>!=  >pz\:GT$oI3u6 `^;ǣ)`@3>1vŀWΥWUwU I x"q?B<"+*L#TY.b%U/`QHk3\u+,Xu]6aE' JhCh @s`Sr6d=h"m!=-o7x$cO] HAmc3 :ZS[8xw A,; zrr{ yloga&s& Ԃ7 YЃt lj~ n:O".0K@C^L 9@1`h + @Xb$$|G ~lX C|sZ~a )9ъ'?񋋛êٚgHG|Ll3oM0v?w7XY98X a=pG ?vdH~v+_ۉ@XDD <A0xi !%A <;Nn~zDK + *>_@>R4قPxJhm++7~l6X P ,(m>=3` @4 PBx#}$G@h1q@'ۀ_>t'Bb jS lߎ@/I.oE`CL8jb6K#NPL1*%`Ihb^0 @$ @HaHD;le@z>M>S@ x{?Y35de Ŏ ڔA IB|#$ř<@w80X"6b:3!p//?/< (_ xL$F(#'7./'eʪJ#m5^eGp \s @n PJH ,-DǧjFȪWtd\`AP"@Cht`#uzAA [!? #G]_ҕſ]oBn(ur;KyGA f&T 3E2U ft( e\-[?! eJ@Q\Ȑ,IGH>ZS(|\i;Y}.8oc HI*NHdpy&l`YfRڰOS-hr #CfdIPLBjdhC"PB F)2B0'zR7PNp-KUhucU.]|(͂*ܕ% I,Z4/;I_HǼQO,#5Xa,ȧ<_-,su! @({O$j>IDǠTM}سExc$ @@ Dk_.["m2Id32kԧP?F@D i#[Ԑ#Q Dcs 0 L\0%3F1%M%Np#F @) >Aٓ3 !y'LVT,phK@jQn - ҈hIp/RT@IxPɮ\Hλlt9U: b y΁n+r= l,c@@ @l3??g?w?ox^?/!D%dJtW ew*.q@uIH;!1GfBU5Y(C+0+t ?&}9]9W>3 )B;0i1![Te_9IQSNbu *i6;3li PD% }l<@͌@\ 0Cn`B]$(2 *)͘SSDB:O`NČ2u'g^|; ,XuU!7^1K~:LXt&?k@(h1_yhw B(TX aR@@(|sq,oۜ~L',, Qi &`jVj[?UلAW J@_[V vI@_eBrxTǰ?@vy=+ ֗#0'p!Xá)c3B` ۄ̟p!!An%;&s !rΑ\BR@VɞaEMQ#No (O& s*L&,Yc0 ()9(h-b "8@DA&&" .t)MD5%5K\ X\wdH׀4 ,)@z<仮o`@C8$}A N`.b8 M؄ @SCc|4KsXG8*(3Āf1 EJWVudўTsҠJ ]@u 5Sg@ p%)"Q;1YY&h@U+ A 6p`R23bjǦ;#:3& #0S@"@p;]nb6h 7% "= }J@q feyK7  @N@1dC@a6xp Q$OV $8.@pF|BP((:bePS*C(N `D#ip#1@-ř}ә~elC2&m;|O) BBhfPjAgƢjr\8B6U_[ xL! 萖0îl"}`ɨ&wCp  j?8$SE xЧ$s6$; ԽXfuFc WFb!g`V7W6T%-D<"}$ Zi ^,t$JAGd=4Tʋ@l ʤUP{42w>%a1cf g.9 Mf2 J 05tNt ՗[RԮ4.=0x2!pKhZx0[`[p#=05^--l GAf$p| BϽaz321~@m1ws9]<h(٬3 `2!L~6 %4`,G _#H,j_[3@( r  B|B-A#Pa;i4X1! ,hZH)Ƹtfz f!*FC C °Bܹ37YMAKTz&!⢢I?ɵ# -W! B6 !=Ed a`m8l Z:z0H9f DOJSgoJcPx%e `9$Em]seP3[3p`>BsS8ʱx v>Pv!LbjjBFB%< {wHHy:ݤ;Foh2iO df|&2#=@,b L`mX0s pb !I8 31N: e`X6dq`Zl"BIe" \G\ib lXFPgV6Ce֤Z)&x'@CAiY/9NiIPG'sφ0 !`N}jH! 2B-20\K`hl8 Fd? 8x` C@3&MMHN¤(քpW Bv~<3%.O]k:o>20_;zvbI 2{@e@LA$ * Atl= dAmN77^@P#`JBvSnmf%|/,#dD#)hQa 0h k t !>K#+Zlq? X3G@xf<18izP&X@ߩ }5cCY bCK]AtN`~G $ J*Th +P`Myf oF`P v׎PJ @"{b|@Cg pF{4!(@̀@/Q?t window size Status: ON ; status info in text window title bars Resident: ON ; make SuperMenu resident (invoked with HELP) File: AmigaDOS.help ; name of text file to make resident DATA ; start DATA section (required!) MENU Addbuffers 1 N * ADDBUFFERS ; color 1, Normal style MENU Ask 1 N * ASK ; * means use resident file MENU Assign 1 N * ASSIGN ; last word is the keyword to look for MENU Avail ){1 N * AVAIL MENU Binddrivers 1 N * BINDDRIVERS MENU Break 1 N * BREAK MENU CD 1 N * CD MENU ChangeTaskPri 1 N * CHANGETASKPRI MENU Copy 1 N * COPY MENU Date 1 N * DATE MENU Delete 1 N * DELETE MENU Dir 1 N * DIR MENU DiskChange 1 N * DISKCHANGE MENU DiskDoctor 1 N * DISKDOCTOR MENU Echo 1 N * ECHO MENU Ed 1 N * ED MENU Edit 1 N * EDIT MENU Else 1 N * ELSE MENU EndCLI 1 N * ENDCLI MENU EndIF 1 N * ENDIF MENU EndSkip 1 N * ENDSKIP MENU Eval 1 N * EVAL MENU Execute 1 N * EXECUTE MENU Fa, /ilat 1 N * FAILAT MENU Fault 1 N * FAULT MENU FF 1 N * FF MENU FileNote 1 N * FILENOTE MENU GetEnv 1 N * GETENV MENU IconX 1 N * ICONX MENU IF 1 N * FF MENU Info 1 N * INFO MENU Install 1 N * INSTALL MENU Join 1 N * JOIN MENU Lab 1 N * LAB MENU List 1 N * LIST MENU LoadWB 1 N * LOADWB MENU Lock 1 N * LOCK MENU MakeDir 1 N * MAKEDIR MENU Mount 1 N * MOUNT MENU NewCLI 1 N * NEWCLI MENU NewShell 1 N * NEWSHELL MENU Path 1 N * PATH MENU Prompt 1 N * PROMPT MENU Protect 1 N * PROTECT MENUGa Quit 1 N * QUIT MENU Relabel 1 N * RELABEL MENU RemRad 1 N * REMRAD MENU Rename 1 N * RENAME MENU Resident 1 N * RESIDENT MENU Run 1 N * RUN MENU Search 1 N * SEARCH MENU SetClock 1 N * SETCLOCK MENU SetDate 1 N * SETDATE MENU SetEnv 1 N * SETENV MENU SetPatch 1 N * SETPATCH MENU Skip 1 N * SKIP MENU Sort 1 N * SORT MENU Stack 1 N * STACK MENU Status 1 N * STATUS MENU Type 1 N * TYPE MENU Version 1 N * VERSION MENU Wait 1 N * WAIT MENU Which 1 N * WHICH MENU Why 1 N * WHY ENDDATA Fa`>@A?yb( 81l#r9fa?A4P(2f#1(A(-?Y>"iZ)+Vu[ pNZFjHxAЂr 4 fDq1 2QR )Z%hChA@q܉OB[5HhpC$:#Ʊ6B|q$1zs ex]\ m$]L3=B506568ѸF@R@|n @!cL#aG2/OfWrLR0?{!#8(OO&w"80_4~(3߿OH20htfB~ +%pH ,լU\KPޅ1az(WP!Bpv!InKH 0!ˀpa R y=@w1[^~W6+~`j D.t>Z Sqi0@!`kfD{,g >rP tF+n' :h'0ߗ lmطMO (h nUeGˏ81P A"B9@9$2EQ $gS gr[JX{aP6r)Mx P/@Hz"G҂YtZXifi?|TaG~*wDy$D`V @v< !Y 933 Ql3E  "wD^z m`8ߎ",T l^C`2QLCNuH<,XE>*z v,m.`>xR<`00"k2N/0246jjUBUC"k2N&jRCQjQLNu%2dHgg #f (?fTH` *f*RH *g #f (?ggTgPJgHafHRI` ?f Jg6RHa`@ #fRHg$<af <߲g<<߲gtp` p`JWD@HLNuHIgt|gaFf gf`pLNup`H?4&HC(HDH@HA CB@BAԀdRԁdR" LNua?0H@J_jRNuH$BBHBH@HB0H@4 LNuH&H 2+Ha., + o k h" r2(a$2+HN\"&gDkPY lD*ra"JlD8+ *䍘:+HŘnDo& kHNL`|Dށ/$&Jj 2+SAHԁց 2+N&"/0+HN" H 2+N$ N&Ll"D$+ ЂH 2+HN$L҂$HH kNL` 2+N& k$g HNL/,n.N,_ kJ( kLNu= |;V8.............// ///$/,/4Nu%2dHgg #f (?fTH` *f*RH *g #f (?ggTgPJgHafHRI` ?f Jg6RHa`@ #fRHg$<af <߲g<<߲gtp` p`JWD@HLNuHIgt|gaFf gf`pLNup`H?4&HC(HDH@HA CB@BAԀdRԁdR" LNua?0H@J_jRNuH$BBHBH@HB0H@4 LNuH&H 2+Ha., + o k h"gr e  A^GV7bR?dNd/f^ME”.dAi8p@T~n0#~i2@&J0@Ng;5+YS7#@HxA}^Pa%)\F ҎeNb0EwAƲT C fiSp" p`0 $洳B"P ̈)唫/yf$@2Mf`]ʋ 7Tx{䎀P !zWDYOk1: __f< z1慸a$՜ I}El 6g5`QfǀЬ -0 6/A@'IC1@91k-y)?s[9#7s#@#P1Aƚ]Y0[)N qK7(rwBOOTMENU-INSTALL-DISKfRN9'%yDnOn~` 7&{zS9 @Ji뀷(_d1 @tfh\L/a3.3Y27 E!'IR6.24@tJCd8.@Jh:Sv0v  bc%PYj 0 @# fQs;s,݃Nnľ?`"f- H 3$ H,NjIAB̘i(H3 c i,zBՙ@̈4טIM7JX(x8[?.bSܚi'!5]Ⳁ Ci7DA`Ր"P:E.[]68cM=}0B0ߦ}DF&YDLEb R .EE|i6(BYG+H4q=v (#G+F,v2@gY9$J5$@ ]B<{ c5@]2YF°9yf85 wE0 :Ar& c,]@Ɋ<K?I,ǣ N =mhpgPs0`0g3%u>ToyM: ̑'7H&H l*-"4ٙ _7IyB!0(xBp`1I5r dH.7)+6|ЈŠ|L8`p0-g@xC3oF>)h)4Jqq4PVu9Z] ԇ % pO&H8JDc+G?n1EH3߁0L:%81ie  `LV`4h?i@ `i!1ɚ2.2"RO@!E 0-Ȱ|cpr4-6-N1|&ACpmH2-N1|&-%fRA$CE pr4DB_Bm6-NZ1|&ACE pr4-(6-N41|&-%g.AC-%gCp_@k2-N 1|&A <2,2VA4-6-UCN;|+kA'H;|;| .;| nA <2,2VA4-6-UCN;|+kA'H;| ;| 8;| x m"KN0-p2-r K,mxN-%g 6p7mr,mp KN4JfLBSl2 l2e k.g k0( knSl0_mlBm\m0,2l0|҃l `+@ @+h2+hVCN$m,mt"J0-HNLN LN"J0-HN"Jp2-i>HN"JApN-%fz"Jp2-Bi>HN"JApN-%f"Jpm([@2-i>HN"JAhpN"Jpm[@2-Bi>HN"JADpN`B"Jp2-i>UAHN"JA&p N"J0-2-i>UAHN"JA pNNN+mExN+m+mfJg+m`;md``,xpA pJm f mNJgL @CTr3QJ@g"@NBm mNJg @C pr3Q"@N- fP pNupNuag -hga`g NN` f g& m`ld mDlf0-n|gN`N`g a^a0`g aNa`gN`z`vJf mN`dN`\H&H+!g"h gEJg g`JgNě$N,x < rHAN:Jg&*@ +Xf. <rHAN:Jf"M < N.,j*Np`N*IA)H$+O+j&l+j*p+j.t+Jx,JN2;@;ARA;A+KhA0<cQA&Cp2f3|Qp2f3|Q;mf m C gf-%gJfJg,x <rHAN:+@g>,mlA "tN|+@|g("$-NJg mCdf ff` A,mxNH,ml"-|gN,x"m g <N. mC gfA|CfACfEApp01ZtQ;m;m f;| -%g]m;m;mACp2QA+HC EB@2<AtPNAtI-%ftNAtLNN N2N,mpNB-`6-%g2C m g"+ht m g fArSf`B-.mINI-%g-$g JgNN,x"U <N.B+U\+m+m`;md+m+m+mx;mfEApk}p44tQ -g,mp @N mNpJ-fEN Bx`6A "m gfA"m gfA C$m gNp/A"mh0<cQ,x"M < N. LNuHB f(,xN @ ( f h n LB3|.NuLB3|. h.#HNuH~3G&3G(3A3| 3|R Bgi 3@| $E#H.A"#H6LyNuNmTNuNm0mPNut: - Palette - Copy Swap Spread Undo Ok CancelR G BH S V O"Or BYQ aNuH.,(*N <|frHA,m"N:(@Jgt,MA0tvxz )Hpr8Nv1|,1|01|41C1|-1D&1|J1|F1| H|P1|N VX|RDQ m6CL)I|C`)ICt)I,A8CGpVr/tvNp1C&RC^IdQp\l@9@9@h9@0p5lB9@9@jpr9@΃l9@2l8pjl@l@7@7|g|| Av'H'|'|x F"KN KprN,m*N4&@Jg k.p(|cpri@@9@XH)ATAe>SG$CJSBBB9q RC,)IZ h0)Hb h)H^CE`24Qa|axz,m" kVN kVN"@ @Ep4Qh:Dd$IN ,g:JfhaJ@k> ,D",H$,&,)BD)CH,m*NJ@gFfP`g aJk$`ga`v g aFJk`f`b K g,m*N"L g <f,m"N.0LNu lZ ,T,m.N@p0,fA6a0,2, l,MNFARapNu"k@gXH`O PNNuE/<D/JL/NM/^O/rN/R/r/G/g/B/b/c/C/u/U/x/X/s/S/Cap~NupNu0HlRj8ЬT`20HlRTm$T`0HS@jЬT`rq0HR@TmT<>aTpNuNuNuNuNuNuNuNuCaapNuNuNuH l2(&|fp`0|fCa`ap~`|f CaHar9ALpLCNuH$lp0*0 @jVg$5@V JN02,4,6,6 lZ,m.N,m.NJ* kLNu0 lb,m.NH| lhfL|Rm|nn| mز|n4,XAl At A<>0,Lga|g@|f a20a`||fvat9@N0al9@P2,N0a2,P0a`NHGmF?F:$l^FGGp8`" O]O<>a:a8a6L0D lZ,m.NQTOLBlLa0L>NupL>Nu02||@AkE`EA@1FGNuH46IJ lZ,m.NLNu M!H"k2,m.NAL"k2NLCNuHFgJFk0a0| epaaa`LNuH(HB$OA?"O,MN"k20,X@2,YA,m.N"k2pN"k2pNAp"k2N\OLWCNu l^0@00rAa HXQNuH|1@VNx @1@0,m*"KpNPLNuH>,m."k2)pN:,XAJ80Pp0240BAPP|Q| "k2) i 46pPpP,MNR@RASBSCN"k2D p,m.NLNuH ֠] o"oJig$<:)hl 0HԀ`0Hနp(:p)Ep(<p)FvBD0H2Hg*r) 2Hg 0@ |(` 0@ |0H2Hg*r) 2Hg 0@ |h` 0@ |HCRD Dm`$< [5 L|NuNVH?8$n JC""/N-@HnN(@&L$ Pg=kkkt/HyNL-@Pf`/.N-@t//NL-@O gHx/N-@PgHxHn/.N0t BO f=|gvp0.,B/N *PgX///.N0O f4 gHnHnN8P`BDtBC`$0C.H GHpXHnNDPo84RC0.CbJBm/.NX/N0B(H DHpXN&( DP"$ApPg jfb%C/.HjNA%H@*MNHj6N(RjT/ yHh*NP Q yRh(NtI6O`0/N0H @$HBjX`0H @"HBiJBl//N8P/.NX/.NhX/.N/.Nh$ Pgg / NX LN^Nu.|X 0F $       V 6   r J@< 4Z"FONTS:  ~hg  9"o oJfNu o /`RJf//NPNu op`RJfNu"o o`Jfp`g!lp`pNu o/ ` f `RfpNuH0&/ //N @S HX` f `SlpL Nu/$/Hx//N PfHx:/N Pf`R$ $NuEH ,yL NL@Nu/,y"/N,_NuH0,yLNL@ NuH ,yL  w. NL@Nu/,y"/N,_NuH ,yL NL@NuH ,yL NL@Nu/,y"/N,_Nu/,yN|,_Nu/,y"/Nj,_Nu/,y"/Nd,_Nu/,y"/N.,_Nu  6Rl/,yN|,_Nu/,yNv,_Nu/,yLN:,_Nu/,y"o / N.,_Nu/,yLN ,_Nu$<T/,y oN,_Nu/,y "oN,_Nu/,y "oN ,_Nu ~hf,  9"o oJfNu o /`RJf//NPNu op`RJfNu"o o`Jfp`g!lp`pNu o/ ` f `RfpNuH0&/ //N @S HX` f `SlpL Nu/$/Hx//N PfHx:/N Pf`R$ $NuEH ,yL NL@Nu/,y"/N,_NuH0,yLNL@ NuH ,yL \nmtmmvn mvmpNupNuH ,",$-x&-|,mpNJ@LNuJgfS *:g */g/fNuHINA "m E &JaA`Sf,ml" $<N.g"$ vNְ|fv Sfp<+,ml"$ &<Nְ|fTpp l0rHA,xN:Jg< @1l01| RT )HC 0,0` Q!kp0+Np`,ml"NNLNuH mhlfLNfLNgI0-vl*>lTd|N>Jh k&H$m8<0,(2l*4,,6mH\5D" m;ht;h vLN,f KN`",mtN"Jp 3>N"JpNLSCNDNf 9g KNLNgA C 0<Jk f4CT-%g( l gB N)K KNBaLNuIE NA B(C fANvIN`j"l -%g <-n|f^EJgNNfN^f g IB NI)mx)m|)H N CfAm PQNPLNu"H$P$R g $R"Q g$R`$QB"JNu:) h fxG M ggNu am$H P`$I"Q "g" gam$$H P`$$I"Q`"f$`$Nu/ gJgNtaIaa @"_NuHJlf0- $f( la)HPNE)J$0g S@N^)H$LNuHxt62,2Cd28HDBDÖA4,HBBBht,mpA"mprvzN,LNu0l2jB@ll9@J@nNBNBlNPN|` _pNu-%g&/Jh j\Bh CNgJ _0(B0`Jh j/ -%f CNtf CNjgC|JgN\@J@ _Nup _Nu g&S @ag )HRT` )H Rl`H$l &lB BBa&JaNLNuH"H$HJf S$| ,xrHAN:Jg @1B"U!i|1| JijDh C fNf )H Rl`$$l$$)H$0l2dNRTBlt`t,mpA C N - "- lҼSJnm JBgNNfLNuH,ml"-$NJfNNN>%` UPHNLNuNPJfN\`BAN4`p-%gAm%gA+HLAN N2`H0-lH|?S@la`S@la`S@m &LNu9mN`0Jg 9m/ IN8(_A1l1TNuHHp"L<(,mt"mNtLSCkN@0N4 PmQLNuA1l1T1m1l2 C!ICf!ICl!IC!I,mxNf9mNuAC|fJ(fACfJ(fNuAC|fACf`b mp0(&Q@f Nab`S@fNINNI`Ұ|mIU@@W@NBm2,@mTp0 OaNZ4NuarA0,AaL9@Aa@NuH,gAC0,R@Ng1labLHC`QaNuJhg4"hJ) f*HA0)gS@2)aLN|Nua A`NNuaa B,NuH80OxA", A?dR @eV"ONgJJl~g& O"lp ")$iH?>HNO 8IL|Jfp"t l e A%b; N`&,vvvv@vvJPvvVXdhlrvvvvvvvvvvvzԜ`Jagr+Sg8r,Sg2r.g*r-Sg$r1]g`r/@gr0Sg `r( ~g C& L NuH:0|E"t"JXp/Nd _VgjX; N CND:RAW:PIP:CNX:(@H)H|g /fB(N^)@t9|`|N^Jfp@)@XF,`d`` Jg :f9zPL)zLR)zJj$,R&EC<"g"A(piS@fa4Bg0gYfNg l ˎNˎB NuBJ,fl , fJlrg$ADˎN4ˎ)@ gP)@)|LtNNDNJf,CH)IDACr(2Q9|a F NuNR O,g("l )C&,gXg Pg CpQ  OaNZH 0,gD$l &l $* g2p0* k4eg@ e 0Hrtap0*.HruaL Nu] O0[`.] O0CHg0jrDD`HD] O0PHgjr@Dra~ OVa*\NuAop`Akp`A @Lp`ASp`ABp f ,g/C#@$#H(NN8N.Nu11{11}12{12} [ p[0 p0(S@d,.>f` 0(J(gR@hc.>f0(`pPH@B@H@1@NuH00$H&In.c0..6gnapat@f S@VgZRCrҪCeNt?A2BX` @WS@Rja8R@WRT5BA C0` QAXRXSC`QL NuNu2pSAehdA`aQJNuH&I&pCNg1CC`Q LNu/N _g/Rh"@aL  @Nu/a g!WXNu/"<,n"N: @J,_Nu/`"PN| WJhfXNuSh/ a(c _ (/"H,n"N.,_Nu%Xp@PTLD tx|\d`Hhl<840,($)IDACr(2Q9|a F NuNR O,g("l )C&,gXg Pg CpQ  OaNZH 0,gD$l &l $* g2p0* k4eg@ e 0Hrtap0*.HruaL Nu] O0[`.] O0CHg0jrDD`HD] O0PHgjr@Dra~ OVa*\NuAop`Akp`AK鵗NVH>8 n$. &.,TUm"FBQJm$H*ڂgn y (h`\"l x`RDJfp0p0r Ёm:"l p&@`XRp0b4%E5lll FRPp (TJfgBHxN (@& Pgv/HyNL-@Pgh/.N-@/ /.N|JO g.Jo&`Hx.HlN~"@& PgHy/ N &/*/ /<Hx^N,Pgb(tN؂$DHjN/ /NPJO g@Hx^// /NVJOg(/ ///N6JOf/ /NhpP` `Hx^/NpPL|NuH8(/$/&tNւ//N.PLNuH00$o$//N&X&Zg /// NHJO f =f `pL NuH>$/&//N*XJgPHx|/N(Pg,` /N,X  f///NHJO fp`Jg R$`t`pL|NuH> &/(/ |$D CtBHxHy / NHJO g"Hy/N,///NlO`ZHxHy/ NHJO fzV`Nz` Ѐ$ЂЈ*RHH/N @XlJgHxHy / NHJO frX$R/Hy&/N// /NlO L|Nu"/p0np9m r0`pNu F4 Z 2 RV  F j $ b H@ !XhlI:  | P:RZ~44 " B  nf`ZPL : .info.infocopy copy of of of copy %ld of ) opJWFNu o /g fS Nup`LfNuLJfS`L / Sm fJfpNupnpNuL / JgSn`SaNuL / Sm fSoB`Nu "=< n2ABAHA HA0 2B@H@Nu B@H@HABA"BtҁрnRAQNu/$ B$HBHAЂH@B@ $Nu/$"a$Nu/$"a $Nu/$lD"pJlDF @an4gD$Nu/ @p$lDF"lDF @aH$gD $NuH:&o oCE,yNL\NuNu o XB!HNuH ,yL NL@Nu/,y"/N,_NuH0,yLNL@ NuH0,yLNL@ Nu 6R/,yLN:,_Nu /,y"o / N.,_Nu/,y oN,_Nu/,yLN ,_Nu/,y oN,_Nu4H`" B  nf`ZPL : .info.infocopy copy of of of copy %ld of ) opJWFNu o /g fS Nup`LfNuLJfS`L / Sm fJfpNupnpNuL / JgSn`SaNuL / Sm fSoB`Nu$K,2 "JaHA`"JNNN| +`N|Jlng A`"PJ) npr`p Ka`HA0`,A@`&p2,nfJFkp2m aNg'H!K APRh"Ja Kaa$)@,r0,g S@n J,gL Nu , @ gf NuH 0"l0Jg&i t$l`JgtAp0*H瀀gabL k +n $`Qjjf *ѬXo J,gA`"JN|A0"P a`vJFkJ(fga$L NuH 0"l@Jg&i p,f k +tJ,g"$JFkN` .>fFg*` JFk$a A@"P al`"l, f$BgA0` / h a,% _f PJfA@FWfT" g ,(g NNNB(Nu h"hJ(g NuAPpr2,ngp`rH/) Sha Waa _LH "X  @NNNNuH00$H$G&f~,g0,l>fv`vrg [gvp` ef fB`av`^;N &4444@ҸҸFLRX^djpv|S`0 lBhBh`"R*a`p`z` A``X`v0,``a@`a`a`a``ap`CB0,lf0,ChN``Aa\`r ga`?a@2J@ga,` l0,njoB(J.>kݲgCNANaa Ran0,A R@"HA`Ng*1lBg (Xl J,gÔfdgf rJlgL Nu.>fr.>gNuH0a$2,n.dFal,gJAgalSt`QRlp6aNCa :apaz L fP`lH8 4v8,af?`a$Ha@Sl2,D`QlT J_Lf a `$9la 0,lga 2,aHa NuH04,lva<`a@Q0g,g"l i&i*nv L Nua RlNuSlANu0,l?4Bg`'z#HNu Q"i"!INu/"Hpt 9b 0k"iҀiԀ҂i ` g -fD$S"Nu/aaHpaH _B NuJjD-SNuH`4SBr a80"HJWf r0`Q LNu"H` QNu/tH@g4g0H@40HB2$Nu2Qp`aagpNu ae zbNur"A0g"a0e c e b鉂R` NuCON:intuition.libraryconhandler.libraryconhandler 34.5 (23 AUG 88) timer.deviceconsole.device*n"*.&|~\ޭ&AEJk$ktv. <BA2Ng(@A(8GCH|9|(C)I I`QB!L$C)C$Jj)A `v$a g@Jg)G9|R9|A0taAQpn0N)@g| r KaFfa&mgCA#H(#l$NN2NJf GNNN G +g"hJg @H?>NL|`NNNJVg2 @"( g"Ag/a"_a`N` ( h(NaadJlngaJFj^,aaJjjvN0E`t JNEQ lNaA2"LN|NuH"$@p(a.g.CBr0Q%G"<B@`R d%@$"J,MN2 @LDNup(a*Nu/,P` h "h/#a _ fNu/,iN,_Nug @Jg $f ((`p @NuNg ( @NuH00$H&j t&+r pUAe 0;f2;(N$RW"l"~8<D,L nnnp"<`n CC!I !l g`Na<`FrJff` fa a0`&tJlfagAp Ng $Hl CJ,fF!GH$%H Ka%@)@,`JlgSlA""A"g fN|tE0""A"g i f Jpa`E@FBf Ka\,fa)@,`nJFkp k +N +``t`t A`"k +NgF$HB %C!* $`$*- g%E"N(( )s.-$Jf$<C" N."N(F%@, -&@a -g%@4Jm,fvLg)A"f"*NH(x(l ,$@*A,m"-,$<N,g"N(Jf0"N)|&,LgHl\tp(jN&_'K8"*N )sA&"$<N.f"N`H%F%F -&@a -g%@4"-$g $<NJf,/-$"OAJNXO`F"-($<NBJg%@ ?, m "ONTOB,Lg)A"*NCannot open From file %s L:ASHL:Shell-SegHa^fRA"Nj*fA"N"+ j*g8pNJf"Nd`& xR(' @ +@F CLIaj &L Nu/"<CLI -*@м 0g$0 ļ___f 0$NuH00&ab$HGH`AfaP"CNJg$ŋf" J L NualaJg hgSh`@aRHz8AH g @ fNu"Hg<:g</f I` NuH0aargx$&@"+ fA$a '@ g@ a>'@`+gJkn` a$fRkJkk.Rk `&vA`vA"$A a8JgJf`L `~H< *a/"H&<pJWFgFH&<af6$ мNvg"g" @!_ A"_f B $@a#, K%@ `Jg x h!Cp.ELAp`("H"(Q/|`ЙQ"`ЙЙЙЙYn"(gR A`NuHy>NU x h.(jp`\ Ox&<IaT g!Hּ QB&<C~ a0C| a( G"OE'@`+gJkn` a$fRkJkk.Rk `&vA`vA"$A a8JgJf`L `~H< *a/"H&<pJWFgFH&<af6$ мNvg"g" @!_ A"_f B $@a.ӄ/././*DN&@Og%K6`NHxHn//NJOgB/././*DN&Og/.///NJOgrYXtmJFgLHxHn//NJOgFB/././*DN%@FOg*/./*F//NJOg|/N X`|`L<|N^NuNVH>8&.(. $nz&|BHxN,PfHxg/NdpP` -j//N,Hy/N8Hx/N(Ogp0*trfBHxN/ //N*OgJBgHx8/*B//N*Og*g2/*//N*O gd/*//N*O f4`J/*/:/N*O g2/*//N*O gJfJ2gB/*2N$R-BHxHn//N*Og/./*2//N*OgJ6gz(j6p-@`XXJfHxHn//N*Og(j6`@/N$R-BHxHn//N*Ogf/.///N*OgPXJfJFgB/*FN$R-BHxHn//N*Og/./*F//N*Og/NXHx/N%n PL|N^NuH0 / oA&/N\$Xg /N0X`L Nu/$/ o Hh/NP$NuH8 $//<HxN$@ɊJɊPgPHjNHj0Ҏ4 $_Nu//NPNuH/NO NuH/N$ONuH/NO Nu//NfPNu//NPNu/NXNuH/N.ONu//NPNu//N PNuHNBPNuHNPNuHNPNu/,o/,n"N,_"@#o ,_Nu|xtplhd`\XTPL  \N@2$C1MH<*/(/$/// /N&Pg&////N.JOf//NvP L $/*/ (/$J(g/<Hx//N/@8OgHx//,//NJOg| o(<(Hp܀$o("0*HN@, o("0(HN@,$o(Hx///N%@ /$o<-Bؤ&.$. $n(|(<G/HnN,HyHnN8HxHnN*Ofp`xHxN/ //NJOg^ RfVtjfLBBJBgH/<Hx/./*DN$Og$Hx8"BHQ//NJOg %BB"BHiNX+ gJ/+//./N,tOg'F/+//./N,tOg'F`H/+//./N,tOg'F/+//./N,tOgd'FJfJ2gPHxHn//NJOg:/</././*DN%@2Og/./*2//NJOgJ6gHxHn//NJOg/<5ZH?g8 Ag$A&|gA%nA |g |ma"Bf` g"@ABp QIp(mRztN&<m<fRoRBR`"|dm|da@E<fEtRoZR`"/a "JfSAU"a`"p"SaNu<0H HANu -g,"@"-m:<$a:R"HAa:"-m2a -g "@afpL CON:0/0/640/100/ARP Process*NIL:*fH?Hzp BQO*fa/@ kHH  x(h&lA\/H**; g*g .Y` odra(/@ o*/@,.X/E+B:+B+E+l+l+l n0+h&,,",(MN)@AJ XB!H"o  H @!IA\!LP(A XB!H*f*g)j )j`t <kf * f C`\ * fA"$<N/| )@gv *fAv fAR"$<N" f&/| )@g *f g @)hJf A/H`Nt*$o( o (a p(f B",gN(.",gN( fp,F%G< )@R"F oD )@T )oA\"o"Rn EG"L/,xN,_$a@ /OLL?Nu"/,N /$g (@*"*a@ /g @B /(g @$(gal /o @/,xN,_ /Dg"@N / `fJg gN",g Nff",gN",g gNNu&5("5(= N"BN$fNu*x*m&o(,o /gN"/ fA"$<N+@g"N(Jg - @+hAp"$<N+@grLH8$-g(B)@8)@0)A)A (k@"-g*$A/j ,/j0/j4L%A %@Ba",n0Ld*C$L NB'|"K/,xN,_pNu.,o(x(lL4H,,(,g n"ؐBH",g& 5 到f+( +,Jg+0$/"/a> ,"@N ,g&@$+gadJg/k<"/N$N xR(' / g$*@+G+l+FA "N@,x"MN,xSj N>w4.<`N xR('*n"*U zJgRca.pNuFa$pNu" g rJWF,<c,pJWFV<c <܀NuNEWCON:0/0/640/100/NEWShellCON:0/0/640/100/NewCLIS:Shell-StartupS:CLI-StartupNew Process %d. g&L gJf NuH?<*fG~I*a/A*gA/ Ia/ jG(Ka/pBQa8g(A A"RN/oJf/|Ba /O4L$<*,,n0Ld* <"@pH>(jNL|NupNJg&@X",R A&&B*n"&NupBQ/H8pJWF/@4j/j $/j(*V0fN/@$J(fN/@(/| /4<м0N"@/@,gFG, #@ o8f"/4 +#AaE,Q m(g KpaH="*.4p"<,xN:.gˎpap"FNEA`aEfAMa0-U@r+7t@6-maHrVaH2+ UAa>r+7a4pa<0+Y@a2 Ap`2paprtvEapaprtvaECaECa~EnCarEBCafa A"G2f4-6-a8A"G2f6-a("Gp,xN.LD k>paaAfa`"F Gprxz Na0->]@2 H@Ao0J@lp;@< kV,xNJf8,WSmDfaJm@gaJm@gpm>faj` kV,xN`"@,g m(g Ip@a&`N`$)$i+iZ+i F+i$R+i(VN,W|gF|gƴ@gt|g| g|@fBp0*&"|vgS@gS@gS@gS@gS@gS@gU@o m(g Apa~J B}ԫf`;|^`@0-Pm`g.;@`g(tERB$R g m@NCNn;B_AAm0;@;|Ba aJaD`bHxm>n8-> <8A"Kp rt4-<6->_CoHBBBHBv,n8zN,L@ Nu|hCįfpmFm|lpmHo|ElH ?@E t6 |/,n4pa,WrN:t,n4pa~,_"g$A*\J<fHLJH J,n8NJL@g J"m"iNJg2Cfap m hWCfaAfa ;mP``pm\f m.( K"m#hR)"i ga -bg ,n4"@N,_a"MN L"maBNuCal m h"Hg</fC`<:fJfB m ;@$;@,C`< m"PaA p BQRm@RmDa0 m h"ONJ@ga` OCa  MNJ0` Jm@g MNDJDpg|gCaVBm@Nu m(g M <aJfrJlrACaHJg2->Rm>|lA A!`$I/,n8N,_"J m$P K/,n8N,_NupH@JfpRJf/^N"JgB&@ @C _QB!$WQO`$R g"@+)f ACNl&$ LNu/N"_ fNuA0-B "JLD)gNNu A"jN` A,n8N`,xNb`N` A,xN`Nd`N&`N`,n4N`B *g @fN``R) NuS)NuKnD/d <IlN <(jPNR")dҩ|tԁ(rҩ|`&)t")d <IlNr <(jNJg*"*X <(jNG" <(j$N``F <(jPNN ***BREAK getbiteRp$*tpn&$<X"*lp(jN%AtJfrNBp"*lҪptԁr0($!(rNNqwrline Jg>x#D t"N#A$) rNV#At") NJf ")`rҩҩ#A$)&)$GD" p$(j(N")S#Ar#AnDґtԁr0($GL" p,(j(NrҩtNJf r p,(jNrҩ`#ir#Anr #p,(jNrҩ`")S#Ar#An8ґtԁr0(#A t nvl`r.p0(jNrҩ`p$(jNN%X4: %X2tidyup J\g"*\p (jNp (jNJ`g"*`p (jNp (jN"*xp (jNNNq$TN & H **BREAK typelinJdg$*hG|" p(j(Np(jN"tgrp(jNJgr p(jNrtgFN"p(jNr gt gv fRhrN%I5 typehexBr ҉#A$<hԉ#Bd#Bd%AlBtv%Cpr#A|tnZ" <INJf&&)$)|") M\t missingOut of memoryBad Template or Internal error***BREAKH0v&Iak L NuH"xR)'"n,"i"" g&` <=g`NNgJf oJf.&f\JgV o$<aXgH" oB$&N"(NJm,g( BB0H`$Jf/I gS"/g AWB `BaHL Nu File Drawer OK ParentCANCELDrives?<g <Z  1t8 t8 Ut8 t8 @ K H?<$HB <N*@Jg$+JAtCj0`"p8`p2`p,`p&`p `p` p`p`p/,n0N,_Nup`p`p`p`p`p`p`p`p`p`p`p`p`p`0<a" Nug A"( Nu0<` 0<`0< x h NuJg"X/"</,xN:,_"Jg @ Nu g !/,xN.,_NuHNLJg(H2E$O&O/B/B,xN O`LLNuJk>"+g RA'A|Pe(Jg$H0L@ $ NL@ JkЫ'@BNuH0&@E/,xN,_pJWFL NuNurH@p/,xN,_g?p"N"@Jf0,xNLApQ Nu3_LH|,x#n/ J gN`A XB!HL@Nu gHB,xJ gN"Wp)NLBN/ G#K H'@Gr fBQ`&Q&_NuHjNS".A$x(jE\"ON"O k,xN ,g @N` JN JN"@g . SYS:copylisBtԉ#B`Rrp(jtN#A JgB$B(""0p(jN$) !(")! #i ""Jf")N$B") pX(jxN") pX(jxNJfG" pX(j$NrpX(jNNNqBackground CLI [CLI %N] !Unable to create backgr\B~(j$Nr%Ax <(jPN""0 <(jN%A\Jf0$G" $0( <(j(Nr%Ax <(jPN"*\ <(jN"JgZ"0 <(jN%A`Jf0$G" $0( <(j(Nr%Ax <(jPN"*` <(jNBd"Jg#pt#B`r`>r%Ad``r#A`V")ҩt0G" <(j(N`.")ҩt0" <(j,NtHgvNg`R")t0l~Jdg0Jg(G" <(j$Nr%Ax <(jPNJg <IN`r%Ah <(jN#Atgd8)'`""0 <(jN#AJg8 <(jN"$0GL" <(j(Nr <(jN""0 <(jN#Ar <(j(N#A") <(jNJf$"$0G`" <(j(Nr #A$)r <(j(N") <(jNNNq/A Bad args %S already exists Can't create directory %S $} )edqJq/ <(jN <I y woc (now enter a filename) Quit the seka! 7. Load 'bootleg' choose option 2. Load the bootmenu you've last saved. Now insert your previously formatted disk in df0: and press return. The bootmenu is now installed. 8. Now copy the programs on the disk. 1st menu option in bootmenu = 1 and so on 9. Copy the following fixAles on the disk. S/ startup-sequence C/ loader reset run df0: system-configuration 10. The startup-sequence should have the following contents : add21k (if necesary!/ if you use this, use loader2!) loader reset 11. On the disk are the following loaders : loader (80 chars and 4 colors) loader2 (80 chars and 2 colors) loader3 (60 chars and 2 colors) ENJOY ......... # ORLANDO/BRS Follow these steps : a y woc (now enter a filename) Quit the seka! 7. Load 'bootleg' choose option 2. Load the bootmenu you've last saved. Now insert your previously formatted disk in df0: and press return. The bootmenu is now installed. 8. Now copy the programs on the disk. 1st menu option in bootmenu = 1 and so on 9. Copy the following fi+z[ *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256+X},d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output rr|")4B$)<")8 <LINJf$)$"<NҪX#Atԁ#p( $*p&)$*x"Nҩ$*|Nҩ#A$ll&Ҫdt!J$f")%p`")p4IpNJf")tfnv}֩#p8,`"G`" #A(`,Gh" #A(`") tgvgxg`"*`ҩ$!,"*dҩ$! ")tg vf")$*dԩ$!(rҩ`rҩ`rҩ`p(jNNReading cylinder %I2 Hard error Track %I2 Surface %N FileDir VVBr#Atnґ&0שrҩ`")N&rpIpN#AJg$")pINJf")tg$GT" p(j(NrNrNNq Key %N is unreadable (*؃z &<pIdNNNqlNNq#D,(&$"*\p(jN"*\p(jTNtfF"NNqrp INrp INv$)r p INNNqrp (jNJgG," p (j$Nrp INN *** BREAK #jt"*p#An$*xS#B r#A np INJf$)G$" p (j(N#Q #jX$#j($)"*xNҩ$*N(&)($)$") CCmd 5Cmd 6Zoo x//Zoo vZoo a eCp+41----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 ad+yd.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memory |(jN$)X <pI|N"()T&0t/") <p(jN#ATJft#BD") <pIN#AL$)" <pIN$)0") <pINJHg r#A``4JLg"&)X$)0") <pIN#A@`\J@g B@`L") <p(jN#A@Jg2 <pIlN$)X")@ <pI|N")@ <pINJ@f B``JDg"#p d$)Pr <t(j(NJdgD")dt0҂t0r:g(r <t(j(NJg")dt0S%iLp(<X؉&)$)X" <tINJfr%Alt#BHBP`")Xtxfr <Fp(jN#Ad$&0( x08#Dhv֩X"0( $ <xI@NrҩXt <ILN$r <x(jN"!T"G$ "0 <xI@Nrҩ$" <xIN#AH$&0( k8r <(jN <xIN$)dr <x(jN`JlfJXfJXgrgpr <|(jN$)X <pI|N")S#Adr#AhdnG" <x(j$Nrҩh`rҩX$G" <p(j(N")S$")X <pINJfr%Al%i\d")`NNq/ %S (dir) start r҉"t\ԉ#BXvp։#ClBtv$G 6" <(j8NJf$G," <(j$Nr <(jNBlBXB\BhBpr <(jN%AtBx$"0( <I(N"< <(jtN%A`Jf$G<" <(j$Nr <(jN%j`dr <(jNJf,tGT" <IXN#At$r <(jN")lt")X!l "&)X!8")X!")Xv!""0 <INJg"$)X"0 <IN`z"JfT$<|ԉ#Bxr <x(jN$)x <lINv$)x")X <lINJfr%Al`""0 <(jN#AxJf`mxr <(j(N f""$0GX" <(j(N`"$0Gh" <I@Nr%Al`"<҉#A|")x <pIxN$)|")x <pIN")|Jxl($G" $0( <p(j(Nr%Al`*$)xr <p(jNv$)|")X <pIN")x <pIN"*l <(jPNNNq DIR,OPT/KBad arguments Cannot get workspace : %S not found #Could not get information for %S - %S is not a directory tidyup J`g"*`p(jxN`,"*x#p"0p(jN"*xp(jxN%ixJxf$*t@;rp(jN"p(jNNNqstart.nv ։#CB0(#pH 4x&t:")pD(jN#A0JgfG$ ")pHI4N$)")4pHI4Nt")pHI@N#A8$)!0(rpH(jN$)!($)8rpH(jN")4t0JfB$*")4pDI4N")4t0҂t0r:gG$ ")4pDI4Nt")pDINNNq:/TINJg"$)X"0 <IN`z"JfT$<|ԉ#Bxr <x(jN$)x <lINv$)x")X <lINJfr%Al`""0 <(jN#AxJf`gjHN"),#p0$)0%p(%p(#p(4%p( &)4%p8l%p8$p%p8(t%p8 x%p8|$*|"*xN%A$*p&*tR$"N%A$<"*|N%A$rN%A$*l&*%Ct "N%At "*N%B"*SҪltN%A$*p"*N%A$)4v(nJ(@g "0(@`"C! "ҩ&)!8")!")v!"ҩ"0 <IXNJg""ҩ$0") <IpN`"ҩ#p"<҉#A") <IN#At$) <IpN")t <INJXg*")txf$)") <IpN`t") <I N")Jg4r <(jN <IN")$0r <(jNRr fl"*\ <(jPNN,,,,,,,,,ALL/S,Q=QUIET/SBad arguments :No file to delete tidyup `,"*t#p"0p(jN"*tp(jxN%itJtf$*x -rp(jN"p(jNNNqstart.nv ։#CB0(#pH 4x&t:")pD(jN#A0JgG,$ ")pHIN")t0&)x08f$)G0" pH(j(Nr%A\N$)")4pHIN")pHIN#A8$!0(rpH(jN$!($)8rpH(jN")4t0JfB$*")4pDIN")4t0҂t0r:gGX$ ")4pDIN"pDINNNq:%%S is a device and cannot be deleted /<TT <(jN"ҩJf(JfG" <(j$Nr%A\`b")t") L)$") <IN#ABp")N"#p $)v0(ԃv0(G$ #B #i$x:fG" ` G" tԩ(&$)$") < (j(Nr%AlrNJpg#ir#AnG" <$(j$Nrҩ`")t0҂t0G" #A#i v:fG" ` G " () &$) ") <(j(NBp()&)$") <IN#ANNq%S%S%S is not a directory / %S%S%S (dir) /nextfilv ։#Cx4؉#D0z\ډ#EXB@BDBHBL|#FP.#pxTBX#jd\r < ݵA0(jNJg") <0(jN <0(jN") <0(jN") <0(jNJl@G" #A0J,gG" ` G" $")0 <0(j(N`J gG" <0(j$NrJlF #A8Jg4") <0(jhNJg$)G" <0(j(N`Jg") <<(jN#A$r <<(j(N#A(J$gJ gJg2t!ԩ<#B\#AT#iX()Hv"$)$")< <<(jNJg4")<#pt\#i(T#iX()Hv$)$")< <<(jNJg2r$ҩ<#A\#i(T#iX()Hv$)$")< <<(jN$) r  <0(jN")8F©(NCan't open %S - Destination is a directory Can't open %S -  Error while %Sing ReadWrit ** BREAK Destination file "%S" removed v։#CJg. <(I\NJftԉ" <(INJgrNJf"$G" <(INr%AlrNt ԉ") <(INJgb")t0#B&x08#D z0#E$r#A($n$$)ԁv0($)ԁ(rҩ(`")ҩt0r:g>$)ԩv0(t/g&&)x08JgR()ةH`S J  oqTg,"ҩ t0r/g$ԩ v0(t:f"t0#B$v֩ "#A($n(R$ԁv0($)ԩ(rҩ(`")&)$)" <0INJfr%Al`4") <((jtN&)$)" <(INJfr%AlrNNqCan't open %S for input - x؉#D B4*#pX 8x&t:") pH(jN#A4Jg`G$ ") pLIhN$) ")8pLIhN") pLI0N#A<$!4(rpL(jN$!($)DiZn4XdɀV|piApLG~G(` p7_#HB#83rdtfaFf:,37i}mH4A!SPO uw< *JyJmz y ?'H yx -ـ`-3 fyiQ7)Hb Vo tDHt)/bK []7't@B^bʚ;5&Dޗ (DrgAJf@R'^pHYgLg$AB\6_`Dk2gJFKS`6AЈ"b9-eBzXjBSDPWJt*a#QŒDGf# x jBa&wQ`fFBjE:bEgEJFaI CBaffcl`.X"W s ( HH/8To 6!:`:aa(fx6LH`7fd *ulܐ:.z<:t,f0Kf- CBCOX`%!/^AEL*\30Ktp($S7 @$L:?`4]pADgT`2qF fx!F@ S f>j`3 @ `_%]`%YpL%PaL:HGzH/6a5L0 pG9Q 2Eg2m!GMof@Jcպ,`a "%caq~P`فI[0gBA QAPRr3G fg@yK |B `r(:Wk/^/$FJ@!7bbapO^gC yb 8H "H(@2 rh SF|"PfJ. g2``TtL 'J3yF:!I*t JkLaH`p@ 9pB*fJpa`K2s K<a$ .aSlrm#xB#RiJ/I JiI^0LN4N 8gQ# f  g@JQN3;^pf8N /*`N: |>gAMRO QIm    `XDNIxl40%dʣGTG^GFD evcd no rord yfireV!`&A t>rbpZg޸܄ObSzHPA/OuNsJnrlF FRGG'Lt##QH 3 gzL0aj<2 tt pH af +9F*1;|~OHM ܩ9.(o^U`yldG g 6`7یEb`.f }`d Hg19탆udaXPހmPnPmER2 QQz ( oY{ o@J#j!J@``"`y f-@ 5@/ ;ѯ gypoc @9K `Boh@Bo  RR' pp \RUHQ:0`uF5  QM2QNXL-P "HRgODARh " /_ 2:/`BHpfB (4F20trpXn\nhhhmClmB(6rk4nP"|)a`aS#juK`LːBN_3<13kBJ&a͸jX:?HX^yB@`VASf963. I YPOCX&HaN,3S>trwBOOTMENU-INSTALL-DISK $܆I. When you formatted a disk with no diskname written, it made a nondos disk. Bug fixed.. other Improvements. *-----------------* Frezze Mouse . *------------* By pressing Right mousebutton(again to release it) , you can frezze the mouse pointer, which result in no steering of mouse back to (START) if you by mistake touches the mouse while copying . ZAPdisk+ *------* With ZAPdisk+ you can delete diskinformation, its ten times faster than Erasedisk. Twincopy Twincopy+ *-------@M* Cachet's other great product ,Cyclone ,is put in XcopyIII, its called Twincopy. To use these two options you have to get a Cyclone HARDWARE addon. This copy utility is much better if you have to make a copy of originals. I think Syncro express is a product which is much to expensive and have a higher error percentage than Cyclone(Twincopy). Twincopy copies disks a little bit faster than DOSCOPY,DOSCOPY+. Use it wisely. XC config *-------* A earlier version of xcopy V2.1(by Cacheost) had a new option , the Setup option. This option could be executed from the CLI. In my version you can choose this setup option from the menu, when you have choosen XC config, and pressed the start gadget, it saves a config is your S: dir when you exit XcopyIII. It loads this config file next time you start XcopyIII. If you decide not to save a config file, just press start again and it will be canceled. INIT DF0-3 *--------* This is a preview of a new function i think is good. ( If you forgot to turn of some of your drives, you can use this function to register them. Put a disk in the drives you want to use, including the one turned on, then press start, and the program will register the drives. Remember to turn them on before pressing (start).(the on/off switch, hehe!) Its a little bit slow , but works fine, maybe in a later version ill fix the processing speed. Note to Cachet. *************** As you properly can see this version is protected, and i thi rmnk you know why........ When i found out that you released my program(half of it) without speaking with me first, your chances for recieving this to sell officially is near ZERO . It wasnt fair to release my version of xcopy with no sign of my name anywhere . I have released this version, unofficially, but it is properbly better this way ,you get your name out and i get some publicity, you get some more out of it, the bad ,no money for it ,the good , some publicity. You are welcome   Rhto use my ideas for your version of xcopy but this time you must work for it. Next time ,pay your programmers and they will cooperate with you. If you cant manage that ,its too bad... Do call, if you have some replies, sorry i had to do this way but your phone isnt working or maybe your company is closed ? Final note. *********** Note to registered users of xcopy, this version is better than xcopy V 2.3. Get you money back for your latest update (v2.3) , because its a fake. LOOK <J0N|=KyJod^-<&"l h dN!5P@=VPgFJh3pfg&BJwnС < 7R@xPBO~|BpwO 8('((/r@fH1a="J tF:r@(XcH5V #&. n,@79x, FRXCu#@N,! A)yrarbil.sodth @ a SOD-fFSWEUd fn8!!$[p*gBe燀pJgG&h|!2Gl0p~T&0"DSЕrB/0eՓ edu2"v!D,xq :=V $*H |1XCB<0H"Rx ;V"^Y2Bjpi1v~uY q;n1D1#``rLl%-g%k}|w< ',@], KJG5<'4ׁ?'I+$!#g.[d6B m@OLDNd\N\Jj7Ն.׏hVr7`y .=Rߎ2:0ɄVZ >@w2†1* ^7t3-a9 aqʔ#88Y#;`J"C#v'd="x_@bh>~z:H# h>L3_ ڄmAMCQQ;gy t=P /CډĹ+TjqLW3 <`R> dd,~?EQB^BLh3"Ya@;0J1kAJކQH"P:2g@* gDngY>IONcBgIa#0r@Ђft&`>mZl6hd*^oh,ZCf3#?,L}r\LP ۢY1$B444aR `L?fZyJ} 45م3 ?(g`^&6< mPG@H(8*a@534ђ52H1zfDX<0$"Cj5VБcc" 'p_"FaD 5r/Vakd0k06 MIly}+ 8?{\ ppтphApд pZp]KW`0'? ⃧@.Fo# +7^mZS la^ݴ6:GX qFсX"U Ng&JuN\  6h?u€1[%0ɬ`FTG dJYRnagv9we'S=1+.xQ `'}x  -=Ⱥ4/oMx48`Nsh g0LGJXY9ZDg"0U*.y,E|!P7r8~1c7Ha`"'Jgh+U**\LO!4A|@#l5H7J(fRå \ǣ#h; %`5Cth#Kg) j#A 9 8n" "ipC ""^J h_JG~iBq ϙC )~rDA#[Dz <A0f V&H&H 1p9< Q b$VhH{ ~D5O<,Bz98y:2.*1U&/" 3m<r @W[#ɳ : %mp CicJw@˴{g`p `:{G/ An@<0%K !?B |OF' 0 C.^``<akl9bS _~)S K|J3Ifa9L^ ~/an46zG`9]xs."Oa tf"=z:Q/1 r grqNѿ~x c@!l- 884l(~2@J$hm#1D|C@*7:0V֡&q(GqPJ0  "`! :~4'(*ϡ*  JC ȯ<"0J*g6vtzt+XXBBg,t-1(@"7g 裟8f(8*eɱ2 pH"̵Q|F1|M?"f);zA;:2/`)@1 gX"AɌJ7{rt9m\"boJ~K+"P ~"|zvd*#&|X0AC+G~dBN>z ' dnˤ;tAY@RU *a2$BaZBʾ%m:zTm&`da.`<>Z A?gܗ0>PI$&|Cg>CU#fOT }-|c0r-6mm\ZGYb˲ ËG9y "` gJG@n 5tR:2% n90#-?3j ӄ`Lч g ~0?:?BB[Z`(zx P8D;{:Z$DSCn&gD06@:rUzDE`"B\, +f0Jf~2&"}DZ`X; ц / "|OX~_QxH( V`6A?YZ@d >Vk|;Q$$ASInj"Zg7A" \)>`zK fO]F)a"Gc$/FSc"a3r@CˣА2.8aCiJXbaC ja& J"x@ERa0!aO)fs&xlaCn@ 4 2H3L~Lv'K" |zi!|#I&v cS*|Lmm T2UAOȨR&9]9N1pU9|&ㆳT"")mCtՓ_@))>%cB 㵢~B^`1¼ g5$W >tgV?,!4P~.v BBHR L4A3gD gGWˆ(($_"k(r GG z-GxGAgA N!2GB:>~B`X3n2 n zg#JQ 8&CIiTffC.,haITfQ}qJaH" V$̜1f.t ":"վL rPKH$"HH]HUgPkAJWXS<2I @"V`fD^InYUvLHkѦgYD<(&Cz"9ucRfa7 PW1= <'04Ly)Ce9Q N#<0`e f p`xV4HVg XOD b"-DuL"Dz Hq=a4_R$(DqsM $)b x v,.cE։ `8T xuN23o]yR^`a|nnHc'xR0? E:?mA ARIX "GBCrXO:n%(Q fAJc r;t!pvHxtfm;Mxv$$3R80xv&XW7Qam A )EA$`QH4AE(8!80"aƇ`W0< ->~ W|f@ mFBz(F~#.@xS 8EH~,DlBF,/U!/ & UF+G_ZG ed΃L(;KpY*}ma>'  gC¯R᫓DabH gW H3='4f-JJe:wbMPM%8/ȱ<#f'%JnМHjHXg!Ba"xHbb98*v*F_[gN($O mHEz*0Rnj} Jx'`3' gnE Hɑ< pp?4aY r>0(n*`DI#>Q3xfGCgJزO٘a Q #INg l  `n/Q#trctrOgSg8<"7Dp]@F& pBoBnтm B ?@S(nr.kʑBnFCJhCتa&ȩD7#H"BglrN_slr t&42/ndG6qBL fJp7< =DR<>haS :Gw@BC@Rp0󀽇BzN <#Gҋ+FRaL܂-G - 7-?;*h e:zcR/`T3tL5H&lH(Qpծ$gCz ZyBi)pXG3#GcPRJA5DEb2<> z-\T"nB |M?"z oC<3FQJA2:0# ~ Cm#x7"!'Ϝ@YA8@/0jPJgpxFpHCн[=U< Rf p|ŀKzz^4(bH ~qN0=Pȼ`f2T0< !%s8(VUP .6 v V~e`2@ ck5c~(PfTJ.`dk8f>G#؋b 0 ` sEE|hnJ]~/MQ P<# B &~~1OE3Ѡ&2PP~ : _4K4@=3gA.J0`~z=JF?_H 0ځzwxvݥfv*h *pxU8f5yS f@RHg mufK4@Hк" HUgDX z^NgGSff.- hys "CL-++W<FS|`djU|w0.{<>Q|=KBr z* -( ulI'PfDu:<0%FqlΕa9QyRfyt,W@?(HfAy3 ~wk \HL 9 fOBgN_Jg7J;Qƺ'T'- {Ep|I t:F肝<_>ghŖazLs>>C)8; #i9 >JVGp H6roF Q4H$Fz`ryB8h!Lƥ offGS:fK$K |GQ.&oc`G,IU&J6aV3[(3 *SNr`RB<4r` rI&Uz"$` rf R\ ň+AEf Pfk:B4 }l˳ z̧ p"WJtmC4fXDRxU`:AH4nB "t@#`UBB`jR4n BDjAg4Xfl*g22ATgJC x *#B`CR4g($vZVBE--x6JQ˕R$HEz"mg+WC`b6CBgFS6 |xWAO?hЏ32`mɵ>.u26h:>hBg@~@H0 z q %v<":C=@ h3YMP ` #Ƶ4OXQ6W$BS4vfEUIT6QRI$xv: /"AS2H0 l@"gDD$!z&6 S.P E ~b\n@BHB|ga4t`Ci-;IAHAByZo%?H0tKl OՊoRdl40%,&/IQXa2xdv0JLeF"~#G$E  ыWG0zH/@2׀gORp"*~"3/8,0<>cuf=.SLD>:2DTLxC$d^L"2,?MБ8Ρ—y#|QI$B;bL4SCPfG wHI-f``~:BzzB/db.$gJ2&?'3 gJT}aARP@ԉ (2JPt@B@HII2.[¶$z"7x5!Ca ƚap2alʋ p b%iJ6Q(~mf6RAmnSaEL؍9jם!jQ$ia" F|?VA4G=Zпt w! `zE*T&(fJ/ !  R;pHP耂+d@H,@%{j7a%ޡ7a_ 7 *|KC 2 $3rj@`<2k>A @B jv6t28&:|`"L"eg!9SA.8=1"W6723IZJgUgFfϔ9B&f  RHuN!B=lEx8- @gN;'z fN r%'L%&x`l(0x X@pTIHxt8Hpp8"?8'KE>&>e%b&K|&|"~g@ (THHh02%PxH0H@i X)`x0O~Ϗ}߷:eV0J0pHxK`Kx@`%%@/((AF HT@PJ.HHP`$8# OG EK8KXHK(DHpx|* H xxPp0 Ż ߷U߇/xlZbz rpXF ~p'3JD@aSgcBJ/]ReRTfu fBK  9 wv|axPLH`z;F;_s"?dMx@@x/ A 9Rg(E_xȗa"D$(J,D!FxKO ;>!Z &`P*#B! fZ5y,1CNsNQ:B $g)9n:f:Q@qFgяsz`]aC6)xN*H--_58 p(NA䁏h|JHV9~8!GǸ T5nB 9ExD?ȃ?T3,ECT42.0.PˁHP0AH1 "pR`$fl"@H @1 @.A"amɱB"C/[NB1efq&c8sfJ$r?0 @ 7_,QR/CC&8H!HLE#.P:_{xP(6NZs4|./H9:L74y@B& ۚ>9J*/& &4Y~^4Rx4$!|0gM ܎GзV/BZY9XULE~ $, Y|ܚh>j 0@wXon5a8b#|=c 5 Bo'\75ɊbKʠW ~vDNDNz[ m0z+n@sxpC gBd6<<]pp*2,Q.6fG`e62x_R#PEB Da }t>UY4x`ȫ)rr$`\|=fSgF؊<"!eman lagellIM(Mp A61BnB m p[t@S(nDs.kpB2C7Eo'O BJ"GH"fzG6/^vcO/ ǺxkgX7ufypT /1.BH (M"ĊOFVg#d3oKg| > hS>iΙ8F_8ѴWplnq|Z,>8 ׼^B-Jt5f^U 3r4`kL&fr30  ;a'6г3Vua2?ˬ8z0j"@ʙB#L=pR0\^Z\bZ!jXV!hxp~pU@setFdl% :mem eerF @2I YPOCX* pL4A o54zHz8=/rB4VhAϜD_A޼A#'/pOw|y*  ȅ@PC|P>(W?$)4|Pt^>=4Е6+Ĥ t>r<0r 6q8H ]s; ` f+ `H5@5߮B=Z5}$+HtT< f㮼y ΄1J `&"?@/'uNQ7P`0 b  rgAJfBt`DHtA}gJk td '砆2Bb1ʚ;3)LD`NtD7@R^pg$L0-]Dk2v/KS`00iЈ"b9Cd e07kiJBS2WJtjČQ[\gY sa&0"tQaOaFBjE:bEgEJFaI 觧CBafecʰ`.X"W fs6&TH/(o H78! :`:a(fxKhH`saw7KR#c=l :ƁD) .jz->vx0&y- CBvOX` g%/AL'3/ X (/KL7:?@!egassIqraluger oN:pHEp)[dsreffub ksidTof yF-&`p g"Q1%#(rh ezimitpO8h=e/"fD:eFD niZD^8D fP@etc$Cp irw )q` &f_p¬o fi/V"*f(langis xedfL8}n 9_$>>fka7a9sU8@~?ҮfXODARAP N2h,Frϸ9#|g$y @f@JILN.tHm "`dcQgx!rph`x, i;<@gg , f6fA*MO!tegrat ENOl4)SXleSG5"mnȟ $E0(t<2p?JTalguN7u#r%1 pKXI}@S*;U4; 5t@JCt;VTпB{mR`u;ߏˊ)XDNIxl40%1 N`Z.N;zH@}H\7@TFDvir2'NbpS>i`6t1 GL0epNh" (/_ 3d/`f0p9ېe4 20r! ~~ ,!QL R|5o"Γ"?@C3 ħ p z  ?! =6 C>> A; Pk| b  ~x| 'r|XR:<,hだ\ȁlp(2Ȁ͋|#|cAp` }K4 UD>ecruoser.ksi W#~ρ%A$+<@ ,899 $~xQ@)W1F>@<:@86@42@0.@,*@($" H(Q9+uNLfȳs=pCZ\9z0} 1% dl20%GaG16^Y*#fc3#ary1xȏ =C^!7$܌-~јG|'Q JG}GABDG`G6(#Obm#CN^!?dhGaxՏ##=#a#xءˎ!x@FΌY O^5{59r5_NJzaj@D8 "7JƈQ:&Rxȵ /s-(' A~ <*r Ph r r tnr hbr WLr A6r +j ? 9Nc6~uF=Ob)ssy-Z_l1K%d E)|N#,vq?'Y9NE"* dRXt24=4}%Q_QD:a$''&w ';/"1/y+0I3<%p %p &<>6Eg.$`@.g'7'[j!+6<M"%*:$ 7?B_#g<_q׉$6pFyA@5$6s&F!2 Sy: FBcG)y 1 2|7=]"CJJ62 v12q*1@42!s&.S^-K@k2D= SIEs _By\"c5'6LF2! T;G=a@QyS pAgC BB11צ\?BOA$:'usX8 :78;0s16?11:h'2>!<5' 2X k͟O h:&ҥ(G%JhSaD0@+GBS h6=< p_Ef"+<72!2#X&OC5s/3$S?##V(&]ꞄjS =@b|(I %3 )+l _I)5!7IR7BVP%G 8OS-@W# hz"Z[  Sa!`S\ 2s]S726?S>5>S*#<0=:$'sR 0'SS SS=B ~q>I$ifnqH:stxt.Iypoc(Ԑ0LuJ9B'qApAXA^AdAxA~3r{=ȃ<ȃ<ȃ<ȃȃ<ȃ<ȃ<ȃ<ȃ <ȃ<ȃx!cEx6@@^%;O3p\lT*L!qS|:tlcQOoP6Af-T5joph=@z"g yOO` йB |`x@#Y(sߎ0&` u`G9V0f_(Ř$ jdH, ^2nC| ⸡^qCda,H3j@B`Lh2kbi@NRXj( hK6 :2*> _~&ktB&B .H|`jL&g.O'~S .8Y^5x3۽I6z=F R(JFfu-QB f` R>sN<&a?rgBXlhu$z0>A4R4z/' . F59`g DPr7GhqN0~b(ѓ ,H81ibɾU+ NPgI[q>x:4!f S@$mB&`x6?y:hyf}G:G3q7 09؂ wϧuNn z4$!*@:V`95b*<"nJIH-OK pC:RA|!4lTydhxr$Bex99 t_>0.mx@.pE.9p *z0AoA1 "pz$f"1M&Z ,\amɱBhY;6B HP9Cvm ARfJr^C0Tp`g˱HP ! ` `FB*;:($BfлuN.~LB t|$~f5 XP$`BC`gQ$g)$8`䪑@)(@In`g,J f "nj! fnfE;JT 4C GAI*~H`Z`~/ A- o`x+&rHKG'ހ KPBӹhL'.YBP`lg"pL*l0gX>f CPM T([(px?t`: gBJ@88VN R aDH2^<:3/BFr h @ N&(pan8SOD:fFSE?cP︍0Cy(r bhr0vBGHGA :2z>\z&h_ "DQ%rB/0.p<0 *(.R"6l ,!DRQBd$rH"Vmʳ EEah!2`La&ATaC@1r?pr̦@jR AP]|1>q:ArH " B5Q 2Z 048BEEp4vH@4F#D:0H}`rl(_ fA>Lg "p_" Fa| m?VaR0k0®Y[ 7#lO mA &~a} p pDp-p]ppti # #/E!_omɀR#^/S lpD&F$:rs X|сXLӢUl$I@VNg*Gu٩J|A#  $8t$o/y` l=G %XAgB)жqf}J0vxL%A#`%FrFѨ ~Br%qtQpJg$Z\`]'4q=lnL@~O3(-aM]#7{f>U&_f/F09"^ &: }&3"&^:Lu~Zyq@=&y pr*7Tl@: "A ARzr@ 612lB<2 cm*hJQd 1C8uNލqN. ~D*n&z@R+:07>TaDBagA>m$G&`fda.`nZa*4gge" )$t |+ J,$4?OT,::FѼA6a> # wl,t{r3ȣ`i f>"`=MZ4&=Ӽ~,Kxv5#y MlD2bYdjl`LѴ gL?-:?Fp\50DQܬDS8D`'g CnDB 6y8HgE`x })fW)Jx-A "`HB?O"~ MV!)s(ksid WAresnIuNhN LAXNRi p,\Bniaga et7ro#6t&`'DeppdppxUDi$pASI/3"Gjg|#)!"&~ -` f ¡a "a&J1aK"nfFSER@aOLCr<2@P2a@8a!uJXbaCjx J"xCa0t-lrmf%xla0iZA .:2H &uD C$t$8,|'' |z@|#y`ZZm2yUTITtgQ>/ _/(Q#pf; gJ)$ㆳ") 8CtH$@ tcB UO~1f2^Sg2WY <0),J$FiLBH#BL߀$3(Js_"6h X z W<(\M<&dGxޙ5OG>>~`X9 ;\@ IyƉRnd܆pC/<2f0h+ ՍJaH"Wt$XE.A "n"Ճ€ r[5H$HH]HUgP1kAJLWXJI "V`Esfo EЌi,H g@.-Z>1z"?HXH( a$RF=X FP˴ |L-"Ϟ%&PxLA{Gx2`" f pxV4<"fAC1*H`vca ` OG53%P x vc x&%E xGT=3o!YZL% ҪCx\%g!&\#͜>2:?@ÀjcvH8gg@J,H)@L{c}@y*-` EQ-3&(`|G A>"a W0fH>a %Camm-z2.D `>!MKtU92 H-Bzo!"f/^j~@TD'lK0a3 cfP f~F%j3Vf @Uu",fxfd>3cEBa3#Ƀ1wf ,4r.7 ):`J _J\Pg./:y3 /܊4''u,baZ RcnЊ#viL(1 aJ(D! Eއ`<Dz|Јaؼ3^t&<@#%_*TX(^lO(DoX'R1^kmc">4sxHLj?eF#>SD GT B/D|pxa1 >GQփ (`)HA0Zkeppq?< ӬcwL'b,u^9\ P>VG{}p,~3,ќ x躃83 o@ՃBA@ qj1F#@J),񉠫 G 0( :qaSKkMx(N:@,=G _acA`$z 0p'NUJiMX $þpz pb[SOK<1 ̕~cOA?y=>p0ae'Uc錃Gx#/xG< Z΅&0 ~ `}  10Gn?^А8$ j@)ߟOUL7}|#t q|_4c"1`?0  `#%O0')b=qc:?G _Ua,D~@gbyL"E[bn O` cF/!e 7Бِ`|RZM:pQGŌDbx#F2FqCV:00`80(XAJ?iW P}Qc8ls =u;@pTG xP9x a( pu5?@ ?SL8c^F?&Q'.K|"8`CBG# eπ! a~0 8:|7 Qc+o'zԣ35Zd ÁAĜ"4'󼞀1a @]|f/S~ |Z4<6?GȈeh@؊<F?΍A=9a IU&|>` G'Sf?=# yYxfnQ BX !~ÿ)4'd*o #;C oT#i-h?Ϊpx! gP'$0B a M? GhW~Qٽc3h?11N|`k-"cp)>'||Rк>D@  r@›/O^UC'<02} @DX~c6; |`2<66|'fkffOpLf6N`v~"z~fcc}>>=A?0QrO<,I,p<8<~:lT0`]fD 0f@<#l`lxfTkx03*t 02H' 9`blw={ xfnfv( 0Q8|`AѰ<|,8l;0<_l< lp0Cj:tfƁ`ğA 6p*8 `0f Z 2NNL9ۨ<镯8/~b0@>xF/#;ی~PFvƓP 4qMP ́ QuV(f|lOR҂ )>c030(xx 6Y|&H~Mܻ={t ~04"`|6gn ̳h`<JLM`g`C8fj@O>llF7|$! V&!| " Ay؀?L ~`G@|ïCA 7 6$L >+7H ~9cDG @j BTPBnY6!5ḳJ` -J8?A>#\Ŀ`ЂP|ߣӇV8=EpNS _"b1#|H)e+/!e|a%<@:@D@.@\ t fx Ku'ߛ/-E3VPR@, <4썐Ip ; ` W:N u4@2&4.,*(&gQt 򌒑 9mM$>TOƂx20% ('Q1N+a#a]inQ^F+# G?:G~hM  4'Ge樛mF1P/#_tj 8G"8Ly@yF;q}P`F80##F'b,[#7>6W*|fFX >* z? Y ?-.4?}Z< d)LWMARKSIDC Ca&!rorrE yfireV :8kcart gnoL72 musehc olb ataD6LG mJf/daE ni L5=DHL4dnu pagE tfa cnys oN37I2st11D|ah׈e> SmL sse!41pĹaC9# BABREWOLPPUEHTOBGw@B]TAMROFQ+FOESAV]EZIMITPO+!SKCEHYLBBINFeTdF+aSOD3Jqf[P8EBp BB6ooO+S($rAyB@]3p ygR;]$"d3(`f2n/]ʌz"ga^m{3 rg{6ҟ ։UM|tB 41W0l˳H(ZA*tCCm]}X^]/"td+g7tRnC9;j,*2zTgp.xBFZ?_L\&($vUm ,_zPJQjgFSâg4|>2hI`vhy@Wk42<2?#.}12a6 :ж>B::2K$#6W~3^~6pÁ(dt953< ZJF{38bBJz)4m0 NV`6Ax@fHa,zZ)ƒ$K- b B<%0Mi[3pKS#/ 0рnBGf8fz^Op SgƆ"h"h0f5>xMT -z 'N֕:, ͎y ~ kt:hd჎Zg0 xv/@P I3ORLaaZ 0~!0AgO’,ȡ3\=-0QDm`Fz[}s m ^`3JDuH7Q6HM6b pTo-Ti.M)J|OMQ%g=_wOa`AE 4mv "r˿M|NNBWg=J_.kWf+MB$;H`TGng4m`AxoYw0AAG:'7x faBd4n@V;:ABg Н fc`0^< KRw`L!KD >v z&-L?K#.HAr<yQv(/ L̘ZjdLtBxFAz lYf '`@o@=B-s;= ]fF)6I+HYWo_ .?Bz" /Fl:rzz~PG$ E 1ވGJzHDjV**yx8f8;<,~<$'Z8: Pf `Lf<6OP~11`8Av1 0CTxx|f GE>e{~o~~v lN``fN0z}`|ln Y-< 00h`Hl2< f0`N<<|< 2F ~<<<N0 8оllz(S_p =!?k?w '+0~ a  `\m C'>>>+RvH%>xiO>x)&( P&`77 n_IzߢV '@c?XQU'>CPAG`5zlX,h?b@:!w_#OJO+D'??`(A_''$2&|b(x#(Da1w5xD4;m !;?kXۀDO a>;]Qfܟ8p?BV Aon}wA|]>5Sa'C6N O pCό:0?0h? _O#Fpo@ 8>QP`xR3 `Bÿ;b=`Ge&;  U'@%_y#F?pvU P="px/?<}}d(|P `C!wA]\@1d`(D7_Pt\>d9y?(10򁿟[X2U\;ci7?a(p|8>_1 )m|9.WN=9I9$\NP?&Z8pIx$\F@d`.\>n#r>>yi()~ k P>7dQcG 1*Gyd]CO: yG8<ߌAq7`*{)O oU&@!_@t}`C7247{-NJkQh(GQu|a?? =@C'Px1Cc'?b(@h/(+(,P bDAށP'eR 8?ǁ#T!b]߅ŀ10  &$=  t<cP)x<Ń< +[؀ %҅Ă9 qagOTs{35mc6Ys{l##k4=•8mИsѱ[k8(gm⧀k{85}\k>\k8Z{|0`0/BB !A BZD ل@V#c5 GX4X0Zc?3Go=#E;sJ^s{cc01K2.t d]h7:6kVZ<d&QeD(@@$ 'Px/ %=c($wOYDݟIoE`=7 g7ЫΌ00k͈$^q`' q<`0|'%2=g3$GfL#_O<' 6C];Dy'\sc^.0`N0x'<'w#Տ3ΙwNgFsc С詤8)dp⇈|PO1'?O^!?P7(&?'8| @"CI&7??#a~( J 4@}?밟'7 p#Fw+x(m39cp{0V<'0c[_53?O <'OKÀ 35 *a!jg'p' @qNU?`d'@ wi/;!?{`L ~?}? a%D LA? ~]Pw"@@@p&s`>,61&_9˛o*1ޜѼ<ڣ*挤0kTx=D&.~ok bK d;@6 谶~.GfᎣ~= X hl `&1gPE\r [;Pz61M8=*s?1cI}i7   $Xe1DBV!MoENOx oA6UuMh? /G/K"DŽ"pg_B7P '`М})fka= `0`ީ S6)A: *cƘa1 頔$M(%NZJ'PJT!HJ)Bu~&1(!?0=&PU#]m'(']>xټ_I) A?w?{s< 1<<''b8@S&:40&d%`NC> !2 ~`)<Mpbw T%#5cF3]p}(=a# ER5Z sfwG./Qxq! B01<0 xpSJ)q~97O @ ~ g<Y|IQc_ ?K@O!cshn a\sǏ.{:o=,[*Mss~?`+~ u ǀ0cá;|238[?u&=s_pxrkx;B~xB#wxqAXꄩ|9yn5Ra70Ƥ`8+ !y~hI9xq@V?tX GՏS8 5֖XGE~T_у`#<@Ű 1Xq? 7T`9 XlqĐ 2U}>{t/ y"0p&5@UoP<6 dci Z:wt!PhD#G<[}RP[Filename] : read binary file rl[Filename] : read link file ro[Filename] : read executable (LoadSeg) rs[Drivenumber] : read sectors rt[Drivenumber] : read cylinders s[Address] : single step code t[Linenumber] : jump to top of source or specified line u[Address] : UnloadSeg executable v[Pathname] : show directory vPathname : change directory w[Filename] : write source wbFlag : Flag: 0=Close WB, 1=Open WB wi[Filename] : writnke binary file wl[Filename] : write link file wo[Filename] : write executable ws[Drivenumber] : write sectors wt[Drivenumber] : write cylinders y : load EXTERNS zAmount : zap 'Amount' lines assemble options ---------------- A : Error on absolute memory adr mode (for debugging) E : Listing on printer H : Stop after each page of the listing L : Produce linkable code O : Optimize P : Listing on printer (same as E) R : Error on reloc entry (non pc-relati6sve code) V : Listing on screen Shortcuts with Amiga-key (Direct mode marked with a '*') -------------------------------------------------------- a : Search previous occurence A : Assemble quickly (no options specified) b : Mark block c : Copy block i : Insert block k : Cut line *q : Quit MasterSeka q : Quit editor r : Replace next occurence R : Replace ... s : Search next occurence S : Search ... x : Cut block y : Cut to end of line Shortcuts with CTRL-key: -------  &----------------- A : One screen up B : Mark block C : Cut block D : Delete to end of lines E : Cursor to End of Line F : Paste block (fill) J : Search for text (jump) K : Kill line L : Lower case O : Insert line P : Paste Q : Cursor to Start of Line R : Rotate block S : 100 lines up T : Top of File U : Upper case W : Write block to disk X : 100 lines down Y : One screen down Z : " [ : ESC Pseudo opcodes (directives) --------------------------- Syntax : Exp  b1lanation : Example -------------------------------------------------------------------------- align Size[,Offset] : align PC : align 32 blk.B/W/L Size[,Code] : fill block : blk.b 100,'B' code : code section : cnop Size[,Offset] : see 'align' : dc.B/W/L Size[,Code] : insert constants : dc.b "BUDDHA" ds.B/W/L Size[,Code] : see 'blk' : endif : terminate conditional : endm : terminate macro def. : symbol: equ : define symbol : sysbase equ 4 else : conditional as  sembly : even : align PC to even : end : end of source : globl : global symbol (link) : if Expression : conditional assembly : illegal : breakpoint $4AFC : incbin "Filename" : include file in object: incbin "Data" incbin "Filename",Adr : load file to Adr : incbin "A",$50000 list : assembly listing on : load Address : assemble to 'Address' : load $50000 symbol: macro : start macro definition: plop: macro nlist : assembly listing off : odd : align PC to od  'd : org Address : generate absolute code: page : listing -> new page : plen pagelen : set page length : page 66 pwid pagewid : set page width : pwid 70 pinit expression : init page settins : section name,type : code,code_c,bss,bss_c : section aa,BSS_C 68020 instructions supported: ----------------------------- index scale: eg. move.w (a0,d0.w*4),d0 DIVs.L DIVsL.L EXTB.L MOVEC Rc: SFC,DFC,CACR,USP,VBR,CAAR,MSP,ISP MOVES MULs.L MULs.L RTD TST An/D16(PC)/D8(PC @~,Rn) Have fun.... BUDDHA o even : end : end of source : globl : global symbol (link) : if Expression : conditional assembly : illegal : breakpoint $4AFC : incbin "Filename" : include file in object: incbin "Data" incbin "Filename",Adr : load file to Adr : incbin "A",$50000 list : assembly listing on : load Address : assemble to 'Address' : load $50000 symbol: macro : start macro definition: plop: macro nlist : assembly listing off : odd : align PC to ododn;pf BSfF|:F>f d6Cf d$:{0P`"?~~:{0X;pj gf FSfRF˻cĽf*JSEk%Sf`h^9Lo`z"wcBu< U?j0#@3#L2~B=>G)1GVL1G y?<D C!3xYC!s1Ğ>"_=E7";)"*SWCI)N!D)7G/ V+J^+)yȫ#~vL"bO!7x u#FF!+KqSm)^CS)H V{CMR~N1 Sb AzZ=/`L) D3VxzXs=V#c5>~9Sa#8F_2@yaZf9C G< !@b "Lx ar <0}bJ8!a[CK"2O?O^Ld׏$ #NV/~ bT$I1< #'B'0LBOyB c'ď~k9`cy 'ccfQ~5#0T,|6p@3lf5p|`pp';7 6 87|?Z)lfQ]( 8A CkDmÌ8>+^/ k8'H8 _Nu+[fa& fr+[f< gH kJg C pfD&A$g8J+[ja`,x"kY3|#C$#H(N8A'HapLNu'HLNuHA p$v"+fa,kNaOPTIONS>BEG>END>DEST>DATA>EXECUTE>SECTOR>CYLINDER>AMOUNT>Bytes read: $Bytes written: $Sure? ** Break Exit to System or Restart, Sure (y/n/r)? FILENAME> PAGENo Errors of (Old wasAo D0= A0= SSP=USP=SR= VBR=CACR= PC= *** Bus Error At $ *** Address Error At $ *** Illegal Instruction At $ *** Privilege Violation At $ *** Exception $ raised At $ accessing $ type instruction $BREAKPT>Reassembling... --SYMBOL TABLE-- -MACRO- Work Link Src Paste RelC RelD Code Data CHIP, PUBLIC OR ABS-MEM>ABSOLUTE MEMORY ADDR.>option O: please wait... / EXTERNWORKSPACE (max.)>WORKSPACE> blocks used blocks free B ddir graphics.libraryarp.librarytrackdisk.deviceconsole.devicetopaz.fontPRT:CON:0/0/640/150/MASTERSEKA V1.53 by BUDDHA t.s........xnzvcDangerous action: Be careful! Illegal CommandIllegal DataUndefined ValueEnd of FileEOP Illegal Operand Workspace memory full** Warning: Insufficent memory to run Reserved WordDouble SymbolUndefined SymbolIllegal OperatorFile ErrorOut of RangeInvalid DestinationNot doneNot FoundRelative mode errorWord at odd addressNo SymboC6lLOAD without ORGIllegal SizeMismatched quotesInvalid Addressing ModeAddress reg Byte/LogicalNo FilesBranch forced to LongRelative Word/ByteNo ObjectNot LinkableLink Option not specifiedNo File SpaceInvalid DirectoryIllegal DrivenumberTrackdisk error No Disk in DriveDisk is WriteprotectedWarning: 68010/20 instructions used! ; 68020 instruction!Segment loaded at $No Segment previously loaded! Unload Segment at $Missing ENDM Press ReturnSEARCH>KREPLACE>KAMID#,GA: A-assem a-srch back b-mark blk c-copy blk i/l-paste k-cut lineAMIGA: q-quit r-repl R-repl text s-srch S-srch text x-cut y-del eolCTRL: a-page up b-mark blk c-cut d- del eol e-crsr eol j-srch k-cutCTRL: line l-lwrcase o-inst line p/f-paste q-crsr sol r-rot blkCTRL: s-100 up t-top u-upprcase w-write blk x-100 down y/z-page downCannot allocate memory at $Link option broken. I'm trying to fix it as soon as possible. Signed: BUDDHA  mode errorWord at odd addressNo Symbo˿zSwitzerland. This file contains a quick reference table of (hopefully) all MasterSeka functions. CLI and/or 'MasterSeka.startup' file options -------------------------------------------- Syntax (with '-') Explanation --------------------------------------------------------------- -a AbsoluteAdr : Workspace at Adr -b Scrollbarflag : flag: 0=none, 1=right, 2= left border -c : Workspace in Chipmemory -e Editorsize : size: number of editor lines -h Historysize : size: history size (default: 127) -l flag : flag: 0=linenumbers off 1=on -r : Use ARP filerequester -s Screendepth : depth: 0=window, 1=1 plane, 2=2 planes -w X Y Width Heigth : Size of window (set either parameter to 0 to use its default, use PAL/NTSC size -w+ X Y Width Heigth : Dito, but use workbench screen size -X : Close workbench (only when start from WB) MasterSeka commands (optional parameters in '[' and ']') ------------------------------------------------------$-- = : WorkInfo >[Filename] : Copy output to file (close file with '>'!) ? : evaluate expression @[Command] : execute CLI command a[Address] : assemble (for options: see below) b : bottom bAddress : calculate bootblock checksum for Address c : compare memory ranges cl : kill source cls : clear screen d[Address] : dissassemble e[Line number] : edit line f : find in memory fi : fill memory g[Address] : jump to address h : WorkInfo i[Line onumber] : insert line j[Address] : JSR to address ka : free absolute memorylist (see 'INCBIN') kf[Filename] : delete file kl : kill linkfile in memory kp : kill paste buffer ks : kill source l[Searchstring] : search source for searchstring m[Address] : modify memory n[Address] : show ASCII dump o : old (get source back after 'ks') p[Amount] : display 'Amount' sourcelines from current q[Address] : hexdump memory r[Filename] : read source ri3|JC`t:a$p,a:]Egv`:ap,a:EC0kEgX`raQNuSFCDFCCACRUSPVBRCAARMSPISP????fap,aR:`xHE:apHEp,a<`0 g|s?:2YAEEg a fCBaalp:a:`JUka0a|`p-a0HDHpaRL`pSazpR`tpCanpCahpR`bB`FB`pUapSapP`x`,1] `$2( `tQPQ2Nu2 (faBBxDaBxAIdNJgp/a<l.g(g"a0ap-ag <gIR`a~0att/R<4fNua`a0-@`vEXG EXG EXG ILLEGAL- *2:BP^ (N.6>OR.@ AND.@ SUB.@ ADD.@ EOR.@ CMP.@ MOVES.@! BTST BCHG BCLR BSET  "*208@HBTST BCHG BCLR BSET MOVEP.W MOVEP.L MOVEP.W MOVEP.L MOVE.B MOVE.L MOVE.W "*2:j@LT>NEGX.@ CLR.@ NEG.@ NOT.@ 5mp&TST.@ MOVEM.W MULU.L! DIVU.L! (NBCD.B   SWAP PEA   EXT.W MOVEM.W &.\4TRAP- LINK UNLK MOVE.L MOVE.L  MOVEC! MOVEC!  (08@HRESET NOP STOP- RTE- RTD!- RTS- TRAPV- RTR- JSR CHK.W *&"  EXTB.L! LEA D$,4MOVE.W MOVE.W  MOVE.W  TAS MOVEM.L JMP-   EXT.L MO6F.VEM.L ADDQ.@ SUBQ.@  Scc DBcc   (0.,*(&$" BRA- BSR Bcc MOVEQ 2OR.@  SBCD.B SBCD.B OR.@  DIVU DIVS 2SUB.@  SUBX.@ SUBX.@ SUB.@ SUB.@ LINE_A (CMP.@  EOR.@ CMPM.@ CMP.@ 2AND.@  ABCD.B ABCD.B AND.@  MULU MULS 2ADD.@  ADDX.@ ADDX.@ ADD.@ 7 g5ADD.@ d (08@HASd.@ LSd.@ ROXd.@ ROd.@ ASd.@ LSd.@ ROXd.@ ROd.@  (:864ASd.W LSd.W ROXd.W ROd.W LINE_F ?????? a ` za` tH@a`H@aH@?Ha0a0<9o^` F[avHaLpan?B@a n[0NuH x$kla 'JlLNuM*N(NaXJ+[k [gJg<qg İ<Ag8pJg[fʰ<g<gz<g<g$<g*<g2<gR<g< g <`g< gr<gl<bfj`^x NR8!cRa TfgLa >S`xg< NR`xg. NS<a g @a `a S`,LBHJf\AJgTpx"kdRgxJ(fJf:hl4D$kd"JhA  f @J g J fRBeA"JfLNuga `ga |`gxa jS`nHzjga XS`Nuga Ja Ja BS`NuJfx/aJkSJ"fR +db$@xAf _M< g< ea `a 2(N`/a +doSJ"fJ"fRl$@ _M`a fNu/p a p a Nu,x +fC[pN'@,k JfCZtAfN.Jg9"d5L0Zl"<J+[jA`"H~BQ*<p"x )2f:<p!E7@Zg<g$f`C Z<gfJf< g< g<"g<'g <`g`C;$kgfB)H$<A",kN'@ rLJgg< g< g<,fCgR<,fB)HaLJgx$CfB)HadLJg*H&a6aܴL`BHa<Yb8OJg<e0g h`[AHJfB(p`4g [h?,kYCHrpSgJfS(IN LJLVk6g4B +g*J+g"<f/ԂkBtafJ+HgB+H$NuB+HBGpa@Aar` fAf[`:+[g> @fAf[[` f[NpL=oVNuNpLVNuaz,x k$hVp*N%k, JN JNJg"@$)6)Nfڶ<EfB,"k(%I i6.)gX'Pz'P +0NpNuF a.k9F.kBGA*ah*k aaN`.kaTS+[k8Aza+<Yg"<Rf"k +Ԑ,xN.B+[`az"+g,kNaa,xN| +4g8$@S*6f0P7a j< "k""$*2"JN"J N.Nv$+YgCZN"BN>,k +g @N +g @N,xN| +g"@Nb*k +[gMN.M"MNb"kNbpNup`p +[g <Ae <Zb('$w; f< g< gSAf`+[g/,xC1tpNJg*@A`"HE1"E"HAZfWH|.SfB"LE""BPBBBCZfMN,M"MNb,_ gA~CZfA~[H aHL@CA~f` ,_A.aAJgJg .fNufBNu/"+ r,kNJkVѫdПNu"+ r/,k/׫dNА,_f@Nu$<A",kN'@ rgNu,kA"N$<`a^A1`aA2`v"+ rB r,kNH瀀A-at +daиa(,A-a` +da<)a(aRLNu,k"+ rgB rNNu"+)( h8gB8,kN[A  fR[,k +8Jg"tN/f"gNA2`"At$NJgJxk"8g a"'A8a[gXNu"At$N +aA.apa'N +aA.atpa'4"At$,kN"At$,kNJ@gv?<Jxj +Aaϐa&`A.a&A|rg a&Q`a&Qpa&p|a&,k"/At$NJ@f\`SWfa>`A0`H B+[*,kN"KZt Mpc QBA.~fSB(It$ N"JgPpRJfS`AZ`fRQ/(N."(N"fAZ *):fB`>Jg /fS: kCZt$IJf<>$I,k N + @gpN",kNLp0NuBdg@< g8<Bgr<Og԰<Ig<LgH<Sgܰ<TgfS k$<s.a|a kC`$ "<vRf< <gVQ/ax _`J+[jHa<af<,k JgSf.N.Jg[ kNNJg[NuSa&`taaPa$a`p kfJgzt<Cf+0[taaE#H6R)#H (H +(~0<9o^QBE. N&G"LN'@,g"@#KXp k(( RNNvLAY4C! 'HAI! B`J> Ns/ aH`'_oXCgCgCg7_'_ x()f +l$T7_'_`> + gG| f'W~A`C~"Q~Nh'H.k9F.k.-WK +'@zCPf,gf,F0 VJf<`+<g\@UghSgjSg@YgBSgJ 2A$uaB0aa8 +'@za~pza(a^a`A$`A$`0+Hg0+HgS@g`NA#`A#`,xN @C!I2!kBBNuJfA#RC~4<avaQQavaQ +f )aaaaxaap0a2AE%XvAdaQaL,xp.)ga:a~a4 aa**QAܻg ga^a aT`A%g`H?KN "L?NuNz(Nz0Ns a4`BB Dg dgt ag /.vęAf.@@@@B N`/a2/ AEar$_g4 _aaD|`[gC"%ga(`+[g \a`NEt(ԂaRSA`RT F HILSCCCSNEEQVCVSPLMIGELTGTLE<LJ(2[f&<R`Jk ((`((H( CN::BPT\`tzxXN|*NuJgSgSgpL`:a^0ap)`0HЍUap(a"pPapC`a>2Ha`h<Da<0`D<A`p#Jfz`x`ap+`p#ap$`ap1`a`g" H`" 0HҀa `aθ<g0` 2Dg`7@Dga|gAd`B?k<0+DtPQQ7AD`aaaAdalaUA`aAaa|f ?Sfa~Aa64`aA[a\a`AgSAgaHt`B+A}aa<:g(Jf Fa<cf :30W|b .0X_B`:a<cf |b Wa0Jf |b ZB ta`aaA}apaSf^BB+<`aaAg@`aJAg0<0|@g0< abaf|b0+=a$aT|bN8D6CDCCkaaAd`8aȀAaravf4 f8 +@[fk<k<A|`aHg?<`&k <a<cg<agJfptaBL?Nu|ObNf +fRBBBBA~ 0 ra`a<afNua<cg <af<y<?FF<fD<F| b8+[g0"Yg*e/ xAB PJgel`B"r  ffNut Sg ragrcNu//a<]f $,*rafNu`NaJg,*,<ag&<cfa</g<-gNu|Nua<+gR<-gR<*gʲ</g<^g<&g8<!g6<~g4<=g2<g2<.g<(fv[a[ڼ<zg f(6HöfNugNuz|<(g<-g<#f(afR|NuaD8|f:FNua<x<Wg R<Lf`(6a`BEF Ų<-g</g|Nua`?a08Dż@g@gR@`a <F<cf`F`A>`ʎaFڀ`aZ`ahʀ`ab`a\`"7GԤaBW`a:]`a2^HHJgfA>`FafJgJfNu,Nu|NuafJgfNuafބfNuaa`86H@HEH@CHEJEBEڄNuarJg jPDJjDFHA2< xd؀ۅلQFHAJgD`a"g SA`aQ`z`a<cf8<g <>fޚjf 8D+f |2a<,g(<)fFHa<+f[fPF`Nua<cf<lHHgaaJAg<Wg <LfPB:a<*f,aH<af>2<SgASg AUgAYf$[aV<)fI<{grc`<`a4<#8(A(PbgR<*g<-g<~g(<[g&Nu +j+raNuaʲ<(gD`r-NuaF<af2JggNua&gNuagNurapBBJkJGkNu`4A(<d<DgP<Af tprcNu/ EJ+[jE/a$_fNuUS?S=CC>SP>SF DF!CAC"USVBCAAMSIS *gBg@t< g< g'kY@Y<'NY@0< e`1<e <eAt<$gFt<%g>t<@g6<;gް<>gְ<"gذ<'gа<`gNu<v x` vkx0< e<e <d$9.*z dHHJjЄ؄؄؀`St raNuAA< g6< g0<_ga<e <e< d0`A`< g< gSrbNuJfSBANupg6fg,g`raBBNuga`A9R`A:f`JGk@Jk'k r ~B rA4`'H zNuH@"+ zg@<g:< g4Jg0 A'H zC8`f H>A4`$'B z&<"+ ~aL|LNuA4`$&+ z"+ ~gaB z"+ ~B ~`Bdg< g<Ig<Og<Lg.<SgV<Tg>`taA",kNj'@Y8g~/A8a$ ЀЀa!P`$gAY8 BЀЀfA&;~J8`#/A8a# a!$a#a,k"NdS$<s.aa$kZI`$ &< / a$_g" 4fS"@,Ja4"`Q| ga` taBaA2a^fľ$A2aP&a a <-a,a @a a tA4Pa#`af$ztA1waԸf x>l(A1~aԠf b*A1zaԊf$gЅb "ʂgvf Ha&L&ana2LNue @C$B2<pИdRQF"afA1a" aX'&p)a+`!Hp`Hp/ah x((>ztA0af x>l(A0aӺf |Ob*A0aӦf4gЅ|Pb 2`4AYDC[Bg 0<e`BpBQ,xNEY%@"JNA2CYHIYD(prNDJg B,_A5b`'JYVNuH,x +YDg$"@3| B$N8CYN"kYDN>BYDLNu,x*+YDg"EH3|N8L3C#@(p #B$#A,N80t)&) A/|g3|N8A/ <fA4`P )fA4`@Jg(A4a L aҒ` Ha > aA0a 0 )(az` *Nu< g<=ZgaSQa2+tgaSQaIgA['HVJDnNuSkjV gPAY%Jkg S gaNaIRk7kh0+A,Ha gAXaI~AaIvaIx`ItNuJAkaS(QNu|BjBvBkaBBkJ,kRkJJ+Kf HaNL g'NV'NR'OB'kj~Bk4[< g< f[a v<bff :g &=fa!a d<=fa `B<bf@|[ajf.a"&g|f`F+[f6a!a $<bf ar7/<?g<\fjgg`0f R+[fTpW`P< lJRAg$Sag<,g<;g g`0+X2<0XQ`R`M/ 'OBBk4a<bf6 :g &=fa a<=fgB`<bf|[aNaJf `fga *_`,kJfSX` k`g<;g <,fQNuSNu,kPJf6Bk4B0|gc|g c |c"|c(|cB`0ta:`NuHaP`@4 a `aNR,Fa fJGk!tОa `a.,Fa JGkJg<gЫj`Ыv!`fAj,Nu/ a$_NuAj?;AEHH@C&Jg0 CfJj R @0JNuJj Z$@` INu4Y%sryx=g}DDPD"NS SBCDDDD DD ND LIG`SaEgNfSECH@CLTSCdzCetHdnLehGlbGn\HbVLoPLcJLmDMk>Pj8R`2L Vi&Vh M @LBTHAMPMм &OD6MP MP NO MNSNEA^INNP,SSISINE_ TINE LINE_ BINE :OAOVJOVEH@ OVEp $OVE UL0UL(ACROVE&OVENzOVEED OFEG@BCHONq LISAG9Ҁ DRCODEf X_fC$[`&pBSS_f f[` BSf+@AnHAA!j4BB"0 'Aj'A~R+4JGjfPz<fҫ'AzNu@`.af a'@j'@~NuAR`aJffNuaJ+f'@67|4JGj'@zNuAQ.`ܬaT<,gJAg\<bfgPJGj +f +jvfapfaf aB<``2<Ca AB 'Hz`NuAQd`8pJg RB@`aFJjB@HGFWHGNuGNuNuHGOHGNu'N`'kJdgJkJGkaf kf!<azJg:<:gP<bg<f,k`7kdJAQ`ۦapCgCDS+.fNu/ga,_RRkJB'NV```+mgfNuat/az<af* S"*+jDʀځ`pa8QNuABg2< g< g<"g<'g <`f&g&fB NuaHaa "tvN"+ rtvNJk6"+ rtvN*k$RLCaLJgV<,f/a**H,x$"@ QPAp"g Af`DN4JgD @Cp"g"A`"B P` aH‘$&Bda:aLCNuaLCNuaAQa;* a8va;&`܈aa/ka <agpJft*(g,<Bg&<Wg<Lfa"`!QNua`1QEĞNua`QNuڅڅ۫jA40 "+z Akll'HzNuXNu< g< g<.f< g< g<aeNuSBANuAM`0aA[<Bna Jg <af<qgJ<rg f<Rg H<sg p<Sg `<tg <ug <xg`<yg Nu<g [f 8<bİ< g< g<gΰ<g<g<g<g<gt<gL<gİ<g<g<g<g K̥Y<gV< g<g<gJ<gB<g <g~< g |<g <gx<g< g8<g\Nua.kAiNaX[AC|'H+[~a [`Bpd`0+Z6 k vg0+ vS@k *fNu"HaLGar`dpd`0+Z6k vgk v fNu2HaLG0S@ kZa~'HZ2+Z6`$/HѫNH@0+Lk vS@A>r Pb JgH@PH@XQ"NupapaNuanp *gJ*faNu"<gJfp`Nu<gNuJ*ga @ BXBNvLB"LpfS@f$La(k4(l8INu,k NLB`HB,xN| k4 (8g @XJjR$Nv BXLB(`aɎOO/Ɏf /pal <f k4 h8S(`NcH(ap a[4aj kZ0+ va'HZg k`ޱfJ*gB'JBd$<s.a16a2nL$ Lg*f$ (HH(&Sga2vA_$a2L`$ &ga1a2T`vc/ <ae<zb@f(_I`~c/ <Ae<Zb@f(_I`RcH(bL LR/ Jf L(_/SSg b(Wf(_Sg bL'JZ2+ vkLgaLI`g<g a|al`NuH~a@aMpa8aZL~NuHBMC<aefLBPtNuAdaJ+fNuaAdat`tx`AdaatJ+fNux JR g<fa kZ8+LJk J(fRkLCfkL`°<g<g/"HAg<aeg _` _'HZJjbACprRJfRJf kZg.jRe` k"kԓo(SZbѫA"kZg`X`H‘,k NLC7DL`A<@S@d&p/ &gR@JfS@,_H@0+Lk vS@ Nu 0g` p *fp/a7|L k azH@ g JgQS'HZX` k fNua'HNuaKx/Ma<a,_NuA\afF$Qmc~A\a&o6NuA\H@B@H@a`WzA8v0`A,v0$"p/R@dԁSgWVfJkp RSaWD`;B@'d gA8'H+[+[~ana:B@aW:BkBkBkBkPzBBa frnaa fVA\T +'@'@z0+g Ha$A\:P[aL[gAaIaLara&"+mA_'`LNuBGA]aL`R'@jB+ +j'@z*@a`/ aJ*_aLl<gLMJf `/+z.<Bk4a#Բ<bf|[aNa#Jf%8pAaW0*_a aLJjNu aIR[a<[Nu + @g@gP< g< g<"g<'g<`g aSQ``g  Sc[xt block belonging to the same file, too. So we have two ways to determine how the file is build up: using the links listed in the file header, or using the inter-block links. Anyway, it is much safer if you select the file header links, if only one block is wrong, you'll get a lot of rubbish using the inter-block links. Check Files - Selected This function checks the selected files. With the Standard Filesystem it is very easy to determine if a file is ok or defective, as ea Tmch data block has a checksum, a pointer to the file header, pointer to the next block etc. This is not the case with the FFS and there is no way to determine if a given data block really belongs to that file. So, even if the file passes the test, it may still be corrupted. Check Files - Deleted Checks only deleted files, so you can see which one can be undeleted. Check Files - All Checks all files. Undelete Files - Selected The first thing this function does, is calling 'ch U,ڏ;eck file'. If the file seems to be ok, the file header is inserted into the hash chain of it's parent directory and the bitmap will be updated, but the 'Bitmap Flag' will change to 'FALSE', just to make sure the disk is going to be validated after this operation. Undelete Files - All Tries to undelete all deleted files. Copy Files - Selected Works like 'Show' (see above). You'll be asked to enter a output path/directory, if the directory gets full, you may enter a new path.  V>Op&If a given file already exists in the destination directory, the program will append '.2' to the filename (if '.2' exits too, you'll get '.2.2', don't tell me this is dumb, I know that already). Like 'Check File' you may get some error messages while the program is working. If a block doesn't seem to belong to a given file, you'll be asked to 'SKIP IGNORE ABORT'. 'Skip' means, the damaged block won't be copied, 'Ignore' the block will be copied, no matter what is on that block Ww, 'Abort' leaves 'Copy Files'. Protection bits are preserved, dates are not. Copy Files - All Copies the entire disk, trying to recover as much as possible. Wipe Files - Selected This function clears the file header of a deleted file. Utilities like 'Diskdoctor', 'DiskSalv' will try to recover all files, even if they have been deleted. If you don't want some files to pop up again using one of the programs above, you may use this function. Be warned: after this operation you'XAll have to use a disk-monitor/sector-editor to get the data back. Wipe Files - All Purges all deleted files. Delete - Selected Deletes a file, i.e. the file header will be taken out of its hash chain, and the bitmap updated. The 'Bitmap Flag' will be set to 'FALSE' as in 'Undelete' (see above). This function even works if the DOS delete does return an error. Delete - Faulty Checks all files and deletes those with errors. The program may ask you before deleting a file, if yY<\"ou wish. Info - Device Returns some information about the selected device. Validate - Disk This is not the Amiga Validator, but my own. The main difference between them is that this one tries to repair the disk structure. You may get some error reports: Loops in a hash chain, wrong or unreadable file headers, checksum errors or 'key already set', two files claiming to own the same data block. The usually action that takes place, is to ask you if the corrupted file may be delZPeted. You may check what exactly was wrong using 'Show' and 'Check file' afterwards. Recover - Track This function tries to get as much as possible from a defective track. It uses the RAWREAD command from the trackdisk.device and therefore works with the trackdisk.device only. What it actually does, is to RAWREAD the track into a buffer, search the syncs, and decode the sector (this may take some seconds, the routine to decode isn't very fast). If a sector sync is missing, th[E; e program tries to determine where the sector has to start, this works sometimes, but is usually wrong. When the track has been decoded, you'll get a window displaying: the number of the sector (1-11), the first 4 longwords of that sector, if the checksum is OK or BAD, and if that block is ALLOCated or FREE. If an entries is red (color 3), the sector didn't have a sync. If, instead of the first few bytes, you get 'unreadable', the program couldn't even work out where the sector\1 should have been. If you are not satisfied with the result, you may click 'RETRY', this will restart the procedure and usually gives a different result (if the track has a 'hard' error, i.e. a damaged surface). If you think the result is good (or good enough) click on 'WRITE', this will format the track and write those sectors back. It may happen that the track can't be formatted. Click 'RETRY' several times, the defective part of the track may 'fall' into the gap at some poiG}+Cnt. If this doesn't seem to work, pull out the disk and insert a new, EMPTY!, even unformatted disk, and write the track on this disk. Now comes the tricky part: back up the original disk, and copy the recovered track to the backup with DiskZap/DiskX/Sectorama etc. Hmmm, no, much too complicate, the Amiga is a multitasking machine! Backup the disk WHILE FixDisk is running, insert the backup into the drive you have selected and click 'RETRY'. THE MENU There are actually only t/^.EJ^gL3]KcbgbagS*nՒ tn  ||o@0!YA:}EIz9h24KلYA9Ph H ̌, >?h##/,+qD*%@ -~1@~LA|P H{Oi*:2>h` _HYq.>I~k`k fʘz tr*rP\K?H:"PA-4--iA?0 ΜQ@``VA-MHۆ"79~1`\D`rPrcjlbBcɎhtW@lmkILL41.=@데\&񴳱52s T#|& &PDt?7'2=RsqAā(VߠA@T&: 2iWÜ. |"W_ S%<`b)O% 'W\e0 W*-\6Lp1B>KHF}{.\ظpb,0 \pL"8&rjSt F$4Ih!^r` &Lx~ r`&xHh&G@À0|`82} qGc!},YDE#0`"a^ŀ%0 XEI0 ` +g0 HȐf|`)Kc*0 `P#!B A0 `!1AF\,BΦNE\,<4vw思,L IM - lML@ c ߀$y;~o|u?lgp *A#zT',w4[ €H5 (P\K?H:"PA-4--iA?0 ΜQ@``VA-MHۆ"79~b directory structure and functions to undelete, copy or show (even defective) files, fix corrupted directory pointers etc. Everything can be selected with an intuition interface, so everyone can determine what action should be take place by himself. Now the bad news: The program does not keep track of 'loose blocks' i.e. files without a file header like DiskSalv. It does only work with disks / partitions using a maximum of 4063 blocks. It may work with larger disks too, but I don't c7Ybhave a hard disk, so I couldn't test it out. Disks with more than 4063 blocks are rejected by the program. You may force the program to accept <48 MB partitions adding 'DOOM' to the command line (i.e. 'FixDisk doom'). As I said before, it has not been tested and should only be used if anything else failed, and you're just about to format the partition. USAGE: After starting FixDisk from Cli or Workbench you will see a set of gadgets with the available drives on the top of the winddxހow. Choose the desired drive by clicking it's gadget. If the choosen drive is a 3.5" or a 5.25" drive you will be asked to insert a disk. Now the program starts to read in the disk, cylinder by cylinder searching for file/directory headers. This may take a while, please be patient. Beside read errors you may get some other messages at this point: Block 0 has to start with 'DOS' or 'KICK'. If it does not, you are asked if you want to fix it. The program couldn't find the root block e[and FixDisk wants to build a new one. The disk isn't validated, the program is going to validate it. There is no root block and no file header on the disk, the disk is probably a custom disk (or the Kickstart disk). FixDisk won't check anything (and won't let you check, change or fix anything) except read errors. You may press break (CTRL-C) anytime if you want to abort this operation. When the disk has been examined, you'll get a file requester on the left half of the window. Thef first column shows the 'key' (the block number where the file header has been found), followed by 'DEL' for deleted files or '-->', followed by the filename. Red (Color 3) entries are directories. Click on the filename to select it or shift-click for multiple selections. Doubleclick a directory to enter the directory. The right half of the window is filled with 17 Gadgets. As you will notice some of them are disabled at startup. These are gadgets that will write onto the disk. To g&enable them you have to choose 'Write enable' from the 'Miscellaneous' menu (there is only one menu anyway). THE GADGETS: Directory - Parent This gadget is part of the file requester. The requester will show the files from the parent directory. Directory - Root Same as above, but steps to the root directory. Show - Selected Shows a file in Hex or ASCII. Like all other commands, the file is processed without using DOS, but each sector (block) is read in, checked and displayeRK]d. It works exactly the same way 'Copy' (see below) would do, so you can use this function to see, what exactly can be recovered from a defective file. If the file is on a 'Standard Filesystem' (non FFS) disk, you will be asked where the program should take the file links from. Each block that belongs to a file is listed in the file header block (and in one or more 'file list blocks' if the file is too large). On the 'Standard Filesystem' each data block has a pointer to the ne$i\L :(z s2)*5'`< uR"} 89@l%{ H Bτ6PJX`@U0g1%F2"!]*UZH#$8 B"nXCBW*w3t(BTFƵ*߬p Y q#P f%9, " #Әl,xĠ>6r1VBp!`iB&%T'06%30C/)$x!Ђ:P"1 >@&q&%j޿OK8@H 8) w Rf6`p:`@Iz.nxB#B#bcHPdH 8@:?ؓa#/+w*.pDKמb 80!^]U ]nBd/py. CFl${m%GDl &i0D (~dNBw f/r ? &k5dPxB! @Jbvh4BM7h*rPTp͞zA"[M5YBI`@H@4&% ͎42.vLH-ٍjLq. X+c\,͈T(bR`P%T e cYdCDGPKeZz @l8r paV>[#hD#jN%[H`-M [2"% ݒ@s s2  DD6V(?˙jy5?@ dT_bɧҸ(_>/N"!x"OP!J1N懪AsG $Lz(kePb mHfr {AR>GġsgЉ$$/Z֏L&T BZ-0G ܪkf('@D!"0 ?=2)Z[ (mlPN`-p9 KʺR*`@8 >JYP(cL /@,@aQC4& N``7@ (yBhr3XF@ f J Z `Ǚ_GeYel @,= AAp$3sa2|| #c+ IGP~~4fE?̿Ԅ c>` 00 M w'ӟ b}X `j o@0!Le/z9_7'@z\7 8`p,EŜ.8|p"I3&Q; ~d(&(2uq!a]® \)0 y+\0 Iȳ'$l%QNp`T&f*``8"Bc„4)n 3X (/ 4hz|+^` (?M*/UO9B7J C?P@( ~f8,Ӏ'iUr`DeBi`R,(3q=s}lqo?dpHT?(3P M MMd2 t #0 '\k L a(|k/De@H{"Ukv137s#Yv ]$26d0 9%jf1>@]q t(|gE#l{<%jSH(D$dz-}R^.4POmPǣ?@')hc "D@߃:!dPb"g02@A@P&2rӊmj$/k*k(U;EX]$KPʧ|tq l|5T 3F<u:0 `/P#7~`8HmmSLR28l`#`sT 8/, @LƀELaQ#*'b6.p,`X@"p}/|)A0=!1 RZA0VdlcfN J+pxA '񐏘(w1xFhz:2(N9Dkn$ ,Deh`T"\:]XKA ǂ X:F: _!3# ?+kɥ oUh^`K+\f xU#|?rJ12=.nTYV0~sE# ,$a^&xq?zAcb#AH.TY9)[1Pz#F*>a8-@R*z}HrpV,qDQ*/#˶~B74XrA,Y\#2E G$ Ym!W33YZ yJ \i-ȣ |)+CUPmt'1_!V}jiOg P2Ql)_5W!->7P<: A(-g.N1T xMjPNJl)Z+8X40%-{\N^ITNIjf~]='K@Ғq7r xl`>ե$d@ 1ƽ݃7<9&%*_sǗ{~[6{DÆqGg E5"בUz/)p mFC0 RFAzfi@þ:(Y#@Oz21qٚvG29tQUy?yU .]22?o\C~8'jXj0YP_}^YJ?{~`0s 4  (O*6pL_/ܤ6GSa (!2SL%zrayMr;"; a@m|o_z^i'S ? N bhؾʶk`3(.ce`Qplj7eɔ% F  3tK(k+=LRr9)2|R&iI!GMpiA16@PGobjcǃ8Ԫ!/n:?[)C졇:+Z C8nHEG,(^g%'PP'QtV @S@TH΢VׂW' rpP e*7E"XH$*`(A mA}C_NXlxH؀`r@lf'*W!DJX Ն[/}YQ~ v&hjhj$&]@jl`.<ɰd 𙀦P3ޢ 7+$Hd.78 $5=$dq d_ &CP ?Ďrrr~@?i@Eu쀠.[Q%`O >ը$|PLjA} %sKМ/'`%fd0<@9@cSy$Dne)t99-pFaCXP!ȎbO5 8ׂ͓%qQB fu,* J $N<#=hHCRf`2^$`3=!2 O~7hh(xL P 8\  J>4~+j q?MuXk (Z~~ o:IK:pa%QB{EP>&?(Bfqp8qg `B"^,&E=@ >W#0r9yaW 4@ h" *D|?bK"f52'~`GwҀ0q G[P4]0)m`@ Ek  0:N&ngXˌˀ5P_gWSc|}bf0Q؁Յ҃. ]DED  W!@A?-÷]+BBAȜY %DrG$ߍ ^` R2HTH;r1Fz*p [v_q8;PBdy1CH dҠdmV--,RTU1A0x@&9LtLv6 Lpm%7ȘBd008jfFb|@W- v řqNXEP#=/FI5nDoaX(V0RԐ@*t *p1ICZF }3r1;@ %{-]0 ~F (_0CL:"M5C %Tf(QKI^ Le0[dE< d&̏ 2 uan` y3Y XNc }}`8ឌ(E H^i ֑W"H1s76 t$f!<5& ja{4Τ/40 4 pB,kUĐOuwCJ%G 6X@iLaZK;&[0A逡Ca4 .[ `@ `ryɵCd&>,$`"xM1Ȱ4̖:*Eғ):ȔAft= v?T= fQuK^r]~w$r: < QK$'$H.50z9zݭM3Tև!4@x#tF;t<*#:@Dp!! ]`db#ށKtBbL)-I')Zj HS'eLdg i(Y'ڟPe`6\! ? x+UO@o򲀺SXGGN>#y\.~f[qA 1[`O{ByPݝێɠH8(?xZ(G h@j&,b,,IX,G !C"@ACJA?!,>VuI' tJȀhL>' J@,:.,#d(' UZ$Y )Q@)IPPP OU0!2X$A 鰟s xH:L !>S)P .@uf> m 9h~?0+!6 B#" !# N?}$x%߆kc' BLÎ# >{Ԛ4zǡAbPpI@?Ai1``f9 ;>t.,`*!!sg?R` I 5 $0ogc,|hb  I8`K LX ( bA-h)`8ze^y9J1``.Đjo0Ͳ]H0XA !a*lR?(PBL QOp2 Ē{DDq$~HFwxTK%Ⲙ؃h $3'"FKʎ0=+3'1?KTpinbtia (@8Ft}VUo g&3$Ge q$ 6%{Pu$: W2#y!0̾" 5 Pǒ0"dIe7f\DdaXX `O< ɹ<|GN|(|F$*mb 6+93qqНDaI$H#R q ?՜2@*O6QK8p8=K&?DF֪ 'O  )!-1=yz@ |Q%ce@ Ȉ/ Ҕ$&pپ=M,;^ { @R`.#`9Ћqd~H 0F.Ȍw!ZĠ~ ( M0?A93ۦɲ,J t1b|qjPd4d)'$F͞xD8Q x l )\Ђm5EF\bF&dTJrzō4*@3DB0@(P'@wMT ' _ 6-(IE :$4˔T?$(lzu@,׭0{8z)GAH;wA`p,"+;OXAx/S ΏQXZpQ"! TGgՠv P` {I Y(Ea 7P0 Ad8⠆¨Bx$o :;~D6¤+60 bRx#H) l17GЀ4I!$dVwDԘc0% ] N$JJ -)塂A^ PO uQ{ H5V`bҤI %m#"!)PSTN< "l\`{2oy>r_pCnw~ďfT!y7ry, AA-@q(kDvpMq2 8mLtG (0`"@c!pkC$\ʈs*<, *X$mh 9Bߗ@tr(L8XC Aʆ AG48" IDLM=" #|t?h^՞iPGR,$a? ,PC-TCoQ HDP@܃D€c*p81 T4HDz8^rh$ u708_Sw7 = un<j"P@# !GCICGy2OH"'!@xgAW@į,T``bb$9 4X 0aJ9e "@A<ƇLz`qܞ=aH̐j1^)!E8%9XN0e- 1Eg0n郷cp Je3(AJFii_G@M}FK*I2'0 "k)Y3z:% #d3q?P fez~b3w4AK` DYpq3g]2xLg APa6aF9.y^(#݇2&o Xlo;hf*Blw!%o "i3ǎ@'HCܳ# qX`?׀2^>(#yBx<(!YCG10aHLg"`o6Ai$mDCB= G|qCfʼn@ ~s+~A>ZcDc MWX  T &PG_E iufJB>bI}1NN% cTqZ^B7;pL28c @YviQRgdM:gHD0  +8ᛑhrO  7/χ nD'ZEB?XX)%!OY +D@7.PT3H"v Hډ$Tez>H%AdB)H|&%?AYryh EyNϠcRjKPm YX=uHݤ;J5 EA mp{d40A˲#0`pI?LQq\<Bm Ht!}C馪 +X^# Š&"TQ9"pAd0}X $: Y- |hȸǬ\Dl'<ÐCOɌ`R941Z> r BI1!>mbh:̄i@6I6&)9 }|pPjfp69_m3F9h ?kByb:fNpDW!^BD{1 CNù\btF=YظC0=.EB  钪(&{0Zb)-A(gd-2t f PmeĶz~rCp"qmCȋ>+3(; )@S(l `B!fm+` ?CF> Dhvue(Hrp p 1M\D;7C,L?B0dz" <@1 TH$8Հ F Ҡ@gFXF*: ^]ؾᄏ 2H(JU1exD$mh4@ybP"JףA 'Pz"#->.0Rʐ@`e3."; 0f4h n '%+ƒRr!+OLj8 :@e@"@F}+7 xD0cm@|ɘޏtOƕ9 M-!zB )#+?VQ)dhTkx2HCE" ) "S(0H'`JXTn:4'U],^`$DPDNo mAS˸$[(#*KqbGf"^8 KI ;3t=9OHԏ׉Nd_)GfE/(4;ߟ(/%e@h#o(:K⦎Gx6R(Cdrd[?`2球&QP~ɯ(?g+ VS`( / \[QJ4 !xe.:zA k=*}ObuACɁ` A&@D<4hCQ̲9Lh3 ʞ�.yu`" M`z pDF` `i*FȆ C`a0Dr"6LCb#tM\RYA#0Q =?p3&?b;A$(EU^h&),@g<P A}"1y"71'8Q h%g'{ua D fzXpT ̌feA^2ylAy` K~0-??jKJ<@?{D*I"> T%a#Hwb|ICnrQpjA62D~R*H#l (fI(%30L9a{Šyd*0r]`]~~/F^ХLZT w-ĀVWjv oLi 9x_G8!:ŠwA)h Qa>Ol=ʆXRBR`  X E"@tv@3$0z D MH%A '6es8 7r S-|‰ttk/Pg\҃ET 6J7s|fqU; y/z>8P:&`CO\|%mǿ_|L%j 2y>74!'8x"M@EL:ӭ0k@ `ߴ%sf]%(m$@AVd_*J?FaT?10!4u84$V@.s{2Fy?O CbDo;A 5NpDbX! ,0YT]4TV9 K*%0% R EHjWl H-\v@J@bF3jɁMBG":V@У--ŅrXIԟ-"= ^ȝ  a)I@;@Hǀ]倫48&38 'C~ )h 8 Ykh;h^>,"1n `{dd2cV3" l r NJvΈ%a*~( 꼘ʬtUzxh&>شK=PR'3l / D PDO( 2 \LF&e,h& p}p(Dr."D)l0!@98Z7UVa|1Ŵ^F@(:BRbX0$#!>ސsq^s 30BF h\i0̳u^nK@@3)[@7vO dD$l18dPO.1Ǡ: < ~J6@} `dĿ@9J%0h2p @,},=ǀL) KOd_q!Qp"nzȠDÆi[@HeRP"QZL=J76xdg@Ea"=H&l~"eD=2A\ yQci2@23~u^x  veٵHR5X픜 'n%k s @+HaA>9KJ-# 8 *בHqf"$&$LKrlmrBsC`N]K4215.6c#xE+ 31|`)]_))α"; +_J ,hfPۂ SmSS$pFJf"P>F_8T`)E} B#z|C`xg= {{R\D&C`AIM(A(%,#42I_Ka8)D7A`$p6H,{ K=pWAc0aH 3e$PE7Ri~!@G&FTwv%GyuDN@v%NE8 Rv9* =%psd F\E(eh0FQheHm㄰p}= /`6$Az82b'En#XQX[hqYZZf\<XHGX 0pH$ lr'`*Nh\9fǰi DO@KB+@Qo(-n@n~ƿ) ɻ)9Lg&6&1e00&?ɌB`(CK#p2fA>`4$wE@(H* + F.8F8p(DVPBCapCA A` ^ Y>1AHj UB"@8 /݂ۄ_}D̀$D[2Rea89"PW`ŀWs.P)@>'AƼ1 CAWS7$ş|IJ/hxeN/ǝ\If~'΂ٮTYu,_OP1H 0y|6-Mڛhv۷ P?+OF)m#.U$y W2|:NYš))Հ>3>OAo?YK|ĈU2\}`lt24>& I2?vo\Y4; >)M35_7L9o={i:e?b% ^HUІ`T0 @b$YDs~g8ua "+HFAX0O|3RpP5q!"`OӷIԼ1$'рM֝@K"  &)`PS+j9eY' Ha A$4ј,  D9jx b@@S).Kr {tД?  MpT":w/> B% W$9(~@2!II Hԧ@LpH pN8F#$-u%  MpeI\5b  3~xlk'P%E옦 DI'ܡg8P+PKl#VHjm@c,mY'"XYhC =iBn`[ t tDM^I`~-7.ߘs%KGA(ѫ A'Р[-"MJHmP,E'!"פCd4 ނ%8Gt=y6Bcd4 Qҧ(g'4\G$&ad}t#@41A >4)WA|"Q t#Ǥ^<:dП䏤q6HR=n'A4_<U:X+V-pDiDJv&Ş~p.!-FM 0DSR[x3M|!~b L @2 d' A5I J FBT8 pQW$4 \yL0Jf*(hjF(=q=.Rx@Y& z[x8r8 iK1.ABT~K%LĐPF._HRJip2b.N T*Nb#$X!HsHli&l/G4YX2@S/dQC,NT"D/`Y*[lk!(0`a7=f;i- -;m`I`L R-R}RPP(%&MU4\U5 ٌ;Aๆ%5I8I`F/ܷq=Hj s tBD P^R P4uws=ăp ctt8Ay+W88b%lD:c2I~;rȨ nBh@ގ("118ל qЂݝ HV$Wil&~~<x(#$)fH0m`LS'E$ z "3GkqAgJ& @<ˆ'F a C  6z .AA069@${$8NfȈ Ӏ!| [/h.r%+=h2,.NK*JIw?@`à1`vqL Ԧ~F; 52[x L5RhhjAK2vD)pFxK- Vtf8" fJB^ B J!Ӹ <t050?bGiܸPRBi: 5}AcYP# | Mo7Wph 4 hYHSaa #Ѽ!,lDR7@Nd46BL(8/    Y><%$@D= ((VCAqS'аFv84?Q'_?A7 $M7Kbn_, ;6 h@[0-_kkLJPr:2O,)|ÅBA-PH,  A#`"@H7l3ǣ(>$nN6E @Ł ?ņ#? JOLLaS`#4\Ol.0b @I@# h  `U*((3\ Ȇ<I59RWL(S)V||:q4V ; ,ѴIXF؋_dO|.% C. kaĻ$!5UO-Ơ @I8H$!X:%0aDV`Y 3Yuwp:7< c O2HSXVX.n ?V8h,YwY$3|>E;@ 1DD +>$V-G rU!! N҃&33R4hf\pP@+~ʀ`L bB#o Hjjb :$W&~ FAZn=1r%C3e( Ȳ&# *IX+@:C@N"T).ra ƹci~ V Ğ+}$!T K@\XQ$\`><9xY՟8y G@m9 ~ƟDVشGQ,`΢ #" This warning~;wu continue on if you believe it did, indeed, work. Finally, if you have the CNC: device from Bill Hawes' mounted, Format will use that for it's display instead of a CON: window. FROM InDev: This option allows an input device to be specified. The input device must be a real device, not a path specification. The FROM keyword is optional, but can be used to allow FROM and TO specifications to be given in any order. INFO The INFO option lists some information about the proAgram, it's distribution, bug reporting, and other stuff. It should be specified in the command line without any other options. LOMEM This tells DiskSalv to use as little memory as it can get away with. As with the QUICK option, no scanning display is generated. However, some operations may take longer than the norm. DiskSalv normally uses 2 bits per device block, 8 bytes for each file entry loaded into its file lists during a scan, and 52 bytes for each directory entry.ߗ[ This option, among other things, changes that fixed block usage to 1 bit per device block, lowers the chunk size used by the memory allocator, and lowers the maximum length allowed for path names. MASK [a|A][r|R][w|W][e|E][d|D][p|P][s|S] This options allows the user to specify a protection bit mask as a filter. The supported bits are "A" for Archive, "R" for Read, "W" for Write, "E" for Execute, "D" for Delete, "P for Pure, and "S" for Script. Specifying the bit in lowerc(q(ase indicates a mask for that bit not set, a bit in uppercase indicates a mask for that bit set. For example, specifying "MASK a" will scan for only those files that don't have the archive bit set; "MASK WD" will scan only for those files with Write and Delete permission enabled. Any bits not specifically MASKed can be in either state. NOCHECK This option prevents the output device's size from being checked. Normally this would only be used with a device that doesn't pro:nperly report it's size, and it's automatically invoked with output to RAM:. NODOS Prevents DiskSalv from accessing DOS at any level on the input disk. Normally, DiskSalv does a DOS inhibit on the input disk to prevent any other process from modifying the disk during the recovery process, since such modifications could damage the disk or interfere with the recovery process. This option is best used when trying to recover from a disk that can crash DOS when accessed. NOPRU )ENE This option prevents the directory pruning phase from taking place. If the input device contains empty directories that must be restored, use this option. NOTAG This option prevents DiskSalv from tagging possibly damaged files with a FileNote explaining it's concern. NOTD DiskSalv does some special optimizations when it's recovering from a floppy disk device based on the "trackdisk.device" driver. While there's currently no real use for this option, a future version !GSof "trackdisk.device" might possibly not work with these enhancements. This option will turn the enhancements off, making a recovery from the "trackdisk.device" work exactly like any other recovery. QUICK This option performs a quick scan. The scan speed is improved by not displaying the block number and type information for every block. This doesn't make as much difference as it did in the earlier versions of DiskSalv; the "DiskSalv Scan" window routine has been greatly"泞 sped up this display. START [-]num[%]|ROOT This option allows the scanning routine to start at any place on the input device. This position is either given as a decimal block number, a percentage of the disk, or as the string ROOT. The start value is normally an absolute disk position, but is instead relative to the STOP position if the "-" option is supplied. If relative values for both START and STOP are given, they're taken to be relative from the disk's root. Since #Z many files are clustered after the directory root on most disks, it's often possible to get many of a disk's files back starting the scan there instead of at the start of the disk. STOP [+]num[%]|ROOT This option allows the scanning routine to stop at any place on the input device. This position is either given as a decimal block number, a perentage of the disk, or as the string ROOT. The stop value is normally an absolute disk position, but is instead relative to the ST$6ART position if the "+" option is supplied. If relative values for both START and STOP are given, they're taken to be relative from the disk's root. TO OutPath This option allows an output path to be specified. The output device can be any valid AmigaDOS file device specification. The TO keyword is optional, but can be used to allow FROM and TO specifications to be given in any order. 2.2 Input Device Specification DiskSalv requires a DOS name specification for its in%nput device. Such a name is automatically created by the operating system for each 3.5" disk drive attached, and for some hardware add-ons during automatic device binding process initiated by the AmigaDOS BindDrivers command. Other DOS names are created by the Mount command and the MountList file. On occasion, a few problems show up in this theory. First of all, a device like a hard disk may store its physical layout, necessary to create a DOS node, on the disk itself. If the di79mpty directories that need to be restored, and there are some DiskSalv options that tend to force a number of empty directories to be created in the directory list. This pass can be overridden if empty directories are deemed important. 1.4 The Disk Salvage Phase In this next phase, the disk structure is actually restored to the output device. This proceeds until stopped via ^C, or until the output device is full. If the output device fills up, a new one can be inserted if the device supports removable media. The most common form of this would be floppy disk. There are certain output devices which may not return proper volume sizing information through AmigaDOS. For instance, the RAM: device always says it's full. A DiskSalv option allows output size checking to be turned off, and it's automatically selected if the output device is RAM:. DiskSalv uses normal AmigaDOS I/O routines to re-create the recovered files. Thus, it may restore to a subdirectory instead of the root of a device. If a subdirectory is specified that doesn't exit, DiskSalv will create it. Similarly, DiskSalv may output to a logical volume name instead of a device name. On occasion, a file will be found that DiskSalv considers to be suspect. The screen output will indicate the problem, but that tends to scroll by very quickly. DiskSalv will now add a FileNote to any file that it suspects, indicating its concern. This option can be overridden. Fin_PQally, there are occasions under which there may be file name collisions. If the output device has a file by the same name as one that's on the input device, such a collision occurs. DiskSalv won't overwrite files. Instead, the colliding file is renamed before it is rebuilt. An extension is added to it, starting at "-0" and going on up to "-100" as collisions continue to occur. 2. DISKSALV REFERENCE GUIDE The DiskSalv program is run and controlled completely via command-line O"arguments. It should run without problem from all Amiga shell programs; it currently can't be run from the WorkBench. 2.1 Command-Line Options There are quite a few options in DiskSalv that'll modify in various ways the recovery action described above. The syntax for the DiskSalv command line is given as: Usage: DiskSalv [FROM] InDev: [TO] OutPath [[NO]FFS] [QUICK] [NOCHECK] [NOTAG] [FORMAT] [LOMEM] [NODOS] [NOTD] [FILE pattern] [NOPRUNE] [START3 [-]num[%]|ROOT] [STOP [+]num[%]|ROOT] [ASK] [INFO] [MASK [a|A][r|R][w|W][e|E][d|D][p|P][s|S]] In each case, text in brackets ("[]") indicates an optional parameter, text outside of brackets indicates a required parameter, and "|" indicates a choice of parameters. The options are: ASK This options allows the Disk Salvage pass to proceed interactively instead of automatically. The user is prompted at each file or directory. A reply of 'Y' will recover that fil8e or move into that directory, a reply of 'N' will skip that item. Replying '?' will list all the valid options. A reply of 'A' will recover everything left at the current directory level; a reply of 'U' will skip everything left at the current directory level. Finally, a reply of 'Q' will quit the program completely. [NO]FFS This allows the disk's filesystem to be selected. Normally, DiskSalv can tell the difference between a fast and standard filesystem disk, and wil5l act accordingly. However, if that disk is badly damaged, this assumption may be incorrect. In such a case, DiskSalv will usually assume standard filesystem. If it's assumption is wrong, the filesystem can be forced with these options. FILE pattern Cause the DiskSalv scanner to only record files that match the given pattern, which is a standard AmigaDOS filename pattern. This pattern specification has no effect on any directories that might be examined, since DiskSalv Rwon't necessarily know the names of all directories until the scan phase is complete. FORMAT This forces the output device to be formatted before any output files are directed to it. If the output device isn't a device, but instead a handler, DiskSalv will return an error message if this option is selected; it only knows how to format devices. DiskSalv will also offer the option of formatting the output device if it fills up during a recovery. An important note on all Dis\9.kSalv formatting options -- the disk validator and the Format command MUST be accessible for the format to work. If they're not available, DiskSalv will refuse to format an output disk. If you specify the FORMAT option on the command line, DiskSalv will return with an error message if these programs can't be located. If you don't specify FORMAT and they can't be found, a warning will be issued. If you go on from there, everything will work OK, but you'll never be offered the FORMAT option. The best way to insure that it's present is to have the L: directory with the disk validator in it on the same disk that DiskSalv is run from, and the Format command in the same directory as DiskSalv. It may be necessary to Assign L: to that disk. Depending on the shell you use to launch DiskSalv, the return code of the Format command it spawns may not be correct. DiskSalv will notify you if it thinks a format didn't work; an "Ignore" option here lets yon some cases, has been completely removed. When formatting is requested now, DiskSalv will call the AmigaDOS Format command to actually do the work. It looks for Format in the current directory, then it checks the "SYS:System" directory. DiskSalv V1.40 MUST have access to both Format and L:Disk-Validator in order to format a disk. The START and STOP options are now more robust; START can be given a negative relative offset, STOP knows about the ROOT now, and either can express ½Rdisk size as a percentage instead of in blocks, if desired. Finally, DiskSalv has some new options, which will be described in greater detail later on. The first of these is the NODOS option, which solves a problem that sometimes comes up when you have a disk that can hang or crash to OS. Another new option is the FILE option, which allows you to specify a filename pattern to match against during the scanning phase. Finally, the LOMEM option drops DiskSalv memory usage to a min\rimum, at the expense of some speed and features. 1. THE BASICS OF DISKSALV V1.40 DiskSalv V1.40 (from here on referred to as "DiskSalv") is a program designed to "salvage" any files and directories from a damaged AmigaDOS file system device to a good one. DiskSalv is run from an Amiga CLI, and in the simplest case is used very much like the AmigaDOS "DiskCopy" program. For example, to recover files from a bad disk in DF0: and restore them on a good disk DF1:, the user will type: 1> DiskSalv FROM DF0: TO DF1: Here the "FROM" and "TO" keywords are fully optional if the ordering of the input and output devices is kept INPUT OUTPUT. The following line would also achieve the same result: 1> DiskSalv TO DF1: FROM DF0: In either case, DiskSalv will immediately print to the shell's screen: DiskSalv V1.40 Copyright 1989 by Dave Haynie Salvage FROM Device DF0: TO Path DF1: DEVICE = trackdisk.device (DF0:) UNIT = 0 FLAGS  ŝ = 0 HEADS = 2 SECTORS = 11 LOCYL = 0 HICYL = 79 LOBLOCK = 0 HIBLOCK = 1759 RESERVED = 2 MEMTYPE = 3 ROOT BLOCK = 880 DISK SIZE = 1760 Scan Range: START 2, STOP 1759, Expecting Standard FileSystem Should I continue [Y] At this point, a simple RETURN entered will start up the recovery process, while an "N" followed by a RETURN will abort the re covery. 1.1 The Scan Phase If we proceed with the recovery, DiskSalv will start the first phase of it's recovery. At this point, the input device will be scanned from start to finish (blocks 2 though 1759). DiskSalv is looking for valid AmigaDOS file or directory blocks. A small Intuition window called "DiskSalv Scan" will open on the Amiga's WorkBench screen. There are three columns in this window, BLOCK, NODES, and TYPE. As each block is read, it's number is displayed unde ǿڄr BLOCK. This happens pretty quickly; ordinarily, there's no need to examine individual block numbers anyway. The TYPE field indicates whether the block is a file (FILE), root directory (ROOT), user directory (UDIR), data block (DATA), unused block (FREE), unknown block type (????), or bad block (ERR!). Note that under the new AmigaDOS V1.3 Fast FileSystem, there's no way to distinguish between DATA and FREE blocks during a scan, so these are always displayed as unknown blocks. T ȩehe final field, NODES, indicates the number of user directory or file blocks that have been located so far. The other feature of this phase is the file list, which takes place on the screen. The shell window will indicate "Building Directory Map...", and the name of each directory and file that's found will be displayed under this heading. Note that at any time during this scanning phase, clicking the Scan Window close gadget will abort the program. If the QUICK or LOMEM operat  J{6ions are selected, no visual account of the block scan number will be displayed. 1.2 The Directory Resolution Phase The next phase is usually a very short one. The scanning window will disappear, and the shell window will indicate that DiskSalv is "Resolving Stray Directories...". During the scanning phase, when DiskSalv finds a file block, it attaches it to a directory in it's directory list. To make the scan phase fast, however, DiskSalv only does a single linear pass over tʞVhe input disk during that phase. If the parent directory for a file or subdirectory isn't available, DiskSalv makes a dummy directory for it in it's directory list. Normally, all of those dummy directories get changed into normal ones as they are found in the scan. However, there are some DiskSalv modes (covered later) that may result in only a partial scan being performed. In this case, valid directory entires may be outside of the scanning range. In order to get the proper names of such directories, the resolution phase goes through the directory entires in it's dummy list and tries to find real directories to match them. If a directory can't be found, it was probably located on a bad block. That's no problem, all that's lost is the name of that directory, not any of it's contents. 1.3 The Directory Pruning Phase The next pass happens purely in memory, and it attempts to remove any empty directories from the directory list. There are rarely any e&5d (P :XvG˿\ቆ $2{; "LhI0c'c)ّsѴX&W"OG p JTc`c*e#çTfI؊q1,@ UT*p+.8|HʊÃ"R?Hʈr*S @`z.t%ѣR.l RNL^WVPYZ@POqR HSQ"L|DqUqUfOTzyZb9NJ[154쐜gcLaiԉrҁ#R$@\ :Dyҳl}l"2A)"`7p!nndH̝j)c a kNkH@'2xɊ a'Х6R!Ґo5H8tӡ)IQ@ջ9YC&]iftHkih`K+T/<0.1&P=G)ddcyS `bge(h$v$夆U3B |HLdkfaBc f8Qy9r-AD$ TTULE]PVP5Uddyq%QBB!2K)c +HXaM=p%API, w{.L1 8N 3*l.=Lo"adT 80/lRz6̞- Gnٰ" a'CH; fBiLӮGppL$(rL%΀GY9:dΑCM' NV,&te(0#]pl<%g|Üi' 򀁔xh8:yElyIZO=.)xo / u0&Q QQSJ> {9R?6vqӟOVIzyq7whOgQk6O$$h4a{[ZTovP'rj00DI.{*u~8ilO܂Y 0 L: \稁mGdyzRjg8g  !g {a38 >,TPI;A#8$43*^"| ,~g@D$(+ ,EmPRFK(Nq 6 K9NnA @lInwB1:!"8<ܶ$G?G$$GDGf2(њ4ďte2 ͗"A)&4 |!N  -ʦ+ߢ A`A0$ dR jjolB`?kKJ+H׊'|~9#&&6FgC,I'bW}ϷVqPAΜ^ΔHXܽ=TxaLdHO)"A5} G2u%AJĕp LRKP誨<R.%nh J(-Sԩe$@ D) 600 X`p&GFI20 `(%QAF0=A p QFGׇ"<-,\ * 898<C7S' <,alȿ$gΆǨtrt*zrH#66"|FOD&DOWp!JLC Ꜥ6#(.#%EDa8WQ>31g4d^3 FbRS O3Hj"X3Kxl[NjRKKr2.T_O@ @AD"EJ$R*HA" V%)THVU"RH\ܯw>/ PEPJU R/"ht Ђ1%QQ>S .6 Po($O,)=өEEf* 11yϕ mBHFZF"!~Go!GSvE1^"pH/o`KDS &1SҦ0^J^r* IM%l9VpZ~4@0Yǘ ` X8zZ@ID}_"R5l H+<@4儨 pȂP:BoD=!0 ?8-?o )aq+h% '{l ];%N{x@r[I&.06N4sp;5:uǪxL NNNuA;j{rJ6nrb$_f6XmI'^yС#%2BH0̑S$|20xa:㷞⏉cy,Ͽ~ ~ȅTbcˁ>[2!'G:r?(zN#&K>/NPviHLD`qE|f~f|x r),D+O$ BpѼS7Kc8@M|OADUT] 욊[ 1sB'#NHu D:);:E;SStTЅB,r2xeUel85b Rwqܝ,M,EM= m,M {^KFp$61tFn ScK3Y9Sw5{W^0KTŅTG$$G o.G}ih߶<q` &XE0MLkEVqG]ȸ: Sзe?JE I9 %|Æws32ںXڋqcD(9FRQHyA%9I9qAgK# &f6.?-x2":4 `o6{-BJz&4b6u*NC x(b]^tl TE$~!ƒ G/e=0vv.N*PZRA@`YT@XZId) YP>}$Xc83tNs7-%'9yAx%D@A @$FGrd!O`F 4( ɕb`#L0%yAcF\ 1NC,L0 `&I#F(0'K'w0 `8'Kc%s0 `80 Txa:㷞⏉cy,Ͽ~ ~ȅTbcˁ>[2!'G:r?(zN#&K>/NPviHLD`qE|f~f|x r),D+O$ BpѼS7Kc8@M|OADUT] 욊[ 1sB'#NHu D:);:E;SStTЅB,r2xeUel85b RwqܝoK9es. This caused OS requesters to show up when disk volumes got full, something DiskSalv was not supposed to let happen. The sizing check now works properly, and only gets switched off automatically when output is directed to RAM:. The other DiskSalv V1.32 bug was incorrect handling of circular directories, which would usually result in a crash during the scanning process. DiskSalv will now disallow a child of a directory to be added as that directory's parent. One minor fix was dalso added to the scanning routine to allow ^C cancellation of the scan when the QUICK or LOMEM options are selected. DiskSalv V1.40 also contains some enhancements. It no longer allocates memory in tiny little chunks that can cause RAM fragmentation, but instead allocates a few large chunks of memory. It also uses much less stack memory, so it will actually salvage a typical floppy with the standard 4K stack of the Amiga shell. The DiskSalv FORMAT routine, which would crash icd items to any AmigaDOS volume. It does not make any attempt to fix the bad device in place; thus, any file that can't be restored with DiskSalv might possibly be restored with an alternate method. DiskSalv V1.40 fixes all bugs found in DiskSalv V1.32 (there might still be bugs, but no one found them...). There were two main V1.32 bugs. First of all, a bug in the processing of logical vs. physical volumes caused DiskSalv's file size checking to get switched off at the wrong timז/&n$@ E@G@4lmpW!{`~1#X##}#:U419P ⎬8[_spS:G0FA4b4rZI6F@6a+B CXbD *ߓN iq~C"a%!r @a%" d~z|ff{"'ny 2nC'%?BL>;0f=PjPna#?H $KF@94x.: "H eT AKAS!N(dSJPh RxT0&]W_;p`!@i KfE!"(eitA$Q1py''q&D\(Rh&^DtIъc@M+x4B?n?vd]JA2qHcP&FFec`dۀH`HFahX SUʠD$$R \Ixe:/ _, Q[*@ MfҁtJjŅ %P$` 9.- :n ̦u .j|p:2 @^0Hz!``s8 ,lAD@"0)A FW:6b\8ߘuD M$O4_3\ 0p׸uR8ylX@NRU39pih-O \eN$U 0?y`An0?L9F Vٺ8P%7o<xg ÿiPFsxdbfaecg`?!/>j ArxY|d%_1u8{vD@`<'p>Az?=0zo6u6A jnP@T7R@n 4'`Mk65*m7' 3 %hl_ ˠ-gx$b-ۀP PҠ!K4hcr pe2"c(LD8!u)(Z Ф̢栚9`.(Ȩ@y-FiRnX=cMx<#0##, B[j?hB~ ?Od3:H$ QR·oo€ ͣ8A g\sxDA# cP$d  мS ua(]1`dF 2$ l@BMO$+`s d':('((^K! b[2>81%;9/KaM@6lp ,I%PxoӰp%n0 v(A8yR K p3ALL{l= X?bx2Sv2d8۱Ϧ, w'_w^wY69jpkz ԍ EaC!h.V<=H+Y@< `EDA#cCgPY3DedCh {;.Lp3ӿt2o:R BDB ؍)D @'wAG!}v|,ϻK!HS:0 %2hlٛ=T X7Tnj%tiGp(&gf g99 0l2.G.9~%T"5 YhK_7HKen9 1!F ,ȇd|O%W#J>\|))@0. |ܟ L\`Sy*u{gD.[-LX+sx 27YNX 3<9g9gE]#N"B|] +2x涹\ 00d !&<H?A# f=XQUGߦ-`7 2ߗ(N8ghȍD[q:(3.A`x+(%%@ ^@"Q͙AJ2 99!DRж 5a3;Q cEf B}kҏ?@DS!S`#`uP>Qui  f s|(}!(P|dJ`a{%= 0lf. w;rOZϸ:@ 4s@ZIZ5Wԟ2> "H xJ@%(&J@( en߼GzL' P@V#= 6D`PimegxN`^ ib}u? 1G0ba |o>3IQX3a`r!i Gxq-='4YЃ4ϬH|8-C[(/;@X@Vo&TN7<&{ndl)3;ގda ;҆ X@bK*jYo RŤ_{BdL^ =:Ag;1N:azDӀ8g y0@) F r6!dٗG>&f#1s$1PJ_J! ޗ A9p6)]IӃ 4?AI:%( S"ЁJ $ )݀RRA"-/c(&FQfs($mKdlɂ8S BSDRQg u09gF,hM$;8K0'@rɶdIF}c(`g X }AZP>%+3b0 jV`-ZQ#L p0(P @(#j~6p 3aRQQ Cغ\l` z`T&()4_ %M &DF#: FH6090Dbl`=n?i&i&0e@Ap cXLځ&08+68D`ֳ4rFLc0N Qktr~aGp/L@5+@28!q㶁#9 mea Aր}~'-F@C*::Bh20B .8C%PI@ oB0GNr@000n2C e*c>@ Ax%8j&r%K@g/Lcoԋӝqۀ  -6r>@#@HC d)@*`E i"$E5a:d1 a> 80!` LhB:3@ ^fk SL5XJPZס< VL Dpa($HXAp$ט8'# @B'͠č#@"xFdP?`~կi}:1-@qtCnp%X0UJl$jEe' -P t DN!*8T1;d* ՂJA (W(w<8Bbx " 1xN K@PJ@:aI>LO&:}V'jw18eIjZ.r RS qBzf {U~k 8}T%e;@^ =H]Q W 3@= %`C7{r=#3 +;'!< qqdIOtk &(\| 4Y^Pt*a PHl0@j g3CPLd67hse"i!7FE a{~ '0{6N <ɢ4&`eN  #wKAr K&"̀IƠ4FQa)1rZ~՞?g$L~^j ^?ü@}ɣ M4$ PLX='zsolJZ@Ӏ:4@i X~/`MBk+C`@CjAѤ:\'%#U0]p @ nP" PH /`p0`+7@<3rWNFN.J?ݘ@ /'"'*+Ăs7 n**"b?L .o2GFE,etuIʓǰ :@/^Jc#>gRj2 B? eyّy0ƉA,y xn@2{C%8 p)K&8 Lp()1K#$;P8 Xp&H【58 p.aU*A4 ,hp%!"aO@= L4 (hfl&!Xi"ŀ0m;fОXTKb&:|AU:߯@*,)iih0?f>^ ߓ} c -(&H 1tH^#D(̌?vI =@d@@"@dHzȠD/ CԆD$$WVK8 |p:́6@@L/I*~O32W;d)9$>8c|P]`8KZR0 Dl.T !_f\ADKu0~[ HC ( Rl <$zJA/?B/:D'F@; 0-1R}؞ FUD]ZtP0]!DD@_btN% JI' E!> 1,Ypq(qœ1<MM.py}VHTA _ok~' d~ў@ ڰX8$35;a F % h7dJTpf j8P'1Ҭ')H ªb(>?JU~i9' a0 $. PF 'Bxא3ۄ⣜QA"{ hcYC x=2HL n},_f8k0`T tTF SA ;.jL%4#/bb7Y"q2D qu Ҹ3:ؐae+Kp0$:0e`V s8!i9?1D#JDRw k%u1?./ =RH}-x ApխBmbgF/ B. \ɀ^=BBa !'-t/!q^O&̒hsf IgĬsf 4R pL' ]Qú9JTJ0v~ KDDD(fvRffČ< Ke܅]Y"hM-x" vC(∃\( ` )!a.Za٠#Du&ba`: S08n@n O;gE 'T2 4`)_ PՁHX3 MC`l? 5L%S@=9`^A-Xi>@/ DŽLRJB?=< SIb;RA y6$+$$-!2giaLP(PY+3 b.< ysAfFyDA ma*O0&OYD(PUA/22!ܼK!Hq4? 4eucHBd&/S@2gb Y&Y& _zY Nxi`sx[y"ggTuAX*# %@A@ϑP<:]dl<60a6Imd@iPoyt8`BZ\ `1@2d,|tHP%p%<9xR {򐋃0,"@D6!5C=(4dN:0 .Ξ 88#<>x%~MA>;f<Ȑ$jMWcT$ @0_O#$p9] f, @40``;68Qhw:t] R'RQ#')$t{cȂAB *G' ʁ[6#P71$H H &Џ9lt͢(׬DXb4T؊ lq)pt2BћH̳̟dĶQuTC+y^?@ܲ/CKV e *bϾn!$78D֞`މ'G?tG@!Qn("c"񆂎%ԒPgw%s)'x`mǫ32| nrC(!00.\]蚁̠zayJ^{:!Q`h3nA 4" D]|HR݄1!;@ HhȐ!P$7Q O"@r dHDD cT&< %En%ψO$lq~nn7'CAd06|uCX>'çkgYi`]Ke[?D%;b ퟛF?zyr!92wx G,~Q$K7F@dft&g?c&²g7Hl/ v3h@~nn('IR4D]5N4Ky[Z$03A? <Ɛ0!)pBQtƟ' 3C2'(HA51B-2QOJ :3N!wpѸ!'tdcsF9?rAg!"z$\2A3@)'= a.Us AoN:[X#o\f(S~A"FѰrs7'E 3@F Ҵja;i|T MCMluHO,i/xOzd=@FBApڤuL"TQGp=h!R60<0<'qXm Dp*#3K0w hlAeB/l%tԯ*EZH ܙGͦ6q"ʥ`6=A fy.0BiDX`.d 9q+Hvϓ)s[ f450?& !q&ؠ0DRCu!4-'SF㝗S?dW %ATconkw* }JQf^F`䈠H{ H⇽a"/"a zAI ȿ F'_CXAEgD`0C@E'p2f$3e; V0 N9/ 3*f4`Yv5 Z\ HW`:P Q,S*le+=/~N@J*y1Pu*Iu"I9v li9 aGfpry际鑉G.V; 8 :QUfHށXĀ0@1txr'1A@OH4 B#@nIh/'!M\t4h,A D!@c@ψ<0!gHd`=&,&i5;nAhJ'0][`"qs Ck"FV h w|OS JDjDjFy5 -Uс8 U%u qu-  {h9!K. @xx@$qG@L h8cII,8'p'2/I+@>`?Ѐ 4vwt+ "Bn($55Pi@hmfChD%<[q<.> (8p iPTp;KIӀg;pn Dڀ +&f. $Ns|P/II A?0ͧKO@a6 bm?> K(FD9D7^UrA ~9ȔĆ)B%m1`@ J 8o4 v3 P в1Me84.ʒ:)-0GB`@b2b)!?+f`zHrP \ !\U!Y@9%sFpD" 0U4b *@L h@ʺ @NOƀBj.XB0RHfW?E@p-BHKPJۀ#"hF  pVL3dhs CLL΄zd7JQ ΊؒA 495,E 7j="ei ȁ 'K๓&Y0@`e|Kj>@!VcDyIR3 %z&[3;WH"'O4:gw2 $ lbBrHg <4 H4o@ s0U'`Q-&5F7H'.Bt8*q$ e0B8O6/%ˡ`D@Z7AF D$D$@+Li'[d!ˁʙ\ ̊Gf+H@ !?$ $.;۷ Ύ?ì6ahGA%%AvxiJȈ ԠF@ p# =@8 S R9"vZ~1I Aa/a%0@)"Zb`Ր8 !@J P"@f M`P@CpI '$B[pJL%F5$" XD 0Ds"OIx@ !$/-9 < NT@h @nh3gFDSMl7ްvE͎@ͽ@ Ē>=$AsK0B0AD >' \"b2,A! F`" D1@%F e A/69)1DP`D _p6p7*yM-@McQJN;R%a8@P`hp#0fZ YLg1fűxpgh2=VCQa4"YEHbh\Vk$_ڧLw)\S?qwllx 9- i 2(30 ^ $>8=ig/\L0]DU0I E%J%Z/0 L(!z}./aCH"i=#m2A<ɜG  Va\RJ\  $Q fWH a2d4UI&FP1ⓤjg fMvn^Ӣ| 6AJ& Q5+y3c|WIrPƃ l6`q?p@`xdʆ9-uGi2$=$dd=$ p*ɚJ}6`v!";`2# mz Dw"4y(vHI Q!fJX+-$< \%AP @8"f, 9-@Hd@Ax8) .s:ET@FG`-ˠ/"rCH u`'@I "D"[(e R&rqJA)5!8PT a ЇTB- p@!AG"08 @H9 Pr[+Y7s&x $.   @){P#քB$h8)z gHXyrO'[.զ0ъ:Q,yJf`#ln'w ̎bI %VNL2pKBaAO0 p$`oa* r :`6 M;1,br%}H{X q'fe?hI@&% 2(9#%:ҥ&"x4 K.J5?RfT#uDpL4 6PF^Il#DP!f.1PT8 -wB)I Q/Z% X!HJ%P2+sZB, p+RB-i'h`Ȃ|[~ )BZ&i24kpA@s^8sFN‡ 3TDǑor BC2X.PxQGʞ14&`RəE ^B0X j(dYCPh5/Ka4 E vHk" Bk\)kHP! $yGHHgڒRVɳrE; %F0'(s0^)nn31׀ om+4XX_,YQC/>V1GsE u`*h0efSba0pM ?<  0Xe Ѹl1-h\h(6K(!\!ABy{,picn L䊅 m @A`hJPAWA H, I q WB\J 4, JJ HnG5lp L=AJK?xGK0 ':*!(lxz-@$ώh0h܇Q@a8 E :pc# R{r(n|vF udy頲UQ/ɸ x Bs(&$) ^6c'2AI.A('p'烪 oM~Fcl lgo~o0k=wٕAnKV,Z Vir Ff#1s A)4^ >6ٓR D,"AAhS@E0(aTID`M p8 AkBR̅7wq. Q@'{ a:@:3dsIxF_d .jK4PP+jC7 df`4A4op2\pT950S!h{s`8Ϋ. `ba5J ?&`>"a2||;DUP0Dd%Gb9W* IkRrP#[HbC`,>a!MTHWR @׀0&@&_|Ԅ c>` 00f!\7ۀ$@$$3m!cpGeH!E%J9jP6gThy @ -h;'QG<EEovT-ӳS))$oKKkF4db/ϚQ."R.9 /!q~ޱyqy{ϴ-mmof'(x`H%h1wCW[ZՌ!.:H6(5+#Dc˱GxbMx$>rM/2r2* F d K 1\UZ ̢E*C&($q.(kfq@y+s؃lSFgi _F8Yٜ uٖLF,0AVt?`a4`&2>+P Z|Ȅ9*TRATू@LkFDz4O!kI"W/:@H#,htQчBt?C ߁ D./8 %hfzh 2Ȁ%G{i"Z!=Űh.K@[& <ؗqy`D!?Qg! y[%xCdM&!xILNF⧩NMh-#J;aG wfr=ƙ@&`txAxEnӎ빨UFcsT@3Ƚ^Ȑ\U]u^V5`G^@dF_k@1lnDin!BJ@LF0F-n:6 kI.dDk"1 KqyP >-cɌȎtz*BL((Q@(y(D̳#O x0 `% R@PN0 HA""0 4`,!^"4l0x`F$0Iv')M#) rHC0|#6P&#\.,:0 `"!FIL!K}epp$Ft30Hd$AEE)0 ,`h#!!:o$0`ɀAcHB` N0`'E$"5q p(AHq("f v TY0<<0_d$۩KybV4NJ& t!?F 7V*=8cH \/&0+jP<昭B%p-L@iI@M6 eN9LpڝL{D8[Vh `o#xdJ  ;6L"B')@OpK01%2#b Lkt 4 FKRA?ف.A|g`a610Q3eNuprS@Sf< * QNu Hx\ `¥Ā$$=@\?8qD n#G#O'mD!YL̃U?KVl xl0"E+P \ Np3!sH T~d  (? A4SD?o6SXp;(. H`@80-p/ I 9t?Xp< Q~TL$q"3DN" J(upD ܢ%DB='Ӵ1$Ӽ悤k:2!162A>8!8 }C8;~cy 8 p& .: B[B}P :pO#4WsG ~n&H W8p MCP.r $՟x@4ЏFL IiB'ɼ:~FC2 )dpТ#\I;ș TA 0#I !HfVBL6AeD%@Tu 2<0UjU&AQQJAP q2cG @6F(|COjX A{ ISC(~@gP@?PW2bSY$@ pan,B \T-  OI3'R !mA7]N(Ma@iD!C*O>8`SQLII!7 B+%lrcЇ!'An@|vQ A}6A@Eh垰ƙY:24~XɓwNE05DQ l*@ЄPT  P$"H@) < @JPPB"pBJM3p Jk(2 09A:@)p@iPi'x@d (!Z-dFPHoJ-| {:`mEɆɬB  |KmH@ @X3C0D"!zC8 k #pC: `R8I |: u^P9`BP 8 sQQA@%$(e90%AB pa#L*4?Q_\|Kҕ>i + [B`DPzy:79鵌K0 L,wx0` CC|8MWe), Fthp6. 9IJ5´SP12AIN̠` YKd!6-T$pӀ j504 fOr`!HXIV bո Z HQ:‚e6aYA[ڠJd$mlr8oaj"cJC _x5DPqPЌiXAe`)&(a%3(Lgt'' FmCp |$t(qO4( CfeK fK"0%( )"q`>0+e|3_yeFd!]N^.q8T]sER!S#cʬ"@7ӧ m+4 oFhpapA ""/!إ7@=; !H@ cC1 I 73{`8@Rt_`7O)7DpȜL1y쏨%-| @8El1,D" D(81ӟy4I8LDE Vqp o؞Rql<?1CHdB9&@4x#V9d4 jOOL)@U H, ~?+.nF<7&Ǡ%(3!J tv;v:G:DK,tabl2J < PЇ\8@i)4 `: MGR 49&7/+o FĹ-AvkaH)" A&nm@SF:tK=咀K)Y=Mk) 0IӰ 'TWLr40fI3c8% FJ@ 8j`;@fbX HcpHTa1áU!9@^b Uf J_#-KaZϮjXhj@}&9 Qdx@hA. )M;g{ JaguUpH3xx?" etq@OhQ%J}|kXM$wf:^@@m[ >P. R1׿ wC`pAzx{xmHs|Ye<6(xG!{Q ecV1@{IiR#@Iz<`C:bt  a>pޚb=?E؄X9 5κA6i"WTz 1a[@dQQwCz2t,>}@1@jsí3Iwz( 2D}}|+$~dj4j11d+ۉDbdB4y0qAMaAhH3\%^k/$8`M`\hL<HjdZʤ]o7!C,@+*@182WE?[\_D /$\cM1^I}PD:oJpO`D;l#(H/u0Pզv5RJQO5Q> @*0@A.S H''< l\ P!TA8Ϗ F*,ָ$ F V~b%!k5X&q(#15-2vBcT F .X#̆: 7 Tp@Vr@ā"!r O c%Kgl 5H)+DXBBB5 bO86̄@[-F 6< XTS(rr=iLS3 A%@LA@Q0| a~@<.J x`\w! q]@pObH 81䫂62k kU0`n \ 7tW؏CEYX4 M,9#"r@-1'#HMu|@\*}1'1s*@Ć ,eC`ɠ1/@%p{\} NJȨK30×@ FU Fs"-eLgsb.虦8iQ0p@ ]E aXn.{RfLϝ$DhѺ2#@R z೔' 8HE\t*j_`u%?R0P+eE<>= l QEЋ 9&$^NqB# BG XBDr9@~K%b$8$(?iANPw$I-Fd  #-@/( (q(''X?D# AAva#=X  m@6 p)8A|r,P"$Rr@Yq)?pqBCW(&P`6p>"v> 5|42{88r<Ï $8R:Kϑ{Fc-qe[|gZ'I?sځ A$QV9L#'OJ=?' `'RlL> \ /җKTX )@39GpT hFl]Sd-FpY0U*~lN6F0UXP DHR(r rr/@~P“`:!0#0QhEPDIDj(& !hC Bx9" F%+!|z'\ IRA6b*MV!p#ߏNz iAs(48@@I@:Ԅ W*!(O\XzDJ(Ax_jq`p#`Ai`? #frIB|5`%0iaH4A kXq(@PD |YP~x bt </` Dq!&1Y)h #:y54@ @X]X0n 2g(1ǎP &MVBsOc0uz ^@ P!%@I@ +*T <&Aބp$% ,X'xmF#̊I$|2"d@B2fH'S= 9A.VV$p9- -b&g ״}!6I B9}vr,I` `@MhBlОPB^= pL@2He`K D`$HFZiBG(K)zB ?*uP6(P=V X} }~|A |%"85!x(#Q4A,FlMy:)Mlz U rP6 Q}XHypa\s8@2Y~JZoЍf EB/̏?&bl2W2CPf{} P75K\=LQdG1G\|kGWq#kRN2r H 5c7AF +/YA).0"[A0XI!"%<s~$`pC=sF@.8-Ai>`߈ 8L2`ؒJOpY<8TYx_Y +( %0n.OhN3D˃}DE`?8 !A *ӱAp$p;̇*_<8'0%GQ28d-}# Ȏ,WL~$_d8d<HD 8@RH< eN&N"CO8DZۇ:$e@p$(<xa1!1 #Hɕ@%="@E V`2#P QHH@^a0ts+to 2 xwK:Fh"!OdDm(B2xHG?E&, IQ&ѓ9ʁ*H,afe/ì f]FㅥD"H%˟FMӀ"]pmqh,BޏO?N?Aĭ1H(H)@H:@!7:X@ Բs0Mn$vPAL ES#lc? ٿTLOf=why$|k"i%QȖ$t|JP\t f| ,Ӡ7(JIg/0jL,֞ 68  P x 4 ~BS`>=A,00R '@23"T˼N>4d(@oqC1-tאs,+bhqfat`ŧB,]N@D@:Whw/tB|9zG@y[" BD?=2*t@?͡6 ` Pё7P IJ!)Z*@ L I#@d@Pp, (1, @rq.Cs5uƹ>q>}RH">RU9pۚ (īm{n@8epiN2X0`#Dbt&It`trcA [TzIĐ^1k~  0Y `I?Ke@LA:fr00#f? 4K QA,7t>: LEAM1sw8 -~JP.'V;v<Ѣ=ۢ)x>/?$ #\^[S"@|@!>4" aE.̐ (D04 P#8x*~@>;p4H#G8D$`;:8'O x #=KT"kMaY YS#BcpE|N \a3B Z e A1K=OC&g6t(ACtFgk4_53XM@?B9ab̰[li{&%Z jHD@k[# #$zJF*F"p$Cg@ItKn 0by8e L<(/((GtЎ-DЎb,\ϧyo *S8  { AmE"AK@I,aOb4ҁ` i(OBhe̯*/M@`%c&K@\hPOô m!Kv7J%ǭG&? )r.~G1zI]PQPĠB6p4v (  pVƖ5boRjAˆAr9%#x~Bm>QlzHf KARTݨP :,_?2 &_dy̿Nq%n@1{A1$4 ,5,ɠ'EKH lh ⴩$:dR2A Tf3dS_h?RN@=8QP@㜖FD9ax)k?#M~I SN&KcՀ sH(MIBa b- 8:M1g!g!4b`$mO z-y:~}B"I8a@8(HkѠH@0IX0,[yI1/^b52NR06,T2Q#{AԹүZ: a(FTkPDA2ގJ *T,*0HA X" dh@{  !r+d0/L?@al2p$JE9a(,k̉>|z*j|A^ 'mt05G(I >@LޒE!o 0s8$ FHAGz2Y-X^j}Ӑ9G"R)0oy/ǀ8@>,?duQG  3(dc)_3 F=l~Lwap"C+8 z2E0ѧ !5A}Y  @{ F,10 jh8|d%. y_= - t8#F| (OEI)>4 BaN2 bNLdaw@ LBT IUEI;8ҠXtLI΂2>r@ ԂXAWb  L*0*gP0G”0i2t@= 2UH}/. rrAi\b \*Dž '悰Ta4;jƏꌗH[3mtRb H¤W ;fEZ|$:%HMH~ 85H4A4Ȏ,4~z? 1*C+eFx 9G?KMo/-B@X!$| mKi@:`@ၫ8$5ܠU>%jӐJ l>XG JT( P.0"@q,p0lN1u @,U?qj02Q }:`e0 A `7 ^] a&k>V")]xQi x7%#I xH*pً9 #G h09C#pHCO'adx.@A݃-?= 3bN#Vf8H`YxpiVa!1%ƻve9hx*P`JJs͏6|(j05h~D $\ߨ- k20K; &eС0 V/$#CDt> @\!Inc#E mߘ bClD| Ajn&0n`Dzί qFK`([ yXA/ BD;F9 _ݞ0O~.c5P R gEԮn]g5p- P# J7J5ox>Eg) F'Mn [ӣ \vFHbbpQ DIh @`4`h@'G sH 8!DI !2A`00|N_~]!$H] v!}x7=E 1^XNM"pa%!tR蠂4u0 0}&] Y@pj6xSobqTx!܂BՂ#ҝ ]e嚟>R{)2U S3-r0y BPBĠA -e ҥ, ,NJ :&F5LU.deB B#R Mkv{Ξ="bx210Leʙ!RBRUJ L /Ǻ"I*2DՀ&=UHB~DKt HǀI  N0t1"q -Ġ "% 1nhD R@m3s:E $PYfhR㟉.? R,F- RfXWր<`wHwMGat)S&bKHRo3!@P!G 1Y>:iM"?PHBa_X̛3€` z,z0E  u0Y w69G. d9Ҿ$hF@zP i%3FA0P8dz3!deh08" "THCh駞`J 4p_LȐy4 =tP 4􀂑uN%f2Tr %Ox0ȁsSRXs~ j"= `&"Ac }/7`hx`tF0 ` HJ+V"rF8 +5 d[?Y$ bD7=>BAjM+ 4g! ,%H͉#֡'$æ`n,`ENLظ<+qF0țw8Q&dmr`83D3atJ4`QLNNꠜ!<#@&zrƍ%3e$LmBW0m<9d8H[$f-ΓkC8MBpF+*`IDqpQcIY`BA&A /H`X`ΘEFcM#!JӬMAH$4~ߌY`f  &T8GF@2ABi#J;QzRaq$(=7 h1A`Pp6pK d?m74Ǩz`lZmNL/&HJ(Ba*ǰ@2Pd8t獎z - q[>SCϫq`Kn9A\ˌ4Z ^iY1$//3 3g 3.$gQh08E?`?8|\#B2|`G#_ x(HP9k /0A| ,)CX4r)ȸ+Op+MDZV&6 94hQx1/@C`P KaA@NbK̘8 p)9 N8,(M@Dc 9@lu ay hܜ.d"7Xc܇ts:sF@J58 E9}KO<6@d0o)Ah BD }ZMqQx$Mh$DL' RL4`g+3 4ٔT`F{N~bM#yy'威X&$+ ):(y"fZYtrQ<B[2Ev$JhLF (>Y{ s#w?,hP:'0s6U.`ry+20>hbD͹>ydXl6>26>46 ñ ;0 BwNO:DG4&aS>TA>7Mka̠i/A89K3d /tIo; U%" q~{pl&pn_'Us'>?h!GdGa`Bo_>H>p:( eAB&>'(!R3dW+h 7Q='"plps0 \ǁ3G$v!_( ) Cqps<%ۛDEAaG'@/ƭY>g@0őX ʼTOk{xw,Jj rt+sPDA 1B/ ̔yQ?3@ -sP `+Y8!* XHAxAjw0Qh5؝LF^F> _|E  'S樼PH}&G:|@se|2`Er?+M/8r90a*G . 8=(%RJI态@+N`h(@!Jl"=rPr`ؕm $a$"%! .r_lBODIdZN$adxM> qy{:QU@7 gJI$/XI8U%)"ƁqDx(NSbGH¦Hf0S=cN GOtn`}Hy+NPȩ\KW8 AO 2V/ mv)L434)T: >/8`hv, Ez*hf8ecK""$E %(k_~ĕm @e l c t/wz0Ap @}\ (P`ܯ`zS#a; 'ą35*ppspkpar20M\ O>PH GM# ~C@^^42FeFpKcDM KT: QF#h &_@C ј@J)D+x!rde`eh>% Ci&0 pH Fr=35jaIeh(.݁eO Pp:itG7A-Oo.@vd|Xά.Cv7fXCЯQ+ qP`(N,X@@hgX4I4XF*x)8†a吂*3xy0e.ګ74jHk) heN/_Y0}0dd0S c< l a(K.3;@'P*3P93*0bJ (%2t$~R 5@r|R`Cn+=e0c$R(:+Qw?g 3L 3wkc9}Waf>WWK>fVWcNyxmfp7>C a p@Iq̆g/I@'>>9Q``U  lANhBBs ۓrC" o>0M;;+zg'(xSF0 jߋ˯@QQK`t": ٳ ii7800G8cLG/DЀc?;`0A0 $',8?9O cgksc|| Vc66cX8^3y,?|`ðz?cc' "H8`%CiQ 8?G(XuKPA~Ai>8?3@?>cc>=^bX 888?< ~ PπAG!I88ٷ -<0cـ,W޿ we Rk@0uX؞;0F#߰Wd@" `ҟt OJ*(#@#|¢9cx/$ÄI?Rb`P <B6.hleMXC` 2lp4X,x>:89Xfc8A65L/C٭ĝ_`BTh:gxP}w>|`4 Z xD S\BA'P6 7 X(-@(Q?`?*&yd䰇kpCO&a3A 0!$J3ln$ @$( a Az $6%x]QB0Y@] PZ0@$@" q4"A8> @l,6">  ~9 vy?#8 q@09!@L!&€oN?Utj1!=<"Z(?_HilA&Iԛ (3(#@ N& Ɨ)yA+` hқi¥n9B%T+,yԄP(+a" M80ڄ?@+P@5H LjjA P&pa\E=q0i. @vp0I3`Q<+x'6A:f5@8CAvF@Oq,Qib@F[tAa`( Qxii.Pgc @6R% 3(*z(%iQaJxDE84vF3$'8[Q-aPƁ(0 Z#I0,/3O@஥cd׀@~6@%`D= ͭdaYyW[ʙaX3F?Q:I9x z@]X'a#_$lPm|<OPA^@7A,`*jZ(R|3DA0D Qa'1"A1tHCϝ_0H W*?F/"ӠX5@@ ^1Eh6hr'G>K>pA)IƒؙŰLc  = uRB,6 ~<@@0|tv'?Gq#AW`#`}HnzRФLo}7ah˃=9.o'y(!ȁ072c~M#g߁xa T NDXh$~@K 9E/p A-L,8=Yfs? cCijU1m $ǻ5tLB^39?/6NA' &'&g^p҃_OPAV#l5A`Nd Jz@^J ܄Z- 2VC3j.`3+BhN0LK&<Vn܍SxT2" O̷`Ȋ튂}-fI@h<nz p`0E|& 9'| b hSRA8JV fN%!@Q~ @}'bZĈ((7g@"ޡP E b'24 1-;:7Ƨ g&`5P7@n222`dH =K4) t!Q'[-* d7gRvuP& &5O!+L y:I }P  $5*qv8 74w4"#pL h(K1r&\anA '& P 2dÔ] p89A's 5 cCAVؓc@DT0f 'GDRjb8Ğ/:0I%VHm~4C6A14 (,R8RUwfh L@0"EE4HdAAXtGF .Z] 4@iƬr21;W.%K >9?҈$~O(MHDO(‘qr }% p> pDG18z|Hp!t9F3NN`4M '7$@NҎ k0z -"L;(Y)&cH\Tr*,Mh$- /#gI|;z{|>H~16W1!a#Z6^%bm6D6J %$ . $\ GC/\{Ash (&udzY!p{FfdD$ 9]@<f'B"r#U7x W5g97iU˃DI5ʁdm`?GG`P E~N&`&&Ȁҡs^IWaaq ˜DNq`|ȅ|x'L^\Xh"zzlNIB9P$ALiA+ZP^~+h̠èٳd;N=I@*n <pB!A3(G̠)~pkZOl`gs(I~"t2!x* A %MH``mN>mq?0: nF('JI TFׄ K @+Ȫ@ @-n.ˈ ay0vk@JV 6@mGl 2!*ۜ~qBN RTPn/< 4! BMJM4Xg;06`J50[\!ÄaΠ/)@Zh{ /n\98hAZ$~&G`nC 'ab2 d9z`lN`8dhm## c@`1`=BY.`xx73/x.3ѡd<lBC D~`n"I3ؽ%+b '`4~3E WӋ`#|`jE h~ ZtKO9 =`lhH|pEYEd ?#d>9G2 !8@[# +Cd/q]?xjn_(.>9?-*+~A#8 d&H3aE3>{ 0!:Z0Āxf r px 1if0 1>b~}c/yBFdq5? __90_1+lp&1O3xXPG 39h3 Yx >㠟ᇟˈ +G8PaEOiaOpAc#x-UB=,^?<]#lca D U F  s1xdɀ08 a\u8;1d g21р3 0@caF1Op%k62?AqUcv3RR< q2 )+r7 ^7'+4G[99',V2/~0QW||>G~{ e 1d ߎx/~9><{){F  b ~Sp|!STr <fy(䄓! $Aa"@&&db@?/ҽS:', 9<}'lדּZGwZ7(wۤA7 z>>}} ~<@Z{}A}#<a  q2c8 `LP`<H92pCL9ÓӾ 灉%=Tlf0f <3`~~~~d|`$#Lqǀ/f֓ (y?>?| 0? 4{Y(!:f8ľY: ;f?Ǧ889`c {`  2@591Bu :Ad' 37a1a{;fn8CA&9ÜstD0P`p O Lk L~a1` pceq8f# f 1<#9.s3 up 3cܧ~Â83xsa_8!Y@Ђ o#VJr; 2@ 3phD} dm΀qL `66Xߐ ̀f~yy0H?$ƙ2dDfxᙌ?O\8?n/| {9#@+QTgljFP&fPcJň?xl @3",8Tp/ag4ʠ??@f<+cb hTtU8'P0L*@Eفٱd€*`G(85>P77? -P$0 0 T5@@o{=0`~ddǃF`~@,l,OC &&fX@&fOxxx|x@0@p.6ΌAp)q1r  `}P!C 00 C" $09`m!C J;0 ]=t @]hP6y5@*i*woA<. (P4}@lE#m; c6@/YdFHĐ9i `$/L$ _R;h]*VШ*C g蠁b1( kP@䠅 ]JE=+m̯^rpcN7{ J8 pUڧN S0ѫV `{0 V3`8`nXZu`85ۣFp` "04`2(`&!\"0 cVZ1V-Y\ 0 ` ! /h P?%JsT4A&`(Lf%JSD0 Jx@iRs% ? @k)R 3F z) 0`&.\иpB4I^`X,0`Y0 `%LP$LG"D@0 8p`Ј& 30`#aIC: x0sH=s0 ``e? ]0 `(2ho:\HLiD9paB[0WL'Ă82`x  %P">4!p$E`lBGL}Lhp3j2$B"I "`DlQ` Ei8 jc``֤G`q`vIP(HJ !nXq0~BVBR Ƙ1 ra?wц8S 9!h)k-H#9pND2pІy`.ƈׁ` s[&:BS$ ڀ 3s6QR⬎ - $D N ?PHiӓ#uٔ^@?r6Ѱ!G6/?'W,* \@2xg``D rbB2>?48s&91 Ϗy@΀E 9G8hsϟ>9y36K 66] Ê"fmF t S?%-̌?Ơ\0ŏP,:ܺ*8=/C<6.a>G0NV$m`r#-dVQ`sP:;lQx*e\xy\q#f7E(}? ۀ@+ x ǖ԰$8࿋ `XkwE9f3w` ?``0`HA fz!\8~vk'$arrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***+< ****** ; ************************************************************** >extern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper  L@dH*2jLt?`olCidkN.N&t&nƦ?]\` ?!.k[2G[, &_?l5= AKWd)lNhv =u P0 @Rqj P!P^0;<*YاqLG5g[e2 _pkPDDxHeT}BwmdkcQY8ĵ̄M5Բw|;0=3(99 l\-wBA'"3א(tes fʘ3/)p" gg: xg7Ǹ55y'i5PYUjRdU0c 9 ;M̔ɝTVD\ wBh&Rq=5/T ,\<yai[ڒȟ4"@@=JA|g`a610Q3eNuprS@Sf< * QNu H!rx\?\뺆iI[04m(Q/yv  .QqBM8鈪iJ'pdÜdx-Y94>D-Z5 pNHdK Z <(Qn[hK"KJ3XhODb=M%0j "\աCg@E- &;NzH[?srI \'ndrIX"J/L8XA_,RVJ" !"#DN܉TO_D~0Q/9)> ~ @ H!D7tI^K"LI)* rބD``'; 6H0L  Ԁ@Y5O>R|@4Ach ˓706 kA^vr< <O`nLhBe  z5j0Af@|i5  c/d #pT @&0c=æ\ ӓٚjad,x 䭨i@h )&tDF8 ~$Q.{[CZ1xG3NKpzz*ֽ!=b9 l1 #*L)&2#ʺ;8ɉ*[Y231G(~$I;FQ@ʨ г <9|`9|P<qh<HX9J# /wۑǧh7A@ÏgzPb^eo~MO 9W?c/1? xХ@040dZ J60v5`(gljk \k#2APLE{َ;geldq>;U4, nUq<+7FN5xy9, j!yŸ9T =#U!n(}Go zx5P5 G36@W)e-ipPւT#W< R2?f8Fba'H?pP@AV0v:zZ n\ELmLg^IǬ'c *M Ld--e LE,q?|08NAvz8?#KMl?=<b7_# y ~46ϫEF.Y|/S <ȡ8:oQy|_@3 >! &5 G#h!je!HbIBf ˋ_ׂ%QFʞ@'o،S| Sb[M_B' _8Cct5[b j|?{?@& /zy@ O FHa?P4 u:2QEv5 3MXO"ǩ N~S SC2 KI'@.j` nj9G2C>  4C8:~N A=\{>FAG Dm"u:DLOQfOd|Wۆ&&'7L!|( 3US SGT, d @ y&`yYz3S`7L@oAQ_ S`7No<|Su SH7Lo@9>c,XC4 :ž jmL-L|JYA5 w7 C7(I TvuL@(q Lyi̯43\@ :7D BtC*|hzA #H?w-,@'ávX@!AOP^׫`&  6L“]==L')ObiP@xɆpX] Ad&ѿ^!,O u`!?t7Ό֩O)D pH%jB @*'8\*ښMPBrC@0'p@bNV_称BӰ &~}juk@x`KmP~M q@  #O&t*4dmQO00u|_IFT~|5Մ``'BCS[Nhbk)!S 1.\O"4,ˠ_`heAu6#6 D }CN~0 91Fc3OpTf4 DB"6@ '8X W<\rB1KC# f0 ]C / NAa* Mm",[]],\lVt6FNtG7tvfvCOe[ S*ˆW>^NK`.l,2pC3aY ?A7r!^$=^201(Ғ\bd `Ѐ12*y?h D)(dX8_@ HbUg$H B8Jʐ>OcAvbG51[PM!E}*"pzܩ3FRӔA\{iykC[2Hw,1Fиq҉HSnHۃ'aT.upmhFi|Z`A`@:Z\4 \uJ%40"i; @ B8(ix78kOX=5ĺ!Ai@Z:zL&U K(bDAG!s,Gc BNkje&g lEmipQDqA"/*,Lm D(d039 P8*2&mX'0h < .ڔb@ >E eA%uQ^*  0 -eZ"vTP /}Z(H,W )`N8O cd AY#px„+]\$GZJ`oF`03;i'x&./]S(;, 1CW%A-&Q\хl.NֵBjfk ۄG/c):8FfXE -β?ӟ =9|4,_ k dpϹ@aWdh~@sn!~ :`qӋ pLvE},d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output rvFYSpoutine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l vG Lv#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite v Hx^/pointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 v Iextern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper vX4----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 advYyd.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memoryvDF *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256M[l?BB <$(jN%At <$(jN%ABpBt<%BXv>%C\x$%D`z.%Ed%i%i\x%i,|%it" <$(jJg6B$t#BJfG" p4I`Np4(jN#A`p,(jN#Ap,(j,NtEfr#A")p,(j,NtNfr #A` r;g`t gVv=gLJg$x؉&$) ")p,INJfrNp,(jN#Ar g tfp,(jNJgrNJfr=fp,(jNrNrNrNNo K directiveKeyword too long substwr*#pXRlrN")ҩ")") !rNNqsubstwr*|0X#Fr#An6$ԁv0(() $)"&)p$INJfrNrҩ`rN$substrdBcP=test2: cmp.b #2,d0 bne.s test3 move.b #'2',(a2) bra.s direct test3: cmp.b #3,d0 bne.s test4 move.b #'3',(a2) bra.s direct test4: cmp.b #4,d0 bne.s test5 move.b #'4',(a2) bra.s direct test5: cmp.b #5,d0 bne.s test6 move.b #'5',(a2) bra.s direct test6: cmp.b #6,d0 bne.s test7 move.b #'6',(a2) bra.s direct test7: cmp.b #7,d0 bne.s test8 move.b #'7',(a2) bra.s direct test8: cmp.b #8,d0 bne.s test9 move.b #'8',(a2) bra.s direct test9: cmp.b #9,d0 bne.s test10d move.b #'9',(a2) bra.s direct test10: cmp.b #10,d0 bne.s error move.l #filename2,d1 bra.s direct move.l #filename,d1 direct: bsr.s load moveq #0,d0 rts ; *** Pointer to filename in D1 *** load: move.l #filename,d1 moveq #0,d2 moveq #0,d3 jsr -222(a6) rts error: moveq #-1,d0 lo: move.w $dff006,$dff180 dbra d0,lo moveq #0,d0 rts ; *** Variables *** filename: dc.b '1',0 filename2: dc.b '10',0 dosname:dc.b 'dos.library',0 even dosbase: dc.l 0 windname:O_dc.b "*",0 even text: dc.b $c,$A,$a DC.B $9B,"0;31;40m" dc.b ' ' dc.b 'Code by' DC.B ' Orlando' DC.B ' Design by ' DC.B 'Chester ',$a,$a,$a dc.b ' ' DC.B $9B,"0;31;40m" dc.b "We will have the power",$a dc.b ' ' dc.b 'We will have the glory',$a dc.b ' ' dc.b ' In our shining hour',$a dc.b ' ' dc.b 'We will write our own story ',$a dc.b ' fNM See the new day The new day dawning. It's only just begun. We march into the future Towards the rising sun. Beyond the wide, wide horizon. A journey filled with wonder Is waiting just for fun...2;33;40m *** B R A I N S T O R M ***0;31;40m |0,yCNh# ,y "<$<N/"$<&<N"Np9E f1`t f2`h f3`\ f4`P f5`D f6`8 f7`, f8` f9` f$"<`"<apNu"<tvN"Nup3QpNu110dos.library* Bootmenu coded by Orlando / Gfx by Chester There were many before us There are many still to come hP9test2: cmp.b #2,d0 bne.s test3 move.b #'2',(a2) bra.s direct test3: cmp.b #3,d0 bne.s test4 move.b #'3',(a2) bra.s direct test4: cmp.b #4,d0 bne.s test5 move.b #'4',(a2) bra.s direct test5: cmp.b #5,d0 bne.s test6 move.b #'5',(a2) bra.s direct test6: cmp.b #6,d0 bne.s test7 move.b #'6',(a2) bra.s direct test7: cmp.b #7,d0 bne.s test8 move.b #'7',(a2) bra.s direct test8: cmp.b #8,d0 bne.s test9 move.b #'8',(a2) bra.s direct test9: cmp.b #9,d0 bne.s test10i move.b #'9',(a2) bra.s direct test10: cmp.b #10,d0 bne.s error move.l #filename2,d1 bra.s direct move.l #filename,d1 direct: bsr.s load moveq #0,d0 rts ; *** Pointer to filename in D1 *** load: move.l #filename,d1 moveq #0,d2 moveq #0,d3 jsr -222(a6) rts error: moveq #-1,d0 lo: move.w $dff006,$dff180 dbra d0,lo moveq #0,d0 rts ; *** Variables *** filename: dc.b '1',0 filename2: dc.b '10',0 dosname:dc.b 'dos.library',0 even dosbase: dc.l 0 windname:j|-dc.b "*",0 even text: dc.b $c,$A,$a dc.b ' ' dc.b 'Bootmenu coded by Orlando / Gfx by Chester ',$a,$a,$a dc.b ' ' dc.b " There were many before us",$a dc.b ' ' dc.b 'There are many still to come',$a dc.b ' ' dc.b ' See the new day',$a dc.b ' ' dc.b ' The new day dawning.',$a dc.b ' ' dc.b " It's only just begun.",$a dc.b ' ֲ3 ' dc.b ' We march into the future',$a dc.b ' ' dc.b ' Towards the rising sun.',$a dc.b ' ' dc.b 'Beyond the wide, wide horizon.',$a,$A dc.b ' ' dc.b 'A journey filled with wonder',$a dc.b ' ' dc.b ' Is waiting just for fun...' DC.B $9B,"2;33;40m",$a,$a dc.b ' ' dc.b '*** B R A I N S T O R M ***' dc.b $9B,"0;31;40m",$A,$A even textend: even dosbase: dc.l 0 windname:UP/ ' ' dc.b 'Or dying on your feet for honesty ',$a dc.b ' ' dc.b "Inbred, our bodies work as ONE ",$a dc.b ' ' dc.b 'Bloody, but never cry submission',$a dc.b ' ' dc.b 'Following our instinct not a trend',$a dc.b ' ' dc.b 'Go against the masses till the end...',$a,$A,$A dc.b ' ' DC.B $9B,"0;32;40m" dc.b '!!! YOU CANNOT STOP WHAT HAS ALREADY BEGUN !!!',$a DC.B $9B,"0;33;4%mP+test2: cmp.b #2,d0 bne.s test3 move.b #'2',(a2) bra.s direct test3: cmp.b #3,d0 bne.s test4 move.b #'3',(a2) bra.s direct test4: cmp.b #4,d0 bne.s test5 move.b #'4',(a2) bra.s direct test5: cmp.b #5,d0 bne.s test6 move.b #'5',(a2) bra.s direct test6: cmp.b #6,d0 bne.s test7 move.b #'6',(a2) bra.s direct test7: cmp.b #7,d0 bne.s test8 move.b #'7',(a2) bra.s direct test8: cmp.b #8,d0 bne.s test9 move.b #'8',(a2) bra.s direct test9: cmp.b #9,d0 bne.s test10%n move.b #'9',(a2) bra.s direct test10: cmp.b #10,d0 bne.s error move.l #filename2,d1 bra.s direct move.l #filename,d1 direct: bsr.s load moveq #0,d0 rts ; *** Pointer to filename in D1 *** load: move.l #filename,d1 moveq #0,d2 moveq #0,d3 jsr -222(a6) rts error: moveq #-1,d0 lo: move.w $dff006,$dff180 dbra d0,lo moveq #0,d0 rts ; *** Variables *** filename: dc.b '1',0 filename2: dc.b '10',0 dosname:dc.b 'dos.library',0 even dosbase: dc.l 0 windname:%owdc.b "*",0 even text: dc.b $c,$A,$a dc.b ' ' dc.b 'Bootmenu coded by Orlando / Gfx by Chester ',$a,$a,$a dc.b ' ' dc.b " There were many before us",$a dc.b ' ' dc.b 'There are many still to come',$a dc.b ' ' dc.b ' See the new day',$a dc.b ' ' dc.b ' The new day dawning.',$a dc.b ' ' dc.b " It's only just begun.",$a dc.b ' ' dc.b ' We march into the future',$a dc.b ' %v ' dc.b ' Towards the rising sun.',$a dc.b ' ' dc.b 'Beyond the wide, wide horizon.',$a,$A dc.b ' ' dc.b 'A journey filled with wonder',$a dc.b ' ' dc.b ' Is waiting just for fun...' DC.B $9B,"1;31;40m",$a,$a dc.b ' ' dc.b '*** B R A I N S T O R M ***' dc.b $9B,"0;31;40m",$A,$A even textend: ables *** filename: dc.b '1',0 filename2: dc.b '10',0 dosname:dc.b 'dos.library',0 even dosbase: dc.l 0 windname:HNur5oqqs+ut0n_r.w2ZWxY NBOOTMENU-INSTALL-DISKY q1M @Cprhmv)e,YSOURCEpsGrY:_Lptz(N SpuxDEVSpv2 medctsrXWVUjihgfedcba`utsrqponmlk9NMLKJIHGFEDYXWV _Y bootmenu.srw*yz}DATApxSystem-Configurationuy{n|{p char.rawwzd*elogo.rawwy|cb ?@o O?w@_=d 0@0p  `0` 08p ```  `@P``p`!;nCv  `x@zmN%6`l(0&`0 `0 #``0-0'`00 h0`0` 0@h2 @2 `6 X@C6`6 ,` 6 6 0 `6X60  `6~6ǀ@@߁C& `z86F0?6` /?8?n 0 p\0 8 07` p 0n0&$ տ @6@7  2`6n  `0Gw=a=7}   `x@b22DiskMaster.Configq2tHA PJ"H,xHE6 a2L/&IP .P,SN @I (g @BI]Fր0pLJK!hBpRv6v&LN6?  1>KxP: ;#0/ n5&`3G8 `ӀP'8. 'yH7p}@.D 2's/X@N [z=^@D BgǙt M{ РT\!|4l7Xx0qBxHo f}d 35ȭ'?(MqJg f "!#s9aK"a7RUN (HtHN݈\$Frg_ye! )aBa/.Q઀h9@P@ AcPP*PeocP CicPddCK F0* /{Svl!`7rF `7&ؘ5LݱkԐ f`P# bVrA'7=o71?T 78LQ )<Lp YDN%S)Ā P_7A0חA@hC2Շ_ HO@jFБb1'v$6)U8o0%AbN]bCDKbB@G`"]@&r <`PĜ "9%r=#J zq1{qHBcBfBd$L BԥU_O9_6ibbPš4S#/R.Sa)Al.;_Up(AK0`H#+I9P`Oqi{V3$b:-X-'#FP"bA15)1>4AZoq\PI:7R$D63$EgjaKRq fB|M` ѣ0(qຍpxd"IcU96 Q؉,%Ŋ^-=mp;ɑ;-xh̉ W0NߞD1zd| _% 3ܘ p'@+IdiI#2A ݁H'$@b OyqOy9tJw91%o\K#K:" *AA^dŊ0 " BQD?H+*WU!  ]l40!+aMUpp@5AQBF!YN~+Tj0nuTH@X9Z_&5@5Ȟr}a) 始mB@'J>2 @p0kN1@ `@Օk)|%K@p@${|L`K!—\b@\W!!`@%6Ph4f hڨ hC&'0Hh:E&``(鈠 %܆ bmm=v+ v$ 2@* ,UɢȀx`# K|$5<=:ΘQ;Ȉ"9NPza A #a@ OzMQ K 3J xπ'CwSgw"`b\ŐL%`>8\) ~kdB8Asyd$K9IysѼO/  14 !sX(_!"J" \o4 _8ruRXX <r&t6FNN>7-p &{i"T00v`K0KBf }@f^t="8x֠a@ @u9Km,i^d@3n/P -@9*y&L)p  8@|)ZhVe,`X1Ⓚu4kq@)"lu/' :D80(@L(ҠI@ 2e#0`(/i@F4uÞ@ ">B`% @>`/ J@; hr$H0`&,x0 XS0 XP-` @5q"DX @5*~*^e@;m* _P @7 wUH0 `7i:`r0R`yfL)0F`3)~f_"XI]";K`/=pWy] *@}ة9\*[@`& r0 JP9+@B`%ACCŠ9A`h'р@hb0|0 F`8HrQL#Q^0m0 FЌ%0X`H !0 `8.9X'`QY8ĵ̄M5Բw|;0=3(99 l\-wBA'"3א(tes fʘ3/)p" gg: xg7Ǹ55y'i5PYUjRdU0c 9 ;M̔ɝTVD\ wBh&Rq=5/T ,\<yai[ڒȟ4"@@ ;} Ƅ.GTEUV\'Ki,G6\ !<3\E v  4PRT BxCRG%GB`"M`<6"4oi#Ap ;:@RkC h4 ff*pLX8RYZ2@4Pې`FB8{P@ 'Sgg3^SHaqW| LPINRNNJ5]a%wʨ-%pe)cj`C*gnabE< /'%@l, LlBHA     "! -,+*)('&%$#876543210/.CBA@?>=<] diskmasterSq2/6`_^]rqponmlkjih}|{zyxwvuts~^8fixdiskq<1-<HA PJ"H,xHE6 a2L/&IP .P,SN @I (g @BI=<] diskmasterq-gDT LDiskSalvq2!HA PJ"H,xHE6 a2L/&IP .P,SN @I (g @BI=<QPONMLKJIxseka2q( D i s k S a l v AmigaDOS Disk Salvage Program Copyright 1989 by Dave Haynie Version 1.40 for AmigaOS 1.3 INTRODUCTION DiskSalv V1.40 is a disk recovery program for all Amiga file system devices that use either the AmigaOS V1.2/V1.3 Standard File System or the AmigaOS V1.3 Fast File System. DiskSalv will scan a bad disk volume for anything that can be recovered, and will restore these2 (HA PJ"H,xHE6 a2L/&IP .P,SN @I (g @BI"LNz'@4fBp@$"<N:'@4g"@|A"#H f|#B2A#PSadk 'BIJkf`tv$HJf*E<:g</gtr f`<0e<9oJf<Agp<Bg<CgIJ<Egp<Hgp<Lgp<Rg<Sg<Wg<XfX[`NEIB<+fPEZl~ak24Q`(EIPIak$`EI`Eh`[avk Jf[`[[aXkJf[Uf[`'|I`[`[[akJf[Uf[`t5~x gS"H<$fRxvkg0< e_cԃ`tNuANuPt>r`Np0p< g$< g< g<"g <'g<`fJfr`ft`<ae <zbQNuH,xN|CpN*@'@ gMN.M$@AZlL@A8:~dGG<<G .2f><J+[jpr4`J*MgGj e<* je>*J+Ig<* >*FepGerDeFe4EeGe6@AH0t4@ j(2(RA20JH&+IgAl0|1ep1|1et17@Z07BZ2NvLNudos.libraryintuition.libraryMasterSeka1.53DEVS:MasterSeka.startup_*a& fpNu'OB+[,x"k(Am#H*pNr'A0 +hrb $T"<N:Jfp`$k%@ %B$ @B'Bh'Hd'HlB+B zadHJgm,Jgm$JYgmJ+[jJgmJYgm +I"+I$+IHBGJ+[jaf&afArGac`"Ar8+[fAr1acpamaeafLJ+[gJjJg/Jg`Jf`.kBAtgaa"<A<AgP<Cf"</AtacV,xN(r aAtaBfB+"t '@,xN:Jg`8AtafB+/AtXa fpB+'@"_,xN4JgT k!@(!k,'@ѫ= @'Ha 'H'H'H^aaNF a'O9F.kBBBAY4'HAI'HBkAM&'H|[a.k,xN| +,g"@NB, k hV!k(NvJ rgaCB+ApBkHBkJBGJ+[g pB+[J+fa_|MJg<f <!gj<amB+[Kx=<bHJUja3a3@ +[gg<ag)6ò<aN`H,xN @&hXLCNu<`g6<g*pAalh[ga ..fB.`XB.`P0+Z0`0+Z27@Z4S@7@Z6`[HacLAJgra? fnBGa`p*ajp*a8)jaja```0+Jgk*7@L'kRZ kZ$N(kYH*;|>*BD,LVcAr<`"+$+Apaf"+$+a\"+$k "f$ aN$"k4 )8g"@" $ԑa4&+gN"+$+Qa"+$+Qa"+$+a "+$+o a_ a\ a\ "Ha I`_~JfNu<Ag<SgR<FgG<Lg<Pf0H,xN| k4 (8g"@ J)fgB8N.NvLCNua\p'@N ka\'H'HZ7|L|'HEp,x gB$@"@ )N.`Nua k'H NuAma\(+<YfNuAq`tJfAm_a\MJg Ng < fB("/ + @g1|,kAp"$<N"Jf +g @1|Nu/&tN""tN4Jg"A$vN`"As'$v N"tN4"N +g @1|Nu kZ*NJgM0<0<aeQB gJfSMg g6JfRkL'HZ"H<aefg<aeg`Ap`@far`azRkLRN kZf'HZ0+LapaZa]2<fNufa<0+LaTIY% kZ"HM*N gfS(Na\aZaja`\a`87|L kSa$'HZNug:p kZSa` g JfRkLQNu'HZ0+La kZ g:a\afR`\f:gSE|ea kZJk/Aka\Z W ga\Na\P _  d ( g (gQa `Sa`|"H kZ +̐kSjS'HNu:UEkVaR kZ gJf'HZRkLQ`2A"H$k Z/,JRfl'NRR"Sjf,_NuB k<[An`n kZ"H  d ) g +̐kSjS'HNu kZ <gJfSkLQRkLR'HZNu kZJf %#     seka2.docq}W)********************************************************************* ************* Welcome to the MasterSeka V1.53 Manual ************** ***************** MasterSeka (C) by BUDDHA in 1990 **************** ********************************************************************* Contact BUDDHA for other improvements/bugs! You can get my address from any cool guy or contact me by calling the PRISM-ILLUSION HQ in Switzerland ++411 825 5751 or by writing to P.O. Box 95, 8122 Binz, H% 4 p xcopyiiiqL<rresetq 3Q@3,|">HI6<<NN<<a&Q ,xN.SF FfaB|a /IC"QQXNu3,|zRFN IRFN,I$N8JBg SEkJ SBfSg>f dVf dFf d6f d&f d ~`,~f Q\~`p~`p~` p~`p~6f d f d"|;pX` f B`|TN+>This text(XcopyIII.txt) must be placed in your parent dir you >are working in. >Do not remove this text from your parent dir (DF0: DF1: df0:c/ etc...) >or change any thing in this text before the endline(*****...), >Texts such as import features and so on must be after this line... >Changes force XcopyIII to crashdown. Welcome to XcopyIII version 1.0 --------------------------------- > Spread by PARADOX < --------------------------------- XcopyIII, its alive......... T;lhis version of XcopyIII is a update of XCOPY V 2.2 From Myself. Original concept written by Frank Neuhaus ,Cachet. Some bugs removed , and improvements made . This time the noexit-XcopyIII is updated and a exact duplicate of the startup XcopyIII , and memory avail is expanded and it can use all you got. For 512K users with one drive they have to switch disk 3 times instead of 2 . (Sorry!, use the original xcopy to obtain the 2 times switching) Bugs and improvements from V2.2 . ****n***************************** Bugs: Copy from ram to disk with Verify , went in an Guru some times , bug removed . Diskdrives had to stop before starting xcopy. bug removed . No Virus on bootblock , removed . Now formatting with a normal bootblock . (not really a bug ,but of no use,there's a lot of good virus killers out to stop'em ) Improvements: (Menu two) Erasedisk . Qformat . Verify note . (not in menu 2) High track 89 . (trk counter) Erasedisk: Deletes all iQynformation on disk . QFORMAT: Same as Format Quick in CLI, but faster . VERIFY . -------- When you copy with VERIFY, you get a message in lower menu , when a error appears and on which Drive number , can help you a lot when copying to multiply drives at same time!! . Highest trk . 89 ---------------- You can now select up to track 89 , if you have to ,mostly 5 1/4 drives can go up this track , 3 1/2 drives stops at track 83/84 . improvements in XcopyIII V1.0 ****************y*************** Note! A minor bug is in XcopyIII, if Xcopy cant find this TXT file in your parent dir it crashes after a while. This minor bug is here to protect my Copyrights, NOT Cachet's!!!. in Menu one. TwinCopy TwinCopy+ in Menu two. Init DF0-3 ZAPDISK+ XC config BUGS . *----* There was a bug in the 'Verify note' , it told which side of the drive there was an V error on , not which Drive . Sorry! Noexit-XcopyIII is updated and a exact duplicate of The startup XcopyIIm|add21kq< Eۇ,xKNANpNDiskMaster.Configqx,-|||x|ni@@ " ,genericU WY_^]  urunq,,B,yC4Nh#,CENh#0`.graphics.libraryintuition.library y0"h8 iX|0) 2) i,y,N,y0N"y0,yNb"y,NbNuJ $ZzD&BootLegqU DcdqYJ` JH瀀,xCGp'NJfNC$NJg,@N"g A$vNPONudos.libraryyou need arp.library V39+ ,@ x(h(,fPOpNuLCV$OG~N&D$WJmn&a +r| ON"HN`Atx`| <N*@JgzJfF <N*@Jgd;|;| MNJJfLJl MND`A"tN,g."N"NJfla:pN"NA_$<`AD&HN|$ K/ "ONp`AW` O ,rNJg Or< +NNuCan't find %s %s is a file not a directory Ă9#UCopyq.OO(jdp N$"<I(l/ / g ,倲l"4(T`,2(jtp NJg2**p$A. J (F ") px(jhNJfr <(j(Npx(jN`G" px(j$N")JgrN")J g") px(jN#Alp|(jN#ApJlfr <(j(N <(jN")l <(jN <(jN#Attg" <(jN <I,NJf` <(jN")p <(jN")J f $"(`DJg(")#At n"p$(jNrҩ`` p (jNF""JfJf p(jNrN *** BREAK    ? %C!Invalid response - try again : %C'B=B RęVACK/S,DEL=DELETE/S,Q=QUIT/S,T=TYPE/SDeleted add.to.#A&#p8 #jd(z0Ht"NҪdT#A$<Ԫ`oG" p$(j$NrN%id")t0#Br#An&$)ԁv0(tԩԁ(rҩ``")#p") #p J grҩ $)p$(j4NJo")!")! rNNq.No free store for filenames - list incomplete do.workB #jdx#D`#j\p(INJg B`")JxoB#i r#A$ nGX" p4(j$Nrҩ$`rҩ$G`" p,(j( ܕ.NJhg r$҉#A Gl$ #BxtG" <(j(Nv$) ")x <(j8NJftG" <(j(N``") JgTtԩ" <(jhNJf r <(j(N <(jN`r#AG" <(j$N") Jgt#B") Jf J g") tJ fF#B`` p,(jNJg=<;:987654IHGFEDCBA@?MLTSRQPONB arp.libraryS PaP8UD sH 5%rx E8 IЏ6 c=-Blf0*kxbHH(&(G [1>y&"DaH"1.Qf9|EM L~lS.lN%Zd|;[c ^. СqA 2 ?CT#:%n`t4ƏԁqsJ@Fef0 U0"!  $($-fl`|2r2  g#C< <3ð8acC9Pvdw$E BMD:P4\_ P& JF:s4+A/Id,%IL/y Dixp0%GCnd8p/0Np'NuJ' MZARP Shell ProcessARP Background Shellarp.libraryArpLib 39.1 (cdh/sdb 4/9/89) dos.libraryintuition.librarygraphics.libraryenvironmentArp EnvLib ~6"R`\  h048<@DHLPTX\`rd 4 X ^z\.P %r$%$T$$$%j V !#l##%%$'' Ftz,2,/ '(>?z@(0r+d++@X~>>Z$%<  "! .-3210/ll icon.library/q?C )<pNuJ! F+Hicon.libraryicon 33.127 (22 Jul 1986) .XHD ,:HV !+dos.libraryRn  NupSn f .gaNuJn f4/.*"Npr0.2.Ё/,n"N.,_"N Q"i"!I `pNupNu/ $@%H*%N"Cz <!N%@&fH.< ,xNL`p`#"#&J%$#('&6conhandler.library&z00pNuJ" 1 l00>PLl l:(TZbF "1.0^ / *@+N"+H*A2a2CpN+@&gALCBprNDg "m&Nb *_Nu XB!HNuRn  NuSn f.fpNuJn f .*H*N,m""Ma`CBN>"m&Nb"Mp0-mN.L`Nu  H @!INuA (!I"#@ @ Nu"P g  4!     $diskfont.librarygA"9E`NJP# 0Pdiskfont.librarydiskfont 35.33 (18 Dec 1987) HACE" <8NLJg "@#H"NtpNu/ @#,@#Cp/,yN,_#gJCrp/,yN,_# gA* XB!H ,_Nu"y/,yNb,_"N0.nH/,yN.,_p`dos.librarygraphics.library #!6 LZJ,/ $n*JgNJjTS0}7 X req.libraryj  pNuJ2 *req.libraryReq 1.2 (Jul 13 1989) dos.libraryintuition.librarygraphics.libraryconsole.deviceD@n|Jv&+ T > t \5  *H*@+N"+H2B&B*B.B6B"m@ gp0N."m6 g <N.p"M0-mN.NuRn  NupSn f .gaNuH *N,xJm g p`$-2"MNa\ L`NupNuH,n*Hp2(."hA NVLJ@f0(Hnh4/@lBB0/ h@c40JAf2(Inh6/AlBC2/hAc61CLNuH`Jg `$H@J@f0p0LNup`H0Jg`&HCJCfHB SL Nup`HBR@c(o :HD6HDJCj ּfRBCHCڃ L8NuH(N"O0<BYQCp2Q IE Gbpt"Z* gN 1B&2( VA7ADA1Ah dQ֛N @?A <rHA,xN:/@Z.g W"o$@ gaZ`f G,La| |6/oo6|@c07@k2o[A?Ao6ooH?@2 o"KN%/!@/#A f| '|@ '|'o"k fpr`0)Hi2) IikSA Ka,n* KN4*@Jga /Zg"@ <,xN. g mVN mVN"@$)6)8)$iNp frg0*&ZP`fJk ogog<EgNC2| J,LNFC<ng6<qg0<bg*<lg$p<yg<vg<rgp<mg,l"`b/ g M,l*N LNuH,l.p0/Rfp"m2N G"m2zahHHp"NLREoJ@gNLJfLNuHvxz"g"a>RD@b6Jfa:D024L8NuH@pR@  gJfLNua4aNuH(H&I9@9A Ka9@9A 9| 9|9|A,)H)H4|3|0p9@,9@.0,V@2, VAa)H!K B(|L?NuB0BX00BX0BNuHG,!K'I 1|1| 1|1@u>1A v( g v(K!L)J 9@9A9BPh 7@7A7BPLNuH&JE,xNLONuNuH,xN @p ( f (npLCNu/,x/N"@ _#H,_NuH1@1A6!I,!J01B1Ca:1A 1| 1|C,!I"CP!I1|"HAPG!K||p01@0)V@2) XAaLNuH"H1@1A 1B 1|,!I"!I1|LNu%ldToo small!Too large!Get a numberGet some textH*N(H <rHA,m"N:&@JgVPxACEz,fa|A'HAz"Tp r $l`"HK\H*N <rHA,m"N:&@Lx$ gl,M'JJfEe'J7Av7Arkr'I'HlHN2Atva7|7|-0+|7@|| '|H '|7|.A0C$Kpr)ka7|VACatJkxgk'l@ks0+k8|kc7@0+Z@D@k7@ k"JNpr KaL +prHA,m"N:'@$gT"@Ыt'@( klfACp2Q'kCEB@rZAtLN,m* KN4Jg$@ @CN/ A"J,MN$_,m" jVN jVN @rC2Q"@N + fxg0+H|?gf`g8˫ k8(&gTJkxgP k$JgF,m."j2p\ri>NA^"+@m oAU"j2p N,m*N`HBD J,m*N JNJDg k$"klfJkxg)k@,m" +p"k$N. <"KN. LNuH*N&I><:8,m.N02"KN 02"KN 02"KN 02"KN LNuH(:<>&H"n6f(pr vfp r vtNk|:B+;A@NkN|zB+{Ag 2|p`0|r tNvkA@&A'H@Bpfp7@p7@7@0k|k kL7F7G7FD7GFf,kDk D7Fk 7G0q>1| g8kLk`,kFk F7Gk 7F0|@g kLk@LNuH?UO Op,n*N|BAp| fp LNua( 'HNuar 'HNua 'H1C1DNuH`NT*N$H"Ot BYQ O|1@1A!J UO"Or,mN0-Jj k0-Jj g0--%g0-CԹg0-H"mNp"mN"l g g "Q` f p"mNG C IfSI&H0Jj g -%f]Ke&I"H0 b-%f Jj kg[IGFf` *N< 0,0H"mNp"mNLNu/ p"l` g "QR@f"_Nup"_Nuaܐlkl2d`°mt,Up r RS.macrostp!Ế -unused asciiempty- code-empty-  -Spʦ~2 ceddefaultstbdEf1<:ced  _*.bak-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------T-------'夔  RS.keytabletfx @?/1  V_shell-ittvdmouse prompt "%n.%s >" run faccii 150 alias dd0 df0:C/dir opt a df0: alias dd1 df0:c/dir opt a df1: alias d0 df0:C/dir df0: alias d1 df0:c/dir df1: alias Mem df0:Memsearch alias f1 format drive df1: name " alias f0 format drive df1: name " alias HG8 0eddq 2qArc xArc vArc a00B00DF0:DF1:df0:cdf1:cdf0:sdf1:sdf1:devsdf0:devsdf0:ldf1:ldf2:df3:Cmd 1Cmd 2Cmd 3Cmd 4UQsrt.textt15hh^HA PJ"H,xHE6 a2L/&IP .P,SN @I (g @BIjH yE .X[N`*;;f70R6H4@qaZdCؘqsc! =-CmgvN*9iPBB%@f`AAEG@`6 4(^V8f1F `Vt"-A1̐,)0? C0"iBބwPIҀH{Axܯ9>mp.O"oAίjJ ΋L 3xL#0͖4qj|j!c%?-'1pa z*'̾2t2&Mqa3jR``CNL1!`I 9H ]l_<sL+ 9~ Wgh2P0]ZCPP#3 Dڟs|P$ @ K)'c}Kk(J ,2%6O._RT2ɱ)2r\50Ϫx@MqaxeP1 a_'D2/GP #@^sb(L))$!.t2B{09hir\W2D`1 I Ye |/a>>"LD~3 C@ v)6@V/pFE `m^k`r]'h2~Wh#0fRh`ȞBCHy(Hz L L,G,Yo&X GN=33 ( N = count of requester text lines ) "Retry" "Again" "Cancel" "Give Up" "Volume" "Volume" "Please insert volume" "PLEASE Insert Volume" "Replace volume" "PLEASE Replace Volume" "You MUST replace volume" "YOU MUST Replace Volume" "in any drive" "In the Highway to Hell" "is unreadable" "Is Unreadable" "is write protected" "Is Protect~Aqed from Writing" "is not validated" "Needs a visit from The Validator" "is full" "Has no room for more Spells" "has a read/write error" "Is Evil" "Disk is unreadable" "This Disk is Unreadable" "Disk is write protected" "You Can Not Write on Disk" "Disk is not validated" "This Disk has no Validation" "Disk is full" "This Disk is Full" "Disk has a read/write error" "On this disk lives an EVIL" "Not ag:]%[qςv&& q4Aw7R,?9^06@=5@< 99) a9&` 9@pon~}|{zyvVR; V1.08 ; ************************************************************** ; ****** ****** ; ****** NEW BOOTMENU V1.0 ****** ; ****** ****** ; ****** CODED BY ORLANDO/BRAINSTORM ****** ; ****** ****** ; ****** ATTENTION : DIRTY PROGRAMMING !!!!!!!!! ****** ; ****** type s/message Sp 8$#"!6543210/.-,A@?>=<;:9.demobootq'M'q oreset.sryYgxwvinstusEdTempA.992t+masterseka.startupt%o-w 0 1 -e 27 ;-r ;-b -S 1   RS.keytabletvn1 B R A I N S T O R M --------------------- BOOTMENU INSTALL DISK DOCUMENTATION Follow the following rules : 1. load seka 2. chip and 100Kb workspace 3. load the source/bootmenu.s 4. Edit the menu and the scrolltext and also the version number of the disk. More instructions in the source. 5. You can try out how it does look like. Just type : a (return> y j 6. IfM1QG Loaderp 9 #@ 0 0,xN|B9 <(C 0H@2TIH@2 <Axa <CrH@2TIH@2XI@QA'FC&E&vz 0aA'1C&E&vz 0a`&fa RRQNup2 QNu#",xC 0Nh#,zDAp"<$<Nz#v,z C N:#nNAN#C zpN~ A#8r aJ GS f.<z F3GEE'x` ozRQ` H@C <GNC NLNuA h"|$Irp TIQ"JQ < Afa& < Aja-fe loader.4qloader3e|,yCNh# ,y "<$<N/"$<&<N"Np9E f1`t f2`h f3`\ f4`P f5`D f6`8 f7`, f8` f9` f$"<`"<apNu"<tvN"Nup3QpNu110dos.library* Bootmenu coded by Orlando / Gfx by Chester There were many before us There are many still to come - vu uloader2q8,yCNh# ,y "<$<N/"$<&<0N"Np9E f1`t f2`h f3`\ f4`P f5`D f6`8 f7`, f8` f9` f$"<`"<apNu"<tvN"Nup3QpNu110dos.library* Bootmenu coded by Orlando / Gfx by Chester There were many before us There are many still to come See the new >t%bU6Y loadSOURCEpu,yCNh# ,y "<$<N/"$<&<|N"Np9E f1`t f2`h f3`\ f4`P f5`D f6`8 f7`, f8` f9` f$"<`"<apNu"<tvN"Nup3QpNu110dos.library* Bootmenu coded by Orlando / Gfx by Chester There were many before us There are many still to come c`jihg i loader1.sTcOdcbT } loader5.sga8 ; Loader V1.0 ; *** Coded by Orlando of Brainstorm open_dos: move.l 4,a6 lea dosname(pc),a1 jsr -408(a6) move.l d0,dosbase move.l dosbase,a6 move.l #windname,d1 move.l #1005,d2 jsr -30(a6) move.l d0,-(sp) move.l d0,d1 move.l #text,d2 move.l #textend-text,d3 jsr -48(a6) move.l (sp)+,d1 jsr -36(a6) cmp: moveq #0,d0 move.b $7e000,d0 lea filename(pc),a2 test1: cmp.b #1,d0 bne.s test2 move.b #'1',(a2) bra.s direct  c+$#"! Z  loader2.s!a{ ; Loader V1.0 ; *** Coded by Orlando of Brainstorm open_dos: move.l 4,a6 lea dosname(pc),a1 jsr -408(a6) move.l d0,dosbase move.l dosbase,a6 move.l #windname,d1 move.l #1005,d2 jsr -30(a6) move.l d0,-(sp) move.l d0,d1 move.l #text,d2 move.l #textend-text,d3 jsr -48(a6) move.l (sp)+,d1 jsr -36(a6) cmp: moveq #0,d0 move.b $7e000,d0 lea filename(pc),a2 test1: cmp.b #1,d0 bne.s test2 move.b #'1',(a2) bra.s direct "P|test2: cmp.b #2,d0 bne.s test3 move.b #'2',(a2) bra.s direct test3: cmp.b #3,d0 bne.s test4 move.b #'3',(a2) bra.s direct test4: cmp.b #4,d0 bne.s test5 move.b #'4',(a2) bra.s direct test5: cmp.b #5,d0 bne.s test6 move.b #'5',(a2) bra.s direct test6: cmp.b #6,d0 bne.s test7 move.b #'6',(a2) bra.s direct test7: cmp.b #7,d0 bne.s test8 move.b #'7',(a2) bra.s direct test8: cmp.b #8,d0 bne.s test9 move.b #'8',(a2) bra.s direct test9: cmp.b #9,d0 bne.s test10#> move.b #'9',(a2) bra.s direct test10: cmp.b #10,d0 bne.s error move.l #filename2,d1 bra.s direct move.l #filename,d1 direct: bsr.s load moveq #0,d0 rts ; *** Pointer to filename in D1 *** load: move.l #filename,d1 moveq #0,d2 moveq #0,d3 jsr -222(a6) rts error: moveq #-1,d0 lo: move.w $dff006,$dff180 dbra d0,lo moveq #0,d0 rts ; *** Variables *** filename: dc.b '1',0 filename2: dc.b '10',0 dosname:dc.b 'dos.library',0 even dosbase: dc.l 0 windname:$|,Rdc.b "*",0 even text: dc.b $c,$A,$a dc.b ' ' dc.b 'Bootmenu coded by Orlando / Gfx by Chester ',$a,$a,$a dc.b ' ' dc.b " There were many before us",$a dc.b ' ' dc.b 'There are many still to come',$a dc.b ' ' dc.b ' See the new day',$a dc.b ' ' dc.b ' The new day dawning.',$a dc.b ' ' dc.b " It's only just begun.",$a dc.b '  ' dc.b ' We march into the future',$a dc.b ' ' dc.b ' Towards the rising sun.',$a dc.b ' ' dc.b 'Beyond the wide, wide horizon.',$a,$A dc.b ' ' dc.b 'A journey filled with wonder',$a dc.b ' ' dc.b ' Is waiting just for fun...' DC.B $a,$a dc.b ' ' dc.b '*** B R A I N S T O R M ***' dc.b $9B,"0;31;40m",$A,$A even textend: 'dos.library',0 even dosbase: dc.l 0 windname:%&cjonml&  loader3.s%la* ; Loader V1.0 ; *** Coded by Orlando of Brainstorm open_dos: move.l 4,a6 lea dosname(pc),a1 jsr -408(a6) move.l d0,dosbase move.l dosbase,a6 move.l #windname,d1 move.l #1005,d2 jsr -30(a6) move.l d0,-(sp) move.l d0,d1 move.l #text,d2 move.l #textend-text,d3 jsr -48(a6) move.l (sp)+,d1 jsr -36(a6) cmp: moveq #0,d0 move.b $7e000,d0 lea filename(pc),a2 test1: cmp.b #1,d0 bne.s test2 move.b #'1',(a2) bra.s direct l2 Reboot: move.l 4.w,a6 lea The_Only_Way_Code(pc),a5 jsr -30(a6) align 4 The_Only_Way_Code: lea.l 2,a0 RESET jmp (a0) q !SOURCEp(PI46P. compilestartup2t)IZbI)wait.sr* 7Jh@?>=<;:987<gfxw+--R('&%87LKJIHGFEDCBWVUTSRQPONMba`_^]\[ZYXzy:-T,Y tf#28.sp,21 1_Y bootmenu2.sr+:R~; V1.08 ; ************************************************************** ; ****** ****** ; ****** NEW BOOTMENU V1.0 ****** ; ****** ****** ; ****** CODED BY ORLANDO/BRAINSTORM ****** ; ****** ****** ; ****** ATTENTION : DIRTY PROGRAMMING !!!!!!!!! ****** ; ****** .5/P/.-,+*)(=<;:9876543HGFEDCBA@?>SRQPONMLKJIXWVUT^]\[ZY/dnY Vtf#29.sp.YR\; V1.08 ; ************************************************************** ; ****** ****** ; ****** NEW BOOTMENU V1.0 ****** ; ****** ****** ; ****** CODED BY ORLANDO/BRAINSTORM ****** ; ****** ****** ; ****** ATTENTION : DIRTY PROGRAMMING !!!!!!!!! ****** ; ****** 0 4ŠZa  4<YBtf29p,R}; V1.08 ; ************************************************************** ; ****** ****** ; ****** NEW BOOTMENU V1.0 ****** ; ****** ****** ; ****** CODED BY ORLANDO/BRAINSTORM ****** ; ****** ****** ; ****** ATTENTION : DIRTY PROGRAMMING !!!!!!!!! ****** ; ****** 2 3#g3Ygtext.sp2ϛtext: DC.B "YEAH... ... ANOTHER TIME I PROUDLY PRESENT A NEW HOT COMPILE. THIS WEEKEND IS THE AMIEXPO IN COLOGNE. HOPE YOU HAVE LOTS OF " DC.B "FUN THERE. FIRST OF ALL I WANT TO GIVE SOME SPECIAL HANDSHAKES TO PEOPLE WHO DESERVE IT TO BE AT THE TOP..........." DC.B "PARADOX... HI CLASH. I WILL SWAP WITH YOU IN THE FUTURE BECAUSE CHESTER REALLY IS IN TROUBLE IN SCHOOL NOW. HE DOES NOT HAVE THE " DC.B "TIME FOR SWAPPING... ... ... THE SAME THING I WANT TO SAY TO THE FOLLOWING PEOPLE..0 B@H,xN| <7C VH@2TIH@2 <Aa <"CrH@2TIH@2XI@QA5C"E"vz 0aA5lC"E"vz 0a`&fa RRQNup2 QNu#,xC HNh#T,z A p"<$<Nz#,z pC pN:#\A <?BQA N#C > z N~ A{r aH GS f,<z F3GESE"t` ozRQ`H@C pGNC NLNuA xC02$Irp TIQ"JQ < Aa& < A53LYzyxwvutsr~} +*)VL`Ytf#30.sp6Ac4FEDCBA P loader4.s*82)|||8||8<`l< |~p 0 |<| ||0|8̨V*UKVTS"VeS+-TW2yQuJUV*5L3 Lʦwک#*eS<` @@ (P @` ``p p@  `@  Pm5lWLFFi 2j`@F #T1@*9\ @  @)@53+$@&E$  fU @ 3 34h0  #@  XHd  @0( "PFi0 r0`` 2 @ "@   ` 9{@(QlH  "@4 V  &w` 2H @ B *:$ T̐X2@  ,  ,$@ 0   $0@ "@h $ @  @H @d(5Nt"T%B̭32UdʠZ,\[ R(UdVT2jeP dg&V $,~ol< # ~LWa3xWF1<< @0` *;F_3p @0` 0`@ P`@`8@( 0 p34l~l?h ?7&x @SxN@ lH 46hxp "kA``B@ i,0& `[ 8 '0*< p4"p4 00p p0v 2`0:Ar@0`0 'O8`/H  g# L&&<`@   6306  47H0   p 0"@ $ 4@@ *=TYh&Hտ\&'  2084 nƴ[ ȉ43!W$xFBΕcx$燐1x > ?@o O?w@_=d 0@0p  `0` 08p ```  `@P``p`!;*> q^nCv  `x@6`l(0&`0 `0 #``0-0'`00 h0`0` 0@h2 @2 `6 X@C6`6 ,` 6 6 0 `6X60  `6~*?j6ǀ@@߁C& `6F0?6` /?8?n 0 p\0 8 07` p 0n0&$ տ @6@7  2`6n  `0Gw=a=7* @}ܐ} extern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper W~i^m~YIbatch2EdTempA.776pSxlހ,xC(Nh,@#:"<N:,x"zNbpNudos.library"! -,+*)('&%$#876543210/.CBA@?>=<] diskmasterSqQ[#,yCNh# ,y "<$<N/"$<&<N"Np9E f1`t f2`h f3`\ f4`P f5`D f6`8 f7`, f8` f9` f$"<`"<apNu"<tvN"Nup3QpNu110dos.library* 0;31;40m Code by1;31;40m Orlando0;31;40m Design by 1;31;40mChester 0;31;40m 0;31;40mDealing out the agony within ZzifzYIbatch1EdTempA.776pQ\6 Charging hard and no one's give in Living on your knees, conformity Or dying on your feet for honesty Inbred, our bodies work as ONE Bloody, but never cry submission Following our instinct not a trend Go against the masses till the end... 1;31;40m!!! YOU CANNOT STOP WHAT HAS ALREADY BEGUN !!! 0;31;40m *QX** B R A I N S T O R M ***0;31;40m 0N"Np9E f1`t f2`h f3`\ f4`P f5`D f6`8 f7`, f8` f9` f$"<`"<apNu"<tvN"Nup3QpNu110dos.library* 0;31;40m Code by1;31;40m Orlando0;31;40m Design by 1;31;40mChester 0;31;40m 0;31;40mDealing out the agony within U^a ; Loader V1.0 ; *** Coded by Orlando of Brainstorm open_dos: move.l 4,a6 lea dosname(pc),a1 jsr -408(a6) move.l d0,dosbase move.l dosbase,a6 move.l #windname,d1 move.l #1005,d2 jsr -30(a6) move.l d0,-(sp) move.l d0,d1 move.l #text,d2 move.l #textend-text,d3 jsr -48(a6) move.l (sp)+,d1 jsr -36(a6) cmp: moveq #0,d0 move.b $7e000,d0 lea filename(pc),a2 test1: cmp.b #1,d0 bne.s test2 move.b #'1',(a2) bra.s direct U`Ptest2: cmp.b #2,d0 bne.s test3 move.b #'2',(a2) bra.s direct test3: cmp.b #3,d0 bne.s test4 move.b #'3',(a2) bra.s direct test4: cmp.b #4,d0 bne.s test5 move.b #'4',(a2) bra.s direct test5: cmp.b #5,d0 bne.s test6 move.b #'5',(a2) bra.s direct test6: cmp.b #6,d0 bne.s test7 move.b #'6',(a2) bra.s direct test7: cmp.b #7,d0 bne.s test8 move.b #'7',(a2) bra.s direct test8: cmp.b #8,d0 bne.s test9 move.b #'8',(a2) bra.s direct test9: cmp.b #9,d0 bne.s test10_0ds[ZYXWVUTSRQfedcba`_^]\lkjihgfd[YcTF#26.spUa move.b #'9',(a2) bra.s direct test10: cmp.b #10,d0 bne.s error move.l #filename2,d1 bra.s direct move.l #filename,d1 direct: bsr.s load moveq #0,d0 rts ; *** Pointer to filename in D1 *** load: move.l #filename,d1 moveq #0,d2 moveq #0,d3 jsr -222(a6) rts error: moveq #-1,d0 lo: move.w $dff006,$dff180 dbra d0,lo moveq #0,d0 rts ; *** Variables *** filename: dc.b '1',0 filename2: dc.b '10',0 dosname:dc.b 'dos.library',0 even dosbase: dc.l 0 windname:UkDļdc.b "*",0 even text: dc.b $c,$A,$a DC.B $9B,"0;31;40m" dc.b ' ' dc.b 'Code by' DC.B $9B,"1;33;40m" DC.B ' Orlando' DC.B $9B,"0;31;40m" DC.B ' Design by ' DC.B $9B,"1;33;40m" DC.B 'Chester ',$a,$a,$a DC.B $9B,"0;31;40m" dc.b ' ' DC.B $9B,"0;31;40m" dc.b "Dealing out the agony within",$a dc.b ' ' dc.b "Charging hard and no one's give in",$a dc.b ' ' dc.b 'Living on your knees, conformity',$a dc.b bc *,UTSRQc loadi2.sbQa ; Loader V1.0 ; *** Coded by Orlando of Brainstorm open_dos: move.l 4,a6 lea dosname(pc),a1 jsr -408(a6) move.l d0,dosbase move.l dosbase,a6 move.l #windname,d1 move.l #1005,d2 jsr -30(a6) move.l d0,-(sp) move.l d0,d1 move.l #text,d2 move.l #textend-text,d3 jsr -48(a6) move.l (sp)+,d1 jsr -36(a6) cmp: moveq #0,d0 move.b $7e000,d0 lea filename(pc),a2 test1: cmp.b #1,d0 bne.s test2 move.b #'1',(a2) bra.s direct _fR; V1.08 ; ************************************************************** ; ****** ****** ; ****** NEW BOOTMENU V1.0 ****** ; ****** ****** ; ****** CODED BY ORLANDO/BRAINSTORM ****** ; ****** ****** ; ****** ATTENTION : DIRTY PROGRAMMING !!!!!!!!! ****** ; ****** e0[I//.-,+*)('&%:9876543210EDCBA@?>=<;PONMZYtf19.sr_g+ ****** ; ************************************************************** >extern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper _h4 ----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 ad_id.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memory_j7 *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256_k},d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output r_lYQaoutine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l _ L,#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite m0P     $#"! ZYtf.19rn3vvv`Y [sw.spo5pZLKJIHGFqponmlkjihgpdmY tf.spogR~ ; V1.08 ; ************************************************************** ; ****** ****** ; ****** NEW BOOTMENU V1.0 ****** ; ****** ****** ; ****** CODED BY ORLANDO/BRAINSTORM ****** ; ****** ****** ; ****** ATTENTION : DIRTY PROGRAMMING !!!!!!!!! ****** ; ****** qsX |{s8Y tf#30.finipr ub<lkjigf~}|{uY: ram-handlersq{R@  H,xN| <2C VH@2TIH@2 <Aa <CrH@2TIH@2XI@QA1cCEvz 0aA1NCEvz 0a`&fa RRQNup2 QNu#d,xC HNh#T,z A p"<$<Nz#,z pC pN:#\A <?BQA N#C > z N~ A]r aH GS f,<z F3GESEV` ozRQ`H@C pGNC NLNuA xC,$Irp TIQ"JQ < Aa& < AtwZjwAY> #execute_batch.sr{   HB A"B ,xNLBNtԉ#B&#p8BX%B\r#At-nҪ\Brҩ`"*\t!r%Ah <(j8N$)!(")!DOS r#At nҩBrҩ`G" <(jTN#A <(j8N$)!(")!DOS ")t!vt" <(jN <(jN#A`") <IhN&*l$") <(jN`Z") <IN&*l$") <(jN`0v$)") <(jN`")$$0("0 <nR~; V1.08 ; ************************************************************** ; ****** ****** ; ****** NEW BOOTMENU V1.0 ****** ; ****** ****** ; ****** CODED BY ORLANDO/BRAINSTORM ****** ; ****** ****** ; ****** ATTENTION : DIRTY PROGRAMMING !!!!!!!!! ****** ; ****** tA" ; *** Execute batch *** open_dos: move.l 4.w,a6 lea dosname(pc),a1 jsr -408(a6) move.l d0,a6 move.l d0,d7 load: lea filename(pc),a1 move.l a1,d1 moveq #0,d2 moveq #0,d3 jsr -222(a6) close_dos: move.l 4.w,a6 move.l d7,a1 moveq #0,d0 rts dosname: dc.b 'dos.library',0 even filename: dc.b 'E contents' Y> loadSOURCEp ?? " dc.b " -=== Compile done by Axel ===- " even tuttiname: dc.b '30' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.bJ@ " dc.b " -=== Compile done by Axel ===- " even tuttiname: dc.b '30' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.bZ; 4 color load install makedir df1:S wait makedir df1:C wait copy df0:c/run df1:c copy df0:loader/loadernew df1:c/loader copy df0:C/reset df1:c/reset copy df0:s/compilestartup df1:s/startup-sequence copy df0:Devs/system-configuration df1: copy df0:contents df1:contents ;contents batch copy df0:mmore df1:c/mmore ;text-reader copy df0:contents_exec df1: ;this executes the contents copy df0:tuttilist.txt df1: copy df0:C/e df1:c/E YIn|4----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 adn}]d.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memoryn *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256WY"; 2 color load install makedir df1:S wait makedir df1:C wait copy df0:c/run df1:c/ copy df0:c/add21k df1:c/ copy df0:loader/loadernew2 df1:c/loader copy df0:C/reset df1:c/ copy df0:s/compilestartup2 df1:s/startup-sequence copy df0:Devs/system-configuration df1: copy df0:contents df1:contents ;contents batch copy df0:mmore df1:c/mmore ;text-reader copy df0:contents_exec df1: ;this executes the contents copy df0:tuttilist.txt df1: copy df0:C/e df1:c/E n}l,d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output rnYQ=outine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l n LC#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite n xZpointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 ?? " dc.b " -=== Compile done by Axel ===- " even tuttiname: dc.b '30' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.beR; V1.08 ; ************************************************************** ; ****** ****** ; ****** NEW BOOTMENU V1.0 ****** ; ****** ****** ; ****** CODED BY ORLANDO/BRAINSTORM ****** ; ****** ****** ; ****** ATTENTION : DIRTY PROGRAMMING !!!!!!!!! ****** ; ****** e ****** ; ************************************************************** >extern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper e4----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 ade[d.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memorye *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256e}k,d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output reYQextern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper m4----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 admHd.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memorym *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256m}X,d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output rmYQ)outine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l m L/#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite m x[pointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 m  z N~ AVr aH GS f,<z F3GESEP` ozRQ`H@C pGNC NLNuA xC&$Irp TIQ"JQ < Aa& < A)ea < Aa <+Aa`H@0H@0Nu#@G9 _g ]g [g Xg Vg Tg Rg Pg Ng Lg 9gJ9g@J9Ng`6 9f9 ga`j3a3`R`(,xC DNh#&3 NvLpNuG:x og8 zg8 g8 g: g< g> g@ gB gD gF````~`v`n`f`^`V `N `FHA /gS 9g:oXz`o v o 9uv `nprtv09 zxgZ>2IH4:hB8DD CnD CmDyL3Hp0:@J@j yL`X @e yL`09 3H09 2IAfbf"9 wfN dgB fg`xCE ogjI.KN ,  -   B9`>CE:g,  IK ,  - B9NqCpJ9Og QgQ` QfgQ`O`B9O,z 2C 2 <"<N,z C prt&<(<*<Nt9f2C z vpNR f #ͮ 9Qg`R9R 9PRf B9QB9R 9Ggat`a~W9 S9 U9 S9 Y9 'W9 /S9 7U9 ?Y9 GU9 OS9 WW9 _S9 gU9 oW9 wY9 U9 LNu "$&(*,.02468:<> ,8   u !"#$% &1' B( S) d* u+ ,-.N2(Pv T 2 +7OPQR S uT dU S V BW1X YZ[\]^`abcde f1g ow 1  1 B 1 B S d u  S d,k,n4 S  u d S B1  B ')1* +,-./0a|#0Nqa.:9 s 9 sg GNu3 r#,0#,43 83:3<3>3@aB9GNuA CC |.p zgj ygn xgr wgv vgz sg~gTIQBL`RIIE9E(:& gQ#HLNuP`"Pq~`DP`P`P`Q`x#-43 83:3&<30>3@aNu9f#rP#nT3j@3dB3^d3Xf3D3F3BXNu,-.%/0123485678X9:;<=>?@ABCD8EFhGH8IJ%KLMN(OPQRSTSUo@vov88graphics.libraryn1lABCDEFGHIJ K L M N OPQRSTUVWXYZ1234567 8!9"0#?$!%.& 'z'x'y'w'v's'Dtopaz.fontKeep on reading to enjoy some SPECIAL GREETINGS... 084 The one and only makers of this crap are : ORLANDO (who coded this ) and CHESTER (who designed and drew the graphics). Here the instructions : Use mouse, cursor keys, joystick to select and left mouse button, joy-button, return or f-key to load the desired program. (Joystick selection is quite useful for gamers, also because it's not as easy to select with, as with the other methods... You're waiting   -for the SPECIAL (!!!) greetings, so here we go ... From Chester to : Scoopex, Rebels, Image, Flash, Paradox, Crusaders, Cryptoburners, Phenomena, Silents, Adept, The Link, Dual Crew, No Limits, Impact, Hyde, Celtic, Vision, Level 4,... From Orlando to : Storm, Zero Defects... From Scattergold : Alcatraz, Defjam-Ccs-Acc, Tristar-Rsi, Crusaders, Kefrens, Vision, Dual Crew, Cytax, Paradox, Tgs, Genesis, Subway, Scoopex... Fra0^p&6b`j~DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS DS DS DS DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS!DS"DS#DS$DS%DS&DS'DS(DS)DS*DS+DS,DS-DS.DS/DS0DS1DS2DS3DS4DS5DS6DS7DS8DS9DS:DS;DSDS?DS@DSADSBDSCDSDDSEDSFDSGDSHDSIDSJDSKDSLDSMDSNDSODSPDSQDSRDSSDSTDSUDSVDSWDSXDSYDSZDS[DS\DS]DS^DS_DS`DSaDSbDScDSdDSeDSfDSgDShDSiDSjDSkDSlDSmDSnDSoDSpDSqDSrDSsDStDSuDSvDSwDSxDSyDSzDS{DS|DS}DS~DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS DS DS DS DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS!DS"DS#DS$DS%DS&DS'DS(DS)DS*DS+DS,DS-DS.DS/DS0DS1DS2DS3DS4DS5DS6DS7DS8DS9DS:DS;DSDS?DS@DSADSBDSCDSDDSEDSFDSGDSHDSIDSJDSKDSLDSMDSNDSODSPDSQDSRDSSDSTDSUDSVDSWDSXDSYDSZDS[DS\DS]DS^DS_DS`DSaDSbDScDSdDSeDSfDSgDShDSiDSjDSkDSlDSmDSnDSoDSpDSqDSrDSsDStDSuDSvDSwDSxDSyDSzDS{DS|DS}DS~DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS DS DS DS DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS!DS"DS#DS$DS%DS&DS'DS(DS)DS*DS+DS,DS-DS.DS/DS0DS1DS2DS3DS4DS5DS6DS7DS8DS9DS:DS;DSDS?DS@DSADSBDSCDSDDSEDSFDSGDSHDSIDSJDSKDSLDSMDSNDSODSPDSQDSRDSSDSTDSUDSVDSWDSXDSYDSZDS[DS\DS]DS^DS_DS`DSaDSbDScDSdDSeDSfDSgDShDSiDSjDSkDSlDSmDSnDSoDSpDSqDSrDSsDStDSuDSvDSwDSxDSyDSzDS{DS|DS}DS~DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDWDWDWDWDWDWDWDWDWDW DW DW DW DW DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW!DW"DW#DW$DW%DW&DW'DW(DW)DW*DW+DW,DW-DW.DW/DW0DW1DW2DW3DW4DW5DW6DW7DW8DW9DW:DW;DWDW?DW@DWADWBDWCDWDDWEDWFDWGDWHDWIDWJDWKDWLDWMDWNDWODWPDWQDWRDWSDWTDWUDWVDWWDWXDWYDWZDW[DW\DW]DW^DW_DW`DWaDWbDWcDWdDWeDWfDWgDWhDWiDWjDWkDWlDWmDWnDWoDWpDWqDWrDWsDWtDWuDWvDWwDWxDWyDWzDW{DW|DW}DW~DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW DW DW DW DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW!DW"DW#DW$DW%DW&DW'DW(DW)DW*DW+DW,DW-DW.DW/DW0DW1DW2DW3DW4DW5DW6DW7DW8DW9DW:DW;DWDW?DW@DWADWBDWCDWDDWEDWFDWGDWHDWIDWJDWKDWLDWMDWNDWODWPDWQDWRDWSDWTDWUDWVDWWDWXDWYDWZDW[DW\DW]DW^DW_DW`DWaDWbDWcDWdDWeDWfDWgDWhDWiDWjDWkDWlDWmDWnDWoDWpDWqDWrDWsDWtDWuDWvDWwDWxDWyDWzDW{DW|DW}DW~DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW DW DW DW DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW!DW"DW#DW$DW%DW&DW'DW(DW)DW*DW+DW,DW-DW.DW/DW0DW1DW2DW3DW4DW5DW6DW7DW8DW9DW:DW;DWDW?DW@DWADWBDWCDWDDWEDWFDWGDWHDWIDWJDWKDWLDWMDWNDWODWPDWQDWRDWSDWTDWUDWVDWWDWXDWYDWZDW[DW\DW]DW^DW_DW`DWaDWbDWcDWdDWeDWfDWgDWhDWiDWjDWkDWlDWmDWnDWoDWpDWqDWrDWsDWtDWuDWvDWwDWxDWyDWzDW{DW|DW}DW~DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW DW DW DW DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW!DW"DW#DW$DW%DW&DW'DW(DW)DW*DW+DW,DW-DW.DW/DW0DW1DW2DW3DW4DW5DW6DW7DW8DW9DW:DW;DWDW?DW@DWADWBDWCDWDDWEDWFDWGDWHDWIDWJDWKDWLDWMDWNDWODWPDWQDWRDWSDWTDWUDWVDWWDWXDWYDWZDW[DW\DW]DW^DW_DW`DWaDWbDWcDWdDWeDWfDWgDWhDWiDWjDWkDWlDWmDWnDWoDWpDWqDWrDWsDWtDWuDWvDWwDWxDWyDWzDW{DW|DW}DW~DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWD[D[D[D[D[D[D[D[D[D[ D[ D[ D[ D[ D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[ D[!D["D[#D[$D[%D[&D['D[(D[)D[*D[+D[,D[-D[.D[/D[0D[1D[2D[3D[4D[5D[6D[7D[8D[9D[:D[;D[D[?D[@D[AD[BD[CD[DD[ED[FD[GD[HD[ID[JD[KD[LD[MD[ND[OD[PD[QD[RD[SD[TD[UD[VD[WD[XD[YD[ZD[[D[\D[]D[^D[_D[`D[aD[bD[cD[dD[eD[fD[gD[hD[iD[jD[kD[lD[mD[nD[oD[pD[qD[rD[sD[tD[uD[vD[wD[xD[yD[zD[{D[|D[}D[~D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[ D[ D[ D[ D[ D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[ D[!D["D[#D[$D[%D[&D['D[(D[)D[*D[+D[,D[-D[.D[/D[0D[1D[2D[3D[4D[5D[6D[7D[8D[9D[:D[;D[D[?D[@D[AD[BD[CD[DD[ED[FD[GD[HD[ID[JD[KD[LD[MD[ND[OD[PD[QD[RD[SD[TD[UD[VD[WD[XD[YD[ZD[[D[\D[]D[^D[_D[`D[aD[bD[cD[dD[eD[fD[gD[hD[iD[jD[kD[lD[mD[nD[oD[pD[qD[rD[sD[tD[uD[vD[wD[xD[yD[zD[{D[|D[}D[~D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[ D[ D[ D[ D[ D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[ D[!D["D[#D[$D[%D[&D['D[(D[)D[*D[+D[,D[-D[.D[/D[0D[1D[2D[3D[4D[5D[6D[7D[8D[9D[:D[;D[D[?D[@D[AD[BD[CD[DD[ED[FD[GD[HD[ID[JD[KD[LD[MD[ND[OD[PD[QD[RD[SD[TD[UD[VD[WD[XD[YD[ZD[[D[\D[]D[^D[_D[`D[aD[bD[cD[dD[eD[fD[gD[hD[iD[jD[kD[lD[mD[nD[oD[pD[qD[rD[sD[tD[uD[vD[wD[xD[yD[zD[{D[|D[}D[~D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[DSDSDSDSDSDSDSDSDSDS DS DS DS DS DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS!DS"DS#DS$DS%DS&DS'DS(DS)DS*DS+DS,DS-DS.DS/DS0DS1DS2DS3DS4DS5DS6DS7DS8DS9DS:DS;DSDS?DS@DSADSBDSCDSDDSEDSFDSGDSHDSIDSJDSKDSLDSMDSNDSODSPDSQDSRDSSDSTDSUDSVDSWDSXDSYDSZDS[DS\DS]DS^DS_DS`DSaDSbDScDSdDSeDSfDSgDShDSiDSjDSkDSlDSmDSnDSoDSpDSqDSrDSsDStDSuDSvDSwDSxDSyDSzDS{DS|DS}DS~DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS DS DS DS DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS!DS"DS#DS$DS%DS&DS'DS(DS)DS*DS+DS,DS-DS.DS/DS0DS1DS2DS3DS4DS5DS6DS7DS8DS9DS:DS;DSDS?DS@DSADSBDSCDSDDSEDSFDSGDSHDSIDSJDSKDSLDSMDSNDSODSPDSQDSRDSSDSTDSUDSVDSWDSXDSYDSZDS[DS\DS]DS^DS_DS`DSaDSbDScDSdDSeDSfDSgDShDSiDSjDSkDSlDSmDSnDSoDSpDSqDSrDSsDStDSuDSvDSwDSxDSyDSzDS{DS|DS}DS~DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS DS DS DS DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS!DS"DS#DS$DS%DS&DS'DS(DS)DS*DS+DS,DS-DS.DS/DS0DS1DS2DS3DS4DS5DS6DS7DS8DS9DS:DS;DSDS?DS@DSADSBDSCDSDDSEDSFDSGDSHDSIDSJDSKDSLDSMDSNDSODSPDSQDSRDSSDSTDSUDSVDSWDSXDSYDSZDS[DS\DS]DS^DS_DS`DSaDSbDScDSdDSeDSfDSgDShDSiDSjDSkDSlDSmDSnDSoDSpDSqDSrDSsDStDSuDSvDSwDSxDSyDSzDS{DS|DS}DS~DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS DS DS DS DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDS DS!DS"DS#DS$DS%DS&DS'DS(DS)DS*DS+DS,DS-DS.DS/DS0DS1DS2DS3DS4DS5DS6DS7DS8DS9DS:DS;DSDS?DS@DSADSBDSCDSDDSEDSFDSGDSHDSIDSJDSKDSLDSMDSNDSODSPDSQDSRDSSDSTDSUDSVDSWDSXDSYDSZDS[DS\DS]DS^DS_DS`DSaDSbDScDSdDSeDSfDSgDShDSiDSjDSkDSlDSmDSnDSoDSpDSqDSrDSsDStDSuDSvDSwDSxDSyDSzDS{DS|DS}DS~DSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDSDWDWDWDWDWDWDWDWDWDW DW DW DW DW DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW!DW"DW#DW$DW%DW&DW'DW(DW)DW*DW+DW,DW-DW.DW/DW0DW1DW2DW3DW4DW5DW6DW7DW8DW9DW:DW;DWDW?DW@DWADWBDWCDWDDWEDWFDWGDWHDWIDWJDWKDWLDWMDWNDWODWPDWQDWRDWSDWTDWUDWVDWWDWXDWYDWZDW[DW\DW]DW^DW_DW`DWaDWbDWcDWdDWeDWfDWgDWhDWiDWjDWkDWlDWmDWnDWoDWpDWqDWrDWsDWtDWuDWvDWwDWxDWyDWzDW{DW|DW}DW~DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW DW DW DW DWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDWDW DW!DW"DW#DW$DW%DW&DW'DW(DW)DW*DW+DW,DW-DW.DW/DW0DW1DW2DW3DW4DW5DW6DW7DW8DW9DW:DW;DWDW?DW@DWADWBDWCDWDDWEDWFDWGDWHDWIDWJDWKDWLDWMDWNDWODWPDWQDWRDWSDWTDWUDWVDWWDWXDWYDWZDW[DW\DW]DW^DW_DW`DWaDWbDWcDWdDWeDWfDWgDWhDWiDWjDWkDWlDWmDWnDWoDWpDWqDWrDWsDWtDWuDWvDWwDWxDWyDWzDW{DW|DW}DW~DWn.%)id Row (Ray), Synergy (Lobbytron), Amaze (Bomber), Dexion (Trix), No Limits (Slayer), Flash Prod. (The Pride).......................' ; dc.b 'From PEACE to: ' dc.b 'Tellus/Gate, Visioner/TCC-RSI, Sledge/Adept, Amiga Tracer/CPS and some others... ' ; dc.b 'From THE FLY to: ' dc.b 'Zylon/AFL, Doxos, Euphoria, Image, Legend, Desaster Area, Bass, ' dc.b 'Motion and the others' ; dc.b 'From SCATTERGOLD: ' dc.b 'Alcatraz, Defjam-Ccs-Acc, Tristar-Rsi, ' n/o7@dc.b 'Crusaders, Kefrens, ' dc.b 'Legend, Dual Crew, Cytax, Paradox, Tgs, Genesis, ' dc.b 'Subway, Scoopex... ' dc.b ' ' ; dc.b 'From CHESTER to: ' DC.B '(Chester stopped all activities till christmas! Axel took ' dc.b 'Chesters contacts...) ' dc.b ' ' ; dc.b 'And to all contacts from the other Brainstorm members...' dc.b ' ' ; ; dc.b 'The credits for thn0ڔis many times used bootmenu must go to: ' dc.b 'Orlando (Coding) and Chester (Design). ' dc.b 'Here the instructions: Use mouse, cursor keys, joystick ' dc.b 'to select and left mouse button, joy-button, return or ' dc.b 'f-key to load the desired program. (Joystick selection is ' dc.b 'quite useful for gamers, also because its not as easy to ' dc.b 'select with, as with the other methods... ' dc.b ' ' endG: ; 71 chars -> ; ***n1Pm Menutext *** text1: dc.b " F1 Intro by ADVANCE " dc.b " F2 New Intro by TOXIC TRACE " dc.b " F3 Vector Demo by TOXIC TRACE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 Tune by 4-MAT OF ANARCHY " dc.b " F6 Tune by PHOTON OF PHENOMENA n2ʮ̲+ ",'' dc.b " " dc.b " Released: 16-11-90 " dc.b " " dc.b " -=== Compile done by Axel ===- " even tuttiname: dc.b '30' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.bn3cs 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 or Demo by TOXIC TRACE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 Tune by 4-MAT OF ANARCHY " dc.b " F6 Tune by PHOTON OF PHENOMENA D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[ D[ D[ D[ D[ D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[ D[!D["D[#D[$D[%D[&D['D[(D[)D[*D[+D[,D[-D[.D[/D[0D[1D[2D[3D[4D[5D[6D[7D[8D[9D[:D[;D[D[?D[@D[AD[BD[CD[DD[ED[FD[GD[HD[ID[JD[KD[LD[MD[ND[OD[PD[QD[RD[SD[TD[UD[VD[WD[XD[YD[ZD[[D[\D[]D[^D[_D[`D[aD[bD[cD[dD[eD[fD[gD[hD[iD[jD[kD[lD[mD[nD[oD[pD[qD[rD[sD[tD[uD[vD[wD[xD[yD[zD[{D[|D[}D[~D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[ D[ D[ D[ D[ D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[ D[!D["D[#D[$D[%D[&D['D[(D[)D[*D[+D[,D[-D[.D[/D[0D[1D[2D[3D[4D[5D[6D[7D[8D[9D[:D[;D[D[?D[@D[AD[BD[CD[DD[ED[FD[GD[HD[ID[JD[KD[LD[MD[ND[OD[PD[QD[RD[SD[TD[UD[VD[WD[XD[YD[ZD[[D[\D[]D[^D[_D[`D[aD[bD[cD[dD[eD[fD[gD[hD[iD[jD[kD[lD[mD[nD[oD[pD[qD[rD[sD[tD[uD[vD[wD[xD[yD[zD[{D[|D[}D[~D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[D[n#n"nt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blittn$j!er move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.wn%w8 $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853n&800 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b n'Š.'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Varn(H-iables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *n) H** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 text: DC.B "..........................WE ARE LAME........CHICKS ARE FAME.......... " DC.B "SOME SPECIAL SORRIES HAVE TO GO TO TRIX OF DEXION... SLAYER OF NO LIMITS... THE PRIDE OF FLASH PROD. ... CLASH OF PARADOX... RUBICON OF VALHALLA... RAY OF SKID ROW... STRANGER OF ADEPT AND DR. AWESOME OF CRUSADERS FOR THIS LONG DELAY "n*{; DC.B "BUT I HAD BIG PROBLEMS WITH ALL THOSE CONTACTS OF CHESTER. I HOPE THAT I MANAGED IT NOW... ... ... SORRY BUT I HAVE TO LEAVE YOU NOW BECAUSE I AM WRITING A TEST IN FRENCH TOMORROW. SO BYE...... AND ALL THE BEST WISHES YOU YOURS.......AXEL OF BRAINSTORM" DC.B "...........................SCROLL RESTARTS.........................." DC.B "." dc.b -1 even gtext: DC.B 'This time the SPECIAL greetings from Brainstorm members are going to ' dc.b 'the following amiga beasts: n+ ' dc.b 'From the ZINE team (Orlando, Chester, Accused) to: Hack-Mag, D.I.S.C, ' dc.b '4th Dimension, Stolen Data, Fraud, ' dc.b 'ex-News On Tour and to all the editors of the other disk-magazines...' dc.b ' ' ; dc.b 'From ORLANDO to: ' dc.b "Slayer of Scoopex (Thanks for the demo! OK, we're gonna make " dc.b "a sex-phone-call! I'll send you my number soon!), " dc.b 'Tec of Cryptoburners (Waiting for your next cool demo... ), ' dc.b 'Monotof of Stn,ڧd)orm (I know, that ZINE is a best-seller!), ' dc.b 'Terminator of Zero Defects (Thanks for express sending and calls), ' dc.b 'Raistlin of Northstar (Thanks for the tape. Where is the next?) ' dc.b ' ' ; dc.b 'From MAJESTIC to: ' dc.b 'Hazor (BF), Jackmix (CRB), TSB, Hybrid, Mirage ' ; dc.b 'From TRUXTON to: ' dc.b 'Fraxion/Lix, No Limits/Hunter, Spreadpoint/Mikey, ' dc.b 'Phenomena/Dream Warrior, Scoopex SF/Zebra, Silents/L.Dredd , n-؊ ' ; dc.b 'From AXEL to: ' dc.b ' This time my (Axel) special hellos go to: Crusaders (Bustman, Dr. Awesome),' dc.b ' Kefrens (Maestro), Dual Crew (Tip), Anarchy (4-Mat), Scoopex (Bleris), Budbrain Productions (Psycho),' dc.b ' Cascade (Skimmer), Cytax (Terminator-X), Giants (Dr. Feelgood), Euphoria (Countmic),' dc.b ' Addonic (Dr. Skid), Triangle 3532 (Zark), Warfalcons (Syz), Paradox (Clash), Adept (Stranger), Valhalla & Angels (Rubicon),' dc.b ' Skn$0180,$096b dc.w $2a11,$fffe,$0180,$0a7c dc.w $2b11,$fffe,$0180,$0b8d dc.w $2c11,$fffe,$0180,$0c9e dc.w $2d11,$fffe,$0180,$0daf dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02n4vh00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0daf dc.w $5111,$fffe,$0180,$0c9e dc.w $5211,$fffe,$0180,$0b8d dc.w $5311,$fffe,$0180,$0a7c dc.w $5411,$fffe,$0180,$096b dc.w $5511,$fffe,$0180,$085a,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w nޜ.y$5611,$fffe,$0180,$0749;1 dc.w $5711,$fffe,$0180,$0638 dc.w $5811,$fffe,$0180,$0527 dc.w $5911,$fffe,$0180,$0416 dc.w $5a11,$fffe,$0180,$0305;5 dc.w $5b11,$fffe,$0180,$0204 dc.w $5c11,$fffe,$0180,$0103 dc.w $5d11,$fffe,$0180,$0002 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0002 dc.w $6111,$fffe,$0180,$0103 dc.w $6211,$fffe,$0180,$0204 dc.w $6311,$fffe,$0180,$0305 dc.w $6411,$fffe,$0180,$0416 dc.w $6511,$fffe,$0180,$0527 n~dc.w $6611,$fffe,$0180,$0638 dc.w $6711,$fffe,$0180,$0416 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0416 dc.w $e311,$fffe,$0180,$0638 dc.w $e411,$fffe,$0180,$0527 dc.w $e511,$fffe,$0180,$0416 dc.w $e611,$fffe,$0180,$0305 dc.w $e711,$fffe,$0180,$0204 dc.w $e811,$fffe,$0180,$0103 dc.w $e911,$fffe,$0180,$0002 ;;;;;;;;;;;;;;;; dc.w $en.E~Kb11,$fffe,$0180,$0002 dc.w $ec11,$fffe,$0180,$0103 dc.w $ed11,$fffe,$0180,$0204 dc.w $ee11,$fffe,$0180,$0305 dc.w $ef11,$fffe,$0180,$0416 dc.w $f011,$fffe,$0180,$0527 dc.w $f111,$fffe,$0180,$0638 dc.w $f211,$fffe,$0180,$0416 ;;;;;;;;;;;;;;;;; little scroll color dc.w $f311,$fffe,$0182,$0749 dc.w $fc11,$fffe,$0180,$0527 dc.w $fd11,$fffe,$0180,$0638 dc.w $fe11,$fffe,$0180,$0749 dc.w $ff11,$fffe,$0180,$085a ; *** under 256 *** dc.w $ffdf,$fffenfzu ;beam 2 under 256 dc.w $0011,$fffe,$0180,$096b dc.w $0111,$fffe,$0180,$0a7c dc.w $0211,$fffe,$0180,$0b8d dc.w $0311,$fffe,$0180,$0c9e dc.w $0411,$fffe,$0180,$0daf dc.w $0511,$fffe,$0180,$0416 dc.w $0611,$fffe,$0180,$0527 ; /////////*** The scroll copper murks *** fontpos:dc.w $0711,$fffe dc.w $0182,$0fa8 dc.w $0100,$1200 dc.w $008e,$2c6b dc.w $0090,$2cff dc.w $0092,$0018 dc.w $0094,$00d8 fontbpl: dc.w $00e0,$0000 dc.w $00e2,$0000 bplcon1:dc.w $0102n5b,$00ff ;move and move... ; /////////*** end of scroll routine copper murks *** dc.w $1411,$fffe,$0180,$0a53,$0100,$0200 dc.w $1511,$fffe,$0180,$0fa8 dc.w $1611,$fffe,$0180,$0e97 dc.w $1711,$fffe,$0180,$0d86 dc.w $1811,$fffe,$0180,$0c75 dc.w $1911,$fffe,$0180,$0b64 dc.w $1a11,$fffe,$0180,$0a53 dc.w $1b11,$fffe,$0180,$0942 dc.w $1c11,$fffe,$0180,$0831 dc.w $1d11,$fffe,$0180,$0720,$0182,$0942 dc.w $1e11,$fffe,$0180,$0610 dc.w $1f11,$fffe,$0180,$0610 nG dc.w $2011,$fffe,$0180,$0610 ; credits dc.w $0100,$1200 dc.w $0102,$0000 ;end of wobbling credbpl:dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $2711,$fffe,$0100,$0200 dc.w $2911,$fffe,$0180,$0831 dc.w $2a11,$fffe,$0180,$0720 dc.w $2b11,$fffe,$0180,$0610 dc.w $2c11,$fffe,$0180,$0500 dc.w $2d11,$fffe,$0180,$0400 dc.w $2e11,$fffe,$0180,$0300 dc.w $2f11,$fffe,$0180,$0200 dc.w $3011,$fffe,$0180,$0000 coppend:dc.w $ffff,$fffe ; Scroll subroutines n 䐛 sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld movn!.ޔve.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) n"w*ӄ ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s decon zZ end load3: move.b #3,(a3) bra.L end load4: move.b #4,(a3) bra.L end load5: move.b #5,(a3) bra.L end load6: move.b #6,(a3) bra.L end load7: move.b #7,(a3) bra.L end load8: move.b #8,(a3) bra.L end load9: move.b #9,(a3) bra.L end load10: move.b #10,(a3) bra.L end ; ------------------- Main routines -------------------- int: movem.l a0-a6/d0-d7,-(a7) lea logowait(pc),a0 cmp.b #$2f,(a0) beq.s sou subq.b #$01,(a0) sou: ; *** Move beam at top of selection in first frame dinlsplayed *** cmp.b #1,mousetop beq.s mouseco move.b #$6f,menuwait move.b #$7a,menuwait2 move.b #$6f,arrow1data move.b #$76,arrow1data+2 move.b #$6f,arrow2data move.b #$76,arrow2data+2 move.b #1,mousetop bra.s okY ; -------------------- Mouse routine --------------------- mouseco: moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 move.w $dff00a,d0 cmp.w oldy(pc),d0 beq.S okY move.w d0,d7 move.w d0,d1 lsr.w #8,d1 ; d0 : X ext.w d0 ; d1 : Y move.w d1,d2n3T ;Berechnungen fuer Y move.b oldy(pc),d3 sub.w d2,d3 move.w d3,d4 neg.w d4 cmp.w #-127,d3 bgt.s nny1 sub.w #255,d4 nny1: cmp.w #127,d3 blt.s nny2 add.w #255,d4 nny2: add.w d4,ypos move.w d7,oldy okX: moveq #0,d0 move.w ypos(pc),d0 tst.w d0 bpl.s okY1 add.w #maxY+1,ypos bra.s menu_up okY1: cmp.w #maxY,d0 bcs.s okY sub.w #maxY+1,ypos bra.L menu_down okY: move.w $dff00a,d0 move.w d0,oldy joy: move.w $dff00c,d0 move.w d0,d1 lsr.w #1,d1 eonɛr.w d0,d1 btst #0,d1 bne.s menu_down btst #8,d1 bne.s menu_up ; ------------------------ end of mouse routine ; *** Move beam up and down *** movebeam: move.b $bfec01,d0 cmp.b #$77,d0 ;end if help pressed bne.s ok2 move.b #1,endit ok2: cmp.b #$64,d0 beq.s menu_down cmp.b #$66,d0 beq.s menu_up bra.s fade ; * Move menu up menu_up: lea menuwait(pc),a1 lea menuwait2(pc),a2 cmp.b #$6f,(a1) ;top of menu ? beq.s fade ; * sprite up lea arrow1data(pc),a4 lea n' marrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***n3 fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;Mnή zoveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b ng"#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #n{e3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$nz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_colorn$Os: dc.w $01a0,$0000 dc.w $01a2,$0fff dc.w $01a4,$0bbb dc.w $01a6,$0888 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$0a78 ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0002 dc.w $2111,$fffe,$0180,$0103 dc.w $2211,$fffe,$0180,$0204 dc.w $2311,$fffe,$0180,$0305 dc.w $2411,$fffe,$0180,$0416 dc.w $2511,$fffe,$0180,$0527 dc.w $2611,$fffe,$0180,$0638 dc.w $2711,$fffe,$0180,$0749 dc.w $2811,$fffe,$0180,$085a dc.w $2911,$fffe,n.%id Row (Ray), Synergy (Lobbytron), Amaze (Bomber), Dexion (Trix), No Limits (Slayer), Flash Prod. (The Pride).......................' ; dc.b 'From PEACE to: ' dc.b 'Tellus/Gate, Visioner/TCC-RSI, Sledge/Adept, Amiga Tracer/CPS and some others... ' ; dc.b 'From THE FLY to: ' dc.b 'Zylon/AFL, Doxos, Euphoria, Image, Legend, Desaster Area, Bass, ' dc.b 'Motion and the others' ; dc.b 'From SCATTERGOLD: ' dc.b 'Alcatraz, Defjam-Ccs-Acc, Tristar-Rsi, ' n/o7dc.b 'Crusaders, Kefrens, ' dc.b 'Legend, Dual Crew, Cytax, Paradox, Tgs, Genesis, ' dc.b 'Subway, Scoopex... ' dc.b ' ' ; dc.b 'From CHESTER to: ' DC.B '(Chester stopped all activities till christmas! Axel took ' dc.b 'Chesters contacts...) ' dc.b ' ' ; dc.b 'And to all contacts from the other Brainstorm members...' dc.b ' ' ; ; dc.b 'The credits for thn0ڔis many times used bootmenu must go to: ' dc.b 'Orlando (Coding) and Chester (Design). ' dc.b 'Here the instructions: Use mouse, cursor keys, joystick ' dc.b 'to select and left mouse button, joy-button, return or ' dc.b 'f-key to load the desired program. (Joystick selection is ' dc.b 'quite useful for gamers, also because its not as easy to ' dc.b 'select with, as with the other methods... ' dc.b ' ' endG: ; 71 chars -> ; ***n1Pmm Menutext *** text1: dc.b " F1 Intro by ADVANCE " dc.b " F2 New Intro by TOXIC TRACE " dc.b " F3 Vector Demo by TOXIC TRACE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 Tune by 4-MAT OF ANARCHY " dc.b " F6 Tune by PHOTON OF PHENOMENA n2̱ ",'' dc.b " " dc.b " Released: 16-11-90 " dc.b " " dc.b " -=== Compile done by Axel ===- " even tuttiname: dc.b '30' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.bn3cs 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 or Demo by TOXIC TRACE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 Tune by 4-MAT OF ANARCHY " dc.b " F6 Tune by PHOTON OF PHENOMENA n x[pointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 n extern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper n#nnt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blittn$j!er move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.wn%w8 $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853n&8ٕ00 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b n'Š'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Varn(Hiables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *n) ** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 text: DC.B "..........................WE ARE LAME........CHICKS ARE FAME.......... " DC.B "SOME SPECIAL SORRIES HAVE TO GO TO TRIX OF DEXION... SLAYER OF NO LIMITS... THE PRIDE OF FLASH PROD. ... CLASH OF PARADOX... RUBICON OF VALHALLA... RAY OF SKID ROW... STRANGER OF ADEPT AND DR. AWESOME OF CRUSADERS FOR THIS LONG DELAY "n*{ DC.B "BUT I HAD BIG PROBLEMS WITH ALL THOSE CONTACTS OF CHESTER. I HOPE THAT I MANAGED IT NOW... ... ... SORRY BUT I HAVE TO LEAVE YOU NOW BECAUSE I AM WRITING A TEST IN FRENCH TOMORROW. SO BYE...... AND ALL THE BEST WISHES YOU YOURS.......AXEL OF BRAINSTORM" DC.B "...........................SCROLL RESTARTS.........................." DC.B "." dc.b -1 even gtext: DC.B 'This time the SPECIAL greetings from Brainstorm members are going to ' dc.b 'the following amiga beasts: n+ ' dc.b 'From the ZINE team (Orlando, Chester, Accused) to: Hack-Mag, D.I.S.C, ' dc.b '4th Dimension, Stolen Data, Fraud, ' dc.b 'ex-News On Tour and to all the editors of the other disk-magazines...' dc.b ' ' ; dc.b 'From ORLANDO to: ' dc.b "Slayer of Scoopex (Thanks for the demo! OK, we're gonna make " dc.b "a sex-phone-call! I'll send you my number soon!), " dc.b 'Tec of Cryptoburners (Waiting for your next cool demo... ), ' dc.b 'Monotof of Stn,corm (I know, that ZINE is a best-seller!), ' dc.b 'Terminator of Zero Defects (Thanks for express sending and calls), ' dc.b 'Raistlin of Northstar (Thanks for the tape. Where is the next?) ' dc.b ' ' ; dc.b 'From MAJESTIC to: ' dc.b 'Hazor (BF), Jackmix (CRB), TSB, Hybrid, Mirage ' ; dc.b 'From TRUXTON to: ' dc.b 'Fraxion/Lix, No Limits/Hunter, Spreadpoint/Mikey, ' dc.b 'Phenomena/Dream Warrior, Scoopex SF/Zebra, Silents/L.Dredd , n-؊{ ' ; dc.b 'From AXEL to: ' dc.b ' This time my (Axel) special hellos go to: Crusaders (Bustman, Dr. Awesome),' dc.b ' Kefrens (Maestro), Dual Crew (Tip), Anarchy (4-Mat), Scoopex (Bleris), Budbrain Productions (Psycho),' dc.b ' Cascade (Skimmer), Cytax (Terminator-X), Giants (Dr. Feelgood), Euphoria (Countmic),' dc.b ' Addonic (Dr. Skid), Triangle 3532 (Zark), Warfalcons (Syz), Paradox (Clash), Adept (Stranger), Valhalla & Angels (Rubicon),' dc.b ' Skn$0180,$096b dc.w $2a11,$fffe,$0180,$0a7c dc.w $2b11,$fffe,$0180,$0b8d dc.w $2c11,$fffe,$0180,$0c9e dc.w $2d11,$fffe,$0180,$0daf dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02n 4v<00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0daf dc.w $5111,$fffe,$0180,$0c9e dc.w $5211,$fffe,$0180,$0b8d dc.w $5311,$fffe,$0180,$0a7c dc.w $5411,$fffe,$0180,$096b dc.w $5511,$fffe,$0180,$085a,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w n .M$5611,$fffe,$0180,$0749;1 dc.w $5711,$fffe,$0180,$0638 dc.w $5811,$fffe,$0180,$0527 dc.w $5911,$fffe,$0180,$0416 dc.w $5a11,$fffe,$0180,$0305;5 dc.w $5b11,$fffe,$0180,$0204 dc.w $5c11,$fffe,$0180,$0103 dc.w $5d11,$fffe,$0180,$0002 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0002 dc.w $6111,$fffe,$0180,$0103 dc.w $6211,$fffe,$0180,$0204 dc.w $6311,$fffe,$0180,$0305 dc.w $6411,$fffe,$0180,$0416 dc.w $6511,$fffe,$0180,$0527 n ~dc.w $6611,$fffe,$0180,$0638 dc.w $6711,$fffe,$0180,$0416 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0416 dc.w $e311,$fffe,$0180,$0638 dc.w $e411,$fffe,$0180,$0527 dc.w $e511,$fffe,$0180,$0416 dc.w $e611,$fffe,$0180,$0305 dc.w $e711,$fffe,$0180,$0204 dc.w $e811,$fffe,$0180,$0103 dc.w $e911,$fffe,$0180,$0002 ;;;;;;;;;;;;;;;; dc.w $en .E~b11,$fffe,$0180,$0002 dc.w $ec11,$fffe,$0180,$0103 dc.w $ed11,$fffe,$0180,$0204 dc.w $ee11,$fffe,$0180,$0305 dc.w $ef11,$fffe,$0180,$0416 dc.w $f011,$fffe,$0180,$0527 dc.w $f111,$fffe,$0180,$0638 dc.w $f211,$fffe,$0180,$0416 ;;;;;;;;;;;;;;;;; little scroll color dc.w $f311,$fffe,$0182,$0749 dc.w $fc11,$fffe,$0180,$0527 dc.w $fd11,$fffe,$0180,$0638 dc.w $fe11,$fffe,$0180,$0749 dc.w $ff11,$fffe,$0180,$085a ; *** under 256 *** dc.w $ffdf,$fffen fzI ;beam 2 under 256 dc.w $0011,$fffe,$0180,$096b dc.w $0111,$fffe,$0180,$0a7c dc.w $0211,$fffe,$0180,$0b8d dc.w $0311,$fffe,$0180,$0c9e dc.w $0411,$fffe,$0180,$0daf dc.w $0511,$fffe,$0180,$0416 dc.w $0611,$fffe,$0180,$0527 ; /////////*** The scroll copper murks *** fontpos:dc.w $0711,$fffe dc.w $0182,$0fa8 dc.w $0100,$1200 dc.w $008e,$2c6b dc.w $0090,$2cff dc.w $0092,$0018 dc.w $0094,$00d8 fontbpl: dc.w $00e0,$0000 dc.w $00e2,$0000 bplcon1:dc.w $0102neR,$00ff ;move and move... ; /////////*** end of scroll routine copper murks *** dc.w $1411,$fffe,$0180,$0416,$0100,$0200 dc.w $1511,$fffe,$0180,$0daf dc.w $1611,$fffe,$0180,$0c9e dc.w $1711,$fffe,$0180,$0b8d dc.w $1811,$fffe,$0180,$0a7c dc.w $1911,$fffe,$0180,$096b dc.w $1a11,$fffe,$0180,$085a dc.w $1b11,$fffe,$0180,$0749 dc.w $1c11,$fffe,$0180,$0638 dc.w $1d11,$fffe,$0180,$0527,$0182,$0942 dc.w $1e11,$fffe,$0180,$0416 dc.w $1f11,$fffe,$0180,$0416 nGg dc.w $2011,$fffe,$0180,$0416 ; credits dc.w $0100,$1200 dc.w $0102,$0000 ;end of wobbling credbpl:dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $2711,$fffe,$0100,$0200 dc.w $2911,$fffe,$0180,$0831 dc.w $2a11,$fffe,$0180,$0720 dc.w $2b11,$fffe,$0180,$0610 dc.w $2c11,$fffe,$0180,$0500 dc.w $2d11,$fffe,$0180,$0400 dc.w $2e11,$fffe,$0180,$0300 dc.w $2f11,$fffe,$0180,$0200 dc.w $3011,$fffe,$0180,$0000 coppend:dc.w $ffff,$fffe ; Scroll subroutines n  sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld movn!.ޔJe.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) n"w*X ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s decon zZ\ end load3: move.b #3,(a3) bra.L end load4: move.b #4,(a3) bra.L end load5: move.b #5,(a3) bra.L end load6: move.b #6,(a3) bra.L end load7: move.b #7,(a3) bra.L end load8: move.b #8,(a3) bra.L end load9: move.b #9,(a3) bra.L end load10: move.b #10,(a3) bra.L end ; ------------------- Main routines -------------------- int: movem.l a0-a6/d0-d7,-(a7) lea logowait(pc),a0 cmp.b #$2f,(a0) beq.s sou subq.b #$01,(a0) sou: ; *** Move beam at top of selection in first frame dinlϰsplayed *** cmp.b #1,mousetop beq.s mouseco move.b #$6f,menuwait move.b #$7a,menuwait2 move.b #$6f,arrow1data move.b #$76,arrow1data+2 move.b #$6f,arrow2data move.b #$76,arrow2data+2 move.b #1,mousetop bra.s okY ; -------------------- Mouse routine --------------------- mouseco: moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 move.w $dff00a,d0 cmp.w oldy(pc),d0 beq.S okY move.w d0,d7 move.w d0,d1 lsr.w #8,d1 ; d0 : X ext.w d0 ; d1 : Y move.w d1,d2n3( ;Berechnungen fuer Y move.b oldy(pc),d3 sub.w d2,d3 move.w d3,d4 neg.w d4 cmp.w #-127,d3 bgt.s nny1 sub.w #255,d4 nny1: cmp.w #127,d3 blt.s nny2 add.w #255,d4 nny2: add.w d4,ypos move.w d7,oldy okX: moveq #0,d0 move.w ypos(pc),d0 tst.w d0 bpl.s okY1 add.w #maxY+1,ypos bra.s menu_up okY1: cmp.w #maxY,d0 bcs.s okY sub.w #maxY+1,ypos bra.L menu_down okY: move.w $dff00a,d0 move.w d0,oldy joy: move.w $dff00c,d0 move.w d0,d1 lsr.w #1,d1 eonor.w d0,d1 btst #0,d1 bne.s menu_down btst #8,d1 bne.s menu_up ; ------------------------ end of mouse routine ; *** Move beam up and down *** movebeam: move.b $bfec01,d0 cmp.b #$77,d0 ;end if help pressed bne.s ok2 move.b #1,endit ok2: cmp.b #$64,d0 beq.s menu_down cmp.b #$66,d0 beq.s menu_up bra.s fade ; * Move menu up menu_up: lea menuwait(pc),a1 lea menuwait2(pc),a2 cmp.b #$6f,(a1) ;top of menu ? beq.s fade ; * sprite up lea arrow1data(pc),a4 lea n' Aarrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***n3f fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;Mnή NoveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b ng"#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #n{93,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$nz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_colorns: dc.w $01a0,$0000 dc.w $01a2,$0000 dc.w $01a4,$0000 dc.w $01a6,$0000 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$085a ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0002 dc.w $2111,$fffe,$0180,$0103 dc.w $2211,$fffe,$0180,$0204 dc.w $2311,$fffe,$0180,$0305 dc.w $2411,$fffe,$0180,$0416 dc.w $2511,$fffe,$0180,$0527 dc.w $2611,$fffe,$0180,$0638 dc.w $2711,$fffe,$0180,$0749 dc.w $2811,$fffe,$0180,$085a dc.w $2911,$fffe,n4[----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 adnd.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memoryn r *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256n!},d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output rn"YPoutine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l n# L#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite n $x[[pointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 n %extern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper ..)Se're gonna make " dc.b "a sex-phone-call! I'll send you my number soon!), " dc.b 'Tec of Cryptoburners (Waiting for your next cool demo... ), ' dc.b 'Monotof of Storm (I know, that ZINE is a best-seller!), ' dc.b 'Terminator of Zero Defects (Thanks for express sending and calls), ' dc.b 'Raistlin of Northstar (Thanks for the tape. Where is the next?) ' dc.b ' ' ; dc.b 'From MAJESTIC to: ' dc.b 'Hazor (BF), Jackmix (CRB), TSB, Hybrid, Mirage ' ; dc.b ./*=:t'From TRUXTON to: ' dc.b 'Fraxion/Lix, No Limits/Hunter, Spreadpoint/Mikey' dc.b 'Phenomena/Dream Warrior, Scoopex SF/Zebra, Silents/L.Dredd , ' ; dc.b 'From AXEL to: ' dc.b ' This time my (Axel) special hellos go to: Crusaders (Bustman, Dr. Awesome),' dc.b ' Kefrens (Maestro), Dual Crew (Tip), Anarchy (4-Mat), Scoopex (Bleris), Budbrain Productions (Psycho),' dc.b ' Cascade (Skimmer), Cytax (Terminator-X), Giants (Dr. Feelgood), Euphoria (Countmic),.0+PEH ' dc.b ' Addonic (Dr. Skid), Triangle 3532 (Zark), Warfalcons (Syz), Paradox (Clash), Adept (Stranger), Valhalla & Angels (Rubicon),' dc.b ' Skid Row (Ray), Synergy (Lobbytron), Amaze (Bomber)...................................................................' ; dc.b 'From PEACE to: ' dc.b 'Tellus/Gate, Visioner/TCC-RSI, Sledge/Adept, Amiga Tracer/CPS and some others... ' ; dc.b 'From THE FLY to: ' dc.b 'Zylon/AFL, Doxos, Euphoria, Image, Legend, Desaster Area, Bass, .1,l ' dc.b 'Motion and the others' ; dc.b 'From SCATTERGOLD: ' dc.b 'Alcatraz, Defjam-Ccs-Acc, Tristar-Rsi, ' dc.b 'Crusaders, Kefrens, ' dc.b 'Legend, Dual Crew, Cytax, Paradox, Tgs, Genesis, ' dc.b 'Subway, Scoopex... ' dc.b ' ' ; dc.b 'From CHESTER to: ' DC.B '(Chester stopped all activities till christmas! Axel took ' dc.b 'Chesters contacts...) ' dc.b ' ' ; dc.b 'A.2-nd to all contacts from the other Brainstorm members...' dc.b ' ' ; ; dc.b 'The credits for this many times used bootmenu must go to: ' dc.b 'Orlando (Coding) and Chester (Design). ' dc.b 'Here the instructions: Use mouse, cursor keys, joystick ' dc.b 'to select and left mouse button, joy-button, return or ' dc.b 'f-key to load the desired program. (Joystick selection is ' dc.b 'quite useful for gamers, also because its not as easy to ' dc.b 'select w.3.ith, as with the other methods... ' dc.b ' ' endG: ; 71 chars -> ; *** Menutext *** text1: dc.b " F1 Chromium by SCOOPEX " dc.b " F2 The Scene #4 by DECAY " dc.b " F3 New Intro by NO LIMITS " dc.b " F4 Intro by GENESIS, ANGELS, DEFJAM " dc.b " F5 .4/9Is is possible.. by ZERO DEFECTS ",'' dc.b " " dc.b " " dc.b " Released: 13-11-90 " dc.b " " dc.b " -=== Compile done by Axel ===- " even tuttiname: dc.b '29' ;onl.5NΊ1y up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.b 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 Intro by NO LIMITS " dc.b " F4 Intro by GENESIS, ANGELS, DEFJAM " dc.b " F5 n.1%id Row (Ray), Synergy (Lobbytron), Amaze (Bomber), Dexion (Trix), No Limits (Slayer), Flash Prod. (The Pride).......................' ; dc.b 'From PEACE to: ' dc.b 'Tellus/Gate, Visioner/TCC-RSI, Sledge/Adept, Amiga Tracer/CPS and some others... ' ; dc.b 'From THE FLY to: ' dc.b 'Zylon/AFL, Doxos, Euphoria, Image, Legend, Desaster Area, Bass, ' dc.b 'Motion and the others' ; dc.b 'From SCATTERGOLD: ' dc.b 'Alcatraz, Defjam-Ccs-Acc, Tristar-Rsi, ' n/2o7dc.b 'Crusaders, Kefrens, ' dc.b 'Legend, Dual Crew, Cytax, Paradox, Tgs, Genesis, ' dc.b 'Subway, Scoopex... ' dc.b ' ' ; dc.b 'From CHESTER to: ' DC.B '(Chester stopped all activities till christmas! Axel took ' dc.b 'Chesters contacts...) ' dc.b ' ' ; dc.b 'And to all contacts from the other Brainstorm members...' dc.b ' ' ; ; dc.b 'The credits for thn0ڔmis many times used bootmenu must go to: ' dc.b 'Orlando (Coding) and Chester (Design). ' dc.b 'Here the instructions: Use mouse, cursor keys, joystick ' dc.b 'to select and left mouse button, joy-button, return or ' dc.b 'f-key to load the desired program. (Joystick selection is ' dc.b 'quite useful for gamers, also because its not as easy to ' dc.b 'select with, as with the other methods... ' dc.b ' ' endG: ; 71 chars -> ; ***.#4nnt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blitt.$5j!er move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.w.%6w8 $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853.&78ٞ00 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b .'8Š 'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Var.(9H iables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *.):]** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 text: DC.B "YEAH... ... ANOTHER TIME I PROUDLY PRESENT A NEW HOT COMPILE. THIS WEEKEND IS THE AMIEXPO IN COLOGNE. HOPE YOU HAVE LOTS OF " DC.B "FUN THERE. FIRST OF ALL I WANT TO GIVE SOME SPECIAL HANDSHAKES TO PEOPLE WHO DESERVE IT TO BE AT THE TOP..........." DC.B "PARADOX... HI CLASH. I WILL SWAP WITH YOU IN THE FUTURE BEC.*; AUSE CHESTER REALLY IS IN TROUBLE IN SCHOOL NOW. HE DOES NOT HAVE THE " DC.B "TIME FOR SWAPPING... ... ... THE SAME THING I WANT TO SAY TO THE FOLLOWING PEOPLE.........RUBICON OF VALHALLA ... STRANGER OF ADEPT... AND RAY OF SKID ROW... " DC.B " LET US HAVE REALLY NICE TIME IN THE FUTURE.... THE MESSAGES CONTINUE NOW... DR. AWESOME OF CRUSADERS... I WILL SWAP WITH YOU UNTIL CHRISTMAS OR NEW YEAR. " DC.B "... 4 MAT OF ANARCHY... I HOPE THAT YOU WILL WRITE SOON. WE WILL HAVE BIG FUN I.+< THINK. TRY TO CALL ME TOO. SEE YOU MATE......BLERIS OF SCOOPEX... I AM SORRY THAT I COULD NOT BE " DC.B "AT THE AMIEXPO BUT I HOPE THAT WE WILL MEET US ANYTIME....... TIP OF DUAL CREW... I HOPE TO GET SOON SOME NEW TUNES FROM SWEDEN. I REALLY LIKED YOUR LAST ONES. ENJOY THE TUNES I SENT TO YOU " DC.B "FROM ME. KEEP ON WRITING THOSE LONG LETTERS........MAESTRO OF KEFRENS... YEP... THE CANDY WAS A GOOD IDEA. KEEP ON SENDING THOSE FUNNY THINGS. GIVE YOUR PHONE NUMBER. SO WE CAN TALK SO.,=ME SHIT ON THE PHONE." DC.B " I HOPE YOU ENJOY MY LATEST TUNES. SEND SOON..........BUSTMAN OF CRUSADERS... KEEP ON SENDING SUCH LONG LETTERS. EUROCHART WAS GREAT AS ALWAYS. HAPPY BIRTHDAY TO YOUR ONE YEAR CELEBRATION. KEEP THIS WAY ANOTHER YEAR......." DC.B "DR. SKID OF ADDONIC... HEY MAN. GOOD LUCK WITH YOUR NEW PROJECT. HOPE IT WILL BE NICE. ENJOY THIS PACK AND SEE YOU TOMORROW IN SCHOOL........" DC.B " END OF MESSAGES AND END OF SCROLL.........SO BYE............................-(ہ....................." dc.b -1 even gtext: DC.B 'This time the SPECIAL greetings from Brainstorm members are going to ' dc.b 'the following amiga beasts: ' dc.b 'From the ZINE team (Orlando, Chester, Accused) to: Hack-Mag, D.I.S.C, ' dc.b '4th Dimension, Stolen Data, Fraud, ' dc.b 'ex-News On Tour and to all the editors of the other disk-magazines...' dc.b ' ' ; dc.b 'From ORLANDO to: ' dc.b "Slayer of Scoopex (Thanks for the demo! OK, w.?\$0180,$0b64 dc.w $2a11,$fffe,$0180,$0c75 dc.w $2b11,$fffe,$0180,$0d86 dc.w $2c11,$fffe,$0180,$0e97 dc.w $2d11,$fffe,$0180,$0fa8 dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02.@4ӽ00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0fa8 dc.w $5111,$fffe,$0180,$0e97 dc.w $5211,$fffe,$0180,$0d86 dc.w $5311,$fffe,$0180,$0c75 dc.w $5411,$fffe,$0180,$0b64 dc.w $5511,$fffe,$0180,$0a53,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w .A=\$5611,$fffe,$0180,$0942;1 dc.w $5711,$fffe,$0180,$0831 dc.w $5811,$fffe,$0180,$0720 dc.w $5911,$fffe,$0180,$0610 dc.w $5a11,$fffe,$0180,$0500;5 dc.w $5b11,$fffe,$0180,$0400 dc.w $5c11,$fffe,$0180,$0300 dc.w $5d11,$fffe,$0180,$0200 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0200 dc.w $6111,$fffe,$0180,$0300 dc.w $6211,$fffe,$0180,$0400 dc.w $6311,$fffe,$0180,$0500 dc.w $6411,$fffe,$0180,$0610 dc.w $6511,$fffe,$0180,$0720 .B؂dc.w $6611,$fffe,$0180,$0831 dc.w $6711,$fffe,$0180,$0610 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0610 dc.w $e311,$fffe,$0180,$0831 dc.w $e411,$fffe,$0180,$0720 dc.w $e511,$fffe,$0180,$0610 dc.w $e611,$fffe,$0180,$0500 dc.w $e711,$fffe,$0180,$0400 dc.w $e811,$fffe,$0180,$0300 dc.w $e911,$fffe,$0180,$0200 ;;;;;;;;;;;;;;;; dc.w $e.CVnb11,$fffe,$0180,$0200 dc.w $ec11,$fffe,$0180,$0300 dc.w $ed11,$fffe,$0180,$0400 dc.w $ee11,$fffe,$0180,$0500 dc.w $ef11,$fffe,$0180,$0610 dc.w $f011,$fffe,$0180,$0720 dc.w $f111,$fffe,$0180,$0831 dc.w $f211,$fffe,$0180,$0610 ;;;;;;;;;;;;;;;;; little scroll color dc.w $f311,$fffe,$0182,$0942 dc.w $fc11,$fffe,$0180,$0720 dc.w $fd11,$fffe,$0180,$0831 dc.w $fe11,$fffe,$0180,$0942 dc.w $ff11,$fffe,$0180,$0a53 ; *** under 256 *** dc.w $ffdf,$fffe.D_f ;beam 2 under 256 dc.w $0011,$fffe,$0180,$0b64 dc.w $0111,$fffe,$0180,$0c75 dc.w $0211,$fffe,$0180,$0d86 dc.w $0311,$fffe,$0180,$0e97 dc.w $0411,$fffe,$0180,$0fa8 dc.w $0511,$fffe,$0180,$0a53 dc.w $0611,$fffe,$0180,$0b64 ; /////////*** The scroll copper murks *** fontpos:dc.w $0711,$fffe dc.w $0182,$0fa8 dc.w $0100,$1200 dc.w $008e,$2c6b dc.w $0090,$2cff dc.w $0092,$0018 dc.w $0094,$00d8 fontbpl: dc.w $00e0,$0000 dc.w $00e2,$0000 bplcon1:dc.w $0102.E5b,$00ff ;move and move... ; /////////*** end of scroll routine copper murks *** dc.w $1411,$fffe,$0180,$0a53,$0100,$0200 dc.w $1511,$fffe,$0180,$0fa8 dc.w $1611,$fffe,$0180,$0e97 dc.w $1711,$fffe,$0180,$0d86 dc.w $1811,$fffe,$0180,$0c75 dc.w $1911,$fffe,$0180,$0b64 dc.w $1a11,$fffe,$0180,$0a53 dc.w $1b11,$fffe,$0180,$0942 dc.w $1c11,$fffe,$0180,$0831 dc.w $1d11,$fffe,$0180,$0720,$0182,$0942 dc.w $1e11,$fffe,$0180,$0610 dc.w $1f11,$fffe,$0180,$0610 .FGp dc.w $2011,$fffe,$0180,$0610 ; credits dc.w $0100,$1200 dc.w $0102,$0000 ;end of wobbling credbpl:dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $2711,$fffe,$0100,$0200 dc.w $2911,$fffe,$0180,$0831 dc.w $2a11,$fffe,$0180,$0720 dc.w $2b11,$fffe,$0180,$0610 dc.w $2c11,$fffe,$0180,$0500 dc.w $2d11,$fffe,$0180,$0400 dc.w $2e11,$fffe,$0180,$0300 dc.w $2f11,$fffe,$0180,$0200 dc.w $3011,$fffe,$0180,$0000 coppend:dc.w $ffff,$fffe ; Scroll subroutines . G sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld mov.!H.ޔSe.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) ."3w*a ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s deco. JzZe end load3: move.b #3,(a3) bra.L end load4: move.b #4,(a3) bra.L end load5: move.b #5,(a3) bra.L end load6: move.b #6,(a3) bra.L end load7: move.b #7,(a3) bra.L end load8: move.b #8,(a3) bra.L end load9: move.b #9,(a3) bra.L end load10: move.b #10,(a3) bra.L end ; ------------------- Main routines -------------------- int: movem.l a0-a6/d0-d7,-(a7) lea logowait(pc),a0 cmp.b #$2f,(a0) beq.s sou subq.b #$01,(a0) sou: ; *** Move beam at top of selection in first frame di.KlϹsplayed *** cmp.b #1,mousetop beq.s mouseco move.b #$6f,menuwait move.b #$7a,menuwait2 move.b #$6f,arrow1data move.b #$76,arrow1data+2 move.b #$6f,arrow2data move.b #$76,arrow2data+2 move.b #1,mousetop bra.s okY ; -------------------- Mouse routine --------------------- mouseco: moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 move.w $dff00a,d0 cmp.w oldy(pc),d0 beq.S okY move.w d0,d7 move.w d0,d1 lsr.w #8,d1 ; d0 : X ext.w d0 ; d1 : Y move.w d1,d2.L31 ;Berechnungen fuer Y move.b oldy(pc),d3 sub.w d2,d3 move.w d3,d4 neg.w d4 cmp.w #-127,d3 bgt.s nny1 sub.w #255,d4 nny1: cmp.w #127,d3 blt.s nny2 add.w #255,d4 nny2: add.w d4,ypos move.w d7,oldy okX: moveq #0,d0 move.w ypos(pc),d0 tst.w d0 bpl.s okY1 add.w #maxY+1,ypos bra.s menu_up okY1: cmp.w #maxY,d0 bcs.s okY sub.w #maxY+1,ypos bra.L menu_down okY: move.w $dff00a,d0 move.w d0,oldy joy: move.w $dff00c,d0 move.w d0,d1 lsr.w #1,d1 eo.Mxr.w d0,d1 btst #0,d1 bne.s menu_down btst #8,d1 bne.s menu_up ; ------------------------ end of mouse routine ; *** Move beam up and down *** movebeam: move.b $bfec01,d0 cmp.b #$77,d0 ;end if help pressed bne.s ok2 move.b #1,endit ok2: cmp.b #$64,d0 beq.s menu_down cmp.b #$66,d0 beq.s menu_up bra.s fade ; * Move menu up menu_up: lea menuwait(pc),a1 lea menuwait2(pc),a2 cmp.b #$6f,(a1) ;top of menu ? beq.s fade ; * sprite up lea arrow1data(pc),a4 lea .N' Jarrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***.O3o fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;M.Pή WoveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b .Qg"#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #.R{B3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$.Sz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_color.>* ,s: dc.w $01a0,$0000 dc.w $01a2,$0fff dc.w $01a4,$0bbb dc.w $01a6,$0888 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$0a75 ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0200 dc.w $2111,$fffe,$0180,$0300 dc.w $2211,$fffe,$0180,$0400 dc.w $2311,$fffe,$0180,$0500 dc.w $2411,$fffe,$0180,$0610 dc.w $2511,$fffe,$0180,$0720 dc.w $2611,$fffe,$0180,$0831 dc.w $2711,$fffe,$0180,$0942 dc.w $2811,$fffe,$0180,$0a53 dc.w $2911,$fffe,.U L#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite . Vx[ipointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 . Wextern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper .[4^----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 ad.\d.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memory.]u *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256.^},d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output r.TYPoutine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l n#`nnt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blittn$aj!ier move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.wn%bw8? $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853n&c8200 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b n'dŠ'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Varn(eHiables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *n)f ** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 text: DC.B "..........................WE ARE LAME........CHICKS ARE FAME.......... " DC.B "SOME SPECIAL SORRIES HAVE TO GO TO TRIX OF DEXION... SLAYER OF NO LIMITS... THE PRIDE OF FLASH PROD. ... CLASH OF PARADOX... RUBICON OF VALHALLA... RAY OF SKID ROW... STRANGER OF ADEPT AND DR. AWESOME OF CRUSADERS FOR THIS LONG DELAY "n*gz DC.B "BUT I HAD BIG PROBLEMS WITH ALL THOSE CONTACTS OF CHESTER. I HOPE THAT I MANAGED IT NOW... ... ... SORRY BUT I HAVE TO LEAVE YOU NOW BECAUSE I AM WRITING A TEST IN FRENCH TOMORROW. SO BYE...... AND ALL THE BEST WISHES YOU YOURS.......AXEL OF BRAINSTORM" DC.B "...........................SCROLL RESTARTS.........................." DC.B "." dc.b -1 even gtext: DC.B 'This time the SPECIAL greetings from Brainstorm members are going to ' dc.b 'the following amiga beasts: n+h@ ' dc.b 'From the ZINE team (Orlando, Chester, Accused) to: Hack-Mag, D.I.S.C, ' dc.b '4th Dimension, Stolen Data, Fraud, ' dc.b 'ex-News On Tour and to all the editors of the other disk-magazines...' dc.b ' ' ; dc.b 'From ORLANDO to: ' dc.b "Slayer of Scoopex (Thanks for the demo! OK, we're gonna make " dc.b "a sex-phone-call! I'll send you my number soon!), " dc.b 'Tec of Cryptoburners (Waiting for your next cool demo... ), ' dc.b 'Monotof of Stn,icorm (I know, that ZINE is a best-seller!), ' dc.b 'Terminator of Zero Defects (Thanks for express sending and calls), ' dc.b 'Raistlin of Northstar (Thanks for the tape. Where is the next?) ' dc.b ' ' ; dc.b 'From MAJESTIC to: ' dc.b 'Hazor (BF), Jackmix (CRB), TSB, Hybrid, Mirage ' ; dc.b 'From TRUXTON to: ' dc.b 'Fraxion/Lix, No Limits/Hunter, Spreadpoint/Mikey, ' dc.b 'Phenomena/Dream Warrior, Scoopex SF/Zebra, Silents/L.Dredd , n-0؊< ' ; dc.b 'From AXEL to: ' dc.b ' This time my (Axel) special hellos go to: Crusaders (Bustman, Dr. Awesome),' dc.b ' Kefrens (Maestro), Dual Crew (Tip), Anarchy (4-Mat), Scoopex (Bleris), Budbrain Productions (Psycho),' dc.b ' Cascade (Skimmer), Cytax (Terminator-X), Giants (Dr. Feelgood), Euphoria (Countmic),' dc.b ' Addonic (Dr. Skid), Triangle 3532 (Zark), Warfalcons (Syz), Paradox (Clash), Adept (Stranger), Valhalla & Angels (Rubicon),' dc.b ' Sknkd$0180,$096b dc.w $2a11,$fffe,$0180,$0a7c dc.w $2b11,$fffe,$0180,$0b8d dc.w $2c11,$fffe,$0180,$0c9e dc.w $2d11,$fffe,$0180,$0daf dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02nl4v00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0daf dc.w $5111,$fffe,$0180,$0c9e dc.w $5211,$fffe,$0180,$0b8d dc.w $5311,$fffe,$0180,$0a7c dc.w $5411,$fffe,$0180,$096b dc.w $5511,$fffe,$0180,$085a,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w nm-$5611,$fffe,$0180,$0749;1 dc.w $5711,$fffe,$0180,$0638 dc.w $5811,$fffe,$0180,$0527 dc.w $5911,$fffe,$0180,$0416 dc.w $5a11,$fffe,$0180,$0305;5 dc.w $5b11,$fffe,$0180,$0204 dc.w $5c11,$fffe,$0180,$0103 dc.w $5d11,$fffe,$0180,$0002 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0002 dc.w $6111,$fffe,$0180,$0103 dc.w $6211,$fffe,$0180,$0204 dc.w $6311,$fffe,$0180,$0305 dc.w $6411,$fffe,$0180,$0416 dc.w $6511,$fffe,$0180,$0527 nn~gdc.w $6611,$fffe,$0180,$0638 dc.w $6711,$fffe,$0180,$0416 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0416 dc.w $e311,$fffe,$0180,$0638 dc.w $e411,$fffe,$0180,$0527 dc.w $e511,$fffe,$0180,$0416 dc.w $e611,$fffe,$0180,$0305 dc.w $e711,$fffe,$0180,$0204 dc.w $e811,$fffe,$0180,$0103 dc.w $e911,$fffe,$0180,$0002 ;;;;;;;;;;;;;;;; dc.w $eno.E}b11,$fffe,$0180,$0002 dc.w $ec11,$fffe,$0180,$0103 dc.w $ed11,$fffe,$0180,$0204 dc.w $ee11,$fffe,$0180,$0305 dc.w $ef11,$fffe,$0180,$0416 dc.w $f011,$fffe,$0180,$0527 dc.w $f111,$fffe,$0180,$0638 dc.w $f211,$fffe,$0180,$0416 ;;;;;;;;;;;;;;;;; little scroll color dc.w $f311,$fffe,$0182,$0749 dc.w $fc11,$fffe,$0180,$0527 dc.w $fd11,$fffe,$0180,$0638 dc.w $fe11,$fffe,$0180,$0749 dc.w $ff11,$fffe,$0180,$085a ; *** under 256 *** dc.w $ffdf,$fffenpfz ;beam 2 under 256 dc.w $0011,$fffe,$0180,$096b dc.w $0111,$fffe,$0180,$0a7c dc.w $0211,$fffe,$0180,$0b8d dc.w $0311,$fffe,$0180,$0c9e dc.w $0411,$fffe,$0180,$0daf dc.w $0511,$fffe,$0180,$0416 dc.w $0611,$fffe,$0180,$0527 ; /////////*** The scroll copper murks *** fontpos:dc.w $0711,$fffe dc.w $0182,$0fa8 dc.w $0100,$1200 dc.w $008e,$2c6b dc.w $0090,$2cff dc.w $0092,$0018 dc.w $0094,$00d8 fontbpl: dc.w $00e0,$0000 dc.w $00e2,$0000 bplcon1:dc.w $0102nqe^v,$00ff ;move and move... ; /////////*** end of scroll routine copper murks *** dc.w $1411,$fffe,$0180,$0416,$0100,$0200 dc.w $1511,$fffe,$0180,$0daf dc.w $1611,$fffe,$0180,$0c9e dc.w $1711,$fffe,$0180,$0b8d dc.w $1811,$fffe,$0180,$0a7c dc.w $1911,$fffe,$0180,$096b dc.w $1a11,$fffe,$0180,$085a dc.w $1b11,$fffe,$0180,$0749 dc.w $1c11,$fffe,$0180,$0638 dc.w $1d11,$fffe,$0180,$0527,$0182,$0942 dc.w $1e11,$fffe,$0180,$0610 dc.w $1f11,$fffe,$0180,$0610 nrG dc.w $2011,$fffe,$0180,$0610 ; credits dc.w $0100,$1200 dc.w $0102,$0000 ;end of wobbling credbpl:dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $2711,$fffe,$0100,$0200 dc.w $2911,$fffe,$0180,$0831 dc.w $2a11,$fffe,$0180,$0720 dc.w $2b11,$fffe,$0180,$0610 dc.w $2c11,$fffe,$0180,$0500 dc.w $2d11,$fffe,$0180,$0400 dc.w $2e11,$fffe,$0180,$0300 dc.w $2f11,$fffe,$0180,$0200 dc.w $3011,$fffe,$0180,$0000 coppend:dc.w $ffff,$fffe ; Scroll subroutines n s. sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld movn!t.ޓe.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) n"_w* ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s decon vzZ end load3: move.b #3,(a3) bra.L end load4: move.b #4,(a3) bra.L end load5: move.b #5,(a3) bra.L end load6: move.b #6,(a3) bra.L end load7: move.b #7,(a3) bra.L end load8: move.b #8,(a3) bra.L end load9: move.b #9,(a3) bra.L end load10: move.b #10,(a3) bra.L end ; ------------------- Main routines -------------------- int: movem.l a0-a6/d0-d7,-(a7) lea logowait(pc),a0 cmp.b #$2f,(a0) beq.s sou subq.b #$01,(a0) sou: ; *** Move beam at top of selection in first frame dinwlMsplayed *** cmp.b #1,mousetop beq.s mouseco move.b #$6f,menuwait move.b #$7a,menuwait2 move.b #$6f,arrow1data move.b #$76,arrow1data+2 move.b #$6f,arrow2data move.b #$76,arrow2data+2 move.b #1,mousetop bra.s okY ; -------------------- Mouse routine --------------------- mouseco: moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 move.w $dff00a,d0 cmp.w oldy(pc),d0 beq.S okY move.w d0,d7 move.w d0,d1 lsr.w #8,d1 ; d0 : X ext.w d0 ; d1 : Y move.w d1,d2nx3 ;Berechnungen fuer Y move.b oldy(pc),d3 sub.w d2,d3 move.w d3,d4 neg.w d4 cmp.w #-127,d3 bgt.s nny1 sub.w #255,d4 nny1: cmp.w #127,d3 blt.s nny2 add.w #255,d4 nny2: add.w d4,ypos move.w d7,oldy okX: moveq #0,d0 move.w ypos(pc),d0 tst.w d0 bpl.s okY1 add.w #maxY+1,ypos bra.s menu_up okY1: cmp.w #maxY,d0 bcs.s okY sub.w #maxY+1,ypos bra.L menu_down okY: move.w $dff00a,d0 move.w d0,oldy joy: move.w $dff00c,d0 move.w d0,d1 lsr.w #1,d1 eony r.w d0,d1 btst #0,d1 bne.s menu_down btst #8,d1 bne.s menu_up ; ------------------------ end of mouse routine ; *** Move beam up and down *** movebeam: move.b $bfec01,d0 cmp.b #$77,d0 ;end if help pressed bne.s ok2 move.b #1,endit ok2: cmp.b #$64,d0 beq.s menu_down cmp.b #$66,d0 beq.s menu_up bra.s fade ; * Move menu up menu_up: lea menuwait(pc),a1 lea menuwait2(pc),a2 cmp.b #$6f,(a1) ;top of menu ? beq.s fade ; * sprite up lea arrow1data(pc),a4 lea nz'arrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***n{3 fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;Mn|ή oveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b n}g".#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #n~{3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$nz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_colornj2s: dc.w $01a0,$0000 dc.w $01a2,$0000 dc.w $01a4,$0000 dc.w $01a6,$0000 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$085a ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0002 dc.w $2111,$fffe,$0180,$0103 dc.w $2211,$fffe,$0180,$0204 dc.w $2311,$fffe,$0180,$0305 dc.w $2411,$fffe,$0180,$0416 dc.w $2511,$fffe,$0180,$0527 dc.w $2611,$fffe,$0180,$0638 dc.w $2711,$fffe,$0180,$0749 dc.w $2811,$fffe,$0180,$085a dc.w $2911,$fffe,n*z DC.B "BUT I HAD BIG PROBLEMS WITH ALL THOSE CONTACTS OF CHESTER. I HOPE THAT I MANAGED IT NOW... ... ... SORRY BUT I HAVE TO LEAVE YOU NOW BECAUSE I AM WRITING A TEST IN FRENCH TOMORROW. SO BYE...... AND ALL THE BEST WISHES YOU YOURS.......AXEL OF BRAINSTORM" DC.B "...........................SCROLL RESTARTS.........................." DC.B "." dc.b -1 even gtext: DC.B 'This time the SPECIAL greetings from Brainstorm members are going to ' dc.b 'the following amiga beasts: n+& ' dc.b 'From the ZINE team (Orlando, Chester, Accused) to: Hack-Mag, D.I.S.C, ' dc.b '4th Dimension, Stolen Data, Fraud, ' dc.b 'ex-News On Tour and to all the editors of the other disk-magazines...' dc.b ' ' ; dc.b 'From ORLANDO to: ' dc.b "Slayer of Scoopex (Thanks for the demo! OK, we're gonna make " dc.b "a sex-phone-call! I'll send you my number soon!), " dc.b 'Tec of Cryptoburners (Waiting for your next cool demo... ), ' dc.b 'Monotof of Stn,corm (I know, that ZINE is a best-seller!), ' dc.b 'Terminator of Zero Defects (Thanks for express sending and calls), ' dc.b 'Raistlin of Northstar (Thanks for the tape. Where is the next?) ' dc.b ' ' ; dc.b 'From MAJESTIC to: ' dc.b 'Hazor (BF), Jackmix (CRB), TSB, Hybrid, Mirage ' ; dc.b 'From TRUXTON to: ' dc.b 'Fraxion/Lix, No Limits/Hunter, Spreadpoint/Mikey, ' dc.b 'Phenomena/Dream Warrior, Scoopex SF/Zebra, Silents/L.Dredd , n-؊ ' ; dc.b 'From AXEL to: ' dc.b ' This time my (Axel) special hellos go to: Crusaders (Bustman, Dr. Awesome),' dc.b ' Kefrens (Maestro), Dual Crew (Tip), Anarchy (4-Mat), Scoopex (Bleris), Budbrain Productions (Psycho),' dc.b ' Cascade (Skimmer), Cytax (Terminator-X), Giants (Dr. Feelgood), Euphoria (Countmic),' dc.b ' Addonic (Dr. Skid), Triangle 3532 (Zark), Warfalcons (Syz), Paradox (Clash), Adept (Stranger), Valhalla & Angels (Rubicon),' dc.b ' Skn.%jid Row (Ray), Synergy (Lobbytron), Amaze (Bomber), Dexion (Trix), No Limits (Slayer), Flash Prod. (The Pride).......................' ; dc.b 'From PEACE to: ' dc.b 'Tellus/Gate, Visioner/TCC-RSI, Sledge/Adept, Amiga Tracer/CPS and some others... ' ; dc.b 'From THE FLY to: ' dc.b 'Zylon/AFL, Doxos, Euphoria, Image, Legend, Desaster Area, Bass, ' dc.b 'Motion and the others' ; dc.b 'From SCATTERGOLD: ' dc.b 'Alcatraz, Defjam-Ccs-Acc, Tristar-Rsi, ' n/o7dc.b 'Crusaders, Kefrens, ' dc.b 'Legend, Dual Crew, Cytax, Paradox, Tgs, Genesis, ' dc.b 'Subway, Scoopex... ' dc.b ' ' ; dc.b 'From CHESTER to: ' DC.B '(Chester stopped all activities till christmas! Axel took ' dc.b 'Chesters contacts...) ' dc.b ' ' ; dc.b 'And to all contacts from the other Brainstorm members...' dc.b ' ' ; ; dc.b 'The credits for thn0ڔis many times used bootmenu must go to: ' dc.b 'Orlando (Coding) and Chester (Design). ' dc.b 'Here the instructions: Use mouse, cursor keys, joystick ' dc.b 'to select and left mouse button, joy-button, return or ' dc.b 'f-key to load the desired program. (Joystick selection is ' dc.b 'quite useful for gamers, also because its not as easy to ' dc.b 'select with, as with the other methods... ' dc.b ' ' endG: ; 71 chars -> ; ***n1Pl Menutext *** text1: dc.b " F1 Intro by ADVANCE " dc.b " F2 New Intro by TOXIC TRACE " dc.b " F3 Vector Demo by TOXIC TRACE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 Tune by 4-MAT OF ANARCHY " dc.b " F6 Tune by PHOTON OF PHENOMENA n2̱l ",'' dc.b " " dc.b " Released: 16-11-90 " dc.b " " dc.b " -=== Compile done by Axel ===- " even tuttiname: dc.b '30' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.bn3cs 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 or Demo by TOXIC TRACE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 Tune by 4-MAT OF ANARCHY " dc.b " F6 Tune by PHOTON OF PHENOMENA n ****** ; ************************************************************** >extern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper n9 dc.w $2011,$fffe,$0180,$0416 ; credits dc.w $0100,$1200 dc.w $0102,$0000 ;end of wobbling credbpl:dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $2711,$fffe,$0100,$0200 dc.w $2911,$fffe,$0180,$0658 dc.w $2a11,$fffe,$0180,$0547 dc.w $2b11,$fffe,$0180,$0436 dc.w $2c11,$fffe,$0180,$0325 dc.w $2d11,$fffe,$0180,$0214 dc.w $2e11,$fffe,$0180,$0103 dc.w $2f11,$fffe,$0180,$0002 dc.w $3011,$fffe,$0180,$0000 coppend:dc.w $ffff,$fffe ; Scroll subroutines n  sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld movn!.ޓe.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) n"w* ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s decon#ncnt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blittn$j!9er move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.wn%w8 $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853n&800 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b n'Šo'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Varn(Hniables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *n) ** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 text: DC.B "..........................WE ARE LAME........CHICKS ARE FAME.......... " DC.B "SOME SPECIAL SORRIES HAVE TO GO TO TRIX OF DEXION... SLAYER OF NO LIMITS... THE PRIDE OF FLASH PROD. ... CLASH OF PARADOX... RUBICON OF VALHALLA... RAY OF SKID ROW... STRANGER OF ADEPT AND DR. AWESOME OF CRUSADERS FOR THIS LONG DELAY "ng"#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #n{3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$nzp0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_colorns: dc.w $01a0,$0000 dc.w $01a2,$0000 dc.w $01a4,$0000 dc.w $01a6,$0000 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$085a ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0002 dc.w $2111,$fffe,$0180,$0103 dc.w $2211,$fffe,$0180,$0204 dc.w $2311,$fffe,$0180,$0305 dc.w $2411,$fffe,$0180,$0416 dc.w $2511,$fffe,$0180,$0527 dc.w $2611,$fffe,$0180,$0638 dc.w $2711,$fffe,$0180,$0749 dc.w $2811,$fffe,$0180,$085a dc.w $2911,$fffe,n4$0180,$096b dc.w $2a11,$fffe,$0180,$0a7c dc.w $2b11,$fffe,$0180,$0b8d dc.w $2c11,$fffe,$0180,$0c9e dc.w $2d11,$fffe,$0180,$0daf dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02n4v00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0daf dc.w $5111,$fffe,$0180,$0c9e dc.w $5211,$fffe,$0180,$0b8d dc.w $5311,$fffe,$0180,$0a7c dc.w $5411,$fffe,$0180,$096b dc.w $5511,$fffe,$0180,$085a,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w n-$5611,$fffe,$0180,$0749;1 dc.w $5711,$fffe,$0180,$0638 dc.w $5811,$fffe,$0180,$0527 dc.w $5911,$fffe,$0180,$0416 dc.w $5a11,$fffe,$0180,$0305;5 dc.w $5b11,$fffe,$0180,$0204 dc.w $5c11,$fffe,$0180,$0103 dc.w $5d11,$fffe,$0180,$0002 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0002 dc.w $6111,$fffe,$0180,$0103 dc.w $6211,$fffe,$0180,$0204 dc.w $6311,$fffe,$0180,$0305 dc.w $6411,$fffe,$0180,$0416 dc.w $6511,$fffe,$0180,$0527 n~7dc.w $6611,$fffe,$0180,$0638 dc.w $6711,$fffe,$0180,$0416 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0416 dc.w $e311,$fffe,$0180,$0638 dc.w $e411,$fffe,$0180,$0527 dc.w $e511,$fffe,$0180,$0416 dc.w $e611,$fffe,$0180,$0305 dc.w $e711,$fffe,$0180,$0204 dc.w $e811,$fffe,$0180,$0103 dc.w $e911,$fffe,$0180,$0002 ;;;;;;;;;;;;;;;; dc.w $en.E}b11,$fffe,$0180,$0002 dc.w $ec11,$fffe,$0180,$0103 dc.w $ed11,$fffe,$0180,$0204 dc.w $ee11,$fffe,$0180,$0305 dc.w $ef11,$fffe,$0180,$0416 dc.w $f011,$fffe,$0180,$0527 dc.w $f111,$fffe,$0180,$0638 dc.w $f211,$fffe,$0180,$0416 ;;;;;;;;;;;;;;;;; little scroll color dc.w $f311,$fffe,$0182,$0749 dc.w $fc11,$fffe,$0180,$0527 dc.w $fd11,$fffe,$0180,$0638 dc.w $fe11,$fffe,$0180,$0749 dc.w $ff11,$fffe,$0180,$085a ; *** under 256 *** dc.w $ffdf,$fffenfz ;beam 2 under 256 dc.w $0011,$fffe,$0180,$096b dc.w $0111,$fffe,$0180,$0a7c dc.w $0211,$fffe,$0180,$0b8d dc.w $0311,$fffe,$0180,$0c9e dc.w $0411,$fffe,$0180,$0daf dc.w $0511,$fffe,$0180,$0416 dc.w $0611,$fffe,$0180,$0527 ; /////////*** The scroll copper murks *** fontpos:dc.w $0711,$fffe dc.w $0182,$0fa8 dc.w $0100,$1200 dc.w $008e,$2c6b dc.w $0090,$2cff dc.w $0092,$0018 dc.w $0094,$00d8 fontbpl: dc.w $00e0,$0000 dc.w $00e2,$0000 bplcon1:dc.w $0102neR\,$00ff ;move and move... ; /////////*** end of scroll routine copper murks *** dc.w $1411,$fffe,$0180,$0416,$0100,$0200 dc.w $1511,$fffe,$0180,$0daf dc.w $1611,$fffe,$0180,$0c9e dc.w $1711,$fffe,$0180,$0b8d dc.w $1811,$fffe,$0180,$0a7c dc.w $1911,$fffe,$0180,$096b dc.w $1a11,$fffe,$0180,$085a dc.w $1b11,$fffe,$0180,$0749 dc.w $1c11,$fffe,$0180,$0638 dc.w $1d11,$fffe,$0180,$0527,$0182,$0942 dc.w $1e11,$fffe,$0180,$0416 dc.w $1f11,$fffe,$0180,$0416 n xZpointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 n  ; *** Menutext *** text1: dc.b " F1 TECHNOLOGICAL THREAT " dc.b " F2 NO MORE MR. NICE GUY " dc.b " F3 ANOTHER DREAM " dc.b " F4 SOLID COMMUNICATION _/χ ",'' dc.b " " dc.b " All demos done by " dc.b " B R A I N S T O R M " dc.b " Released: 14-10-90 " dc.b " " dc.b " Compile done by Chester, Truxton and Orlando_0uB " even tuttiname: dc.b '26' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.b 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 ' endG: ; *** Scroll text for the big scroller *** ; n L$#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite qL&6b`j~ $*06 F V ^ h r x |   . 8 B L V ` j t ~ n ****** ; ************************************************************** >extern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper n4----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 adnd.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memoryn *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256n}/,d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output rnYPoutine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l _#nCnt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blitt_$j!er move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.w_%w7 $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853_&800 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b qÌ̐X2@  ,  ,$@ 0   $0@ "@h $ @  @H @d(5Nt"T%B̭32UdʠZ,\[ R(UdVT2jeP dg&V $,~ol< # ~LWa3xWF1<< @0` qg|-3p @0` 0`@ P`@`8@( 0 p34l~l?h ?7&x @SxN@ lH 46hxp "kA``B@ i,0& `[ 8 '04q$P"p4 00p p0v 2`0:Ar@0`0 'O8`/H  g# L&&<`@   6306  47H0   p 0"@ $ 4@@ qd<h&Hտ\&'  2084 nƴ[ ȉ43!W$xFBΕcx$燐1x > ?@o O?w@_=d 0@0p  `0` 08p ```  `@P``p`!;nqͯUCv  `x@6`l(0&`0 `0 #``0-0'`00 h0`0` 0@h2 @2 `6 X@C6`6 ,` 6 6 0 `6X60  `6~6ǀqgV@@߁C& `6F0?6` /?8?n 0 p\0 8 07` p 0n0&$ տ @6@7  2`6n  `0Gw=a=7}qfo  ; *** Menutext *** text1: dc.b " F1 Intro by ADVANCE " dc.b " F2 New Intro by TOXIC TRANCE " dc.b " F3 Vector Demo by TOXIC TRANCE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 o4޿6Tune by 4-MAT OF ANARCHY " dc.b " F6 Tune by PHOTON OF PHENOMENA ",' ' dc.b " " dc.b " Released: 16-11-90 " dc.b " " dc.b " -=== Compile done by Axel ===- " even tuttiname: dc.b '30' ;onlyo5MXP up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.b 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 tor Demo by TOXIC TRANCE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 q̉ 9Qg`R9R 9PRf B9QB9R 9Ggat`a~W9 S9 U9 S9 Y9 'W9 /S9 7U9 ?Y9 GU9 OS9 WW9 _S9 gU9 oW9 wY9 U9 LNu "$&(*,.02468:<> ,8   u !"#$% &1' B( S) d* u+ ,-.N2(Pv T 2 q+6OPQR S uT dU S V BW1X YZ[\]^`abcde f1g ow 1  1 B 1 B S d u  S d,k,qmC S  u d S B1  B ')1* +,-./0a|#0Nqa.:9 s 9 sg GNu3 r#20#243 83:3<3>3@aB9GNuA.C |.p zgj ygn xgr wgv vgz sg~gTIQBL`RIIE9E(:& gQ#HLNuP`"Pqk|`DP`P`P`Q`x#3"43 83:3&<30>3@aNu9f#rP#nT3j@3dB3^d3Xf3D3F3BXNu,-.%/0123485678X9:;<=>?@ABCD8EFhGH8IJ%KLMN(OPQRSTSUo@vov88graphics.libraryo$j!er move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.wo%w7 $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853o&8خ00 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b o'Š'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Varo(Hiables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *o)m** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 text: DC.B "YEAH... ... ANOTHER TIME I PROUDLY PRESENT A NEW HOT COMPILE. THIS WEEKEND IS THE AMIEXPO IN COLOGNE. HOPE YOU HAVE LOTS OF " DC.B "FUN THERE. FIRST OF ALL I WANT TO GIVE SOME SPECIAL HANDSHAKES TO PEOPLE WHO DESERVE IT TO BE AT THE TOP..........." DC.B "PARADOX... HI CLASH. I WILL SWAP WITH YOU IN THE FUTURE BECo* AUSE CHESTER REALLY IS IN TROUBLE IN SCHOOL NOW. HE DOES NOT HAVE THE " DC.B "TIME FOR SWAPPING... ... ... THE SAME THING I WANT TO SAY TO THE FOLLOWING PEOPLE.........RUBICON OF VALHALLA ... STRANGER OF ADEPT... AND RAY OF SKID ROW... " DC.B " LET US HAVE REALLY NICE TIME IN THE FUTURE.... THE MESSAGES CONTINUE NOW... DR. AWESOME OF CRUSADERS... I WILL SWAP WITH YOU UNTIL CHRISTMAS OR NEW YEAR. " DC.B "... 4 MAT OF ANARCHY... I HOPE THAT YOU WILL WRITE SOON. WE WILL HAVE BIG FUN Io+녆 THINK. TRY TO CALL ME TOO. SEE YOU MATE......BLERIS OF SCOOPEX... I AM SORRY THAT I COULD NOT BE " DC.B "AT THE AMIEXPO BUT I HOPE THAT WE WILL MEET US ANYTIME....... TIP OF DUAL CREW... I HOPE TO GET SOON SOME NEW TUNES FROM SWEDEN. I REALLY LIKED YOUR LAST ONES. ENJOY THE TUNES I SENT TO YOU " DC.B "FROM ME. KEEP ON WRITING THOSE LONG LETTERS........MAESTRO OF KEFRENS... YEP... THE CANDY WAS A GOOD IDEA. KEEP ON SENDING THOSE FUNNY THINGS. GIVE YOUR PHONE NUMBER. SO WE CAN TALK SOo,첪ME SHIT ON THE PHONE." DC.B " I HOPE YOU ENJOY MY LATEST TUNES. SEND SOON..........BUSTMAN OF CRUSADERS... KEEP ON SENDING SUCH LONG LETTERS. EUROCHART WAS GREAT AS ALWAYS. HAPPY BIRTHDAY TO YOUR ONE YEAR CELEBRATION. KEEP THIS WAY ANOTHER YEAR......." DC.B "DR. SKID OF ADDONIC... HEY MAN. GOOD LUCK WITH YOUR NEW PROJECT. HOPE IT WILL BE NICE. ENJOY THIS PACK AND SEE YOU TOMORROW IN SCHOOL........" DC.B " END OF MESSAGES AND END OF SCROLL.........SO BYE...........................o-ۀ....................." dc.b -1 even gtext: DC.B 'This time the SPECIAL greetings from Brainstorm members are going to ' dc.b 'the following amiga beasts: ' dc.b 'From the ZINE team (Orlando, Chester, Accused) to: Hack-Mag, D.I.S.C, ' dc.b '4th Dimension, Stolen Data, Fraud, ' dc.b 'ex-News On Tour and to all the editors of the other disk-magazines...' dc.b ' ' ; dc.b 'From ORLANDO to: ' dc.b "Slayer of Scoopex (Thanks for the demo! OK, wo.شce're gonna make " dc.b "a sex-phone-call! I'll send you my number soon!), " dc.b 'Tec of Cryptoburners (Waiting for your next cool demo... ), ' dc.b 'Monotof of Storm (I know, that ZINE is a best-seller!), ' dc.b 'Terminator of Zero Defects (Thanks for express sending and calls), ' dc.b 'Raistlin of Northstar (Thanks for the tape. Where is the next?) ' dc.b ' ' ; dc.b 'From MAJESTIC to: ' dc.b 'Hazor (BF), Jackmix (CRB), TSB, Hybrid, Mirage ' ; dc.b o4Ӽ00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0fa8 dc.w $5111,$fffe,$0180,$0e97 dc.w $5211,$fffe,$0180,$0d86 dc.w $5311,$fffe,$0180,$0c75 dc.w $5411,$fffe,$0180,$0b64 dc.w $5511,$fffe,$0180,$0a53,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w o ; *** Menutext *** text1: dc.b " F1 PAPYRUS BY FLASH m.TR " dc.b " F2 SOUND BY STRANGERS " dc.b " F3 INTRO BY STRANGERS " dc.b " F4 TURTLE DEMO BY DEXION ",'' dc.b " " dc.b " " dc.b " m/ " dc.b " " dc.b " Compile was done by Chester, Orlando and Axel " dc.b " Released : 14-Sep-(who cares?) " even tuttiname: dc.b '19' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.b 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logom0zVl *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 BY STRANGERS " dc.b " F4 TURTLE DEMO BY DEXION ",'' dc.b " " dc.b " " dc.b " og"#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #o{R3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$oz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_coloro*&s: dc.w $01a0,$0000 dc.w $01a2,$0fff dc.w $01a4,$0bbb dc.w $01a6,$0888 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$0a75 ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0200 dc.w $2111,$fffe,$0180,$0300 dc.w $2211,$fffe,$0180,$0400 dc.w $2311,$fffe,$0180,$0500 dc.w $2411,$fffe,$0180,$0610 dc.w $2511,$fffe,$0180,$0720 dc.w $2611,$fffe,$0180,$0831 dc.w $2711,$fffe,$0180,$0942 dc.w $2811,$fffe,$0180,$0a53 dc.w $2911,$fffe,o[$0180,$0b64 dc.w $2a11,$fffe,$0180,$0c75 dc.w $2b11,$fffe,$0180,$0d86 dc.w $2c11,$fffe,$0180,$0e97 dc.w $2d11,$fffe,$0180,$0fa8 dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02m  sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld movm!.ޓVe.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) m"w*N ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s decom#nnt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blittm$ j!er move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.wm% w7 $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853m& 8؋00 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b m' Š'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Varm( Hiables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *m)%bv** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 ; *** Little scroller *** gtext: dc.b 'Keep on reading to enjoy some SPECIAL GREETINGS... ' dc.b 'The one and only makers of this crap are : ORLANDO (who coded this ' dc.b ') and CHESTER (who designed and drew the graphics). ' dc.b ' ' dc.b 'Here the instructiom*Ƕns : Use mouse, cursor keys, joystick ' dc.b 'to select and left mouse button, joy-button, return or ' dc.b 'f-key to load the desired program. (Joystick selection is ' dc.b "quite useful for gamers, also because it's not as easy to " dc.b 'select with, as with the other methods... ' dc.b "You're waiting for the SPECIAL (!!!) greetings, so here we go ... " dc.b 'From Chester to : ' dc.b 'Scoopex, Rebels, Image, Flash, Paradox, ' dc.b 'Crusaders, Cryptoburners, Phem{E3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$mz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_colorm*s: dc.w $01a0,$0000 dc.w $01a2,$0fff dc.w $01a4,$0bbb dc.w $01a6,$0888 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$0a75 ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0200 dc.w $2111,$fffe,$0180,$0300 dc.w $2211,$fffe,$0180,$0400 dc.w $2311,$fffe,$0180,$0500 dc.w $2411,$fffe,$0180,$0610 dc.w $2511,$fffe,$0180,$0720 dc.w $2611,$fffe,$0180,$0831 dc.w $2711,$fffe,$0180,$0942 dc.w $2811,$fffe,$0180,$0a53 dc.w $2911,$fffe,m[$0180,$0b64 dc.w $2a11,$fffe,$0180,$0c75 dc.w $2b11,$fffe,$0180,$0d86 dc.w $2c11,$fffe,$0180,$0e97 dc.w $2d11,$fffe,$0180,$0fa8 dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02m4Ӽ00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0fa8 dc.w $5111,$fffe,$0180,$0e97 dc.w $5211,$fffe,$0180,$0d86 dc.w $5311,$fffe,$0180,$0c75 dc.w $5411,$fffe,$0180,$0b64 dc.w $5511,$fffe,$0180,$0a53,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w m ; *** Menutext *** text1: dc.b " F1 PAPYRUS BY FLASH m ndit beq.s wait bra.s endfast wait: cmp.b #$80,$dff006 bne.S wait move.b $bfec01,d4 cmp.b #$81,d4 ; 9 on numeric keyboard beq.s disptime bsr.L int bra.L cmp_keys disptime: move.w #$000f,$dff180 bsr.L int move.w #$0610,$dff180 bra.L cmp_keys endfast: bra.s set_load end: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l 38(a0),$dff080 move.w #$8020,$dff096 ;Turn sprites on jsr -138(a6) ;Permit movem.l (sp)+,d0-d7/a0-a6 moveq #0,d0 ;no errm P2pors rts ; *** Mouse and key selection *** set_load: lea $7e000,a3 move.b menuwait(pc),d0 cmp.b #$6f,d0 beq.s load1 cmp.b #$7a,d0 beq.s load2 cmp.b #$85,d0 beq.s load3 cmp.b #$90,d0 beq.s load4 cmp.b #$9b,d0 beq.s load5 cmp.b #$a6,d0 beq.s load6 cmp.b #$b1,d0 beq.s load7 cmp.b #$bc,d0 beq.s load8 cmp.b #$c7,d0 beq.s load9 cmp.b #$d2,d0 beq.s load10 bra.s end ; *** Which file shall I load ? *** load1: move.b #1,(a3) bra.s end load2: move.b #2,(a3) bra.sm zZR end load3: move.b #3,(a3) bra.L end load4: move.b #4,(a3) bra.L end load5: move.b #5,(a3) bra.L end load6: move.b #6,(a3) bra.L end load7: move.b #7,(a3) bra.L end load8: move.b #8,(a3) bra.L end load9: move.b #9,(a3) bra.L end load10: move.b #10,(a3) bra.L end ; ------------------- Main routines -------------------- int: movem.l a0-a6/d0-d7,-(a7) lea logowait(pc),a0 cmp.b #$2f,(a0) beq.s sou subq.b #$01,(a0) sou: ; *** Move beam at top of selection in first frame dimlΦsplayed *** cmp.b #1,mousetop beq.s mouseco move.b #$6f,menuwait move.b #$7a,menuwait2 move.b #$6f,arrow1data move.b #$76,arrow1data+2 move.b #$6f,arrow2data move.b #$76,arrow2data+2 move.b #1,mousetop bra.s okY ; -------------------- Mouse routine --------------------- mouseco: moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 move.w $dff00a,d0 cmp.w oldy(pc),d0 beq.S okY move.w d0,d7 move.w d0,d1 lsr.w #8,d1 ; d0 : X ext.w d0 ; d1 : Y move.w d1,d2m 3 ;Berechnungen fuer Y move.b oldy(pc),d3 sub.w d2,d3 move.w d3,d4 neg.w d4 cmp.w #-127,d3 bgt.s nny1 sub.w #255,d4 nny1: cmp.w #127,d3 blt.s nny2 add.w #255,d4 nny2: add.w d4,ypos move.w d7,oldy okX: moveq #0,d0 move.w ypos(pc),d0 tst.w d0 bpl.s okY1 add.w #maxY+1,ypos bra.s menu_up okY1: cmp.w #maxY,d0 bcs.s okY sub.w #maxY+1,ypos bra.L menu_down okY: move.w $dff00a,d0 move.w d0,oldy joy: move.w $dff00c,d0 move.w d0,d1 lsr.w #1,d1 eom!er.w d0,d1 btst #0,d1 bne.s menu_down btst #8,d1 bne.s menu_up ; ------------------------ end of mouse routine ; *** Move beam up and down *** movebeam: move.b $bfec01,d0 cmp.b #$77,d0 ;end if help pressed bne.s ok2 move.b #1,endit ok2: cmp.b #$64,d0 beq.s menu_down cmp.b #$66,d0 beq.s menu_up bra.s fade ; * Move menu up menu_up: lea menuwait(pc),a1 lea menuwait2(pc),a2 cmp.b #$6f,(a1) ;top of menu ? beq.s fade ; * sprite up lea arrow1data(pc),a4 lea m"'7arrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***m#2\ fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;Mm$ή DoveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b mg"#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #e%&w7 $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853e&'8w00 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b e'(Š'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Vare()Hiables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *e)*%bb** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 ; *** Little scroller *** gtext: dc.b 'Keep on reading to enjoy some SPECIAL GREETINGS... ' dc.b 'The one and only makers of this crap are : ORLANDO (who coded this ' dc.b ') and CHESTER (who designed and drew the graphics). ' dc.b ' ' dc.b 'Here the instructioe*+Ƕns : Use mouse, cursor keys, joystick ' dc.b 'to select and left mouse button, joy-button, return or ' dc.b 'f-key to load the desired program. (Joystick selection is ' dc.b "quite useful for gamers, also because it's not as easy to " dc.b 'select with, as with the other methods... ' dc.b "You're waiting for the SPECIAL (!!!) greetings, so here we go ... " dc.b 'From Chester to : ' dc.b 'Scoopex, Rebels, Image, Flash, Paradox, ' dc.b 'Crusaders, Cryptoburners, Phee+,nomena, Silents, Adept, ' dc.b 'The Link, Dual Crew, No Limits, Impact, Hyde, Celtic, Vision, ' dc.b ' Level 4,... ' dc.b 'From Orlando to : ' dc.b 'Storm, Zero Defects... ' dc.b 'From Scattergold : ' dc.b 'Alcatraz, Defjam-Ccs-Acc, Tristar-Rsi, ' dc.b 'Crusaders, Kefrens, ' dc.b 'Vision, Dual Crew, Cytax, Paradox, Tgs, Genesis, ' dc.b 'Subway, Scoopex... ' dc.b 'From Truxton to : ' dc.b 'Fraxion, Complex, Razor 1911, Network,e,-OĹ No Limits, Spreadpoint...' dc.b ' Sorry, no SPECIAL greetings from other members... ' dc.b 'and again I have to write : END OF TEXT ' dc.b ' ' endG: ; *** Scroll text for the big scroller *** ; *** ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890?!. ; x=normal / z=very slow / y=slow / v=very fast / s=stop / w=fast text: dc.b ' ' dc.b 'WE ARE LAME AND NOT FAME! e-.VE ' DC.B 'THATS CHESTERS OPINION. BY THE WAY THIS IS TUTTI FRUTTI 19 ' DC.B '... A VERY SPECIAL MESSAGE TO PRIDE OF FLASH ... I AM BACK!! ' DC.B ' THIS IS AXEL ON THE KEYBORD NOW. I JOINED BRS A FEW DAYS AGO .' DC.B 'WE ARE HERE IN THE DIAL-CLUB AND WE ARE IN HURRY, BECAUSE CHESTER ' DC.B 'HAS TO CATCH HIS TRAIN IN 10 MINUTES... BYE ' dc.b -1 even ; 71 chars -> ; *** Menutext *** text1: dc.b " F1 PAPYRUS BY FLASH e./T( " dc.b " F2 SOUND BY STRANGERS " dc.b " F3 INTRO BY STRANGERS " dc.b " F4 TURTLE DEMO BY DEXION ",'' dc.b " " dc.b " " dc.b " e/ " dc.b " " dc.b " Compile was done by Chester, Orlando and Axel " dc.b " Released : 14-Sep-(who cares?) " even tuttiname: dc.b '19' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.b 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logoe1<5$5611,$fffe,$0180,$0942;1 dc.w $5711,$fffe,$0180,$0831 dc.w $5811,$fffe,$0180,$0720 dc.w $5911,$fffe,$0180,$0610 dc.w $5a11,$fffe,$0180,$0500;5 dc.w $5b11,$fffe,$0180,$0400 dc.w $5c11,$fffe,$0180,$0300 dc.w $5d11,$fffe,$0180,$0200 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0200 dc.w $6111,$fffe,$0180,$0300 dc.w $6211,$fffe,$0180,$0400 dc.w $6311,$fffe,$0180,$0500 dc.w $6411,$fffe,$0180,$0610 dc.w $6511,$fffe,$0180,$0720 e2؂dc.w $6611,$fffe,$0180,$0831 dc.w $6711,$fffe,$0180,$0610 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0610 dc.w $e311,$fffe,$0180,$0831 dc.w $e411,$fffe,$0180,$0720 dc.w $e511,$fffe,$0180,$0610 dc.w $e611,$fffe,$0180,$0500 dc.w $e711,$fffe,$0180,$0400 dc.w $e811,$fffe,$0180,$0300 dc.w $e911,$fffe,$0180,$0200 ;;;;;;;;;;;;;;;; dc.w $ee3Vlb11,$fffe,$0180,$0200 dc.w $ec11,$fffe,$0180,$0300 dc.w $ed11,$fffe,$0180,$0400 dc.w $ee11,$fffe,$0180,$0500 dc.w $ef11,$fffe,$0180,$0610 dc.w $f011,$fffe,$0180,$0720 dc.w $f111,$fffe,$0180,$0831 dc.w $f211,$fffe,$0180,$0610 ;;;;;;;;;;;;;;;;; little scroll color dc.w $f311,$fffe,$0182,$0942 dc.w $fc11,$fffe,$0180,$0720 dc.w $fd11,$fffe,$0180,$0831 dc.w $fe11,$fffe,$0180,$0942 dc.w $ff11,$fffe,$0180,$0a53 ; *** under 256 *** dc.w $ffdf,$fffee4_f ;beam 2 under 256 dc.w $0011,$fffe,$0180,$0b64 dc.w $0111,$fffe,$0180,$0c75 dc.w $0211,$fffe,$0180,$0d86 dc.w $0311,$fffe,$0180,$0e97 dc.w $0411,$fffe,$0180,$0fa8 dc.w $0511,$fffe,$0180,$0a53 dc.w $0611,$fffe,$0180,$0b64 ; /////////*** The scroll copper murks *** fontpos:dc.w $0711,$fffe dc.w $0182,$0fa8 dc.w $0100,$1200 dc.w $008e,$2c6b dc.w $0090,$2cff dc.w $0092,$0018 dc.w $0094,$00d8 fontbpl: dc.w $00e0,$0000 dc.w $00e2,$0000 bplcon1:dc.w $0102e55b,$00ff ;move and move... ; /////////*** end of scroll routine copper murks *** dc.w $1411,$fffe,$0180,$0a53,$0100,$0200 dc.w $1511,$fffe,$0180,$0fa8 dc.w $1611,$fffe,$0180,$0e97 dc.w $1711,$fffe,$0180,$0d86 dc.w $1811,$fffe,$0180,$0c75 dc.w $1911,$fffe,$0180,$0b64 dc.w $1a11,$fffe,$0180,$0a53 dc.w $1b11,$fffe,$0180,$0942 dc.w $1c11,$fffe,$0180,$0831 dc.w $1d11,$fffe,$0180,$0720,$0182,$0942 dc.w $1e11,$fffe,$0180,$0610 dc.w $1f11,$fffe,$0180,$0610 e6GI dc.w $2011,$fffe,$0180,$0610 ; credits dc.w $0100,$1200 dc.w $0102,$0000 ;end of wobbling credbpl:dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $2711,$fffe,$0100,$0200 dc.w $2911,$fffe,$0180,$0831 dc.w $2a11,$fffe,$0180,$0720 dc.w $2b11,$fffe,$0180,$0610 dc.w $2c11,$fffe,$0180,$0500 dc.w $2d11,$fffe,$0180,$0400 dc.w $2e11,$fffe,$0180,$0300 dc.w $2f11,$fffe,$0180,$0200 dc.w $3011,$fffe,$0180,$0000 coppend:dc.w $ffff,$fffe ; Scroll subroutines e 7s sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld move!8.ޓ,e.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) e"9w*$ ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s decoe#:nnt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blitte$%j!Įer move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.we<3 ;Berechnungen fuer Y move.b oldy(pc),d3 sub.w d2,d3 move.w d3,d4 neg.w d4 cmp.w #-127,d3 bgt.s nny1 sub.w #255,d4 nny1: cmp.w #127,d3 blt.s nny2 add.w #255,d4 nny2: add.w d4,ypos move.w d7,oldy okX: moveq #0,d0 move.w ypos(pc),d0 tst.w d0 bpl.s okY1 add.w #maxY+1,ypos bra.s menu_up okY1: cmp.w #maxY,d0 bcs.s okY sub.w #maxY+1,ypos bra.L menu_down okY: move.w $dff00a,d0 move.w d0,oldy joy: move.w $dff00c,d0 move.w d0,d1 lsr.w #1,d1 eoe=Qr.w d0,d1 btst #0,d1 bne.s menu_down btst #8,d1 bne.s menu_up ; ------------------------ end of mouse routine ; *** Move beam up and down *** movebeam: move.b $bfec01,d0 cmp.b #$77,d0 ;end if help pressed bne.s ok2 move.b #1,endit ok2: cmp.b #$64,d0 beq.s menu_down cmp.b #$66,d0 beq.s menu_up bra.s fade ; * Move menu up menu_up: lea menuwait(pc),a1 lea menuwait2(pc),a2 cmp.b #$6f,(a1) ;top of menu ? beq.s fade ; * sprite up lea arrow1data(pc),a4 lea e>'#arrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***e?2H fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;Me@ή 0oveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b eAg"s#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #eB{3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$eCz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_coloreD*s: dc.w $01a0,$0000 dc.w $01a2,$0fff dc.w $01a4,$0bbb dc.w $01a6,$0888 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$0a75 ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0200 dc.w $2111,$fffe,$0180,$0300 dc.w $2211,$fffe,$0180,$0400 dc.w $2311,$fffe,$0180,$0500 dc.w $2411,$fffe,$0180,$0610 dc.w $2511,$fffe,$0180,$0720 dc.w $2611,$fffe,$0180,$0831 dc.w $2711,$fffe,$0180,$0942 dc.w $2811,$fffe,$0180,$0a53 dc.w $2911,$fffe,eE[$0180,$0b64 dc.w $2a11,$fffe,$0180,$0c75 dc.w $2b11,$fffe,$0180,$0d86 dc.w $2c11,$fffe,$0180,$0e97 dc.w $2d11,$fffe,$0180,$0fa8 dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02e04Ӽ{00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0fa8 dc.w $5111,$fffe,$0180,$0e97 dc.w $5211,$fffe,$0180,$0d86 dc.w $5311,$fffe,$0180,$0c75 dc.w $5411,$fffe,$0180,$0b64 dc.w $5511,$fffe,$0180,$0a53,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w o GzZ' end load3: move.b #3,(a3) bra.L end load4: move.b #4,(a3) bra.L end load5: move.b #5,(a3) bra.L end load6: move.b #6,(a3) bra.L end load7: move.b #7,(a3) bra.L end load8: move.b #8,(a3) bra.L end load9: move.b #9,(a3) bra.L end load10: move.b #10,(a3) bra.L end ; ------------------- Main routines -------------------- int: movem.l a0-a6/d0-d7,-(a7) lea logowait(pc),a0 cmp.b #$2f,(a0) beq.s sou subq.b #$01,(a0) sou: ; *** Move beam at top of selection in first frame dioHl{splayed *** cmp.b #1,mousetop beq.s mouseco move.b #$6f,menuwait move.b #$7a,menuwait2 move.b #$6f,arrow1data move.b #$76,arrow1data+2 move.b #$6f,arrow2data move.b #$76,arrow2data+2 move.b #1,mousetop bra.s okY ; -------------------- Mouse routine --------------------- mouseco: moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 move.w $dff00a,d0 cmp.w oldy(pc),d0 beq.S okY move.w d0,d7 move.w d0,d1 lsr.w #8,d1 ; d0 : X ext.w d0 ; d1 : Y move.w d1,d2oI3 ;Berechnungen fuer Y move.b oldy(pc),d3 sub.w d2,d3 move.w d3,d4 neg.w d4 cmp.w #-127,d3 bgt.s nny1 sub.w #255,d4 nny1: cmp.w #127,d3 blt.s nny2 add.w #255,d4 nny2: add.w d4,ypos move.w d7,oldy okX: moveq #0,d0 move.w ypos(pc),d0 tst.w d0 bpl.s okY1 add.w #maxY+1,ypos bra.s menu_up okY1: cmp.w #maxY,d0 bcs.s okY sub.w #maxY+1,ypos bra.L menu_down okY: move.w $dff00a,d0 move.w d0,oldy joy: move.w $dff00c,d0 move.w d0,d1 lsr.w #1,d1 eooJ:r.w d0,d1 btst #0,d1 bne.s menu_down btst #8,d1 bne.s menu_up ; ------------------------ end of mouse routine ; *** Move beam up and down *** movebeam: move.b $bfec01,d0 cmp.b #$77,d0 ;end if help pressed bne.s ok2 move.b #1,endit ok2: cmp.b #$64,d0 beq.s menu_down cmp.b #$66,d0 beq.s menu_up bra.s fade ; * Move menu up menu_up: lea menuwait(pc),a1 lea menuwait2(pc),a2 cmp.b #$6f,(a1) ;top of menu ? beq.s fade ; * sprite up lea arrow1data(pc),a4 lea oK' arrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***oL21 fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;Moή goveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b e NDdit beq.s wait bra.s endfast wait: cmp.b #$80,$dff006 bne.S wait move.b $bfec01,d4 cmp.b #$81,d4 ; 9 on numeric keyboard beq.s disptime bsr.L int bra.L cmp_keys disptime: move.w #$000f,$dff180 bsr.L int move.w #$0610,$dff180 bra.L cmp_keys endfast: bra.s set_load end: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l 38(a0),$dff080 move.w #$8020,$dff096 ;Turn sprites on jsr -138(a6) ;Permit movem.l (sp)+,d0-d7/a0-a6 moveq #0,d0 ;no erre OP2Fors rts ; *** Mouse and key selection *** set_load: lea $7e000,a3 move.b menuwait(pc),d0 cmp.b #$6f,d0 beq.s load1 cmp.b #$7a,d0 beq.s load2 cmp.b #$85,d0 beq.s load3 cmp.b #$90,d0 beq.s load4 cmp.b #$9b,d0 beq.s load5 cmp.b #$a6,d0 beq.s load6 cmp.b #$b1,d0 beq.s load7 cmp.b #$bc,d0 beq.s load8 cmp.b #$c7,d0 beq.s load9 cmp.b #$d2,d0 beq.s load10 bra.s end ; *** Which file shall I load ? *** load1: move.b #1,(a3) bra.s end load2: move.b #2,(a3) bra.se PzZ( end load3: move.b #3,(a3) bra.L end load4: move.b #4,(a3) bra.L end load5: move.b #5,(a3) bra.L end load6: move.b #6,(a3) bra.L end load7: move.b #7,(a3) bra.L end load8: move.b #8,(a3) bra.L end load9: move.b #9,(a3) bra.L end load10: move.b #10,(a3) bra.L end ; ------------------- Main routines -------------------- int: movem.l a0-a6/d0-d7,-(a7) lea logowait(pc),a0 cmp.b #$2f,(a0) beq.s sou subq.b #$01,(a0) sou: ; *** Move beam at top of selection in first frame die;lΒsplayed *** cmp.b #1,mousetop beq.s mouseco move.b #$6f,menuwait move.b #$7a,menuwait2 move.b #$6f,arrow1data move.b #$76,arrow1data+2 move.b #$6f,arrow2data move.b #$76,arrow2data+2 move.b #1,mousetop bra.s okY ; -------------------- Mouse routine --------------------- mouseco: moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 move.w $dff00a,d0 cmp.w oldy(pc),d0 beq.S okY move.w d0,d7 move.w d0,d1 lsr.w #8,d1 ; d0 : X ext.w d0 ; d1 : Y move.w d1,d2_R[$0180,$0b64 dc.w $2a11,$fffe,$0180,$0c75 dc.w $2b11,$fffe,$0180,$0d86 dc.w $2c11,$fffe,$0180,$0e97 dc.w $2d11,$fffe,$0180,$0fa8 dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02_S4Ӽ^00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0fa8 dc.w $5111,$fffe,$0180,$0e97 dc.w $5211,$fffe,$0180,$0d86 dc.w $5311,$fffe,$0180,$0c75 dc.w $5411,$fffe,$0180,$0b64 dc.w $5511,$fffe,$0180,$0a53,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w _T<$5611,$fffe,$0180,$0942;1 dc.w $5711,$fffe,$0180,$0831 dc.w $5811,$fffe,$0180,$0720 dc.w $5911,$fffe,$0180,$0610 dc.w $5a11,$fffe,$0180,$0500;5 dc.w $5b11,$fffe,$0180,$0400 dc.w $5c11,$fffe,$0180,$0300 dc.w $5d11,$fffe,$0180,$0200 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0200 dc.w $6111,$fffe,$0180,$0300 dc.w $6211,$fffe,$0180,$0400 dc.w $6311,$fffe,$0180,$0500 dc.w $6411,$fffe,$0180,$0610 dc.w $6511,$fffe,$0180,$0720 _U؂dc.w $6611,$fffe,$0180,$0831 dc.w $6711,$fffe,$0180,$0610 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0610 dc.w $e311,$fffe,$0180,$0831 dc.w $e411,$fffe,$0180,$0720 dc.w $e511,$fffe,$0180,$0610 dc.w $e611,$fffe,$0180,$0500 dc.w $e711,$fffe,$0180,$0400 dc.w $e811,$fffe,$0180,$0300 dc.w $e911,$fffe,$0180,$0200 ;;;;;;;;;;;;;;;; dc.w $e_VVlb11,$fffe,$0180,$0200 dc.w $ec11,$fffe,$0180,$0300 dc.w $ed11,$fffe,$0180,$0400 dc.w $ee11,$fffe,$0180,$0500 dc.w $ef11,$fffe,$0180,$0610 dc.w $f011,$fffe,$0180,$0720 dc.w $f111,$fffe,$0180,$0831 dc.w $f211,$fffe,$0180,$0610 ;;;;;;;;;;;;;;;;; little scroll color dc.w $f311,$fffe,$0182,$0942 dc.w $fc11,$fffe,$0180,$0720 dc.w $fd11,$fffe,$0180,$0831 dc.w $fe11,$fffe,$0180,$0942 dc.w $ff11,$fffe,$0180,$0a53 ; *** under 256 *** dc.w $ffdf,$fffe_W_f ;beam 2 under 256 dc.w $0011,$fffe,$0180,$0b64 dc.w $0111,$fffe,$0180,$0c75 dc.w $0211,$fffe,$0180,$0d86 dc.w $0311,$fffe,$0180,$0e97 dc.w $0411,$fffe,$0180,$0fa8 dc.w $0511,$fffe,$0180,$0a53 dc.w $0611,$fffe,$0180,$0b64 ; /////////*** The scroll copper murks *** fontpos:dc.w $0711,$fffe dc.w $0182,$0fa8 dc.w $0100,$1200 dc.w $008e,$2c6b dc.w $0090,$2cff dc.w $0092,$0018 dc.w $0094,$00d8 fontbpl: dc.w $00e0,$0000 dc.w $00e2,$0000 bplcon1:dc.w $0102_X5b,$00ff ;move and move... ; /////////*** end of scroll routine copper murks *** dc.w $1411,$fffe,$0180,$0a53,$0100,$0200 dc.w $1511,$fffe,$0180,$0fa8 dc.w $1611,$fffe,$0180,$0e97 dc.w $1711,$fffe,$0180,$0d86 dc.w $1811,$fffe,$0180,$0c75 dc.w $1911,$fffe,$0180,$0b64 dc.w $1a11,$fffe,$0180,$0a53 dc.w $1b11,$fffe,$0180,$0942 dc.w $1c11,$fffe,$0180,$0831 dc.w $1d11,$fffe,$0180,$0720,$0182,$0942 dc.w $1e11,$fffe,$0180,$0610 dc.w $1f11,$fffe,$0180,$0610 _YG, dc.w $2011,$fffe,$0180,$0610 ; credits dc.w $0100,$1200 dc.w $0102,$0000 ;end of wobbling credbpl:dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $2711,$fffe,$0100,$0200 dc.w $2911,$fffe,$0180,$0831 dc.w $2a11,$fffe,$0180,$0720 dc.w $2b11,$fffe,$0180,$0610 dc.w $2c11,$fffe,$0180,$0500 dc.w $2d11,$fffe,$0180,$0400 dc.w $2e11,$fffe,$0180,$0300 dc.w $2f11,$fffe,$0180,$0200 dc.w $3011,$fffe,$0180,$0000 coppend:dc.w $ffff,$fffe ; Scroll subroutines _ ZV sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld mov_![.ޓe.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) _"w*ҥ ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s deco_ ]zZ! end load3: move.b #3,(a3) bra.L end load4: move.b #4,(a3) bra.L end load5: move.b #5,(a3) bra.L end load6: move.b #6,(a3) bra.L end load7: move.b #7,(a3) bra.L end load8: move.b #8,(a3) bra.L end load9: move.b #9,(a3) bra.L end load10: move.b #10,(a3) bra.L end ; ------------------- Main routines -------------------- int: movem.l a0-a6/d0-d7,-(a7) lea logowait(pc),a0 cmp.b #$2f,(a0) beq.s sou subq.b #$01,(a0) sou: ; *** Move beam at top of selection in first frame di_^lusplayed *** cmp.b #1,mousetop beq.s mouseco move.b #$6f,menuwait move.b #$7a,menuwait2 move.b #$6f,arrow1data move.b #$76,arrow1data+2 move.b #$6f,arrow2data move.b #$76,arrow2data+2 move.b #1,mousetop bra.s okY ; -------------------- Mouse routine --------------------- mouseco: moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 move.w $dff00a,d0 cmp.w oldy(pc),d0 beq.S okY move.w d0,d7 move.w d0,d1 lsr.w #8,d1 ; d0 : X ext.w d0 ; d1 : Y move.w d1,d2__3 ;Berechnungen fuer Y move.b oldy(pc),d3 sub.w d2,d3 move.w d3,d4 neg.w d4 cmp.w #-127,d3 bgt.s nny1 sub.w #255,d4 nny1: cmp.w #127,d3 blt.s nny2 add.w #255,d4 nny2: add.w d4,ypos move.w d7,oldy okX: moveq #0,d0 move.w ypos(pc),d0 tst.w d0 bpl.s okY1 add.w #maxY+1,ypos bra.s menu_up okY1: cmp.w #maxY,d0 bcs.s okY sub.w #maxY+1,ypos bra.L menu_down okY: move.w $dff00a,d0 move.w d0,oldy joy: move.w $dff00c,d0 move.w d0,d1 lsr.w #1,d1 eo_`4r.w d0,d1 btst #0,d1 bne.s menu_down btst #8,d1 bne.s menu_up ; ------------------------ end of mouse routine ; *** Move beam up and down *** movebeam: move.b $bfec01,d0 cmp.b #$77,d0 ;end if help pressed bne.s ok2 move.b #1,endit ok2: cmp.b #$64,d0 beq.s menu_down cmp.b #$66,d0 beq.s menu_up bra.s fade ; * Move menu up menu_up: lea menuwait(pc),a1 lea menuwait2(pc),a2 cmp.b #$6f,(a1) ;top of menu ? beq.s fade ; * sprite up lea arrow1data(pc),a4 lea _a'arrow2data(pc),a5 sub.b #11,(a4) sub.b #11,2(a4) sub.b #11,(a5) sub.b #11,2(a5) ; * sub.b #11,(a1) sub.b #11,(a2) clr.b $bfec01 bra.s fade ; * Move menu down menu_down: lea menuwait(pc),a1 lea menuwait2(pc),a2 move.b (a1),d1 move.b down(pc),d0 cmp.b d0,d1 beq.s fade add.b #11,(a1) add.b #11,(a2) ; * sprite down lea arrow1data(pc),a4 lea arrow2data(pc),a5 add.b #11,(a4) add.b #11,2(a4) add.b #11,(a5) add.b #11,2(a5) ; * clr.b $bfec01 bra.s fade ; ***_b2+ fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;M_cή oveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b _dg"V#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #_e{3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$_fz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_color_Q*s: dc.w $01a0,$0000 dc.w $01a2,$0fff dc.w $01a4,$0bbb dc.w $01a6,$0888 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$0a75 ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0200 dc.w $2111,$fffe,$0180,$0300 dc.w $2211,$fffe,$0180,$0400 dc.w $2311,$fffe,$0180,$0500 dc.w $2411,$fffe,$0180,$0610 dc.w $2511,$fffe,$0180,$0720 dc.w $2611,$fffe,$0180,$0831 dc.w $2711,$fffe,$0180,$0942 dc.w $2811,$fffe,$0180,$0a53 dc.w $2911,$fffe,oh ****** ; ************************************************************** >extern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper oi4----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 adojod.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memoryok& *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256ol},d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output romYOPoutine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l on LV#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite o oxZpointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 o p ; ***51yPl" Menutext *** text1: dc.b " F1 Intro by ADVANCE " dc.b " F2 New Intro by TOXIC TRACE " dc.b " F3 Vector Demo by TOXIC TRACE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 Tune by 4-MAT OF ANARCHY " dc.b " F6 Tune by PHOTON OF PHENOMENA 52z̰ ",'' dc.b " " dc.b " Released: 16-11-90 " dc.b " " dc.b " -=== Compile done by Axel ===- " even tuttiname: dc.b '30' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.b53cs 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 or Demo by TOXIC TRACE " dc.b " F4 Depeche Code by D-TECT " dc.b " F5 Tune by 4-MAT OF ANARCHY " dc.b " F6 Tune by PHOTON OF PHENOMENA q|#]a < Aa <1Aa`H@0H@0Nu#@G9 _g ]g [g Xg Vg Tg Rg Pg Ng Lg 9gJ9g@J9Tg`6 9f9 ga`j3a3`R`(,xC DNh#&3 NvLpNuG:x og8 zg8 g8 g: g< g> g@ gB gD gF````~`v`n`f`^`V `N `FHA /gS 9g:oXz`o v o q@v `nprtv09 z~gZ>2IH4:nB8DD CnD CmDyR3Np0:FJ@j yR`X @e yR`09 3N09 2IAfbf"9 wfT dgB fg`xCE ogjI.KN ,  -   B9`>CE:g,  IK ,  - B9NqCpJ9Ug QgQ` QfgQ`U`B9U,z 2C 2 <"<N,z C prt&<(<*<Nt9f2C z vpNR f #d5 ~\ sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld mov5!.ޓe.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) 5"w* ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s deco5#nnt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blitt5$j!āer move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.w5%w7W $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $5288535&8J00 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b 5'Š'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Var5(Hiables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *5) ** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 text: DC.B "..........................WE ARE LAME........CHICKS ARE FAME.......... " DC.B "SOME SPECIAL SORRIES HAVE TO GO TO TRIX OF DEXION... SLAYER OF NO LIMITS... THE PRIDE OF FLASH PROD. ... CLASH OF PARADOX... RUBICON OF VALHALLA... RAY OF SKID ROW... STRANGER OF ADEPT AND DR. AWESOME OF CRUSADERS FOR THIS LONG DELAY "5*ry DC.B "BUT I HAD BIG PROBLEMS WITH ALL THOSE CONTACTS OF CHESTER. I HOPE THAT I MANAGED IT NOW... ... ... SORRY BUT I HAVE TO LEAVE YOU NOW BECAUSE I AM WRITING A TEST IN FRENCH TOMORROW. SO BYE...... AND ALL THE BEST WISHES YOU YOURS.......AXEL OF BRAINSTORM" DC.B "...........................SCROLL RESTARTS.........................." DC.B "." dc.b -1 even gtext: DC.B 'This time the SPECIAL greetings from Brainstorm members are going to ' dc.b 'the following amiga beasts: 0Y86 0 `6X60  `6~6ǀ@@߁C& `6F0?6` /?8?n 0 p\0 8 07` p 0n0&$ տ @6@7  2`6n0OX&  `0Gw=a=7}  ?@o O?w@_=d 0@0p  `0` 08p ```  `@2.......RUBICON OF VALHALLA ... STRANGER OF ADEPT... AND RAY OF SKID ROW... " DC.B " LET US HAVE REALLY NICE TIME IN THE FUTURE.... THE MESSAGES CONTINUE NOW... DR. AWESOME OF CRUSADERS... I WILL SWAP WITH YOU UNTIL CHRISTMAS OR NEW YEAR. " DC.B "... 4 MAT OF ANARCHY... I HOPE THAT YOU WILL WRITE SOON. WE WILL HAVE BIG FUN I THINK. TRY TO CALL ME TOO. SEE YOU MATE......BLERIS OF SCOOPEX... I AM SORRY THAT I COULD NOT BE " DC.B "AT THE AMIEXPO BUT I HOPE THAT WE WILL MEET US ANYTIME.2R`....... TIP OF DUAL CREW... I HOPE TO GET SOON SOME NEW TUNES FROM SWEDEN. I REALLY LIKED YOUR LAST ONES. ENJOY THE TUNES I SENT TO YOU " DC.B "FROM ME. KEEP ON WRITING THOSE LONG LETTERS........MAESTRO OF KEFRENS... YEP... THE CANDY WAS A GOOD IDEA. KEEP ON SENDING THOSE FUNNY THINGS. GIVE YOUR PHONE NUMBER. SO WE CAN TALK SOME SHIT ON THE PHONE." DC.B " I HOPE YOU ENJOY MY LATEST TUNES. SEND SOON..........BUSTMAN OF CRUSADERS... KEEP ON SENDING SUCH LONG LETTERS. EUROCHART WAS GREAT_ xYpointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 ,(Hiables for the blitter routine *** sourcea:dc.l 0 destind:dc.l 0 bcontr0:dc.w 0 bcontr1:dc.w 0 bmodula:dc.w 0 bmoduld:dc.w 0 bltsize:dc.w 0 ; *** Variables for the scroll routine *** swapi: dc.b 0,0,0 swap: dc.b 0 switch: dc.b 0 prg: dc.b 0 sicher: dc.l 0 addit: dc.l 0 speed: dc.b $44 ;speed variable sabine: dc.b 0 ;stop yes/no scrollcounter:dc.b 0 even ; *** Graphic library stuff *** gfxbase: dc.l 0 rastport:blk.b 100,0 bitmap: blk.b 16,0 position:dc.l 0 ; *** Font stuff *,)%b** txtfont:dc.l 0 fontname:dc.b 'topaz.font',0 even txtstruc: dc.l fontname dc.w 8 dc.w 0 ;flags rows: dc.b 0 mousetop: dc.b 0 even textpointer:dc.l 0 ; *** Little scroller *** gtext: dc.b 'Keep on reading to enjoy some SPECIAL GREETINGS... ' dc.b 'The one and only makers of this crap are : ORLANDO (who coded this ' dc.b ') and CHESTER (who designed and drew the graphics). ' dc.b ' ' dc.b 'Here the instructio,*Ƕns : Use mouse, cursor keys, joystick ' dc.b 'to select and left mouse button, joy-button, return or ' dc.b 'f-key to load the desired program. (Joystick selection is ' dc.b "quite useful for gamers, also because it's not as easy to " dc.b 'select with, as with the other methods... ' dc.b "You're waiting for the SPECIAL (!!!) greetings, so here we go ... " dc.b 'From Chester to : ' dc.b 'Scoopex, Rebels, Image, Flash, Paradox, ' dc.b 'Crusaders, Cryptoburners, Phe,+ʋnomena, Silents, Adept, ' dc.b 'The Link, Dual Crew, No Limits, Impact, Hyde, Celtic, Vision, ' dc.b ' Level 4,... ' dc.b 'From Orlando to : ' dc.b 'Storm, Zero Defects... ' dc.b 'From Scattergold : ' dc.b 'Alcatraz, Defjam-Ccs-Acc, Tristar-Rsi, ' dc.b 'Crusaders, Kefrens, ' dc.b 'Vision, Dual Crew, Cytax, Paradox, Tgs, Genesis, ' dc.b 'Subway, Scoopex... ' dc.b 'From Truxton to : ' dc.b 'Fraxion, Complex, Razor 1911, Network,,,m No Limits, Spreadpoint...' dc.b ' Sorry, no SPECIAL greetings from other members... ' dc.b 'and again I have to write : END OF TEXT ' dc.b ' ' endG: ; *** Scroll text for the big scroller *** ; *** ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890?!. ; x=normal / z=very slow / y=slow / v=very fast / s=stop / w=fast text: dc.b ' ' DC.B 'SHOW ME... DONT TELL ME! ,-{ ' DC.B 'HERE IS TUTTI FRUTTI COMPILE NR.16 BROUGHT TO YOU BY ' DC.B 'BRAINSTORM. ' dc.b 'WAIT A WHILE TO READ THE PERSONAL GREETINGS. ' DC.B 'FIRST OF ALL I HAVE TO THANK ALL THOSE WHO WROTE ME ' DC.B 'AND WITH ME I MEAN ORLANDO... BECAUSE THEY SAW MY NO MORE MR NICE GUY ' DC.B 'DEMO. SORRY I CANT ANSWER ALL LETTERS BECAUSE IT TAKES ' DC.B 'JUST TOO MUCH TIME. BUT ILL TRY TO ANSWER MOST OF THEM... ' DC.B 'THE LAME ONES WONT BE ANSWERED. FOR EXAMPLE IF YOU SE,."NT ME ' DC.B 'A DISK WITH DEMOS THAT ARE OLDER THAN 3 MONTHS I SEE N O ' DC.B 'REASON WHY I SHOULD ANSWER THIS CRAP... ' DC.B 'BUT HERE SOME ADVERTISEMENT FOR ZINE... AS YOU CERTAINLY ' DC.B 'HAVE READ IN ISSUE 6 YOU CAN NOW PUBLISH YOUR BBS NUMBERS FOR ' DC.B 'FREE. JUST SEND ME THE BBS NUMBERS WITH THE NAME OF THE BBS ' DC.B 'TO THE FOLLOWING ADDRESS ... y zORLANDO BUDELACCI ' DC.B 'BIRMANNSGASSE 34 4055 BASLE SWITZERLAND ' DC.B 'AND NOW...y ,/ x ' DC.B 'ORLANDOS PERSONAL GREETS FLY OUT TO THESE FREAKS. ' DC.B 'TERMINATOR OF ZERO DEFECTS ... CIAO! ' DC.B 'MONOTOF OF STORM ... I WILL SEND THE INTERVIEW SOON. SORRY FOR THE SPELLING ERROR. ' DC.B 'FIREBALL OF GATE ... SEND THE METALLICA RECORD SOOOOON. ' DC.B 'COSMAC OF FACTOR FOUR ... GREET LOUISE FROM ME ' DC.B 'MR SPIV OF CAVE ... KEEP ON CODING AND STAY COOL !!! ' DC.B 'SAIGON OF SAVAGE ... YEAH! ,0Rj{ ' DC.B 'THAT WERE THE PERSONAL GREETS FROM ORLANDO AND NOW SOMEONE ' DC.B 'ELSE WILL WRITE SOME STUFF... NOONE... ' DC.B ' ' dc.b -1 even ; 71 chars -> ; *** Menutext *** text1: dc.b " F1 NEW INTRO BY TRISTAR AND RSI " dc.b " F2 NEW/OLD INTRO BY DEFJAM " dc.b " F3 MEGA-MINI-DEMO BY FLUID DESIGN " dc.b,1gi " F4 BOBBY THE FLUID BY FLUID DESIGN " dc.b " F5 HYSTERIA BY CPS " dc.b " F6 DR. AWESOME SOUND BY CRUSADERS ",'' dc.b " " dc.b " " dc.b " Compile was done by Orlando and Chester " dc.b " ,2v| Released : 08-Sep-(who cares?) " even tuttiname: dc.b '17' ;only up to 99 ; ----------------------------------------------------------------- oldy:dc.w 0 oldx:dc.w 0 ypos:dc.b 0 xpos:dc.b 0 endit:dc.b 0 fadeflag:dc.b 0 down: dc.b 0 even ; *** Memory for the font and logo *** tuttifont: blk.b 84,0 logoaddr: blk.b 3840,0 font: blk.b 1000,0 ;4924 credits: blk.b 350,0 fontmem: blk.b 20*50,0 I-DEMO BY FLUID DESIGN " dc.b,_fX ;beam 2 under 256 dc.w $0011,$fffe,$0180,$0b64 dc.w $0111,$fffe,$0180,$0c75 dc.w $0211,$fffe,$0180,$0d86 dc.w $0311,$fffe,$0180,$0e97 dc.w $0411,$fffe,$0180,$0fa8 dc.w $0511,$fffe,$0180,$0a53 dc.w $0611,$fffe,$0180,$0b64 ; /////////*** The scroll copper murks *** fontpos:dc.w $0711,$fffe dc.w $0182,$0fa8 dc.w $0100,$1200 dc.w $008e,$2c6b dc.w $0090,$2cff dc.w $0092,$0018 dc.w $0094,$00d8 fontbpl: dc.w $00e0,$0000 dc.w $00e2,$0000 bplcon1:dc.w $0102,5bs,$00ff ;move and move... ; /////////*** end of scroll routine copper murks *** dc.w $1411,$fffe,$0180,$0a53,$0100,$0200 dc.w $1511,$fffe,$0180,$0fa8 dc.w $1611,$fffe,$0180,$0e97 dc.w $1711,$fffe,$0180,$0d86 dc.w $1811,$fffe,$0180,$0c75 dc.w $1911,$fffe,$0180,$0b64 dc.w $1a11,$fffe,$0180,$0a53 dc.w $1b11,$fffe,$0180,$0942 dc.w $1c11,$fffe,$0180,$0831 dc.w $1d11,$fffe,$0180,$0720,$0182,$0942 dc.w $1e11,$fffe,$0180,$0610 dc.w $1f11,$fffe,$0180,$0610 ,G dc.w $2011,$fffe,$0180,$0610 ; credits dc.w $0100,$1200 dc.w $0102,$0000 ;end of wobbling credbpl:dc.w $00e0,$0000 dc.w $00e2,$0000 dc.w $2711,$fffe,$0100,$0200 dc.w $2911,$fffe,$0180,$0831 dc.w $2a11,$fffe,$0180,$0720 dc.w $2b11,$fffe,$0180,$0610 dc.w $2c11,$fffe,$0180,$0500 dc.w $2d11,$fffe,$0180,$0400 dc.w $2e11,$fffe,$0180,$0300 dc.w $2f11,$fffe,$0180,$0200 dc.w $3011,$fffe,$0180,$0000 coppend:dc.w $ffff,$fffe ; Scroll subroutines , + sthalf: bsr.S decode ;decode ascii text move.l sicher(pc),sourcea bra.S print print: bsr.L blitrou scr: move.b speed(pc),d0 sub.b d0,bplcon1+3 ;scrspeed $11/$22/$44/$88/$110 cmp.b #$ef,bplcon1+3 beq.S copy move.b #1,prg ;I want bplcon1 scroll rts ; *** Copy screen *** copy: move.w #$ff,bplcon1+2 move.l #fontmem+2,sourcea move.l #fontmem,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0002,bmodula move.w #0002,bmoduld mov,!.ޒe.w #%0000011000011000,bltsize ;24 words bsr.L blitter clr.b prg ;I want to copy the char rts ; *** Decode the Ascii text !!! *** decode: lea text(pc),a0 add.l addit(pc),a0 lea chartab(pc),a1 moveq #46,d6 ;How many chars moveq #0,d0 speed_changed: cmp.b #'z',(a0) ;very slow beq.s speed11 cmp.b #'y',(a0) ;slow beq.s speed22 cmp.b #'x',(a0) ;normal beq.s speed44 cmp.b #'w',(a0) ;fast beq.s speed88 cmp.b #'v',(a0) ;very fast beq.s speed110 cmp.b #'s',(a0) ,"w* ;stop beq.s stop decont: chloop: move.b (a0),d0 cmp.b (a1),d0 beq.S found addq #2,a1 dbra d6,chloop clr.l addit bra.S decode found: ;Char found !! Yeah addq #1,a1 lea adrlist(pc),a4 move.b (a1),swap sub.b #1,swap move.l swapi(pc),d4 cmp.b #$ff,d4 beq.S continue searchl: add.w #4,a4 dbra d4,searchl continue: move.l (a4),sicher add.l #1,addit rts ; *** Different speeds *** speed11: move.b #$11,speed bra.s decont speed22: move.b #$22,speed bra.s deco,#nznt speed44: move.b #$44,speed bra.s decont speed88: move.b #$88,speed bra.s decont speed110: move.b #$110,speed bra.s decont stop: move.b #1,sabine bra.L decont ; *** Copy char to screen *** blitrou: move.l #fontmem+48,destind move.w #%0000100111110000,bcontr0 move.w #%0000000000000000,bcontr1 move.w #0038,bmodula move.w #0048,bmoduld move.w #%0000001100000001,bltsize bsr.s blitter rts ; *** Blitter routine *** blitter: waitblit: btst #14,$dff002 bne.S blitt,$j!Per move.l sourcea(pc),$dff050 move.l destind(pc),$dff054 move.w bcontr0(pc),$dff040 move.w bcontr1(pc),$dff042 move.w bmodula(pc),$dff064 move.w bmoduld(pc),$dff066 move.w #$ffff,$dff044 move.w #$ffff,$dff046 move.w bltsize(pc),$dff058 rts ; *** Spritedata-list *** spritedata: dc.l $2cd82d00 dc.w $0000,$0001 dc.l $2e252f00 dc.w $8000,$0000 dc.l $30983100 dc.w $0001,$0001 dc.l $32f83300 dc.w $8000,$0000 dc.l $34383500 dc.w $0000,$0001 dc.l $36983700 dc.w,%w7& $0001,$0001 dc.l $38583900 dc.w $0000,$0001 dc.l $3aa53b00 dc.w $8000,$0000 dc.l $3c883d00 dc.w $0001,$0001 dc.l $3eb33f00 dc.w $0000,$0001 dc.l $40184100 dc.w $8000,$0000 dc.l $42884300 dc.w $0000,$0001 dc.l $44384500 dc.w $0001,$0001 dc.l $46684700 dc.w $8000,$0000 dc.l $48384900 dc.w $0001,$0001 dc.l $4a254b00 dc.w $8000,$0000 dc.l $4ca84d00 dc.w $0000,$0001 dc.l $4e284f00 dc.w $0000,$0001 dc.l $50185100 dc.w $0001,$0001 dc.l $528853,&800 dc.w $8000,$0000 dc.l $54535500 dc.w $0000,$0001 dc.w 0,0 ; *** Sprite datas for the arrows *** arrow1data: dc.l $6f407600 dc.w $0000,$0018 dc.w $0000,$001C dc.w $0000,$0FFE dc.w $0000,$0FFF dc.w $0000,$0FFE dc.w $0000,$001C dc.w $0000,$0018 dc.w $0000,$0000 arrow2data: dc.l $6fd37600 dc.w $0000,$1800 dc.w $0000,$3800 dc.w $0000,$7FF0 dc.w $0000,$FFF0 dc.w $0000,$7FF0 dc.w $0000,$3800 dc.w $0000,$1800 dc.w $0000,$0000 ; *** Libraries *** gfxname:dc.b ,'Š'graphics.library',0 even ; *** Char address list *** adrlist:blk.l 50,0 ; *** Ascii tab *** chartab: dc.b 'A',00,'B',01,'C',02,'D',03,'E',04,'F',05,'G',06 DC.B 'H',07,'I',08,'J',09,'K',10,'L',11,'M',12,'N',13 DC.B 'O',14,'P',15,'Q',16,'R',17,'S',18,'T',19,'U',20 DC.B 'V',21,'W',22,'X',23,'Y',24,'Z',25,'1',26 dc.b '2',27,'3',28,'4',29,'5',30,'6',31,'7',32,'8',33 dc.b '9',34,'0',35,'?',36,'!',37,'.',38,' ',39 dc.b 'z',39,'x',39,'y',39,'w',39,'v',39 dc.b 's',39 ; *** Var,2 fade choosen menu option *** ; *** Fade it up or down *** fade: lea fadecol(pc),a1 tst.b fadeflag ;0=subit beq.s subit ddit: cmp.w #$0fff,(a1) ;eee beq.s change2 add.w #$0111,(a1) bra.s go subit: cmp.w #$0666,(a1) beq.s change1 sub.w #$0111,(a1) bra.s go change1: move.b #1,fadeflag bra.s go change2: clr.b fadeflag go: ; *** System scroll *** systemscroll: move.l gfxbase(pc),a6 lea rastport(pc),a1 move.l #640+630,d0 move.l #164,d1 ;heigth jsr -240(a6) ;M,ήoveRastport move.l gfxbase(pc),a6 lea rastport(pc),a1 moveq #4,d0 ;Speed moveq #0,d1 ; moveq #0,d2 ; move.l #154,d3 ; move.l #640+630,d4 move.l #164+9,d5 jsr -396(a6) ;Scrollraster sub.b #4,rows ;counter bne.S goforit move.b #8,rows lea rastport(pc),a1 move.l textpointer(pc),a0 moveq #2,d0 jsr -60(a6) addq.l #1,textpointer cmp.l #endG,textpointer bne.S goforit move.l #gtext,textpointer goforit: ; *** Scroll timing in the interrupt *** stop_yes_no: cmp.b ,g"+#1,sabine beq.S noscr bra.S scroll_timing noscr: addq.b #1,scrollcounter cmp.b #80,scrollcounter ;time in vertical interrrupts bne.S exit clr.b sabine clr.b scrollcounter scroll_timing: cmp.b #1,prg ;bplcon1 scroll ? beq.S scroll first: bsr.L sthalf ;else print letter bra.S exit scroll: bsr.L scr ;scroll letter with $0102 exit: subq.b #3,spritedata+1 subq.b #1,spritedata+9 subq.b #2,spritedata+17 subq.b #1,spritedata+25 subq.b #4,spritedata+33 subq.b #,þ{3,spritedata+41 subq.b #1,spritedata+49 subq.b #2,spritedata+57 subq.b #4,spritedata+65 subq.b #2,spritedata+73 subq.b #1,spritedata+81 subq.b #3,spritedata+89 subq.b #1,spritedata+97 subq.b #2,spritedata+105 subq.b #3,spritedata+113 subq.b #4,spritedata+121 subq.b #2,spritedata+129 movem.l (a7)+,a0-a6/d0-d7 rts ; --------------------- copper list -------------------- copper: ; *** Sprite pointers *** spritepointer: dc.w $0120,$0000,$0122,$0000,$0124,$0000,$0126,$,Ŀz0000 dc.w $0128,$0000,$012a,$0000,$012c,$0000,$012e,$0000 dc.w $0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000 dc.w $0138,$0000,$013a,$0000,$013c,$0000,$013e,$0000 dc.w $0100,$0200 ;bplcon0 dc.w $0096,$8020 ;dmacon / sprites on dc.w $008e,$2081 ;diwstrt dc.w $0090,$2cc1 ;diwstop dc.w $0092,$0038 ;ddfstrt dc.w $0094,$00d0 ;ddfstop dc.w $0102,$0000 ;clear bplcon1 dc.w $0104,$0000 ;clear blpcon2 dc.w $0108,$0000 ;bplmod0 dc.w $010a,$0000 ;bplmod1 sprite_color,*s: dc.w $01a0,$0000 dc.w $01a2,$0fff dc.w $01a4,$0bbb dc.w $01a6,$0888 dc.w $01a8,$0000 dc.w $01aa,$0f00 dc.w $01ac,$0a75 ;sprite color dc.w $01ae,$000f ; *** The 'new' copper waits *** dc.w $2011,$fffe,$0180,$0200 dc.w $2111,$fffe,$0180,$0300 dc.w $2211,$fffe,$0180,$0400 dc.w $2311,$fffe,$0180,$0500 dc.w $2411,$fffe,$0180,$0610 dc.w $2511,$fffe,$0180,$0720 dc.w $2611,$fffe,$0180,$0831 dc.w $2711,$fffe,$0180,$0942 dc.w $2811,$fffe,$0180,$0a53 dc.w $2911,$fffe,,[K$0180,$0b64 dc.w $2a11,$fffe,$0180,$0c75 dc.w $2b11,$fffe,$0180,$0d86 dc.w $2c11,$fffe,$0180,$0e97 dc.w $2d11,$fffe,$0180,$0fa8 dc.w $2e11,$fffe,$0180,$0000 ; *** Logo stuff *** logowait: dc.w $4e11,$fffe dc.w $0100,$3200 bpl: dc.w $00e0,$0006,$00e2,$0000,$00e4,$0006 dc.w $00e6,$2800,$00e8,$0006,$00ea,$5000 colors_of_logo: dc.w $0180,$0000,$0182,$0f76,$0184,$0d54 dc.w $0186,$0b32,$0188,$0A10,$018a,$0800 dc.w $018c,$0600,$018e,$0400 noplan: dc.w $4f11,$fffe,$0100,$02,4Ӽ00 ; *** Some more copper waits /colors *** beammove1: dc.w $5011,$fffe,$0180,$0fa8 dc.w $5111,$fffe,$0180,$0e97 dc.w $5211,$fffe,$0180,$0d86 dc.w $5311,$fffe,$0180,$0c75 dc.w $5411,$fffe,$0180,$0b64 dc.w $5511,$fffe,$0180,$0a53,$0182,$0d86 ;menu col ; *** Set hires *** dc.w $0102,$0000 ;end of wobbling dc.w $0100,$9200 ;hires + 1 plane new_bpl: dc.w $00e0,$0007 ;text located at $70000 dc.w $00e2,$0000 ; *** Set hires END ./////////////// beammove2: dc.w ,Ȧ;$5611,$fffe,$0180,$0942;1 dc.w $5711,$fffe,$0180,$0831 dc.w $5811,$fffe,$0180,$0720 dc.w $5911,$fffe,$0180,$0610 dc.w $5a11,$fffe,$0180,$0500;5 dc.w $5b11,$fffe,$0180,$0400 dc.w $5c11,$fffe,$0180,$0300 dc.w $5d11,$fffe,$0180,$0200 dc.w $5e11,$fffe,$0180,$0000;9 ; *** choose option background *** dc.w $6011,$fffe,$0180,$0200 dc.w $6111,$fffe,$0180,$0300 dc.w $6211,$fffe,$0180,$0400 dc.w $6311,$fffe,$0180,$0500 dc.w $6411,$fffe,$0180,$0610 dc.w $6511,$fffe,$0180,$0720 ,؂Sdc.w $6611,$fffe,$0180,$0831 dc.w $6711,$fffe,$0180,$0610 dc.w $0182,$0d86 ; *** menu option menuwait: dc.w $6f11,$fffe,$0182 fadecol: dc.w $0888 menuwait2: dc.w $7711,$fffe,$0182,$0d86 ; *** menu option end dc.w $e211,$fffe,$0180,$0610 dc.w $e311,$fffe,$0180,$0831 dc.w $e411,$fffe,$0180,$0720 dc.w $e511,$fffe,$0180,$0610 dc.w $e611,$fffe,$0180,$0500 dc.w $e711,$fffe,$0180,$0400 dc.w $e811,$fffe,$0180,$0300 dc.w $e911,$fffe,$0180,$0200 ;;;;;;;;;;;;;;;; dc.w $e,Vlb11,$fffe,$0180,$0200 dc.w $ec11,$fffe,$0180,$0300 dc.w $ed11,$fffe,$0180,$0400 dc.w $ee11,$fffe,$0180,$0500 dc.w $ef11,$fffe,$0180,$0610 dc.w $f011,$fffe,$0180,$0720 dc.w $f111,$fffe,$0180,$0831 dc.w $f211,$fffe,$0180,$0610 ;;;;;;;;;;;;;;;;; little scroll color dc.w $f311,$fffe,$0182,$0942 dc.w $fc11,$fffe,$0180,$0720 dc.w $fd11,$fffe,$0180,$0831 dc.w $fe11,$fffe,$0180,$0942 dc.w $ff11,$fffe,$0180,$0a53 ; *** under 256 *** dc.w $ffdf,$fffe,YO5outine for the menu *** moveq #9,d7 lea text1(pc),a0 moveq #32,d1 text_loop: bsr.S put_text add.l #11,d1 ;10 add.l #71,a0 subq.l #1,a0 cmp.b #'',(a0) ;alt + space ? bne.s textit ; *** Test in which line and set end position of beam *** move.w d7,d6 moveq #10,d5 sub.w d6,d5 ;10-d7 move.w d5,$7f000 lea $7e000,a3 lea waitlist(pc),a2 subq.w #1,d5 add.w d5,a2 move.b (a2),down bra.s textit waitlist: dc.b $6f,$7a,$85,$90,$9b,$a6,$b1,$bc,$c7,$d2 textit: addq.l , L;#1,a0 dbra d7,text_loop bra.s makeadr put_text: movem.l d1/a0,-(a7) lea rastport(pc),a1 moveq #71,d0 jsr -240(a6) lea rastport(pc),a1 jsr -60(a6) movem.l (a7)+,d1/a0 rts ; *** Calculate Address list for the font *** makeadr:lea adrlist(pc),a0 lea font(pc),a1 move.l a1,a2 moveq #1,d1 ;2 charlines adrlo2: moveq #19,d0 ;Chars per line adrloop:move.l a1,(a0)+ addq.w #2,a1 ;16 Pixel dbf d0,adrloop add.l #[12*40],a2 move.l a2,a1 dbf d1,adrlo2 ; *** Set sprite , xYpointers *** set_sprite_pointers: move.l #spritedata,d0 lea spritepointer+2(pc),a0 bsr.s setrel ; * set arrow relative move.l #arrow1data,d0 lea spritepointer+18(pc),a0 bsr.s setrel move.l #arrow2data,d0 lea spritepointer+26(pc),a0 bsr.s setrel ; * set cred relative move.l #credits,d0 lea credbpl+2(pc),a0 bsr.s setrel bra.s stcopp setrel: swap d0 move.w d0,(a0)+ add.w #2,a0 swap d0 move.w d0,(a0)+ rts ; *** Start copper *** stcopp: move.l #copper,$dff080 , έextern "Df0:data/gfx",tuttifont,4924 >extern "Df0:data/tuttifrutti.raw",credits,350 ;for tutti frutti normal ;>extern "Df0:data/utilities.raw",credits,350 ;for utilities ;>extern "Df0:data/gamepack.raw",credits,350 ;for gamepack ;>extern "Df0:data/fruitpack.raw",credits,350 ;fruitpack maxX = 20 maxY = 20 ; ----------- Set up everyting before starting the copper ,4----------- start: ; *** Forbid *** forbid: movem.l d0-d7/a0-a6,-(sp) move.l 4.w,a6 jsr -132(a6) ;Forbid move.l #fontmem,d0 lea fontbpl+2(pc),a1 swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) move.l #$70000,d0 lea new_bpl+2(pc),a0 bsr.L setrel ; *** Set relative logo address *** ; *** 32*320 *** copy_logo: move.l #logoaddr,d0 lea bpl+2(pc),a1 moveq #2,d1 logo_loop: swap d0 move.w d0,(a1)+ addq.w #2,a1 swap d0 move.w d0,(a1) addq.w #4,a1 ad,ދ>d.w #[32*40],d0 dbf d1,logo_loop ; *** Copy pack no. in screen memory *** lea credits+31(pc),a0 lea tuttiname(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop lea credits+32(pc),a0 lea tuttiname+1(pc),a1 lea tuttifont(pc),a2 moveq #0,d3 moveq #12,d5 sub.b #$30,(a1) bsr.s sloop bra.s setpointer sloop: cmp.b (a1),d3 bne.s sloop2 bsr.s copchar sloop2: addq.l #1,a2 addq.l #1,d3 dbf d5,sloop rts ; *** copies char into memory, *** ; source in A2 / destination in A0 copchar: moveq #6,d0 copycharmem: move.b (a2),(a0) add.l #50,a0 add.l #10,a2 dbf d0,copycharmem rts ; *** Set text pointer for small scroller *** setpointer: move.l #gtext,textpointer ; *** Open graphics.library *** open_gfx: move.l 4.w,a6 lea gfxname(pc),a1 jsr -408(a6) ;OpenLibrary move.l d0,gfxbase init_bitmap: move.l gfxbase(pc),a6 lea bitmap(pc),a0 moveq #1,d0 ;how many planes ? move.l #640,d1 move.l #256,}d,d2 jsr -390(a6) ;InitBitmap move.l #$70000,bitmap+8 init_rastport: move.l gfxbase(pc),a6 lea rastport(pc),a1 jsr -198(a6) ;InitRastport move.l #bitmap,rastport+4 clear_screen: lea $70000,a0 move.l #$10000/4-1,d0 clear_loop: clr.l (a0)+ dbf d0,clear_loop ; *** Set hires topaz 8 font *** open_font: lea txtstruc(pc),a0 jsr -72(a6) ;OpenFont move.l d0,txtfont set_font: lea rastport(pc),a1 move.l txtfont(pc),a0 jsr -66(a6) ;Setfont ; *** Text output r