-;----------------------------------------------------------------------------
-; 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
- sta ACIA_CMD
-
-; Initalize buffers.
-
- jsr InitBuffers
-
-; Return OK
-
- lda #<SER_ERR_OK
- tax ; A is zero
- rts
-