Single Screen v1.2

	PHB					;\Setup banks
	PHK					;|
	PLB					;/
	.DeathAnimationCheck
		;If Mario is inside a pipe AND dying, reset all his status for 1 frame.
		LDA !Freeram_SSP_PipeDir	;
		AND.b #%00001111		;>After this, A register = Pipe state
		BNE ..InPipe			;>If in pipe, execute (also check needed that if the player is already outside the pipe, not to run this code again, to ensure a execute-once for the reset when dying inside pipe).
		JMP .PipeCodeReturn
		
		..InPipe
		LDX $71					;\Prevent potential glitch that the player enters pipe and dies (often by level timer)
		CPX #$09				;|during travel (if freezing enabled, at the same frame the players interacts a pipe cap).
		BNE .PipeStateCheck			;/
		..MarioDiedReset
			LDA #$00				;\Reset all things.
			STA !Freeram_SSP_PipeDir		;|>Reset pipe state to ensure that [ResetStatus] is executed only once as the check before this code will assume player out of pipe on the next game loop.
			STA !Freeram_SSP_EntrExtFlg		;|
			STA !Freeram_SSP_PipeTmr		;/
			JMP .InPipeTraveling_ResetStatus	;>Bring mario back to the foreground, amoung other things.
;(A really long code later)
;---------------------------------
;This resets mario's status.
;It must be exceuted for one frame
;(or bugs will occur if executed every frame)
;the player exits a pipe.
;---------------------------------
		..ResetStatus
			...HandleCarryingSprites
				if !Setting_SSP_CarryAllowed != 0
					LDA !Freeram_SSP_CarrySpr	;\Holding sprites routine
					BEQ ....NotCarrySprite		;|
				
					....CarrySprite
					LDA #$40			;|
					BRA ....WriteXYBitController	;|
				endif
				....NotCarrySprite		;|
					LDA #$00			;|
	
				....WriteXYBitController		;|
					STA $15				;/
			...RevertPipeStatus
				if !Setting_SSP_FreezeTime != 0
					STZ $9D			;>back in motion
				endif
				STZ $13F9|!addr			;>go in front
				....RestorePlayerStateIfNotDying
					LDX $71				;\If player dying, don't restore his state
					CPX #$09			;|of not in his dying phase.
					BEQ .....NoRevive		;/
					STZ $71				;>mario can move
					
					.....NoRevive
				STZ $73				;>stop crouching (when going exiting down on yoshi)
				STZ $140D|!addr			;>no spinjump out the pipe (possable if both enter and exit caps are bottoms)
				LDA !Freeram_SSP_EntrExtFlg	;\Don't cancel speed if in firing mode.
				CMP #$03			;|
				BEQ ....FireOut			;/
				
				....CancelSpeed
					STZ $7B				;cancel speed
					.....NoResetYSpeedDeath
						CPX #$09		;\Check mario animation again to see if dying to not zero out the Y speed
						BEQ ......Death		;/(which disables the "jump" on his death animation).
						STZ $7D
						
						......Death
				....FireOut
				
				STZ $1419|!addr			;>revert yoshi
				STZ $149F|!addr			;>zero cape "rise up timer"
				STZ $185C|!addr			;>Reenable block interaction, just in case...
				LDA $16				;\Prevent fireballs and cape action.
				AND.b #%00010000		;|While enabling only the pause button.
				STA $16				;/
				LDA #$00			;\reset freeram flags
				STA !Freeram_SSP_PipeTmr	;|
				if !Setting_SSP_CarryAllowed != 0
					STA !Freeram_SSP_CarrySpr	;|
				endif
				STA !Freeram_SSP_EntrExtFlg	;/>Make code assume mario is out of the pipe.
				LDA !Freeram_SSP_PipeDir	;\Clear direction bits (resets the pipe state).
				AND.b #%11110000		;|
				STA !Freeram_SSP_PipeDir	;/