JMP return : JMP return : JMP Main : JMP return : JMP return : JMP return : JMP return
Main:
INC $00DBE
return:
RTL

;================================;
;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