; strategy routines that must run in ram incpub ramsrou ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; The following code is ripped out of GetHeight_l in ; slopes.asm in order for it to run in parallel with the FX chip ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ LONGA LONGI slope_init_l a8 nastyon a16 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set defaults: ie. ground ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ pl_test_planetmode space beq .space lda #MAGIC_Y bra .setit .space lda #16384 .setit sta closestslopeheight stz closestslope stz closestslopenum stz currentslope lda #0 sta currentslopetype sta closestslopetype sta currentslopex1 sta currentslopez1 sta closestslopex1 sta closestslopez1 sta currentslopex2 sta currentslopez2 sta closestslopex2 sta closestslopez2 sta closestslopepoly sta currentslopepoly stz y1 ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set normal for ground ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ lda #$8000 sta tmp_sprb lda #0 sta tmp_spra sta tmp_sprc ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; set angle for ground (0) ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ sta tmp_rotx sta tmp_rotz lda al_worldx,x sta x1 lda al_worldz,x sta z1 lda al_shape,x sta tpa stx tpx a8 nastyoff a16 rtl LONGA LONGI slope_check_l ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; find the nearest alien. (this should be modified to search through the ; hitlist but currently it is kept to allow the shadow to be correctly ; mapped to the nearest surface) ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ a8 nastyon a16 .nxtal ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; don't check itself ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ cpx tpx beq .notthisone test_alcollflags x,acf_firstframe bne .notthisone test_alsflag x,notslope bne .notthisone ldy al_shape,x ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; shapex+xradius-objx>xradius*2? ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ a8 romnastyoff a16 lda.w sh_xmax,y sta x2 a8 romnastyon a16 lda x2 clc adc al_worldx,x asl x2 sec sbc x1 cmp x2 bcs .notthisone ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; shapez+zradius-objz>zradius*2? ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ a8 romnastyoff a16 lda.w sh_zmax,y sta x2 a8 romnastyon a16 lda x2 clc adc al_worldz,x asl x2 sec sbc z1 cmp x2 bcc .gotone .notthisone lda _next,x tax bne .nxtal .gotone a8 nastyoff a16 rtl ;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ; 31 bit Unsigned divide ; 31 bit divided by 15 bit giving 15 bit result ; ; In: dividend unsigned 31 bit ; divisor unsigned 15 bit ; Out: quotient unsigned 15 bit ; Uses: A,X ; Cycles: 47 + 16*21 = 383 max dividend = divdnd divisor = divsor divmac macro rol dividend ; 7 rol a ; 2 tax ; 2 clc ; 2 adc divisor ; 4 bcs \@ ; 2/3 txa ; 2 = 21/20 \@ endm divu3115_l php a8 storenasty nastyon jsr divu3115 restorenasty plp rtl divu3115 phx php ai16 lda #0 sec sbc divisor sta divisor lda dividend+2 asl dividend ; 7 rol a ; 2 tax ; 2 clc ; 2 adc divisor ; 4 bcs div1 ; 2/3 txa ; 2 = 21/20 div1 rept 15 divmac endr lda dividend rol a sta quotient stz quotient+2 plp plx rts ;----------------------------------------------- ; 16 bit arctan (x1/y1) ; ; A = arctan(x1/y1) ; ; 0 to 359 degrees is $0000 to $ffff ; x1 and y1 are signed words ; ; Calls mdivu3115 ; ; in: x1,y1 ;out: A = angle ;uses: xx2,yy2 ;table: arctantab xx2 equ dividend+2 yy2 equ divisor arctan16_l php a8 storenasty nastyon jsr arctan16a a16 sta textpt a8 restorenasty a16 lda textpt plp rtl arctan16a phx phy php ai16 lda y1 ; if (y1=0) bne .21 lda #deg90<<8 ; then angle=deg90 bra .4 .21 bpl .2 ; y2=abs(y1) eor #-1 inc a .2 sta yy2 lda x1 bpl .1 ; x2=abs(x1) eor #-1 inc a .1 ; sta xx2 ldy #0 ; y=0 cmp yy2 bne .7 ; if (y2=x2) lda #deg45<<8 ; then angle=deg45 bra .4 .7 bmi .3 ; if (x2>y2) then dey ; y=-1 ldx yy2 ; swap x2,y2 sta yy2 txa .3 stz dividend lsr a ror dividend lsr a ror dividend sta dividend+2 jsr divu3115 ; quotient = (x2<<14)/y2 lda quotient lsr a lsr a lsr a lsr a lsr a and #$fffe tax a8 romnastyoff a16 lda.l arctantab,x sta yy2 ; y2=angle a8 romnastyon a16 cpy #0 ; if (y<0) bpl .41 lda #deg90<<8 ; then y2=deg90-y2 sec sbc yy2 .4 sta yy2 .41 lda x1 eor y1 bpl .5 ; if (x1^y1 < 0) lda #0 ; then y2=-y2 sec sbc yy2 sta yy2 .5 lda y1 bpl .6 ; if (y1<0) lda yy2 ; y2+=deg180 clc adc #deg180<<8 sta yy2 .6 lda yy2 plp ply plx rts arctan16m_l php jsr arctan16 plp rtl ;----------------------------------------------- ; 16 bit arctan (x1/y1) ; a = arctan(x1/y1) ; ; 0 to 359 degrees is $0000 to $ffff ; x1 and y1 are signed ; ; tmpx,x1,x2,x3,y1,y2,px,pz,pr arctan16 sarctan phx php a8 poll_mario a16 lda x1 sta.l m_x1 lda y1 sta.l m_y1 a8i16 lda #mcallarctan16>>16 ldx #mcallarctan16&$ffff jsl runmario_l a16 lda.l m_cnt sta textpt a8 unpoll_mario a16 lda textpt plp plx rts ;***************************************************************************** ;* find_object ;* ;* ;* entry: ai16 ;* A : shape number. ;* fobj : first object. ;* ;* exit: ai16 ;* X : not changed. ;* Y : ptr. to object. (0=not found) ;* fobj : ptr to object. ;* LONGA LONGI find_object_l findtarget_l stx tpx ldx fobj beq bad_fobj cmp #0 beq get_anyobj txy .loop cmp al_shape,x beq .gotone .next ldy _next,x tyx bne .loop .gotone cpx tpx beq .next ldy _next,x sty fobj txy ldx tpx rtl bad_fobj ldy #0 sty fobj ldx tpx rtl get_anyobj ldy _next,x beq bad_fobj tyx cpx tpx beq get_anyobj lda_sflags x,realobj and #asf_realobj beq get_anyobj stx fobj ldx tpx rtl ;***************************************************************************** ;* find_Mobject ;* ;* ;* entry: ai16 ;* A : shape number. ;* X1 : SFLAGS mask ;* fobj : first object. ;* ;* exit: ai16 ;* X : not changed. ;* Y : ptr. to object. (0=not found) ;* fobj : ptr to object. ;* LONGA LONGI find_Mobject_l cmp #0 beq get_anyMobj stx tpx ldx fobj lbeq bad_fobj txy .loop cmp al_shape,x beq .gotone .next ldy _next,x tyx bne .loop .gotone cpx tpx beq .next sta tpa a8 lda al_sflags,x and x1 a16 bne .got_mobj lda tpa bra .next .got_mobj ldy _next,x sty fobj txy ldx tpx rtl get_anyMobj stx tpx ldx fobj lbeq bad_fobj txy a8 .loop cpx tpx beq .next lda al_sflags,x and x1 bne .got_mobj .next ldy _next,x tyx bne .loop .got_mobj ldy _next,x sty fobj txy ldx tpx a16 rtl ;***************************************************************************** ;* find_nearobject ;* ;* ;* entry: ai16 ;* A : shape number. ;* TPZ : min radius. less than 8000 ;* TPX : max radius. less than 8000 ;* fobj : first object. ;* ;* exit: ai16 ;* X : not changed. ;* Y : ptr. to object. (0=not found) ;* fobj : ptr to object. ;* LONGA LONGI find_nearobject_l findntarget_l stx x2 ; store current object. ldx fobj ; first object list. lbeq badfend cmp #0 beq find_anynearobject_l sta y2 stz tpy ; nearest object .loop cpx x2 beq .not_near lda al_shape,x cmp y2 bne .not_near ldy x2 jsl xzdiffs_l a16 lda rangexz cmp tpx bpl .not_near cmp tpz bmi .not_near sta tpx stx tpy .not_near ldy _next,x tyx bne .loop ldy _next,x sty fobj ldy tpy ldx x2 rtl badfend ldy #0 ldx x2 rtl ;***************************************************************************** ;* find_anynearobject ;* ;* ;* entry: ai16 ;* TPX : max radius. less than 8000 ;* fobj : first object. ;* ;* exit: ai16 ;* X : not changed. ;* Y : ptr. to object. (0=not found) ;* fobj : ptr to object. ;* LONGA LONGI find_anynearobject_l stz tpy ; nearest object .loop cpx x2 beq .not_near lda_sflags x,realobj and #asf_realobj beq .not_near ldy x2 jsl xzdiffs_l a16 lda rangexz cmp tpx bpl .not_near cmp tpz bmi .not_near sta tpx stx tpy .not_near ldy _next,x tyx lbne .loop sty fobj ldy tpy ldx x2 rtl ;***************************************************************************** ;* find_radiusobject ;* ;* ;* entry: ai16 ;* A : shape number. ;* TPZ : min radius. less than 8000 ;* TPX : max radius. less than 8000 ;* fobj : first object. ;* ;* exit: ai16 ;* X : not changed. ;* Y : ptr. to object. (0=not found) ;* fobj : ptr to object. ;* LONGA LONGI find_radiusobject_l stx x2 ; store current object. ldx fobj ; first object list. lbeq badfend cmp #0 beq find_anyradiusobject_l sta y2 stz tpy ; nearest object .loop cpx x2 beq .not_near lda al_shape,x cmp y2 bne .not_near ldy x2 jsl xzdiffs_l a16 lda rangexz cmp tpx bpl .not_near cmp tpz bpl .found .not_near ldy _next,x tyx bne .loop .found ldy _next,x sty fobj txy ldx x2 rtl ;***************************************************************************** ;* find_anyradiusobject ;* ;* ;* entry: ai16 ;* TPX : max radius. less than 8000 ;* fobj : first object. ;* ;* exit: ai16 ;* X : not changed. ;* Y : ptr. to object. (0=not found) ;* fobj : ptr to object. ;* LONGA LONGI find_anyradiusobject_l .loop cpx x2 beq .not_near lda_sflags x,realobj and #asf_realobj beq .not_near ldy x2 jsl xzdiffs_l a16 lda rangexz cmp tpx bpl .not_near cmp tpz bpl .found .not_near ldy _next,x tyx lbne .loop .found ldy _next,x sty fobj txy ldx x2 rtl ;***************************************************************************** ;* find_shape_l ;* ;* entry: ai16 ;* A : shape. ;* ;* exit: ai16 ;* X : ptr to obj ;* uses Y ;* ;* longa longi find_shape_l php ldy allst .findloop tyx cmp al_shape,x beq .foundobj ldy _next,x bne .findloop ldx #0 .foundobj plp rtl ;***************************************************************************** ;* find_enemynearobject( T.Kawagoe ) ;* ;* ;* entry: ai16 ;* TPX : max radius. less than 8000 ;* TPX : min radius. ;* fobj : first object. ;* Z2 : if -range(rotx)ø< "X1" >16 ;; lda.l alx_expstratptr+2,x sta tjmp+2 a16 lda #pre_explode_istrat&WM ;; lda.l alx_expstratptr,x sta tjmp brl .dostr a8 .notdead s_clr_alcollflag x,firstframe ; something hit it? test_alsflag x,collide beq .nothit ;;; lda.l alx_collstratptr+2,x lda #hit_istrat>>16 sta tjmp+2 a16 lda #hit_istrat&WM ;; lda.l alx_collstratptr,x sta tjmp brl .dostr a8 s_clr_alsflag x,collide .nothit lda al_stratptr+2,x sta tjmp+2 a16 lda al_stratptr,x beq .strad sta tjmp a8 s_jmp_alsflag x,active,.dontfreeze km_jmpgameflag freeze,.estrat .dontfreeze .dostr a8 lda #(.estrat>>16)&255 pha pea (.estrat-1)&WM romnastyoff jmp.l [tjmp] .estrat ;************************************************************************* ;************************************************************************* ;**** kawaguchi port2 (loop) check area start **** romnastyon phx phy php a8i16 km_bitchecksndflag allstop bne .nosound lda alx_snd2,x beq .nosound ;* set port 2 * ldy #viewblk1 jsr kgetport2 .nosound plp ply plx ;**** kawaguchi port2 check area end **** ;************************************************************************* ;************************************************************************* ;--------------------------------------------------------- .strad a8 restorenasty plp rtl .bad_strat badstrat ;************************************************************************* ;************************************************************************* ;**** kawaguchi sub program start **** ;============================================================= ;* Sound Port 2 Data Get * ;* Acc :Sound Number * ;* Xreg :alien pointer * ;* Yreg :player VIEW pointer * ;* kwork :sound number * ;* kz_x1 :relative x * ;* kz_z1 :relative z * ;============================================================= kgetport2 phx php shorta longi sta kwork ;* distance check * jsr .getdistance_easy a16 lda pathz1 ;current distance cmp sddist2 ;before distance bcs .end ;mae no length yori tookattara goto end!! sta sddist2 ;NEW distance a8 km_setvar sdchkno2tmp,kwork ;Set Sound No stx sdchkptr2tmp ;Set Alien pointer ;* sound distance flag set * a16 ldx #0 lda sddist2 ;NEW distance cmp #200*2 bmi ..set_distflag inx cmp #500*2 bmi ..set_distflag inx cmp #1000*2 bmi ..set_distflag inx ..set_distflag a8 lda.l ..snd2disttbl,x ora kwork sta kwork ;* angle * ;Init :kz_x1,kz_y1 :(x,z)zahyou a16 jsl arctan16_l a8 xba sec sbc.w al_roty+1,y ;player camera angle ldx #0 ;* Memo :angle wo kaeruni wa ushirono $10 no bubun wo kaeru * cmp #$00+$10 ;22 do bcc ..snd2center cmp #$00-$10 bcs ..snd2center cmp #$80-$10 bcc ..snd2right cmp #$80+$10 bcc ..snd2center bra ..snd2left ..snd2right inx ..snd2center inx ..snd2left lda.l ..snd2angtbl,x ora kwork sta sdport2tmp .end plp plx rts ;===================================================================== ;* Sound Port2 Distance Table * ;===================================================================== ..snd2disttbl db sport2_sonear db sport2_near db sport2_far db sport2_sofar ;===================================================================== ;* Sound Port2 Angle Table * ;===================================================================== ..snd2angtbl db sport2_left db sport2_center db sport2_right ;===================================================================== ;* Calculate Distance (Easy Version) * ;* Xreg :alien pointer * ;* Yreg :player VIEW pointer * ;* Out :Acc,pathz1 :from enemy to player distance * ;* :kz_x1 :from enemy to player zahyou X * ;* :kz_z1 :from enemy to player zahyou Z * ;* :kz_tpx :from enemy to player distance ³ X ³ * ;* :kz_tpy :from enemy to player distance ³ Z ³ * ;===================================================================== .getdistance_easy php a16 longi ;----------------------------------------------------------------------- ;* zahyou * ;* For Angle Data * lda.w al_worldx,x sec sbc.w al_worldx,y sta kz_x1 bpl .next1 km_nega .next1 sta kz_x2 lda.w al_worldz,x sec sbc.w al_worldz,y sta kz_y1 bpl .next2 km_nega .next2 sta kz_y2 ;----------------------------------------------------------------------- clc adc kz_x2 ror a sta pathz1 IFEQ 1 ;;; asr a sta kz_x1 ;Alien X lda.w al_worldz,x ;;; asr a sta kz_z1 ;Alien Z lda.w al_worldx,y ;;; asr a sta kz_x2 ;Player X lda.w al_worldz,y ;;; asr a sta kz_z2 ;Player Z ;--------------------------- ;* relative x zahyou * km_substavarvar kz_x1,kz_x2,kz_x1 bpl ..plasx km_nega ..plasx sta kz_tpx ;--------------------------- ;* relative z zahyou * km_substavarvar kz_z1,kz_z2,kz_z1 bpl ..plasz km_nega ..plasz sta kz_tpy ;--------------------------- km_addstavarvar pathz1,kz_tpx,kz_tpy ENDC plp rts ;===================================================================== ;* Calculate Angle (Easy Version) * ;* Xreg :alien pointer * ;* Yreg :player pointer * ;* Init :kz_x1,kz_z1 :from enemy to player zahyou (X,Y) * ;* Out :pathz1 :from enemy to player angle * ;===================================================================== .getangle_easy php a16 ;* init * stz pathz1 km_negstavar kz_x2,kz_x1 ;* check * lda kz_z1 cmp kz_x1 bmi ..minus1 ..plas1 cmp kz_x2 bpl ..center_easy bra ..left_easy ..minus1 cmp kz_x2 bmi ..center_easy ..right_easy inc pathz1 ..center_easy inc pathz1 ..left_easy plp rts ;************************************************************************* ;************************************************************************* ;**** kawaguchi sub program end **** ;***************************************************************************** ;* rotate_16xz ;* ;* ;* entry: a8 ;* A : Y angle ;* x1 : x vector 16bit ;* z1 : z vector 16bit ;* ;* ;* exit: a8 ;* ;* x2 : rotated x vector 16bit ;* z2 : rotated z vector 16bit ;* ;* SHORTA LONGI rotate_16xz_l stx tpx sty tpy php phb i8 tax lda #0 pha plb lda sintab,x sta sinvy lda costab,x sta cosvy mulslog168 x1,sinvy lda m4 sta z2 lda m5 sta z2+1 mulslog168 z1,cosvy lda m4 clc adc z2 sta z2 lda m5 adc z2+1 sta z2+1 mulslog168 z1,sinvy lda m4 sta x2 lda m5 sta x2+1 mulslog168 x1,cosvy lda m4 sec sbc x2 sta x2 lda m5 sbc x2+1 sta x2+1 plb plp ldy tpy ldx tpx rtl ;***************************************************************************** ;* rotate_16yz ;* ;* ;* entry: a8 ;* A : X angle ;* y1 : y vector 16bit ;* z1 : z vector 16bit ;* ;* ;* exit: a8 ;* ;* y2 : rotated y vector 16bit ;* z2 : rotated z vector 16bit ;* ;* SHORTA LONGI rotate_16yz_l stx tpx sty tpy php phb i8 nega tax lda #0 pha plb lda sintab,x sta sinvy lda costab,x sta cosvy mulslog168 y1,sinvy lda m4 sta z2 lda m5 sta z2+1 mulslog168 z1,cosvy lda m4 clc adc z2 sta z2 lda m5 adc z2+1 sta z2+1 mulslog168 z1,sinvy lda m4 sta y2 lda m5 sta y2+1 mulslog168 y1,cosvy lda m4 sec sbc y2 sta y2 lda m5 sbc y2+1 sta y2+1 plb plp ldy tpy ldx tpx rtl ;***************************************************************************** ;* rotate_8xz ;* ;* ;* entry: a8i16 ;* A : Y angle ;* x1 : x vector 8bit ;* z1 : z vector 8bit ;* ;* ;* exit: a8i16 ;* ;* x2 : rotated x vector 16bit ;* z2 : rotated z vector 16bit ;* ;* SHORTA LONGI rotate_8xz_ram_l rotate_8xz_l phy phx php i8 nega tax storenasty nastyon ; switch the mario chip on lda.l ramcostab,x sta cy lda.l ramsintab,x sta sy mulslogmacram x1,cy stx x2 mulslogmacram z1,sy txa clc adc x2 sta x2 sexam x2+1 mulslogmacram x1,sy txa nega sta z2 mulslogmacram z1,cy txa clc adc z2 sta z2 sexam z2+1 restorenasty plp plx ply rtl ;***************************************************************************** ;* rotate_8yz ;* ;* ;* entry: a8i16 ;* A : X angle ;* y1 : y vector 8bit ;* z1 : z vector 8bit ;* ;* ;* exit: a8i16 ;* ;* y2 : rotated y vector 16bit ;* z2 : rotated z vector 16bit ;* ;* SHORTA LONGI rotate_8yz_ram_l rotate_8yz_l phx phy php i8 tax storenasty nastyon ; switch the mario chip on lda.l ramcostab,x sta cy lda.l ramsintab,x sta sy mulslogmacram y1,cy stx y2 mulslogmacram z1,sy txa clc adc y2 sta y2 sexam y2+1 mulslogmacram y1,sy txa nega sta z2 mulslogmacram z1,cy txa clc adc z2 sta z2 sexam z2+1 restorenasty plp ply plx rtl ;***************************************************************************** ;* rotate_8yx ;* ;* ;* entry: a8i16 ;* A : Y angle ;* x1 : x vector 8bit ;* z1 : z vector 8bit ;* ;* ;* exit: a8i16 ;* ;* x2 : rotated x vector 16bit ;* z2 : rotated z vector 16bit ;* ;* SHORTA LONGI rotate_8yx_ram_l rotate_8yx_l phy phx php i8 tax storenasty nastyon lda.l ramcostab,x sta cy lda.l ramsintab,x sta sy mulslogmacram x1,cy stx x2 mulslogmacram y1,sy txa clc adc x2 sta x2 sexam x2+1 mulslogmacram x1,sy txa nega sta y2 mulslogmacram y1,cy txa clc adc y2 sta y2 sexam y2+1 restorenasty plp plx ply rtl ramsintab DB 0 DB 3 DB 6 DB 9 DB 12 DB 15 DB 18 DB 21 DB 24 DB 27 DB 30 DB 33 DB 36 DB 39 DB 42 DB 45 DB 48 DB 51 DB 54 DB 57 DB 59 DB 62 DB 65 DB 67 DB 70 DB 73 DB 75 DB 78 DB 80 DB 82 DB 85 DB 87 DB 89 DB 91 DB 94 DB 96 DB 98 DB 100 DB 102 DB 103 DB 105 DB 107 DB 108 DB 110 DB 112 DB 113 DB 114 DB 116 DB 117 DB 118 DB 119 DB 120 DB 121 DB 122 DB 123 DB 123 DB 124 DB 125 DB 125 DB 126 DB 126 DB 126 DB 126 DB 126 ramcostab DB 127 DB 126 DB 126 DB 126 DB 126 DB 126 DB 125 DB 125 DB 124 DB 123 DB 123 DB 122 DB 121 DB 120 DB 119 DB 118 DB 117 DB 116 DB 114 DB 113 DB 112 DB 110 DB 108 DB 107 DB 105 DB 103 DB 102 DB 100 DB 98 DB 96 DB 94 DB 91 DB 89 DB 87 DB 85 DB 82 DB 80 DB 78 DB 75 DB 73 DB 70 DB 67 DB 65 DB 62 DB 59 DB 57 DB 54 DB 51 DB 48 DB 45 DB 42 DB 39 DB 36 DB 33 DB 30 DB 27 DB 24 DB 21 DB 18 DB 15 DB 12 DB 9 DB 6 DB 3 DB 0 DB -3 DB -6 DB -9 DB -12 DB -15 DB -18 DB -21 DB -24 DB -27 DB -30 DB -33 DB -36 DB -39 DB -42 DB -45 DB -48 DB -51 DB -54 DB -57 DB -59 DB -62 DB -65 DB -67 DB -70 DB -73 DB -75 DB -78 DB -80 DB -82 DB -85 DB -87 DB -89 DB -91 DB -94 DB -96 DB -98 DB -100 DB -102 DB -103 DB -105 DB -107 DB -108 DB -110 DB -112 DB -113 DB -114 DB -116 DB -117 DB -118 DB -119 DB -120 DB -121 DB -122 DB -123 DB -123 DB -124 DB -125 DB -125 DB -126 DB -126 DB -126 DB -126 DB -126 DB -127 DB -126 DB -126 DB -126 DB -126 DB -126 DB -125 DB -125 DB -124 DB -123 DB -123 DB -122 DB -121 DB -120 DB -119 DB -118 DB -117 DB -116 DB -114 DB -113 DB -112 DB -110 DB -108 DB -107 DB -105 DB -103 DB -102 DB -100 DB -98 DB -96 DB -94 DB -91 DB -89 DB -87 DB -85 DB -82 DB -80 DB -78 DB -75 DB -73 DB -70 DB -67 DB -65 DB -62 DB -59 DB -57 DB -54 DB -51 DB -48 DB -45 DB -42 DB -39 DB -36 DB -33 DB -30 DB -27 DB -24 DB -21 DB -18 DB -15 DB -12 DB -9 DB -6 DB -3 DB 0 DB 3 DB 6 DB 9 DB 12 DB 15 DB 18 DB 21 DB 24 DB 27 DB 30 DB 33 DB 36 DB 39 DB 42 DB 45 DB 48 DB 51 DB 54 DB 57 DB 59 DB 62 DB 65 DB 67 DB 70 DB 73 DB 75 DB 78 DB 80 DB 82 DB 85 DB 87 DB 89 DB 91 DB 94 DB 96 DB 98 DB 100 DB 102 DB 103 DB 105 DB 107 DB 108 DB 110 DB 112 DB 113 DB 114 DB 116 DB 117 DB 118 DB 119 DB 120 DB 121 DB 122 DB 123 DB 123 DB 124 DB 125 DB 125 DB 126 DB 126 DB 126 DB 126 DB 126