-------------TOS-19-------------
;+++１２または２４コマアニメーション+++
;コール番地　１２コマ＝EC60H
;　　　　　　裏１２コマ＝EC70H
ADDRESS = 0EC30H
*TOS19	PUSH AF
	PUSH BC
	PUSH DE
	PUSH HL
	LD B,6
*LF1	LD C,2
*LF2	CALL *MOVE	;MOVE
	CALL *TOS14	;TOS-14
	LD DE,20
	ADD HL,DE
	DEC C
	JP NZ,*LF2
	LD DE,04D8H	;40*32-20*2
	ADD HL,DE
	DEC B
	JP NZ,*LF1
	POP HL
	POP DE
	POP BC
	POP AF
	RET

;+++１２コマアニメーション+++
ADDRESS = 0EC60H
	PUSH AF
	PUSH HL
	LD HL,4000H
	CALL *TOS19
	POP HL
	POP AF
	RET

;+++２４コマアニメーション+++
ADDRESS = 0EC70H
	PUSH AF
	PUSH HL
	LD HL,6000H
	CALL *TOS19
	POP HL
	POP AF
	RET