;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 decrunch_palettes macro savemode ai16 phx lda #allcolscru&WM ;uncrunch colours and copy up sta.l m_enddata lda #palettes_base sta.l m_decaddr lda #0 sta.l m_decoffset a8 lda #allcolscru>>16 sta.l m_enddatabnk lda #mdecrunch>>16 ldx #mdecrunch&WM jsl runmario_l plx returnmode endm ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 flashscr macro endm ; ldx #0 ; lda #15 ;.lp\@ sta.l inidisp ; dec a ; dex ; bne .lp\@ ; endm flashscr2 macro endm ; ldx #0 ; lda #15 ;.lp\@ sta.l inidisp ; dec a ; stz cgadd ; sta cgdata ; sta cgdata ; dex ; bne .lp\@ ; endm ;------------------------------------------------------------------------ flashtunnel macro inc flashtunnelon endm flashbg macro inc flashbg endm scrollbg macro lda #1 sta dospacesc lda #\1 sta bg2yscroll stz bg2yscroll+1 endm ;------------------------------------------------------------------------ setbgdma macro bgaddr = bg_\1-bglists IFEQ LONGA lda #bgaddr&BM sta bg_dmalist lda #bgaddr>>8 sta bg_dmalist+1 ELSEIF lda #bgaddr sta bg_dmalist ENDC endm ;------------------------------------------------------------------------ setdepth macro IFEQ LONGA lda #\1&BM sta.l m_depthstab lda #(\1>>8)&BM sta.l m_depthstab+1 ELSEIF lda #\1&WM sta.l m_depthstab ENDC endm ;------------------------------------------------------------------------ defbg macro name bg_\1 IFGT NARG-1 bg_\2 IFGT NARG-2 bg_\3 ENDC ENDC db bg_\1_1>>16 dw bg_\1_1&WM db 0 dw 0 ENDM ;------------------------------------------------------- decvram macro offset = 0 ifeq narg-5 offset = \5 endc a16 lda #offset sta.l m_decoffset lda #\3>>16 sta.l m_enddatabnk lda #\3&WM sta.l m_enddata lda #\2 sta vram1addr lda #\4 sta vram1len a8 jsl dec_chr_l waittrans lda #iv_randtrans sta trans_flag waittrans endm decram macro [src,offset] offset = 0 ifeq narg-2 offset = {offset} endc a16 lda #offset sta.l m_decoffset lda #{src}>>16 sta.l m_enddatabnk lda #{src}&WM sta.l m_enddata a8 jsl dec_chr_l endm decbg2vram macro a16 lda #\3>>16 sta.l m_enddatabnk lda #\3&WM sta.l m_enddata lda #\2 sta vram1addr lda #\4 sta vram1len IFNE NARG-5 lda #(vchr_logback-vchr_physback)/16 ELSEIF lda #\5 ENDC sta.l m_decoffset a8 jsl dec_l waittrans lda #iv_randtrans sta trans_flag waittrans endm ;------------------------------------------------------------------------ decvramnotrans macro offset = 0 ifeq narg-5 offset = \5 endc a16 lda #offset sta.l m_decoffset lda #\3>>16 sta.l m_enddatabnk lda #\3&WM sta.l m_enddata lda #\2 sta vram1addr lda #\4 sta vram1len a8 jsl dec_chr_l jsl randtrans endm ;------------------------------------------------------------------------ decxvramnotrans macro offset = 0 ifeq narg-5 offset = \5 endc a16 lda #offset sta.l m_decoffset lda #\2>>16 sta.l m_enddatabnk lda #\2&WM sta.l m_enddata stx vram1addr lda #\3 sta vram1len a8 jsl dec_chr_l jsl randtrans endm decbg2vramnotrans macro a16 lda #\3>>16 sta.l m_enddatabnk lda #\3&WM sta.l m_enddata lda #\2 sta vram1addr lda #\4 sta vram1len IFNE NARG-5 lda #(vchr_logback-vchr_physback)/16 ELSEIF lda #\5 ENDC sta.l m_decoffset a8 jsl dec_l jsl randtrans endm ;------------------------------------------------------------------------ init_bg macro [mode,bgmode,charsize] a8 flashscr2 _ibg_horz = 0 _ibg_vert = 1 IFD _ibg_{bgmode} lda screenmode IFEQ _ibg_{bgmode} and #~sm_vertconnect ELSEIF ora #sm_vertconnect ENDC sta screenmode ELSEIF error ENDC IFNE {charsize}-8 IFNE {charsize}-16 error ENDC ENDC test_screenmode swapbg1bg2 beq .n1\@ lda #({charsize}>>4)<<4 bra .n2\@ .n1\@ lda #({charsize}>>4)<<5 .n2\@ sta bg2charsize ifc "{mode}","mode1" jsr initmode1 endc ifc "{mode}","mode2" jsr initmode2 endc endm set_bg macro ; waittrans lda #iv_newbg2chr sta trans_flag waittrans endm set_bg3 macro ; waittrans lda #iv_newbg3 sta trans_flag ; waittrans endm set_palette macro waittrans lda #iv_newpalette sta trans_flag waittrans endm ;------------------------------------------------------------------------ bg2chr MACRO name[len,start] addr = 0 len = bg2_cgx_len IFNE NARG-1 len = \2 IFEQ NARG-3 addr = \3 ENDC ENDC IFNE LONGA printf "%m needs to be in a8%n" ENDC IFEQ 0 jsr bg2chr dw \1_ccr&WM db \1_ccr>>16 dw addr dw len ELSEIF a16 lda #0 sta.l m_decoffset lda #bg\1ccr>>16 sta.l m_enddatabnk lda #bg\1ccr&WM sta.l m_enddata lda #addr sta vram1addr lda #len sta vram1len a8 jsl dec_chr_l ENDC ENDM bg2scr MACRO name[,start,len] addr = 0 len = bg2_scr_len IFNE NARG-1 addr = \2 len = \3 ENDC IFEQ 0 IFNE LONGA printf "%m needs to be in a8%n" ENDC jsr bg2scr dw \1_pcr&WM db \1_pcr>>16 dw addr dw len ELSEIF a16 lda #bg\1pcr>>16 sta.l m_enddatabnk lda #bg\1pcr&WM sta.l m_enddata lda #addr sta vram2addr lda #len sta vram2len a8 jsl dec_bg_l ENDC ENDM ;------------------------------------------------------------------------- bg3chr MACRO addr = 0 ;_me_bg3_scr len = 256*16 IFNE NARG-1 addr = \3 IFEQ NARG-3 len = \2 ENDC ENDC IFNE LONGA printf "%m needs to be in a8%n" ENDC IFEQ 0 jsr bg2chr dw \1_ccr&WM db \1_ccr>>16 dw addr dw len ELSEIF a16 lda #0 sta.l m_decoffset lda #bg\1ccr>>16 sta.l m_enddatabnk lda #bg\1ccr&WM sta.l m_enddata lda #addr sta vram1addr lda #len sta vram1len a8 jsl dec_chr_l lda #1 sta bg3scrollflag lda #1+2+4+16 sta tm ENDC ENDM ;------------------------------------------------------------------------- bg3scr MACRO addr = 0 ;vsc_base2+1*k len = 2048 IFNE NARG-1 addr = \2 len = \3 ENDC IFEQ 0 IFNE LONGA printf "%m needs to be in a8%n" ENDC jsr bg2scr dw \1_pcr&WM db \1_pcr>>16 dw addr dw len ELSEIF a16 lda #bg\1pcr>>16 sta.l m_enddatabnk lda #bg\1pcr&WM sta.l m_enddata lda #addr sta vram2addr lda #len sta vram2len a8 jsl dec_bg3_l ENDC ENDM ;------------------------------------------------------------------------- km_setbg3size macro km_chga8 lda #%01000000 sta bg3charsize km_reta16 endm ;------------------------------------------------------------------------- km_clrbg3size macro km_chga8 lda #%00000000 sta bg3charsize km_reta16 endm ;------------------------------------------------------------------------ palette MACRO name[,length,start] len = 4*32 IFNE NARG-1 len = \2*32 ENDC stapal = 0 IFEQ NARG-3 stapal = \3*16 ENDC IFEQ 0 IFNE LONGA printf "%m needs to be in a8%n" ENDC jsr dopalette dw \1_pac&WM db \1_pac>>16 dw len dw stapal ELSEIF lda #bg\1pac>>16 sta vram3addr+2 ldx #(bg\1pac)&WM stx vram3addr ldx #len stx vram3len ldx #7*32-1 .lp lda.l bg\1pac,x sta pal0palette,x dex bpl .lp ENDC ENDM ;------------------------------------------------------------------------ setbg3vofs MACRO lda #\1&$ff sta bg3vofs lda #\1>>8 sta bg3vofs ENDM ;------------------------------------------------------------------------ waittrans macro .\@ lda trans_flag bne .\@ ;; cmp #32 ;; bne .\@ .ok\@ endm ;------------------------------------------------------------------------ sethdma macro lda hdmaen_gc sta hdmaen endm ;------------------------------------------------------------------------ planet macro [depth] stz inatunnel lda #GROUND_MODE sta gamemode stz lastrot stz lastrot+1 setdepth {depth} ;night sethdma waittrans flashscr rtl endm ;------------------------------------------------------------------------ undergnd macro [depth] lda #1 sta inatunnel lda #GROUND_MODE sta gamemode stz lastrot stz lastrot+1 setdepth {depth} ;night sethdma waittrans flashscr rtl endm ;------------------------------------------------------------------------ nucleus macro [depth] lda #1 sta inatunnel lda #GROUND_MODE sta gamemode stz lastrot stz lastrot+1 setdepth {depth} ;night sethdma waittrans flashscr rtl endm ;------------------------------------------------------------------------ tunnel macro [depth] lda #1 sta inatunnel lda hdmaen_gc ora #hdmaf_bg2vofs sta hdmaen_gc stz lastrot stz lastrot+1 lda #GROUND_MODE sta gamemode setdepth {depth} ;night sethdma waittrans flashscr rtl endm ;------------------------------------------------------------------------ space macro [depth] stz inatunnel lda #SPACE_MODE sta gamemode stz lastrot stz lastrot+1 setdepth {depth} ;night sethdma waittrans flashscr rtl endm ;------------------------------------------------------------------------ final macro [depth] lda #1 sta inatunnel lda #SPACE_MODE sta gamemode stz lastrot stz lastrot+1 setdepth {depth} ;night sethdma waittrans flashscr rtl endm ;------------------------------------------------------------------------ water macro [depth] lda #2 sta inatunnel lda hdmaen_gc ora #hdmaf_bg2vofs sta hdmaen_gc stz lastrot stz lastrot+1 lda #WATER_MODE sta gamemode setdepth {depth} ;marine sethdma waittrans flashscr rtl endm ;------------------------------------------------------------------------ hofmode macro [mode] lda #{mode}_hof sta hposjmp endm ;------------------------------------------------------------------------ bg2Yscroll MACRO [scroll] a16 lda #{scroll} sta bg2Yscroll sta bg2scroll a8 ENDM ;------------------------------------------------------------------------ bg2Xscroll MACRO [scroll] a16 lda #{scroll} sta bg2Xscroll a8 ENDM ;------------------------------------------------------------------------ bg2hoff macro lda #(\1)&BM sta.l m_scrollxoff lda #(\1)>>8 sta.l m_scrollxoff+1 endm ;------------------------------------------------------------------------ info MACRO tempflags = 0 rept NARG irs 1,"\1","\2","\3","\4","\5","\6","\7","\8","\9","\a" upper 1 run ' ifc "%$1","VON"' tempflags = tempflags!if_vofson endc run ' ifc "%$1","HON"' tempflags = tempflags!if_hofson lda hdmaen_gc ora #hdmaf_bg2hofs sta hdmaen_gc endc run ' ifc "%$1","ZON"' tempflags = tempflags!if_zroton endc run ' ifc "%$1","GROUND"' tempflags = tempflags!if_ground endc run ' ifc "%$1","SPACE"' tempflags = tempflags!if_space endc run ' ifc "%$1","WATER"' tempflags = tempflags!if_ground endc run ' ifc "%$1","SNOW"' tempflags = tempflags!if_SNOW endc run ' ifc "%$1","POLLEN"' tempflags = tempflags!if_POLLEN endc endr lda #tempflags sta levelinfo ENDM ;------------------------------------------------------------------------ pstrat macro stratptr,def. flymode,max fly mode ldx #(\1_istrat)&WM stx newplayerstrat lda #(\1_istrat)>>16 sta newplayerstrat+2 IFEQ NARG-3 flymodeA = spfm_norm flymodeB = spfm_close flymodeC = spfm_inside a8 lda #flymode\2 sta splayerflymode jsl changeviewmode_l lda #spfmo_\3 sta splayerflymodeopt ENDC endm ;------------------------------------------------------------------------ shadowheight macro a16 lda #\1 sta shadowheight a8 endm ;------------------------------------------------------------------- gamepal MACRO lda #gamepal_\1 sta gamepal jsl setgamepal_l ENDM ;------------------------------------------------------------------- set_zdepthtable MACRO [tablenum] savemode a16 lda #depth_{tablenum}*4+depthtables&WM sta.l m_depthtable returnmode ENDM ;------------------------------------------------------------------- bgmrestart MACRO lda bgflags bit #bgf_restart beq .ok bgm \1 .ok ENDM ;------------------------------------------------------------------------ decvramwait macro ifeq narg-6 offset = \5 dvnt = \6 elseif offset = 0 dvnt = \5 endc a16 lda #offset sta.l m_decoffset lda #\3>>16 sta.l m_enddatabnk lda #\3&WM sta.l m_enddata lda #\2 sta vram1addr lda #\4 sta vram1len a8 jsl dec_chr_l waitdma dvnt jsl randtrans endm decbg2vramwait macro a16 lda #\3>>16 sta.l m_enddatabnk lda #\3&WM sta.l m_enddata lda #\2 sta vram1addr lda #\4 sta vram1len IFNE NARG-6 lda #(vchr_logback-vchr_physback)/16 dvnt = \5 ELSEIF dvnt = \6 lda #\5 ENDC sta.l m_decoffset a8 jsl dec_l waitdma dvnt jsl randtrans endm changedefaultID macro [colourID] a16 lda #{colourID}&WM sta defaultID a8 ENDM