REP #$20

	LDA $1C

	STA $24

	LDA $1A ; Scroll four times as slow as Layer 1.

	LSR A

	LSR A

	STA $22 ; Layer 3 X.

	LDA #$1F1F

	STA $212C

	SEP #$20

	REP #%00100000

        LDA.w $1462             ; horz:

        LSR #2                  ; the higher this number, the slower it will scroll. Remove for same speed as FG

        CLC : ADC.w #$0000      ; (offset, change this to whatever you want, or remove it if you don't need it)

        STA.b $22

        LDA.w $1464             ;vert:

        LSR #0                  ; the higher this number, the slower it will scroll. Remove for same speed as FG

        CLC : ADC.w #$0010     ; (offset, change this to whatever you want, or remove it if you don't need it)

        STA.b $24

        SEP #%00100000

JMP return : JMP return : JMP Main : JMP return : JMP return : JMP return : JMP return 

Main:

INC $00DBE

return:

RTL

LDA #$02

STA $9C

JSL $00BEB0

;================================;

;Autowalk, version 99999.9999999 ;

;Made by Iceguy			 ;

;================================;



;Uses Extra bit: YES

;If set, you'll walk left instead.



!Speed = $2f			; Speed to walk at.

				; 00 = Stationary.

				; 01 = HORRIBLY slow.

				; 08ish = standard walking.

				; 20ish = really fast.

				; Don't go beyond 25 or so, might glitch through walls.



!DisableControls = $00		; Disable spin-jumping, jumping etc. (00 = No, 01 = Yes)



;===========================================================================================================================================





print "INIT ",pc

	LDY #$00

	LDA $7FAB10,x

	AND #$04

	STA $1588,x		; Store the extra bit in $1588,x so we can use it later.

	LDA $1588,x

	BEQ LOLno		; If bit = clear, use left.

	INY

LOLno:

	STY $76

	RTL



print "MAIN ",pc

	PHB

	PHK

	PLB

	JSR Control

	PLB

	RTL



;==========;

;  Main    ;

;==========;

Control:

	LDA #!DisableControls

	BEQ Left

	LDA #$FF

	STA $0DAA

	STA $0DAC

Left:

	LDA $1588,x

	BEQ Right

	STZ $76

	STZ $7B

	LDA #$FF

	STA $0DAA

	STA $0DAC

	LDA $14AB

	BEQ Timer

	BRA END

Timer:

	LDA #$44

	STA $14AB

	BRA Left

Right:

	LDA #$01

	STA $76

	LDA #!Speed

Check:

	STA $7B

	LDA $77

	AND #$03

	BEQ END

	LDA $1588,x

	EOR #$04

	STA $1588,x

	STZ $77

	BRA Left

END:

	RTS

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

;1-UP Block

;

;Set it to act like tile 130

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



JMP return : return : JMP MarioSide : JMP return : JMP return : JMP return : JMP return





MarioSide:



	JSR SetSpriteCoord1 

	LDA #$78		;Sprite number

	JSR SpawnSprite

LDA #$03

STA $1DFC

REP #$30

LDA $0003

CLC

ADC #$0001

TAX

JSR ChangeMap16

SEP #$30





SpawnSprite: 

	PHX 

	PHP 

	SEP #$30 

	PHA 

	LDX #$0B 

SpwnSprtTryAgain: 

	LDA $14C8,x ;Sprite Status Table 

	BEQ SpwnSprtSet 

	DEX 

	CPX #$FF 

	BEQ SpwnSprtClear 

	BRA SpwnSprtTryAgain 

SpwnSprtClear: 

	DEC $1861 

	BPL SpwnSprtExist 

	LDA #$01 

	STA $1861 

SpwnSprtExist: 

	LDA $1861 

	CLC 

	ADC #$0A 

	TAX 

