From 85760e0c531d127f2a52e1d87a6f02214c98a5fd Mon Sep 17 00:00:00 2001 From: mrdudz Date: Sun, 28 Feb 2016 22:13:05 +0100 Subject: [PATCH] initial import from old sources --- libsrc/c128/kbrepeat.s | 22 ++++++++++++++++++++++ libsrc/c64/kbrepeat.s | 22 ++++++++++++++++++++++ libsrc/pet/kbrepeat.s | 22 ++++++++++++++++++++++ libsrc/plus4/kbrepeat.s | 22 ++++++++++++++++++++++ libsrc/vic20/kbrepeat.s | 22 ++++++++++++++++++++++ 5 files changed, 110 insertions(+) create mode 100644 libsrc/c128/kbrepeat.s create mode 100644 libsrc/c64/kbrepeat.s create mode 100644 libsrc/pet/kbrepeat.s create mode 100644 libsrc/plus4/kbrepeat.s create mode 100644 libsrc/vic20/kbrepeat.s diff --git a/libsrc/c128/kbrepeat.s b/libsrc/c128/kbrepeat.s new file mode 100644 index 000000000..f515e4ca3 --- /dev/null +++ b/libsrc/c128/kbrepeat.s @@ -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 diff --git a/libsrc/c64/kbrepeat.s b/libsrc/c64/kbrepeat.s new file mode 100644 index 000000000..b6c33250b --- /dev/null +++ b/libsrc/c64/kbrepeat.s @@ -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 diff --git a/libsrc/pet/kbrepeat.s b/libsrc/pet/kbrepeat.s new file mode 100644 index 000000000..44d60575f --- /dev/null +++ b/libsrc/pet/kbrepeat.s @@ -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 diff --git a/libsrc/plus4/kbrepeat.s b/libsrc/plus4/kbrepeat.s new file mode 100644 index 000000000..8636d0e33 --- /dev/null +++ b/libsrc/plus4/kbrepeat.s @@ -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 diff --git a/libsrc/vic20/kbrepeat.s b/libsrc/vic20/kbrepeat.s new file mode 100644 index 000000000..5a4ad96f6 --- /dev/null +++ b/libsrc/vic20/kbrepeat.s @@ -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 -- 2.39.5