; TODOs: ; - Some sprite effect? (boxes around appearing things?) ; - Sprite overlays ; ; Framework settings IFD FW_DEMO_PART IFD FW_HD_DEMO_PART include "hdtrackmo_settings.i" ELSE include "trackmo_settings.i" ENDC ELSE FW_STANDALONE_FILE_MODE = 1 ; enable standalone (part testing) FW_HD_TRACKMO_MODE = 0 ; DO NOT CHANGE (not supported for standalone mode) FW_MUSIC_SUPPORT = 1 FW_MUSIC_PLAYER_CHOICE = 2 ; 0 = None, 1 = LSP, 2 = LSP_CIA, 3 = P61A, 4 = Pretracker (CPU DMA wait), 5 = Pretracker Turbo (Copper wait) FW_LMB_EXIT_SUPPORT = 1 ; allows abortion of intro with LMB FW_MULTIPART_SUPPORT = 0 ; DO NOT CHANGE (not supported for standalone mode) FW_DYNAMIC_MEMORY_SUPPORT = 1 ; enable dynamic memory allocation. Otherwise, use fw_ChipMemStack/End etc fields. FW_MAX_MEMORY_STATES = 4 ; the amount of memory states FW_TOP_BOTTOM_MEM_SECTIONS = 0 ; allow allocations from both sides of the memory FW_64KB_PAGE_MEMORY_SUPPORT = 0 ; allow allocation of chip memory that doesn't cross the 64 KB page boundary FW_MULTITASKING_SUPPORT = 1 ; enable multitasking FW_ROUNDROBIN_MT_SUPPORT = 0 ; enable fair scheduling among tasks with same priority FW_BLITTERTASK_MT_SUPPORT = 0 ; enable single parallel task during large blits FW_MAX_VPOS_FOR_BG_TASK = 308 ; max vpos that is considered to be worth switching to a background task, if any FW_SINETABLE_SUPPORT = 1 ; enable creation of 1024 entries sin/cos table FW_SCRIPTING_SUPPORT = 1 ; enable simple timed scripting functions FW_PALETTE_LERP_SUPPORT = 1 ; enable basic palette fading functions FW_YIELD_FROM_MAIN_TOO = 0 ; adds additional code that copes with Yield being called from main code instead of task FW_VBL_IRQ_SUPPORT = 0 ; enable custom VBL IRQ routine FW_COPPER_IRQ_SUPPORT = 0 ; enable copper IRQ routine support FW_AUDIO_IRQ_SUPPORT = 0 ; enable audio IRQ support (unimplemented) FW_VBL_MUSIC_IRQ = 0 ; enable calling of VBL based music ticking (disable, if using CIA timing!) FW_BLITTERQUEUE_SUPPORT = 1 ; enable blitter queue support FW_A5_A6_UNTOUCHED = 1 ; speed up blitter queue if registers a5/a6 are never changed in main code FW_LZ4_SUPPORT = 0 ; compile in LZ4 decruncher FW_DOYNAX_SUPPORT = 0 ; compile in doynax decruncher FW_ZX0_SUPPORT = 0 ; compile in ZX0 decruncher FW_DO_FANCY_WORKBENCH_STUFF = 0 ; enable pre- and post-hook (os startup only) ENABLE_PART_MUSIC = 1 PART_MUSIC_START_POS = 11 ENDC BLENDIMG_WIDTH = 320 BLENDIMG_HEIGHT = 180 BLENDIMG_PLANES = 6 BLENDVIEW_WIDTH = 320 BLENDVIEW_HEIGHT = 180 BLENDVIEW_PLANES = 6 ENDLOGO_WIDTH = 320 ENDLOGO_HEIGHT = 180 ENDLOGO_PLANES = 6 PART_WIDTH = 32 PART_HEIGHT = 30 BLOCKS_WIDTH = (BLENDVIEW_WIDTH/PART_WIDTH) BLOCKS_HEIGHT = (BLENDVIEW_HEIGHT/PART_HEIGHT) NUM_BARS = (BLENDVIEW_WIDTH/16) MIN_CIRCLE_SIZE = 3 MAX_CIRCLE_SIZE = 50 CIRCLE_MASKS_SIZE = 10514 CIRCLE_SPEEDCODE_SIZE = 62784 NUM_CIRCLE_POTS = 6 COP_PREAMBLE_INST = 16 ; bplptrs COP_POST_INST = 16 ; wait COP_INST_PER_INTRO_LINE = 28 COP_INST_PER_BARS_LINE = 22 ; wait, 20 colors, nop COP_INST_PER_HOLE_LINE = 11 ; wait, color 8, wait, color 1,2,3,4,5,6,7,8 COP_INST_PER_LINE = 28 ; color 1,2,3,4,5,6,7 wait, 20*(line 8 color) COP_LIST_SIZE = (COP_PREAMBLE_INST+COP_INST_PER_LINE*BLENDVIEW_HEIGHT+COP_POST_INST)*4 CHIPMEM_SIZE = COP_LIST_SIZE*2+3*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT*BLENDVIEW_PLANES+BLENDVIEW_HEIGHT*4*8+CIRCLE_MASKS_SIZE+4 FASTMEM_SIZE = BLENDIMG_WIDTH*BLENDIMG_HEIGHT*2*3+CIRCLE_SPEEDCODE_SIZE IFND DEBUG_DETAIL DEBUG_DETAIL SET 10 ENDC NEWAGE_DEBUG = 1 include "framework.i" ; Chip memory use: ; - CHIP DATA: 320 x 180 x 6 x 1 = 43200 (original images) ; ; - CHIP BSS : 320 x 180 x 6 x 1 = 43200 (loaded image) ; - CHIP BSS : 320 x 180 x 6 x 2 = 86400 (db buffers) ; - CHIP BSS : 320 x 180 x 1 x 2 = 14400 (empty and filled, used during circle precalc) ; - CHIP BSS : 32 x 30 x 5 x 5 = 3600 (block target p1-p4 & p5|p6) ; - CHIP BSS : 4 x 180 x x 8 = 5760 (line-fix array) ; - CHIP BSS : 48 = 10488 (circle masks) ; - CHIP BSS : 8 x 180 x 2 = 11520 (copperlists) ; ; - CHIP BSS : 20 x 180 x 2 x 2 = 14400 (truecolor 16, recycled from above) ; - CHIP BSS : 2 x 180 x 4 = 1440 (sine clip positions, db) ; - CHIP BSS : 4 x 181 x 4 = 2896 (smc buffers) ; ; Total: 207 KB ; ; Fast memory use: ; - FAST BSS : 320 x 180 x 2 = 230400 (True color buffer) ; - FAST BSS : 320 x 180 x 1 = 115200 (True color buffer) ; - FAST BSS : 4096 x 2 x 2 = 16384 (Shading tables, recycled) ; - FAST BSS : = 61632 (Circle speedcode) ; - FAST BSS : 2000 = 2000 (Blitterqueues) ; ; Mem Free: Chip: 89 of 498 KB (236/0 KB) | Fast: 106 of 445 KB (329/2 KB) ; Mem Free: Chip: 59 of 498 KB (266/0 KB) | Fast: 9 of 445 KB (426/2 KB) STRUCTURE CirclePot,0 UWORD cp_Radius WORD cp_CenterPosX WORD cp_CenterPosY UWORD cp_LastRadius ULONG cp_LastPosOffset UWORD cp_LastLastRadius ULONG cp_LastLastPosOffset UWORD cp_LRIAreaY UWORD cp_TimeLeft UWORD cp_RadPos UWORD cp_Pair LABEL cp_RelPosXLong UWORD cp_RelPosSinXSpeed UWORD cp_RelPosSinYSpeed LABEL cp_RelPosYLong UWORD cp_RelPosSinXOffset UWORD cp_RelPosSinYOffset LABEL cp_RelPosXInc UWORD cp_RelPosXRadius LABEL cp_RelPosYInc UWORD cp_RelPosYRadius UWORD cp_RelPosXCenter UWORD cp_RelPosYCenter UWORD cp_GreetingTimeRev UWORD cp_LineFixTopYOffset ULONG cp_PosOffset LONG cp_PosTCOffset LONG cp_InvertedOffset WORD cp_FgRelPosX WORD cp_FgRelPosY ULONG cp_FgOffset UWORD cp_CircleShift LONG cp_FgTCOffset APTR cp_CircleInfo APTR cp_BgImage APTR cp_BgTCImage APTR cp_FgImage APTR cp_FgTCImage APTR cp_CircleFixupRoutine APTR cp_PaintRoutine APTR cp_PotScriptPtr APTR cp_FrameRoutine LABEL cp_SIZEOF STRUCTURE CircleInfo,0 UWORD ci_LRIAreaY UWORD ci_TopWidth UWORD ci_TopHeight UWORD ci_TopXOffset UWORD ci_LeftWidth UWORD ci_LeftXOffset UWORD ci_RightWidth UWORD ci_RightXOffset UWORD ci_InnerBltSize UWORD ci_InnerXOffset UWORD ci_InnerBltMod ; this is generated runtime UWORD ci_InnerBgOffset WORD ci_InnerFgOffset UWORD ci_TopBgOffset WORD ci_TopFgOffset UWORD ci_TopBottomOffsetAdv UWORD ci_LeftBgOffset WORD ci_LeftFgOffset UWORD ci_RightBgOffset WORD ci_RightFgOffset UWORD ci_TopBottomMaskSize UWORD ci_TopBottomBltSize UWORD ci_LeftBltSize UWORD ci_RightBltSize APTR ci_TopMask APTR ci_LeftMask APTR ci_RightMask APTR ci_LeftDotSetCode APTR ci_LeftDotClearCode APTR ci_RightDotSetCode APTR ci_RightDotClearCode APTR ci_LeftTCCode APTR ci_RightTCCode LABEL ci_SIZEOF STRUCTURE BarData,0 WORD bd_Delay WORD bd_EndPosCount WORD bd_BarPos UWORD bd_BarPosFract WORD bd_BarSpeed UWORD bd_BarSpeedFract UWORD bd_LastLastLastBottomPos UWORD bd_LastLastBottomPos UWORD bd_LastBottomPos LABEL bd_SIZEOF STRUCTURE PartBlockInfo,0 WORD pbi_Phase UWORD pbi_YPos APTR pbi_OriginalImage APTR pbi_TrueColorImage APTR pbi_LastTrueColorImage ULONG pbi_ScreenOffset APTR pbi_SourceImgPtr UWORD pbi_Copper7Offset UWORD pbi_CopperEdgeOffset APTR pbi_TempBuffer APTR pbi_PalChangeRoutine APTR pbi_PalApplyRoutine APTR pbi_PhaseSequence APTR pbi_SequencePtr STRUCT pbi_CurrentColors,(7+PART_HEIGHT)*2 STRUCT pbi_TargetColors,(7+PART_HEIGHT)*2 LABEL pbi_SIZEOF STRUCTURE PartData,fw_SIZEOF APTR pd_CurrPlanesPtr APTR pd_LastPlanesPtr APTR pd_CurrCopListPtr APTR pd_LastCopListPtr APTR pd_CurrFixupBQPtr UBYTE pd_DbToggle ALIGNWORD UWORD pd_OldFrameCount UWORD pd_FrameInc UWORD pd_TCPicsDone UWORD pd_PartCountDown UWORD pd_SequenceBlocksLeft UWORD pd_BeatRadAdd UWORD pd_GreetingCount UWORD pd_CircleShift UWORD pd_LineFixToggle UWORD pd_CopperChunkyOffset UWORD pd_CurrGreetingsPalOffset APTR pd_CopperList1 APTR pd_CopperList2 APTR pd_DbBuffer1 APTR pd_DbBuffer2 APTR pd_ClipDotsBuffer APTR pd_ClipFillBuffer APTR pd_StaticFixupBQ1 APTR pd_StaticFixupBQ2 APTR pd_OriginalImage1 APTR pd_OriginalImage2 APTR pd_OriginalImage3 APTR pd_OriginalImage4 APTR pd_OriginalImage5 APTR pd_TrueColorImage1 APTR pd_TrueColorImage2 APTR pd_TrueColorImage3 APTR pd_TrueColorImage4 APTR pd_TrueColorImage5 APTR pd_CurrGreetingsImage APTR pd_CurrGreetingsTCImage APTR pd_TrueColor16Image APTR pd_TrueColor16Image2 APTR pd_EndLogoBuffer APTR pd_EndLogoP5P6Buffer APTR pd_LineFix1Array APTR pd_LineFix2Array APTR pd_LineFix3Array APTR pd_LineFix4Array APTR pd_LineFix5Array APTR pd_LineFix6Array APTR pd_LineFix7Array APTR pd_LineFix8Array APTR pd_GreetingPosPtr APTR pd_GreetingLinePtr APTR pd_ShadeTableXor APTR pd_ShadeTableSub1 APTR pd_CircleMasksBuffer APTR pd_CircleSpeedcodeBuffer UWORD pd_AllowLoadLastImage STRUCT pd_PreparationTask,ft_SIZEOF STRUCT pd_SpeedCodeTask,ft_SIZEOF STRUCT pd_Parts,BLOCKS_HEIGHT*pbi_SIZEOF STRUCT pd_Bars,NUM_BARS*bd_SIZEOF STRUCT pd_CirclePots,NUM_CIRCLE_POTS*cp_SIZEOF STRUCT pd_MinMaxY,BLENDVIEW_HEIGHT*4 STRUCT pd_CircleInfos,(MAX_CIRCLE_SIZE-MIN_CIRCLE_SIZE+1)*4 LABEL pd_EndLogoPalette ; 16*2 STRUCT pd_StaticFixup1BQBuffer,256 STRUCT pd_StaticFixup2BQBuffer,256 STRUCT pd_BQBuffer,1500 LABEL pd_SIZEOF IFND FW_DEMO_PART include "framework.asm" ENDC entrypoint: IFD FW_DEMO_PART move.l #pd_SIZEOF,d0 CALLFW InitPart ENDC IFND FW_DEMO_PART IFD ENABLE_PART_MUSIC move.l #part_music_data,fw_MusicData(a6) move.l #part_music_smp,fw_MusicSamples(a6) CALLFW StartMusic ENDC IFD PART_MUSIC_START_POS moveq.l #PART_MUSIC_START_POS,d0 CALLFW MusicSetPosition move.w #3888,fw_MusicFrameCount(a6) ENDC ENDC bsr.s bln_init lea bln_copperlist,a0 CALLFW SetCopper IF 1 PUTMSG 10,<"%d: Waiting for first pic (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) .wait CALLFW VSyncWithTask cmp.w #1,pd_TCPicsDone(a6) blt.s .wait bsr bln_intro lea bln_prepare_circle_speedcode(pc),a0 lea pd_SpeedCodeTask(a6),a1 CALLFW AddTask PUTMSG 10,<"%d: Waiting for third pic (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) .wait2 CALLFW VSyncWithTask cmp.w #3,pd_TCPicsDone(a6) blt.s .wait2 bsr bln_bars ELSE lea bln_prepare_circle_speedcode(pc),a0 lea pd_SpeedCodeTask(a6),a1 CALLFW AddTask IFND FW_DEMO_PART IFD ENABLE_PART_MUSIC moveq.l #14,d0 CALLFW MusicSetPosition move.w #5040,fw_MusicFrameCount(a6) ENDC ENDC ENDC move.w #4,pd_AllowLoadLastImage(a6) bsr bln_holes bsr bln_greetings bsr bln_endlogo lea pd_PreparationTask(a6),a1 CALLFW RemTask lea pd_SpeedCodeTask(a6),a1 CALLFW RemTask CALLFW SetBaseCopper rts ;-------------------------------------------------------------------- bln_init: move.w #$000,color(a5) bsr bln_init_vars bsr bln_init_shade_table bsr bln_init_bars lea .backgroundtasks(pc),a0 lea pd_PreparationTask(a6),a1 move.b #5,LN_PRI(a1) CALLFW AddTask rts .backgroundtasks lea bln_leaves_tc_10,a0 move.l pd_TrueColorImage1(a6),a1 move.w #(BLENDVIEW_HEIGHT*(BLENDVIEW_WIDTH/32))-1,d7 .xyloop move.w (a0)+,(a1) lea 32*2(a1),a1 dbra d7,.xyloop addq.w #1,pd_TCPicsDone(a6) PUTMSG 10,<"%d: Loading image 2">,fw_FrameCounter(a6) IFD FW_DEMO_PART lea bln_blend_image_2_filename(pc),a0 CALLFW FindFile move.l pd_TrueColorImage2(a6),a0 CALLFW LoadFileToBuffer move.l pd_TrueColorImage2(a6),a0 move.l pd_OriginalImage2(a6),a1 CALLFW DecompressZX0 ENDC move.l pd_OriginalImage2(a6),a0 move.l pd_TrueColorImage2(a6),a1 move.w #16*2+1*BLENDVIEW_HEIGHT*2,d0 bsr bln_calc_true_color_image addq.w #1,pd_TCPicsDone(a6) IFD FW_DEMO_PART cmp.w #3,pd_AllowLoadLastImage(a6) bge.s .skipwait CALLFW TrackloaderDiskMotorOff ENDC PUTMSG 10,<"%d: Waiting to unlock image 3">,fw_FrameCounter(a6) .wait CALLFW Yield cmp.w #3,pd_AllowLoadLastImage(a6) blt.s .wait .skipwait PUTMSG 10,<"%d: Loading image 3">,fw_FrameCounter(a6) IFD FW_DEMO_PART lea bln_blend_image_3_filename(pc),a0 CALLFW FindFile move.l pd_TrueColorImage3(a6),a0 CALLFW LoadFileToBuffer move.l pd_TrueColorImage3(a6),a0 move.l pd_OriginalImage3(a6),a1 CALLFW DecompressZX0 ENDC move.l pd_OriginalImage3(a6),a0 move.l pd_TrueColorImage3(a6),a1 move.w #16*2+2*BLENDVIEW_HEIGHT*2,d0 bsr bln_calc_true_color_image addq.w #1,pd_TCPicsDone(a6) IFD FW_DEMO_PART cmp.w #4,pd_AllowLoadLastImage(a6) bge.s .skipwait4 CALLFW TrackloaderDiskMotorOff ENDC PUTMSG 10,<"%d: Waiting to unlock image 4">,fw_FrameCounter(a6) .wait4 CALLFW Yield cmp.w #4,pd_AllowLoadLastImage(a6) blt.s .wait4 .skipwait4 PUTMSG 10,<"%d: Loading image 4">,fw_FrameCounter(a6) IFD FW_DEMO_PART lea bln_blend_image_4_filename(pc),a0 CALLFW FindFile move.l pd_TrueColorImage4(a6),a0 CALLFW LoadFileToBuffer move.l pd_TrueColorImage4(a6),a0 move.l pd_OriginalImage4(a6),a1 CALLFW DecompressZX0 ENDC move.l pd_OriginalImage4(a6),a0 move.l pd_TrueColorImage4(a6),a1 move.w #16*2+3*BLENDVIEW_HEIGHT*2,d0 bsr bln_calc_true_color_image addq.w #1,pd_TCPicsDone(a6) IFD FW_DEMO_PART cmp.w #5,pd_AllowLoadLastImage(a6) bge.s .skipwait5 CALLFW TrackloaderDiskMotorOff ENDC PUTMSG 10,<"%d: Waiting to unlock image 5">,fw_FrameCounter(a6) .wait5 CALLFW Yield cmp.w #5,pd_AllowLoadLastImage(a6) blt.s .wait5 .skipwait5 PUTMSG 10,<"%d: Loading image 5">,fw_FrameCounter(a6) IFD FW_DEMO_PART lea bln_blend_image_5_filename(pc),a0 CALLFW FindFile move.l pd_TrueColorImage5(a6),a0 CALLFW LoadFileToBuffer move.l pd_TrueColorImage5(a6),a0 move.l pd_OriginalImage5(a6),a1 CALLFW DecompressZX0 ENDC move.l pd_OriginalImage5(a6),a0 move.l pd_TrueColorImage5(a6),a1 move.w #16*2+4*BLENDVIEW_HEIGHT*2,d0 bsr bln_calc_true_color_image addq.w #1,pd_TCPicsDone(a6) IFD FW_DEMO_PART CALLFW TrackloaderDiskMotorOff ENDC PUTMSG 10,<"%d: Prep task done!">,fw_FrameCounter-2(a6) rts ;-------------------------------------------------------------------- bln_init_vars: lea bln_greets_positions(pc),a0 move.l a0,pd_GreetingPosPtr(a6) lea bln_greets_lines(pc),a0 move.l a0,pd_GreetingLinePtr(a6) IFD FW_DEMO_PART lea bln_blend_image_1,a0 move.l a0,pd_OriginalImage1(a6) move.l a0,pd_OriginalImage3(a6) move.l a0,pd_EndLogoBuffer(a6) move.l #(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT*BLENDVIEW_PLANES,d0 CALLFW AllocChip move.l a0,pd_OriginalImage2(a6) move.l a0,pd_OriginalImage5(a6) move.l a0,pd_EndLogoP5P6Buffer(a6) ELSE move.l #bln_blend_image_1,pd_OriginalImage1(a6) move.l #bln_blend_image_2,pd_OriginalImage2(a6) move.l #bln_blend_image_3,pd_OriginalImage3(a6) move.l #bln_blend_image_4,pd_OriginalImage4(a6) move.l #bln_blend_image_5,pd_OriginalImage5(a6) move.l #bln_endlogo_image,pd_EndLogoBuffer(a6) move.l #bln_blend_image_1,pd_EndLogoP5P6Buffer(a6) ENDC move.l #(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT*BLENDVIEW_PLANES,d0 CALLFW AllocChip PUTMSG 10,<"ClipDotsBuffer %p">,a0 IFD FW_DEMO_PART move.l a0,pd_OriginalImage4(a6) ENDC move.l a0,pd_ClipDotsBuffer(a6) move.l a0,pd_TrueColor16Image(a6) lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a0),a0 PUTMSG 10,<"ClipFillBuffer %p">,a0 move.l a0,pd_ClipFillBuffer(a6) move.l a0,pd_TrueColor16Image2(a6) move.l #(COP_LIST_SIZE*2),d0 CALLFW AllocChip PUTMSG 10,<"Copperlist 1 %p">,a0 move.l a0,pd_CopperList1(a6) move.l a0,pd_CurrCopListPtr(a6) lea COP_LIST_SIZE(a0),a0 PUTMSG 10,<"Copperlist 2 %p">,a0 move.l a0,pd_CopperList2(a6) move.l a0,pd_LastCopListPtr(a6) move.l #2*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT*BLENDVIEW_PLANES,d0 CALLFW AllocChip PUTMSG 10,<"DbBuffer %p">,a0 move.l a0,pd_DbBuffer1(a6) move.l a0,pd_CurrPlanesPtr(a6) add.l #(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT*BLENDVIEW_PLANES,a0 move.l a0,pd_DbBuffer2(a6) move.l a0,pd_LastPlanesPtr(a6) ;move.l #(PART_WIDTH/8)*PART_HEIGHT*(5)*BLOCKS_HEIGHT,d0 move.l #BLENDVIEW_HEIGHT*4*8,d0 CALLFW AllocChip PUTMSG 10,<"BlockTempBuffer %p">,a0 lea pd_LineFix1Array(a6),a2 move.l a0,(a2)+ lea BLENDVIEW_HEIGHT*4(a0),a1 move.l a1,(a2)+ REPT 6 lea BLENDVIEW_HEIGHT*4(a1),a1 move.l a1,(a2)+ ENDR move.w #(PART_WIDTH/8)*PART_HEIGHT*5,d0 lea pd_Parts(a6),a1 moveq.l #BLOCKS_HEIGHT-1,d7 moveq.l #0,d1 .partloop move.w #$8000,pbi_Phase(a1) move.w d1,pbi_YPos(a1) move.l a0,pbi_TempBuffer(a1) addq.w #1,d1 adda.w d0,a0 lea pbi_SIZEOF(a1),a1 dbra d7,.partloop move.l #BLENDIMG_WIDTH*BLENDIMG_HEIGHT*2,d0 CALLFW AllocFast PUTMSG 10,<"TrueColorImage 1/3 %p">,a0 move.l a0,pd_TrueColorImage1(a6) move.l a0,pd_TrueColorImage3(a6) move.l #BLENDIMG_WIDTH*BLENDIMG_HEIGHT*2,d0 CALLFW AllocFast PUTMSG 10,<"TrueColorImage 2/5 %p">,a0 move.l a0,pd_TrueColorImage2(a6) move.l a0,pd_TrueColorImage5(a6) move.l #BLENDIMG_WIDTH*BLENDIMG_HEIGHT*2,d0 CALLFW AllocFast PUTMSG 10,<"TrueColorImage 4 %p">,a0 move.l a0,pd_TrueColorImage4(a6) move.l a0,pd_ShadeTableXor(a6) PUTMSG 10,<"ShadeTableXor %p">,a0 lea 4096*2(a0),a0 move.l a0,pd_ShadeTableSub1(a6) PUTMSG 10,<"ShadeTableSub1 %p">,a0 move.l #CIRCLE_MASKS_SIZE,d0 CALLFW AllocChip PUTMSG 10,<"CircleMasksBuffer %p">,a0 move.l a0,pd_CircleMasksBuffer(a6) move.l #CIRCLE_SPEEDCODE_SIZE,d0 CALLFW AllocFast PUTMSG 10,<"CircleSpeedcodeBuffer %p">,a0 move.l a0,pd_CircleSpeedcodeBuffer(a6) lea pd_CirclePots(a6),a4 lea bln_circle_scripts(pc),a0 .scriptloop move.w (a0)+,d0 beq.s .donescripts lea -2(a0,d0.w),a1 move.l a1,cp_PotScriptPtr(a4) lea cp_SIZEOF(a4),a4 bra.s .scriptloop .donescripts rts ;-------------------------------------------------------------------- bln_init_shade_table: move.l pd_ShadeTableXor(a6),a0 move.l a0,a1 moveq.l #0,d0 .xorloop moveq.l #$11,d3 moveq.l #15,d1 cmp.b d1,d0 bhi.s .upperset and.b d1,d3 .upperset and.b d0,d1 bne.s .lowerset subq.b #1,d3 .lowerset move.w d3,(a0)+ addq.b #1,d0 bne.s .xorloop moveq.l #15-1,d7 move.l #$01000100,d3 .xoroloop move.l a1,a2 move.w #128-1,d6 .xor2loop move.l (a2)+,d0 add.l d3,d0 move.l d0,(a0)+ dbra d6,.xor2loop dbra d7,.xoroloop move.l pd_ShadeTableXor(a6),a0 move.l pd_ShadeTableSub1(a6),a1 moveq.l #0,d0 move.w #4096-1,d7 .sub1loop move.w d0,d1 sub.w (a0)+,d1 move.w d1,(a1)+ addq.w #1,d0 dbra d7,.sub1loop rts ;-------------------------------------------------------------------- bln_init_bars: lea pd_Bars(a6),a1 lea bln_bar_patterns(pc),a0 moveq.l #0,d0 move.w #-BLENDVIEW_HEIGHT,d1 moveq.l #(NUM_BARS/2)-1,d7 .loop1 move.b (a0)+,d2 ext.w d2 mulu #bd_SIZEOF,d2 move.w d0,bd_Delay(a1,d2.w) move.w d1,bd_BarPos(a1,d2.w) move.w #1,bd_BarSpeed(a1,d2.w) move.w #5,bd_EndPosCount(a1,d2.w) add.w #10,d0 subq.w #8,d1 dbra d7,.loop1 moveq.l #(NUM_BARS/2)-1,d7 .loop2 move.b (a0)+,d2 ext.w d2 mulu #bd_SIZEOF,d2 move.w d0,bd_Delay(a1,d2.w) move.w d1,bd_BarPos(a1,d2.w) move.w #1,bd_BarSpeed(a1,d2.w) move.w #5,bd_EndPosCount(a1,d2.w) add.w #19,d0 addq.w #2,d1 dbra d7,.loop2 rts ;-------------------------------------------------------------------- bln_clear_db_buffers: BLTHOGON BLTWAIT BLTCON_SET D,0,0,0 move.w #0,bltdmod(a5) move.l pd_DbBuffer1(a6),bltdpt(a5) move.w #((3*BLENDVIEW_WIDTH)>>4)|((BLENDVIEW_HEIGHT*4)<<6),bltsize(a5) rts ;-------------------------------------------------------------------- bln_copy_image_to_buffer: BLTHOGON BLTWAIT BLTCON_SET AD,BLT_A,0,0 moveq.l #-1,d0 move.l d0,bltafwm(a5) moveq.l #0,d0 move.w d0,bltamod(a5) move.l a0,bltapt(a5) move.l pd_CurrPlanesPtr(a6),bltdpt(a5) move.w #((3*BLENDVIEW_WIDTH)>>4)|((BLENDVIEW_HEIGHT*2)<<6),bltsize(a5) rts ;-------------------------------------------------------------------- bln_clear_clip_buffers: BLTHOGON BLTWAIT BLTCON_SET D,0,0,0 move.w #0,bltdmod(a5) move.l pd_ClipDotsBuffer(a6),bltdpt(a5) move.w #((BLENDVIEW_WIDTH)>>4)|((BLENDVIEW_HEIGHT*2)<<6),bltsize(a5) rts ;-------------------------------------------------------------------- bln_intro: PUTMSG 10,<"%d: Intro (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) CALLFW SetBlitterQueueSingleFrame bsr bln_clear_db_buffers bsr bln_flip_db_frame bsr bln_create_intro_copperlist bsr bln_flip_db_frame bsr bln_create_intro_copperlist bsr bln_update_copper_list_pointers lea bln_a_part_sequence(pc),a0 bsr bln_load_part_sequences lea .script(pc),a0 CALLFW InstallMusicScript .loop CALLFW VSyncWithTask bsr bln_flip_db_frame CALLFW CheckMusicScript lea pd_BQBuffer(a6),a4 bsr bln_handle_parts move.w d7,pd_SequenceBlocksLeft(a6) bne.s .noallownext PUTMSG 30,<"%d: Sequence done! (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #3,pd_AllowLoadLastImage(a6) .noallownext TERMINATE_BLITTER_QUEUE ;lea pd_BQBuffer(a6),a0 ;sub.l a0,a4 ;PUTMSG 10,<"Queue size %ld">,a4 BLTWAIT lea pd_BQBuffer(a6),a0 cmp.l a0,a4 beq.s .skiptrigger CALLFW TriggerCustomBlitterQueue .skiptrigger CALLFW JoinBlitterQueue bsr bln_update_copper_list_pointers cmp.w #4656,fw_MusicFrameCount(a6) blt .loop tst.w pd_SequenceBlocksLeft(a6) bne.s .loop rts .script dc.w 4272,.load_seq_b-* dc.w 0 .load_seq_b cmp.w #2,pd_TCPicsDone(a6) bge.s .nowait PUTMSG 10,<"%d: Waiting for 2nd pic (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) .wait CALLFW VSyncWithTask cmp.w #2,pd_TCPicsDone(a6) blt.s .wait .nowait PUTMSG 10,<"%d: Intro B sequence (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) lea bln_b_part_sequence(pc),a0 bsr bln_load_part_sequences rts ;-------------------------------------------------------------------- bln_bars: PUTMSG 10,<"%d: Bars (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) CALLFW SetBlitterQueueSingleFrame move.l pd_TrueColorImage3(a6),a0 move.l pd_TrueColor16Image(a6),a1 bsr bln_prepare_tc16_data move.l pd_TrueColorImage2(a6),a0 move.l pd_TrueColor16Image2(a6),a1 bsr bln_prepare_tc16_data REPT 2 CALLFW VSyncWithTask bsr bln_flip_db_frame bsr bln_create_bars_copperlist move.l pd_OriginalImage2(a6),a0 move.l pd_TrueColor16Image2(a6),a1 bsr bln_prepare_striped_image bsr bln_update_copper_list_pointers ENDR .loop CALLFW VSyncWithTask bsr bln_flip_db_frame bsr bln_draw_and_move_bars bsr bln_update_copper_list_pointers cmp.w #5040+30*6,fw_MusicFrameCount(a6) blt .loop rts ;-------------------------------------------------------------------- bln_holes: PUTMSG 10,<"%d: Holes (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) CALLFW SetBlitterQueueSingleFrame move.l pd_OriginalImage4(a6),pd_CurrGreetingsImage(a6) move.l pd_TrueColorImage4(a6),pd_CurrGreetingsTCImage(a6) move.w #18+17,pd_GreetingCount(a6) bsr bln_prepare_circle_masks lea pd_SpeedCodeTask(a6),a1 CALLFW WaitUntilTaskFinished REPT 2 CALLFW VSyncWithTask bsr bln_flip_db_frame bsr bln_create_hole_copperlist move.l pd_OriginalImage3(a6),a0 bsr bln_copy_image_to_buffer move.l pd_CurrFixupBQPtr(a6),a4 bsr bln_do_blitter_to_copper_fixup bsr bln_update_copper_list_pointers ENDR lea .script(pc),a0 CALLFW InstallMusicScript .wait CALLFW VSyncWithTask cmp.w #5040+32*6,fw_MusicFrameCount(a6) blt.s .wait PUTMSG 10,<"%d: Starting holes (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) BLTWAIT move.w fw_FrameCounter(a6),pd_OldFrameCount(a6) .loop CALLFW VSyncWithTask bsr bln_flip_db_frame BLTHOGON BLTWAIT BLTHOGOFF move.l pd_CurrFixupBQPtr(a6),a0 CALLFW TriggerCustomBlitterQueue CALLFW CheckMusicScript move.w fw_FrameCounter(a6),d0 move.w d0,d1 sub.w pd_OldFrameCount(a6),d1 move.w d0,pd_OldFrameCount(a6) move.w d1,pd_FrameInc(a6) PUTMSG 20,<"%d: Inc %d">,d0,d1 bsr bln_do_all_circle_calc_updates CALLFW JoinBlitterQueue bsr bln_restore_necessary_circle_backgrounds bsr bln_draw_all_circle_pots BLTHOGON BLTWAIT BLTHOGOFF bsr bln_do_all_circle_ham_fixups bsr bln_update_copper_list_pointers_safe tst.w pd_GreetingCount(a6) bne.s .loop move.w #$00d0,bln_ddfstop+2 move.w #$0000,bln_fmode+2 rts .script dc.w 4,.agaboost-* dc.w 5808+48*6,.flash-* dc.w 5808+52*6,.flash-* dc.w 5808+56*6,.flash-* dc.w 5808+60*6,.flash-* dc.w 6192,.loadgreetings-* dc.w 0 .agaboost tst.w fw_AgaChipset(a6) beq.s .noaga move.w #$00a0,bln_ddfstop+2 move.w #$0003,bln_fmode+2 .noaga .flash move.w #32,pd_BeatRadAdd(a6) rts .loadgreetings PUTMSG 10,<"%d: Allow Loading of Image 5 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #5,pd_AllowLoadLastImage(a6) lea pd_CirclePots(a6),a4 lea bln_circle_greetings_scripts(pc),a0 moveq.l #0,d1 .scriptloop move.w (a0)+,d0 beq.s .donescripts lea -2(a0,d0.w),a1 move.l a1,cp_PotScriptPtr(a4) move.w d1,cp_TimeLeft(a4) lea cp_SIZEOF(a4),a4 bra.s .scriptloop .donescripts rts ;-------------------------------------------------------------------- bln_greetings: PUTMSG 10,<"%d: Greetings (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) IFD FW_DEMO_PART lea .loader(pc),a0 lea pd_PreparationTask(a6),a1 CALLFW AddTask ENDC move.l pd_CurrPlanesPtr(a6),pd_CurrGreetingsImage(a6) move.w #7*2+2*BLENDVIEW_HEIGHT*2,pd_CurrGreetingsPalOffset(a6) lea .script(pc),a0 CALLFW InstallMusicScript .loop CALLFW VSyncWithTask bsr bln_flip_db_frame CALLFW CheckMusicScript bsr bln_create_greetings_copperlist bsr bln_update_copper_list_pointers cmp.w #7344+60*6,fw_MusicFrameCount(a6) blt.s .loop CALLFW VSyncWithTask bsr bln_create_andyou_copperlist bsr bln_update_copper_list_pointers rts IFD FW_DEMO_PART .loader lea .endlogofile(pc),a0 CALLFW FindFile move.l pd_TrueColorImage2(a6),a0 CALLFW LoadFileToBuffer move.l pd_TrueColorImage2(a6),a0 move.l pd_EndLogoBuffer(a6),a1 CALLFW DecompressZX0 PUTMSG 10,<"%d: Endlogo loaded/decompressed (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) rts .endlogofile dc.b "Endlogo.raw",0 even ENDC .script dc.w 7344+48*6,.load_page_1-* dc.w 7344+51*6,.load_page_2-* dc.w 7344+54*6,.load_page_1-* dc.w 7344+56*6,.load_page_2-* dc.w 7728+8*6,.stopmusic-* dc.w 0 .load_page_1 move.l pd_OriginalImage4(a6),pd_CurrGreetingsImage(a6) move.w #7*2+3*BLENDVIEW_HEIGHT*2,pd_CurrGreetingsPalOffset(a6) rts .load_page_2 move.l pd_OriginalImage5(a6),pd_CurrGreetingsImage(a6) move.w #7*2+4*BLENDVIEW_HEIGHT*2,pd_CurrGreetingsPalOffset(a6) rts .stopmusic CALLFW StopMusic rts ;-------------------------------------------------------------------- bln_endlogo: IFD FW_DEMO_PART lea pd_PreparationTask(a6),a1 CALLFW WaitUntilTaskFinished ENDC bsr bln_prep_p5p6_mask bsr bln_prep_endlogo_start lea pd_EndLogoPalette(a6),a1 move.w #$fff,d0 moveq.l #16-1,d7 .palloop move.w d0,(a1)+ dbra d7,.palloop bsr bln_init_shade_table .loop2 CALLFW VSyncWithTask CALLFW CheckMusicScript cmp.w #7728,fw_MusicFrameCount(a6) blt.s .loop2 bsr bln_create_endlogo_copperlist bsr bln_update_copper_list_pointers move.w fw_FrameCounter(a6),d0 add.w #200,d0 move.w d0,pd_PartCountDown(a6) .loop3 CALLFW VSyncWithTask bsr bln_flip_db_frame CALLFW CheckMusicScript bsr bln_fade_step_from_white bsr bln_palette_fade_step_from_white bsr bln_create_endlogo_copperlist bsr bln_update_copper_list_pointers move.w fw_FrameCounter(a6),d0 cmp.w pd_PartCountDown(a6),d0 blt.s .loop3 move.w #17,pd_PartCountDown(a6) .loop4 CALLFW VSyncWithTask bsr bln_flip_db_frame CALLFW CheckMusicScript bsr bln_fade_step_to_black bsr bln_palette_fade_step_to_black bsr bln_create_endlogo_copperlist bsr bln_update_copper_list_pointers subq.w #1,pd_PartCountDown(a6) bne.s .loop4 rts ;-------------------------------------------------------------------- bln_flip_db_frame: move.l pd_CurrPlanesPtr(a6),pd_LastPlanesPtr(a6) move.l pd_CurrCopListPtr(a6),pd_LastCopListPtr(a6) eor.w #BLENDVIEW_HEIGHT*2,pd_LineFixToggle(a6) not.b pd_DbToggle(a6) beq.s .selb1 move.l pd_DbBuffer2(a6),pd_CurrPlanesPtr(a6) move.l pd_CopperList2(a6),pd_CurrCopListPtr(a6) lea pd_StaticFixup2BQBuffer(a6),a0 move.l a0,pd_CurrFixupBQPtr(a6) rts .selb1 move.l pd_DbBuffer1(a6),pd_CurrPlanesPtr(a6) move.l pd_CopperList1(a6),pd_CurrCopListPtr(a6) lea pd_StaticFixup1BQBuffer(a6),a0 move.l a0,pd_CurrFixupBQPtr(a6) rts ;-------------------------------------------------------------------- bln_update_copper_list_pointers_safe: .wait move.l vposr(a5),d0 and.l #$1ff00,d0 cmp.l #(10)<<8,d0 blt.s .wait bln_update_copper_list_pointers: lea bln_extra_copperlist_ptr+2,a0 move.w pd_CurrCopListPtr(a6),(a0) move.w pd_CurrCopListPtr+2(a6),4(a0) move.w #copjmp2,6(a0) rts ;-------------------------------------------------------------------- bln_prepare_circle_speedcode: PUTMSG 10,<"%d: Preparing circle smc">,fw_FrameCounter-2(a6) lea bln_circleinfo,a4 move.l pd_CircleSpeedcodeBuffer(a6),a2 move.l a2,a3 add.l #CIRCLE_SPEEDCODE_SIZE/2,a3 moveq.l #3,d7 .rloop tst.w (a4) beq.s .done PUSHM a1-a4 move.w d7,d0 lea pd_MinMaxY(a6),a0 PUTMSG 40,<"MinMax %p">,a0 bsr bln_calc_circle POPM move.w d7,d3 mulu #(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES,d3 neg.w d3 sub.w #(BLENDVIEW_WIDTH/2)/8,d3 move.w d7,d0 add.w d0,d0 add.w d0,d0 lea pd_MinMaxY(a6),a0 lea (BLENDVIEW_HEIGHT/2)*4(a0),a0 suba.w d0,a0 move.w #%0000000110101000,d5 ; bclr dx,$yyyy(a0) ;move.w #%0000000101101000,d5 ; bchg dx,$yyyy(a0) move.l a2,ci_LeftDotClearCode(a4) move.l a3,ci_RightDotClearCode(a4) PUTMSG 40,<"Bclr %p %p">,a2,a3 bsr bln_create_bset_bclr_code move.w #%0000000111101000,d5 ; bset dx,$yyyy(a0) ;move.w #%0000000101101000,d5 ; bchg dx,$yyyy(a0) move.l a2,ci_LeftDotSetCode(a4) move.l a3,ci_RightDotSetCode(a4) PUTMSG 40,<"Bset %p %p">,a2,a3 bsr bln_create_bset_bclr_code move.l a2,ci_LeftTCCode(a4) move.l a3,ci_RightTCCode(a4) PUTMSG 40,<"move.w %p %p">,a2,a3 bsr bln_create_tc_code lea ci_SIZEOF(a4),a4 addq.w #1,d7 bra.s .rloop .done suba.l pd_CircleSpeedcodeBuffer(a6),a2 add.l a2,a2 PUTMSG 10,<"%d: Done %ld bytes">,fw_FrameCounter-2(a6),a2 CALLFW FlushCaches rts ;-------------------------------------------------------------------- bln_create_tc_code: PUSHM d3/d7 move.w d7,d3 move.l #BLENDVIEW_WIDTH*2,d6 mulu d6,d3 neg.l d3 sub.l #(BLENDVIEW_WIDTH/2)*2,d3 move.w #%0011000011101010,d5 ; move.w x(a2),(a0)+ add.w d7,d7 .scloop move.w (a0)+,d0 add.w d0,d0 add.w d3,d0 move.w d5,(a2)+ move.w d0,(a2)+ move.w (a0)+,d0 ;addq.w #1,d0 add.w d0,d0 add.w d3,d0 move.w d5,(a3)+ move.w d0,(a3)+ add.w d6,d3 dbra d7,.scloop move.w #'Nu',(a2)+ move.w #'Nu',(a3)+ POPM rts ;-------------------------------------------------------------------- bln_create_bset_bclr_code: PUSHM a0/d3/d7 move.w #7<<9,d2 move.w #(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES,d6 add.w d7,d7 .scloop move.w (a0)+,d0 move.w d0,d1 asr.w #3,d1 add.w d3,d1 add.w d0,d0 move.b d0,-(sp) move.w (sp)+,d0 and.w d2,d0 or.w d5,d0 move.w d0,(a2)+ move.w d1,(a2)+ move.w (a0)+,d0 ;addq.w #1,d0 move.w d0,d1 asr.w #3,d1 add.w d3,d1 add.w d0,d0 move.b d0,-(sp) move.w (sp)+,d0 and.w d2,d0 or.w d5,d0 move.w d0,(a3)+ move.w d1,(a3)+ add.w d6,d3 dbra d7,.scloop move.w #'Nu',(a2)+ move.w #'Nu',(a3)+ POPM rts ;-------------------------------------------------------------------- bln_draw_circle_color_1_2: move.l ci_LeftDotClearCode(a1),a2 move.l ci_LeftDotSetCode(a1),a3 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) move.l ci_RightDotClearCode(a1),a2 move.l ci_RightDotSetCode(a1),a3 lea -5*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jmp (a2) ;-------------------------------------------------------------------- bln_draw_circle_color_3_4: move.l ci_LeftDotClearCode(a1),a2 move.l ci_LeftDotSetCode(a1),a3 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) move.l ci_RightDotClearCode(a1),a2 move.l ci_RightDotSetCode(a1),a3 lea -5*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jmp (a2) ;-------------------------------------------------------------------- bln_draw_circle_color_5_6: move.l ci_LeftDotClearCode(a1),a2 move.l ci_LeftDotSetCode(a1),a3 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) move.l ci_RightDotClearCode(a1),a2 move.l ci_RightDotSetCode(a1),a3 lea -5*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jmp (a2) ;-------------------------------------------------------------------- bln_draw_circle_color_7_8: move.l ci_LeftDotClearCode(a1),a2 move.l ci_LeftDotSetCode(a1),a3 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) move.l ci_RightDotClearCode(a1),a2 move.l ci_RightDotSetCode(a1),a3 lea -5*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a3) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jsr (a2) lea 1*(BLENDVIEW_WIDTH/8)(a0),a0 jmp (a2) ;-------------------------------------------------------------------- bln_prep_p5p6_mask: move.l pd_EndLogoBuffer(a6),a0 lea 4*(BLENDIMG_WIDTH/8)(a0),a0 lea 1*(BLENDIMG_WIDTH/8)(a0),a1 move.l pd_EndLogoP5P6Buffer(a6),a2 moveq.l #-1,d0 move.l #(((BLENDIMG_WIDTH*BLENDVIEW_PLANES-BLENDIMG_WIDTH)/8)<<16)|((BLENDIMG_WIDTH*BLENDVIEW_PLANES-BLENDIMG_WIDTH)/8),d1 move.w #(BLENDIMG_WIDTH>>4)|(BLENDIMG_HEIGHT<<6),d3 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET ACD,BLT_A|BLT_C,0,0 move.l d0,bltafwm(a5) move.w d1,bltcmod(a5) move.l d1,bltamod(a5) move.l a0,bltapt(a5) move.l a1,bltcpt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) rts ;-------------------------------------------------------------------- bln_prep_endlogo_start: move.l pd_EndLogoBuffer(a6),a0 move.l pd_CurrPlanesPtr(a6),a1 move.l pd_EndLogoP5P6Buffer(a6),a2 moveq.l #-1,d0 move.l #(((BLENDIMG_WIDTH*BLENDVIEW_PLANES-BLENDIMG_WIDTH)/8)<<16)|((BLENDIMG_WIDTH*BLENDVIEW_PLANES-BLENDIMG_WIDTH)/8),d1 move.w #(BLENDIMG_WIDTH>>4)|(BLENDIMG_HEIGHT<<6),d3 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET ACD,BLT_A|BLT_C,0,0 move.l d0,bltafwm(a5) move.w d1,bltcmod(a5) move.l d1,bltamod(a5) move.l a2,bltapt(a5) move.l a0,bltcpt(a5) move.l a1,bltdpt(a5) move.w d3,bltsize(a5) REPT 4 lea 1*(BLENDIMG_WIDTH/8)(a0),a0 lea 1*(BLENDIMG_WIDTH/8)(a1),a1 BLTHOGON BLTWAIT BLTHOGOFF move.l a2,bltapt(a5) move.l a0,bltcpt(a5) move.l a1,bltdpt(a5) move.w d3,bltsize(a5) ENDR rts ;-------------------------------------------------------------------- bln_fade_step_to_black: move.l pd_LastPlanesPtr(a6),a0 ; source p1 move.l pd_CurrPlanesPtr(a6),a4 lea 3*(BLENDIMG_WIDTH/8)(a4),a1 ; mask move.l a1,d4 lea 1*(BLENDIMG_WIDTH/8)(a0),a1 ; source p2 lea 1*(BLENDIMG_WIDTH/8)(a1),a2 ; source p3 lea 1*(BLENDIMG_WIDTH/8)(a2),a3 ; source p4 moveq.l #-1,d0 move.l #(((BLENDIMG_WIDTH*BLENDIMG_PLANES-BLENDIMG_WIDTH)/8)<<16)|((BLENDIMG_WIDTH*BLENDIMG_PLANES-BLENDIMG_WIDTH)/8),d1 move.w #(BLENDIMG_WIDTH>>4)|(BLENDIMG_HEIGHT<<6),d3 ; create mask -- all bits, that are not black BLTHOGON BLTWAIT BLTCON_SET ABCD,(BLT_A|BLT_B|BLT_C),0,0 move.l d0,bltafwm(a5) move.l d1,bltcmod(a5) move.l d1,bltamod(a5) move.l a0,bltapt(a5) move.l a1,bltbpt(a5) move.l a2,bltcpt(a5) move.l d4,bltdpt(a5) move.w d3,bltsize(a5) BLTWAIT BLTCON0_SET ABCD,(BLT_A|BLT_C)&BLT_B,0 move.l d4,bltapt(a5) move.l pd_EndLogoP5P6Buffer(a6),bltbpt(a5) move.l a3,bltcpt(a5) move.l d4,bltdpt(a5) move.w d3,bltsize(a5) bra bln_fade_step_down ;-------------------------------------------------------------------- bln_fade_step_from_white: move.l pd_LastPlanesPtr(a6),a0 ; source p1 move.l pd_EndLogoBuffer(a6),a1 move.l pd_CurrPlanesPtr(a6),a4 lea 3*(BLENDIMG_WIDTH/8)(a4),a2 ; mask move.l a2,d4 ; target p4 as temp mask moveq.l #-1,d0 move.l #(((BLENDIMG_WIDTH*BLENDIMG_PLANES-BLENDIMG_WIDTH)/8)<<16)|((BLENDIMG_WIDTH*BLENDIMG_PLANES-BLENDIMG_WIDTH)/8),d1 move.w #(BLENDIMG_WIDTH>>4)|(BLENDIMG_HEIGHT<<6),d3 ; create mask -- all bits, that are NOT equal BLTHOGON BLTWAIT BLTCON_SET ACD,(BLT_A^BLT_C),0,0 move.l d0,bltafwm(a5) move.l d1,bltcmod(a5) move.l d1,bltamod(a5) move.l a0,bltapt(a5) move.l a1,bltcpt(a5) move.l d4,bltdpt(a5) move.w d3,bltsize(a5) REPT 3 lea (BLENDIMG_WIDTH/8)(a0),a0 ; source p2/p3/p4 lea (BLENDIMG_WIDTH/8)(a1),a1 ; original p2/p3/p4 BLTWAIT BLTCON0_SET ABCD,(BLT_A^BLT_C)|BLT_B,0 move.l a0,bltapt(a5) move.l d4,bltbpt(a5) move.l a1,bltcpt(a5) move.l d4,bltdpt(a5) move.w d3,bltsize(a5) ENDR ;bra bln_fade_step_down ;-------------------------------------------------------------------- bln_fade_step_down: move.l pd_LastPlanesPtr(a6),a0 ; source p1 move.l pd_CurrPlanesPtr(a6),a4 lea (BLENDIMG_WIDTH/8)(a0),a1 ; source p2 lea (BLENDIMG_WIDTH/8)(a1),a2 ; source p3 lea (BLENDIMG_WIDTH/8)(a2),a3 ; source p4 ; plane 1: p1n = p1o ^ mask BLTWAIT BLTCON0_SET ACD,BLT_A^BLT_C,0 move.l d4,bltapt(a5) move.l a0,bltcpt(a5) move.l a4,bltdpt(a5) move.w d3,bltsize(a5) ; update mask: mask = p1n & mask BLTWAIT BLTCON0_SET ACD,BLT_A&BLT_C,0 move.l d4,bltapt(a5) move.l a4,bltcpt(a5) move.l d4,bltdpt(a5) move.w d3,bltsize(a5) ; plane 2: p2n = p2o ^ mask lea (BLENDIMG_WIDTH/8)(a4),a4 BLTWAIT BLTCON0_SET ACD,BLT_A^BLT_C,0 move.l d4,bltapt(a5) move.l a1,bltcpt(a5) move.l a4,bltdpt(a5) move.w d3,bltsize(a5) ; update mask: mask = p2n & mask BLTWAIT BLTCON0_SET ACD,BLT_A&BLT_C,0 move.l d4,bltapt(a5) move.l a4,bltcpt(a5) move.l d4,bltdpt(a5) move.w d3,bltsize(a5) ; plane 3: p3n = p3o ^ mask lea (BLENDIMG_WIDTH/8)(a4),a4 BLTWAIT BLTCON0_SET ACD,BLT_A^BLT_C,0 move.l d4,bltapt(a5) move.l a2,bltcpt(a5) move.l a4,bltdpt(a5) move.w d3,bltsize(a5) ; plane 4: p4n = p4o ^ (p3n & mask) BLTWAIT BLTHOGOFF BLTCON0_SET ABCD,BLT_C^(BLT_A&BLT_B),0 move.l d4,bltapt(a5) move.l a4,bltbpt(a5) move.l a3,bltcpt(a5) move.l d4,bltdpt(a5) move.w d3,bltsize(a5) rts ;-------------------------------------------------------------------- bln_prepare_circle_masks: PUTMSG 10,<"%d: Preparing circle masks">,fw_FrameCounter-2(a6) bsr bln_clear_clip_buffers BLTWAIT lea bln_circleinfo,a4 lea pd_CircleInfos(a6),a2 move.l pd_CircleMasksBuffer(a6),a3 moveq.l #3,d7 .rloop tst.w (a4) beq.s .done move.l a4,(a2)+ PUSHM a2-a4/d7 move.w d7,d0 lea pd_MinMaxY(a6),a0 bsr bln_calc_circle POPM lea pd_MinMaxY(a6),a0 move.l pd_ClipDotsBuffer(a6),a1 move.w d7,d0 bsr bln_plot_circle move.w d7,d0 bsr bln_fill_circle ; inner top position move.w ci_LRIAreaY(a4),d0 mulu #(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES,d0 move.l d0,d2 move.w d0,ci_LeftBgOffset(a4) move.w d0,ci_RightBgOffset(a4) ; bg offset, relative to top/left add.w ci_InnerXOffset(a4),d0 move.w d0,ci_InnerBgOffset(a4) ; fg offset, relative to center (usually a negative offset) moveq.l #(BLENDVIEW_HEIGHT/2),d0 sub.w ci_LRIAreaY(a4),d0 mulu #(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES,d0 neg.w d0 move.w d0,ci_LeftFgOffset(a4) ; fix x offset later move.w d0,ci_RightFgOffset(a4) moveq.l #(BLENDVIEW_WIDTH/2)/8,d1 sub.w ci_InnerXOffset(a4),d1 sub.w d1,d0 move.w d0,ci_InnerFgOffset(a4) tst.w ci_TopWidth(a4) beq.s .skiptop bsr bln_store_circle_top_mask .skiptop tst.w ci_LeftWidth(a4) beq.s .skipleft bsr bln_store_circle_left_mask .skipleft tst.w ci_RightWidth(a4) beq.s .skipright bsr bln_store_circle_right_mask .skipright lea pd_MinMaxY(a6),a0 move.l pd_ClipDotsBuffer(a6),a1 move.w d7,d0 bsr bln_plot_circle lea ci_SIZEOF(a4),a4 addq.w #1,d7 bra.s .rloop .done suba.l pd_CircleMasksBuffer(a6),a3 PUTMSG 10,<"%d: Done %ld bytes">,fw_FrameCounter-2(a6),a3 rts ;-------------------------------------------------------------------- bln_store_circle_left_mask: move.w ci_LeftXOffset(a4),d0 add.w d0,ci_LeftBgOffset(a4) moveq.l #(BLENDVIEW_WIDTH/2)/8,d1 sub.w d0,d1 sub.w d1,ci_LeftFgOffset(a4) move.l pd_ClipFillBuffer(a6),a1 adda.w d0,a1 move.w ci_LRIAreaY(a4),d0 moveq.l #(BLENDVIEW_HEIGHT/2),d3 sub.w d0,d3 ; height add.w d3,d3 add.w #1,d3 mulu #BLENDVIEW_WIDTH/8,d0 adda.w d0,a1 move.w ci_LeftWidth(a4),d0 move.w d0,d2 mulu d3,d2 add.w d2,d2 ; size in bytes moveq.l #BLENDVIEW_WIDTH/16,d4 sub.w d0,d4 add.w d4,d4 ; source modulo swap d4 lsl.w #6,d3 add.w d0,d3 move.l a3,ci_LeftMask(a4) BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A,0,0 move.l d4,bltamod(a5) move.l a1,bltapt(a5) move.l a3,bltdpt(a5) move.w d3,bltsize(a5) move.w d3,ci_LeftBltSize(a4) adda.w d2,a3 rts ;-------------------------------------------------------------------- bln_store_circle_right_mask: move.w ci_RightXOffset(a4),d0 add.w d0,ci_RightBgOffset(a4) moveq.l #(BLENDVIEW_WIDTH/2)/8,d1 sub.w d0,d1 sub.w d1,ci_RightFgOffset(a4) move.l pd_ClipFillBuffer(a6),a1 adda.w d0,a1 move.w ci_LRIAreaY(a4),d0 moveq.l #(BLENDVIEW_HEIGHT/2),d3 sub.w d0,d3 ; height add.w d3,d3 add.w #1,d3 mulu #BLENDVIEW_WIDTH/8,d0 adda.w d0,a1 move.w ci_RightWidth(a4),d0 move.w d0,d2 mulu d3,d2 add.w d2,d2 ; size in bytes moveq.l #BLENDVIEW_WIDTH/16,d4 sub.w d0,d4 add.w d4,d4 ; source modulo swap d4 lsl.w #6,d3 add.w d0,d3 move.l a3,ci_RightMask(a4) BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A,0,0 move.l d4,bltamod(a5) move.l a1,bltapt(a5) move.l a3,bltdpt(a5) move.w d3,bltsize(a5) move.w d3,ci_RightBltSize(a4) adda.w d2,a3 rts ;-------------------------------------------------------------------- bln_store_circle_top_mask: moveq.l #(BLENDVIEW_HEIGHT/2),d0 sub.w d7,d0 move.w d0,d1 mulu #(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES,d1 move.w d1,d4 move.w ci_TopXOffset(a4),d2 add.w d2,d1 move.w d1,ci_TopBgOffset(a4) moveq.l #(BLENDVIEW_HEIGHT/2)+1,d3 add.w d7,d3 sub.w ci_TopHeight(a4),d3 mulu #(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES,d3 sub.w #5*(BLENDVIEW_WIDTH/8),d3 sub.w d4,d3 move.w d3,ci_TopBottomOffsetAdv(a4) move.w d7,d1 mulu #(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES,d1 neg.w d1 moveq.l #(BLENDVIEW_WIDTH/2)/8,d3 sub.w d2,d3 sub.w d3,d1 move.w d1,ci_TopFgOffset(a4) move.l pd_ClipFillBuffer(a6),a1 adda.w d2,a1 mulu #BLENDVIEW_WIDTH/8,d0 adda.l d0,a1 move.w ci_TopWidth(a4),d0 move.w d0,d1 mulu ci_TopHeight(a4),d1 add.w d1,d1 move.w d1,ci_TopBottomMaskSize(a4) moveq.l #BLENDVIEW_WIDTH/16,d4 sub.w d0,d4 add.w d4,d4 ; source modulo swap d4 move.w ci_TopHeight(a4),d3 lsl.w #6,d3 add.w d0,d3 move.w d3,ci_TopBottomBltSize(a4) move.l a3,ci_TopMask(a4) BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A,0,0 move.l d4,bltamod(a5) move.l a1,bltapt(a5) move.l a3,bltdpt(a5) move.w d3,bltsize(a5) adda.w d1,a3 rts ;-------------------------------------------------------------------- bln_fill_circle: move.w d0,d3 move.l pd_ClipDotsBuffer(a6),a1 move.l pd_ClipFillBuffer(a6),a0 lea (BLENDVIEW_HEIGHT/2)*(BLENDVIEW_WIDTH/8)-2(a1),a1 lea (BLENDVIEW_HEIGHT/2)*(BLENDVIEW_WIDTH/8)-2(a0),a0 moveq.l #BLENDVIEW_WIDTH/8,d4 mulu d4,d0 adda.l d0,a1 adda.l d0,a0 move.w #(BLENDVIEW_WIDTH/2)+1+15,d1 move.w #(BLENDVIEW_WIDTH/2),d2 add.w d3,d1 ; right border sub.w d3,d2 ; left border lsr.w #4,d1 add.w d1,d1 adda.w d1,a1 adda.w d1,a0 lsr.w #4,d2 add.w d2,d2 sub.w d1,d2 neg.w d2 ; width sub.w d2,d4 ; modulo add.w d3,d3 addq.w #1,d3 ; h = 2*r+1 lsl.w #6,d3 lsr.w #1,d2 add.w d2,d3 ; bltsize BLTHOGON BLTWAIT BLTCON_SET_X AD,BLT_A,0,0,BLTCON1F_EFE|BLTCON1F_DESC moveq.l #-1,d0 move.l d0,bltafwm(a5) move.w d4,bltamod(a5) move.w d4,bltdmod(a5) move.l a1,bltapt(a5) move.l a0,bltdpt(a5) move.w d3,bltsize(a5) rts ;-------------------------------------------------------------------- ; d0.w = r bln_calc_circle: lea (BLENDVIEW_HEIGHT/2)*4(a0),a0 ; y (addr) move.w d0,d1 ; dx = r add.w d1,d1 add.w d1,d1 move.l a0,a2 ; y + dy (addr increases over time) lea 4(a0),a3 ; y - dy (addr decreases over time) PRE-DECREMENT! lea 4(a0,d1.w),a1 ; y + dx (addr decreases over time) PRE-DECREMENT! sub.w d1,a0 ; y - dx (addr increases over time) ;MinMax done $00c12ec8, $00c12f34, $00c12f38, $00c12ec4 PUTMSG 30,<"MinMax buffer %p, %p, %p, %p">,a0,a1,a2,a3 moveq.l #0,d1 ; dy move.w d0,d2 lsr.w #4,d2 ; t1 = r / 16 move.w #(BLENDVIEW_WIDTH/2),d5 sub.w d0,d2 .loop add.w d0,d2 cmp.w d0,d1 bgt.s .done .loop2 PUTMSG 40,<"dx,dy %d,%d">,d0,d1 move.w d5,d3 sub.w d0,d3 ; x - dx move.w d5,d4 add.w d0,d4 ; x + dx PUTMSG 50,<"min[y + dy = y + %d] = x - dx = %d - %d = %d (%x)]">,d1,d5,d0,d3,d3 PUTMSG 50,<"max[y + dy = y + %d] = x + dx = %d + %d = %d (%x)]">,d1,d5,d0,d4,d4 PUTMSG 50,<"min[y - dy = y - %d] = x - dx = %d - %d = %d (%x)]">,d1,d5,d0,d3,d3 PUTMSG 50,<"max[y - dy = y - %d] = x + dx = %d + %d = %d (%x)]">,d1,d5,d0,d4,d4 move.w d4,-(a3) ; maxX[y - dy] = x + dx move.w d3,-(a3) ; minX[y - dy] = x - dx move.w d3,(a2)+ ; minX[y + dy] = x - dx move.w d4,(a2)+ ; maxX[y + dy] = x + dx addq.w #1,d1 ; dy++ add.w d1,d2 ; t1 += dy sub.w d0,d2 ; t1 = t1 - dx bmi.s .loop subq.w #1,d1 ; dy-- move.w d5,d3 sub.w d1,d3 ; x - dy move.w d5,d4 add.w d1,d4 ; x + dy addq.w #1,d1 ; dy++ PUTMSG 50,<"min[y + dx = y + %d] = x - dy = %d - %d = %d (%x)]">,d0,d5,d1,d3,d3 PUTMSG 50,<"max[y + dx = y + %d] = x + dy = %d + %d = %d (%x)]">,d0,d5,d1,d4,d4 PUTMSG 50,<"min[y - dx = y - %d] = x - dy = %d - %d = %d (%x)]">,d0,d5,d1,d3,d3 PUTMSG 50,<"max[y - dx = y - %d] = x + dy = %d + %d = %d (%x)]">,d0,d5,d1,d4,d4 move.w d4,-(a1) ; maxX[y + dx] = x + dy move.w d3,-(a1) ; minX[y + dx] = x - dy move.w d3,(a0)+ ; minX[y - dx] = x - dy move.w d4,(a0)+ ; maxX[y - dx] = x + dy subq.w #1,d0 ; dx-- cmp.w d0,d1 ble.s .loop2 .done PUTMSG 30,<"MinMax done %p, %p, %p, %p">,a0,a1,a2,a3 rts ;-------------------------------------------------------------------- bln_plot_circle: lea (BLENDVIEW_HEIGHT/2)*4(a0),a0 lea (BLENDVIEW_HEIGHT/2)*(BLENDVIEW_WIDTH/8)(a1),a1 moveq.l #BLENDVIEW_WIDTH/8,d3 move.w d0,d2 mulu d3,d2 sub.l d2,a1 add.w d0,d0 move.w d0,d1 add.w d1,d1 sub.w d1,a0 .yloop REPT 2 move.w (a0)+,d1 move.w d1,d2 lsr.w #3,d2 not.w d1 bchg d1,(a1,d2.w) ENDR add.w d3,a1 dbra d0,.yloop rts ;-------------------------------------------------------------------- bln_update_circle_pot_info: move.w cp_Pair(a4),d0 lea .circle_fixup_table(pc,d0.w),a0 move.l (a0)+,cp_CircleFixupRoutine(a4) move.l (a0)+,d4 movem.w cp_Radius(a4),d1-d3 ;move.w cp_CenterPosX(a4),d2 ;move.w cp_CenterPosY(a4),d3 move.w d1,d0 cmp.w #MIN_CIRCLE_SIZE,d0 blt.s .skip add.w d1,d1 add.w d1,d1 lea pd_CircleInfos(a6),a1 move.l -MIN_CIRCLE_SIZE*4(a1,d1.w),a1 move.l a1,cp_CircleInfo(a4) move.w d3,d1 sub.w d0,d1 add.w d1,d1 add.w d4,d1 move.w d1,cp_LineFixTopYOffset(a4) move.w d3,d1 mulu #BLENDVIEW_WIDTH,d1 add.l d2,d1 add.l d1,d1 move.l d1,cp_PosTCOffset(a4) move.w d3,d1 mulu #(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES,d1 move.w d2,d0 asr.w #4,d0 add.w d0,d0 add.w d0,d1 move.l d1,cp_PosOffset(a4) .skip rts .circle_fixup_table dc.l bln_draw_circle_color_1_2,0*BLENDVIEW_HEIGHT*4*2 dc.l bln_draw_circle_color_3_4,1*BLENDVIEW_HEIGHT*4*2 dc.l bln_draw_circle_color_5_6,2*BLENDVIEW_HEIGHT*4*2 dc.l bln_draw_circle_color_7_8,3*BLENDVIEW_HEIGHT*4*2 ;-------------------------------------------------------------------- bln_restore_necessary_circle_backgrounds: lea pd_CirclePots(a6),a4 moveq.l #-1,d5 moveq.l #NUM_CIRCLE_POTS-1,d7 .loop tst.l cp_InvertedOffset(a4) bne.s .skip move.w cp_LastLastRadius(a4),d1 cmp.w cp_Radius(a4),d1 blt.s .skip cmp.w #MIN_CIRCLE_SIZE,d1 blt.s .skip add.w d1,d1 add.w d1,d1 lea pd_CircleInfos(a6),a1 move.l -MIN_CIRCLE_SIZE*4(a1,d1.w),a1 move.l pd_CurrPlanesPtr(a6),a0 move.l cp_BgImage(a4),a2 move.l cp_LastLastPosOffset(a4),d0 sub.l #(BLENDVIEW_HEIGHT/2)*(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES+(BLENDVIEW_WIDTH/2)/8,d0 adda.l d0,a0 adda.l d0,a2 move.w ci_RightBltSize(a1),d3 beq.s .skipright PUSHM a0/a2 move.w ci_RightBgOffset(a1),d0 adda.w d0,a0 adda.w d0,a2 move.w ci_RightWidth(a1),d1 sub.w d1,d3 add.w d3,d3 move.w d3,d0 add.w d3,d3 add.w d0,d3 add.w d1,d3 ; * BLENDVIEW_PLANES moveq.l #(BLENDVIEW_WIDTH/16),d0 sub.w d1,d0 add.w d0,d0 lea bltcon0(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A,0,0,(a3)+ ;BLTCON_SET D,0,0,0,(a3)+ move.l d5,(a3)+ ; bltafwm/bltalwm move.w d0,bltamod(a5) move.w d0,bltdmod(a5) addq.l #8,a3 move.l a2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize POPM .skipright move.w ci_TopBottomBltSize(a1),d3 beq.s .skiptopbottom PUSHM a0/a2 move.w ci_TopBgOffset(a1),d0 adda.w d0,a0 adda.w d0,a2 move.w ci_TopWidth(a1),d1 sub.w d1,d3 add.w d3,d3 move.w d3,d0 add.w d3,d3 add.w d0,d3 add.w d1,d3 ; * BLENDVIEW_PLANES moveq.l #(BLENDVIEW_WIDTH/16),d0 sub.w d1,d0 add.w d0,d0 ; modulo lea bltcon0(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A,0,0,(a3)+ ;BLTCON_SET D,0,0,0,(a3)+ move.l d5,(a3)+ ; bltafwm/bltalwm move.w d0,bltamod(a5) move.w d0,bltdmod(a5) addq.l #8,a3 move.l a2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize moveq.l #0,d0 move.w ci_TopBottomOffsetAdv(a1),d0 add.w #5*(BLENDVIEW_WIDTH/8),d0 adda.l d0,a0 adda.l d0,a2 lea bltapt(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF move.l a2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize POPM .skiptopbottom move.w ci_LeftBltSize(a1),d3 beq.s .skipleft move.w ci_LeftBgOffset(a1),d0 adda.w d0,a0 adda.w d0,a2 move.w ci_LeftWidth(a1),d1 sub.w d1,d3 add.w d3,d3 move.w d3,d0 add.w d3,d3 add.w d0,d3 add.w d1,d3 ; * BLENDVIEW_PLANES moveq.l #(BLENDVIEW_WIDTH/16),d0 sub.w d1,d0 add.w d0,d0 lea bltcon0(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A,0,0,(a3)+ ;BLTCON_SET D,0,0,0,(a3)+ move.l d5,(a3)+ ; bltafwm/bltalwm move.w d0,bltamod(a5) move.w d0,bltdmod(a5) addq.l #8,a3 move.l a2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize .skipleft .skip lea cp_SIZEOF(a4),a4 dbra d7,.loop rts ;-------------------------------------------------------------------- bln_draw_all_circle_pots: lea pd_CirclePots(a6),a4 moveq.l #NUM_CIRCLE_POTS-1,d7 .loop cmp.w #MIN_CIRCLE_SIZE,cp_Radius(a4) blt.s .skip move.l cp_FgImage(a4),a2 add.l cp_FgOffset(a4),a2 move.l cp_PosOffset(a4),d0 sub.l #(BLENDVIEW_HEIGHT/2)*(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES+(BLENDVIEW_WIDTH/2)/8,d0 move.l pd_CurrPlanesPtr(a6),a0 move.l cp_BgImage(a4),a3 adda.l d0,a0 adda.l d0,a3 move.w cp_CircleShift(a4),pd_CircleShift(a6) move.l cp_CircleInfo(a4),a1 PUSHM d7 pea .retadd(pc) move.l cp_PaintRoutine(a4),-(sp) rts .retadd POPM .skip lea cp_SIZEOF(a4),a4 dbra d7,.loop rts ;-------------------------------------------------------------------- bln_do_all_circle_calc_updates: move.w pd_BeatRadAdd(a6),d0 sub.w pd_FrameInc(a6),d0 bge.s .noclip moveq.l #0,d0 .noclip move.w d0,pd_BeatRadAdd(a6) lea pd_CirclePots(a6),a4 moveq.l #NUM_CIRCLE_POTS-1,d7 .loop move.w cp_LastRadius(a4),cp_LastLastRadius(a4) move.l cp_LastPosOffset(a4),cp_LastLastPosOffset(a4) move.w cp_Radius(a4),cp_LastRadius(a4) move.l cp_PosOffset(a4),cp_LastPosOffset(a4) move.w pd_FrameInc(a6),d0 sub.w d0,cp_TimeLeft(a4) bcc.s .nonoewscriptrout PUTMSG 10,<"Potscript %p">,cp_PotScriptPtr(a4) move.l cp_PotScriptPtr(a4),d1 beq.s .nonoewscriptrout move.l d1,a0 move.w (a0)+,d1 beq.s .nonoewscriptrout add.w d1,cp_TimeLeft(a4) move.w (a0)+,d0 lea -2(a0,d0.w),a1 move.l a0,cp_PotScriptPtr(a4) jsr (a1) .nonoewscriptrout move.l cp_FrameRoutine(a4),d0 beq.s .noframeroutine move.l d0,a0 jsr (a0) .noframeroutine cmp.w #MIN_CIRCLE_SIZE,cp_Radius(a4) blt.s .skip move.w cp_FgRelPosX(a4),d0 move.w d0,d1 moveq.l #15,d2 move.w d0,d3 add.w d2,d3 asr.w #4,d3 add.w d3,d3 neg.w d0 and.w d0,d2 ror.w #4,d2 move.w d2,cp_CircleShift(a4) add.w d1,d1 ext.l d1 move.w cp_FgRelPosY(a4),d0 move.w d0,d2 muls #BLENDVIEW_WIDTH*2,d0 add.l d0,d1 move.l d1,cp_FgTCOffset(a4) muls #(BLENDVIEW_WIDTH/8)*BLENDVIEW_PLANES,d2 ext.l d3 add.l d3,d2 move.l d2,cp_FgOffset(a4) move.l cp_CircleInfo(a4),a1 move.w ci_LRIAreaY(a1),cp_LRIAreaY(a4) lea cp_SIZEOF(a4),a4 dbra d7,.loop rts .skip moveq.l #(BLENDVIEW_HEIGHT/2),d0 sub.w cp_Radius(a4),d0 move.w d0,cp_LRIAreaY(a4) lea cp_SIZEOF(a4),a4 dbra d7,.loop rts ;-------------------------------------------------------------------- bln_do_all_circle_ham_fixups: lea pd_CirclePots(a6),a4 moveq.l #7,d0 moveq.l #6,d1 moveq.l #5,d2 moveq.l #4,d3 moveq.l #3,d4 moveq.l #2,d5 moveq.l #1,d6 moveq.l #NUM_CIRCLE_POTS-1,d7 .loop cmp.w #MIN_CIRCLE_SIZE,cp_Radius(a4) blt.s .skip move.l cp_CircleInfo(a4),a1 move.l cp_CircleFixupRoutine(a4),a3 move.l pd_CurrPlanesPtr(a6),a0 add.l cp_PosOffset(a4),a0 swap d7 jsr (a3) swap d7 .skip lea cp_SIZEOF(a4),a4 dbra d7,.loop rts ;-------------------------------------------------------------------- bln_do_blitter_to_copper_fixup: move.w pd_LineFixToggle(a6),d0 eor.w #BLENDVIEW_HEIGHT*2,d0 move.l pd_LineFix1Array(a6),a0 adda.w d0,a0 move.l pd_LastCopListPtr(a6),a1 adda.w pd_CopperChunkyOffset(a6),a1 FIRST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_linecopy,(a4)+ move.l a0,(a4)+ move.l a1,(a4)+ REPT 7 addq.l #4,a1 lea BLENDVIEW_HEIGHT*4(a0),a0 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_linecopy_more,(a4)+ move.l a0,(a4)+ move.l a1,(a4)+ ENDR clr.l (a3) rts .bq_linecopy BLTCON_SET AD,BLT_A,0,0 moveq.l #-1,d0 move.l d0,bltafwm(a5) moveq.l #COP_INST_PER_HOLE_LINE*4-2,d0 move.l d0,bltamod(a5) .bq_linecopy_more move.l (a0)+,bltapt(a5) move.l (a0)+,bltdpt(a5) move.w #(BLENDVIEW_HEIGHT<<6)|1,bltsize(a5) rts ;-------------------------------------------------------------------- bln_draw_stenciled_circle: moveq.l #0,d7 moveq.l #0,d5 subq.w #1,d5 move.w ci_RightBltSize(a1),d3 beq.s .skipright PUSHM a0/a2-a4 addq.w #1,d3 move.w ci_RightBgOffset(a1),d0 lea -2(a0,d0.w),a0 ; target lea -2(a3,d0.w),a3 ; source adda.w ci_RightFgOffset(a1),a2 subq.w #2,a2 ; mask in A, source in B, background in C moveq.l #(BLENDVIEW_WIDTH/16)*BLENDVIEW_PLANES-1,d0 sub.w ci_RightWidth(a1),d0 add.w d0,d0 move.l ci_RightMask(a1),d2 subq.l #2,d2 moveq.l #(BLENDVIEW_WIDTH/8),d6 lea bltcon0(a5),a4 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET ABCD,((BLT_A&BLT_B)|(~BLT_A&BLT_C)),0,(a4)+ move.w pd_CircleShift(a6),(a4)+ ; bltcon1 move.l d5,(a4)+ ; bltafwm/bltalwm move.w d0,bltcmod(a5) move.w d0,bltbmod(a5) move.w #-2,bltamod(a5) move.w d0,bltdmod(a5) move.l a3,(a4)+ ; bltcpt move.l a2,(a4)+ ; bltbpt move.l d2,(a4)+ ; bltapt move.l a0,(a4)+ ; bltdpt move.w d3,(a4)+ ; bltsize REPT 5 adda.l d6,a0 adda.l d6,a2 adda.l d6,a3 lea bltcpt(a5),a4 BLTHOGON BLTWAIT BLTHOGOFF move.l a3,(a4)+ ; bltcpt move.l a2,(a4)+ ; bltbpt move.l d2,(a4)+ ; bltapt move.l a0,(a4)+ ; bltdpt move.w d3,(a4)+ ; bltsize ENDR POPM .skipright move.w ci_InnerBltSize(a1),d3 beq.s .skipinner PUSHM a0/a2-a3 moveq.l #0,d0 add.w ci_InnerBgOffset(a1),a0 subq.w #2,a0 move.w ci_InnerBltMod(a1),d0 adda.w ci_InnerFgOffset(a1),a2 subq.w #2,a2 lea bltcon0(a5),a3 tst.w ci_LeftBltSize(a1) beq.s .damnitnoleft move.l #BLTEN_AD|BLT_A,d4 or.w pd_CircleShift(a6),d4 swap d4 BLTHOGON BLTWAIT BLTHOGOFF move.l d4,(a3)+ ; bltcon0 move.w d5,(a3)+ ; bltafwm move.w d5,(a3)+ ; bltalwm move.w d0,bltamod(a5) move.w d0,bltdmod(a5) addq.l #8,a3 move.l a2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize bra.s .continner .damnitnoleft BLTHOGON BLTWAIT BLTCON0_SET BCD,((BLT_A&BLT_B)|(~BLT_A&BLT_C)),0,(a3)+ move.w pd_CircleShift(a6),(a3)+ ; bltcon1 move.l d5,(a3)+ ; bltafwm/bltalwm move.w d5,bltadat(a5) move.w d0,bltcmod(a5) move.w d0,bltbmod(a5) move.w d0,bltdmod(a5) move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt addq.l #4,a3 ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize .continner POPM bsr bln_do_circle_tc_fixup .skipinner move.w ci_TopBottomBltSize(a1),d3 beq.s .skiptopbottom PUSHM a0/a2-a4 addq.w #1,d3 move.w ci_TopBgOffset(a1),d0 lea -2(a0,d0.w),a0 ; target lea -2(a3,d0.w),a3 ; source adda.w ci_TopFgOffset(a1),a2 subq.w #2,a2 ; mask in A, source in B, background in C moveq.l #(BLENDVIEW_WIDTH/16)*BLENDVIEW_PLANES-1,d0 sub.w ci_TopWidth(a1),d0 add.w d0,d0 ; modulo move.l ci_TopMask(a1),d2 subq.l #2,d2 moveq.l #(BLENDVIEW_WIDTH/8),d6 lea bltcon0(a5),a4 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET ABCD,((BLT_A&BLT_B)|(~BLT_A&BLT_C)),0,(a4)+ move.w pd_CircleShift(a6),(a4)+ ; bltcon1 move.l d5,(a4)+ ; bltafwm/bltalwm move.w d0,bltcmod(a5) move.w d0,bltbmod(a5) move.w #-2,bltamod(a5) move.w d0,bltdmod(a5) move.l a3,(a4)+ ; bltcpt move.l a2,(a4)+ ; bltbpt move.l d2,(a4)+ ; bltapt move.l a0,(a4)+ ; bltdpt move.w d3,(a4)+ ; bltsize REPT 5 adda.l d6,a0 adda.l d6,a2 adda.l d6,a3 lea bltcpt(a5),a4 BLTHOGON BLTWAIT BLTHOGOFF move.l a3,(a4)+ ; bltcpt move.l a2,(a4)+ ; bltbpt move.l d2,(a4)+ ; bltapt move.l a0,(a4)+ ; bltdpt move.w d3,(a4)+ ; bltsize ENDR moveq.l #0,d0 move.w ci_TopBottomOffsetAdv(a1),d0 adda.l d0,a0 adda.l d0,a2 adda.l d0,a3 moveq.l #0,d0 move.w ci_TopWidth(a1),d1 add.w d1,d1 move.w ci_TopBottomMaskSize(a1),d0 sub.w d1,d0 add.l d0,d2 neg.w d1 add.w d1,d1 subq.w #2,d1 lea bltcpt(a5),a4 BLTHOGON BLTWAIT BLTHOGOFF move.w d1,bltamod(a5) move.l a3,(a4)+ ; bltcpt move.l a2,(a4)+ ; bltbpt move.l d2,(a4)+ ; bltapt move.l a0,(a4)+ ; bltdpt move.w d3,(a4)+ ; bltsize REPT 5 adda.l d6,a0 adda.l d6,a2 adda.l d6,a3 lea bltcpt(a5),a4 BLTHOGON BLTWAIT BLTHOGOFF move.l a3,(a4)+ ; bltcpt move.l a2,(a4)+ ; bltbpt move.l d2,(a4)+ ; bltapt move.l a0,(a4)+ ; bltdpt move.w d3,(a4)+ ; bltsize ENDR POPM .skiptopbottom move.w ci_LeftBltSize(a1),d3 beq.s .skipleft PUSHM a4 addq.w #1,d3 move.w ci_LeftBgOffset(a1),d0 lea -2(a0,d0.w),a0 ; target lea -2(a3,d0.w),a3 ; source adda.w ci_LeftFgOffset(a1),a2 subq.w #2,a2 ; mask in A, source in B, background in C moveq.l #(BLENDVIEW_WIDTH/16)*BLENDVIEW_PLANES-1,d0 sub.w ci_LeftWidth(a1),d0 add.w d0,d0 move.l ci_LeftMask(a1),d2 subq.l #2,d2 moveq.l #(BLENDVIEW_WIDTH/8),d6 lea bltcon0(a5),a4 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET ABCD,((BLT_A&BLT_B)|(~BLT_A&BLT_C)),0,(a4)+ move.w pd_CircleShift(a6),(a4)+ ; bltcon1 move.l d5,(a4)+ ; bltafwm/bltalwm move.w d0,bltcmod(a5) move.w d0,bltbmod(a5) move.w #-2,bltamod(a5) move.w d0,bltdmod(a5) move.l a3,(a4)+ ; bltcpt move.l a2,(a4)+ ; bltbpt move.l d2,(a4)+ ; bltapt move.l a0,(a4)+ ; bltdpt move.w d3,(a4)+ ; bltsize REPT 5 adda.l d6,a0 adda.l d6,a2 adda.l d6,a3 lea bltcpt(a5),a4 BLTHOGON BLTWAIT BLTHOGOFF move.l a3,(a4)+ ; bltcpt move.l a2,(a4)+ ; bltbpt move.l d2,(a4)+ ; bltapt move.l a0,(a4)+ ; bltdpt move.w d3,(a4)+ ; bltsize ENDR POPM .skipleft tst.l d7 beq.s bln_do_circle_tc_fixup rts ;-------------------------------------------------------------------- bln_do_circle_tc_fixup: PUSHM a0/a2-a3 move.w cp_LineFixTopYOffset(a4),d1 add.w pd_LineFixToggle(a6),d1 move.l cp_FgTCImage(a4),a2 adda.l cp_FgTCOffset(a4),a2 move.l pd_LineFix1Array(a6),a0 adda.w d1,a0 move.l ci_LeftTCCode(a1),a3 jsr (a3) move.l cp_BgTCImage(a4),a2 move.l cp_InvertedOffset(a4),d0 beq.s .notinverted add.l cp_FgTCOffset-cp_SIZEOF(a4),d0 add.l d0,a2 bra.s .invcont .notinverted add.l cp_PosTCOffset(a4),a2 .invcont move.l pd_LineFix2Array(a6),a0 adda.w d1,a0 move.l ci_RightTCCode(a1),a3 jsr (a3) POPM moveq.l #1,d7 rts ;-------------------------------------------------------------------- bln_draw_stenciled_circle_invert: moveq.l #0,d5 subq.w #1,d5 move.w ci_RightBltSize(a1),d3 beq.s .skipright PUSHM a0/a2 addq.w #1,d3 move.w ci_RightBgOffset(a1),d0 lea -2(a0,d0.w),a0 ; target adda.w ci_RightFgOffset(a1),a2 subq.w #2,a2 ; mask in A, source in B, background in C moveq.l #(BLENDVIEW_WIDTH/16)*BLENDVIEW_PLANES-1,d0 sub.w ci_RightWidth(a1),d0 add.w d0,d0 move.l ci_RightMask(a1),d2 subq.l #2,d2 moveq.l #(BLENDVIEW_WIDTH/8),d6 lea bltcon0(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET ABCD,((BLT_A&BLT_B)|(~BLT_A&BLT_C)),0,(a3)+ move.w pd_CircleShift(a6),(a3)+ ; bltcon1 move.l d5,(a3)+ ; bltafwm/bltalwm move.w d0,bltcmod(a5) move.w d0,bltbmod(a5) move.w #-2,bltamod(a5) move.w d0,bltdmod(a5) move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt move.l d2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize REPT 5 adda.l d6,a0 adda.l d6,a2 lea bltcpt(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt move.l d2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize ENDR POPM .skipright move.w ci_TopBottomBltSize(a1),d3 beq.s .skiptopbottom PUSHM a0/a2 addq.w #1,d3 move.w ci_TopBgOffset(a1),d0 lea -2(a0,d0.w),a0 ; target adda.w ci_TopFgOffset(a1),a2 subq.w #2,a2 ; mask in A, source in B, background in C moveq.l #(BLENDVIEW_WIDTH/16)*BLENDVIEW_PLANES-1,d0 sub.w ci_TopWidth(a1),d0 add.w d0,d0 ; modulo move.l ci_TopMask(a1),d2 subq.l #2,d2 moveq.l #(BLENDVIEW_WIDTH/8),d6 lea bltcon0(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET ABCD,((BLT_A&BLT_B)|(~BLT_A&BLT_C)),0,(a3)+ move.w pd_CircleShift(a6),(a3)+ ; bltcon1 move.l d5,(a3)+ ; bltafwm/bltalwm move.w d0,bltcmod(a5) move.w d0,bltbmod(a5) move.w #-2,bltamod(a5) move.w d0,bltdmod(a5) move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt move.l d2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize REPT 5 adda.l d6,a0 adda.l d6,a2 lea bltcpt(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt move.l d2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize ENDR moveq.l #0,d0 move.w ci_TopBottomOffsetAdv(a1),d0 adda.l d0,a0 adda.l d0,a2 moveq.l #0,d0 move.w ci_TopWidth(a1),d1 add.w d1,d1 move.w ci_TopBottomMaskSize(a1),d0 sub.w d1,d0 add.l d0,d2 neg.w d1 add.w d1,d1 subq.w #2,d1 lea bltcpt(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF move.w d1,bltamod(a5) move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt move.l d2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize REPT 5 adda.l d6,a0 adda.l d6,a2 lea bltcpt(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt move.l d2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize ENDR POPM .skiptopbottom move.w ci_LeftBltSize(a1),d3 beq.s .skipleft PUSHM a0/a2 addq.w #1,d3 move.w ci_LeftBgOffset(a1),d0 lea -2(a0,d0.w),a0 ; target adda.w ci_LeftFgOffset(a1),a2 subq.w #2,a2 ; mask in A, source in B, background in C moveq.l #(BLENDVIEW_WIDTH/16)*BLENDVIEW_PLANES-1,d0 sub.w ci_LeftWidth(a1),d0 add.w d0,d0 move.l ci_LeftMask(a1),d2 subq.l #2,d2 moveq.l #(BLENDVIEW_WIDTH/8),d6 lea bltcon0(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET ABCD,((BLT_A&BLT_B)|(~BLT_A&BLT_C)),0,(a3)+ move.w pd_CircleShift(a6),(a3)+ ; bltcon1 move.l d5,(a3)+ ; bltafwm/bltalwm move.w d0,bltcmod(a5) move.w d0,bltbmod(a5) move.w #-2,bltamod(a5) move.w d0,bltdmod(a5) move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt move.l d2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize REPT 5 adda.l d6,a0 adda.l d6,a2 lea bltcpt(a5),a3 BLTHOGON BLTWAIT BLTHOGOFF move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt move.l d2,(a3)+ ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize ENDR POPM .skipleft move.w ci_InnerBltSize(a1),d3 beq.s .skipinner moveq.l #0,d0 add.w ci_InnerBgOffset(a1),a0 subq.w #2,a0 move.w ci_InnerBltMod(a1),d0 adda.w ci_InnerFgOffset(a1),a2 subq.w #2,a2 lea bltcon0(a5),a3 BLTHOGON BLTWAIT BLTCON0_SET BCD,((BLT_A&BLT_B)|(~BLT_A&BLT_C)),0,(a3)+ move.w pd_CircleShift(a6),(a3)+ ; bltcon1 move.l d5,(a3)+ ; bltafwm/bltalwm move.w d5,bltadat(a5) move.w d0,bltcmod(a5) move.w d0,bltbmod(a5) move.w d0,bltdmod(a5) move.l a0,(a3)+ ; bltcpt move.l a2,(a3)+ ; bltbpt addq.l #4,a3 ; bltapt move.l a0,(a3)+ ; bltdpt move.w d3,(a3)+ ; bltsize .skipinner bsr bln_do_circle_tc_fixup rts ;-------------------------------------------------------------------- bln_draw_and_move_bars: lea pd_Bars(a6),a1 move.l pd_CurrPlanesPtr(a6),a2 move.l pd_OriginalImage3(a6),a3 move.l pd_OriginalImage2(a6),a4 move.l pd_CurrCopListPtr(a6),a0 adda.w pd_CopperChunkyOffset(a6),a0 move.l a0,d4 move.l pd_TrueColor16Image(a6),a0 move.l pd_TrueColor16Image2(a6),d2 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A&~BLT_C,0,0 move.l #-1,bltafwm(a5) ; also fills bltalwm move.w #$8000,bltcdat(a5) moveq.l #NUM_BARS-1,d7 moveq.l #NUM_BARS,d5 .loop subq.w #1,bd_Delay(a1) bpl .skip move.w bd_BarPos(a1),d1 bmi.s .noendpos subq.w #1,bd_EndPosCount(a1) bpl.s .noendpos subq.w #1,d5 bra .skip .noendpos move.w #BLENDVIEW_HEIGHT,d3 add.w d1,d3 ble .skipmove move.w bd_LastLastBottomPos(a1),bd_LastLastLastBottomPos(a1) move.w bd_LastBottomPos(a1),bd_LastLastBottomPos(a1) move.w d3,bd_LastBottomPos(a1) move.l a0,-(sp) lsl.w #6,d3 addq.w #1,d3 neg.w d1 move.w d1,d6 mulu #(BLENDVIEW_WIDTH/8)*BLENDIMG_PLANES,d1 lea (a3,d1.l),a0 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A&~BLT_C,0,0 move.l #(((BLENDIMG_WIDTH*BLENDIMG_PLANES-16)/8)<<16)|((BLENDVIEW_WIDTH-16)/8),bltamod(a5) move.l a0,bltapt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) mulu #BLOCKS_WIDTH*4,d6 REPT 2 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 lea (BLENDVIEW_WIDTH/8)(a0),a0 BLTHOGON BLTWAIT BLTHOGOFF move.l a0,bltapt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) ENDR lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 lea (BLENDVIEW_WIDTH/8)(a0),a0 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET AD,BLT_A|BLT_C,0 move.l a0,bltapt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) REPT 2 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 lea (BLENDVIEW_WIDTH/8)(a0),a0 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A&~BLT_C,0,0 move.l a0,bltapt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) ENDR suba.l #5*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT,a2 move.w bd_LastBottomPos(a1),d0 move.w bd_LastLastLastBottomPos(a1),d1 sub.w d0,d1 ble.s .noclr move.w d3,-(sp) move.w #BLENDVIEW_HEIGHT,d3 sub.w d0,d3 lsl.w #6,d3 addq.w #1,d3 move.l d2,a0 move.w d0,d1 mulu #(BLENDVIEW_WIDTH/16)*2,d1 adda.w d1,a0 move.w d0,d1 mulu #COP_INST_PER_BARS_LINE*4,d1 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET AD,BLT_A,0 move.l #(((BLENDVIEW_WIDTH/16)*2-2)<<16)|(COP_INST_PER_BARS_LINE*4-2),bltamod(a5) move.l a0,bltapt(a5) move.l d4,a0 adda.w d1,a0 move.l a0,bltdpt(a5) move.w d3,bltsize(a5) move.w d0,d1 mulu #(BLENDVIEW_WIDTH/8),d0 mulu #(BLENDIMG_WIDTH/8)*BLENDIMG_PLANES,d1 lea (a2,d0.l),a0 adda.l d1,a4 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A&~BLT_C,0,0 move.l #(((BLENDIMG_WIDTH*BLENDIMG_PLANES-16)/8)<<16)|((BLENDVIEW_WIDTH-16)/8),bltamod(a5) move.l a4,bltapt(a5) move.l a0,bltdpt(a5) move.w d3,bltsize(a5) REPT 2 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a0),a0 lea (BLENDVIEW_WIDTH/8)(a4),a4 BLTHOGON BLTWAIT BLTHOGOFF move.l a4,bltapt(a5) move.l a0,bltdpt(a5) move.w d3,bltsize(a5) ENDR lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a0),a0 lea (BLENDVIEW_WIDTH/8)(a4),a4 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET AD,BLT_A|BLT_C,0 move.l a4,bltapt(a5) move.l a0,bltdpt(a5) move.w d3,bltsize(a5) REPT 2 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a0),a0 lea (BLENDVIEW_WIDTH/8)(a4),a4 BLTHOGON BLTWAIT BLTHOGOFF BLTCON_SET AD,BLT_A&~BLT_C,0,0 move.l a4,bltapt(a5) move.l a0,bltdpt(a5) move.w d3,bltsize(a5) ENDR lea -5*(BLENDVIEW_WIDTH/8)(a4),a4 suba.l d1,a4 suba.l #5*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT,a0 move.w (sp)+,d3 .noclr move.l (sp),a0 adda.l d6,a0 move.l bd_BarSpeed(a1),d6 add.l d6,bd_BarPos(a1) bmi.s .down move.l #$4000,bd_BarPos(a1) neg.l d6 asr.l #1,d6 move.l d6,d1 asr.l #2,d1 sub.l d1,d6 .down add.l #2000,d6 move.l d6,bd_BarSpeed(a1) BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET AD,BLT_A,0 move.l #(((BLENDVIEW_WIDTH/16)*2-2)<<16)|(COP_INST_PER_BARS_LINE*4-2),bltamod(a5) move.l a0,bltapt(a5) move.l d4,bltdpt(a5) move.w d3,bltsize(a5) move.l (sp)+,a0 bra.s .skip .skipmove move.l bd_BarSpeed(a1),d6 add.l d6,bd_BarPos(a1) add.l #2000,d6 move.l d6,bd_BarSpeed(a1) .skip addq.l #2,a2 addq.l #2,a3 addq.l #2,a4 addq.l #2,a0 addq.l #2,d2 addq.l #4,d4 lea bd_SIZEOF(a1),a1 dbra d7,.loop move.l d5,d0 rts ;-------------------------------------------------------------------- bln_prepare_tc16_data: move.w #((BLENDIMG_WIDTH/16)*BLENDIMG_HEIGHT)-1,d7 moveq.l #16*2,d0 .loop move.w (a0),(a1)+ adda.w d0,a0 dbra d7,.loop rts ;-------------------------------------------------------------------- bln_prepare_striped_image: move.l pd_CurrPlanesPtr(a6),a2 move.w #(BLENDVIEW_WIDTH>>4)|(BLENDVIEW_HEIGHT<<6),d3 moveq.l #(BLENDVIEW_WIDTH/16)-1,d7 moveq.l #-1,d0 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET AD,BLT_A&~BLT_C,0 move.l d0,bltafwm(a5) move.w #(BLENDVIEW_WIDTH*BLENDVIEW_PLANES-BLENDVIEW_WIDTH)/8,bltamod(a5) move.w #(BLENDVIEW_WIDTH-BLENDVIEW_WIDTH)/8,bltdmod(a5) move.w #$8000,bltcdat(a5) move.l a0,bltapt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) REPT 2 lea (BLENDVIEW_WIDTH/8)(a0),a0 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 BLTHOGON BLTWAIT BLTHOGOFF move.l a0,bltapt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) ENDR lea (BLENDVIEW_WIDTH/8)(a0),a0 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET AD,BLT_A|BLT_C,0 move.l a0,bltapt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) lea (BLENDVIEW_WIDTH/8)(a0),a0 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET AD,BLT_A&~BLT_C,0 move.l a0,bltapt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) lea (BLENDVIEW_WIDTH/8)(a0),a0 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 BLTHOGON BLTWAIT BLTHOGOFF move.l a0,bltapt(a5) move.l a2,bltdpt(a5) move.w d3,bltsize(a5) move.l pd_CurrCopListPtr(a6),a0 adda.w pd_CopperChunkyOffset(a6),a0 move.w #(16>>4)|(BLENDVIEW_HEIGHT<<6),d3 moveq.l #(BLENDVIEW_WIDTH/16)-1,d7 .xloop BLTHOGON BLTWAIT BLTHOGOFF BLTCON0_SET AD,BLT_A,0 move.l #(((BLENDVIEW_WIDTH/16)*2-2)<<16)|(COP_INST_PER_BARS_LINE*4-2),bltamod(a5) move.l a1,bltapt(a5) move.l a0,bltdpt(a5) move.w d3,bltsize(a5) addq.l #2,a1 addq.l #4,a0 dbra d7,.xloop rts ;-------------------------------------------------------------------- bln_load_part_sequences: move.l a0,a2 move.w (a0)+,d5 move.w (a0)+,d6 move.l (a0)+,d4 lea pd_Parts(a6),a1 moveq.l #BLOCKS_HEIGHT-1,d7 .loop move.w (a0)+,pbi_Phase(a1) move.w (a0)+,d0 lea (a2,d0.w),a3 moveq.l #0,d0 move.b (a3)+,d0 move.l a3,pbi_SequencePtr(a1) move.w pbi_YPos(a1),d1 PUSHM a0-a2/d4-d7 move.l d4,a3 move.l (a6,d5.w),a0 move.l (a6,d6.w),a2 move.l a0,pbi_OriginalImage(a1) move.l a2,pbi_TrueColorImage(a1) jsr (a3) POPM addq.w #1,d1 lea pbi_SIZEOF(a1),a1 dbra d7,.loop rts ;-------------------------------------------------------------------- bln_handle_parts: lea pd_Parts(a6),a1 moveq.l #BLOCKS_HEIGHT-1,d7 .loop tst.w pbi_Phase(a1) bmi.s .skip add.l #$10000,d7 PUSHM a1/d7 move.l pbi_PalApplyRoutine(a1),a0 jsr (a0) move.l pbi_PalChangeRoutine(a1),a0 jsr (a0) move.w pbi_Phase(a1),d0 move.l pbi_PhaseSequence(a1),a0 move.l (a0,d0.w),a0 addq.w #4,d0 move.w d0,pbi_Phase(a1) jsr (a0) POPM bra.s .skipover .skip addq.w #1,pbi_Phase(a1) .skipover lea pbi_SIZEOF(a1),a1 dbra d7,.loop swap d7 rts ;-------------------------------------------------------------------- bln_load_next_seq_part_in: move.l pbi_SequencePtr(a1),a0 moveq.l #0,d0 move.w d0,pbi_Phase(a1) move.b (a0)+,d0 bmi.s .kill move.l a0,pbi_SequencePtr(a1) move.l pbi_OriginalImage(a1),a0 move.l pbi_TrueColorImage(a1),a2 move.w pbi_YPos(a1),d1 bra bln_load_new_block_fade_in .kill move.w #$8000,pbi_Phase(a1) rts ;-------------------------------------------------------------------- bln_load_next_seq_part_out_in: move.l pbi_SequencePtr(a1),a0 moveq.l #0,d0 move.w d0,pbi_Phase(a1) move.b (a0)+,d0 bmi.s .kill move.l a0,pbi_SequencePtr(a1) move.l pbi_OriginalImage(a1),a0 move.l pbi_TrueColorImage(a1),a2 move.w pbi_YPos(a1),d1 bra bln_load_new_block_fade_out_and_in .kill move.w #$8000,pbi_Phase(a1) rts ;-------------------------------------------------------------------- bln_load_new_block_fade_in: move.l a2,pbi_LastTrueColorImage(a1) add.w d0,d0 add.w d0,d0 ; calculate screen offset move.w d1,d2 mulu #(BLENDVIEW_WIDTH/8)*PART_HEIGHT,d2 move.l d2,d3 add.w d0,d2 move.l d2,pbi_ScreenOffset(a1) add.w d3,d3 move.l d3,d2 add.w d3,d2 add.w d3,d2 add.w d0,d2 adda.l d2,a0 move.l a0,pbi_SourceImgPtr(a1) ; init colors for fade-in lea pbi_TargetColors(a1),a3 lea bln_images_palette(pc),a0 moveq.l #0,d2 moveq.l #7-1,d7 .primcloop move.w d2,pbi_CurrentColors-pbi_TargetColors(a3) move.w (a0)+,(a3)+ dbra d7,.primcloop moveq.l #0,d3 move.w d0,d3 lsl.w #4,d3 move.w d1,d2 mulu #BLENDIMG_WIDTH*PART_HEIGHT*2,d2 add.l d3,d2 adda.l d2,a2 ; x*2+y*320*2 moveq.l #0,d2 moveq.l #PART_HEIGHT-1,d7 .edgeloop move.w d2,pbi_CurrentColors-pbi_TargetColors(a3) move.w (a2),(a3)+ lea BLENDIMG_WIDTH*2(a2),a2 dbra d7,.edgeloop ; calculate copper edge offset move.w pbi_Copper7Offset(a1),d2 add.w d0,d2 add.w d0,d2 ; x * 8 add.w #(7+1)*4,d2 move.w d2,pbi_CopperEdgeOffset(a1) move.l #bln_fade_in_sequence,pbi_PhaseSequence(a1) move.l #bln_palette_step_up,pbi_PalChangeRoutine(a1) lea bln_palette_apply(pc),a0 cmp.w #5,d1 bne.s .nofix lea bln_palette_apply_fix5(pc),a0 .nofix move.l a0,pbi_PalApplyRoutine(a1) rts ;-------------------------------------------------------------------- bln_load_new_block_fade_out_and_in: add.w d0,d0 add.w d0,d0 ; calculate screen offset move.w d1,d2 mulu #(BLENDVIEW_WIDTH/8)*PART_HEIGHT,d2 move.l d2,d3 add.w d0,d2 move.l d2,pbi_ScreenOffset(a1) add.w d3,d3 move.l d3,d2 add.w d3,d2 add.w d3,d2 add.w d0,d2 adda.l d2,a0 move.l a0,pbi_SourceImgPtr(a1) moveq.l #0,d3 move.w d0,d3 lsl.w #4,d3 move.w d1,d2 mulu #BLENDIMG_WIDTH*PART_HEIGHT*2,d2 add.l d3,d2 adda.l d2,a2 ; x*2+y*320*2 ; init new colors for fade-in lea pbi_TargetColors+7*2(a1),a3 moveq.l #PART_HEIGHT-1,d7 .edgeloop2 move.w (a2),(a3)+ lea BLENDIMG_WIDTH*2(a2),a2 dbra d7,.edgeloop2 ; calculate copper edge offset move.w pbi_Copper7Offset(a1),d2 add.w d0,d2 add.w d0,d2 ; x * 8 add.w #(7+1)*4,d2 move.w d2,pbi_CopperEdgeOffset(a1) ; init last colors for fade-out cmp.w #5,d1 bne.s .noreadoutfix bsr bln_palette_readout_fix5 bra.s .contreadoutfix .noreadoutfix bsr bln_palette_readout .contreadoutfix move.l #bln_fade_out_in_sequence,pbi_PhaseSequence(a1) move.l #bln_palette_step_down,pbi_PalChangeRoutine(a1) lea bln_palette_apply(pc),a0 cmp.w #5,d1 bne.s .nofix lea bln_palette_apply_fix5(pc),a0 .nofix move.l a0,pbi_PalApplyRoutine(a1) rts ;-------------------------------------------------------------------- bln_palette_step_up: lea pbi_CurrentColors(a1),a0 move.l pd_ShadeTableXor(a6),a2 moveq.l #(7+PART_HEIGHT)-1,d7 .looppal move.w pbi_TargetColors-pbi_CurrentColors(a0),d0 move.w (a0),d1 eor.w d1,d0 add.w d0,d0 add.w (a2,d0.w),d1 move.w d1,(a0)+ dbra d7,.looppal rts ;-------------------------------------------------------------------- bln_palette_step_down: lea pbi_CurrentColors(a1),a0 move.l pd_ShadeTableSub1(a6),a2 moveq.l #(7+PART_HEIGHT)-1,d7 .looppal move.w (a0),d0 add.w d0,d0 move.w (a2,d0.w),(a0)+ dbra d7,.looppal rts ;-------------------------------------------------------------------- bln_palette_fade_step_to_black: lea pd_EndLogoPalette(a6),a0 move.l pd_ShadeTableSub1(a6),a2 moveq.l #16-1,d7 .loop move.w (a0),d0 add.w d0,d0 move.w (a2,d0.w),(a0)+ dbra d7,.loop rts ;-------------------------------------------------------------------- bln_palette_fade_step_from_white: lea pd_EndLogoPalette(a6),a0 lea bln_endlogo_palette(pc),a1 move.l pd_ShadeTableXor(a6),a2 moveq.l #16-1,d7 .loop move.w (a0),d1 move.w (a1)+,d0 eor.w d1,d0 add.w d0,d0 sub.w (a2,d0.w),d1 move.w d1,(a0)+ dbra d7,.loop rts ;-------------------------------------------------------------------- bln_palette_apply: lea pbi_CurrentColors(a1),a0 move.l pd_CurrCopListPtr(a6),a2 adda.w pbi_Copper7Offset(a1),a2 REPT 7 move.w (a0)+,REPTN*4(a2) ENDR move.l pd_CurrCopListPtr(a6),a2 add.w pbi_CopperEdgeOffset(a1),a2 moveq.l #PART_HEIGHT-1,d7 .loop move.w (a0)+,(a2) lea (20+1)*4(a2),a2 dbra d7,.loop rts ;-------------------------------------------------------------------- bln_palette_apply_fix5: lea pbi_CurrentColors(a1),a0 move.l pd_CurrCopListPtr(a6),a2 adda.w pbi_Copper7Offset(a1),a2 REPT 7 move.w (a0)+,REPTN*4(a2) ENDR move.l pd_CurrCopListPtr(a6),a2 add.w pbi_CopperEdgeOffset(a1),a2 moveq.l #(($100-$52)%PART_HEIGHT)-1,d7 .loop move.w (a0)+,(a2) lea (20+1)*4(a2),a2 dbra d7,.loop addq.w #4,a2 moveq.l #(PART_HEIGHT-(($100-$52)%PART_HEIGHT))-1,d7 .loop2 move.w (a0)+,(a2) lea (20+1)*4(a2),a2 dbra d7,.loop2 rts ;-------------------------------------------------------------------- bln_palette_readout: lea pbi_CurrentColors+7*2(a1),a0 move.l pd_CurrCopListPtr(a6),a2 add.w pbi_CopperEdgeOffset(a1),a2 moveq.l #PART_HEIGHT-1,d7 .loop move.w (a2),(a0)+ lea (20+1)*4(a2),a2 dbra d7,.loop rts ;-------------------------------------------------------------------- bln_palette_readout_fix5: lea pbi_CurrentColors+7*2(a1),a0 move.l pd_CurrCopListPtr(a6),a2 add.w pbi_CopperEdgeOffset(a1),a2 moveq.l #(($100-$52)%PART_HEIGHT)-1,d7 .loop move.w (a2),(a0)+ lea (20+1)*4(a2),a2 dbra d7,.loop addq.w #4,a2 moveq.l #(PART_HEIGHT-(($100-$52)%PART_HEIGHT))-1,d7 .loop2 move.w (a2),(a0)+ lea (20+1)*4(a2),a2 dbra d7,.loop2 rts ;-------------------------------------------------------------------- bln_blit_intro_block_fade_in_0: move.l pbi_SourceImgPtr(a1),a0 move.l pd_CurrPlanesPtr(a6),a2 add.l pbi_ScreenOffset(a1),a2 move.l pbi_TempBuffer(a1),a1 ; copy plane 5 without first line to target screen lea 4*(BLENDIMG_WIDTH/8)(a0),a0 ; p5 lea 4*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 ; p5 SAFE_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_copy_p5_p6,(a4)+ move.l a0,(a4)+ move.l a2,(a4)+ ; copy plane 6 without first line to target screen lea (BLENDIMG_WIDTH/8)(a0),a0 ; p6 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 ; p6 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_copy_p5_p6_more,(a4)+ move.l a0,(a4)+ move.l a2,(a4)+ ; create p5|p6 mask in block temp lea 4*(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 5 (p5|p6) move.l a1,d2 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_merge_p5_p6,(a4)+ move.l a2,(a4)+ lea -1*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 ; p5 move.l a2,(a4)+ move.l a1,(a4)+ ; copy plane 1 without first line to block temp lea -5*(BLENDIMG_WIDTH/8)(a0),a0 ; p1 lea -4*(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 5 (p5|p6) FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_initial_copy,(a4)+ move.l a0,(a4)+ move.l a1,(a4)+ ; copy plane 2/3 without first line to block temp REPT 2 lea (PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 2-3 (p2-p3) lea (BLENDIMG_WIDTH/8)(a0),a0 ; p2-p3 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_copy_more,(a4)+ move.l a0,(a4)+ move.l a1,(a4)+ ENDR ; copy plane 4 (masked) and set first line (color 8) to block temp lea (PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 4 (p4) lea (BLENDIMG_WIDTH/8)(a0),a0 ; p4 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_copy_special,(a4)+ move.l a0,(a4)+ move.l d2,(a4)+ move.l a1,(a4)+ ; fill first line (color 8), clear rest to target screen lea -1*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 ; p4 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_fill_special,(a4)+ move.l a2,(a4)+ ; copy p3 (masked with p5/p6 mask) to target screen lea -(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 3 (p3) lea -1*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 ; p3 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_copy_masked,(a4)+ move.l d2,(a4)+ move.l a1,(a4)+ move.l a2,(a4)+ ; copy p2 (masked with p5/p6 mask) to target screen lea -(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 2 (p2) lea -1*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 ; p2 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_copy_masked_more,(a4)+ move.l d2,(a4)+ move.l a1,(a4)+ move.l a2,(a4)+ lea -(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 1 (p1) lea -1*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 ; p1 LAST_ADD_TO_BLITTER_QUEUE a4,a3 clr.l (a4)+ move.l #.bq_copy_masked_more,(a4)+ move.l d2,(a4)+ move.l a1,(a4)+ move.l a2,(a4)+ rts .bq_initial_copy BLTCON0_SET AD,BLT_A,0 move.l #$7fffffff,bltafwm(a5) move.l #((BLENDVIEW_WIDTH*BLENDIMG_PLANES-PART_WIDTH)/8)<<16,bltamod(a5) .bq_copy_more lea bltapt(a5),a1 move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_copy_special BLTCON0_SET BCD,BLT_A|(BLT_C&BLT_B),0 move.l #$80000000,bltafwm(a5) move.l #((BLENDVIEW_WIDTH*BLENDIMG_PLANES-PART_WIDTH)/8)<<16,bltcmod(a5) move.w #$ffff,bltadat(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt move.l (a0)+,(a1)+ ; bltbpt addq.l #4,a1 ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_copy_p5_p6 BLTCON_SET AD,BLT_A,0,0 move.l #$7fffffff,bltafwm(a5) move.l #(((BLENDVIEW_WIDTH*BLENDIMG_PLANES-PART_WIDTH)/8)<<16)|((BLENDVIEW_WIDTH-PART_WIDTH)/8),bltamod(a5) .bq_copy_p5_p6_more lea bltapt(a5),a1 move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_merge_p5_p6 BLTCON0_SET ACD,BLT_A|BLT_C,0 moveq.l #((BLENDVIEW_WIDTH-PART_WIDTH)/8),d0 move.w d0,bltcmod(a5) swap d0 move.l d0,bltamod(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt addq.l #4,a1 ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_fill_special BLTCON0_SET D,BLT_A,0 move.w #$ffff,bltadat(a5) move.l (a0)+,bltdpt(a5) move.w #((BLENDVIEW_WIDTH-PART_WIDTH)/8),bltdmod(a5) move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),bltsize(a5) rts .bq_copy_masked BLTCON0_SET ACD,BLT_A&(~BLT_C),0 moveq.l #-1,d0 move.l d0,bltafwm(a5) moveq.l #0,d0 move.w d0,bltcmod(a5) move.w d0,bltamod(a5) .bq_copy_masked_more lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt addq.l #4,a1 ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts ;-------------------------------------------------------------------- bln_blit_intro_block_fade_in_1: move.l pd_LastPlanesPtr(a6),a0 move.l pd_CurrPlanesPtr(a6),a2 move.l pbi_ScreenOffset(a1),d0 adda.l d0,a0 adda.l d0,a2 move.l pbi_TempBuffer(a1),a1 ; copy plane 5 without first line to target screen lea 4*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p5 lea 4*(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 ; p5 SAFE_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_copy_p5_p6,(a4)+ move.l a0,(a4)+ move.l a2,(a4)+ ; copy plane 6 without first line to target screen lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p6 lea (BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT(a2),a2 ; p6 LAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_copy_p5_p6_more,(a4)+ move.l a0,(a4)+ move.l a2,(a4)+ lea -2*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p4 lea -2*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p4 bra.s bln_blit_intro_block_fade_in_2b .bq_copy_p5_p6 BLTCON_SET AD,BLT_A,0,0 moveq.l #-1,d0 move.l d0,bltafwm(a5) move.l #(((BLENDVIEW_WIDTH-PART_WIDTH)/8)<<16)|((BLENDVIEW_WIDTH-PART_WIDTH)/8),bltamod(a5) .bq_copy_p5_p6_more lea bltapt(a5),a1 move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts ;-------------------------------------------------------------------- bln_blit_intro_block_fade_in_2: move.l pd_LastPlanesPtr(a6),a0 move.l pd_CurrPlanesPtr(a6),a2 move.l pbi_ScreenOffset(a1),d0 adda.l d0,a0 adda.l d0,a2 move.l pbi_TempBuffer(a1),a1 lea 3*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p4 lea 3*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p4 bln_blit_intro_block_fade_in_2b: ; create tmp mask for p4 lea 3*(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 4 (p4) move.l a2,d2 SAFE_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_tmp_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l a1,(a4)+ ; a = target move.l d2,(a4)+ ; d = mask ; merge tmp mask for p3 lea -1*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p3 lea -1*(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 3 (p3) FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_merge_tmp_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; b = old mask move.l a1,(a4)+ ; a = target move.l d2,(a4)+ ; d = mask ; merge tmp mask for p2/p1 REPT 2 lea -1*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p2/p1 lea -1*(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 2/1 (p2/p1) FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_merge_tmp_mask_more,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; b = old mask move.l a1,(a4)+ ; a = target move.l d2,(a4)+ ; d = mask ENDR ; p1n = last_p1 ^ tmp lea -3*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p1 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_xor_with_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; a = mask move.l a2,(a4)+ ; d = new destination ; tmp = last_p1 & tmp FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_and_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; a = mask move.l d2,(a4)+ ; d = new mask ; p2n = last_p2 ^ tmp lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p2 lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p2 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_xor_with_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; a = mask move.l a2,(a4)+ ; d = new destination ; tmp = last_p2 & tmp FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_and_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; a = mask move.l d2,(a4)+ ; d = new mask ; p3n = last_p3 ^ tmp lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p3 lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p3 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_xor_with_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; a = mask move.l a2,(a4)+ ; d = new destination ; p4n = last_p4 ^ (tmp & last_p3) LAST_ADD_TO_BLITTER_QUEUE a4,a3 clr.l (a4)+ move.l #.bq_final_xor,(a4)+ move.l a0,(a4)+ ; c = last p3 lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p4 move.l a0,(a4)+ ; b = last p4 move.l d2,(a4)+ ; a = mask move.l d2,(a4)+ ; d = new destination rts .bq_tmp_mask BLTCON_SET ACD,BLT_A^BLT_C,0,0 moveq.l #-1,d0 move.l d0,bltafwm(a5) move.l #(((BLENDVIEW_WIDTH-PART_WIDTH)/8)<<16)|((BLENDVIEW_WIDTH-PART_WIDTH)/8),bltcmod(a5) move.w #0,bltamod(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt addq.l #4,a1 ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_merge_tmp_mask BLTCON0_SET ABCD,(BLT_A^BLT_C)|BLT_B,0 .bq_merge_tmp_mask_more lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt move.l (a0)+,(a1)+ ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_xor_with_mask BLTCON0_SET ACD,BLT_A^BLT_C,0 move.w #((BLENDVIEW_WIDTH-PART_WIDTH)/8),bltamod(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt addq.l #4,a1 ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_and_mask BLTCON0_SET ACD,BLT_A&BLT_C,0 lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt addq.l #4,a1 ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_final_xor BLTCON0_SET ABCD,BLT_B^(BLT_A&BLT_C),0 lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt move.l (a0)+,(a1)+ ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts ;-------------------------------------------------------------------- bln_blit_intro_block_final: move.l pbi_SourceImgPtr(a1),a0 move.l pd_CurrPlanesPtr(a6),a2 add.l pbi_ScreenOffset(a1),a2 ; copy plane 4 (masked) and set first line (color 8) to block temp lea 3*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p4 lea 3*(BLENDIMG_WIDTH/8)(a0),a0 ; p4 SAFE_ADD_TO_BLITTER_QUEUE a4,a3 clr.l (a4)+ move.l #.bq_copy_special,(a4)+ move.l a0,(a4)+ move.l a2,(a4)+ TERM_ADD_TO_BLITTER_QUEUE a3 rts .bq_copy_special BLTCON_SET CD,BLT_A|BLT_C,0,0 move.l #$80000000,bltafwm(a5) move.w #((BLENDVIEW_WIDTH*BLENDIMG_PLANES-PART_WIDTH)/8),bltcmod(a5) move.w #((BLENDVIEW_WIDTH-PART_WIDTH)/8),bltdmod(a5) move.w #$ffff,bltadat(a5) move.l (a0)+,bltcpt(a5) move.l (a0)+,bltdpt(a5) move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),bltsize(a5) rts ;-------------------------------------------------------------------- bln_blit_intro_block_fade_out_0: move.l pd_LastPlanesPtr(a6),a0 add.l pbi_ScreenOffset(a1),a0 move.l pd_CurrPlanesPtr(a6),a2 add.l pbi_ScreenOffset(a1),a2 move.l pbi_TempBuffer(a1),a1 ; create p5|p6 mask in block temp lea 4*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p5 lea 4*(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 5 (p5|p6) SAFE_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_merge_p5_p6,(a4)+ move.l a0,(a4)+ lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p6 move.l a0,(a4)+ move.l a1,(a4)+ lea -2*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p4 lea 3*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p4 LAST_ADD_TO_BLITTER_QUEUE a4,a3 clr.l (a4)+ move.l #.bq_remap_indexed,(a4)+ move.l a0,(a4)+ move.l a1,(a4)+ move.l a2,(a4)+ rts .bq_merge_p5_p6 BLTCON_SET ACD,BLT_A|BLT_C,0,0 moveq.l #-1,d0 move.l d0,bltafwm(a5) moveq.l #((BLENDVIEW_WIDTH-PART_WIDTH)/8),d0 move.w d0,bltcmod(a5) swap d0 move.l d0,bltamod(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt addq.l #4,a1 ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_remap_indexed BLTCON0_SET BCD,(BLT_B&BLT_C)|BLT_A,0 move.l #$80000000,bltafwm(a5) move.w #$ffff,bltadat(a5) move.w #0,bltbmod(a5) move.w #((BLENDVIEW_WIDTH-PART_WIDTH)/8),bltdmod(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt move.l (a0)+,(a1)+ ; bltbpt addq.l #4,a1 ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts ;-------------------------------------------------------------------- bln_blit_intro_block_fade_out_1_change_dir: move.l #bln_palette_step_up,pbi_PalChangeRoutine(a1) bln_blit_intro_block_fade_out_1: move.l pd_LastPlanesPtr(a6),a0 move.l pd_CurrPlanesPtr(a6),a2 move.l pbi_ScreenOffset(a1),d0 adda.l d0,a0 adda.l d0,a2 move.l pbi_TempBuffer(a1),a1 lea 3*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p4 lea 3*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p4 ; create tmp mask for p4 move.l a2,d2 SAFE_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_tmp_mask,(a4)+ move.l a0,(a4)+ ; c = last p4 lea -1*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p3 move.l a0,(a4)+ ; b = last p3 lea -1*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p2 move.l a0,(a4)+ ; a = last p2 move.l d2,(a4)+ ; d = mask ; merge tmp mask for p3 lea 4*(PART_WIDTH/8)*PART_HEIGHT(a1),a1 ; buffer 5 (p5|p6) lea -1*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p1 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_merge_tmp_mask,(a4)+ move.l a0,(a4)+ ; c = last p1 move.l a1,(a4)+ ; b = p5|p6 move.l d2,(a4)+ ; a = old mask move.l d2,(a4)+ ; d = mask ; p1n = last_p1 ^ tmp lea -3*(BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p1 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_xor_with_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; a = mask move.l a2,(a4)+ ; d = new destination ; tmp = p1n & tmp FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_and_mask,(a4)+ move.l a2,(a4)+ ; c = p1n move.l d2,(a4)+ ; a = mask move.l d2,(a4)+ ; d = new mask ; p2n = last_p2 ^ tmp lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p2 lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p2 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_xor_with_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; a = mask move.l a2,(a4)+ ; d = new destination ; tmp = p2n & tmp FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_and_mask,(a4)+ move.l a2,(a4)+ ; c = p2n move.l d2,(a4)+ ; a = mask move.l d2,(a4)+ ; d = new mask ; p3n = last_p3 ^ tmp lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p3 lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a2),a2 ; p3 FAST_ADD_TO_BLITTER_QUEUE a4,a3 addq.l #4,a4 move.l #.bq_xor_with_mask,(a4)+ move.l a0,(a4)+ ; c = last move.l d2,(a4)+ ; a = mask move.l a2,(a4)+ ; d = new destination ; p4n = last_p4 ^ (tmp & p3n) lea (BLENDIMG_WIDTH/8)*BLENDIMG_HEIGHT(a0),a0 ; p4 LAST_ADD_TO_BLITTER_QUEUE a4,a3 clr.l (a4)+ move.l #.bq_final_xor,(a4)+ move.l a2,(a4)+ ; c = p3n move.l a0,(a4)+ ; b = last p4 move.l d2,(a4)+ ; a = mask move.l d2,(a4)+ ; d = new destination rts .bq_tmp_mask BLTCON_SET ABCD,BLT_A|BLT_B|BLT_C,0,0 moveq.l #-1,d0 move.l d0,bltafwm(a5) move.l #(((BLENDVIEW_WIDTH-PART_WIDTH)/8)<<16)|((BLENDVIEW_WIDTH-PART_WIDTH)/8),d0 move.l d0,bltcmod(a5) move.l d0,bltamod(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt move.l (a0)+,(a1)+ ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_merge_tmp_mask BLTCON0_SET ABCD,(BLT_A|BLT_C)&BLT_B,0 move.w #0,bltbmod(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt move.l (a0)+,(a1)+ ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_xor_with_mask BLTCON0_SET ACD,BLT_A^BLT_C,0 move.w #((BLENDVIEW_WIDTH-PART_WIDTH)/8),bltamod(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt addq.l #4,a1 ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_and_mask BLTCON0_SET ACD,BLT_A&BLT_C,0 lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt addq.l #4,a1 ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts .bq_final_xor BLTCON0_SET ABCD,BLT_B^(BLT_A&BLT_C),0 move.w #((BLENDVIEW_WIDTH-PART_WIDTH)/8),bltbmod(a5) lea bltcpt(a5),a1 move.l (a0)+,(a1)+ ; bltcpt move.l (a0)+,(a1)+ ; bltbpt move.l (a0)+,(a1)+ ; bltapt move.l (a0)+,(a1)+ ; bltdpt move.w #((PART_WIDTH>>4)|(PART_HEIGHT<<6)),(a1)+ ; bltsize rts ;-------------------------------------------------------------------- bln_calc_true_color_image: PUTMSG 10,<"TC Image %p">,a1 lea bln_images_palette-9*2(pc),a2 lea (a2,d0.w),a3 move.w #BLENDVIEW_HEIGHT,-(sp) .lineloop moveq.l #(BLENDIMG_WIDTH/16)-1,d7 move.w (a3)+,d6 ; background color move.w d6,8*2(a2) swap d6 .wordloop move.w 5*(BLENDIMG_WIDTH/8)(a0),d5 move.w 4*(BLENDIMG_WIDTH/8)(a0),d4 move.w 3*(BLENDIMG_WIDTH/8)(a0),d3 move.w 2*(BLENDIMG_WIDTH/8)(a0),d2 move.w 1*(BLENDIMG_WIDTH/8)(a0),d1 move.w (a0)+,d0 swap d7 move.w #15,d7 .pixelloop clr.w d6 add.w d3,d3 addx.w d6,d6 add.w d2,d2 addx.w d6,d6 add.w d1,d1 addx.w d6,d6 add.w d0,d0 addx.w d6,d6 add.w d5,d5 bcs.s .greenOrRed add.w d4,d4 bcs.s .blue PUTMSG 50,<"Idx %d">,d6 add.w d6,d6 move.w (a2,d6.w),d6 move.w d6,(a1)+ bra.s .contloop .greenOrRed add.w d4,d4 bcs.s .green .red PUTMSG 50,<"Red %d">,d6 move.b d6,(a1) swap d6 move.b d6,1(a1) move.w (a1)+,d6 bra.s .contloop .green PUTMSG 50,<"Green %d">,d6 move.w d7,a4 move.w d6,d7 lsl.w #4,d7 swap d6 and.w #$f0f,d6 or.w d7,d6 move.w d6,(a1)+ move.w a4,d7 bra.s .contloop .blue PUTMSG 50,<"Blue %d">,d6 move.w d7,a4 move.w d6,d7 swap d6 and.w #$ff0,d6 or.w d7,d6 move.w d6,(a1)+ move.w a4,d7 .contloop swap d6 dbra d7,.pixelloop swap d7 dbra d7,.wordloop .nextline lea 5*(BLENDIMG_WIDTH/8)(a0),a0 subq.w #1,(sp) bne .lineloop addq.w #2,sp rts ;-------------------------------------------------------------------- bln_create_intro_copperlist: move.l pd_CurrCopListPtr(a6),a0 move.l a0,a2 COPIMOVE $6a00,bplcon0 lea bln_images_palette(pc),a1 moveq.l #7-1,d7 move.w #color+9*2,d0 .palloop move.w d0,(a0)+ move.w (a1)+,(a0)+ addq.w #2,d0 dbra d7,.palloop move.l pd_CurrPlanesPtr(a6),d0 moveq.l #6-1,d7 move.w #bplpt,d1 move.l #(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT,d2 .bplloop move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 add.l d2,d0 dbra d7,.bplloop moveq.l #-2,d3 move.w #$51d5,d0 move.w #BLENDVIEW_HEIGHT-1,d7 move.w #$100,d2 move.l a0,d1 sub.l a2,d1 add.w #4+2+8,d1 move.w d1,pd_CopperChunkyOffset(a6) lea pd_Parts(a6),a1 move.w d0,(a0)+ move.w d3,(a0)+ moveq.l #0,d4 .cprloop subq.w #1,d4 bpl.s .nocols move.l a0,d1 sub.l a2,d1 addq.w #2,d1 move.w d1,pbi_Copper7Offset(a1) lea pbi_SIZEOF(a1),a1 COPIMOVE $111,(color+1*2) COPIMOVE $333,(color+2*2) COPIMOVE $531,(color+3*2) COPIMOVE $544,(color+4*2) COPIMOVE $851,(color+5*2) COPIMOVE $a61,(color+6*2) COPIMOVE $c82,(color+7*2) moveq.l #PART_HEIGHT-1,d4 .nocols add.w d2,d0 bcc.s .no256 COPIMOVE 0,$1fe .no256 move.w d0,d1 move.b #$3b,d1 move.w d1,(a0)+ move.w d3,(a0)+ ;move.l a0,d1 ;sub.l a2,d1 ;addq.w #2,d1 ;move.w d1,(a3)+ REPT 10 COPIMOVE $f0f,color+8*2 COPIMOVE $0ff,color+8*2 ENDR dbra d7,.cprloop move.l d3,(a0)+ rts ;-------------------------------------------------------------------- bln_create_bars_copperlist: move.l pd_CurrCopListPtr(a6),a0 move.l a0,a2 COPIMOVE $6a00,bplcon0 lea bln_images_palette(pc),a1 moveq.l #7-1,d7 move.w #color+9*2,d0 .palloop move.w d0,(a0)+ move.w (a1)+,(a0)+ addq.w #2,d0 dbra d7,.palloop move.l pd_CurrPlanesPtr(a6),d0 moveq.l #6-1,d7 move.w #bplpt,d1 move.l #(BLENDVIEW_WIDTH/8)*BLENDVIEW_HEIGHT,d2 .bplloop move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 add.l d2,d0 dbra d7,.bplloop moveq.l #-2,d3 move.w #$51d5,d0 move.w #BLENDVIEW_HEIGHT-1,d7 move.w #$100,d2 move.w d0,(a0)+ move.w d3,(a0)+ move.l a0,d1 sub.l a2,d1 addq.w #4+2,d1 move.w d1,pd_CopperChunkyOffset(a6) move.b #$3b,d0 .cprloop add.w d2,d0 move.w d0,(a0)+ move.w d3,(a0)+ REPT 10 COPIMOVE $f0f,color+8*2 COPIMOVE $0ff,color+8*2 ENDR COPIMOVE 0,$1fe dbra d7,.cprloop move.l d3,(a0)+ rts ;-------------------------------------------------------------------- bln_create_hole_copperlist: move.l pd_CurrCopListPtr(a6),a0 move.l a0,a2 COPIMOVE $6a00,bplcon0 COPIMOVE (BLENDVIEW_WIDTH*BLENDVIEW_PLANES-BLENDVIEW_WIDTH)/8,bpl1mod COPIMOVE (BLENDVIEW_WIDTH*BLENDVIEW_PLANES-BLENDVIEW_WIDTH)/8,bpl2mod moveq.l #7-1,d7 move.w #color+1*2,d0 .palloop2 move.w d0,(a0)+ move.w #$f0f,(a0)+ addq.w #2,d0 dbra d7,.palloop2 lea bln_images_palette(pc),a1 moveq.l #7-1,d7 move.w #color+9*2,d0 .palloop move.w d0,(a0)+ move.w (a1)+,(a0)+ addq.w #2,d0 dbra d7,.palloop lea 2*BLENDVIEW_HEIGHT*2(a1),a1 move.l pd_CurrPlanesPtr(a6),d0 moveq.l #6-1,d7 move.w #bplpt,d1 moveq.l #(BLENDVIEW_WIDTH/8),d2 .bplloop move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 add.l d2,d0 dbra d7,.bplloop moveq.l #-2,d3 move.w #$51d5,d0 move.w #BLENDVIEW_HEIGHT-1,d7 move.w #$100,d2 move.l a0,d1 sub.l a2,d1 add.w #4+2+8,d1 move.w d1,pd_CopperChunkyOffset(a6) .cprloop move.w d0,(a0)+ move.w d3,(a0)+ add.w d2,d0 COPRMOVE (a1)+,(color+8*2) move.w d0,d1 move.b #$21,d1 move.w d1,(a0)+ move.w d3,(a0)+ COPIMOVE $fff,(color+1*2) COPIMOVE $888,(color+2*2) COPIMOVE $ff0,(color+3*2) COPIMOVE $0ff,(color+4*2) COPIMOVE $f0f,(color+5*2) COPIMOVE $0f0,(color+6*2) COPIMOVE $f80,(color+7*2) COPIMOVE $8f8,(color+8*2) dbra d7,.cprloop move.l d3,(a0)+ rts ;-------------------------------------------------------------------- bln_create_greetings_copperlist: move.l pd_CurrCopListPtr(a6),a0 move.l a0,a2 COPIMOVE $6a00,bplcon0 COPIMOVE (BLENDVIEW_WIDTH*BLENDVIEW_PLANES-BLENDVIEW_WIDTH)/8,bpl1mod COPIMOVE (BLENDVIEW_WIDTH*BLENDVIEW_PLANES-BLENDVIEW_WIDTH)/8,bpl2mod move.l pd_CurrGreetingsImage(a6),d0 moveq.l #6-1,d7 move.w #bplpt,d1 moveq.l #(BLENDVIEW_WIDTH/8),d2 .bplloop move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 add.l d2,d0 dbra d7,.bplloop moveq.l #-2,d3 move.w #$51d5,d0 move.w #$100,d2 lea bln_images_palette(pc),a1 adda.w pd_CurrGreetingsPalOffset(a6),a1 move.w #BLENDVIEW_HEIGHT-1,d7 .cprloop move.w d0,(a0)+ move.w d3,(a0)+ add.w d2,d0 COPRMOVE (a1)+,(color+8*2) dbra d7,.cprloop move.l d3,(a0)+ rts ;-------------------------------------------------------------------- bln_create_andyou_copperlist: move.l pd_CurrCopListPtr(a6),a0 move.l a0,a2 COPIMOVE $1200,bplcon0 COPIMOVE 0,bpl1mod COPIMOVE $7e81,diwstrt COPIMOVE $dac1,diwstop COPIMOVE $0068,ddfstrt ; bitplane start COPIMOVE $00a0,ddfstop ; bitplane stop move.l #bln_andyou_image,d0 move.w #bplpt+2,(a0)+ move.w d0,(a0)+ move.w #bplpt,(a0)+ swap d0 move.w d0,(a0)+ COPIMOVE $fff,color+1*2 move.l d3,(a0)+ rts ;-------------------------------------------------------------------- bln_create_endlogo_copperlist: move.l pd_CurrCopListPtr(a6),a0 COPIMOVE $6a00,bplcon0 COPIMOVE (ENDLOGO_WIDTH*ENDLOGO_PLANES-ENDLOGO_WIDTH)/8,bpl1mod COPIMOVE (ENDLOGO_WIDTH*ENDLOGO_PLANES-ENDLOGO_WIDTH)/8,bpl2mod move.l pd_CurrPlanesPtr(a6),d0 move.w #bplpt,d1 moveq.l #(ENDLOGO_WIDTH/8),d2 moveq.l #4-1,d7 .bplloop move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 add.l d2,d0 dbra d7,.bplloop move.l pd_EndLogoBuffer(a6),d0 add.l #4*(ENDLOGO_WIDTH/8),d0 moveq.l #2-1,d7 .bplloop2 move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 move.w d1,(a0)+ swap d0 move.w d0,(a0)+ addq.w #2,d1 add.l d2,d0 dbra d7,.bplloop2 moveq.l #-2,d3 lea pd_EndLogoPalette(a6),a1 moveq.l #16-1,d7 move.w #color,d1 .palloop move.w d1,(a0)+ move.w (a1)+,(a0)+ addq.w #2,d1 dbra d7,.palloop move.l d3,(a0)+ rts ;-------------------------------------------------------------------- bln_big_circle_rad_forward_update: bsr bln_update_circle_sin_movement bsr bln_update_circle_sin_rel_pos move.w cp_RadPos(a4),d0 lea bln_circlerads(pc),a0 moveq.l #0,d1 .retry add.w pd_FrameInc(a6),d0 move.b (a0,d0.w),d1 bne.s .nowrap sub.w #6*16,d0 move.b (a0,d0.w),d1 .nowrap move.w d0,cp_RadPos(a4) cmp.w cp_Radius(a4),d1 beq.s .noupdate move.w d1,cp_Radius(a4) bra.s bln_update_circle_pot_info .noupdate rts ;-------------------------------------------------------------------- bln_big_circle_rad_backward_update: bsr bln_update_circle_sin_movement bsr bln_update_circle_sin_rel_pos move.w cp_RadPos(a4),d0 sub.w pd_FrameInc(a6),d0 bmi.s .endit move.w d0,cp_RadPos(a4) lea bln_circlerads(pc),a0 moveq.l #0,d1 move.b (a0,d0.w),d1 cmp.w cp_Radius(a4),d1 beq.s .noupdate move.w d1,cp_Radius(a4) bra.s bln_update_circle_pot_info .noupdate rts .endit moveq.l #0,d0 move.w d0,cp_Radius(a4) move.l d0,cp_PaintRoutine(a4) move.l d0,cp_FrameRoutine(a4) .nop rts ;-------------------------------------------------------------------- bln_smaller_circle_rad_forward_update: bsr bln_update_circle_sin_movement bsr bln_update_circle_sin_rel_pos move.w cp_RadPos(a4),d0 lea bln_circlerads_smaller(pc),a0 moveq.l #0,d1 .retry add.w pd_FrameInc(a6),d0 move.b (a0,d0.w),d1 bne.s .nowrap sub.w #4*16,d0 move.b (a0,d0.w),d1 .nowrap move.w d0,cp_RadPos(a4) cmp.w cp_Radius(a4),d1 beq.s .noupdate move.w d1,cp_Radius(a4) bra.s bln_update_circle_pot_info .noupdate rts ;-------------------------------------------------------------------- bln_smaller_circle_rad_backward_update: bsr bln_update_circle_sin_movement bsr bln_update_circle_sin_rel_pos move.w cp_RadPos(a4),d0 sub.w pd_FrameInc(a6),d0 bmi.s .endit move.w d0,cp_RadPos(a4) lea bln_circlerads_smaller(pc),a0 moveq.l #0,d1 move.b (a0,d0.w),d1 cmp.w cp_Radius(a4),d1 beq.s .noupdate move.w d1,cp_Radius(a4) bra.s bln_update_circle_pot_info .noupdate rts .endit lea .nop(pc),a0 move.l a0,cp_PaintRoutine(a4) move.l a0,cp_FrameRoutine(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.l d0,cp_CircleInfo(a4) .nop rts ;-------------------------------------------------------------------- bln_small_circle_rad_forward_update: bsr bln_update_circle_sin_movement bsr bln_update_circle_sin_rel_pos move.w cp_RadPos(a4),d0 lea bln_circlerads_greets(pc),a0 moveq.l #0,d1 .retry add.w pd_FrameInc(a6),d0 move.b (a0,d0.w),d1 bne.s .nowrap sub.w #4*16,d0 move.b (a0,d0.w),d1 .nowrap move.w pd_BeatRadAdd(a6),d2 lsr.w #2,d2 add.w d2,d1 move.w d0,cp_RadPos(a4) cmp.w cp_Radius(a4),d1 beq.s .noupdate move.w d1,cp_Radius(a4) bra.s bln_update_circle_pot_info .noupdate rts ;-------------------------------------------------------------------- bln_small_circle_rad_backward_update: bsr bln_update_circle_sin_movement bsr bln_update_circle_sin_rel_pos move.w cp_RadPos(a4),d0 sub.w pd_FrameInc(a6),d0 bmi.s .endit move.w d0,cp_RadPos(a4) lea bln_circlerads_greets(pc),a0 moveq.l #0,d1 move.b (a0,d0.w),d1 cmp.w cp_Radius(a4),d1 beq.s .noupdate move.w d1,cp_Radius(a4) bra.s bln_update_circle_pot_info .noupdate rts .endit lea .nop(pc),a0 move.l a0,cp_PaintRoutine(a4) move.l a0,cp_FrameRoutine(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.l d0,cp_CircleInfo(a4) .nop rts ;-------------------------------------------------------------------- bln_update_circle_sin_movement: move.w pd_FrameInc(a6),d1 cmp.w #2,d1 beq.s .fast2 subq.w #1,d1 beq.s .fast1 .loop move.l cp_RelPosSinXSpeed(a4),d0 .floop add.l d0,cp_RelPosSinXOffset(a4) dbra d1,.floop rts .fast1 move.l cp_RelPosSinXSpeed(a4),d0 add.l d0,cp_RelPosSinXOffset(a4) rts .fast2 move.l cp_RelPosSinXSpeed(a4),d0 add.l d0,cp_RelPosSinXOffset(a4) add.l d0,cp_RelPosSinXOffset(a4) rts ;-------------------------------------------------------------------- bln_update_circle_sin_rel_pos: move.l fw_SinTable(a6),a0 movem.w cp_RelPosSinXOffset(a4),d0-d5 and.w #1023*2,d0 and.w #1023*2,d1 move.w (a0,d0.w),d0 move.w (a0,d1.w),d1 muls d2,d0 muls d3,d1 swap d0 swap d1 add.w d4,d0 add.w d5,d1 move.w d0,cp_FgRelPosX(a4) move.w d1,cp_FgRelPosY(a4) rts ;-------------------------------------------------------------------- bln_greeting_line_update: move.w pd_FrameInc(a6),d5 sub.w d5,cp_GreetingTimeRev(a4) bpl.s .dorad move.w cp_Radius(a4),d4 beq.s .noupdate sub.w d5,d4 cmp.w #MIN_CIRCLE_SIZE,d4 blt.s .kill bra.s .checkmove .dorad move.w cp_RadPos(a4),d0 lea bln_circlerads_greets(pc),a0 moveq.l #0,d4 add.w d5,d0 move.b (a0,d0.w),d4 bne.s .nowrap sub.w #4*16,d0 move.b (a0,d0.w),d4 .nowrap move.w d0,cp_RadPos(a4) .checkmove cmp.w #9,d4 blt.s .nomove move.l cp_RelPosXLong(a4),d0 move.l cp_RelPosYLong(a4),d1 movem.w cp_RelPosXInc(a4),d2/d3 add.l d2,d2 add.l d2,d2 add.l d3,d3 add.l d3,d3 subq.w #1,d5 .frloop add.l d2,d0 add.l d3,d1 dbra d5,.frloop move.l d0,cp_RelPosXLong(a4) move.l d1,cp_RelPosYLong(a4) swap d0 swap d1 move.w d0,cp_FgRelPosX(a4) move.w d1,cp_FgRelPosY(a4) .nomove cmp.w cp_Radius(a4),d4 beq.s .noupdate move.w d4,cp_Radius(a4) bra.s bln_update_circle_pot_info .noupdate rts .kill PUTMSG 10,<"%d: Greeting killed (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) subq.w #1,pd_GreetingCount(a6) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.l d0,cp_PaintRoutine(a4) move.l d0,cp_FrameRoutine(a4) rts ;-------------------------------------------------------------------- bln_load_circle_nop: rts bln_load_circle_eye_1: PUTMSG 10,<"%d: Load circle eye 1 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #112,cp_CenterPosX(a4) move.w #51,cp_CenterPosY(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.w d0,cp_Pair(a4) move.w d0,cp_RadPos(a4) move.l d0,cp_InvertedOffset(a4) move.w #13,cp_RelPosSinXSpeed(a4) move.w #14,cp_RelPosSinYSpeed(a4) move.w #60*2,cp_RelPosXRadius(a4) move.w #20*2,cp_RelPosYRadius(a4) move.w #114,cp_RelPosXCenter(a4) move.w #70,cp_RelPosYCenter(a4) move.l pd_OriginalImage3(a6),cp_BgImage(a4) move.l pd_TrueColorImage3(a6),cp_BgTCImage(a4) move.l pd_OriginalImage2(a6),cp_FgImage(a4) move.l pd_TrueColorImage2(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle,cp_PaintRoutine(a4) move.l #bln_big_circle_rad_forward_update,cp_FrameRoutine(a4) rts bln_load_circle_pos_eye_1_sunset: PUTMSG 10,<"%d: Load circle eye sunset 2 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #112,cp_CenterPosX(a4) move.w #62,cp_CenterPosY(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.w d0,cp_RadPos(a4) move.w #1*8,cp_Pair(a4) clr.w cp_RadPos(a4) move.l #(112-112)*2+(62-51)*BLENDVIEW_WIDTH*2,cp_InvertedOffset(a4) move.w #-15,cp_RelPosSinXSpeed(a4) move.w #12,cp_RelPosSinYSpeed(a4) move.w #20*2,cp_RelPosXRadius(a4) move.w #30*2,cp_RelPosYRadius(a4) move.w #107,cp_RelPosXCenter(a4) move.w #43,cp_RelPosYCenter(a4) move.l pd_OriginalImage2(a6),cp_BgImage(a4) move.l pd_TrueColorImage2(a6),cp_BgTCImage(a4) move.l pd_OriginalImage3(a6),cp_FgImage(a4) move.l pd_TrueColorImage3(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle_invert,cp_PaintRoutine(a4) move.l #bln_smaller_circle_rad_forward_update,cp_FrameRoutine(a4) rts bln_load_circle_pos_eye_2: PUTMSG 10,<"%d: Load circle eye 2 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #240,cp_CenterPosX(a4) move.w #126,cp_CenterPosY(a4) moveq.l #0,d0 move.w #2*8,cp_Pair(a4) move.w d0,cp_Radius(a4) move.w d0,cp_RadPos(a4) move.l d0,cp_InvertedOffset(a4) move.w #7,cp_RelPosSinXSpeed(a4) move.w #9,cp_RelPosSinYSpeed(a4) move.w #40*2,cp_RelPosXRadius(a4) move.w #60*2,cp_RelPosYRadius(a4) move.w #104,cp_RelPosXCenter(a4) move.w #83,cp_RelPosYCenter(a4) move.l pd_OriginalImage3(a6),cp_BgImage(a4) move.l pd_TrueColorImage3(a6),cp_BgTCImage(a4) move.l pd_OriginalImage2(a6),cp_FgImage(a4) move.l pd_TrueColorImage2(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle,cp_PaintRoutine(a4) move.l #bln_big_circle_rad_forward_update,cp_FrameRoutine(a4) rts bln_load_circle_pos_eye_2_skin: PUTMSG 10,<"%d: Load circle eye skin (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #240,cp_CenterPosX(a4) move.w #117,cp_CenterPosY(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.w d0,cp_RadPos(a4) move.w #3*8,cp_Pair(a4) clr.w cp_RadPos(a4) move.l #(240-240)*2+(117-126)*BLENDVIEW_WIDTH*2,cp_InvertedOffset(a4) move.w #-15,cp_RelPosSinXSpeed(a4) move.w #12,cp_RelPosSinYSpeed(a4) move.w #20*2,cp_RelPosXRadius(a4) move.w #70*2,cp_RelPosYRadius(a4) move.w #69,cp_RelPosXCenter(a4) move.w #109,cp_RelPosYCenter(a4) move.l pd_OriginalImage2(a6),cp_BgImage(a4) move.l pd_TrueColorImage2(a6),cp_BgTCImage(a4) move.l pd_OriginalImage2(a6),cp_FgImage(a4) move.l pd_TrueColorImage2(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle_invert,cp_PaintRoutine(a4) move.l #bln_small_circle_rad_forward_update,cp_FrameRoutine(a4) rts bln_load_circle_cham_bg_1: PUTMSG 10,<"%d: Load cham bg 1 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #272,cp_CenterPosX(a4) move.w #34,cp_CenterPosY(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.w #2*8,cp_Pair(a4) move.w d0,cp_RadPos(a4) move.l d0,cp_InvertedOffset(a4) move.w #7,cp_RelPosSinXSpeed(a4) move.w #9,cp_RelPosSinYSpeed(a4) move.w #40*2,cp_RelPosXRadius(a4) move.w #40*2,cp_RelPosYRadius(a4) move.w #190,cp_RelPosXCenter(a4) move.w #85,cp_RelPosYCenter(a4) move.l pd_OriginalImage3(a6),cp_BgImage(a4) move.l pd_TrueColorImage3(a6),cp_BgTCImage(a4) move.l pd_OriginalImage2(a6),cp_FgImage(a4) move.l pd_TrueColorImage2(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle,cp_PaintRoutine(a4) move.l #bln_smaller_circle_rad_forward_update,cp_FrameRoutine(a4) rts bln_load_circle_greets_bg_1: PUTMSG 10,<"%d: Load greets bg 1 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #176,cp_CenterPosX(a4) move.w #75,cp_CenterPosY(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.w #2*8,cp_Pair(a4) move.w d0,cp_RadPos(a4) move.l d0,cp_InvertedOffset(a4) move.w #-13,cp_RelPosSinXSpeed(a4) move.w #14,cp_RelPosSinYSpeed(a4) move.w #11*2,cp_RelPosXRadius(a4) move.w #14*2,cp_RelPosYRadius(a4) move.w #27,cp_RelPosXCenter(a4) move.w #106,cp_RelPosYCenter(a4) move.l pd_OriginalImage3(a6),cp_BgImage(a4) move.l pd_TrueColorImage3(a6),cp_BgTCImage(a4) move.l pd_OriginalImage4(a6),cp_FgImage(a4) move.l pd_TrueColorImage4(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle,cp_PaintRoutine(a4) move.l #bln_small_circle_rad_forward_update,cp_FrameRoutine(a4) rts bln_load_circle_greets_bg_2: PUTMSG 10,<"%d: Load greets bg 2 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #128,cp_CenterPosX(a4) move.w #149,cp_CenterPosY(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.w #0*8,cp_Pair(a4) move.w d0,cp_RadPos(a4) move.l d0,cp_InvertedOffset(a4) move.w #-15,cp_RelPosSinXSpeed(a4) move.w #-17,cp_RelPosSinYSpeed(a4) move.w #17*2,cp_RelPosXRadius(a4) move.w #17*2,cp_RelPosYRadius(a4) move.w #111,cp_RelPosXCenter(a4) move.w #149,cp_RelPosYCenter(a4) move.l pd_OriginalImage3(a6),cp_BgImage(a4) move.l pd_TrueColorImage3(a6),cp_BgTCImage(a4) move.l pd_OriginalImage4(a6),cp_FgImage(a4) move.l pd_TrueColorImage4(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle,cp_PaintRoutine(a4) move.l #bln_small_circle_rad_forward_update,cp_FrameRoutine(a4) rts bln_load_circle_greets_bg_3: PUTMSG 10,<"%d: Load greets bg 3 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #80,cp_CenterPosX(a4) move.w #32,cp_CenterPosY(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.w #3*8,cp_Pair(a4) move.w d0,cp_RadPos(a4) move.l d0,cp_InvertedOffset(a4) move.w #-16,cp_RelPosSinXSpeed(a4) move.w #18,cp_RelPosSinYSpeed(a4) move.w #13*2,cp_RelPosXRadius(a4) move.w #13*2,cp_RelPosYRadius(a4) move.w #162,cp_RelPosXCenter(a4) move.w #25,cp_RelPosYCenter(a4) move.l pd_OriginalImage3(a6),cp_BgImage(a4) move.l pd_TrueColorImage3(a6),cp_BgTCImage(a4) move.l pd_OriginalImage4(a6),cp_FgImage(a4) move.l pd_TrueColorImage4(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle,cp_PaintRoutine(a4) move.l #bln_small_circle_rad_forward_update,cp_FrameRoutine(a4) rts bln_load_circle_greets_bg_4: PUTMSG 10,<"%d: Load greets bg 4 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #208,cp_CenterPosX(a4) move.w #28,cp_CenterPosY(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.w #1*8,cp_Pair(a4) move.w d0,cp_RadPos(a4) move.l d0,cp_InvertedOffset(a4) move.w #19,cp_RelPosSinXSpeed(a4) move.w #-15,cp_RelPosSinYSpeed(a4) move.w #10*2,cp_RelPosXRadius(a4) move.w #10*2,cp_RelPosYRadius(a4) move.w #295,cp_RelPosXCenter(a4) move.w #93,cp_RelPosYCenter(a4) move.l pd_OriginalImage3(a6),cp_BgImage(a4) move.l pd_TrueColorImage3(a6),cp_BgTCImage(a4) move.l pd_OriginalImage4(a6),cp_FgImage(a4) move.l pd_TrueColorImage4(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle,cp_PaintRoutine(a4) move.l #bln_small_circle_rad_forward_update,cp_FrameRoutine(a4) rts bln_load_circle_greets_bg_5: PUTMSG 10,<"%d: Load greets bg 5 (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.w #48,cp_CenterPosX(a4) move.w #118,cp_CenterPosY(a4) moveq.l #0,d0 move.w d0,cp_Radius(a4) move.w #1*8,cp_Pair(a4) move.w d0,cp_RadPos(a4) move.l d0,cp_InvertedOffset(a4) move.w #-16,cp_RelPosSinXSpeed(a4) move.w #-17,cp_RelPosSinYSpeed(a4) move.w #10*2,cp_RelPosXRadius(a4) move.w #11*2,cp_RelPosYRadius(a4) move.w #297,cp_RelPosXCenter(a4) move.w #155,cp_RelPosYCenter(a4) move.l pd_OriginalImage3(a6),cp_BgImage(a4) move.l pd_TrueColorImage3(a6),cp_BgTCImage(a4) move.l pd_OriginalImage4(a6),cp_FgImage(a4) move.l pd_TrueColorImage4(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle,cp_PaintRoutine(a4) move.l #bln_small_circle_rad_forward_update,cp_FrameRoutine(a4) rts ; 23,106 (23) / 111,149 (30) / 162,25 (25) / 295,93 (24) / 297,155 (22) ;-------------------------------------------------------------------- bln_load_next_greeting: move.l pd_GreetingPosPtr(a6),a0 move.w (a0)+,d0 beq.s .reallykill move.w (a0)+,d1 move.w (a0)+,d2 PUTMSG 10,<"%d: Next greeting at %d,%d Pair: %d">,fw_FrameCounter-2(a6),d0,d1,d2 move.w d0,cp_CenterPosX(a4) move.w d1,cp_CenterPosY(a4) move.w d2,cp_Pair(a4) move.l a0,pd_GreetingPosPtr(a6) moveq.l #0,d0 move.w #MAX_CIRCLE_SIZE,cp_Radius(a4) move.w d0,cp_RadPos(a4) move.l d0,cp_InvertedOffset(a4) .retry move.l pd_GreetingLinePtr(a6),a0 movem.w (a0)+,d0-d4 PUTMSG 10,<"%d: Greeting from %d,%d to %d,%d, shift %d">,fw_FrameCounter-2(a6),d0,d1,d2,d3,d4 move.w d0,cp_FgRelPosX(a4) beq.s .kill move.w d1,cp_FgRelPosY(a4) move.l a0,pd_GreetingLinePtr(a6) swap d0 swap d1 move.l d0,cp_RelPosXLong(a4) move.l d1,cp_RelPosYLong(a4) swap d2 swap d3 sub.l d0,d2 sub.l d1,d3 moveq.l #0,d0 bset d4,d0 addq.w #2,d4 asr.l d4,d2 asr.l d4,d3 move.w d2,cp_RelPosXInc(a4) move.w d3,cp_RelPosYInc(a4) move.w d0,cp_GreetingTimeRev(a4) add.w #15,d0 move.w d0,cp_TimeLeft(a4) move.l pd_OriginalImage3(a6),cp_BgImage(a4) move.l pd_TrueColorImage3(a6),cp_BgTCImage(a4) move.l pd_CurrGreetingsImage(a6),cp_FgImage(a4) move.l pd_CurrGreetingsTCImage(a6),cp_FgTCImage(a4) move.l #bln_draw_stenciled_circle,cp_PaintRoutine(a4) move.l #bln_greeting_line_update,cp_FrameRoutine(a4) rts .kill tst.w d1 beq.s .reallykill addq.l #2,pd_GreetingLinePtr(a6) move.l pd_OriginalImage5(a6),pd_CurrGreetingsImage(a6) move.l pd_TrueColorImage5(a6),pd_CurrGreetingsTCImage(a6) bra.s .retry .reallykill moveq.l #0,d0 move.w d0,cp_Radius(a4) move.l d0,cp_PaintRoutine(a4) move.l d0,cp_FrameRoutine(a4) rts ;-------------------------------------------------------------------- bln_reverse_big_circle_to_backward: PUTMSG 10,<"%d: Reversing big circle (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.l #bln_big_circle_rad_backward_update,cp_FrameRoutine(a4) rts ;-------------------------------------------------------------------- bln_reverse_smaller_circle_to_backward: PUTMSG 10,<"%d: Reversing smaller circle (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.l #bln_smaller_circle_rad_backward_update,cp_FrameRoutine(a4) rts ;-------------------------------------------------------------------- bln_reverse_small_circle_to_backward: PUTMSG 10,<"%d: Reversing smaller circle (%d music frames)">,fw_FrameCounter-2(a6),fw_MusicFrameCount-2(a6) move.l #bln_small_circle_rad_backward_update,cp_FrameRoutine(a4) rts ;******************************************************************** bln_blend_image_2_filename: dc.b "cHAMeleon.raw",0 bln_blend_image_3_filename: dc.b "Sunset.raw",0 bln_blend_image_4_filename: dc.b "Greets1.raw",0 bln_blend_image_5_filename: dc.b "Greets2.raw",0 even bln_bar_patterns: ;dc.b 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 ;dc.b 19,0,18,1,17,2,16,3,15,4,14,5,13,6,12,7,11,8,10,9 dc.b 0,2,4,6,8,10,12,14,16,18,19,17,15,13,11,9,7,5,3,1 ;dc.b 19,18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0 ;dc.b 9,10,8,11,7,12,6,13,5,14,4,15,3,16,2,17,1,18,0,19 ;dc.b 0,1,2,3,4,5,6,7,8,9,19,18,17,16,15,14,13,12,11,10 ;dc.b 10,11,12,13,14,15,16,17,18,19,9,8,7,6,5,4,3,2,1,0 even bln_a_part_sequence: dc.w pd_OriginalImage1,pd_TrueColorImage1 dc.l bln_load_new_block_fade_in dc.w -6,bln_a_part_rnd_seq_row_1-bln_a_part_sequence dc.w -3,bln_a_part_rnd_seq_row_2-bln_a_part_sequence dc.w -9,bln_a_part_rnd_seq_row_3-bln_a_part_sequence dc.w 0,bln_a_part_rnd_seq_row_4-bln_a_part_sequence dc.w -15,bln_a_part_rnd_seq_row_5-bln_a_part_sequence dc.w -12,bln_a_part_rnd_seq_row_6-bln_a_part_sequence bln_b_part_sequence: dc.w pd_OriginalImage2,pd_TrueColorImage2 dc.l bln_load_new_block_fade_out_and_in dc.w -12,bln_a_part_rnd_seq_row_1-bln_b_part_sequence dc.w 0,bln_a_part_rnd_seq_row_2-bln_b_part_sequence dc.w -24,bln_a_part_rnd_seq_row_3-bln_b_part_sequence dc.w -18,bln_a_part_rnd_seq_row_4-bln_b_part_sequence dc.w -30,bln_a_part_rnd_seq_row_5-bln_b_part_sequence dc.w -6,bln_a_part_rnd_seq_row_6-bln_b_part_sequence bln_a_part_rnd_seq_row_1: dc.b 4,7,0,1,8,9,3,2,6,5,-1 even bln_a_part_rnd_seq_row_2: dc.b 5,0,4,3,9,8,7,2,6,1,-1 even bln_a_part_rnd_seq_row_3: dc.b 9,1,7,8,3,0,4,6,2,5,-1 even bln_a_part_rnd_seq_row_4: dc.b 1,2,8,3,9,4,5,7,0,6,-1 even bln_a_part_rnd_seq_row_5: dc.b 6,1,2,0,9,3,4,7,5,8,-1 even bln_a_part_rnd_seq_row_6: dc.b 8,6,3,1,7,0,5,4,9,2,-1 even bln_fade_in_sequence: dc.l bln_blit_intro_block_fade_in_0 dc.l bln_blit_intro_block_fade_in_1 REPT 15 dc.l bln_blit_intro_block_fade_in_2 ENDR dc.l bln_blit_intro_block_final dc.l bln_blit_intro_block_final dc.l bln_load_next_seq_part_in bln_fade_out_in_sequence: dc.l bln_blit_intro_block_fade_out_0 REPT 13 dc.l bln_blit_intro_block_fade_out_1 ENDR dc.l bln_blit_intro_block_fade_out_1_change_dir dc.l bln_blit_intro_block_fade_in_0 dc.l bln_blit_intro_block_fade_in_1 REPT 15 dc.l bln_blit_intro_block_fade_in_2 ENDR dc.l bln_blit_intro_block_final dc.l bln_blit_intro_block_final dc.l bln_load_next_seq_part_out_in ;-------------------------------------------------------------------- bln_circle_scripts: dc.w bln_circle1_script-* dc.w bln_circle2_script-* dc.w bln_circle3_script-* dc.w bln_circle4_script-* dc.w bln_circle5_script-* dc.w bln_circle6_script-* dc.w 0 bln_circle1_script: dc.w 375,bln_load_circle_eye_1-* dc.w 281,bln_reverse_big_circle_to_backward-* ; 656 dc.w 187,bln_load_circle_greets_bg_3-* dc.w 0 bln_circle2_script: dc.w 93,bln_load_circle_nop-* dc.w 187,bln_load_circle_pos_eye_1_sunset-* dc.w 281,bln_reverse_smaller_circle_to_backward-* ; 561 dc.w 187,bln_load_circle_greets_bg_4-* dc.w 0 bln_circle3_script: dc.w 187,bln_load_circle_nop-* dc.w 328,bln_load_circle_pos_eye_2-* dc.w 234,bln_reverse_big_circle_to_backward-* ; 749 dc.w 0 bln_circle4_script: dc.w 281,bln_load_circle_nop-* dc.w 93,bln_load_circle_pos_eye_2_skin-* dc.w 187,bln_reverse_small_circle_to_backward-* ; 561 dc.w 187,bln_load_circle_greets_bg_5-* dc.w 0 bln_circle5_script: dc.w 375,bln_load_circle_nop-* dc.w 184,bln_load_circle_cham_bg_1-* dc.w 190,bln_reverse_smaller_circle_to_backward-* ; 749 dc.w 187,bln_load_circle_greets_bg_1-* dc.w 0 bln_circle6_script: dc.w 469,bln_load_circle_nop-* ; 469 dc.w 197,bln_load_circle_greets_bg_2-* dc.w 0 ;-------------------------------------------------------------------- bln_circle_greetings_scripts: dc.w bln_circle_greet1_script-* dc.w bln_circle_greet2_script-* dc.w bln_circle_greet3_script-* dc.w bln_circle_greet4_script-* dc.w bln_circle_greet5_script-* dc.w bln_circle_greet6_script-* dc.w 0 bln_circle_greet1_script: dc.w 47,bln_load_circle_nop-* dc.w 187,bln_reverse_smaller_circle_to_backward-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 0 bln_circle_greet2_script: dc.w 94,bln_load_circle_nop-* dc.w 187,bln_reverse_smaller_circle_to_backward-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 0 bln_circle_greet3_script: dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 0 bln_circle_greet4_script: dc.w 187,bln_reverse_smaller_circle_to_backward-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 0 bln_circle_greet5_script: dc.w 141,bln_load_circle_nop-* dc.w 187,bln_reverse_smaller_circle_to_backward-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 1,bln_load_next_greeting-* dc.w 0 bln_circle_greet6_script: dc.w 187,bln_load_circle_nop-* dc.w 187,bln_reverse_smaller_circle_to_backward-* dc.w 0 dc.w $000 ; is required for true color image decoding bln_images_palette: include "data/blend/fiveimg_ham.pal.asm" bln_leaves_tc_10: incbin "data/blend/leavestc_10.raw" bln_endlogo_palette: include "data/blend/PLT_DSRLogo01c_ham.pal.asm" dc.l 0 bln_circlerads: include "circlerads.asm" dc.l 0 bln_circlerads_smaller: include "circlerads2.asm" dc.l 0 bln_circlerads_greets: include "circleradsgreets.asm" dc.l 0 bln_greets_positions: REPT 3 dc.w 144,24,2*8 dc.w 288,64,0*8 dc.w 192,120,2*8 dc.w 64,77,1*8 dc.w 272,145,3*8 dc.w 128,105,3*8 dc.w 256,93,0*8 dc.w 128,149,0*8 dc.w 176,73,2*8 dc.w 80,35,3*8 dc.w 208,24,1*8 dc.w 48,118,1*8 ENDR dc.w 0 bln_greets_lines: ; greetings page 1, 18 dc.w 25,48,79,17,7 ; Plush dc.w 17,53,218,168,8 ; Dead Hackers Society dc.w 15,68,66,97,7 ; Istari dc.w 22,140,85,102,7 ; Rebels dc.w 20,157,92,117,7 ; Nuance dc.w 102,27,163,60,7 ; Melon dc.w 93,36,154,74,7 ; Insane dc.w 72,46,158,95,7 ; Alcatraz dc.w 67,61,229,155,8 ; Five Finger Punch dc.w 143,143,173,160,6 ; TBL dc.w 162,59,251,9,7 ; Logicoma dc.w 168,74,240,32,7 ; Fnuque dc.w 159,98,283,26,8 ; Focus Design dc.w 168,113,304,32,8 ; Batman Group dc.w 219,169,292,128,7 ; Loonies dc.w 231,92,283,123,7 ; Noice dc.w 221,106,266,134,6 ; Void dc.w 263,73,311,46,6 ; SMFX dc.w 0 ; greetings page 2, 17 dc.w 13,158,90,112,7 ; Proxima dc.w 26,48,191,144,8 ; Software Failure dc.w 20,63,183,157,8 ; Attention Whore dc.w 21,170,101,126,7 ; Offence dc.w 31,15,177,100,8 ; Moods Plateau dc.w 74,58,182,121,7 ; Planet Jazz dc.w 82,28,182,85,7 ; Resistance dc.w 105,128,177,171,7 ; Oxyron dc.w 133,47,186,13,7 ; Abyss dc.w 177,74,272,17,7 ; Nectarine dc.w 183,86,283,30,7 ; Jumalauta dc.w 182,121,289,61,7 ; Spaceballs dc.w 182,156,284,98,7 ; Nah-Kolor dc.w 187,102,307,31,7 ; Spreadpoint dc.w 193,170,225,150,6 ; TEK dc.w 219,119,297,72,7 ; Cocoon dc.w 243,128,307,168,7 ; Lemon. dc.w 0 dc.w 0 ;******************************************************************** section "bln_copper",data,chip bln_copperlist: COP_MOVE dmacon,DMAF_BLITHOG ; disable blitter hogging to avoid interrupt latency COP_MOVE diwstrt,$5281 ; window start COP_MOVE diwstop,$06c1 ; window stop COP_MOVE ddfstrt,$0038 ; bitplane start bln_ddfstop: COP_MOVE ddfstop,$00d0 ; bitplane stop COP_MOVE bplcon3,$0c00 bln_fmode: COP_MOVE fmode,$0000 ; fixes the aga modulo problem COP_MOVE bplcon0,$0200 COP_MOVE bplcon1,$0000 COP_MOVE bplcon2,$0024 ; turn off all bitplanes, set scroll values to 0, sprites in front ;COP_MOVE bpl1mod,(BLENDVIEW_WIDTH*BLENDVIEW_PLANES-BLENDVIEW_WIDTH)/8 ;COP_MOVE bpl2mod,(BLENDVIEW_WIDTH*BLENDVIEW_PLANES-BLENDVIEW_WIDTH)/8 COP_MOVE bpl1mod,0 COP_MOVE bpl2mod,0 bln_extra_copperlist_ptr: COP_MOVE cop2lc,0 COP_MOVE cop2lc+2,0 COP_MOVE $1fe,0 COP_END ; This is not supposed to be in chip, but we need to balance out chip and fast mem usage bln_circleinfo: include "circleinfo.asm" dc.w 0 bln_andyou_image: incbin "data/blend/andyou_128x92x2.BPL" bln_blend_image_1: incbin "data/blend/fiveimg1_ham.raw" IFND FW_DEMO_PART section "bln_cat",data,chip bln_blend_image_2: incbin "data/blend/fiveimg2_ham.raw" bln_blend_image_3: incbin "data/blend/fiveimg3_ham.raw" bln_blend_image_4: incbin "data/blend/fiveimg4_ham.raw" bln_blend_image_5: incbin "data/blend/fiveimg5_ham.raw" bln_endlogo_image: incbin "data/blend/PLT_DSRLogo01c_ham.raw" IFD ENABLE_PART_MUSIC section "part_music_samples",data,chip ; section for music playback part_music_smp: incbin "data/music/dsr_68k_tune_2_v11.lsbank" section "part_music_data",data ; section for music playback part_music_data: incbin "data/music/dsr_68k_tune_2_v11.lsmusic" ENDC ENDC END