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/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