** ** The Alliance Dox Menu 40chars version. ** ** Coded by Raistlin of Alliance (16.02.92) ** ** NOTE:- This is only a TEST version!!!! ** ** include source:include/hardware.i ; Hardware offset section Startup,code ; Public memory opt c- ***************************** * This is The Start-Up Code * ***************************** lea $dff000,a5 ; Hardware offset move.l 4,a6 ; Exec base lea gfxname,a1 moveq.l #0,d0 ; Any version jsr -552(a6) ; Open library move.l d0,gfxbase ; Save gfx base beq error lea dosname,a1 ; Load dos library moveq.l #0,d0 ; Any version jsr -552(a6) ; Open library move.l d0,dosbase ; Save dos base beq error StartUp ; Try allocating memory for the 3D screen (double buffered) move.l #161*40*3,d0 ; Size=161*320*3 moveq.l #2,d1 ; CHIP memory jsr -198(a6) ; Reserve memroy move.l d0,DScreen ; Save memory beq error ; Exit if no memory move.l #161*40*3,d0 ; Size=161*320*3 moveq.l #2,d1 ; CHIP memory jsr -198(a6) ; Reserve memory move.l d0,LScreen ; Save memory beq error ; Exit if no memory ; Allocate memory for the menu screen move.l #161*40,d0 ; Size=161*320 moveq.l #2,d1 ; CHIP memory jsr -198(a6) ; Reserve memory move.l d0,VMScreen ; Save memory (this pointer for l8r) move.l d0,MScreen ; Save memory (ptr for use) beq error ; Exit if no memory ; Alocate memory for scoller screen move.l #19*46,d0 ; Size =19*368 moveq.l #2,d1 ; CHIP memory jsr -198(a6) ; Reserve memory move.l d0,VSScreen ; Save meory (this ptr 4 l8r) move.l d0,SScreen1 ; Save memory (ptr for use) move.l d0,SScreen2 ; Save ptr move.l d0,SScreen3 ; Save ptr jsr -132(a6) ; Permit ****************** ; Clear the memory ****************** ClearDMemory move.l DScreen,a0 ; A0=Ptr to 3D screen move.l #4829,d0 ; D0=Number of long words to clear-1 .Loop move.l #0,(a0)+ ; Clear the memory dbra d0,.Loop ClearLMemory move.l LScreen,a0 ; A0=Ptr to 3D screen move.l #4829,d0 ; D0=Number of long words to clear-1 .Loop move.l #0,(a0)+ ; Clear the memory dbra d0,.Loop ClearMenuMemory move.l MScreen,a0 ; A0=Ptr to menu screen move.l #1609,d0 ; D0=Number of long words to clear-1 .Loop move.l #0,(a0)+ ; Clear the memory dbra d0,.Loop ClearScrollerMemory move.l SScreen1,a0 ; A0=Ptr to scroller screen move.l #436,d0 ; D0=Number of words to clear-1 .Loop move.w #0,(a0)+ ; Clear the memory dbra d0,.Loop ; Reset some variables move.l #Menu0Text,TextP ; Textpointer=Main menu move.b #1,MenuF ; Signal menu update move.b #0,MenuC ; Menu counter move.l #Text,STextP ; Reset scroll text pointer move.b #0,PlopC ; Reset plop counter **************************************************************************** ; Load the sprite pointers **************************************************************************** LoadSpritePointers .Wait1 btst #0,vposr(a5) ; Wait for the vertival blank bne .Wait1 ; before manipulating .Wait2 cmpi.b #55,vhposr(a5) ; the grafix bne .Wait2 move.l #Sprite1,d0 ; D0=Address of sprite1 move.w d0,spl0+2 swap d0 move.w d0,sph0+2 move.l #Sprite2,d0 ; D0=Address of sprite2 move.w d0,spl1+2 swap d0 move.w d0,sph1+2 move.l #Sprite3,d0 ; D0=Address of sprite3 move.w d0,spl2+2 swap d0 move.w d0,sph2+2 move.l #SEND,d0 ; D0=Dummy sprite data move.w d0,spl3+2 move.w d0,spl4+2 move.w d0,spl5+2 move.w d0,spl6+2 move.w d0,spl7+2 swap d0 move.w d0,sph3+2 move.w d0,sph4+2 move.w d0,sph5+2 move.w d0,sph6+2 move.w d0,sph7+2 ***************************************************************************** ; Set-Up The Bitplane Pointers ***************************************************************************** move.l LogoPtr,d0 ; D0=Address of logo move.w d0,bpl1L+2 swap d0 move.w d0,bph1L+2 swap d0 add.l #40*79,d0 move.w d0,bpl2L+2 swap d0 move.w d0,bph2L+2 swap d0 add.l #40*79,d0 move.w d0,bpl3L+2 swap d0 move.w d0,bph3L+2 swap d0 add.l #40*79,d0 move.w d0,bpl4L+2 swap d0 move.w d0,bph4L+2 move.l DScreen,d0 ; Address of 3D screen move.w d0,bplD1+2 ; Load bitplane pointers swap d0 move.w d0,bphD1+2 swap d0 add.l #40,d0 move.w d0,bplD2+2 swap d0 move.w d0,bphD2+2 swap d0 add.l #40,d0 move.w d0,bpld3+2 swap d0 move.w d0,bphD3+2 move.l MScreen,d0 ; Menu screen move.w d0,bplm1+2 move.w d0,bplm2+2 swap d0 move.w d0,bphm1+2 move.w d0,bphm2+2 move.l SScreen1,d0 ; Scroller screen move.w d0,bplS1+2 swap d0 move.w d0,bphS1+2 add.l #40*3,MScreen ; Set-up for menu move.l MScreen,Mscreen2 add.l #40*64,Mscreen2 add.l #46,SScreen1 ; Set-up for scroller add.l #44,SScreen2 ; Set-up for scroller add.l #86,SScreen3 ; Set-up for scroller ************************ * SET-UP VBL INTERRUPT * - Naughty routine! ************************ move.l $6c,Oldint+2 ; Save old interrupt move.l #NewInt,$6c ; Insert mine ***************************************************************************** ; Set-Up DMA ***************************************************************************** DMA .Wait1 btst #0,vposr(a5) ; Wait VBL bne .Wait1 .Wait2 cmpi.b #55,vhposr(a5) bne .Wait2 move.w #$8400,dmacon(a5) ; Blitter nasty move.l #Copperlist,cop1lch(a5) ; Insert new copper list move.w #$0,copjmp1(a5) ; Run that copper list jsr mt_init ***************************************************************************** ; Main Branching Routine ***************************************************************************** WaitVBL1 cmpi.b #$ff,vhposr(a5) ; Wait VBL bne WaitVBL1 ; move.w #$fff,$180(a5) ; Raster measure bsr DoubleBuffer bsr ScrollText ; Move the Scroll Text bsr MoveCopper ; Move the copper bar cmpi.b #$ff,d0 ; Load file? beq Loader ; Load the file bsr Wipeballs ; Wipe the balls bsr Rotate ; Rotate the cords bsr BlitBalls ; Blit the balls bsr NewObject ; Need a new object? bsr LFadeInOut ; Fade the logos in & out ; move.w #$000,$180(a5) ; Raster measure WaitVBL2 cmpi.b #$ff,vhposr(a5) ; Wait VBL bne WaitVBL2 ; move.w #$fff,$180(a5) ; Raster measure bsr ScrollText ; Move the Scroll Text bsr MoveCopper ; Update the copper bar cmpi.b #$ff,d0 ; Load file? beq Loader ; Load the file bsr ChangeMenu1 ; Change the menu (2nd half) ; move.w #$000,$180(a5) ; Raster measure WaitVBL3 cmpi.b #$ff,vhposr(a5) ; Wait VBL bne WaitVBL3 ; move.w #$fff,$180(a5) ; Raster measure bsr ScrollText ; Move the Scroll Text bsr ChangeMenu2 ; Change the menu (2nd half) bsr MoveCopper ; Update the copper bar cmpi.b #$ff,d0 ; Load file? beq Loader ; Load the file ; move.w #$000,$180(a5) ; Raster measure btst #7,$bfe001 ; Test fire button beq CleanUp ; Exit if pressed (development!) bra WaitVBL1 ; Forever & ever! ; Clean-up and exit CleanUp jsr mt_end ; End d music move.l Oldint+2,$6c ; Restore sys interrupt move.w #$0400,dmacon(a5) ; Blitter nice move.l gfxbase,a1 ; A1=Address of gfx lib move.l 38(a1),cop1lch(a5) ; Load sys copper list move.w #$0,copjmp1(a5) ; Run sys copper list move.l 4,a6 ; Exec base move.l #19*46,d0 ; D0=Number of bytes to free move.l VSScreen,a1 ; A1=Address to free jsr -210(a6) ; Free it move.l 4,a6 ; Exec base move.l #161*40,d0 ; D0=Number of bytes to free move.l VMScreen,a1 ; A1=Address to free jsr -210(a6) ; Free it move.l 4,a6 ; Exec base move.l #161*40*3,d0 ; D0=Number of bytes to free move.l LScreen,a1 ; A1=Address to free jsr -210(a6) ; Free the memory move.l 4,a6 ; Exec base move.l #161*40*3,d0 ; D0=Number of bytes move.l DScreen,a1 ; A1=Address to free jsr -210(a6) ; Free the memory jsr -138(a6) ; Permit multi-tasking move.l 4,a6 move.l dosbase,a1 jsr -414(a6) ; Close dos move.l gfxbase,a1 jsr -414(a6) ; Close gfx moveq.l #0,d0 ; Keep CLI happy rts ; Byeeeeee ****************************************************************************** ; This Is The Cold Reset Code Recommended By Commodore Amiga ****************************************************************************** ; Oh dear! Wot the fuck went wrong? Lets reset & try again! ; Magic Reset Code from the Amiga Hardware Reference Manual error move.l 4,a6 ; Exec base lea MagicResetCode(pc),a5 ; Location of code to trap to jsr -30(a6) ; Supervisor mode cnop 0,4 ; Long word align MagicResetCode lea 2,a0 ; Point to JMP instruction at ; start of ROM RESET ; All RAM goes away NOW! jmp (a0) ; Rely on prefetch to execute ; this instruction ***************************************************************************** ; This Is The Loader Routine ***************************************************************************** Loader ; First clean-up my mess! jsr mt_end ; End d music move.l Oldint+2,$6c ; Restore sys interrupt move.w #$0400,dmacon(a5) ; Blitter nice move.l gfxbase,a1 ; A1=Address of gfx lib move.l 38(a1),cop1lch(a5) ; Load sys copper list move.w #$0,copjmp1(a5) ; Run sys copper list move.l 4,a6 ; Exec base move.l #19*46,d0 ; D0=Number of bytes to free move.l VSScreen,a1 ; A1=Address to free jsr -210(a6) ; Free it move.l 4,a6 ; Exec base move.l #161*40,d0 ; D0=Number of bytes to free move.l VMScreen,a1 ; A1=Address to free jsr -210(a6) ; Free it move.l 4,a6 ; Exec base move.l #161*40*3,d0 ; D0=Number of bytes to free move.l LScreen,a1 ; A1=Address to free jsr -210(a6) ; Free the memory move.l 4,a6 ; Exec base move.l #161*40*3,d0 ; D0=Number of bytes move.l DScreen,a1 ; A1=Address to free jsr -210(a6) ; Free the memory jsr -138(a6) ; Permit multi-tasking ; Now open us a window! move.l dosbase,a6 ; A6=Ptr to dos lib move.l #1005,d0 ; D0=Access mode move.l d0,d2 ; D2=Access mode lea Conname,a1 ; A1=Ptr to console move.l a1,d1 ; D1=Console address jsr -30(a6) ; Open the window move.l d0,conhdle ; Store con handle move.l FilePtr,d1 ; D1=Ptr to file moveq.l #0,d2 ; No input move.l Conhdle,d3 ; Console handle jsr -222(a6) ; Run the program move.l Conhdle,d1 jsr -36(a6) ; Close the window move.l 4,a6 ; Exec base jsr -132(a6) ; Forbid Multi-tasking jmp StartUp ; and start again! ********************* * The VBL Interrupt * ********************* NewInt movem.l a0-a6/d0-d7,-(sp) jsr mt_music ; Play the music bsr MoveStars ; Move the stars movem.l (sp)+,a0-a6/d0-d7 OldInt jmp $0 ; Perform sys interrupt ***************************************************************************** ; This Routine Fades The Logos In/Out ***************************************************************************** ; Decrement delay & fade/alter bpls LFadeInOut subq.w #1,LDelay ; Decrement delay beq LogoScreen ; Need a change? cmpi.w #17,LDelay ; A long way togo? bgt .Yeah cmpi.w #0,LDelay ; Need to change screen? move.w LDelay,d0 ; D0=LDelay value cmpi.w #-1,d0 bgt .Fade ; Fade the logo neg d0 ; Make d0 positive cmpi.w #17,d0 ; Fully faded in? bne .Fade move.w #50*4,LDelay ; Insert new fade value .Fade moveq.l #14,d7 ; D7=Number of cols-1 lea LCols,a0 ; A0=ptr to cols for fade lea LCCols+6,a1 ; A1=ptr to cols in copper subq.w #1,d0 ; Decerement delay value .Loop moveq.l #0,d1 ; Clear D1 moveq.l #0,d2 ; Clear D2 move.b (a0)+,d1 ; D1=Red component mulu d0,d1 ; Multiply by colour stage lsr.w #4,d1 ; Divide by 16 move.b d1,(a1)+ ; Insert new red component move.b (a0),d1 ; D1=Green,Blue component lsr.b #4,d1 ; Put Green in 4 LSB mulu d0,d1 ; Multiply by colour stage and.b #$f0,d1 ; Mask out crap move.b (a0)+,d2 ; D2=Green,Blue component and.b #$f,d2 ; Mask out Green component mulu d0,d2 ; Multiply by colour stage lsr.w #4,d2 ; Divide by 16 or.w d2,d1 ; OR blue with green move.b d1,(a1)+ ; Insert GREEN BLUE addq.l #2,a1 ; Get to next colour in copper dbra d7,.Loop .Yeah rts ; Set-up the logo screen LogoScreen move.l Logobak,d0 ; D0=Ptr to next logo move.l LogoPtr,d1 ; D1=Ptr to current Logo move.l d0,LogoPtr ; Swap ptrs move.l d1,Logobak move.w d0,bpl1L+2 swap d0 move.w d0,bph1L+2 swap d0 add.l #79*40,d0 move.w d0,bpl2L+2 swap d0 move.w d0,bph2L+2 swap d0 add.l #79*40,d0 move.w d0,bpl3L+2 swap d0 move.w d0,bph3L+2 swap d0 add.l #79*40,d0 move.w d0,bpl4L+2 swap d0 move.w d0,bph4L+2 rts ***************************************************************************** ; The Scroll Text Routine ***************************************************************************** ScrollText cmpi.w #0,Pause ; Need a pause? beq .No sub.w #1,Pause ; Decrement pause rts .No cmpi.b #0,PlopC ; Need a new character? bne Scroller move.l STextP,a0 ; A0=Character to blit .Check cmpi.b #'x',(a0) ; Termination character? bne .Nope lea Text,a0 .Nope cmpi.b #$0a,(a0) ; Character Return? bne .Nope1 addq.l #1,a0 ; Incrmement a0 bra .Check .Nope1 cmpi.b #'p',(a0) ; Pause code? bne .Nope2 addq.l #1,a0 ; Increment a0 move.w #50*5,Pause ; Save pause value move.l a0,STextP ; Save text pointer rts .Nope2 moveq.l #0,d0 ; Clear d0 move.b (a0)+,d0 ; D0=Character to blit move.l a0,STextP ; Save text ptr sub.b #32,d0 ; convert add.l d0,d0 ; Double D0 value lea Font2,a0 ; A0=Address of font add.w d0,a0 ; Add offset .Wait btst #14,dmaconr(a5) ; Test blitter bne .Wait move.l a0,bltapth(a5) ; A=character move.l SScreen3,bltdpth(a5) ; D=Screen move.w #118-2,bltamod(a5) ; 116 A modulo move.w #46-2,bltdmod(a5) ; 44 D modulo move.w #$ffff,bltafwm(a5) ; No mask move.w #$ffff,bltalwm(a5) ; No mask move.w #%100111110000,bltcon0(a5) ; A-D blit move.w #$0,bltcon1(a5) ; clear move.w #(15*64)+1,bltsize(a5) ; 15*16 move.b #8,PlopC ; Reset plop counter Scroller btst #14,dmaconr(a5) ; Wait blitter bne Scroller move.l SScreen1,bltapth(a5) ; A Source=Scroller move.l SScreen2,bltdpth(a5) ; D Source=Scroller-2 move.w #0,bltamod(a5) ; No modulos move.w #0,bltdmod(a5) move.w #$ffff,bltafwm(a5) ; No mask move.w #$ffff,bltalwm(a5) ; No mask move.w #%1110100111110000,bltcon0(a5) ; A-D blit 14 shift move.w #$0,bltcon1(a5) ; Clear move.w #(15*64)+23,bltsize(a5) ; 368*16 subq.b #1,PlopC ; Decrement plop counter rts ***************************************************************************** ; This Routine Moves The Copper Bar And Tests For A Mouse But Press ***************************************************************************** MoveCopper move.w joy0dat(a5),d0 ; D0=Vert/Horiz lsr.w #8,d0 ; Put horiz in Low Byte move.b d0,d1 ; D1=Copy of Vert count sub.b OldV,d0 ; Subtract old vertical count move.b d0,d2 ; D2=Copy of d0 asr.b #4,d0 ; Lets make it less sensitive! neg.b d2 ; Make D2 positive asr.b #4,d2 ; Lets make it less sensitive! tst.b d0 ; Wor woz it? beq TestButs bgt Down tst.b d2 ; Try down bne Up ; If result is negative move bar up bra TestButs Down move.b d1,OldV ; Save this vertical count lea Bar,a0 ; A0=Pointer to the bar structure cmpi.b #$f4,(a0) ; Already at bottom? beq TestButs moveq.l #8,d0 ; D0=Initial increment Downy1 moveq.l #0,d1 ; Clear D1 move.b (a0),d1 ; D1=Vert bar value add.l d0,d1 ; Increment value cmpi.b #$fc,d1 ; Reached bottom? beq TestButs ; Ok, sod it! sub.l #$7c,d1 ; Convert Vert position lsr.l #3,d1 ; Divide by 8 mulu #40,d1 ; Multiply by number of chars per line moveq.l #0,d2 ; Dlear D2 move.b MenuC,d2 ; D2=Menu number mulu #16*40,d2 add.l d1,d2 lea Menu0Text,a1 ; A1=Ptr to menu add.w d2,a1 ; Add offset moveq.l #39,d7 ; Counter .Loop cmpi.b #32,(a1)+ ; Space? bne downy2 ; Exit if not dbra d7,.Loop addq.l #8,d0 move.b (a0),d6 ; D6=Next vert value add.l d0,d6 bra Downy1 Downy2 add.b d0,(a0) ; Increment all 8 waits add.b d0,8(a0) add.b d0,16(a0) add.b d0,24(a0) add.b d0,32(a0) add.b d0,40(a0) bra TestButs ; The Up routine Up move.b d1,OldV ; Save this vertical count lea Bar,a0 ; A0=Ptr to bar structure cmpi.b #$7c,(a0) ; Already at top? beq TestButs moveq.l #8,d0 ; D0=Initial increment Upy1 moveq.l #0,d1 ; Clear D1 move.b (a0),d1 ; D1=Vert bar value sub.l d0,d1 ; Decrement value cmpi.b #$74,d1 ; Reached top? beq TestButs ; Ok, sod it! sub.l #$7c,d1 ; Convert Vert position lsr.l #3,d1 ; Divide by 8 mulu #40,d1 ; Multiply by number of chars per line moveq.l #0,d2 ; Dlear D2 move.b MenuC,d2 ; D2=Menu number mulu #16*40,d2 add.l d1,d2 lea Menu0Text,a1 ; A1=Ptr to menu add.w d2,a1 ; Add offset moveq.l #39,d7 ; Counter .Loop cmpi.b #32,(a1)+ ; Space? bne Upy2 ; Exit if not dbra d7,.Loop addq.l #8,d0 move.b (a0),d6 ; D6=Next vert value sub.l d0,d6 bra Upy1 Upy2 sub.b d0,(a0) ; Increment all 8 waits sub.b d0,8(a0) sub.b d0,16(a0) sub.b d0,24(a0) sub.b d0,32(a0) sub.b d0,40(a0) ; Now test for the mouse buttons TestButs btst #$a,potgor(a5) ; RMB pressed? bne TestLeft move.l #Menu0Text,TextP ; Text ptr=menu 1 move.b #1,MenuF ; Display new menu move.b #0,MenuC ; Where displaying menu 1 moveq.l #0,d0 ; Clear D0 rts TestLeft btst #6,$bfe001 ; Test left mouse button bne .Release? move.b #$ff,LMB ; Store press code moveq.l #0,d0 ; Clear D0 rts ; Exit .Release? and.b #$ff,LMB ; Mask out numbers bne .Ok ; Exit if not set moveq.l #0,d0 ; Clear D0 rts .Ok move.b #0,LMB ; Clear cmpi.b #0,MenuC ; Are we on menu page? beq NewMenu ; If so set-up new menu ; This Routine Finds The File To Load LoadFile moveq.l #0,d0 ; Clear d0 move.b bar,d0 ; D0=Vertical wait value of bar sub.b #$74,d0 ; Convert number into multiple fo eight lsr.l #3,d0 ; Convert into file number (1-16) subq.l #1,d0 moveq.l #0,d1 ; Clear d1 move.b MenuC,d1 ; D1=Menu number subq.l #1,d1 lsl.l #4,d1 ; Multiply by 16 (16 files per menu) add.l d0,d1 ; D1=Offset to file lsl.l #2,d1 ; Multiply by 4 (ptrs are long words) lea FileStart,a4 ; A4=Ptr to file ptrs add.w d1,a4 ; Add the offset move.l (a4),a4 ; A4=Pointer to file name cmpi.b #$0,(a4) ; File disabled? bne .Ok moveq.b #0,d0 ; Clear D0 rts ; File is disabled .Ok move.l a4,FilePtr ; Save pointer to file move.b #$ff,d0 ; Set LOAD flag rts ; Exit ; This Routine Sets-up a new menu NewMenu moveq.l #0,d0 ; Clear d0 move.b bar,d0 ; D0=Copper bar vertical wait sub.b #$74,d0 ; Convert number into multiple of 8 lsr.l #3,d0 ; Convert into menu number (ie 1-16) move.l MenuSet,d1 ; D1=Menu statuss' btst.l d0,d1 ; Is this menu set? bne .Ok ; Hey, no probs moveq.l #0,d0 ; Clear D0 rts ; OI This menu aint set, LAMER! .Ok move.b d0,MenuC ; MenuC=Menu number to view mulu #16*40,d0 ; Find offset from menu start lea Menu0Text,a0 ; A0=Start address of all menu text add.w d0,a0 ; A0=Ptr to menu text move.l a0,TextP ; TextP=pointer to text move.b #1,MenuF ; Signal that menu is to be updated moveq.l #0,d0 ; Clear D0 rts ; Ext ***************************************************************************** ; This Routine Moves The New Menus In And Out ***************************************************************************** ; For a 40 character per line menu the menu must be built in two halves or ; else the routine is too slow! ChangeMenu1 cmpi.b #0,MenuF ; Do we need a change? bne .Yep rts .Yep move.l TextP,a0 ; A0=Ptr to text move.l MScreen,a2 ; A2=Ptr to screen moveq.l #0,d6 ; Clear line counter move.l #(20*16)-1,d7 ; D7=Number of characters to print .MainLoop moveq.l #0,d0 ; Clear d0 move.b (a0)+,d0 ; D0=Character to print sub.b #32,d0 ; Convert move.l a2,a3 ; A3=Backup ptr to screen lea font,a1 ; A1=Ptr to font add.w d0,a1 ; Get to offset for character moveq.l #4,d1 ; D1=Number of lines per character-1 .Loop move.b (a1),(a3) ; move character into screen add.w #68,a1 ; Get to next line of font add.w #40,a3 ; Get to next line of screen dbra d1,.Loop ; Display all 5 lines of character addq.w #1,a2 ; Point to next pos to display char addq.l #1,d6 ; Increment line counter cmpi.b #40,d6 ; New line? bne .Nope moveq.l #0,d6 ; Clear line counter add.l #7*40,a2 ; Point to next line .Nope dbra d7,.MainLoop ; Display whole menu move.l a0,TextP ; Save text pointer rts ChangeMenu2 cmpi.b #0,MenuF ; Do we need a change? bne .Yep rts .Yep move.b #0,MenuF ; Clear menu flag move.l TextP,a0 ; A0=Ptr to text move.l MScreen2,a2 ; A2=Ptr to screen moveq.l #0,d6 ; Clear line counter move.l #(20*16)-1,d7 ; D7=Number of characters to print .MainLoop moveq.l #0,d0 ; Clear d0 move.b (a0)+,d0 ; D0=Character to print sub.b #32,d0 ; Convert move.l a2,a3 ; A3=Backup ptr to screen lea font,a1 ; A1=Ptr to font add.w d0,a1 ; Get to offset for character moveq.l #4,d1 ; D1=Number of lines per character-1 .Loop move.b (a1),(a3) ; move character into screen add.w #68,a1 ; Get to next line of font add.w #40,a3 ; Get to next line of screen dbra d1,.Loop ; Display all 5 lines of character addq.w #1,a2 ; Point to next pos to display char addq.l #1,d6 ; Increment line counter cmpi.b #40,d6 ; New line? bne .Nope moveq.l #0,d6 ; Clear line counter add.l #7*40,a2 ; Point to next line .Nope dbra d7,.MainLoop ; Display whole menu rts ***************************************************************************** ; New Objects -Changes object & fades in & out ***************************************************************************** NewObject subi.w #1,VDelay ; Decrement the delay cmpi.w #0,VDelay ; Need new object? beq Change ; Branch if yes blt Fade ; Fade in the colours cmpi.w #17,VDelay ; Fade out colours? blt Fade ; Fade out colours Decre cmpi.w #-17,VDelay ; Faded in? bne .Exit move.w #5*50,VDelay ; Reset delay .Exit rts ; Exit ; Change the object Change move.l ObjectP,a0 ; A0=Pointer to objects cmpi.l #-1,(a0) ; No object bne .Ok lea Objects,a0 ; Reset objects pointer .Ok move.l (a0)+,StructP ; Insert new object ptr move.l a0,ObjectP ; Save current object pointer rts ; exit ; The fade routine Fade move.l StructP,a0 sub.w #4,a0 ; Get pointer to colour move.l (a0),a0 ; A0=Ptr to colours lea VCols+2,a1 ; A1=Ptr to copper moveq.l #6,d0 ; D0=Number of colours moveq.l #0,d1 ; Clear D1 move.w VDelay,d1 ; D1=VDelay btst #15,d1 ; Is the number negative? beq .Ok neg.w d1 ; Make D1 positive .Ok sub.w #1,d1 ; Turn into stage value .Loop moveq.l #0,d2 ; Clear D2 moveq.l #0,d3 ; Clear D3 move.b (a0)+,d2 ; D2=Red value mulu d1,d2 ; Multiply by stage value lsr.l #4,d2 ; Divide by 16 move.b d2,(a1)+ ; Insert colour into copper move.b (a0),d3 ; D3=Green value lsr.b #4,d3 ; Put green value in low 4 bits mulu d1,d3 ; Multiply by stage value move.b (a0)+,d2 ; D2=Blut value and.w #$f,d2 ; Mask out green value mulu d1,d2 ; Multiply by stage value lsr.l #4,d2 ; Divide by 16 and.w #$f0,d3 ; Mask out crap (keep green) or.b d3,d2 ; Or in green value move.b d2,(a1) ; Insert value into copper addq.w #3,a1 ; Point to next value dbra d0,.Loop bra Decre ***************************************************************************** ; This Routine Rotates The Vector Bobs ***************************************************************************** Rotate move.l StructP,a0 ; A0=Pointer to structure lea NewPoints,a1 ; A1=Pointer to new structure space lea Angles,a2 ; A2=Ptr to angles of rotation lea SineTable,a3 ; A3=Ptr to sine table move.l #25,d0 ; D0=Number of balls to rotate ; D1=a D2=b D3=a D4=b D6=sin D7=cos ; First find X1 Y1 RotLoop move.w (a0),d1 ; D1=X move.w 2(a0),d2 ; D2=Y move.w d1,d3 ; D3=X move.w d2,d4 ; D4=Y move.w (a2),d6 ; D6=Z angle of rotation move.w d6,d7 ; D7=Z angle of rotation add.w #90,d7 ; Add 90 for cos cmpi.w #360,d7 ; Exceeded 360 range? blt .Nope sub.w #360,d7 ; Bring back into 360 range .Nope add.l d6,d6 ; Sine table in words add.l d7,d7 ; Sine table in words move.w (a3,d6),d6 ; D6=Sine value move.w (a3,d7),d7 ; D7=cos value muls d7,d1 ; D1=X.cos(0) muls d6,d2 ; D2=Y.sin(0) sub.l d2,d1 ; D1=X.cos(0) - Y.sin(0) asr.l #7,d1 asr.l #7,d1 ; D1=X1 muls d7,d4 ; D4=Y.cos(0) muls d6,d3 ; D3=X.sin(0) add.l d4,d3 ; D3=Y.cos(0) + X.sin(0) asr.l #7,d3 asr.l #7,d3 ; D3=Y1 move.w d3,2(a1) ; Save Y1 FindX2Z1 ; Find X2 Z1 move.w 4(a0),d2 ; D2=Z move.w d1,d3 ; D3=X1 move.w d2,d4 ; D4=Z move.w 2(a2),d6 ; D6=Y angle of rotation move.w d6,d7 ; D7=Y angle of rotation add.w #90,d7 ; Add 90 for cos cmpi.w #360,d7 ; Exceeded 360 range? blt .Nope sub.w #360,d7 ; Bring back into 360 range .Nope add.l d6,d6 ; Sine table in words add.l d7,d7 ; Sine table in words move.w (a3,d6),d6 ; D6=Sine value move.w (a3,d7),d7 ; D7=cos value muls d7,d1 ; D1=X1.cos(0) muls d6,d2 ; D2=Z.sin(0) sub.l d2,d1 ; D1=X1.cos(0) - Z.sin(0) asr.l #7,d1 asr.l #7,d1 ; D1=X2 muls d7,d4 ; D4=Z.cos(0) muls d6,d3 ; D3=X1.sin(0) add.l d4,d3 ; D3=Z.cos(0) + X1.sin(0) asr.l #7,d3 asr.l #7,d3 ; D3=Z1 move.w d1,(a1) ; Save X2 FindZ2Y2 ; Find Y2 Z2 move.w 2(a1),d2 ; D2=Y1 move.w d3,d1 ; D1=Z1 move.w d2,d4 ; D4=Y1 move.w 4(a2),d6 ; D6=X angle of rotation move.w d6,d7 ; D7=X angle of rotation add.w #90,d7 ; Add 90 for cos cmpi.w #360,d7 ; Exceeded 360 range? blt .Nope sub.w #360,d7 ; Bring back into 360 range .Nope add.l d6,d6 ; Sine table in words add.l d7,d7 ; Sine table in words move.w (a3,d6),d6 ; D6=Sine value move.w (a3,d7),d7 ; D7=cos value muls d7,d1 ; D1=Z1.cos(0) muls d6,d2 ; D2=Y1.sin(0) sub.l d2,d1 ; D1=Z1.cos(0) - Y1.sin(0) asr.l #7,d1 asr.l #7,d1 ; D1=Z2 muls d7,d4 ; D4=Y1.cos(0) muls d6,d3 ; D3=Z1.sin(0) add.l d4,d3 ; D3=Z1.cos(0) + Y1.sin(0) asr.l #7,d3 asr.l #7,d3 ; D3=Y2 move.w d1,4(a1) ; Save Z2 move.w d3,2(a1) ; Save Y2 addq.w #8,a0 ; Get to next ball point addq.w #8,a1 ; Get to next ball point dbra d0,RotLoop ; Rotate all balls addq.w #2,(a2) ; Increment Z angle by 1 cmpi.w #360,(a2) ; Still in 360 range? blt .DoY sub.w #360,(a2) ; Bring back into 360 range .DoY addq.w #4,2(a2) ; Increment Y angle by 3 cmpi.w #360,2(a2) ; Still in 360 range? blt .DoX sub.w #360,2(a2) ; Bring back into 360 range .DoX addq.w #3,4(a2) ; Increment X angle by 2 cmpi.w #360,4(a2) ; Still in 360 range? blt SortBalls sub.w #360,4(a2) ; Bring back into 360 range ********* SortBalls ********* ; *NB Sort routine coded by Treebeard of ALLIANCE!!! lea NewPoints,a0 move.l #25,d7 subq.l #1,d7 ; On 1st sort, look at (no. of points-1) after 1st, ; -1 for dbra Sort1 move.l d7,d6 ; Keep d7 the same, use d6 instead move.l a0,a1 ; Ditto a0 and a1 addq.l #8,a1 ; Start searching in entry after current one sub.l a2,a2 ; No smaller value found so far move.w 4(a0),d0 ; d0=value to compare each entry with .loop cmp.w 4(a1),d0 ; Is this entry