initial import from old sources

diff --git a/libsrc/c128/kbrepeat.s b/libsrc/c128/kbrepeat.s
new file mode 100644 (file)
index 0000000..f515e4c
--- /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 (file)
index 0000000..b6c3325
--- /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 (file)
index 0000000..44d6057
--- /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 (file)
index 0000000..8636d0e
--- /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 (file)
index 0000000..5a4ad96
--- /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