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

;  Layer 3 H-Scroll

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



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

;; sprite code JSL

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

	dcb "INIT"

	RTL

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

;; main sprite code

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

	dcb "MAIN"

  

REP #$20

LDA $1E

LSR

STA $22

SEP #$20



	RTL

db $42

JMP MarioBelow : JMP MarioAbove : JMP MarioSide : JMP SpriteV : JMP SpriteH : JMP MarioCape : JMP MarioFireBall

JMP Corner : JMP HeadIn : JMP BodyIn



Corner:

HeadIn:

BodyIn:

MarioAbove:

MarioBelow:

MarioSide:

MarioBelow:

	LDA $14AF				; Wenn der Switch auf ON steht:

	BNE Label_1			

	LDA #$01				; Schalte ihn aus!

	STA $14AF				

Label_1:					

	LDA $14AF				; Wenn der Switch auf OFF steht:

	BEQ Label_2		

	STZ $14AF				; Schalte ihn an!

Label_2:					

SpriteV:

SpriteH:

MarioCape:

MarioFireBall:

GotCoins:

	RTL

NameData:

 ;Examples

 ;db "1234567890123456789"

 ;db "1234567890123456789"

 ;

 ;(note: be sure that every line has 19 characters, or you might get weird

 ; effects in this mode)

 ;db $38,$39,$3A,$3B,$3C," OF ",$32,$33,$34,$35,$36,$37,"ON  "

 ;db "by Zeldara",$23,$22,$2B,"      "

 ;

 ;db "Generic level No. 2"

 ;db "                   "

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

;Custom Sprite ? Block

;

;Set it to act like tile 129

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



db $42

JMP MarioBelow : JMP MarioAbove : JMP MarioSide : JMP SpriteV : JMP SpriteH : JMP MarioCape : JMP MarioFireBall

JMP MarioTopCorner : JMP MarioHeadIn : JMP MarioBodyIn



MarioAbove:

MarioBelow:

MarioSide:

	LDA #$03

	STA $85

	;/

	JSR SetSpriteCoord1 

	LDA #$D0 		;Custom Sprite Number

	JSR SpawnSprite

	RTL

MarioCape:

MarioHeadIn:

MarioBodyIn:

MarioFireBall:

MarioTopCorner:

SpriteV:

SpriteH:

	RTL





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 $7FAB9E,x

    	JSL $07F7D2             ; reset sprite properties

        JSL $0187A7             ; get table values for custom sprite

	LDA #$88                ; mark as initialized

        STA $7FAB10,x

	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 

print "INIT ",pc



print "MAIN ",pc



	REP #$20			;\ Set processor 16 bit

	LDA #$0D02			;| $4330 = $210D

	STA $4330			;| $4331 = Mode 02

	LDA #$9E00			;| 

	STA $4332			;| Destination: $7F9E00

	LDY #$7F			;| (low and high byte)

	STY $4334			;| 

	LDA #$0F02			;| $4340 = $210F

	STA $4340			;| $4341 = Mode 02

	LDA #$9E00			;| 

	STA $4342			;| Destination: $7F9F00

	LDY #$7F			;| (low and high byte)

	STY $4344			;| 	

	SEP #$20			;/ Set processor 8 bit



	LDA #$18			;\ Enable HDMA

	TSB $0D9F			;/ on channel 3,4



	LDX #$00			;\ Init of

	LDY #$00			;/ X and Y



	SEP #$20			;\ Set processor 8 bit

	LDA $13				;| Set speed of waves

	LSR A				;| Adding more LSR A

	LSR A				;| will make it slower

	STA $00				;/ Store in scratch RAM



	PHB					;\ Push data bank

	PHK					;| Push program bank

	PLB					;/ Pull data bank



Wave_Loop:

	LDA #$06			;\ Set scanline height

	STA $7F9E00,x		;| for each wave

	STA $7F9F00,x

	TYA					;| Transfer Y to A

	ADC $00				;| Add in scratch RAM

	AND #$0F			;| and transfer #$0F bytes

	PHY					;| Push Y

	TAY					;/ Transfer A to Y



	LDA.w Wave_Table,y	;\ Load in wave values

	LSR A				;| half of waves only

	CLC					;| Clear carry flag

	ADC $1462			;| Apply to layer 1

	STA $7F9E01,x		;| X position low byte

	LDA $1463			;| And add nothing to

	ADC #$00			;| layer 1 X position

	STA $7F9E02,x		;/ high byte



	LDA.w Wave_Table,y	;\ Load in wave values

	CLC					;| Clear carry flag

	ADC $1466			;| Apply to layer 2

	STA $7F9F01,x		;| X position low byte

	LDA $1467			;| And add nothing to

	ADC #$00			;| layer 2 X position

	STA $7F9F02,x		;/ high byte



	PLY					;\ Pull Y

	CPY #$25			;| Compare with #$25 scanlines

	BPL End_Wave		;| If bigger, end HDMA

	INX					;| Increase X

	INX					;| Increase X

	INX					;| Increase X

	INY					;| Increase Y

	BRA Wave_Loop		;/ Do the loop



End_Wave:

	PLB					;\ Pull data bank

	LDA #$00			;| End HMDA by writing

	STA $7F9E03,x		;| #$00 here

	STA $7F9F03,x

	RTL					;/ Return



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

;Table Settings

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



Wave_Table:

	db $00

	db $01

	db $02

	db $03

	db $04

	db $05

	db $06

	db $07

	db $07

	db $06

	db $05

	db $04

	db $03

	db $02

	db $01

	db $00