Add CBM kernal call SECOND to CBM library (see issue #525)

diff --git a/doc/c128.sgml b/doc/c128.sgml
index feda1cbba2a534b4fc60bf76ec88c12ce3719df4..abb9dbf2532f2ef33bb5f84fc277387ec312ecac 100644 (file)
--- 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 6375a78981faea530f89154def803c9f244e97a2..aaf497d42ffcc7e4cd89afc506d89483fe2c5377 100644 (file)
--- 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 b04b40508fbe5fffa4aa01c8cfad3d4e6e44f124..a0043d3ad3d535b62a1c4835227e4abdf407b6bf 100644 (file)
--- 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 1e6a4e07b2fe9a68bc9f9d0fe79c2b8b9db2075c..d38d35d293ea92447c789acf2217c6db3cef6eb2 100644 (file)
--- 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 9f963dbd5c741c98292c54a75a4e065f6e8f35e8..44c9155a53a42a2e028daefdf7610b0a88147fd2 100644 (file)
--- 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 4a6e13c5e5ce1bfb61cf3f0c2ecc60577f02730a..85e75b43ffc1f60d793f6915afff2b6a7fd4bc45 100644 (file)
--- 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 333bd879a10e7ede800debfd38d15a1a16631986..ed5fa3d4ec16c9e421ef25f9c36ed7c3e3b7debe 100644 (file)
--- 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 1744a2b9019a4b7d44b678fc4bb1fccc2d32ccaa..79c2fb8986b833fa50af7a7d0774dc9cafedc656 100644 (file)
--- 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 (file)
index 0000000..b5cc98c
--- /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
+