;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ;º FILE: DISPLAY.ASM º ;º AUTHOR: Takumi Kawagoe Nintendo.co.ltd EDAº ;º DESCRIPTION: DISPLAY FOR SCREEN º ;º DATE CREATED: 7-9-93 º ;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ INCPUB display SHORTA LONGI ;WORK RAM AMmeter1 equ 6<<1 AMmeter2 equ 7<<1 AMmeter3 equ 8<<1 AMmeter4 equ 9<<1 AMmeter5 equ 10<<1 AMmeter6 equ 11<<1 RBmeter1 equ 11<<1 RBmeter2 equ 12<<1 RBmeter3 equ 13<<1 ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ;-------------------------------------------------------------------; ; ; ; set player's altitude meter ; ; ; ;-------------------------------------------------------------------; ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ boostcol1 equ 7 ; color of boost meter(normal) boostcol2 equ 2 ; color of boost meter(over heat) boostcol3 equ 3 ; color of boost meter(over heat) pccol_normal equ 8 pccol_light equ 6 pccol_dark equ 3 SHORTA LONGI set_player_cursor_P1_l ; for player 1 PUSHXYPB a8i16 BANK7E s_set_objtobeplayer1 x bra set_player_cursor_P2_l.enter set_player_cursor_P2_l ; for player 2 PUSHXYPB a8i16 BANK7E s_set_objtobeplayer2 x ;------------------------------------------------------------------------------------- .enter LOCAL toheap y,x .start s_copy_alvar2var B,y,work0,exal_maxProtX jsr setPcur_chr s_set_alvar B,y,exal_altmeter_chr,work0 lda work1 sta exal_altmeter_flag,y ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; calc altmeter pos ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ sp_jmpNOT_playertype x,ROBOT,.aw .rb a16 lda exal_worldy,y bra .pp .aw a16 lda al_worldy,x .pp sta y1 a8 jsr get_altmeter_pos ;----------------------------------------------------------------------------- ;limitter of meter ; tpz : cursor flash flag s_set_var B,tpz,#0 ;B,work1,#0 .h0 lda TPY ;work0 bpl .p .m cmp #-(altmeter_height>>1) bcc .m2 lda #33 sta tpz ;work1 lda TPY ;work0 .m2 cmp #-(altmeter_height>>1+altmeter_outheight) bcs .exit .min lda #-(altmeter_height>>1+altmeter_outheight) sta TPY ;work0 bra .exit .p cmp #altmeter_height>>1 bcs .p2 lda #33 sta tpz ;work1 lda TPY ;work0 .p2 cmp #altmeter_height>>1+altmeter_outheight bcc .exit .max lda #altmeter_height>>1+altmeter_outheight sta TPY ;work0 .exit a16 lda.l m_screenvheight ;#(bitmapvheight_1/2)*8-4 asra clc adc TPY ;work0 sec sbc #4 ; adjust and #0ffH a8 ; set sta exal_altmeter,y ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set water line ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ a16 lda SEADEPTH beq .nowater nega sta y1 a8 jsr get_altmeter_pos a16 lda #-(altmeter_height>>1) clc adc tpy sta tpy lda tpy bpl .setwl .nowater lda #0 .setwl sta exal_waterline,y a8 ;---------------------------------------------------------------------- lda TPZ ; cursor flash flag bne .inn lda gameframe and #1 bne .dark .light lda #pccol_light bra .inn2 .dark lda #pccol_dark bra .inn2 .inn lda #pccol_normal .inn2 sta exal_altmeter_col,y ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set HUD target display ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ pl_jmpnot_ifcockpit x,.nodisp,y jsr set_Target .nodisp ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; circle window ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ .circleon jsr draw_circle bcc .circleoff ; if circle priority on then addcol off! jsr deccol_circle bcs .coladd .circleoff a16 lda #winm_off sta kx_circlewindowmode,y lda #0 sta kx_circleTR,y a8 sta exal_circle_flag,y ;------------------------------------------------------------------------------------- ; colour add .coladd jsr deccol_addcol ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set MARIO RAM parameters ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ POLL_MARIO test_screenmode noplayer bne .off lda demomode beq .display_on .off ;not draw a16 lda #0 sta.l m_hudrot ; mdrawtest sta.l m_boostcnt ; mdrawtest sta.l m_ecurptr ; mhud lda #0ffffH sta.l m_p_altmeter_posx jmp .finish ;------------------------------------------------------------------------------------- .display_on ;boost meter (only mission mode) a16 lda #0 sta.l m_boostcnt a8 sm_jmp_if2screen .nosetboost toheap y,x pl_jmpnot_ifboostdisp x,.nosetboost,y lda exal_boost,y and #%111111 nega clc adc #boostmetermax bpl .setbst lda #0 .setbst sta.l m_boostanim ; pl_jmp_ifoverheat x,.setbcol1 lda #boostcol1 ; bra .setbcol2 ;.setbcol1 ; s_jmp_ANDframe #1,.setcol3 ; ; lda #boostcol3 ; bra .setbcol2 ; ;.setcol3 lda #boostcol2 ; ; .setbcol2 sta.l m_boostanim+1 a16 lda #1 sta.l m_boostcnt .nosetboost a16 ;------------------------------------------------------------------------------------- ;head up display a8 sm_jmp_if1screen .hudp2 s_jmp_alsflag x,player2,.hudp2 .hudp1 a16 lda p1_hudflag and #0ffH sta.l m_hudflags lda p1_hudrot ; set player2 hudrot sta.l m_hudrot lda #15 sta.l m_hudcolour bra .hudpp .hudp2 a16 lda p2_hudflag and #0ffH sta.l m_hudflags lda p2_hudrot ; set player2 hudrot sta.l m_hudrot lda #15 sta.l m_hudcolour .hudpp .finish a8 UNPOLL_MARIO PULLXYPB rtl ;------------------------------------------------------------------------------------- setPcur_chr ; set ARWING meter charactor No. ; idX :player's pointer ; In : work0 (8bit) rotX max ; out : work0 (8bit) charactor data pointer ; : work1 (8bit) flip data (bit1:Vflip) phx phy php a8i16 toheap y,x sp_jmp_playertype x,ROBOT,.ROBOT sp_jmp_playertype x,UFO,.ARMER jmp .ARWING ;-------------------------------------------------------------------------------------- .ROBOT s_set_var B,work0,#0 s_set_var B,work1,#0 a16 lda exal_jetRobjptr,y pha lda exal_jetLobjptr,y tay a8 lda.w al_sbyte4,y ;See ROBOanimLleg_strat sta x1+0 ;L ply lda.w al_sbyte4,y ;See ROBOanimLleg_strat sta x1+1 ;R s_jmp_varEQ B,x1+0,x1+1,.RBptr0 ;animframe(L) 0-3 & 12-15 then work0=2 inc work0 lda x1+0 clc adc #4 bit #8 bne .RBptr1 .RBptr2 lda #RBmeter3 bra .setRBptr .RBptr1 lda #RBmeter2 bra .setRBptr .RBptr0 lda #RBmeter1 .setRBptr sta work0 .exitROBOT jmp .exit ;-------------------------------------------------------------------------------------- .ARMER s_set_var B,work1,#0 ldy al_sword2,x lda exal_jetrot,y clc adc #10H lsr a lsr a lsr a lsr a lsr a s_push_obj x a16 and #7 tax a8 lda.l .ARMERDATA,x s_pull_obj x sta work0 .exitARMER jmp .exit .ARMERdata byte AMmeter3 byte AMmeter4 byte AMmeter5 byte AMmeter4 byte AMmeter3 byte AMmeter2 byte AMmeter1 byte AMmeter2 ;-------------------------------------------------------------------------------------- .ARWING lda #0 sta work1 ; lsr work0 ; lsr work0 lsr work0 ldy #0 lda al_rotx,x bpl .pl .mi ldy #3*2 nega .pl sec sbc work0 bcc .set0 iny iny sec sbc work0 bcc .set1 iny iny bra .set1 .set0 ;lda #0 ;sta work1 .set1 sty work0 .exit plp ply plx rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; SET TARGET ROUTINE ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SHORTA LONGI set_Target phx phy php a8i16 s_jmp_alsflag x,player2,.tp2 .tp1 test_PLtarget p1 rlbeq .exit bra .do .tp2 test_PLtarget p2 rlbeq .exit .do LOCAL pl_ldy_viewblk x sty work1 ; -- calc value -- ldy dummyobj s_copy_rots y,x ;œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ s_push_obj y ldy al_sword2,x lda exal_acclroty+1,y clc adc exal_acclroty+1,y s_pull_obj y clc adc.w al_roty,y sta.w al_roty,y ;œœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœœ s_add_roffs2pos B,y,x,y,#0,#0,#100,1,1,1,3,3,3 s_push_obj x tyx ldy work1 jsl calc_scrpos_l s_pull_obj x ; -- set value -- s_set_var B,work0,#8 ; min limiter sm_jmp_if1screen .one ; test_screenmode onescreen ; bne .one .two s_set_var W,work1,#bitmapwidth*8-8 s_set_var W,work2,#bitmapvheight*8-8 bra .LMTx .one s_set_var W,work1,#bitmapwidth_1*8-8 s_set_var W,work2,#bitmapvheight_1*8-8 .LMTx a16 lda xs bpl .maxx lda #0 sta xs .maxx lda work1 cmp xs bcs .minx sta xs .minx lda work0 cmp xs bcc .LMTy sta xs .LMTy lda ys bpl .maxy lda #0 sta ys .maxy lda work2 cmp ys bcs .miny sta xs .miny lda work0 cmp ys bcc .out sta ys .out a8 s_jmp_alsflag x,player2,.p2 .p1 lda xs clc adc #player1_wx*8 sta p1_TargetX lda ys clc adc #2*8 sta p1_TargetY bra .exit .p2 lda xs clc adc #player2_wx*8 sta p2_TargetX lda ys clc adc #15*8 sta p2_TargetY bra .exit .exit stp_exit plp ply plx rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; altmeter no posision ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ get_altmeter_pos ; in :y1 (=al_worldy) ; out :tpy(altmeter pos y) ; using :tpx ; :tpy ; :tpz PHP ;ÚÄÄÄÄ¿ ;³Calc³ ;ÀÄÄÄÄÙ a16 lda #0 sta TPX ;work2 lda BATTLEAREA_minY clc adc BATTLEAREA_maxY nega asra clc adc y1 ;al_worldy,x clc adc #-11 ;adjust for ROBOT bpl .skip0 nega pha lda #-1 ; sign change sta TPX ;work2 pla .skip0 sta TPY ;work0 lda altmeterrate sta tpz ;work1 .loop0 bit #0ff00H beq .out lsr tpz ;work1 lsr TPY ;work0 lsr a bra .loop0 .out lda TPY ;work0 sta.l WRDIVL a8 lda tpz ;work1 sta.l WRDIVB a16 nop nop nop nop nop nop nop nop lda.l RDDIVLR eor TPX ;work2 sta TPY ;work0 PLP rts ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ;-------------------------------------------------------------------; ; ; ; Calculates the enemy's altitude meter ; ; ; ;-------------------------------------------------------------------; ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ set_Ealtstatus macro [setalvar,countalvar,flagvar,animvar] ;Out: setvar ; bit0-3 cursor type No(max16 type) ; bit4 1:H flip on ; bit5 1:V flip on ; bit6 no ; bit7 0:cursor on 1:cursor off ; ; countvar ; bit0-3 animation counter ; bit4-7 flash counter a8 ; -- set coursor ON OFF flag -- lda {flagvar} bit #80H beq .skip0\@ lda {setalvar},y bmi .skip1\@ lda gameframe and #1 beq .skip2\@ lda #10H .skip2\@ clc adc {countalvar},y ; CURSOR FLASH COUNTER INC sta {countalvar},y cmp #070H ; counter max 7(*10H) bcc .skip1\@ lda {setalvar},y ora #80H ; SET cursor clear FLAG sta {setalvar},y lda {countalvar},y ; CLR COUNTER and #0fH sta {countalvar},y bra .skip1\@ .skip0\@ lda {countalvar},y ; CLR FLAG and #0fH sta {countalvar},y lda {setalvar},y and #7fH sta {setalvar},y .skip1\@ lda {setalvar},y and #0e0H sta {setalvar},y lda {flagvar} ; CUR TYPE and #3fH ora {setalvar},y sta {setalvar},y ; -- set coursor animation counter -- lda {animvar} and #3 cmp #3 beq .inc\@ lda gameframe and #1 beq .noinc\@ .inc\@ lda {countalvar},y inc a sta {countalvar},y .noinc\@ lda {countalvar},y and #0fH cmp #5 ; max animation No. bcc .exit\@ lda {countalvar},y and #0f0H sta {countalvar},y .exit\@ ENDM ;------------------------------------------------------------------- ;workflag bit0 : right out ; bit1 : left out ; bit2 : down out ; bit3 : up out ; bit7 : FRONT(0) BACK (1) ;cursor type 0 : inside screen ; 1 : right out ; 2 : left out ; 3 : down out ; 4 : up out ;Using work0: work ram ; work1: cursor type No. ecsizeA equ 16 ; size of enemy cursor ecsizeB equ 11 ; size of enemy cursor viewsquear equ viewradius*viewradius ; scale oblivious radius for view(vars.inc) ;------------------------------------------------------------------- ;ECtargetptr equ work9 set_enemy_cursor_P1_l ; for screen #1 PUSHXYPB a8i16 BANK7E ldx playpt1 ;------------------------------------------------------------------- ;add inert obj 2 enemyaltmeter sm_jmp_if2screen .noinert jsl addEaltlist_inert_l .noinert ;------------------------------------------------------------------- ; toheap y,x ; a16 ; lda exal_enemyaltmeter_objptr,y ; printh enemyptr,kawagoe ; a8 bra set_enemy_cursor_P2_l.enter ;------------------------------------------------------------------- set_enemy_cursor_P2_l ; for screen #1 ; idX :player's pointer ; idY :heap pointer PUSHXYPB a8i16 BANK7E ldx playpt2 .enter LOCAL toheap y,x a16 lda exal_enemyaltmeter_objptr,y a8 rlbne .notareaout ;-------------------------------------------------------------------------------- ; battle mode ? sm_jmp_if1screen .notmarkplayer s_push_obj y s_push_obj x ldy dummyobj s_jmp_alsflag x,player2,.markp1 ldx playpt2 bra .markpp .markp1 ldx playpt1 .markpp s_copy_pos y,x s_pull_obj x s_pull_obj y bra .calcmarkpos .notmarkplayer ;-------------------------------------------------------------------------------- ; AREA OUT no check lda KRingOutTimer,y rlbpl .nomarkobj ;.notareaout ; clear obj ptr s_push_obj x a16 ldx dummyobj lda exal_markx,y sta al_worldx,x lda exal_marky,y sta al_worldy,x lda exal_markz,y sta al_worldz,x a8 s_pull_obj x .calcmarkpos a16 lda #0 sta exal_enemyaltmeter_objptr,y sta exal_enemyaltmeter_offdist,y lda #0ffffH sta exal_enemyaltmeter_objdist,y lda #80h<<8 sta exal_enemyaltmeter_objdiry,y a8 pl_ldy_viewblk x s_push_obj x ldx dummyobj jsr xzdiffs_lmt_srou jsr yangle_lmt_srou s_pull_obj x toheap y,x a16 lda dummyobj sta exal_enemyaltmeter_objptr,y lda rangexz sta exal_enemyaltmeter_objdist,y lda work1 sta exal_enemyaltmeter_objdiry,y ; ring out dattara dirx = 0 lda work0 sta exal_enemyaltmeter_objdirx,y lda KRingOutTimer-1,y bpl .markposend lda #0 sta exal_enemyaltmeter_objdirx,y .markposend a8 jmp .start .notareaout ;-------------------------------------------------------------------------------- sp_jmp_ifEaltmeterON x,.start ;-------------------------------------------------------------------------------- .nomarkobj s_or_alvar B,y,exal_enemyaltmeter_status,#80H jmp .exit ;-------------------------------------------------------------------------------- .start ; dist wo test s_set_alvar W,y,exal_enemyaltmeter_offdist,#player_curoffdist s_copy_alvar2var W,y,x1,exal_enemyaltmeter_offdist ;cur off dist s_set_var B,work1,#0 ; cursor type No. s_push_obj y pl_ldy_viewblk x jsr setEcursor s_pull_obj y s_set_alvar W,y,exal_enemyaltmeter_x,xs ; pos of cursor s_set_alvar W,y,exal_enemyaltmeter_y,ys ; pos of cursor s_set_var B,tpx,#0 set_Ealtstatus exal_enemyaltmeter_status,exal_enemyaltmeter_status2,scrLMT_type,tpx ; clear obj ptr ; ; a16 ; lda #0 ; sta exal_enemyaltmeter_objptr,y ; sta exal_enemyaltmeter_offdist,y ; lda #0ffffH ; sta exal_enemyaltmeter_objdist,y ; lda #80h<<8 ; sta exal_enemyaltmeter_objdiry,y ; a8 ;-------------------------------------------------------------------------------- ; set string's position & data s_push_obj x ; set string data bank a8 ; POLL_MARIO lda #string_target>>16 sta.l m_e_stringbank ; UNPOLL_MARIO a16 lda exal_enemyaltmeter_status,y and #15 cmp #9 bcc .stgcnt lda #0 .stgcnt asl a tax a8 lda.l .stringtab+0,x sta x1 lda.l .stringtab+1,x sta y1 s_pull_obj x s_achase_alvar B,y,exal_string_ofsx,x1,2 s_achase_alvar B,y,exal_string_ofsy,y1,2 ;string test a16 lda exal_enemyaltmeter_objptr,y rlbne .target lda KRingOutTimer-1,y bmi .turn .target LONGA ; set target colour lda #409h sta exal_string_col,y ; a8 ; POLL_MARIO ; a16 lda #string_target&WM sta.l m_e_string ; a8 ; UNPOLL_MARIO ; a16 bra .exit .turn LONGA ; set turn colour phx lda gameframe and #3 asl a tax lda.l string_turn_col,x sta exal_string_col,y plx lda exal_enemyaltmeter_status,y and #15 bne .string_turn .string_forward a16 lda #string_forward&WM bra .st0 .string_turn ; a8 ; POLL_MARIO a16 lda #string_turn&WM .st0 sta.l m_e_string a8 ; UNPOLL_MARIO ;-------------------------------------------------------------------------------- .exit ; clear obj ptr a16 lda #0 sta exal_enemyaltmeter_objptr,y sta exal_enemyaltmeter_offdist,y lda #0ffffH sta exal_enemyaltmeter_objdist,y lda #80h<<8 sta exal_enemyaltmeter_objdiry,y a8 PULLXYPB rtl .stringtab db 8,8 ;TYPE_F equ 0 db 8,8 ;TYPE_FL equ 1 db -32,8 ;TYPE_FR equ 2 db 8,8 ;TYPE_U equ 3 db 8,-20 ;TYPE_D equ 4 db 8,8 ;TYPE_UL equ 5 db -32,8 ;TYPE_UR equ 6 db 8,-20 ;TYPE_DL equ 7 db -32,-20 ;TYPE_DR equ 8 string_target db "#TARGET",0 string_turn db "#TURN",0 string_forward db "#FORWARD",0 string_fox db "#FOX",0 string_falco db "#FALCO",0 string_peppy db "#PEPPY",0 string_slippy db "#SLIPPY",0 string_gal1 db "#GAL1",0 string_gal2 db "#GAL2",0 string_turn_col dw 0409h dw 0209h dw 0309h dw 0409h ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ck_EaltUDLR macro [setvar,rotvar,varmax,FNo,LNo,RNo] lda {rotvar} ; obj2obj rotY bit #80H ; minus? bne .m\@ .p\@ cmp #{varmax} bcc .skipF\@ bra .skipL\@ .m\@ nega and #0ffH cmp #{varmax} bcc .skipF\@ .skipR\@ lda {RNo} bra .set\@ .skipL\@ lda {LNo} bra .set\@ .skipF\@ lda {FNo} .set\@ sta {setvar} endm ; E cursor type No. TYPE_F equ 0 TYPE_FL equ 1 TYPE_FR equ 2 TYPE_BL equ 1 TYPE_BR equ 2 TYPE_U equ 3 TYPE_D equ 4 TYPE_UL equ 5 TYPE_UR equ 6 TYPE_DL equ 7 TYPE_DR equ 8 scrLMT_type equ work1 ; cursor type scrLMT_flag equ work6 scrLMT_ROTX equ work7 ; rotx view ---> object scrLMT_ROTY equ work8 ; roty view ---> object offdist equ work9 ; off ni suru distance scrLMT_rotxbuf equ work5 scrLMT_rotybuf equ work4 setEcursor ;in : idX(player pointer) idY(camera pointer) ; : x1(16bit):cor off dist ;heap : exal_enemyaltmeter_objptr (16bit) ; : exal_enemyaltmeter_objdist(16bit) ; : exal_enemyaltmeter_objdiry(16bit) ; : exal_enemyaltmeter_objdirx(16bit) ;out ; : work1(8bit) ; : enemy cursor status (low 4bit=CURSOR type) ; : work4(bit0 1:enemy visible area world XZ) ; : (bit1 1:enemy visible area world XZ) ; : xs enemy cursor pos x(8bit) ; : ys enemy cursor pos y(8bit) PUSHXYP ai16 ;-------------------------------------------------------- ; cur off dist lda x1 sta offdist lda #0 sta scrLMT_flag ; bit7=1 off a16 PHY tya ldy playhpt1 cmp #viewblk1 beq .vv ldy playhpt2 .vv lda exal_enemyaltmeter_objdist,y sta rangexz lda exal_enemyaltmeter_objdirx,y sta scrLMT_rotx lda exal_enemyaltmeter_objdiry,y sta scrLMT_roty PLY lda rangexz cmp offdist bcs .endckdis .outdis lda #80H sta scrLMT_flag .endckdis a8 ;-------------------------------------------------------- a16 lda #0 sta scrLMT_type lda scrLMT_roty-1 sta scrLMT_rotybuf ;tpy lda scrLMT_rotx-1 sta scrLMT_rotxbuf ;tpx ;-------------------------------------------------------- ; get data table ldx #.scrlmt_1&WM sm_jmp_if1screen .skip ldx #.scrlmt_2&WM .skip ;-------------------------------------------------------- ; roty no limitter ;-------------------------------------------------------- .rotylmt lda scrLMT_roty bmi .miy1 .ply1 cmp.l .scrlmttab&0ff0000H+4,x bcc .nolmty inc scrLMT_type lda.l .scrlmttab&0ff0000H+0,x bra .ryset .miy1 cmp.l .scrlmttab&0ff0000H+6,x bcs .nolmty inc scrLMT_type lda.l .scrlmttab&0ff0000H+2,x bra .ryset .nolmty ;-------------------------------------------------------- ; set x position ;-------------------------------------------------------- lda scrLMT_roty+1 bit #80H beq .rypl .rymi ;nega rol scrLMT_rotybuf ;tpy jsr .gettabMI bra .ryadd .rypl rol scrLMT_rotybuf ;tpy jsr .gettabPL nega .ryadd clc adc.l .scrlmttab&0ff0000H+16+0,x ;#bitmapwodth_1*4 .ryset sta xs ;-------------------------------------------------------- ; rotx no limitter ;-------------------------------------------------------- .rotxlmt LONGA lda scrLMT_rotx bmi .mix1 .plx1 cmp.l .scrlmttab&0ff0000H+8+4,x bcc .nolmtx inc scrLMT_type lda.l .scrlmttab&0ff0000H+8+0,x bra .rxset .mix1 cmp.l .scrlmttab&0ff0000H+8+6,x bcs .nolmtx inc scrLMT_type lda.l .scrlmttab&0ff0000H+8+2,x bra .rxset .nolmtx ;-------------------------------------------------------- ; set y position ;-------------------------------------------------------- lda scrLMT_rotx+1 bit #80H beq .rxpl .rxmi ;nega rol scrLMT_rotxbuf ;tpx jsr .gettabMI nega bra .rxadd .rxpl rol scrLMT_rotxbuf ;tpx jsr .gettabPL .rxadd clc adc.l .scrlmttab&0ff0000H+16+2,x ;#bitmapheight_1*4 .rxset sta ys ;-------------------------------------------------------- .exitpos a8 ;-------------------------------------------------------- ; set type ;-------------------------------------------------------- .settype lda scrLMT_type beq .notype stz tpx lda scrLMT_roty+1 bpl .stY_pl .stY_mi pha lda #4 sta tpx pla nega .stY_pl cmp #10 bcc .stY0 inc tpx .stY0 cmp #64 bcc .stY1 inc tpx .stY1 lda scrLMT_rotx+1 bpl .stX_pl .stX_mi cmp #-8 bcs .stX1 lda #8 bra .stX0 .stX_pl cmp #8 bcc .stX1 lda #10H .stX0 ora tpx sta tpx .stX1 a16 PHX lda tpx and #0ffH tax lda.l .typetab,x a8 sta scrLMT_type PLX .notype ; set off flag lda scrLMT_type cmp #TYPE_F bne .exit ora scrLMT_flag sta scrLMT_type .exit PULLXYP rts LONGA LONGI .gettabPL PHX php ; push carry and #1fH tax plp bcs .gettabMI2 bra .gettabMI4 LONGA LONGI .gettabMI PHX php ; push carry nega and #1fH tax plp bcc .gettabMI2 .gettabMI4 lda.l .tab,x bra .gettabMI3 .gettabMI2 lda.l .tab2,x .gettabMI3 and #0ffH PLX rts .scrlmttab .scrlmt_1 ;roty dw 30H dw bitmapwidth_1*8-30H dw 20*100H dw -20*100H ;rotx dw bitmapheight_1*8-30H dw 30H dw 14*100H dw -14*100H ; screen center pos dw bitmapwidth_1*4 dw bitmapheight_1*4 .scrlmt_2 ; roty dw 12H dw bitmapwidth*8-12H dw 18*100H dw -18*100H ; rotx dw bitmapvheight*8-12H dw 12H dw 9*100H dw -9*100H ; screen center pos dw bitmapwidth*4 dw bitmapvheight*4 .typetab db type_f,type_fl,type_bl,0,type_f,type_br,type_fr,0 db type_u,type_ul,type_ul,0,type_u,type_ur,type_ur,0 db type_d,type_dl,type_dl,0,type_d,type_dr,type_dr,0 .tab db 0>>1 ;0 db 6>>1 ;1 db 13>>1 ;2 db 18>>1 ;3 db 25>>1 ;4 db 32>>1 ;5 db 38>>1 ;6 db 44>>1 ;7 db 51>>1 ;8 db 57>>1 ;9 db 64>>1 ;10 db 71>>1 ;11 db 78>>1 ;12 db 85>>1 ;13 db 92>>1 ;14 db 99>>1 ;15 db 106>>1 ;16 db 113>>1 ;17 db 121>>1 ;18 db 128>>1 ;19 db 136>>1 ;20 db 145>>1 ;21 db 153>>1 ;22 db 162>>1 ;23 db 171>>1 ;24 db 180>>1 ;25 db 189>>1 ;26 db 200>>1 ;27 db 210>>1 ;28 db 221>>1 ;29 db 232>>1 ;30 db 243>>1 ;31 .tab2 db 3>>1 db 9>>1 db 16>>1 db 22>>1 db 28>>1 db 35>>1 db 41>>1 db 48>>1 db 54>>1 db 61>>1 db 67>>1 db 74>>1 db 81>>1 db 88>>1 db 95>>1 db 102>>1 db 109>>1 db 117>>1 db 125>>1 db 133>>1 db 141>>1 db 149>>1 db 158>>1 db 166>>1 db 176>>1 db 185>>1 db 194>>1 db 204>>1 db 215>>1 db 226>>1 db 238>>1 db 249>>1 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ xzdiffs_lmt_srou PHP ai16 ; calc dist xz (max 0fffh) .ckxz lda al_worldx,x sec sbc.w al_worldx,y bpl .xdis0 nega .xdis0 bit #0f000H beq .xdis1 lda #0fffH .xdis1 sta rangexz lda al_worldz,x sec sbc.w al_worldz,y bpl .zdis0 nega .zdis0 bit #0f000H beq .zdis1 lda #0fffH .zdis1 clc adc rangexz bit #0f000H beq .xzdis0 lda #0fffH .xzdis0 sta rangexz PLP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ yangle_lmt_srou ; call after "xzdiffs_lmt_srou") ; idy: view pointer ; idx: obj pointer ;out :work0 angleX ; :work1 angleY PHP s_exg_objs ; **** ;<<>> kyori ga hanare sugiruto(>1000H) hen ni naru node, check wo ireru. phx phy a16 stz smvar_byte1 ;<<>>s_obj2obj_... to onaji code. ; lda rangexz ; bit #0f000H ; beq .obj2obj ; lda #0fffH ;.obj2obj lda rangexz sta y1 lda.w al_worldy,y sec sbc al_worldy,x sta x1 jsl arctan16_l ai16 ply plx ;<<>> clc adc al_rotx,x sta work0 a8 s_jsl Yanglexy_l a16 nega clc adc.w al_roty,x sta work1 ;scrLMT_roty a8 ; **** s_exg_objs PLP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ setealtmeter_l PUSHXYPB a8i16 BANK7E ai16 cpx #viewblk2 ; player2? bne .player1 jmp .player2 .player1 ; test_screenmode onescreen ; beq .twoscr ; a8 sm_jmp_if2screen .twoscr ; a16 .onescr lda #P1_PaltlineposX_1 sta.l m_p_altmeter_posx lda #P1_PaltmeterX_1 bra .dop1 .twoscr a16 lda #P1_PaltlineposX sta.l m_p_altmeter_posx lda #P1_PaltmeterX .dop1 sta.l m_p_altmeter_x phx ldx playpt1 bra .start .player2 lda #P2_PaltlineposX sta.l m_p_altmeter_posx lda #P2_PaltmeterX-8 sta.l m_p_altmeter_x phx ldx playpt2 .start ;************ ; string data(Target) ldy al_sword2,x lda exal_string_ofsx,y sexa sta.l m_e_string_ofsx lda exal_string_ofsy,y sexa sta.l m_e_string_ofsy lda exal_string_col,y sta.l m_e_string_col ; water line ldy al_sword2,x plx phx lda exal_altmeter_chr,y and #0ffH tax lda #AWMETERtab/10000H sta.l m_pcurbank lda.l AWMETERtab,x sta.l m_pcurptr plx lda exal_altmeter_flag-1,y ;HVflip flag sta.l m_p_altmeter_flag lda exal_altmeter,y sec sbc #PA_cur_sizeY>>1 and #0ffH sta.l m_p_altmeter_y lda exal_altmeter_col,y and #0ffH sta.l m_p_altmeter_col lda exal_waterline,y and #0ffH sta.l m_p_waterline lda exal_enemyaltmeter_status-1,y bpl .drawp1 jmp .nodraw .drawp1 lda exal_enemyaltmeter_x,y sta.l m_e_altmeter_x lda exal_enemyaltmeter_y,y sta.l m_e_altmeter_y lda exal_enemyaltmeter_status2,y sta work0 lda exal_enemyaltmeter_status,y ;************ .exit and #0fH asl a phx tax lda #cursprtable/10000H sta.l m_ecurbank lda.l cursprtable,x sta work1 lda work0 and #0fH asl a asl a clc adc work1 tax lda.l cursprtable&0ff0000H,x sta.l m_ecurptr lda.l cursprtable&0ff0000H+2,x sta.l m_e_altmeter_flag ;shift times ; tax plx ; -- col animation -- ; pla lda work0 and #0f0H beq .col2 lda gameframe bit #1 bne .col2 .col1 lda #2 ; flash colour sta.l m_e_altmeter_col1 lda #2 sta.l m_e_altmeter_col2 lda #2 sta.l m_e_altmeter_col3 bra .exit_col .col2 lda #0eH sta.l m_e_altmeter_col1 lda #0eH sta.l m_e_altmeter_col2 lda #0eH sta.l m_e_altmeter_col3 .exit_col PULLXYPB rtl .nodraw lda #0 sta.l m_ecurptr PULLXYPB rtl ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ;-------------------------------------------------------------------; ; ; ; Call mcallarctan16 ; ; ; ;-------------------------------------------------------------------; ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ call_arctan16_l PHP a16 jsl arctan16_l sta x1 PLP rtl ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ;-------------------------------------------------------------------; ; ; ; Calculates the enemy's direction ; ; ; ;-------------------------------------------------------------------; ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> arctan_e_direction php a8i16 c_obj2obj_rotY W,x,y,work0 a16 lda work0 bit #80h bne .my_minus .my_plus and #0ffH cmp #10*8 bpl .my_max bra .my_set .my_minus ora #0ff00H cmp #-10*8 bcc .my_min bra .my_set .my_max lda #10*8 lda #0ffffH bra .my_set .my_min lda #-10*8 lda #0ffffH bra .my_set .my_set clc adc #10*8 sta work0 plp rts ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ;-------------------------------------------------------------------; ; ; ; Set DAMAGE METER ; ; ; ;-------------------------------------------------------------------; ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ lampMAXnum equ 10 alarmS equ 3 alarmH equ 1 IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> set_dmgmeterVAL_srou_l jmp set_dmgmeterVAL_1_srou_l ; mission mode ;in : A 8bit(HPmax/num of damagemeter lamp) phx phy php a8i16 sta work0 ldy al_sword2,x lda KHP,y ; same last value and #7fH ; clear MSB bit pha ; **CAUTION! This stuck is pulled at .sound ** lda exal_HP,y sta.l WRDIVL lda #0 sta.l WRDIVH lda work0 sta.l WRDIVB nop ;/2 nop ;/2 nop ;/2 nop ;/2 nop ;/2 nop ;/2 nop ;/2 nop ;/2 clc lda.l RDMPYLR ;amari sta work1 lda.l RDDIVLR asl a asl a asl a sta work2 ;syo ;------------------------------------------------ ; calc amari -> 0-3 lda work0 ;(HP of 1 lamp)/4 lsr a ;/2 lsr a ;/4 pha lda work1 ; amari sta.l WRDIVL lda #0 sta.l WRDIVH pla sta.l WRDIVB nop ;/2 nop ;/2 nop ;/2 ; nop ;/2 ; nop ;/2 ; nop ;/2 ; nop ;/2 ; nop ;/2 lda KHP,y ;2 ; 3-7bit -> work3 pha ;1 and #0f8H ;2 sta work4 ;2 pla ;1 and #7 ;2 ; 0-2bit -> work4 sta work3 ;1 lda.l RDDIVLR ; inc a and #7 sta work1 ;remain HP of 1 lamp lda work2 ;num of lamp ora work1 sta work2 ;------------------------------------------------ cmp KHP,y rlbeq .sound bcc .LAMPOFF bcs .LAMPON jmp .sound .LAMPON lda work3 inc a sta work3 cmp #5 bcc .skipON0 lda work4 clc adc #8 and #078H ora #1 sta KHP,y bra .safty .skipON0 lda work4 ora work3 sta KHP,y bra .safty .LAMPOFF lda work3 dec a sta work3 bpl .skipOFF0 and #4 sta work3 lda work4 sec sbc #8 sta work4 ;***************************************** IFEQ 1 lda al_HP,x pha and #3 sta work3 pla and #0fcH asl a sta work4 lda KHP,y and #%01111000 cmp work4 beq .LAMPCLR bcc .LAMPCLR lda KHP,y and #%111 beq .LO0 lda #0 sta work3 lda KHP,y and #%1111000 bra .LO1 .LO0 lda KHP,y and #%1111000 sec sbc #%1000 .LO1 sta work4 .LAMPCLR ENDC ;***************************************** .skipOFF0 lda work4 ora work3 sta KHP,y .safty ; MAX = 10 lda KHP,y and #78H cmp #lampMAXnum*8 bcc .ok lda #(lampMAXnum-1)*8+4 bra .ng .ok lda KHP,y .NG ora #80H sta KHP,y .sound pla sta work0 lda KHP,y and #07fH ;sound sta work1 ; cmp work0 ; beq .exit ; bpl .ONsound ; ;.OFFsound ;damage meter decriment sound ; ; lda work0 ;.Os1 cmp #alarmS*8+1 ; bcc .Os2 ; lda work1 ; cmp #alarmS*8+1 ; bcs .exit ; bra .s2 ; ;.Os2 cmp #alarmH*8+1 ; bcc .exit ; lda work1 ; cmp #alarmH*8+1 ; bcs .exit ; bra .s1 ; ;.s2 kplsound x,salarm_s ; sound ; bra .exit ;.s1 kplsound x,salarm_h ; sound ; bra .exit .ONsound ;damage meter recharge sound jsr alarm_sound_srou .exit ; jsr alarm_sound_srou plp ply plx rtl ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ set_dmgmeterVAL_1_srou_l ; mission mode phx phy php a8i16 ; s_jmp_alsflag x,player2,.exit ldy al_sword2,x lda KHP,y ; MSB set flag:clear by Kawaguchi bmi .noset cmp exal_HP,y beq .noset bcc .inc .dec dec a cmp #player_HP bcs .max ; lda exal_HP,x bra .set2 .inc inc a cmp #player_HP bcc .set0 .max lda #player_HP .set0 .set2 ora #80H sta KHP,y ; and #07fH ; cmp #alarmH*4 ; beq .s1 ; cmp #alarmS*4 ; bne .noset ; ;.s2 ; kplsound x,salarm_s ; sound ; bra .noset ;.s1 kplsound x,salarm_h ; sound ; bra .noset .noset lda KHP,y ; and #07fH ; sta KHP,y ; printh kawagoe .exit jsr alarm_sound_srou plp ply plx rtl alarm_sound_srou ; in exal_KHPold : mae no HP ; KHP : ima no HP PHP a8i16 lda exal_HP,y beq .exit cmp #40 beq .cpold cmp exal_KHPold,y bcs .cpold cmp #alarmS*4+1 bcs .cpold cmp #alarmH*4+1 bcc .s1 .s2 kplsound x,salarm_s ; sound bra .cpold .s1 kplsound x,salarm_h ; sound .cpold lda exal_HP,y sta exal_KHPold,y .exit PLP rts IFEQ 1 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; in exal_KHPold : mae no HP ; KHP : ima no HP PUSHXYP s_start_strat a8i16 ldy al_sword2,x ; lda exal_KHPold,y ; printh KHPold,kawagoe ; lda KHP,y ; printh KHP,kawagoe s_set_var B,x1,#alarmS*4 s_set_var B,x2,#alarmH*4 sm_jmp_if1screen .onescreen ; test_screenmode onescreen ; bne .onescreen .twoscreen asl x1 asl x2 .onescreen inc x1 inc x2 lda KHP,y and #7fH cmp exal_KHPold,y ; mae no HP beq .exit ; lda exal_KHPold,y ; mae no HP .Os1 ;cmp x1 ; alarm S ;bcc .Os2 lda KHP,y ; ima no HP and #7fH cmp x1 ; alarm S bcs .exit bra .s2 .Os2 ;cmp x2 ; alarm H ;bcc .exit lda KHP,y and #7fH cmp x2 ; alarm H bcs .exit bra .s1 .s2 kplsound x,salarm_s ; sound bra .exit .s1 kplsound x,salarm_h ; sound .exit lda KHP,y and #7fH sta exal_KHPold,y PULLXYP rts ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ENDC ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;---------------------------------------------------------------------------------- ; calc pos ;---------------------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; In : idX object pointer ; : idY camera pointer ; Out : xs ; : ys SHORTA LONGI calc_scrpos_l PUSHXYP a8i16 s_copy_alvar2var W,y,viewposx,al_worldx s_copy_alvar2var W,y,viewposy,al_worldy s_copy_alvar2var W,y,viewposz,al_worldz ; s_copy_alvar2var W,y,viewrotx,al_rotx ; s_copy_alvar2var W,y,viewroty,al_roty ; s_copy_alvar2var W,y,viewrotz,al_rotz POLL_MARIO jsl rotproj_l UNPOLL_MARIO PULLXYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;---------------------------------------------------------------------------------- ; set hud rot(headup display) ;---------------------------------------------------------------------------------- ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ _hudflag_ equ work1 _hudrot_ equ work0 ; In : idX player's pointer set_hudrot_srou_l phx phy php a8i16 lda #0 sta _hudflag_ ;work1 pl_jmp_ifcockpit x,.on ; hudflag ; bit0:1=L wing clash ; bit1:1=R wing clash ; bit2:1=two screen mode 0=one screen mode ; hudrot lda #0 sta _hudrot_+1 ;work0+1 bra .set .on lda #0 sta _hudflag_ ;work1 lda #80H sta _hudrot_+1 ;work0+1 s_copy_alvar2var B,x,_hudrot_,al_rotz .set ; test_screenmode onescreen ; bne .one sm_jmp_if1screen .one lda _hudflag_ ora #4 sta _hudflag_ .one pl_set_p1p2var W,x,hudrot,_hudrot_ pl_set_p1p2var B,x,hudflag,_hudflag_ .exit plp ply plx rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ; ³ ³ ; ³ Enemy altmeter no list no program ³ ; ³ ³ ; ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ initEalt_srou_l PUSHXYP s_start_strat a8i16 ldy al_sword2,x a16 lda #0 sta exal_enemyaltmeter_objptr,y ; sta exal_enemyaltmeter_OFFdist,y sta exal_markx,y sta exal_marky,y sta exal_markz,y lda #0ffffH sta exal_enemyaltmeter_objdist,y a8 ; Battle mode ? sm_jmp_if1screen .notplayer ; test_screenmode onescreen ; bne .notplayer sp_Ealtmeter_player x .notplayer sp_Ealtmeter_on x .exit PULLXYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; mark inert obj ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ addEaltlist_inert_l aeai_dist equ work9 aeai_x equ work8 aeai_y equ work7 aeai_z equ work6 s_start_strat PUSHXYP a8i16 toheap y,x a16 lda exal_enemyaltmeter_objptr,y a8 rlbne .exit ;---------------------------------------------------------------------------------- lda gameframe bit #31 rlbne .addElist ;---------------------------------------------------------------------------------- PHX PHY a16 lda #0ffffh sta aeai_dist ldy inertlistptr ldx dummyobj .loop lda.w i_flags,y bit #if_target beq .next bit #if_exists ;path ga ugoite ireba ADD sinakutemo iihazu. bne .next lda.w i_worldx,y sta al_worldx,x lda.w i_worldy,y sta al_worldy,x lda.w i_worldz,y sta al_worldz,x PHY ldy #viewblk1 s_jsl xzdiffs_l a16 PLY ;******************************************************* ; chikaku ni ite sonzai sitenakereba add sinai! lda rangexz cmp #1000 bcc .noreset ;******************************************************* lda rangexz cmp aeai_dist bcs .noreset sta aeai_dist lda al_worldx,x sta aeai_x lda al_worldy,x sta aeai_y lda al_worldz,x sta aeai_z .noreset .next lda.w _next,y tay bne .loop PLY PLX lda aeai_dist sta exal_markdist_inert,y lda aeai_x sta exal_markx_inert,y lda aeai_y sta exal_marky_inert,y lda aeai_z sta exal_markz_inert,y ;---------------------------------------------------------------------------------- .addElist toheap y,x ldx dummyobj a16 lda exal_markdist_inert,y cmp #0ffffh beq .exit lda exal_markx_inert,y sta al_worldx,x lda exal_marky_inert,y sta al_worldy,x lda exal_markz_inert,y sta al_worldz,x .nomark a8 .addElist2 ;******************************************************* ; chikaku ni ite sonzai sitenakereba add sinai! a16 lda exal_markdist_inert,y cmp #1000 a8 bcc .exit ;******************************************************* jsl addEaltlist_p1_l ;---------------------------------------------------------------------------------- .exit PULLXYP rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;ealtlist_num equ 10 ;ealtlist_sizeof equ ealtlist_num*ealtlist_size ;---------------------------------------------------------------------------------- aEa_objptr equ work9 aEa_objdiry equ work6 aEa_objdirx equ work5 aEa_currentobjdiry equ work4+1 aEa_currentobjdirx equ work4+0 aEa_objdist equ work3 ;using scrLMT_ROTX : work7 ; scrLMT_ROTY : work8 addEaltlist_p2_l ; in : idX=object's pointer PUSHXYPB BANK7E s_start_strat a8i16 ldy playpt2 jmp addEaltlist_p1_l.enter addEaltlist_p1_l ; in : idX=object's pointer PUSHXYPB BANK7E s_start_strat a8i16 ldy playpt1 .enter LOCAL ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ;³player kara object no kyori wo keisan suru.³ ;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ stx aEa_objptr s_push_obj y ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ;************ read current obj dist & dir s_push_obj y toheap y,y a16 lda exal_enemyaltmeter_objdist,y sta rangexz a8 lda exal_enemyaltmeter_objdiry+1,y clc adc #20h sta aEa_currentobjdiry lda exal_enemyaltmeter_objdirx+1,y sta aEa_currentobjdirx s_pull_obj y ;************ calc dir pl_ldy_viewblk y ; idY <-- view pointer jsr xzdiffs_lmt_srou jsr yangle_lmt_srou a16 lda work1 clc adc #20h<<8 ; view ga mieru angle = 20h! ni suru. sta aEa_objdiry lda work0 ;scrLMT_rotx sta aEa_objdirx a8 ;************ ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ s_pull_obj y a16 ldx al_sword2,y ;************ lda #1000 ; cmp rangexz bcc .distck cmp exal_enemyaltmeter_objdist,x bcc .distck ; dir ck lda aEa_objdiry+1 bit #0c0h ; out of view? bne .noset lda aEa_currentobjdiry bit #0c0h bne .set ;************ normal dist ck .distck lda rangexz bpl .dpl nega .dpl cmp exal_enemyaltmeter_objdist,x ; cmp distance bcs .noset .set lda rangexz sta exal_enemyaltmeter_objdist,x ldy aEa_objptr tya sta exal_enemyaltmeter_objptr,x lda.w al_worldx,y sta exal_markx,x lda.w al_worldy,y sta exal_marky,x lda.w al_worldz,y sta exal_markz,x lda aEa_objdirY sec sbc #20h<<8 sta exal_enemyaltmeter_objdiry,x lda aEa_objdirX sta exal_enemyaltmeter_objdirx,x .noset PULLXYPB rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; explosion circle draw_circle PUSHYP a8i16 ;--------------------------------------------------------------------------------- stz tpx s_jmp_alvarAND B,y,exal_circle_flag,#exal_circle_flag_pos,.nopos a16 lda exal_circle_x,y sta tpx lda exal_circle_y,y sta tpy lda exal_circle_z,y sta tpz a8 jsr ckdir_circle rlbcc .off pl_ldy_viewblk x s_push_obj x ldx dummyobj jsl calc_scrpos_l ; calc R inc rate jsr circle_path_srou_l.pc_on s_pull_obj x ;.nopos toheap y,x a16 lda exal_circle_step,y clc adc tpx bpl .step lda #1 .step sta kx_circlestep,y a8 s_jmp_alsflag x,player2,.p2 .p1 a16 lda xs clc adc #player1_wx*8 sta xs lda ys clc adc #2*8 sta ys bra .pp .p2 a16 lda xs clc adc #player2_wx*8 sta xs lda ys clc adc #15*8 sta ys .pp a16 lda xs sta kx_circleCX,y lda ys sta kx_circleCY,y a8 .nopos ;---------------------------------------------------------------------------------- PULLYP sec rts .off PULLYP clc rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; dec circle colour ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ deccol_circle s_start_strat SHORTA LONGI PUSHYP a8i16 toheap y,x lda kx_circlecolR,y beq .ecpR sec sbc exal_circle_decr,y bpl .ecpR0 lda #0 .ecpR0 sta kx_circlecolR,y .ecpR ; lda kx_circlecolR,y ; printh CCOLR,kawagoe ; lda exal_circle_decr,y ; printh DECR,kawagoe lda kx_circlecolG,y beq .ecpG sec sbc exal_circle_decg,y bpl .ecpG0 lda #0 .ecpG0 sta kx_circlecolG,y .ecpG lda kx_circlecolB,y beq .ecpB sec sbc exal_circle_decb,y bpl .ecpB0 lda #0 .ecpB0 sta kx_circlecolB,y .ecpB lda kx_circlecolR,y ; lda exal_circle_decr,y ; printh CCOLR,kawagoe lda kx_circlecolG,y ; lda exal_circle_decg,y ; printh CCOLG,kawagoe lda kx_circlecolB,y ; lda exal_circle_decb,y ; printh CCOLB,kawagoe lda kx_circlecolR,y ora kx_circlecolG,y ora kx_circlecolB,y beq .off .exit ; a16 ; lda.w kx_circleTR,y ; printh circleTr,kawagoe ; lda kx_circlewindowmode,y ; printh circlMODE,kawagoe PULLYP sec rts .off PULLYP clc rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; dec addcol R,G,B ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ deccol_addcol SHORTA LONGI PUSHYP toheap y,x a8i16 ;--------------------------------------------------------------------- ; screen no flash lda exal_scrflash,y rlbeq .skip6 ; clear param ; set add colour lda exal_scrflash_flag,y bit #exal_scrflash_flag_set rlbeq .skip7 ; white out? lda exal_scrflash_flag,y bit #exal_scrflash_flag_white beq .notwhite ;****** ;white out and #~(exal_scrflash_flag_white!exal_scrflash_flag_set) sta exal_scrflash_flag,y lda exal_addcol_r,y clc adc #2 bit #~31 beq .setwhite lda #31 .setwhite sta exal_addcol_r,y sta exal_addcol_g,y sta exal_addcol_b,y jmp .exit ;****** .notwhite bit #exal_scrflash_flag_lock bne .dolock bit #exal_scrflash_flag_lockreally bne .skip7 .dolock bit #exal_scrflash_flag_shield bne .shield ; bit #exal_scrflash_flag_explode ; bne .explode bit #exal_scrflash_flag_dmg bne .dmg .explode lda #16H sta exal_addcol_r,y lda #12H sta exal_addcol_g,y lda #12H sta exal_addcol_b,y bra .skip5 .dmg lda #1fH sta exal_addcol_r,y lda #0 sta exal_addcol_g,y lda #4 sta exal_addcol_b,y bra .skip5 .shield lda #0H sta exal_addcol_r,y lda #0H sta exal_addcol_g,y lda #0cH sta exal_addcol_b,y .skip5 lda exal_scrflash_flag,y and #~exal_scrflash_flag_set bit #exal_scrflash_flag_lock beq .skip8 ora #exal_scrflash_flag_lockreally bra .skip8 .skip6 lda #0 sta exal_addcol_r,y sta exal_addcol_g,y sta exal_addcol_b,y .skip8 sta exal_scrflash_flag,y .skip7 ;----------------------------------------------------------------------------------- ; a8i16 ; dec add colour .R lda exal_addcol_r,y beq .G sec sbc #4 bpl .sR lda #0 .sR sta exal_addcol_r,y .G lda exal_addcol_g,y beq .B sec sbc #4 bpl .sG lda #0 .sG sta exal_addcol_g,y .B lda exal_addcol_b,y beq .RGB sec sbc #4 bpl .sB lda #0 .sB sta exal_addcol_b,y .RGB ; lda exal_addcol_r,y ; printh ADDCOLr,kawagoe ; lda exal_addcol_g,y ; printh ADDCOLg,kawagoe ; lda exal_addcol_b,y ; printh ADDCOLb,kawagoe .exit PULLYP rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; screen flash wo set suru(use path macro). ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ addcol_path_srou_l aps_playpt equ work9 ; player pointer aps_objpt equ work8 ; corrent pointer aps_viewpt equ work7 ; view pointer s_start_strat PUSHXYP a8i16 .p1screen ldx playpt1 jsr .set sm_jmp_if1screen .exit ; test_screenmode onescreen ; bne .exit .p2screen ldx playpt2 jsr .set .exit PULLXYP rtl .set toheap y,x s_jmp_alvarZERO B,y,exal_HP,.noset c_addcol_cam x,explode,4,off,y .noset rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set circle window parameters ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ BIGcircle_path_srou_l ; in tpx(16bit) : step offset s_start_strat PHP PHX a8i16 asl tpx lda #%11 ;cgaddsub sta tpy lda #31 sta tpz ;fade off jsl circle_on_srou_l lda #1 sta tpx lda #2 sta tpy lda #2 sta tpz jsl circle_decRGB_srou_l lda #31 sta tpx sta tpy sta tpz jsl circle_RGB_srou_l jsl circle_objpos_srou_l PLX PLP rtl warpcircle_path_srou_l ; in tpx(16bit) : step offset s_start_strat PHP PHX a8i16 lda #%11 ;cgaddsub sta tpy lda #31 sta tpz ;fade off jsl circle_on_srou_l lda #6 sta tpx lda #6 sta tpy lda #3 sta tpz bra circle_path_srou_l.enter circle_path_srou_l ; in tpx(16bit) : step offset s_start_strat PHP PHX a8i16 lda #%11 ;cgaddsub sta tpy lda #31 sta tpz ;fade off jsl circle_on_srou_l lda #4 sta tpx lda #8 sta tpy lda #8 sta tpz .enter LOCAL jsl circle_decRGB_srou_l lda #31 sta tpx ; lda #0 sta tpy sta tpz jsl circle_RGB_srou_l jsl circle_objpos_srou_l PLX PLP rtl .pc_on LOCAL ; in : ldY = #viewblk1 or #viewblk2 SHORTA LONGI ; PHY ; ; pl_ldy_viewblk y ; ; ; ldy #viewblk2 jsr xzdiffs_lmt_srou ; PLY a16 lda rangexz xba and #0ffh bit #0fff0h beq .po0 lda #0fh .po0 eor #0ffffh and #0fh bne .po1 lda #1 .po1 sta tpx a8 rts ;---------------------------------------------------------------------------------- circle_on_srou_l cos_step equ tpx ;16bit cos_cgaddsub equ tpy ;8bit cos_fade equ tpz ;8bit stratmac_start PUSHYP a8i16 ldy playpt1 jsr .setparam sm_jmp_if1screen .exit ; test_screenmode onescreen ; bne .exit ldy playpt2 jsr .setparam .exit PULLYP rtl .setparam LOCAL SHORTA LONGI toheap y,y ; yu-sen flag on? s_and_alvar B,y,exal_circle_flag,#~exal_circle_flag_pos s_jmp_alvarAND B,y,exal_circle_flag,#exal_circle_flag_pri,.rts a16 lda #winm_open sta kx_circlewindowmode,y lda al_worldx,x sta exal_circle_x,y lda al_worldy,x sta exal_circle_y,y lda al_worldz,x sta exal_circle_z,y lda #255 sta kx_circleR,y ; step offset lda cos_step sta exal_circle_step,y sta kx_circlestep,y txa sta exal_circle_obj,y a8 lda cos_cgaddsub sta kx_circleadsub,y lda cos_fade sta kx_circlefade,y .rts rts ;----------------------------------------------------------------------------------- circle_pos_srou_l ; tpx:pos x ; tpy:pos y s_start_strat PUSHYP a8i16 ldy playpt1 jsr .set sm_jmp_if1screen .exit ; test_screenmode onescreen ; bne .exit ldy playpt2 jsr .set .exit PULLYP rtl .set toheap y,y s_jmp_alvarAND B,y,exal_circle_flag,#exal_circle_flag_pri,.rts s_or_alvar B,y,exal_circle_flag,#exal_circle_flag_pos a16 lda tpx sta kx_circleCX,y lda tpy sta kx_circleCY,y a8 .rts rts ;----------------------------------------------------------------------------------- circle_objpos_srou_l ;in idX:obj pointer s_start_strat PUSHYP a8i16 ldy playpt1 jsr .set sm_jmp_if1screen .exit ; test_screenmode onescreen ; bne .exit ldy playpt2 jsr .set .exit PULLYP rtl .set toheap y,y a16 txa cmp exal_circle_obj,y bne .rts lda al_worldx,x sta exal_circle_x,y lda al_worldy,x sta exal_circle_y,y lda al_worldz,x sta exal_circle_z,y .rts a8 rts ;----------------------------------------------------------------------------------- circle_RGB_srou_l ;in idX:obj pointer ; tpx:R ; tpx:G ; tpx:B s_start_strat PUSHYP a8i16 ldy playpt1 jsr .set sm_jmp_if1screen .exit ; test_screenmode onescreen ; bne .exit ldy playpt2 jsr .set .exit PULLYP rtl .set toheap y,y s_jmp_alvarAND B,y,exal_circle_flag,#exal_circle_flag_pri,.rts s_set_alvar B,y,kx_circlecolR,tpx s_set_alvar B,y,kx_circlecolG,tpy s_set_alvar B,y,kx_circlecolB,tpz .rts rts ;----------------------------------------------------------------------------------- circle_decRGB_srou_l ;in idX:obj pointer ; tpx:decR ; tpx:decG ; tpx:decB s_start_strat PUSHYP a8i16 ldy playpt1 jsr .set sm_jmp_if1screen .exit ; test_screenmode onescreen ; bne .exit ldy playpt2 jsr .set .exit PULLYP rtl .set toheap y,y s_jmp_alvarAND B,y,exal_circle_flag,#exal_circle_flag_pri,.rts s_set_alvar B,y,exal_circle_decr,tpx s_set_alvar B,y,exal_circle_decg,tpy s_set_alvar B,y,exal_circle_decb,tpz .rts rts ;------------------------------------------------------------------------------ ; x:player's pointer ; tpx : xpos ; tpy : ypos ; tpz : zpos ckdir_circle PUSHYP a8i16 s_push_obj x ldx dummyobj a16 lda tpx sta al_worldx,x lda tpy sta al_worldy,x lda tpz sta al_worldz,x a8 s_pull_obj x pl_ldy_viewblk x s_push_obj x ldx dummyobj s_obj2obj_angle x,y,al_roty,0 lda.w al_roty+1,y nega sec sbc al_roty,x ; printh CIRCLEDIR,kawagoe clc adc #40h rlbmi .ok .ng s_pull_obj x PULLYP clc rts .ok s_pull_obj x PULLYP sec rts ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; end of file incfile curdat.asm end ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