Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- TitleScreen2:
- moveq #$FFFFFFE4,d0
- jsr (PlaySound).l
- jsr (ClearPLC).l
- jsr (Pal_FadeFrom).l
- move #$2700,sr
- move.w (VDP_reg_1_command).w,d0
- andi.b #$BF,d0
- move.w d0,(VDP_control_port).l
- bsr.w ClearVRAM
- jsr (ClearScreen).l
- lea (VDP_control_port).l,a6
- move.w #$8004,(a6)
- move.w #$8230,(a6)
- move.w #$8407,(a6)
- move.w #$8230,(a6)
- move.w #$8700,(a6)
- move.w #$8720,(a6)
- move.w #$8C81,(a6)
- move.w #$9011,(a6)
- move.w #$8B03,(a6)
- clr.b (Last_star_post_hit).w
- move.w #$100,(V_scroll_value).w
- lea (Sprite_table_input).w,a1
- moveq #0,d0
- move.w #$FF,d1
- @1 move.l d0,(a1)+
- dbf d1,@1
- lea (Object_RAM).w,a1
- moveq #0,d0
- move.w #$7FF,d1
- @2 move.l d0,(a1)+
- dbf d1,@2
- lea (Camera_RAM).w,a1
- moveq #0,d0
- move.w #$3F,d1
- @3 move.l d0,(a1)+
- dbf d1,@3
- clr.w (DMA_queue).w
- move.l #DMA_queue,(DMA_queue_slot).w
- vram $2820
- lea (ArtText_TitleScreen).l,a0
- jsr (NemDec).l
- vram $2C20
- lea (ArtNem_TitleScreen_Text).l,a0
- jsr (NemDec).l
- lea (ArtBG_TitleScreen).l,a0
- lea (RAM_start).l,a1
- movea.w #$20,a2
- jsr KosArt_To_VDP(pc)
- move.b #$16,(V_int_routine).w
- jsr (DelayProgram).l
- lea (ArtFG_TitleScreen).l,a0
- lea (RAM_start).l,a1
- movea.w #$520,a2
- jsr KosArt_To_VDP(pc)
- move.b #$16,(V_int_routine).w
- jsr (DelayProgram).l
- lea (ArtFG2_TitleScreen).l,a0
- lea (RAM_start).l,a1
- movea.w #$940,a2
- jsr KosArt_To_VDP(pc)
- move.b #$16,(V_int_routine).w
- jsr (DelayProgram).l
- lea (RAM_start).l,a1
- lea (MapFG2_TitleScreen).l,a0
- move.w #$4A,d0
- jsr (EniDec).l
- lea (RAM_start).l,a1
- vram $C310,d0
- moveq #$17,d1
- moveq #$D,d2
- jsr (Plane_Map_To_VRAM).l
- move #$2700,sr
- vram $D000,d0
- move.w #$3FF,d3
- bsr.w ClearVRAMArea
- move #$2300,sr
- bsr.w Clear_Palette
- lea Pal_TitleScreen(pc),a1
- lea (Target_palette).w,a2
- moveq #$17,d0
- @4 move.l (a1)+,(a2)+
- dbf d0,@4
- move.b #$16,(V_int_routine).w
- jsr (DelayProgram).l
- move.w #$C0,(Demo_timer).w
- move.w (VDP_reg_1_command).w,d0
- ori.b #$40,d0
- move.w d0,(VDP_control_port).l
- jsr (Pal_FadeTo).l
- @5 move.b #$16,(V_int_routine).w
- jsr (DelayProgram).l
- bsr.w DynamicPalette_TitleScreen
- bsr.w PlaneFall
- tst.w (Demo_timer).w
- bne.s @5
- moveq #$FFFFFF9B,d0
- jsr (PlaySound).l
- move.w #$9001,(VDP_control_port).l
- lea (RAM_start).l,a1
- lea (MapBG_TitleScreen).l,a0
- move.w #$6001,d0
- jsr (EniDec).l
- lea (RAM_start).l,a1
- vram $E000,d0
- moveq #$3F,d1
- moveq #$1B,d2
- jsr (Plane_Map_To_VRAM).l
- lea (RAM_start).l,a1
- lea (MapFG_TitleScreen).l,a0
- move.w #$6029,d0
- jsr (EniDec).l
- lea (RAM_start).l,a1
- vram $C000,d0
- moveq #$3F,d1
- moveq #$1B,d2
- jsr (Plane_Map_To_VRAM).l
- lea (RAM_start).l,a1
- lea (MapFG2_TitleScreen).l,a0
- move.w #$4A,d0
- jsr (EniDec).l
- lea (RAM_start).l,a1
- vram $C310,d0
- moveq #$17,d1
- moveq #$D,d2
- jsr (Plane_Map_To_VRAM).l
- move.b #$F,(Object_RAM).w
- bsr.w Load_Title_Text
- lea Pal_TitleScreen+$60(pc),a1
- lea (Target_palette_line_4).w,a2
- moveq #7,d0
- @6 move.l (a1)+,(a2)+
- dbf d0,@6
- jsr (Pal_MakeWowWhite).l
- @7 move.b #$16,(V_int_routine).w
- jsr (DelayProgram).l
- jsr (ObjectsLoad).l
- jsr (BuildSprites).l
- bsr.w DynamicPalette_TitleScreen
- bsr.w Title_Deform
- bsr.w TitleScreen_Code
- tst.b (Joypad|Press).w
- bpl.s @7
- tst.b ($FFFFFFE0).w
- beq.s @8
- btst #6,(Joypad|Held).w
- beq.s @8
- jmp (Jmp_LevelSelect).l
- @8 move.b #3,(Current_act).w
- jmp (PlayLevel).l
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement