Added library reference ser_libref to SER interface.

2013-06-01 11:03:14 +02:00
parent 744abda24f
commit ae409e4978
18 changed files with 74 additions and 27 deletions
--- a/libsrc/apple2/libref.s
+++ b/libsrc/apple2/libref.s
@@ -2,9 +2,10 @@
 ; Oliver Schmidt, 2013-05-31
 ;

-        .export         em_libref, joy_libref, mouse_libref
+        .export         em_libref, joy_libref, mouse_libref, ser_libref
        .import         _exit

 em_libref       := _exit
 joy_libref      := _exit
 mouse_libref    := _exit
+ser_libref      := _exit
--- a/libsrc/apple2/ser/a2.ssc.s
+++ b/libsrc/apple2/ser/a2.ssc.s
@@ -34,7 +34,10 @@
        .byte   $73, $65, $72           ; "ser"
        .byte   SER_API_VERSION         ; Serial API version number

-        ; Jump table.
+        ; Library reference
+        .addr   $0000
+
+        ; Jump table
        .addr   INSTALL
        .addr   UNINSTALL
        .addr   OPEN
--- a/libsrc/atmos/libref.s
+++ b/libsrc/atmos/libref.s
@@ -2,7 +2,8 @@
 ; Oliver Schmidt, 2013-05-31
 ;

-        .export         joy_libref
+        .export         joy_libref, ser_libref
        .import         _exit

 joy_libref      := _exit
+ser_libref      := _exit
--- a/libsrc/atmos/ser/atmos-acia.s
+++ b/libsrc/atmos/ser/atmos-acia.s
@@ -35,7 +35,10 @@
        .byte   $73, $65, $72           ; "ser"
        .byte   SER_API_VERSION         ; Serial API version number

-        ; Jump table.
+        ; Library reference
+        .addr   $0000
+
+        ; Jump table
        .addr   INSTALL
        .addr   UNINSTALL
        .addr   OPEN
--- a/libsrc/c128/libref.s
+++ b/libsrc/c128/libref.s
@@ -2,9 +2,10 @@
 ; Oliver Schmidt, 2013-05-31
 ;

-        .export         em_libref, joy_libref, mouse_libref
+        .export         em_libref, joy_libref, mouse_libref, ser_libref
        .import         _exit

 em_libref       := _exit
 joy_libref      := _exit
 mouse_libref    := _exit
+ser_libref      := _exit
--- a/libsrc/c128/ser/c128-swlink.s
+++ b/libsrc/c128/ser/c128-swlink.s
@@ -37,7 +37,11 @@
        .byte   $73, $65, $72           ; "ser"
        .byte   SER_API_VERSION         ; Serial API version number

-; Jump table.
+; Library reference
+
+        .addr   $0000
+
+; Jump table

        .word   INSTALL
        .word   UNINSTALL
--- a/libsrc/c64/libref.s
+++ b/libsrc/c64/libref.s
@@ -2,9 +2,10 @@
 ; Oliver Schmidt, 2013-05-31
 ;

-        .export         em_libref, joy_libref, mouse_libref
+        .export         em_libref, joy_libref, mouse_libref, ser_libref
        .import         _exit

 em_libref       := _exit
 joy_libref      := _exit
 mouse_libref    := _exit
+ser_libref      := _exit
--- a/libsrc/c64/ser/c64-swlink.s
+++ b/libsrc/c64/ser/c64-swlink.s
@@ -37,7 +37,11 @@
        .byte   $73, $65, $72           ; "ser"
        .byte   SER_API_VERSION         ; Serial API version number

-; Jump table.
+; Library reference
+
+        .addr   $0000
+
+; Jump table

        .word   INSTALL
        .word   UNINSTALL
--- a/libsrc/cbm510/libref.s
+++ b/libsrc/cbm510/libref.s
@@ -2,8 +2,9 @@
 ; Oliver Schmidt, 2013-05-31
 ;

-        .export         em_libref, joy_libref
+        .export         em_libref, joy_libref, ser_libref
        .import         _exit

 em_libref       := _exit
 joy_libref      := _exit
+ser_libref      := _exit
--- a/libsrc/cbm510/ser/cbm510-std.s
+++ b/libsrc/cbm510/ser/cbm510-std.s
@@ -38,7 +38,11 @@
        .byte   $73, $65, $72           ; "ser"
        .byte   SER_API_VERSION         ; Serial API version number

-; Jump table.
+; Library reference
+
+        .addr   $0000
+
+; Jump table

        .word   INSTALL
        .word   UNINSTALL
--- a/libsrc/cbm610/libref.s
+++ b/libsrc/cbm610/libref.s
@@ -2,7 +2,8 @@
 ; Oliver Schmidt, 2013-05-31
 ;

-        .export         em_libref
+        .export         em_libref, ser_libref
        .import         _exit

 em_libref       := _exit
+ser_libref      := _exit
--- a/libsrc/cbm610/ser/cbm610-std.s
+++ b/libsrc/cbm610/ser/cbm610-std.s
@@ -38,7 +38,11 @@
        .byte   $73, $65, $72           ; "ser"
        .byte   SER_API_VERSION         ; Serial API version number

-; Jump table.
+; Library reference
+
+        .addr   $0000
+
+; Jump table

        .word   INSTALL
        .word   UNINSTALL
--- a/libsrc/lynx/libref.s
+++ b/libsrc/lynx/libref.s
@@ -2,7 +2,8 @@
 ; Oliver Schmidt, 2013-05-31
 ;

-        .export         joy_libref
+        .export         joy_libref, ser_libref
        .import         _exit

 joy_libref      := _exit
+ser_libref      := _exit
--- a/libsrc/lynx/ser/lynx-comlynx.s
+++ b/libsrc/lynx/ser/lynx-comlynx.s
@@ -18,7 +18,10 @@
        .byte   $73, $65, $72           ; "ser"
        .byte   SER_API_VERSION         ; Serial API version number

-        ; Jump table.
+        ; Library reference
+        .addr   $0000
+
+        ; Jump table
        .addr   INSTALL
        .addr   UNINSTALL
        .addr   OPEN
--- a/libsrc/plus4/libref.s
+++ b/libsrc/plus4/libref.s
@@ -2,7 +2,8 @@
 ; Oliver Schmidt, 2013-05-31
 ;

-        .export         joy_libref
+        .export         joy_libref, ser_libref
        .import         _exit

 joy_libref      := _exit
+ser_libref      := _exit
--- a/libsrc/plus4/ser/plus4-stdser.s
+++ b/libsrc/plus4/ser/plus4-stdser.s
@@ -37,7 +37,11 @@
        .byte   $73, $65, $72           ; "ser"
        .byte   SER_API_VERSION         ; Serial API version number

-; Jump table.
+; Library reference
+
+        .addr   $0000
+
+; Jump table

        .word   INSTALL
        .word   UNINSTALL
--- a/libsrc/serial/ser-kernel.s
+++ b/libsrc/serial/ser-kernel.s
@@ -4,7 +4,7 @@
 ; Common functions of the serial drivers
 ;

-        .import         return0
+        .import         return0, ser_libref
        .importzp       ptr1
        .interruptor    ser_irq, 29     ; Export as high priority IRQ handler

@@ -58,6 +58,15 @@ _ser_install:
        dey
        bpl     @L0

+; Set the library reference
+
+        ldy     #SER_HDR::LIBREF
+        lda     #<ser_libref
+        sta     (ptr1),y
+        iny
+        lda     #>ser_libref
+        sta     (ptr1),y
+
 ; Copy the jump vectors

        ldy     #SER_HDR::JUMPTAB