mirror of https://github.com/A2osX/A2osX.git
30 lines
806 B
Plaintext
30 lines
806 B
Plaintext
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
|