home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
tiexplorer.tar.gz
/
tiexplorer.tar
/
sclose.lsp
< prev
next >
Wrap
Lisp/Scheme
|
1986-09-22
|
3KB
|
57 lines
;;; -*- Mode: Lisp; Package: User; Base: 8.; Patch-File: T -*-
;;; RESTRICTED RIGHTS LEGEND
;;;Use, duplication, or disclosure by the Government is subject to
;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
;;;Technical Data and Computer Software clause at 52.227-7013.
;;;
;;; TEXAS INSTRUMENTS INCORPORATED.
;;; P.O. BOX 2909
;;; AUSTIN, TEXAS 78769
;;; MS 2151
;;;
;;; Copyright (c) 1986, Texas Instruments Incorporated. All rights reserved.
;;; Written 5/16/86 17:44:10 by FORD,
;;; Reason: Change :CLOSE to clear the hardware registers.
;;; while running on B from band LOD2
;;; with System 2.44, Compiler 2.5, File System 2.1, Universal Command Loop 2.0, Window System 2.5, Input Editor 2.0, ZMACS 2.5, Error Handler 2.0, Suggestions 2.1, Debug Utilities 2.7, Explorer-Net 2.6, Telnet 2.2, Vt100 2.0, File Server 2.0, Net-Config 2.2, Font Editor 2.2, Mailer 2.4, Mail-Reader 2.4, Streamer-Tape 2.7, Local-File 2.15, System-Log 2.2, Serial-Parallel 2.8, Printer 2.0, Glossary 2.0, IMAGEN 2.1, NVRAM 2.3, User Profile Utility 2.1, IP 1.15, Experimental Code Management Interface 2.22, Experimental Explorer Bug System 20.0, microcode 287, FAN23-MCR287-AUS.
#!Z
; From file SERIAL-STREAM.LISP#> SERIAL; A:
#8R SYSTEM-INTERNALS#:
(COMPILER-LET ((PACKAGE (PKG-FIND-PACKAGE "SYSTEM-INTERNALS"))
(SI:LISP-MODE :ZETALISP)
(*READTABLE* STANDARD-READTABLE)
(SI:*READER-SYMBOL-SUBSTITUTIONS* NIL))
(COMPILER#:PATCH-SOURCE-FILE "SYS: SERIAL; SERIAL-STREAM.#"
(Defmethod (Serial-Stream-Mixin :CLOSE) (&Optional Abort-P)
;; deallocate the serial buffers
(IF *serial-output-buffer*
(PROGN
(IF (NOT abort-p) (FUNCALL-SELF ':finish))
(return-serial-buffer *serial-Output-Buffer*)
(SETQ *Serial-Output-Buffer* nil)))
(IF *Serial-Input-Buffer*
(PROGN
(return-serial-buffer *Serial-Input-Buffer*)
(SETQ *Serial-Input-Buffer* nil)))
(array-dpb-offset 0 %%q-pointer *serial-port* %serial-receive-buffer)
(array-dpb-offset 0 %%q-pointer *serial-port* %serial-transmit-buffer)
(setq *serial-port-owner* nil)
(write-z-reg 9 0) ;clear master interrupt control register
(write-z-reg 5 0) ;DTR, RTS, Tx disable
(write-z-reg 3 0) ;Rx disable
(write-z-reg 15. 0) ;disable external interrupts
(write-z-reg 1 0) ;disable interrupts
(disable-serial-event) ;disable SIB serial event posting
)
))