SHIFTLEFT: 
	CLC			
	ROR	MTMASK	;SHIFT MASK 
	BCC	.SAMEPF ;IF CARRY SET GET NEW POINTER
	ROR	MTMASK
	LDX	PLAYF
;	INX
	DEX
	BPL	.OK
	LDX	#MTNWIDTH
;	BCC	.OK
;	LDX	#0
.OK:	STX	PLAYF
	LDA	MTNPTRTABL,X
	STA	MOUNTPTR
	LDA	MTNPTRTABH,X
	STA	MOUNTPTR+1

.SAMEPF:

	LDX	#9
.SLOOP:
	TXA
	TAY

	LDA	@MOUNTPTR(Y) ;MOUNTPTR POINTS TO

	SEC
	AND	MTMASK
	BNE	.SETC
	CLC
.SETC:

;;;;;;
	ROR	MTNPLAY2B,X
	ROL	MTNPLAY1B,X
	ROR	MTNPLAY0B,X
	LDA	MTNPLAY0B,X
	ROR
	ROR
	ROR
	ROR
	ROR	MTNPLAY2A,X
	ROL	MTNPLAY1A,X
	ROR	MTNPLAY0A,X
	DEX
	BPL	.SLOOP
	RTS
