From 8ffe623e74c1eba90d580d0cad5abe00a90e1d3a Mon Sep 17 00:00:00 2001
From: compyx <b.wassink@ziggo.nl>
Date: Wed, 23 May 2018 17:32:02 +0200
Subject: [PATCH] Add CBM kernal call SECOND to CBM library (see issue #525)

---
 doc/c128.sgml         |  1 +
 doc/c16.sgml          |  1 +
 doc/c64.sgml          |  1 +
 doc/cbm510.sgml       |  1 +
 doc/cbm610.sgml       |  1 +
 doc/funcref.sgml      | 26 ++++++++++++++++++++++++++
 doc/plus4.sgml        |  1 +
 doc/vic20.sgml        |  1 +
 libsrc/cbm/c_second.s | 12 ++++++++++++
 9 files changed, 45 insertions(+)
 create mode 100644 libsrc/cbm/c_second.s

diff --git a/doc/c128.sgml b/doc/c128.sgml
index feda1cbba..abb9dbf25 100644
--- a/doc/c128.sgml
+++ b/doc/c128.sgml
@@ -125,6 +125,7 @@ declaration and usage.
 <item>cbm_k_bsout
 <item>cbm_k_clrch
 <item>cbm_k_tksa
+<item>cbm_k_second
 <item>cbm_load
 <item>cbm_open
 <item>cbm_opendir
diff --git a/doc/c16.sgml b/doc/c16.sgml
index 6375a7898..aaf497d42 100644
--- a/doc/c16.sgml
+++ b/doc/c16.sgml
@@ -116,6 +116,7 @@ declaration and usage.
 <item>cbm_k_bsout
 <item>cbm_k_clrch
 <item>cbm_k_tksa
+<item>cbm_k_second
 <item>cbm_load
 <item>cbm_open
 <item>cbm_opendir
diff --git a/doc/c64.sgml b/doc/c64.sgml
index b04b40508..a0043d3ad 100644
--- a/doc/c64.sgml
+++ b/doc/c64.sgml
@@ -218,6 +218,7 @@ declaration and usage.
 <item>cbm_k_bsout
 <item>cbm_k_clrch
 <item>cbm_k_tksa
+<item>cbm_k_second
 <item>cbm_load
 <item>cbm_open
 <item>cbm_opendir
diff --git a/doc/cbm510.sgml b/doc/cbm510.sgml
index 1e6a4e07b..d38d35d29 100644
--- a/doc/cbm510.sgml
+++ b/doc/cbm510.sgml
@@ -119,6 +119,7 @@ declaration and usage.
 <item>cbm_k_bsout
 <item>cbm_k_clrch
 <item>cbm_k_tksa
+<item>cbm_k_second
 <item>cbm_load
 <item>cbm_open
 <item>cbm_opendir
diff --git a/doc/cbm610.sgml b/doc/cbm610.sgml
index 9f963dbd5..44c9155a5 100644
--- a/doc/cbm610.sgml
+++ b/doc/cbm610.sgml
@@ -122,6 +122,7 @@ declaration and usage.
 <item>cbm_k_bsout
 <item>cbm_k_clrch
 <item>cbm_k_tksa
+<item>cbm_k_second
 <item>cbm_load
 <item>cbm_open
 <item>cbm_opendir
diff --git a/doc/funcref.sgml b/doc/funcref.sgml
index 4a6e13c5e..85e75b43f 100644
--- a/doc/funcref.sgml
+++ b/doc/funcref.sgml
@@ -200,6 +200,7 @@ function.
 <item><ref id="cbm_k_readst" name="cbm_k_readst">
 <item><ref id="cbm_k_save" name="cbm_k_save">
 <item><ref id="cbm_k_scnkey" name="cbm_k_scnkey">
+<item><ref id="cbm_k_second" name="cbm_k_second">
 <item><ref id="cbm_k_setlfs" name="cbm_k_setlfs">
 <item><ref id="cbm_k_setnam" name="cbm_k_setnam">
 <item><ref id="cbm_k_talk" name="cbm_k_talk">
@@ -2224,6 +2225,31 @@ function, in order to provide input from the keyboard.
 </quote>
 
 
+<sect1>cmb_k_second<label id="cbm_k_second"><p>
+
+<quote>
+<descrip>
+<tag/Function/Send secondary address for LISTEN.
+<tag/Header/<tt/<ref id="cbm.h" name="cbm.h">/
+<tag/Declaration/<tt/void cbm_k_second (unsigned char addr);/
+<tag/Description/This function is used to send a secondary address to an I/O
+device after a call to LISTEN is made, and the device is commanded to LISTEN.
+<tag/Notes/<itemize>
+<item>The function is only available as fastcall function, so it may
+only be used in presence of a prototype.
+<item>The function can only be called after a call to LISTEN.
+<item>The function will not work after a TALK.
+<item>When a secondary address is to be sent to a device on the serial bus,
+the address must first be ORed with $60.
+</itemize>
+<tag/Availability/cc65
+<tag/See also/
+<ref id="cbm_k_listen" name="cbm_k_listen">
+<tag/Exampe/None.
+</descrip>
+</quote>
+
+
 <sect1>cbm_k_setlfs<label id="cbm_k_setlfs"><p>
 
 <quote>
diff --git a/doc/plus4.sgml b/doc/plus4.sgml
index 333bd879a..ed5fa3d4e 100644
--- a/doc/plus4.sgml
+++ b/doc/plus4.sgml
@@ -114,6 +114,7 @@ declaration and usage.
 <item>cbm_k_bsout
 <item>cbm_k_clrch
 <item>cbm_k_tksa
+<item>cbm_k_second
 <item>cbm_load
 <item>cbm_open
 <item>cbm_opendir
diff --git a/doc/vic20.sgml b/doc/vic20.sgml
index 1744a2b90..79c2fb898 100644
--- a/doc/vic20.sgml
+++ b/doc/vic20.sgml
@@ -100,6 +100,7 @@ declaration and usage.
 <item>cbm_k_bsout
 <item>cbm_k_clrch
 <item>cbm_k_tksa
+<item>cbm_k_second
 <item>cbm_load
 <item>cbm_open
 <item>cbm_opendir
diff --git a/libsrc/cbm/c_second.s b/libsrc/cbm/c_second.s
new file mode 100644
index 000000000..b5cc98c80
--- /dev/null
+++ b/libsrc/cbm/c_second.s
@@ -0,0 +1,12 @@
+;
+; Bas Wassink, 23.05.2018
+;
+; void __fastcall__ cbm_k_second (unsigned char addr)
+;
+
+
+        .import SECOND
+        .export _cbm_k_second
+
+_cbm_k_second = SECOND
+
-- 
2.39.2