NEW
  AUTO 3,1
				.LIST OFF
*--------------------------------------
IO.IIGS.INTEN	.EQ $C041				R,W
IO.IIGS.INTFLAG	.EQ $C046				R
IO.IIGS.CLRVBLINT	.EQ $C047			W
*--------------------------------------
				.MA TKCALL
				ldx ##TK.]1
				jsl $E10000
				.EM
*--------------------------------------
TK.SetHeartBeat	.EQ $1203
* TK.DelHeartBeat	.EQ $1303
* TK.ClrHeartBeat	.EQ $1403

TK.GetVector	.EQ $1103
TK.SetVector	.EQ $1003
* $000C Vertical blanking interrupt handler
TK.IntSource	.EQ $2303

* $0002 vblEnable 	Enable vertical blanking interrupts
* $0003 vb1Disable 	Disable vertical blanking interrupts 
*--------------------------------------
MAN
SAVE inc/io.iigs.i