Add support for the TRS-80 Model 3 via xtrs

git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@689 42af7a65-404d-4744-a932-0658087f49c3

1 files changed, 185 insertions, 0 deletions

diff --git a/nuttx/configs/xtrs/include/trs80-m3.h b/nuttx/configs/xtrs/include/trs80-m3.h
new file mode 100644
index 000000000..4a2a45332
--- /dev/null
+++ b/nuttx/configs/xtrs/include/trs80-m3.h
@@ -0,0 +1,185 @@
+/****************************************************************************
+ * board/trs80-m3.h
+ *
+ *   Copyright (C) 2008 Jacques Pelletier. All rights reserved.
+ *   Author: Jacques Pelletier
+ *
+ * This file is a part of NuttX and hence
+ *
+ *   Copyright (C) 2008 Gregory Nutt. All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in
+ *    the documentation and/or other materials provided with the
+ *    distribution.
+ * 3. Neither the name NuttX nor the names of its contributors may be
+ *    used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
+ * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
+ * COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
+ * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
+ * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
+ * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
+ * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ *
+ ****************************************************************************/
+
+/* Information from http://www.trs-80.com */
+
+#ifndef __TRS80_M3_H
+#define __TRS80_M3_H
+
+/* Outputs a byte to a logical device or FCB. DE = FCB and A = byte.
+ * Don't confuse with CTL at 0023.
+ */
+
+#define _TRS80_M3_PUT 		0x001B
+
+/* Outputs a control byte to a logical device or FCB. DE = FCB and A = control byte. */
+
+#define _TRS80_M3_CTL		0x0023
+
+/* Scan keyboard and return with accumulator containing result. DE is used. */
+
+#define _TRS80_M3_KBDSCN	0x002B
+
+/* Displays a character at current cursor location. */
+
+#define _TRS80_M3_VDCHAR	0x0033
+
+/* "Waits until printer is ready then prints character. A = ASCII character.
+ * If BREAK is pressed, a return to caller is made."
+ */
+
+#define _TRS80_M3_PRCHAR	0x003B
+
+/* Call Input a line from the keyboard. B = max length of line. HL points at buffer.
+ * Buffer should be the length of B plus 1. To terminate, hit BREAK or ENTER. 
+ * On exit, HL points at buffer and B = number of characters entered. 
+ * Carry will be set if BREAK was pressed.
+ */
+
+#define _TRS80_M3_KBLINE	0x0040
+
+/* "Scans the keyboard until a key is pressed. If BREAK is pressed, it is returned
+ * like other keys."
+ */
+
+#define _TRS80_M3_KBWAIT	0x0049
+
+/* "Receive a character from RS-232. No entry conditions. On exit, memory location
+ * 16872 contains character received. DE is altered. This routine honors wait status."
+ */
+
+#define _TRS80_M3_RSRCV		0x0050
+
+/* "Transmit character to RS-232. On entry, Accumulator or memory location 16880 
+ * contains character. On exit, 16880 = 0 if no character sent. Wait status honored."
+ */
+
+#define _TRS80_M3_RSTX		0x0055
+
+/* Initialize RS-232 interface. On entry, memory location 16888 = send/receive baud 
+ * rate code, location 16890 = wait/don't wait switch, location 16889 = RS-232
+ * characteristics switch. On exit, DE is altered. For more detail, consult Model 3
+ * reference manual.
+ */
+
+#define _TRS80_M3_RSINIT	0x005A
+
+/* This is the routine that is Basic's SET, RESET, and POINT functions. Here's how 
+ * to use it. Load HL with return address and push. Load register A with one of the 
+ * following: 00H = POINT, 01H = RESET, and 80H = SET. Push AF onto stack. Load A with 
+ * X coordinate and push onto stack. Load A with Y coordinate and JP GRAPH.
+ */
+
+#define _TRS80_M3_GRAPH		0x0150	
+
+/* Clear screen. */
+
+#define _TRS80_M3_CLS		0x01C9
+
+/* Randomize. */
+
+#define _TRS80_M3_RANDOM	0x01D3
+
+/* This routine turns off the cassette drive. */
+
+#define _TRS80_M3_CSOFF		0x01F8
+
+#ifdef TRS80_MODEL1
+
+/* A register contains a 0 or 1 which is the cassette number. This routine defines 
+ * cassette number and turns on cassette. Model I only.
+ */
+
+#define _TRS80_M3_DEFCAS	0x0212
+
+#endif /* TRS80_MODEL1 */
+
+/* Inputs data one byte at a time from cassette after you use CSHIN. A = the data
+ * byte.
+ */
+
+#define _TRS80_M3_CSIN		0x0235
+
+/* Outputs data one byte at a time to cassette after you use CSHWR. A = the 
+ * output byte.
+ */
+
+#define _TRS80_M3_CSOUT		0x0264
+
+/* Turns on the cassette and writes the header. */
+
+#define _TRS80_M3_CSHWR		0x0287
+
+/* Finds the cassette header info at the beggining of cassette file. */
+
+#define _TRS80_M3_CSHIN		0x0296
+
+/* Ouput character in register A; OUTSEL (409CH) selects device. See OUTSEL for
+ * device values.
+ */
+
+#define _TRS80_M3_OUTCHR	0x032A
+
+/* Displays character in A on screen at next print position. Uses AF. */
+
+#define _TRS80_M3_DISPA		0x033A
+
+/* Calls keyboard scan routine. */
+
+#define _TRS80_M3_keyb_scan	0x0358
+
+/* Reads keyboard into buffer until a carriage return is entered. 40A7H contains
+ * the address of the buffer.
+ */
+
+#define _TRS80_M3_KIBUFF	0x0361
+
+/* Same as KBLINE. See 0040. */
+
+#define _TRS80_M3_KLINE		0x05D9
+
+/* "Get date in ASCII format. Mod III TRSDOS, LDOS, & MULTIDOS." */
+
+#define _TRS80_M3_GETDAT 	0x3033
+
+/* "Get time in ASCII format. Mod III TRSDOS, LDOS, & MULTIDOS." */ 
+
+#define _TRS80_M3_GETTIM	0x3036
+
+#endif /* __TRS80_M3_H */