diff --git a/scsh/aix/tty-consts.scm b/scsh/aix/tty-consts.scm
new file mode 100644
index 0000000..c999f82
--- /dev/null
+++ b/scsh/aix/tty-consts.scm
@@ -0,0 +1,239 @@
+;;; Constant definitions for tty control code (POSIX termios).
+;;; Copyright (c) 1995 by Brian Carlstrom.
+;;; Largely rehacked by Olin.
+
+;;; These constants are for AIX 3.2.x, 
+;;; and are taken from /usr/include/sys/termio.h
+;;; 		   and /usr/include/sys/ttydev.h
+
+;;; Non-standard (POSIX, SVR4, 4.3+BSD) things:
+;;; - Some of the baud rates.
+
+
+;;; Special Control Characters 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;  Indices into the c_cc[] character array.
+
+;;;	Name	     		Subscript	Enabled by 
+;;;     ----         		---------	----------
+;;;  POSIX
+(define ttychar/eof		4)		; ^d icanon
+(define ttychar/eol		5)		;    icanon
+(define ttychar/delete-char	2)		; ^? icanon
+(define ttychar/delete-line	3)		; ^u icanon 
+(define ttychar/interrupt	0)		; ^c isig
+(define ttychar/quit		1)		; ^\ isig
+(define ttychar/suspend		9)		; ^z isig
+(define ttychar/start		7)		; ^q ixon, ixoff
+(define ttychar/stop		8)		; ^s ixon, ixoff
+(define ttychar/min		4)		;    !icanon	; Not exported
+(define ttychar/time		5)		;    !icanon	; Not exported
+
+;;; SVR4 & 4.3+BSD
+(define ttychar/delete-word	13)		; ^w icanon
+(define ttychar/reprint 	11)		; ^r icanon
+(define ttychar/literal-next	14)		; ^v iexten
+(define ttychar/discard		12)		; ^o iexten
+(define ttychar/delayed-suspend	10)		; ^y isig
+(define ttychar/eol2		6)		;    icanon
+
+;;; 4.3+BSD
+(define ttychar/status		#f)		; ^t icanon 
+
+;;; Length of control-char string -- *Not Exported*
+(define	num-ttychars		16)
+
+;;; Magic "disable feature" tty character
+(define disable-tty-char (ascii->char #x00))	; _POSIX_VDISABLE
+
+;;; Flags controllling input processing
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;  POSIX
+(define ttyin/ignore-break		#x00001)	; ignbrk
+(define ttyin/interrupt-on-break	#x00002)	; brkint
+(define ttyin/ignore-bad-parity-chars	#x00004)	; ignpar
+(define ttyin/mark-parity-errors	#x00008)	; parmrk
+(define ttyin/check-parity		#x00010)	; inpck
+(define ttyin/7bits			#x00020)	; istrip
+(define ttyin/nl->cr			#x00040)	; inlcr
+(define ttyin/ignore-cr			#x00080)	; igncr
+(define ttyin/cr->nl			#x00100)	; icrnl
+(define ttyin/output-flow-ctl		#x00200)	; ixon
+(define ttyin/input-flow-ctl		#x00400)	; ixoff
+
+
+;;; SVR4 & 4.3+BSD
+(define ttyin/xon-any	       #x1000)	; ixany: Any char restarts after stop
+(define ttyin/beep-on-overflow #x10000)	; imaxbel: queue full => ring bell
+
+;;; SVR4
+(define ttyin/lowercase	       #x800)	; iuclc: Map upper-case to lower case
+
+
+;;; Flags controlling output processing
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;  POSIX 
+(define	ttyout/enable		 #o000001)  ; opost: enable output processing
+
+;;; SVR4 & 4.3+BSD
+(define ttyout/nl->crnl		 #o000004)	; onlcr: map nl to cr-nl
+
+;;; 4.3+BSD
+(define ttyout/discard-eot	 #f)		; onoeot
+(define ttyout/expand-tabs	 #f)		; oxtabs (NOT xtabs)
+
+;;; SVR4
+(define ttyout/cr->nl		 #x000008)	; ocrnl
+(define ttyout/fill-w/del	 #x000080)	; ofdel
+(define ttyout/delay-w/fill-char #x000040)	; ofill
+(define ttyout/uppercase	 #x000002)	; olcuc
+(define ttyout/nl-does-cr	 #x000020)	; onlret
+(define ttyout/no-col0-cr	 #x000010)	; onocr
+
+;;; Newline delay
+(define	ttyout/nl-delay		#x004000)	; mask (nldly)
+(define	 ttyout/nl-delay0	#x000000)
+(define	 ttyout/nl-delay1	#x004000)	; tty 37 
+
+;;; Horizontal-tab delay
+(define	ttyout/tab-delay	#x000c00)	; mask (tabdly)
+(define	 ttyout/tab-delay0	#x000000)
+(define	 ttyout/tab-delay1	#x000400)	; tty 37 
+(define	 ttyout/tab-delay2	#x000800)
+(define	 ttyout/tab-delayx	#x000c00)	; Expand tabs (xtabs, tab3)
+
+;;; Carriage-return delay
+(define	ttyout/cr-delay		#x000300)	; mask (crdly)
+(define	 ttyout/cr-delay0	#x000000)
+(define	 ttyout/cr-delay1	#x000100)	; tn 300 
+(define	 ttyout/cr-delay2	#x000200)	; tty 37 
+(define	 ttyout/cr-delay3	#x000300)	; concept 100 
+
+;;; Vertical tab delay 
+(define	ttyout/vtab-delay	#x008000)	; mask (vtdly)
+(define	 ttyout/vtab-delay0	#x000000)
+(define	 ttyout/vtab-delay1	#x008000)	; tty 37 
+
+;;; Backspace delay
+(define	ttyout/bs-delay		#x001000)	; mask (bsdly)
+(define	 ttyout/bs-delay0	#x000000)
+(define	 ttyout/bs-delay1	#x001000)
+
+;;; Form-feed delay
+(define ttyout/ff-delay		#x002000)	; mask (ffdly)
+(define	 ttyout/ff-delay0	#x000000)
+(define	 ttyout/ff-delay1	#x002000)
+
+(define	ttyout/all-delay
+  (bitwise-ior (bitwise-ior (bitwise-ior ttyout/nl-delay ttyout/tab-delay)
+			    (bitwise-ior ttyout/cr-delay ttyout/vtab-delay))
+	       (bitwise-ior ttyout/bs-delay ttyout/ff-delay)))
+
+
+;;; Control flags - hacking the serial-line.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;  POSIX
+(define ttyc/char-size		#x00030)	; csize: character size mask 
+(define  ttyc/char-size5	#x00000)	; 5 bits (cs5)
+(define  ttyc/char-size6	#x00010)	; 6 bits (cs6)
+(define  ttyc/char-size7	#x00020)	; 7 bits (cs7)
+(define  ttyc/char-size8	#x00030)	; 8 bits (cs8)
+(define ttyc/2-stop-bits	#x00040)	; cstopb: Send 2 stop bits.
+(define ttyc/enable-read	#x00080)	; cread: Enable receiver.
+(define ttyc/enable-parity	#x00100)	; parenb
+(define ttyc/odd-parity		#x00200)	; parodd
+(define ttyc/hup-on-close	#x00400)	; hupcl: Hang up on last close.
+(define ttyc/no-modem-sync	#x00800)	; clocal: Ignore modem lines.
+
+;;;  4.3+BSD
+(define	ttyc/ignore-flags	 #f)	; cignore: ignore control flags 
+(define ttyc/CTS-output-flow-ctl #f)	; ccts_oflow: CTS flow control of output
+(define ttyc/RTS-input-flow-ctl  #f)	; crts_iflow: RTS flow control of input
+(define ttyc/carrier-flow-ctl	 #f)	; mdmbuf
+
+;;; Local flags -- hacking the tty driver / user interface.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;  POSIX
+(define ttyl/visual-delete    #x010)	; echoe: Visually erase chars
+(define ttyl/echo-delete-line #x020)	; echok: Echo nl after line kill
+(define ttyl/echo	      #x008)	; echo:  Enable echoing
+(define ttyl/echo-nl	      #x040)	; echonl: Echo nl even if echo is off
+(define ttyl/canonical	      #x002)	; icanon: Canonicalize input
+(define ttyl/enable-signals   #x001)	; isig: Enable ^c, ^z signalling
+(define ttyl/extended	     #x00200000); iexten:  Enable extensions
+(define ttyl/ttou-signal      #x10000)	; tostop: SIGTTOU on background output
+(define ttyl/no-flush-on-interrupt #x80) ; noflsh
+
+;;; SVR4 & 4.3+BSD
+(define ttyl/visual-delete-line #x080000); echoke: visually erase a line-kill 
+(define ttyl/hardcopy-delete	#x040000); echoprt: visual erase for hardcopy 
+(define ttyl/echo-ctl		#x020000); echoctl: echo control chars as "^X" 
+(define ttyl/flush-output	#x100000); flusho: output is being flushed
+(define ttyl/reprint-unread-chars #x20000000); pendin: retype pending input
+
+;;; 4.3+BSD
+(define ttyl/alt-delete-word	#f)	; altwerase
+(define ttyl/no-kernel-status	#f)	; nokerninfo: no kernel status on ^T
+
+;;; SVR4
+(define ttyl/case-map #x4)	; xcase: canonical upper/lower presentation
+
+;;; Baud Rates
+(define baud/0		0)
+(define baud/50		1)
+(define baud/75		2)
+(define baud/110	3)
+(define baud/134	4)
+(define baud/150	5)
+(define baud/200	6)
+(define baud/300	7)
+(define baud/600	8)
+(define baud/1200	9)
+(define baud/1800	10)
+(define baud/2400	11)
+(define baud/4800	12)
+(define baud/9600	13)
+(define baud/19200	14)
+(define baud/38400	15)
+(define baud/exta	14)		;non-standard
+(define baud/extb	15)		;non-standard
+
+;;; Rather cheesy mechanism here.
+;;; Vector of lists because some OS's define EXTA and EXTB to be
+;;; the same code as 19.2k and 38.4k baud.
+
+(define baud-rates '#((0)		(50)		(75)
+		      (110)		(134)		(150)
+		      (200)		(300)		(600)
+		      (1200)		(1800)		(2400)
+		      (4800)		(9600)		(19200 exta)
+		      (38400 extb)))
+
+
+;;; tcflush() constants
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define %flush-tty/input  0)	; TCIFLUSH
+(define %flush-tty/output 1)	; TCOFLUSH
+(define %flush-tty/both	  2)	; TCIOFLUSH
+
+
+;;; tcflow() constants
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define %tcflow/start-out 1)	; TCOON
+(define %tcflow/stop-out  0)	; TCOOFF
+(define %tcflow/start-in  3)	; TCION
+(define %tcflow/stop-in   2)	; TCIOFF
+
+
+;;; tcsetattr() constants
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define %set-tty-info/now	0)	; TCSANOW   Make change immediately.
+(define %set-tty-info/drain	1)	; TCSADRAIN Drain output, then change.
+(define %set-tty-info/flush	2)	; TCSAFLUSH Drain output, flush input.
diff --git a/scsh/endian.scm b/scsh/endian.scm
deleted file mode 100644
index 9394439..0000000
--- a/scsh/endian.scm
+++ /dev/null
@@ -1,36 +0,0 @@
-;;; Endian routines for the Scheme Shell
-;;; Copyright (c) 1995 by Brian D. Carlstrom.
-
-;; Big Endian - Motorola, Sparc, HPPA, etc
-(define (net-to-host-32-big num32)
-  (and (<= 0 num32 #xffffffff)
-       num32))
-
-(define (net-to-host-16-big num16)
-  (and (<= 0 num16 #xffffffff)
-       num16))
-
-;; Little Endian - Intel, Vax, Alpha
-(define (net-to-host-32-little num32)
-  (and (<= 0 num32 #xffffffff)
-       (let* ((num24 (arithmetic-shift num32 -8))
-	      (num16 (arithmetic-shift num24 -8))
-	      (num08 (arithmetic-shift num16 -8))
-	      (byte0 (bitwise-and #b11111111 num08))
-	      (byte1 (bitwise-and #b11111111 num16))
-	      (byte2 (bitwise-and #b11111111 num24))
-	      (byte3 (bitwise-and #b11111111 num32)))
-	 (+ (arithmetic-shift byte3 24)
-
-(define (net-to-host-16-little num16)
-  (and (<= 0 num16 #xffffffff)
-       (let* ((num08 (arithmetic-shift num16 -8))
-	      (byte0 (bitwise-and #b11111111 num08))
-	      (byte1 (bitwise-and #b11111111 num16))
-	 (+ (arithmetic-shift byte1 8)
-	    byte0))))
-
-(define net-to-host-32 net-to-host-32-@ENDIAN@)
-(define net-to-host-16 net-to-host-16-@ENDIAN@)
-(define host-to-net-32 host-to-net-32-@ENDIAN@)
-(define host-to-net-16 host-to-net-16-@ENDIAN@)
diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm
index e103297..e2c5d41 100644
--- a/scsh/scsh-package.scm
+++ b/scsh/scsh-package.scm
@@ -209,6 +209,7 @@
 	 time			; New in release 0.2.
 	 (machine time_dep)
 	 network		; New in release 0.3.
+	 endian			; New in release 0.4.
 	 flock			; New in release 0.4.
 	 tty			; New in release 0.4.
 	 pty			; New in release 0.4.