;This is the code to get Poison Mushrooms functioning in SMB1. You will need to add these codes (denoted by my name, Shane) within the SMB1 disassembly by Doppleganger. Also, you need to assemble with X86 or ASM6.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  .db $47, $47, $47, $47 ;brick (poison shroom) ;add this to Palette1_MTiles somewhere. What I did was remove an unused object in place to fit this.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PowerUpObjHandler:
         ldx #$05                   ;set object offset for last slot in enemy object buffer
         stx ObjectOffset
         lda Enemy_State+5          ;check power-up object's state
         beq ExitPUp                ;if not set, branch to leave
         asl                        ;shift to check if d7 was set in object state
         bcc GrowThePowerUp         ;if not set, branch ahead to skip this part
         lda TimerControl           ;if master timer control set,
         bne RunPUSubs              ;branch ahead to enemy object routines
         lda PowerUpType            ;check power-up type
         beq ShroomM                ;if normal mushroom, branch ahead to move it
  ;;;;;SHANE       cmp #$03
  ;;;;;SHANE       beq ShroomM                ;if 1-up mushroom, branch ahead to move it
  ;;;;;SHANE       cmp #$04
  ;;;;;SHANE       beq ShroomM                ;if poison mushroom, branch ahead to move it
         cmp #$02
         bne RunPUSubs              ;if not star, branch elsewhere to skip movement
         jsr MoveJumpingEnemy       ;otherwise impose gravity on star power-up and make it jump
         jsr EnemyJump              ;note that green paratroopa shares the same code here 
         jmp RunPUSubs              ;then jump to other power-up subroutines


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.dw PoisonMushBlock ;add this to the routine labeled "BlockCode" at the end of it

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

PoisonMushBlock:  ;;;;;add this whole labeled code somewhere of your choice
      lda #$04                ;load poison mushroom type
      .db $2c


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HandlePowerUpCollision:
      jsr EraseEnemyObject    ;erase the power-up object
  ;;;;;;;SHANE    lda PowerUpType  ;SHANE
  ;;;;;;;SHANE    cmp #$04                ;check power-up type 
  ;;;;;;;SHANE    bne Safe                ;if not a poison shroom, branch 
  ;;;;;;;SHANE    jmp InjurePlayer        ;otherwise injure the player properly ;SHANE
Safe: lda #$06 ;this value was in the original, I just gave it a label, now.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.db $76, $77, $78, $79 ;poison mushroom ;add this to PowerUpGfxTable

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

PowerUpAttributes:
      .db $02, $01, $02, $01, $03   ;The $03 at the end is now going to be the palette set for the poison mushroom.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

InjurePlayer:
      lda InjuryTimer          ;check again to see if injured invincibility timer is
 ;;;;;;;SHANE     ora StarInvincibleTimer  ;add this to make you immune to poison mushroom during star invincibility
	  bne ExInjColRoutines     ;at zero, and branch to leave if so

.db $22, $22, $0f, $0f, $0f, $22, $0f, $0f ; at 0x2b84...change all the $22 to $0f.

;use prg030.asm

; Leftover optional code, see below
	LDA #$00
	STA <Map_EnterLevelFX		 ; Map_EnterLevelFX = 0
	; Defines screen vertical position starts

	; NOTE: If the "box out" effect were to be used, needs to sync with BoxOut_ByVStart
GamePlay_VStart:	.byte $EF, $00, $00, $EF, $30, $70, $B0, $EF

	; This LUTs are for the unused-in-US-release "Box out" effect when a level starts
	
	; This one selects the appropriate init values for everything
	; else based on what the vertical start position is...
BoxOut_ByVStart:	.byte $00, $30, $70, $B0, $EF	; Needs to sync with GamePlay_VStart

	; ORIGINAL VERSION DID THIS (addresses relate to original code!):
;	LDA Level_Tileset
;	CMP #15
;	BEQ PRG030_8BC2	 ; If Level_Tileset = 15 (bonus game intro), jump to PRG030_8BC2
;
;	LDA Map_UNK713
;	BEQ PRG030_8BC5	 ; If Map_UNK713 = 0, jump to PRG030_8BC5
;
;PRG030_8BC2:
;	JMP PRG030_8CC9	 ; Jump to PRG030_8CC9
;
;PRG030_8BC5:
;	LDA #$00
;	STA <Map_EnterLevelFX		 ; Map_EnterLevelFX = 0
;PRG030_8CC9:

;all of this stuff is already in the disassembly but it is not active. You see, Captain Southbird disassembled part of it but the US version is completely missing it. The US code is cut. When you add the above, change the JMP location to point to your code from this one: 

JMP PRG030_8CB8

SetBounce:
ldy #$fa                   ;set a regular bounce rate for all other enemies
lda Enemy_ID,x
cmp #RedParatroopa         ;set a higher bounce rate for red paratroopas
beq BnceH                  ;and green paratroopas that fly
cmp #GreenParatroopaFly
bne BnceL

BnceH: ldy #$f8                   ;set player's vertical speed for bounce
BnceL: sty Player_Y_Speed         ;and then leave!!!
           rts