;-------------------------------- ; Standard Setup V2.0 ; © 1989 by NoLimits ;-------------------------------- move.l #text,txtbuff ; Points at text move.l #$61000,a4 ; Clears scrollpath move.l #$03ff,d2 clears: clr.l (a4)+ dbf d2,clears w: move.l $dff004,d0 and.l #$0001ff00,d0 cmp.l #$00000800,d0 bne.S w move.w #$0020,$dff096 ;sprite move.w #$8400,$dff096 ;blitter nasty move.l #cop,$dff080 wait: cmp.b #$a0,$dff006 bne wait bsr.L scroll cmp.b #$74,$bfec01 beq quit cmp.b #$5e,$bfec01 ; Waits for the bgt wait cmp.b #$4e,$bfec01 ; Waits for the ble wait bra quit ; left mousebutton quit: move.w #$8020,$dff096 move.l 4,a6 move.l 156(a6),a0 move.l 38(a0),$dff080 moveq #0,d0 rts ;-------------------------------- scroll: test1: cmp.b #$00,spflag ; Tests for changed flags. bne test2 ; Will change speed or jsr dfg ; stop, depending on what jsr dfg ; stop, depending on what jsr dfg ; stop, depending on what jsr dfg ; stop, depending on what rts test2: jsr dfg jsr dfg jsr dfg jsr dfg jsr dfg rts dfg: lea $6105c,a0 ; Main scroll routine. move.w #25,d0 ; # of lines to scroll roxl: roxl.l #1,-(a0) ; Scrolling a line roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) roxl.l #1,-(a0) add.l #$5a,a0 ; Point at next line sub.w #1,d0 ; Check if finished bne roxl ; If not, continue sub.w #1,chardst ; Time to plot new char? bne ret ; If not, exit move.w #29,chardst ; Restore counter jsr letter ; Find & plot letter ret: rts letter: clr.l d0 ; Clear old letter move.l txtbuff,a0 ; Point a0 at next letter move.b (a0),d0 ; Move next letter to d0 cmp.b #126,d0 ; Check for end-scroll-sign beq restrt ; If equal, restart routine move.w #8,d7 ; Counter for bitplane move.l #$7b000,d6 ; Point d6 at bitplane lea alfa1,a2 ; Point a2 at 1st table add.l #1,txtbuff ; Point at next letter flag1: cmp.b #"<",d0 bne flag2 move.b #$00,spflag jmp letter flag2: cmp.b #">",d0 bne find1 move.b #$11,spflag jmp letter find1: cmp.b (a2)+,d0 ; Cmp letter with table 1 beq find2 ; If equal, check size add.w #4,d6 ; If not, next in bitplane sub.w #1,d7 ; Decrease bpl-counter bne find1 ; Not end of line, next add.w #$4e0,d6 ; Point at nekt line in bpl move.w #8,d7 ; Restore counter jmp find1 ; Cmp with next in table find2: move.l d6,a1 ; Get bpl.adr. of letter store: move.w #31,d2 ; Height of character lea $61058,a2 ; Bpl adr for output loop: move.l (a1),(a2) ; Plot line 1 of char add.w #$28,a1 ; Next pos to fetch char add.w #$2e,a2 ; Next pos to plot char sub.w #1,d2 ; Finished? bne loop ; If not, continue rts restrt: move.l #text,txtbuff ; Restart scrolltext lea text,a0 move.b (a0),d0 rts text: dc.b " >welcome to yet another number two is now a reality...... . . presented to you by " dc.b "nefarious and microfly of esa. here are the " dc.b "credits for this menu (made to replace the fucking load" dc.b "screen-menu): " dc.b " the 5-minute coding by: " dc.b " chars were ripped from an ancient" dc.b " black monks intro " dc.b ">and the great picture (if i may say so...)" dc.b " was pixeled by remember that" dc.b " name.... and yes, i know that *conqueror*" dc.b " is an old game, but i just had " dc.b "to include it. after all, this is an %army pack% .......... " dc.b " well, (cool word or " dc.b "what, brainie?? (internal joke!!)), well, if you wanna call the" dc.b " norwegian hq (nef), then dial: <-47 (0)73 97864 " dc.b " >and ask for geir. (foreigners may ask for nef, if they " dc.b "find geir to difficult to pronounce.......) " dc.b ">esa norway needs new members, so dont be afraid to call. " dc.b " we are especially in need of musicians and coders. ..." dc.b " >nef and mof signing off..... " dc.b " " DC.B "~" EVEN alfa1: dc.b "0123456789:.-,*! abcdefghijklmnopqrstuvwxyz%?()" dc.b '^' even cop: dc.w $0100,$0200 dc.w $008e,$1c81,$0090,$37c1 dc.w $0092,$0038,$0094,$00d0 dc.w $00e0,$0007,$00e2,$0000 dc.w $00e4,$0007,$00e6,$28*225 dc.w $00e8,$0007,$00ea,$28*225*2 dc.w $00ec,$0007,$00ee,$28*225*3 dc.w $0180,$0000,$0182,$0fff,$0184,$0700,$0186,$0fa0 ; colors dc.w $0188,$0000,$018a,$0ff0,$018c,$0000,$018e,$0fe0 ; f = 15 dc.w $0190,$0fa0,$0192,$0f90,$0194,$0f80,$0196,$0f60 ; e = 14 dc.w $0198,$0d60,$019a,$0b50,$019c,$0900,$019e,$0700 ; c = 12 dc.w $010a,$0000,$0102,$0000,$0104,$0000 dc.w $0108,$0000 dc.w $2a15,$fffe dc.w $0100,$4200 dc.l $ffe1fffe dc.w $0b15,$fffe,$0100,$0200 dc.w $1215,$fffe,$0182,$eca,$0184,$a86 dc.w $1315,$fffe,$0186,$ca8 dc.w $0092,$0030,$0094,$00d0 dc.w $1415,$fffe,$0100,$2200 dc.w $00e0,$0006,$00e2,$1000 dc.w $00e4,$0006,$00e6,$102e dc.w $0108,$0004 dc.w $010a,$0004 dc.w $2d15,$fffe dc.l $fffffffe chardst: dc.w $1d spflag: dc.b 11,0 sys_stack: dc.l 0 sys_copper: dc.l 0 txtbuff: dc.l 0 even ÜP