SpwnSprtSet: 

	STX $185E 

	LDA #$08 

	STA $14C8,x ;Sprite Status Table 

	PLA 

        STA $9E,x ;Sprite Type   	    

        JSL $07F7D2             ; reset sprite properties

	INC $15A0,x ;"Sprite off screen" flag, horizontal 

	LDA $9A ;Sprite creation: X position (low) 

	STA $E4,x ;Sprite Xpos Low Byte 

	LDA $9B 

	STA $14E0,x ;Sprite Xpos High Byte 

	LDA $98 ;Sprite creation: Y position (low) 

	STA $D8,x ;Sprite Ypos Low Byte 

	LDA $99 ;Sprite creation: Y position (high) 

	STA $14D4,x ;Sprite Ypos High Byte 

	LDA #$3E 

	STA $1540,x ;Sprite Spin Jump Death Frame Counter 

	LDA #$D0 

	STA $AA,x ;Sprite Y Speed 

	LDA #$2C 

	STA $144C,x 

	LDA $190F,x ;Sprite Properties 

	BPL SpwnSprtProp 

	LDA #$10 

	STA $15AC,x 

SpwnSprtProp: 

	PLP 

	PLX 

	RTS 



SetSpriteCoord1: 

	PHP 

	REP #$20 

	LDA $98 

	AND #$FFF0 

	STA $98 

	LDA $9A 

	AND #$FFF0 

	STA $9A 

	PLP 

	RTS 



PrematureEnd:

PLX

PLY

PLB

PLP

RTS

ChangeMap16:

PHP

SEP #$20

PHB

PHY

LDA #$00

PHA

PLB

REP #$30

PHX

LDA $9A

STA $0C

LDA $98

STA $0E

LDA #$0000

SEP #$20

LDA $5B

STA $09

LDA $1933

BEQ SkipShift

LSR $09

SkipShift:

LDY $0E

LDA $09

AND #$01

BEQ LeaveXY

LDA $9B

STA $00

LDA $99

STA $9B

LDA $00

STA $99

LDY $0C

LeaveXY:

CPY #$0200

BCS PrematureEnd

LDA $1933

ASL A

TAX

LDA $BEA8,x

STA $65

LDA $BEA9,x

STA $66

STZ $67

LDA $1925

ASL A

TAY

LDA [$65],y

STA $04

INY

LDA [$65],y

STA $05

STZ $06

LDA $9B

STA $07

ASL A

CLC

ADC $07

TAY

LDA [$04],y

STA $6B

STA $6E

INY

LDA [$04],y

STA $6C

STA $6F

LDA #$7E

STA $6D

INC A

STA $70

LDA $09

AND #$01

BEQ SwitchXY

LDA $99		

LSR A

LDA $9B

AND #$01

BRA CurrentXY

SwitchXY:

LDA $9B

LSR A

LDA $99

CurrentXY:

ROL A

ASL A

ASL A

ORA #$20

STA $04

CPX #$0000

BEQ NoAdd

CLC

ADC #$10

STA $04

NoAdd:

LDA $98

AND #$F0

CLC

ASL A

ROL A

STA $05

ROL A

AND #$03

ORA $04

STA $06

LDA $9A

AND #$F0

REP 3 : LSR A

STA $04

LDA $05

AND #$C0

ORA $04

STA $07

REP #$20

LDA $09

AND #$0001

BNE LayerSwitch

LDA $1A

SEC

SBC #$0080

TAX

LDY $1C

LDA $1933

BEQ CurrentLayer

LDX $1E

LDA $20

SEC

SBC #$0080

TAY

BRA CurrentLayer

LayerSwitch: 

LDX $1A

LDA $1C

SEC

SBC #$0080

TAY

LDA $1933

BEQ CurrentLayer

LDA $1E

SEC

SBC #$0080

TAX

LDY $20

CurrentLayer:

STX $08

STY $0A

LDA $98

AND #$01F0

STA $04

LDA $9A

REP 4 : LSR A

AND #$000F

ORA $04

TAY

PLA

SEP #$20

STA [$6B],y

XBA

STA [$6E],y

XBA

REP #$20

ASL A

TAY

PHK

PER $0006

PEA $804C

JML $00C0FB

PLY

PLB

PLP

RTS

return:

RTL