***************************************************************** * * * SGOBJ.ASM * * * * 6502 3D SHAPE KERNAL * * * * by P. R. Warnes, Copyright 1990 * * * ***************************************************************** INCPUB obj init3d2 php bra init3d1 init3d_l php ai8 ; jsr gameclipwindow init3d1 lda #$3a sta rand lda #$a7 sta rand+1 lda #$55 sta rand+2 lda #$7f sta rand+3 ; colouri linecolour stz pauseflag stz expcnt stz noclipx stz rotx stz roty stz rotz stz strptr stz drawopt stz viewrotx stz viewroty stz viewrotz stz demoshape stz demoshape+1 lda #0 sta viewtype ; movi demoz,bigz jsl initwmat_l jsl copychars_l jsl initmario3d_l plp rtl initmario3d_l lda #-1 sta mariocode jsl minitdust_l a16 lda vanishx sta.l m_vanishx lda vanishy sta.l m_vanishy lda clx1 sta.l m_xleft lda clx2 sta.l m_xright lda cly1 sta.l m_ytop lda cly2 sta.l m_ybot ; texture map clipper planes lda xtclip sta.l m_xtclip lda ytclip sta.l m_ytclip rtl shorta shorti copychars_l php ai8 IFEQ 1 ldy #0 ldx #0 lda #8*16 ; copy hex charset to mario RAM sta count1 .loopy lda debugchars,y sta.l m_debugchars,x inx iny iny dec count1 bne .loopy ENDC plp rtl initwmat_l ; view angles = 0 php a16 stz viewrotxw stz viewrotyw stz viewrotzw lda viewrotxw sta matxw lda viewrotyw sta matyw lda viewrotzw sta matzw a8 jsl crotmat16_l a16 copymat16 mat,wmat a8 unitmat pmat ; wmat = unit matrix plp rtl wmatrotp16_l phx phy php ai16 lda x1 sta.l m_x1 lda y1 sta.l m_y1 lda z1 sta.l m_z1 a8 lda #mwmatrotp16>>16 ldx #mwmatrotp16&$ffff jsl runmario_l a16 lda.l m_bigx sta bigx lda.l m_bigy sta bigy lda.l m_bigz sta bigz plp ply plx rtl crotmat16_l a16 lda matxw sta.l m_rotx lda matyw sta.l m_roty lda matzw sta.l m_rotz a8i16 lda #mcrotwmatzxy16>>16 ldx #mcrotwmatzxy16&$ffff jsl runmario_l a16 lda.l m_wmat11 sta mat11w lda.l m_wmat12 sta mat12w lda.l m_wmat13 sta mat13w lda.l m_wmat21 sta mat21w lda.l m_wmat22 sta mat22w lda.l m_wmat23 sta mat23w lda.l m_wmat31 sta mat31w lda.l m_wmat32 sta mat32w lda.l m_wmat33 sta mat33w ai8 rtl crotmatyxz16_l a16 lda matxw sta.l m_rotx lda matyw sta.l m_roty lda matzw sta.l m_rotz a8i16 lda #mcrotwmatyxz16>>16 ldx #mcrotwmatyxz16&$ffff jsl runmario_l a16 lda.l m_wmat11 sta mat11w lda.l m_wmat12 sta mat12w lda.l m_wmat13 sta mat13w lda.l m_wmat21 sta mat21w lda.l m_wmat22 sta mat22w lda.l m_wmat23 sta mat23w lda.l m_wmat31 sta mat31w lda.l m_wmat32 sta mat32w lda.l m_wmat33 sta mat33w ai8 rtl IFEQ 1 showobj_l ; lda strptr ; if strptr<>0 then showmess ; lbne showmess ; lda shapenum ; get shape data ptr ; asl a ; tax ; lda shapetab,x ; sta sptr ; lda shapetab+1,x ; sta sptr+1 showobj0_l ; lda expcnt ; beq .ok ; rtl .ok lda gameframe ; animate shading and #15 ; sta tshade ; stz tshade+1 ldy #0 ; get point data ptr lda (sptr),y sta pptr iny lda (sptr),y sta pptr+1 iny ldy #sh_bank ; get shape data bank number lda (sptr),y sta.l m_shapebank lda rotx sta.l m_rotx lda #0 sta.l m_rotx+1 lda roty sta.l m_roty lda #0 sta.l m_roty+1 lda rotz sta.l m_rotz lda #0 sta.l m_rotz+1 lda expcnt sta.l m_expcnt lda #0 sta.l m_expcnt+1 ldy #sh_shift lda (sptr),y ; lda #0 ; shape scale sta.l m_shift lda #0 sta.l m_shift+1 ;------------------------------------------------- ; giles. 21/2/92 lda sflags and #asf_hitflash beq .no_hf a16 lda #white_c&WM sta.l m_colourptr bra .gotcptr .no_hf ;------------------------------------------------- a16 ldy #sh_col_ptr lda (sptr),y sta.l m_colourptr .gotcptr lda depthtabptr sta.l m_depthstab lda bigx sta.l m_bigx lda bigy sta.l m_bigy lda bigz sta.l m_bigz lda animframe and #127 sta.l m_framenum lda colframe and #127 sta.l m_colframe lda pptr sta.l m_pntptr ldy #sh_faces lda (sptr),y sta.l m_faceptr a8i16 lda #mshowobj>>16 ldx #mshowobj&$ffff jsl runmario_l ai8 rtl ENDC masra macro ; asr a (but -1 goes to 0) cmp #255 bne \@1 inc a \@1 asra endm projectlog_l mov x1,px mov z1,pz jsl projlog_l mov pr,xs mov y1,px mov z1,pz jsl projlog_l mov pr,ys add vanishy,ys,ys sub vanishx,ys,ys rtl projlog_l projlogmac px,pz,pr,vanishx rtl dividend = divdnd divisor = divsor flipflag = sign IFEQ 1 ************************************************************8 ; 32 bit Signed divide ; 32 bit divided by 16 bit giving 32 bit result ; ; In: dividend signed 32 bit ; divisor signed 16 bit ; Out: quotient signed 32 bit ; Uses: sign, shift and dtb divs3216 a8 stz flipflag a16 stz quotient stz quotient+2 lda dividend+2 bpl dpos1 lda #0 sec sbc dividend sta dividend lda #0 sbc dividend+2 sta dividend+2 a8 inc flipflag a16 dpos1 lda divisor bpl dpos2 eor #$ffff inc a sta divisor a8 inc flipflag a16 dpos2 a8 jsr divu3216 a16 lda flipflag and #1 beq dout lda #0 sec sbc quotient sta quotient lda #0 sbc quotient+2 sta quotient+2 dout a8 rts shorta shorti ; 32 bit Unsigned divide ; 32 bit divided by 16 bit giving 32 bit result ; ; In: dividend unsigned 32 bit ; divisor unsigned 16 bit ; Out: quotient unsigned 32 bit ; Uses: shift and dtb lwa1 equ dividend lwa2 equ quotient iwa1 equ divisor dtb equ shift ; Unsigned 32 bit by 16 bit divide LWA1 / IWA1 ; 32 bit result in LWA1 ; LWA2 & IWA1 destroyed divu3216 ldy #3 ;byte shift count in .Y lda IWA1+1 ; Div by Zero ? ora IWA1 beq D32b0z lda LWA1+3 ;Shift LWA1 to fill bne D32b3nz ;top byte lda LWA1+2 beq D32b2z sta LWA1+3 lda LWA1+1 sta LWA1+2 lda LWA1 sta LWA1+1 ldy #2 lda #0 sta LWA1 pha ;Hi byte result 0 beq D32b3nz ;Always D32b2z lda LWA1+1 beq D32b1z sta LWA1+3 lda LWA1 sta LWA1+2 ldy #1 lda #0 sta LWA1 sta LWA1+1 pha ;Hi 2 bytes result 0 pha beq D32b3nz ;Always D32b1z lda LWA1 beq D32b0z sta LWA1+3 ldy #0 lda #0 sta LWA1 sta LWA1+1 sta LWA1+2 pha ;Hi 3 bytes result 0 pha pha beq D32b3nz ;Always D32b0z sta quotient ;Return zero result sta quotient+1 sta quotient+2 sta quotient+3 rts ; Top byte of LWA1 now full D32b3nz lda IWA1+1 ;Move IWA1 to top of LWA2 bne D32d1nz lda IWA1 sta LWA2+3 lda #0 sta LWA2+2 sta LWA2+1 sta LWA2 clc ;Adjust shift count iny bpl D32sh bmi D32Done D32d1nz sta LWA2+3 lda IWA1 sta LWA2+2 lda #0 sta LWA2+1 sta LWA2 ; A hi byte of result 0 as dividing by 256 or more pha tya bmi D32Done ;LWA1 was less than 256 D32sh lda #128 sta DTB ;Totaling byte D32ShiftI lda LWA2+3 ;Shift up to match LWA2 bmi D32Alined ;1 in top bit cmp LWA1+3 bcs D32Alined lsr DTB asl LWA2+2 rol LWA2+3 bcc D32ShiftI ;Always D32Alined sec ;Divie loop -- lda LWA1 sbc LWA2 sta IWA1 lda LWA1+1 sbc LWA2+1 sta IWA1+1 lda LWA1+2 sbc LWA2+2 tax lda LWA1+3 sbc LWA2+3 bcc D32no sta LWA1+3 stx LWA1+2 lda IWA1+1 sta LWA1+1 lda IWA1 sta LWA1 D32no rol DTB bcc D32AnBit lda DTB pha dey beq D32Done lda #1 sta DTB D32AnBit lsr LWA2+3 ror LWA2+2 ror LWA2+1 ror LWA2 bcc D32Alined ;Again always D32Done pla sta quotient pla sta quotient+1 pla sta quotient+2 pla sta quotient+3 rts ENDC ******************************************************************8 mmovwwsh macro lda \1 ifne 15-mgridshift rept 15-mgridshift asra16 endr endc sta \2 endm mgridsize equ 15 ;15 mgrid2z equ 512 ; z dist where dots go to 2 dots mgridshift equ 8 ; grid size mgridwidth equ 1<>16 ; ldx #mshowgrid2&$ffff ; jsl runmario_l ; ai8 .exit rtl ENDC minitdust_l a8i16 lda #minitdust>>16 ldx #minitdust&$ffff jsl runmario_l ai8 rtl mshowdust_l a16 lda viewposx sta.l m_viewposx lda viewposy sta.l m_viewposy lda viewposz sta.l m_viewposz lda slowstars and #255 beq .nslow lda.l slowstars_viewposz sta.l m_viewposz .nslow lda wmat11w sta.l m_wmat11 lda wmat12w sta.l m_wmat12 lda wmat13w sta.l m_wmat13 lda wmat21w sta.l m_wmat21 lda wmat22w sta.l m_wmat22 lda wmat23w sta.l m_wmat23 lda wmat31w sta.l m_wmat31 lda wmat32w sta.l m_wmat32 lda wmat33w sta.l m_wmat33 ; test_screenmode twoscreen ; bne .twoscreen2 lda.l m_dotsorstars ora #2 sta.l m_dotsorstars ai8 rtl .twoscreen2 ; a8i16 ; lda #mshowdust2>>16 ; ldx #mshowdust2&$ffff ; jsl runmario_l ai8 rtl ;---------------------------------------------- ; returns xs and ys (8 bit) screen coordinates ; pass x pointing to the alien LONGI rotproj_l phx phy php a16 stz x1 stz y1 stz z1 stz x2 stz y2 stz z2 a8 stz x1 stz y1 lda #-30 sta z1 lda al_rotx,x jsl rotate_8yz_l lda x2 sta x1 lda y2 sta y1 lda z2 sta z1 lda al_roty,x jsl rotate_8xz_l a16 lda x2 sexa clc adc al_worldx,x sec sbc viewposx sta.l m_x1 lda y2 sexa clc adc al_worldy,x sec sbc viewposy sta.l m_y1 lda z2 sexa clc adc al_worldz,x sec sbc viewposz sta.l m_z1 a8 lda #mwmatrotp16>>16 ldx #mwmatrotp16&$ffff jsl runmario_l a16 lda.l m_bigx sta.l m_x1 lda.l m_bigy sta.l m_y1 lda.l m_bigz sta.l m_z1 call_mario mproject_a_point a16 lda.l m_x1 sta xs lda.l m_y1 sta ys plp ply plx rtl