-------------TOS-18-------------
;+++上スクロール（２ドット単位）+++
;データはページ２の(0,32)-(127,63)にあること
ADDRESS = 0EBF0H
*TOS18	PUSH AF
	PUSH BC
	PUSH DE
	PUSH HL
	LD DE,80		;２ドットの増加分
	LD HL,4000H + 80	;転送元の初期位置
	LD B,16			;１６回繰り返す
*LD1	CALL *MOVE		;ブロック転送
	CALL *TOS14		;TOS-14の呼び出し（外部RAMへの転送）

	ADD HL,DE
	DEC B
	JP NZ,*LD1
	POP HL
	POP DE
	POP BC
	POP AF
	RET

ADDRESS = 0EC10H
*MOVE
	PUSH AF
	PUSH BC
	PUSH DE
	PUSH HL
	DI		;メモリのバンク切り替えにつき割り込み禁止
	LD A,0DDH
	OUT (0F0H),A
	LD BC, 40*32
	LD DE,0
	LDIR
	LD A,11H
	OUT (0F0H),A
	EI		;割り込み許可
	POP HL
	POP DE
	POP BC
	POP AF
	RET