CLOSE is actually the same as INSTALL/UNINSTALL

[cc65] / libsrc / cbm610 / cbm610-stdser.s

diff --git a/libsrc/cbm610/cbm610-stdser.s b/libsrc/cbm610/cbm610-stdser.s
index 491a7fe816df1bce47a3b4a940c6c1d6d1dc3c92..c0840d52bb4c52f3b2048599d38d5cf8b466e35d 100644 (file)
--- a/libsrc/cbm610/cbm610-stdser.s
+++ b/libsrc/cbm610/cbm610-stdser.s
@@ -125,10 +125,16 @@ ParityTable:
 ;
 ; UNINSTALL routine. Is called before the driver is removed from memory.
 ; Must return an SER_ERR_xx code in a/x.
-
+;
+; and:
+;
+; CLOSE: Close the port, disable interrupts and flush the buffer. Called
+; without parameters. Must return an error code in a/x.
+;
 
 INSTALL:
 UNINSTALL:
+CLOSE:
 
 ; Deactivate DTR and disable 6551 interrupts
 
@@ -216,28 +222,6 @@ InvBaud:
         ldx     #>SER_ERR_BAUD_UNAVAIL
         rts
 
-;----------------------------------------------------------------------------
-; CLOSE: Close the port, disable interrupts and flush the buffer. Called
-; without parameters. Must return an error code in a/x.
-;
-
-CLOSE:
-
-; Stop interrupts, drop DTR
-
-       lda     #%00001010
-        jsr     write_cmd
-
-; Initalize buffers.
-
-        jsr     InitBuffers
-
-; Return OK
-
-        lda     #<SER_ERR_OK
-        tax                             ; A is zero
-               rts
-
 ;----------------------------------------------------------------------------
 ; GET: Will fetch a character from the receive buffer and store it into the
 ; variable pointer to by ptr1. If no data is available, SER_ERR_NO_DATA is