2019-10-22 07:52:34 +00:00
|
|
|
|
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
|
2023-01-11 18:34:34 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.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
|
2019-10-22 07:52:34 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
2023-01-11 18:34:34 +00:00
|
|
|
|
SAVE inc/io.iigs.i
|
