initial import from old sources
This commit is contained in:
22
libsrc/c128/kbrepeat.s
Normal file
22
libsrc/c128/kbrepeat.s
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
|
||||||
|
.export _kbrepeat, _kbrepeatdelay, _kbrepeatrate
|
||||||
|
|
||||||
|
.include "c128/c128.inc"
|
||||||
|
|
||||||
|
_kbrepeat:
|
||||||
|
ldx KBDREPEAT ; get old value
|
||||||
|
sta KBDREPEAT ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatdelay:
|
||||||
|
ldx KBDREPEATDELAY ; get old value
|
||||||
|
sta KBDREPEATDELAY ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatrate:
|
||||||
|
ldx KBDREPEATRATE ; get old value
|
||||||
|
sta KBDREPEATRATE ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
22
libsrc/c64/kbrepeat.s
Normal file
22
libsrc/c64/kbrepeat.s
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
|
||||||
|
.export _kbrepeat, _kbrepeatdelay, _kbrepeatrate
|
||||||
|
|
||||||
|
.include "c64/c64.inc"
|
||||||
|
|
||||||
|
_kbrepeat:
|
||||||
|
ldx KBDREPEAT ; get old value
|
||||||
|
sta KBDREPEAT ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatdelay:
|
||||||
|
ldx KBDREPEATDELAY ; get old value
|
||||||
|
sta KBDREPEATDELAY ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatrate:
|
||||||
|
ldx KBDREPEATRATE ; get old value
|
||||||
|
sta KBDREPEATRATE ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
22
libsrc/pet/kbrepeat.s
Normal file
22
libsrc/pet/kbrepeat.s
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
|
||||||
|
.export _kbrepeat, _kbrepeatdelay, _kbrepeatrate
|
||||||
|
|
||||||
|
.include "pet/pet.inc"
|
||||||
|
|
||||||
|
_kbrepeat:
|
||||||
|
ldx KBDREPEAT ; get old value
|
||||||
|
sta KBDREPEAT ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatdelay:
|
||||||
|
ldx KBDREPEATDELAY ; get old value
|
||||||
|
sta KBDREPEATDELAY ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatrate:
|
||||||
|
ldx KBDREPEATRATE ; get old value
|
||||||
|
sta KBDREPEATRATE ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
22
libsrc/plus4/kbrepeat.s
Normal file
22
libsrc/plus4/kbrepeat.s
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
|
||||||
|
.export _kbrepeat, _kbrepeatdelay, _kbrepeatrate
|
||||||
|
|
||||||
|
.include "plus4/plus4.inc"
|
||||||
|
|
||||||
|
_kbrepeat:
|
||||||
|
ldx KBDREPEAT ; get old value
|
||||||
|
sta KBDREPEAT ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatdelay:
|
||||||
|
ldx KBDREPEATDELAY ; get old value
|
||||||
|
sta KBDREPEATDELAY ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatrate:
|
||||||
|
ldx KBDREPEATRATE ; get old value
|
||||||
|
sta KBDREPEATRATE ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
22
libsrc/vic20/kbrepeat.s
Normal file
22
libsrc/vic20/kbrepeat.s
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
|
||||||
|
.export _kbrepeat, _kbrepeatdelay, _kbrepeatrate
|
||||||
|
|
||||||
|
.include "vic20/vic20.inc"
|
||||||
|
|
||||||
|
_kbrepeat:
|
||||||
|
ldx KBDREPEAT ; get old value
|
||||||
|
sta KBDREPEAT ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatdelay:
|
||||||
|
ldx KBDREPEATDELAY ; get old value
|
||||||
|
sta KBDREPEATDELAY ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
|
|
||||||
|
_kbrepeatrate:
|
||||||
|
ldx KBDREPEATRATE ; get old value
|
||||||
|
sta KBDREPEATRATE ; store new value
|
||||||
|
txa ; return old value
|
||||||
|
rts
|
||||||
Reference in New Issue
Block a user