Moving rs232 support to modules

git-svn-id: svn://svn.cc65.org/cc65/trunk@2058 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-04-15 20:47:29 +00:00
parent 4fbcb43763
commit 6bbed31ff2
5 changed files with 416 additions and 0 deletions
--- a/libsrc/serial/ser_unload.s
+++ b/libsrc/serial/ser_unload.s
@@ -0,0 +1,31 @@
+;
+; Ullrich von Bassewitz, 2003-04-15
+;
+; unsigned char __fastcall__ ser_unload (void);
+; /* Unload the currently loaded driver. */
+
+
+        .import         ser_clear_ptr
+
+        .include        "ser-kernel.inc"
+        .include        "ser-error.inc"
+        .include        "modload.inc"
+
+_ser_unload:
+    	lda	_ser_drv
+	ora	_ser_drv+1
+       	beq    	no_driver		; No driver
+
+	jsr	ser_uninstall		; Deinstall the driver
+
+        lda     _ser_drv
+        ldx     _ser_drv+1
+        jsr     _mod_free               ; Free the driver
+
+        jmp     ser_clear_ptr           ; Clear the driver pointer, return zero
+
+no_driver:
+	tax				; X = 0
+	lda	#SER_ERR_NO_DRIVER
+	rts
+