-------------TOS-12-------------
;EA60H,EA61Hで指定されたアドレスにあるデータたて列を転送画面の右８ビット
;３ページ(128,0)-(135,31)に転送する。
ADDRESS = 0EA70H
*TOS12	PUSH AF
	PUSH BC
	PUSH DE
	PUSH HL
	PUSH IX
	DI
	LD A,0DDH
	OUT (0F0H),A
	LD IX,10H
	LD HL,(0EA60H)
	LD DE,28H
	LD B,20H
*LC2	LD A,(HL)
	LD (IX+0),A
	ADD HL,DE
	ADD IX,DE
	DEC B
	JP NZ,*LC2
	LD A,11H
	OUT (0F0H),A
	EI
	POP IX
	POP HL
	POP DE
	POP BC
	POP AF
	RET