Rev 414 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed
;SMBDIS.ASM - A COMPREHENSIVE SUPER MARIO BROS. DISASSEMBLY (Super Mario Bros (JU));by doppelganger (doppelheathen@gmail.com);This file is provided for your own use as-is. It will require the character rom data;and an iNES file header to get it to work.;There are so many people I have to thank for this, that taking all the credit for;myself would be an unforgivable act of arrogance. Without their help this would;probably not be possible. So I thank all the peeps in the nesdev scene whose insight into;the 6502 and the NES helped me learn how it works (you guys know who you are, there's no;way I could have done this without your help), as well as the authors of x816 and SMB;Utility, and the reverse-engineers who did the original Super Mario Bros. Hacking Project,;which I compared notes with but did not copy from. Last but certainly not least, I thank;Nintendo for creating this game and the NES, without which this disassembly would;only be theory.;Assembles with x816.;< LOW low byte;> HIGH high byte;-------------------------------------------------------------------------------------;DIRECTIVESif Z80==0.index 8.mem 8.org $8000endif;-------------------------------------------------------------------------------------Start:if Z80==0sei ;pretty standard 6502 type init herecldldan ++%00010000 ;init PPU control register 1sta PPU_CTRL_REG1ldxn ++$ff ;reset stack pointertxsVBlank1: lda PPU_STATUS ;wait two framescheckabpl VBlank1VBlank2: lda PPU_STATUScheckabpl VBlank2endifldyn16 ++MEMDATA_end-AREADATA;ColdBootOffset ;load default cold boot pointerldxn ++$05 ;this is where we check for a warm bootWBootCheck:if Z80==0ldax TopScoreDisplay,x ;check each score digit in the top scorecmpn ++10 ;to see if we have a valid digitcmpcybcs ColdBoot ;if not, give up and proceed with cold bootdexbpl WBootChecklda WarmBootValidation ;second checkpoint, check to see ifcmpn ++$a5 ;another location has a specific valuebne ColdBootldyn16 ++WARMMEMDATA_end-AREADATA;WarmBootOffset ;if passed both, load warm boot pointerendifColdBoot: jsr InitializeMemory ;clear memory using pointer in Ysta SND_DELTA_REG+1 ;reset delta counter load registersta OperMode ;reset primary mode of operationldan ++$a5 ;set warm boot flagsta WarmBootValidationsta PseudoRandomBitReg ;set seed for pseudorandom registerldan ++%00001111sta SND_MASTERCTRL_REG ;enable all sound channels except dmcif Z80==0ldan ++%00000110sta PPU_CTRL_REG2 ;turn off clipping for OAM and backgroundendifjsr MoveAllSpritesOffscreenjsr InitializeNameTables ;initialize both name tablesinci DisableScreenFlag ;set flag to disable screen outputif Z80==0lda Mirror_PPU_CTRL_REG1oran ++%10000000 ;enable NMIsjsr WritePPUReg1endifcall NonMaskableInterruptcall gettimer ;hl=timerld (oldupdtimer),hlEndlessLoop:if Z80call EmulatePPUcall gettimer ;hl=timeroldupdtimer=$+1ld de,oldupdtimerld (oldupdtimer),hlor asbc hl,deif FASTDEMOBEFOREBREAKPOINTld c,1jr z,c_logic0elsejr z,nologicendifld c,8ld a,lcp cjr nc,$+3 ;сюы№°х с√трхЄ Єюы№ъю т сЁ ъяюшэЄрїld c,lc_logic0ld hl,logicframeld (hl),cld b,0ld d,blogic0call NonMaskableInterruptld hl,logicframedec (hl)jr nz,logic0jr logicqnologic;jr $ ;Ёхры№эю эх яюярфрхь ё■фр яЁш эюЁьры№эющ шуЁхYIELD;haltld b,0ld d,blogicqendifjmp EndlessLoop ;endless loop, need I say more?if MUSICONINTinclude "smbsound.asm"include "smbmusic.asm";display $,"<=0x8000"endif;-------------------------------------------------------------------------------------;$00 - vram buffer address table low, also used for pseudorandom bit;$01 - vram buffer address table highVRAM_AddrTable_Low:.db LOW VRAM_Buffer1, LOW WaterPaletteData, LOW GroundPaletteData.db LOW UndergroundPaletteData, LOW CastlePaletteData, LOW VRAM_Buffer1_Offset.db LOW VRAM_Buffer2, LOW VRAM_Buffer2, LOW BowserPaletteData.db LOW DaySnowPaletteData, LOW NightSnowPaletteData, LOW MushroomPaletteData.db LOW MarioThanksMessage, LOW LuigiThanksMessage, LOW MushroomRetainerSaved.db LOW PrincessSaved1, LOW PrincessSaved2, LOW WorldSelectMessage1.db LOW WorldSelectMessage2VRAM_AddrTable_High:.db HIGH VRAM_Buffer1, HIGH WaterPaletteData, HIGH GroundPaletteData.db HIGH UndergroundPaletteData, HIGH CastlePaletteData, HIGH VRAM_Buffer1_Offset.db HIGH VRAM_Buffer2, HIGH VRAM_Buffer2, HIGH BowserPaletteData.db HIGH DaySnowPaletteData, HIGH NightSnowPaletteData, HIGH MushroomPaletteData.db HIGH MarioThanksMessage, HIGH LuigiThanksMessage, HIGH MushroomRetainerSaved.db HIGH PrincessSaved1, HIGH PrincessSaved2, HIGH WorldSelectMessage1.db HIGH WorldSelectMessage2if Z80tpalettesdw waterpalettedw groundpalettedw undergroundpalettedw castlepaletteendifVRAM_Buffer_Offset:.db LOW VRAM_Buffer1_Offset, LOW VRAM_Buffer2_OffsetNonMaskableInterrupt:if Z80;ldx VRAM_Buffer_AddrCtrl ;load control for pointer to buffer contents;ldax VRAM_AddrTable_High,x;ld d,a;ldax VRAM_AddrTable_Low,x;ld e,a;ex de,hl;ld de,PPU_SPRLIST;ld bc,0x100;ldir;ex de,hl;ld d,b;0lda Mirror_PPU_CTRL_REG1 ;d0 = ёЄЁрэшЎр (фы ёъЁюыыр)sta PPU_CTRL_REG1elselda Mirror_PPU_CTRL_REG1 ;disable NMIs in mirror regandn ++%01111111 ;save all other bitssta Mirror_PPU_CTRL_REG1andn ++%01111110 ;alter name table address to be $2800 ;ўЄюс√ т√тюфшЄ№ тёхуфр ёЄЁрэшЎє ёю ёў╕Єюьsta PPU_CTRL_REG1 ;(essentially $2000) but save other bitslda Mirror_PPU_CTRL_REG2 ;disable OAM and background display by defaultandn ++%11100110ldy DisableScreenFlag ;get screen disable flagcheckybne ScreenOff ;if set, used bits as-islda Mirror_PPU_CTRL_REG2 ;otherwise reenable bits and save themoran ++%00011110ScreenOff: sta Mirror_PPU_CTRL_REG2 ;save bits for later but not in register at the momentandn ++%11100111 ;disable screen for nowsta PPU_CTRL_REG2ldx PPU_STATUS ;reset flip-flop and reset scroll registers to zeroldan ++$00jsr InitScroll ;яш°хЄ эєыш т ёъЁюыы√ (ўЄюс√ эх ёъЁюыышЄ№ ёў╕Є)sta PPU_SPR_ADDR ;reset spr-ram address registerldan ++$02 ;perform spr-ram DMA access on $0200-$02ffsta SPR_DMAendifldx VRAM_Buffer_AddrCtrl ;load control for pointer to buffer contentsldax VRAM_AddrTable_Low,x ;set indirect at $00 to pointersta SCRATCHPAD+$00ldax VRAM_AddrTable_High,xsta SCRATCHPAD+$01;cp 0x03;jr nz,$jsr UpdateScreen ;update screen with buffer contentsldyn ++$00ldx VRAM_Buffer_AddrCtrl ;check for usage of $0341 ;VRAM_Buffer2???cpxn ++$06bne InitBufferiny ;get offset based on usageInitBuffer: ldxy VRAM_Buffer_Offset,yldan ++$00 ;clear buffer header at last locationstax VRAM_Buffer1_Offset,xstax VRAM_Buffer1,xsta VRAM_Buffer_AddrCtrl ;reinit address control to $0301 ;VRAM_Buffer1???if Z80==0lda Mirror_PPU_CTRL_REG2 ;copy mirror of $2001 to registersta PPU_CTRL_REG2endifif MUSICONINT==0jsr SoundEngine ;play soundelsesoundenginepatch=$+1call SoundEngine_noint ;play sound logicallyendifjsr ReadJoypads ;read joypadsif DEMOld a,(readdemo_stopflag)or ajr nz,randomskip;PauseSkipendifjsr PauseRoutine ;handle pause ;яюўхьє-Єю хёыш т√°х, Єю яюёых т√їюфр шч фхь√ тъы■ўрхЄ ярєчєjsr UpdateTopScorelda GamePauseStatus ;check for pause statuslsrbcs PauseSkipif Z80;OPTld a,(TimerControl) ;if master timer control not set, decrementor ajr z,DecTimers ;all frame and interval timersdec ald (TimerControl),ajr nz,NoDecTimersDecTimers: ;xor ald b,21;ldxn ++$14 ;load end offset for end of frame timersld hl,IntervalTimerControldec (hl) ;decrement interval timer control,ld hl,Timers+20jp p,DecTimersLoop ;if not expired, only frame timers will decrementld a,20ld (IntervalTimerControl),a ;if control for interval timers expired, (21 frame rule???)ld b,36;ldxn ++$23 ;interval timers will decrement along with frame timersld hl,Timers+35xor aDecTimersLoop: cp (hl);ldax Timers,x ;check current timerjr z,SkipExpTimer ;if current timer expired, branch to skip,dec (hl);decx Timers,x ;otherwise decrement the current timerSkipExpTimer: dec hl ;dex ;move onto next timerdjnz DecTimersLoop ;do this until all timers are dealt withNoDecTimers: ld hl,FrameCounterinc (hl) ;increment frame counterelse ;~Z80lda TimerControl ;if master timer control not set, decrementcheckabeq DecTimers ;all frame and interval timersdeci TimerControlbne NoDecTimersDecTimers: ldxn ++$14 ;load end offset for end of frame timersdeci IntervalTimerControl ;decrement interval timer control,bpl DecTimersLoop ;if not expired, only frame timers will decrementldan ++$14sta IntervalTimerControl ;if control for interval timers expired, (21 frame rule???)ldxn ++$23 ;interval timers will decrement along with frame timersDecTimersLoop: ldax Timers,x ;check current timercheckabeq SkipExpTimer ;if current timer expired, branch to skip,decx Timers,x ;otherwise decrement the current timerSkipExpTimer: dex ;move onto next timerbpl DecTimersLoop ;do this until all timers are dealt withNoDecTimers: inci FrameCounter ;increment frame counterendifPauseSkip: ldxn ++$00ldyn ++$07lda PseudoRandomBitReg ;get first memory location of LSFR bytesandn ++%00000010 ;mask out all but d1sta SCRATCHPAD+$00 ;save herelda PseudoRandomBitReg+1 ;get second memory locationandn ++%00000010 ;mask out all but d1eori SCRATCHPAD+$00 ;perform exclusive-OR on d1 from first and second bytesclc ;if neither or both are set, carry will be clearbeq RotPRandomBitsec ;if one or the other is set, carry will be setRotPRandomBit: rorx PseudoRandomBitReg,x ;rotate carry into d7, and rotate last bit into carryinx ;increment to next bytedey ;decrement for loopbne RotPRandomBitrandomskiplda Sprite0HitDetectFlag ;check for flag herecheckabeq SkipSprite0if Z80==0Sprite0Clr: lda PPU_STATUS ;wait for sprite 0 flag to clear, which willandn ++%01000000 ;not happen until vblank has endedbne Sprite0Clrendifif DEMOld a,(readdemo_stopflag)or ajr nz,Sprite0Hitendiflda GamePauseStatus ;if in pause mode, do not bother with sprites at alllsrbcs Sprite0Hitjsr MoveSpritesOffscreen ;3443t (3 Goomba + 2 юўъш + ╠рЁшю)jsr SpriteShuffler ;545tSprite0Hit:if Z80==0lda PPU_STATUS ;do sprite ++0 hit detectionandn ++%01000000beq Sprite0Hit ;цф╕ь, ъюуфр сєфхЄ ъЁрщ ьюэхЄъш эртхЁїє ¤ъЁрэр - ¤Єю ъюэхЎ эхёъЁюыышЁєхьющ чюэ√ldyn ++$14 ;small delay, to wait until we hit horizontal blank timeHBlankDelay: deybne HBlankDelayendifSkipSprite0: lda HorizontalScroll ;set scroll registers from variablessta PPU_SCROLL_REG_Hlda VerticalScrollsta PPU_SCROLL_REG_Vif Z80==0lda Mirror_PPU_CTRL_REG1 ;load saved mirror of $2000phasta PPU_CTRL_REG1endifif DEMOld a,(readdemo_stopflag)or ajr nz,SkipMainOperendiflda GamePauseStatus ;if in pause mode, do not perform operation mode stufflsr ;яюўхьє ь√ т Ёхцшьх ярєч√??? 1bcs SkipMainOperjsr OperModeExecutionTree ;otherwise do one of many, many possible subroutines ;49489t (3 Goomba + 2 юўъш + ╠рЁшю)SkipMainOper:if Z80==0lda PPU_STATUS ;reset flip-flopplaoran ++%10000000 ;reactivate NMIssta PPU_CTRL_REG1endifrti ;we are done until the next frame!;-------------------------------------------------------------------------------------PauseRoutine:lda OperMode ;are we in victory mode?cmpn ++VictoryModeValue ;if so, go aheadbeq ChkPauseTimercmpn ++GameModeValue ;are we in game mode?bne ExitPause ;if not, leavelda OperMode_Task ;if we are in game mode, are we running game engine?cmpn ++$03bne ExitPause ;if not, leaveChkPauseTimer: lda GamePauseTimer ;check if pause timer is still counting downcheckabeq ChkStartdeci GamePauseTimer ;if so, decrement and leavertsChkStart: lda SavedJoypad1Bits ;check to see if start is pressedandn ++Start_Button ;on controller 1beq ClrPauseTimerlda GamePauseStatus ;check to see if timer flag is setandn ++%10000000 ;and if so, do not reset timer (residual,bne ExitPause ;joypad reading routine makes this unnecessary);jr $ldan ++$2b ;set pause timersta GamePauseTimerlda GamePauseStatustayiny ;set pause sfx queue for next pause modesty PauseSoundQueueeorn ++%00000001 ;invert d0 and set d7oran ++%10000000bne SetPause ;unconditional branchClrPauseTimer: lda GamePauseStatus ;clear timer flag if timer is at zero and start buttonandn ++%01111111 ;is not pressedSetPause: sta GamePauseStatusExitPause: rts;-------------------------------------------------------------------------------------;$00 - used for preset valueSpriteShuffler:if Z80elseldy AreaType ;load level type, likely residual codeldan ++$28 ;load preset value which will put it atsta SCRATCHPAD+$00 ;sprite #10ldxn ++$0e ;start at the end of OAM data offsetsShuffleLoop: ldax SprDataOffset,x ;check for offset value againstcmpi SCRATCHPAD+$00 ;the preset valuecmpcybcc NextSprOffset ;if less, skip this partldy SprShuffleAmtOffset ;get current offset to preset value we want to addclcadcy SprShuffleAmt,y ;get shuffle amount, add to current sprite offsetbcc StrSprOffset ;if not exceeded $ff, skip second addclcadci SCRATCHPAD+$00 ;otherwise add preset value $28 to offsetStrSprOffset: stax SprDataOffset,x ;store new offset here or old one if branched to hereNextSprOffset: dex ;move backwards to next onebpl ShuffleLoopldx SprShuffleAmtOffset ;load offsetinxcpxn ++$03 ;check if offset + 1 goes to 3bne SetAmtOffset ;if offset + 1 not 3, storeldxn ++$00 ;otherwise, init to 0SetAmtOffset: stx SprShuffleAmtOffsetendifldxn ++$08 ;load offsets for values and storageldyn ++$02SetMiscOffset: lday SprDataOffset+5,y ;load one of three OAM data offsetsstax Misc_SprDataOffset-2,x ;store first one unmodified, butclc ;add eight to the second and eightadcn ++$08 ;more to the third onestax Misc_SprDataOffset-1,x ;note that due to the way X is set up,clc ;this code loads into the misc sprite offsetsadcn ++$08stax Misc_SprDataOffset,xdexdexdexdeybpl SetMiscOffset ;do this until all misc spr offsets are loaded (3 °Єєъш)rts;-------------------------------------------------------------------------------------OperModeExecutionTree:lda OperMode ;this is the heart of the entire program,jsr JumpEngine ;most of what goes on starts here.dw TitleScreenMode.dw GameMode.dw VictoryMode.dw GameOverMode;-------------------------------------------------------------------------------------MoveAllSpritesOffscreen:ldyn ++$00 ;this routine moves all sprites off the screenjr MoveSpritesOffscreen_go;.db $2c ;BIT instruction opcodeMoveSpritesOffscreen:ldyn ++$04 ;this routine moves all but sprite 0MoveSpritesOffscreen_goldan ++$f8 ;off the screenSprInitLoop: stay Sprite_Y_Position,y ;write 248 into OAM data's Y coordinateiny ;which will move it off the screeninyinyinybne SprInitLooprts;-------------------------------------------------------------------------------------TitleScreenMode:lda OperMode_Taskjsr JumpEngine.dw InitializeGame.dw ScreenRoutines.dw PrimaryGameSetup.dw GameMenuRoutine;-------------------------------------------------------------------------------------WSelectBufferTemplate:.db $04, $20, $73, $01, $00, $00GameMenuRoutine:;jr $ldyn ++$00lda SavedJoypad1Bits ;check to see if either player pressedorai SavedJoypad2Bits ;only the start button (either joypad)cmpn ++Start_Buttonbeq StartGamecmpn ++A_Button+Start_Button ;check to see if A + start was pressedbne ChkSelect ;if not, branch to check select buttonStartGame:;jr $jmp ChkContinue ;if either start or A + start, execute hereChkSelect: cmpn ++Select_Button ;check to see if the select button was pressedbeq SelectBLogic ;if so, branch reset demo timerldx DemoTimer ;otherwise check demo timercheckxbne ChkWorldSel ;if demo timer not expired, branch to check world selectionsta SelectTimer ;set controller bits here if running demojsr DemoEngine ;run through the demo actionsbcs ResetTitle ;if carry flag set, demo over, thus branch;jr $ ;ё■фр яюярфрхьjmp RunDemo ;otherwise, run game engine for demoChkWorldSel: ldx WorldSelectEnableFlag ;check to see if world selection has been enabledcheckxbeq NullJoypadcmpn ++B_Button ;if so, check to see if the B button was pressedbne NullJoypadiny ;if so, increment Y and execute same code as selectSelectBLogic: lda DemoTimer ;if select or B pressed, check demo timer one last time;jr $ ;ё■фр яюярфрхь яю selectcheckabeq ResetTitle ;if demo timer expired, branch to reset title screen mode;jr $ ;ё■фр яюярфрхь яю select Єюы№ъю ё яЁртшы№э√ьш ЄрщьхЁрьшldan ++$18 ;otherwise reset demo timersta DemoTimerlda SelectTimer ;check select/B button timercheckabne NullJoypad ;if not expired, branchldan ++$10 ;otherwise reset select button timersta SelectTimercpyn ++$01 ;was the B button pressed earlier? if so, branchbeq IncWorldSel ;note this will not be run if world selection is disabled;jr $ ;ё■фр яюярфрхь яю select Єюы№ъю ё яЁртшы№э√ьш ЄрщьхЁрьшlda NumberOfPlayers ;if no, must have been the select button, thereforeeorn ++%00000001 ;change number of players and draw icon accordinglysta NumberOfPlayersjsr DrawMushroomIconjmp NullJoypadIncWorldSel: ldx WorldSelectNumber ;increment world select numberinxtxaandn ++%00000111 ;mask out higher bitssta WorldSelectNumber ;store as current world select numberjsr GoContinueUpdateShroom: ldax WSelectBufferTemplate,x ;write template for world select in vram bufferstax VRAM_Buffer1-1,x ;do this until all bytes are writteninxcpxn ++$06bmi UpdateShroomldy WorldNumber ;get world number from variable and increment foriny ;proper display, and put in blank byte beforesty VRAM_Buffer1+3 ;null terminatorNullJoypad: ldan ++$00 ;clear joypad bits for player 1sta SavedJoypad1BitsRunDemo: jsr GameCoreRoutine ;run game enginelda GameEngineSubroutine ;check to see if we're running lose life routinecmpn ++$06bne ExitMenu ;if not, do not do all the resetting belowResetTitle: ldan ++$00 ;reset game modes, disablesta OperMode ;sprite 0 check and disablesta OperMode_Task ;screen outputsta Sprite0HitDetectFlaginci DisableScreenFlagrtsChkContinue: ldy DemoTimer ;if timer for demo has expired, reset modeschecky;jr $beq ResetTitle ;яюўхьє ьх°рхЄ фхьрь??? хёыш чръюььхэЄшЁютрЄ№, Єю шч фхь√ яю Start яюярфрхь эх т ьхэ■, р т шуЁє, ё сюы№°шь ╠рЁшю, хёыш юэ єцх сюы№°ющasl ;check to see if A button was also pushedbcc StartWorld1 ;if not, don't load continue function's world numberlda ContinueWorld ;load previously saved world number for secretjsr GoContinue ;continue function when pressing A + startStartWorld1: jsr LoadAreaPointer;jr $ ;ё■фр яюярфрхь яю startinci Hidden1UpFlag ;set 1-up box flag for both playersinci OffScr_Hidden1UpFlaginci FetchNewGameTimerFlag ;set fetch new game timer flaginci OperMode ;set next game modelda WorldSelectEnableFlag ;if world select flag is on, then primarysta PrimaryHardMode ;hard mode must be on as wellldan ++$00sta OperMode_Task ;set game mode here, and clear demo timersta DemoTimerldxn ++$17ldan ++$00InitScores: stax ScoreAndCoinDisplay,x ;clear player scores and coin displaysdexbpl InitScoresExitMenu: rtsGoContinue: sta WorldNumber ;start both players at the first areasta OffScr_WorldNumber ;of the previously saved world numberldxn ++$00 ;note that on power-up using this functionstx AreaNumber ;will make no differencestx OffScr_AreaNumberrts;-------------------------------------------------------------------------------------MushroomIconData:.db $07, $22, $49, $83, $ce, $24, $24, $00DrawMushroomIcon:ldyn ++$07 ;read eight bytes to be read by transfer routineIconDataRead: lday MushroomIconData,y ;note that the default position is set for astay VRAM_Buffer1-1,y ;1-player gamedeybpl IconDataReadlda NumberOfPlayers ;check number of playerscheckabeq ExitIcon ;if set to 1-player game, we're doneldan ++$24 ;otherwise, load blank tile in 1-player positionsta VRAM_Buffer1+3ldan ++$ce ;then load shroom icon tile in 2-player positionsta VRAM_Buffer1+5ExitIcon: rts;-------------------------------------------------------------------------------------DemoActionData:.db $01, $80, $02, $81, $41, $80, $01.db $42, $c2, $02, $80, $41, $c1, $41, $c1.db $01, $c1, $01, $02, $80, $00DemoTimingData:.db $9b, $10, $18, $05, $2c, $20, $24.db $15, $5a, $10, $20, $28, $30, $20, $10.db $80, $20, $30, $30, $01, $ff, $00DemoEngine:ldx DemoAction ;load current demo actionlda DemoActionTimer ;load current action timercheckabne DoAction ;if timer still counting down, skipinxinci DemoAction ;if expired, increment action, X, andsec ;set carry by default for demo overldax DemoTimingData-1,x ;get next timerif Z80secendifsta DemoActionTimer ;store as current timercheckabeq DemoOver ;if timer already at zero, skipDoAction: ldax DemoActionData-1,x ;get and perform action (current or next)sta SavedJoypad1Bitsdeci DemoActionTimer ;decrement action timerclc ;clear carry if demo still goingDemoOver: rts;-------------------------------------------------------------------------------------VictoryMode:jsr VictoryModeSubroutines ;run victory mode subroutineslda OperMode_Task ;get current task of victory modecheckabeq AutoPlayer ;if on bridge collapse, skip enemy processingldxn ++$00stx ObjectOffset ;otherwise reset enemy object offsetjsr EnemiesAndLoopsCore ;and run enemy codeAutoPlayer: jsr RelativePlayerPosition ;get player's relative coordinatesjmp PlayerGfxHandler ;draw the player, then leaveVictoryModeSubroutines:lda OperMode_Taskjsr JumpEngine.dw BridgeCollapse.dw SetupVictoryMode.dw PlayerVictoryWalk.dw PrintVictoryMessages.dw PlayerEndWorld;-------------------------------------------------------------------------------------SetupVictoryMode:ldx ScreenRight_PageLoc ;get page location of right side of screeninx ;increment to next pagestx DestinationPageLoc ;store hereldan ++EndOfCastleMusicsta EventMusicQueue ;play win castle musicjmp IncModeTask_B ;jump to set next major task in victory mode;-------------------------------------------------------------------------------------PlayerVictoryWalk:ldyn ++$00 ;set value here to not walk player by defaultsty VictoryWalkControllda Player_PageLoc ;get player's page locationcmpi DestinationPageLoc ;compare with destination page locationbne PerformWalk ;if page locations don't match, branchlda Player_X_Position ;otherwise get player's horizontal positioncmpn ++$60 ;compare with preset horizontal positioncmpcybcs DontWalk ;if still on other page, branch aheadPerformWalk: inci VictoryWalkControl ;otherwise increment value and Yiny ;note Y will be used to walk the playerDontWalk: tya ;put contents of Y in A andjsr AutoControlPlayer ;use A to move player to the right or notlda ScreenLeft_PageLoc ;check page location of left side of screencmpi DestinationPageLoc ;against set value herebeq ExitVWalk ;branch if equal to change modes if necessarylda ScrollFractionalclc ;do fixed point math on fractional part of scrolladcn ++$80sta ScrollFractional ;save fractional movement amountldan ++$01 ;set 1 pixel per frameadcn ++$00 ;add carry from previous additiontay ;use as scroll amountjsr ScrollScreen ;do sub to scroll the screenjsr UpdScrollVar ;do another sub to update screen and scroll variablesinci VictoryWalkControl ;increment value to stay in this routineExitVWalk: lda VictoryWalkControl ;load value set herecheckabeq IncModeTask_A ;if zero, branch to change modesrts ;otherwise leave;-------------------------------------------------------------------------------------PrintVictoryMessages:lda SecondaryMsgCounter ;load secondary message countercheckabne IncMsgCounter ;if set, branch to increment message counterslda PrimaryMsgCounter ;otherwise load primary message countercheckabeq ThankPlayer ;if set to zero, branch to print first messagecmpn ++$09 ;if at 9 or above, branch elsewhere (this comparisoncmpcybcs IncMsgCounter ;is residual code, counter never reaches 9)ldy WorldNumber ;check world numbercpyn ++World8bne MRetainerMsg ;if not at world 8, skip to next partcmpn ++$03 ;check primary message counter againcmpcybcc IncMsgCounter ;if not at 3 yet (world 8 only), branch to incrementcmpcysbcn ++$01 ;otherwise subtract onejmp ThankPlayer ;and skip to next partMRetainerMsg: cmpn ++$02 ;check primary message countercmpcybcc IncMsgCounter ;if not at 2 yet (world 1-7 only), branchThankPlayer: tay ;put primary message counter into Ycheckabne SecondPartMsg ;if counter nonzero, skip this part, do not print first messagelda CurrentPlayer ;otherwise get player currently on the screencheckabeq EvalForMusic ;if mario, branchiny ;otherwise increment Y once for luigi andbne EvalForMusic ;do an unconditional branch to the same placeSecondPartMsg: iny ;increment Y to do world 8's messagelda WorldNumbercmpn ++World8 ;check world numberbeq EvalForMusic ;if at world 8, branch to next partdey ;otherwise decrement Y for world 1-7's messagecpyn ++$04 ;if counter at 4 (world 1-7 only)cmpcybcs SetEndTimer ;branch to set victory end timercpyn ++$03 ;if counter at 3 (world 1-7 only)cmpcybcs IncMsgCounter ;branch to keep countingEvalForMusic: cpyn ++$03 ;if counter not yet at 3 (world 8 only), branchbne PrintMsg ;to print message only (note world 1-7 will onlyldan ++VictoryMusic ;reach this code if counter = 0, and will always branch)sta EventMusicQueue ;otherwise load victory music first (world 8 only)PrintMsg: tya ;put primary message counter in Aclc ;add $0c or 12 to counter thus giving an appropriate value,adcn ++$0c ;($0c-$0d = first), ($0e = world 1-7's), ($0f-$12 = world 8's)sta VRAM_Buffer_AddrCtrl ;write message counter to vram address controllerIncMsgCounter: lda SecondaryMsgCounterclcadcn ++$04 ;add four to secondary message countersta SecondaryMsgCounterlda PrimaryMsgCounteradcn ++$00 ;add carry to primary message countersta PrimaryMsgCountercmpn ++$07 ;check primary counter one more timecmpcySetEndTimer:bcc ExitMsgs ;if not reached value yet, branch to leaveldan ++$06sta WorldEndTimer ;otherwise set world end timerIncModeTask_A: inci OperMode_Task ;move onto next task in modeExitMsgs: rts ;leave;-------------------------------------------------------------------------------------PlayerEndWorld:lda WorldEndTimer ;check to see if world end timer expiredcheckabne EndExitOne ;branch to leave if notldy WorldNumber ;check world numbercpyn ++World8 ;if on world 8, player is done with game,cmpcybcs EndChkBButton ;thus branch to read controllerldan ++$00sta AreaNumber ;otherwise initialize area number used as offsetsta LevelNumber ;and level number control to start at area 1sta OperMode_Task ;initialize secondary mode of operationinci WorldNumber ;increment world number to move onto the next worldjsr LoadAreaPointer ;get area address offset for the next areainci FetchNewGameTimerFlag ;set flag to load game timer from headerldan ++GameModeValuesta OperMode ;set mode of operation to game modeEndExitOne: rts ;and leaveEndChkBButton: lda SavedJoypad1Bitsorai SavedJoypad2Bits ;check to see if B button was pressed onandn ++B_Button ;either controllerbeq EndExitTwo ;branch to leave if notldan ++$01 ;otherwise set world selection flagsta WorldSelectEnableFlagldan ++$ff ;remove onscreen player's livessta NumberofLivesjsr TerminateGame ;do sub to continue other player or end gameEndExitTwo: rts ;leave;-------------------------------------------------------------------------------------;data is used as tiles for numbers;that appear when you defeat enemiesFloateyNumTileData:.db $ff, $ff ;dummy.db $f6, $fb ; "100".db $f7, $fb ; "200".db $f8, $fb ; "400".db $f9, $fb ; "500".db $fa, $fb ; "800".db $f6, $50 ; "1000".db $f7, $50 ; "2000".db $f8, $50 ; "4000".db $f9, $50 ; "5000".db $fa, $50 ; "8000".db $fd, $fe ; "1-UP";high nybble is digit number, low nybble is number to;add to the digit of the player's scoreScoreUpdateData:.db $ff ;dummy.db $41, $42, $44, $45, $48.db $31, $32, $34, $35, $38, $00FloateyNumbersRoutine:ldax FloateyNum_Control,x ;load control for floatey numbercheckabeq EndExitOne ;if zero, branch to leavecmpn ++$0b ;if less than $0b, branchcmpcybcc ChkNumTimerldan ++$0b ;otherwise set to $0b, thus keepingstax FloateyNum_Control,x ;it in rangeChkNumTimer: tay ;use as Yldax FloateyNum_Timer,x ;check value herecheckabne DecNumTimer ;if nonzero, branch aheadstax FloateyNum_Control,x ;initialize floatey number control and leavertsDecNumTimer: decx FloateyNum_Timer,x ;decrement value herecmpn ++$2b ;if not reached a certain point, branchbne ChkTallEnemycpyn ++$0b ;check offset for $0bbne LoadNumTiles ;branch ahead if not foundinci NumberofLives ;give player one extra life (1-up)ldan ++Sfx_ExtraLifesta Square2SoundQueue ;and play the 1-up soundLoadNumTiles: lday ScoreUpdateData,y ;load point value herelsr ;move high nybble to lowlsrlsrlsrtax ;use as X offset, essentially the digitlday ScoreUpdateData,y ;load again and this timeandn ++%00001111 ;mask out the high nybblestax DigitModifier,x ;store as amount to add to the digitjsr AddToScore ;update the score accordinglyChkTallEnemy: ldyx Enemy_SprDataOffset,x ;get OAM data offset for enemy objectldax Enemy_ID,x ;get enemy object identifiercmpn ++Spinybeq FloateyPart ;branch if spinycmpn ++PiranhaPlantbeq FloateyPart ;branch if piranha plantcmpn ++HammerBrobeq GetAltOffset ;branch elsewhere if hammer brocmpn ++GreyCheepCheepbeq FloateyPart ;branch if cheep-cheep of either colorcmpn ++RedCheepCheepbeq FloateyPartcmpn ++TallEnemycmpcybcs GetAltOffset ;branch elsewhere if enemy object =HIGH $09ldax Enemy_State,xcmpn ++$02 ;if enemy state defeated or otherwisecmpcybcs FloateyPart ;$02 or greater, branch beyond this partGetAltOffset: ldx SprDataOffset_Ctrl ;load some kind of control bitldyx Alt_SprDataOffset,x ;get alternate OAM data offsetldx ObjectOffset ;get enemy object offset againFloateyPart: ldax FloateyNum_Y_Pos,x ;get vertical coordinate forcmpn ++$18 ;floatey number, if coordinate in thecmpcybcc SetupNumSpr ;status bar, branchcmpcysbcn ++$01stax FloateyNum_Y_Pos,x ;otherwise subtract one and store as newSetupNumSpr: ldax FloateyNum_Y_Pos,x ;get vertical coordinateor asbcn ++$08 ;subtract eight and dump into thejsr DumpTwoSpr ;left and right sprite's Y coordinatesldax FloateyNum_X_Pos,x ;get horizontal coordinatestay Sprite_X_Position,y ;store into X coordinate of left spriteclcadcn ++$08 ;add eight pixels and store into Xstay Sprite_X_Position+4,y ;coordinate of right spriteldan ++$02stay Sprite_Attributes,y ;set palette control in attribute bytesstay Sprite_Attributes+4,y ;of left and right spritesldax FloateyNum_Control,xasl ;multiply our floatey number control by 2tax ;and use as offset for look-up tableldax FloateyNumTileData,xstay Sprite_Tilenumber,y ;display first half of number of pointsldax FloateyNumTileData+1,xstay Sprite_Tilenumber+4,y ;display the second halfldx ObjectOffset ;get enemy object offset and leaverts;-------------------------------------------------------------------------------------ScreenRoutines:lda ScreenRoutineTask ;run one of the following subroutinesjsr JumpEngine.dw InitScreen ;0.dw SetupIntermediate ;1.dw WriteTopStatusLine ;2.dw WriteBottomStatusLine ;3.dw DisplayTimeUp ;4.dw ResetSpritesAndScreenTimer ;5.dw DisplayIntermediate ;6.dw ResetSpritesAndScreenTimer ;7.dw AreaParserTaskControl ;8.dw GetAreaPalette ;9.dw GetBackgroundColor ;10.dw GetAlternatePalette1 ;11.dw DrawTitleScreen ;12.dw ClearBuffersDrawIcon ;13.dw WriteTopScore ;14;-------------------------------------------------------------------------------------InitScreen:jsr MoveAllSpritesOffscreen ;initialize all sprites including sprite ++0jsr InitializeNameTables ;and erase both name and attribute tableslda OperModecheckabeq NextSubtask ;if mode still 0, do not loadldxn ++$03 ;into buffer pointerjmp SetVRAMAddr_A;-------------------------------------------------------------------------------------SetupIntermediate:lda BackgroundColorCtrl ;save current background color controlpha ;and player status to stacklda PlayerStatusphaldan ++$00 ;set background color to blacksta PlayerStatus ;and player status to not fieryldan ++$02 ;this is the ONLY time background color controlsta BackgroundColorCtrl ;is set to less than 4jsr GetPlayerColorspla ;we only execute this routine forsta PlayerStatus ;the intermediate lives displaypla ;and once we're done, we return bgsta BackgroundColorCtrl ;color ctrl and player status from stackjmp IncSubtask ;then move onto the next task;-------------------------------------------------------------------------------------if Z80==0AreaPalette:.db $01, $02, $03, $04endifGetAreaPalette:if Z80ld a,(AreaType)add a,ald e,ald hl,tpalettesadd hl,deld a,(hl)inc hlld h,(hl)ld l,ald (curpalette),hljp IncSubtask ;move onto next taskelseldy AreaType ;select appropriate palette to loadldxy AreaPalette,y ;based on area typeendifSetVRAMAddr_A: stx VRAM_Buffer_AddrCtrl ;store offset into buffer controlNextSubtask: jmp IncSubtask ;move onto next task;-------------------------------------------------------------------------------------;$00 - used as temp counter in GetPlayerColorsBGColorCtrl_Addr:.db $00, $09, $0a, $04BackgroundColors:if Z80BGCOLORdb 0xcc,0xcc,0xff,0xff ;used by area type if bg color ctrl not setdb 0xff,0xcc,0xff,0xff ;used by background color control if setelse.db $22, $22, $0f, $0f ;used by area type if bg color ctrl not set.db $0f, $22, $0f, $0f ;used by background color control if setendifPlayerColors:if Z80MARIOCOLORdw 0x3f3f,0xbdbd ;mario's colorsdw 0x3f3f,0xefef ;luigi's colorsdw 0x3f3f,0x0c0c ;fiery (used by both)else.db $22, $16, $27, $18 ;mario's colors.db $22, $30, $27, $19 ;luigi's colors.db $22, $37, $27, $16 ;fiery (used by both)endifGetBackgroundColor:ldy BackgroundColorCtrl ;check background color controlcheckybeq NoBGColor ;if not set, increment task and fetch paletteif Z80BGCOLORelselday BGColorCtrl_Addr-4,y ;put appropriate palette into vramsta VRAM_Buffer_AddrCtrl ;note that if set to 5-7, $0301 (VRAM_Buffer1) will not be readendifNoBGColor: inci ScreenRoutineTask ;increment to next subtask and plod on throughGetPlayerColors:if Z80MARIOCOLORlda CurrentPlayer ;check which player is on the screenld de,PlayerColorsor abeq ChkFieryld de,PlayerColors+4;ldyn ++$04 ;load offset for luigiChkFiery: lda PlayerStatus ;check player statuscmpn ++$02bne StartClrGet ;if fiery, load alternate offset for fiery playerld de,PlayerColors+8;ldyn ++$08StartClrGet:ld hl,(curpalette)ld c,12*2add hl,bcex de,hl;c>=4ldildiinc deinc deldildild (oldpalette),hl ;!=curpalette, ўЄюс√ ртЄюьрЄшўхёъш юсэютшырё№ld d,bif Z80BGCOLORldy BackgroundColorCtrl ;if this value is four or greater, it will be setcheckybne SetBGColor ;therefore use it as offset to background colorldy AreaType ;otherwise use area type bits from area offset as offsetSetBGColor: lday BackgroundColors,y ;to background color instead;jr $ld hl,(curpalette)ld (hl),ainc hlld (hl),aendifretelseldx VRAM_Buffer1_Offset ;get current buffer offsetldyn ++$00lda CurrentPlayer ;check which player is on the screencheckabeq ChkFieryldyn ++$04 ;load offset for luigiChkFiery: lda PlayerStatus ;check player statuscmpn ++$02bne StartClrGet ;if fiery, load alternate offset for fiery playerldyn ++$08StartClrGet: ldan ++$03 ;do four colorssta SCRATCHPAD+$00ClrGetLoop: lday PlayerColors,y ;fetch player colors and store themstax VRAM_Buffer1+3,x ;in the bufferinyinxdeci SCRATCHPAD+$00bpl ClrGetLoopldx VRAM_Buffer1_Offset ;load original offset from beforeldy BackgroundColorCtrl ;if this value is four or greater, it will be setcheckybne SetBGColor ;therefore use it as offset to background colorldy AreaType ;otherwise use area type bits from area offset as offsetSetBGColor: lday BackgroundColors,y ;to background color insteadstax VRAM_Buffer1+3,xldan ++HIGH PPU_SPRPAL;++$3f ;set for sprite palette addressstax VRAM_Buffer1,x ;save to bufferldan ++LOW PPU_SPRPAL;++$10stax VRAM_Buffer1+1,xldan ++$04 ;write length byte to bufferstax VRAM_Buffer1+2,xldan ++$00 ;now the null terminatorstax VRAM_Buffer1+7,xtxa ;move the buffer pointer ahead 7 bytesclc ;in case we want to write anything else lateradcn ++$07endifSetVRAMOffset: sta VRAM_Buffer1_Offset ;store as new vram buffer offsetrts;-------------------------------------------------------------------------------------GetAlternatePalette1:lda AreaStyle ;check for mushroom level stylecmpn ++$01bne NoAltPalldan ++$0b ;if found, load appropriate paletteSetVRAMAddr_B: sta VRAM_Buffer_AddrCtrlNoAltPal: jmp IncSubtask ;now onto the next task;-------------------------------------------------------------------------------------WriteTopStatusLine:ldan ++$00 ;select main status barjsr WriteGameText ;output itjmp IncSubtask ;onto the next task;-------------------------------------------------------------------------------------WriteBottomStatusLine:jsr GetSBNybbles ;write player's score and coin tally to screenldx VRAM_Buffer1_Offsetldan ++$20 ;write address for world-area number on screenstax VRAM_Buffer1,xldan ++$73stax VRAM_Buffer1+1,xldan ++$03 ;write length for itstax VRAM_Buffer1+2,xldy WorldNumber ;first the world numberinytyastax VRAM_Buffer1+3,xldan ++$28 ;next the dashstax VRAM_Buffer1+4,xldy LevelNumber ;next the level numberiny ;increment for proper number displaytyastax VRAM_Buffer1+5,xldan ++$00 ;put null terminator onstax VRAM_Buffer1+6,xtxa ;move the buffer offset up by 6 bytesclcadcn ++$06sta VRAM_Buffer1_Offsetjmp IncSubtask;-------------------------------------------------------------------------------------DisplayTimeUp:lda GameTimerExpiredFlag ;if game timer not expired, increment taskcheckabeq NoTimeUp ;control 2 tasks forward, otherwise, stay hereldan ++$00sta GameTimerExpiredFlag ;reset timer expiration flagldan ++$02 ;output time-up screen to bufferjmp OutputInterNoTimeUp: inci ScreenRoutineTask ;increment control task 2 tasks forwardjmp IncSubtask;-------------------------------------------------------------------------------------DisplayIntermediate:lda OperMode ;check primary mode of operationcheckabeq NoInter ;if in title screen mode, skip thiscmpn ++GameOverModeValue ;are we in game over mode?beq GameOverInter ;if so, proceed to display game over screenlda AltEntranceControl ;otherwise check for mode of alternate entrycheckabne NoInter ;and branch if foundldy AreaType ;check if we are on castle levelcpyn ++$03 ;and if so, branch (possibly residual)beq PlayerInterlda DisableIntermediate ;if this flag is set, skip intermediate lives displaycheckabne NoInter ;and jump to specific task, otherwisePlayerInter: jsr DrawPlayer_Intermediate ;put player in appropriate place forldan ++$01 ;lives display, then output lives display to bufferOutputInter: jsr WriteGameTextjsr ResetScreenTimerldan ++$00sta DisableScreenFlag ;reenable screen outputrtsGameOverInter: ldan ++$12 ;set screen timersta ScreenTimerldan ++$03 ;output game over screen to bufferjsr WriteGameTextjmp IncModeTask_BNoInter: ldan ++$08 ;set for specific task (AreaParserTaskControl) and leavesta ScreenRoutineTaskrts;-------------------------------------------------------------------------------------AreaParserTaskControl:inci DisableScreenFlag ;turn off screenTaskLoop: jsr AreaParserTaskHandler ;render column set of current arealda AreaParserTaskNum ;check number of taskscheckabne TaskLoop ;if tasks still not all done, do another onedeci ColumnSets ;do we need to render more column sets?bpl OutputColinci ScreenRoutineTask ;if not, move on to the next taskOutputCol: ldan ++$06 ;set vram buffer to output rendered column setsta VRAM_Buffer_AddrCtrl ;on next NMIrts;-------------------------------------------------------------------------------------;$00 - vram buffer address table low;$01 - vram buffer address table highDrawTitleScreen:;jr $lda OperMode ;are we in title screen mode?checkabne IncModeTask_B ;if not, exitif Z80DrawTitleScreen_gold hl,TitleScreenld de,VRAM_Buffer1_Offsetld bc,TitleScreenDataSize ;0x13a = 314 (ёЄЁрээюх ўшёыю???)ldirld d,b;0elseldan ++HIGH TitleScreenDataOffset ;load address $1ec0 intosta PPU_ADDRESS ;the vram address registerldan ++LOW TitleScreenDataOffsetsta PPU_ADDRESSldan ++$03 ;put address $0300 intosta SCRATCHPAD+$01 ;the indirect at $00ldyn ++$00sty SCRATCHPAD+$00lda PPU_DATA ;do one garbage readOutputTScr: lda PPU_DATA ;get title screen from chr-romstayindirect (SCRATCHPAD+$00),y ;store 256 bytes into bufferinybne ChkHiByte ;if not past 256 bytes, do not incrementinci SCRATCHPAD+$01 ;otherwise increment high byte of indirectChkHiByte: lda SCRATCHPAD+$01 ;check high byte?cmpn ++$04 ;at $0400?bne OutputTScr ;if not, loop back and do anothercpyn ++$3a ;check if offset points past end of datacmpcybcc OutputTScr ;if not, loop back and do anotherendifldan ++$05 ;set buffer transfer control to $0300,jmp SetVRAMAddr_B ;increment task and exit;-------------------------------------------------------------------------------------ClearBuffersDrawIcon:lda OperMode ;check game modecheckabne IncModeTask_B ;if not title screen mode, leaveldxn ++$00 ;otherwise, clear buffer spaceTScrClear: stax VRAM_Buffer1-1,xstax VRAM_Buffer1-1+$100,x ;??? яюўхьє Єръ ьэюую?dexbne TScrClearjsr DrawMushroomIcon ;draw player select iconIncSubtask: inci ScreenRoutineTask ;move onto next taskrts;-------------------------------------------------------------------------------------WriteTopScore:ldan ++$fa ;run display routine to display top score on titlejsr UpdateNumberIncModeTask_B: inci OperMode_Task ;move onto next moderts;-------------------------------------------------------------------------------------GameText:TopStatusBarLine:.db $20, $43, $05, $16, $0a, $1b, $12, $18 ; "MARIO".db $20, $52, $0b, $20, $18, $1b, $15, $0d ; "WORLD TIME".db $24, $24, $1d, $12, $16, $0e.db $20, $68, $05, $00, $24, $24, $2e, $29 ; score trailing digit and coin display.db $23, $c0, $7f, $aa ; attribute table data, clears name table 0 to palette 2.db $23, $c2, $01, $ea ; attribute table data, used for coin icon in status bar.db $ff ; end of data blockWorldLivesDisplay:.db $21, $cd, $07, $24, $24 ; cross with spaces used on.db $29, $24, $24, $24, $24 ; lives display.db $21, $4b, $09, $20, $18 ; "WORLD - " used on lives display.db $1b, $15, $0d, $24, $24, $28, $24.db $22, $0c, $47, $24 ; possibly used to clear time up.db $23, $dc, $01, $ba ; attribute table data for crown if more than 9 lives.db $ffTwoPlayerTimeUp:.db $21, $cd, $05, $16, $0a, $1b, $12, $18 ; "MARIO"OnePlayerTimeUp:.db $22, $0c, $07, $1d, $12, $16, $0e, $24, $1e, $19 ; "TIME UP".db $ffTwoPlayerGameOver:.db $21, $cd, $05, $16, $0a, $1b, $12, $18 ; "MARIO"OnePlayerGameOver:.db $22, $0b, $09, $10, $0a, $16, $0e, $24 ; "GAME OVER".db $18, $1f, $0e, $1b.db $ffWarpZoneWelcome:.db $25, $84, $15, $20, $0e, $15, $0c, $18, $16 ; "WELCOME TO WARP ZONE!".db $0e, $24, $1d, $18, $24, $20, $0a, $1b, $19.db $24, $23, $18, $17, $0e, $2b.db $26, $25, $01, $24 ; placeholder for left pipe.db $26, $2d, $01, $24 ; placeholder for middle pipe.db $26, $35, $01, $24 ; placeholder for right pipe.db $27, $d9, $46, $aa ; attribute data.db $27, $e1, $45, $aa.db $ffLuigiName:.db $15, $1e, $12, $10, $12 ; "LUIGI", no address or lengthWarpZoneNumbers:.db $04, $03, $02, $00 ; warp zone numbers, note spaces on middle.db $24, $05, $24, $00 ; zone, partly responsible for.db $08, $07, $06, $00 ; the minus worldGameTextOffsets:.db TopStatusBarLine-GameText, TopStatusBarLine-GameText.db WorldLivesDisplay-GameText, WorldLivesDisplay-GameText.db TwoPlayerTimeUp-GameText, OnePlayerTimeUp-GameText.db TwoPlayerGameOver-GameText, OnePlayerGameOver-GameText.db WarpZoneWelcome-GameText, WarpZoneWelcome-GameTextWriteGameText:pha ;save text number to stackasltay ;multiply by 2 and use as offsetcpyn ++$04 ;if set to do top status bar or world/lives display,cmpcybcc LdGameText ;branch to use current offset as-iscpyn ++$08 ;if set to do time-up or game over,cmpcybcc Chk2Players ;branch to check playersldyn ++$08 ;otherwise warp zone, therefore set offsetChk2Players: lda NumberOfPlayers ;check for number of playerscheckabne LdGameText ;if there are two, use current offset to also print nameiny ;otherwise increment offset by one to not print nameLdGameText: ldxy GameTextOffsets,y ;get offset to message we want to printldyn ++$00GameTextLoop: ldax GameText,x ;load message datacmpn ++$ff ;check for terminatorbeq EndGameText ;branch to end text if foundstay VRAM_Buffer1,y ;otherwise write data to bufferinx ;and increment incrementinybne GameTextLoop ;do this for 256 bytes if no terminator foundEndGameText: ldan ++$00 ;put null terminator at endstay VRAM_Buffer1,ypla ;pull original text number from stacktaxcmpn ++$04 ;are we printing warp zone?cmpcybcs PrintWarpZoneNumbersdex ;are we printing the world/lives display?bne CheckPlayerName ;if not, branch to check player's namelda NumberofLives ;otherwise, check number of livesclc ;and increment by one for displayadcn ++$01cmpn ++10 ;more than 9 lives?cmpcybcc PutLivescmpcysbcn ++10 ;if so, subtract 10 and put a crown tileldyn ++$9f ;next to the difference...strange things happen ifsty VRAM_Buffer1+7 ;the number of lives exceeds 19PutLives: sta VRAM_Buffer1+8ldy WorldNumber ;write world and level numbers (incremented for display)iny ;to the buffer in the spaces surrounding the dashsty VRAM_Buffer1+19ldy LevelNumberinysty VRAM_Buffer1+21 ;we're done herertsCheckPlayerName:lda NumberOfPlayers ;check number of playerscheckabeq ExitChkName ;if only 1 player, leavelda CurrentPlayer ;load current playerdex ;check to see if current message number is for time upbne ChkLuigildy OperMode ;check for game over modecpyn ++GameOverModeValuebeq ChkLuigieorn ++%00000001 ;if not, must be time up, invert d0 to do other playerChkLuigi: lsrbcc ExitChkName ;if mario is current player, do not change the nameldyn ++$04NameLoop: lday LuigiName,y ;otherwise, replace "MARIO" with "LUIGI"stay VRAM_Buffer1+3,ydeybpl NameLoop ;do this until each letter is replacedExitChkName: rtsPrintWarpZoneNumbers:;CY = 0???or asbcn ++$04 ;subtract 4 and then shift to the leftasl ;twice to get proper warp zone numberasl ;offsettaxldyn ++$00WarpNumLoop: ldax WarpZoneNumbers,x ;print warp zone numbers into thestay VRAM_Buffer1+27,y ;placeholders from earlierinxiny ;put a number in every fourth spaceinyinyinycpyn ++$0ccmpcybcc WarpNumLoopldan ++$2c ;load new buffer pointer at end of messagejmp SetVRAMOffset;-------------------------------------------------------------------------------------ResetSpritesAndScreenTimer:lda ScreenTimer ;check if screen timer has expiredcheckabne NoReset ;if not, branch to leavejsr MoveAllSpritesOffscreen ;otherwise reset sprites nowResetScreenTimer:ldan ++$07 ;reset timer againsta ScreenTimerinci ScreenRoutineTask ;move onto next taskNoReset: rts;-------------------------------------------------------------------------------------;$00 - temp vram buffer offset;$01 - temp metatile buffer offset;$02 - temp metatile graphics table offset;$03 - used to store attribute bits;$04 - used to determine attribute table row;$05 - used to determine attribute table column;$06 - metatile graphics table address low;$07 - metatile graphics table address highRenderAreaGraphics:if Z80OPT4;lda CurrentColumnPos ;store LSB of where we're at;andn ++$01;sta SCRATCHPAD+$05ldy VRAM_Buffer2_Offset ;store vram buffer offsetld ix,VRAM_Buffer2add ix,deld a,(CurrentNTAddr_Low) ;get current name table address we're supposed to renderld (ix+1),a;stay VRAM_Buffer2+1,yld a,(CurrentNTAddr_High)ld (ix+0),a;stay VRAM_Buffer2,yld a,++$9a ;store length byte of 26 here with d7 setld (ix+2),a;stay VRAM_Buffer2+2,y ;to increment by 32 (in columns)ld bc,MetatileBuffer;ld c,0 ;rowld hy,13;row=0..12DrawMTLoop:;фы Z80 эх эєцэю ЇюЁьшЁютрЄ№ рЄЁшсєЄ√ - тёх Єрщы√ єцх яхЁхъЁр°хэ√;ld hl,MetatileBuffer;add hl,bcld a,(bc);(hl);ldax MetatileBuffer,x ;get first metatile number ;%xx000000 - attribute table bits, %00xxxxxx - metatile numberld e,d;0add a,a ;*2rl eadd a,a ;*4rl e ;e=0..3ld hl,AreaParserTaskNum ;get current task number for level processing andbit 0,(hl) ;get current task number for level processing and mask out all but LSBjr nz,$+4add a,2 ;multiply by 2, then add to the tile offset so we can draw either side of the metatilesld hl,MetatileGraphics_Lowadd hl,de ;e=0..3add a,(hl);l,(iy)inc hlinc hlinc hlinc hl;ld e,a;adc a,(hl);sub e;ld h,a;ld l,e ;23tld h,(hl);(iy+MetatileGraphics_High-MetatileGraphics_Low) ;get address to graphics table from herejr nc,$+3inc hld l,a ;20.5tld a,(hl);ldayindirect (SCRATCHPAD+$06),y ;get first tile number (top left or top right) and storeld (ix+3),ainc hlld a,(hl) ;now get the second (bottom left or bottom right) and storeld (ix+4),a;stax VRAM_Buffer2+4,xinc ix;inci SCRATCHPAD+$00 ;increment vram buffer offset by 2inc ix;inci SCRATCHPAD+$00inc bc ;next row;ld a,cdec hy ;cp $0d ;check for the bottom of the screenjp nz,DrawMTLoop ;jp c,DrawMTLoop ;if not there yet, loop backld b,d;0;шЄюую ёфтшэєыш vram buffer offset эр 13*2, ёфтшэхь х∙╕ эр 3 ш ёюїЁрэшь:ld (ix+3),b;0 ;put null terminator at end of data for name tableld a,(VRAM_Buffer2_Offset)add a,13*2+3ld (VRAM_Buffer2_Offset),a ;store new buffer offsetld hl,CurrentNTAddr_Lowinc (hl);inci CurrentNTAddr_Low ;increment name table address lowld a,(hl);lda CurrentNTAddr_Low ;check current low byteand ++%00011111 ;if no wraparound, just skip this partjr nz,ExitDrawM;ld a,++$80 ;if wraparound occurs, make sure low byte staysld (hl),$80;sta CurrentNTAddr_Low ;just under the status barld hl,CurrentNTAddr_Highld a,(hl);lda CurrentNTAddr_High ;and then invert d2 of the name table address highxor ++%00000100 ;to move onto the next appropriate name tableld (hl),a;sta CurrentNTAddr_HighExitDrawM: ;jmp SetVRAMCtrl ;jump to set buffer to $0341 (VRAM_Buffer2) and leaveldan ++$06sta VRAM_Buffer_AddrCtrl ;set buffer to $0341 (VRAM_Buffer2) and leaveretelse ;~Z80lda CurrentColumnPos ;store LSB of where we're atandn ++$01sta SCRATCHPAD+$05ldy VRAM_Buffer2_Offset ;store vram buffer offsetsty SCRATCHPAD+$00lda CurrentNTAddr_Low ;get current name table address we're supposed to renderstay VRAM_Buffer2+1,ylda CurrentNTAddr_Highstay VRAM_Buffer2,yldan ++$9a ;store length byte of 26 here with d7 setstay VRAM_Buffer2+2,y ;to increment by 32 (in columns)ldan ++$00 ;init attribute rowsta SCRATCHPAD+$04 ;current attribute rowtax ;x=row;x=row=0..12DrawMTLoop:stx SCRATCHPAD+$01 ;store init value of 0 or incremented offset for bufferldax MetatileBuffer,x ;get first metatile number, and mask out all but 2 MSBandn ++%11000000sta SCRATCHPAD+$03 ;store attribute table bits hereasl ;note that metatile format is:rol ;%xx000000 - attribute table bits,rol ;%00xxxxxx - metatile numbertay ;rotate bits to d1-d0 and use as offset herelday MetatileGraphics_Low,y ;get address to graphics table from heresta SCRATCHPAD+$06lday MetatileGraphics_High,ysta SCRATCHPAD+$07ldax MetatileBuffer,x ;get metatile number againasl ;multiply by 4 and use as tile offsetaslsta SCRATCHPAD+$02lda AreaParserTaskNum ;get current task number for level processing andandn ++%00000001 ;mask out all but LSB, then invert LSB, multiply by 2eorn ++%00000001 ;to get the correct column position in the metatile,asl ;then add to the tile offset so we can draw either sideadci SCRATCHPAD+$02 ;of the metatilestayldx SCRATCHPAD+$00 ;use vram buffer offset from before as Xldayindirect (SCRATCHPAD+$06),ystax VRAM_Buffer2+3,x ;get first tile number (top left or top right) and storeinyldayindirect (SCRATCHPAD+$06),y ;now get the second (bottom left or bottom right) and storestax VRAM_Buffer2+4,xldy SCRATCHPAD+$04 ;get current attribute rowlda SCRATCHPAD+$05 ;get LSB of current column where we're at, andcheckabne RightCheck ;branch if set (clear = left attrib, set = right)lda SCRATCHPAD+$01 ;get current row we're renderinglsr ;branch if LSB set (clear = top left, set = bottom left)bcs LLeftroli SCRATCHPAD+$03 ;rotate attribute bits 3 to the leftroli SCRATCHPAD+$03 ;thus in d1-d0, for upper left squareroli SCRATCHPAD+$03jmp SetAttribRightCheck: lda SCRATCHPAD+$01 ;get LSB of current row we're renderinglsr ;branch if set (clear = top right, set = bottom right)bcs NextMTRowlsri SCRATCHPAD+$03 ;shift attribute bits 4 to the rightlsri SCRATCHPAD+$03 ;thus in d3-d2, for upper right squarelsri SCRATCHPAD+$03lsri SCRATCHPAD+$03jmp SetAttribLLeft: lsri SCRATCHPAD+$03 ;shift attribute bits 2 to the rightlsri SCRATCHPAD+$03 ;thus in d5-d4 for lower left squareNextMTRow: inci SCRATCHPAD+$04 ;move onto next attribute rowSetAttrib: lday AttributeBuffer,y ;get previously saved bits from beforeorai SCRATCHPAD+$03 ;if any, and put new bits, if any, ontostay AttributeBuffer,y ;the old, and storeinci SCRATCHPAD+$00 ;increment vram buffer offset by 2inci SCRATCHPAD+$00ldx SCRATCHPAD+$01 ;get current gfx buffer row, and check forinx ;the bottom of the screencpxn ++$0dcmpcybcc DrawMTLoop ;if not there yet, loop back;шЄюую ёфтшэєыш vram buffer offset эр 13*2, ёфтшэхь х∙╕ эр 3 ш ёюїЁрэшь:ldy SCRATCHPAD+$00 ;get current vram buffer offset, increment by 3iny ;(for name table address and length bytes)inyinyldan ++$00stay VRAM_Buffer2,y ;put null terminator at end of data for name tablesty VRAM_Buffer2_Offset ;store new buffer offsetinci CurrentNTAddr_Low ;increment name table address lowlda CurrentNTAddr_Low ;check current low byteandn ++%00011111 ;if no wraparound, just skip this partbne ExitDrawMldan ++$80 ;if wraparound occurs, make sure low byte stayssta CurrentNTAddr_Low ;just under the status barlda CurrentNTAddr_High ;and then invert d2 of the name table address higheorn ++%00000100 ;to move onto the next appropriate name tablesta CurrentNTAddr_HighExitDrawM: jmp SetVRAMCtrl ;jump to set buffer to $0341 (VRAM_Buffer2) and leaveendif;-------------------------------------------------------------------------------------if Z80OPT4==0 ;фы Z80 эх эєцэю ЇюЁьшЁютрЄ№ рЄЁшсєЄ√ - тёх Єрщы√ єцх яхЁхъЁр°хэ√;$00 - temp attribute table address high (big endian order this time!);$01 - temp attribute table address lowRenderAttributeTables:lda CurrentNTAddr_Low ;get low byte of next name table addressandn ++%00011111 ;to be written to, mask out all but 5 LSB,secsub ;subtract foursbcn ++$04cmpcyif Z80push afendifandn ++%00011111 ;mask out bits again and storesta SCRATCHPAD+$01if Z80pop afendiflda CurrentNTAddr_High ;get high byte and branch if borrow not setbcs SetATHigheorn ++%00000100 ;otherwise invert d2SetATHigh: andn ++%00000100 ;mask out all other bitsoran ++$23 ;add $2300 to the high byte and storesta SCRATCHPAD+$00lda SCRATCHPAD+$01 ;get low byte - 4, divide by 4, add offset forlsr ;attribute table and storelsradcn ++$c0 ;we should now have the appropriate block ofsta SCRATCHPAD+$01 ;attribute table in our temp addressldxn ++$00ldy VRAM_Buffer2_Offset ;get buffer offsetAttribLoop: lda SCRATCHPAD+$00stay VRAM_Buffer2,y ;store high byte of attribute table addresslda SCRATCHPAD+$01clc ;get low byte, add 8 because we want to startadcn ++$08 ;below the status bar, and storestay VRAM_Buffer2+1,ysta SCRATCHPAD+$01 ;also store in temp againldax AttributeBuffer,x ;fetch current attribute table byte and storestay VRAM_Buffer2+3,y ;in the bufferldan ++$01stay VRAM_Buffer2+2,y ;store length of 1 in bufferlsrstax AttributeBuffer,x ;clear current byte in attribute bufferiny ;increment buffer offset by 4 bytesinyinyinyinx ;increment attribute offset and check to seecpxn ++$07 ;if we're at the end yetcmpcybcc AttribLoopstay VRAM_Buffer2,y ;put null terminator at the endsty VRAM_Buffer2_Offset ;store offset in case we want to do any moreSetVRAMCtrl: ldan ++$06sta VRAM_Buffer_AddrCtrl ;set buffer to $0341 (VRAM_Buffer2) and leavertsendif;-------------------------------------------------------------------------------------;$00 - used as temporary counter in ColorRotationColorRotatePalette:if Z80COINCYCLECOLORdb 0xa1,0xa1,0xa1,0x31,0xf1,0x31else.db $27, $27, $27, $17, $07, $17endifBlankPalette:.db $3f, $0c, $04, $ff, $ff, $ff, $ff, $00;used based on area typePalette3Data:.db $0f, $07, $12, $0f.db $0f, $07, $17, $0f.db $0f, $07, $17, $1c.db $0f, $07, $17, $00ColorRotation:lda FrameCounter ;get frame counterandn ++$07 ;mask out all but three LSBif Z80COINCYCLECOLORret nz;lda AreaType ;get area type;asl ;multiply by 4 to get proper offset;asl;tay ;save as offset here;lday Palette3Data,y ;fetch palette to be written based on area typeldy ColorRotateOffset ;get color cycling offsetlday ColorRotatePalette,yld hl,(curpalette)ld e,11*2add hl,deld (hl),ainc hlld (hl),ainci ColorRotateOffset ;increment color cycling offsetlda ColorRotateOffsetcmpn ++$06 ;check to see if it's still in range;cmpcyret c;bcc ExitColorRot ;if so, branch to leavexor a;ldan ++$00sta ColorRotateOffset ;otherwise, init to keep it in rangeretelsebne ExitColorRot ;branch if not set to zero to do this every eighth frameldx VRAM_Buffer1_Offset ;check vram buffer offsetcpxn ++$31cmpcybcs ExitColorRot ;if offset over 48 bytes, branch to leavetay ;otherwise use frame counter's 3 LSB as offset hereGetBlankPal: lday BlankPalette,y ;get blank palette for palette 3stax VRAM_Buffer1,x ;store it in the vram bufferinx ;increment offsetsinycpyn ++$08cmpcybcc GetBlankPal ;do this until all bytes are copiedldx VRAM_Buffer1_Offset ;get current vram buffer offsetldan ++$03sta SCRATCHPAD+$00 ;set counter herelda AreaType ;get area typeasl ;multiply by 4 to get proper offsetasltay ;save as offset hereGetAreaPal: lday Palette3Data,y ;fetch palette to be written based on area typestax VRAM_Buffer1+3,x ;store it to overwrite blank palette in vram bufferinyinxdeci SCRATCHPAD+$00 ;decrement counterbpl GetAreaPal ;do this until the palette is all copiedldx VRAM_Buffer1_Offset ;get current vram buffer offsetldy ColorRotateOffset ;get color cycling offsetlday ColorRotatePalette,ystax VRAM_Buffer1+4,x ;get and store current color in second slot of palettelda VRAM_Buffer1_Offsetclc ;add seven bytes to vram buffer offsetadcn ++$07sta VRAM_Buffer1_Offsetinci ColorRotateOffset ;increment color cycling offsetlda ColorRotateOffsetcmpn ++$06 ;check to see if it's still in rangecmpcybcc ExitColorRot ;if so, branch to leaveldan ++$00sta ColorRotateOffset ;otherwise, init to keep it in rangeExitColorRot: rts ;leaveendif;-------------------------------------------------------------------------------------;$00 - temp store for offset control bit;$01 - temp vram buffer offset;$02 - temp store for vertical high nybble in block buffer routine;$03 - temp adder for high byte of name table address;$04, $05 - name table address low/high;$06, $07 - block buffer address low/highBlockGfxData:.db $45, $45, $47, $47.db $47, $47, $47, $47.db $57, $58, $59, $5a.db $24, $24, $24, $24 ;blank metatile.db y26, y26, y26, y26 ;water/lava ;blank metatile for waterRemoveCoin_Axe:ldyn ++$41 ;set low byte so offset points to $0341ldan ++$03 ;load offset for default blank metatileldx AreaType ;check area typecheckxbne WriteBlankMT ;if not water type, use offsetldan ++$04 ;otherwise load offset for blank metatile used in waterWriteBlankMT: jsr PutBlockMetatile ;do a sub to write blank metatile to vram bufferldan ++$06sta VRAM_Buffer_AddrCtrl ;set vram address controller to $0341 (VRAM_Buffer2) and leavertsReplaceBlockMetatile:jsr WriteBlockMetatile ;write metatile to vram buffer to replace block objectinci Block_ResidualCounter ;increment unused counter (residual code)decx Block_RepFlag,x ;decrement flag (residual code)rts ;leaveDestroyBlockMetatile:ldan ++$00 ;force blank metatile if branched/jumped to this pointWriteBlockMetatile:ldyn ++$03 ;load offset for blank metatilecmpn ++$00 ;check contents of A for blank metatilebeq UseBOffset ;branch if found (unconditional if branched from 8a6b)ldyn ++$00 ;load offset for brick metatile w/ linecmpn ++$58beq UseBOffset ;use offset if metatile is brick with coins (w/ line)cmpn ++$51beq UseBOffset ;use offset if metatile is breakable brick w/ lineiny ;increment offset for brick metatile w/o linecmpn ++$5dbeq UseBOffset ;use offset if metatile is brick with coins (w/o line)cmpn ++$52beq UseBOffset ;use offset if metatile is breakable brick w/o lineiny ;if any other metatile, increment offset for empty blockUseBOffset: tya ;put Y in Aldy VRAM_Buffer1_Offset ;get vram buffer offsetiny ;move onto next bytejsr PutBlockMetatile ;get appropriate block data and write to vram bufferMoveVOffset: dey ;decrement vram buffer offsettya ;add 10 bytes to itclcadcn ++10jmp SetVRAMOffset ;branch to store as new vram buffer offsetPutBlockMetatile:stx SCRATCHPAD+$00 ;store control bit from SprDataOffset_Ctrlsty SCRATCHPAD+$01 ;store vram buffer offset for next byteaslasl ;multiply A by four and use as Xtaxldyn ++$20 ;load high byte for name table 0lda SCRATCHPAD+$06 ;get low byte of block buffer pointercmpn ++$d0 ;check to see if we're on odd-page block buffercmpcybcc SaveHAdder ;if not, use current high byteldyn ++$24 ;otherwise load high byte for name table 1SaveHAdder: sty SCRATCHPAD+$03 ;save high byte hereandn ++$0f ;mask out high nybble of block buffer pointerasl ;multiply by 2 to get appropriate name table low bytesta SCRATCHPAD+$04 ;and then store it hereldan ++$00sta SCRATCHPAD+$05 ;initialize temp high bytelda SCRATCHPAD+$02 ;get vertical high nybble offset used in block buffer routineclcadcn ++$20 ;add 32 pixels for the status baraslroli SCRATCHPAD+$05 ;shift and rotate d7 onto d0 and d6 into carryaslroli SCRATCHPAD+$05 ;shift and rotate d6 onto d0 and d5 into carryadci SCRATCHPAD+$04 ;add low byte of name table and carry to vertical high nybblesta SCRATCHPAD+$04 ;and store herelda SCRATCHPAD+$05 ;get whatever was in d7 and d6 of vertical high nybbleadcn ++$00 ;add carryclcadci SCRATCHPAD+$03 ;then add high byte of name tablesta SCRATCHPAD+$05 ;store hereldy SCRATCHPAD+$01 ;get vram buffer offset to be usedRemBridge: ldax BlockGfxData,x ;write top left and top rightstay VRAM_Buffer1+2,y ;tile numbers into first spotldax BlockGfxData+1,xstay VRAM_Buffer1+3,yldax BlockGfxData+2,x ;write bottom left and bottomstay VRAM_Buffer1+7,y ;right tiles numbers intoldax BlockGfxData+3,x ;second spotstay VRAM_Buffer1+8,ylda SCRATCHPAD+$04stay VRAM_Buffer1,y ;write low byte of name tableclc ;into first slot as readadcn ++$20 ;add 32 bytes to valuestay VRAM_Buffer1+5,y ;write low byte of name tablelda SCRATCHPAD+$05 ;plus 32 bytes into second slotstay VRAM_Buffer1-1,y ;write high byte of namestay VRAM_Buffer1+4,y ;table address to both slotsldan ++$02stay VRAM_Buffer1+1,y ;put length of 2 instay VRAM_Buffer1+6,y ;both slotsldan ++$00stay VRAM_Buffer1+9,y ;put null terminator at endldx SCRATCHPAD+$00 ;get offset control bit hererts ;and leave;-------------------------------------------------------------------------------------;METATILE GRAPHICS TABLEMetatileGraphics_Low:.db LOW Palette0_MTiles, LOW Palette1_MTiles, LOW Palette2_MTiles, LOW Palette3_MTilesMetatileGraphics_High:.db HIGH Palette0_MTiles, HIGH Palette1_MTiles, HIGH Palette2_MTiles, HIGH Palette3_MTilesif Z80ATTRxa0=0xecxa1=0xedxa2=0xeexa3=0xefx27=0xf0xba=0xf1xbb=0xf2x86=0xf3x87=0xf4x8a=0xf5x8b=0xf6x8e=0xf7x8f=0xf8y25=0xf9y26=0xfay35=0xfby36=0xfcy37=0xfdy38=0xfew26=10+('X'-'A');(water pipe bottom):x91=10+('J'-'A');0x91x92=10+('F'-'A');0x92;шыш фы уюЁшчюэЄры№э√ї ЄЁєс ёЎхяшЄ№ фтр Єрщыр яю тхЁЄшърыш ш ■чрЄ№ ъръ юфшэ?elsexa0=0xa0xa1=0xa1xa2=0xa2xa3=0xa3x27=0x27xba=0xbaxbb=0xbbx86=0x86x87=0x87x8a=0x8ax8b=0x8bx8e=0x8ex8f=0x8fy25=0x25y26=0x26y35=0x35y36=0x36y37=0x37y38=0x38w26=0x26x91=0x91x92=0x92endifPalette0_MTiles:.db $24, $24, $24, $24 ;blank.db $27, $27, $27, $27 ;black metatile.db $24, $24, $24, $35 ;bush left.db $36, $25, $37, $25 ;bush middle.db $24, $38, $24, $24 ;bush right.db $24, $30, $30, w26 ;mountain left.db w26, w26, $34, w26 ;mountain left bottom/middle center.db $24, $31, $24, $32 ;mountain middle top.db $33, w26, $24, $33 ;mountain right.db $34, w26, w26, w26 ;mountain right bottom.db w26, w26, w26, w26 ;mountain middle bottom.db $24, $c0, $24, $c0 ;bridge guardrail.db $24, $7f, $7f, $24 ;chain.db $b8, $ba, $b9, $bb ;tall tree top, top half.db $b8, $bc, $b9, $bd ;short tree top.db $ba, $bc, $bb, $bd ;tall tree top, bottom half.db $60, $64, $61, $65 ;warp pipe end left, points up.db $62, $66, $63, $67 ;warp pipe end right, points up.db $60, $64, $61, $65 ;decoration pipe end left, points up.db $62, $66, $63, $67 ;decoration pipe end right, points up.db $68, $68, $69, $69 ;pipe shaft left.db w26, w26, $6a, $6a ;pipe shaft right.db $4b, $4c, $4d, $4e ;tree ledge left edge.db $4d, $4f, $4d, $4f ;tree ledge middle.db $4d, $4e, $50, $51 ;tree ledge right edge.db $6b, $70, $2c, $2d ;mushroom left edge.db $6c, $71, $6d, $72 ;mushroom middle.db $6e, $73, $6f, $74 ;mushroom right edge.db $86, $8a, $87, $8b ;sideways pipe end top ;$1c?.db $88, $8c, $88, $8c ;sideways pipe shaft top.db $89, $8d, $69, $69 ;sideways pipe joint top.db $8e, $91, $8f, $92 ;sideways pipe end bottom.db w26, $93, w26, $93 ;sideways pipe shaft bottom.db $90, $94, $69, $69 ;sideways pipe joint bottom.db $a4, $e9, $ea, $eb ;seaplant ;яюўхьє т 0-щ ярышЄЁх???.db $24, $24, $24, $24 ;blank, used on bricks or blocks that are hit.db $24, $2f, $24, $3d ;flagpole ball.db $a2, $a2, $a3, $a3 ;flagpole shaft.db $24, $24, $24, $24 ;blank, used in conjunction with vinesPalette1_MTiles:.db xa2, xa2, xa3, xa3 ;vertical rope.db $99, $24, $99, $24 ;horizontal rope.db $24, xa2, $3e, $3f ;left pulley.db $5b, $5c, $24, xa3 ;right pulley.db $24, $24, $24, $24 ;blank used for balance rope.db $9d, $47, $9e, $47 ;castle top.db $47, $47, x27, x27 ;castle window left.db $47, $47, $47, $47 ;castle brick wall.db x27, x27, $47, $47 ;castle window right.db $a9, $47, $aa, $47 ;castle top w/ brick.db $9b, x27, $9c, x27 ;entrance top.db x27, x27, x27, x27 ;entrance bottom.db $52, $52, $52, $52 ;green ledge stump.db $80, xa0, $81, xa1 ;fence.db $be, $be, $bf, $bf ;tree trunk.db $75, xba, $76, xbb ;mushroom stump top.db xba, xba, xbb, xbb ;mushroom stump bottom.db $45, $47, $45, $47 ;breakable brick w/ line.db $47, $47, $47, $47 ;breakable brick.db $45, $47, $45, $47 ;breakable brick (not used).db $b4, $b6, $b5, $b7 ;cracked rock terrain.db $45, $47, $45, $47 ;brick with line (power-up).db $45, $47, $45, $47 ;brick with line (vine).db $45, $47, $45, $47 ;brick with line (star).db $45, $47, $45, $47 ;brick with line (coins).db $45, $47, $45, $47 ;brick with line (1-up).db $47, $47, $47, $47 ;brick (power-up).db $47, $47, $47, $47 ;brick (vine).db $47, $47, $47, $47 ;brick (star).db $47, $47, $47, $47 ;brick (coins).db $47, $47, $47, $47 ;brick (1-up).db $24, $24, $24, $24 ;hidden block (1 coin).db $24, $24, $24, $24 ;hidden block (1-up).db $ab, $ac, $ad, $ae ;solid block (3-d block).db $5d, $5e, $5d, $5e ;solid block (white wall).db $c1, $24, $c1, $24 ;bridge.db $c6, $c8, $c7, $c9 ;bullet bill cannon barrel.db $ca, $cc, $cb, $cd ;bullet bill cannon top.db $2a, $2a, $40, $40 ;bullet bill cannon bottom.db $24, $24, $24, $24 ;blank used for jumpspring.db $24, $47, $24, $47 ;half brick used for jumpspring.db $82, $83, $84, $85 ;solid block (water level, green rock).db $24, $47, $24, $47 ;half brick (???).db x86, x8a, x87, x8b ;water pipe top.db x8e, x91, x8f, x92 ;water pipe bottom.db $24, $2f, $24, $3d ;flag ball (residual object) ;эх яхЁхъЁр°штрхь???Palette2_MTiles:.db $24, $24, $24, y35 ;cloud left.db y36, y25, y37, y25 ;cloud middle.db $24, y38, $24, $24 ;cloud right.db $24, $24, $39, $24 ;cloud bottom left.db $3a, $24, $3b, $24 ;cloud bottom middle.db $3c, $24, $24, $24 ;cloud bottom right.db $41, y26, $41, y26 ;water/lava top.db y26, y26, y26, y26 ;water/lava.db $b0, $b1, $b2, $b3 ;cloud level terrain.db $77, $79, $77, $79 ;bowser's bridgePalette3_MTiles:.db $53, $55, $54, $56 ;question block (coin).db $53, $55, $54, $56 ;question block (power-up).db $a5, $a7, $a6, $a8 ;coin.db $c2, $c4, $c3, $c5 ;underwater coin ;яюўхьє т 3-хщ ярышЄЁх???.db $57, $59, $58, $5a ;empty block.db $7b, $7d, $7c, $7e ;axe;-------------------------------------------------------------------------------------;VRAM BUFFER DATA FOR LOCATIONS IN PRG-ROMWaterPaletteData:.db $3f, $00, $20.db $0f, $15, $12, $25.db $0f, $3a, $1a, $0f.db $0f, $30, $12, $0f.db $0f, $27, $12, $0f.db $22, $16, $27, $18.db $0f, $10, $30, $27.db $0f, $16, $30, $27.db $0f, $0f, $30, $10.db $00GroundPaletteData:.db $3f, $00, $20.db $0f, $29, $1a, $0f.db $0f, $36, $17, $0f.db $0f, $30, $21, $0f.db $0f, $27, $17, $0f.db $0f, $16, $27, $18.db $0f, $1a, $30, $27.db $0f, $16, $30, $27.db $0f, $0f, $36, $17.db $00UndergroundPaletteData:.db $3f, $00, $20.db $0f, $29, $1a, $09.db $0f, $3c, $1c, $0f.db $0f, $30, $21, $1c.db $0f, $27, $17, $1c.db $0f, $16, $27, $18.db $0f, $1c, $36, $17.db $0f, $16, $30, $27.db $0f, $0c, $3c, $1c.db $00CastlePaletteData:.db $3f, $00, $20.db $0f, $30, $10, $00.db $0f, $30, $10, $00.db $0f, $30, $16, $00.db $0f, $27, $17, $00.db $0f, $16, $27, $18.db $0f, $1c, $36, $17.db $0f, $16, $30, $27.db $0f, $00, $30, $10.db $00DaySnowPaletteData:.db $3f, $00, $04.db $22, $30, $00, $10.db $00NightSnowPaletteData:.db $3f, $00, $04.db $0f, $30, $00, $10.db $00MushroomPaletteData:.db $3f, $00, $04.db $22, $27, $16, $0f.db $00BowserPaletteData:.db $3f, $14, $04.db $0f, $1a, $30, $27.db $00MarioThanksMessage:;"THANK YOU MARIO!".db $25, $48, $10.db $1d, $11, $0a, $17, $14, $24.db $22, $18, $1e, $24.db $16, $0a, $1b, $12, $18, $2b.db $00LuigiThanksMessage:;"THANK YOU LUIGI!".db $25, $48, $10.db $1d, $11, $0a, $17, $14, $24.db $22, $18, $1e, $24.db $15, $1e, $12, $10, $12, $2b.db $00MushroomRetainerSaved:;"BUT OUR PRINCESS IS IN".db $25, $c5, $16.db $0b, $1e, $1d, $24, $18, $1e, $1b, $24.db $19, $1b, $12, $17, $0c, $0e, $1c, $1c, $24.db $12, $1c, $24, $12, $17;"ANOTHER CASTLE!".db $26, $05, $0f.db $0a, $17, $18, $1d, $11, $0e, $1b, $24.db $0c, $0a, $1c, $1d, $15, $0e, $2b, $00PrincessSaved1:;"YOUR QUEST IS OVER.".db $25, $a7, $13.db $22, $18, $1e, $1b, $24.db $1a, $1e, $0e, $1c, $1d, $24.db $12, $1c, $24, $18, $1f, $0e, $1b, $af.db $00PrincessSaved2:;"WE PRESENT YOU A NEW QUEST.".db $25, $e3, $1b.db $20, $0e, $24.db $19, $1b, $0e, $1c, $0e, $17, $1d, $24.db $22, $18, $1e, $24, $0a, $24, $17, $0e, $20, $24.db $1a, $1e, $0e, $1c, $1d, $af.db $00WorldSelectMessage1:;"PUSH BUTTON B".db $26, $4a, $0d.db $19, $1e, $1c, $11, $24.db $0b, $1e, $1d, $1d, $18, $17, $24, $0b.db $00WorldSelectMessage2:;"TO SELECT A WORLD".db $26, $88, $11.db $1d, $18, $24, $1c, $0e, $15, $0e, $0c, $1d, $24.db $0a, $24, $20, $18, $1b, $15, $0d.db $00;-------------------------------------------------------------------------------------;$04 - address low to jump address;$05 - address high to jump address;$06 - jump address low;$07 - jump address high;a=function number;addresses of functions follow the jsrJumpEngine:if Z80add a,apop hl ;pull saved return address from stackadd a,lld l,aadc a,hsub lld h,ald a,(hl)inc hlld h,(hl)ld l,aor a ;CY=0 ;??? ;эх яюьюурхЄ т 1-2jp (hl)elseasl ;shift bit from contents of Ataypla ;pull saved return address from stacksta SCRATCHPAD+$04 ;save to indirectplasta SCRATCHPAD+$05 ;($04..05) = return addr???iny ;y = A*2 + 1???ldayindirect (SCRATCHPAD+$04),y ;load pointer from indirectsta SCRATCHPAD+$06 ;note that if an RTS is performed in next routineiny ;y = A*2 + 2??? ;it will return to the execution before the subldayindirect (SCRATCHPAD+$04),y ;that called this routinesta SCRATCHPAD+$07jmpindirect (SCRATCHPAD+$06) ;jump to the address we loadedendif;-------------------------------------------------------------------------------------InitializeNameTables:if Z80==0lda PPU_STATUS ;reset flip-floplda Mirror_PPU_CTRL_REG1 ;load mirror of ppu reg $2000oran ++%00010000 ;set sprites for first 4k and background for second 4kandn ++%11110000 ;clear rest of lower nybble, leave higher alonejsr WritePPUReg1endifldan ++$24 ;set vram address to start of name table 1jsr WriteNTAddrldan ++$20 ;and then set it to name table 0WriteNTAddr:if Z80ld hx,ald lx,0elsesta PPU_ADDRESSldan ++$00sta PPU_ADDRESSendifldxn ++$04 ;clear name table with blank tile #24ldyn ++$c0ldan ++$24InitNTLoop:if Z80ld (ix),ainc ixelsesta PPU_DATA ;count out exactly 768 tilesendifdeybne InitNTLoopdexbne InitNTLoopldyn ++64 ;now to clear the attribute table (with zero this time)txasta VRAM_Buffer1_Offset ;init vram buffer 1 offsetsta VRAM_Buffer1 ;init vram buffer 1InitATLoop:if Z80ld (ix),ainc ixelsesta PPU_DATAendifdeybne InitATLoopsta HorizontalScroll ;reset scroll variablessta VerticalScrolljmp InitScroll ;initialize scroll registers to zero;-------------------------------------------------------------------------------------;$00 - temp joypad bit;bit - button (ZX key);7 - A (A);6 - B (S);5 - Select (Space);4 - Start (Enter);3 - Up (7);2 - Down (6);1 - Left (5);0 - Right (8)ReadJoypads:ldan ++$01 ;reset and clear strobe of joypad portssta JOYPAD_PORTlsrtax ;start with joypad 1's portsta JOYPAD_PORTjsr ReadPortBitsinx ;increment for joypad 2's portReadPortBits:if Z80push bcif OSCALLSOS_GETKEYMATRIX ;out: bcdehlix = яюыєЁ ф√ cs...spaceelseld bc,0x7ffein a,(c)ld lx,a ;lx=%???bnmS_ld b,0xbfin a,(c)ld hx,a ;hx=%???hjklEld b,0xdfin l,(c) ;l=%???yuiopld b,0xefin h,(c) ;h=%???67890ld b,0xf7in e,(c) ;e=%???54321ld b,0xfbin d,(c) ;d=%???trewqld a,0xfdin a,(0xfe);c=%???gfdsald b,c;0xfein b,(c) ;b=%???vcxzCld c,aendifld a,lxor brrajp nc,quitif DEMObit 3,b ;'c'call z,democontinuebit 2,c ;'d'call z,demooffendifrr c ;'a'rla ;Arr c ;'s'rla ;Bld c,lxrr c ;'Space'rla ;Selectld c,hxrr c ;'Enter'rla ;Startadd a,abit 3,h ;7jr z,$+3inc a ;Upadd a,abit 4,h ;6jr z,$+3inc a ;Downadd a,abit 4,e ;5jr z,$+3inc a ;Leftadd a,abit 2,h ;8jr z,$+3inc a ;Rightcplif DEMOpop de ;x = joypad numberpush dedec e ;(фы joy1/2)push bccall nz,readdemo ;юэю цх writedemo (фы joy2)pop bcpush afbit 4,b ;'v'call z,savedemopop afendifld d,0pop bc ;ld bc,0 ;x = joypad numberelseldyn ++$08PortLoop: pha ;push previous bit onto stackldax JOYPAD_PORT,x ;read current bit on joypad portsta SCRATCHPAD+$00 ;check d1 and d0 of port outputlsr ;this is necessary on the oldorai SCRATCHPAD+$00 ;famicom systems in japanlsr;pla ;read bits from stack;rol ;rotate bit from carry flagplaroldeybne PortLoop ;count down bits leftendifstax SavedJoypadBits,x ;save controller status here alwaysphaandn ++%00110000 ;check for select or startandx JoypadBitMask,x ;if neither saved state nor current statebeq Save8Bits ;have any of these two set, branchplaandn ++%11001111 ;otherwise store without selectstax SavedJoypadBits,x ;or start bits and leavertsSave8Bits: plastax JoypadBitMask,x ;save with all bits in another place and leave ;шёяюы№чєхЄё Єюы№ъю т ¤Єющ яЁюЎхфєЁхrts;-------------------------------------------------------------------------------------;$00 - vram buffer address table low;$01 - vram buffer address table high;т сєЇхЁх:;addrH, addrL, [SRLLLLLL (S=inc32, R=repeat, L=length),] S0BBBBBB?if Z80UpdateScreen:ld hl,(SCRATCHPAD+$00)UpdateScreen0:ld a,(hl)or aret z;cp 0x40;jr nc,$ ;ъюёЄ√ы№ - яюўхьє т яюЄюъх чэрўхэш $42???ld d,ainc hlld e,(hl) ;load next byte (second)inc hlld a,(hl) ;load next byte (third)ex de,hladd a,ald c,32jr c,$+4ld c,1 ;if d7 of third byte was clear, ppu will only increment by 1add a,ajr nc,GetLength ;if d6 of third byte was clear, do not repeat bytesrl arrald lx,ainc deld a,(de)RepeatByte0:ld (hl),aadd hl,bcdec lxjp nz,RepeatByte0jp OutputToVRAM_qGetLength:;CY=0rra ;shift back to the right to get proper lengthrra ;note that d1 will now be in carryld lx,aOutputToVRAM0:inc deld a,(de)ld (hl),aadd hl,bcdec lxjp nz,OutputToVRAM0OutputToVRAM_qex de,hlld d,b;0inc hljp UpdateScreen0elseWriteBufferToScreen:;a=addrH;y=0sta PPU_ADDRESS ;store high byte of vram addressinyldayindirect (SCRATCHPAD+$00),y ;load next byte (second)sta PPU_ADDRESS ;store low byte of vram addressinyldayindirect (SCRATCHPAD+$00),y ;load next byte (third)asl ;shift to left and save in stackphalda Mirror_PPU_CTRL_REG1 ;load mirror of $2000,oran ++%00000100 ;set ppu to increment by 32 by defaultbcs SetupWrites ;if d7 of third byte was clear, ppu willandn ++%11111011 ;only increment by 1SetupWrites: jsr WritePPUReg1 ;write to registerpla ;pull from stack and shift to left againaslbcc GetLength ;if d6 of third byte was clear, do not repeat byteoran ++%00000010 ;otherwise set d1 and increment YinyGetLength: lsr ;shift back to the right to get proper lengthlsr ;note that d1 will now be in carrytaxOutputToVRAM: bcs RepeatByte ;if carry set, repeat loading the same byteiny ;otherwise increment Y to load next byteRepeatByte: ldayindirect (SCRATCHPAD+$00),y ;load more data from buffer and write to vramsta PPU_DATAdex ;done writing?bne OutputToVRAMsectya ;a=end shiftadci SCRATCHPAD+$00 ;add end length plus one to the indirect at $00sta SCRATCHPAD+$00 ;to allow this routine to read another set of updatesldan ++$00adci SCRATCHPAD+$01sta SCRATCHPAD+$01ldan ++$3f ;sets vram address to $3f00 (ярышЄЁр Їюэр 16 срщЄ, ярышЄЁр ёяЁрщЄют 16 срщЄ) ;чрўхь???sta PPU_ADDRESSldan ++$00sta PPU_ADDRESSsta PPU_ADDRESS ;then reinitializes it for some reason ;чрўхь ЄхяхЁ№ т 0???sta PPU_ADDRESSUpdateScreen:ldx PPU_STATUS ;reset flip-flopldyn ++$00 ;load first byte from indirect as a pointerldayindirect (SCRATCHPAD+$00),ycheckabne WriteBufferToScreen ;if byte is zero we have no further updates to make hereendifInitScroll: sta PPU_SCROLL_REG_H ;store contents of A into scroll registerssta PPU_SCROLL_REG_V ;and end whatever subroutine led us hererts;-------------------------------------------------------------------------------------if Z80==0WritePPUReg1:sta PPU_CTRL_REG1 ;write contents of A to PPU register 1sta Mirror_PPU_CTRL_REG1 ;and its mirrorrtsendif;-------------------------------------------------------------------------------------;$00 - used to store status bar nybbles;$02 - used as temp vram offset;$03 - used to store length of status bar number;status bar name table offset and length dataStatusBarData:.db $f0, $06 ; top score display on title screen.db $62, $06 ; player score.db $62, $06.db $6d, $02 ; coin tally.db $6d, $02.db $7a, $03 ; game timerStatusBarOffset:.db $06, $0c, $12, $18, $1e, $24PrintStatusBarNumbers:sta SCRATCHPAD+$00 ;store player-specific offsetjsr OutputNumbers ;use first nybble to print the coin displaylda SCRATCHPAD+$00 ;move high nybble to lowlsr ;and print to score displaylsrlsrlsrOutputNumbers:clc ;add 1 to low nybbleadcn ++$01andn ++%00001111 ;mask out high nybblecmpn ++$06cmpcybcs ExitOutputNpha ;save incremented value to stack for now andasl ;shift to left and use as offsettayldx VRAM_Buffer1_Offset ;get current buffer pointerldan ++$20 ;put at top of screen by defaultcpyn ++$00 ;are we writing top score on title screen?bne SetupNumsldan ++$22 ;if so, put further down on the screenSetupNums: stax VRAM_Buffer1,xlday StatusBarData,y ;write low vram address and length of thingstax VRAM_Buffer1+1,x ;we're printing to the bufferlday StatusBarData+1,ystax VRAM_Buffer1+2,xsta SCRATCHPAD+$03 ;save length byte in counterstx SCRATCHPAD+$02 ;and buffer pointer elsewhere for nowpla ;pull original incremented value from stacktaxldax StatusBarOffset,x ;load offset to value we want to writesecsubsbcy StatusBarData+1,y ;subtract from length byte we read beforetay ;use value as offset to display digitsldx SCRATCHPAD+$02DigitPLoop: lday DisplayDigits,y ;write digits to the bufferstax VRAM_Buffer1+3,xinxinydeci SCRATCHPAD+$03 ;do this until all the digits are writtenbne DigitPLoopldan ++$00 ;put null terminator at endstax VRAM_Buffer1+3,xinx ;increment buffer pointer by 3inxinxstx VRAM_Buffer1_Offset ;store it in case we want to use it againExitOutputN: rts;-------------------------------------------------------------------------------------;y=ёьх∙хэшх рфЁхёрDigitsMathRoutine:lda OperMode ;check mode of operationcmpn ++TitleScreenModeValuebeq EraseDMods ;if in title screen mode, branch to lock scoreldxn ++$05AddModLoop: ldax DigitModifier,x ;load digit amount to incrementclcadcy DisplayDigits,y ;add to current digitbmi BorrowOne ;if result is a negative number, branch to subtractcmpn ++10cmpcybcs CarryOne ;if digit greater than $09, branch to addStoreNewD: stay DisplayDigits,y ;store as new score or game timer digitdey ;move onto next digits in score or game timerdex ;and digit amounts to incrementbpl AddModLoop ;loop back if we're not done yetEraseDMods: ldan ++$00 ;store zero hereldxn ++$06 ;start with the last digitEraseMLoop: stax DigitModifier-1,x ;initialize the digit amounts to incrementdexbpl EraseMLoop ;do this until they're all reset, then leavertsBorrowOne: decx DigitModifier-1,x ;decrement the previous digit, then put $09 inldan ++$09 ;the game timer digit we're currently on to "borrowcheckabne StoreNewD ;the one", then do an unconditional branch backCarryOne: secsub ;яхЁхэюё т т√ўшЄрэшш шэтхЁёэ√щ??? ;subtract ten from our digit to make it asbcn ++10 ;proper BCD number, then increment the digitincx DigitModifier-1,x ;preceding current digit to "carry the one" properlyjmp StoreNewD ;go back to just after we branched here;-------------------------------------------------------------------------------------UpdateTopScore:ldxn ++$05 ;start with mario's scorejsr TopScoreCheckldxn ++$0b ;now do luigi's scoreTopScoreCheck:ldyn ++$05 ;start with the lowest digitsecsub ;яхЁхэюё т т√ўшЄрэшш шэтхЁёэ√щ???GetScoreDiff: ldax PlayerScoreDisplay,x ;subtract each player digit from each high score digitif Z80secsubendifsbcy TopScoreDisplay,y ;from lowest to highest, if any top score digit exceedsdex ;any player digit, borrow will be set until a subsequentdey ;subtraction clears it (player digit is higher than top)bpl GetScoreDiffcmpcybcc NoTopSc ;check to see if borrow is still set, if so, no new high scoreinx ;increment X and Y once to the start of the scoreinyCopyScore: ldax PlayerScoreDisplay,x ;store player's score digits into high score memory areastay TopScoreDisplay,yinxinycpyn ++$06 ;do this until we have stored them allcmpcybcc CopyScoreNoTopSc: rts;-------------------------------------------------------------------------------------DefaultSprOffsets:.db $04, $30, $48, $60, $78, $90, $a8, $c0.db $d8, $e8, $24, $f8, $fc, $28, $2cSprite0Data:.db $18, $ff, $23, $58;-------------------------------------------------------------------------------------InitializeGame:ldyn16 ++GAMEDATA_end-AREADATA;++$6f ;clear all memory as in initialization procedure,jsr InitializeMemory ;but this time, clear only as far as $076fldyn ++$1fClrSndLoop: stay SoundMemory,y ;clear out memory useddey ;by the sound enginesbpl ClrSndLoopldan ++$18 ;set demo timersta DemoTimerjsr LoadAreaPointerInitializeArea:ldyn16 ++AREADATA_end-AREADATA;++$4b ;clear all memory again, only as far as $074bjsr InitializeMemory ;this is only necessary if branching fromldxn ++$21ldan ++$00ClrTimersLoop: stax Timers,x ;clear out memory betweendex ;$0780 and $07a1bpl ClrTimersLooplda HalfwayPageldy AltEntranceControl ;if AltEntranceControl not set, use halfway page, if any foundcheckybeq StartPagelda EntrancePage ;otherwise use saved entry page number hereStartPage: sta ScreenLeft_PageLoc ;set as value heresta CurrentPageLoc ;also set as current pagesta BackloadingFlag ;set flag here if halfway page or saved entry page number foundjsr GetScreenPosition ;get pixel coordinates for screen bordersldyn ++$20 ;if on odd numbered page, use $2480 as start of renderingandn ++%00000001 ;otherwise use $2080, this address used later as name tablebeq SetInitNTHigh ;address for rendering of game arealdyn ++$24SetInitNTHigh: sty CurrentNTAddr_High ;store name table addressldyn ++$80sty CurrentNTAddr_Lowasl ;store LSB of page number in high nybbleasl ;of block buffer column positionaslaslsta BlockBufferColumnPosdeci AreaObjectLength ;set area object lengths for all emptydeci AreaObjectLength+1deci AreaObjectLength+2ldan ++$0b ;set value for renderer to update 12 column setssta ColumnSets ;12 column sets = 24 metatile columns = 1 1/2 screensjsr GetAreaDataAddrs ;get enemy and level addresses and load headerlda PrimaryHardMode ;check to see if primary hard mode has been activatedcheckabne SetSecHard ;if so, activate the secondary no matter where we're atlda WorldNumber ;otherwise check world numbercmpn ++World5 ;if less than 5, do not activate secondarycmpcybcc CheckHalfwaybne SetSecHard ;if not equal to, then world HIGH 5, thus activatelda LevelNumber ;otherwise, world 5, so check level numbercmpn ++Level3 ;if 1 or 2, do not set secondary hard mode flagcmpcybcc CheckHalfwaySetSecHard: inci SecondaryHardMode ;set secondary hard mode flag for areas 5-3 and beyondCheckHalfway: lda HalfwayPagecheckabeq DoneInitArealdan ++$02 ;if halfway page set, overwrite start position from headersta PlayerEntranceCtrlDoneInitArea: ldan ++Silence ;silence musicsta AreaMusicQueueldan ++$01 ;disable screen outputsta DisableScreenFlaginci OperMode_Task ;increment one of the modesrts;-------------------------------------------------------------------------------------PrimaryGameSetup:ldan ++$01sta FetchNewGameTimerFlag ;set flag to load game timer from headersta PlayerSize ;set player's size to smallldan ++$02sta NumberofLives ;give each player three livessta OffScr_NumberofLivesSecondaryGameSetup:ldan ++$00sta DisableScreenFlag ;enable screen outputtayClearVRLoop: stay VRAM_Buffer1-1,y ;clear buffer at $0300-$03ffinybne ClearVRLoopsta GameTimerExpiredFlag ;clear game timer exp flagsta DisableIntermediate ;clear skip lives display flagsta BackloadingFlag ;clear value hereldan ++$ffsta BalPlatformAlignment ;initialize balance platform assignment flaglda ScreenLeft_PageLoc ;get left side page locationlsri Mirror_PPU_CTRL_REG1 ;shift LSB of ppu register #1 mirror outif Z80==0andn ++$01 ;mask out all but LSB of page locationendifror ;rotate LSB of page location into carry then onto mirrorroli Mirror_PPU_CTRL_REG1 ;this is to set the proper PPU name tablejsr GetAreaMusic ;load proper music into queueldan ++$38 ;load sprite shuffle amounts to be used latersta SprShuffleAmt+2ldan ++$48sta SprShuffleAmt+1ldan ++$58sta SprShuffleAmtldxn ++$0e ;load default OAM offsets into $06e4-$06f2ShufAmtLoop: ldax DefaultSprOffsets,xstax SprDataOffset,xdex ;do this until they're all setbpl ShufAmtLoopldyn ++$03 ;set up sprite #0ISpr0Loop: lday Sprite0Data,ystay Sprite_Data,ydeybpl ISpr0Loopjsr DoNothing2 ;these jsrs doesn't do anything usefuljsr DoNothing1inci Sprite0HitDetectFlag ;set sprite #0 check flag ;ЄхяхЁ№ сєфхЄ ЁрсюЄрЄ№ ёяышЄёъЁшэ ёю ёъЁюыыюьinci OperMode_Task ;increment to next taskrts;-------------------------------------------------------------------------------------;$06 - RAM address low;$07 - RAM address high;y = endaddr;out: a=0InitializeMemory:if Z80push deld hl,AREADATAld de,AREADATA+1pop bcdec bcxor ald (hl),aldirld d,b;0elseldxn ++$07 ;set initial high byte to $0700-$07ffldan ++$00 ;set initial low byte to start of page (at $00 of page)sta SCRATCHPAD+$06InitPageLoop: stx SCRATCHPAD+$07InitByteLoop: cpxn ++$01 ;check to see if we're on the stack ($0100-$01ff)bne InitByte ;if not, go ahead anywaycpyn ++$60 ;otherwise, check to see if we're at $0160-$01ffcmpcybcs SkipByte ;if so, skip writeInitByte: stayindirect (SCRATCHPAD+$06),y ;otherwise, initialize byte with current low byte in YSkipByte: deycpyn ++$ff ;do this until all bytes in page have been erasedbne InitByteLoopdex ;go onto the next pagebpl InitPageLoop ;do this until all pages of memory have been erasedendifrts;-------------------------------------------------------------------------------------MusicSelectData:.db WaterMusic, GroundMusic, UndergroundMusic, CastleMusic.db CloudMusic, PipeIntroMusicGetAreaMusic:lda OperMode ;if in title screen mode, leavecheckabeq ExitGetMlda AltEntranceControl ;check for specific alternate mode of entrycmpn ++$02 ;if found, branch without checking starting positionbeq ChkAreaType ;from area object data headerldyn ++$05 ;select music for pipe intro scene by defaultlda PlayerEntranceCtrl ;check value from level header for certain valuescmpn ++$06beq StoreMusic ;load music for pipe intro scene if headercmpn ++$07 ;start position either value $06 or $07beq StoreMusicChkAreaType: ldy AreaType ;load area type as offset for music bitlda CloudTypeOverridecheckabeq StoreMusic ;check for cloud type overrideldyn ++$04 ;select music for cloud type level if foundStoreMusic: lday MusicSelectData,y ;otherwise select appropriate music for level typesta AreaMusicQueue ;store in queue and leaveExitGetM: rts;-------------------------------------------------------------------------------------PlayerStarting_X_Pos:.db $28, $18.db $38, $28AltYPosOffset:.db $08, $00PlayerStarting_Y_Pos:.db $00, $20, $b0, $50, $00, $00, $b0, $b0.db $f0PlayerBGPriorityData:.db $00, $20, $00, $00, $00, $00, $00, $00GameTimerData:.db $20 ;dummy byte, used as part of bg priority data.db $04, $03, $02Entrance_GameTimerSetup:lda ScreenLeft_PageLoc ;set current page for area objectssta Player_PageLoc ;as page location for playerldan ++$28 ;store value heresta VerticalForceDown ;for fractional movement downwards if necessaryldan ++$01 ;set high byte of player position andsta PlayerFacingDir ;set facing direction so that player faces rightsta Player_Y_HighPosldan ++$00 ;set player state to on the ground by defaultsta Player_Statedeci Player_CollisionBits ;initialize player's collision bitsldyn ++$00 ;initialize halfway pagesty HalfwayPagelda AreaType ;check area typecheckabne ChkStPos ;if water type, set swimming flag, otherwise do not setinyChkStPos: sty SwimmingFlagldx PlayerEntranceCtrl ;get starting position loaded from headerldy AltEntranceControl ;check alternate mode of entry flag for 0 or 1checkybeq SetStPoscpyn ++$01beq SetStPosldxy AltYPosOffset-2,y ;if not 0 or 1, override $0710 with new offset in XSetStPos: lday PlayerStarting_X_Pos,y ;load appropriate horizontal positionsta Player_X_Position ;and vertical positions for the player, usingldax PlayerStarting_Y_Pos,x ;AltEntranceControl as offset for horizontal and either $0710sta Player_Y_Position ;or value that overwrote $0710 as offset for verticalldax PlayerBGPriorityData,xsta Player_SprAttrib ;set player sprite attributes using offset in Xjsr GetPlayerColors ;get appropriate player paletteldy GameTimerSetting ;get timer control value from headercheckybeq ChkOverR ;if set to zero, branch (do not use dummy byte for this)lda FetchNewGameTimerFlag ;do we need to set the game timer? if not, usecheckabeq ChkOverR ;old game timer settinglday GameTimerData,y ;if game timer is set and game timer flag is also set,sta GameTimerDisplay ;use value of game timer control for first digit of game timerldan ++$01sta GameTimerDisplay+2 ;set last digit of game timer to 1lsrsta GameTimerDisplay+1 ;set second digit of game timersta FetchNewGameTimerFlag ;clear flag for game timer resetsta StarInvincibleTimer ;clear star mario timerChkOverR: ldy JoypadOverride ;if controller bits not set, branch to skip this partcheckybeq ChkSwimEldan ++$03 ;set player state to climbingsta Player_Stateldxn ++$00 ;set offset for first slot, for block objectjsr InitBlock_XY_Posldan ++$f0 ;set vertical coordinate for block objectsta Block_Y_Positionldxn ++$05 ;set offset in X for last enemy object buffer slotldyn ++$00 ;set offset in Y for object coordinates used earlierjsr Setup_Vine ;do a sub to grow vineChkSwimE: ldy AreaType ;if level not water-type,checkybne SetPESub ;skip this subroutinejsr SetupBubble ;otherwise, execute sub to set up air bubblesSetPESub: ldan ++$07 ;set to run player entrance subroutinesta GameEngineSubroutine ;on the next frame of game enginerts;-------------------------------------------------------------------------------------;page numbers are in order from -1 to -4HalfwayPageNybbles:.db $56, $40.db $65, $70.db $66, $40.db $66, $40.db $66, $40.db $66, $60.db $65, $70.db $00, $00PlayerLoseLife:inci DisableScreenFlag ;disable screen and sprite 0 checkldan ++$00sta Sprite0HitDetectFlagldan ++Silence ;silence musicsta EventMusicQueueif INFINITELIVESxor aelsedeci NumberofLives ;take one life from playerendifbpl StillInGame ;if player still has lives, branchldan ++$00sta OperMode_Task ;initialize mode task,ldan ++GameOverModeValue ;switch to game over modesta OperMode ;and leavertsStillInGame: lda WorldNumber ;multiply world number by 2 and useasl ;as offsettaxlda LevelNumber ;if in area -3 or -4, incrementandn ++$02 ;offset by one byte, otherwisebeq GetHalfway ;leave offset aloneinxGetHalfway: ldyx HalfwayPageNybbles,x ;get halfway page number with offsetlda LevelNumber ;check area number's LSBlsrtya ;if in area -2 or -4, use lower nybblebcs MaskHPNyblsr ;move higher nybble to lower if arealsr ;number is -1 or -3lsrlsrMaskHPNyb: andn ++%00001111 ;mask out all but lower nybblecmpi ScreenLeft_PageLoccmpcybeq SetHalfway ;left side of screen must be at the halfway page,bcc SetHalfway ;otherwise player must start at theldan ++$00 ;beginning of the levelSetHalfway: sta HalfwayPage ;store as halfway page for playerjsr TransposePlayers ;switch players around if 2-player gamejmp ContinueGame ;continue the game;-------------------------------------------------------------------------------------GameOverMode:lda OperMode_Taskjsr JumpEngine.dw SetupGameOver.dw ScreenRoutines.dw RunGameOver;-------------------------------------------------------------------------------------SetupGameOver:ldan ++$00 ;reset screen routine task control for title screen, game,sta ScreenRoutineTask ;and game over modessta Sprite0HitDetectFlag ;disable sprite 0 checkldan ++GameOverMusicsta EventMusicQueue ;put game over music in secondary queueinci DisableScreenFlag ;disable screen outputinci OperMode_Task ;set secondary mode to 1rts;-------------------------------------------------------------------------------------RunGameOver:ldan ++$00 ;reenable screensta DisableScreenFlaglda SavedJoypad1Bits ;check controller for start pressedandn ++Start_Buttonbne TerminateGamelda ScreenTimer ;if not pressed, wait forcheckabne GameIsOn ;screen timer to expireTerminateGame:ldan ++Silence ;silence musicsta EventMusicQueuejsr TransposePlayers ;check if other player can keepbcc ContinueGame ;going, and do so if possiblelda WorldNumber ;otherwise put world number of currentsta ContinueWorld ;player into secret continue function variableldan ++$00asl ;residual ASL instructionsta OperMode_Task ;reset all modes to title screen andsta ScreenTimer ;leavesta OperModertsContinueGame:jsr LoadAreaPointer ;update level pointer withldan ++$01 ;actual world and area numbers, thensta PlayerSize ;reset player's size, status, andinci FetchNewGameTimerFlag ;set game timer flag to reloadldan ++$00 ;game timer from headersta TimerControl ;also set flag for timers to count againsta PlayerStatussta GameEngineSubroutine ;reset task for game coresta OperMode_Task ;set modes and leaveldan ++$01 ;if in game over mode, switch back tosta OperMode ;game mode, because game is still onGameIsOn: rtsTransposePlayers:sec ;set carry flag by default to end gamelda NumberOfPlayers ;if only a 1 player game, leavecheckabeq ExTranslda OffScr_NumberofLives ;does offscreen player have any lives left?checkabmi ExTrans ;branch if notlda CurrentPlayer ;invert bit to updateeorn ++%00000001 ;which player is on the screensta CurrentPlayerldxn ++$06TransLoop: ldax OnscreenPlayerInfo,x ;transpose the informationpha ;of the onscreen playerldax OffscreenPlayerInfo,x ;with that of the offscreen playerstax OnscreenPlayerInfo,xplastax OffscreenPlayerInfo,xdexbpl TransLoopclc ;clear carry flag to get game goingExTrans: rts;-------------------------------------------------------------------------------------DoNothing1:ldan ++$ff ;this is residual code, this value issta UnusedVariable;$06c9 ;not used anywhere in the programDoNothing2:rts;-------------------------------------------------------------------------------------AreaParserTaskHandler:;retldy AreaParserTaskNum ;check number of tasks herecheckybne DoAPTasks ;if already set, go aheadldyn ++$08 ;яю эютюьє ъЁєуєsty AreaParserTaskNum ;otherwise, set eight by defaultDoAPTasks: deytyajsr AreaParserTasksdeci AreaParserTaskNum ;if all tasks not complete do notif Z80OPT4==0bne SkipATRender ;render attribute table yetjsr RenderAttributeTables ;т√ч√трхЄё яюёых RenderAreaGraphics #1 (Є.х. 4-ую)?SkipATRender:endifrtsAreaParserTasks:jsr JumpEngine;тёхуфр т√яюыэ ■Єё 7..0?.dw IncrementColumnPos ;0.dw RenderAreaGraphics ;1.dw RenderAreaGraphics ;2.dw AreaParserCore ;3.dw IncrementColumnPos ;4.dw RenderAreaGraphics ;5.dw RenderAreaGraphics ;6.dw AreaParserCore ;7;-------------------------------------------------------------------------------------IncrementColumnPos:inci CurrentColumnPos ;increment column where we're atlda CurrentColumnPosandn ++%00001111 ;mask out higher nybblebne NoColWrapsta CurrentColumnPos ;if no bits left set, wrap back to zero (0-f)inci CurrentPageLoc ;and increment page number where we're atNoColWrap: inci BlockBufferColumnPos ;increment column offset where we're atlda BlockBufferColumnPosandn ++%00011111 ;mask out all but 5 LSB (0-1f)sta BlockBufferColumnPos ;and saverts;-------------------------------------------------------------------------------------;$00 - used as counter, store for low nybble for background, ceiling byte for terrain;$01 - used to store floor byte for terrain;$07 - used to store terrain metatile;$06-$07 - used to store block buffer addressBSceneDataOffsets:.db $00, $30, $60BackSceneryData: ;metatiles???.db $93, $00, $00, $11, $12, $12, $13, $00 ;clouds (palette 2???).db $00, $51, $52, $53, $00, $00, $00, $00.db $00, $00, $01, $02, $02, $03, $00, $00.db $00, $00, $00, $00, $91, $92, $93, $00.db $00, $00, $00, $51, $52, $53, $41, $42.db $43, $00, $00, $00, $00, $00, $91, $92.db $97, $87, $88, $89, $99, $00, $00, $00 ;mountains and bushes.db $11, $12, $13, $a4, $a5, $a5, $a5, $a6.db $97, $98, $99, $01, $02, $03, $00, $a4.db $a5, $a6, $00, $11, $12, $12, $12, $13.db $00, $00, $00, $00, $01, $02, $02, $03.db $00, $a4, $a5, $a5, $a6, $00, $00, $00.db $11, $12, $12, $13, $00, $00, $00, $00 ;trees and fences.db $00, $00, $00, $9c, $00, $8b, $aa, $aa.db $aa, $aa, $11, $12, $13, $8b, $00, $9c.db $9c, $00, $00, $01, $02, $03, $11, $12.db $12, $13, $00, $00, $00, $00, $aa, $aa.db $9c, $aa, $00, $8b, $00, $01, $02, $03BackSceneryMetatiles:.db $80, $83, $00 ;cloud left.db $81, $84, $00 ;cloud middle.db $82, $85, $00 ;cloud right.db $02, $00, $00 ;bush left.db $03, $00, $00 ;bush middle.db $04, $00, $00 ;bush right.db $00, $05, $06 ;mountain left.db $07, $06, $0a ;mountain middle.db $00, $08, $09 ;mountain right.db $4d, $00, $00 ;fence.db $0d, $0f, $4e ;tall tree.db $0e, $4e, $4e ;short treeFSceneDataOffsets:.db $00, $0d, $1aForeSceneryData:.db $86, $87, $87, $87, $87, $87, $87 ;in water.db $87, $87, $87, $87, $69, $69.db $00, $00, $00, $00, $00, $45, $47 ;wall.db $47, $47, $47, $47, $00, $00.db $00, $00, $00, $00, $00, $00, $00 ;over water.db $00, $00, $00, $00, $86, $87TerrainMetatiles:.db $69, $54, $52, $62TerrainRenderBits:.db %00000000, %00000000 ;no ceiling or floor.db %00000000, %00011000 ;no ceiling, floor 2.db %00000001, %00011000 ;ceiling 1, floor 2.db %00000111, %00011000 ;ceiling 3, floor 2.db %00001111, %00011000 ;ceiling 4, floor 2.db %11111111, %00011000 ;ceiling 8, floor 2.db %00000001, %00011111 ;ceiling 1, floor 5.db %00000111, %00011111 ;ceiling 3, floor 5.db %00001111, %00011111 ;ceiling 4, floor 5.db %10000001, %00011111 ;ceiling 1, floor 6.db %00000001, %00000000 ;ceiling 1, no floor.db %10001111, %00011111 ;ceiling 4, floor 6.db %11110001, %00011111 ;ceiling 1, floor 9.db %11111001, %00011000 ;ceiling 1, middle 5, floor 2.db %11110001, %00011000 ;ceiling 1, middle 4, floor 2.db %11111111, %00011111 ;completely solid top to bottomAreaParserCore:lda BackloadingFlag ;check to see if we are starting right of startcheckabeq RenderSceneryTerrain ;if not, go ahead and render background, foreground and terrainjsr ProcessAreaData ;otherwise skip ahead and load level dataRenderSceneryTerrain:ldxn ++$0cldan ++$00ClrMTBuf: stax MetatileBuffer,x ;clear out metatile bufferdexbpl ClrMTBuf;jr $ldy BackgroundScenery ;do we need to render the background scenery?checkybeq RendFore ;if not, skip to check the foregroundlda CurrentPageLoc ;otherwise check for every third pageThirdP: cmpn ++$03bmi RendBack ;if less than three we're theresecsubsbcn ++$03 ;if 3 or more, subtract 3 andbpl ThirdP ;do an unconditional branchRendBack: asl ;move results to higher nybbleaslaslasladcy BSceneDataOffsets-1,y ;add to it offset loaded from hereadci CurrentColumnPos ;add to the result our current column positiontaxldax BackSceneryData,x ;load data from sum of offsetscheckabeq RendFore ;if zero, no scenery for that partphaandn ++$0f ;save to stack and clear high nybblesecsubsbcn ++$01 ;subtract one (because low nybble is $01-$0c)sta SCRATCHPAD+$00 ;save low nybbleasl ;multiply by three (shift to left and add result to old one)adci SCRATCHPAD+$00 ;note that since d7 was nulled, the carry flag is always cleartax ;save as offset for background scenery metatile datapla ;get high nybble from stack, move lowlsrlsrlsrlsrtay ;use as second offset (used to determine height)ldan ++$03 ;use previously saved memory location for countersta SCRATCHPAD+$00SceLoop1: ldax BackSceneryMetatiles,x ;load metatile data from offset of (lsb - 1) * 3stay MetatileBuffer,y ;store into buffer from offset of (msb / 16)inxinycpyn ++$0b ;if at this location, leave loopbeq RendForedeci SCRATCHPAD+$00 ;decrement until counter expires, barring exceptionbne SceLoop1RendFore: ldx ForegroundScenery ;check for foreground data needed or notcheckxbeq RendTerr ;if not, skip this partldyx FSceneDataOffsets-1,x ;load offset from location offset by header value, thenldxn ++$00 ;reinit XSceLoop2: lday ForeSceneryData,y ;load data until counter expirescheckabeq NoFore ;do not store if zero foundstax MetatileBuffer,xNoFore: inyinxcpxn ++$0d ;store up to end of metatile bufferbne SceLoop2RendTerr: ldy AreaType ;check world type for water levelcheckybne TerMTile ;if not water level, skip this partlda WorldNumber ;check world number, if not world number eightcmpn ++World8 ;then skip this partbne TerMTileldan ++$62 ;if set as water level and world number eight,jmp StoreMT ;use castle wall metatile as terrain typeTerMTile: lday TerrainMetatiles,y ;otherwise get appropriate metatile for area typeldy CloudTypeOverride ;check for cloud type overridecheckybeq StoreMT ;if not set, keep value otherwiseldan ++$88 ;use cloud block terrainStoreMT: sta SCRATCHPAD+$07 ;store value hereldxn ++$00 ;initialize X, use as metatile buffer offsetlda TerrainControl ;use yet another value from the headerasl ;multiply by 2 and use as yet another offsettayTerrLoop: lday TerrainRenderBits,y ;get one of the terrain rendering bit datasta SCRATCHPAD+$00iny ;increment Y and use as offset next time aroundsty SCRATCHPAD+$01lda CloudTypeOverride ;skip if value here is zerocheckabeq NoCloud2cpxn ++$00 ;otherwise, check if we're doing the ceiling bytebeq NoCloud2lda SCRATCHPAD+$00 ;if not, mask out all but d3andn ++%00001000sta SCRATCHPAD+$00NoCloud2: ldyn ++$00 ;start at beginning of bitmasksTerrBChk: lday Bitmasks,y ;load bitmask, then perform AND on contents of first bytebiti SCRATCHPAD+$00beq NextTBit ;if not set, skip this part (do not write terrain to buffer)lda SCRATCHPAD+$07stax MetatileBuffer,x ;load terrain type metatile number and store into buffer hereNextTBit: inx ;continue until end of buffercpxn ++$0dbeq RendBBuf ;if we're at the end, break out of this looplda AreaType ;check world type for underground areacmpn ++$02bne EndUChk ;if not underground, skip this partcpxn ++$0bbne EndUChk ;if we're at the bottom of the screen, overrideldan ++$54 ;old terrain type with ground level terrain typesta SCRATCHPAD+$07EndUChk: iny ;increment bitmasks offset in Ycpyn ++$08bne TerrBChk ;if not all bits checked, loop backldy SCRATCHPAD+$01checkybne TerrLoop ;unconditional branch, use Y to load next byteRendBBuf:jsr ProcessAreaData ;do the area data loading routine nowif Z80OPTld a,(BlockBufferColumnPos)ld hl,Block_Buffer_1bit 4,ajr z,$+5ld hl,Block_Buffer_2and 0x0fld c,aadd hl,bcld (SCRATCHPAD+$06),hlelselda BlockBufferColumnPosjsr GetBlockBufferAddr ;get block buffer address from where we're atendifldxn ++$00ldyn ++$00 ;init index regs and start at beginning of smaller bufferChkMTLow: sty SCRATCHPAD+$00ldax MetatileBuffer,x ;load stored metatile numberandn ++%11000000 ;mask out all but 2 MSBaslrol ;make %xx000000 into %000000xxroltay ;use as offset in Yldax MetatileBuffer,x ;reload original unmasked value herecmpy BlockBuffLowBounds,y ;check for certain values depending on bits setcmpcybcs StrBlock ;if equal or greater, branchldan ++$00 ;if less, init value before storingStrBlock: ldy SCRATCHPAD+$00 ;get offset for block bufferstayindirect (SCRATCHPAD+$06),y ;store value into block buffer ;$06$07 = Block_Buffer_1(2)+BlockBufferColumnPos;jr $tyaclc ;add 16 (move down one row) to offsetadcn ++$10tayinx ;increment column valuecpxn ++$0d ;13 ёЄЁюъ яю 16 сыюъютcmpcybcc ChkMTLow ;continue until we pass last row, then leaverts;numbers lower than these with the same attribute bits;will not be stored in the block bufferBlockBuffLowBounds:.db $10, $51, $88, $c0;-------------------------------------------------------------------------------------;$00 - used to store area object identifier;$07 - used as adder to find proper area object code;TODO єёъюЁшЄ№ProcessAreaData:if Z80OPT3ld c,++$02 ;start at the end of area object bufferProcADLoop:if Z80OPT3lyld ly,c;stx ObjectOffset ;шёяюы№чєхЄё т DecodeAreaDataelsestx ObjectOffset ;шёяюы№чєхЄё т DecodeAreaDataendifxor a ;reset flagld (BehindAreaParserFlag),ald hl,AreaDataOffsetld e,(hl) ;get offset of area data pointerld hl,AreaObjectLengthadd hl,bcbit 7,(hl) ;check area object buffer flagjp z,RdyDecode_AreaObjectLength_positive ;if buffer not negative, branch, otherwiseld ix,(AreaData)add ix,de ;TODO hl? хёыш єфюсэю сєфхЄ т DecodeAreaDatald a,(ix) ;get first byte of area objectcp ++$fd ;if end-of-area, skip all this crapjp z,RdyDecode_endofareabit 7,(ix+1) ;get second byte of area objectjr z,Chk1Row13 ;check for page select bit (d7), branch if not setld hl,AreaObjectPageSelinc (hl) ;check page selectdec (hl)jr nz,Chk1Row13inc (hl) ;if not already set, set it nowld hl,AreaObjectPageLocinc (hl) ;and increment page locationChk1Row13:;ld a,(ix) ;reread first byte of level objectand ++$0f ;mask out high nybblecp ++$0d ;row 13?jr nz,Chk1Row14bit 6,(ix+1) ;if so, reread second byte of level objectjr nz,CheckRear ;check for d6 set (if not, object is page control)ld a,(AreaObjectPageSel) ;if page select is set, do not rereador ajr nz,CheckRearld a,(ix+1) ;if d6 not set, reread second byteand ++%00011111 ;mask out all but 5 LSB and store in page controlld (AreaObjectPageLoc),ald hl,AreaObjectPageSelinc (hl) ;increment page selectjmp NextAObjChk1Row14: cp ++$0e ;row 14?jr nz,CheckRearld a,(BackloadingFlag) ;check flag for saved page number and branch if setor ajr nz,RdyDecode ;to render the object (otherwise bg might not look right)CheckRear: ld a,(AreaObjectPageLoc) ;check to see if current page of level object isld hl,CurrentPageLoccp (hl) ;behind current page of rendererjr c,SetBehind ;if so branchRdyDecode:;push ixldayindirect (AreaData),y ;get first byte of level object againcall DecodeAreaData ;do sub and do not turn on flag ;y трцхэ!!!;pop ixjp ChkLengthRdyDecode_AreaObjectLength_positive:ldyx AreaObjOffsetBuffer,x ;if not, get offset from buffer;push ixldayindirect (AreaData),y ;get first byte of level object againcall DecodeAreaData ;do sub and do not turn on flag ;y трцхэ!!!;pop ixjp ChkLengthSetBehind:ld hl,BehindAreaParserFlaginc (hl) ;turn on flag if object is behind rendererNextAObj:ld hl,AreaDataOffsetinc (hl)inc (hl) ;яю эхьє ЁрёёўшЄ√трхЄё рфЁхё юс·хъЄр эр ёыхфє■∙хь яЁюїюфхxor ald (AreaObjectPageSel),aRdyDecode_endofarea:ChkLength:if Z80OPT3ly;ld hl,ObjectOffsetld c,ly;ld c,(hl) ;get buffer offsetelseld hl,ObjectOffsetld c,(hl) ;get buffer offsetendifld hl,AreaObjectLengthadd hl,bcld a,(hl) ;check object length for anything stored hererlajr c,ProcLoopb ;if not, branch to handle loopbackdec (hl) ;otherwise decrement length or get rid of itProcLoopb: dec c ;decrement buffer offsetjp p,ProcADLoop ;and loopback unless exceeded bufferld a,(BehindAreaParserFlag) ;check for flag set if objects were behind rendereror ajp nz,ProcessAreaData ;branch if true to load more level data, otherwiseld a,(BackloadingFlag) ;check for flag set if starting right of page $00or ajp nz,ProcessAreaData ;branch if true to load more level data, otherwise leaveretelse ;~Z80ldxn ++$02 ;start at the end of area object bufferProcADLoop: stx ObjectOffsetldan ++$00 ;reset flagsta BehindAreaParserFlagldy AreaDataOffset ;get offset of area data pointerldayindirect (AreaData),y ;get first byte of area objectcmpn ++$fd ;if end-of-area, skip all this crapbeq RdyDecodeldax AreaObjectLength,x ;check area object buffer flagcheckabpl RdyDecode ;if buffer not negative, branch, otherwiseinyldayindirect (AreaData),y ;get second byte of area objectasl ;check for page select bit (d7), branch if not setbcc Chk1Row13lda AreaObjectPageSel ;check page selectcheckabne Chk1Row13inci AreaObjectPageSel ;if not already set, set it nowinci AreaObjectPageLoc ;and increment page locationChk1Row13: deyldayindirect (AreaData),y ;reread first byte of level objectandn ++$0f ;mask out high nybblecmpn ++$0d ;row 13?bne Chk1Row14iny ;if so, reread second byte of level objectldayindirect (AreaData),ydey ;decrement to get ready to read first byteandn ++%01000000 ;check for d6 set (if not, object is page control)bne CheckRearlda AreaObjectPageSel ;if page select is set, do not rereadcheckabne CheckReariny ;if d6 not set, reread second byteldayindirect (AreaData),yandn ++%00011111 ;mask out all but 5 LSB and store in page controlsta AreaObjectPageLocinci AreaObjectPageSel ;increment page selectjmp NextAObjChk1Row14: cmpn ++$0e ;row 14?bne CheckRearlda BackloadingFlag ;check flag for saved page number and branch if setcheckabne RdyDecode ;to render the object (otherwise bg might not look right)CheckRear: lda AreaObjectPageLoc ;check to see if current page of level object iscmpi CurrentPageLoc ;behind current page of renderercmpcybcc SetBehind ;if so branchRdyDecode: jsr DecodeAreaData ;do sub and do not turn on flagjmp ChkLengthSetBehind: inci BehindAreaParserFlag ;turn on flag if object is behind rendererNextAObj:jsr IncAreaObjOffset ;increment buffer offset and move onChkLength: ldx ObjectOffset ;get buffer offsetldax AreaObjectLength,x ;check object length for anything stored herecheckabmi ProcLoopb ;if not, branch to handle loopbackdecx AreaObjectLength,x ;otherwise decrement length or get rid of itProcLoopb: dex ;decrement buffer offsetbpl ProcADLoop ;and loopback unless exceeded bufferlda BehindAreaParserFlag ;check for flag set if objects were behind renderercheckabne ProcessAreaData ;branch if true to load more level data, otherwiselda BackloadingFlag ;check for flag set if starting right of page $00checkabne ProcessAreaData ;branch if true to load more level data, otherwise leaveEndAParse: rtsIncAreaObjOffset:inci AreaDataOffset ;increment offset of level pointerinci AreaDataOffsetldan ++$00 ;reset page selectsta AreaObjectPageSelrtsendif;x трцхэ!;y трцхэ!DecodeAreaData:if Z80OPT3if 0ld hl,AreaObjectLengthadd hl,bcld a,(hl) ;check current buffer flagor abmi Chk1stBldyx AreaObjOffsetBuffer,x ;if not, get offset from bufferChk1stB:ldayindirect (AreaData),y ;get first byte of level object againcp ++$fdret z ;if end of level, leave this routineendifand ++$0f ;otherwise, mask out low nybblesub 15;cp $0f ;row 15?jr z,ChkRow15ok ;if so, keep the offset of 16inc a;cp $0e ;row 14?jr nz,ChkRow13ChkRow14okld hy,a;0ld a,++$2e ;and load A with another valuejp NormObj ;unconditional branchChkRow15okld hy,16jp SpecObjChkRow12okld hy,8jp SpecObjChkRow13: inc a;cp $0d ;row 13?jr nz,ChkSRowsChkRow13okld hy,34;sta SCRATCHPAD+$07 ;if so, load offset with 34iny ;get next byteldayindirect (AreaData),ybit 6,a;and ++%01000000 ;mask out all but d6 (page control obj bit)ret z;jr z,LeavePar ;if d6 clear, branch to leave (we handled this earlier)and ++%01111111 ;mask out d7cp ++$4b ;check for loop command in low nybblejr nz,Mask2MSB ;(plus d6 set for object other than page control)inci LoopCommand ;if loop command, set loop command flagMask2MSBand ++%00111111 ;mask out d7 and d6jp NormObj ;and jumpChkSRows:inc a;cp $0c ;row 12?jr z,ChkRow12ok ;if so, keep the offset value of 8ld hy,0 ;otherwise nullify value by defaultiny ;if not, get second byte of level objectldayindirect (AreaData),yand ++%01110000 ;mask out all but d6-d4jr nz,LrgObj ;if any bits set, branch to handle large objectld hy,22;sta SCRATCHPAD+$07 ;otherwise set offset of 22 for small objectldayindirect (AreaData),y ;reload second byte of level objectand ++%00001111 ;mask out higher nybble and jumpjmp NormObjLrgObj: sta SCRATCHPAD+$00 ;store value here (branch for large objects)cp ++$70 ;check for vertical pipe objectjr nz,NotWPipeldayindirect (AreaData),y ;if not, reload second bytebit 3,a;and ++%00001000 ;mask out all but d3 (usage control bit)jr z,NotWPipe ;if d3 clear, branch to get original valueldan ++$00 ;otherwise, nullify value for warp pipesta SCRATCHPAD+$00NotWPipe: lda SCRATCHPAD+$00 ;get value and jump aheadjmp MoveAOIdSpecObj: iny ;branch here for rows 12-15if Z80OPT3hyelseld a,hyld (SCRATCHPAD+$07),aendifldayindirect (AreaData),yandn ++%01110000 ;get next byte and mask out all but d6-d4MoveAOId: lsr ;move d6-d4 to lower nybblelsrlsrlsrNormObj: sta SCRATCHPAD+$00 ;store value here (branch for small objects and rows 13 and 14)if Z80OPT3hyelseld a,hyld (SCRATCHPAD+$07),aendifldax AreaObjectLength,x ;is there something stored here already?or ajp p,RunAObj ;if so, branch to do its particular sublda AreaObjectPageLoc ;otherwise check to see if the object we've loaded is on thecmpi CurrentPageLoc ;same page as the renderer, and if so, branchbeq InitRearldy AreaDataOffset ;if not, get old offset of level pointerldayindirect (AreaData),y ;and reload first byteandn ++%00001111cmpn ++$0e ;row 14?ret nzlda BackloadingFlag ;if so, check backloading flagcheckabne StrAObj ;if set, branch to render object, else leaveretInitRear: lda BackloadingFlag ;check backloading flag to see if it's been initializedor ajr z,BackColC ;branch to column-wise checkxor a;ldan ++$00 ;if not, initialize both backloading andsta BackloadingFlag ;behind-renderer flags and leavesta BehindAreaParserFlagif Z80OPT3lyld ly,a;0;sta ObjectOffsetelsesta ObjectOffsetendifLoopCmdE: retBackColC: ldy AreaDataOffset ;get first byte againldayindirect (AreaData),yand ++%11110000 ;mask out low nybble and move high to lowrrcarrcarrcarrcacmpi CurrentColumnPos ;is this where we're at?ret nz ;if not, branch to leaveStrAObj:ld hl,AreaDataOffsetld a,(hl) ;if so, load area obj offset and store in bufferinc (hl)inc (hl)stax AreaObjOffsetBuffer,xxor ald (AreaObjectPageSel),aRunAObj:;CY=0ld a,(SCRATCHPAD+$00) ;get stored value and add offset to itif Z80OPT3hyadd a,hy ;adci SCRATCHPAD+$07elseadci SCRATCHPAD+$07endifcall JumpEngineelse ;~Z80ldax AreaObjectLength,x ;check current buffer flagcheckabmi Chk1stBldyx AreaObjOffsetBuffer,x ;if not, get offset from bufferChk1stB: ldxn ++$10 ;load offset of 16 for special row 15ldayindirect (AreaData),y ;get first byte of level object againcmpn ++$fdbeq EndAParse ;if end of level, leave this routine (TODO ret z)andn ++$0f ;otherwise, mask out low nybblecmpn ++$0f ;row 15?beq ChkRow14 ;if so, keep the offset of 16ldxn ++$08 ;otherwise load offset of 8 for special row 12cmpn ++$0c ;row 12?beq ChkRow14 ;if so, keep the offset value of 8ldxn ++$00 ;otherwise nullify value by defaultChkRow14:stx SCRATCHPAD+$07 ;store whatever value we just loaded hereldx ObjectOffset ;get object offset againcmpn ++$0e ;row 14?bne ChkRow13ldan ++$00 ;if so, load offset with $00sta SCRATCHPAD+$07ldan ++$2e ;and load A with another valuecheckabne NormObj ;unconditional branchChkRow13: cmpn ++$0d ;row 13?bne ChkSRowsldan ++$22 ;if so, load offset with 34sta SCRATCHPAD+$07iny ;get next byteldayindirect (AreaData),yandn ++%01000000 ;mask out all but d6 (page control obj bit)beq LeavePar ;if d6 clear, branch to leave (we handled this earlier)ldayindirect (AreaData),y ;otherwise, get byte againandn ++%01111111 ;mask out d7cmpn ++$4b ;check for loop command in low nybblebne Mask2MSB ;(plus d6 set for object other than page control)inci LoopCommand ;if loop command, set loop command flagMask2MSB: andn ++%00111111 ;mask out d7 and d6jmp NormObj ;and jumpChkSRows: cmpn ++$0c ;row 12-15?cmpcybcs SpecObjiny ;if not, get second byte of level objectldayindirect (AreaData),yandn ++%01110000 ;mask out all but d6-d4bne LrgObj ;if any bits set, branch to handle large objectldan ++$16sta SCRATCHPAD+$07 ;otherwise set offset of 24 for small objectldayindirect (AreaData),y ;reload second byte of level objectandn ++%00001111 ;mask out higher nybble and jumpjmp NormObjLrgObj: sta SCRATCHPAD+$00 ;store value here (branch for large objects)cmpn ++$70 ;check for vertical pipe objectbne NotWPipeldayindirect (AreaData),y ;if not, reload second byteandn ++%00001000 ;mask out all but d3 (usage control bit)beq NotWPipe ;if d3 clear, branch to get original valueldan ++$00 ;otherwise, nullify value for warp pipesta SCRATCHPAD+$00NotWPipe: lda SCRATCHPAD+$00 ;get value and jump aheadjmp MoveAOIdSpecObj: iny ;branch here for rows 12-15ldayindirect (AreaData),yandn ++%01110000 ;get next byte and mask out all but d6-d4MoveAOId: lsr ;move d6-d4 to lower nybblelsrlsrlsrNormObj: sta SCRATCHPAD+$00 ;store value here (branch for small objects and rows 13 and 14)ldax AreaObjectLength,x ;is there something stored here already?checkabpl RunAObj ;if so, branch to do its particular sublda AreaObjectPageLoc ;otherwise check to see if the object we've loaded is on thecmpi CurrentPageLoc ;same page as the renderer, and if so, branchbeq InitRearldy AreaDataOffset ;if not, get old offset of level pointerldayindirect (AreaData),y ;and reload first byteandn ++%00001111cmpn ++$0e ;row 14?bne LeavePar ;TODO ret nzlda BackloadingFlag ;if so, check backloading flagcheckabne StrAObj ;if set, branch to render object, else leaveLeavePar: rtsInitRear: lda BackloadingFlag ;check backloading flag to see if it's been initializedcheckabeq BackColC ;branch to column-wise checkldan ++$00 ;if not, initialize both backloading andsta BackloadingFlag ;behind-renderer flags and leavesta BehindAreaParserFlagsta ObjectOffsetLoopCmdE: rtsBackColC: ldy AreaDataOffset ;get first byte againldayindirect (AreaData),yandn ++%11110000 ;mask out low nybble and move high to lowlsrlsrlsrlsrcmpi CurrentColumnPos ;is this where we're at?bne LeavePar ;if not, branch to leaveStrAObj: lda AreaDataOffset ;if so, load area obj offset and store in bufferstax AreaObjOffsetBuffer,xjsr IncAreaObjOffset ;do sub to increment to next object dataRunAObj: lda SCRATCHPAD+$00 ;get stored value and add offset to itclc ;then use the jump engine with current contents of Aadci SCRATCHPAD+$07jsr JumpEngineendif;y=AreaData offset (фы GetLrgObjAttrib);x трцхэ т GetLrgObjAttrib;яюЄюь x схЁ╕Єё шч hy;SCRATCHPAD+$07;large objects (rows $00-$0b or 00-11, d6-d4 set).dw VerticalPipe ;used by warp pipes.dw AreaStyleObject.dw RowOfBricks.dw RowOfSolidBlocks.dw RowOfCoins.dw ColumnOfBricks.dw ColumnOfSolidBlocks.dw VerticalPipe ;used by decoration pipes;objects for special row $0c or 12.dw Hole_Empty.dw PulleyRopeObject.dw Bridge_High.dw Bridge_Middle.dw Bridge_Low.dw Hole_Water.dw QuestionBlockRow_High.dw QuestionBlockRow_Low;objects for special row $0f or 15.dw EndlessRope.dw BalancePlatRope.dw CastleObject.dw StaircaseObject.dw ExitPipe.dw FlagBalls_Residual;small objects (rows $00-$0b or 00-11, d6-d4 all clear).dw QuestionBlock ;power-up.dw QuestionBlock ;coin.dw QuestionBlock ;hidden, coin.dw Hidden1UpBlock ;hidden, 1-up.dw BrickWithItem ;brick, power-up.dw BrickWithItem ;brick, vine.dw BrickWithItem ;brick, star.dw BrickWithCoins ;brick, coins.dw BrickWithItem ;brick, 1-up.dw WaterPipe.dw EmptyBlock.dw Jumpspring;objects for special row $0d or 13 (d6 set).dw IntroPipe.dw FlagpoleObject.dw AxeObj.dw ChainObj.dw CastleBridgeObj.dw ScrollLockObject_Warp.dw ScrollLockObject.dw ScrollLockObject.dw AreaFrenzy ;flying cheep-cheeps.dw AreaFrenzy ;bullet bills or swimming cheep-cheeps.dw AreaFrenzy ;stop frenzy.dw LoopCmdE ;ret;object for special row $0e or 14.dw AlterAreaAttributes;-------------------------------------------------------------------------------------;(these apply to all area object subroutines in this section unless otherwise stated);$00 - used to store offset used to find object code;$07 - starts with adder from area parser, used to store row offsetAlterAreaAttributes:ldyx AreaObjOffsetBuffer,x ;load offset for level object data saved in bufferiny ;load second byteldayindirect (AreaData),ypha ;save in stack for nowandn ++%01000000bne Alter2 ;branch if d6 is setplapha ;pull and push offset to copy to Aandn ++%00001111 ;mask out high nybble and store assta TerrainControl ;new terrain height type bitsplaandn ++%00110000 ;pull and mask out all but d5 and d4lsr ;move bits to lower nybble and storelsr ;as new background scenery bitslsrlsrsta BackgroundScenery ;then leavertsAlter2: plaandn ++%00000111 ;mask out all but 3 LSBcmpn ++$04 ;if four or greater, set color control bitscmpcybcc SetFore ;and nullify foreground scenery bitssta BackgroundColorCtrlldan ++$00SetFore: sta ForegroundScenery ;otherwise set new foreground scenery bitsrts;--------------------------------ScrollLockObject_Warp:ldxn ++$04 ;load value of 4 for game text routine as defaultlda WorldNumber ;warp zone (4-3-2), then check world numbercheckabeq WarpNuminx ;if world number HIGH 1, increment for next warp zone (5)ldy AreaType ;check area typedeybne WarpNum ;if ground area type, increment for last warp zoneinx ;(8-7-6) and move onWarpNum: txasta WarpZoneControl ;store number here to be used by warp zone routinejsr WriteGameText ;print text and warp zone numbersldan ++PiranhaPlantjsr KillEnemies ;load identifier for piranha plants and do subScrollLockObject:lda ScrollLock ;invert scroll lock to turn it oneorn ++%00000001sta ScrollLockrts;--------------------------------;$00 - used to store enemy identifier in KillEnemiesKillEnemies:sta SCRATCHPAD+$00 ;store identifier hereldan ++$00ldxn ++$04 ;check for identifier in enemy object bufferKillELoop: ldyx Enemy_ID,xcpyi SCRATCHPAD+$00 ;if not found, branchbne NoKillEstax Enemy_Flag,x ;if found, deactivate enemy object flagNoKillE: dex ;do this until all slots are checkedbpl KillELooprts;--------------------------------FrenzyIDData:.db FlyCheepCheepFrenzy, BBill_CCheep_Frenzy, Stop_FrenzyAreaFrenzy: ldx SCRATCHPAD+$00 ;use area object identifier bit as offsetldax FrenzyIDData-8,x ;note that it starts at 8, thus weird address hereldyn ++$05FreCompLoop: dey ;check regular slots of enemy object bufferbmi ExitAFrenzy ;if all slots checked and enemy object not found, branch to storecmpy Enemy_ID,y ;check for enemy object in buffer versus frenzy objectbne FreCompLoopldan ++$00 ;if enemy object already present, nullify queue and leaveExitAFrenzy: sta EnemyFrenzyQueue ;store enemy into frenzy queuerts;--------------------------------;$06 - used by MushroomLedge to store lengthAreaStyleObject:lda AreaStyle ;load level object style and jump to the right subjsr JumpEngine.dw TreeLedge ;also used for cloud type levels.dw MushroomLedge.dw BulletBillCannonTreeLedge:jsr GetLrgObjAttrib ;get row and length of green ledgeldax AreaObjectLength,x ;check length counter for expirationcheckabeq EndTreeLbpl MidTreeLtyastax AreaObjectLength,x ;store lower nybble into buffer flag as length of ledgelda CurrentPageLocorai CurrentColumnPos ;are we at the start of the level?beq MidTreeLldan ++$16 ;render start of tree ledgejmp NoUnderMidTreeL:if Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07elseldx SCRATCHPAD+$07endifldan ++$17 ;render middle of tree ledgestax MetatileBuffer,x ;note that this is also used if ledge position isldan ++$4c ;at the start of level for continuous effectjmp AllUnder ;now render the part underneathEndTreeL: ldan ++$18 ;render end of tree ledgejmp NoUnderMushroomLedge:jsr ChkLrgObjLength ;get shroom dimensionssty SCRATCHPAD+$06 ;store length here for nowbcc EndMushLldax AreaObjectLength,x ;divide length by 2 and store elsewherelsrstax MushroomLedgeHalfLen,xldan ++$19 ;render start of mushroomjmp NoUnderEndMushL: ldan ++$1b ;if at the end, render end of mushroomldyx AreaObjectLength,xcheckybeq NoUnderldax MushroomLedgeHalfLen,x ;get divided length and store where lengthsta SCRATCHPAD+$06 ;was stored originallyif Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07elseldx SCRATCHPAD+$07endifldan ++$1astax MetatileBuffer,x ;render middle of mushroomcpyi SCRATCHPAD+$06 ;are we smack dab in the center?bne MushLExit ;if not, branch to leaveinxldan ++$4fstax MetatileBuffer,x ;render stem top of mushroom underneath the middleldan ++$50AllUnder: inxldyn ++$0f ;set $0f to render all way downjmp RenderUnderPart ;now render the stem of mushroomNoUnder:if Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07 ;load row of ledgeelseldx SCRATCHPAD+$07 ;load row of ledgeendifldyn ++$00 ;set 0 for no bottom on this partjmp RenderUnderPart;--------------------------------;tiles used by pulleys and rope objectPulleyRopeMetatiles:.db $42, $41, $43PulleyRopeObject:jsr ChkLrgObjLength ;get length of pulley/rope objectldyn ++$00 ;initialize metatile offsetbcs RenderPul ;if starting, render left pulleyinyldax AreaObjectLength,x ;if not at the end, render ropecheckabne RenderPuliny ;otherwise render right pulleyRenderPul: lday PulleyRopeMetatiles,ysta MetatileBuffer ;render at the top of the screenMushLExit: rts ;and leave;--------------------------------;$06 - used to store upper limit of rows for CastleObjectCastleMetatiles:.db $00, $45, $45, $45, $00.db $00, $48, $47, $46, $00.db $45, $49, $49, $49, $45.db $47, $47, $4a, $47, $47.db $47, $47, $4b, $47, $47.db $49, $49, $49, $49, $49.db $47, $4a, $47, $4a, $47.db $47, $4b, $47, $4b, $47.db $47, $47, $47, $47, $47.db $4a, $47, $4a, $47, $4a.db $4b, $47, $4b, $47, $4bCastleObject:jsr GetLrgObjAttrib ;save lower nybble as starting rowif Z80OPT3hyld hy,e; sty SCRATCHPAD+$07 ;if starting row is above $0a, game will crash!!!elsesty SCRATCHPAD+$07 ;if starting row is above $0a, game will crash!!!endifldyn ++$04jsr ChkLrgObjFixedLength ;load length of castle if not already loadedtxapha ;save obj buffer offset to stackldyx AreaObjectLength,x ;use current length as offset for castle dataif Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07 ;begin at starting rowelseldx SCRATCHPAD+$07 ;begin at starting rowendifldan ++$0bsta SCRATCHPAD+$06 ;load upper limit of number of rows to printCRendLoop: lday CastleMetatiles,y ;load current byte using offsetstax MetatileBuffer,xinx ;store in buffer and increment buffer offsetlda SCRATCHPAD+$06checkabeq ChkCFloor ;have we reached upper limit yet?iny ;if not, increment column-wiseiny ;to byte in next rowinyinyinydeci SCRATCHPAD+$06 ;move closer to upper limitChkCFloor: cpxn ++$0b ;have we reached the row just before floor?bne CRendLoop ;if not, go back and do another rowplatax ;get obj buffer offset from beforelda CurrentPageLoccheckabeq ExitCastle ;if we're at page 0, we do not need to do anything elseldax AreaObjectLength,x ;check lengthcmpn ++$01 ;if length almost about to expire, put brick at floorbeq PlayerStopif Z80OPT3hyif Z80OPT3hybugld c,hy;ldy SCRATCHPAD+$07 ;check starting row for tall castle ($00) ;т Ёхышчх тъы■ўрЄ№ эх эрфю!elseld e,hy;ldy SCRATCHPAD+$07 ;check starting row for tall castle ($00)endifelseldy SCRATCHPAD+$07 ;check starting row for tall castle ($00)endifcheckybne NotTallcmpn ++$03 ;if found, then check to see if we're at the second columnbeq PlayerStopNotTall: cmpn ++$02 ;if not tall castle, check to see if we're at the third columnbne ExitCastle ;if we aren't and the castle is tall, don't create flag yetjsr GetAreaObjXPosition ;otherwise, obtain and save horizontal pixel coordinatephajsr FindEmptyEnemySlot ;find an empty place on the enemy object bufferplastax Enemy_X_Position,x ;then write horizontal coordinate for star flaglda CurrentPageLocstax Enemy_PageLoc,x ;set page location for star flagldan ++$01stax Enemy_Y_HighPos,x ;set vertical high bytestax Enemy_Flag,x ;set flag for bufferldan ++$90stax Enemy_Y_Position,x ;set vertical coordinateldan ++StarFlagObject ;set star flag value in buffer itselfstax Enemy_ID,xrtsPlayerStop: ldyn ++$52 ;put brick at floor to stop player at end of levelsty MetatileBuffer+10 ;this is only done if we're on the second columnExitCastle: rts;--------------------------------WaterPipe:jsr GetLrgObjAttrib ;get row and lower nybbleldyx AreaObjectLength,x ;get length (residual code, water pipe is 1 col thick)if Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07 ;get rowelseldx SCRATCHPAD+$07 ;get rowendifldan ++$6bstax MetatileBuffer,x ;draw something here and below itldan ++$6cstax MetatileBuffer+1,xrts;--------------------------------;$05 - used to store length of vertical shaft in RenderSidewaysPipe;$06 - used to store leftover horizontal length in RenderSidewaysPipe; and vertical length in VerticalPipe and GetPipeHeightIntroPipe:ldyn ++$03 ;check if length set, if not set, set itjsr ChkLrgObjFixedLengthldyn ++$0a ;set fixed value and render the sideways partjsr RenderSidewaysPipebcs NoBlankP ;if carry flag set, not time to draw vertical pipe partldxn ++$06 ;blank everything above the vertical pipe partVPipeSectLoop: ldan ++$00 ;all the way to the top of the screenstax MetatileBuffer,x ;because otherwise it will look like exit pipedexbpl VPipeSectLooplday VerticalPipeData,y ;draw the end of the vertical pipe partsta MetatileBuffer+7NoBlankP: rtsSidePipeShaftData:.db $15, $14 ;used to control whether or not vertical pipe shaft.db $00, $00 ;is drawn, and if so, controls the metatile numberSidePipeTopPart:.db $15, $1e ;top part of sideways part of pipe.db $1d, $1cSidePipeBottomPart:.db $15, $21 ;bottom part of sideways part of pipe.db $20, $1fExitPipe:ldyn ++$03 ;check if length set, if not set, set itjsr ChkLrgObjFixedLengthjsr GetLrgObjAttrib ;get vertical length, then plow on through RenderSidewaysPipeRenderSidewaysPipe:dey ;decrement twice to make room for shaft at bottomdey ;and store here for now as vertical lengthsty SCRATCHPAD+$05ldyx AreaObjectLength,x ;get length left over and store heresty SCRATCHPAD+$06ldx SCRATCHPAD+$05 ;get vertical length plus one, use as buffer offsetinxlday SidePipeShaftData,y ;check for value $00 based on horizontal offsetcmpn ++$00cmpcybeq DrawSidePart ;if found, do not draw the vertical pipe shaft (CY6502=1)ldxn ++$00ldy SCRATCHPAD+$05 ;init buffer offset and get vertical lengthjsr RenderUnderPart ;and render vertical shaft using tile number in Aclc ;clear carry flag to be used by IntroPipeDrawSidePart:push afldy SCRATCHPAD+$06 ;render side pipe part at the bottomlday SidePipeTopPart,ystax MetatileBuffer,x ;note that the pipe parts are storedlday SidePipeBottomPart,y ;backwards horizontallystax MetatileBuffer+1,xpop afrtsVerticalPipeData:.db $11, $10 ;used by pipes that lead somewhere.db $15, $14.db $13, $12 ;used by decoration pipes.db $15, $14VerticalPipe:jsr GetPipeHeightlda SCRATCHPAD+$00 ;check to see if value was nullified earliercheckabeq WarpPipe ;(if d3, the usage control bit of second byte, was set)inyinyinyiny ;add four if usage control bit was not setWarpPipe: tya ;save value in stackphalda AreaNumberorai WorldNumber ;if at world 1-1, do not add piranha plant everif NOPIRANHAPLANTxor aendifbeq DrawPipeldyx AreaObjectLength,x ;if on second column of pipe, branchcheckybeq DrawPipe ;(because we only need to do this once)jsr FindEmptyEnemySlot ;check for an empty moving data buffer spacebcs DrawPipe ;if not found, too many enemies, thus skipjsr GetAreaObjXPosition ;get horizontal pixel coordinateclcadcn ++$08 ;add eight to put the piranha plant in the centerpush afstax Enemy_X_Position,x ;store as enemy's horizontal coordinatelda CurrentPageLoc ;add carry to current page numberld h,apop afld a,hadcn ++$00stax Enemy_PageLoc,x ;store as enemy's page coordinateldan ++$01stax Enemy_Y_HighPos,xstax Enemy_Flag,x ;activate enemy flagjsr GetAreaObjYPosition ;get piranha plant's vertical coordinate and store herestax Enemy_Y_Position,xldan ++PiranhaPlant ;write piranha plant's value into bufferstax Enemy_ID,xjsr InitPiranhaPlantDrawPipe: pla ;get value saved earlier and use as Ytayif Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07 ;get buffer offsetelseldx SCRATCHPAD+$07 ;get buffer offsetendiflday VerticalPipeData,y ;draw the appropriate pipe with the Y we loaded earlierstax MetatileBuffer,x ;render the top of the pipeinxlday VerticalPipeData+2,y ;render the rest of the pipeldy SCRATCHPAD+$06 ;subtract one from length and render the part underneathdeyjmp RenderUnderPartGetPipeHeight:ldyn ++$01 ;check for length loaded, if not, loadjsr ChkLrgObjFixedLength ;pipe length of 2 (horizontal)jsr GetLrgObjAttribtya ;get saved lower nybble as heightandn ++$07 ;save only the three lower bits assta SCRATCHPAD+$06 ;vertical length, then load Y withldyx AreaObjectLength,x ;length left overrtsFindEmptyEnemySlot:ldxn ++$00 ;start at first enemy slotEmptyChkLoop: clc ;clear carry flag by defaultldax Enemy_Flag,x ;check enemy buffer for nonzerocheckabeq ExitEmptyChk ;if zero, leaveinxcpxn ++$05 ;if nonzero, check next valuebne EmptyChkLoopExitEmptyChk: rts ;if all values nonzero, carry flag is set;--------------------------------Hole_Water:jsr ChkLrgObjLength ;get low nybble and save as lengthldan ++$86 ;render wavessta MetatileBuffer+10ldxn ++$0bldyn ++$01 ;now render the water underneathldan ++$87jmp RenderUnderPart;--------------------------------QuestionBlockRow_High:ldan ++$03 ;start on the fourth rowjr QuestionBlockRow_go;.db $2c ;BIT instruction opcodeQuestionBlockRow_Low:ldan ++$07 ;start on the eighth rowQuestionBlockRow_gopha ;save whatever row to the stack for nowjsr ChkLrgObjLength ;get low nybble and save as lengthplatax ;render question boxes with coinsldan ++$c0stax MetatileBuffer,xrts;--------------------------------Bridge_High:ldan ++$06 ;start on the seventh row from top of screenjr Bridge_go;.db $2c ;BIT instruction opcodeBridge_Middle:ldan ++$07 ;start on the eighth rowjr Bridge_go;.db $2c ;BIT instruction opcodeBridge_Low:ldan ++$09 ;start on the tenth rowBridge_gopha ;save whatever row to the stack for nowjsr ChkLrgObjLength ;get low nybble and save as lengthplatax ;render bridge railingldan ++$0bstax MetatileBuffer,xinxldyn ++$00 ;now render the bridge itselfldan ++$63jmp RenderUnderPart;--------------------------------FlagBalls_Residual:jsr GetLrgObjAttrib ;get low nybble from object byteldxn ++$02 ;render flag balls on third row from topldan ++$6d ;of screen downwards based on low nybblejmp RenderUnderPart;--------------------------------FlagpoleObject:ldan ++$24 ;render flagpole ball on topsta MetatileBufferldxn ++$01 ;now render the flagpole shaftldyn ++$08ldan ++$25jsr RenderUnderPartldan ++$61 ;render solid block at the bottomsta MetatileBuffer+10jsr GetAreaObjXPositionsecsub ;get pixel coordinate of where the flagpole is,sbcn ++$08 ;subtract eight pixels and use as horizontalsta Enemy_X_Position+5 ;coordinate for the flaglda CurrentPageLocsbcn ++$00 ;subtract borrow from page location and use assta Enemy_PageLoc+5 ;page location for the flagldan ++$30sta Enemy_Y_Position+5 ;set vertical coordinate for flagldan ++$b0sta FlagpoleFNum_Y_Pos ;set initial vertical coordinate for flagpole's floatey numberldan ++FlagpoleFlagObjectsta Enemy_ID+5 ;set flag identifier, note that identifier and coordinatesinci Enemy_Flag+5 ;use last space in enemy object bufferrts;--------------------------------EndlessRope:ldxn ++$00 ;render rope from the top to the bottom of screenldyn ++$0fjmp DrawRopeBalancePlatRope:txa ;save object buffer offset for nowphaldxn ++$01 ;blank out all from second row to the bottomldyn ++$0f ;with blank used for balance platform ropeldan ++$44jsr RenderUnderPartpla ;get back object buffer offsettaxjsr GetLrgObjAttrib ;get vertical length from lower nybbleldxn ++$01DrawRope: ldan ++$40 ;render the actual ropejmp RenderUnderPart;--------------------------------CoinMetatileData:.db $c3, $c2, $c2, $c2RowOfCoins:ldy AreaType ;get area typelday CoinMetatileData,y ;load appropriate coin metatilejmp GetRow;--------------------------------C_ObjectRow:.db $06, $07, $08C_ObjectMetatile:.db $c5, $0c, $89CastleBridgeObj:ldyn ++$0c ;load length of 13 columnsjsr ChkLrgObjFixedLengthjmp ChainObjAxeObj:ldan ++$08 ;load bowser's palette into sprite portion of palettesta VRAM_Buffer_AddrCtrlChainObj:ldy SCRATCHPAD+$00 ;get value loaded earlier from decoderldxy C_ObjectRow-2,y ;get appropriate row and metatile for objectlday C_ObjectMetatile-2,yjmp ColObjEmptyBlock:jsr GetLrgObjAttrib ;get row locationif Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07elseldx SCRATCHPAD+$07endifldan ++$c4ColObj: ldyn ++$00 ;column length of 1jmp RenderUnderPart;--------------------------------SolidBlockMetatiles:.db $69, $61, $61, $62BrickMetatiles:.db $22, $51, $52, $52.db $88 ;used only by row of bricks objectRowOfBricks:ldy AreaType ;load area type obtained from area offset pointerlda CloudTypeOverride ;check for cloud type overridecheckabeq DrawBricksldyn ++$04 ;if cloud type, override area typeDrawBricks: lday BrickMetatiles,y ;get appropriate metatilejmp GetRow ;and go render itRowOfSolidBlocks:ldy AreaType ;load area type obtained from area offset pointerlday SolidBlockMetatiles,y ;get metatileGetRow: pha ;store metatile herejsr ChkLrgObjLength ;get row number, load lengthDrawRow:if Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07elseldx SCRATCHPAD+$07endifldyn ++$00 ;set vertical height of 1plajmp RenderUnderPart ;render objectColumnOfBricks:ldy AreaType ;load area type obtained from area offsetlday BrickMetatiles,y ;get metatile (no cloud override as for row)jmp GetRow2ColumnOfSolidBlocks:ldy AreaType ;load area type obtained from area offsetlday SolidBlockMetatiles,y ;get metatileGetRow2: pha ;save metatile to stack for nowjsr GetLrgObjAttrib ;get length and rowpla ;restore metatileif Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07 ;get starting rowelseldx SCRATCHPAD+$07 ;get starting rowendifjmp RenderUnderPart ;now render the column;--------------------------------BulletBillCannon:jsr GetLrgObjAttrib ;get row and length of bullet bill cannonif Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07 ;start at first rowelseldx SCRATCHPAD+$07 ;start at first rowendifldan ++$64 ;render bullet bill cannonstax MetatileBuffer,xinxdey ;done yet?bmi SetupCannonldan ++$65 ;if not, render middle partstax MetatileBuffer,xinxdey ;done yet?bmi SetupCannonldan ++$66 ;if not, render bottom until length expiresjsr RenderUnderPartSetupCannon: ldx Cannon_Offset ;get offset for data used by cannons and whirlpoolsjsr GetAreaObjYPosition ;get proper vertical coordinate for cannonstax Cannon_Y_Position,x ;and store it herelda CurrentPageLocstax Cannon_PageLoc,x ;store page number for cannon herejsr GetAreaObjXPosition ;get proper horizontal coordinate for cannonstax Cannon_X_Position,x ;and store it hereinxcpxn ++$06 ;increment and check offsetcmpcybcc StrCOffset ;if not yet reached sixth cannon, branch to save offsetldxn ++$00 ;otherwise initialize itStrCOffset: stx Cannon_Offset ;save new offset and leaverts;--------------------------------StaircaseHeightData:.db $07, $07, $06, $05, $04, $03, $02, $01, $00StaircaseRowData:.db $03, $03, $04, $05, $06, $07, $08, $09, $0aStaircaseObject:jsr ChkLrgObjLength ;check and load lengthbcc NextStair ;if length already loaded, skip init partldan ++$09 ;start past the end for the bottomsta StaircaseControl ;of the staircaseNextStair: deci StaircaseControl ;move onto next step (or first if starting)ldy StaircaseControlldxy StaircaseRowData,y ;get starting row and height to renderlday StaircaseHeightData,ytayldan ++$61 ;now render solid block staircasejmp RenderUnderPart;--------------------------------Jumpspring:jsr GetLrgObjAttribjsr FindEmptyEnemySlot ;find empty space in enemy object bufferjsr GetAreaObjXPosition ;get horizontal coordinate for jumpspringstax Enemy_X_Position,x ;and storelda CurrentPageLoc ;store page location of jumpspringstax Enemy_PageLoc,xjsr GetAreaObjYPosition ;get vertical coordinate for jumpspringstax Enemy_Y_Position,x ;and storestax Jumpspring_FixedYPos,x ;store as permanent coordinate hereldan ++JumpspringObjectstax Enemy_ID,x ;write jumpspring object to enemy object bufferldyn ++$01styx Enemy_Y_HighPos,x ;store vertical high byteincx Enemy_Flag,x ;set flag for enemy object bufferif Z80OPT3hyld c,hy;ldx SCRATCHPAD+$07elseldx SCRATCHPAD+$07endifldan ++$67 ;draw metatiles in two rows where jumpspring isstax MetatileBuffer,xldan ++$68stax MetatileBuffer+1,xrts;--------------------------------;$07 - used to save ID of brick objectHidden1UpBlock:lda Hidden1UpFlag ;if flag not set, do not render objectcheckabeq ExitDecBlockldan ++$00 ;if set, init for the next onesta Hidden1UpFlagjmp BrickWithItem ;jump to code shared with unbreakable bricksQuestionBlock:jsr GetAreaObjectID ;get value from level decoder routinejmp DrawQBlk ;go to render itBrickWithCoins:ldan ++$00 ;initialize multi-coin timer flagsta BrickCoinTimerFlagBrickWithItem:jsr GetAreaObjectID ;save area object IDif Z80OPT3hyld hy,e;sty SCRATCHPAD+$07elsesty SCRATCHPAD+$07endifldan ++$00 ;load default adder for bricks with linesldy AreaType ;check level type for ground leveldeybeq BWithL ;if ground type, do not start with 5ldan ++$05 ;otherwise use adder for bricks without linesBWithL:if Z80OPT3hy;clc ;add object ID to adderadd a,hy;adci SCRATCHPAD+$07elseclc ;add object ID to adderadci SCRATCHPAD+$07endiftay ;use as offset for metatileDrawQBlk: lday BrickQBlockMetatiles,y ;get appropriate metatile for brick (question blockpha ;if branched to here from question block routine)jsr GetLrgObjAttrib ;get row from location bytejmp DrawRow ;now render the objectGetAreaObjectID:lda SCRATCHPAD+$00 ;get value saved from area parser routinesecsubsbcn ++$00 ;possibly residual codetay ;save to YExitDecBlock: rts;--------------------------------HoleMetatiles:.db $87, $00, $00, $00Hole_Empty:jsr ChkLrgObjLength ;get lower nybble and save as lengthbcc NoWhirlP ;skip this part if length already loadedlda AreaType ;check for water type levelcheckabne NoWhirlP ;if not water type, skip this partldx Whirlpool_Offset ;get offset for data used by cannons and whirlpoolsjsr GetAreaObjXPosition ;get proper vertical coordinate of where we're atsecsubsbcn ++$10 ;subtract 16 pixelspush afstax Whirlpool_LeftExtent,x ;store as left extent of whirlpoolpop aflda CurrentPageLoc ;get page location of where we're atsbcn ++$00 ;subtract borrowstax Whirlpool_PageLoc,x ;save as page location of whirlpoolinyiny ;increment length by 2tyaasl ;multiply by 16 to get size of whirlpoolasl ;note that whirlpool will always beasl ;two blocks bigger than actual size of holeasl ;and extend one block beyond each edgestax Whirlpool_Length,x ;save size of whirlpool hereinxcpxn ++$05 ;increment and check offsetcmpcybcc StrWOffset ;if not yet reached fifth whirlpool, branch to save offsetldxn ++$00 ;otherwise initialize itStrWOffset: stx Whirlpool_Offset ;save new offset hereNoWhirlP: ldx AreaType ;get appropriate metatile, thenldax HoleMetatiles,x ;render the hole properldxn ++$08ldyn ++$0f ;start at ninth row and go to bottom, run RenderUnderPart;--------------------------------RenderUnderPart:sty AreaObjectHeight ;store vertical length to renderldyx MetatileBuffer,x ;check current spot to see if there's somethingcheckybeq DrawThisRow ;we need to keep, if nothing, go aheadcpyn ++$17beq WaitOneRow ;if middle part (tree ledge), wait until next rowcpyn ++$1abeq WaitOneRow ;if middle part (mushroom ledge), wait until next rowcpyn ++$c0beq DrawThisRow ;if question block w/ coin, overwritecpyn ++$c0cmpcybcs WaitOneRow ;if any other metatile with palette 3, wait until next rowcpyn ++$54bne DrawThisRow ;if cracked rock terrain, overwritecmpn ++$50beq WaitOneRow ;if stem top of mushroom, wait until next rowDrawThisRow: stax MetatileBuffer,x ;render contents of A from routine that called thisWaitOneRow: inxcpxn ++$0d ;stop rendering if we're at the bottom of the screencmpcybcs ExitUPartRldy AreaObjectHeight ;decrement, and stop rendering if there is no more lengthdeybpl RenderUnderPartExitUPartR: rts;--------------------------------ChkLrgObjLength:jsr GetLrgObjAttrib ;get row location and size (length if branched to from here)ChkLrgObjFixedLength:ldax AreaObjectLength,x ;check for set length counterclc ;clear carry flag for not just startingcheckabpl LenSet ;if counter not set, load it, otherwise leave alonetya ;save length into length counterstax AreaObjectLength,xsec ;set carry flag if just startingLenSet: rtsGetLrgObjAttrib:;x=???;y=AreaData offsetldyx AreaObjOffsetBuffer,x ;get offset saved from area obj decoding routineldayindirect (AreaData),y ;get first byte of level objectandn ++%00001111if Z80OPT3hyld hy,a;sta SCRATCHPAD+$07 ;save row locationelsesta SCRATCHPAD+$07 ;save row locationendifinyldayindirect (AreaData),y ;get next byte, save lower nybble (length or height)andn ++%00001111 ;as Y, then leavetayrts;--------------------------------GetAreaObjXPosition:lda CurrentColumnPos ;multiply current offset where we're at by 16asl ;to obtain horizontal pixel coordinateaslaslaslrts;--------------------------------GetAreaObjYPosition:if Z80OPT3hyld a,hy;lda SCRATCHPAD+$07elselda SCRATCHPAD+$07endifasl ;multiply value by 16asl ;this will give us the proper vertical pixel coordinateaslaslclcadcn ++32 ;add 32 pixels for the status barrts;-------------------------------------------------------------------------------------;$06-$07 - used to store block buffer address used as indirectif Z80OPTelseBlockBufferAddr:.db LOW Block_Buffer_1, LOW Block_Buffer_2.db HIGH Block_Buffer_1, HIGH Block_Buffer_2;a=%000hllll;out: $06$07 = BlockBufferAddr[i]+%llllGetBlockBufferAddr:pha ;take value of A, savelsr ;move high nybble to lowlsrlsrlsrtay ;use nybble as pointer to high bytelday BlockBufferAddr+2,y ;of indirect heresta SCRATCHPAD+$07plaandn ++%00001111 ;pull from stack, mask out high nybbleclcadcy BlockBufferAddr,y ;add to low bytesta SCRATCHPAD+$06 ;store here and leavertsendif;-------------------------------------------------------------------------------------;unused space.db $ff, $ff;-------------------------------------------------------------------------------------AreaDataOfsLoopback:.db $12, $36, $0e, $0e, $0e, $32, $32, $32, $0a, $26, $40;-------------------------------------------------------------------------------------LoadAreaPointer:jsr FindAreaPointer ;find it and store it heresta AreaPointerGetAreaType: andn ++%01100000 ;mask out all but d6 and d5aslrolrolrol ;make %0xx00000 into %000000xxsta AreaType ;save 2 MSB as area typertsFindAreaPointer:ldy WorldNumber ;load offset from world variablelday WorldAddrOffsets,yclc ;add area number used to find dataadci AreaNumbertaylday AreaAddrOffsets,y ;from there we have our area pointerrtsGetAreaDataAddrs:lda AreaPointer ;use 2 MSB for Yjsr GetAreaTypetaylda AreaPointer ;mask out all but 5 LSBandn ++%00011111sta AreaAddrsLOffset ;save as low offsetlday EnemyAddrHOffsets,y ;load base value with 2 altered MSB,clc ;then add base value to 5 LSB, resultadci AreaAddrsLOffset ;becomes offset for level datataylday EnemyDataAddrLow,y ;use offset to load pointersta EnemyDataLowlday EnemyDataAddrHigh,ysta EnemyDataHighldy AreaType ;use area type as offsetlday AreaDataHOffsets,y ;do the same thing but with different base valueclcadci AreaAddrsLOffsettaylday AreaDataAddrLow,y ;use this offset to load another pointersta AreaDataLowlday AreaDataAddrHigh,ysta AreaDataHighldyn ++$00 ;load first byte of headerldayindirect (AreaData),ypha ;save it to the stack for nowandn ++%00000111 ;save 3 LSB for foreground scenery or bg color controlcmpn ++$04cmpcybcc StoreForesta BackgroundColorCtrl ;if 4 or greater, save value here as bg color controlldan ++$00StoreFore: sta ForegroundScenery ;if less, save value here as foreground scenerypla ;pull byte from stack and push it backphaandn ++%00111000 ;save player entrance control bitslsr ;shift bits over to LSBslsrlsrsta PlayerEntranceCtrl ;save value here as player entrance controlpla ;pull byte again but do not push it backandn ++%11000000 ;save 2 MSB for game timer settingclcrol ;rotate bits over to LSBsrolrolsta GameTimerSetting ;save value here as game timer settinginyldayindirect (AreaData),y ;load second byte of headerpha ;save to stackandn ++%00001111 ;mask out all but lower nybblesta TerrainControlpla ;pull and push byte to copy it to Aphaandn ++%00110000 ;save 2 MSB for background scenery typelsrlsr ;shift bits to LSBslsrlsrsta BackgroundScenery ;save as background sceneryplaandn ++%11000000clcrol ;rotate bits over to LSBsrolrolcmpn ++%00000011 ;if set to 3, store herebne StoreStyle ;and nullify other valuesta CloudTypeOverride ;otherwise store value in other placeldan ++$00StoreStyle: sta AreaStylelda AreaDataLow ;increment area data address by 2 bytesclcadcn ++$02sta AreaDataLowlda AreaDataHighadcn ++$00sta AreaDataHighrts;-------------------------------------------------------------------------------------;GAME LEVELS DATAWorldAddrOffsets:.db World1Areas-AreaAddrOffsets, World2Areas-AreaAddrOffsets.db World3Areas-AreaAddrOffsets, World4Areas-AreaAddrOffsets.db World5Areas-AreaAddrOffsets, World6Areas-AreaAddrOffsets.db World7Areas-AreaAddrOffsets, World8Areas-AreaAddrOffsetsAreaAddrOffsets:World1Areas: .db $25, $29, $c0, $26, $60World2Areas: .db $28, $29, $01, $27, $62World3Areas: .db $24, $35, $20, $63World4Areas: .db $22, $29, $41, $2c, $61World5Areas: .db $2a, $31, $26, $62World6Areas: .db $2e, $23, $2d, $60World7Areas: .db $33, $29, $01, $27, $64World8Areas: .db $30, $32, $21, $65;bonus area data offsets, included here for comparison purposes;underground bonus area - c2;cloud area 1 (day) - 2b;cloud area 2 (night) - 34;water area (5-2/6-2) - 00;water area (8-4) - 02;warp zone area (4-2) - 2fEnemyAddrHOffsets:.db $1f, $06, $1c, $00EnemyDataAddrLow:.db LOW E_CastleArea1, LOW E_CastleArea2, LOW E_CastleArea3, LOW E_CastleArea4, LOW E_CastleArea5, LOW E_CastleArea6.db LOW E_GroundArea1, LOW E_GroundArea2, LOW E_GroundArea3, LOW E_GroundArea4, LOW E_GroundArea5, LOW E_GroundArea6.db LOW E_GroundArea7, LOW E_GroundArea8, LOW E_GroundArea9, LOW E_GroundArea10, LOW E_GroundArea11, LOW E_GroundArea12.db LOW E_GroundArea13, LOW E_GroundArea14, LOW E_GroundArea15, LOW E_GroundArea16, LOW E_GroundArea17, LOW E_GroundArea18.db LOW E_GroundArea19, LOW E_GroundArea20, LOW E_GroundArea21, LOW E_GroundArea22, LOW E_UndergroundArea1.db LOW E_UndergroundArea2, LOW E_UndergroundArea3, LOW E_WaterArea1, LOW E_WaterArea2, LOW E_WaterArea3EnemyDataAddrHigh:.db HIGH E_CastleArea1, HIGH E_CastleArea2, HIGH E_CastleArea3, HIGH E_CastleArea4, HIGH E_CastleArea5, HIGH E_CastleArea6.db HIGH E_GroundArea1, HIGH E_GroundArea2, HIGH E_GroundArea3, HIGH E_GroundArea4, HIGH E_GroundArea5, HIGH E_GroundArea6.db HIGH E_GroundArea7, HIGH E_GroundArea8, HIGH E_GroundArea9, HIGH E_GroundArea10, HIGH E_GroundArea11, HIGH E_GroundArea12.db HIGH E_GroundArea13, HIGH E_GroundArea14, HIGH E_GroundArea15, HIGH E_GroundArea16, HIGH E_GroundArea17, HIGH E_GroundArea18.db HIGH E_GroundArea19, HIGH E_GroundArea20, HIGH E_GroundArea21, HIGH E_GroundArea22, HIGH E_UndergroundArea1.db HIGH E_UndergroundArea2, HIGH E_UndergroundArea3, HIGH E_WaterArea1, HIGH E_WaterArea2, HIGH E_WaterArea3AreaDataHOffsets:.db $00, $03, $19, $1cAreaDataAddrLow:.db LOW L_WaterArea1, LOW L_WaterArea2, LOW L_WaterArea3, LOW L_GroundArea1, LOW L_GroundArea2, LOW L_GroundArea3.db LOW L_GroundArea4, LOW L_GroundArea5, LOW L_GroundArea6, LOW L_GroundArea7, LOW L_GroundArea8, LOW L_GroundArea9.db LOW L_GroundArea10, LOW L_GroundArea11, LOW L_GroundArea12, LOW L_GroundArea13, LOW L_GroundArea14, LOW L_GroundArea15.db LOW L_GroundArea16, LOW L_GroundArea17, LOW L_GroundArea18, LOW L_GroundArea19, LOW L_GroundArea20, LOW L_GroundArea21.db LOW L_GroundArea22, LOW L_UndergroundArea1, LOW L_UndergroundArea2, LOW L_UndergroundArea3, LOW L_CastleArea1.db LOW L_CastleArea2, LOW L_CastleArea3, LOW L_CastleArea4, LOW L_CastleArea5, LOW L_CastleArea6AreaDataAddrHigh:.db HIGH L_WaterArea1, HIGH L_WaterArea2, HIGH L_WaterArea3, HIGH L_GroundArea1, HIGH L_GroundArea2, HIGH L_GroundArea3.db HIGH L_GroundArea4, HIGH L_GroundArea5, HIGH L_GroundArea6, HIGH L_GroundArea7, HIGH L_GroundArea8, HIGH L_GroundArea9.db HIGH L_GroundArea10, HIGH L_GroundArea11, HIGH L_GroundArea12, HIGH L_GroundArea13, HIGH L_GroundArea14, HIGH L_GroundArea15.db HIGH L_GroundArea16, HIGH L_GroundArea17, HIGH L_GroundArea18, HIGH L_GroundArea19, HIGH L_GroundArea20, HIGH L_GroundArea21.db HIGH L_GroundArea22, HIGH L_UndergroundArea1, HIGH L_UndergroundArea2, HIGH L_UndergroundArea3, HIGH L_CastleArea1.db HIGH L_CastleArea2, HIGH L_CastleArea3, HIGH L_CastleArea4, HIGH L_CastleArea5, HIGH L_CastleArea6;ENEMY OBJECT DATA;level 1-4/6-4E_CastleArea1:.db $76, $dd, $bb, $4c, $ea, $1d, $1b, $cc, $56, $5d.db $16, $9d, $c6, $1d, $36, $9d, $c9, $1d, $04, $db.db $49, $1d, $84, $1b, $c9, $5d, $88, $95, $0f, $08.db $30, $4c, $78, $2d, $a6, $28, $90, $b5.db $ff;level 4-4E_CastleArea2:.db $0f, $03, $56, $1b, $c9, $1b, $0f, $07, $36, $1b.db $aa, $1b, $48, $95, $0f, $0a, $2a, $1b, $5b, $0c.db $78, $2d, $90, $b5.db $ff;level 2-4/5-4E_CastleArea3:.db $0b, $8c, $4b, $4c, $77, $5f, $eb, $0c, $bd, $db.db $19, $9d, $75, $1d, $7d, $5b, $d9, $1d, $3d, $dd.db $99, $1d, $26, $9d, $5a, $2b, $8a, $2c, $ca, $1b.db $20, $95, $7b, $5c, $db, $4c, $1b, $cc, $3b, $cc.db $78, $2d, $a6, $28, $90, $b5.db $ff;level 3-4E_CastleArea4:.db $0b, $8c, $3b, $1d, $8b, $1d, $ab, $0c, $db, $1d.db $0f, $03, $65, $1d, $6b, $1b, $05, $9d, $0b, $1b.db $05, $9b, $0b, $1d, $8b, $0c, $1b, $8c, $70, $15.db $7b, $0c, $db, $0c, $0f, $08, $78, $2d, $a6, $28.db $90, $b5.db $ff;level 7-4E_CastleArea5:.db $27, $a9, $4b, $0c, $68, $29, $0f, $06, $77, $1b.db $0f, $0b, $60, $15, $4b, $8c, $78, $2d, $90, $b5.db $ff;level 8-4E_CastleArea6:.db $0f, $03, $8e, $65, $e1, $bb, $38, $6d, $a8, $3e, $e5, $e7.db $0f, $08, $0b, $02, $2b, $02, $5e, $65, $e1, $bb, $0e.db $db, $0e, $bb, $8e, $db, $0e, $fe, $65, $ec, $0f, $0d.db $4e, $65, $e1, $0f, $0e, $4e, $02, $e0, $0f, $10, $fe, $e5, $e1.db $1b, $85, $7b, $0c, $5b, $95, $78, $2d, $90, $b5.db $ff;level 3-3E_GroundArea1:.db $a5, $86, $e4, $28, $18, $a8, $45, $83, $69, $03.db $c6, $29, $9b, $83, $16, $a4, $88, $24, $e9, $28.db $05, $a8, $7b, $28, $24, $8f, $c8, $03, $e8, $03.db $46, $a8, $85, $24, $c8, $24.db $ff;level 8-3E_GroundArea2:.db $eb, $8e, $0f, $03, $fb, $05, $17, $85, $db, $8e.db $0f, $07, $57, $05, $7b, $05, $9b, $80, $2b, $85.db $fb, $05, $0f, $0b, $1b, $05, $9b, $05.db $ff;level 4-1E_GroundArea3:.db $2e, $c2, $66, $e2, $11, $0f, $07, $02, $11, $0f, $0c.db $12, $11.db $ff;level 6-2E_GroundArea4:.db $0e, $c2, $a8, $ab, $00, $bb, $8e, $6b, $82, $de, $00, $a0.db $33, $86, $43, $06, $3e, $b4, $a0, $cb, $02, $0f, $07.db $7e, $42, $a6, $83, $02, $0f, $0a, $3b, $02, $cb, $37.db $0f, $0c, $e3, $0e.db $ff;level 3-1E_GroundArea5:.db $9b, $8e, $ca, $0e, $ee, $42, $44, $5b, $86, $80, $b8.db $1b, $80, $50, $ba, $10, $b7, $5b, $00, $17, $85.db $4b, $05, $fe, $34, $40, $b7, $86, $c6, $06, $5b, $80.db $83, $00, $d0, $38, $5b, $8e, $8a, $0e, $a6, $00.db $bb, $0e, $c5, $80, $f3, $00.db $ff;level 1-1E_GroundArea6:.db $1e, $c2, $00, $6b, $06, $8b, $86, $63, $b7, $0f, $05.db $03, $06, $23, $06, $4b, $b7, $bb, $00, $5b, $b7.db $fb, $37, $3b, $b7, $0f, $0b, $1b, $37.db $ff;level 1-3/5-3E_GroundArea7:.db $2b, $d7, $e3, $03, $c2, $86, $e2, $06, $76, $a5.db $a3, $8f, $03, $86, $2b, $57, $68, $28, $e9, $28.db $e5, $83, $24, $8f, $36, $a8, $5b, $03.db $ff;level 2-3/7-3E_GroundArea8:.db $0f, $02, $78, $40, $48, $ce, $f8, $c3, $f8, $c3.db $0f, $07, $7b, $43, $c6, $d0, $0f, $8a, $c8, $50.db $ff;level 2-1E_GroundArea9:.db $85, $86, $0b, $80, $1b, $00, $db, $37, $77, $80.db $eb, $37, $fe, $2b, $20, $2b, $80, $7b, $38, $ab, $b8.db $77, $86, $fe, $42, $20, $49, $86, $8b, $06, $9b, $80.db $7b, $8e, $5b, $b7, $9b, $0e, $bb, $0e, $9b, $80;end of data terminator here is also used by pipe intro areaE_GroundArea10:.db $ff;level 5-1E_GroundArea11:.db $0b, $80, $60, $38, $10, $b8, $c0, $3b, $db, $8e.db $40, $b8, $f0, $38, $7b, $8e, $a0, $b8, $c0, $b8.db $fb, $00, $a0, $b8, $30, $bb, $ee, $42, $88, $0f, $0b.db $2b, $0e, $67, $0e.db $ff;cloud level used in levels 2-1 and 5-2E_GroundArea12:.db $0a, $aa, $0e, $28, $2a, $0e, $31, $88.db $ff;level 4-3E_GroundArea13:.db $c7, $83, $d7, $03, $42, $8f, $7a, $03, $05, $a4.db $78, $24, $a6, $25, $e4, $25, $4b, $83, $e3, $03.db $05, $a4, $89, $24, $b5, $24, $09, $a4, $65, $24.db $c9, $24, $0f, $08, $85, $25.db $ff;level 6-3E_GroundArea14:.db $cd, $a5, $b5, $a8, $07, $a8, $76, $28, $cc, $25.db $65, $a4, $a9, $24, $e5, $24, $19, $a4, $0f, $07.db $95, $28, $e6, $24, $19, $a4, $d7, $29, $16, $a9.db $58, $29, $97, $29.db $ff;level 6-1E_GroundArea15:.db $0f, $02, $02, $11, $0f, $07, $02, $11.db $ff;warp zone area used in level 4-2E_GroundArea16:.db $ff;level 8-1E_GroundArea17:.db $2b, $82, $ab, $38, $de, $42, $e2, $1b, $b8, $eb.db $3b, $db, $80, $8b, $b8, $1b, $82, $fb, $b8, $7b.db $80, $fb, $3c, $5b, $bc, $7b, $b8, $1b, $8e, $cb.db $0e, $1b, $8e, $0f, $0d, $2b, $3b, $bb, $b8, $eb, $82.db $4b, $b8, $bb, $38, $3b, $b7, $bb, $02, $0f, $13.db $1b, $00, $cb, $80, $6b, $bc.db $ff;level 5-2E_GroundArea18:.db $7b, $80, $ae, $00, $80, $8b, $8e, $e8, $05, $f9, $86.db $17, $86, $16, $85, $4e, $2b, $80, $ab, $8e, $87, $85.db $c3, $05, $8b, $82, $9b, $02, $ab, $02, $bb, $86.db $cb, $06, $d3, $03, $3b, $8e, $6b, $0e, $a7, $8e.db $ff;level 8-2E_GroundArea19:.db $29, $8e, $52, $11, $83, $0e, $0f, $03, $9b, $0e.db $2b, $8e, $5b, $0e, $cb, $8e, $fb, $0e, $fb, $82.db $9b, $82, $bb, $02, $fe, $42, $e8, $bb, $8e, $0f, $0a.db $ab, $0e, $cb, $0e, $f9, $0e, $88, $86, $a6, $06.db $db, $02, $b6, $8e.db $ff;level 7-1E_GroundArea20:.db $ab, $ce, $de, $42, $c0, $cb, $ce, $5b, $8e, $1b, $ce.db $4b, $85, $67, $45, $0f, $07, $2b, $00, $7b, $85.db $97, $05, $0f, $0a, $92, $02.db $ff;cloud level used in levels 3-1 and 6-2E_GroundArea21:.db $0a, $aa, $0e, $24, $4a, $1e, $23, $aa.db $ff;level 3-2E_GroundArea22:.db $1b, $80, $bb, $38, $4b, $bc, $eb, $3b, $0f, $04.db $2b, $00, $ab, $38, $eb, $00, $cb, $8e, $fb, $80.db $ab, $b8, $6b, $80, $fb, $3c, $9b, $bb, $5b, $bc.db $fb, $00, $6b, $b8, $fb, $38.db $ff;level 1-2E_UndergroundArea1:.db $0b, $86, $1a, $06, $db, $06, $de, $c2, $02, $f0, $3b.db $bb, $80, $eb, $06, $0b, $86, $93, $06, $f0, $39.db $0f, $06, $60, $b8, $1b, $86, $a0, $b9, $b7, $27.db $bd, $27, $2b, $83, $a1, $26, $a9, $26, $ee, $25, $0b.db $27, $b4.db $ff;level 4-2E_UndergroundArea2:.db $0f, $02, $1e, $2f, $60, $e0, $3a, $a5, $a7, $db, $80.db $3b, $82, $8b, $02, $fe, $42, $68, $70, $bb, $25, $a7.db $2c, $27, $b2, $26, $b9, $26, $9b, $80, $a8, $82.db $b5, $27, $bc, $27, $b0, $bb, $3b, $82, $87, $34.db $ee, $25, $6b.db $ff;underground bonus rooms area used in many levelsE_UndergroundArea3:.db $1e, $a5, $0a, $2e, $28, $27, $2e, $33, $c7, $0f, $03, $1e, $40, $07.db $2e, $30, $e7, $0f, $05, $1e, $24, $44, $0f, $07, $1e, $22, $6a.db $2e, $23, $ab, $0f, $09, $1e, $41, $68, $1e, $2a, $8a, $2e, $23, $a2.db $2e, $32, $ea.db $ff;water area used in levels 5-2 and 6-2E_WaterArea1:.db $3b, $87, $66, $27, $cc, $27, $ee, $31, $87, $ee, $23, $a7.db $3b, $87, $db, $07.db $ff;level 2-2/7-2E_WaterArea2:.db $0f, $01, $2e, $25, $2b, $2e, $25, $4b, $4e, $25, $cb, $6b, $07.db $97, $47, $e9, $87, $47, $c7, $7a, $07, $d6, $c7.db $78, $07, $38, $87, $ab, $47, $e3, $07, $9b, $87.db $0f, $09, $68, $47, $db, $c7, $3b, $c7.db $ff;water area used in level 8-4E_WaterArea3:.db $47, $9b, $cb, $07, $fa, $1d, $86, $9b, $3a, $87.db $56, $07, $88, $1b, $07, $9d, $2e, $65, $f0.db $ff;AREA OBJECT DATA;level 1-4/6-4L_CastleArea1:.db $9b, $07.db $05, $32, $06, $33, $07, $34, $ce, $03, $dc, $51.db $ee, $07, $73, $e0, $74, $0a, $7e, $06, $9e, $0a.db $ce, $06, $e4, $00, $e8, $0a, $fe, $0a, $2e, $89.db $4e, $0b, $54, $0a, $14, $8a, $c4, $0a, $34, $8a.db $7e, $06, $c7, $0a, $01, $e0, $02, $0a, $47, $0a.db $81, $60, $82, $0a, $c7, $0a, $0e, $87, $7e, $02.db $a7, $02, $b3, $02, $d7, $02, $e3, $02, $07, $82.db $13, $02, $3e, $06, $7e, $02, $ae, $07, $fe, $0a.db $0d, $c4, $cd, $43, $ce, $09, $de, $0b, $dd, $42.db $fe, $02, $5d, $c7.db $fd;level 4-4L_CastleArea2:.db $5b, $07.db $05, $32, $06, $33, $07, $34, $5e, $0a, $68, $64.db $98, $64, $a8, $64, $ce, $06, $fe, $02, $0d, $01.db $1e, $0e, $7e, $02, $94, $63, $b4, $63, $d4, $63.db $f4, $63, $14, $e3, $2e, $0e, $5e, $02, $64, $35.db $88, $72, $be, $0e, $0d, $04, $ae, $02, $ce, $08.db $cd, $4b, $fe, $02, $0d, $05, $68, $31, $7e, $0a.db $96, $31, $a9, $63, $a8, $33, $d5, $30, $ee, $02.db $e6, $62, $f4, $61, $04, $b1, $08, $3f, $44, $33.db $94, $63, $a4, $31, $e4, $31, $04, $bf, $08, $3f.db $04, $bf, $08, $3f, $cd, $4b, $03, $e4, $0e, $03.db $2e, $01, $7e, $06, $be, $02, $de, $06, $fe, $0a.db $0d, $c4, $cd, $43, $ce, $09, $de, $0b, $dd, $42.db $fe, $02, $5d, $c7.db $fd;level 2-4/5-4L_CastleArea3:.db $9b, $07.db $05, $32, $06, $33, $07, $34, $fe, $00, $27, $b1.db $65, $32, $75, $0a, $71, $00, $b7, $31, $08, $e4.db $18, $64, $1e, $04, $57, $3b, $bb, $0a, $17, $8a.db $27, $3a, $73, $0a, $7b, $0a, $d7, $0a, $e7, $3a.db $3b, $8a, $97, $0a, $fe, $08, $24, $8a, $2e, $00.db $3e, $40, $38, $64, $6f, $00, $9f, $00, $be, $43.db $c8, $0a, $c9, $63, $ce, $07, $fe, $07, $2e, $81.db $66, $42, $6a, $42, $79, $0a, $be, $00, $c8, $64.db $f8, $64, $08, $e4, $2e, $07, $7e, $03, $9e, $07.db $be, $03, $de, $07, $fe, $0a, $03, $a5, $0d, $44.db $cd, $43, $ce, $09, $dd, $42, $de, $0b, $fe, $02.db $5d, $c7.db $fd;level 3-4L_CastleArea4:.db $9b, $07.db $05, $32, $06, $33, $07, $34, $fe, $06, $0c, $81.db $39, $0a, $5c, $01, $89, $0a, $ac, $01, $d9, $0a.db $fc, $01, $2e, $83, $a7, $01, $b7, $00, $c7, $01.db $de, $0a, $fe, $02, $4e, $83, $5a, $32, $63, $0a.db $69, $0a, $7e, $02, $ee, $03, $fa, $32, $03, $8a.db $09, $0a, $1e, $02, $ee, $03, $fa, $32, $03, $8a.db $09, $0a, $14, $42, $1e, $02, $7e, $0a, $9e, $07.db $fe, $0a, $2e, $86, $5e, $0a, $8e, $06, $be, $0a.db $ee, $07, $3e, $83, $5e, $07, $fe, $0a, $0d, $c4.db $41, $52, $51, $52, $cd, $43, $ce, $09, $de, $0b.db $dd, $42, $fe, $02, $5d, $c7.db $fd;level 7-4L_CastleArea5:.db $5b, $07.db $05, $32, $06, $33, $07, $34, $fe, $0a, $ae, $86.db $be, $07, $fe, $02, $0d, $02, $27, $32, $46, $61.db $55, $62, $5e, $0e, $1e, $82, $68, $3c, $74, $3a.db $7d, $4b, $5e, $8e, $7d, $4b, $7e, $82, $84, $62.db $94, $61, $a4, $31, $bd, $4b, $ce, $06, $fe, $02.db $0d, $06, $34, $31, $3e, $0a, $64, $32, $75, $0a.db $7b, $61, $a4, $33, $ae, $02, $de, $0e, $3e, $82.db $64, $32, $78, $32, $b4, $36, $c8, $36, $dd, $4b.db $44, $b2, $58, $32, $94, $63, $a4, $3e, $ba, $30.db $c9, $61, $ce, $06, $dd, $4b, $ce, $86, $dd, $4b.db $fe, $02, $2e, $86, $5e, $02, $7e, $06, $fe, $02.db $1e, $86, $3e, $02, $5e, $06, $7e, $02, $9e, $06.db $fe, $0a, $0d, $c4, $cd, $43, $ce, $09, $de, $0b.db $dd, $42, $fe, $02, $5d, $c7.db $fd;level 8-4L_CastleArea6:.db $5b, $06.db $05, $32, $06, $33, $07, $34, $5e, $0a, $ae, $02.db $0d, $01, $39, $73, $0d, $03, $39, $7b, $4d, $4b.db $de, $06, $1e, $8a, $ae, $06, $c4, $33, $16, $fe.db $a5, $77, $fe, $02, $fe, $82, $0d, $07, $39, $73.db $a8, $74, $ed, $4b, $49, $fb, $e8, $74, $fe, $0a.db $2e, $82, $67, $02, $84, $7a, $87, $31, $0d, $0b.db $fe, $02, $0d, $0c, $39, $73, $5e, $06, $c6, $76.db $45, $ff, $be, $0a, $dd, $48, $fe, $06, $3d, $cb.db $46, $7e, $ad, $4a, $fe, $82, $39, $f3, $a9, $7b.db $4e, $8a, $9e, $07, $fe, $0a, $0d, $c4, $cd, $43.db $ce, $09, $de, $0b, $dd, $42, $fe, $02, $5d, $c7.db $fd;level 3-3L_GroundArea1:.db $94, $11.db $0f, $26, $fe, $10, $28, $94, $65, $15, $eb, $12.db $fa, $41, $4a, $96, $54, $40, $a4, $42, $b7, $13.db $e9, $19, $f5, $15, $11, $80, $47, $42, $71, $13.db $80, $41, $15, $92, $1b, $1f, $24, $40, $55, $12.db $64, $40, $95, $12, $a4, $40, $d2, $12, $e1, $40.db $13, $c0, $2c, $17, $2f, $12, $49, $13, $83, $40.db $9f, $14, $a3, $40, $17, $92, $83, $13, $92, $41.db $b9, $14, $c5, $12, $c8, $40, $d4, $40, $4b, $92.db $78, $1b, $9c, $94, $9f, $11, $df, $14, $fe, $11.db $7d, $c1, $9e, $42, $cf, $20.db $fd;level 8-3L_GroundArea2:.db $90, $b1.db $0f, $26, $29, $91, $7e, $42, $fe, $40, $28, $92.db $4e, $42, $2e, $c0, $57, $73, $c3, $25, $c7, $27.db $23, $84, $33, $20, $5c, $01, $77, $63, $88, $62.db $99, $61, $aa, $60, $bc, $01, $ee, $42, $4e, $c0.db $69, $11, $7e, $42, $de, $40, $f8, $62, $0e, $c2.db $ae, $40, $d7, $63, $e7, $63, $33, $a7, $37, $27.db $43, $04, $cc, $01, $e7, $73, $0c, $81, $3e, $42.db $0d, $0a, $5e, $40, $88, $72, $be, $42, $e7, $87.db $fe, $40, $39, $e1, $4e, $00, $69, $60, $87, $60.db $a5, $60, $c3, $31, $fe, $31, $6d, $c1, $be, $42.db $ef, $20.db $fd;level 4-1L_GroundArea3:.db $52, $21.db $0f, $20, $6e, $40, $58, $f2, $93, $01, $97, $00.db $0c, $81, $97, $40, $a6, $41, $c7, $40, $0d, $04.db $03, $01, $07, $01, $23, $01, $27, $01, $ec, $03.db $ac, $f3, $c3, $03, $78, $e2, $94, $43, $47, $f3.db $74, $43, $47, $fb, $74, $43, $2c, $f1, $4c, $63.db $47, $00, $57, $21, $5c, $01, $7c, $72, $39, $f1.db $ec, $02, $4c, $81, $d8, $62, $ec, $01, $0d, $0d.db $0f, $38, $c7, $07, $ed, $4a, $1d, $c1, $5f, $26.db $fd;level 6-2L_GroundArea4:.db $54, $21.db $0f, $26, $a7, $22, $37, $fb, $73, $20, $83, $07.db $87, $02, $93, $20, $c7, $73, $04, $f1, $06, $31.db $39, $71, $59, $71, $e7, $73, $37, $a0, $47, $04.db $86, $7c, $e5, $71, $e7, $31, $33, $a4, $39, $71.db $a9, $71, $d3, $23, $08, $f2, $13, $05, $27, $02.db $49, $71, $75, $75, $e8, $72, $67, $f3, $99, $71.db $e7, $20, $f4, $72, $f7, $31, $17, $a0, $33, $20.db $39, $71, $73, $28, $bc, $05, $39, $f1, $79, $71.db $a6, $21, $c3, $06, $d3, $20, $dc, $00, $fc, $00.db $07, $a2, $13, $21, $5f, $32, $8c, $00, $98, $7a.db $c7, $63, $d9, $61, $03, $a2, $07, $22, $74, $72.db $77, $31, $e7, $73, $39, $f1, $58, $72, $77, $73.db $d8, $72, $7f, $b1, $97, $73, $b6, $64, $c5, $65.db $d4, $66, $e3, $67, $f3, $67, $8d, $c1, $cf, $26.db $fd;level 3-1L_GroundArea5:.db $52, $31.db $0f, $20, $6e, $66, $07, $81, $36, $01, $66, $00.db $a7, $22, $08, $f2, $67, $7b, $dc, $02, $98, $f2.db $d7, $20, $39, $f1, $9f, $33, $dc, $27, $dc, $57.db $23, $83, $57, $63, $6c, $51, $87, $63, $99, $61.db $a3, $06, $b3, $21, $77, $f3, $f3, $21, $f7, $2a.db $13, $81, $23, $22, $53, $00, $63, $22, $e9, $0b.db $0c, $83, $13, $21, $16, $22, $33, $05, $8f, $35.db $ec, $01, $63, $a0, $67, $20, $73, $01, $77, $01.db $83, $20, $87, $20, $b3, $20, $b7, $20, $c3, $01.db $c7, $00, $d3, $20, $d7, $20, $67, $a0, $77, $07.db $87, $22, $e8, $62, $f5, $65, $1c, $82, $7f, $38.db $8d, $c1, $cf, $26.db $fd;level 1-1L_GroundArea6:.db $50, $21.db $07, $81, $47, $24, $57, $00, $63, $01, $77, $01.db $c9, $71, $68, $f2, $e7, $73, $97, $fb, $06, $83.db $5c, $01, $d7, $22, $e7, $00, $03, $a7, $6c, $02.db $b3, $22, $e3, $01, $e7, $07, $47, $a0, $57, $06.db $a7, $01, $d3, $00, $d7, $01, $07, $81, $67, $20.db $93, $22, $03, $a3, $1c, $61, $17, $21, $6f, $33.db $c7, $63, $d8, $62, $e9, $61, $fa, $60, $4f, $b3.db $87, $63, $9c, $01, $b7, $63, $c8, $62, $d9, $61.db $ea, $60, $39, $f1, $87, $21, $a7, $01, $b7, $20.db $39, $f1, $5f, $38, $6d, $c1, $af, $26.db $fd;level 1-3/5-3L_GroundArea7:.db $90, $11.db $0f, $26, $fe, $10, $2a, $93, $87, $17, $a3, $14.db $b2, $42, $0a, $92, $19, $40, $36, $14, $50, $41.db $82, $16, $2b, $93, $24, $41, $bb, $14, $b8, $00.db $c2, $43, $c3, $13, $1b, $94, $67, $12, $c4, $15.db $53, $c1, $d2, $41, $12, $c1, $29, $13, $85, $17.db $1b, $92, $1a, $42, $47, $13, $83, $41, $a7, $13.db $0e, $91, $a7, $63, $b7, $63, $c5, $65, $d5, $65.db $dd, $4a, $e3, $67, $f3, $67, $8d, $c1, $ae, $42.db $df, $20.db $fd;level 2-3/7-3L_GroundArea8:.db $90, $11.db $0f, $26, $6e, $10, $8b, $17, $af, $32, $d8, $62.db $e8, $62, $fc, $3f, $ad, $c8, $f8, $64, $0c, $be.db $43, $43, $f8, $64, $0c, $bf, $73, $40, $84, $40.db $93, $40, $a4, $40, $b3, $40, $f8, $64, $48, $e4.db $5c, $39, $83, $40, $92, $41, $b3, $40, $f8, $64.db $48, $e4, $5c, $39, $f8, $64, $13, $c2, $37, $65.db $4c, $24, $63, $00, $97, $65, $c3, $42, $0b, $97.db $ac, $32, $f8, $64, $0c, $be, $53, $45, $9d, $48.db $f8, $64, $2a, $e2, $3c, $47, $56, $43, $ba, $62.db $f8, $64, $0c, $b7, $88, $64, $bc, $31, $d4, $45.db $fc, $31, $3c, $b1, $78, $64, $8c, $38, $0b, $9c.db $1a, $33, $18, $61, $28, $61, $39, $60, $5d, $4a.db $ee, $11, $0f, $b8, $1d, $c1, $3e, $42, $6f, $20.db $fd;level 2-1L_GroundArea9:.db $52, $31.db $0f, $20, $6e, $40, $f7, $20, $07, $84, $17, $20.db $4f, $34, $c3, $03, $c7, $02, $d3, $22, $27, $e3.db $39, $61, $e7, $73, $5c, $e4, $57, $00, $6c, $73.db $47, $a0, $53, $06, $63, $22, $a7, $73, $fc, $73.db $13, $a1, $33, $05, $43, $21, $5c, $72, $c3, $23.db $cc, $03, $77, $fb, $ac, $02, $39, $f1, $a7, $73.db $d3, $04, $e8, $72, $e3, $22, $26, $f4, $bc, $02.db $8c, $81, $a8, $62, $17, $87, $43, $24, $a7, $01.db $c3, $04, $08, $f2, $97, $21, $a3, $02, $c9, $0b.db $e1, $69, $f1, $69, $8d, $c1, $cf, $26.db $fd;pipe intro areaL_GroundArea10:.db $38, $11.db $0f, $26, $ad, $40, $3d, $c7.db $fd;level 5-1L_GroundArea11:.db $95, $b1.db $0f, $26, $0d, $02, $c8, $72, $1c, $81, $38, $72.db $0d, $05, $97, $34, $98, $62, $a3, $20, $b3, $06.db $c3, $20, $cc, $03, $f9, $91, $2c, $81, $48, $62.db $0d, $09, $37, $63, $47, $03, $57, $21, $8c, $02.db $c5, $79, $c7, $31, $f9, $11, $39, $f1, $a9, $11.db $6f, $b4, $d3, $65, $e3, $65, $7d, $c1, $bf, $26.db $fd;cloud level used in levels 2-1 and 5-2L_GroundArea12:.db $00, $c1.db $4c, $00, $f4, $4f, $0d, $02, $02, $42, $43, $4f.db $52, $c2, $de, $00, $5a, $c2, $4d, $c7.db $fd;level 4-3L_GroundArea13:.db $90, $51.db $0f, $26, $ee, $10, $0b, $94, $33, $14, $42, $42.db $77, $16, $86, $44, $02, $92, $4a, $16, $69, $42.db $73, $14, $b0, $00, $c7, $12, $05, $c0, $1c, $17.db $1f, $11, $36, $12, $8f, $14, $91, $40, $1b, $94.db $35, $12, $34, $42, $60, $42, $61, $12, $87, $12.db $96, $40, $a3, $14, $1c, $98, $1f, $11, $47, $12.db $9f, $15, $cc, $15, $cf, $11, $05, $c0, $1f, $15.db $39, $12, $7c, $16, $7f, $11, $82, $40, $98, $12.db $df, $15, $16, $c4, $17, $14, $54, $12, $9b, $16.db $28, $94, $ce, $01, $3d, $c1, $5e, $42, $8f, $20.db $fd;level 6-3L_GroundArea14:.db $97, $11.db $0f, $26, $fe, $10, $2b, $92, $57, $12, $8b, $12.db $c0, $41, $f7, $13, $5b, $92, $69, $0b, $bb, $12.db $b2, $46, $19, $93, $71, $00, $17, $94, $7c, $14.db $7f, $11, $93, $41, $bf, $15, $fc, $13, $ff, $11.db $2f, $95, $50, $42, $51, $12, $58, $14, $a6, $12.db $db, $12, $1b, $93, $46, $43, $7b, $12, $8d, $49.db $b7, $14, $1b, $94, $49, $0b, $bb, $12, $fc, $13.db $ff, $12, $03, $c1, $2f, $15, $43, $12, $4b, $13.db $77, $13, $9d, $4a, $15, $c1, $a1, $41, $c3, $12.db $fe, $01, $7d, $c1, $9e, $42, $cf, $20.db $fd;level 6-1L_GroundArea15:.db $52, $21.db $0f, $20, $6e, $44, $0c, $f1, $4c, $01, $aa, $35.db $d9, $34, $ee, $20, $08, $b3, $37, $32, $43, $04.db $4e, $21, $53, $20, $7c, $01, $97, $21, $b7, $07.db $9c, $81, $e7, $42, $5f, $b3, $97, $63, $ac, $02.db $c5, $41, $49, $e0, $58, $61, $76, $64, $85, $65.db $94, $66, $a4, $22, $a6, $03, $c8, $22, $dc, $02.db $68, $f2, $96, $42, $13, $82, $17, $02, $af, $34.db $f6, $21, $fc, $06, $26, $80, $2a, $24, $36, $01.db $8c, $00, $ff, $35, $4e, $a0, $55, $21, $77, $20.db $87, $07, $89, $22, $ae, $21, $4c, $82, $9f, $34.db $ec, $01, $03, $e7, $13, $67, $8d, $4a, $ad, $41.db $0f, $a6.db $fd;warp zone area used in level 4-2L_GroundArea16:.db $10, $51.db $4c, $00, $c7, $12, $c6, $42, $03, $92, $02, $42.db $29, $12, $63, $12, $62, $42, $69, $14, $a5, $12.db $a4, $42, $e2, $14, $e1, $44, $f8, $16, $37, $c1.db $8f, $38, $02, $bb, $28, $7a, $68, $7a, $a8, $7a.db $e0, $6a, $f0, $6a, $6d, $c5.db $fd;level 8-1L_GroundArea17:.db $92, $31.db $0f, $20, $6e, $40, $0d, $02, $37, $73, $ec, $00.db $0c, $80, $3c, $00, $6c, $00, $9c, $00, $06, $c0.db $c7, $73, $06, $83, $28, $72, $96, $40, $e7, $73.db $26, $c0, $87, $7b, $d2, $41, $39, $f1, $c8, $f2.db $97, $e3, $a3, $23, $e7, $02, $e3, $07, $f3, $22.db $37, $e3, $9c, $00, $bc, $00, $ec, $00, $0c, $80.db $3c, $00, $86, $21, $a6, $06, $b6, $24, $5c, $80.db $7c, $00, $9c, $00, $29, $e1, $dc, $05, $f6, $41.db $dc, $80, $e8, $72, $0c, $81, $27, $73, $4c, $01.db $66, $74, $0d, $11, $3f, $35, $b6, $41, $2c, $82.db $36, $40, $7c, $02, $86, $40, $f9, $61, $39, $e1.db $ac, $04, $c6, $41, $0c, $83, $16, $41, $88, $f2.db $39, $f1, $7c, $00, $89, $61, $9c, $00, $a7, $63.db $bc, $00, $c5, $65, $dc, $00, $e3, $67, $f3, $67.db $8d, $c1, $cf, $26.db $fd;level 5-2L_GroundArea18:.db $55, $b1.db $0f, $26, $cf, $33, $07, $b2, $15, $11, $52, $42.db $99, $0b, $ac, $02, $d3, $24, $d6, $42, $d7, $25.db $23, $84, $cf, $33, $07, $e3, $19, $61, $78, $7a.db $ef, $33, $2c, $81, $46, $64, $55, $65, $65, $65.db $ec, $74, $47, $82, $53, $05, $63, $21, $62, $41.db $96, $22, $9a, $41, $cc, $03, $b9, $91, $39, $f1.db $63, $26, $67, $27, $d3, $06, $fc, $01, $18, $e2.db $d9, $07, $e9, $04, $0c, $86, $37, $22, $93, $24.db $87, $84, $ac, $02, $c2, $41, $c3, $23, $d9, $71.db $fc, $01, $7f, $b1, $9c, $00, $a7, $63, $b6, $64.db $cc, $00, $d4, $66, $e3, $67, $f3, $67, $8d, $c1.db $cf, $26.db $fd;level 8-2L_GroundArea19:.db $50, $b1.db $0f, $26, $fc, $00, $1f, $b3, $5c, $00, $65, $65.db $74, $66, $83, $67, $93, $67, $dc, $73, $4c, $80.db $b3, $20, $c9, $0b, $c3, $08, $d3, $2f, $dc, $00.db $2c, $80, $4c, $00, $8c, $00, $d3, $2e, $ed, $4a.db $fc, $00, $d7, $a1, $ec, $01, $4c, $80, $59, $11.db $d8, $11, $da, $10, $37, $a0, $47, $04, $99, $11.db $e7, $21, $3a, $90, $67, $20, $76, $10, $77, $60.db $87, $07, $d8, $12, $39, $f1, $ac, $00, $e9, $71.db $0c, $80, $2c, $00, $4c, $05, $c7, $7b, $39, $f1.db $ec, $00, $f9, $11, $0c, $82, $6f, $34, $f8, $11.db $fa, $10, $7f, $b2, $ac, $00, $b6, $64, $cc, $01.db $e3, $67, $f3, $67, $8d, $c1, $cf, $26.db $fd;level 7-1L_GroundArea20:.db $52, $b1.db $0f, $20, $6e, $45, $39, $91, $b3, $04, $c3, $21.db $c8, $11, $ca, $10, $49, $91, $7c, $73, $e8, $12.db $88, $91, $8a, $10, $e7, $21, $05, $91, $07, $30.db $17, $07, $27, $20, $49, $11, $9c, $01, $c8, $72.db $23, $a6, $27, $26, $d3, $03, $d8, $7a, $89, $91.db $d8, $72, $39, $f1, $a9, $11, $09, $f1, $63, $24.db $67, $24, $d8, $62, $28, $91, $2a, $10, $56, $21.db $70, $04, $79, $0b, $8c, $00, $94, $21, $9f, $35.db $2f, $b8, $3d, $c1, $7f, $26.db $fd;cloud level used in levels 3-1 and 6-2L_GroundArea21:.db $06, $c1.db $4c, $00, $f4, $4f, $0d, $02, $06, $20, $24, $4f.db $35, $a0, $36, $20, $53, $46, $d5, $20, $d6, $20.db $34, $a1, $73, $49, $74, $20, $94, $20, $b4, $20.db $d4, $20, $f4, $20, $2e, $80, $59, $42, $4d, $c7.db $fd;level 3-2L_GroundArea22:.db $96, $31.db $0f, $26, $0d, $03, $1a, $60, $77, $42, $c4, $00.db $c8, $62, $b9, $e1, $d3, $06, $d7, $07, $f9, $61.db $0c, $81, $4e, $b1, $8e, $b1, $bc, $01, $e4, $50.db $e9, $61, $0c, $81, $0d, $0a, $84, $43, $98, $72.db $0d, $0c, $0f, $38, $1d, $c1, $5f, $26.db $fd;level 1-2L_UndergroundArea1:.db $48, $0f.db $0e, $01, $5e, $02, $a7, $00, $bc, $73, $1a, $e0.db $39, $61, $58, $62, $77, $63, $97, $63, $b8, $62.db $d6, $07, $f8, $62, $19, $e1, $75, $52, $86, $40.db $87, $50, $95, $52, $93, $43, $a5, $21, $c5, $52.db $d6, $40, $d7, $20, $e5, $06, $e6, $51, $3e, $8d.db $5e, $03, $67, $52, $77, $52, $7e, $02, $9e, $03.db $a6, $43, $a7, $23, $de, $05, $fe, $02, $1e, $83.db $33, $54, $46, $40, $47, $21, $56, $04, $5e, $02.db $83, $54, $93, $52, $96, $07, $97, $50, $be, $03.db $c7, $23, $fe, $02, $0c, $82, $43, $45, $45, $24.db $46, $24, $90, $08, $95, $51, $78, $fa, $d7, $73.db $39, $f1, $8c, $01, $a8, $52, $b8, $52, $cc, $01.db $5f, $b3, $97, $63, $9e, $00, $0e, $81, $16, $24.db $66, $04, $8e, $00, $fe, $01, $08, $d2, $0e, $06.db $6f, $47, $9e, $0f, $0e, $82, $2d, $47, $28, $7a.db $68, $7a, $a8, $7a, $ae, $01, $de, $0f, $6d, $c5.db $fd;level 4-2L_UndergroundArea2:.db $48, $0f.db $0e, $01, $5e, $02, $bc, $01, $fc, $01, $2c, $82.db $41, $52, $4e, $04, $67, $25, $68, $24, $69, $24.db $ba, $42, $c7, $04, $de, $0b, $b2, $87, $fe, $02.db $2c, $e1, $2c, $71, $67, $01, $77, $00, $87, $01.db $8e, $00, $ee, $01, $f6, $02, $03, $85, $05, $02.db $13, $21, $16, $02, $27, $02, $2e, $02, $88, $72.db $c7, $20, $d7, $07, $e4, $76, $07, $a0, $17, $06.db $48, $7a, $76, $20, $98, $72, $79, $e1, $88, $62.db $9c, $01, $b7, $73, $dc, $01, $f8, $62, $fe, $01.db $08, $e2, $0e, $00, $6e, $02, $73, $20, $77, $23.db $83, $04, $93, $20, $ae, $00, $fe, $0a, $0e, $82.db $39, $71, $a8, $72, $e7, $73, $0c, $81, $8f, $32.db $ae, $00, $fe, $04, $04, $d1, $17, $04, $26, $49.db $27, $29, $df, $33, $fe, $02, $44, $f6, $7c, $01.db $8e, $06, $bf, $47, $ee, $0f, $4d, $c7, $0e, $82.db $68, $7a, $ae, $01, $de, $0f, $6d, $c5.db $fd;underground bonus rooms area used in many levelsL_UndergroundArea3:.db $48, $01.db $0e, $01, $00, $5a, $3e, $06, $45, $46, $47, $46.db $53, $44, $ae, $01, $df, $4a, $4d, $c7, $0e, $81.db $00, $5a, $2e, $04, $37, $28, $3a, $48, $46, $47.db $c7, $07, $ce, $0f, $df, $4a, $4d, $c7, $0e, $81.db $00, $5a, $33, $53, $43, $51, $46, $40, $47, $50.db $53, $04, $55, $40, $56, $50, $62, $43, $64, $40.db $65, $50, $71, $41, $73, $51, $83, $51, $94, $40.db $95, $50, $a3, $50, $a5, $40, $a6, $50, $b3, $51.db $b6, $40, $b7, $50, $c3, $53, $df, $4a, $4d, $c7.db $0e, $81, $00, $5a, $2e, $02, $36, $47, $37, $52.db $3a, $49, $47, $25, $a7, $52, $d7, $04, $df, $4a.db $4d, $c7, $0e, $81, $00, $5a, $3e, $02, $44, $51.db $53, $44, $54, $44, $55, $24, $a1, $54, $ae, $01.db $b4, $21, $df, $4a, $e5, $07, $4d, $c7.db $fd;water area used in levels 5-2 and 6-2L_WaterArea1:.db $41, $01.db $b4, $34, $c8, $52, $f2, $51, $47, $d3, $6c, $03.db $65, $49, $9e, $07, $be, $01, $cc, $03, $fe, $07.db $0d, $c9, $1e, $01, $6c, $01, $62, $35, $63, $53.db $8a, $41, $ac, $01, $b3, $53, $e9, $51, $26, $c3.db $27, $33, $63, $43, $64, $33, $ba, $60, $c9, $61.db $ce, $0b, $e5, $09, $ee, $0f, $7d, $ca, $7d, $47.db $fd;level 2-2/7-2L_WaterArea2:.db $41, $01.db $b8, $52, $ea, $41, $27, $b2, $b3, $42, $16, $d4.db $4a, $42, $a5, $51, $a7, $31, $27, $d3, $08, $e2.db $16, $64, $2c, $04, $38, $42, $76, $64, $88, $62.db $de, $07, $fe, $01, $0d, $c9, $23, $32, $31, $51.db $98, $52, $0d, $c9, $59, $42, $63, $53, $67, $31.db $14, $c2, $36, $31, $87, $53, $17, $e3, $29, $61.db $30, $62, $3c, $08, $42, $37, $59, $40, $6a, $42.db $99, $40, $c9, $61, $d7, $63, $39, $d1, $58, $52.db $c3, $67, $d3, $31, $dc, $06, $f7, $42, $fa, $42.db $23, $b1, $43, $67, $c3, $34, $c7, $34, $d1, $51.db $43, $b3, $47, $33, $9a, $30, $a9, $61, $b8, $62.db $be, $0b, $d5, $09, $de, $0f, $0d, $ca, $7d, $47.db $fd;water area used in level 8-4L_WaterArea3:.db $49, $0f.db $1e, $01, $39, $73, $5e, $07, $ae, $0b, $1e, $82.db $6e, $88, $9e, $02, $0d, $04, $2e, $0b, $45, $09.db $4e, $0f, $ed, $47.db $fd;-------------------------------------------------------------------------------------if Z80==0;unused space.db $ffendif;-------------------------------------------------------------------------------------;indirect jump routine called when;$0770 is set to 1GameMode:lda OperMode_Taskjsr JumpEngine.dw InitializeArea.dw ScreenRoutines.dw SecondaryGameSetup.dw GameCoreRoutine;-------------------------------------------------------------------------------------GameCoreRoutine:ldx CurrentPlayer ;get which player is on the screenldax SavedJoypadBits,x ;use appropriate player's controller bits;or a;jr nz,$sta SavedJoypadBits ;as the master controller bitsjsr GameRoutines ;execute one of many possible subs ;9907t (3 Goomba + 2 юўъш + ╠рЁшю)lda OperMode_Task ;check major task of operating modecmpn ++$03 ;if we are supposed to be here,cmpcybcs GameEngine ;branch to the game engine itselfrtsGameEngine:jsr ProcFireball_Bubble ;process fireballs and air bubblesldxn ++$00ProcELoop: stx ObjectOffset ;put incremented offset in X as enemy object offsetjsr EnemiesAndLoopsCore ;process enemy objects ;8639+8388+9593+999+999+404t (3 Goomba + 2 юўъш + ╠рЁшю) ;<------------jsr FloateyNumbersRoutine ;process floatey numbers ;73+941+73+73+73+73t (3 Goomba + 2 юўъш + ╠рЁшю)inxcpxn ++$06 ;do these two subroutines until the whole buffer is donebne ProcELoopjsr GetPlayerOffscreenBits ;get offscreen bits for player object ;726t (3 Goomba + 2 юўъш + ╠рЁшю)jsr RelativePlayerPosition ;get relative coordinates for player object ;228t (3 Goomba + 2 юўъш + ╠рЁшю)if 0;Z80ld hl,(logicframe)dec lcall z,PlayerGfxHandler ;Єюы№ъю т яюёыхфэхь ърфЁх ыюушъш (эхяюёЁхфёЄтхээю яхЁхф юЄюсЁрцхэшхь) ;эх яюыєўрхЄё - юўхэ№ ьхфыхээю шф╕Є ьшурэшх яЁш ЁюёЄх ш єьхэ№°хэшшelsejsr PlayerGfxHandler ;draw the player ;3074t (3 Goomba + 2 юўъш + ╠рЁшю) ;<--------------endifjsr BlockObjMT_Updater ;replace block objects with metatiles if necessary ;250t (3 Goomba + 2 юўъш + ╠рЁшю)ldxn ++$01stx ObjectOffset ;set offset for secondjsr BlockObjectsCore ;process second block object ;101t (3 Goomba + 2 юўъш + ╠рЁшю)dexstx ObjectOffset ;set offset for firstjsr BlockObjectsCore ;process first block object ;101t (3 Goomba + 2 юўъш + ╠рЁшю)jsr MiscObjectsCore ;process misc objects (hammer, jumping coins) ;3249t (3 Goomba + 2 юўъш + ╠рЁшю) ;<---------------jsr ProcessCannons ;process bullet bill cannons ;431t (3 Goomba + 2 юўъш + ╠рЁшю)jsr ProcessWhirlpools ;process whirlpools ;58t (3 Goomba + 2 юўъш + ╠рЁшю)jsr FlagpoleRoutine ;process the flagpole ;96t (3 Goomba + 2 юўъш + ╠рЁшю)jsr RunGameTimer ;count down the game timer ;174t (3 Goomba + 2 юўъш + ╠рЁшю)jsr ColorRotation ;cycle one of the background colors ;57t (3 Goomba + 2 юўъш + ╠рЁшю)lda Player_Y_HighPoscmpn ++$02 ;if player is below the screen, don't bother with the musicbpl NoChgMuslda StarInvincibleTimer ;if star mario invincibility timer at zero,checkabeq ClrPlrPal ;skip this partcmpn ++$04bne NoChgMus ;if not yet at a certain point, continuelda IntervalTimerControl ;if interval timer not yet expired,checkabne NoChgMus ;branch ahead, don't bother with the musicjsr GetAreaMusic ;to re-attain appropriate level musicNoChgMus: ldy StarInvincibleTimer ;get invincibility timerlda FrameCounter ;get frame countercpyn ++$08 ;if timer still above certain point,cmpcybcs CycleTwo ;branch to cycle player's palette quicklylsr ;otherwise, divide by 8 to cycle every eighth framelsrCycleTwo: lsr ;if branched here, divide by 2 to cycle every other framejsr CyclePlayerPalette ;do sub to cycle the palette (note: shares fire flower code)jmp SaveAB ;then skip this sub to finish up the game engineClrPlrPal: jsr ResetPalStar ;do sub to clear player's palette bits in attributesSaveAB: lda A_B_Buttons ;save current A and B buttonsta PreviousA_B_Buttons ;into temp variable to be used on next frameldan ++$00sta Left_Right_Buttons ;nullify left and right buttons temp variableUpdScrollVar: lda VRAM_Buffer_AddrCtrlcmpn ++$06 ;if vram address controller set to 6 (one of two $0341s) (VRAM_Buffer2)beq ExitEng ;then branch to leavelda AreaParserTaskNum ;otherwise check number of taskscheckabne RunParserlda ScrollThirtyTwo ;get horizontal scroll in 0-31 or $00-$20 rangecmpn ++$20 ;check to see if exceeded $21bmi ExitEng ;branch to leave if notlda ScrollThirtyTwosbcn ++$20 ;otherwise subtract $20 to set appropriatelysta ScrollThirtyTwo ;and storeldan ++$00 ;reset vram buffer offset used in conjunction withsta VRAM_Buffer2_Offset ;level graphics buffer at $0341-$035fRunParser: jsr AreaParserTaskHandler ;update the name table with more level graphicsExitEng: rts ;and after all that, we're finally done!;-------------------------------------------------------------------------------------ScrollHandler:lda Player_X_Scroll ;load value saved hereclcadci Platform_X_Scroll ;add value used by left/right platformssta Player_X_Scroll ;save as new value here to impose force on scrolllda ScrollLock ;check scroll lock flagcheckabne InitScrlAmt ;skip a bunch of code here if setlda Player_Pos_ForScrollcmpn ++$50 ;check player's horizontal screen positioncmpcybcc InitScrlAmt ;if less than 80 pixels to the right, branchlda SideCollisionTimer ;if timer related to player's side collisioncheckabne InitScrlAmt ;not expired, branchldy Player_X_Scroll ;get value and decrement by onedey ;if value originally set to zero or otherwisebmi InitScrlAmt ;negative for left movement, branchinycpyn ++$02 ;if value $01, branch and do not decrementcmpcybcc ChkNearMiddey ;otherwise decrement by oneChkNearMid: lda Player_Pos_ForScrollcmpn ++$70 ;check player's horizontal screen positioncmpcybcc ScrollScreen ;if less than 112 pixels to the right, branchldy Player_X_Scroll ;otherwise get original value undecrementedScrollScreen:tyasta ScrollAmount ;save value hereclcadci ScrollThirtyTwo ;add to value already set heresta ScrollThirtyTwo ;save as new value heretyaclcadci ScreenLeft_X_Pos ;add to left side coordinatesta ScreenLeft_X_Pos ;save as new left side coordinatesta HorizontalScroll ;save here alsolda ScreenLeft_PageLocadcn ++$00 ;add carry to page location for leftsta ScreenLeft_PageLoc ;side of the screenandn ++$01 ;get LSB of page locationsta SCRATCHPAD+$00 ;save as temp variable for PPU register 1 mirrorlda Mirror_PPU_CTRL_REG1 ;get PPU register 1 mirrorandn ++%11111110 ;save all bits except d0orai SCRATCHPAD+$00 ;get saved bit here and save in PPU register 1sta Mirror_PPU_CTRL_REG1 ;mirror to be used to set name table laterjsr GetScreenPosition ;figure out where the right side isldan ++$08sta ScrollIntervalTimer ;set scroll timer (residual, not used elsewhere)jmp ChkPOffscr ;skip this partInitScrlAmt: ldan ++$00sta ScrollAmount ;initialize value hereChkPOffscr: ldxn ++$00 ;set X for player offsetjsr GetXOffscreenBits ;get horizontal offscreen bits for playersta SCRATCHPAD+$00 ;save them hereldyn ++$00 ;load default offset (left side)asl ;if d7 of offscreen bits are set, ;TODO >>4 т GetXOffscreenBitsbcs KeepOnscr ;branch with default offsetiny ;otherwise use different offset (right side)lda SCRATCHPAD+$00andn ++%00100000 ;check offscreen bits for d5 set ;TODO >>4 т GetXOffscreenBitsbeq InitPlatScrl ;if not set, branch ahead of this partKeepOnscr: lday ScreenEdge_X_Pos,y ;get left or right side coordinate based on offsetsecsubsbcy X_SubtracterData,y ;subtract amount based on offsetsta Player_X_Position ;store as player position to prevent movement furtherldaykeepcy ScreenEdge_PageLoc,y ;get left or right page location based on offsetsbcn ++$00 ;subtract borrowsta Player_PageLoc ;save as player's page locationlda Left_Right_Buttons ;check saved controller bitscmpy OffscrJoypadBitsData,y ;against bits based on offsetbeq InitPlatScrl ;if not equal, branchldan ++$00sta Player_X_Speed ;otherwise nullify horizontal speed of playerInitPlatScrl: ldan ++$00 ;nullify platform force imposed on scrollsta Platform_X_ScrollrtsX_SubtracterData:.db $00, $10OffscrJoypadBitsData:.db $01, $02;-------------------------------------------------------------------------------------GetScreenPosition:lda ScreenLeft_X_Pos ;get coordinate of screen's left boundaryclcadcn ++$ff ;add 255 pixelssta ScreenRight_X_Pos ;store as coordinate of screen's right boundarylda ScreenLeft_PageLoc ;get page number where left boundary isadcn ++$00 ;add carry from beforesta ScreenRight_PageLoc ;store as page number where right boundary isrts;-------------------------------------------------------------------------------------GameRoutines:lda GameEngineSubroutine ;run routine based on number (a few of these routines arejsr JumpEngine ;merely placeholders as conditions for other routines).dw Entrance_GameTimerSetup.dw Vine_AutoClimb.dw SideExitPipeEntry.dw VerticalPipeEntry.dw FlagpoleSlide.dw PlayerEndLevel.dw PlayerLoseLife.dw PlayerEntrance.dw PlayerCtrlRoutine.dw PlayerChangeSize.dw PlayerInjuryBlink.dw PlayerDeath.dw PlayerFireFlower;-------------------------------------------------------------------------------------PlayerEntrance:lda AltEntranceControl ;check for mode of alternate entrycmpn ++$02beq EntrMode2 ;if found, branch to enter from pipe or with vineldan ++$00ldy Player_Y_Position ;if vertical position above a certaincpyn ++$30 ;point, nullify controller bits and continuecmpcybcc AutoControlPlayer ;with player movement code, do not returnlda PlayerEntranceCtrl ;check player entry bits from headercmpn ++$06beq ChkBehPipe ;if set to 6 or 7, execute pipe intro codecmpn ++$07 ;otherwise branch to normal entrybne PlayerRdyChkBehPipe: lda Player_SprAttrib ;check for sprite attributescheckabne IntroEntr ;branch if foundldan ++$01jmp AutoControlPlayer ;force player to walk to the rightIntroEntr: jsr EnterSidePipe ;execute sub to move player to the rightdeci ChangeAreaTimer ;decrement timer for change of areabne ExitEntr ;branch to exit if not yet expiredinci DisableIntermediate ;set flag to skip world and lives displayjmp NextArea ;jump to increment to next area and set modesEntrMode2: lda JoypadOverride ;if controller override bits set here,checkabne VineEntr ;branch to enter with vineldan ++$ff ;otherwise, set value here then execute subjsr MovePlayerYAxis ;to move player upwards (note $ff = -1)lda Player_Y_Position ;check to see if player is at a specific coordinatecmpn ++$91 ;if player risen to a certain point (this requires pipescmpcybcc PlayerRdy ;to be at specific height to look/function right) branchrts ;to the last part, otherwise leaveVineEntr: lda VineHeightcmpn ++$60 ;check vine heightbne ExitEntr ;if vine not yet reached maximum height, branch to leavelda Player_Y_Position ;get player's vertical coordinatecmpn ++$99 ;check player's vertical coordinate against preset valuecmpcyldyn ++$00 ;load default values to be written toldan ++$01 ;this value moves player to the right off the vinebcc OffVine ;if vertical coordinate LOW preset value, use defaultsldan ++$03sta Player_State ;otherwise set player state to climbinginy ;increment value in Yldan ++$08 ;set block in block buffer to cover hole, thensta Block_Buffer_1+$b4 ;use same value to force player to climbOffVine: sty DisableCollisionDet ;set collision detection disable flagjsr AutoControlPlayer ;use contents of A to move player up or right, execute sublda Player_X_Positioncmpn ++$48 ;check player's horizontal positioncmpcybcc ExitEntr ;if not far enough to the right, branch to leavePlayerRdy: ldan ++$08 ;set routine to be executed by game engine next framesta GameEngineSubroutineldan ++$01 ;set to face player to the rightsta PlayerFacingDirlsr ;init Asta AltEntranceControl ;init mode of entrysta DisableCollisionDet ;init collision detection disable flagsta JoypadOverride ;nullify controller override bitsExitEntr: rts ;leave!;-------------------------------------------------------------------------------------;$07 - used to hold upper limit of high byte when player falls down holeAutoControlPlayer:sta SavedJoypadBits ;override controller bits with contents of A if executing herePlayerCtrlRoutine:lda GameEngineSubroutine ;check task herecmpn ++$0b ;if certain value is set, branch to skip controller bit loading (playerdeath)beq SizeChklda AreaType ;are we in a water type area? є эрё ёэрўрыр 1???checkabne SaveJoyp ;if not, branchldy Player_Y_HighPosdey ;if not in vertical area betweenbne DisJoyp ;status bar and bottom, branchlda Player_Y_Positioncmpn ++$d0 ;if nearing the bottom of the screen orcmpcybcc SaveJoyp ;not in the vertical area between status bar or bottom,DisJoyp: ldan ++$00 ;disable controller bitssta SavedJoypadBitsSaveJoyp: lda SavedJoypadBits ;otherwise store A and B buttons in $0aandn ++%11000000sta A_B_Buttonslda SavedJoypadBits ;store left and right buttons in $0candn ++%00000011sta Left_Right_Buttonslda SavedJoypadBits ;store up and down buttons in $0bandn ++%00001100sta Up_Down_Buttonsandn ++%00000100 ;check for pressing downbeq SizeChk ;if not, branchlda Player_State ;check player's statecheckabne SizeChk ;if not on the ground, branchldy Left_Right_Buttons ;check left and rightcheckybeq SizeChk ;if neither pressed, branchldan ++$00sta Left_Right_Buttons ;if pressing down while on the ground,sta Up_Down_Buttons ;nullify directional bitsSizeChk: jsr PlayerMovementSubs ;run movement subroutinesldyn ++$01 ;is player small?lda PlayerSizecheckabne ChkMoveDirldyn ++$00 ;check for if crouchinglda CrouchingFlagcheckabeq ChkMoveDir ;if not, branch aheadldyn ++$02 ;if big and crouching, load y with 2ChkMoveDir: sty Player_BoundBoxCtrl ;set contents of Y as player's bounding box size controlldan ++$01 ;set moving direction to right by defaultldy Player_X_Speed ;check player's horizontal speedcheckybeq PlayerSubs ;if not moving at all horizontally, skip this partbpl SetMoveDir ;if moving to the right, use default moving directionasl ;otherwise change to move to the leftSetMoveDir: sta Player_MovingDir ;set moving directionPlayerSubs: jsr ScrollHandler ;move the screen if necessaryjsr GetPlayerOffscreenBits ;get player's offscreen bitsjsr RelativePlayerPosition ;get coordinates relative to the screenldxn ++$00 ;set offset for player objectjsr BoundingBoxCore ;get player's bounding box coordinatesjsr PlayerBGCollision ;do collision detection and processlda Player_Y_Positioncmpn ++$40 ;check to see if player is higher than 64th pixelcmpcybcc PlayerHole ;if so, branch aheadlda GameEngineSubroutinecmpn ++$05 ;if running end-of-level routine, branch aheadbeq PlayerHolecmpn ++$07 ;if running player entrance routine, branch aheadbeq PlayerHolecmpn ++$04 ;if running routines $00-$03, branch aheadcmpcybcc PlayerHolelda Player_SprAttribandn ++%11011111 ;otherwise nullify player'ssta Player_SprAttrib ;background priority flagPlayerHole: lda Player_Y_HighPos ;check player's vertical high bytecmpn ++$02 ;for below the screenbmi ExitCtrl ;branch to leave if not that far downldxn ++$01stx ScrollLock ;set scroll lockldyn ++$04sty SCRATCHPAD+$07 ;set value hereldxn ++$00 ;use X as flag, and clear for cloud levelldy GameTimerExpiredFlag ;check game timer expiration flagcheckybne HoleDie ;if set, branchldy CloudTypeOverride ;check for cloud type overridecheckybne ChkHoleX ;skip to last part if foundHoleDie: inx ;set flag in X for player deathldy GameEngineSubroutinecpyn ++$0b ;check for some other routine running (playerdeath)beq ChkHoleX ;if so, branch aheadldy DeathMusicLoaded ;check value herecheckybne HoleBottom ;if already set, branch to next partinysty EventMusicQueue ;otherwise play death musicsty DeathMusicLoaded ;and set value hereHoleBottom: ldyn ++$06sty SCRATCHPAD+$07 ;change value hereChkHoleX: cmpi SCRATCHPAD+$07 ;compare vertical high byte with value set herebmi ExitCtrl ;if less, branch to leavedex ;otherwise decrement flag in Xbmi CloudExit ;if flag was clear, branch to set modes and other valuesldy EventMusicBuffer ;check to see if music is still playingcheckybne ExitCtrl ;branch to leave if soldan ++$06 ;otherwise set to run lose life routinesta GameEngineSubroutine ;on next frameExitCtrl: rts ;leaveCloudExit:ldan ++$00sta JoypadOverride ;clear controller override bits if any are setjsr SetEntr ;do sub to set secondary modeinci AltEntranceControl ;set mode of entry to 3rts;-------------------------------------------------------------------------------------Vine_AutoClimb:lda Player_Y_HighPos ;check to see whether player reached positioncheckabne AutoClimb ;above the status bar yet and if so, set modeslda Player_Y_Positioncmpn ++$e4cmpcybcc SetEntrAutoClimb: ldan ++%00001000 ;set controller bits override to upsta JoypadOverrideldyn ++$03 ;set player state to climbingsty Player_Statejmp AutoControlPlayerSetEntr: ldan ++$02 ;set starting position to overridesta AltEntranceControljmp ChgAreaMode ;set modes;-------------------------------------------------------------------------------------VerticalPipeEntry:ldan ++$01 ;set 1 as movement amountjsr MovePlayerYAxis ;do sub to move player downwardsjsr ScrollHandler ;do sub to scroll screen with saved force if necessaryldyn ++$00 ;load default mode of entrylda WarpZoneControl ;check warp zone control variable/flagcheckabne ChgAreaPipe ;if set, branch to use mode 0inylda AreaType ;check for castle level typecmpn ++$03bne ChgAreaPipe ;if not castle type level, use mode 1inyjmp ChgAreaPipe ;otherwise use mode 2MovePlayerYAxis:clcadci Player_Y_Position ;add contents of A to player positionsta Player_Y_Positionrts;-------------------------------------------------------------------------------------SideExitPipeEntry:jsr EnterSidePipe ;execute sub to move player to the rightldyn ++$02ChgAreaPipe: deci ChangeAreaTimer ;decrement timer for change of areabne ExitCAPipesty AltEntranceControl ;when timer expires set mode of alternate entryChgAreaMode: inci DisableScreenFlag ;set flag to disable screen outputldan ++$00sta OperMode_Task ;set secondary mode of operationsta Sprite0HitDetectFlag ;disable sprite 0 checkExitCAPipe: rts ;leaveEnterSidePipe:ldan ++$08 ;set player's horizontal speedsta Player_X_Speedldyn ++$01 ;set controller right button by defaultlda Player_X_Position ;mask out higher nybble of player'sandn ++%00001111 ;horizontal positionbne RightPipesta Player_X_Speed ;if lower nybble = 0, set as horizontal speedtay ;and nullify controller bit override hereRightPipe: tya ;use contents of Y tojsr AutoControlPlayer ;execute player control routine with ctrl bits nulledrts;-------------------------------------------------------------------------------------PlayerChangeSize:lda TimerControl ;check master timer controlcmpn ++$f8 ;for specific moment in timebne EndChgSize ;branch if before or after that pointjmp InitChangeSize ;otherwise run code to get growing/shrinking goingEndChgSize: cmpn ++$c4 ;check again for another specific momentbne ExitChgSize ;and branch to leave if before or after that pointjsr DonePlayerTask ;otherwise do sub to init timer control and set routineExitChgSize: rts ;and then leave;-------------------------------------------------------------------------------------PlayerInjuryBlink:lda TimerControl ;check master timer controlcmpn ++$f0 ;for specific moment in timecmpcybcs ExitBlink ;branch if before that pointcmpn ++$c8 ;check again for another specific pointbeq DonePlayerTask ;branch if at that point, and not before or afterjmp PlayerCtrlRoutine ;otherwise run player control routineExitBlink: bne ExitBoth ;do unconditional branch to leaveInitChangeSize:ldy PlayerChangeSizeFlag ;if growing/shrinking flag already setcheckybne ExitBoth ;then branch to leavesty PlayerAnimCtrl ;otherwise initialize player's animation frame controlinci PlayerChangeSizeFlag ;set growing/shrinking flaglda PlayerSizeeorn ++$01 ;invert player's sizesta PlayerSizeExitBoth: rts ;leave;-------------------------------------------------------------------------------------;$00 - used in CyclePlayerPalette to store current palette to cyclePlayerDeath:lda TimerControl ;check master timer controlcmpn ++$f0 ;for specific moment in timecmpcybcs ExitDeath ;branch to leave if before that pointjmp PlayerCtrlRoutine ;otherwise run player control routineDonePlayerTask:ldan ++$00sta TimerControl ;initialize master timer control to continue timersldan ++$08sta GameEngineSubroutine ;set player control routine to run next framerts ;leavePlayerFireFlower:lda TimerControl ;check master timer controlcmpn ++$c0 ;for specific moment in timebeq ResetPalFireFlower ;branch if at moment, not before or afterlda FrameCounter ;get frame counterlsrlsr ;divide by four to change every four framesCyclePlayerPalette:if Z80MARIOCYCLECOLORld hl,(curpalette)ld e,12*2add hl,deld a,(hl)xor 0xf3ld (hl),ainc hlld (hl),ainc hlinc hlinc hlld a,(hl)xor 0xf3ld (hl),ainc hlld (hl),aelseandn ++$03 ;mask out all but d1-d0 (previously d3-d2)sta SCRATCHPAD+$00 ;store result here to use as palette bitslda Player_SprAttrib ;get player attributesandn ++%11111100 ;save any other bits but palette bitsorai SCRATCHPAD+$00 ;add palette bitssta Player_SprAttrib ;store as new player attributesendifrts ;and leaveResetPalFireFlower:jsr DonePlayerTask ;do sub to init timer control and run player control routineResetPalStar:if Z80MARIOCYCLECOLORif 1jp GetPlayerColorselseld hl,(curpalette)ld e,12*2add hl,deld a,(hl)xor 0xf3ld (hl),ainc hlld (hl),ainc hlinc hlinc hlld a,(hl)xor 0xf3ld (hl),ainc hlld (hl),aretendifelselda Player_SprAttrib ;get player attributesandn ++%11111100 ;mask out palette bits to force palette 0sta Player_SprAttrib ;store as new player attributesrts ;and leaveendifExitDeath:rts ;leave from death routine;-------------------------------------------------------------------------------------FlagpoleSlide:lda Enemy_ID+5 ;check special use enemy slotcmpn ++FlagpoleFlagObject ;for flagpole flag objectbne NoFPObj ;if not found, branch to something residuallda FlagpoleSoundQueue ;load flagpole soundsta Square1SoundQueue ;into square 1's sfx queueldan ++$00sta FlagpoleSoundQueue ;init flagpole sound queueldy Player_Y_Positioncpyn ++$9e ;check to see if player has slid downcmpcybcs SlidePlayer ;far enough, and if so, branch with no controller bits setldan ++$04 ;otherwise force player to climb down (to slide)SlidePlayer: jmp AutoControlPlayer ;jump to player control routineNoFPObj: inci GameEngineSubroutine ;increment to next routine (this mayrts ;be residual code);-------------------------------------------------------------------------------------Hidden1UpCoinAmts:.db $15, $23, $16, $1b, $17, $18, $23, $63PlayerEndLevel:if MUSICONINT ;ъюёЄ√ы№: фхырхь фю т√їюфр шч єЁютэ Ёхцшь MUSICONINT=0;YIELD;ld b,0;ld d,bhalt;ld hl,0xffff;ld (EventMusicQueue_noint),hlld hl,SoundEngineld (soundenginepatch),hlld a,0x21ld (soundenginecall),aendifldan ++$01 ;force player to walk to the rightjsr AutoControlPlayerlda Player_Y_Position ;check player's vertical positioncmpn ++$aecmpcybcc ChkStop ;if player is not yet off the flagpole, skip this partlda ScrollLock ;if scroll lock not set, branch ahead to next partcheckabeq ChkStop ;because we only need to do this part onceldan ++EndOfLevelMusicsta EventMusicQueue ;load win level music in event music queueldan ++$00sta ScrollLock ;turn off scroll lock to skip this part laterChkStop: lda Player_CollisionBits ;get player collision bitslsr ;check for d0 setbcs RdyNextA ;if d0 set, skip to next partlda StarFlagTaskControl ;if star flag task control already set,checkabne InCastle ;go ahead with the rest of the codeinci StarFlagTaskControl ;otherwise set task control now (this gets ball rolling!)InCastle: ldan ++%00100000 ;set player's background priority bit tosta Player_SprAttrib ;give illusion of being inside the castleRdyNextA: lda StarFlagTaskControlcmpn ++$05 ;if star flag task control not yet setbne ExitNA ;beyond last valid task number, branch to leaveinci LevelNumber ;increment level number used for game logiclda LevelNumbercmpn ++$03 ;check to see if we have yet reached level -4bne NextArea ;and skip this last part here if notldy WorldNumber ;get world number as offsetlda CoinTallyFor1Ups ;check third area coin tally for bonus 1-upscmpy Hidden1UpCoinAmts,y ;against minimum value, if player has not collectedcmpcybcc NextArea ;at least this number of coins, leave flag clearinci Hidden1UpFlag ;otherwise set hidden 1-up box control flagNextArea: inci AreaNumber ;increment area number used for address loaderjsr LoadAreaPointer ;get new level pointerinci FetchNewGameTimerFlag ;set flag to load new game timerjsr ChgAreaMode ;do sub to set secondary mode, disable screen and sprite 0sta HalfwayPage ;reset halfway page to 0 (beginning)ldan ++Silencesta EventMusicQueue ;silence music and leaveExitNA: rts;-------------------------------------------------------------------------------------PlayerMovementSubs:ldan ++$00 ;set A to init crouch flag by defaultldy PlayerSize ;is player small?checkybne SetCrouch ;if so, branchlda Player_State ;check state of playercheckabne ProcMove ;if not on the ground, branchlda Up_Down_Buttons ;load controller bits for up and downandn ++%00000100 ;single out bit for down buttonSetCrouch: sta CrouchingFlag ;store value in crouch flagProcMove: jsr PlayerPhysicsSub ;run sub related to jumping and swimminglda PlayerChangeSizeFlag ;if growing/shrinking flag set,checkabne NoMoveSub ;branch to leavelda Player_Statecmpn ++$03 ;get player statebeq MoveSubs ;if climbing, branch ahead, leave timer unsetldyn ++$18sty ClimbSideTimer ;otherwise reset timer nowMoveSubs: jsr JumpEngine.dw OnGroundStateSub.dw JumpSwimSub.dw FallingSub.dw ClimbingSubNoMoveSub: rts;-------------------------------------------------------------------------------------;$00 - used by ClimbingSub to store high vertical adderOnGroundStateSub:jsr GetPlayerAnimSpeed ;do a sub to set animation frame timinglda Left_Right_Buttonscheckabeq GndMove ;if left/right controller bits not set, skip instruction;jr $ ;ё■фр Ёхфъю яюярфрхь яю ъэюяърь left,rightsta PlayerFacingDir ;otherwise set new facing directionGndMove: jsr ImposeFriction ;do a sub to impose friction on player's walk/runjsr MovePlayerHorizontally ;do another sub to move player horizontallysta Player_X_Scroll ;set returned value as player's movement speed for scrollrts;--------------------------------FallingSub:lda VerticalForceDownsta VerticalForce ;dump vertical movement force for falling into main onejmp LRAir ;movement force, then skip ahead to process left/right movement;--------------------------------JumpSwimSub:ldy Player_Y_Speed ;if player's vertical speed zerocheckybpl DumpFall ;or moving downwards, branch to fallinglda A_B_Buttonsandn ++A_Button ;check to see if A button is being pressedandi PreviousA_B_Buttons ;and was pressed in previous framebne ProcSwim ;if so, branch elsewherelda JumpOrigin_Y_Position ;get vertical position player jumped fromsecsubsbci Player_Y_Position ;subtract current from original vertical coordinatecmpi DiffToHaltJump ;compare to value set here to see if player is in mid-jumpcmpcybcc ProcSwim ;or just starting to jump, if just starting, skip aheadDumpFall: lda VerticalForceDown ;otherwise dump falling into main fractionalsta VerticalForceProcSwim: lda SwimmingFlag ;if swimming flag not set, ;є эрё ёэрўрыр 0???checkabeq LRAir ;branch ahead to last partjsr GetPlayerAnimSpeed ;do a sub to get animation frame timinglda Player_Y_Positioncmpn ++$14 ;check vertical position against preset valuecmpcybcs LRWater ;if not yet reached a certain position, branch aheadldan ++$18sta VerticalForce ;otherwise set fractionalLRWater: lda Left_Right_Buttons ;check left/right controller bits (check for swimming)checkabeq LRAir ;if not pressing any, skipsta PlayerFacingDir ;otherwise set facing direction accordingly;ё■фр тїюф х∙╕ шч FallingSubLRAir: lda Left_Right_Buttons ;check left/right controller bits (check for jumping/falling)checkabeq JSMove ;if not pressing any, skipjsr ImposeFriction ;otherwise process horizontal movementJSMove: jsr MovePlayerHorizontally ;do a sub to move player horizontallysta Player_X_Scroll ;set player's speed here, to be used for scroll laterlda GameEngineSubroutinecmpn ++$0b ;check for specific routine selected (playerdeath)bne ExitMov1 ;branch if not set to runldan ++$28sta VerticalForce ;otherwise set fractionalExitMov1: jmp MovePlayerVertically ;jump to move player vertically, then leave;--------------------------------ClimbAdderLow:.db $0e, $04, $fc, $f2ClimbAdderHigh:.db $00, $00, $ff, $ffClimbingSub:lda Player_YMF_Dummyclc ;add movement force to dummy variableadci Player_Y_MoveForce ;save with carrysta Player_YMF_Dummyldyn ++$00 ;set default adder herelda Player_Y_Speed ;get player's vertical speedcheckabpl MoveOnVine ;if not moving upwards, branchdey ;otherwise set adder to $ffMoveOnVine: sty SCRATCHPAD+$00 ;store adder hereadci Player_Y_Position ;add carry to player's vertical positionsta Player_Y_Position ;and store to move player up or downlda Player_Y_HighPosadci SCRATCHPAD+$00 ;add carry to player's page locationsta Player_Y_HighPos ;and storelda Left_Right_Buttons ;compare left/right controller bitsandi Player_CollisionBits ;to collision flagbeq InitCSTimer ;if not set, skip to endldy ClimbSideTimer ;otherwise check timercheckybne ExitCSub ;if timer not expired, branch to leaveldyn ++$18sty ClimbSideTimer ;otherwise set timer nowldxn ++$00 ;set default offset hereldy PlayerFacingDir ;get facing directionlsr ;move right button controller bit to carrybcs ClimbFD ;if controller right pressed, branch aheadinxinx ;otherwise increment offset by 2 bytesClimbFD: dey ;check to see if facing rightbeq CSetFDir ;if so, branch, do not incrementinx ;otherwise increment by 1 byteCSetFDir: lda Player_X_Positionclc ;add or subtract from player's horizontal positionadcx ClimbAdderLow,x ;using value here as adder and X as offsetsta Player_X_Positionlda Player_PageLoc ;add or subtract carry or borrow using value hereadcx ClimbAdderHigh,x ;from the player's page locationsta Player_PageLoclda Left_Right_Buttons ;get left/right controller bits againeorn ++%00000011 ;invert them and store them while playersta PlayerFacingDir ;is on vine to face player in opposite directionExitCSub: rts ;then leaveInitCSTimer: sta ClimbSideTimer ;initialize timer hererts;-------------------------------------------------------------------------------------;$00 - used to store offset to friction dataJumpMForceData:.db $20, $20, $1e, $28, $28, $0d, $04FallMForceData:.db $70, $70, $60, $90, $90, $0a, $09PlayerYSpdData:.db $fc, $fc, $fc, $fb, $fb, $fe, $ffInitMForceData:.db $00, $00, $00, $00, $00, $80, $00MaxLeftXSpdData:.db $d8, $e8, $f0MaxRightXSpdData:.db $28, $18, $10.db $0c ;used for pipe introsFrictionData:.db $e4, $98, $d0Climb_Y_SpeedData:.db $00, $ff, $01Climb_Y_MForceData:.db $00, $20, $ffPlayerPhysicsSub:lda Player_State ;check player statecmpn ++$03bne CheckForJumping ;if not climbing, branchldyn ++$00lda Up_Down_Buttons ;get controller bits for up/downandi Player_CollisionBits ;check against player's collision detection bitsbeq ProcClimb ;if not pressing up or down, branchinyandn ++%00001000 ;check for pressing upbne ProcClimbinyProcClimb: ldxy Climb_Y_MForceData,y ;load value herestx Player_Y_MoveForce ;store as vertical movement forceldan ++$08 ;load default animation timingldxy Climb_Y_SpeedData,y ;load some other value herestx Player_Y_Speed ;store as vertical speedcheckxbmi SetCAnim ;if climbing down, use default animation timing valuelsr ;otherwise divide timer setting by 2SetCAnim: sta PlayerAnimTimerSet ;store animation timer setting and leavertsCheckForJumping:lda JumpspringAnimCtrl ;if jumpspring animating,checkabne NoJump ;skip ahead to something elselda A_B_Buttons ;check for A button pressandn ++A_Buttonbeq NoJump ;if not, branch to something elseandi PreviousA_B_Buttons ;if button not pressed in previous frame, branchbeq ProcJumpingNoJump: jmp X_Physics ;otherwise, jump to something elseProcJumping:lda Player_State ;check player statecheckabeq InitJS ;if on the ground, branchlda SwimmingFlag ;if swimming flag not set, jump to do something elsecheckabeq NoJump ;to prevent midair jumping, otherwise continuelda JumpSwimTimer ;if jump/swim timer nonzero, branchcheckabne InitJSlda Player_Y_Speed ;check player's vertical speedcheckabpl InitJS ;if player's vertical speed motionless or down, branchjmp X_Physics ;if timer at zero and player still rising, do not swimInitJS: ldan ++$20 ;set jump/swim timersta JumpSwimTimerldyn ++$00 ;initialize vertical force and dummy variablesty Player_YMF_Dummysty Player_Y_MoveForcelda Player_Y_HighPos ;get vertical high and low bytes of jump originsta JumpOrigin_Y_HighPos ;and store them next to each other herelda Player_Y_Positionsta JumpOrigin_Y_Positionldan ++$01 ;set player state to jumping/swimmingsta Player_Statelda Player_XSpeedAbsolute ;check value related to walking/running speedcmpn ++$09cmpcybcc ChkWtr ;branch if below certain values, increment Yiny ;for each amount equal or exceededcmpn ++$10cmpcybcc ChkWtrinycmpn ++$19cmpcybcc ChkWtrinycmpn ++$1ccmpcybcc ChkWtr ;note that for jumping, range is 0-4 for YinyChkWtr: ldan ++$01 ;set value here (apparently always set to 1)sta DiffToHaltJumplda SwimmingFlag ;if swimming flag disabled, branchcheckabeq GetYPhyldyn ++$05 ;otherwise set Y to 5, range is 5-6lda Whirlpool_Flag ;if whirlpool flag not set, branchcheckabeq GetYPhyiny ;otherwise increment to 6GetYPhy: lday JumpMForceData,y ;store appropriate jump/swimsta VerticalForce ;data herelday FallMForceData,ysta VerticalForceDownlday InitMForceData,ysta Player_Y_MoveForcelday PlayerYSpdData,ysta Player_Y_Speedlda SwimmingFlag ;if swimming flag disabled, branchcheckabeq PJumpSndldan ++Sfx_EnemyStomp ;load swim/goomba stomp sound intosta Square1SoundQueue ;square 1's sfx queuelda Player_Y_Positioncmpn ++$14 ;check vertical low byte of player positioncmpcybcs X_Physics ;if below a certain point, branchldan ++$00 ;otherwise reset player's vertical speedsta Player_Y_Speed ;and jump to something else to keep playerjmp X_Physics ;from swimming above water levelPJumpSnd: ldan ++Sfx_BigJump ;load big mario's jump sound by defaultldy PlayerSize ;is mario big?checkybeq SJumpSndldan ++Sfx_SmallJump ;if not, load small mario's jump soundSJumpSnd: sta Square1SoundQueue ;store appropriate jump sound in square 1 sfx queueX_Physics: ldyn ++$00sty SCRATCHPAD+$00 ;init value herelda Player_State ;if mario is on the ground, branchcheckabeq ProcPRunlda Player_XSpeedAbsolute ;check something that seems to be relatedcmpn ++$19 ;to mario's speedcmpcybcs GetXPhy ;if => $19 branch herebcc ChkRFast ;if not branch elsewhereProcPRun: iny ;if mario on the ground, increment Ylda AreaType ;check area typecheckabeq ChkRFast ;if water type, branchdey ;decrement Y by default for non-water type arealda Left_Right_Buttons ;get left/right controller bitscmpi Player_MovingDir ;check against moving directionbne ChkRFast ;if controller bits <> moving direction, skip this partlda A_B_Buttons ;check for b button pressedandn ++B_Buttonbne SetRTmr ;if pressed, skip ahead to set timerlda RunningTimer ;check for running timer setcheckabne GetXPhy ;if set, branchChkRFast: iny ;if running timer not set or level type is water,inci SCRATCHPAD+$00 ;increment Y again and temp variable in memorylda RunningSpeedcheckabne FastXSp ;if running speed set here, branchlda Player_XSpeedAbsolutecmpn ++$21 ;otherwise check player's walking/running speedcmpcybcc GetXPhy ;if less than a certain amount, branch aheadFastXSp: inci SCRATCHPAD+$00 ;if running speed set or speed => $21 increment $00jmp GetXPhy ;and jump aheadSetRTmr: ldan ++$0a ;if b button pressed, set running timersta RunningTimerGetXPhy: lday MaxLeftXSpdData,y ;get maximum speed to the leftsta MaximumLeftSpeedlda GameEngineSubroutine ;check for specific routine runningcmpn ++$07 ;(player entrance)bne GetXPhy2 ;if not running, skip and use old value of Yldyn ++$03 ;otherwise set Y to 3GetXPhy2: lday MaxRightXSpdData,y ;get maximum speed to the rightsta MaximumRightSpeedldy SCRATCHPAD+$00 ;get other value in memorylday FrictionData,y ;get value using value in memory as offsetsta FrictionAdderLowldan ++$00sta FrictionAdderHigh ;init something herelda PlayerFacingDircmpi Player_MovingDir ;check facing direction against moving directionbeq ExitPhy ;if the same, branch to leaveasli FrictionAdderLow ;otherwise shift d7 of friction adder low into carryroli FrictionAdderHigh ;then rotate carry onto d0 of friction adder highExitPhy: rts ;and then leave;-------------------------------------------------------------------------------------PlayerAnimTmrData:.db $02, $04, $07GetPlayerAnimSpeed:ldyn ++$00 ;initialize offset in Ylda Player_XSpeedAbsolute ;check player's walking/running speedcmpn ++$1c ;against preset amountcmpcybcs SetRunSpd ;if greater than a certain amount, branch aheadiny ;otherwise increment Ycmpn ++$0e ;compare against lower amountcmpcybcs ChkSkid ;if greater than this but not greater than first, skip incrementiny ;otherwise increment Y againChkSkid: lda SavedJoypadBits ;get controller bitsandn ++%01111111 ;mask out A buttonbeq SetAnimSpd ;if no other buttons pressed, branch ahead of all thisandn ++$03 ;mask out all others except left and rightcmpi Player_MovingDir ;check against moving directionbne ProcSkid ;if left/right controller bits <> moving direction, branchldan ++$00 ;otherwise set zero value hereSetRunSpd: sta RunningSpeed ;store zero or running speed herejmp SetAnimSpdProcSkid: lda Player_XSpeedAbsolute ;check player's walking/running speedcmpn ++$0b ;against one last amountcmpcybcs SetAnimSpd ;if greater than this amount, branchlda PlayerFacingDirsta Player_MovingDir ;otherwise use facing direction to set moving directionldan ++$00sta Player_X_Speed ;nullify player's horizontal speedsta Player_X_MoveForce ;and dummy variable for player (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)SetAnimSpd: lday PlayerAnimTmrData,y ;get animation timer setting using Y as offsetsta PlayerAnimTimerSetrts;-------------------------------------------------------------------------------------ImposeFriction:andi Player_CollisionBits ;perform AND between left/right controller bits and collision flagcmpn ++$00 ;then compare to zero (this instruction is redundant)bne JoypFrict ;if any bits set, branch to next partlda Player_X_Speedcheckabeq SetAbsSpd ;if player has no horizontal speed, branch ahead to last partbpl RghtFrict ;if player moving to the right, branch to slowbmi LeftFrict ;otherwise logic dictates player moving left, branch to slowJoypFrict: lsr ;put right controller bit into carrybcc RghtFrict ;if left button pressed, carry = 0, thus branchLeftFrict: lda Player_X_MoveForce ;load value set here (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)clcadci FrictionAdderLow ;add to it another value set here (яюўхьє??? ¤Єю цх эх ьырф°р ўрёЄ№ ёъюЁюёЄш!)sta Player_X_MoveForce ;store here (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)lda Player_X_Speedadci FrictionAdderHigh ;add value plus carry to horizontal speedsta Player_X_Speed ;set as new horizontal speedcmpi MaximumRightSpeed ;compare against maximum value for right movementbmi XSpdSign ;if horizontal speed greater negatively, branchlda MaximumRightSpeed ;otherwise set preset value as horizontal speedsta Player_X_Speed ;thus slowing the player's left movement downjmp SetAbsSpd ;skip to the endRghtFrict: lda Player_X_MoveForce ;load value set here (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)secsubsbci FrictionAdderLow ;subtract from it another value set here (яюўхьє??? ¤Єю цх эх ьырф°р ўрёЄ№ ёъюЁюёЄш!)sta Player_X_MoveForce ;store here (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)lda Player_X_Speedsbci FrictionAdderHigh ;subtract value plus borrow from horizontal speedsta Player_X_Speed ;set as new horizontal speedcmpi MaximumLeftSpeed ;compare against maximum value for left movementbpl XSpdSign ;if horizontal speed greater positively, branchlda MaximumLeftSpeed ;otherwise set preset value as horizontal speedsta Player_X_Speed ;thus slowing the player's right movement downXSpdSign: cmpn ++$00 ;if player not moving or moving to the right,bpl SetAbsSpd ;branch and leave horizontal speed value unmodifiedeorn ++$ffclc ;otherwise get two's compliment to get absoluteadcn ++$01 ;unsigned walking/running speedSetAbsSpd: sta Player_XSpeedAbsolute ;store walking/running speed here and leaverts;-------------------------------------------------------------------------------------;$00 - used to store downward movement force in FireballObjCore;$02 - used to store maximum vertical speed in FireballObjCore;$07 - used to store pseudorandom bit in BubbleCheckProcFireball_Bubble:lda PlayerStatus ;check player's statuscmpn ++$02cmpcybcc ProcAirBubbles ;if not fiery, branchlda A_B_Buttonsandn ++B_Button ;check for b button pressedbeq ProcFireballs ;branch if not pressedandi PreviousA_B_Buttonsbne ProcFireballs ;if button pressed in previous frame, branchlda FireballCounter ;load fireball counterandn ++%00000001 ;get LSB and use as offset for buffertaxldax Fireball_State,x ;load fireball statecheckabne ProcFireballs ;if not inactive, branchldy Player_Y_HighPos ;if player too high or too low, branchdeybne ProcFireballslda CrouchingFlag ;if player crouching, branchcheckabne ProcFireballslda Player_State ;if player's state = climbing, branchcmpn ++$03beq ProcFireballsldan ++Sfx_Fireball ;play fireball sound effectsta Square1SoundQueueldan ++$02 ;load statestax Fireball_State,xldy PlayerAnimTimerSet ;copy animation frame timer settingsty FireballThrowingTimer ;into fireball throwing timerdeysty PlayerAnimTimer ;decrement and store in player's animation timerinci FireballCounter ;increment fireball counterProcFireballs:ldxn ++$00jsr FireballObjCore ;process first fireball objectldxn ++$01jsr FireballObjCore ;process second fireball object, then do air bubblesProcAirBubbles:lda AreaType ;if not water type level, skip the rest of thischeckabne BublExitldxn ++$02 ;otherwise load counter and use as offsetBublLoop: stx ObjectOffset ;store offsetjsr BubbleCheck ;check timers and coordinates, create air bubblejsr RelativeBubblePosition ;get relative coordinatesjsr GetBubbleOffscreenBits ;get offscreen informationjsr DrawBubble ;draw the air bubbledexbpl BublLoop ;do this until all three are handledBublExit: rts ;then leaveFireballXSpdData:.db $40, $c0FireballObjCore:stx ObjectOffset ;store offset as current objectldax Fireball_State,x ;check for d7 = 1aslbcs FireballExplosion ;if so, branch to get relative coordinates and draw explosionldyx Fireball_State,x ;if fireball inactive, branch to leavecheckybeq NoFBalldey ;if fireball state set to 1, skip this part and just run itbeq RunFBlda Player_X_Position ;get player's horizontal positionor aadcn ++$04 ;add four pixels and store as fireball's horizontal positionpush afstax Fireball_X_Position,xpop aflda Player_PageLoc ;get player's page locationadcn ++$00 ;add carry and store as fireball's page locationstax Fireball_PageLoc,xlda Player_Y_Position ;get player's vertical position and storestax Fireball_Y_Position,xldan ++$01 ;set high byte of vertical positionstax Fireball_Y_HighPos,xldy PlayerFacingDir ;get player's facing directiondey ;decrement to use as offset herelday FireballXSpdData,y ;set horizontal speed of fireball accordinglystax Fireball_X_Speed,xldan ++$04 ;set vertical speed of fireballstax Fireball_Y_Speed,xldan ++$07stax Fireball_BoundBoxCtrl,x ;set bounding box size control for fireballdecx Fireball_State,x ;decrement state to 1 to skip this part from now onRunFB: txa ;add 7 to offset to useclc ;as fireball offset for next routinesadcn ++$07taxldan ++$50 ;set downward movement force heresta SCRATCHPAD+$00ldan ++$03 ;set maximum speed heresta SCRATCHPAD+$02ldan ++$00jsr ImposeGravity ;do sub here to impose gravity on fireball and move verticallyjsr MoveObjectHorizontally ;do another sub to move it horizontallyldx ObjectOffset ;return fireball offset to Xjsr RelativeFireballPosition ;get relative coordinatesjsr GetFireballOffscreenBits ;get offscreen informationjsr GetFireballBoundBox ;get bounding box coordinatesjsr FireballBGCollision ;do fireball to background collision detectionlda FBall_OffscreenBits ;get fireball offscreen bitsandn ++%11001100 ;mask out certain bitsbne EraseFB ;if any bits still set, branch to kill fireballjsr FireballEnemyCollision ;do fireball to enemy collision detection and deal with collisionsjmp DrawFireball ;draw fireball appropriately and leaveEraseFB: ldan ++$00 ;erase fireball statestax Fireball_State,xNoFBall: rts ;leaveFireballExplosion:jsr RelativeFireballPositionjmp DrawExplosion_FireballBubbleCheck:ldax PseudoRandomBitReg+1,x ;get part of LSFRandn ++$01sta SCRATCHPAD+$07 ;store pseudorandom bit hereldax Bubble_Y_Position,x ;get vertical coordinate for air bubblecmpn ++$f8 ;if offscreen coordinate not set,bne MoveBubl ;branch to move air bubblelda AirBubbleTimer ;if air bubble timer not expired,checkabne ExitBubl ;branch to leave, otherwise create new air bubbleSetupBubble:ldyn ++$00 ;load default value herelda PlayerFacingDir ;get player's facing directionlsr ;move d0 to carrybcc PosBubl ;branch to use default value if facing leftldyn ++$08 ;otherwise load alternate value herePosBubl: tya ;use value loaded as adderadci Player_X_Position ;add to player's horizontal positionpush afstax Bubble_X_Position,x ;save as horizontal position for airbubblepop aflda Player_PageLocadcn ++$00 ;add carry to player's page locationstax Bubble_PageLoc,x ;save as page location for airbubblelda Player_Y_Positionclc ;add eight pixels to player's vertical positionadcn ++$08stax Bubble_Y_Position,x ;save as vertical position for air bubbleldan ++$01stax Bubble_Y_HighPos,x ;set vertical high byte for air bubbleldy SCRATCHPAD+$07 ;get pseudorandom bit, use as offsetlday BubbleTimerData,y ;get data for air bubble timersta AirBubbleTimer ;set air bubble timerMoveBubl: ldy SCRATCHPAD+$07 ;get pseudorandom bit again, use as offsetldax Bubble_YMF_Dummy,xsecsub ;subtract pseudorandom amount from dummy variablesbcy Bubble_MForceData,ypush afstax Bubble_YMF_Dummy,x ;save dummy variableldax Bubble_Y_Position,xld h,apop afld a,hsbcn ++$00 ;subtract borrow from airbubble's vertical coordinatecmpn ++$20 ;if below the status bar,cmpcybcs Y_Bubl ;branch to go ahead and use to move air bubble upwardsldan ++$f8 ;otherwise set offscreen coordinateY_Bubl: stax Bubble_Y_Position,x ;store as new vertical coordinate for air bubbleExitBubl: rts ;leaveBubble_MForceData:.db $ff, $50BubbleTimerData:.db $40, $20;-------------------------------------------------------------------------------------RunGameTimer:lda OperMode ;get primary mode of operationcheckabeq ExGTimer ;branch to leave if in title screen modelda GameEngineSubroutinecmpn ++$08 ;if routine number less than eight running,cmpcybcc ExGTimer ;branch to leavecmpn ++$0b ;if running death routine,beq ExGTimer ;branch to leavelda Player_Y_HighPoscmpn ++$02 ;if player below the screen,cmpcybcs ExGTimer ;branch to leave regardless of level typelda GameTimerCtrlTimer ;if game timer control not yet expired,checkabne ExGTimer ;branch to leavelda GameTimerDisplayorai GameTimerDisplay+1 ;otherwise check game timer digitsorai GameTimerDisplay+2beq TimeUpOn ;if game timer digits at 000, branch to time-up codeldy GameTimerDisplay ;otherwise check first digitdey ;if first digit not on 1,bne ResGTCtrl ;branch to reset game timer controllda GameTimerDisplay+1 ;otherwise check second and third digitsorai GameTimerDisplay+2bne ResGTCtrl ;if timer not at 100, branch to reset game timer controlldan ++TimeRunningOutMusicsta EventMusicQueue ;otherwise load time running out musicResGTCtrl: ldan ++$18 ;reset game timer controlsta GameTimerCtrlTimerldyn ++$23 ;set offset for last digitldan ++$ff ;set value to decrement game timer digitsta DigitModifier+5jsr DigitsMathRoutine ;do sub to decrement game timer slowlyldan ++$a4 ;set status nybbles to update game timer displayjmp PrintStatusBarNumbers ;do sub to update the displayTimeUpOn: sta PlayerStatus ;init player status (note A will always be zero here)jsr ForceInjury ;do sub to kill the player (note player is small here)inci GameTimerExpiredFlag ;set game timer expiration flagExGTimer: rts ;leave;-------------------------------------------------------------------------------------WarpZoneObject:lda ScrollLock ;check for scroll lock flagcheckabeq ExGTimer ;branch if not set to leavelda Player_Y_Position ;check to see if player's vertical coordinate hasandi Player_Y_HighPos ;same bits set as in vertical high byte (why?)bne ExGTimer ;if so, branch to leavesta ScrollLock ;otherwise nullify scroll lock flaginci WarpZoneControl ;increment warp zone flag to make warp pipes for warp zonejmp EraseEnemyObject ;kill this object;-------------------------------------------------------------------------------------;$00 - used in WhirlpoolActivate to store whirlpool length / 2, page location of center of whirlpool;and also to store movement force exerted on player;$01 - used in ProcessWhirlpools to store page location of right extent of whirlpool;and in WhirlpoolActivate to store center of whirlpool;$02 - used in ProcessWhirlpools to store right extent of whirlpool and in;WhirlpoolActivate to store maximum vertical speedProcessWhirlpools:lda AreaType ;check for water type levelcheckabne ExitWh ;branch to leave if not foundsta Whirlpool_Flag ;otherwise initialize whirlpool flaglda TimerControl ;if master timer control set,checkabne ExitWh ;branch to leaveldyn ++$04 ;otherwise start with last whirlpool dataWhLoop: lday Whirlpool_LeftExtent,y ;get left extent of whirlpoolclcadcy Whirlpool_Length,y ;add length of whirlpoolsta SCRATCHPAD+$02 ;store result as right extent hereldaykeepcy Whirlpool_PageLoc,y ;get page locationcheckabeq NextWh ;if none or page 0, branch to get next dataadcn ++$00 ;add carrysta SCRATCHPAD+$01 ;store result as page location of right extent herelda Player_X_Position ;get player's horizontal positionsecsubsbcy Whirlpool_LeftExtent,y ;subtract left extentlda Player_PageLoc ;get player's page locationsbcy Whirlpool_PageLoc,y ;subtract borrowbmi NextWh ;if player too far left, branch to get next datalda SCRATCHPAD+$02 ;otherwise get right extentsecsubsbci Player_X_Position ;subtract player's horizontal coordinatelda SCRATCHPAD+$01 ;get right extent's page locationsbci Player_PageLoc ;subtract borrowbpl WhirlpoolActivate ;if player within right extent, branch to whirlpool codeNextWh: dey ;move onto next whirlpool databpl WhLoop ;do this until all whirlpools are checkedExitWh: rts ;leaveWhirlpoolActivate:lday Whirlpool_Length,y ;get length of whirlpoollsr ;divide by 2sta SCRATCHPAD+$00 ;save herelday Whirlpool_LeftExtent,y ;get left extent of whirlpoolclcadci SCRATCHPAD+$00 ;add length divided by 2sta SCRATCHPAD+$01 ;save as center of whirlpoolldaykeepcy Whirlpool_PageLoc,y ;get page locationadcn ++$00 ;add carrysta SCRATCHPAD+$00 ;save as page location of whirlpool centerlda FrameCounter ;get frame counterlsr ;shift d0 into carry (to run on every other frame)bcc WhPull ;if d0 not set, branch to last part of codelda SCRATCHPAD+$01 ;get centersecsubsbci Player_X_Position ;subtract player's horizontal coordinatelda SCRATCHPAD+$00 ;get page location of centersbci Player_PageLoc ;subtract borrowbpl LeftWh ;if player to the left of center, branchlda Player_X_Position ;otherwise slowly pull player left, towards the centersecsubsbcn ++$01 ;subtract one pixelsta Player_X_Position ;set player's new horizontal coordinatelda Player_PageLocsbcn ++$00 ;subtract borrowjmp SetPWh ;jump to set player's new page locationLeftWh: lda Player_CollisionBits ;get player's collision bitslsr ;shift d0 into carrybcc WhPull ;if d0 not set, branchlda Player_X_Position ;otherwise slowly pull player right, towards the centerclcadcn ++$01 ;add one pixelsta Player_X_Position ;set player's new horizontal coordinatelda Player_PageLocadcn ++$00 ;add carrySetPWh: sta Player_PageLoc ;set player's new page locationWhPull: ldan ++$10sta SCRATCHPAD+$00 ;set vertical movement forceldan ++$01sta Whirlpool_Flag ;set whirlpool flag to be used latersta SCRATCHPAD+$02 ;also set maximum vertical speedlsrtax ;set X for player offsetjmp ImposeGravity ;jump to put whirlpool effect on player vertically, do not return;-------------------------------------------------------------------------------------FlagpoleScoreMods:.db $05, $02, $08, $04, $01FlagpoleScoreDigits:.db $03, $03, $04, $04, $04FlagpoleRoutine:ldxn ++$05 ;set enemy object offsetstx ObjectOffset ;to special use slotldax Enemy_ID,xcmpn ++FlagpoleFlagObject ;if flagpole flag not found,bne ExitFlagP ;branch to leavelda GameEngineSubroutinecmpn ++$04 ;if flagpole slide routine not running,bne SkipScore ;branch to near the end of codelda Player_Statecmpn ++$03 ;if player state not climbing,bne SkipScore ;branch to near the end of codeldax Enemy_Y_Position,x ;check flagpole flag's vertical coordinatecmpn ++$aa ;if flagpole flag down to a certain point,cmpcybcs GiveFPScr ;branch to end the levellda Player_Y_Position ;check player's vertical coordinatecmpn ++$a2 ;if player down to a certain point,cmpcybcs GiveFPScr ;branch to end the levelldax Enemy_YMF_Dummy,xor aadcn ++$ff ;add movement amount to dummy variablepush afstax Enemy_YMF_Dummy,x ;save dummy variableldax Enemy_Y_Position,x ;get flag's vertical coordinateld h,apop afld a,hadcn ++$01 ;add 1 plus carry to move flag, andstax Enemy_Y_Position,x ;store vertical coordinatelda FlagpoleFNum_YMFDummysecsub ;subtract movement amount from dummy variablesbcn ++$ffsta FlagpoleFNum_YMFDummy ;save dummy variablelda FlagpoleFNum_Y_Possbcn ++$01 ;subtract one plus borrow to move floatey number,sta FlagpoleFNum_Y_Pos ;and store vertical coordinate hereSkipScore: jmp FPGfx ;jump to skip ahead and draw flag and floatey numberGiveFPScr: ldy FlagpoleScore ;get score offset from earlier (when player touched flagpole)lday FlagpoleScoreMods,y ;get amount to award player pointsldxy FlagpoleScoreDigits,y ;get digit with which to award pointsstax DigitModifier,x ;store in digit modifierjsr AddToScore ;do sub to award player points depending on height of collisionldan ++$05sta GameEngineSubroutine ;set to run end-of-level subroutine on next frameFPGfx: jsr GetEnemyOffscreenBits ;get offscreen informationjsr RelativeEnemyPosition ;get relative coordinatesjsr FlagpoleGfxHandler ;draw flagpole flag and floatey numberExitFlagP: rts;-------------------------------------------------------------------------------------Jumpspring_Y_PosData:.db $08, $10, $08, $00JumpspringHandler:jsr GetEnemyOffscreenBits ;get offscreen informationlda TimerControl ;check master timer controlcheckabne DrawJSpr ;branch to last section if setlda JumpspringAnimCtrl ;check jumpspring frame controlcheckabeq DrawJSpr ;branch to last section if not settaydey ;subtract one from frame control,tya ;the only way a poor nmos 6502 canandn ++%00000010 ;mask out all but d1, original value still in Ybne DownJSpr ;if set, branch to move player upinci Player_Y_Positioninci Player_Y_Position ;move player's vertical position down two pixelsjmp PosJSpr ;skip to next partDownJSpr: deci Player_Y_Position ;move player's vertical position up two pixelsdeci Player_Y_PositionPosJSpr: ldax Jumpspring_FixedYPos,x ;get permanent vertical positionclcadcy Jumpspring_Y_PosData,y ;add value using frame control as offsetstax Enemy_Y_Position,x ;store as new vertical positioncpyn ++$01 ;check frame control offset (second frame is $00)cmpcybcc BounceJS ;if offset not yet at third frame ($01), skip to next partlda A_B_Buttonsandn ++A_Button ;check saved controller bits for A button pressbeq BounceJS ;skip to next part if A not pressedandi PreviousA_B_Buttons ;check for A button pressed in previous framebne BounceJS ;skip to next part if soldan ++$f4sta JumpspringForce ;otherwise write new jumpspring force hereBounceJS: cpyn ++$03 ;check frame control offset againbne DrawJSpr ;skip to last part if not yet at fifth frame ($03)lda JumpspringForcesta Player_Y_Speed ;store jumpspring force as player's new vertical speedldan ++$00sta JumpspringAnimCtrl ;initialize jumpspring frame controlDrawJSpr: jsr RelativeEnemyPosition ;get jumpspring's relative coordinatesjsr EnemyGfxHandler ;draw jumpspringjsr OffscreenBoundsCheck ;check to see if we need to kill itlda JumpspringAnimCtrl ;if frame control at zero, don't bothercheckabeq ExJSpring ;trying to animate it, just leavelda JumpspringTimercheckabne ExJSpring ;if jumpspring timer not expired yet, leaveldan ++$04sta JumpspringTimer ;otherwise initialize jumpspring timerinci JumpspringAnimCtrl ;increment frame control to animate jumpspringExJSpring: rts ;leave;-------------------------------------------------------------------------------------Setup_Vine:ldan ++VineObject ;load identifier for vine objectstax Enemy_ID,x ;store in bufferldan ++$01stax Enemy_Flag,x ;set flag for enemy object bufferlday Block_PageLoc,ystax Enemy_PageLoc,x ;copy page location from previous objectlday Block_X_Position,ystax Enemy_X_Position,x ;copy horizontal coordinate from previous objectlday Block_Y_Position,ystax Enemy_Y_Position,x ;copy vertical coordinate from previous objectldy VineFlagOffset ;load vine flag/offset to next available vine slotcheckybne NextVO ;if set at all, don't bother to store verticalsta VineStart_Y_Position ;otherwise store vertical coordinate hereNextVO: txa ;store object offset to next available vine slotstay VineObjOffset,y ;using vine flag as offsetinci VineFlagOffset ;increment vine flag offsetldan ++Sfx_GrowVinesta Square2SoundQueue ;load vine grow soundrts;-------------------------------------------------------------------------------------;$06-$07 - used as address to block buffer data;$02 - used as vertical high nybble of block buffer offsetVineHeightData:.db $30, $60VineObjectHandler:cpxn ++$05 ;check enemy offset for special use slotbne ExitVH ;if not in last slot, branch to leaveldy VineFlagOffsetdey ;decrement vine flag in Y, use as offsetlda VineHeightcmpy VineHeightData,y ;if vine has reached certain height,beq RunVSubs ;branch ahead to skip this partlda FrameCounter ;get frame counterlsr ;shift d1 into carrylsrbcc RunVSubs ;if d1 not set (2 frames every 4) skip this partlda Enemy_Y_Position+5or asbcn ++$01 ;subtract vertical position of vinesta Enemy_Y_Position+5 ;one pixel every frame it's timeinci VineHeight ;increment vine heightRunVSubs: lda VineHeight ;if vine still very small,cmpn ++$08 ;branch to leavecmpcybcc ExitVHjsr RelativeEnemyPosition ;get relative coordinates of vine,jsr GetEnemyOffscreenBits ;and any offscreen bitsldyn ++$00 ;initialize offset used in draw vine subVDrawLoop: jsr DrawVine ;draw vineiny ;increment offsetcpyi VineFlagOffset ;if offset in Y and offset herebne VDrawLoop ;do not yet match, loop back to draw more vinelda Enemy_OffscreenBitsandn ++%00001100 ;mask offscreen bitsbeq WrCMTile ;if none of the saved offscreen bits set, skip aheaddey ;otherwise decrement Y to get proper offset againKillVine: ldxy VineObjOffset,y ;get enemy object offset for this vine objectjsr EraseEnemyObject ;kill this vine objectdey ;decrement Ybpl KillVine ;if any vine objects left, loop back to kill itsta VineFlagOffset ;initialize vine flag/offsetsta VineHeight ;initialize vine heightWrCMTile: lda VineHeight ;check vine heightcmpn ++$20 ;if vine small (less than 32 pixels tall)cmpcybcc ExitVH ;then branch ahead to leaveldxn ++$06 ;set offset in X to last enemy slotldan ++$01 ;set A to obtain horizontal in $04, but we don't careldyn ++$1b ;set Y to offset to get block at ($04, $10) of coordinatesjsr BlockBufferCollision ;do a sub to get block buffer address set, return contentsldy SCRATCHPAD+$02cpyn ++$d0 ;if vertical high nybble offset beyond extent ofcmpcybcs ExitVH ;current block buffer, branch to leave, do not writeldayindirect (SCRATCHPAD+$06),y ;otherwise check contents of block buffer atcheckabne ExitVH ;current offset, if not empty, branch to leaveldan ++$26stayindirect (SCRATCHPAD+$06),y ;otherwise, write climbing metatile to block bufferExitVH: ldx ObjectOffset ;get enemy object offset and leaverts;-------------------------------------------------------------------------------------CannonBitmasks:.db %00001111, %00000111ProcessCannons:lda AreaType ;get area typecheckabeq ExCannon ;if water type area, branch to leaveldxn ++$02ThreeSChk: stx ObjectOffset ;start at third enemy slotldax Enemy_Flag,x ;check enemy buffer flagcheckabne Chk_BB ;if set, branch to check enemyldax PseudoRandomBitReg+1,x ;otherwise get part of LSFRldy SecondaryHardMode ;get secondary hard mode flag, use as offsetandy CannonBitmasks,y ;mask out bits of LSFR as decided by flagcmpn ++$06 ;check to see if lower nybble is above certain valuecmpcybcs Chk_BB ;if so, branch to check enemytay ;transfer masked contents of LSFR to Y as pseudorandom offsetlday Cannon_PageLoc,y ;get page locationcheckabeq Chk_BB ;if not set or on page 0, branch to check enemylday Cannon_Timer,y ;get cannon timercheckabeq FireCannon ;if expired, branch to fire cannonscfsbcn ++$00 ;otherwise subtract borrow (note carry will always be clear here)stay Cannon_Timer,y ;to count timer downjmp Chk_BB ;then jump ahead to check enemyFireCannon:lda TimerControl ;if master timer control set,checkabne Chk_BB ;branch to check enemyldan ++$0e ;otherwise we start creating onestay Cannon_Timer,y ;first, reset cannon timerlday Cannon_PageLoc,y ;get page location of cannonstax Enemy_PageLoc,x ;save as page location of bullet billlday Cannon_X_Position,y ;get horizontal coordinate of cannonstax Enemy_X_Position,x ;save as horizontal coordinate of bullet billlday Cannon_Y_Position,y ;get vertical coordinate of cannonsecsubsbcn ++$08 ;subtract eight pixels (because enemies are 24 pixels tall)stax Enemy_Y_Position,x ;save as vertical coordinate of bullet billldan ++$01stax Enemy_Y_HighPos,x ;set vertical high byte of bullet billstax Enemy_Flag,x ;set buffer flaglsr ;shift right once to init Astax Enemy_State,x ;then initialize enemy's stateldan ++$09stax Enemy_BoundBoxCtrl,x ;set bounding box size control for bullet billldan ++BulletBill_CannonVarstax Enemy_ID,x ;load identifier for bullet bill (cannon variant)jmp Next3Slt ;move onto next slotChk_BB: ldax Enemy_ID,x ;check enemy identifier for bullet bill (cannon variant)cmpn ++BulletBill_CannonVarbne Next3Slt ;if not found, branch to get next slotjsr OffscreenBoundsCheck ;otherwise, check to see if it went offscreenldax Enemy_Flag,x ;check enemy buffer flagcheckabeq Next3Slt ;if not set, branch to get next slotjsr GetEnemyOffscreenBits ;otherwise, get offscreen informationjsr BulletBillHandler ;then do sub to handle bullet billNext3Slt: dex ;move onto next slotbpl ThreeSChk ;do this until first three slots are checkedExCannon: rts ;then leave;--------------------------------BulletBillXSpdData:.db $18, $e8BulletBillHandler:lda TimerControl ;if master timer control set,checkabne RunBBSubs ;branch to run subroutines except movement subldax Enemy_State,xcheckabne ChkDSte ;if bullet bill's state set, branch to check defeated statelda Enemy_OffscreenBits ;otherwise load offscreen bitsandn ++%00001100 ;mask out bitscmpn ++%00001100 ;check to see if all bits are setbeq KillBB ;if so, branch to kill this objectldyn ++$01 ;set to move right by defaultjsr PlayerEnemyDiff ;get horizontal difference between player and bullet billbmi SetupBB ;if enemy to the left of player, branchiny ;otherwise increment to move leftSetupBB:push afstyx Enemy_MovingDir,x ;set bullet bill's moving directiondey ;decrement to use as offsetlday BulletBillXSpdData,y ;get horizontal speed based on moving directionstax Enemy_X_Speed,x ;and store itlda SCRATCHPAD+$00 ;get horizontal differenceld h,apop afld a,hadcn ++$28 ;add 40 pixelscmpn ++$50 ;if less than a certain amount, player is too closecmpcybcc KillBB ;to cannon either on left or right side, thus branchldan ++$01stax Enemy_State,x ;otherwise set bullet bill's stateldan ++$0astax EnemyFrameTimer,x ;set enemy frame timerldan ++Sfx_Blaststa Square2SoundQueue ;play fireworks/gunfire soundChkDSte: ldax Enemy_State,x ;check enemy state for d5 setandn ++%00100000beq BBFly ;if not set, skip to move horizontallyjsr MoveD_EnemyVertically ;otherwise do sub to move bullet bill verticallyBBFly: jsr MoveEnemyHorizontally ;do sub to move bullet bill horizontallyRunBBSubs: jsr GetEnemyOffscreenBits ;get offscreen informationjsr RelativeEnemyPosition ;get relative coordinatesjsr GetEnemyBoundBox ;get bounding box coordinatesjsr PlayerEnemyCollision ;handle player to enemy collisionsjmp EnemyGfxHandler ;draw the bullet bill and leaveKillBB: jsr EraseEnemyObject ;kill bullet bill and leaverts;-------------------------------------------------------------------------------------HammerEnemyOfsData:.db $04, $04, $04, $05, $05, $05.db $06, $06, $06HammerXSpdData:.db $10, $f0SpawnHammerObj:lda PseudoRandomBitReg+1 ;get pseudorandom bits fromandn ++%00000111 ;second part of LSFRbne SetMOfs ;if any bits are set, branch and use as offsetlda PseudoRandomBitReg+1andn ++%00001000 ;get d3 from same part of LSFRSetMOfs: tay ;use either d3 or d2-d0 for offset herelday Misc_State,y ;if any values loaded incheckabne NoHammer ;$2a-$32 where offset is then leave with carry clearldxy HammerEnemyOfsData,y ;get offset of enemy slot to check using Y as offsetldax Enemy_Flag,x ;check enemy buffer flag at offsetcheckabne NoHammer ;if buffer flag set, branch to leave with carry clearldx ObjectOffset ;get original enemy object offsettxastay HammerEnemyOffset,y ;save hereldan ++$90stay Misc_State,y ;save hammer's state hereldan ++$07stay Misc_BoundBoxCtrl,y ;set something else entirely, heresec ;return with carry setrtsNoHammer: ldx ObjectOffset ;get original enemy object offsetclc ;return with carry clearrts;--------------------------------;$00 - used to set downward force;$01 - used to set upward force (residual);$02 - used to set maximum speedProcHammerObj:lda TimerControl ;if master timer control setcheckabne RunHSubs ;skip all of this code and go to last subs at the endldax Misc_State,x ;otherwise get hammer's stateandn ++%01111111 ;mask out d7ldyx HammerEnemyOffset,x ;get enemy object offset that spawned this hammercmpn ++$02 ;check hammer's statecmpcybeq SetHSpd ;if currently at 2, branchbcs SetHPos ;if greater than 2, branch elsewheretxaclc ;add 13 bytes to useadcn ++$0d ;proper misc objecttax ;return offset to Xldan ++$10sta SCRATCHPAD+$00 ;set downward movement forceldan ++$0fsta SCRATCHPAD+$01 ;set upward movement force (not used)ldan ++$04sta SCRATCHPAD+$02 ;set maximum vertical speedldan ++$00 ;set A to impose gravity on hammerjsr ImposeGravity ;do sub to impose gravity on hammer and move verticallyjsr MoveObjectHorizontally ;do sub to move it horizontallyldx ObjectOffset ;get original misc object offsetjmp RunAllH ;branch to essential subroutinesSetHSpd: ldan ++$festax Misc_Y_Speed,x ;set hammer's vertical speedlday Enemy_State,y ;get enemy object stateandn ++%11110111 ;mask out d3stay Enemy_State,y ;store new stateldxy Enemy_MovingDir,y ;get enemy's moving directiondex ;decrement to use as offsetldax HammerXSpdData,x ;get proper speed to use based on moving directionldx ObjectOffset ;reobtain hammer's buffer offsetstax Misc_X_Speed,x ;set hammer's horizontal speedSetHPos: decx Misc_State,x ;decrement hammer's statelday Enemy_X_Position,y ;get enemy's horizontal positionclcadcn ++$02 ;set position 2 pixels to the rightpush afstax Misc_X_Position,x ;store as hammer's horizontal positionlday Enemy_PageLoc,y ;get enemy's page locationld h,apop afld a,hadcn ++$00 ;add carrystax Misc_PageLoc,x ;store as hammer's page locationlday Enemy_Y_Position,y ;get enemy's vertical positionsecsubsbcn ++$0a ;move position 10 pixels upwardstax Misc_Y_Position,x ;store as hammer's vertical positionldan ++$01stax Misc_Y_HighPos,x ;set hammer's vertical high bytecheckabne RunHSubs ;unconditional branch to skip first routineRunAllH: jsr PlayerHammerCollision ;handle collisionsRunHSubs: jsr GetMiscOffscreenBits ;get offscreen informationjsr RelativeMiscPosition ;get relative coordinatesjsr GetMiscBoundBox ;get bounding box coordinatesjsr DrawHammer ;draw the hammerrts ;and we are done here;-------------------------------------------------------------------------------------;$02 - used to store vertical high nybble offset from block buffer routine;$06 - used to store low byte of block buffer addressCoinBlock:jsr FindEmptyMiscSlot ;set offset for empty or last misc object buffer slot;CY = 1(no subtract borrow)???ldax Block_PageLoc,x ;get page location of block objectstay Misc_PageLoc,y ;store as page location of misc objectldax Block_X_Position,x ;get horizontal coordinate of block objectoran ++$05 ;add 5 pixelsstay Misc_X_Position,y ;store as horizontal coordinate of misc objectldax Block_Y_Position,x ;get vertical coordinate of block objector a ;???sbcn ++$10 ;subtract 16 pixelsstay Misc_Y_Position,y ;store as vertical coordinate of misc objectjmp JCoinC ;jump to rest of code as applies to this misc objectSetupJumpCoin:jsr FindEmptyMiscSlot ;set offset for empty or last misc object buffer slotldax Block_PageLoc2,x ;get page location saved earlierstay Misc_PageLoc,y ;and save as page location for misc objectlda SCRATCHPAD+$06 ;get low byte of block buffer offsetaslasl ;multiply by 16 to use lower nybbleaslaslpush aforan ++$05 ;add five pixelsstay Misc_X_Position,y ;save as horizontal coordinate for misc objectlda SCRATCHPAD+$02 ;get vertical high nybble offset from earlierld h,apop afld a,hadcn ++$20 ;add 32 pixels for the status barstay Misc_Y_Position,y ;store as vertical coordinateJCoinC: ldan ++$fbstay Misc_Y_Speed,y ;set vertical speedldan ++$01stay Misc_Y_HighPos,y ;set vertical high bytestay Misc_State,y ;set state for misc objectsta Square2SoundQueue ;load coin grab soundstx ObjectOffset ;store current control bit as misc object offsetjsr GiveOneCoin ;update coin tally on the screen and coin amount variableinci CoinTallyFor1Ups ;increment coin tally used to activate 1-up block flagrtsFindEmptyMiscSlot:ldyn ++$08 ;start at end of misc objects bufferFMiscLoop: lday Misc_State,y ;get misc object statecheckabeq UseMiscS ;branch if none found to use current offsetdey ;decrement offsetcpyn ++$05 ;do this for three slotsbne FMiscLoop ;do this until all slots are checkedldyn ++$08 ;if no empty slots found, use last slotUseMiscS: sty JumpCoinMiscOffset ;store offset of misc object buffer here (residual)rts;-------------------------------------------------------------------------------------MiscObjectsCore:ldxn ++$08 ;set at end of misc object bufferMiscLoop: stx ObjectOffset ;store misc object offset hereldax Misc_State,x ;check misc object statecheckabeq MiscLoopBack ;branch to check next slotasl ;otherwise shift d7 into carrybcc ProcJumpCoin ;if d7 not set, jumping coin, thus skip to rest of code herejsr ProcHammerObj ;otherwise go to process hammer,jmp MiscLoopBack ;then check next slot;--------------------------------;$00 - used to set downward force;$01 - used to set upward force (residual);$02 - used to set maximum speedProcJumpCoin:ldyx Misc_State,x ;check misc object statedey ;decrement to see if it's set to 1beq JCoinRun ;if so, branch to handle jumping coinincx Misc_State,x ;otherwise increment state to either start off or as timerldax Misc_X_Position,x ;get horizontal coordinate for misc objectclc ;whether its jumping coin (state 0 only) or floatey numberadci ScrollAmount ;add current scroll speedpush afstax Misc_X_Position,x ;store as new horizontal coordinateldax Misc_PageLoc,x ;get page locationld h,apop afld a,hadcn ++$00 ;add carrystax Misc_PageLoc,x ;store as new page locationldax Misc_State,xcmpn ++$30 ;check state of object for preset valuebne RunJCSubs ;if not yet reached, branch to subroutinesldan ++$00stax Misc_State,x ;otherwise nullify object statejmp MiscLoopBack ;and move onto next slotJCoinRun: txaclc ;add 13 bytes to offset for next subroutineadcn ++$0dtaxldan ++$50 ;set downward movement amountsta SCRATCHPAD+$00ldan ++$06 ;set maximum vertical speedsta SCRATCHPAD+$02lsr ;divide by 2 and setsta SCRATCHPAD+$01 ;as upward movement amount (apparently residual)ldan ++$00 ;set A to impose gravity on jumping coinjsr ImposeGravity ;do sub to move coin vertically and impose gravity on itldx ObjectOffset ;get original misc object offsetldax Misc_Y_Speed,x ;check vertical speedcmpn ++$05bne RunJCSubs ;if not moving downward fast enough, keep state as-isincx Misc_State,x ;otherwise increment state to change to floatey numberRunJCSubs: jsr RelativeMiscPosition ;get relative coordinatesjsr GetMiscOffscreenBits ;get offscreen informationjsr GetMiscBoundBox ;get bounding box coordinates (why?)jsr JCoinGfxHandler ;draw the coin or floatey numberMiscLoopBack:dex ;decrement misc object offsetbpl MiscLoop ;loop back until all misc objects handledrts ;then leave;-------------------------------------------------------------------------------------CoinTallyOffsets:.db $17, $1dScoreOffsets:.db $0b, $11StatusBarNybbles:.db $02, $13GiveOneCoin:ldan ++$01 ;set digit modifier to add 1 coinsta DigitModifier+5 ;to the current player's coin tallyldx CurrentPlayer ;get current player on the screenldyx CoinTallyOffsets,x ;get offset for player's coin tallyjsr DigitsMathRoutine ;update the coin tallyinci CoinTally ;increment onscreen player's coin amountlda CoinTallycmpn ++100 ;does player have 100 coins yet?bne CoinPoints ;if not, skip all of thisldan ++$00sta CoinTally ;otherwise, reinitialize coin amountinci NumberofLives ;give the player an extra lifeldan ++Sfx_ExtraLifesta Square2SoundQueue ;play 1-up soundCoinPoints:ldan ++$02 ;set digit modifier to awardsta DigitModifier+4 ;200 points to the playerAddToScore:ldx CurrentPlayer ;get current playerldyx ScoreOffsets,x ;get offset for player's scorejsr DigitsMathRoutine ;update the score internally with value in digit modifierGetSBNybbles:ldy CurrentPlayer ;get current playerlday StatusBarNybbles,y ;get nybbles based on player, use to update score and coinsUpdateNumber:jsr PrintStatusBarNumbers ;print status bar numbers based on nybbles, whatever they beldy VRAM_Buffer1_Offsetlday VRAM_Buffer1-6,y ;check highest digit of scorecheckabne NoZSup ;if zero, overwrite with space tile for zero suppressionldan ++$24stay VRAM_Buffer1-6,yNoZSup: ldx ObjectOffset ;get enemy object buffer offsetrts;-------------------------------------------------------------------------------------SetupPowerUp:;jr $ldan ++PowerUpObject ;load power-up identifier intosta Enemy_ID+5 ;special use slot of enemy object bufferldax Block_PageLoc,x ;store page location of block objectsta Enemy_PageLoc+5 ;as page location of power-up objectldax Block_X_Position,x ;store horizontal coordinate of block objectsta Enemy_X_Position+5 ;as horizontal coordinate of power-up objectldan ++$01sta Enemy_Y_HighPos+5 ;set vertical high byte of power-up objectldax Block_Y_Position,x ;get vertical coordinate of block objectsecsubsbcn ++$08 ;subtract 8 pixelssta Enemy_Y_Position+5 ;and use as vertical coordinate of power-up objectPwrUpJmp: ldan ++$01 ;this is a residual jump point in enemy object jump tablesta Enemy_State+5 ;set power-up object's statesta Enemy_Flag+5 ;set buffer flagldan ++$03sta Enemy_BoundBoxCtrl+5 ;set bounding box size control for power-up objectlda PowerUpTypecmpn ++$02 ;check currently loaded power-up typecmpcybcs PutBehind ;if star or 1-up, branch aheadlda PlayerStatus ;otherwise check player's current statuscmpn ++$02cmpcybcc StrType ;if player not fiery (<2), use status as power-up type;jr $lsr ;otherwise shift right to force fire flower typeStrType: sta PowerUpType ;store type herePutBehind: ldan ++%00100000sta Enemy_SprAttrib+5 ;set background priority bitldan ++Sfx_GrowPowerUpsta Square2SoundQueue ;load power-up reveal sound and leaverts;-------------------------------------------------------------------------------------PowerUpObjHandler:;jr $ldxn ++$05 ;set object offset for last slot in enemy object bufferstx ObjectOffsetlda Enemy_State+5 ;check power-up object's statecheckabeq ExitPUp ;if not set, branch to leaveasl ;shift to check if d7 was set in object statebcc GrowThePowerUp ;if not set, branch ahead to skip this partlda TimerControl ;if master timer control set,checkabne RunPUSubs ;branch ahead to enemy object routineslda PowerUpType ;check power-up typecheckabeq ShroomM ;if normal mushroom, branch ahead to move itcmpn ++$03beq ShroomM ;if 1-up mushroom, branch ahead to move itcmpn ++$02bne RunPUSubs ;if not star, branch elsewhere to skip movementjsr MoveJumpingEnemy ;otherwise impose gravity on star power-up and make it jumpjsr EnemyJump ;note that green paratroopa shares the same code herejmp RunPUSubs ;then jump to other power-up subroutinesShroomM: jsr MoveNormalEnemy ;do sub to make mushrooms movejsr EnemyToBGCollisionDet ;deal with collisionsjmp RunPUSubs ;run the other subroutinesGrowThePowerUp:lda FrameCounter ;get frame counterandn ++$03 ;mask out all but 2 LSBbne ChkPUSte ;if any bits set here, branchdeci Enemy_Y_Position+5 ;otherwise decrement vertical coordinate slowlylda Enemy_State+5 ;load power-up object stateinci Enemy_State+5 ;increment state for next frame (to make power-up rise)cmpn ++$11 ;if power-up object state not yet past 16th pixel,cmpcybcc ChkPUSte ;branch ahead to last part hereldan ++$10stax Enemy_X_Speed,x ;otherwise set horizontal speedldan ++%10000000sta Enemy_State+5 ;and then set d7 in power-up object's stateasl ;shift once to init Asta Enemy_SprAttrib+5 ;initialize background priority bit set hererol ;rotate A to set right moving directionstax Enemy_MovingDir,x ;set moving directionChkPUSte: lda Enemy_State+5 ;check power-up object's statecmpn ++$06 ;for if power-up has risen enoughcmpcybcc ExitPUp ;if not, don't even bother running these routinesRunPUSubs: jsr RelativeEnemyPosition ;get coordinates relative to screenjsr GetEnemyOffscreenBits ;get offscreen bitsjsr GetEnemyBoundBox ;get bounding box coordinatesjsr DrawPowerUp ;draw the power-up objectjsr PlayerEnemyCollision ;check for collision with playerjsr OffscreenBoundsCheck ;check to see if it went offscreenExitPUp: rts ;and we're done;-------------------------------------------------------------------------------------;These apply to all routines in this section unless otherwise noted:;$00 - used to store metatile from block buffer routine;$02 - used to store vertical high nybble offset from block buffer routine;$05 - used to store metatile stored in A at beginning of PlayerHeadCollision;$06-$07 - used as block buffer address indirectBlockYPosAdderData:.db $04, $12PlayerHeadCollision:pha ;store metatile number to stackldan ++$11 ;load unbreakable block object state by defaultldx SprDataOffset_Ctrl ;load offset control bit hereldy PlayerSize ;check player's sizecheckybne DBlockSte ;if small, branchldan ++$12 ;otherwise load breakable block object stateDBlockSte: stax Block_State,x ;store into block object bufferjsr DestroyBlockMetatile ;store blank metatile in vram buffer to write to name tableldx SprDataOffset_Ctrl ;load offset control bitlda SCRATCHPAD+$02 ;get vertical high nybble offset used in block buffer routinestax Block_Orig_YPos,x ;set as vertical coordinate for block objecttaylda SCRATCHPAD+$06 ;get low byte of block buffer address used in same routinestax Block_BBuf_Low,x ;save as offset here to be used laterldayindirect (SCRATCHPAD+$06),y ;get contents of block buffer at old address at $06, $07jsr BlockBumpedChk ;do a sub to check which block player bumped head onsta SCRATCHPAD+$00 ;store metatile hereldy PlayerSize ;check player's sizecheckybne ChkBrick ;if small, use metatile itself as contents of Atya ;otherwise init A (note: big = 0)ChkBrick: bcc PutMTileB ;if no match was found in previous sub, skip ahead;jr $ ;ё■фр яюярфрхь, хёыш Єюыъэєыш уюыютющ ърьхэ№ldyn ++$11 ;otherwise load unbreakable state into block object bufferstyx Block_State,x ;note this applies to both player sizesldan ++$c4 ;load empty block metatile into A for nowldy SCRATCHPAD+$00 ;get metatile from beforecpyn ++$58 ;is it brick with coins (with line)?beq StartBTmr ;if so, branchcpyn ++$5d ;is it brick with coins (without line)?bne PutMTileB ;if not, branch ahead to store empty block metatileStartBTmr: lda BrickCoinTimerFlag ;check brick coin timer flagcheckabne ContBTmr ;if set, timer expired or counting down, thus branchldan ++$0bsta BrickCoinTimer ;if not set, set brick coin timerinci BrickCoinTimerFlag ;and set flag linked to itContBTmr: lda BrickCoinTimer ;check brick coin timercheckabne PutOldMT ;if not yet expired, branch to use current metatileldyn ++$c4 ;otherwise use empty block metatilePutOldMT: tya ;put metatile into APutMTileB: stax Block_Metatile,x ;store whatever metatile be appropriate herejsr InitBlock_XY_Pos ;get block object horizontal coordinates savedldy SCRATCHPAD+$02 ;get vertical high nybble offsetldan ++$23stayindirect (SCRATCHPAD+$06),y ;write blank metatile $23 to block bufferldan ++$10sta BlockBounceTimer ;set block bounce timerpla ;pull original metatile from stacksta SCRATCHPAD+$05 ;and save hereldyn ++$00 ;set default offsetlda CrouchingFlag ;is player crouching?checkabne SmallBP ;if so, branch to increment offsetlda PlayerSize ;is player big?checkabeq BigBP ;if so, branch to use default offsetSmallBP: iny ;increment for small or big and crouchingBigBP: lda Player_Y_Position ;get player's vertical coordinateclcadcy BlockYPosAdderData,y ;add value determined by sizeandn ++$f0 ;mask out low nybble to get 16-pixel correspondencestax Block_Y_Position,x ;save as vertical coordinate for block objectldyx Block_State,x ;get block object statecpyn ++$11beq Unbreak ;if set to value loaded for unbreakable, branchjsr BrickShatter ;execute code for breakable brickjmp InvOBit ;skip subroutine to do last part of code hereUnbreak: jsr BumpBlock ;execute code for unbreakable brick or question blockInvOBit: lda SprDataOffset_Ctrl ;invert control bit used by block objectseorn ++$01 ;and floatey numberssta SprDataOffset_Ctrlrts ;leave!;--------------------------------InitBlock_XY_Pos:lda Player_X_Position ;get player's horizontal coordinateclcadcn ++$08 ;add eight pixelspush afandn ++$f0 ;mask out low nybble to give 16-pixel correspondencestax Block_X_Position,x ;save as horizontal coordinate for block objectpop aflda Player_PageLocadcn ++$00 ;add carry to page location of playerstax Block_PageLoc,x ;save as page location of block objectstax Block_PageLoc2,x ;save elsewhere to be used laterlda Player_Y_HighPosstax Block_Y_HighPos,x ;save vertical high byte of player intorts ;vertical high byte of block object and leave;--------------------------------BumpBlock:jsr CheckTopOfBlock ;check to see if there's a coin directly above this blockldan ++Sfx_Bumpsta Square1SoundQueue ;play bump soundldan ++$00stax Block_X_Speed,x ;initialize horizontal speed for block objectstax Block_Y_MoveForce,x ;init fractional movement forcesta Player_Y_Speed ;init player's vertical speedldan ++$festax Block_Y_Speed,x ;set vertical speed for block objectlda SCRATCHPAD+$05 ;get original metatile from stackjsr BlockBumpedChk ;do a sub to check which block player bumped head onbcc ExitBlockChk ;if no match was found, branch to leavetya ;move block number to Acmpn ++$09 ;if block number was within 0-8 range,cmpcybcc BlockCode ;branch to use current numbercmpcysbcn ++$05 ;otherwise subtract 5 for second set to get proper numberBlockCode: jsr JumpEngine ;run appropriate subroutine depending on block number.dw MushFlowerBlock.dw CoinBlock.dw CoinBlock.dw ExtraLifeMushBlock.dw MushFlowerBlock.dw VineBlock.dw StarBlock.dw CoinBlock.dw ExtraLifeMushBlock;--------------------------------MushFlowerBlock:ldan ++$00 ;load mushroom/fire flower into power-up typejr bonusblock_go;.db $2c ;BIT instruction opcodeStarBlock:ldan ++$02 ;load star into power-up typejr bonusblock_go;.db $2c ;BIT instruction opcodeExtraLifeMushBlock:ldan ++$03 ;load 1-up mushroom into power-up typebonusblock_gosta SCRATCHPAD+$39 ;store correct power-up typejmp SetupPowerUpVineBlock:ldxn ++$05 ;load last slot for enemy object bufferldy SprDataOffset_Ctrl ;get control bitjsr Setup_Vine ;set up vine objectExitBlockChk:rts ;leave;--------------------------------BrickQBlockMetatiles:.db $c1, $c0, $5f, $60 ;used by question blocks;these two sets are functionally identical, but look different.db $55, $56, $57, $58, $59 ;used by ground level types.db $5a, $5b, $5c, $5d, $5e ;used by other level typesBlockBumpedChk:ldyn ++$0d ;start at end of metatile dataBumpChkLoop: cmpy BrickQBlockMetatiles,y ;check to see if current metatile matchesbeq MatchBump ;metatile found in block buffer, branch if sodey ;otherwise move onto next metatilebpl BumpChkLoop ;do this until all metatiles are checkedclc ;if none match, return with carry clearif Z80rtsMatchBump:scfretelseMatchBump: rts ;note carry is set if found matchendif;--------------------------------BrickShatter:jsr CheckTopOfBlock ;check to see if there's a coin directly above this blockldan ++Sfx_BrickShatterstax Block_RepFlag,x ;set flag for block object to immediately replace metatilesta NoiseSoundQueue ;load brick shatter soundjsr SpawnBrickChunks ;create brick chunk objectsldan ++$festa Player_Y_Speed ;set vertical speed for playerldan ++$05sta DigitModifier+5 ;set digit modifier to give player 50 pointsjsr AddToScore ;do sub to update the scoreldx SprDataOffset_Ctrl ;load control bit and leaverts;--------------------------------CheckTopOfBlock:ldx SprDataOffset_Ctrl ;load control bitldy SCRATCHPAD+$02 ;get vertical high nybble offset used in block buffercheckybeq TopEx ;branch to leave if set to zero, because we're at the toptya ;otherwise set to Asecsubsbcn ++$10 ;subtract $10 to move up one row in the block buffersta SCRATCHPAD+$02 ;store as new vertical high nybble offsettayldayindirect (SCRATCHPAD+$06),y ;get contents of block buffer in same column, one row upcmpn ++$c2 ;is it a coin? (not underwater)bne TopEx ;if not, branch to leaveldan ++$00stayindirect (SCRATCHPAD+$06),y ;otherwise put blank metatile where coin wasjsr RemoveCoin_Axe ;write blank metatile to vram bufferldx SprDataOffset_Ctrl ;get control bitjsr SetupJumpCoin ;create jumping coin object and update coin variablesTopEx: rts ;leave!;--------------------------------SpawnBrickChunks:ldax Block_X_Position,x ;set horizontal coordinate of block objectstax Block_Orig_XPos,x ;as original horizontal coordinate hereldan ++$f0stax Block_X_Speed,x ;set horizontal speed for brick chunk objectsstax Block_X_Speed+2,xldan ++$fastax Block_Y_Speed,x ;set vertical speed for oneldan ++$fcstax Block_Y_Speed+2,x ;set lower vertical speed for the otherldan ++$00stax Block_Y_MoveForce,x ;init fractional movement force for bothstax Block_Y_MoveForce+2,xldax Block_PageLoc,xstax Block_PageLoc+2,x ;copy page locationldax Block_X_Position,xstax Block_X_Position+2,x ;copy horizontal coordinateldax Block_Y_Position,xclc ;add 8 pixels to vertical coordinateadcn ++$08 ;and save as vertical coordinate for one of themstax Block_Y_Position+2,xldan ++$fastax Block_Y_Speed,x ;set vertical speed...again??? (redundant)rts;-------------------------------------------------------------------------------------BlockObjectsCore:ldax Block_State,x ;get state of block objectcheckabeq UpdSte ;if not set, branch to leaveandn ++$0f ;mask out high nybblepha ;push to stacktay ;put in Y for nowtxaclcadcn ++$09 ;add 9 bytes to offset (note two block objects are createdtax ;when using brick chunks, but only one offset for both) ;эрўшэр ё юс·хъЄр #9 шфєЄ misc objects (ўЄю ¤Єю???)dey ;decrement Y to check for solid block statebeq BouncingBlockHandler ;branch if found, otherwise continue for brick chunksjsr ImposeGravityBlock ;do sub to impose gravity on one block object objectjsr MoveObjectHorizontally ;do another sub to move horizontallytxaclc ;move onto next block objectadcn ++$02taxjsr ImposeGravityBlock ;do sub to impose gravity on other block objectjsr MoveObjectHorizontally ;do another sub to move horizontallyldx ObjectOffset ;get block object offset used for bothjsr RelativeBlockPosition ;get relative coordinatesjsr GetBlockOffscreenBits ;get offscreen informationjsr DrawBrickChunks ;draw the brick chunkspla ;get lower nybble of saved stateldyx Block_Y_HighPos,x ;check vertical high byte of block objectcheckybeq UpdSte ;if above the screen, branch to kill itpha ;otherwise save state back into stackldan ++$f0cmpx Block_Y_Position+2,x ;check to see if bottom block object wentcmpcybcs ChkTop ;to the bottom of the screen, and branch if notstax Block_Y_Position+2,x ;otherwise set offscreen coordinateChkTop: ldax Block_Y_Position,x ;get top block object's vertical coordinatecmpn ++$f0 ;see if it went to the bottom of the screenplakeepcy ;pull block object state from stackcmpcybcc UpdSte ;if not, branch to save statebcs KillBlock ;otherwise do unconditional branch to kill itBouncingBlockHandler:jsr ImposeGravityBlock ;do sub to impose gravity on block objectldx ObjectOffset ;get block object offsetjsr RelativeBlockPosition ;get relative coordinatesjsr GetBlockOffscreenBits ;get offscreen informationjsr DrawBlock ;draw the blockldax Block_Y_Position,x ;get vertical coordinateandn ++$0f ;mask out high nybblecmpn ++$05 ;check to see if low nybble wrapped aroundcmpcyplakeepcy ;pull state from stackbcs UpdSte ;if still above amount, not time to kill block yet, thus branchldan ++$01stax Block_RepFlag,x ;otherwise set flag to replace metatileKillBlock: ldan ++$00 ;if branched here, nullify object stateUpdSte: stax Block_State,x ;store contents of A in block object staterts;-------------------------------------------------------------------------------------;$02 - used to store offset to block buffer;$06-$07 - used to store block buffer addressBlockObjMT_Updater:ldxn ++$01 ;set offset to start with second block objectUpdateLoop: stx ObjectOffset ;set offset herelda VRAM_Buffer1 ;if vram buffer already being used here,checkabne NextBUpd ;branch to move onto next block objectldax Block_RepFlag,x ;if flag for block object already clear,checkabeq NextBUpd ;branch to move onto next block objectldax Block_BBuf_Low,x ;get low byte of block buffersta SCRATCHPAD+$06 ;store into block buffer addressldan ++$05sta SCRATCHPAD+$07 ;set high byte of block buffer addressldax Block_Orig_YPos,x ;get original vertical coordinate of block objectsta SCRATCHPAD+$02 ;store here and use as offset to block buffertayldax Block_Metatile,x ;get metatile to be writtenstayindirect (SCRATCHPAD+$06),y ;write it to the block bufferjsr ReplaceBlockMetatile ;do sub to replace metatile where block object isldan ++$00stax Block_RepFlag,x ;clear block object flagNextBUpd: dex ;decrement block object offsetbpl UpdateLoop ;do this until both block objects are dealt withrts ;then leave;-------------------------------------------------------------------------------------;$00 - used to store high nybble of horizontal speed as adder;$01 - used to store low nybble of horizontal speed;$02 - used to store adder to page locationMoveEnemyHorizontally:inx ;increment offset for enemy offsetjsr MoveObjectHorizontally ;position object horizontally according toldx ObjectOffset ;counters, return with saved value in A,rts ;put enemy offset back in X and leaveMovePlayerHorizontally:lda JumpspringAnimCtrl ;if jumpspring currently animating,if Z80OPTor aret nz ;branch to leaveelsecheckabne ExXMove ;branch to leaveendiftax ;otherwise set zero for offset to use player's stuffMoveObjectHorizontally:;PageLoc_XPosition_XMoveforce += 16*Xspeed (signed);out: a=ёьх∙хэшх X-ъююЁфшэрЄ√ юЄэюёшЄхы№эю яЁю°ыющ яючшЎшш (шёяюы№чєхЄё Єюы№ъю фы яырЄЇюЁь? эхяюэ Єэю - чрўхь?);CY эх трцхэ;ьюцэю яюЁЄшЄ№ y;ьюцэю эх яшёрЄ№ т SCRATCHPAD+0,1,2if Z80OPTld ix,SprObject_X_Speedadd ix,bcld a,(ix)add a,ald l,asbc a,ald h,a ;Ёрё°шЁхэшх чэрърld e,a ;ёюїЁрэ хь чэръadd hl,hladd hl,hladd hl,hlld a,lld d,hld hl,SprObject_X_MoveForceadd hl,bcadd a,(hl) ;get whatever number's here (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√) ;add low nybble moved to highld (hl),a ;store result here (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)ld a,(ix+SprObject_X_Position-SprObject_X_Speed)ld l,aadc a,d ;add carry plus saved value (high nybble moved to lowld d,b;0ld h,a ;plus $f0 if necessary) to object's horizontal positionld a,(ix+SprObject_PageLoc-SprObject_X_Speed)adc a,e ;add carry plus other saved value to theld (ix+SprObject_PageLoc-SprObject_X_Speed),a ;object's page location and saveld a,hsub l;(ix+SprObject_X_Position-SprObject_X_Speed) ;(яюыєўрхЄё ёьх∙хэшх X-ъююЁфшэрЄ√ юЄэюёшЄхы№эю яЁю°ыющ яючшЎшш)ld (ix+SprObject_X_Position-SprObject_X_Speed),hretelse ;~Z80ldax SprObject_X_Speed,x ;get currently saved value (horizontalasl ;speed, secondary counter, whatever)asl ;and move low nybble to highaslaslsta SCRATCHPAD+$01 ;store result hereldax SprObject_X_Speed,x ;get saved value againlsr ;move high nybble to lowlsrlsrlsrcmpn ++$08 ;if < 8, branch, do not changecmpcybcc SaveXSpdoran ++%11110000 ;otherwise alter high nybble (Ёрё°шЁхэшх чэрър)SaveXSpd: sta SCRATCHPAD+$00 ;save result hereldyn ++$00 ;load default Y value herecmpn ++$00 ;if result positive, leave Y alonebpl UseAdderdey ;otherwise decrement YUseAdder: sty SCRATCHPAD+$02 ;save Y here (яюыєўшыё чэръ ёъюЁюёЄш 0/-1)ldax SprObject_X_MoveForce,x ;get whatever number's here (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)clcadci SCRATCHPAD+$01 ;add low nybble moved to highpush afstax SprObject_X_MoveForce,x ;store result here (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)pop afldan ++$00 ;init Arol ;rotate carry into d0pha ;push onto stack (ёюїЁрэ хь Їыру яхЁхэюёр яюёых ёыюцхэш ьырф°хщ ўрёЄш X-ъююЁфшэрЄ√)ror ;rotate d0 back onto carryldaxkeepcy SprObject_X_Position,xadci SCRATCHPAD+$00 ;add carry plus saved value (high nybble moved to lowpush afstax SprObject_X_Position,x ;plus $f0 if necessary) to object's horizontal positionldax SprObject_PageLoc,xld h,apop afld a,hadci SCRATCHPAD+$02 ;add carry plus other saved value to thestax SprObject_PageLoc,x ;object's page location and saveplaclc ;pull old carry from stack (Їыру яхЁхэюёр яюёых ёыюцхэш ьырф°хщ ўрёЄш X-ъююЁфшэрЄ√) and addadci SCRATCHPAD+$00 ;to high nybble moved to low (яюыєўрхЄё ёьх∙хэшх X-ъююЁфшэрЄ√ юЄэюёшЄхы№эю яЁю°ыющ яючшЎшш)ExXMove: rts ;and leaveendif;-------------------------------------------------------------------------------------;$00 - used for downward force;$01 - used for upward force;$02 - used for maximum vertical speedMovePlayerVertically:ldxn ++$00 ;set X for player offsetlda TimerControlcheckabne NoJSChk ;if master timer control set, branch aheadlda JumpspringAnimCtrl ;otherwise check to see if jumpspring is animatingif Z80OPTor aret nz ;branch to leave if soelsecheckabne ExXMove ;branch to leave if soendifNoJSChk: lda VerticalForce ;dump vertical forcesta SCRATCHPAD+$00ldan ++$04 ;set maximum vertical speed herejmp ImposeGravitySprObj ;then jump to move player vertically;--------------------------------MoveD_EnemyVertically:ldyn ++$3d ;set quick movement amount downwardsldax Enemy_State,x ;then check enemy statecmpn ++$05 ;if not set to unique state for spiny's egg, go aheadbne ContVMove ;and use, otherwise set different movement amount, continue onMoveFallingPlatform:ldyn ++$20 ;set movement amountContVMove: jmp SetHiMax ;jump to skip the rest of this;--------------------------------MoveRedPTroopaDown:ldyn ++$00 ;set Y to move downwardsjmp MoveRedPTroopa ;skip to movement routineMoveRedPTroopaUp:ldyn ++$01 ;set Y to move upwardsMoveRedPTroopa:inx ;increment X for enemy offsetldan ++$03sta SCRATCHPAD+$00 ;set downward movement amount hereldan ++$06sta SCRATCHPAD+$01 ;set upward movement amount hereldan ++$02sta SCRATCHPAD+$02 ;set maximum speed heretya ;set movement direction in A, andjmp RedPTroopaGrav ;jump to move this thing;--------------------------------MoveDropPlatform:ldyn ++$7f ;set movement amount for drop platformcheckybne SetMdMax ;skip ahead of other value set hereMoveEnemySlowVert:ldyn ++$0f ;set movement amount for bowser/other objectsSetMdMax: ldan ++$02 ;set maximum speed in Acheckabne SetXMoveAmt ;unconditional branch;--------------------------------MoveJ_EnemyVertically:ldyn ++$1c ;set movement amount for podoboo/other objectsSetHiMax: ldan ++$03 ;set maximum speed in ASetXMoveAmt: sty SCRATCHPAD+$00 ;set movement amount hereinx ;increment X for enemy offsetjsr ImposeGravitySprObj ;do a sub to move enemy object downwardsldx ObjectOffset ;get enemy object buffer offset and leaverts;--------------------------------MaxSpdBlockData:.db $06, $08ResidualGravityCode:ldyn ++$00 ;this part appears to be residual,jr ImposeGravityBlock_go;.db $2c ;no code branches or jumps to it...ImposeGravityBlock:ldyn ++$01 ;set offset for maximum speedImposeGravityBlock_goldan ++$50 ;set movement amount heresta SCRATCHPAD+$00lday MaxSpdBlockData,y ;get maximum speedImposeGravitySprObj:sta SCRATCHPAD+$02 ;set maximum speed hereldan ++$00 ;set value to move downwardsjmp ImposeGravity ;jump to the code that actually moves it;--------------------------------MovePlatformDown:ldan ++$00 ;save value to stack (if branching here, execute nextjr MovePlatform_go;.db $2c ;part as BIT instruction)MovePlatformUp:ldan ++$01 ;save value to stackMovePlatform_gophaldyx Enemy_ID,x ;get enemy object identifierinx ;increment offset for enemy objectldan ++$05 ;load default value herecpyn ++$29 ;residual comparison, object ++29 never executesbne SetDplSpd ;this code, thus unconditional branch hereldan ++$09 ;residual codeSetDplSpd: sta SCRATCHPAD+$00 ;save downward movement amount hereldan ++$0a ;save upward movement amount heresta SCRATCHPAD+$01ldan ++$03 ;save maximum vertical speed heresta SCRATCHPAD+$02pla ;get value from stacktay ;use as Y, then move onto code shared by red koopaRedPTroopaGrav:jsr ImposeGravity ;do a sub to move object graduallyldx ObjectOffset ;get enemy object offset and leaverts;-------------------------------------------------------------------------------------;$00 - used for downward force;$01 - used for upward force;$07 - used as adder for vertical positionImposeGravity:pha ;push value to stackldax SprObject_YMF_Dummy,xclc ;add value in movement force to contents of dummy variableadcx SprObject_Y_MoveForce,xpush afstax SprObject_YMF_Dummy,xldyn ++$00 ;set Y to zero by defaultldax SprObject_Y_Speed,x ;get current vertical speedld h,apop afld a,hcheckabpl AlterYP ;if currently moving downwards, do not decrement Ydey ;otherwise decrement YAlterYP: sty SCRATCHPAD+$07 ;store Y hereadcx SprObject_Y_Position,x ;add vertical position to vertical speed plus carrypush afstax SprObject_Y_Position,x ;store as new vertical positionldax SprObject_Y_HighPos,xld h,apop afld a,hadci SCRATCHPAD+$07 ;add carry plus contents of $07 to vertical high bytestax SprObject_Y_HighPos,x ;store as new vertical high byteldax SprObject_Y_MoveForce,xclcadci SCRATCHPAD+$00 ;add downward movement amount to contents of $0433push afstax SprObject_Y_MoveForce,xldax SprObject_Y_Speed,x ;add carry to vertical speed and storeld h,apop afld a,hadcn ++$00stax SprObject_Y_Speed,xcmpi SCRATCHPAD+$02 ;compare to maximum speedbmi ChkUpM ;if less than preset value, skip this partldax SprObject_Y_MoveForce,xcmpn ++$80 ;if less positively than preset maximum, skip this partcmpcybcc ChkUpMlda SCRATCHPAD+$02stax SprObject_Y_Speed,x ;keep vertical speed within maximum valueldan ++$00stax SprObject_Y_MoveForce,x ;clear fractionalChkUpM: pla ;get value from stackcheckabeq ExVMove ;if set to zero, branch to leavelda SCRATCHPAD+$02eorn ++%11111111 ;otherwise get two's compliment of maximum speedtayinysty SCRATCHPAD+$07 ;store two's compliment hereldax SprObject_Y_MoveForce,xsecsub ;subtract upward movement amount from contentssbci SCRATCHPAD+$01 ;of movement force, note that $01 is twice as large as $00,push afstax SprObject_Y_MoveForce,x ;thus it effectively undoes add we did earlierldax SprObject_Y_Speed,xld h,apop afld a,hsbcn ++$00 ;subtract borrow from vertical speed and storestax SprObject_Y_Speed,xcmpi SCRATCHPAD+$07 ;compare vertical speed to two's complimentbpl ExVMove ;if less negatively than preset maximum, skip this partldax SprObject_Y_MoveForce,xcmpn ++$80 ;check if fractional part is above certain amount,cmpcybcs ExVMove ;and if so, branch to leavelda SCRATCHPAD+$07stax SprObject_Y_Speed,x ;keep vertical speed within maximum valueldan ++$ffstax SprObject_Y_MoveForce,x ;clear fractionalExVMove: rts ;leave!;-------------------------------------------------------------------------------------EnemiesAndLoopsCore:ldax Enemy_Flag,x ;check data here for MSB setpha ;save in stackaslbcs ChkBowserF ;if MSB set in enemy flag, branch ahead of jumpspla ;get from stackcheckabeq ChkAreaTsk ;if data zero, branchjmp RunEnemyObjectsCore ;otherwise, jump to run enemy subroutinesChkAreaTsk: lda AreaParserTaskNum ;check number of tasks to performandn ++$07cmpn ++$07 ;if at a specific task, jump and leavebeq ExitELCorejmp ProcLoopCommand ;otherwise, jump to process loop command/load enemiesChkBowserF: pla ;get data from stackandn ++%00001111 ;mask out high nybbletaylday Enemy_Flag,y ;use as pointer and load same place with different offsetcheckabne ExitELCorestax Enemy_Flag,x ;if second enemy flag not set, also clear first oneExitELCore: rts;--------------------------------;loop command dataLoopCmdWorldNumber:.db $03, $03, $06, $06, $06, $06, $06, $06, $07, $07, $07LoopCmdPageNumber:.db $05, $09, $04, $05, $06, $08, $09, $0a, $06, $0b, $10LoopCmdYPosition:.db $40, $b0, $b0, $80, $40, $40, $80, $40, $f0, $f0, $f0ExecGameLoopback:lda Player_PageLoc ;send player back four pagessecsubsbcn ++$04sta Player_PageLoclda CurrentPageLoc ;send current page back four pagessecsubsbcn ++$04sta CurrentPageLoclda ScreenLeft_PageLoc ;subtract four from page locationsecsub ;of screen's left bordersbcn ++$04sta ScreenLeft_PageLoclda ScreenRight_PageLoc ;do the same for the page locationsecsub ;of screen's right bordersbcn ++$04sta ScreenRight_PageLoclda AreaObjectPageLoc ;subtract four from page controlsecsub ;for area objectssbcn ++$04sta AreaObjectPageLocldan ++$00 ;initialize page select for bothsta EnemyObjectPageSel ;area and enemy objectssta AreaObjectPageSelsta EnemyDataOffset ;initialize enemy object data offsetsta EnemyObjectPageLoc ;and enemy object page controllday AreaDataOfsLoopback,y ;adjust area object offset based onsta AreaDataOffset ;which loop command we encounteredrtsProcLoopCommand:lda LoopCommand ;check if loop command was foundcheckabeq ChkEnemyFrenzylda CurrentColumnPos ;check to see if we're still on the first pagecheckabne ChkEnemyFrenzy ;if not, do not loop yetldyn ++$0b ;start at the end of each set of loop dataFindLoop: deybmi ChkEnemyFrenzy ;if all data is checked and not match, do not looplda WorldNumber ;check to see if one of the world numberscmpy LoopCmdWorldNumber,y ;matches our current world numberbne FindLooplda CurrentPageLoc ;check to see if one of the page numberscmpy LoopCmdPageNumber,y ;matches the page we're currently onbne FindLooplda Player_Y_Position ;check to see if the player is at the correct positioncmpy LoopCmdYPosition,y ;if not, branch to check for world 7bne WrongChklda Player_State ;check to see if the player iscmpn ++$00 ;on solid ground (i.e. not jumping or falling)bne WrongChk ;if not, player fails to pass loop, and loopbacklda WorldNumber ;are we in world 7? (check performed on correctcmpn ++World7 ;vertical position and on solid ground)bne InitMLp ;if not, initialize flags used there, otherwiseinci MultiLoopCorrectCntr ;increment counter for correct progressionIncMLoop: inci MultiLoopPassCntr ;increment master multi-part counterlda MultiLoopPassCntr ;have we done all three parts?cmpn ++$03bne InitLCmd ;if not, skip this partlda MultiLoopCorrectCntr ;if so, have we done them all correctly?cmpn ++$03beq InitMLp ;if so, branch past unnecessary check herebne DoLpBack ;unconditional branch if previous branch failsWrongChk: lda WorldNumber ;are we in world 7? (check performed oncmpn ++World7 ;incorrect vertical position or not on solid ground)beq IncMLoopDoLpBack: jsr ExecGameLoopback ;if player is not in right place, loop backjsr KillAllEnemiesInitMLp: ldan ++$00 ;initialize counters used for multi-part loop commandssta MultiLoopPassCntrsta MultiLoopCorrectCntrInitLCmd: ldan ++$00 ;initialize loop command flagsta LoopCommand;--------------------------------ChkEnemyFrenzy:lda EnemyFrenzyQueue ;check for enemy object in frenzy queuecheckabeq ProcessEnemyData ;if not, skip this partstax Enemy_ID,x ;store as enemy object identifier hereldan ++$01stax Enemy_Flag,x ;activate enemy object flagldan ++$00stax Enemy_State,x ;initialize state and frenzy queuesta EnemyFrenzyQueuejmp InitEnemyObject ;and then jump to deal with this enemy;--------------------------------;$06 - used to hold page location of extended right boundary;$07 - used to hold high nybble of position of extended right boundaryProcessEnemyData:ldy EnemyDataOffset ;get offset of enemy object dataldayindirect (EnemyData),y ;load first bytecmpn ++$ff ;check for EOD terminatorbne CheckEndofBufferjmp CheckFrenzyBuffer ;if found, jump to check frenzy buffer, otherwiseCheckEndofBuffer:andn ++%00001111 ;check for special row $0ecmpn ++$0ebeq CheckRightBounds ;if found, branch, otherwisecpxn ++$05 ;check for end of buffercmpcybcc CheckRightBounds ;if not at end of buffer, branchinyldayindirect (EnemyData),y ;check for specific value hereandn ++%00111111 ;not sure what this was intended for, exactlycmpn ++$2e ;this part is quite possibly residual codebeq CheckRightBounds ;but it has the effect of keeping enemies out ofrts ;the sixth slotCheckRightBounds:lda ScreenRight_X_Pos ;add 48 to pixel coordinate of right boundaryclcadcn ++$30push afandn ++%11110000 ;store high nybblesta SCRATCHPAD+$07lda ScreenRight_PageLoc ;add carry to page location of right boundaryld h,apop afld a,hadcn ++$00sta SCRATCHPAD+$06 ;store page location + carryldy EnemyDataOffsetinyldayindirect (EnemyData),y ;if MSB of enemy object is clear, branch to check for row $0faslbcc CheckPageCtrlRowlda EnemyObjectPageSel ;if page select already set, do not set againcheckabne CheckPageCtrlRowinci EnemyObjectPageSel ;otherwise, if MSB is set, set page selectinci EnemyObjectPageLoc ;and increment page controlCheckPageCtrlRow:deyldayindirect (EnemyData),y ;reread first byteandn ++$0fcmpn ++$0f ;check for special row $0fbne PositionEnemyObj ;if not found, branch to position enemy objectlda EnemyObjectPageSel ;if page select set,checkabne PositionEnemyObj ;branch without reading second byteinyldayindirect (EnemyData),y ;otherwise, get second byte, mask out 2 MSBandn ++%00111111sta EnemyObjectPageLoc ;store as page control for enemy object datainci EnemyDataOffset ;increment enemy object data offset 2 bytesinci EnemyDataOffsetinci EnemyObjectPageSel ;set page select for enemy object data andjmp ProcLoopCommand ;jump back to process loop commands againPositionEnemyObj:lda EnemyObjectPageLoc ;store page control as page locationstax Enemy_PageLoc,x ;for enemy objectldayindirect (EnemyData),y ;get first byte of enemy objectandn ++%11110000stax Enemy_X_Position,x ;store column positioncmpi ScreenRight_X_Pos ;check column position against right boundaryldaxkeepcy Enemy_PageLoc,x ;without subtracting, then subtract borrowsbci ScreenRight_PageLoc ;from page locationcmpcybcs CheckRightExtBounds ;if enemy object beyond or at boundary, branchldayindirect (EnemyData),yandn ++%00001111 ;check for special row $0ecmpn ++$0e ;if found, jump elsewherebeq ParseRow0ejmp CheckThreeBytes ;if not found, unconditional jumpCheckRightExtBounds:lda SCRATCHPAD+$07 ;check right boundary + 48 againstcmpx Enemy_X_Position,x ;column position without subtracting,lda SCRATCHPAD+$06 ;then subtract borrow from page control tempsbcx Enemy_PageLoc,x ;plus carrycmpcybcc CheckFrenzyBuffer ;if enemy object beyond extended boundary, branchldan ++$01 ;store value in vertical high bytestax Enemy_Y_HighPos,xldayindirect (EnemyData),y ;get first byte againasl ;multiply by four to get the verticalasl ;coordinateaslaslstax Enemy_Y_Position,xcmpn ++$e0 ;do one last check for special row $0ebeq ParseRow0e ;(necessary if branched to $c1cb)inyldayindirect (EnemyData),y ;get second byte of objectandn ++%01000000 ;check to see if hard mode bit is setbeq CheckForEnemyGroup ;if not, branch to check for group enemy objectslda SecondaryHardMode ;if set, check to see if secondary hard mode flagcheckabeq Inc2B ;is on, and if not, branch to skip this object completelyCheckForEnemyGroup:ldayindirect (EnemyData),y ;get second byte and mask out 2 MSBandn ++%00111111cmpn ++$37 ;check for value below $37cmpcybcc BuzzyBeetleMutatecmpn ++$3f ;if $37 or greater, check for valuecmpcybcc DoGroup ;below $3f, branch if below $3fBuzzyBeetleMutate:cmpn ++Goomba ;if below $37, check for goombabne StrID ;value ($3f or more always fails)ldy PrimaryHardMode ;check if primary hard mode flag is setcheckybeq StrID ;and if so, change goomba to buzzy beetleldan ++BuzzyBeetleStrID: stax Enemy_ID,x ;store enemy object number into bufferldan ++$01stax Enemy_Flag,x ;set flag for enemy in bufferjsr InitEnemyObjectldax Enemy_Flag,x ;check to see if flag is setcheckabne Inc2B ;if not, leave, otherwise branchrtsCheckFrenzyBuffer:lda EnemyFrenzyBuffer ;if enemy object stored in frenzy buffercheckabne StrFre ;then branch ahead to store in enemy object bufferlda VineFlagOffset ;otherwise check vine flag offsetcmpn ++$01bne ExEPar ;if other value LOW HIGH 1, leaveldan ++VineObject ;otherwise put vine in enemy identifierStrFre: stax Enemy_ID,x ;store contents of frenzy buffer into enemy identifier valueInitEnemyObject:ldan ++$00 ;initialize enemy statestax Enemy_State,xjsr CheckpointEnemyID ;jump ahead to run jump engine and subroutinesExEPar: rts ;then leaveDoGroup:jmp HandleGroupEnemies ;handle enemy group objectsParseRow0e:iny ;increment Y to load third byte of objectinyldayindirect (EnemyData),ylsr ;move 3 MSB to the bottom, effectivelylsr ;making %xxx00000 into %00000xxxlsrlsrlsrcmpi WorldNumber ;is it the same world number as we're on?bne NotUse ;if not, do not use (this allows multiple usesdey ;of the same area, like the underground bonus areas)ldayindirect (EnemyData),y ;otherwise, get second byte and use as offsetsta AreaPointer ;to addresses for level and enemy object datainyldayindirect (EnemyData),y ;get third byte again, and this time mask outandn ++%00011111 ;the 3 MSB from before, save as page number to besta EntrancePage ;used upon entry to area, if area is enteredNotUse: jmp Inc3BCheckThreeBytes:ldy EnemyDataOffset ;load current offset for enemy object dataldayindirect (EnemyData),y ;get first byteandn ++%00001111 ;check for special row $0ecmpn ++$0ebne Inc2BInc3B: inci EnemyDataOffset ;if row = $0e, increment three bytesInc2B: inci EnemyDataOffset ;otherwise increment two bytesinci EnemyDataOffsetldan ++$00 ;init page select for enemy objectssta EnemyObjectPageSelldx ObjectOffset ;reload current offset in enemy buffersrts ;and leaveCheckpointEnemyID:ldax Enemy_ID,xcmpn ++$15 ;check enemy object identifier for $15 or greatercmpcybcs InitEnemyRoutines ;and branch straight to the jump engine if foundtay ;save identifier in Y register for nowldax Enemy_Y_Position,xor aadcn ++$08 ;add eight pixels to what will eventually be thestax Enemy_Y_Position,x ;enemy object's vertical coordinate ($00-$14 only)ldan ++$01stax EnemyOffscrBitsMasked,x ;set offscreen masked bittya ;get identifier back and use as offset for jump engineInitEnemyRoutines:jsr JumpEngine;jump engine table for newly loaded enemy objects.dw InitNormalEnemy ;for objects $00-$0f.dw InitNormalEnemy.dw InitNormalEnemy.dw InitRedKoopa.dw NoInitCode.dw InitHammerBro.dw InitGoomba.dw InitBloober.dw InitBulletBill.dw NoInitCode.dw InitCheepCheep.dw InitCheepCheep.dw InitPodoboo.dw InitPiranhaPlant.dw InitJumpGPTroopa.dw InitRedPTroopa.dw InitHorizFlySwimEnemy ;for objects $10-$1f.dw InitLakitu.dw InitEnemyFrenzy.dw NoInitCode.dw InitEnemyFrenzy.dw InitEnemyFrenzy.dw InitEnemyFrenzy.dw InitEnemyFrenzy.dw EndFrenzy.dw NoInitCode.dw NoInitCode.dw InitShortFirebar.dw InitShortFirebar.dw InitShortFirebar.dw InitShortFirebar.dw InitLongFirebar.dw NoInitCode ;for objects $20-$2f.dw NoInitCode.dw NoInitCode.dw NoInitCode.dw InitBalPlatform.dw InitVertPlatform.dw LargeLiftUp.dw LargeLiftDown.dw InitHoriPlatform.dw InitDropPlatform.dw InitHoriPlatform.dw PlatLiftUp.dw PlatLiftDown.dw InitBowser.dw PwrUpJmp ;possibly dummy value.dw Setup_Vine.dw NoInitCode ;for objects $30-$36.dw NoInitCode.dw NoInitCode.dw NoInitCode.dw NoInitCode.dw InitRetainerObj.dw EndOfEnemyInitCode;-------------------------------------------------------------------------------------NoInitCode:rts ;this executed when enemy object has no init code;--------------------------------InitGoomba:jsr InitNormalEnemy ;set appropriate horizontal speedjmp SmallBBox ;set $09 as bounding box control, set other values;--------------------------------InitPodoboo:ldan ++$02 ;set enemy position to belowstax Enemy_Y_HighPos,x ;the bottom of the screenstax Enemy_Y_Position,xlsrstax EnemyIntervalTimer,x ;set timer for enemylsrstax Enemy_State,x ;initialize enemy state, then jump to usejmp SmallBBox ;$09 as bounding box size and set other things;--------------------------------InitRetainerObj:ldan ++$b8 ;set fixed vertical position forstax Enemy_Y_Position,x ;princess/mushroom retainer objectrts;--------------------------------NormalXSpdData:.db $f8, $f4InitNormalEnemy:ldyn ++$01 ;load offset of 1 by defaultlda PrimaryHardMode ;check for primary hard mode flag setcheckabne GetESpddey ;if not set, decrement offsetGetESpd: lday NormalXSpdData,y ;get appropriate horizontal speedSetESpd: stax Enemy_X_Speed,x ;store as speed for enemy objectjmp TallBBox ;branch to set bounding box control and other data;--------------------------------InitRedKoopa:jsr InitNormalEnemy ;load appropriate horizontal speedldan ++$01 ;set enemy state for red koopa troopa $03stax Enemy_State,xrts;--------------------------------HBroWalkingTimerData:.db $80, $50InitHammerBro:ldan ++$00 ;init horizontal speed and timer used by hammer brostax HammerThrowingTimer,x ;apparently to time hammer throwingstax Enemy_X_Speed,xldy SecondaryHardMode ;get secondary hard mode flaglday HBroWalkingTimerData,ystax EnemyIntervalTimer,x ;set value as delay for hammer bro to walk leftldan ++$0b ;set specific value for bounding box size controljmp SetBBox;--------------------------------InitHorizFlySwimEnemy:ldan ++$00 ;initialize horizontal speedjmp SetESpd;--------------------------------InitBloober:ldan ++$00 ;initialize horizontal speedstax BlooperMoveSpeed,xSmallBBox: ldan ++$09 ;set specific bounding box size controlcheckabne SetBBox ;unconditional branch;--------------------------------InitRedPTroopa:;CY = 0 after JumpEngine ???or a ;???push afldyn ++$30 ;load central position adder for 48 pixels downldax Enemy_Y_Position,x ;set vertical coordinate into location tostax RedPTroopaOrigXPos,x ;be used as original vertical coordinateld h,apop afld a,hcheckabpl GetCent ;if vertical coordinate LOW $80ldyn ++$e0 ;if =HIGH $80, load position adder for 32 pixels upGetCent: tya ;send central position adder to Aadcx Enemy_Y_Position,x ;add to current vertical coordinatestax RedPTroopaCenterYPos,x ;store as central vertical coordinateTallBBox: ldan ++$03 ;set specific bounding box size controlSetBBox: stax Enemy_BoundBoxCtrl,x ;set bounding box control hereldan ++$02 ;set moving direction for leftstax Enemy_MovingDir,xInitVStf: ldan ++$00 ;initialize vertical speedstax Enemy_Y_Speed,x ;and movement forcestax Enemy_Y_MoveForce,xrts;--------------------------------InitBulletBill:ldan ++$02 ;set moving direction for leftstax Enemy_MovingDir,xldan ++$09 ;set bounding box control for $09stax Enemy_BoundBoxCtrl,xrts;--------------------------------InitCheepCheep:jsr SmallBBox ;set vertical bounding box, speed, init othersldax PseudoRandomBitReg,x ;check one portion of LSFRandn ++%00010000 ;get d4 from itstax CheepCheepMoveMFlag,x ;save as movement flag of some sortldax Enemy_Y_Position,xstax CheepCheepOrigYPos,x ;save original vertical coordinate hererts;--------------------------------InitLakitu:lda EnemyFrenzyBuffer ;check to see if an enemy is already incheckabne KillLakitu ;the frenzy buffer, and branch to kill lakitu if soSetupLakitu:ldan ++$00 ;erase counter for lakitu's reappearancesta LakituReappearTimerjsr InitHorizFlySwimEnemy ;set $03 as bounding box, set other attributesjmp TallBBox2 ;set $03 as bounding box again (not necessary) and leaveKillLakitu:jmp EraseEnemyObject;--------------------------------;$01-$03 - used to hold pseudorandom difference adjustersPRDiffAdjustData:.db $26, $2c, $32, $38.db $20, $22, $24, $26.db $13, $14, $15, $16LakituAndSpinyHandler:lda FrenzyEnemyTimer ;if timer here not expired, leavecheckabne ExLSHandcpxn ++$05 ;if we are on the special use slot, leavecmpcybcs ExLSHandldan ++$80 ;set timersta FrenzyEnemyTimerldyn ++$04 ;start with the last enemy slotChkLak: lday Enemy_ID,y ;check all enemy slots to seecmpn ++Lakitu ;if lakitu is on one of thembeq CreateSpiny ;if so, branch out of this loopdey ;otherwise check another slotbpl ChkLak ;loop until all slots are checkedinci LakituReappearTimer ;increment reappearance timerlda LakituReappearTimercmpn ++$07 ;check to see if we're up to a certain value yetcmpcybcc ExLSHand ;if not, leaveldxn ++$04 ;start with the last enemy slot againChkNoEn: ldax Enemy_Flag,x ;check enemy buffer flag for non-active enemy slotcheckabeq CreateL ;branch out of loop if founddex ;otherwise check next slotbpl ChkNoEn ;branch until all slots are checkedbmi RetEOfs ;if no empty slots were found, branch to leaveCreateL: ldan ++$00 ;initialize enemy statestax Enemy_State,xldan ++Lakitu ;create lakitu enemy objectstax Enemy_ID,xjsr SetupLakitu ;do a sub to set up lakituldan ++$20jsr PutAtRightExtent ;finish setting up lakituRetEOfs: ldx ObjectOffset ;get enemy object buffer offset again and leaveExLSHand: rts;--------------------------------CreateSpiny:lda Player_Y_Position ;if player above a certain point, branch to leavecmpn ++$2ccmpcybcc ExLSHandlday Enemy_State,y ;if lakitu is not in normal state, branch to leavecheckabne ExLSHandlday Enemy_PageLoc,y ;store horizontal coordinates (high and low) of lakitustax Enemy_PageLoc,x ;into the coordinates of the spiny we're going to createlday Enemy_X_Position,ystax Enemy_X_Position,xldan ++$01 ;put spiny within vertical screen unitstax Enemy_Y_HighPos,xlday Enemy_Y_Position,y ;put spiny eight pixels above where lakitu issecsubsbcn ++$08stax Enemy_Y_Position,xldax PseudoRandomBitReg,x ;get 2 LSB of LSFR and save to Yandn ++%00000011tayldxn ++$02DifLoop: lday PRDiffAdjustData,y ;get three values and save themstax SCRATCHPAD+$01,x ;to $01-$03inyiny ;increment Y four bytes for each valueinyinydex ;decrement X for each onebpl DifLoop ;loop until all three are writtenldx ObjectOffset ;get enemy object buffer offsetjsr PlayerLakituDiff ;move enemy, change direction, get value - differenceldy Player_X_Speed ;check player's horizontal speedcpyn ++$08cmpcybcs SetSpSpd ;if moving faster than a certain amount, branch elsewheretay ;otherwise save value in A to Y for nowldax PseudoRandomBitReg+1,xandn ++%00000011 ;get one of the LSFR parts and save the 2 LSBbeq UsePosv ;branch if neither bits are settyaeorn ++%11111111 ;otherwise get two's compliment of YtayinyUsePosv: tya ;put value from A in Y back to A (they will be lost anyway)SetSpSpd: jsr SmallBBox ;set bounding box control, init attributes, lose contents of Aldyn ++$02stax Enemy_X_Speed,x ;set horizontal speed to zero because previous contentscmpn ++$00 ;of A were lost...branch here will never be taken forbmi SpinyRte ;the same reasondeySpinyRte: styx Enemy_MovingDir,x ;set moving direction to the rightldan ++$fdstax Enemy_Y_Speed,x ;set vertical speed to move upwardsldan ++$01stax Enemy_Flag,x ;enable enemy object by setting flagldan ++$05stax Enemy_State,x ;put spiny in egg state and leaveChpChpEx: rts;--------------------------------FirebarSpinSpdData:.db $28, $38, $28, $38, $28FirebarSpinDirData:.db $00, $00, $10, $10, $00InitLongFirebar:jsr DuplicateEnemyObj ;create enemy object for long firebarInitShortFirebar:ldan ++$00 ;initialize low byte of spin statestax FirebarSpinState_Low,xldax Enemy_ID,x ;subtract $1b from enemy identifiersecsub ;to get proper offset for firebar datasbcn ++$1btaylday FirebarSpinSpdData,y ;get spinning speed of firebarstax FirebarSpinSpeed,xlday FirebarSpinDirData,y ;get spinning direction of firebarstax FirebarSpinDirection,xldax Enemy_Y_Position,xclc ;add four pixels to vertical coordinateadcn ++$04stax Enemy_Y_Position,xldax Enemy_X_Position,xclc ;add four pixels to horizontal coordinateadcn ++$04push afstax Enemy_X_Position,xldax Enemy_PageLoc,xld h,apop afld a,hadcn ++$00 ;add carry to page locationstax Enemy_PageLoc,xjmp TallBBox2 ;set bounding box control (not used) and leave;--------------------------------;$00-$01 - used to hold pseudorandom bitsFlyCCXPositionData:.db $80, $30, $40, $80.db $30, $50, $50, $70.db $20, $40, $80, $a0.db $70, $40, $90, $68FlyCCXSpeedData:.db $0e, $05, $06, $0e.db $1c, $20, $10, $0c.db $1e, $22, $18, $14FlyCCTimerData:.db $10, $60, $20, $48InitFlyingCheepCheep:lda FrenzyEnemyTimer ;if timer here not expired yet, branch to leavecheckabne ChpChpExjsr SmallBBox ;jump to set bounding box size $09 and init other valuesldax PseudoRandomBitReg+1,xandn ++%00000011 ;set pseudorandom offset heretaylday FlyCCTimerData,y ;load timer with pseudorandom offsetsta FrenzyEnemyTimerldyn ++$03 ;load Y with default valuelda SecondaryHardModecheckabeq MaxCC ;if secondary hard mode flag not set, do not increment Yiny ;otherwise, increment Y to allow as many as four onscreenMaxCC: sty SCRATCHPAD+$00 ;store whatever pseudorandom bits are in Ycpxi SCRATCHPAD+$00 ;compare enemy object buffer offset with Ycmpcybcs ChpChpEx ;if X =HIGH Y, branch to leaveldax PseudoRandomBitReg,xandn ++%00000011 ;get last two bits of LSFR, first partsta SCRATCHPAD+$00 ;and store in two placessta SCRATCHPAD+$01ldan ++$fb ;set vertical speed for cheep-cheepstax Enemy_Y_Speed,xldan ++$00 ;load default valueldy Player_X_Speed ;check player's horizontal speedcheckybeq GSeed ;if player not moving left or right, skip this partldan ++$04cpyn ++$19 ;if moving to the right but not very quickly,cmpcybcc GSeed ;do not change Aasl ;otherwise, multiply A by 2GSeed: pha ;save to stackclcadci SCRATCHPAD+$00 ;add to last two bits of LSFR we saved earliersta SCRATCHPAD+$00 ;save it thereldax PseudoRandomBitReg+1,xandn ++%00000011 ;if neither of the last two bits of second LSFR set,beq RSeed ;skip this part and save contents of $00ldax PseudoRandomBitReg+2,xandn ++%00001111 ;otherwise overwrite with lower nybble ofsta SCRATCHPAD+$00 ;third LSFR partRSeed: pla ;get value from stack we saved earlierclcadci SCRATCHPAD+$01 ;add to last two bits of LSFR we saved in other placetay ;use as pseudorandom offset herelday FlyCCXSpeedData,y ;get horizontal speed using pseudorandom offsetstax Enemy_X_Speed,xldan ++$01 ;set to move towards the rightstax Enemy_MovingDir,xlda Player_X_Speed ;if player moving left or right, branch ahead of this partcheckabne D2XPos1ldy SCRATCHPAD+$00 ;get first LSFR or third LSFR lower nybbletya ;and check for d1 setandn ++%00000010beq D2XPos1 ;if d1 not set, branchldax Enemy_X_Speed,xeorn ++$ff ;if d1 set, change horizontal speedclc ;into two's compliment, thus moving in the oppositeadcn ++$01 ;directionstax Enemy_X_Speed,xincx Enemy_MovingDir,x ;increment to move towards the leftD2XPos1: tya ;get first LSFR or third LSFR lower nybble againandn ++%00000010beq D2XPos2 ;check for d1 set again, branch again if not setlda Player_X_Position ;get player's horizontal positionclcadcy FlyCCXPositionData,y ;if d1 set, add value obtained from pseudorandom offsetpush afstax Enemy_X_Position,x ;and save as enemy's horizontal positionpop aflda Player_PageLoc ;get player's page locationadcn ++$00 ;add carry and jump past this partjmp FinCCStD2XPos2: lda Player_X_Position ;get player's horizontal positionsecsubsbcy FlyCCXPositionData,y ;if d1 not set, subtract value obtained from pseudorandompush afstax Enemy_X_Position,x ;offset and save as enemy's horizontal positionpop aflda Player_PageLoc ;get player's page locationsbcn ++$00 ;subtract borrowFinCCSt: stax Enemy_PageLoc,x ;save as enemy's page locationldan ++$01stax Enemy_Flag,x ;set enemy's buffer flagstax Enemy_Y_HighPos,x ;set enemy's high vertical byteldan ++$f8stax Enemy_Y_Position,x ;put enemy below the screen, and we are donerts;--------------------------------InitBowser:jsr DuplicateEnemyObj ;jump to create another bowser objectstx BowserFront_Offset ;save offset of first hereldan ++$00sta BowserBodyControls ;initialize bowser's body controlssta BridgeCollapseOffset ;and bridge collapse offsetldax Enemy_X_Position,xsta BowserOrigXPos ;store original horizontal position hereldan ++$dfsta BowserFireBreathTimer ;store something herestax Enemy_MovingDir,x ;and in moving directionldan ++$20sta BowserFeetCounter ;set bowser's feet timer and in enemy timerstax EnemyFrameTimer,xldan ++$05sta BowserHitPoints ;give bowser 5 hit pointslsrsta BowserMovementSpeed ;set default movement speed hererts;--------------------------------DuplicateEnemyObj:ldyn ++$ff ;start at beginning of enemy slotsFSLoop: iny ;increment one slotlday Enemy_Flag,y ;check enemy buffer flag for empty slotcheckabne FSLoop ;if set, branch and keep checkingsty DuplicateObj_Offset ;otherwise set offset heretxa ;transfer original enemy buffer offsetoran ++%10000000 ;store with d7 set as flag in new enemystay Enemy_Flag,y ;slot as well as enemy offsetldax Enemy_PageLoc,xstay Enemy_PageLoc,y ;copy page location and horizontal coordinatesldax Enemy_X_Position,x ;from original enemy to new enemystay Enemy_X_Position,yldan ++$01stax Enemy_Flag,x ;set flag as normal for original enemystay Enemy_Y_HighPos,y ;set high vertical byte for new enemyldax Enemy_Y_Position,xstay Enemy_Y_Position,y ;copy vertical coordinate from original to newFlmEx: rts ;and then leave;--------------------------------FlameYPosData:.db $90, $80, $70, $90FlameYMFAdderData:.db $ff, $01InitBowserFlame:lda FrenzyEnemyTimer ;if timer not expired yet, branch to leavecheckabne FlmExstax Enemy_Y_MoveForce,x ;reset something herelda NoiseSoundQueueoran ++Sfx_BowserFlame ;load bowser's flame sound into queuesta NoiseSoundQueueldy BowserFront_Offset ;get bowser's buffer offsetlday Enemy_ID,y ;check for bowsercmpn ++Bowserbeq SpawnFromMouth ;branch if foundjsr SetFlameTimer ;get timer data based on flame counterclcadcn ++$20 ;add 32 frames by defaultldy SecondaryHardModecheckybeq SetFrT ;if secondary mode flag not set, use as timer settingsecsubsbcn ++$10 ;otherwise subtract 16 frames for secondary hard modeSetFrT: sta FrenzyEnemyTimer ;set timer accordinglyldax PseudoRandomBitReg,xandn ++%00000011 ;get 2 LSB from first part of LSFRstax BowserFlamePRandomOfs,x ;set heretay ;use as offsetlday FlameYPosData,y ;load vertical position based on pseudorandom offsetPutAtRightExtent:stax Enemy_Y_Position,x ;set vertical positionlda ScreenRight_X_Posclcadcn ++$20 ;place enemy 32 pixels beyond right side of screenpush afstax Enemy_X_Position,xpop aflda ScreenRight_PageLocadcn ++$00 ;add carrystax Enemy_PageLoc,xjmp FinishFlame ;skip this part to finish setting valuesSpawnFromMouth:lday Enemy_X_Position,y ;get bowser's horizontal positionsecsubsbcn ++$0e ;subtract 14 pixelsstax Enemy_X_Position,x ;save as flame's horizontal positionlday Enemy_PageLoc,ystax Enemy_PageLoc,x ;copy page location from bowser to flamelday Enemy_Y_Position,yclc ;add 8 pixels to bowser's vertical positionadcn ++$08stax Enemy_Y_Position,x ;save as flame's vertical positionldax PseudoRandomBitReg,xandn ++%00000011 ;get 2 LSB from first part of LSFRstax Enemy_YMF_Dummy,x ;save heretay ;use as offsetlday FlameYPosData,y ;get value here using bits as offsetldyn ++$00 ;load default offsetcmpx Enemy_Y_Position,x ;compare value to flame's current vertical positioncmpcybcc SetMF ;if less, do not increment offsetiny ;otherwise increment nowSetMF: lday FlameYMFAdderData,y ;get value here and savestax Enemy_Y_MoveForce,x ;to vertical movement forceldan ++$00sta EnemyFrenzyBuffer ;clear enemy frenzy bufferFinishFlame:ldan ++$08 ;set $08 for bounding box controlstax Enemy_BoundBoxCtrl,xldan ++$01 ;set high byte of vertical andstax Enemy_Y_HighPos,x ;enemy buffer flagstax Enemy_Flag,xlsrstax Enemy_X_MoveForce,x ;initialize horizontal movement force (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√), andstax Enemy_State,x ;enemy staterts;--------------------------------FireworksXPosData:.db $00, $30, $60, $60, $00, $20FireworksYPosData:.db $60, $40, $70, $40, $60, $30InitFireworks:lda FrenzyEnemyTimer ;if timer not expired yet, branch to leavecheckabne ExitFWkldan ++$20 ;otherwise reset timersta FrenzyEnemyTimerdeci FireworksCounter ;decrement for each explosionldyn ++$06 ;start at last slotStarFChk: deylday Enemy_ID,y ;check for presence of star flag objectcmpn ++StarFlagObject ;if there isn't a star flag object,bne StarFChk ;routine goes into infinite loop = crashlday Enemy_X_Position,ysecsub ;get horizontal coordinate of star flag object, thensbcn ++$30 ;subtract 48 pixels from it and save topha ;the stackldaykeepcy Enemy_PageLoc,ysbcn ++$00 ;subtract the carry from the page locationsta SCRATCHPAD+$00 ;of the star flag objectlda FireworksCounter ;get fireworks counterclcadcy Enemy_State,y ;add state of star flag object (possibly not necessary)tay ;use as offsetpla ;get saved horizontal coordinate of star flag - 48 pixelsclcadcy FireworksXPosData,y ;add number based on offset of fireworks counterpush afstax Enemy_X_Position,x ;store as the fireworks object horizontal coordinatepop aflda SCRATCHPAD+$00adcn ++$00 ;add carry and store as page location forstax Enemy_PageLoc,x ;the fireworks objectlday FireworksYPosData,y ;get vertical position using same offsetstax Enemy_Y_Position,x ;and store as vertical coordinate for fireworks objectldan ++$01stax Enemy_Y_HighPos,x ;store in vertical high bytestax Enemy_Flag,x ;and activate enemy buffer flaglsrstax ExplosionGfxCounter,x ;initialize explosion counterldan ++$08stax ExplosionTimerCounter,x ;set explosion timing counterExitFWk: rts;--------------------------------Bitmasks:.db %00000001, %00000010, %00000100, %00001000, %00010000, %00100000, %01000000, %10000000Enemy17YPosData:.db $40, $30, $90, $50, $20, $60, $a0, $70SwimCC_IDData:.db $0a, $0bBulletBillCheepCheep:lda FrenzyEnemyTimer ;if timer not expired yet, branch to leavecheckabne ExF17lda AreaType ;are we in a water-type level?checkabne DoBulletBills ;if not, branch elsewherecpxn ++$03 ;are we past third enemy slot?cmpcybcs ExF17 ;if so, branch to leaveldyn ++$00 ;load default offsetldax PseudoRandomBitReg,xcmpn ++$aa ;check first part of LSFR against preset valuecmpcybcc ChkW2 ;if less than preset, do not increment offsetiny ;otherwise incrementChkW2: lda WorldNumber ;check world numbercmpn ++World2beq Get17ID ;if we're on world 2, do not increment offsetiny ;otherwise incrementGet17ID: tyaandn ++%00000001 ;mask out all but last bit of offsettaylday SwimCC_IDData,y ;load identifier for cheep-cheepsSet17ID: stax Enemy_ID,x ;store whatever's in A as enemy identifierlda BitMFiltercmpn ++$ff ;if not all bits set, skip init part and compare bitsbne GetRBitldan ++$00 ;initialize vertical position filtersta BitMFilterGetRBit: ldax PseudoRandomBitReg,x ;get first part of LSFRandn ++%00000111 ;mask out all but 3 LSBChkRBit: tay ;use as offsetlday Bitmasks,y ;load bitmaskbiti BitMFilter ;perform AND on filter without changing itbeq AddFBitiny ;increment offsettyaandn ++%00000111 ;mask out all but 3 LSB thus keeping it 0-7jmp ChkRBit ;do another checkAddFBit: orai BitMFilter ;add bit to already set bits in filtersta BitMFilter ;and storelday Enemy17YPosData,y ;load vertical position using offsetjsr PutAtRightExtent ;set vertical position and other valuesstax Enemy_YMF_Dummy,x ;initialize dummy variableldan ++$20 ;set timersta FrenzyEnemyTimerjmp CheckpointEnemyID ;process our new enemy objectDoBulletBills:ldyn ++$ff ;start at beginning of enemy slotsBB_SLoop: iny ;move onto the next slotcpyn ++$05 ;branch to play sound if we've done all slotscmpcybcs FireBulletBilllday Enemy_Flag,y ;if enemy buffer flag not set,checkabeq BB_SLoop ;loop back and check another slotlday Enemy_ID,ycmpn ++BulletBill_FrenzyVar ;check enemy identifier forbne BB_SLoop ;bullet bill object (frenzy variant)ExF17: rts ;if found, leaveFireBulletBill:lda Square2SoundQueueoran ++Sfx_Blast ;play fireworks/gunfire soundsta Square2SoundQueueldan ++BulletBill_FrenzyVar ;load identifier for bullet bill objectcheckabne Set17ID ;unconditional branch;--------------------------------;$00 - used to store Y position of group enemies;$01 - used to store enemy ID;$02 - used to store page location of right side of screen;$03 - used to store X position of right side of screenHandleGroupEnemies:ldyn ++$00 ;load value for green koopa troopasecsubsbcn ++$37 ;subtract $37 from second byte readpha ;save result in stack for nowcmpn ++$04 ;was byte in $3b-$3e range?cmpcybcs SnglID ;if so, branchpha ;save another copy to stackldyn ++Goomba ;load value for goomba enemylda PrimaryHardMode ;if primary hard mode flag not set,checkabeq PullID ;branch, otherwise change to valueldyn ++BuzzyBeetle ;for buzzy beetlePullID: pla ;get second copy from stackSnglID: sty SCRATCHPAD+$01 ;save enemy id hereldyn ++$b0 ;load default y coordinateandn ++$02 ;check to see if d1 was setbeq SetYGp ;if so, move y coordinate up,ldyn ++$70 ;otherwise branch and use defaultSetYGp: sty SCRATCHPAD+$00 ;save y coordinate herelda ScreenRight_PageLoc ;get page number of right edge of screensta SCRATCHPAD+$02 ;save herelda ScreenRight_X_Pos ;get pixel coordinate of right edgesta SCRATCHPAD+$03 ;save hereldyn ++$02 ;load two enemies by defaultpla ;get first copy from stacklsr ;check to see if d0 was setbcc CntGrp ;if not, use default valueiny ;otherwise increment to three enemiesCntGrp: sty NumberofGroupEnemies ;save number of enemies hereGrLoop: ldxn ++$ff ;start at beginning of enemy buffersGSltLp: inx ;increment and branch if pastcpxn ++$05 ;end of bufferscmpcybcs NextEDldax Enemy_Flag,x ;check to see if enemy is alreadycheckabne GSltLp ;stored in buffer, and branch if solda SCRATCHPAD+$01stax Enemy_ID,x ;store enemy object identifierlda SCRATCHPAD+$02stax Enemy_PageLoc,x ;store page location for enemy objectlda SCRATCHPAD+$03stax Enemy_X_Position,x ;store x coordinate for enemy objectclcadcn ++$18 ;add 24 pixels for next enemysta SCRATCHPAD+$03lda SCRATCHPAD+$02 ;add carry to page location foradcn ++$00 ;next enemysta SCRATCHPAD+$02lda SCRATCHPAD+$00 ;store y coordinate for enemy objectstax Enemy_Y_Position,xldan ++$01 ;activate flag for buffer, andstax Enemy_Y_HighPos,x ;put enemy within the screen verticallystax Enemy_Flag,xjsr CheckpointEnemyID ;process each enemy object separatelydeci NumberofGroupEnemies ;do this until we run out of enemy objectsbne GrLoopNextED: jmp Inc2B ;jump to increment data offset and leave;--------------------------------InitPiranhaPlant:ldan ++$01 ;set initial speedstax PiranhaPlant_Y_Speed,xlsrstax Enemy_State,x ;initialize enemy state and what would normallystax PiranhaPlant_MoveFlag,x ;be used as vertical speed, but not in this caseldax Enemy_Y_Position,xstax PiranhaPlantDownYPos,x ;save original vertical coordinate heresecsubsbcn ++$18stax PiranhaPlantUpYPos,x ;save original vertical coordinate - 24 pixels hereldan ++$09jmp SetBBox2 ;set specific value for bounding box control ;эрўшэр ё юс·хъЄр #9 шфєЄ misc objects (ўЄю ¤Єю???);--------------------------------InitEnemyFrenzy:ldax Enemy_ID,x ;load enemy identifiersta EnemyFrenzyBuffer ;save in enemy frenzy buffersecsubsbcn ++$12 ;subtract 12 and use as offset for jump enginejsr JumpEngine;frenzy object jump table.dw LakituAndSpinyHandler.dw NoFrenzyCode.dw InitFlyingCheepCheep.dw InitBowserFlame.dw InitFireworks.dw BulletBillCheepCheep;--------------------------------NoFrenzyCode:rts;--------------------------------EndFrenzy:ldyn ++$05 ;start at last slotLakituChk: lday Enemy_ID,y ;check enemy identifierscmpn ++Lakitu ;for lakitubne NextFSlotldan ++$01 ;if found, set statestay Enemy_State,yNextFSlot: dey ;move onto the next slotbpl LakituChk ;do this until all slots are checkedldan ++$00sta EnemyFrenzyBuffer ;empty enemy frenzy bufferstax Enemy_Flag,x ;disable enemy buffer flag for this objectrts;--------------------------------InitJumpGPTroopa:ldan ++$02 ;set for movement to the leftstax Enemy_MovingDir,xldan ++$f8 ;set horizontal speedstax Enemy_X_Speed,xTallBBox2: ldan ++$03 ;set specific value for bounding box controlSetBBox2: stax Enemy_BoundBoxCtrl,x ;set bounding box control then leaverts;--------------------------------InitBalPlatform:decx Enemy_Y_Position,x ;raise vertical position by two pixelsdecx Enemy_Y_Position,xldy SecondaryHardMode ;if secondary hard mode flag not set,checkybne AlignP ;branch aheadldyn ++$02 ;otherwise set value herejsr PosPlatform ;do a sub to add or subtract pixelsAlignP: ldyn ++$ff ;set default value here for nowlda BalPlatformAlignment ;get current balance platform alignmentstax Enemy_State,x ;set platform alignment to object state herecheckabpl SetBPA ;if old alignment $ff, put $ff as alignment for negativetxa ;if old contents already $ff, puttay ;object offset as alignment to make next positiveSetBPA: sty BalPlatformAlignment ;store whatever value's in Y hereldan ++$00stax Enemy_MovingDir,x ;init moving directiontay ;init Yjsr PosPlatform ;do a sub to add 8 pixels, then run shared code here;--------------------------------InitDropPlatform:ldan ++$ffstax PlatformCollisionFlag,x ;set some value herejmp CommonPlatCode ;then jump ahead to execute more code;--------------------------------InitHoriPlatform:ldan ++$00stax XMoveSecondaryCounter,x ;init one of the moving countersjmp CommonPlatCode ;jump ahead to execute more code;--------------------------------InitVertPlatform:ldyn ++$40 ;set default value hereldax Enemy_Y_Position,x ;check vertical positioncheckabpl SetYO ;if above a certain point, skip this parteorn ++$ffclc ;otherwise get two's complimentadcn ++$01ldyn ++$c0 ;get alternate value to add to vertical positionSetYO: stax YPlatformTopYPos,x ;save as top vertical positiontyaclc ;load value from earlier, add number of pixelsadcx Enemy_Y_Position,x ;to vertical positionstax YPlatformCenterYPos,x ;save result as central vertical position;--------------------------------CommonPlatCode:jsr InitVStf ;do a sub to init certain other valuesSPBBox: ldan ++$05 ;set default bounding box size controlldy AreaTypecpyn ++$03 ;check for castle-type levelbeq CasPBB ;use default value if foundldy SecondaryHardMode ;otherwise check for secondary hard mode flagcheckybne CasPBB ;if set, use default valueldan ++$06 ;use alternate value if not castle or secondary not setCasPBB: stax Enemy_BoundBoxCtrl,x ;set bounding box size control here and leaverts;--------------------------------LargeLiftUp:jsr PlatLiftUp ;execute code for platforms going upjmp LargeLiftBBox ;overwrite bounding box for large platformsLargeLiftDown:jsr PlatLiftDown ;execute code for platforms going downLargeLiftBBox:jmp SPBBox ;jump to overwrite bounding box size control;--------------------------------PlatLiftUp:ldan ++$10 ;set movement amount herestax Enemy_Y_MoveForce,xldan ++$ff ;set moving speed for platforms going upstax Enemy_Y_Speed,xjmp CommonSmallLift ;skip ahead to part we should be executing;--------------------------------PlatLiftDown:ldan ++$f0 ;set movement amount herestax Enemy_Y_MoveForce,xldan ++$00 ;set moving speed for platforms going downstax Enemy_Y_Speed,x;--------------------------------CommonSmallLift:ldyn ++$01jsr PosPlatform ;do a sub to add 12 pixels due to preset valueldan ++$04stax Enemy_BoundBoxCtrl,x ;set bounding box control for small platformsrts;--------------------------------PlatPosDataLow:.db $08,$0c,$f8PlatPosDataHigh:.db $00,$00,$ffPosPlatform:ldax Enemy_X_Position,x ;get horizontal coordinateclcadcy PlatPosDataLow,y ;add or subtract pixels depending on offsetpush afstax Enemy_X_Position,x ;store as new horizontal coordinateldax Enemy_PageLoc,xld h,apop afld a,hadcy PlatPosDataHigh,y ;add or subtract page location depending on offsetstax Enemy_PageLoc,x ;store as new page locationrts ;and go back;--------------------------------EndOfEnemyInitCode:rts;-------------------------------------------------------------------------------------RunEnemyObjectsCore:;jr $ldx ObjectOffset ;get offset for enemy object bufferldan ++$00 ;load value 0 for jump engine by defaultldyx Enemy_ID,xcpyn ++$15 ;if enemy object LOW $15, use default valuecmpcybcc JmpEOtya ;otherwise subtract $14 from the value and usecmpcysbcn ++$14 ;as value for jump engineJmpEO: jsr JumpEngine.dw RunNormalEnemies ;for objects $00-$14.dw RunBowserFlame ;for objects $15-$1f.dw RunFireworks.dw NoRunCode.dw NoRunCode.dw NoRunCode.dw NoRunCode.dw RunFirebarObj.dw RunFirebarObj.dw RunFirebarObj.dw RunFirebarObj.dw RunFirebarObj.dw RunFirebarObj ;for objects $20-$2f.dw RunFirebarObj.dw RunFirebarObj.dw NoRunCode.dw RunLargePlatform.dw RunLargePlatform.dw RunLargePlatform.dw RunLargePlatform.dw RunLargePlatform.dw RunLargePlatform.dw RunLargePlatform.dw RunSmallPlatform.dw RunSmallPlatform.dw RunBowser.dw PowerUpObjHandler.dw VineObjectHandler.dw NoRunCode ;for objects $30-$35.dw RunStarFlagObj.dw JumpspringHandler.dw NoRunCode.dw WarpZoneObject.dw RunRetainerObj;--------------------------------NoRunCode:rts;--------------------------------RunRetainerObj:jsr GetEnemyOffscreenBitsjsr RelativeEnemyPositionjmp EnemyGfxHandler;--------------------------------RunNormalEnemies:;TODO ёє∙хёЄтхээю єёъюЁшЄ№ ¤Єюldan ++$00 ;init sprite attributesstax Enemy_SprAttrib,x;jr $jsr GetEnemyOffscreenBits ;1589t (497 opt)jsr RelativeEnemyPosition ;316t (274 opt)if Z80logicframe=$+1ld l,0dec lcall z,EnemyGfxHandler ;Єюы№ъю т яюёыхфэхь ърфЁх ыюушъш (эхяюёЁхфёЄтхээю яхЁхф юЄюсЁрцхэшхь)elsejsr EnemyGfxHandler ;4939t (тэєЄЁш 3 т√чютр яю 768t) (3280 opt) <----- TODO эх т√ч√трЄ№, хёыш ¤Єю эх яюёыхфэшщ ърфЁ ыюушъш?endifjsr GetEnemyBoundBox ;631t (452 opt)jsr EnemyToBGCollisionDet ;3500t (тэєЄЁш ChkUnderEnemy (cc46) = 1193t, BlockBufferChk_Enemy (cf18) = 1159t) (2058 opt) <-----jsr EnemiesCollision ;45/230t (ьюцхЄ с√Є№ ъєфр сюы№°х) (209 opt)jsr PlayerEnemyCollision ;230t (58 opt)ldy TimerControl ;if master timer control set, skip to last routinecheckybne SkipMovejsr EnemyMovementSubs ;1408t (833 opt)SkipMove: jmp OffscreenBoundsCheckEnemyMovementSubs:ldax Enemy_ID,xjsr JumpEngine.dw MoveNormalEnemy ;only objects $00-$14 use this table.dw MoveNormalEnemy.dw MoveNormalEnemy.dw MoveNormalEnemy.dw MoveNormalEnemy.dw ProcHammerBro.dw MoveNormalEnemy.dw MoveBloober.dw MoveBulletBill.dw NoMoveCode.dw MoveSwimmingCheepCheep.dw MoveSwimmingCheepCheep.dw MovePodoboo.dw MovePiranhaPlant.dw MoveJumpingEnemy.dw ProcMoveRedPTroopa.dw MoveFlyGreenPTroopa.dw MoveLakitu.dw MoveNormalEnemy.dw NoMoveCode ;dummy.dw MoveFlyingCheepCheep;--------------------------------NoMoveCode:rts;--------------------------------RunBowserFlame:jsr ProcBowserFlamejsr GetEnemyOffscreenBitsjsr RelativeEnemyPositionjsr GetEnemyBoundBoxjsr PlayerEnemyCollisionjmp OffscreenBoundsCheck;--------------------------------RunFirebarObj:jsr ProcFirebarjmp OffscreenBoundsCheck;--------------------------------RunSmallPlatform:jsr GetEnemyOffscreenBitsjsr RelativeEnemyPositionjsr SmallPlatformBoundBoxjsr SmallPlatformCollisionjsr RelativeEnemyPositionjsr DrawSmallPlatformjsr MoveSmallPlatformjmp OffscreenBoundsCheck;--------------------------------RunLargePlatform:jsr GetEnemyOffscreenBitsjsr RelativeEnemyPositionjsr LargePlatformBoundBoxjsr LargePlatformCollisionlda TimerControl ;if master timer control set,checkabne SkipPT ;skip subroutine treejsr LargePlatformSubroutinesSkipPT: jsr RelativeEnemyPositionjsr DrawLargePlatformjmp OffscreenBoundsCheck;--------------------------------LargePlatformSubroutines:ldax Enemy_ID,x ;subtract $24 to get proper offset for jump tablesecsubsbcn ++$24jsr JumpEngine.dw BalancePlatform ;table used by objects $24-$2a.dw YMovingPlatform.dw MoveLargeLiftPlat.dw MoveLargeLiftPlat.dw XMovingPlatform.dw DropPlatform.dw RightPlatform;-------------------------------------------------------------------------------------EraseEnemyObject:;TODO ixldan ++$00 ;clear all enemy object variablesstax Enemy_Flag,xstax Enemy_ID,xstax Enemy_State,xstax FloateyNum_Control,xstax EnemyIntervalTimer,xstax ShellChainCounter,xstax Enemy_SprAttrib,xstax EnemyFrameTimer,xrts;-------------------------------------------------------------------------------------MovePodoboo:ldax EnemyIntervalTimer,x ;check enemy timercheckabne PdbM ;branch to move enemy if not expiredjsr InitPodoboo ;otherwise set up podoboo againldax PseudoRandomBitReg+1,x ;get part of LSFRoran ++%10000000 ;set d7stax Enemy_Y_MoveForce,x ;store as movement forceandn ++%00001111 ;mask out high nybbleoran ++$06 ;set for at least six intervalsstax EnemyIntervalTimer,x ;store as new enemy timerldan ++$f9stax Enemy_Y_Speed,x ;set vertical speed to move podoboo upwardsPdbM: jmp MoveJ_EnemyVertically ;branch to impose gravity on podoboo;--------------------------------;$00 - used in HammerBroJumpCode as bitmaskHammerThrowTmrData:.db $30, $1cXSpeedAdderData:.db $00, $e8, $00, $18RevivedXSpeed:.db $08, $f8, $0c, $f4ProcHammerBro:ldax Enemy_State,x ;check hammer bro's enemy state for d5 setandn ++%00100000beq ChkJH ;if not set, go ahead with codejmp MoveDefeatedEnemy ;otherwise jump to something elseChkJH: ldax HammerBroJumpTimer,x ;check jump timercheckabeq HammerBroJumpCode ;if expired, branch to jumpdecx HammerBroJumpTimer,x ;otherwise decrement jump timerlda Enemy_OffscreenBitsandn ++%00001100 ;check offscreen bitsbne MoveHammerBroXDir ;if hammer bro a little offscreen, skip to movement codeldax HammerThrowingTimer,x ;check hammer throwing timercheckabne DecHT ;if not expired, skip ahead, do not throw hammerldy SecondaryHardMode ;otherwise get secondary hard mode flaglday HammerThrowTmrData,y ;get timer data using flag as offsetstax HammerThrowingTimer,x ;set as new timerjsr SpawnHammerObj ;do a sub here to spawn hammer objectbcc DecHT ;if carry clear, hammer not spawned, skip to decrement timerldax Enemy_State,xoran ++%00001000 ;set d3 in enemy state for hammer throwstax Enemy_State,xjmp MoveHammerBroXDir ;jump to move hammer broDecHT: decx HammerThrowingTimer,x ;decrement timerjmp MoveHammerBroXDir ;jump to move hammer broHammerBroJumpLData:.db $20, $37HammerBroJumpCode:ldax Enemy_State,x ;get hammer bro's enemy stateandn ++%00000111 ;mask out all but 3 LSBcmpn ++$01 ;check for d0 set (for jumping)beq MoveHammerBroXDir ;if set, branch ahead to moving codeldan ++$00 ;load default value heresta SCRATCHPAD+$00 ;save into temp variable for nowldyn ++$fa ;set default vertical speedldax Enemy_Y_Position,x ;check hammer bro's vertical coordinatecheckabmi SetHJ ;if on the bottom half of the screen, use current speedldyn ++$fd ;otherwise set alternate vertical speedcmpn ++$70 ;check to see if hammer bro is above the middle of screencmpcyinci SCRATCHPAD+$00 ;increment preset value to $01bcc SetHJ ;if above the middle of the screen, use current speed and $01deci SCRATCHPAD+$00 ;otherwise return value to $00ldax PseudoRandomBitReg+1,x ;get part of LSFR, mask out all but LSBandn ++$01bne SetHJ ;if d0 of LSFR set, branch and use current speed and $00ldyn ++$fa ;otherwise reset to default vertical speedSetHJ: styx Enemy_Y_Speed,x ;set vertical speed for jumpingldax Enemy_State,x ;set d0 in enemy state for jumpingoran ++$01stax Enemy_State,xlda SCRATCHPAD+$00 ;load preset value here to use as bitmaskandx PseudoRandomBitReg+2,x ;and do bit-wise comparison with part of LSFRtay ;then use as offsetlda SecondaryHardMode ;check secondary hard mode flagcheckabne HJumptay ;if secondary hard mode flag clear, set offset to 0HJump: lday HammerBroJumpLData,y ;get jump length timer data using offset from beforestax EnemyFrameTimer,x ;save in enemy timerldax PseudoRandomBitReg+1,xoran ++%11000000 ;get contents of part of LSFR, set d7 and d6, thenstax HammerBroJumpTimer,x ;store in jump timerMoveHammerBroXDir:ldyn ++$fc ;move hammer bro a little to the leftlda FrameCounterandn ++%01000000 ;change hammer bro's direction every 64 framesbne Shimmyldyn ++$04 ;if d6 set in counter, move him a little to the rightShimmy: styx Enemy_X_Speed,x ;store horizontal speedldyn ++$01 ;set to face right by defaultjsr PlayerEnemyDiff ;get horizontal difference between player and hammer brobmi SetShim ;if enemy to the left of player, skip this partiny ;set to face leftldax EnemyIntervalTimer,x ;check walking timercheckabne SetShim ;if not yet expired, skip to set moving directionldan ++$f8stax Enemy_X_Speed,x ;otherwise, make the hammer bro walk left towards playerSetShim: styx Enemy_MovingDir,x ;set moving directionMoveNormalEnemy:ldyn ++$00 ;init Y to leave horizontal movement as-isldax Enemy_State,xandn ++%01000000 ;check enemy state for d6 set, if set skipbne FallE ;to move enemy vertically, then horizontally if necessaryldax Enemy_State,xasl ;check enemy state for d7 setbcs SteadM ;if set, branch to move enemy horizontallyldax Enemy_State,xandn ++%00100000 ;check enemy state for d5 setbne MoveDefeatedEnemy ;if set, branch to move defeated enemy objectldax Enemy_State,xandn ++%00000111 ;check d2-d0 of enemy state for any set bitsbeq SteadM ;if enemy in normal state, branch to move enemy horizontallycmpn ++$05beq FallE ;if enemy in state used by spiny's egg, go ahead herecmpn ++$03cmpcybcs ReviveStunned ;if enemy in states $03 or $04, skip ahead to yet another partFallE: jsr MoveD_EnemyVertically ;do a sub here to move enemy downwardsldyn ++$00ldax Enemy_State,x ;check for enemy state $02cmpn ++$02beq MEHor ;if found, branch to move enemy horizontallyandn ++%01000000 ;check for d6 setbeq SteadM ;if not set, branch to something elseldax Enemy_ID,xcmpn ++PowerUpObject ;check for power-up objectbeq SteadMbne SlowM ;if any other object where d6 set, jump to set YMEHor: jmp MoveEnemyHorizontally ;jump here to move enemy horizontally for LOW HIGH $2e and d6 setSlowM: ldyn ++$01 ;if branched here, increment Y to slow horizontal movementSteadM: ldax Enemy_X_Speed,x ;get current horizontal speedpha ;save to stackcheckabpl AddHS ;if not moving or moving right, skip, leave Y aloneinyiny ;otherwise increment Y to next dataAddHS: clcadcy XSpeedAdderData,y ;add value here to slow enemy down if necessarystax Enemy_X_Speed,x ;save as horizontal speed temporarilyjsr MoveEnemyHorizontally ;then do a sub to move horizontallyplastax Enemy_X_Speed,x ;get old horizontal speed from stack and return torts ;original memory location, then leaveReviveStunned:ldax EnemyIntervalTimer,x ;if enemy timer not expired yet,checkabne ChkKillGoomba ;skip ahead to something elsestax Enemy_State,x ;otherwise initialize enemy state to normallda FrameCounterandn ++$01 ;get d0 of frame countertay ;use as Y and increment for movement directioninystyx Enemy_MovingDir,x ;store as pseudorandom movement directiondey ;decrement for use as pointerlda PrimaryHardMode ;check primary hard mode flagcheckabeq SetRSpd ;if not set, use pointer as-isinyiny ;otherwise increment 2 bytes to next dataSetRSpd: lday RevivedXSpeed,y ;load and store new horizontal speedstax Enemy_X_Speed,x ;and leavertsMoveDefeatedEnemy:jsr MoveD_EnemyVertically ;execute sub to move defeated enemy downwardsjmp MoveEnemyHorizontally ;now move defeated enemy horizontallyChkKillGoomba:cmpn ++$0e ;check to see if enemy timer has reachedbne NKGmba ;a certain point, and branch to leave if notldax Enemy_ID,xcmpn ++Goomba ;check for goomba objectbne NKGmba ;branch if not foundjsr EraseEnemyObject ;otherwise, kill this goomba objectNKGmba: rts ;leave!;--------------------------------MoveJumpingEnemy:jsr MoveJ_EnemyVertically ;do a sub to impose gravity on green paratroopajmp MoveEnemyHorizontally ;jump to move enemy horizontally;--------------------------------ProcMoveRedPTroopa:ldax Enemy_Y_Speed,xorax Enemy_Y_MoveForce,x ;check for any vertical force or speedbne MoveRedPTUpOrDown ;branch if any foundstax Enemy_YMF_Dummy,x ;initialize something hereldax Enemy_Y_Position,x ;check current vs. original vertical coordinatecmpx RedPTroopaOrigXPos,xcmpcybcs MoveRedPTUpOrDown ;if current =HIGH original, skip ahead to more codelda FrameCounter ;get frame counterandn ++%00000111 ;mask out all but 3 LSBbne NoIncPT ;if any bits set, branch to leaveincx Enemy_Y_Position,x ;otherwise increment red paratroopa's vertical positionNoIncPT: rts ;leaveMoveRedPTUpOrDown:ldax Enemy_Y_Position,x ;check current vs. central vertical coordinatecmpx RedPTroopaCenterYPos,xcmpcybcc MovPTDwn ;if current LOW central, jump to move downwardsjmp MoveRedPTroopaUp ;otherwise jump to move upwardsMovPTDwn: jmp MoveRedPTroopaDown ;move downwards;--------------------------------;$00 - used to store adder for movement, also used as adder for platform;$01 - used to store maximum value for secondary counterMoveFlyGreenPTroopa:jsr XMoveCntr_GreenPTroopa ;do sub to increment primary and secondary countersjsr MoveWithXMCntrs ;do sub to move green paratroopa accordingly, and horizontallyldyn ++$01 ;set Y to move green paratroopa downlda FrameCounterandn ++%00000011 ;check frame counter 2 LSB for any bits setbne NoMGPT ;branch to leave if set to move up/down every fourth framelda FrameCounterandn ++%01000000 ;check frame counter for d6 setbne YSway ;branch to move green paratroopa down if setldyn ++$ff ;otherwise set Y to move green paratroopa upYSway: sty SCRATCHPAD+$00 ;store adder hereldax Enemy_Y_Position,xclc ;add or subtract from vertical positionadci SCRATCHPAD+$00 ;to give green paratroopa a wavy flightstax Enemy_Y_Position,xNoMGPT: rts ;leave!XMoveCntr_GreenPTroopa:ldan ++$13 ;load preset maximum value for secondary counterXMoveCntr_Platform:sta SCRATCHPAD+$01 ;store value herelda FrameCounterandn ++%00000011 ;branch to leave if not onbne NoIncXM ;every fourth frameldyx XMoveSecondaryCounter,x ;get secondary counterldax XMovePrimaryCounter,x ;get primary counterlsrbcs DecSeXM ;if d0 of primary counter set, branch elsewherecpyi SCRATCHPAD+$01 ;compare secondary counter to preset maximum valuebeq IncPXM ;if equal, branch ahead of this partincx XMoveSecondaryCounter,x ;increment secondary counter and leaveNoIncXM: rtsIncPXM: incx XMovePrimaryCounter,x ;increment primary counter and leavertsDecSeXM: tya ;put secondary counter in Acheckabeq IncPXM ;if secondary counter at zero, branch backdecx XMoveSecondaryCounter,x ;otherwise decrement secondary counter and leavertsMoveWithXMCntrs:ldax XMoveSecondaryCounter,x ;save secondary counter to stackphaldyn ++$01 ;set value here by defaultldax XMovePrimaryCounter,xandn ++%00000010 ;if d1 of primary counter isbne XMRight ;set, branch ahead of this part hereldax XMoveSecondaryCounter,xeorn ++$ff ;otherwise change secondaryclc ;counter to two's complimentadcn ++$01stax XMoveSecondaryCounter,xldyn ++$02 ;load alternate value hereXMRight: styx Enemy_MovingDir,x ;store as moving directionjsr MoveEnemyHorizontallysta SCRATCHPAD+$00 ;save value obtained from sub here (ёюїЁрэ хь ёьх∙хэшх X-ъююЁфшэрЄ√ яю ёЁртэхэш■ ё яЁю°ы√ь яюыюцхэшхь)pla ;get secondary counter from stackstax XMoveSecondaryCounter,x ;and return to original placerts;--------------------------------BlooberBitmasks:.db %00111111, %00000011MoveBloober:ldax Enemy_State,xandn ++%00100000 ;check enemy state for d5 setbne MoveDefeatedBloober ;branch if set to move defeated blooberldy SecondaryHardMode ;use secondary hard mode flag as offsetldax PseudoRandomBitReg+1,x ;get LSFRandy BlooberBitmasks,y ;mask out bits in LSFR using bitmask loaded with offsetbne BlooberSwim ;if any bits set, skip ahead to make swimtxalsr ;check to see if on second or fourth slot (1 or 3)bcc FBLeft ;if not, branch to figure out moving directionldy Player_MovingDir ;otherwise, load player's moving direction andbcs SBMDir ;do an unconditional branch to setFBLeft: ldyn ++$02 ;set left moving direction by defaultjsr PlayerEnemyDiff ;get horizontal difference between player and blooberbpl SBMDir ;if enemy to the right of player, keep leftdey ;otherwise decrement to set right moving directionSBMDir: styx Enemy_MovingDir,x ;set moving direction of bloober, then continue on hereBlooberSwim:jsr ProcSwimmingB ;execute sub to make bloober swim characteristicallyldax Enemy_Y_Position,x ;get vertical coordinatesecsubsbcx Enemy_Y_MoveForce,x ;subtract movement forcecmpn ++$20 ;check to see if position is above edge of status barcmpcybcc SwimX ;if so, don't do itstax Enemy_Y_Position,x ;otherwise, set new vertical position, make bloober swimSwimX: ldyx Enemy_MovingDir,x ;check moving directiondeybne LeftSwim ;if moving to the left, branch to second partldax Enemy_X_Position,xclc ;add movement speed to horizontal coordinateadcx BlooperMoveSpeed,xpush afstax Enemy_X_Position,x ;store result as new horizontal coordinateldax Enemy_PageLoc,xld h,apop afld a,hadcn ++$00 ;add carry to page locationstax Enemy_PageLoc,x ;store as new page location and leavertsLeftSwim:ldax Enemy_X_Position,xsecsub ;subtract movement speed from horizontal coordinatesbcx BlooperMoveSpeed,xpush afstax Enemy_X_Position,x ;store result as new horizontal coordinateldax Enemy_PageLoc,xld h,apop afld a,hsbcn ++$00 ;subtract borrow from page locationstax Enemy_PageLoc,x ;store as new page location and leavertsMoveDefeatedBloober:jmp MoveEnemySlowVert ;jump to move defeated bloober downwardsProcSwimmingB:ldax BlooperMoveCounter,x ;get enemy's movement counterandn ++%00000010 ;check for d1 setbne ChkForFloatdown ;branch if setlda FrameCounterandn ++%00000111 ;get 3 LSB of frame counterpha ;and save it to the stackldax BlooperMoveCounter,x ;get enemy's movement counterlsr ;check for d0 setbcs SlowSwim ;branch if setpla ;pull 3 LSB of frame counter from the stackcheckabne BSwimE ;branch to leave, execute code only every eighth frameldax Enemy_Y_MoveForce,xclc ;add to movement force to speed up swimadcn ++$01stax Enemy_Y_MoveForce,x ;set movement forcestax BlooperMoveSpeed,x ;set as movement speedcmpn ++$02bne BSwimE ;if certain horizontal speed, branch to leaveincx BlooperMoveCounter,x ;otherwise increment movement counterBSwimE: rtsSlowSwim:pla ;pull 3 LSB of frame counter from the stackcheckabne NoSSw ;branch to leave, execute code only every eighth frameldax Enemy_Y_MoveForce,xsecsub ;subtract from movement force to slow swimsbcn ++$01stax Enemy_Y_MoveForce,x ;set movement forcestax BlooperMoveSpeed,x ;set as movement speedcheckabne NoSSw ;if any speed, branch to leaveincx BlooperMoveCounter,x ;otherwise increment movement counterldan ++$02stax EnemyIntervalTimer,x ;set enemy's timerNoSSw: rts ;leaveChkForFloatdown:ldax EnemyIntervalTimer,x ;get enemy timercheckabeq ChkNearPlayer ;branch if expiredFloatdown:lda FrameCounter ;get frame counterlsr ;check for d0 setbcs NoFD ;branch to leave on every other frameincx Enemy_Y_Position,x ;otherwise increment vertical coordinateNoFD: rts ;leaveChkNearPlayer:;CY=0??? after JumpEngineldax Enemy_Y_Position,x ;get vertical coordinateor a ;???adcn ++$10 ;add sixteen pixelscmpi Player_Y_Position ;compare result with player's vertical coordinatecmpcybcc Floatdown ;if modified vertical less than player's, branchldan ++$00stax BlooperMoveCounter,x ;otherwise nullify movement counterrts;--------------------------------MoveBulletBill:ldax Enemy_State,x ;check bullet bill's enemy object state for d5 setandn ++%00100000beq NotDefB ;if not set, continue with movement codejmp MoveJ_EnemyVertically ;otherwise jump to move defeated bullet bill downwardsNotDefB: ldan ++$e8 ;set bullet bill's horizontal speedstax Enemy_X_Speed,x ;and move it accordingly (note: this bullet billjmp MoveEnemyHorizontally ;object occurs in frenzy object $17, not from cannons);--------------------------------;$02 - used to hold preset values;$03 - used to hold enemy stateSwimCCXMoveData:.db $40, $80.db $04, $04 ;residual data, not usedMoveSwimmingCheepCheep:ldax Enemy_State,x ;check cheep-cheep's enemy object stateandn ++%00100000 ;for d5 setbeq CCSwim ;if not set, continue with movement codejmp MoveEnemySlowVert ;otherwise jump to move defeated cheep-cheep downwardsCCSwim: sta SCRATCHPAD+$03 ;save enemy state in $03ldax Enemy_ID,x ;get enemy identifiersecsubsbcn ++$0a ;subtract ten for cheep-cheep identifierstay ;use as offsetlday SwimCCXMoveData,y ;load value heresta SCRATCHPAD+$02ldax Enemy_X_MoveForce,x ;load horizontal force (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)secsubsbci SCRATCHPAD+$02 ;subtract preset value from horizontal forcepush afstax Enemy_X_MoveForce,x ;store as new horizontal force (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)ldax Enemy_X_Position,x ;get horizontal coordinateld h,apop afld a,hsbcn ++$00 ;subtract borrow (thus moving it slowly)push afstax Enemy_X_Position,x ;and save as new horizontal coordinateldax Enemy_PageLoc,xld h,apop afld a,hsbcn ++$00 ;subtract borrow again, this time from thestax Enemy_PageLoc,x ;page location, then saveldan ++$20sta SCRATCHPAD+$02 ;save new value herecpxn ++$02 ;check enemy object offsetcmpcybcc ExSwCC ;if in first or second slot, branch to leaveldax CheepCheepMoveMFlag,x ;check movement flagcmpn ++$10 ;if movement speed set to $00,cmpcybcc CCSwimUpwards ;branch to move upwardsldax Enemy_YMF_Dummy,xclcadci SCRATCHPAD+$02 ;add preset value to dummy variable to get carrypush afstax Enemy_YMF_Dummy,x ;and save dummyldax Enemy_Y_Position,x ;get vertical coordinateld h,apop afld a,hadci SCRATCHPAD+$03 ;add carry to it plus enemy state to slowly move it downwardspush afstax Enemy_Y_Position,x ;save as new vertical coordinateldax Enemy_Y_HighPos,xld h,apop afld a,hadcn ++$00 ;add carry to page location andjmp ChkSwimYPos ;jump to end of movement codeCCSwimUpwards:ldax Enemy_YMF_Dummy,xsecsubsbci SCRATCHPAD+$02 ;subtract preset value to dummy variable to get borrowpush afstax Enemy_YMF_Dummy,x ;and save dummyldax Enemy_Y_Position,x ;get vertical coordinateld h,apop afld a,hsbci SCRATCHPAD+$03 ;subtract borrow to it plus enemy state to slowly move it upwardspush afstax Enemy_Y_Position,x ;save as new vertical coordinateldax Enemy_Y_HighPos,xld h,apop afld a,hsbcn ++$00 ;subtract borrow from page locationChkSwimYPos:stax Enemy_Y_HighPos,x ;save new page location hereldyn ++$00 ;load movement speed to upwards by defaultldax Enemy_Y_Position,x ;get vertical coordinatesecsubsbcx CheepCheepOrigYPos,x ;subtract original coordinate from currentbpl YPDiff ;if result positive, skip to next partldyn ++$10 ;otherwise load movement speed to downwardseorn ++$ffclc ;get two's compliment of resultadcn ++$01 ;to obtain total difference of original vs. currentYPDiff: cmpn ++$0f ;if difference between original vs. current verticalcmpcybcc ExSwCC ;coordinates LOW 15 pixels, leave movement speed alonetyastax CheepCheepMoveMFlag,x ;otherwise change movement speedExSwCC: rts ;leave;--------------------------------;$00 - used as counter for firebar parts;$01 - used for oscillated high byte of spin state or to hold horizontal adder;$02 - used for oscillated high byte of spin state or to hold vertical adder;$03 - used for mirror data;$04 - used to store player's sprite 1 X coordinate;$05 - used to evaluate mirror data;$06 - used to store either screen X coordinate or sprite data offset;$07 - used to store screen Y coordinate;$ed - used to hold maximum length of firebar;$ef - used to hold high byte of spinstate;horizontal adder is at first byte + high byte of spinstate,;vertical adder is same + 8 bytes, two's compliment;if greater than $08 for proper oscillationFirebarPosLookupTbl:.db $00, $01, $03, $04, $05, $06, $07, $07, $08.db $00, $03, $06, $09, $0b, $0d, $0e, $0f, $10.db $00, $04, $09, $0d, $10, $13, $16, $17, $18.db $00, $06, $0c, $12, $16, $1a, $1d, $1f, $20.db $00, $07, $0f, $16, $1c, $21, $25, $27, $28.db $00, $09, $12, $1b, $21, $27, $2c, $2f, $30.db $00, $0b, $15, $1f, $27, $2e, $33, $37, $38.db $00, $0c, $18, $24, $2d, $35, $3b, $3e, $40.db $00, $0e, $1b, $28, $32, $3b, $42, $46, $48.db $00, $0f, $1f, $2d, $38, $42, $4a, $4e, $50.db $00, $11, $22, $31, $3e, $49, $51, $56, $58FirebarMirrorData:.db $01, $03, $02, $00FirebarTblOffsets:.db $00, $09, $12, $1b, $24, $2d.db $36, $3f, $48, $51, $5a, $63FirebarYPos:.db $0c, $18ProcFirebar:jsr GetEnemyOffscreenBits ;get offscreen informationlda Enemy_OffscreenBits ;check for d3 setandn ++%00001000 ;if so, branch to leavebne SkipFBarlda TimerControl ;if master timer control set, branchcheckabne SusFbar ;ahead of this partldax FirebarSpinSpeed,x ;load spinning speed of firebarjsr FirebarSpin ;modify current spinstateandn ++%00011111 ;mask out all but 5 LSBstax FirebarSpinState_High,x ;and store as new high byte of spinstateSusFbar: ldax FirebarSpinState_High,x ;get high byte of spinstateldyx Enemy_ID,x ;check enemy identifiercpyn ++$1fcmpcybcc SetupGFB ;if LOW $1f (long firebar), branchcmpn ++$08 ;check high byte of spinstatebeq SkpFSte ;if eight, branch to changecmpn ++$18bne SetupGFB ;if not at twenty-four branch to not changeSkpFSte: clcadcn ++$01 ;add one to spinning thing to avoid horizontal statestax FirebarSpinState_High,xSetupGFB: sta SCRATCHPAD+$ef ;save high byte of spinning thing, modified or otherwisejsr RelativeEnemyPosition ;get relative coordinates to screenjsr GetFirebarPosition ;do a sub here (residual, too early to be used now)ldyx Enemy_SprDataOffset,x ;get OAM data offsetlda Enemy_Rel_YPos ;get relative vertical coordinatestay Sprite_Y_Position,y ;store as Y in OAM datasta SCRATCHPAD+$07 ;also save herelda Enemy_Rel_XPos ;get relative horizontal coordinatestay Sprite_X_Position,y ;store as X in OAM datasta SCRATCHPAD+$06 ;also save hereldan ++$01sta SCRATCHPAD+$00 ;set $01 value here (not necessary)jsr FirebarCollision ;draw fireball part and do collision detectionldyn ++$05 ;load value for short firebars by defaultldax Enemy_ID,xcmpn ++$1f ;are we doing a long firebar?cmpcybcc SetMFbar ;no, branch thenldyn ++$0b ;otherwise load value for long firebarsSetMFbar: sty SCRATCHPAD+$ed ;store maximum value for length of firebarsldan ++$00sta SCRATCHPAD+$00 ;initialize counter hereDrawFbar: lda SCRATCHPAD+$ef ;load high byte of spinstatejsr GetFirebarPosition ;get fireball position data depending on firebar partjsr DrawFirebar_Collision ;position it properly, draw it and do collision detectionlda SCRATCHPAD+$00 ;check which firebar partcmpn ++$04bne NextFbarldy DuplicateObj_Offset ;if we arrive at fifth firebar part,lday Enemy_SprDataOffset,y ;get offset from long firebar and load OAM data offsetsta SCRATCHPAD+$06 ;using long firebar offset, then store as new one hereNextFbar: inci SCRATCHPAD+$00 ;move onto the next firebar partlda SCRATCHPAD+$00cmpi SCRATCHPAD+$ed ;if we end up at the maximum part, go on and leavecmpcybcc DrawFbar ;otherwise go back and do anotherSkipFBar: rtsDrawFirebar_Collision:lda SCRATCHPAD+$03 ;store mirror data elsewheresta SCRATCHPAD+$05ldy SCRATCHPAD+$06 ;load OAM data offset for firebarlda SCRATCHPAD+$01 ;load horizontal adder we got from position loaderlsri SCRATCHPAD+$05 ;shift LSB of mirror databcs AddHA ;if carry was set, skip this parteorn ++$ffadcn ++$01 ;otherwise get two's compliment of horizontal adderAddHA: clc ;add horizontal coordinate relative to screen toadci Enemy_Rel_XPos ;horizontal adder, modified or otherwisestay Sprite_X_Position,y ;store as X coordinate heresta SCRATCHPAD+$06 ;store here for now, note offset is saved in Y stillcmpi Enemy_Rel_XPos ;compare X coordinate of sprite to original X of firebarcmpcybcs SubtR1 ;if sprite coordinate =HIGH original coordinate, branchlda Enemy_Rel_XPossecsub ;otherwise subtract sprite X from thesbci SCRATCHPAD+$06 ;original one and skip this partjmp ChkFOfsSubtR1: secsub ;subtract original X from thesbci Enemy_Rel_XPos ;current sprite XChkFOfs: cmpn ++$59 ;if difference of coordinates within a certain range,cmpcybcc VAHandl ;continue by handling vertical adderldan ++$f8 ;otherwise, load offscreen Y coordinatecheckabne SetVFbr ;and unconditionally branch to move sprite offscreenVAHandl: lda Enemy_Rel_YPos ;if vertical relative coordinate offscreen,cmpn ++$f8 ;skip ahead of this part and write into sprite Y coordinatebeq SetVFbrlda SCRATCHPAD+$02 ;load vertical adder we got from position loaderlsri SCRATCHPAD+$05 ;shift LSB of mirror data one more timebcs AddVA ;if carry was set, skip this parteorn ++$ffadcn ++$01 ;otherwise get two's compliment of second partAddVA: clc ;add vertical coordinate relative to screen toadci Enemy_Rel_YPos ;the second data, modified or otherwiseSetVFbr: stay Sprite_Y_Position,y ;store as Y coordinate heresta SCRATCHPAD+$07 ;also store here for nowFirebarCollision:jsr DrawFirebar ;run sub here to draw current tile of firebartya ;return OAM data offset and savepha ;to the stack for nowlda StarInvincibleTimer ;if star mario invincibility timerorai TimerControl ;or master timer controls setbne NoColFB ;then skip all of thissta SCRATCHPAD+$05 ;otherwise initialize counterldy Player_Y_HighPosdey ;if player's vertical high byte offscreen,bne NoColFB ;skip all of thisldy Player_Y_Position ;get player's vertical positionlda PlayerSize ;get player's sizecheckabne AdjSm ;if player small, branch to alter variableslda CrouchingFlagcheckabeq BigJp ;if player big and not crouching, jump aheadAdjSm: inci SCRATCHPAD+$05 ;if small or big but crouching, execute this partinci SCRATCHPAD+$05 ;first increment our counter twice (setting $02 as flag)tyaclc ;then add 24 pixels to the player'sadcn ++$18 ;vertical coordinatetayBigJp: tya ;get vertical coordinate, altered or otherwise, from YFBCLoop: secsub ;subtract vertical position of firebarsbci SCRATCHPAD+$07 ;from the vertical coordinate of the playerbpl ChkVFBD ;if player lower on the screen than firebar,eorn ++$ff ;skip two's compliment partclc ;otherwise get two's complimentadcn ++$01ChkVFBD: cmpn ++$08 ;if difference =HIGH 8 pixels, skip ahead of this partcmpcybcs Chk2Ofslda SCRATCHPAD+$06 ;if firebar on far right on the screen, skip this,cmpn ++$f0 ;because, really, what's the point?cmpcybcs Chk2Ofslda Sprite_X_Position+4 ;get OAM X coordinate for sprite ++1clcadcn ++$04 ;add four pixelssta SCRATCHPAD+$04 ;store heresecsub ;subtract horizontal coordinate of firebarsbci SCRATCHPAD+$06 ;from the X coordinate of player's sprite 1bpl ChkFBCl ;if modded X coordinate to the right of firebareorn ++$ff ;skip two's compliment partclc ;otherwise get two's complimentadcn ++$01ChkFBCl: cmpn ++$08 ;if difference LOW 8 pixels, collision, thus branchcmpcybcc ChgSDir ;to processChk2Ofs: lda SCRATCHPAD+$05 ;if value of $02 was set earlier for whatever reason,cmpn ++$02 ;branch to increment OAM offset and leave, no collisionbeq NoColFBldy SCRATCHPAD+$05 ;otherwise get temp here and use as offsetlda Player_Y_Positionclcadcy FirebarYPos,y ;add value loaded with offset to player's vertical coordinateinci SCRATCHPAD+$05 ;then increment temp and jump backjmp FBCLoopChgSDir: ldxn ++$01 ;set movement direction by defaultlda SCRATCHPAD+$04 ;if OAM X coordinate of player's sprite 1cmpi SCRATCHPAD+$06 ;is greater than horizontal coordinate of firebarcmpcybcs SetSDir ;then do not alter movement directioninx ;otherwise increment itSetSDir: stx Enemy_MovingDir ;store movement direction hereldxn ++$00lda SCRATCHPAD+$00 ;save value written to $00 to stackphajsr InjurePlayer ;perform sub to hurt or kill playerplasta SCRATCHPAD+$00 ;get value of $00 from stackNoColFB: pla ;get OAM data offsetclc ;add four to it and saveadcn ++$04sta SCRATCHPAD+$06ldx ObjectOffset ;get enemy object buffer offset and leavertsGetFirebarPosition:pha ;save high byte of spinstate to the stackandn ++%00001111 ;mask out low nybblecmpn ++$09cmpcybcc GetHAdder ;if lower than $09, branch aheadeorn ++%00001111 ;otherwise get two's compliment to oscillateclcadcn ++$01GetHAdder: sta SCRATCHPAD+$01 ;store result, modified or not, hereldy SCRATCHPAD+$00 ;load number of firebar ball where we're atlday FirebarTblOffsets,y ;load offset to firebar position dataclcadci SCRATCHPAD+$01 ;add oscillated high byte of spinstatetay ;to offset here and use as new offsetlday FirebarPosLookupTbl,y ;get data here and store as horizontal addersta SCRATCHPAD+$01pla ;pull whatever was in A from the stackpha ;save it again because we still need itclcadcn ++$08 ;add eight this time, to get vertical adderandn ++%00001111 ;mask out high nybblecmpn ++$09 ;if lower than $09, branch aheadcmpcybcc GetVAddereorn ++%00001111 ;otherwise get two's complimentclcadcn ++$01GetVAdder: sta SCRATCHPAD+$02 ;store result hereldy SCRATCHPAD+$00lday FirebarTblOffsets,y ;load offset to firebar position data againclcadci SCRATCHPAD+$02 ;this time add value in $02 to offset here and use as offsettaylday FirebarPosLookupTbl,y ;get data here and store as vertica addersta SCRATCHPAD+$02pla ;pull out whatever was in A one last timelsr ;divide by eight or shift three to the rightlsrlsrtay ;use as offsetlday FirebarMirrorData,y ;load mirroring data heresta SCRATCHPAD+$03 ;storerts;--------------------------------PRandomSubtracter:.db $f8, $a0, $70, $bd, $00FlyCCBPriority:.db $20, $20, $20, $00, $00MoveFlyingCheepCheep:ldax Enemy_State,x ;check cheep-cheep's enemy stateandn ++%00100000 ;for d5 setbeq FlyCC ;branch to continue code if not setldan ++$00stax Enemy_SprAttrib,x ;otherwise clear sprite attributesjmp MoveJ_EnemyVertically ;and jump to move defeated cheep-cheep downwardsFlyCC: jsr MoveEnemyHorizontally ;move cheep-cheep horizontally based on speed and forceldyn ++$0d ;set vertical movement amountldan ++$05 ;set maximum speedjsr SetXMoveAmt ;branch to impose gravity on flying cheep-cheepldax Enemy_Y_MoveForce,xlsr ;get vertical movement force andlsr ;move high nybble to lowlsrlsrtay ;save as offset (note this tends to go into reach of code)ldax Enemy_Y_Position,x ;get vertical positionsecsub ;subtract pseudorandom value based on offset from positionsbcy PRandomSubtracter,ybpl AddCCF ;if result within top half of screen, skip this parteorn ++$ffclc ;otherwise get two's complimentadcn ++$01AddCCF: cmpn ++$08 ;if result or two's compliment greater than eight,cmpcybcs BPGet ;skip to the end without changing movement forceldax Enemy_Y_MoveForce,xclcadcn ++$10 ;otherwise add to itstax Enemy_Y_MoveForce,xlsr ;move high nybble to low againlsrlsrlsrtayBPGet: lday FlyCCBPriority,y ;load bg priority data and store (this is very likelystax Enemy_SprAttrib,x ;broken or residual code, value is overwritten beforerts ;drawing it next frame), then leave;--------------------------------;$00 - used to hold horizontal difference;$01-$03 - used to hold difference adjustersLakituDiffAdj:.db $15, $30, $40MoveLakitu:ldax Enemy_State,x ;check lakitu's enemy stateandn ++%00100000 ;for d5 setbeq ChkLS ;if not set, continue with codejmp MoveD_EnemyVertically ;otherwise jump to move defeated lakitu downwardsChkLS: ldax Enemy_State,x ;if lakitu's enemy state not set at all,checkabeq Fr12S ;go ahead and continue with codeldan ++$00stax LakituMoveDirection,x ;otherwise initialize moving direction to move to leftsta EnemyFrenzyBuffer ;initialize frenzy bufferldan ++$10checkabne SetLSpd ;load horizontal speed and do unconditional branchFr12S: ldan ++Spinysta EnemyFrenzyBuffer ;set spiny identifier in frenzy bufferldyn ++$02LdLDa: lday LakituDiffAdj,y ;load valuesstay SCRATCHPAD+$0001,y ;store in zero pagedeybpl LdLDa ;do this until all values are stiredjsr PlayerLakituDiff ;execute sub to set speed and create spinysSetLSpd: stax LakituMoveSpeed,x ;set movement speed returned from subldyn ++$01 ;set moving direction to right by defaultldax LakituMoveDirection,xandn ++$01 ;get LSB of moving directionbne SetLMov ;if set, branch to the end to use moving directionldax LakituMoveSpeed,xeorn ++$ff ;get two's compliment of moving speedclcadcn ++$01stax LakituMoveSpeed,x ;store as new moving speediny ;increment moving direction to leftSetLMov: styx Enemy_MovingDir,x ;store moving directionjmp MoveEnemyHorizontally ;move lakitu horizontallyPlayerLakituDiff:ldyn ++$00 ;set Y for default valuejsr PlayerEnemyDiff ;get horizontal difference between enemy and playerbpl ChkLakDif ;branch if enemy is to the right of the playeriny ;increment Y for left of playerlda SCRATCHPAD+$00eorn ++$ff ;get two's compliment of low byte of horizontal differenceclcadcn ++$01 ;store two's compliment as horizontal differencesta SCRATCHPAD+$00ChkLakDif: lda SCRATCHPAD+$00 ;get low byte of horizontal differencecmpn ++$3c ;if within a certain distance of player, branchcmpcybcc ChkPSpeedldan ++$3c ;otherwise set maximum distancesta SCRATCHPAD+$00ldax Enemy_ID,x ;check if lakitu is in our current enemy slotcmpn ++Lakitubne ChkPSpeed ;if not, branch elsewheretya ;compare contents of Y, now in Acmpx LakituMoveDirection,x ;to what is being used as horizontal movement directionbeq ChkPSpeed ;if moving toward the player, branch, do not alterldax LakituMoveDirection,x ;if moving to the left beyond maximum distance,checkabeq SetLMovD ;branch and alter without delaydecx LakituMoveSpeed,x ;decrement horizontal speedldax LakituMoveSpeed,x ;if horizontal speed not yet at zero, branch to leavecheckabne ExMoveLakSetLMovD: tya ;set horizontal direction depending on horizontalstax LakituMoveDirection,x ;difference between enemy and player if necessaryChkPSpeed: lda SCRATCHPAD+$00andn ++%00111100 ;mask out all but four bits in the middlelsr ;divide masked difference by fourlsrsta SCRATCHPAD+$00 ;store as new valueldyn ++$00 ;init offsetlda Player_X_Speedcheckabeq SubDifAdj ;if player not moving horizontally, branchlda ScrollAmountcheckabeq SubDifAdj ;if scroll speed not set, branch to same placeiny ;otherwise increment offsetlda Player_X_Speedcmpn ++$19 ;if player not running, branchcmpcybcc ChkSpinyOlda ScrollAmountcmpn ++$02 ;if scroll speed below a certain amount, branchcmpcybcc ChkSpinyO ;to same placeiny ;otherwise increment once moreChkSpinyO: ldax Enemy_ID,x ;check for spiny objectcmpn ++Spinybne ChkEmySpd ;branch if not foundlda Player_X_Speed ;if player not moving, skip this partcheckabne SubDifAdjChkEmySpd: ldax Enemy_Y_Speed,x ;check vertical speedcheckabne SubDifAdj ;branch if nonzeroldyn ++$00 ;otherwise reinit offsetSubDifAdj: lday SCRATCHPAD+$0001,y ;get one of three saved values from earlierldy SCRATCHPAD+$00 ;get saved horizontal differenceSPixelLak: secsub ;subtract one for each pixel of horizontal differencesbcn ++$01 ;from one of three saved valuesdeybpl SPixelLak ;branch until all pixels are subtracted, to adjust differenceExMoveLak: rts ;leave!!!;-------------------------------------------------------------------------------------;$04-$05 - used to store name table address in little endian orderBridgeCollapseData:.db $1a ;axe.db $58 ;chain.db $98, $96, $94, $92, $90, $8e, $8c ;bridge.db $8a, $88, $86, $84, $82, $80BridgeCollapse:ldx BowserFront_Offset ;get enemy offset for bowserldax Enemy_ID,x ;check enemy object identifier for bowsercmpn ++Bowser ;if not found, branch ahead,bne SetM2 ;metatile removal not necessarystx ObjectOffset ;store as enemy offset hereldax Enemy_State,x ;if bowser in normal state, skip all of thischeckabeq RemoveBridgeandn ++%01000000 ;if bowser's state has d6 clear, skip to silence musicbeq SetM2ldax Enemy_Y_Position,x ;check bowser's vertical coordinatecmpn ++$e0 ;if bowser not yet low enough, skip this part aheadcmpcybcc MoveD_BowserSetM2: ldan ++Silence ;silence musicsta EventMusicQueueinci OperMode_Task ;move onto next secondary mode in autoctrl modejmp KillAllEnemies ;jump to empty all enemy slots and then leaveMoveD_Bowser:jsr MoveEnemySlowVert ;do a sub to move bowser downwardsjmp BowserGfxHandler ;jump to draw bowser's front and rear, then leaveRemoveBridge:deci BowserFeetCounter ;decrement timer to control bowser's feetbne NoBFall ;if not expired, skip all of thisldan ++$04sta BowserFeetCounter ;otherwise, set timer nowlda BowserBodyControlseorn ++$01 ;invert bit to control bowser's feetsta BowserBodyControlsldan ++$22 ;put high byte of name table address here for nowsta SCRATCHPAD+$05ldy BridgeCollapseOffset ;get bridge collapse offset herelday BridgeCollapseData,y ;load low byte of name table address and store heresta SCRATCHPAD+$04ldy VRAM_Buffer1_Offset ;increment vram buffer offsetinyldxn ++$0c ;set offset for tile data for sub to draw blank metatilejsr RemBridge ;do sub here to remove bowser's bridge metatilesldx ObjectOffset ;get enemy offsetjsr MoveVOffset ;set new vram buffer offsetldan ++Sfx_Blast ;load the fireworks/gunfire sound into the square 2 sfxsta Square2SoundQueue ;queue while at the same time loading the brickldan ++Sfx_BrickShatter ;shatter sound into the noise sfx queue thussta NoiseSoundQueue ;producing the unique sound of the bridge collapsinginci BridgeCollapseOffset ;increment bridge collapse offsetlda BridgeCollapseOffsetcmpn ++$0f ;if bridge collapse offset has not yet reachedbne NoBFall ;the end, go ahead and skip this partjsr InitVStf ;initialize whatever vertical speed bowser hasldan ++%01000000stax Enemy_State,x ;set bowser's state to one of defeated states (d6 set)ldan ++Sfx_BowserFallsta Square2SoundQueue ;play bowser defeat soundNoBFall: jmp BowserGfxHandler ;jump to code that draws bowser;--------------------------------PRandomRange:.db $21, $41, $11, $31RunBowser:ldax Enemy_State,x ;if d5 in enemy state is not setandn ++%00100000 ;then branch elsewhere to run bowserbeq BowserControlldax Enemy_Y_Position,x ;otherwise check vertical positioncmpn ++$e0 ;if above a certain point, branch to move defeated bowsercmpcybcc MoveD_Bowser ;otherwise proceed to KillAllEnemiesKillAllEnemies:ldxn ++$04 ;start with last enemy slotKillLoop: jsr EraseEnemyObject ;branch to kill enemy objectsdex ;move onto next enemy slotbpl KillLoop ;do this until all slots are emptiedsta EnemyFrenzyBuffer ;empty frenzy bufferldx ObjectOffset ;get enemy object offset and leavertsBowserControl:ldan ++$00sta EnemyFrenzyBuffer ;empty frenzy bufferlda TimerControl ;if master timer control not set,checkabeq ChkMouth ;skip jump and execute code herejmp SkipToFB ;otherwise, jump over a bunch of codeChkMouth: lda BowserBodyControls ;check bowser's mouthcheckabpl FeetTmr ;if bit clear, go ahead with code herejmp HammerChk ;otherwise skip a whole section starting hereFeetTmr: deci BowserFeetCounter ;decrement timer to control bowser's feetbne ResetMDr ;if not expired, skip this partldan ++$20 ;otherwise, reset timersta BowserFeetCounterlda BowserBodyControls ;and invert bit usedeorn ++%00000001 ;to control bowser's feetsta BowserBodyControlsResetMDr: lda FrameCounter ;check frame counterandn ++%00001111 ;if not on every sixteenth frame, skipbne B_FaceP ;ahead to continue codeldan ++$02 ;otherwise reset moving/facing direction everystax Enemy_MovingDir,x ;sixteen framesB_FaceP: ldax EnemyFrameTimer,x ;if timer set here expired,checkabeq GetPRCmp ;branch to next sectionjsr PlayerEnemyDiff ;get horizontal difference between player and bowser,bpl GetPRCmp ;and branch if bowser to the right of the playerldan ++$01stax Enemy_MovingDir,x ;set bowser to move and face to the rightldan ++$02sta BowserMovementSpeed ;set movement speedldan ++$20stax EnemyFrameTimer,x ;set timer heresta BowserFireBreathTimer ;set timer used for bowser's flameldax Enemy_X_Position,xcmpn ++$c8 ;if bowser to the right past a certain point,cmpcybcs HammerChk ;skip ahead to some other sectionGetPRCmp: lda FrameCounter ;get frame counterandn ++%00000011bne HammerChk ;execute this code every fourth frame, otherwise branchldax Enemy_X_Position,xcmpi BowserOrigXPos ;if bowser not at original horizontal position,bne GetDToO ;branch to skip this partldax PseudoRandomBitReg,xandn ++%00000011 ;get pseudorandom offsettaylday PRandomRange,y ;load value using pseudorandom offsetsta MaxRangeFromOrigin ;and store hereGetDToO: ldax Enemy_X_Position,xclc ;add movement speed to bowser's horizontaladci BowserMovementSpeed ;coordinate and save as new horizontal positionstax Enemy_X_Position,xldyx Enemy_MovingDir,xcpyn ++$01 ;if bowser moving and facing to the right, skip aheadbeq HammerChkldyn ++$ff ;set default movement speed here (move left)secsub ;get difference of current vs. originalsbci BowserOrigXPos ;horizontal positionbpl CompDToO ;if current position to the right of original, skip aheadeorn ++$ffclc ;get two's complimentadcn ++$01ldyn ++$01 ;set alternate movement speed here (move right)CompDToO: cmpi MaxRangeFromOrigin ;compare difference with pseudorandom valuecmpcybcc HammerChk ;if difference LOW pseudorandom value, leave speed alonesty BowserMovementSpeed ;otherwise change bowser's movement speedHammerChk: ldax EnemyFrameTimer,x ;if timer set here not expired yet, skip ahead tocheckabne MakeBJump ;some other section of codejsr MoveEnemySlowVert ;otherwise start by moving bowser downwardslda WorldNumber ;check world numbercmpn ++World6cmpcybcc SetHmrTmr ;if world 1-5, skip this part (not time to throw hammers yet)lda FrameCounterandn ++%00000011 ;check to see if it's time to execute subbne SetHmrTmr ;if not, skip sub, otherwisejsr SpawnHammerObj ;execute sub on every fourth frame to spawn misc object (hammer)SetHmrTmr: ldax Enemy_Y_Position,x ;get current vertical positioncmpn ++$80 ;if still above a certain pointcmpcybcc ChkFireB ;then skip to world number check for flamesldax PseudoRandomBitReg,xandn ++%00000011 ;get pseudorandom offsettaylday PRandomRange,y ;get value using pseudorandom offsetstax EnemyFrameTimer,x ;set for timer hereSkipToFB: jmp ChkFireB ;jump to execute flames codeMakeBJump: cmpn ++$01 ;if timer not yet about to expire,bne ChkFireB ;skip ahead to next partdecx Enemy_Y_Position,x ;otherwise decrement vertical coordinatejsr InitVStf ;initialize movement amountldan ++$festax Enemy_Y_Speed,x ;set vertical speed to move bowser upwardsChkFireB: lda WorldNumber ;check world number herecmpn ++World8 ;world 8?beq SpawnFBr ;if so, execute this part herecmpn ++World6 ;world 6-7?cmpcybcs BowserGfxHandler ;if so, skip this part hereSpawnFBr: lda BowserFireBreathTimer ;check timer herecheckabne BowserGfxHandler ;if not expired yet, skip all of thisldan ++$20sta BowserFireBreathTimer ;set timer herelda BowserBodyControlseorn ++%10000000 ;invert bowser's mouth bit to opensta BowserBodyControls ;and close bowser's mouthbmi ChkFireB ;if bowser's mouth open, loop backjsr SetFlameTimer ;get timing for bowser's flameldy SecondaryHardModecheckybeq SetFBTmr ;if secondary hard mode flag not set, skip thissecsubsbcn ++$10 ;otherwise subtract from value in ASetFBTmr: sta BowserFireBreathTimer ;set value as timer hereldan ++BowserFlame ;put bowser's flame identifiersta EnemyFrenzyBuffer ;in enemy frenzy buffer;--------------------------------BowserGfxHandler:jsr ProcessBowserHalf ;do a sub here to process bowser's frontldyn ++$10 ;load default value here to position bowser's rearldax Enemy_MovingDir,x ;check moving directionlsrbcc CopyFToR ;if moving left, use defaultldyn ++$f0 ;otherwise load alternate positioning value hereCopyFToR: tya ;move bowser's rear object position value to Aclcadcx Enemy_X_Position,x ;add to bowser's front object horizontal coordinateldy DuplicateObj_Offset ;get bowser's rear object offsetstay Enemy_X_Position,y ;store A as bowser's rear horizontal coordinateldax Enemy_Y_Position,xclc ;add eight pixels to bowser's front objectadcn ++$08 ;vertical coordinate and store as vertical coordinatestay Enemy_Y_Position,y ;for bowser's rearldax Enemy_State,xstay Enemy_State,y ;copy enemy state directly from front to rearldax Enemy_MovingDir,xstay Enemy_MovingDir,y ;copy moving direction alsolda ObjectOffset ;save enemy object offset of front to stackphaldx DuplicateObj_Offset ;put enemy object offset of rear as currentstx ObjectOffsetldan ++Bowser ;set bowser's enemy identifierstax Enemy_ID,x ;store in bowser's rear objectjsr ProcessBowserHalf ;do a sub here to process bowser's rearplasta ObjectOffset ;get original enemy object offsettaxldan ++$00 ;nullify bowser's front/rear graphics flagsta BowserGfxFlagExBGfxH: rts ;leave!ProcessBowserHalf:inci BowserGfxFlag ;increment bowser's graphics flag, then run subroutinesjsr RunRetainerObj ;to get offscreen bits, relative position and draw bowser (finally!)ldax Enemy_State,xcheckabne ExBGfxH ;if either enemy object not in normal state, branch to leaveldan ++$0astax Enemy_BoundBoxCtrl,x ;set bounding box size controljsr GetEnemyBoundBox ;get bounding box coordinatesjmp PlayerEnemyCollision ;do player-to-enemy collision detection;-------------------------------------------------------------------------------------;$00 - used to hold movement force and tile number;$01 - used to hold sprite attribute dataFlameTimerData:.db $bf, $40, $bf, $bf, $bf, $40, $40, $bfSetFlameTimer:ldy BowserFlameTimerCtrl ;load counter as offsetinci BowserFlameTimerCtrl ;incrementlda BowserFlameTimerCtrl ;mask out all but 3 LSBandn ++%00000111 ;to keep in range of 0-7sta BowserFlameTimerCtrllday FlameTimerData,y ;load value to be used then leaveExFl: rtsProcBowserFlame:lda TimerControl ;if master timer control flag set,checkabne SetGfxF ;skip all of thisldan ++$40 ;load default movement forceldy SecondaryHardModecheckybeq SFlmX ;if secondary hard mode flag not set, use defaultldan ++$60 ;otherwise load alternate movement force to go fasterSFlmX: sta SCRATCHPAD+$00 ;store value hereldax Enemy_X_MoveForce,xsecsub ;subtract value from movement force (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)sbci SCRATCHPAD+$00push afstax Enemy_X_MoveForce,x ;save new value (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)ldax Enemy_X_Position,xld h,apop afld a,hsbcn ++$01 ;subtract one from horizontal position to movepush afstax Enemy_X_Position,x ;to the leftldax Enemy_PageLoc,xld h,apop afld a,hsbcn ++$00 ;subtract borrow from page locationstax Enemy_PageLoc,xldyx BowserFlamePRandomOfs,x ;get some value here and use as offsetldax Enemy_Y_Position,x ;load vertical coordinatecmpy FlameYPosData,y ;compare against coordinate data using $0417,x (???) as offsetbeq SetGfxF ;if equal, branch and do not modify coordinateclcadcx Enemy_Y_MoveForce,x ;otherwise add value here to coordinate and storestax Enemy_Y_Position,x ;as new vertical coordinateSetGfxF: jsr RelativeEnemyPosition ;get new relative coordinatesldax Enemy_State,x ;if bowser's flame not in normal state,checkabne ExFl ;branch to leaveldan ++$51 ;otherwise, continuesta SCRATCHPAD+$00 ;write first tile numberldyn ++$02 ;load attributes without vertical flip by defaultlda FrameCounterandn ++%00000010 ;invert vertical flip bit every 2 framesbeq FlmeAt ;if d1 not set, write default valueldyn ++$82 ;otherwise write value with vertical flip bit setFlmeAt: sty SCRATCHPAD+$01 ;set bowser's flame sprite attributes hereldyx Enemy_SprDataOffset,x ;get OAM data offsetldxn ++$00DrawFlameLoop:lda Enemy_Rel_YPos ;get Y relative coordinate of current enemy objectstay Sprite_Y_Position,y ;write into Y coordinate of OAM datalda SCRATCHPAD+$00stay Sprite_Tilenumber,y ;write current tile number into OAM datainci SCRATCHPAD+$00 ;increment tile number to draw more bowser's flamelda SCRATCHPAD+$01stay Sprite_Attributes,y ;write saved attributes into OAM datalda Enemy_Rel_XPosstay Sprite_X_Position,y ;write X relative coordinate of current enemy objectclcadcn ++$08sta Enemy_Rel_XPos ;then add eight to it and storeinyinyinyiny ;increment Y four times to move onto the next OAMinx ;move onto the next OAM, and branch if threecpxn ++$03 ;have not yet been donecmpcybcc DrawFlameLoopldx ObjectOffset ;reload original enemy offsetjsr GetEnemyOffscreenBits ;get offscreen informationldyx Enemy_SprDataOffset,x ;get OAM data offsetlda Enemy_OffscreenBits ;get enemy object offscreen bitslsr ;move d0 to carry and result to stackphabcc M3FOfs ;branch if carry not setldan ++$f8 ;otherwise move sprite offscreen, this part likelystay Sprite_Y_Position+12,y ;residual since flame is only made of three spritesM3FOfs: pla ;get bits from stacklsr ;move d1 to carry and move bits back to stackphabcc M2FOfs ;branch if carry not set againldan ++$f8 ;otherwise move third sprite offscreenstay Sprite_Y_Position+8,yM2FOfs: pla ;get bits from stack againlsr ;move d2 to carry and move bits back to stack againphabcc M1FOfs ;branch if carry not set yet againldan ++$f8 ;otherwise move second sprite offscreenstay Sprite_Y_Position+4,yM1FOfs: pla ;get bits from stack one last timelsr ;move d3 to carrybcc ExFlmeD ;branch if carry not set one last timeldan ++$f8stay Sprite_Y_Position,y ;otherwise move first sprite offscreenExFlmeD: rts ;leave;--------------------------------RunFireworks:decx ExplosionTimerCounter,x ;decrement explosion timing counter herebne SetupExpl ;if not expired, skip this partldan ++$08stax ExplosionTimerCounter,x ;reset counterincx ExplosionGfxCounter,x ;increment explosion graphics counterldax ExplosionGfxCounter,xcmpn ++$03 ;check explosion graphics countercmpcybcs FireworksSoundScore ;if at a certain point, branch to kill this objectSetupExpl: jsr RelativeEnemyPosition ;get relative coordinates of explosionlda Enemy_Rel_YPos ;copy relative coordinatessta Fireball_Rel_YPos ;from the enemy object to the fireball objectlda Enemy_Rel_XPos ;first vertical, then horizontalsta Fireball_Rel_XPosldyx Enemy_SprDataOffset,x ;get OAM data offsetldax ExplosionGfxCounter,x ;get explosion graphics counterjsr DrawExplosion_Fireworks ;do a sub to draw the explosion then leavertsFireworksSoundScore:ldan ++$00 ;disable enemy buffer flagstax Enemy_Flag,xldan ++Sfx_Blast ;play fireworks/gunfire soundsta Square2SoundQueueldan ++$05 ;set part of score modifier for 500 pointssta DigitModifier+4jmp EndAreaPoints ;jump to award points accordingly then leave;--------------------------------StarFlagYPosAdder:.db $00, $00, $08, $08StarFlagXPosAdder:.db $00, $08, $00, $08StarFlagTileData:.db $54, $55, $56, $57RunStarFlagObj:ldan ++$00 ;initialize enemy frenzy buffersta EnemyFrenzyBufferlda StarFlagTaskControl ;check star flag object task number herecmpn ++$05 ;if greater than 5, branch to exitcmpcybcs StarFlagExitjsr JumpEngine ;otherwise jump to appropriate sub.dw StarFlagExit.dw GameTimerFireworks.dw AwardGameTimerPoints.dw RaiseFlagSetoffFWorks.dw DelayToAreaEndGameTimerFireworks:ldyn ++$05 ;set default state for star flag objectlda GameTimerDisplay+2 ;get game timer's last digitcmpn ++$01beq SetFWC ;if last digit of game timer set to 1, skip aheadldyn ++$03 ;otherwise load new value for statecmpn ++$03beq SetFWC ;if last digit of game timer set to 3, skip aheadldyn ++$00 ;otherwise load one more potential value for statecmpn ++$06beq SetFWC ;if last digit of game timer set to 6, skip aheadldan ++$ff ;otherwise set value for no fireworksSetFWC: sta FireworksCounter ;set fireworks counter herestyx Enemy_State,x ;set whatever state we have in star flag objectIncrementSFTask1:inci StarFlagTaskControl ;increment star flag object task numberStarFlagExit:rts ;leaveAwardGameTimerPoints:lda GameTimerDisplay ;check all game timer digits for any intervals leftorai GameTimerDisplay+1orai GameTimerDisplay+2beq IncrementSFTask1 ;if no time left on game timer at all, branch to next tasklda FrameCounterandn ++%00000100 ;check frame counter for d2 set (skip aheadbeq NoTTick ;for four frames every four frames) branch if not setldan ++Sfx_TimerTicksta Square2SoundQueue ;load timer tick soundNoTTick: ldyn ++GameTimerDisplay-DisplayDigits+2;++$23 ;set offset here to subtract from game timer's last digitldan ++$ff ;set adder here to $ff, or -1, to subtract onesta DigitModifier+5 ;from the last digit of the game timerjsr DigitsMathRoutine ;subtract digitldan ++$05 ;set now to add 50 pointssta DigitModifier+5 ;per game timer interval subtractedEndAreaPoints:ldyn ++$0b ;load offset for mario's score by defaultlda CurrentPlayer ;check player on the screencheckabeq ELPGive ;if mario, do not changeldyn ++$11 ;otherwise load offset for luigi's scoreELPGive: jsr DigitsMathRoutine ;award 50 points per game timer intervallda CurrentPlayer ;get player on the screen (or 500 points perasl ;fireworks explosion if branched here from there)asl ;shift to high nybbleaslasloran ++%00000100 ;add four to set nybble for game timerjmp UpdateNumber ;jump to print the new score and game timerRaiseFlagSetoffFWorks:ldax Enemy_Y_Position,x ;check star flag's vertical positioncmpn ++$72 ;against preset valuecmpcybcc SetoffF ;if star flag higher vertically, branch to other codedecx Enemy_Y_Position,x ;otherwise, raise star flag by one pixeljmp DrawStarFlag ;and skip this part hereSetoffF: lda FireworksCounter ;check fireworks countercheckabeq DrawFlagSetTimer ;if no fireworks left to go off, skip this partbmi DrawFlagSetTimer ;if no fireworks set to go off, skip this partldan ++Fireworkssta EnemyFrenzyBuffer ;otherwise set fireworks object in frenzy queueDrawStarFlag:jsr RelativeEnemyPosition ;get relative coordinates of star flagldyx Enemy_SprDataOffset,x ;get OAM data offsetldxn ++$03 ;do four spritesDSFLoop: lda Enemy_Rel_YPos ;get relative vertical coordinateclcadcx StarFlagYPosAdder,x ;add Y coordinate adder datastay Sprite_Y_Position,y ;store as Y coordinateldax StarFlagTileData,x ;get tile numberstay Sprite_Tilenumber,y ;store as tile numberldan ++$22 ;set palette and background priority bitsstay Sprite_Attributes,y ;store as attributeslda Enemy_Rel_XPos ;get relative horizontal coordinateclcadcx StarFlagXPosAdder,x ;add X coordinate adder datastay Sprite_X_Position,y ;store as X coordinateinyiny ;increment OAM data offset four bytesiny ;for next spriteinydex ;move onto next spritebpl DSFLoop ;do this until all sprites are doneldx ObjectOffset ;get enemy object offset and leavertsDrawFlagSetTimer:jsr DrawStarFlag ;do sub to draw star flagldan ++$06stax EnemyIntervalTimer,x ;set interval timer hereIncrementSFTask2:inci StarFlagTaskControl ;move onto next taskrtsDelayToAreaEnd:jsr DrawStarFlag ;do sub to draw star flagldax EnemyIntervalTimer,x ;if interval timer set in previous taskcheckabne StarFlagExit2 ;not yet expired, branch to leave;ъюёЄ√ы№: ¤Єю ьхёЄю ьх°рхЄ яЁхфёърчєхьюёЄш яЁш MUSICONINT=1if MUSICONINTlda EventMusicBuffer ;if event music buffer empty,checkaret nz;ld hl,(EventMusicQueue_noint) ;if event music buffer empty,;jr $ ;hl=fdcb/fdd0/fe2b/ (fdc9/fdce/fe29/fde0);ld a,(WorldNumber) ;check world number;cp ++World4;8;jr nc,IncrementSFTask2 ;юс√ўэ√щ ъюёЄ√ы№ эх яюьюурхЄ эр 8-2... ¤ЄюЄ Єюцх!ld hl,SoundEngine_nointld (soundenginepatch),hl ;тючтЁр∙рхь MUSICONINT=1ld a,0xcdld (soundenginecall),a ;тючтЁр∙рхь MUSICONINT=1jr IncrementSFTask2 ;branch to increment taskelselda EventMusicBuffer ;if event music buffer empty,checkabeq IncrementSFTask2 ;branch to increment taskendifStarFlagExit2:rts ;otherwise leave;--------------------------------;$00 - used to store horizontal difference between player and piranha plantMovePiranhaPlant:ldax Enemy_State,x ;check enemy statecheckabne PutinPipe ;if set at all, branch to leaveldax EnemyFrameTimer,x ;check enemy's timer herecheckabne PutinPipe ;branch to end if not yet expiredldax PiranhaPlant_MoveFlag,x ;check movement flagcheckabne SetupToMovePPlant ;if moving, skip to part aheadldax PiranhaPlant_Y_Speed,x ;if currently rising, branchcheckabmi ReversePlantSpeed ;to move enemy upwards out of pipejsr PlayerEnemyDiff ;get horizontal difference between player andbpl ChkPlayerNearPipe ;piranha plant, and branch if enemy to right of playerlda SCRATCHPAD+$00 ;otherwise get saved horizontal differenceeorn ++$ffclc ;and change to two's complimentadcn ++$01sta SCRATCHPAD+$00 ;save as new horizontal differenceChkPlayerNearPipe:lda SCRATCHPAD+$00 ;get saved horizontal differencecmpn ++$21cmpcybcc PutinPipe ;if player within a certain distance, branch to leaveReversePlantSpeed:ldax PiranhaPlant_Y_Speed,x ;get vertical speedeorn ++$ffclc ;change to two's complimentadcn ++$01stax PiranhaPlant_Y_Speed,x ;save as new vertical speedincx PiranhaPlant_MoveFlag,x ;increment to set movement flagSetupToMovePPlant:ldax PiranhaPlantDownYPos,x ;get original vertical coordinate (lowest point)ldyx PiranhaPlant_Y_Speed,x ;get vertical speedcheckybpl RiseFallPiranhaPlant ;branch if moving downwardsldax PiranhaPlantUpYPos,x ;otherwise get other vertical coordinate (highest point)RiseFallPiranhaPlant:sta SCRATCHPAD+$00 ;save vertical coordinate herelda FrameCounter ;get frame counterlsrbcc PutinPipe ;branch to leave if d0 set (execute code every other frame)lda TimerControl ;get master timer controlcheckabne PutinPipe ;branch to leave if set (likely not necessary)ldax Enemy_Y_Position,x ;get current vertical coordinateclcadcx PiranhaPlant_Y_Speed,x ;add vertical speed to move up or downstax Enemy_Y_Position,x ;save as new vertical coordinatecmpi SCRATCHPAD+$00 ;compare against low or high coordinatebne PutinPipe ;branch to leave if not yet reachedldan ++$00stax PiranhaPlant_MoveFlag,x ;otherwise clear movement flagldan ++$40stax EnemyFrameTimer,x ;set timer to delay piranha plant movementPutinPipe:ldan ++%00100000 ;set background priority bit in spritestax Enemy_SprAttrib,x ;attributes to give illusion of being inside piperts ;then leave;-------------------------------------------------------------------------------------;$07 - spinning speedFirebarSpin:sta SCRATCHPAD+$07 ;save spinning speed hereldax FirebarSpinDirection,x ;check spinning directioncheckabne SpinCounterClockwise ;if moving counter-clockwise, branch to other partldyn ++$18 ;possibly residual ldyldax FirebarSpinState_Low,xclc ;add spinning speed to what would normally beadci SCRATCHPAD+$07 ;the horizontal speedpush afstax FirebarSpinState_Low,xldax FirebarSpinState_High,x ;add carry to what would normally be the vertical speedld h,apop afld a,hadcn ++$00rtsSpinCounterClockwise:ldyn ++$08 ;possibly residual ldyldax FirebarSpinState_Low,xsecsub ;subtract spinning speed to what would normally besbci SCRATCHPAD+$07 ;the horizontal speedpush afstax FirebarSpinState_Low,xldax FirebarSpinState_High,x ;add carry to what would normally be the vertical speedld h,apop afld a,hsbcn ++$00rts;-------------------------------------------------------------------------------------;$00 - used to hold collision flag, Y movement force + 5 or low byte of name table for rope;$01 - used to hold high byte of name table for rope;$02 - used to hold page location of ropeBalancePlatform:ldax Enemy_Y_HighPos,x ;check high byte of vertical positioncmpn ++$03bne DoBPljmp EraseEnemyObject ;if far below screen, kill the objectDoBPl: ldax Enemy_State,x ;get object's state (set to $ff or other platform offset)checkabpl CheckBalPlatform ;if doing other balance platform, branch to leavertsCheckBalPlatform:tay ;save offset from state as Yldax PlatformCollisionFlag,x ;get collision flag of platformsta SCRATCHPAD+$00 ;store hereldax Enemy_MovingDir,x ;get moving directioncheckabeq ChkForFalljmp PlatformFall ;if set, jump hereChkForFall:ldan ++$2d ;check if platform is above a certain pointcmpx Enemy_Y_Position,xcmpcybcc ChkOtherForFall ;if not, branch elsewherecpyi SCRATCHPAD+$00 ;if collision flag is set to same value asbeq MakePlatformFall ;enemy state, branch to make platforms fallclcadcn ++$02 ;otherwise add 2 pixels to vertical positionstax Enemy_Y_Position,x ;of current platform and branch elsewherejmp StopPlatforms ;to make platforms stopMakePlatformFall:jmp InitPlatformFall ;make platforms fallChkOtherForFall:cmpy Enemy_Y_Position,y ;check if other platform is above a certain pointcmpcybcc ChkToMoveBalPlat ;if not, branch elsewherecpxi SCRATCHPAD+$00 ;if collision flag is set to same value asbeq MakePlatformFall ;enemy state, branch to make platforms fallclcadcn ++$02 ;otherwise add 2 pixels to vertical positionstay Enemy_Y_Position,y ;of other platform and branch elsewherejmp StopPlatforms ;jump to stop movement and do not returnChkToMoveBalPlat:ldax Enemy_Y_Position,x ;save vertical position to stackphaldax PlatformCollisionFlag,x ;get collision flagcheckabpl ColFlg ;branch if collisionldax Enemy_Y_MoveForce,xclc ;add $05 to contents of moveforce, whatever they beadcn ++$05sta SCRATCHPAD+$00 ;store hereldaxkeepcy Enemy_Y_Speed,xadcn ++$00 ;add carry to vertical speedbmi PlatDn ;branch if moving downwardsbne PlatUp ;branch elsewhere if moving upwardslda SCRATCHPAD+$00cmpn ++$0b ;check if there's still a little force leftcmpcybcc PlatSt ;if not enough, branch to stop movementbcs PlatUp ;otherwise keep branch to move upwardsColFlg: cmpi ObjectOffset ;if collision flag matchesbeq PlatDn ;current enemy object offset, branchPlatUp: jsr MovePlatformUp ;do a sub to move upwardsjmp DoOtherPlatform ;jump ahead to remaining codePlatSt: jsr StopPlatforms ;do a sub to stop movementjmp DoOtherPlatform ;jump ahead to remaining codePlatDn: jsr MovePlatformDown ;do a sub to move downwardsDoOtherPlatform:ldyx Enemy_State,x ;get offset of other platformpla ;get old vertical coordinate from stacksecsubsbcx Enemy_Y_Position,x ;get difference of old vs. new coordinateclcadcy Enemy_Y_Position,y ;add difference to vertical coordinate of otherstay Enemy_Y_Position,y ;platform to move it in the opposite directionldax PlatformCollisionFlag,x ;if no collision, skip this part herecheckabmi DrawEraseRopetax ;put offset which collision occurred herejsr PositionPlayerOnVPlat ;and use it to position player accordinglyDrawEraseRope:ldy ObjectOffset ;get enemy object offsetlday Enemy_Y_Speed,y ;check to see if current platform isoray Enemy_Y_MoveForce,y ;moving at allbeq ExitRp ;if not, skip all of this and branch to leaveldx VRAM_Buffer1_Offset ;get vram buffer offsetcpxn ++$20 ;if offset beyond a certain point, go aheadcmpcybcs ExitRp ;and skip this, branch to leavelday Enemy_Y_Speed,ypha ;save two copies of vertical speed to stackphajsr SetupPlatformRope ;do a sub to figure out where to put new bg tileslda SCRATCHPAD+$01 ;write name table address to vram bufferstax VRAM_Buffer1,x ;first the high byte, then the lowlda SCRATCHPAD+$00stax VRAM_Buffer1+1,xldan ++$02 ;set length for 2 bytesstax VRAM_Buffer1+2,xlday Enemy_Y_Speed,y ;if platform moving upwards, branchcheckabmi EraseR1 ;to do something elseldan ++xa2stax VRAM_Buffer1+3,x ;otherwise put tile numbers for leftldan ++xa3 ;and right sides of rope in vram bufferstax VRAM_Buffer1+4,xjmp OtherRope ;jump to skip this partEraseR1: ldan ++$24 ;put blank tiles in vram bufferstax VRAM_Buffer1+3,x ;to erase ropestax VRAM_Buffer1+4,xOtherRope:lday Enemy_State,y ;get offset of other platform from statetay ;use as Y herepla ;pull second copy of vertical speed from stackeorn ++$ff ;invert bits to reverse speedjsr SetupPlatformRope ;do sub again to figure out where to put bg tileslda SCRATCHPAD+$01 ;write name table address to vram bufferstax VRAM_Buffer1+5,x ;this time we're doing putting tiles forlda SCRATCHPAD+$00 ;the other platformstax VRAM_Buffer1+6,xldan ++$02stax VRAM_Buffer1+7,x ;set length again for 2 bytespla ;pull first copy of vertical speed from stackcheckabpl EraseR2 ;if moving upwards (note inversion earlier), skip thisldan ++xa2stax VRAM_Buffer1+8,x ;otherwise put tile numbers for leftldan ++xa3 ;and right sides of rope in vramstax VRAM_Buffer1+9,x ;transfer bufferjmp EndRp ;jump to skip this partEraseR2: ldan ++$24 ;put blank tiles in vram bufferstax VRAM_Buffer1+8,x ;to erase ropestax VRAM_Buffer1+9,xEndRp: ldan ++$00 ;put null terminator at the endstax VRAM_Buffer1+10,xlda VRAM_Buffer1_Offset ;add ten bytes to the vram buffer offsetclc ;and storeadcn ++10sta VRAM_Buffer1_OffsetExitRp: ldx ObjectOffset ;get enemy object buffer offset and leavertsSetupPlatformRope:pha ;save second/third copy to stacklday Enemy_X_Position,y ;get horizontal coordinateclcadcn ++$08 ;add eight pixelsldx SecondaryHardMode ;if secondary hard mode flag set,checkxbne GetLRp ;use coordinate as-isclcadcn ++$10 ;otherwise add sixteen more pixelsGetLRp: pha ;save modified horizontal coordinate to stackldaykeepcy Enemy_PageLoc,yadcn ++$00 ;add carry to page locationsta SCRATCHPAD+$02 ;and save herepla ;pull modified horizontal coordinateandn ++%11110000 ;from the stack, mask out low nybblelsr ;and shift three bits to the rightlsrlsrsta SCRATCHPAD+$00 ;store result here as part of name table low byteldxy Enemy_Y_Position,y ;get vertical coordinatepla ;get second/third copy of vertical speed from stackcheckabpl GetHRp ;skip this part if moving downwards or not at alltxaclcadcn ++$08 ;add eight to vertical coordinate andtax ;save as XGetHRp: txa ;move vertical coordinate to Aldx VRAM_Buffer1_Offset ;get vram buffer offsetaslrol ;rotate d7 to d0 and d6 into carrypha ;save modified vertical coordinate to stackrol ;rotate carry to d0, thus d7 and d6 are at 2 LSBandn ++%00000011 ;mask out all bits but d7 and d6, then setoran ++%00100000 ;d5 to get appropriate high byte of name tablesta SCRATCHPAD+$01 ;address, then storelda SCRATCHPAD+$02 ;get saved page location from earlierandn ++$01 ;mask out all but LSBaslasl ;shift twice to the left and save with theorai SCRATCHPAD+$01 ;rest of the bits of the high byte, to getsta SCRATCHPAD+$01 ;the proper name table and the right place on itpla ;get modified vertical coordinate from stackandn ++%11100000 ;mask out low nybble and LSB of high nybbleclcadci SCRATCHPAD+$00 ;add to horizontal part saved heresta SCRATCHPAD+$00 ;save as name table low bytelday Enemy_Y_Position,ycmpn ++$e8 ;if vertical position not below thecmpcybcc ExPRp ;bottom of the screen, we're done, branch to leavelda SCRATCHPAD+$00andn ++%10111111 ;mask out d6 of low byte of name table addresssta SCRATCHPAD+$00ExPRp: rts ;leave!InitPlatformFall:tya ;move offset of other platform from Y to Xtaxjsr GetEnemyOffscreenBits ;get offscreen bitsldan ++$06jsr SetupFloateyNumber ;award 1000 points to playerlda Player_Rel_XPosstax FloateyNum_X_Pos,x ;put floatey number coordinates where player islda Player_Y_Positionstax FloateyNum_Y_Pos,xldan ++$01 ;set moving direction as flag forstax Enemy_MovingDir,x ;falling platformsStopPlatforms:jsr InitVStf ;initialize vertical speed and low bytestay Enemy_Y_Speed,y ;for both platforms and leavestay Enemy_Y_MoveForce,yrtsPlatformFall:tya ;save offset for other platform to stackphajsr MoveFallingPlatform ;make current platform fallplatax ;pull offset from stack and save to Xjsr MoveFallingPlatform ;make other platform fallldx ObjectOffsetldax PlatformCollisionFlag,x ;if player not standing on either platform,checkabmi ExPF ;skip this parttax ;transfer collision flag offset as offset to Xjsr PositionPlayerOnVPlat ;and position player appropriatelyExPF: ldx ObjectOffset ;get enemy object buffer offset and leaverts;--------------------------------YMovingPlatform:ldax Enemy_Y_Speed,x ;if platform moving up or down, skip ahead toorax Enemy_Y_MoveForce,x ;check on other positionbne ChkYCenterPosstax Enemy_YMF_Dummy,x ;initialize dummy variableldax Enemy_Y_Position,xcmpx YPlatformTopYPos,x ;if current vertical position =HIGH top position, branchcmpcybcs ChkYCenterPos ;ahead of all thislda FrameCounterandn ++%00000111 ;check for every eighth framebne SkipIYincx Enemy_Y_Position,x ;increase vertical position every eighth frameSkipIY: jmp ChkYPCollision ;skip ahead to last partChkYCenterPos:ldax Enemy_Y_Position,x ;if current vertical position LOW central position, branchcmpx YPlatformCenterYPos,x ;to slow ascent/move downwardscmpcybcc YMDownjsr MovePlatformUp ;otherwise start slowing descent/moving upwardsjmp ChkYPCollisionYMDown: jsr MovePlatformDown ;start slowing ascent/moving downwardsChkYPCollision:ldax PlatformCollisionFlag,x ;if collision flag not set here, branchcheckabmi ExYPl ;to leavejsr PositionPlayerOnVPlat ;otherwise position player appropriatelyExYPl: rts ;leave;--------------------------------;$00 - used as adder to position player hotizontallyXMovingPlatform:ldan ++$0e ;load preset maximum value for secondary counterjsr XMoveCntr_Platform ;do a sub to increment counters for movementjsr MoveWithXMCntrs ;do a sub to move platform accordingly, and return valueldax PlatformCollisionFlag,x ;if no collision with player,checkabmi ExXMP ;branch ahead to leavePositionPlayerOnHPlat:lda Player_X_Positionclc ;add saved value from second subroutine toadci SCRATCHPAD+$00 ;current player's position to position (яЁшсрты хь ёьх∙хэшх шуЁюър яю X юЄэюёшЄхы№эю яЁю°ыюую Ёрчр)sta Player_X_Position ;player accordingly in horizontal positionlda Player_PageLoc ;get player's page locationldy SCRATCHPAD+$00 ;check to see if saved value here is positive or negativecheckybmi PPHSubt ;if negative, branch to subtractadcn ++$00 ;otherwise add carry to page locationjmp SetPVar ;jump to skip subtractionPPHSubt:cmpcysbcn ++$00 ;subtract borrow from page locationSetPVar: sta Player_PageLoc ;save result to player's page locationsty Platform_X_Scroll ;put saved value from second sub here to be used laterjsr PositionPlayerOnVPlat ;position player vertically and appropriatelyExXMP: rts ;and we are done here;--------------------------------DropPlatform:ldax PlatformCollisionFlag,x ;if no collision between platform and playercheckabmi ExDPl ;occurred, just leave without moving anythingjsr MoveDropPlatform ;otherwise do a sub to move platform down very quicklyjsr PositionPlayerOnVPlat ;do a sub to position player appropriatelyExDPl: rts ;leave;--------------------------------;$00 - residual value from subRightPlatform:jsr MoveEnemyHorizontally ;move platform with current horizontal speed, if anysta SCRATCHPAD+$00 ;store saved value here (residual code)ldax PlatformCollisionFlag,x ;check collision flag, if no collision between playercheckabmi ExRPl ;and platform, branch ahead, leave speed unalteredldan ++$10stax Enemy_X_Speed,x ;otherwise set new speed (gets moving if motionless)jsr PositionPlayerOnHPlat ;use saved value from earlier sub to position playerExRPl: rts ;then leave;--------------------------------MoveLargeLiftPlat:jsr MoveLiftPlatforms ;execute common to all large and small lift platformsjmp ChkYPCollision ;branch to position player correctlyMoveSmallPlatform:jsr MoveLiftPlatforms ;execute common to all large and small lift platformsjmp ChkSmallPlatCollision ;branch to position player correctlyMoveLiftPlatforms:lda TimerControl ;if master timer control set, skip all of thischeckabne ExLiftP ;and branch to leaveldax Enemy_YMF_Dummy,xclc ;add contents of movement amount to whatever's hereadcx Enemy_Y_MoveForce,xpush afstax Enemy_YMF_Dummy,xldax Enemy_Y_Position,x ;add whatever vertical speed is set to currentld h,apop afld a,hadcx Enemy_Y_Speed,x ;vertical position plus carry to move up or downstax Enemy_Y_Position,x ;and then leavertsChkSmallPlatCollision:ldax PlatformCollisionFlag,x ;get bounding box counter saved in collision flagcheckabeq ExLiftP ;if none found, leave player position alonejsr PositionPlayerOnS_Plat ;use to position player correctlyExLiftP: rts ;then leave;-------------------------------------------------------------------------------------;$00 - page location of extended left boundary;$01 - extended left boundary position;$02 - page location of extended right boundary;$03 - extended right boundary positionOffscreenBoundsCheck:ldax Enemy_ID,x ;check for cheep-cheep objectcmpn ++FlyingCheepCheep ;branch to leave if foundbeq ExScrnBdlda ScreenLeft_X_Pos ;get horizontal coordinate for left side of screenldyx Enemy_ID,xcpyn ++HammerBro ;check for hammer bro objectbeq LimitBcpyn ++PiranhaPlant ;check for piranha plant objectbne ExtendLB ;these two will be erased sooner than others if too far leftLimitB:cmpcyadcn ++$38 ;add 56 pixels to coordinate if hammer bro or piranha plantcmpcyExtendLB:sbcn ++$48 ;subtract 72 pixels regardless of enemy objectsta SCRATCHPAD+$01 ;store result herelda ScreenLeft_PageLocsbcn ++$00 ;subtract borrow from page location of left sidecmpcysta SCRATCHPAD+$00 ;store result herelda ScreenRight_X_Pos ;add 72 pixels to the right side horizontal coordinateadcn ++$48sta SCRATCHPAD+$03 ;store result herelda ScreenRight_PageLocadcn ++$00 ;then add the carry to the page locationsta SCRATCHPAD+$02 ;and store result hereldax Enemy_X_Position,x ;compare horizontal coordinate of the enemy objectcmpi SCRATCHPAD+$01 ;to modified horizontal left edge coordinate to get carryldaxkeepcy Enemy_PageLoc,xsbci SCRATCHPAD+$00 ;then subtract it from the page coordinate of the enemy objectbmi TooFar ;if enemy object is too far left, branch to erase itldax Enemy_X_Position,x ;compare horizontal coordinate of the enemy objectcmpi SCRATCHPAD+$03 ;to modified horizontal right edge coordinate to get carryldaxkeepcy Enemy_PageLoc,xsbci SCRATCHPAD+$02 ;then subtract it from the page coordinate of the enemy objectbmi ExScrnBd ;if enemy object is on the screen, leave, do not erase enemyldax Enemy_State,x ;if at this point, enemy is offscreen to the right, so checkcmpn ++HammerBro ;if in state used by spiny's egg, do not erasebeq ExScrnBdcpyn ++PiranhaPlant ;if piranha plant, do not erasebeq ExScrnBdcpyn ++FlagpoleFlagObject ;if flagpole flag, do not erasebeq ExScrnBdcpyn ++StarFlagObject ;if star flag, do not erasebeq ExScrnBdcpyn ++JumpspringObject ;if jumpspring, do not erasebeq ExScrnBd ;erase all others too far to the rightTooFar: jsr EraseEnemyObject ;erase object if necessaryExScrnBd: rts ;leave;-------------------------------------------------------------------------------------;some unused space.db $ff, $ff, $ff;-------------------------------------------------------------------------------------;$01 - enemy buffer offsetFireballEnemyCollision:ldax Fireball_State,x ;check to see if fireball state is set at allcheckabeq ExitFBallEnemy ;branch to leave if notaslbcs ExitFBallEnemy ;branch to leave also if d7 in state is setlda FrameCounterlsr ;get LSB of frame counterbcs ExitFBallEnemy ;branch to leave if set (do routine every other frame)txaasl ;multiply fireball offset by fouraslclcadcn ++$1c ;then add $1c or 28 bytes to ittay ;to use fireball's bounding box coordinatesldxn ++$04FireballEnemyCDLoop:stx SCRATCHPAD+$01 ;store enemy object offset heretyapha ;push fireball offset to the stackldax Enemy_State,xandn ++%00100000 ;check to see if d5 is set in enemy statebne NoFToECol ;if so, skip to next enemy slotldax Enemy_Flag,x ;check to see if buffer flag is setcheckabeq NoFToECol ;if not, skip to next enemy slotldax Enemy_ID,x ;check enemy identifiercmpn ++$24cmpcybcc GoombaDie ;if LOW $24, branch to check furthercmpn ++$2bcmpcybcc NoFToECol ;if in range $24-$2a, skip to next enemy slotGoombaDie: cmpn ++Goomba ;check for goomba identifierbne NotGoomba ;if not found, continue with codeldax Enemy_State,x ;otherwise check for defeated statecmpn ++$02 ;if stomped or otherwise defeated,cmpcybcs NoFToECol ;skip to next enemy slotNotGoomba: ldax EnemyOffscrBitsMasked,x ;if any masked offscreen bits set,checkabne NoFToECol ;skip to next enemy slottxaasl ;otherwise multiply enemy offset by fouraslclcadcn ++$04 ;add 4 bytes to ittax ;to use enemy's bounding box coordinatesjsr SprObjectCollisionCore ;do fireball-to-enemy collision detectionldx ObjectOffset ;return fireball's original offsetbcc NoFToECol ;if carry clear, no collision, thus do next enemy slotldan ++%10000000stax Fireball_State,x ;set d7 in enemy stateldx SCRATCHPAD+$01 ;get enemy offsetjsr HandleEnemyFBallCol ;jump to handle fireball to enemy collisionNoFToECol: pla ;pull fireball offset from stacktay ;put it in Yldx SCRATCHPAD+$01 ;get enemy object offsetdex ;decrement itbpl FireballEnemyCDLoop ;loop back until collision detection done on all enemiesExitFBallEnemy:ldx ObjectOffset ;get original fireball offset and leavertsBowserIdentities:.db Goomba, GreenKoopa, BuzzyBeetle, Spiny, Lakitu, Bloober, HammerBro, BowserHandleEnemyFBallCol:jsr RelativeEnemyPosition ;get relative coordinate of enemyldx SCRATCHPAD+$01 ;get current enemy object offsetldax Enemy_Flag,x ;check buffer flag for d7 setcheckabpl ChkBuzzyBeetle ;branch if not set to continueandn ++%00001111 ;otherwise mask out high nybble andtax ;use low nybble as enemy offsetldax Enemy_ID,xcmpn ++Bowser ;check enemy identifier for bowserbeq HurtBowser ;branch if foundldx SCRATCHPAD+$01 ;otherwise retrieve current enemy offsetChkBuzzyBeetle:ldax Enemy_ID,xcmpn ++BuzzyBeetle ;check for buzzy beetlebeq ExHCF ;branch if found to leave (buzzy beetles fireproof)cmpn ++Bowser ;check for bowser one more time (necessary if d7 of flag was clear)bne ChkOtherEnemies ;if not found, branch to check other enemiesHurtBowser:deci BowserHitPoints ;decrement bowser's hit pointsbne ExHCF ;if bowser still has hit points, branch to leavejsr InitVStf ;otherwise do sub to init vertical speed and movement forcestax Enemy_X_Speed,x ;initialize horizontal speedsta EnemyFrenzyBuffer ;init enemy frenzy bufferldan ++$festax Enemy_Y_Speed,x ;set vertical speed to make defeated bowser jump a littleldy WorldNumber ;use world number as offsetlday BowserIdentities,y ;get enemy identifier to replace bowser withstax Enemy_ID,x ;set as new enemy identifierldan ++$20 ;set A to use starting value for statecpyn ++$03 ;check to see if using offset of 3 or morecmpcybcs SetDBSte ;branch if sooran ++$03 ;otherwise add 3 to enemy stateSetDBSte: stax Enemy_State,x ;set defeated enemy stateldan ++Sfx_BowserFallsta Square2SoundQueue ;load bowser defeat soundldx SCRATCHPAD+$01 ;get enemy offsetldan ++$09 ;award 5000 points to player for defeating bowsercheckabne EnemySmackScore ;unconditional branch to award pointsChkOtherEnemies:cmpn ++BulletBill_FrenzyVarbeq ExHCF ;branch to leave if bullet bill (frenzy variant)cmpn ++Podoboobeq ExHCF ;branch to leave if podoboocmpn ++$15cmpcybcs ExHCF ;branch to leave if identifier =HIGH $15ShellOrBlockDefeat:ldax Enemy_ID,x ;check for piranha plantcmpn ++PiranhaPlantcmpcybne StnE ;branch if not foundldaxkeepcy Enemy_Y_Position,xadcn ++$18 ;add 24 pixels to enemy object's vertical positionstax Enemy_Y_Position,xStnE: jsr ChkToStunEnemies ;do yet another subldax Enemy_State,xandn ++%00011111 ;mask out 2 MSB of enemy object's stateoran ++%00100000 ;set d5 to defeat enemy and save as new statestax Enemy_State,xldan ++$02 ;award 200 points by defaultldyx Enemy_ID,x ;check for hammer brocpyn ++HammerBrobne GoombaPoints ;branch if not foundldan ++$06 ;award 1000 points for hammer broGoombaPoints:cpyn ++Goomba ;check for goombabne EnemySmackScore ;branch if not foundldan ++$01 ;award 100 points for goombaEnemySmackScore:jsr SetupFloateyNumber ;update necessary score variablesldan ++Sfx_EnemySmack ;play smack enemy soundsta Square1SoundQueueExHCF: rts ;and now let's leave;-------------------------------------------------------------------------------------PlayerHammerCollision:lda FrameCounter ;get frame counterlsr ;shift d0 into carrybcc ExPHC ;branch to leave if d0 not set to execute every other framelda TimerControl ;if either master timer controlorai Misc_OffscreenBits ;or any offscreen bits for hammer are set,bne ExPHC ;branch to leavetxaasl ;multiply misc object offset by fouraslclcadcn ++$24 ;add 36 or $24 bytes to get proper offsettay ;for misc object bounding box coordinatesjsr PlayerCollisionCore ;do player-to-hammer collision detectionldx ObjectOffset ;get misc object offsetbcc ClHCol ;if no collision, then branchldax Misc_Collision_Flag,x ;otherwise read collision flagcheckabne ExPHC ;if collision flag already set, branch to leaveldan ++$01stax Misc_Collision_Flag,x ;otherwise set collision flag nowldax Misc_X_Speed,xeorn ++$ff ;get two's compliment ofclc ;hammer's horizontal speedadcn ++$01stax Misc_X_Speed,x ;set to send hammer flying the opposite directionlda StarInvincibleTimer ;if star mario invincibility timer set,checkabne ExPHC ;branch to leavejmp InjurePlayer ;otherwise jump to hurt player, do not returnClHCol: ldan ++$00 ;clear collision flagstax Misc_Collision_Flag,xExPHC: rts;-------------------------------------------------------------------------------------HandlePowerUpCollision:jsr EraseEnemyObject ;erase the power-up objectldan ++$06jsr SetupFloateyNumber ;award 1000 points to player by defaultldan ++Sfx_PowerUpGrabsta Square2SoundQueue ;play the power-up soundlda PowerUpType ;check power-up typecmpn ++$02cmpcybcc Shroom_Flower_PUp ;if mushroom or fire flower, branchcmpn ++$03beq SetFor1Up ;if 1-up mushroom, branchldan ++$23 ;otherwise set star mario invincibilitysta StarInvincibleTimer ;timer, and load the star mario musicldan ++StarPowerMusic ;into the area music queue, then leavesta AreaMusicQueuertsShroom_Flower_PUp:lda PlayerStatus ;if player status = small, branchcheckabeq UpToSupercmpn ++$01 ;if player status not super, leavebne NoPUpldx ObjectOffset ;get enemy offset, not necessaryldan ++$02 ;set player status to fierysta PlayerStatusjsr GetPlayerColors ;run sub to change colors of playerldx ObjectOffset ;get enemy offset again, and again not necessaryldan ++$0c ;set value to be used by subroutine tree (fiery)jmp UpToFiery ;jump to set values accordinglySetFor1Up:ldan ++$0b ;change 1000 points into 1-up insteadstax FloateyNum_Control,x ;and then leavertsUpToSuper:ldan ++$01 ;set player status to supersta PlayerStatusldan ++$09 ;set value to be used by subroutine tree (super)UpToFiery:ldyn ++$00 ;set value to be used as new player statejsr SetPRout ;set values to stop certain things in motionNoPUp: rts;--------------------------------ResidualXSpdData:.db $18, $e8KickedShellXSpdData:.db $30, $d0DemotedKoopaXSpdData:.db $08, $f8PlayerEnemyCollision:lda FrameCounter ;check counter for d0 setlsr;ccf ;эх яюьюурхЄ эр 1-2 (яЁш Їшъёрї CY Єюцх эх яюьюурхЄ);scf ;схч ъюыышчшщ ё ьюэёЄЁрьшbcs NoPUp ;if set, branch to leavejsr CheckPlayerVertical ;if player object is completely offscreen orbcs NoPECol ;if down past 224th pixel row, branch to leaveldax EnemyOffscrBitsMasked,x ;if current enemy is offscreen by any amount,checkabne NoPECol ;go ahead and branch to leavelda GameEngineSubroutinecmpn ++$08 ;if not set to run player control routinebne NoPECol ;on next frame, branch to leaveldax Enemy_State,xandn ++%00100000 ;if enemy state has d5 set, branch to leavebne NoPEColjsr GetEnemyBoundBoxOfs ;get bounding box offset for current enemy objectjsr PlayerCollisionCore ;do collision detection on player vs. enemyldx ObjectOffset ;get enemy object buffer offsetbcs CheckForPUpCollision ;if collision, branch past this part hereldax Enemy_CollisionBits,xandn ++%11111110 ;otherwise, clear d0 of current enemy object'sstax Enemy_CollisionBits,x ;collision bitNoPECol: rtsCheckForPUpCollision:ldyx Enemy_ID,xcpyn ++PowerUpObject ;check for power-up objectbne EColl ;if not found, branch to next partjmp HandlePowerUpCollision ;otherwise, unconditional jump backwardsEColl: lda StarInvincibleTimer ;if star mario invincibility timer expired,checkabeq HandlePECollisions ;perform task here, otherwise kill enemy likejmp ShellOrBlockDefeat ;hit with a shell, or from beneathKickedShellPtsData:.db $0a, $06, $04HandlePECollisions:ldax Enemy_CollisionBits,x ;check enemy collision bits for d0 setandn ++%00000001 ;or for being offscreen at allorax EnemyOffscrBitsMasked,xbne ExPEC ;branch to leave if either is trueldan ++$01orax Enemy_CollisionBits,x ;otherwise set d0 nowstax Enemy_CollisionBits,xcpyn ++Spiny ;branch if spinybeq ChkForPlayerInjurycpyn ++PiranhaPlant ;branch if piranha plantbeq InjurePlayer_PiranhaPlantcpyn ++Podoboo ;branch if podoboobeq InjurePlayer_PiranhaPlantcpyn ++BulletBill_CannonVar ;branch if bullet billbeq ChkForPlayerInjurycpyn ++$15 ;branch if object => $15cmpcybcs InjurePlayerlda AreaType ;branch if water type levelcheckabeq InjurePlayerldax Enemy_State,x ;branch if d7 of enemy state was setaslbcs ChkForPlayerInjuryldax Enemy_State,x ;mask out all but 3 LSB of enemy stateandn ++%00000111cmpn ++$02 ;branch if enemy is in normal or falling statecmpcybcc ChkForPlayerInjuryldax Enemy_ID,x ;branch to leave if goomba in defeated statecmpn ++Goombabeq ExPECldan ++Sfx_EnemySmack ;play smack enemy soundsta Square1SoundQueueldax Enemy_State,x ;set d7 in enemy state, thus become moving shelloran ++%10000000stax Enemy_State,xjsr EnemyFacePlayer ;set moving direction and get offsetlday KickedShellXSpdData,y ;load and set horizontal speed data with offsetstax Enemy_X_Speed,xldan ++$03 ;add three to whatever the stomp counter containsclc ;to give points for kicking the shelladci StompChainCounterldyx EnemyIntervalTimer,x ;check shell enemy's timercpyn ++$03 ;if above a certain point, branch using the pointscmpcybcs KSPts ;data obtained from the stomp counter + 3lday KickedShellPtsData,y ;otherwise, set points based on proximity to timer expirationKSPts: jsr SetupFloateyNumber ;set values for floatey number nowExPEC: rts ;leave!!!ChkForPlayerInjury:lda Player_Y_Speed ;check player's vertical speedcheckabmi ChkInj ;perform procedure below if player moving upwards;jr $ ;хёыш чфхё№ яющьрЄ№ ёЄюыъэютхэшх ё уЁшсюь эр 1-2 (yspeed=0!!!) ш яхЁхэряЁртшЄ№ тЁєўэє■ эр EnemyStomped (їюЄ яю шфхх ь√ эх фюыцэ√ хую фртшЄ№), Єю фры№°х єьшЁрхь эр ъръЄєёхbne EnemyStomped ;or not at all, and branch elsewhere if moving downwardsChkInj: ldax Enemy_ID,x ;branch if enemy object < $07if GOODBULLETcp BulletBill_CannonVarret zendifcmpn ++Bloobercmpcybcc ChkETmrslda Player_Y_Position ;add 12 pixels to player's vertical positionclcadcn ++$0ccmpx Enemy_Y_Position,x ;compare modified player's position to enemy's positioncmpcybcc EnemyStomped ;branch if this player's position above (less than) enemy'sChkETmrs: lda StompTimer ;check stomp timercheckabne EnemyStomped ;branch if setlda InjuryTimer ;check to see if injured invincibility timer stillcheckabne ExInjColRoutines ;counting down, and branch elsewhere to leave if solda Player_Rel_XPoscmpi Enemy_Rel_XPos ;if player's relative position to the left of enemy'scmpcybcc TInjE ;relative position, branch herejmp ChkEnemyFaceRight ;otherwise do a jump hereTInjE: ldax Enemy_MovingDir,x ;if enemy moving towards the left,cmpn ++$01 ;branch, otherwise do a jump herebne InjurePlayer ;to turn the enemy aroundjmp LInjInjurePlayer_PiranhaPlant:if GOODPIRANHAPLANTretendifInjurePlayer:lda InjuryTimer ;check again to see if injured invincibility timer ischeckabne ExInjColRoutines ;at zero, and branch to leave if soForceInjury:ldx PlayerStatus ;check player's statuscheckxbeq KillPlayer ;branch if smallsta PlayerStatus ;otherwise set player's status to smallldan ++$08sta InjuryTimer ;set injured invincibility timeraslsta Square1SoundQueue ;play pipedown/injury soundjsr GetPlayerColors ;change player's palette if necessaryldan ++$0a ;set subroutine to run on next frameSetKRout: ldyn ++$01 ;set new player stateSetPRout: sta GameEngineSubroutine ;load new value to run subroutine on next framesty Player_State ;store new player stateldyn ++$ffsty TimerControl ;set master timer control flag to halt timersinysty ScrollAmount ;initialize scroll speedExInjColRoutines:ldx ObjectOffset ;get enemy offset and leavertsKillPlayer:stx Player_X_Speed ;halt player's horizontal movement by initializing speedinxstx EventMusicQueue ;set event music queue to death musicldan ++$fcsta Player_Y_Speed ;set new vertical speedldan ++$0b ;set subroutine to run on next framecheckabne SetKRout ;branch to set player's state and other thingsStompedEnemyPtsData:.db $02, $06, $05, $06EnemyStomped:ldax Enemy_ID,x ;check for spiny, branch to hurt playercmpn ++Spiny ;if foundbeq InjurePlayerldan ++Sfx_EnemyStomp ;otherwise play stomp/swim soundsta Square1SoundQueueldax Enemy_ID,xldyn ++$00 ;initialize points data offset for stomped enemiescmpn ++FlyingCheepCheep ;branch for cheep-cheepbeq EnemyStompedPtscmpn ++BulletBill_FrenzyVar ;branch for either bullet bill objectbeq EnemyStompedPtscmpn ++BulletBill_CannonVarbeq EnemyStompedPtscmpn ++Podoboo ;branch for podoboo (this branch is logically impossiblebeq EnemyStompedPts ;for cpu to take due to earlier checking of podoboo)iny ;increment points data offsetcmpn ++HammerBro ;branch for hammer brobeq EnemyStompedPtsiny ;increment points data offsetcmpn ++Lakitu ;branch for lakitubeq EnemyStompedPtsiny ;increment points data offsetcmpn ++Bloober ;branch if NOT blooberbne ChkForDemoteKoopaEnemyStompedPts:lday StompedEnemyPtsData,y ;load points data using offset in Yjsr SetupFloateyNumber ;run sub to set floatey number controlsldax Enemy_MovingDir,xpha ;save enemy movement direction to stackjsr SetStun ;run sub to kill enemyplastax Enemy_MovingDir,x ;return enemy movement direction from stackldan ++%00100000stax Enemy_State,x ;set d5 in enemy statejsr InitVStf ;nullify vertical speed, physics-related thing,stax Enemy_X_Speed,x ;and horizontal speedldan ++$fd ;set player's vertical speed, to give bouncesta Player_Y_SpeedrtsChkForDemoteKoopa:cmpn ++$09 ;branch elsewhere if enemy object < $09 ;эрўшэр ё юс·хъЄр #9 шфєЄ misc objects (ўЄю ¤Єю???)cmpcybcc HandleStompedShellEandn ++%00000001 ;demote koopa paratroopas to ordinary troopasstax Enemy_ID,xldyn ++$00 ;return enemy to normal statestyx Enemy_State,xldan ++$03 ;award 400 points to the playerjsr SetupFloateyNumberjsr InitVStf ;nullify physics-related thing and vertical speedjsr EnemyFacePlayer ;turn enemy around if necessarylday DemotedKoopaXSpdData,ystax Enemy_X_Speed,x ;set appropriate moving speed based on directionjmp SBnce ;then move onto something elseRevivalRateData:.db $10, $0bHandleStompedShellE:ldan ++$04 ;set defeated state for enemystax Enemy_State,xinci StompChainCounter ;increment the stomp counterlda StompChainCounter ;add whatever is in the stomp counterclc ;to whatever is in the stomp timeradci StompTimerjsr SetupFloateyNumber ;award points accordinglyinci StompTimer ;increment stomp timer of some sortldy PrimaryHardMode ;check primary hard mode flaglday RevivalRateData,y ;load timer setting according to flagstax EnemyIntervalTimer,x ;set as enemy timer to revive stomped enemySBnce: ldan ++$fc ;set player's vertical speed for bouncesta Player_Y_Speed ;and then leave!!!rtsChkEnemyFaceRight:ldax Enemy_MovingDir,x ;check to see if enemy is moving to the rightcmpn ++$01bne LInj ;if not, branchjmp InjurePlayer ;otherwise go back to hurt playerLInj: jsr EnemyTurnAround ;turn the enemy around, if necessaryjmp InjurePlayer ;go back to hurt playerEnemyFacePlayer:ldyn ++$01 ;set to move right by defaultjsr PlayerEnemyDiff ;get horizontal difference between player and enemybpl SFcRt ;if enemy is to the right of player, do not incrementiny ;otherwise, increment to set to move to the leftSFcRt: styx Enemy_MovingDir,x ;set moving direction heredey ;then decrement to use as a proper offsetrtsSetupFloateyNumber:stax FloateyNum_Control,x ;set number of points control for floatey numbersldan ++$30stax FloateyNum_Timer,x ;set timer for floatey numbersldax Enemy_Y_Position,xstax FloateyNum_Y_Pos,x ;set vertical coordinatelda Enemy_Rel_XPosstax FloateyNum_X_Pos,x ;set horizontal coordinate and leaveExSFN: rts;-------------------------------------------------------------------------------------;$01 - used to hold enemy offset for second enemySetBitsMask:.db %10000000, %01000000, %00100000, %00010000, %00001000, %00000100, %00000010ClearBitsMask:.db %01111111, %10111111, %11011111, %11101111, %11110111, %11111011, %11111101EnemiesCollision:;TODO єёъюЁшЄ№ ўхЁхч ix тьхёЄю cif Z80OPT2ld a,(FrameCounter) ;check counter for d0 setrraret nc;bcc ExSFN ;if d0 not set, leaveld a,(AreaType)or aret z;beq ExSFN ;if water area type, leaveld hl,Enemy_IDadd hl,bcld a,(hl)cp ++$15 ;if enemy object => $15, branch to leavejp nc,ExitECRoutinecp ++Lakitu ;if lakitu, branch to leavejp z,ExitECRoutinecp ++PiranhaPlant ;if piranha plant, branch to leavejp z,ExitECRoutineldax EnemyOffscrBitsMasked,x ;if masked offscreen bits nonzero, branch to leaveor ajp nz,ExitECRoutinecall GetEnemyBoundBoxOfs ;otherwise, do sub, get appropriate bounding box offset fordec c ;first enemy we're going to compare, then decrement for secondjp m,ExitECRoutine ;branch to leave if there are no other enemiesECLoop: ;ld ly,c;stx SCRATCHPAD+$01 ;save enemy object buffer offset for second enemy here;ld hy,e;tya ;save first enemy's bounding box offset to stack;phaldax Enemy_Flag,x ;check enemy object enable flagor ajr z,ReadyNextEnemy_fast ;branch if flag not setldax Enemy_ID,xcp ++$15 ;check for enemy object => $15jr nc,ReadyNextEnemy_fast ;branch if truecp ++Lakitujr z,ReadyNextEnemy_fast ;branch if enemy object is lakitucp ++PiranhaPlantjr z,ReadyNextEnemy_fast ;branch if enemy object is piranha plantldax EnemyOffscrBitsMasked,xor ajr nz,ReadyNextEnemy_fast ;branch if masked offscreen bits setld ly,c;ld hy,e ;эх яюьюурхЄld a,c ;get second enemy object's bounding box offsetinc aadd a,a ;multiply by four, then add fouradd a,ald c,a ;use as new contents of Xpush ixpush iycall SprObjectCollisionCore ;do collision detection using the two enemies here ;эх яюЁЄшЄ ypop iypop ixld hy,eld hl,ObjectOffsetld e,(hl);ld c,(hl) ;use first enemy offset for Xld c,ly;ld e,ly;ldy SCRATCHPAD+$01 ;use second enemy offset for Yjr nc,NoEnemyCollision ;if carry clear, no collision, branch ahead of thisld hl,Enemy_Stateadd hl,de;bcld a,(hl) ;ldax Enemy_State,xld hl,Enemy_Stateadd hl,bc;deor (hl) ;oray Enemy_State,y ;check both enemy states for d7 setjp m,YesEC ;branch if at least one of them is setld ix,Enemy_CollisionBitsadd ix,bc;deld a,(ix);lday Enemy_CollisionBits,y ;load first enemy's collision-related bitsld hl,SetBitsMaskadd hl,de;bcand (hl);andx SetBitsMask,x ;check to see if bit connected to second enemy isjr nz,ReadyNextEnemy ;already set, and move onto next enemy slot if setld a,(ix);lday Enemy_CollisionBits,yor (hl);orax SetBitsMask,x ;if the bit is not set, set it nowld (ix),a;stay Enemy_CollisionBits,yYesEC: ;push iy ;эх яюьюурхЄ;ly чрьхэ хЄ SCRATCHPAD+$01!!!if Z80OPT2bug==0ld a,cld c,eld e,a ;яюўхьє-Єю яюЁ фюъ тыш хЄ! шэрўх ўхЁхярїш эх ёЄрыъштр■Єё фЁєу юс фЁєурendifcall ProcEnemyCollisions ;react according to the nature of collision ;яюЁЄшЄ x,y;pop iyjp ReadyNextEnemy ;move onto next enemy slotNoEnemyCollision:ld hl,ClearBitsMaskadd hl,de;bcld a,(hl)ld hl,Enemy_CollisionBitsadd hl,bc;de;lday Enemy_CollisionBits,y ;load first enemy's collision-related bitsand (hl) ;andx ClearBitsMask,x ;clear bit connected to second enemyld (hl),a ;stay Enemy_CollisionBits,y ;then move onto next enemy slotReadyNextEnemy:;pla ;get first enemy's bounding box offset from the stackld e,hy ;tay ;use as Y againld c,ly;ldx SCRATCHPAD+$01 ;get and decrement second enemy's object buffer offsetReadyNextEnemy_fast:dec cjp p,ECLoop ;loop until all enemy slots have been checkedExitECRoutine:ld hl,ObjectOffsetld c,(hl) ;get enemy object buffer offsetret ;leaveelse ;~Z80lda FrameCounter ;check counter for d0 setlsrbcc ExSFN ;if d0 not set, leavelda AreaTypecheckabeq ExSFN ;if water area type, leaveldax Enemy_ID,xcmpn ++$15 ;if enemy object => $15, branch to leavecmpcybcs ExitECRoutinecmpn ++Lakitu ;if lakitu, branch to leavebeq ExitECRoutinecmpn ++PiranhaPlant ;if piranha plant, branch to leavebeq ExitECRoutineldax EnemyOffscrBitsMasked,x ;if masked offscreen bits nonzero, branch to leavecheckabne ExitECRoutinejsr GetEnemyBoundBoxOfs ;otherwise, do sub, get appropriate bounding box offset fordex ;first enemy we're going to compare, then decrement for secondbmi ExitECRoutine ;branch to leave if there are no other enemiesECLoop: stx SCRATCHPAD+$01 ;save enemy object buffer offset for second enemy heretya ;save first enemy's bounding box offset to stackphaldax Enemy_Flag,x ;check enemy object enable flagcheckabeq ReadyNextEnemy ;branch if flag not setldax Enemy_ID,xcmpn ++$15 ;check for enemy object => $15cmpcybcs ReadyNextEnemy ;branch if truecmpn ++Lakitubeq ReadyNextEnemy ;branch if enemy object is lakitucmpn ++PiranhaPlantbeq ReadyNextEnemy ;branch if enemy object is piranha plantldax EnemyOffscrBitsMasked,xcheckabne ReadyNextEnemy ;branch if masked offscreen bits settxa ;get second enemy object's bounding box offsetasl ;multiply by four, then add fouraslclcadcn ++$04tax ;use as new contents of Xjsr SprObjectCollisionCore ;do collision detection using the two enemies hereldx ObjectOffset ;use first enemy offset for Xldy SCRATCHPAD+$01 ;use second enemy offset for Ybcc NoEnemyCollision ;if carry clear, no collision, branch ahead of thisldax Enemy_State,xoray Enemy_State,y ;check both enemy states for d7 setandn ++%10000000bne YesEC ;branch if at least one of them is setlday Enemy_CollisionBits,y ;load first enemy's collision-related bitsandx SetBitsMask,x ;check to see if bit connected to second enemy isbne ReadyNextEnemy ;already set, and move onto next enemy slot if setlday Enemy_CollisionBits,yorax SetBitsMask,x ;if the bit is not set, set it nowstay Enemy_CollisionBits,yYesEC: jsr ProcEnemyCollisions ;react according to the nature of collisionjmp ReadyNextEnemy ;move onto next enemy slotNoEnemyCollision:lday Enemy_CollisionBits,y ;load first enemy's collision-related bitsandx ClearBitsMask,x ;clear bit connected to second enemystay Enemy_CollisionBits,y ;then move onto next enemy slotReadyNextEnemy:pla ;get first enemy's bounding box offset from the stacktay ;use as Y againldx SCRATCHPAD+$01 ;get and decrement second enemy's object buffer offsetdexbpl ECLoop ;loop until all enemy slots have been checkedExitECRoutine:ldx ObjectOffset ;get enemy object buffer offsetrts ;leaveendifProcEnemyCollisions:;ly чрьхэ хЄ SCRATCHPAD+$01!!!lday Enemy_State,y ;check both enemy states for d5 setorax Enemy_State,xandn ++%00100000 ;if d5 is set in either state, or both, branchbne ExitProcessEColl ;to leave and do nothing else at this pointldax Enemy_State,xcmpn ++$06 ;if second enemy state < $06, branch elsewherecmpcybcc ProcSecondEnemyCollldax Enemy_ID,x ;check second enemy identifier for hammer brocmpn ++HammerBro ;if hammer bro found in alt state, branch to leavebeq ExitProcessEColllday Enemy_State,y ;check first enemy state for d7 setaslbcc ShellCollisions ;branch if d7 is clearldan ++$06jsr SetupFloateyNumber ;award 1000 points for killing enemyjsr ShellOrBlockDefeat ;then kill enemy, then loadif Z80OPT2ld e,ly;ldy SCRATCHPAD+$01 ;original offset of second enemyelseldy SCRATCHPAD+$01 ;original offset of second enemyendifShellCollisions:tya ;move Y to Xtaxjsr ShellOrBlockDefeat ;kill second enemyldx ObjectOffsetldax ShellChainCounter,x ;get chain counter for shellclcadcn ++$04 ;add four to get appropriate point offsetif Z80OPT2ld c,ly;ldx SCRATCHPAD+$01elseldx SCRATCHPAD+$01endifjsr SetupFloateyNumber ;award appropriate number of points for second enemyldx ObjectOffset ;load original offset of first enemyincx ShellChainCounter,x ;increment chain counter for additional enemiesExitProcessEColl:rts ;leave!!!ProcSecondEnemyColl:lday Enemy_State,y ;if first enemy state < $06, branch elsewherecmpn ++$06cmpcybcc MoveEOfslday Enemy_ID,y ;check first enemy identifier for hammer brocmpn ++HammerBro ;if hammer bro found in alt state, branch to leavebeq ExitProcessEColljsr ShellOrBlockDefeat ;otherwise, kill first enemyif Z80OPT2ld e,ly;ldy SCRATCHPAD+$01elseldy SCRATCHPAD+$01endiflday ShellChainCounter,y ;get chain counter for shellclcadcn ++$04 ;add four to get appropriate point offsetldx ObjectOffsetjsr SetupFloateyNumber ;award appropriate number of points for first enemyif Z80OPT2ld c,ly;ldx SCRATCHPAD+$01 ;load original offset of second enemyelseldx SCRATCHPAD+$01 ;load original offset of second enemyendifincx ShellChainCounter,x ;increment chain counter for additional enemiesrts ;leave!!!MoveEOfs:tya ;move Y ($01) to Xtaxjsr EnemyTurnAround ;do the sub here using value from $01ldx ObjectOffset ;then do it again using value from $08EnemyTurnAround:ldax Enemy_ID,x ;check for specific enemiescmpn ++PiranhaPlantbeq ExTA ;if piranha plant, leavecmpn ++Lakitubeq ExTA ;if lakitu, leavecmpn ++HammerBrobeq ExTA ;if hammer bro, leavecmpn ++Spinybeq RXSpd ;if spiny, turn it aroundcmpn ++GreenParatroopaJumpbeq RXSpd ;if green paratroopa, turn it aroundcmpn ++$07cmpcybcs ExTA ;if any OTHER enemy object => $07, leaveRXSpd: ldax Enemy_X_Speed,x ;load horizontal speedeorn ++$ff ;get two's compliment for horizontal speedtayinystyx Enemy_X_Speed,x ;store as new horizontal speedldax Enemy_MovingDir,xeorn ++%00000011 ;invert moving direction and store, then leavestax Enemy_MovingDir,x ;thus effectively turning the enemy aroundExTA: rts ;leave!!!;-------------------------------------------------------------------------------------;$00 - vertical position of platformLargePlatformCollision:ldan ++$ff ;save value herestax PlatformCollisionFlag,xlda TimerControl ;check master timer controlcheckabne ExLPC ;if set, branch to leaveldax Enemy_State,x ;if d7 set in object state,checkabmi ExLPC ;branch to leaveldax Enemy_ID,xcmpn ++$24 ;check enemy object identifier forbne ChkForPlayerC_LargeP ;balance platform, branch if not foundldax Enemy_State,xtax ;set state as enemy offset herejsr ChkForPlayerC_LargeP ;perform code with state offset, then original offset, in XChkForPlayerC_LargeP:jsr CheckPlayerVertical ;figure out if player is below a certain pointbcs ExLPC ;or offscreen, branch to leave if truetxajsr GetEnemyBoundBoxOfsArg ;get bounding box offset in Yldax Enemy_Y_Position,x ;store vertical coordinate insta SCRATCHPAD+$00 ;temp variable for nowtxa ;send offset we're on to the stackphajsr PlayerCollisionCore ;do player-to-platform collision detectionplakeepcy ;retrieve offset from the stacktaxbcc ExLPC ;if no collision, branch to leavejsr ProcLPlatCollisions ;otherwise collision, perform subExLPC: ldx ObjectOffset ;get enemy object buffer offset and leaverts;--------------------------------;$00 - counter for bounding boxesSmallPlatformCollision:lda TimerControl ;if master timer control set,checkabne ExSPC ;branch to leavestax PlatformCollisionFlag,x ;otherwise initialize collision flagjsr CheckPlayerVertical ;do a sub to see if player is below a certain pointbcs ExSPC ;or entirely offscreen, and branch to leave if trueldan ++$02sta SCRATCHPAD+$00 ;load counter here for 2 bounding boxesChkSmallPlatLoop:ldx ObjectOffset ;get enemy object offsetjsr GetEnemyBoundBoxOfs ;get bounding box offset in Yandn ++%00000010 ;if d1 of offscreen lower nybble bits was setbne ExSPC ;then branch to leavelday BoundingBox_UL_YPos,y ;check top of platform's bounding box for beingcmpn ++$20 ;above a specific pointcmpcybcc MoveBoundBox ;if so, branch, don't do collision detectionjsr PlayerCollisionCore ;otherwise, perform player-to-platform collision detectionbcs ProcSPlatCollisions ;skip ahead if collisionMoveBoundBox:lday BoundingBox_UL_YPos,y ;move bounding box vertical coordinatesclc ;128 pixels downwardsadcn ++$80stay BoundingBox_UL_YPos,ylday BoundingBox_DR_YPos,yclcadcn ++$80stay BoundingBox_DR_YPos,ydeci SCRATCHPAD+$00 ;decrement counter we set earlierbne ChkSmallPlatLoop ;loop back until both bounding boxes are checkedExSPC: ldx ObjectOffset ;get enemy object buffer offset, then leaverts;--------------------------------ProcSPlatCollisions:ldx ObjectOffset ;return enemy object buffer offset to X, then continueProcLPlatCollisions:lday BoundingBox_DR_YPos,y ;get difference by subtracting the topsecsub ;of the player's bounding box from the bottomsbci BoundingBox_UL_YPos ;of the platform's bounding boxcmpn ++$04 ;if difference too large or negative,cmpcybcs ChkForTopCollision ;branch, do not alter vertical speed of playerlda Player_Y_Speed ;check to see if player's vertical speed is moving downcheckabpl ChkForTopCollision ;if so, don't mess with itldan ++$01 ;otherwise, set verticalsta Player_Y_Speed ;speed of player to kill jumpChkForTopCollision:lda BoundingBox_DR_YPos ;get difference by subtracting the topsecsub ;of the platform's bounding box from the bottomsbcy BoundingBox_UL_YPos,y ;of the player's bounding boxcmpn ++$06cmpcybcs PlatformSideCollisions ;if difference not close enough, skip all of thislda Player_Y_Speedcheckabmi PlatformSideCollisions ;if player's vertical speed moving upwards, skip thislda SCRATCHPAD+$00 ;get saved bounding box counter from earlierldyx Enemy_ID,xcpyn ++$2b ;if either of the two small platform objects are found,beq SetCollisionFlag ;regardless of which one, branch to use bounding box countercpyn ++$2c ;as contents of collision flagbeq SetCollisionFlagtxa ;otherwise use enemy object buffer offsetSetCollisionFlag: ;яюўхьє ё■фр эх яюярфрхь???ldx ObjectOffset ;get enemy object buffer offsetstax PlatformCollisionFlag,x ;save either bounding box counter or enemy offset hereldan ++$00sta Player_State ;set player state to normal then leavertsPlatformSideCollisions:ldan ++$01 ;set value here to indicate possible horizontalsta SCRATCHPAD+$00 ;collision on left side of platformlda BoundingBox_DR_XPos ;get difference by subtracting platform's left edgesecsub ;from player's right edgesbcy BoundingBox_UL_XPos,ycmpn ++$08 ;if difference close enough, skip all of thiscmpcybcc SideCinci SCRATCHPAD+$00 ;otherwise increment value set here for right side collisionlday BoundingBox_DR_XPos,y ;get difference by subtracting player's left edgeclc ;from platform's right edgesbci BoundingBox_UL_XPoscmpn ++$09 ;if difference not close enough, skip subroutinecmpcybcs NoSideC ;and instead branch to leave (no collision)SideC: jsr ImpedePlayerMove ;deal with horizontal collisionNoSideC: ldx ObjectOffset ;return with enemy object buffer offsetrts;-------------------------------------------------------------------------------------PlayerPosSPlatData:.db $80, $00PositionPlayerOnS_Plat:tay ;use bounding box counter saved in collision flagldax Enemy_Y_Position,x ;for offsetclc ;add positioning data using offset to the verticaladcy PlayerPosSPlatData-1,y ;coordinatejr PositionPlayerOnVPlat_go;.db $2c ;BIT instruction opcodePositionPlayerOnVPlat:ldax Enemy_Y_Position,x ;get vertical coordinatePositionPlayerOnVPlat_goldy GameEngineSubroutinecpyn ++$0b ;if certain routine being executed on this frame,beq ExPlPos ;skip all of thisldyx Enemy_Y_HighPos,xcpyn ++$01 ;if vertical high byte offscreen, skip thisbne ExPlPossecsub ;subtract 32 pixels from vertical coordinatesbcn ++$20 ;for the player object's heightsta Player_Y_Position ;save as player's new vertical coordinatetyasbcn ++$00 ;subtract borrow and store as player'ssta Player_Y_HighPos ;new vertical high byteldan ++$00sta Player_Y_Speed ;initialize vertical speed and low byte of forcesta Player_Y_MoveForce ;and then leaveExPlPos: rts;-------------------------------------------------------------------------------------CheckPlayerVertical:lda Player_OffscreenBits ;if player object is completely offscreencmpn ++$f0 ;vertically, leave this routinecmpcybcs ExCPVldy Player_Y_HighPos ;if player high vertical byte is notdey ;within the screen, leave this routinebne ExCPVlda Player_Y_Position ;if on the screen, check to see how far downcmpn ++$d0 ;the player is verticallycmpcyExCPV: rts;-------------------------------------------------------------------------------------GetEnemyBoundBoxOfs:lda ObjectOffset ;get enemy object buffer offsetGetEnemyBoundBoxOfsArg:asl ;multiply A by four, then add fourasl ;to skip player's bounding boxclcadcn ++$04tay ;send to Ylda Enemy_OffscreenBits ;get offscreen bits for enemy objectandn ++%00001111 ;save low nybblecmpn ++%00001111 ;check for all bits setcmpcyrts;-------------------------------------------------------------------------------------;$00-$01 - used to hold many values, essentially temp variables;$04 - holds lower nybble of vertical coordinate from block buffer routine;$eb - used to hold block buffer adderPlayerBGUpperExtent:.db $20, $10PlayerBGCollision:lda DisableCollisionDet ;if collision detection disabled flag set,checkabne ExPBGCol ;branch to leavelda GameEngineSubroutinecmpn ++$0b ;if running routine ++11 or $0bbeq ExPBGCol ;branch to leavecmpn ++$04cmpcybcc ExPBGCol ;if running routines $00-$03 branch to leaveldan ++$01 ;load default player state for swimmingldy SwimmingFlag ;if swimming flag set,checkybne SetPSte ;branch ahead to set default statelda Player_State ;if player in normal state,checkabeq SetFallS ;branch to set default state for fallingcmpn ++$03bne ChkOnScr ;if in any other state besides climbing, skip to next partSetFallS: ldan ++$02 ;load default player state for fallingSetPSte: sta Player_State ;set whatever player state is appropriateChkOnScr: lda Player_Y_HighPoscmpn ++$01 ;check player's vertical high byte for still on the screenbne ExPBGCol ;branch to leave if notldan ++$ffsta Player_CollisionBits ;initialize player's collision flaglda Player_Y_Positioncmpn ++$cf ;check player's vertical coordinatecmpcybcc ChkCollSize ;if not too close to the bottom of screen, continueExPBGCol: rts ;otherwise leaveChkCollSize:ldyn ++$02 ;load default offsetlda CrouchingFlagcheckabne GBBAdr ;if player crouching, skip aheadlda PlayerSizecheckabne GBBAdr ;if player small, skip aheaddey ;otherwise decrement offset for big player not crouchinglda SwimmingFlagcheckabne GBBAdr ;if swimming flag set, skip aheaddey ;otherwise decrement offsetGBBAdr: lday BlockBufferAdderData,y ;get value using offset ;0,7,14sta SCRATCHPAD+$eb ;store value heretay ;put value into Y, as offset for block buffer routineldx PlayerSize ;get player's size as offsetlda CrouchingFlagcheckabeq HeadChk ;if player not crouching, branch aheadinx ;otherwise increment size as offsetHeadChk: lda Player_Y_Position ;get player's vertical coordinate ;є эрё ёэрўрыр $b0???cmpx PlayerBGUpperExtent,x ;compare with upper extent value based on offset ;$20 шыш $10cmpcybcc DoFootCheck ;if player is too high, skip this partjsr BlockBufferColli_Head ;do player-to-bg collision detection on top ofbeq DoFootCheck ;player, and branch if nothing above player's headjsr CheckForCoinMTiles ;check to see if player touched coin with their headbcs AwardTouchedCoin ;if so, branch to some other part of codeldy Player_Y_Speed ;check player's vertical speedcheckybpl DoFootCheck ;if player not moving upwards, branch elsewhereldy SCRATCHPAD+$04 ;check lower nybble of vertical coordinate returnedcpyn ++$04 ;from collision detection routinecmpcybcc DoFootCheck ;if low nybble < 4, branchjsr CheckForSolidMTiles ;check to see what player's head bumped onbcs SolidOrClimb ;if player collided with solid metatile, branchldy AreaType ;otherwise check area typecheckybeq NYSpd ;if water level, branch aheadldy BlockBounceTimer ;if block bounce timer not expired,checkybne NYSpd ;branch ahead, do not process collisionjsr PlayerHeadCollision ;otherwise do a sub to process collisionjmp DoFootCheck ;jump ahead to skip these other parts hereSolidOrClimb:cmpn ++$26 ;if climbing metatile,beq NYSpd ;branch ahead and do not play soundldan ++Sfx_Bumpsta Square1SoundQueue ;otherwise load bump soundNYSpd: ldan ++$01 ;set player's vertical speed to nullifysta Player_Y_Speed ;jump or swimDoFootCheck:ldy SCRATCHPAD+$eb ;get block buffer adder offset ;0,7,14?lda Player_Y_Positioncmpn ++$cf ;check to see how low player iscmpcybcs DoPlayerSideCheck ;if player is too far down on screen, skip all of thisjsr BlockBufferColli_Feet ;do player-to-bg collision detection on bottom left of playerjsr CheckForCoinMTiles ;check to see if player touched coin with their left footbcs AwardTouchedCoin ;if so, branch to some other part of codepha ;save bottom left metatile to stackjsr BlockBufferColli_Feet ;do player-to-bg collision detection on bottom right of playersta SCRATCHPAD+$00 ;save bottom right metatile hereplasta SCRATCHPAD+$01 ;pull bottom left metatile and save herecheckabne ChkFootMTile ;if anything here, skip this partlda SCRATCHPAD+$00 ;otherwise check for anything in bottom right metatilecheckabeq DoPlayerSideCheck ;and skip ahead if notjsr CheckForCoinMTiles ;check to see if player touched coin with their right footbcc ChkFootMTile ;if not, skip unconditional jump and continue codeAwardTouchedCoin:jmp HandleCoinMetatile ;follow the code to erase coin and award to player 1 coinChkFootMTile:jsr CheckForClimbMTiles ;check to see if player landed on climbable metatilesbcs DoPlayerSideCheck ;if so, branchldy Player_Y_Speed ;check player's vertical speedcheckybmi DoPlayerSideCheck ;if player moving upwards, branchcmpn ++$c5bne ContChk ;if player did not touch axe, skip aheadjmp HandleAxeMetatile ;otherwise jump to set modes of operationContChk: jsr ChkInvisibleMTiles ;do sub to check for hidden coin or 1-up blocksbeq DoPlayerSideCheck ;if either found, branchldy JumpspringAnimCtrl ;if jumpspring animating right now,checkybne InitSteP ;branch aheadldy SCRATCHPAD+$04 ;check lower nybble of vertical coordinate returnedcpyn ++$05 ;from collision detection routinecmpcybcc LandPlyr ;if lower nybble < 5, branchlda Player_MovingDirsta SCRATCHPAD+$00 ;use player's moving direction as temp variablejmp ImpedePlayerMove ;jump to impede player's movement in that directionLandPlyr: jsr ChkForLandJumpSpring ;do sub to check for jumpspring metatiles and deal with itldan ++$f0andi Player_Y_Position ;mask out lower nybble of player's vertical positionsta Player_Y_Position ;and store as new vertical position to land player properlyjsr HandlePipeEntry ;do sub to process potential pipe entryldan ++$00sta Player_Y_Speed ;initialize vertical speed and fractionalsta Player_Y_MoveForce ;movement force to stop player's vertical movementsta StompChainCounter ;initialize enemy stomp counterInitSteP: ldan ++$00sta Player_State ;set player's state to normalDoPlayerSideCheck:ldy SCRATCHPAD+$eb ;get block buffer adder offset ;ъръюх шёїюфэюх ёюёЄю эшх???0,7,14?inyiny ;increment offset 2 bytes to use adders for side collisions ;ёэрўрыр яЁютхЁ хь ёяЁртр??? (р т ЄрсышЎрї ссюъёют т√уы фшЄ ъръ ыхтр ёЄюЁюэр???)ldan ++$02 ;set value here to be used as countersta SCRATCHPAD+$00SideCheckLoop:iny ;move onto the next one ;эрўшэрхь ёю ёьх∙хэш 3 т ЄрсышЎрї ссюъёют, яюЄюь 4,5,6???sty SCRATCHPAD+$eb ;store itlda Player_Y_Positioncmpn ++$20 ;check player's vertical positioncmpcybcc BHalf ;if player is in status bar area, branch ahead to skip this partcmpn ++$e4cmpcybcs ExSCH ;branch to leave if player is too far downjsr BlockBufferColli_Side ;do player-to-bg collision detection on one half of playerbeq BHalf ;branch ahead if nothing foundcmpn ++$1c ;otherwise check for pipe metatilesbeq BHalf ;if collided with sideways pipe (top), branch aheadcmpn ++$6bbeq BHalf ;if collided with water pipe (top), branch aheadjsr CheckForClimbMTiles ;do sub to see if player bumped into anything climbablebcc CheckSideMTiles ;if not, branch to alternate section of codeBHalf: ldy SCRATCHPAD+$eb ;load block adder offsetiny ;increment it ;???lda Player_Y_Position ;get player's vertical positioncmpn ++$08cmpcybcc ExSCH ;if too high, branch to leavecmpn ++$d0cmpcybcs ExSCH ;if too low, branch to leavejsr BlockBufferColli_Side ;do player-to-bg collision detection on other half of playerbne CheckSideMTiles ;if something found, branchdeci SCRATCHPAD+$00 ;otherwise decrement counter ;єўшЄ√трхЄё т ImpedePlayerMove (ыхтр ёЄюЁюэр=1??? шыш эрюсюЁюЄ???)bne SideCheckLoop ;run code until both sides of player are checked ;хёыш чръюььхэЄшЁютрЄ№, Єю эх яюьюурхЄ тющЄш т ЄЁєсє ёЁрчє, эю ЄхяхЁ№ яЁюїюфшЄ ъшЁяшўш тяЁртю эрёътюч№ExSCH: rts ;leaveCheckSideMTiles:jsr ChkInvisibleMTiles ;check for hidden or coin 1-up blocksbeq ExCSM ;branch to leave if either foundjsr CheckForClimbMTiles ;check for climbable metatilesbcc ContSChk ;if not found, skip and continue with codejmp HandleClimbing ;otherwise jump to handle climbingContSChk: jsr CheckForCoinMTiles ;check to see if player touched coinbcs HandleCoinMetatile ;if so, execute code to erase coin and award to player 1 coinjsr ChkJumpspringMetatiles ;check for jumpspring metatilesbcc ChkPBtm ;if not found, branch ahead to continue cudelda JumpspringAnimCtrl ;otherwise check jumpspring animation controlcheckabne ExCSM ;branch to leave if setjmp StopPlayerMove ;otherwise jump to impede player's movementChkPBtm: ldy Player_State ;get player's state;jr $ ;ёЄюыъэєышё№ ёяЁртр ё тхЁїюь ЄЁєс√, шфє∙хщ тяЁртю ($1c)cpyn ++$00 ;check for player's state set to normalbne StopPlayerMove ;if not, branch to impede player's movement ;эх яюьюурхЄ тющЄш т ЄЁєсє ёЁрчє ;ўхьє Ёртхэ (SCRATCHPAD+$00)? (ыхтр ёЄюЁюэр=1???)ldy PlayerFacingDir ;get player's facing directiondeybne StopPlayerMove ;if facing left, branch to impede movementcmpn ++$6c ;otherwise check for pipe metatilesbeq PipeDwnS ;if collided with sideways pipe (bottom), branchcmpn ++$1f ;if collided with water pipe (bottom), continuebne StopPlayerMove ;otherwise branch to impede player's movementPipeDwnS: lda Player_SprAttrib ;check player's attributes;jr $ ;ё■фр яюярфрхь эх ёЁрчє, ъръ Єюы№ъю тёЄрыш ёэшчє є ЄЁєс√, р яюёых эрцрЄш тяЁртю Єрь - ¤Єю яюЁЄшЄ фхьєcheckabne PlyrPipe ;if already set, branch, do not play sound againldyn ++Sfx_PipeDown_Injurysty Square1SoundQueue ;otherwise load pipedown/injury soundPlyrPipe: oran ++%00100000sta Player_SprAttrib ;set background priority bit in player attributeslda Player_X_Positionandn ++%00001111 ;get lower nybble of player's horizontal coordinatebeq ChkGERtn ;if at zero, branch ahead to skip this partldyn ++$00 ;set default offset for timer setting datalda ScreenLeft_PageLoc ;load page location for left side of screencheckabeq SetCATmr ;if at page zero, use default offsetiny ;otherwise increment offsetSetCATmr: lday AreaChangeTimerData,y ;set timer for change of area as appropriatesta ChangeAreaTimerChkGERtn: lda GameEngineSubroutine ;get number of game engine routine runningcmpn ++$07beq ExCSM ;if running player entrance routine orcmpn ++$08 ;player control routine, go ahead and branch to leavebne ExCSMldan ++$02sta GameEngineSubroutine ;otherwise set sideways pipe entry routine to runrts ;and leave;--------------------------------;$02 - high nybble of vertical coordinate from block buffer;$04 - low nybble of horizontal coordinate from block buffer;$06-$07 - block buffer addressStopPlayerMove:;хёыш яЁютхЁ хь ъюыышчш■ ёяЁртр, Єю (SCRATCHPAD+$00) != 1!!! шыш эрюсюЁюЄ?jsr ImpedePlayerMove ;stop player's movementExCSM: rts ;leaveAreaChangeTimerData:.db $a0, $34HandleCoinMetatile:;jr $jsr ErACM ;do sub to erase coin metatile from block bufferinci CoinTallyFor1Ups ;increment coin tally used for 1-up blocksjmp GiveOneCoin ;update coin amount and tally on the screenHandleAxeMetatile:ldan ++$00sta OperMode_Task ;reset secondary modeldan ++$02sta OperMode ;set primary mode to autoctrl modeldan ++$18sta Player_X_Speed ;set horizontal speed and continue to erase axe metatileErACM: ldy SCRATCHPAD+$02 ;load vertical high nybble offset for block bufferldan ++$00 ;load blank metatilestayindirect (SCRATCHPAD+$06),y ;store to remove old contents from block bufferjmp RemoveCoin_Axe ;update the screen accordingly;--------------------------------;$02 - high nybble of vertical coordinate from block buffer;$04 - low nybble of horizontal coordinate from block buffer;$06-$07 - block buffer addressClimbXPosAdder:.db $f9, $07ClimbPLocAdder:.db $ff, $00FlagpoleYPosData:.db $18, $22, $50, $68, $90HandleClimbing:ldy SCRATCHPAD+$04 ;check low nybble of horizontal coordinate returned fromcpyn ++$06 ;collision detection routine against certain values, thiscmpcybcc ExHC ;makes actual physical part of vine or flagpole thinnercpyn ++$0a ;than 16 pixelscmpcybcc ChkForFlagpoleExHC: rts ;leave if too far left or too far rightChkForFlagpole:cmpn ++$24 ;check climbing metatilesbeq FlagpoleCollision ;branch if flagpole ball foundcmpn ++$25bne VineCollision ;branch to alternate code if flagpole shaft not foundFlagpoleCollision:lda GameEngineSubroutinecmpn ++$05 ;check for end-of-level routine runningbeq PutPlayerOnVine ;if running, branch to end of climbing codeldan ++$01sta PlayerFacingDir ;set player's facing direction to rightinci ScrollLock ;set scroll lock flaglda GameEngineSubroutinecmpn ++$04 ;check for flagpole slide routine runningbeq RunFR ;if running, branch to end of flagpole code hereldan ++BulletBill_CannonVar ;load identifier for bullet bills (cannon variant)jsr KillEnemies ;get rid of themldan ++Silencesta EventMusicQueue ;silence musiclsrsta FlagpoleSoundQueue ;load flagpole sound into flagpole sound queueldxn ++$04 ;start at end of vertical coordinate datalda Player_Y_Positionsta FlagpoleCollisionYPos ;store player's vertical coordinate here to be used laterChkFlagpoleYPosLoop:cmpx FlagpoleYPosData,x ;compare with current vertical coordinate datacmpcybcs MtchF ;if player's => current, branch to use current offsetdex ;otherwise decrement offset to usebne ChkFlagpoleYPosLoop ;do this until all data is checked (use last one if all checked)MtchF: stx FlagpoleScore ;store offset here to be used laterRunFR: ldan ++$04sta GameEngineSubroutine ;set value to run flagpole slide routinejmp PutPlayerOnVine ;jump to end of climbing codeVineCollision:cmpn ++$26 ;check for climbing metatile used on vinesbne PutPlayerOnVinelda Player_Y_Position ;check player's vertical coordinatecmpn ++$20 ;for being in status bar areacmpcybcs PutPlayerOnVine ;branch if not that far upldan ++$01sta GameEngineSubroutine ;otherwise set to run autoclimb routine next framePutPlayerOnVine:ldan ++$03 ;set player state to climbingsta Player_Stateldan ++$00 ;nullify player's horizontal speedsta Player_X_Speed ;and fractional horizontal movement forcesta Player_X_MoveForce ; (ьырф°р ўрёЄ№ X-ъююЁфшэрЄ√)lda Player_X_Position ;get player's horizontal coordinatesecsubsbci ScreenLeft_X_Pos ;subtract from left side horizontal coordinatecmpn ++$10cmpcybcs SetVXPl ;if 16 or more pixels difference, do not alter facing directionldan ++$02sta PlayerFacingDir ;otherwise force player to face leftSetVXPl: ldy PlayerFacingDir ;get current facing direction, use as offsetlda SCRATCHPAD+$06 ;get low byte of block buffer addressaslasl ;move low nybble to highaslaslclcadcy ClimbXPosAdder-1,y ;add pixels depending on facing directionsta Player_X_Position ;store as player's horizontal coordinatelda SCRATCHPAD+$06 ;get low byte of block buffer address againcheckabne ExPVne ;if not zero, branchlda ScreenRight_PageLoc ;load page location of right side of screenclcadcy ClimbPLocAdder-1,y ;add depending on facing locationsta Player_PageLoc ;store as player's page locationExPVne: rts ;finally, we're done!;--------------------------------ChkInvisibleMTiles:cmpn ++$5f ;check for hidden coin blockbeq ExCInvT ;branch to leave if foundcmpn ++$60 ;check for hidden 1-up blockExCInvT:cmpcy ;???rts ;leave with zero flag set if either found;--------------------------------;$00-$01 - used to hold bottom right and bottom left metatiles (in that order);$00 - used as flag by ImpedePlayerMove to restrict specific movementChkForLandJumpSpring:jsr ChkJumpspringMetatiles ;do sub to check if player landed on jumpspringbcc ExCJSp ;if carry not set, jumpspring not found, therefore leaveldan ++$70sta VerticalForce ;otherwise set vertical movement force for playerldan ++$f9sta JumpspringForce ;set default jumpspring forceldan ++$03sta JumpspringTimer ;set jumpspring timer to be used laterlsrsta JumpspringAnimCtrl ;set jumpspring animation control to start animatingExCJSp: rts ;and leaveChkJumpspringMetatiles:cmpn ++$67 ;check for top jumpspring metatilebeq JSFnd ;branch to set carry if foundcmpn ++$68 ;check for bottom jumpspring metatileclc ;clear carry flagbne NoJSFnd ;branch to use cleared carry if not foundJSFnd: sec ;set carry if foundNoJSFnd: rts ;leaveHandlePipeEntry:lda Up_Down_Buttons ;check saved controller bits from earlierandn ++%00000100 ;for pressing downbeq ExPipeE ;if not pressing down, branch to leavelda SCRATCHPAD+$00cmpn ++$11 ;check right foot metatile for warp pipe right metatilebne ExPipeE ;branch to leave if not foundlda SCRATCHPAD+$01cmpn ++$10 ;check left foot metatile for warp pipe left metatilebne ExPipeE ;branch to leave if not foundldan ++$30sta ChangeAreaTimer ;set timer for change of arealdan ++$03sta GameEngineSubroutine ;set to run vertical pipe entry routine on next frameldan ++Sfx_PipeDown_Injurysta Square1SoundQueue ;load pipedown/injury soundldan ++%00100000sta Player_SprAttrib ;set background priority bit in player's attributeslda WarpZoneControl ;check warp zone controlcheckabeq ExPipeE ;branch to leave if none foundandn ++%00000011 ;mask out all but 2 LSBaslasl ;multiply by fourtax ;save as offset to warp zone numbers (starts at left pipe)lda Player_X_Position ;get player's horizontal positioncmpn ++$60cmpcybcc GetWNum ;if player at left, not near middle, use offset and skip aheadinx ;otherwise increment for middle pipecmpn ++$a0cmpcybcc GetWNum ;if player at middle, but not too far right, use offset and skipinx ;otherwise increment for last pipeGetWNum: ldyx WarpZoneNumbers,x ;get warp zone numbersdey ;decrement for use as world numbersty WorldNumber ;store as world number and offsetldxy WorldAddrOffsets,y ;get offset to where this world's area offsets areldax AreaAddrOffsets,x ;get area offset based on world offsetsta AreaPointer ;store area offset here to be used to change areasldan ++Silencesta EventMusicQueue ;silence musicldan ++$00sta EntrancePage ;initialize starting page numbersta AreaNumber ;initialize area number used for area address offsetsta LevelNumber ;initialize level number used for world displaysta AltEntranceControl ;initialize mode of entryinci Hidden1UpFlag ;set flag for hidden 1-up blocksinci FetchNewGameTimerFlag ;set flag to load new game timerExPipeE: rts ;leave!!!ImpedePlayerMove:;хёыш яЁютхЁ хь ъюыышчш■ ёяЁртр, Єю (SCRATCHPAD+$00) != 1!!! шыш эрюсюЁюЄ??? яюЁЄшЄ (SCRATCHPAD+$00);єёЄрэртыштрхЄ Player_CollisionBits, SideCollisionTimer, фтшурхЄ X ш XSpeedldan ++$00 ;initialize value hereldy Player_X_Speed ;get player's horizontal speedldx SCRATCHPAD+$00 ;check value set earlier fordex ;left side collision;jr RImpdbne RImpd ;if right side collision, skip this part ;хёыш jr RImpd, Єю т 53672 яЁюїюфшЄ т яЁртє■ ЄЁєсє яЁртшы№эю, эю тїюфшЄ тыхтю т ёЄхэ√ ш эх юёЄрэртыштрхЄё эр чрьъх!!!???;яЁютхЁ ыш ёяЁртр???inx ;return value to Xcpyn ++$00 ;if player moving to the left,bmi ExIPM ;branch to invert bit and leave ;шуЁюъ ёЄюыъэєыё ёяЁртр, эю шф╕Є тыхтю - эшўхую эх фхырхьldan ++$ff ;otherwise load A with value to be used later (¤Єю ёфтшэхЄ шуЁюър тыхтю эр 1 яшъё)jmp NXSpd ;and jump to affect movementRImpd: ldxn ++$02 ;return $02 to Xcpyn ++$01 ;if player moving to the right,bpl ExIPM ;branch to invert bit and leaveldan ++$01 ;otherwise load A with value to be used hereNXSpd: ldyn ++$10sty SideCollisionTimer ;set timer of some sortldyn ++$00sty Player_X_Speed ;nullify player's horizontal speedcmpn ++$00 ;if value set in A not set to $ff,bpl PlatF ;branch ahead, do not decrement Ydey ;otherwise decrement Y nowPlatF: sty SCRATCHPAD+$00 ;store Y as high bits of horizontal adderclcadci Player_X_Position ;add contents of A to player's horizontalsta Player_X_Position ;position to move player left or rightlda Player_PageLocadci SCRATCHPAD+$00 ;add high bits and carry tosta Player_PageLoc ;page location if necessaryExIPM: txa ;invert contents of Xeorn ++$ff ;1->fe, 2->fdandi Player_CollisionBits ;mask out bit that was set heresta Player_CollisionBits ;store to clear bitrts;--------------------------------SolidMTileUpperExt:.db $10, $61, $88, $c4CheckForSolidMTiles:;a=metatile;out: CY=???jsr GetMTileAttrib ;find appropriate offset based on metatile's 2 MSBcmpx SolidMTileUpperExt,x ;compare current metatile with solid metatilescmpcyrtsClimbMTileUpperExt:.db $24, $6d, $8a, $c6CheckForClimbMTiles:;a=metatile;out: CY=???jsr GetMTileAttrib ;find appropriate offset based on metatile's 2 MSBcmpx ClimbMTileUpperExt,x ;compare current metatile with climbable metatilescmpcyrtsCheckForCoinMTiles:;out: CY=1:touched coincmpn ++$c2 ;check for regular coinbeq CoinSd ;branch if foundcmpn ++$c3 ;check for underwater coinbeq CoinSd ;branch if foundclc ;otherwise clear carry and leavertsCoinSd: ldan ++Sfx_CoinGrabsta Square2SoundQueue ;load coin grab sound and leavescfrtsGetMTileAttrib:tay ;save metatile value into Yandn ++%11000000 ;mask out all but 2 MSBaslrol ;shift and rotate d7-d6 to d1-d0roltax ;use as offset for metatile datatya ;get original metatile value backExEBG: rts ;leave;-------------------------------------------------------------------------------------;$06-$07 - address from block buffer routineEnemyBGCStateData:.db $01, $01, $02, $02, $02, $05EnemyBGCXSpdData:.db $10, $f0EnemyToBGCollisionDet:ldax Enemy_State,x ;check enemy state for d6 setandn ++%00100000bne ExEBG ;if set, branch to leavejsr SubtEnemyYPos ;otherwise, do a subroutine herebcc ExEBG ;if enemy vertical coord + 62 < 68, branch to leaveldyx Enemy_ID,xcpyn ++Spiny ;if enemy object is not spiny, branch elsewherebne DoIDCheckBGCollldax Enemy_Y_Position,xcmpn ++$25 ;if enemy vertical coordinate < 36 branch to leavecmpcybcc ExEBGDoIDCheckBGColl:cpyn ++GreenParatroopaJump ;check for some other enemy objectbne HBChk ;branch if not foundjmp EnemyJump ;otherwise jump elsewhereHBChk: cpyn ++HammerBro ;check for hammer brobne CInvu ;branch if not foundjmp HammerBroBGColl ;otherwise jump elsewhereCInvu: cpyn ++Spiny ;if enemy object is spiny, branchbeq YesIncpyn ++PowerUpObject ;if special power-up object, branchbeq YesIncpyn ++$07 ;if enemy object => $07, branch to leavecmpcybcs ExEBGChkYesIn: jsr ChkUnderEnemy ;if enemy object < $07, or = $12 or $2e, do this subbne HandleEToBGCollision ;if block underneath enemy, branchNoEToBGCollision:jmp ChkForRedKoopa ;otherwise skip and do something else;--------------------------------;$02 - vertical coordinate from block buffer routineHandleEToBGCollision:jsr ChkForNonSolids ;if something is underneath enemy, find out whatbeq NoEToBGCollision ;if blank $26, coins, or hidden blocks, jump, enemy falls throughcmpn ++$23bne LandEnemyProperly ;check for blank metatile $23 and branch if not foundldy SCRATCHPAD+$02 ;get vertical coordinate used to find blockldan ++$00 ;store default blank metatile in that spot so we won'tstayindirect (SCRATCHPAD+$06),y ;trigger this routine accidentally againldax Enemy_ID,xcmpn ++$15 ;if enemy object =HIGH $15, branch aheadcmpcybcs ChkToStunEnemiescmpn ++Goomba ;if enemy object not goomba, branch ahead of this routinebne GiveOEPointsjsr KillEnemyAboveBlock ;if enemy object IS goomba, do this subGiveOEPoints:ldan ++$01 ;award 100 points for hitting block beneath enemyjsr SetupFloateyNumberChkToStunEnemies:cmpn ++$09 ;perform many comparisons on enemy object identifiercmpcybcc SetStuncmpn ++$11 ;if the enemy object identifier is equal to the valuescmpcybcs SetStun ;$09, $0e, $0f or $10, it will be modified, and notcmpn ++$0a ;modified if not any of those values, note that piranha plant willcmpcybcc Demote ;always fail this test because A will still have verticalcmpn ++PiranhaPlant ;coordinate from previous addition, also these comparisonscmpcybcc SetStun ;are only necessary if branching from $d7a1Demote: andn ++%00000001 ;erase all but LSB, essentially turning enemy objectstax Enemy_ID,x ;into green or red koopa troopa to demote themSetStun: ldax Enemy_State,x ;load enemy stateandn ++%11110000 ;save high nybbleoran ++%00000010stax Enemy_State,x ;set d1 of enemy statedecx Enemy_Y_Position,xdecx Enemy_Y_Position,x ;subtract two pixels from enemy's vertical positionldax Enemy_ID,xcmpn ++Bloober ;check for bloober objectbeq SetWYSpdldan ++$fd ;set default vertical speedldy AreaTypecheckybne SetNotW ;if area type not water, set as speed, otherwiseSetWYSpd: ldan ++$ff ;change the vertical speedSetNotW: stax Enemy_Y_Speed,x ;set vertical speed nowldyn ++$01jsr PlayerEnemyDiff ;get horizontal difference between player and enemy objectbpl ChkBBill ;branch if enemy is to the right of playeriny ;increment Y if notChkBBill: ldax Enemy_ID,xcmpn ++BulletBill_CannonVar ;check for bullet bill (cannon variant)beq NoCDirFcmpn ++BulletBill_FrenzyVar ;check for bullet bill (frenzy variant)beq NoCDirF ;branch if either found, direction does not changestyx Enemy_MovingDir,x ;store as moving directionNoCDirF: dey ;decrement and use as offsetlday EnemyBGCXSpdData,y ;get proper horizontal speedstax Enemy_X_Speed,x ;and store, then leaveExEBGChk: rts;--------------------------------;$04 - low nybble of vertical coordinate from block buffer routineLandEnemyProperly:lda SCRATCHPAD+$04 ;check lower nybble of vertical coordinate saved earliersecsubsbcn ++$08 ;subtract eight pixelscmpn ++$05 ;used to determine whether enemy landed from fallingcmpcybcs ChkForRedKoopa ;branch if lower nybble in range of $0d-$0f before subtractldax Enemy_State,xandn ++%01000000 ;branch if d6 in enemy state is setbne LandEnemyInitStateldax Enemy_State,xasl ;branch if d7 in enemy state is not setbcc ChkLandedEnemyStateSChkA: jmp DoEnemySideCheck ;if lower nybble LOW $0d, d7 set but d6 not set, jump hereChkLandedEnemyState:ldax Enemy_State,x ;if enemy in normal state, branch back to jump herecheckabeq SChkAcmpn ++$05 ;if in state used by spiny's eggbeq ProcEnemyDirection ;then branch elsewherecmpn ++$03 ;if already in state used by koopas and buzzy beetlescmpcybcs ExSteChk ;or in higher numbered state, branch to leaveldax Enemy_State,x ;load enemy state again (why?)cmpn ++$02 ;if not in $02 state (used by koopas and buzzy beetles)bne ProcEnemyDirection ;then branch elsewhereldan ++$10 ;load default timer hereldyx Enemy_ID,x ;check enemy identifier for spinycpyn ++Spinybne SetForStn ;branch if not foundldan ++$00 ;set timer for $00 if spinySetForStn: stax EnemyIntervalTimer,x ;set timer hereldan ++$03 ;set state here, apparently used to renderstax Enemy_State,x ;upside-down koopas and buzzy beetlesjsr EnemyLanding ;then land it properlyExSteChk: rts ;then leaveProcEnemyDirection:ldax Enemy_ID,x ;check enemy identifier for goombacmpn ++Goomba ;branch if foundbeq LandEnemyInitStatecmpn ++Spiny ;check for spinybne InvtD ;branch if not foundldan ++$01stax Enemy_MovingDir,x ;send enemy moving to the right by defaultldan ++$08stax Enemy_X_Speed,x ;set horizontal speed accordinglylda FrameCounterandn ++%00000111 ;if timed appropriately, spiny will skip overbeq LandEnemyInitState ;trying to face the playerInvtD: ldyn ++$01 ;load 1 for enemy to face the left (inverted here)jsr PlayerEnemyDiff ;get horizontal difference between player and enemybpl CNwCDir ;if enemy to the right of player, branchiny ;if to the left, increment by one for enemy to face right (inverted)CNwCDir: tyacmpx Enemy_MovingDir,x ;compare direction in A with current direction in memorybne LandEnemyInitStatejsr ChkForBump_HammerBroJ ;if equal, not facing in correct dir, do sub to turn aroundLandEnemyInitState:jsr EnemyLanding ;land enemy properlyldax Enemy_State,xandn ++%10000000 ;if d7 of enemy state is set, branchbne NMovShellFallBitldan ++$00 ;otherwise initialize enemy state and leavestax Enemy_State,x ;note this will also turn spiny's egg into spinyrtsNMovShellFallBit:ldax Enemy_State,x ;nullify d6 of enemy state, save other bitsandn ++%10111111 ;and store, then leavestax Enemy_State,xrts;--------------------------------ChkForRedKoopa:ldax Enemy_ID,x ;check for red koopa troopa $03cmpn ++RedKoopabne Chk2MSBSt ;branch if not foundldax Enemy_State,xcheckabeq ChkForBump_HammerBroJ ;if enemy found and in normal state, branchChk2MSBSt: ldax Enemy_State,x ;save enemy state into Ytayasl ;check for d7 setbcc GetSteFromD ;branch if not setldax Enemy_State,xoran ++%01000000 ;set d6jmp SetD6Ste ;jump ahead of this partGetSteFromD: lday EnemyBGCStateData,y ;load new enemy state with old as offsetSetD6Ste: stax Enemy_State,x ;set as new state;--------------------------------;$00 - used to store bitmask (not used but initialized here);$eb - used in DoEnemySideCheck as counter and to compare moving directionsDoEnemySideCheck:ldax Enemy_Y_Position,x ;if enemy within status bar, branch to leavecmpn ++$20 ;because there's nothing there that impedes movementcmpcybcc ExESdeCldyn ++$16 ;start by finding block to the left of enemy ($00,$14)ldan ++$02 ;set value here in what is also used assta SCRATCHPAD+$eb ;OAM data offsetSdeCLoop: lda SCRATCHPAD+$eb ;check valuecmpx Enemy_MovingDir,x ;compare value against moving directionbne NextSdeC ;branch if different and do not seek block thereldan ++$01 ;set flag in A for save horizontal coordinatejsr BlockBufferChk_Enemy ;find block to left or right of enemy objectbeq NextSdeC ;if nothing found, branchjsr ChkForNonSolids ;check for non-solid blocksbne ChkForBump_HammerBroJ ;branch if not foundNextSdeC: deci SCRATCHPAD+$eb ;move to the next directioninycpyn ++$18 ;increment Y, loop only if Y < $18, thus we checkcmpcybcc SdeCLoop ;enemy ($00, $14) and ($10, $14) pixel coordinatesExESdeC: rtsChkForBump_HammerBroJ:cpxn ++$05 ;check if we're on the special use slotbeq NoBump ;and if so, branch ahead and do not play soundldax Enemy_State,x ;if enemy state d7 not set, branchasl ;ahead and do not play soundbcc NoBumpldan ++Sfx_Bump ;otherwise, play bump soundsta Square1SoundQueue ;sound will never be played if branching from ChkForRedKoopaNoBump: ldax Enemy_ID,x ;check for hammer brocmpn ++$05bne InvEnemyDir ;branch if not foundldan ++$00sta SCRATCHPAD+$00 ;initialize value here for bitmaskldyn ++$fa ;load default vertical speed for jumpingjmp SetHJ ;jump to code that makes hammer bro jumpInvEnemyDir:jmp RXSpd ;jump to turn the enemy around;--------------------------------;$00 - used to hold horizontal difference between player and enemyPlayerEnemyDiff:ldax Enemy_X_Position,x ;get distance between enemy object'ssecsub ;horizontal coordinate and the player'ssbci Player_X_Position ;horizontal coordinatesta SCRATCHPAD+$00 ;and store hereldaxkeepcy Enemy_PageLoc,xsbci Player_PageLoc ;subtract borrow, then leavecmpcy ;шёяюы№чєхЄё юфшэ Ёрчrts;--------------------------------EnemyLanding:jsr InitVStf ;do something here to vertical speed and something elseldax Enemy_Y_Position,xandn ++%11110000 ;save high nybble of vertical coordinate, andoran ++%00001000 ;set d3, then store, probably used to set enemy objectstax Enemy_Y_Position,x ;neatly on whatever it's landing onrtsSubtEnemyYPos:ldax Enemy_Y_Position,x ;add 62 pixels to enemy object'sclc ;vertical coordinateadcn ++$3ecmpn ++$44 ;compare against a certain rangecmpcyrts ;and leave with flags set for conditional branchEnemyJump:jsr SubtEnemyYPos ;do a sub herebcc DoSide ;if enemy vertical coord + 62 LOW 68, branch to leaveldax Enemy_Y_Speed,xclc ;add two to vertical speedadcn ++$02cmpn ++$03 ;if green paratroopa not falling, branch aheadcmpcybcc DoSidejsr ChkUnderEnemy ;otherwise, check to see if green paratroopa isbeq DoSide ;standing on anything, then branch to same place if notjsr ChkForNonSolids ;check for non-solid blocksbeq DoSide ;branch if foundjsr EnemyLanding ;change vertical coordinate and speedldan ++$fdstax Enemy_Y_Speed,x ;make the paratroopa jump againDoSide: jmp DoEnemySideCheck ;check for horizontal blockage, then leave;--------------------------------HammerBroBGColl:jsr ChkUnderEnemy ;check to see if hammer bro is standing on anythingbeq NoUnderHammerBrocmpn ++$23 ;check for blank metatile $23 and branch if not foundbne UnderHammerBroKillEnemyAboveBlock:jsr ShellOrBlockDefeat ;do this sub to kill enemyldan ++$fc ;alter vertical speed of enemy and leavestax Enemy_Y_Speed,xrtsUnderHammerBro:ldax EnemyFrameTimer,x ;check timer used by hammer brocheckabne NoUnderHammerBro ;branch if not expiredldax Enemy_State,xandn ++%10001000 ;save d7 and d3 from enemy state, nullify other bitsstax Enemy_State,x ;and storejsr EnemyLanding ;modify vertical coordinate, speed and something elsejmp DoEnemySideCheck ;then check for horizontal blockage and leaveNoUnderHammerBro:ldax Enemy_State,x ;if hammer bro is not standing on anything, set d0oran ++$01 ;in the enemy state to indicate jumping or falling, then leavestax Enemy_State,xrtsChkUnderEnemy:ldan ++$00 ;set flag in A for save vertical coordinateldyn ++$15 ;set Y to check the bottom middle (8,18) of enemy objectjmp BlockBufferChk_Enemy ;hop to it!ChkForNonSolids:cmpn ++$26 ;blank metatile used for vines?beq NSFndcmpn ++$c2 ;regular coin?beq NSFndcmpn ++$c3 ;underwater coin?beq NSFndcmpn ++$5f ;hidden coin block?beq NSFndcmpn ++$60 ;hidden 1-up block?NSFnd:cmpcy ;???rts;-------------------------------------------------------------------------------------FireballBGCollision:ldax Fireball_Y_Position,x ;check fireball's vertical coordinatecmpn ++$18cmpcybcc ClearBounceFlag ;if within the status bar area of the screen, branch aheadjsr BlockBufferChk_FBall ;do fireball to background collision detection on bottom of itbeq ClearBounceFlag ;if nothing underneath fireball, branchjsr ChkForNonSolids ;check for non-solid metatilesbeq ClearBounceFlag ;branch if any foundldax Fireball_Y_Speed,x ;if fireball's vertical speed set to move upwards,checkabmi InitFireballExplode ;branch to set exploding bit in fireball's stateldax FireballBouncingFlag,x ;if bouncing flag already set,checkabne InitFireballExplode ;branch to set exploding bit in fireball's stateldan ++$fdstax Fireball_Y_Speed,x ;otherwise set vertical speed to move upwards (give it bounce)ldan ++$01stax FireballBouncingFlag,x ;set bouncing flagldax Fireball_Y_Position,xandn ++$f8 ;modify vertical coordinate to land it properlystax Fireball_Y_Position,x ;store as new vertical coordinaterts ;leaveClearBounceFlag:ldan ++$00stax FireballBouncingFlag,x ;clear bouncing flag by defaultrts ;leaveInitFireballExplode:ldan ++$80stax Fireball_State,x ;set exploding flag in fireball's stateldan ++Sfx_Bumpsta Square1SoundQueue ;load bump soundrts ;leave;-------------------------------------------------------------------------------------;$00 - used to hold one of bitmasks, or offset;$01 - used for relative X coordinate, also used to store middle screen page location;$02 - used for relative Y coordinate, also used to store middle screen coordinate;this data added to relative coordinates of sprite objects;stored in order: left edge, top edge, right edge, bottom edgeBoundBoxCtrlData:.db $02, $08, $0e, $20.db $03, $14, $0d, $20.db $02, $14, $0e, $20.db $02, $09, $0e, $15.db $00, $00, $18, $06.db $00, $00, $20, $0d.db $00, $00, $30, $0d.db $00, $00, $08, $08.db $06, $04, $0a, $08.db $03, $0e, $0d, $14.db $00, $02, $10, $15.db $04, $04, $0c, $1cGetFireballBoundBox:txa ;add seven bytes to offsetclc ;to use in routines as offset for fireballadcn ++$07taxldyn ++$02 ;set offset for relative coordinatescheckybne FBallB ;unconditional branchGetMiscBoundBox:txa ;add nine bytes to offsetclc ;to use in routines as offset for misc objectadcn ++$09 ;эрўшэр ё юс·хъЄр #9 шфєЄ misc objects (ўЄю ¤Єю???)taxldyn ++$06 ;set offset for relative coordinatesFBallB: jsr BoundingBoxCore ;get bounding box coordinatesjmp CheckRightScreenBBox ;jump to handle any offscreen coordinatesGetEnemyBoundBox:ldyn ++$48 ;store bitmask here for nowsty SCRATCHPAD+$00ldyn ++$44 ;store another bitmask here for now and jumpjmp GetMaskedOffScrBitsSmallPlatformBoundBox:ldyn ++$08 ;store bitmask here for nowsty SCRATCHPAD+$00ldyn ++$04 ;store another bitmask here for nowGetMaskedOffScrBits:ldax Enemy_X_Position,x ;get enemy object position relativesecsub ;to the left side of the screensbci ScreenLeft_X_Possta SCRATCHPAD+$01 ;store hereldaxkeepcy Enemy_PageLoc,x ;subtract borrow from current page locationsbci ScreenLeft_PageLoc ;of left sidebmi CMBits ;if enemy object is beyond left edge, branchorai SCRATCHPAD+$01 ;ёЄртшЄ Z???beq CMBits ;if precisely at the left edge, branchldy SCRATCHPAD+$00 ;if to the right of left edge, use value in $00 for ACMBits: tya ;otherwise use contents of Yandi Enemy_OffscreenBits ;preserve bitwise whatever's in herestax EnemyOffscrBitsMasked,x ;save masked offscreen bits herecheckabne MoveBoundBoxOffscreen ;if anything set here, branchjmp SetupEOffsetFBBox ;otherwise, do something elseLargePlatformBoundBox:if Z80OPTpush bcinc c ;increment X to get the proper offsetcall GetXOffscreenBits ;then jump directly to the sub for horizontal offscreen bitspop bc ;decrement to return to original offsetelseinx ;increment X to get the proper offsetjsr GetXOffscreenBits ;then jump directly to the sub for horizontal offscreen bitsdex ;decrement to return to original offsetendifcmpn ++$fe ;if completely offscreen, branch to put entire bounding ;TODO >>4 т GetXOffscreenBitscmpcybcs MoveBoundBoxOffscreen ;box offscreen, otherwise start getting coordinatesSetupEOffsetFBBox:txa ;add 1 to offset to properly addressclc ;the enemy object memory locationsadcn ++$01taxldyn ++$01 ;load 1 as offset here, same reasonjsr BoundingBoxCore ;do a sub to get the coordinates of the bounding boxjmp CheckRightScreenBBox ;jump to handle offscreen coordinates of bounding boxMoveBoundBoxOffscreen:txa ;multiply offset by 4aslasltay ;use as offset hereldan ++$ffstay EnemyBoundingBoxCoord,y ;load value into four locations here and leavestay EnemyBoundingBoxCoord+1,ystay EnemyBoundingBoxCoord+2,ystay EnemyBoundingBoxCoord+3,yrtsBoundingBoxCore:;x=obj?;y=obj2?;keep x;out: y=x*4 (фы яюёыхфє■∙хую CheckRightScreenBBox, т юёЄры№э√ї ёыєўр ї эх эєцэю)if Z80OPT ;???эхЄ ЁрчэшЎ√ т 1-2ld iy,SprObject_Rel_YPosadd iy,deld hl,SprObj_BoundBoxCtrladd hl,bcld a,(hl)add a,aadd a,a ;*4ld hl,BoundBoxCtrlData ;left edge, top edge, right edge, bottom edge (12 Єръшї ¤ыхьхэЄют)add a,lld l,aadc a,hsub lld h,ald a,c ;txa ;multiply offset by four and save to stackadd a,aadd a,a ;*4ld e,a ;use as offset;push deld ix,BoundingBox_UL_Corneradd ix,deld a,(iy+SprObject_Rel_XPos-SprObject_Rel_YPos) ;object X coordinate relative to screenadd a,(hl) ;adcx BoundBoxCtrlData,x ;add the first number in the bounding box data to theld (ix+BoundingBox_UL_Corner-BoundingBox_UL_Corner),a ;stay BoundingBox_UL_Corner,y ;store heresub (hl)inc hlinc hladd a,(hl) ;adcx BoundBoxCtrlData+2,x ;add the third number in the bounding box data to theld (ix+BoundingBox_LR_Corner-BoundingBox_UL_Corner),a ;stay BoundingBox_LR_Corner,y ;relative horizontal coordinate and storedec hlld a,(iy+SprObject_Rel_YPos-SprObject_Rel_YPos) ;object Y coordinate relative to screenadd a,(hl);adcx BoundBoxCtrlData,x ;add the second number to the relative vertical coordinateld (ix+BoundingBox_UL_Corner-BoundingBox_UL_Corner+1),a ;stay BoundingBox_UL_Corner,ysub (hl)inc hlinc hladd a,(hl) ;adcx BoundBoxCtrlData+2,x ;add the fourth number to the relative vertical coordinateld (ix+BoundingBox_LR_Corner-BoundingBox_UL_Corner+1),a ;stay BoundingBox_LR_Corner,y ;and store;pop deretCheckRightScreenBBox:;y = x*4;ix = BoundingBox_UL_Corner + (x*4)ld iy,SprObject_X_Positionadd iy,bclda ScreenLeft_X_Pos ;add 128 pixels to left side of screenadd a,0x80ld h,a;sta SCRATCHPAD+$02 ;and store as horizontal coordinate of middlelda ScreenLeft_PageLoc ;add carry to page location of left side of screenadcn ++$00 ;and store as page location of middleld l,a;sta SCRATCHPAD+$01ld a,(iy+SprObject_X_Position-SprObject_X_Position) ;ldax SprObject_X_Position,x ;get horizontal coordinatesub h;cmpi SCRATCHPAD+$02 ;compare against middle horizontal coordinateld a,(iy+SprObject_PageLoc-SprObject_X_Position) ;ldaxkeepcy SprObject_PageLoc,x ;get page locationsbc a,l;sbci SCRATCHPAD+$01 ;subtract from middle page locationjr c,CheckLeftScreenBBox ;if object is on the left side of the screen, branchld a,(ix+BoundingBox_DR_XPos-BoundingBox_UL_Corner) ;lday BoundingBox_DR_XPos,y ;check right-side edge of bounding box for offscreenor abmi NoOfs ;coordinates, branch if still on the screenld a,(ix+BoundingBox_UL_XPos-BoundingBox_UL_Corner) ;ldxy BoundingBox_UL_XPos,y ;check left-side edge of bounding box for offscreenor aldan ++$ff ;load offscreen value here to use on one or both horizontal sidesbmi SORte ;coordinates, and branch if still on the screenld (ix+BoundingBox_UL_XPos-BoundingBox_UL_Corner),a ;stay BoundingBox_UL_XPos,y ;store offscreen value for left sideSORte: ld (ix+BoundingBox_DR_XPos-BoundingBox_UL_Corner),a ;stay BoundingBox_DR_XPos,y ;store offscreen value for right sideNoOfs: ldx ObjectOffset ;get object offset and leaveretCheckLeftScreenBBox:ld a,(ix+BoundingBox_UL_XPos-BoundingBox_UL_Corner) ;lday BoundingBox_UL_XPos,y ;check left-side edge of bounding box for offscreenor abpl NoOfs2 ;coordinates, and branch if still on the screencmpn ++$a0 ;check to see if left-side edge is in the middle of thejr c,NoOfs2 ;screen or really offscreen, and branch if still onld a,(ix+BoundingBox_DR_XPos-BoundingBox_UL_Corner) ;ldxy BoundingBox_DR_XPos,y ;check right-side edge of bounding box for offscreenor aldan ++$00bpl SOLft ;coordinates, branch if still onscreenld (ix+BoundingBox_DR_XPos-BoundingBox_UL_Corner),a ;stay BoundingBox_DR_XPos,y ;store offscreen value for right sideSOLft: ld (ix+BoundingBox_UL_XPos-BoundingBox_UL_Corner),a ;stay BoundingBox_UL_XPos,y ;store offscreen value for left sideNoOfs2: ldx ObjectOffset ;get object offset and leavertselse ;~Z80;ЄєЄ ыюьрыюё№ юЄюсЁрцхэшх ыхтющ эюуш уЁшср;фхыю эх т яюЁўх SCRATCHPAD (яЁютхЁхэю ўхЁхч юЄфхы№э√щ сєЇхЁ);фхыю эх т CY эр т√їюфх (яЁютхЁхэю ўхЁхч plakeepcy);фхыю с√ыю т эхёючфрэшш ix фы Z80-тхЁёшш CheckRightScreenBBoxstx zSCRATCHPAD+$00 ;save offset herelday SprObject_Rel_YPos,y ;store object coordinates relative to screensta zSCRATCHPAD+$02 ;vertically and horizontally, respectivelylday SprObject_Rel_XPos,ysta zSCRATCHPAD+$01txa ;multiply offset by four and save to stackaslaslphatay ;use as offset for Y, X is left aloneldax SprObj_BoundBoxCtrl,x ;load value here to be used as offset for Xasl ;multiply that by four and use as Xasltaxlda zSCRATCHPAD+$01 ;add the first number in the bounding box data to theclc ;relative horizontal coordinate using enemy object offsetadcx BoundBoxCtrlData,x ;and store somewhere using same offset * 4stay BoundingBox_UL_Corner,y ;store herelda zSCRATCHPAD+$01clcadcx BoundBoxCtrlData+2,x ;add the third number in the bounding box data to thestay BoundingBox_LR_Corner,y ;relative horizontal coordinate and storeinx ;increment both offsetsinylda zSCRATCHPAD+$02 ;add the second number to the relative vertical coordinateclc ;using incremented offset and store using the otheradcx BoundBoxCtrlData,x ;incremented offsetstay BoundingBox_UL_Corner,ylda zSCRATCHPAD+$02clcadcx BoundBoxCtrlData+2,x ;add the fourth number to the relative vertical coordinatestay BoundingBox_LR_Corner,y ;and storeplakeepcy;pla ;get original offset loaded into $00 * y from stacktay ;use as Yldx zSCRATCHPAD+$00 ;get original offset and use as X againrtszSCRATCHPAD=SCRATCHPAD;ds 3CheckRightScreenBBox:;y = x*4lda ScreenLeft_X_Pos ;add 128 pixels to left side of screenclc ;and store as horizontal coordinate of middleadcn ++$80sta SCRATCHPAD+$02lda ScreenLeft_PageLoc ;add carry to page location of left side of screenadcn ++$00 ;and store as page location of middlesta SCRATCHPAD+$01ldax SprObject_X_Position,x ;get horizontal coordinatecmpi SCRATCHPAD+$02 ;compare against middle horizontal coordinateldaxkeepcy SprObject_PageLoc,x ;get page locationsbci SCRATCHPAD+$01 ;subtract from middle page locationcmpcybcc CheckLeftScreenBBox ;if object is on the left side of the screen, branchlday BoundingBox_DR_XPos,y ;check right-side edge of bounding box for offscreencheckabmi NoOfs ;coordinates, branch if still on the screenldan ++$ff ;load offscreen value here to use on one or both horizontal sidesldxy BoundingBox_UL_XPos,y ;check left-side edge of bounding box for offscreencheckxbmi SORte ;coordinates, and branch if still on the screenstay BoundingBox_UL_XPos,y ;store offscreen value for left sideSORte: stay BoundingBox_DR_XPos,y ;store offscreen value for right sideNoOfs: ldx ObjectOffset ;get object offset and leavertsCheckLeftScreenBBox:lday BoundingBox_UL_XPos,y ;check left-side edge of bounding box for offscreencheckabpl NoOfs2 ;coordinates, and branch if still on the screencmpn ++$a0 ;check to see if left-side edge is in the middle of thecmpcybcc NoOfs2 ;screen or really offscreen, and branch if still onldan ++$00ldxy BoundingBox_DR_XPos,y ;check right-side edge of bounding box for offscreencheckxbpl SOLft ;coordinates, branch if still onscreenstay BoundingBox_DR_XPos,y ;store offscreen value for right sideSOLft: stay BoundingBox_UL_XPos,y ;store offscreen value for left sideNoOfs2: ldx ObjectOffset ;get object offset and leavertsendif;-------------------------------------------------------------------------------------;$06 - second object's offset;$07 - counter;y=second object's offset;эх яюЁЄшЄ y;TODO ЁрёъЁ√Є№ ЎшъыPlayerCollisionCore:ldxn ++$00 ;initialize X to use player's bounding box for comparisonSprObjectCollisionCore:if Z80OPT2apush de;sty SCRATCHPAD+$06 ;save contents of Y hereld iy,BoundingBox_UL_Corneradd iy,deld ix,BoundingBox_UL_Corneradd ix,bc;ldan ++$01ld d,1 ;sta SCRATCHPAD+$07 ;save value 1 here as counter, compare horizontal coordinates firstCollisionCoreLoop:ld e,(ix)ld c,(ix+BoundingBox_LR_Corner-BoundingBox_UL_Corner)ld a,(iy);lday BoundingBox_UL_Corner,y ;compare left/top coordinatescp e;(ix);icmpx BoundingBox_UL_Corner,x ;of first and second objects' bounding boxesjr nc,FirstBoxGreater ;if first left/top => second, branchcp c;(ix+BoundingBox_LR_Corner-BoundingBox_UL_Corner);cmpx BoundingBox_LR_Corner,x ;otherwise compare to right/bottom of secondjr c,SecondBoxVerticalChk ;if first left/top < second right/bottom, branch elsewherejr z,CollisionFound ;if somehow equal, collision, thus branchld c,ald a,(iy+BoundingBox_LR_Corner-BoundingBox_UL_Corner);lday BoundingBox_LR_Corner,y ;if somehow greater, check to see if bottom ofcp c;(iy);cmpy BoundingBox_UL_Corner,y ;first object's bounding box is greater than its topjr c,CollisionFound ;if somehow less, vertical wrap collision, thus branchcp e;(ix);cmpx BoundingBox_UL_Corner,x ;otherwise compare bottom of first bounding box to the topjr nc,CollisionFound ;of second box, and if equal or greater, collision, thus branchor apop de;ldy SCRATCHPAD+$06 ;otherwise return with carry clear and Y = $0006ret ;note horizontal wrapping never occursSecondBoxVerticalChk:ld a,(ix+BoundingBox_LR_Corner-BoundingBox_UL_Corner);ldax BoundingBox_LR_Corner,x ;check to see if the vertical bottom of the boxcp e;(ix);cmpx BoundingBox_UL_Corner,x ;is greater than the vertical topjr c,CollisionFound ;if somehow less, vertical wrap collision, thus branchld a,(iy+BoundingBox_LR_Corner-BoundingBox_UL_Corner);lday BoundingBox_LR_Corner,y ;otherwise compare horizontal right or vertical bottomcp e;(ix);cmpx BoundingBox_UL_Corner,x ;of first box with horizontal left or vertical top of second boxjr nc,CollisionFound ;if equal or greater, collision, thus branchor apop de;ldy SCRATCHPAD+$06 ;otherwise return with carry clear and Y = $0006retFirstBoxGreater:cp e;(ix);cmpx BoundingBox_UL_Corner,x ;compare first and second box horizontal left/vertical top againjr z,CollisionFound ;if first coordinate = second, collision, thus branchcp c;(ix+BoundingBox_LR_Corner-BoundingBox_UL_Corner);cmpx BoundingBox_LR_Corner,x ;if not, compare with second object right or bottom edgejr c,CollisionFound ;if left/top of first less than or equal to right/bottom of secondjr z,CollisionFound ;then collision, thus branchcp (iy+BoundingBox_LR_Corner-BoundingBox_UL_Corner);cmpy BoundingBox_LR_Corner,y ;otherwise check to see if top of first box is greater than bottomjr c,NoCollisionFound ;if less than or equal, no collision, branch to endjr z,NoCollisionFoundld a,(iy+BoundingBox_LR_Corner-BoundingBox_UL_Corner);lday BoundingBox_LR_Corner,y ;otherwise compare bottom of first to top of secondcp c;(ix+BoundingBox_LR_Corner-BoundingBox_UL_Corner);cmpx BoundingBox_UL_Corner,x ;if bottom of first is greater than top of second, vertical wrapjr nc,CollisionFound ;collision, and branch, otherwise, proceed onwards hereNoCollisionFound:or a ;clear carry, then load value set earlier, then leavepop de;ldy SCRATCHPAD+$06 ;like previous ones, if horizontal coordinates do not collide, we doret ;not bother checking vertical ones, because what's the point?CollisionFound:inc ix ;inx ;increment offsets on both objects to checkinc iy ;iny ;the vertical coordinatesdec d ;deci SCRATCHPAD+$07 ;decrement counter to reflect thisjp p,CollisionCoreLoop ;if counter not expired, branch to loopscf ;otherwise we already did both sets, therefore collision, so set carrypop de;ldy SCRATCHPAD+$06 ;load original value set here earlier, then leaveretelse ;~Z80sty SCRATCHPAD+$06 ;save contents of Y hereldan ++$01sta SCRATCHPAD+$07 ;save value 1 here as counter, compare horizontal coordinates firstCollisionCoreLoop:lday BoundingBox_UL_Corner,y ;compare left/top coordinatescmpx BoundingBox_UL_Corner,x ;of first and second objects' bounding boxescmpcybcs FirstBoxGreater ;if first left/top => second, branchcmpx BoundingBox_LR_Corner,x ;otherwise compare to right/bottom of secondcmpcybcc SecondBoxVerticalChk ;if first left/top < second right/bottom, branch elsewherebeq CollisionFound ;if somehow equal, collision, thus branchlday BoundingBox_LR_Corner,y ;if somehow greater, check to see if bottom ofcmpy BoundingBox_UL_Corner,y ;first object's bounding box is greater than its topcmpcybcc CollisionFound ;if somehow less, vertical wrap collision, thus branchcmpx BoundingBox_UL_Corner,x ;otherwise compare bottom of first bounding box to the topcmpcybcs CollisionFound ;of second box, and if equal or greater, collision, thus branchldy SCRATCHPAD+$06 ;otherwise return with carry clear and Y = $0006rts ;note horizontal wrapping never occursSecondBoxVerticalChk:ldax BoundingBox_LR_Corner,x ;check to see if the vertical bottom of the boxcmpx BoundingBox_UL_Corner,x ;is greater than the vertical topcmpcybcc CollisionFound ;if somehow less, vertical wrap collision, thus branchlday BoundingBox_LR_Corner,y ;otherwise compare horizontal right or vertical bottomcmpx BoundingBox_UL_Corner,x ;of first box with horizontal left or vertical top of second boxcmpcybcs CollisionFound ;if equal or greater, collision, thus branchldy SCRATCHPAD+$06 ;otherwise return with carry clear and Y = $0006rtsFirstBoxGreater:cmpx BoundingBox_UL_Corner,x ;compare first and second box horizontal left/vertical top againbeq CollisionFound ;if first coordinate = second, collision, thus branchcmpx BoundingBox_LR_Corner,x ;if not, compare with second object right or bottom edgecmpcybcc CollisionFound ;if left/top of first less than or equal to right/bottom of secondbeq CollisionFound ;then collision, thus branchcmpy BoundingBox_LR_Corner,y ;otherwise check to see if top of first box is greater than bottomcmpcybcc NoCollisionFound ;if less than or equal, no collision, branch to endbeq NoCollisionFoundlday BoundingBox_LR_Corner,y ;otherwise compare bottom of first to top of secondcmpx BoundingBox_UL_Corner,x ;if bottom of first is greater than top of second, vertical wrapcmpcybcs CollisionFound ;collision, and branch, otherwise, proceed onwards hereNoCollisionFound:clc ;clear carry, then load value set earlier, then leaveldy SCRATCHPAD+$06 ;like previous ones, if horizontal coordinates do not collide, we dorts ;not bother checking vertical ones, because what's the point?CollisionFound:inx ;increment offsets on both objects to checkiny ;the vertical coordinatesdeci SCRATCHPAD+$07 ;decrement counter to reflect thisbpl CollisionCoreLoop ;if counter not expired, branch to loopsec ;otherwise we already did both sets, therefore collision, so set carryldy SCRATCHPAD+$06 ;load original value set here earlier, then leavertsendif;-------------------------------------------------------------------------------------;$02 - modified y coordinate;$03 - stores metatile involved in block buffer collisions;$04 - comes in with offset to block buffer adder data, goes out with low nybble x/y coordinate;$05 - modified x coordinate;$06-$07 - block buffer addressBlockBufferChk_Enemy:pha ;save contents of A to stacktxaclc ;add 1 to X to run sub with enemy offset in mindadcn ++$01taxpla ;pull A from stack and jump elsewherejmp BBChk_EResidualMiscObjectCode:txaclc ;supposedly used once to set offset foradcn ++$0d ;miscellaneous objectstaxldyn ++$1b ;supposedly used once to set offset for block buffer datajmp ResJmpM ;probably used in early stages to do misc to bg collision detectionBlockBufferChk_FBall:ldyn ++$1a ;set offset for block buffer adder datatxaclcadcn ++$07 ;add seven bytes to usetaxResJmpM: ldan ++$00 ;set A to return vertical coordinateBBChk_E: jsr BlockBufferCollision ;do collision detection subroutine for sprite objectldx ObjectOffset ;get object offsetcmpn ++$00 ;check to see if object bumped into anythingcmpcy ;???rtsBlockBufferAdderData:.db $00, $07, $0e;юяшёрэшх срєэфшэу сюъёют фы ёЄюыъэютхэш ё ърЁЄющ???BlockBuffer_X_Adder:;яхЁшюф 7 (т ърцфющ уЁєяях яхЁт√х 3 ўшёыр шёяюы№чє■Єё Єюы№ъю фы ьюэёЄЁют, юёЄры№э√х 4 фы шуЁюър).db $08, $03, $0c, $02, $02, $0d, $0d.db $08, $03, $0c, $02, $02, $0d, $0d.db $08, $03, $0c, $02, $02, $0d, $0d.db $08, $00, $10, $04, $14, $04, $04 ;ъръ ё■фр яюярёЄ№???BlockBuffer_Y_Adder:;яхЁшюф 7 (т ърцфющ уЁєяях яхЁт√х 3 ўшёыр шёяюы№чє■Єё Єюы№ъю фы ьюэёЄЁют, юёЄры№э√х 4 фы шуЁюър).db $04, $20, $20, $08, $18, $08, $18.db $02, $20, $20, $08, $18, $08, $18.db $12, $20, $20, $18, $18, $18, $18.db $18, $14, $14, $06, $06, $08, $10 ;ъръ ё■фр яюярёЄ№???BlockBufferColli_Feet:iny ;if branched here, increment to next set of addersBlockBufferColli_Head:;out: NZ=collisionldan ++$00 ;set flag to return vertical coordinatejr BlockBufferColli_Side_go;.db $2c ;BIT instruction opcodeBlockBufferColli_Side:ldan ++$01 ;set flag to return horizontal coordinateBlockBufferColli_Side_goldxn ++$00 ;set offset for player objectBlockBufferCollision:;x=obj;y=??? (эхы№ч яюЁЄшЄ№!) эхъшщ шэфхъё фы BlockBuffer_X_Adder, BlockBuffer_Y_Adder;a=1: return X to ($04);a=0: return Y to ($04);х∙╕ єёЄрэртыштрхЄ ($02) = (y+yadder)&0xf0 - 32;х∙╕ єёЄрэртыштрхЄ ($06..07) = blockbuffer+xif Z80OPTld hl,BlockBuffer_X_Adderadd hl,deld ix,SprObject_X_Positionadd ix,bcor ajr nz,RetXC ;if A = 1, branchld a,(ix+SprObject_Y_Position-SprObject_X_Position) ;ldax SprObject_Y_Position,x ;if A = 0, load vertical coordinatejp RetYC ;and jumpRetXC: ld a,(ix+SprObject_X_Position-SprObject_X_Position) ;ldax SprObject_X_Position,x ;otherwise load horizontal coordinateRetYC: and ++%00001111 ;and mask out high nybbleld (SCRATCHPAD+$04),a ;store masked out result hereld a,(hl) ;lday BlockBuffer_X_Adder,y ;add horizontal coordinateadd a,(ix+SprObject_X_Position-SprObject_X_Position) ;adcx SprObject_X_Position,x ;of object to value obtained using Y as offsetld l,a ;sta SCRATCHPAD+$05 ;store here ;є эрё яюър 3???adc a,(ix+SprObject_PageLoc-SprObject_X_Position) ;adcn ++$00 ;add carry to page locationsub lrra ;move to carry ;xHSBld a,l ;orai SCRATCHPAD+$05 ;get stored value ;xLSBld hl,Block_Buffer_1jr nc,$+5ld hl,Block_Buffer_2rrarrarrarraand 0x0fadd a,lld l,a;adc a,h;sub l;ld h,ald (SCRATCHPAD+$06),hl ;???ld hl,BlockBuffer_Y_Adderadd hl,deld a,(ix+SprObject_Y_Position-SprObject_X_Position) ;ldax SprObject_Y_Position,x ;get vertical coordinate of objectadd a,(hl);adcy BlockBuffer_Y_Adder,y ;add it to value obtained using Y as offsetand ++%11110000 ;mask out low nybblesub 32 ;subtract 32 pixels for the status barld (SCRATCHPAD+$02),a ;store result here ;???;use as offset for block bufferld hl,(SCRATCHPAD+$06)add a,lld l,aadc a,hsub lld h,a;ld a,(hl) ;ldayindirect (SCRATCHPAD+$06),y ;check current content of block buffer;sta SCRATCHPAD+$03 ;and store hereld a,(hl) ;lda SCRATCHPAD+$03 ;get saved content of block buffer;lda SCRATCHPAD+$03 ;get saved content of block bufferor aret ;and leaveelse ;~Z80pha ;save contents of A to stacksty SCRATCHPAD+$04 ;save contents of Y herelday BlockBuffer_X_Adder,y ;add horizontal coordinateclc ;of object to value obtained using Y as offsetadcx SprObject_X_Position,xsta SCRATCHPAD+$05 ;store here ;є эрё яюър 3???ldaxkeepcy SprObject_PageLoc,xadcn ++$00 ;add carry to page locationandn ++$01 ;get LSB, mask out all other bitslsr ;move to carrypush aforai SCRATCHPAD+$05 ;get stored valueld h,apop afld a,hror ;rotate carry to MSB of Alsr ;and effectively move high nybble tolsr ;lower, LSB which became MSB will belsr ;d4 at this pointjsr GetBlockBufferAddr ;get address of block buffer into $06, $07ldy SCRATCHPAD+$04 ;get old contents of Yldax SprObject_Y_Position,x ;get vertical coordinate of objectclcadcy BlockBuffer_Y_Adder,y ;add it to value obtained using Y as offsetandn ++%11110000 ;mask out low nybblesecsubsbcn ++$20 ;subtract 32 pixels for the status barsta SCRATCHPAD+$02 ;store result heretay ;use as offset for block bufferldayindirect (SCRATCHPAD+$06),y ;check current content of block buffersta SCRATCHPAD+$03 ;and store hereldy SCRATCHPAD+$04 ;get old contents of Y againpla ;pull A from stackcheckabne RetXC ;if A = 1, branchldax SprObject_Y_Position,x ;if A = 0, load vertical coordinatejmp RetYC ;and jumpRetXC: ldax SprObject_X_Position,x ;otherwise load horizontal coordinateRetYC: andn ++%00001111 ;and mask out high nybblesta SCRATCHPAD+$04 ;store masked out result herelda SCRATCHPAD+$03 ;get saved content of block buffercheckarts ;and leaveendif;-------------------------------------------------------------------------------------if Z80==0;unused byte.db $ffendif;-------------------------------------------------------------------------------------;$00 - offset to vine Y coordinate adder;$02 - offset to sprite dataVineYPosAdder:.db $00, $30DrawVine:sty SCRATCHPAD+$00 ;save offset herelda Enemy_Rel_YPos ;get relative vertical coordinateclcadcy VineYPosAdder,y ;add value using offset in Y to get valueldxy VineObjOffset,y ;get offset to vineldyx Enemy_SprDataOffset,x ;get sprite data offsetsty SCRATCHPAD+$02 ;store sprite data offset herejsr SixSpriteStacker ;stack six sprites on top of each other verticallylda Enemy_Rel_XPos ;get relative horizontal coordinatestay Sprite_X_Position,y ;store in first, third and fifth spritesstay Sprite_X_Position+8,ystay Sprite_X_Position+16,yclcadcn ++$06 ;add six pixels to second, fourth and sixth spritesstay Sprite_X_Position+4,y ;to give characteristic staggered vine shape tostay Sprite_X_Position+12,y ;our vertical stack of spritesstay Sprite_X_Position+20,yldan ++%00100001 ;set bg priority and palette attribute bitsstay Sprite_Attributes,y ;set in first, third and fifth spritesstay Sprite_Attributes+8,ystay Sprite_Attributes+16,yoran ++%01000000 ;additionally, set horizontal flip bitstay Sprite_Attributes+4,y ;for second, fourth and sixth spritesstay Sprite_Attributes+12,ystay Sprite_Attributes+20,yldxn ++$05 ;set tiles for six spritesVineTL: ldan ++$e1 ;set tile number for spritestay Sprite_Tilenumber,yiny ;move offset to next sprite datainyinyinydex ;move onto next spritebpl VineTL ;loop until all sprites are doneldy SCRATCHPAD+$02 ;get original offsetlda SCRATCHPAD+$00 ;get offset to vine adding datacheckabne SkpVTop ;if offset not zero, skip this partldan ++$e0stay Sprite_Tilenumber,y ;set other tile number for top of vineSkpVTop: ldxn ++$00 ;start with the first sprite againChkFTop: lda VineStart_Y_Position ;get original starting vertical coordinatesecsubsbcy Sprite_Y_Position,y ;subtract top-most sprite's Y coordinatecmpn ++$64 ;if two coordinates are less than 100/$64 pixelscmpcybcc NextVSp ;apart, skip this to leave sprite aloneldan ++$f8stay Sprite_Y_Position,y ;otherwise move sprite offscreenNextVSp: iny ;move offset to next OAM datainyinyinyinx ;move onto next spritecpxn ++$06 ;do this until all sprites are checkedbne ChkFTopldy SCRATCHPAD+$00 ;return offset set earlierrtsSixSpriteStacker:ldxn ++$06 ;do six spritesStkLp: stay Sprite_Data,y ;store X or Y coordinate into OAM dataclcadcn ++$08 ;add eight pixelsinyiny ;move offset four bytes forwardinyinydex ;do another spritebne StkLp ;do this until all sprites are doneldy SCRATCHPAD+$02 ;get saved OAM data offset and leaverts;-------------------------------------------------------------------------------------FirstSprXPos:.db $04, $00, $04, $00FirstSprYPos:.db $00, $04, $00, $04SecondSprXPos:.db $00, $08, $00, $08SecondSprYPos:.db $08, $00, $08, $00FirstSprTilenum:.db $80, $82, $81, $83SecondSprTilenum:.db $81, $83, $80, $82HammerSprAttrib:.db $03, $03, $c3, $c3DrawHammer:ldyx Misc_SprDataOffset,x ;get misc object OAM data offsetlda TimerControlcheckabne ForceHPose ;if master timer control set, skip this partldax Misc_State,x ;otherwise get hammer's stateandn ++%01111111 ;mask out d7cmpn ++$01 ;check to see if set to 1 yetbeq GetHPose ;if so, branchForceHPose: ldxn ++$00 ;reset offset herecheckxbeq RenderH ;do unconditional branch to rendering partGetHPose: lda FrameCounter ;get frame counterlsr ;move d3-d2 to d1-d0lsrandn ++%00000011 ;mask out all but d1-d0 (changes every four frames)tax ;use as timing offsetRenderH: lda Misc_Rel_YPos ;get relative vertical coordinateclcadcx FirstSprYPos,x ;add first sprite vertical adder based on offsetstay Sprite_Y_Position,y ;store as sprite Y coordinate for first spriteclcadcx SecondSprYPos,x ;add second sprite vertical adder based on offsetstay Sprite_Y_Position+4,y ;store as sprite Y coordinate for second spritelda Misc_Rel_XPos ;get relative horizontal coordinateclcadcx FirstSprXPos,x ;add first sprite horizontal adder based on offsetstay Sprite_X_Position,y ;store as sprite X coordinate for first spriteclcadcx SecondSprXPos,x ;add second sprite horizontal adder based on offsetstay Sprite_X_Position+4,y ;store as sprite X coordinate for second spriteldax FirstSprTilenum,xstay Sprite_Tilenumber,y ;get and store tile number of first spriteldax SecondSprTilenum,xstay Sprite_Tilenumber+4,y ;get and store tile number of second spriteldax HammerSprAttrib,xstay Sprite_Attributes,y ;get and store attribute bytes for bothstay Sprite_Attributes+4,y ;note in this case they use the same dataldx ObjectOffset ;get misc object offsetlda Misc_OffscreenBitsandn ++%11111100 ;check offscreen bitsbeq NoHOffscr ;if all bits clear, leave object aloneldan ++$00stax Misc_State,x ;otherwise nullify misc object stateldan ++$f8jsr DumpTwoSpr ;do sub to move hammer sprites offscreenNoHOffscr: rts ;leave;-------------------------------------------------------------------------------------;$00-$01 - used to hold tile numbers ($01 addressed in draw floatey number part);$02 - used to hold Y coordinate for floatey number;$03 - residual byte used for flip (but value set here affects nothing);$04 - attribute byte for floatey number;$05 - used as X coordinate for floatey numberFlagpoleScoreNumTiles:.db $f9, $50.db $f7, $50.db $fa, $fb.db $f8, $fb.db $f6, $fbFlagpoleGfxHandler:ldyx Enemy_SprDataOffset,x ;get sprite data offset for flagpole flaglda Enemy_Rel_XPos ;get relative horizontal coordinatestay Sprite_X_Position,y ;store as X coordinate for first spriteclcadcn ++$08 ;add eight pixels and storestay Sprite_X_Position+4,y ;as X coordinate for second and third spritesstay Sprite_X_Position+8,yclcadcn ++$0c ;add twelve more pixels andpush afsta SCRATCHPAD+$05 ;store here to be used later by floatey numberldax Enemy_Y_Position,x ;get vertical coordinatejsr DumpTwoSpr ;and do sub to dump into first and second spritesld h,apop afld a,hadcn ++$08 ;add eight pixelsstay Sprite_Y_Position+8,y ;and store into third spritelda FlagpoleFNum_Y_Pos ;get vertical coordinate for floatey numbersta SCRATCHPAD+$02 ;store it hereldan ++$01sta SCRATCHPAD+$03 ;set value for flip which will not be used, andsta SCRATCHPAD+$04 ;attribute byte for floatey numberstay Sprite_Attributes,y ;set attribute bytes for all three spritesstay Sprite_Attributes+4,ystay Sprite_Attributes+8,yldan ++$7estay Sprite_Tilenumber,y ;put triangle shaped tilestay Sprite_Tilenumber+8,y ;into first and third spritesldan ++$7fstay Sprite_Tilenumber+4,y ;put skull tile into second spritelda FlagpoleCollisionYPos ;get vertical coordinate at time of collisioncheckabeq ChkFlagOffscreen ;if zero, branch aheadtyaclc ;add 12 bytes to sprite data offsetadcn ++$0ctay ;put back in Ylda FlagpoleScore ;get offset used to award points for touching flagpoleasl ;multiply by 2 to get proper offset heretaxif Z80OPTld hl,FlagpoleScoreNumTilesadd hl,bccall DrawSpriteObjectelseldax FlagpoleScoreNumTiles,x ;get appropriate tile datasta SCRATCHPAD+$00ldax FlagpoleScoreNumTiles+1,xjsr DrawOneSpriteRow ;use it to render floatey numberendifChkFlagOffscreen:ldx ObjectOffset ;get object offset for flagldyx Enemy_SprDataOffset,x ;get OAM data offsetlda Enemy_OffscreenBits ;get offscreen bitsandn ++%00001110 ;mask out all but d3-d1beq ExitDumpSpr ;if none of these bits set, branch to leave;-------------------------------------------------------------------------------------MoveSixSpritesOffscreen:ldan ++$f8 ;set offscreen coordinate if jumping hereDumpSixSpr:stay Sprite_Data+20,y ;dump A contentsstay Sprite_Data+16,y ;into third row spritesDumpFourSpr:stay Sprite_Data+12,y ;into second row spritesDumpThreeSpr:stay Sprite_Data+8,yDumpTwoSpr:stay Sprite_Data+4,y ;and into first row spritesstay Sprite_Data,yExitDumpSpr:rts;-------------------------------------------------------------------------------------DrawLargePlatform:ldyx Enemy_SprDataOffset,x ;get OAM data offsetsty SCRATCHPAD+$02 ;store hereiny ;add 3 to it for offsetiny ;to X coordinateinylda Enemy_Rel_XPos ;get horizontal relative coordinatejsr SixSpriteStacker ;store X coordinates using A as base, stack horizontallyldx ObjectOffsetldax Enemy_Y_Position,x ;get vertical coordinatejsr DumpFourSpr ;dump into first four sprites as Y coordinateldy AreaTypecpyn ++$03 ;check for castle-type levelbeq ShrinkPlatformldy SecondaryHardMode ;check for secondary hard mode flag setcheckybeq SetLast2Platform ;branch if not set elsewhereShrinkPlatform:ldan ++$f8 ;load offscreen coordinate if flag set or castle-type levelSetLast2Platform:ldyx Enemy_SprDataOffset,x ;get OAM data offsetstay Sprite_Y_Position+16,y ;store vertical coordinate or offscreenstay Sprite_Y_Position+20,y ;coordinate into last two sprites as Y coordinateldan ++$5b ;load default tile for platform (girder)ldx CloudTypeOverridecheckxbeq SetPlatformTilenum ;if cloud level override flag not set, useldan ++$75 ;otherwise load other tile for platform (puff)SetPlatformTilenum:;TODO ўхЁхч rla:jr nc,$+5;ld (ix),Lldx ObjectOffset ;get enemy object buffer offsetiny ;increment Y for tile offsetjsr DumpSixSpr ;dump tile number into all six spritesldan ++$02 ;set palette controlsiny ;increment Y for sprite attributesjsr DumpSixSpr ;dump attributes into all six spritesif Z80OPTpush bcinc c ;increment X to get the proper offsetcall GetXOffscreenBits ;then jump directly to the sub for horizontal offscreen bitspop bc ;decrement to return to original offsetelseinx ;increment X for enemy objectsjsr GetXOffscreenBits ;get offscreen bits againdexendifldyx Enemy_SprDataOffset,x ;get OAM data offsetasl ;rotate d7 into carry, save remaining ;TODO >>4 т GetXOffscreenBitspha ;bits to the stackbcc SChk2ldan ++$f8 ;if d7 was set, move first sprite offscreenstay Sprite_Y_Position,ySChk2: pla ;get bits from stackasl ;rotate d6 into carry ;TODO >>4 т GetXOffscreenBitspha ;save to stackbcc SChk3ldan ++$f8 ;if d6 was set, move second sprite offscreenstay Sprite_Y_Position+4,ySChk3: pla ;get bits from stackasl ;rotate d5 into carry ;TODO >>4 т GetXOffscreenBitspha ;save to stackbcc SChk4ldan ++$f8 ;if d5 was set, move third sprite offscreenstay Sprite_Y_Position+8,ySChk4: pla ;get bits from stackasl ;rotate d4 into carry ;TODO >>4 т GetXOffscreenBitspha ;save to stackbcc SChk5ldan ++$f8 ;if d4 was set, move fourth sprite offscreenstay Sprite_Y_Position+12,ySChk5: pla ;get bits from stackasl ;rotate d3 into carry ;???pha ;save to stackbcc SChk6ldan ++$f8 ;if d3 was set, move fifth sprite offscreenstay Sprite_Y_Position+16,ySChk6: pla ;get bits from stackasl ;rotate d2 into carry ;???bcc SLChk ;save to stackldan ++$f8stay Sprite_Y_Position+20,y ;if d2 was set, move sixth sprite offscreenSLChk: lda Enemy_OffscreenBits ;check d7 of offscreen bitsasl ;and if d7 is not set, skip subbcc ExDLPljsr MoveSixSpritesOffscreen ;otherwise branch to move all sprites offscreenExDLPl: rts;-------------------------------------------------------------------------------------DrawFloateyNumber_Coin:lda FrameCounter ;get frame counterlsr ;divide by 2bcs NotRsNum ;branch if d0 not set to raise number every other framedecx Misc_Y_Position,x ;otherwise, decrement vertical coordinateNotRsNum: ldax Misc_Y_Position,x ;get vertical coordinatejsr DumpTwoSpr ;dump into both spriteslda Misc_Rel_XPos ;get relative horizontal coordinatestay Sprite_X_Position,y ;store as X coordinate for first spriteclcadcn ++$08 ;add eight pixelsstay Sprite_X_Position+4,y ;store as X coordinate for second spriteldan ++$02stay Sprite_Attributes,y ;store attribute byte in both spritesstay Sprite_Attributes+4,yldan ++$f7stay Sprite_Tilenumber,y ;put tile numbers into both spritesldan ++$fb ;that resemble "200"stay Sprite_Tilenumber+4,yjmp ExJCGfx ;then jump to leave (why not an rts here instead?)JumpingCoinTiles:.db $60, $61, $62, $63JCoinGfxHandler:ldyx Misc_SprDataOffset,x ;get coin/floatey number's OAM data offsetldax Misc_State,x ;get state of misc objectcmpn ++$02 ;if 2 or greater,cmpcybcs DrawFloateyNumber_Coin ;branch to draw floatey numberldax Misc_Y_Position,x ;store vertical coordinate asstay Sprite_Y_Position,y ;Y coordinate for first spriteclcadcn ++$08 ;add eight pixelsstay Sprite_Y_Position+4,y ;store as Y coordinate for second spritelda Misc_Rel_XPos ;get relative horizontal coordinatestay Sprite_X_Position,ystay Sprite_X_Position+4,y ;store as X coordinate for first and second spriteslda FrameCounter ;get frame counterlsr ;divide by 2 to alter every other frameandn ++%00000011 ;mask out d2-d1tax ;use as graphical offsetldax JumpingCoinTiles,x ;load tile numberiny ;increment OAM data offset to write tile numbersjsr DumpTwoSpr ;do sub to dump tile number into both spritesdey ;decrement to get old offsetldan ++$02stay Sprite_Attributes,y ;set attribute byte in first spriteldan ++$82stay Sprite_Attributes+4,y ;set attribute byte with vertical flip in second spriteldx ObjectOffset ;get misc object offsetExJCGfx: rts ;leave;-------------------------------------------------------------------------------------;$00-$01 - used to hold tiles for drawing the power-up, $00 also used to hold power-up type;$02 - used to hold bottom row Y position;$03 - used to hold flip control (not used here);$04 - used to hold sprite attributes;$05 - used to hold X position;$07 - counter;tiles arranged in top left, right, bottom left, right orderPowerUpGfxTable:.db $76, $77, $78, $79 ;regular mushroom.db $d6, $d6, $d9, $d9 ;fire flower.db $8d, $8d, $e4, $e4 ;star.db $76, $77, $78, $79 ;1-up mushroomPowerUpAttributes:.db $02, $01, $02, $01DrawPowerUp:ldy Enemy_SprDataOffset+5 ;get power-up's sprite data offsetlda Enemy_Rel_YPos ;get relative vertical coordinateclcadcn ++$08 ;add eight pixelssta SCRATCHPAD+$02 ;store result herelda Enemy_Rel_XPos ;get relative horizontal coordinatesta SCRATCHPAD+$05 ;store hereldx PowerUpType ;get power-up typeldax PowerUpAttributes,x ;get attribute data for power-up typeorai Enemy_SprAttrib+5 ;add background priority bit if setsta SCRATCHPAD+$04 ;store attributes heretxapha ;save power-up type to the stackaslasl ;multiply by four to get proper offsettax ;use as Xldan ++$01if Z80OPT;ld (SCRATCHPAD+$07),a ;set counter here to draw two rows of sprite objectld (SCRATCHPAD+$03),a ;init d1 of flip controlld hl,PowerUpGfxTableadd hl,bccall DrawSpriteObjectcall DrawSpriteObjectelsesta SCRATCHPAD+$07 ;set counter here to draw two rows of sprite objectsta SCRATCHPAD+$03 ;init d1 of flip controlPUpDrawLoop0ldax PowerUpGfxTable,x ;load left tile of power-up objectsta SCRATCHPAD+$00ldax PowerUpGfxTable+1,x ;load right tilejsr DrawOneSpriteRow ;branch to draw one row of our power-up objectdeci SCRATCHPAD+$07 ;decrement counterbpl PUpDrawLoop0 ;branch until two rows are drawnendifldy Enemy_SprDataOffset+5 ;get sprite data offset againpla ;pull saved power-up type from the stackcheckabeq PUpOfs ;if regular mushroom, branch, do not change colors or flipcmpn ++$03beq PUpOfs ;if 1-up mushroom, branch, do not change colors or flipsta SCRATCHPAD+$00 ;store power-up type here nowlda FrameCounter ;get frame counterlsr ;divide by 2 to change colors every two framesandn ++%00000011 ;mask out all but d1 and d0 (previously d2 and d1)orai Enemy_SprAttrib+5 ;add background priority bit if any setstay Sprite_Attributes,y ;set as new palette bits for top left andstay Sprite_Attributes+4,y ;top right sprites for fire flower and starldx SCRATCHPAD+$00dex ;check power-up type for fire flowerbeq FlipPUpRightSide ;if found, skip this partstay Sprite_Attributes+8,y ;otherwise set new palette bits for bottom leftstay Sprite_Attributes+12,y ;and bottom right sprites as well for star onlyFlipPUpRightSide:lday Sprite_Attributes+4,yoran ++%01000000 ;set horizontal flip bit for top right spritestay Sprite_Attributes+4,ylday Sprite_Attributes+12,yoran ++%01000000 ;set horizontal flip bit for bottom right spritestay Sprite_Attributes+12,y ;note these are only done for fire flower and star power-upsPUpOfs: jmp SprObjectOffscrChk ;jump to check to see if power-up is offscreen at all, then leave;-------------------------------------------------------------------------------------;$00-$01 - used in DrawEnemyObjRow to hold sprite tile numbers;$02 - used to store Y position;$03 - used to store moving direction, used to flip enemies horizontally;$04 - used to store enemy's sprite attributes;$05 - used to store X position;$eb - used to hold sprite data offset;$ec - used to hold either altered enemy state or special value used in gfx handler as condition;$ed - used to hold enemy state from buffer;$ef - used to hold enemy code used in gfx handler (may or may not resemble Enemy_ID values);tiles arranged in top left, right, middle left, right, bottom left, right orderEnemyGraphicsTable:.db $fc, $fc, $aa, $ab, $ac, $ad ;buzzy beetle frame 1.db $fc, $fc, $ae, $af, $b0, $b1 ; frame 2.db $fc, $a5, $a6, $a7, $a8, $a9 ;koopa troopa frame 1.db $fc, $a0, $a1, $a2, $a3, $a4 ; frame 2.db $69, $a5, $6a, $a7, $a8, $a9 ;koopa paratroopa frame 1.db $6b, $a0, $6c, $a2, $a3, $a4 ; frame 2.db $fc, $fc, $96, $97, $98, $99 ;spiny frame 1.db $fc, $fc, $9a, $9b, $9c, $9d ; frame 2.db $fc, $fc, $8f, $8e, $8e, $8f ;spiny's egg frame 1.db $fc, $fc, $95, $94, $94, $95 ; frame 2.db $fc, $fc, $dc, $dc, $df, $df ;bloober frame 1.db $dc, $dc, $dd, $dd, $de, $de ; frame 2.db $fc, $fc, $b2, $b3, $b4, $b5 ;cheep-cheep frame 1.db $fc, $fc, $b6, $b3, $b7, $b5 ; frame 2.db $fc, $fc, $70, $71, $72, $73 ;goomba.db $fc, $fc, $6e, $6e, $6f, $6f ;koopa shell frame 1 (upside-down).db $fc, $fc, $6d, $6d, $6f, $6f ; frame 2.db $fc, $fc, $6f, $6f, $6e, $6e ;koopa shell frame 1 (rightsideup).db $fc, $fc, $6f, $6f, $6d, $6d ; frame 2.db $fc, $fc, $f4, $f4, $f5, $f5 ;buzzy beetle shell frame 1 (rightsideup).db $fc, $fc, $f4, $f4, $f5, $f5 ; frame 2.db $fc, $fc, $f5, $f5, $f4, $f4 ;buzzy beetle shell frame 1 (upside-down).db $fc, $fc, $f5, $f5, $f4, $f4 ; frame 2.db $fc, $fc, $fc, $fc, $ef, $ef ;defeated goomba.db $b9, $b8, $bb, $ba, $bc, $bc ;lakitu frame 1.db $fc, $fc, $bd, $bd, $bc, $bc ; frame 2.db $7a, $7b, $da, $db, $d8, $d8 ;princess.db $cd, $cd, $ce, $ce, $cf, $cf ;mushroom retainer.db $7d, $7c, $d1, $8c, $d3, $d2 ;hammer bro frame 1.db $7d, $7c, $89, $88, $8b, $8a ; frame 2.db $d5, $d4, $e3, $e2, $d3, $d2 ; frame 3.db $d5, $d4, $e3, $e2, $8b, $8a ; frame 4.db $e5, $e5, $e6, $e6, $eb, $eb ;piranha plant frame 1.db $ec, $ec, $ed, $ed, $ee, $ee ; frame 2.db $fc, $fc, $d0, $d0, $d7, $d7 ;podoboo.db $bf, $be, $c1, $c0, $c2, $fc ;bowser front frame 1.db $c4, $c3, $c6, $c5, $c8, $c7 ;bowser rear frame 1.db $bf, $be, $ca, $c9, $c2, $fc ; front frame 2.db $c4, $c3, $c6, $c5, $cc, $cb ; rear frame 2.db $fc, $fc, $e8, $e7, $ea, $e9 ;bullet bill.db $f2, $f2, $f3, $f3, $f2, $f2 ;jumpspring frame 1.db $f1, $f1, $f1, $f1, $fc, $fc ; frame 2.db $f0, $f0, $fc, $fc, $fc, $fc ; frame 3EnemyGfxTableOffsets:.db $0c, $0c, $00, $0c, $0c, $a8, $54, $3c.db $ea, $18, $48, $48, $cc, $c0, $18, $18.db $18, $90, $24, $ff, $48, $9c, $d2, $d8.db $f0, $f6, $fcEnemyAttributeData:.db $01, $02, $03, $02, $01, $01, $03, $03.db $03, $01, $01, $02, $02, $21, $01, $02.db $01, $01, $02, $ff, $02, $02, $01, $01.db $02, $02, $02EnemyAnimTimingBMask:.db $08, $18JumpspringFrameOffsets:.db $18, $19, $1a, $19, $18EnemyGfxHandler:;TODO тьхёЄю ¤Єюую фхЁхтр тхЄтыхэшщ ёфхырЄ№ яхЁхїюф яю Єшяє юс·хъЄр яю ЄрсышЎх, фры№°х тхЄтшЄ№ldax Enemy_Y_Position,x ;get enemy object vertical positionsta SCRATCHPAD+$02lda Enemy_Rel_XPos ;get enemy object horizontal positionsta SCRATCHPAD+$05 ;relative to screenldyx Enemy_SprDataOffset,xsty SCRATCHPAD+$eb ;get sprite data offsetldan ++$00sta VerticalFlipFlag ;initialize vertical flip flag by defaultldax Enemy_MovingDir,xsta SCRATCHPAD+$03 ;get enemy object moving directionldax Enemy_SprAttrib,xsta SCRATCHPAD+$04 ;get enemy object sprite attributesldax Enemy_ID,xcmpn ++PiranhaPlant ;is enemy object piranha plant?bne CheckForRetainerObj ;if not, branchldyx PiranhaPlant_Y_Speed,xcheckybmi CheckForRetainerObj ;if piranha plant moving upwards, branchldyx EnemyFrameTimer,xcheckybeq CheckForRetainerObj ;if timer for movement expired, branchrts ;if all conditions fail, leaveCheckForRetainerObj:ldax Enemy_State,x ;store enemy statesta SCRATCHPAD+$edandn ++%00011111 ;nullify all but 5 LSB and use as Ytayldax Enemy_ID,x ;check for mushroom retainer/princess objectcmpn ++RetainerObjectbne CheckForBulletBillCV ;if not found, branchldyn ++$00 ;if found, nullify saved state in Yldan ++$01 ;set value that will not be usedsta SCRATCHPAD+$03ldan ++$15 ;set value $15 as code for mushroom retainer/princess objectCheckForBulletBillCV:cmpn ++BulletBill_CannonVar ;otherwise check for bullet bill objectbne CheckForJumpspring ;if not found, branch againdeci SCRATCHPAD+$02 ;decrement saved vertical positionldan ++$03ldyx EnemyFrameTimer,x ;get timer for enemy objectcheckybeq SBBAt ;if expired, do not set priority bitoran ++%00100000 ;otherwise do soSBBAt: sta SCRATCHPAD+$04 ;set new sprite attributesldyn ++$00 ;nullify saved enemy state both in Y and insty SCRATCHPAD+$ed ;memory location hereldan ++$08 ;set specific value to unconditionally branch onceCheckForJumpspring:cmpn ++JumpspringObject ;check for jumpspring objectbne CheckForPodobooldyn ++$03 ;set enemy state -2 MSB here for jumpspring objectldx JumpspringAnimCtrl ;get current frame number for jumpspring objectldax JumpspringFrameOffsets,x ;load data using frame number as offsetCheckForPodoboo:sta SCRATCHPAD+$ef ;store saved enemy object value heresty SCRATCHPAD+$ec ;and Y here (enemy state -2 MSB if not changed)ldx ObjectOffset ;get enemy object offsetcmpn ++$0c ;check for podoboo objectbne CheckBowserGfxFlag ;branch if not foundldax Enemy_Y_Speed,x ;if moving upwards, branchcheckabmi CheckBowserGfxFlaginci VerticalFlipFlag ;otherwise, set flag for vertical flipCheckBowserGfxFlag:lda BowserGfxFlag ;if not drawing bowser at all, skip to something elsecheckabeq CheckForGoombaldyn ++$16 ;if set to 1, draw bowser's frontcmpn ++$01beq SBwsrGfxOfsiny ;otherwise draw bowser's rearSBwsrGfxOfs: sty SCRATCHPAD+$efCheckForGoomba:;фюё■фр 485tldy SCRATCHPAD+$ef ;check value for goomba objectcpyn ++Goombabne CheckBowserFront ;branch if not foundldax Enemy_State,xcmpn ++$02 ;check for defeated statecmpcybcc GmbaAnim ;if not defeated, go ahead and animateldxn ++$04 ;if defeated, write new value herestx SCRATCHPAD+$ecGmbaAnim: andn ++%00100000 ;check for d5 set in enemy object stateorai TimerControl ;or timer disable flag setbne CheckBowserFront ;if either condition true, do not animate goombalda FrameCounterandn ++%00001000 ;check for every eighth framebne CheckBowserFrontlda SCRATCHPAD+$03eorn ++%00000011 ;invert bits to flip horizontally every eight framessta SCRATCHPAD+$03 ;leave alone otherwiseCheckBowserFront:lday EnemyAttributeData,y ;load sprite attribute using enemy objectorai SCRATCHPAD+$04 ;as offset, and add to bits already loadedsta SCRATCHPAD+$04lday EnemyGfxTableOffsets,y ;load value based on enemy object as offsettax ;save as Xldy SCRATCHPAD+$ec ;get previously saved valuelda BowserGfxFlagcheckabeq CheckForSpiny ;if not drawing bowser object at all, skip all of thiscmpn ++$01bne CheckBowserRear ;if not drawing front part, branch to draw the rear partlda BowserBodyControls ;check bowser's body control bitscheckabpl ChkFrontSte ;branch if d7 not set (control's bowser's mouth)ldxn ++$de ;otherwise load offset for second frameChkFrontSte: lda SCRATCHPAD+$ed ;check saved enemy stateandn ++%00100000 ;if bowser not defeated, do not set flagbeq DrawBowserFlipBowserOver:stx VerticalFlipFlag ;set vertical flip flag to nonzeroDrawBowser:jmp DrawEnemyObject ;draw bowser's graphics nowCheckBowserRear:lda BowserBodyControls ;check bowser's body control bitsandn ++$01beq ChkRearSte ;branch if d0 not set (control's bowser's feet)ldxn ++$e4 ;otherwise load offset for second frameChkRearSte: lda SCRATCHPAD+$ed ;check saved enemy stateandn ++%00100000 ;if bowser not defeated, do not set flagbeq DrawBowserlda SCRATCHPAD+$02 ;subtract 16 pixels fromsecsub ;saved vertical coordinatesbcn ++$10sta SCRATCHPAD+$02jmp FlipBowserOver ;jump to set vertical flip flagCheckForSpiny:cpxn ++$24 ;check if value loaded is for spinybne CheckForLakitu ;if not found, branchcpyn ++$05 ;if enemy state set to $05, do this,bne NotEgg ;otherwise branchldxn ++$30 ;set to spiny egg offsetldan ++$02sta SCRATCHPAD+$03 ;set enemy direction to reverse sprites horizontallyldan ++$05sta SCRATCHPAD+$ec ;set enemy stateNotEgg: jmp CheckForHammerBro ;skip a big chunk of this if we found spiny but not in eggCheckForLakitu:cpxn ++$90 ;check value for lakitu's offset loadedbne CheckUpsideDownShell ;branch if not loadedlda SCRATCHPAD+$edandn ++%00100000 ;check for d5 set in enemy statebne NoLAFr ;branch if setlda FrenzyEnemyTimercmpn ++$10 ;check timer to see if we've reached a certain rangecmpcybcs NoLAFr ;branch if notldxn ++$96 ;if d6 not set and timer in range, load alt frame for lakituNoLAFr: jmp CheckDefeatedState ;skip this next part if we found lakitu but alt frame not neededCheckUpsideDownShell:lda SCRATCHPAD+$ef ;check for enemy object => $04cmpn ++$04cmpcybcs CheckRightSideUpShell ;branch if truecpyn ++$02cmpcybcc CheckRightSideUpShell ;branch if enemy state < $02ldxn ++$5a ;set for upside-down koopa shell by defaultldy SCRATCHPAD+$efcpyn ++BuzzyBeetle ;check for buzzy beetle objectbne CheckRightSideUpShellldxn ++$7e ;set for upside-down buzzy beetle shell if foundinci SCRATCHPAD+$02 ;increment vertical position by one pixelCheckRightSideUpShell:lda SCRATCHPAD+$ec ;check for value set herecmpn ++$04 ;if enemy state < $02, do not change to shell, ifbne CheckForHammerBro ;enemy state => $02 but not = $04, leave shell upside-downldxn ++$72 ;set right-side up buzzy beetle shell by defaultinci SCRATCHPAD+$02 ;increment saved vertical position by one pixelldy SCRATCHPAD+$efcpyn ++BuzzyBeetle ;check for buzzy beetle objectbeq CheckForDefdGoomba ;branch if foundldxn ++$66 ;change to right-side up koopa shell if not foundinci SCRATCHPAD+$02 ;and increment saved vertical position againCheckForDefdGoomba:cpyn ++Goomba ;check for goomba object (necessary if previouslybne CheckForHammerBro ;failed buzzy beetle object test)ldxn ++$54 ;load for regular goombalda SCRATCHPAD+$ed ;note that this only gets performed if enemy state => $02andn ++%00100000 ;check saved enemy state for d5 setbne CheckForHammerBro ;branch if setldxn ++$8a ;load offset for defeated goombadeci SCRATCHPAD+$02 ;set different value and decrement saved vertical positionCheckForHammerBro:ldy ObjectOffsetlda SCRATCHPAD+$ef ;check for hammer bro objectcmpn ++HammerBrobne CheckForBloober ;branch if not foundlda SCRATCHPAD+$edcheckabeq CheckToAnimateEnemy ;branch if not in normal enemy stateandn ++%00001000beq CheckDefeatedState ;if d3 not set, branch further awayldxn ++$b4 ;otherwise load offset for different framecheckxbne CheckToAnimateEnemy ;unconditional branchCheckForBloober:cpxn ++$48 ;check for cheep-cheep offset loadedbeq CheckToAnimateEnemy ;branch if foundlday EnemyIntervalTimer,ycmpn ++$05cmpcybcs CheckDefeatedState ;branch if some timer is above a certain pointcpxn ++$3c ;check for bloober offset loadedbne CheckToAnimateEnemy ;branch if not found this timecmpn ++$01beq CheckDefeatedState ;branch if timer is set to certain pointinci SCRATCHPAD+$02 ;increment saved vertical coordinate three pixelsinci SCRATCHPAD+$02inci SCRATCHPAD+$02jmp CheckAnimationStop ;and do something elseCheckToAnimateEnemy:lda SCRATCHPAD+$ef ;check for specific enemy objectscmpn ++Goombabeq CheckDefeatedState ;branch if goombacmpn ++$08beq CheckDefeatedState ;branch if bullet bill (note both variants use $08 here)cmpn ++Podoboobeq CheckDefeatedState ;branch if podoboocmpn ++$18 ;branch if => $18cmpcybcs CheckDefeatedStateldyn ++$00cmpn ++$15 ;check for mushroom retainer/princess object;jr $bne CheckForSecondFrame ;which uses different code here, branch if not foundiny ;residual instructionlda WorldNumber ;are we on world 8?cmpn ++World8cmpcyif ALWAYSPRINCESSscfendifbcs CheckDefeatedState ;if so, leave the offset alone (use princess)ldxn ++$a2 ;otherwise, set for mushroom retainer object insteadldan ++$03 ;set alternate state heresta SCRATCHPAD+$eccheckabne CheckDefeatedState ;unconditional branchCheckForSecondFrame:lda FrameCounter ;load frame counterandy EnemyAnimTimingBMask,y ;mask it (partly residual, one byte not ever used)bne CheckDefeatedState ;branch if timing is offCheckAnimationStop:lda SCRATCHPAD+$ed ;check saved enemy stateandn ++%10100000 ;for d7 or d5, or check for timers stoppedorai TimerControlbne CheckDefeatedState ;if either condition true, branchtxaclcadcn ++$06 ;add $06 to current enemy offsettax ;to animate various enemy objectsCheckDefeatedState:lda SCRATCHPAD+$ed ;check saved enemy stateandn ++%00100000 ;for d5 setbeq DrawEnemyObject ;branch if not setlda SCRATCHPAD+$efcmpn ++$04 ;check for saved enemy object => $04cmpcybcc DrawEnemyObject ;branch if lessldyn ++$01sty VerticalFlipFlag ;set vertical flip flagdeysty SCRATCHPAD+$ec ;init saved value hereDrawEnemyObject:;фюё■фр 1118t (юЄ эрўрыр яЁюЎхфєЁ√)ldy SCRATCHPAD+$eb ;load sprite data offsetif Z80OPTld hl,EnemyGraphicsTableadd hl,bccall DrawSpriteObject ;360tcall DrawSpriteObject ;360tcall DrawSpriteObject ;360telsejsr DrawEnemyObjRow ;draw six tiles of datajsr DrawEnemyObjRow ;into sprite datajsr DrawEnemyObjRowendif;фю т√їюфр х∙╕ 1030t (эхтшфшь√щ Goomba)/604t (тшфшь√щ)ldx ObjectOffset ;get enemy object offsetldyx Enemy_SprDataOffset,x ;get sprite data offsetlda SCRATCHPAD+$efcmpn ++$08 ;get saved enemy object and checkbne CheckForVerticalFlip ;for bullet bill, branch if not foundSkipToOffScrChk:jmp SprObjectOffscrChk ;jump if foundCheckForVerticalFlip:lda VerticalFlipFlag ;check if vertical flip flag is set herecheckabeq CheckForESymmetry ;branch if notlday Sprite_Attributes,y ;get attributes of first sprite we dealt withoran ++%10000000 ;set bit for vertical flipinyiny ;increment two bytes so that we store the vertical flipjsr DumpSixSpr ;in attribute bytes of enemy obj sprite datadeydey ;now go back to the Y coordinate offsettyatax ;give offset to Xlda SCRATCHPAD+$efcmpn ++HammerBro ;check saved enemy object for hammer brobeq FlipEnemyVerticallycmpn ++Lakitu ;check saved enemy object for lakitubeq FlipEnemyVertically ;branch for hammer bro or lakitucmpn ++$15cmpcybcs FlipEnemyVertically ;also branch if enemy object => $15txaclcadcn ++$08 ;if not selected objects or => $15, settax ;offset in X for next rowFlipEnemyVertically:ldax Sprite_Tilenumber,x ;load first or second row tilespha ;and save tiles to the stackldax Sprite_Tilenumber+4,xphalday Sprite_Tilenumber+16,y ;exchange third row tilesstax Sprite_Tilenumber,x ;with first or second row tileslday Sprite_Tilenumber+20,ystax Sprite_Tilenumber+4,xpla ;pull first or second row tiles from stackstay Sprite_Tilenumber+20,y ;and save in third rowplastay Sprite_Tilenumber+16,yCheckForESymmetry:lda BowserGfxFlag ;are we drawing bowser at all?checkabne SkipToOffScrChk ;branch if solda SCRATCHPAD+$efldx SCRATCHPAD+$ec ;get alternate enemy statecmpn ++$05 ;check for hammer bro objectbne ContESjmp SprObjectOffscrChk ;jump if foundContES: cmpn ++Bloober ;check for bloober objectbeq MirrorEnemyGfxcmpn ++PiranhaPlant ;check for piranha plant objectbeq MirrorEnemyGfxcmpn ++Podoboo ;check for podoboo objectbeq MirrorEnemyGfx ;branch if either of three are foundcmpn ++Spiny ;check for spiny objectbne ESRtnr ;branch closer if not foundcpxn ++$05 ;check spiny's statebne CheckToMirrorLakitu ;branch if not an egg, otherwiseESRtnr: cmpn ++$15 ;check for princess/mushroom retainer objectbne SpnySCldan ++$42 ;set horizontal flip on bottom right spritestay Sprite_Attributes+20,y ;note that palette bits were already set earlierSpnySC: cpxn ++$02 ;if alternate enemy state set to 1 or 0, branchcmpcybcc CheckToMirrorLakituMirrorEnemyGfx:lda BowserGfxFlag ;if enemy object is bowser, skip all of thischeckabne CheckToMirrorLakitulday Sprite_Attributes,y ;load attribute bits of first spriteandn ++%10100011stay Sprite_Attributes,y ;save vertical flip, priority, and palette bitsstay Sprite_Attributes+8,y ;in left sprite column of enemy object OAM datastay Sprite_Attributes+16,yoran ++%01000000 ;set horizontal flipcpxn ++$05 ;check for state used by spiny's eggbne EggExc ;if alternate state not set to $05, branchoran ++%10000000 ;otherwise set vertical flipEggExc: stay Sprite_Attributes+4,y ;set bits of right sprite columnstay Sprite_Attributes+12,y ;of enemy object sprite datastay Sprite_Attributes+20,ycpxn ++$04 ;check alternate enemy statebne CheckToMirrorLakitu ;branch if not $04lday Sprite_Attributes+8,y ;get second row left sprite attributesoran ++%10000000stay Sprite_Attributes+8,y ;store bits with vertical flip instay Sprite_Attributes+16,y ;second and third row left spritesoran ++%01000000stay Sprite_Attributes+12,y ;store with horizontal and vertical flip instay Sprite_Attributes+20,y ;second and third row right spritesCheckToMirrorLakitu:lda SCRATCHPAD+$ef ;check for lakitu enemy objectcmpn ++Lakitubne CheckToMirrorJSpring ;branch if not foundlda VerticalFlipFlagcheckabne NVFLak ;branch if vertical flip flag not setlday Sprite_Attributes+16,y ;save vertical flip and palette bitsandn ++%10000001 ;in third row left spritestay Sprite_Attributes+16,ylday Sprite_Attributes+20,y ;set horizontal flip and palette bitsoran ++%01000001 ;in third row right spritestay Sprite_Attributes+20,yldx FrenzyEnemyTimer ;check timercpxn ++$10cmpcybcs SprObjectOffscrChk ;branch if timer has not reached a certain rangestay Sprite_Attributes+12,y ;otherwise set same for second row right spriteandn ++%10000001stay Sprite_Attributes+8,y ;preserve vertical flip and palette bits for left spriteif Z80or aendifbcc SprObjectOffscrChk ;unconditional branchNVFLak: lday Sprite_Attributes,y ;get first row left sprite attributesandn ++%10000001stay Sprite_Attributes,y ;save vertical flip and palette bitslday Sprite_Attributes+4,y ;get first row right sprite attributesoran ++%01000001 ;set horizontal flip and palette bitsstay Sprite_Attributes+4,y ;note that vertical flip is left as-isCheckToMirrorJSpring:lda SCRATCHPAD+$ef ;check for jumpspring object (any frame)cmpn ++$18cmpcybcc SprObjectOffscrChk ;branch if not jumpspring object at allldan ++$82stay Sprite_Attributes+8,y ;set vertical flip and palette bits ofstay Sprite_Attributes+16,y ;second and third row left spritesoran ++%01000000stay Sprite_Attributes+12,y ;set, in addition to those, horizontal flipstay Sprite_Attributes+20,y ;for second and third row right spritesSprObjectOffscrChk:;юЄё■фр фю т√їюфр х∙╕ 238t (тшфшь√щ Goomba)ldx ObjectOffset ;get enemy buffer offsetlda Enemy_OffscreenBits ;check offscreen informationlsrlsr ;shift three times to the rightlsr ;which puts d2 into carrypha ;save to stackbcc LcChk ;branch if not setldan ++$04 ;set for right column spritesjsr MoveESprColOffscreen ;and move them offscreenLcChk: pla ;get from stacklsr ;move d3 to carrypha ;save to stackbcc Row3C ;branch if not setldan ++$00 ;set for left column sprites,jsr MoveESprColOffscreen ;move them offscreenRow3C: pla ;get from stack againlsr ;move d5 to carry this timelsrpha ;save to stack againbcc Row23C ;branch if carry not setldan ++$10 ;set for third row of spritesjsr MoveESprRowOffscreen ;and move them offscreenRow23C: pla ;get from stacklsr ;move d6 into carrypha ;save to stackbcc AllRowCldan ++$08 ;set for second and third rowsjsr MoveESprRowOffscreen ;move them offscreenAllRowC: pla ;get from stack once morelsr ;move d7 into carrybcc ExEGHandlerjsr MoveESprRowOffscreen ;move all sprites offscreen (A should be 0 by now)ldax Enemy_ID,xcmpn ++Podoboo ;check enemy identifier for podoboobeq ExEGHandler ;skip this part if found, we do not want to erase podoboo!ldax Enemy_Y_HighPos,x ;check high byte of vertical positioncmpn ++$02 ;if not yet past the bottom of the screen, branchbne ExEGHandlerjsr EraseEnemyObject ;what it saysExEGHandler:rtsif Z80OPTelseDrawEnemyObjRow:ldax EnemyGraphicsTable,x ;load two tiles of enemy graphicssta SCRATCHPAD+$00ldax EnemyGraphicsTable+1,xDrawOneSpriteRow:sta SCRATCHPAD+$01jmp DrawSpriteObject ;draw themendifMoveESprRowOffscreen:clc ;add A to enemy object OAM data offsetadcx Enemy_SprDataOffset,xtay ;use as offsetldan ++$f8jmp DumpTwoSpr ;move first row of sprites offscreenMoveESprColOffscreen:clc ;add A to enemy object OAM data offsetadcx Enemy_SprDataOffset,xtay ;use as offsetjsr MoveColOffscreen ;move first and second row sprites in column offscreenstay Sprite_Data+16,y ;move third row sprite in column offscreenrts;-------------------------------------------------------------------------------------;$00-$01 - tile numbers;$02 - relative Y position;$03 - horizontal flip flag (not used here);$04 - attributes;$05 - relative X positionDefaultBlockObjTiles:.db $85, $85, $86, $86 ;brick w/ line (these are sprite tiles, not BG!)DrawBlock:lda Block_Rel_YPos ;get relative vertical coordinate of block objectsta SCRATCHPAD+$02 ;store herelda Block_Rel_XPos ;get relative horizontal coordinate of block objectsta SCRATCHPAD+$05 ;store hereldan ++$03sta SCRATCHPAD+$04 ;set attribute byte herelsrsta SCRATCHPAD+$03 ;set horizontal flip bit here (will not be used) ???ldyx Block_SprDataOffset,x ;get sprite data offsetif Z80OPTld hl,DefaultBlockObjTiles;add hl,bccall DrawSpriteObjectcall DrawSpriteObjectelseldxn ++$00 ;reset X for use as offset to tile dataDBlkLoop:ldax DefaultBlockObjTiles,x ;get left tile numbersta SCRATCHPAD+$00 ;set hereldax DefaultBlockObjTiles+1,x ;get right tile numberjsr DrawOneSpriteRow ;do sub to write tile numbers to first row of spritescpxn ++$04 ;check incremented offsetbne DBlkLoop ;and loop back until all four sprites are doneendifldx ObjectOffset ;get block object offsetldyx Block_SprDataOffset,x ;get sprite data offsetlda AreaTypecmpn ++$01 ;check for ground level type areabeq ChkRep ;if found, branch to next partldan ++$86stay Sprite_Tilenumber,y ;otherwise remove brick tiles with linesstay Sprite_Tilenumber+4,y ;and replace then with lineless brick tilesChkRep: ldax Block_Metatile,x ;check replacement metatilecmpn ++$c4 ;if not used block metatile, thenbne BlkOffscr ;branch ahead to use current graphicsldan ++$87 ;set A for used block tileiny ;increment Y to write to tile bytesjsr DumpFourSpr ;do sub to dump into all four spritesdey ;return Y to original offsetldan ++$03 ;set palette bitsldx AreaTypedex ;check for ground level type area againbeq SetBFlip ;if found, use current palette bitslsr ;otherwise set to $01SetBFlip: ldx ObjectOffset ;put block object offset back in Xstay Sprite_Attributes,y ;store attribute byte as-is in first spriteoran ++%01000000stay Sprite_Attributes+4,y ;set horizontal flip bit for second spriteoran ++%10000000stay Sprite_Attributes+12,y ;set both flip bits for fourth spriteandn ++%10000011stay Sprite_Attributes+8,y ;set vertical flip bit for third spriteBlkOffscr: lda Block_OffscreenBits ;get offscreen bits for block objectpha ;save to stackandn ++%00000100 ;check to see if d2 in offscreen bits are setbeq PullOfsB ;if not set, branch, otherwise move sprites offscreenldan ++$f8 ;move offscreen two OAMsstay Sprite_Y_Position+4,y ;on the right sidestay Sprite_Y_Position+12,yPullOfsB: pla ;pull offscreen bits from stackChkLeftCo: andn ++%00001000 ;check to see if d3 in offscreen bits are setbeq ExDBlk ;if not set, branch, otherwise move sprites offscreenMoveColOffscreen:ldan ++$f8 ;move offscreen two OAMsstay Sprite_Y_Position,y ;on the left side (or two rows of enemy on either sidestay Sprite_Y_Position+8,y ;if branched here from enemy graphics handler)ExDBlk: rts;-------------------------------------------------------------------------------------;$00 - used to hold palette bits for attribute byte or relative X positionDrawBrickChunks:ldan ++$02 ;set palette bits heresta SCRATCHPAD+$00ldan ++$75 ;set tile number for ball (something residual, likely)ldy GameEngineSubroutinecpyn ++$05 ;if end-of-level routine running,beq DChunks ;use palette and tile number assignedldan ++$03 ;otherwise set different palette bitssta SCRATCHPAD+$00ldan ++$84 ;and set tile number for brick chunksDChunks: ldyx Block_SprDataOffset,x ;get OAM data offsetiny ;increment to start with tile bytes in OAMjsr DumpFourSpr ;do sub to dump tile number into all four spriteslda FrameCounter ;get frame counteraslaslasl ;move low nybble to highaslandn ++$c0 ;get what was originally d3-d2 of low nybbleorai SCRATCHPAD+$00 ;add palette bitsiny ;increment offset for attribute bytesjsr DumpFourSpr ;do sub to dump attribute data into all four spritesdeydey ;decrement offset to Y coordinatelda Block_Rel_YPos ;get first block object's relative vertical coordinatejsr DumpTwoSpr ;do sub to dump current Y coordinate into two spriteslda Block_Rel_XPos ;get first block object's relative horizontal coordinatestay Sprite_X_Position,y ;save into X coordinate of first spriteldax Block_Orig_XPos,x ;get original horizontal coordinatesecsubsbci ScreenLeft_X_Pos ;subtract coordinate of left side from original coordinatesta SCRATCHPAD+$00 ;store result as relative horizontal coordinate of originalsecsubsbci Block_Rel_XPos ;get difference of relative positions of original - currentcmpcyadci SCRATCHPAD+$00 ;add original relative position to resultadcn ++$06 ;plus 6 pixels to position second brick chunk correctlystay Sprite_X_Position+4,y ;save into X coordinate of second spritelda Block_Rel_YPos+1 ;get second block object's relative vertical coordinatestay Sprite_Y_Position+8,ystay Sprite_Y_Position+12,y ;dump into Y coordinates of third and fourth spriteslda Block_Rel_XPos+1 ;get second block object's relative horizontal coordinatestay Sprite_X_Position+8,y ;save into X coordinate of third spritelda SCRATCHPAD+$00 ;use original relative horizontal positionsecsubsbci Block_Rel_XPos+1 ;get difference of relative positions of original - currentcmpcyadci SCRATCHPAD+$00 ;add original relative position to resultadcn ++$06 ;plus 6 pixels to position fourth brick chunk correctlystay Sprite_X_Position+12,y ;save into X coordinate of fourth spritelda Block_OffscreenBits ;get offscreen bits for block objectjsr ChkLeftCo ;do sub to move left half of sprites offscreen if necessarylda Block_OffscreenBits ;get offscreen bits againasl ;shift d7 into carrybcc ChnkOfs ;if d7 not set, branch to last partldan ++$f8jsr DumpTwoSpr ;otherwise move top sprites offscreenChnkOfs: lda SCRATCHPAD+$00 ;if relative position on left side of screen,checkabpl ExBCDr ;go ahead and leavelday Sprite_X_Position,y ;otherwise compare left-side X coordinatecmpy Sprite_X_Position+4,y ;to right-side X coordinatecmpcybcc ExBCDr ;branch to leave if lessldan ++$f8 ;otherwise move right half of sprites offscreenstay Sprite_Y_Position+4,ystay Sprite_Y_Position+12,yExBCDr: rts ;leave;-------------------------------------------------------------------------------------DrawFireball:ldyx FBall_SprDataOffset,x ;get fireball's sprite data offsetlda Fireball_Rel_YPos ;get relative vertical coordinatestay Sprite_Y_Position,y ;store as sprite Y coordinatelda Fireball_Rel_XPos ;get relative horizontal coordinatestay Sprite_X_Position,y ;store as sprite X coordinate, then do shared codeDrawFirebar:lda FrameCounter ;get frame counterlsr ;divide by fourlsrpha ;save result to stackandn ++$01 ;mask out all but last biteorn ++$64 ;set either tile $64 or $65 as fireball tilestay Sprite_Tilenumber,y ;thus tile changes every four framespla ;get from stacklsr ;divide by four againlsrldan ++$02 ;load value $02 to set palette in attrib bytebcc FireA ;if last bit shifted out was not set, skip thisoran ++%11000000 ;otherwise flip both ways every eight framesFireA: stay Sprite_Attributes,y ;store attribute byte and leaverts;-------------------------------------------------------------------------------------ExplosionTiles:.db $68, $67, $66DrawExplosion_Fireball:ldyx Alt_SprDataOffset,x ;get OAM data offset of alternate sort for fireball's explosionldax Fireball_State,x ;load fireball stateincx Fireball_State,x ;increment state for next framelsr ;divide by 2andn ++%00000111 ;mask out all but d3-d1cmpn ++$03 ;check to see if time to kill fireballcmpcybcs KillFireBall ;branch if so, otherwise continue to draw explosionDrawExplosion_Fireworks:tax ;use whatever's in A for offsetldax ExplosionTiles,x ;get tile number using offsetiny ;increment Y (contains sprite data offset)jsr DumpFourSpr ;and dump into tile number part of sprite datadey ;decrement Y so we have the proper offset againldx ObjectOffset ;return enemy object buffer offset to Xlda Fireball_Rel_YPos ;get relative vertical coordinatesecsub ;subtract four pixels verticallysbcn ++$04 ;for first and third spritesstay Sprite_Y_Position,ystay Sprite_Y_Position+8,yclc ;add eight pixels verticallyadcn ++$08 ;for second and fourth spritesstay Sprite_Y_Position+4,ystay Sprite_Y_Position+12,ylda Fireball_Rel_XPos ;get relative horizontal coordinatesecsub ;subtract four pixels horizontallysbcn ++$04 ;for first and second spritesstay Sprite_X_Position,ystay Sprite_X_Position+4,yclc ;add eight pixels horizontallyadcn ++$08 ;for third and fourth spritesstay Sprite_X_Position+8,ystay Sprite_X_Position+12,yldan ++$02 ;set palette attributes for all sprites, butstay Sprite_Attributes,y ;set no flip at all for first spriteldan ++$82stay Sprite_Attributes+4,y ;set vertical flip for second spriteldan ++$42stay Sprite_Attributes+8,y ;set horizontal flip for third spriteldan ++$c2stay Sprite_Attributes+12,y ;set both flips for fourth spriterts ;we are doneKillFireBall:ldan ++$00 ;clear fireball state to kill itstax Fireball_State,xrts;-------------------------------------------------------------------------------------DrawSmallPlatform:ldyx Enemy_SprDataOffset,x ;get OAM data offsetldan ++$5b ;load tile number for small platformsiny ;increment offset for tile numbersjsr DumpSixSpr ;dump tile number into all six spritesiny ;increment offset for attributesldan ++$02 ;load palette controlsjsr DumpSixSpr ;dump attributes into all six spritesdey ;decrement for original offsetdeylda Enemy_Rel_XPos ;get relative horizontal coordinatestay Sprite_X_Position,ystay Sprite_X_Position+12,y ;dump as X coordinate into first and fourth spritesclcadcn ++$08 ;add eight pixelsstay Sprite_X_Position+4,y ;dump into second and fifth spritesstay Sprite_X_Position+16,yclcadcn ++$08 ;add eight more pixelsstay Sprite_X_Position+8,y ;dump into third and sixth spritesstay Sprite_X_Position+20,yldax Enemy_Y_Position,x ;get vertical coordinatetaxpha ;save to stackcpxn ++$20 ;if vertical coordinate below status bar,cmpcybcs TopSP ;do not mess with itldan ++$f8 ;otherwise move first three sprites offscreenTopSP: jsr DumpThreeSpr ;dump vertical coordinate into Y coordinatespla ;pull from stackclcadcn ++$80 ;add 128 pixelstaxcpxn ++$20 ;if below status bar (taking wrap into account)cmpcybcs BotSP ;then do not change altered coordinateldan ++$f8 ;otherwise move last three sprites offscreenBotSP: stay Sprite_Y_Position+12,y ;dump vertical coordinate + 128 pixelsstay Sprite_Y_Position+16,y ;into Y coordinatesstay Sprite_Y_Position+20,ylda Enemy_OffscreenBits ;get offscreen bitspha ;save to stackandn ++%00001000 ;check d3beq SOfsldan ++$f8 ;if d3 was set, move first andstay Sprite_Y_Position,y ;fourth sprites offscreenstay Sprite_Y_Position+12,ySOfs: pla ;move out and back into stackphaandn ++%00000100 ;check d2beq SOfs2ldan ++$f8 ;if d2 was set, move second andstay Sprite_Y_Position+4,y ;fifth sprites offscreenstay Sprite_Y_Position+16,ySOfs2: pla ;get from stackandn ++%00000010 ;check d1beq ExSPlldan ++$f8 ;if d1 was set, move third andstay Sprite_Y_Position+8,y ;sixth sprites offscreenstay Sprite_Y_Position+20,yExSPl: ldx ObjectOffset ;get enemy object offset and leaverts;-------------------------------------------------------------------------------------DrawBubble:ldy Player_Y_HighPos ;if player's vertical high positiondey ;not within screen, skip all of thisbne ExDBublda Bubble_OffscreenBits ;check air bubble's offscreen bitsandn ++%00001000bne ExDBub ;if bit set, branch to leaveldyx Bubble_SprDataOffset,x ;get air bubble's OAM data offsetlda Bubble_Rel_XPos ;get relative horizontal coordinatestay Sprite_X_Position,y ;store as X coordinate herelda Bubble_Rel_YPos ;get relative vertical coordinatestay Sprite_Y_Position,y ;store as Y coordinate hereldan ++$74stay Sprite_Tilenumber,y ;put air bubble tile into OAM dataldan ++$02stay Sprite_Attributes,y ;set attribute byteExDBub: rts ;leave;-------------------------------------------------------------------------------------;$00 - used to store player's vertical offscreen bitsPlayerGfxTblOffsets:.db $20, $28, $c8, $18, $00, $40, $50, $58.db $80, $88, $b8, $78, $60, $a0, $b0, $b8;tiles arranged in order, 2 tiles per row, top to bottomPlayerGraphicsTable:;big player table.db $00, $01, $02, $03, $04, $05, $06, $07 ;walking frame 1.db $08, $09, $0a, $0b, $0c, $0d, $0e, $0f ; frame 2.db $10, $11, $12, $13, $14, $15, $16, $17 ; frame 3.db $18, $19, $1a, $1b, $1c, $1d, $1e, $1f ;skidding.db $20, $21, $22, $23, $24, $25, $26, $27 ;jumping.db $08, $09, $28, $29, $2a, $2b, $2c, $2d ;swimming frame 1.db $08, $09, $0a, $0b, $0c, $30, $2c, $2d ; frame 2.db $08, $09, $0a, $0b, $2e, $2f, $2c, $2d ; frame 3.db $08, $09, $28, $29, $2a, $2b, $5c, $5d ;climbing frame 1.db $08, $09, $0a, $0b, $0c, $0d, $5e, $5f ; frame 2.db $fc, $fc, $08, $09, $58, $59, $5a, $5a ;crouching.db $08, $09, $28, $29, $2a, $2b, $0e, $0f ;fireball throwing;small player table.db $fc, $fc, $fc, $fc, $32, $33, $34, $35 ;walking frame 1.db $fc, $fc, $fc, $fc, $36, $37, $38, $39 ; frame 2.db $fc, $fc, $fc, $fc, $3a, $37, $3b, $3c ; frame 3.db $fc, $fc, $fc, $fc, $3d, $3e, $3f, $40 ;skidding.db $fc, $fc, $fc, $fc, $32, $41, $42, $43 ;jumping.db $fc, $fc, $fc, $fc, $32, $33, $44, $45 ;swimming frame 1.db $fc, $fc, $fc, $fc, $32, $33, $44, $47 ; frame 2.db $fc, $fc, $fc, $fc, $32, $33, $48, $49 ; frame 3.db $fc, $fc, $fc, $fc, $32, $33, $90, $91 ;climbing frame 1.db $fc, $fc, $fc, $fc, $3a, $37, $92, $93 ; frame 2.db $fc, $fc, $fc, $fc, $9e, $9e, $9f, $9f ;killed;used by both player sizes.db $fc, $fc, $fc, $fc, $3a, $37, $4f, $4f ;small player standing.db $fc, $fc, $00, $01, $4c, $4d, $4e, $4e ;intermediate grow frame.db $00, $01, $4c, $4d, $4a, $4a, $4b, $4b ;big player standingSwimKickTileNum:.db $31, $46PlayerGfxHandler:lda InjuryTimer ;if player's injured invincibility timercheckabeq CntPl ;not set, skip checkpoint and continue codelda FrameCounterlsr ;otherwise check frame counter and branchbcs ExPGH ;to leave on every other frame (when d0 is set)CntPl: lda GameEngineSubroutine ;if executing specific game engine routine,cmpn ++$0b ;branch ahead to some other partbeq PlayerKilledlda PlayerChangeSizeFlag ;if grow/shrink flag setcheckabne DoChangeSize ;then branch to some other codeldy SwimmingFlag ;if swimming flag set, branch tocheckybeq FindPlayerAction ;different part, do not returnlda Player_Statecmpn ++$00 ;if player status normal,beq FindPlayerAction ;branch and do not returnjsr FindPlayerAction ;otherwise jump and returnlda FrameCounterandn ++%00000100 ;check frame counter for d2 set (8 frames everybne ExPGH ;eighth frame), and branch if set to leavetax ;initialize X to zeroldy Player_SprDataOffset ;get player sprite data offsetlda PlayerFacingDir ;get player's facing directionlsrbcs SwimKT ;if player facing to the right, use current offsetinyiny ;otherwise move to next OAM datainyinySwimKT: lda PlayerSize ;check player's sizecheckabeq BigKTS ;if big, use first tilelday Sprite_Tilenumber+24,y ;check tile number of seventh/eighth spritecmpi SwimTileRepOffset ;against tile number in player graphics tablebeq ExPGH ;if spr7/spr8 tile number = value, branch to leaveinx ;otherwise increment X for second tileBigKTS: ldax SwimKickTileNum,x ;overwrite tile number in sprite 7/8stay Sprite_Tilenumber+24,y ;to animate player's feet when swimmingExPGH: rts ;then leaveFindPlayerAction:jsr ProcessPlayerAction ;find proper offset to graphics table by player's actionsjmp PlayerGfxProcessing ;draw player, then process for fireball throwingDoChangeSize:jsr HandleChangeSize ;find proper offset to graphics table for grow/shrinkjmp PlayerGfxProcessing ;draw player, then process for fireball throwingPlayerKilled:ldyn ++$0e ;load offset for player killedlday PlayerGfxTblOffsets,y ;get offset to graphics tablePlayerGfxProcessing:sta PlayerGfxOffset ;store offset to graphics table hereldan ++$04jsr RenderPlayerSub ;draw player based on offset loadedjsr ChkForPlayerAttrib ;set horizontal flip bits as necessarylda FireballThrowingTimercheckabeq PlayerOffscreenChk ;if fireball throw timer not set, skip to the endldyn ++$00 ;set value to initialize by defaultlda PlayerAnimTimer ;get animation frame timercmpi FireballThrowingTimer ;compare to fireball throw timersty FireballThrowingTimer ;initialize fireball throw timercmpcybcs PlayerOffscreenChk ;if animation frame timer => fireball throw timer skip to endsta FireballThrowingTimer ;otherwise store animation timer into fireball throw timerldyn ++$07 ;load offset for throwinglday PlayerGfxTblOffsets,y ;get offset to graphics tablesta PlayerGfxOffset ;store it for use laterldyn ++$04 ;set to update four sprite rows by defaultlda Player_X_Speedorai Left_Right_Buttons ;check for horizontal speed or left/right button pressbeq SUpdR ;if no speed or button press, branch using set value in Ydey ;otherwise set to update only three sprite rowsSUpdR: tya ;save in A for usejsr RenderPlayerSub ;in sub, draw player object againPlayerOffscreenChk:lda Player_OffscreenBits ;get player's offscreen bitslsrlsr ;move vertical bits to low nybblelsrlsrsta SCRATCHPAD+$00 ;store hereldxn ++$03 ;check all four rows of player spriteslda Player_SprDataOffset ;get player's sprite data offsetclcadcn ++$18 ;add 24 bytes to start at bottom rowtay ;set as offset herePROfsLoop: ldan ++$f8 ;load offscreen Y coordinate just in caselsri SCRATCHPAD+$00 ;shift bit into carrybcc NPROffscr ;if bit not set, skip, do not move spritesjsr DumpTwoSpr ;otherwise dump offscreen Y coordinate into sprite dataNPROffscr: tyasecsub ;subtract eight bytes to dosbcn ++$08 ;next row uptaydex ;decrement row counterbpl PROfsLoop ;do this until all sprite rows are checkedrts ;then we are done!;-------------------------------------------------------------------------------------IntermediatePlayerData:.db $58, $01, $00, $60, $ff, $04DrawPlayer_Intermediate:if Z80OPTld hl,IntermediatePlayerDatald de,SCRATCHPAD+$02ld c,6ldirld d,b;0ld e,++$04 ;load sprite data offsetld hl,PlayerGraphicsTable+$b8 ;load offset for small standing;add hl,bccall DrawPlayerLoop ;draw player accordinglyelseldxn ++$05 ;store data into zero page memoryPIntLoop: ldax IntermediatePlayerData,x ;load data to display player as he alwaysstax SCRATCHPAD+$02,x ;appears on world/lives displaydexbpl PIntLoop ;do this until all data is loadedldxn ++$b8 ;load offset for small standingldyn ++$04 ;load sprite data offsetjsr DrawPlayerLoop ;draw player accordinglyendiflda Sprite_Attributes+36 ;get empty sprite attributesoran ++%01000000 ;set horizontal flip bit for bottom-right spritesta Sprite_Attributes+32 ;store and leaverts;-------------------------------------------------------------------------------------;$00-$01 - used to hold tile numbers, $00 also used to hold upper extent of animation frames;$02 - vertical position;$03 - facing direction, used as horizontal flip control;$04 - attributes;$05 - horizontal position;$07 - number of rows to draw;these also used in IntermediatePlayerDataRenderPlayerSub:sta SCRATCHPAD+$07 ;store number of rows of sprites to drawlda Player_Rel_XPossta Player_Pos_ForScroll ;store player's relative horizontal positionsta SCRATCHPAD+$05 ;store it here alsolda Player_Rel_YPossta SCRATCHPAD+$02 ;store player's vertical positionlda PlayerFacingDirsta SCRATCHPAD+$03 ;store player's facing directionlda Player_SprAttribsta SCRATCHPAD+$04 ;store player's sprite attributesldx PlayerGfxOffset ;load graphics table offsetldy Player_SprDataOffset ;get player's sprite data offsetif Z80OPTld hl,PlayerGraphicsTableadd hl,bcDrawPlayerLoop:ld a,(SCRATCHPAD+$07)ld b,aDrawPlayerLoop0call DrawSpriteObjectdjnz DrawPlayerLoop0 ;do this until all rows are drawnelseDrawPlayerLoop:DrawPlayerLoop0ldax PlayerGraphicsTable,x ;load player's left sidesta SCRATCHPAD+$00ldax PlayerGraphicsTable+1,x ;now load right sidejsr DrawOneSpriteRowdeci SCRATCHPAD+$07 ;decrement rows of sprites to drawbne DrawPlayerLoop0 ;do this until all rows are drawnendifrtsProcessPlayerAction:lda Player_State ;get player's statecmpn ++$03beq ActionClimbing ;if climbing, branch herecmpn ++$02beq ActionFalling ;if falling, branch herecmpn ++$01bne ProcOnGroundActs ;if not jumping, branch herelda SwimmingFlagcheckabne ActionSwimming ;if swimming flag set, branch elsewhereldyn ++$06 ;load offset for crouchinglda CrouchingFlag ;get crouching flagcheckabne NonAnimatedActs ;if set, branch to get offset for graphics tableldyn ++$00 ;otherwise load offset for jumpingjmp NonAnimatedActs ;go to get offset to graphics tableProcOnGroundActs:ldyn ++$06 ;load offset for crouchinglda CrouchingFlag ;get crouching flagcheckabne NonAnimatedActs ;if set, branch to get offset for graphics tableldyn ++$02 ;load offset for standinglda Player_X_Speed ;check player's horizontal speedorai Left_Right_Buttons ;and left/right controller bitsbeq NonAnimatedActs ;if no speed or buttons pressed, use standing offsetlda Player_XSpeedAbsolute ;load walking/running speedcmpn ++$09cmpcybcc ActionWalkRun ;if less than a certain amount, branch, too slow to skidlda Player_MovingDir ;otherwise check to see if moving directionandi PlayerFacingDir ;and facing direction are the samebne ActionWalkRun ;if moving direction = facing direction, branch, don't skidiny ;otherwise increment to skid offset ($03)NonAnimatedActs:jsr GetGfxOffsetAdder ;do a sub here to get offset adder for graphics tableldan ++$00sta PlayerAnimCtrl ;initialize animation frame controllday PlayerGfxTblOffsets,y ;load offset to graphics table using size as offsetrtsActionFalling:ldyn ++$04 ;load offset for walking/runningjsr GetGfxOffsetAdder ;get offset to graphics tablejmp GetCurrentAnimOffset ;execute instructions for falling stateActionWalkRun:ldyn ++$04 ;load offset for walking/runningjsr GetGfxOffsetAdder ;get offset to graphics tablejmp FourFrameExtent ;execute instructions for normal stateActionClimbing:ldyn ++$05 ;load offset for climbinglda Player_Y_Speed ;check player's vertical speedcheckabeq NonAnimatedActs ;if no speed, branch, use offset as-isjsr GetGfxOffsetAdder ;otherwise get offset for graphics tablejmp ThreeFrameExtent ;then skip ahead to more codeActionSwimming:ldyn ++$01 ;load offset for swimmingjsr GetGfxOffsetAdderlda JumpSwimTimer ;check jump/swim timerorai PlayerAnimCtrl ;and animation frame controlbne FourFrameExtent ;if any one of these set, branch aheadlda A_B_Buttonsasl ;check for A button pressedbcs FourFrameExtent ;branch to same place if A button pressedGetCurrentAnimOffset:lda PlayerAnimCtrl ;get animation frame controljmp GetOffsetFromAnimCtrl ;jump to get proper offset to graphics tableFourFrameExtent:ldan ++$03 ;load upper extent for frame controljmp AnimationControl ;jump to get offset and animate player objectThreeFrameExtent:ldan ++$02 ;load upper extent for frame control for climbingAnimationControl:sta SCRATCHPAD+$00 ;store upper extent herejsr GetCurrentAnimOffset ;get proper offset to graphics tablepha ;save offset to stacklda PlayerAnimTimer ;load animation frame timercheckabne ExAnimC ;branch if not expiredlda PlayerAnimTimerSet ;get animation frame timer amountsta PlayerAnimTimer ;and set timer accordinglylda PlayerAnimCtrlclc ;add one to animation frame controladcn ++$01cmpi SCRATCHPAD+$00 ;compare to upper extentcmpcybcc SetAnimC ;if frame control + 1 < upper extent, use as nextldan ++$00 ;otherwise initialize frame controlSetAnimC: sta PlayerAnimCtrl ;store as new animation frame controlExAnimC: pla ;get offset to graphics table from stack and leavertsGetGfxOffsetAdder:lda PlayerSize ;get player's sizecheckabeq SzOfs ;if player big, use current offset as-istya ;for big playerclc ;otherwise add eight bytes to offsetadcn ++$08 ;for small playertaySzOfs: rts ;go backChangeSizeOffsetAdder:.db $00, $01, $00, $01, $00, $01, $02, $00, $01, $02.db $02, $00, $02, $00, $02, $00, $02, $00, $02, $00HandleChangeSize:ldy PlayerAnimCtrl ;get animation frame controllda FrameCounterandn ++%00000011 ;get frame counter and execute this code everybne GorSLog ;fourth frame, otherwise branch aheadiny ;increment frame controlcpyn ++$0a ;check for preset upper extentcmpcybcc CSzNext ;if not there yet, skip ahead to useldyn ++$00 ;otherwise initialize both grow/shrink flagsty PlayerChangeSizeFlag ;and animation frame controlCSzNext: sty PlayerAnimCtrl ;store proper frame controlGorSLog: lda PlayerSize ;get player's sizecheckabne ShrinkPlayer ;if player small, skip ahead to next partlday ChangeSizeOffsetAdder,y ;get offset adder based on frame control as offsetldyn ++$0f ;load offset for player growingGetOffsetFromAnimCtrl:asl ;multiply animation frame controlasl ;by eight to get proper amountasl ;to add to our offsetadcy PlayerGfxTblOffsets,y ;add to offset to graphics tablerts ;and return with result in AShrinkPlayer:tya ;add ten bytes to frame control as offsetclcadcn ++$0a ;this thing apparently uses two of the swimming framestax ;to draw the player shrinkingldyn ++$09 ;load offset for small player swimmingldax ChangeSizeOffsetAdder,x ;get what would normally be offset addercheckabne ShrPlF ;and branch to use offset if nonzeroldyn ++$01 ;otherwise load offset for big player swimmingShrPlF: lday PlayerGfxTblOffsets,y ;get offset to graphics table based on offset loadedrts ;and leaveChkForPlayerAttrib:ldy Player_SprDataOffset ;get sprite data offsetlda GameEngineSubroutinecmpn ++$0b ;if executing specific game engine routine,beq KilledAtt ;branch to change third and fourth row OAM attributeslda PlayerGfxOffset ;get graphics table offsetcmpn ++$50beq C_S_IGAtt ;if crouch offset, either standing offset,cmpn ++$b8 ;or intermediate growing offset,beq C_S_IGAtt ;go ahead and execute code to changecmpn ++$c0 ;fourth row OAM attributes onlybeq C_S_IGAttcmpn ++$c8bne ExPlyrAt ;if none of these, branch to leaveKilledAtt: lday Sprite_Attributes+16,yandn ++%00111111 ;mask out horizontal and vertical flip bitsstay Sprite_Attributes+16,y ;for third row sprites and savelday Sprite_Attributes+20,yandn ++%00111111oran ++%01000000 ;set horizontal flip bit for secondstay Sprite_Attributes+20,y ;sprite in the third rowC_S_IGAtt: lday Sprite_Attributes+24,yandn ++%00111111 ;mask out horizontal and vertical flip bitsstay Sprite_Attributes+24,y ;for fourth row sprites and savelday Sprite_Attributes+28,yandn ++%00111111oran ++%01000000 ;set horizontal flip bit for secondstay Sprite_Attributes+28,y ;sprite in the fourth rowExPlyrAt: rts ;leave;-------------------------------------------------------------------------------------;$00 - used in adding to get proper offsetRelativePlayerPosition:ldxn ++$00 ;set offsets for relative cooordinatesldyn ++$00 ;routine to correspond to player objectjmp RelWOfs ;get the coordinatesRelativeBubblePosition:ldyn ++$01 ;set for air bubble offsetsjsr GetProperObjOffset ;modify X to get proper air bubble offsetldyn ++$03jmp RelWOfs ;get the coordinatesRelativeFireballPosition:ldyn ++$00 ;set for fireball offsetsjsr GetProperObjOffset ;modify X to get proper fireball offsetldyn ++$02RelWOfs: jsr GetObjRelativePosition ;get the coordinatesldx ObjectOffset ;return original offsetrts ;leaveRelativeMiscPosition:ldyn ++$02 ;set for misc object offsetsjsr GetProperObjOffset ;modify X to get proper misc object offsetldyn ++$06jmp RelWOfs ;get the coordinatesRelativeEnemyPosition:ldan ++$01 ;get coordinates of enemy objectldyn ++$01 ;relative to the screenjmp VariableObjOfsRelPosRelativeBlockPosition:ldan ++$09 ;get coordinates of one block objectldyn ++$04 ;relative to the screenjsr VariableObjOfsRelPosinx ;adjust offset for other block object if anyinxldan ++$09iny ;adjust other and get coordinates for other oneVariableObjOfsRelPos:stx SCRATCHPAD+$00 ;store value to add to A hereclcadci SCRATCHPAD+$00 ;add A to value storedtax ;use as enemy offsetjsr GetObjRelativePositionldx ObjectOffset ;reload old object offset and leavertsGetObjRelativePosition:ldax SprObject_Y_Position,x ;load vertical coordinate lowstay SprObject_Rel_YPos,y ;store hereldax SprObject_X_Position,x ;load horizontal coordinatesecsub ;subtract left edge coordinatesbci ScreenLeft_X_Posstay SprObject_Rel_XPos,y ;store result hererts;-------------------------------------------------------------------------------------;$00 - used as temp variable to hold offscreen bitsGetPlayerOffscreenBits:ldxn ++$00 ;set offsets for player-specific variablesldyn ++$00 ;and get offscreen information about playerjmp GetOffScreenBitsSetGetFireballOffscreenBits:ldyn ++$00 ;set for fireball offsetsjsr GetProperObjOffset ;modify X to get proper fireball offsetldyn ++$02 ;set other offset for fireball's offscreen bitsjmp GetOffScreenBitsSet ;and get offscreen information about fireballGetBubbleOffscreenBits:ldyn ++$01 ;set for air bubble offsetsjsr GetProperObjOffset ;modify X to get proper air bubble offsetldyn ++$03 ;set other offset for airbubble's offscreen bitsjmp GetOffScreenBitsSet ;and get offscreen information about air bubbleGetMiscOffscreenBits:ldyn ++$02 ;set for misc object offsetsjsr GetProperObjOffset ;modify X to get proper misc object offsetldyn ++$06 ;set other offset for misc object's offscreen bitsjmp GetOffScreenBitsSet ;and get offscreen information about misc objectObjOffsetData:.db $07, $16, $0dGetProperObjOffset:txa ;move offset to Aclcadcy ObjOffsetData,y ;add amount of bytes to offset depending on setting in Ytax ;put back in X and leavertsGetEnemyOffscreenBits:if Z80OPT ;???эх яюьюурхЄ т 1-2inc ccall RunOffscrBitsSubs ;a=$00, $08, $0c, $0e, $0f, $07, $03, $01, $00add a,a ;move low nybble to high nybbleadd a,aadd a,aadd a,ald hl,SCRATCHPAD+$00or (hl) ;mask together with previously saved low nybbleld (SprObject_OffscrBits+1),ald hl,ObjectOffsetld c,(hl)retelseldan ++$01 ;set A to add 1 byte in order to get enemy offsetldyn ++$01 ;set Y to put offscreen bits in Enemy_OffscreenBitsjmp SetOffscrBitsOffsetendifGetBlockOffscreenBits:ldan ++$09 ;set A to add 9 bytes in order to get block obj offsetldyn ++$04 ;set Y to put offscreen bits in Block_OffscreenBitsSetOffscrBitsOffset:stx SCRATCHPAD+$00clc ;add contents of X to A to getadci SCRATCHPAD+$00 ;appropriate offset, then give back to XtaxGetOffScreenBitsSet:tya ;save offscreen bits offset to stack for nowphajsr RunOffscrBitsSubs ;a=$00, $08, $0c, $0e, $0f, $07, $03, $01, $00asl ;move low nybble to high nybbleaslaslaslorai SCRATCHPAD+$00 ;mask together with previously saved low nybblesta SCRATCHPAD+$00 ;store both herepla ;get offscreen bits offset from stacktaylda SCRATCHPAD+$00 ;get value here and store elsewherestay SprObject_OffscrBits,yldx ObjectOffsetrtsRunOffscrBitsSubs:;2 calls;x эр т√їюфх эх трцхэ, трцэю SCRATCHPAD+$00 [ш +$07(???)]if Z80OPT ;???call GetXOffscreenBits ;do subroutine hererra ;move high nybble to lowrrarrarra ;TODO єсЁрЄ№ т GetXOffscreenBitsand 0x0fld (SCRATCHPAD+$00),a ;store here;test top of screen;ld c,0xor a ;load coordinate for edge of vertical unit ;.db $ff, $00sub (ix+SprObject_Y_Position-SprObject_X_Position) ;subtract from vertical coordinate of objectld l,a;sta SCRATCHPAD+$07 ;store hereld a,++$01 ;subtract one from vertical high byte of objectsbc a,(ix+SprObject_Y_HighPos-SprObject_X_Position); jp m,YLdBData ;if under top of the screen or beyond bottom, branchjp m,YLdBbottom ;if under top of the screen or beyond bottomld c,4 ;if not, load alternate offset value here (y+DefaultYOnscreenOfs+1) ;.db $04, $00, $04jp nz,YLdBData ;if one vertical unit or more above the screen, branch ;ЄєЄ Єюўэю т√їюф;с√ыю dyhigh==0ld a,l;lda SCRATCHPAD+$07 ;get pixel differencecp 32 ;cmpi SCRATCHPAD+$06 ;compare to preset valuejr nc,YLdBData ;if pixel difference HIGH = preset value, branch ;шёяюы№чєхЄ c=x=4 ;ЄєЄ Єюўэю т√їюфrra ;divide by eightrrarra ;т ьырф°шї сшЄрї: 0..3and 3 ;andn ++$07 ;mask out all but 3 LSB ;с√ыю эх 2 сшЄр, яюЄюьє ўЄю ¤Єю с√ыр юс∙р яЁюЎхфєЁр фы X ш Yld c,a;tax ;use as offsetYLdBData:ld hl,YOffscreenBitsData ;.db $00, $08, $0c, $0e, $0f, $07, $03, $01, $00 ;чрўхь яюёыхфэшщ 0?add hl,bcld a,(hl) ;get offscreen data bits using offsetor aret nz ;if bits not zero, branch to leave;test bottom of screenYLdBbottom:;ld c,4ld a,-1 ;load coordinate for edge of vertical unit ;.db $ff, $00sub (ix+SprObject_Y_Position-SprObject_X_Position) ;subtract from vertical coordinate of objectld l,a;sta SCRATCHPAD+$07 ;store hereld a,++$01 ;subtract one from vertical high byte of objectsbc a,(ix+SprObject_Y_HighPos-SprObject_X_Position); jp m,YLdBDatabottom ;if under top of the screen or beyond bottom, branchld a,15ret m ;if under top of the screen or beyond bottom;ld c,0 ;if not, load alternate offset value here (y+DefaultYOnscreenOfs+1) ;.db $04, $00, $04ld c,8-4 ;фы єёъюЁхэш ўхЁхч ёфтшу ЄрсышЎ√jp nz,YLdBDatabottom ;if one vertical unit or more above the screen, branch;с√ыю dyHSB==0ld a,l;lda SCRATCHPAD+$07 ;get pixel differencecp 32 ;cmpi SCRATCHPAD+$06 ;compare to preset valuejr nc,YLdBDatabottom ;if pixel difference HIGH = preset value, branch ;шёяюы№чєхЄ c=x=0rra ;divide by eightrrarra ;т ьырф°шї сшЄрї: 0..3and 3 ;andn ++$07 ;mask out all but 3 LSB ;с√ыю эх 2 сшЄр, яюЄюьє ўЄю ¤Єю с√ыр юс∙р яЁюЎхфєЁр фы X ш Y;add a,4ld c,a;tax ;use as offsetYLdBDatabottom:ld hl,YOffscreenBitsData +4 ;.db $00, $08, $0c, $0e, $0f, $07, $03, $01, $00 ;чрўхь яюёыхфэшщ 0? шёяюы№чєхь хую фы єёъюЁхэшadd hl,bcld a,(hl) ;get offscreen data bits using offsetretelse ;~Z80jsr GetXOffscreenBits ;do subroutine herelsr ;move high nybble to lowlsrlsrlsrsta SCRATCHPAD+$00 ;store herejmp GetYOffscreenBitsendif;--------------------------------;(these apply to these three subsections);$04 - used to store proper offset;$05 - used as adder in DividePDiff;$06 - used to store preset value used to compare to pixel difference in $07;$07 - used to store difference between coordinates of object and screen edges;TODO ърцфюх чэрўхэшх 8 Ёрч, ўЄюс√ эх ёфтшурЄ№XOffscreenBitsData:.db $7f, $3f, $1f, $0f, $07, $03, $01, $00.db $80, $c0, $e0, $f0, $f8, $fc, $fe, $ffDefaultXOnscreenOfs:.db $07, $0f, $07GetXOffscreenBits:;TODO >>4?if Z80OPTld ix,SprObject_X_Positionadd ix,bc;right side of screenld a,(ScreenEdge_X_Pos+1) ;get pixel coordinate of edge ;т яхЁхьхээ√ї!!!;ld c,15sub (ix) ;get difference between pixel coordinate of edge and pixel coordinate of object positionld l,a ;sta SCRATCHPAD+$07 ;store hereld a,(ScreenEdge_PageLoc+1) ;get page location of edge ;т яхЁхьхээ√ї!!!sbc a,(ix+SprObject_PageLoc-SprObject_X_Position) ;subtract from page location of object position;jp m,XLdBData ;if beyond right edge or in front of left edge, branch ;ЄєЄ Єюўэю т√їюф;ld a,0xff; ret m ;if beyond right edge or in front of left edge, branchjp m,XLdBDataleftq ;if beyond right edge or in front of left edge, branch;ld c,7 ;ldxy DefaultXOnscreenOfs+1,y ;if not, load alternate offset value here ;.db $07, $0f, $07jp nz,XLdBleft;XLdBData ;if one page or more to the left of either edge, branch;с√ыю dxHSB==0ld a,l ;lda SCRATCHPAD+$07 ;get pixel differencecp 56 ;cmpi SCRATCHPAD+$06 ;compare to preset valuejr nc,XLdBleft;XLdBData ;if pixel difference >= preset value, branchrra ;divide by eightrrarra ;т ьырф°шї сшЄрї: 0..6and ++$07 ;mask out all but 3 LSBld c,a;tax ;use as offset;XLdBData:ld hl,XOffscreenBitsDataadd hl,bcld a,(hl) ;.db $7f, $3f, $1f, $0f, $07, $03, $01, $00, $80, $c0, $e0, $f0, $f8, $fc, $fe, $ffor a ;if bits not zero, branch to leaveret nz;left side of screenXLdBleftld a,(ScreenEdge_X_Pos) ;get pixel coordinate of edge ;т яхЁхьхээ√ї!!!ld c,7sub (ix) ;get difference between pixel coordinate of edge and pixel coordinate of object positionld l,a ;sta SCRATCHPAD+$07 ;store hereld a,(ScreenEdge_PageLoc) ;get page location of edge ;т яхЁхьхээ√ї!!!sbc a,(ix+SprObject_PageLoc-SprObject_X_Position) ;subtract from page location of object positionjp m,XLdBDataleft ;if beyond right edge or in front of left edge, branch;ld c,15 ;ldxy DefaultXOnscreenOfs+1,y ;if not, load alternate offset value here ;.db $07, $0f, $07jp nz,XLdBDataleftq;XLdBDataleft ;if one page or more to the left of either edge, branch ;ЄєЄ Єюўэю т√їюф;с√ыю dxHSB==0ld a,l ;lda SCRATCHPAD+$07 ;get pixel differencecp 56 ;cmpi SCRATCHPAD+$06 ;compare to preset valuejr nc,XLdBDataleftq;XLdBDataleft ;if pixel difference >= preset value, branch ;шёяюы№чєхЄ x=c=15 ;ЄєЄ Єюўэю т√їюфrra ;divide by eightrrarra ;т ьырф°шї сшЄрї: 0..6and ++$07 ;mask out all but 3 LSBadd a,8ld c,a;tax ;use as offsetXLdBDataleft:ld hl,XOffscreenBitsDataadd hl,bcld a,(hl) ;.db $7f, $3f, $1f, $0f, $07, $03, $01, $00, $80, $c0, $e0, $f0, $f8, $fc, $fe, $ffretXLdBDataleftqld a,0xffretelse ;~Z80;keep x!stx SCRATCHPAD+$04 ;save position in buffer to hereldyn ++$01 ;start with right side of screenXOfsLoop: lday ScreenEdge_X_Pos,y ;get pixel coordinate of edgesecsub ;get difference between pixel coordinate of edgesbcx SprObject_X_Position,x ;and pixel coordinate of object positionsta SCRATCHPAD+$07 ;store hereldaykeepcy ScreenEdge_PageLoc,y ;get page location of edgesbcx SprObject_PageLoc,x ;subtract from page location of object positionldxy DefaultXOnscreenOfs,y ;load offset value herecmpn ++$00bmi XLdBData ;if beyond right edge or in front of left edge, branchldxy DefaultXOnscreenOfs+1,y ;if not, load alternate offset value herecmpn ++$01bpl XLdBData ;if one page or more to the left of either edge, branchldan ++$38 ;if no branching, load value here and storesta SCRATCHPAD+$06ldan ++$08 ;load some other value and execute subroutinejsr DividePDiffXLdBData: ldax XOffscreenBitsData,x ;get bits hereldx SCRATCHPAD+$04 ;reobtain position in buffercmpn ++$00 ;if bits not zero, branch to leavebne ExXOfsBSdey ;otherwise, do left side of screen nowbpl XOfsLoop ;branch if not already done with left side ;2 яЁюїюфрExXOfsBS: rtsendif;--------------------------------;TODO ърцфюх чэрўхэшх 8 Ёрч, ўЄюс√ эх ёфтшурЄ№YOffscreenBitsData:.db $00, $08, $0c, $0e.db $0f, $07, $03, $01.db $00 ;чрўхь юэ с√ы эєцхэ? (т Z80 ЄхяхЁ№ эєцхэ)DefaultYOnscreenOfs:.db $04, $00, $04HighPosUnitData:.db $ff, $00if Z80OPTelseGetYOffscreenBits:stx SCRATCHPAD+$04 ;save position in buffer to hereldyn ++$01 ;start with top of screenYOfsLoop0: lday HighPosUnitData,y ;load coordinate for edge of vertical unitsecsubsbcx SprObject_Y_Position,x ;subtract from vertical coordinate of objectsta SCRATCHPAD+$07 ;store hereldan ++$01 ;subtract one from vertical high byte of objectsbcx SprObject_Y_HighPos,xldxy DefaultYOnscreenOfs,y ;load offset value herecmpn ++$00bmi YLdBData ;if under top of the screen or beyond bottom, branchldxy DefaultYOnscreenOfs+1,y ;if not, load alternate offset value herecmpn ++$01bpl YLdBData ;if one vertical unit or more above the screen, branchldan ++$20 ;if no branching, load value here and storesta SCRATCHPAD+$06ldan ++$04 ;load some other value and execute subroutinejsr DividePDiffYLdBData: ldax YOffscreenBitsData,x ;get offscreen data bits using offsetldx SCRATCHPAD+$04 ;reobtain position in buffercmpn ++$00bne ExYOfsBS ;if bits not zero, branch to leavedey ;otherwise, do bottom of the screen nowbpl YOfsLoop0ExYOfsBS: rtsendif;--------------------------------DividePDiff:;a = 4 (Y) / 8 (X);y = эюьхЁ яЁюїюфр т ъююЁфшэрЄх (0 = ыхтю/эшч, 1 = яЁртю/тхЁї);out: xif Z80OPTld ly,a;sta SCRATCHPAD+$05 ;store current value in A hereld hl,(SCRATCHPAD+$06)ld a,h ;lda SCRATCHPAD+$07 ;get pixel differencecp l ;cmpi SCRATCHPAD+$06 ;compare to preset valueret nc ;if pixel difference >= preset value, branchrra ;divide by eightrrarraand ++$07 ;mask out all but 3 LSBinc e ;right side of the screen or top?dec ejr nz,SetOscrO ;if so, branch, use difference / 8 as offsetadd a,ly; SCRATCHPAD+$05 ;if not, add value to difference / 8SetOscrO: ld c,a ;use as offsetretelsesta SCRATCHPAD+$05 ;store current value in A herelda SCRATCHPAD+$07 ;get pixel differencecmpi SCRATCHPAD+$06 ;compare to preset valuecmpcybcs ExDivPD ;if pixel difference >= preset value, branchlsr ;divide by eightlsrlsrandn ++$07 ;mask out all but 3 LSBcpyn ++$01 ;right side of the screen or top?cmpcybcs SetOscrO ;if so, branch, use difference / 8 as offsetadci SCRATCHPAD+$05 ;if not, add value to difference / 8SetOscrO: tax ;use as offsetExDivPD: rts ;leaveendif;-------------------------------------------------------------------------------------;$00-$01 - tile numbers (hl, out: hl+=2);$02 - Y coordinate;$03 - flip control;$04 - sprite attributes;$05 - X coordinate;y = Sprite_Data offset;out: [x+=2], y+=8DrawSpriteObject:if Z80OPTld ix,Sprite_Dataadd ix,delda SCRATCHPAD+$03 ;get saved flip control bitsrrarra ;move d1 into carry;ld hl,(SCRATCHPAD+$00)ld a,(hl)jr nc,NoHFlip ;if d1 not set, branchld (ix+Sprite_Tilenumber-Sprite_Data+4),a ;store first tile into second spriteinc hlld a,(hl)ld (ix+Sprite_Tilenumber-Sprite_Data),a ;and second into first spriteld a,(SCRATCHPAD+$04)or 0x40 ;activate horizontal flip OAM attributejp SetHFAt ;and unconditionally branchNoHFlip: ld (ix+Sprite_Tilenumber-Sprite_Data),a ;store first tile into first spriteinc hlld a,(hl)ld (ix+Sprite_Tilenumber-Sprite_Data+4),a ;and second into second spriteld a,(SCRATCHPAD+$04) ;схч +0x40 OAM attributeSetHFAt:ld (ix+Sprite_Attributes-Sprite_Data),a ;store sprite attributesld (ix+Sprite_Attributes-Sprite_Data+4),ald a,(SCRATCHPAD+$02) ;now the y coordinatesld (ix+Sprite_Y_Position-Sprite_Data),a ;note because they areld (ix+Sprite_Y_Position-Sprite_Data+4),a ;side by side, they are the sameadd a,8 ;add eight pixels to the next y coordinateld (SCRATCHPAD+$02),ald a,(SCRATCHPAD+$05)ld (ix+Sprite_X_Position-Sprite_Data),a ;store x coordinate, thenadd a,8 ;add 8 pixels and store another told (ix+Sprite_X_Position-Sprite_Data+4),a ;put them side by sideld a,e ;add eight to the offset in Y toadd a,8 ;move to the next two spritesld e,ainc hlelselda SCRATCHPAD+$03 ;get saved flip control bitslsrlsr ;move d1 into carrylda SCRATCHPAD+$00bcc NoHFlip ;if d1 not set, branchstay Sprite_Tilenumber+4,y ;store first tile into second spritelda SCRATCHPAD+$01 ;and second into first spritestay Sprite_Tilenumber,yldan ++$40 ;activate horizontal flip OAM attributecheckabne SetHFAt ;and unconditionally branchNoHFlip: stay Sprite_Tilenumber,y ;store first tile into first spritelda SCRATCHPAD+$01 ;and second into second spritestay Sprite_Tilenumber+4,yldan ++$00 ;clear bit for horizontal flipSetHFAt: orai SCRATCHPAD+$04 ;add other OAM attributes if necessarystay Sprite_Attributes,y ;store sprite attributesstay Sprite_Attributes+4,ylda SCRATCHPAD+$02 ;now the y coordinatesstay Sprite_Y_Position,y ;note because they arestay Sprite_Y_Position+4,y ;side by side, they are the samelda SCRATCHPAD+$05stay Sprite_X_Position,y ;store x coordinate, thenclc ;add 8 pixels and store another toadcn ++$08 ;put them side by sidestay Sprite_X_Position+4,ylda SCRATCHPAD+$02 ;add eight pixels to the next yclc ;coordinateadcn ++$08sta SCRATCHPAD+$02tya ;add eight to the offset in Y toclc ;move to the next two spritesadcn ++$08tayinx ;increment offset to return it to theinx ;routine that called this subroutineendifrts;-------------------------------------------------------------------------------------if Z80==0;unused space (т тхЁёшш Super Mario Bros..nes);р т тхЁёшш Super Mario Bros (JU) (PRG 1).nes ЄєЄ 78, ee, cb, f2, ff, ff - чрўхь??? фЁєушї Ёрчышўшщ ьхцфє ¤Єшьш тхЁёш ьш эхЄ!!!.db $ff, $ff, $ff, $ff, $ff, $ffendif;-------------------------------------------------------------------------------------if MUSICONINT==0include "smbsound.asm"include "smbmusic.asm"endif;-------------------------------------------------------------------------------------;INTERRUPT VECTORSif Z80==0;т ъюэЎх ярь Єш яЁюуЁрьь√: 82 80 00 80 f0 ff.dw NonMaskableInterrupt.dw Start.dw $fff0 ;unused (т Xevious Єюцх т ъюэЎх ff, юёЄры№э√х чэрўхэш фЁєушх, т Bomberman1 т ъюэЎх 7 фЁєушї срщЄ)endifSwimTileRepOffset = PlayerGraphicsTable + $9eMusicHeaderOffsetData = MusicHeaderData - 1MHD = MusicHeaderData