mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-22 16:31:07 +00:00
28 lines
703 B
Plaintext
28 lines
703 B
Plaintext
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
|