PTest:
	;B-x col from 0 to 95 from left
	;C-y row from 0 to 64 from top
	PUSH BC
	LD H, 0
	LD L, B
	LD A, 8
	bcall(_DivHLbyA)
	POP BC
	LD (remain), A
	LD (bytes), HL
	LD H, 0
	LD L, C
	LD D, H
	LD E, L
	ADD HL, HL
	ADD HL, DE
	ADD HL, HL
	ADD HL, HL
	PUSH HL
	LD HL, (bytes)
	POP DE
	ADD HL, DE
	LD DE, PlotSScreen
	ADD HL, DE
	LD A, (HL)
	LD C, A
	LD A, (remain)
	ADD A, 1
	LD B, A
shiftloop:
	SLA C
	DJNZ shiftloop
	RET
	;Value returned in C flag
