-------------TOS-13-------------
;+++転送画面とその右８ドットのエリアを左スクロース+++
;８ドット単位でスクロース
ADDRESS = 0EAA0H
*TOS13	PUSH AF
	PUSH BC
	PUSH DE
	PUSH HL
	DI		;割り込み禁止（高速化のため）
	LD A,0DDH
	OUT (0F0H),A	;I/Oアドレス0FOHに0DDHを書き込み
	LD BC,04F0H
	LD DE,0
	LD HL,1
	LDIR
	LD A,0
	LD DE,28H
	LD HL,27H
	LD B,32
*LB1	LD (HL),A
	ADD HL,DE
	DEC B
	JP NZ,*LB1
	LD A,11H
	OUT (0F0H),A
	EI
	POP HL
	POP DE
	POP BC
	POP AF
	RET