incpub ramstuff ;------------------------------------------------------- ; Locate ramstuff into ram xrstart = * org xroutines,$8000*(xrstart>>16)+(xrstart&$7fff) ;--------------------------------------------------------- dw 0 ; debugger data (write to .l xroutines) dw 0 dw 0 dw 0 ; 8 bytes incfile irq.asm incfile showview.asm incfile hdmatabs.asm incfile mem.asm incfile ramsrou.asm incfile coldet.asm incfile ramspr.asm incfile mmtbl.asm incfile yjradar.asm incfile raster.asm ;------------------------------------- ; POLL MARIO ROUTINE ------------------ ;------------------------------------- shorta longi pollmario_l phb lda #0 pha plb lda pollstack bne .exit ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; mario chip running? lda mflags and #$20 beq .nopoll ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; tell the chip to stop when it gets the chance ramnastyoff lda #1 sta.l m_mariopoll nastyon ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; wait for chip to stop a16 lda.l xroutines inc a sta.l xroutines a8 .stillgoing ; a16 ; lda.l xroutines ; clc ; adc #5+5+5+5+2+3+3+2+2+3+3+3 ; sta.l xroutines ; lda.l xroutines+2 ; adc #0 ; sta.l xroutines+2 a8 lda mflags and #$20 bne .stillgoing ; wait for chip to stop lda.l m_mariopoll eor #1 sta.l m_mariopoll .exit inc pollstack .nopoll nastyoff plb rtl ;------------------------------------- ; UNPOLL MARIO ROUTINE ---------------- ;------------------------------------- shorta longi unpollmario_l ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; we've called our program so now to set mdrawlist running again phx phb lda #0 pha plb dec pollstack bne .alreadyfinished lda.l m_mariopoll ; if not zero then mario program beq .alreadyfinished ; actually finished rather than was interrupted lda #0 sta.l m_mariopoll ; clear the poll'ed flag lda #mdrawloop_con>>16 sta mcodebank ldx #mdrawloop_con&WM stx mr15 .alreadyfinished plb plx rtl ;------------------------------------- ; RUN MARIO ROUTINE ------------------ ;------------------------------------- shorta longi runmario_l sta mariocodebank ; code bank phb lda #0 pha plb lda mflags and #$20 beq .nopoll ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; if the mario chip is already running (mdrawloop) ; then poll it to stop, execute the wanted routine, and then continue. storenasty ramnastyoff lda #1 sta.l m_mariopoll nastyon .stillgoing lda mflags and #$20 bne .stillgoing ; wait for chip to stop ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; ok, the chip is ready for our evil deed lda mariocodebank sta mcodebank stx mr15 ; GO! .stillgoing2 lda mflags and #$20 bne .stillgoing2 ; wait for our program to stop ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; we've called our program so now to set mdrawlist running again lda.l m_mariopoll ; if not zero then mario program bne .alreadyfinished ; actually finished rather than was interrupted lda #mdrawloop_con>>16 sta mcodebank ldx #mdrawloop_con&WM stx mr15 bra .running .alreadyfinished lda #0 sta.l m_mariopoll ; clear the poll'ed flag .running restorenasty plb rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; normal call_mario case (not parallel) .nopoll lda mariocodebank sta mcodebank storenasty nastyon stx mr15 .dowait lda mflags and #$20 bne .dowait restorenasty plb rtl cop blink do_3d_display1_l ai16 lda defaultID sta.l m_defaultID a8 jsl getview1_l lda drawmap+1 lsr a lsr a sta mscrbase a16 lda drawmap sta.l m_drawmap lda #m_dustpnts1&WM sta.l m_dustptr lda #0 sta.l m_mariopoll a8 lda gamemode sta.l m_pfm jsl mshowgrid_l a8i16 lda #mdo_3d_display>>16 ldx #mdo_3d_display&WM sta mcodebank nastyon stx mr15 jsr parallel_stuff_1 a8 .dowait lda mflags and #$20 bne .dowait nastyoff rtl do_3d_display2_l a8 lda screenmode bit #sm_3dglasses bne .continue bit #sm_twoscreen bne .continue jsr parallel_stuff_2 rtl .continue ai16 lda defaultID sta.l m_defaultID a8 jsl getview2_l lda #bitmap2>>10 sta mscrbase a16 lda #m_dustpnts2&WM sta.l m_dustptr lda #0 sta.l m_mariopoll a8 lda gamemode sta.l m_pfm jsl mshowgrid_l a8i16 lda #mdo_3d_display>>16 ldx #mdo_3d_display&WM sta mcodebank nastyon stx mr15 jsr parallel_stuff_2 a8 .dowait lda mflags and #$20 bne .dowait nastyoff rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; This sets the 3d display drawing process going. ; If your code is in ram and doesn't access rom ; then do a nastyoff and it will run in parallel. ; If it is in ram and accesses rom occasionally ; then do a romnastyoff->on around the rom accesses. begin_3d_display_l ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; first generate the view ai16 lda defaultID sta.l m_defaultID a8 jsl getview1_l lda drawmap+1 lsr a lsr a sta mscrbase ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; set up various mario variables needed for the 3d a16 lda drawmap sta.l m_drawmap lda #m_dustpnts1&WM sta.l m_dustptr lda #0 sta.l m_mariopoll sta.l m_debugcount a8 lda gamemode sta.l m_pfm ;컴� Set the boss meter up properly 컴� lda.l bossmaxHP cmp.l m_bossmaxHP beq .nochange bcc .noinc lda.l m_bossmaxHP inc a inc a sta.l m_bossmaxHP bra .nochange .noinc lda.l m_bossmaxHP dec a dec a sta.l m_bossmaxHP .nochange lda.l bossHP and #255 sta.l m_bossHP cmp.l m_bossmaxHP bcc .noclamp lda.l m_bossmaxHP sta.l m_bossHP .noclamp ;컴� a16 lda.l bossname sta.l m_bossname lda.l bossname+2 sta.l m_bossname+2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; draw the ground dots or stars jsl mshowgrid_l ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; start the 3d going a8i16 lda #mbegin_3d_display>>16 ldx #mbegin_3d_display&WM sta mcodebank nastyon stx mr15 jsr parallel_stuff_3 a8 nastyoff stz pollstack rtl finishit_l php a8i16 nastyon .waitfin lda.l mflags and #$20 bne .waitfin plp rtl ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; this waits for the 3d display to finish - if ; it hasn't already finish_3d_display_l php a8i16 lda #0 pha plb ; set dbr 0 nastyon ; all nasty modes on ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; wait for the mario chip to finish .dowait lda mflags and #$20 bne .dowait nastyoff ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; switch over to the other buffer swapdrawmap a16 lda drawmap sta.l m_drawmap plp rtl do_3d_display_l ai16 lda hudrot sta.l m_hudrot lda defaultID sta.l m_defaultID a8 lda #mdo_3d_display>>16 ldx #mdo_3d_display&WM sta mcodebank ;code bank nastyon stx mr15 jsr parallel_stuff a8 .dowait lda mflags and #$20 bne .dowait nastyoff jsl alienflags_l rtl ;--------------------------------------------------- KG_3d_display_l ; ai16 ; lda defaultID ; sta.l m_defaultID ; a8 ; jsl getview1_l ; ; lda #bitmap1>>10 ; sta mscrbase ; a16 ; lda #m_dustpnts1&WM ; sta.l m_dustptr ; a8 ; lda gamemode ; sta.l m_pfm ; ; ; jsl mshowgrid_l ; ; a8i16 ; lda #mdo_3d_display>>16 ; ldx #mdo_3d_display&WM ; sta mcodebank ; lda mario_draw_mode ; ora #%00011000 ; sta mio_mode ; stx mr15 ; jsr parallel_stuff ; ; a8 ;.dowait lda mflags ; and #$20 ; bne .dowait ; lda mario_draw_mode ; sta mio_mode rtl parallel_stuff_1 ; in parallel with IRQ #3 and IRQ #4 ; swapdrawmap rts SHORTA LONGI parallel_stuff_3 jsl init_strats_ram_l rts parallel_stuff_2 ; in parallel with IRQ #1 and IRQ #2 jsl init_strats_ram_l ; collision detection jsl showview1_l rts parallel_stuff jsl init_strats_ram_l rts random_l jsr random rtl random ; lda rand ; rol a ; eor rand+1 ; sta rand+1 ; adc #4 ; sta rand lda rand clc sbc rand+1 sta rand+1 sbc rand+2 sta rand+2 sbc rand+3 sta rand+3 sbc rand sta rand rts ;--------------------------------------------------- ;------------------------------------------------------- ; Relocate back into rom xrend equ xrstart+(*-xroutines) org xrend,$8000*(xrend>>16)+(xrend&$7fff) ifgt xrend-xrstart-xlen error endc ;; printf xrend-xrstart," - ",xlen,"%n" ;----------------------------------------------------------------