NEW
  AUTO 3,1
				.LIST OFF
*--------------------------------------
IO.GS.NEWVIDEO	.EQ	$C029				R,W video mode select
IO.GS.INTEN		.EQ $C041				R,W
IO.GS.INTFLAG	.EQ $C046				R
IO.GS.CLRVBLINT	.EQ $C047				W
IO.GS.STATEREG 	.EQ	$C068				R,W memory state register
*--------------------------------------
				.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