Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Initial support for the Osborne Executive and Osborne 1 #14

Open
wants to merge 3 commits into
base: master
Choose a base branch
from
Open

Initial support for the Osborne Executive and Osborne 1 #14

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
bd48ccd
Adaptation for the Osborne Executive.
indrekis Apr 14, 2023
3966e29
Adaptation for the Osborne 1.
indrekis Apr 14, 2023
4a76980
Update README.MD
indrekis Apr 14, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions README.MD
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -434,6 +434,8 @@ Current CP/M adaptations are:
and WordStar keys.
- `te_c128` : Commodore 128 and CP/M Plus (25x80 ADM-31/3A like terminal).
- `te_sam` : SAM Coupe and Pro-Dos (24x80 VT52 like terminal).
- `te_osbe` : Osborne Executive (25x80 ADM-3A like terminal).
- `te_osb1` : Osborne 1 (25x52 ADM-3A like terminal).

Adaptations for other OS are (they are not distributed yet):
- Windows 32 bit (25x80), compiled with Pelles C
Expand Down
59 changes: 59 additions & 0 deletions TE_OSB1.CF
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,59 @@
# ========================================
# Default TE configuration for:
# Osborne 1
# ========================================
te.confName = "Osborne 1"

screen.rows = 24
# Correct columns value is 52, but it leads
# to horizontal scrolling for the last symbol
# (some bug in code?), so as a quick fix
screen.columns = 51

screen.rulerChar = .
screen.rulerTabChar = !
screen.vertChar = |
screen.horizChar = -
screen.lineNumbersChar = |

editor.maxLines = 512
editor.tabSize = 4
editor.lineNumbers = true
editor.c_language = true
editor.autoIndent = true
editor.autoList = true
editor.listBullets = "-*>"

keyname.newLine = RETURN
keyname.escape = ESC

key.up = ^K
key.down = ^J
key.left = ^H
key.right = ^L
key.begin = ^V
key.end = ^\
key.top = ^P
key.bottom = ^S
key.pgUp = ^Q
key.pgDown = ^Z
key.indent = ^I
key.newLine = ^M
key.escape = ^[
key.delRight = ^G
key.delLeft = ^?
key.cut = ^U
key.copy = ^R
key.paste = ^W
key.delete = ^X
key.clearClip = ^T
key.find = ^F
key.findNext = ^D
key.goLine = ^A
#key.wordLeft = ""
#key.wordRight = ""
key.blockStart = ^BS
key.blockEnd = ^BE
key.blockUnset = ^BU
key.macro = ^Y

Binary file added TE_OSB1.COM
View file
Open in desktop
Binary file not shown.
56 changes: 56 additions & 0 deletions TE_OSBE.CF
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,56 @@
# ========================================
# Default TE configuration for:
# Osborne Executive
# ========================================
te.confName = "Osborne Executive"

screen.rows = 24
screen.columns = 80

screen.rulerChar = .
screen.rulerTabChar = !
screen.vertChar = |
screen.horizChar = -
screen.lineNumbersChar = |

editor.maxLines = 512
editor.tabSize = 4
editor.lineNumbers = true
editor.c_language = true
editor.autoIndent = true
editor.autoList = true
editor.listBullets = "-*>"

keyname.newLine = RETURN
keyname.escape = ESC

key.up = ^K
key.down = ^J
key.left = ^H
key.right = ^L
key.begin = ^V
key.end = ^\
key.top = ^P
key.bottom = ^S
key.pgUp = ^Q
key.pgDown = ^Z
key.indent = ^I
key.newLine = ^M
key.escape = ^[
key.delRight = ^G
key.delLeft = ^?
key.cut = ^U
key.copy = ^R
key.paste = ^W
key.delete = ^X
key.clearClip = ^T
key.find = ^F
key.findNext = ^D
key.goLine = ^A
#key.wordLeft = ""
#key.wordRight = ""
key.blockStart = ^BS
key.blockEnd = ^BE
key.blockUnset = ^BU
key.macro = ^Y

Binary file added TE_OSBE.COM
View file
Open in desktop
Binary file not shown.
187 changes: 187 additions & 0 deletions te_osb1.c
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,187 @@
/* te_osb1.c

Text editor -- version for the Osborne 1.

Adapted by Oleg Farenyuk from a version for the Kaypro II,
adapted by Stephen S. Mitchell from a version for the Amstrad PCW,
written by Miguel Garcia / Floppy Software.

Copyright (c) 2015-2021 Miguel Garcia / FloppySoftware
Copyright (c) 2023 Oleg Farenyuk aka Indrekis

This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

Usage:

te_osb1 [filename]

Compilation:

cc te_osb1
ccopt te_osb1
zsm te_osb1
hextocom te_osb1
[tecf patch te_osb1 te_osb1]

Changes:

Original code: July 4, 2015.

13 Apr 2023 : Oleg Farenyuk : copied and modified te_osbe.c

Notes:

-
*/

/* Default configuration values
----------------------------
Correct columns value is 52, but it leads
to horizontal scrolling for the last symbol
(some bug in code?), so as a quick fix
*/
#define CRT_DEF_ROWS 24
#define CRT_DEF_COLS 51

/* Options
-------
Set to 1 to add the following functionalities, else 0.
*/
#define OPT_LWORD 0 /* Go to word on the left */
#define OPT_RWORD 0 /* Go to word on the right */
#define OPT_FIND 1 /* Find string */
#define OPT_GOTO 1 /* Go to line # */
#define OPT_BLOCK 1 /* Block selection */
#define OPT_MACRO 1 /* Enable macros */

/* Include main code
-----------------
*/
#include "te.c"

/* Setup CRT: Used when the editor starts
--------------------------------------
void CrtSetup(void)
*/
CrtSetup()
{
CrtSetupEx();
}

#asm
CrtSetupEx:
ld hl,(1)
inc hl
inc hl
inc hl
ld de,BiosConst
ld bc,9
ldir
ret

BiosConst: jp 0
BiosConin: jp 0
BiosConout: jp 0
#endasm

/* Reset CRT: Used when the editor exits
-------------------------------------
void CrtReset(void)
*/
CrtReset()
{
}

/* Output character to the CRT
---------------------------
All program output is done with this function.

On '\n' outputs '\n' + '\r'.

void CrtOut(int ch)
*/
#asm
CrtOut:
ld c,l
ld a,l
cp 10
jp nz,BiosConout
call BiosConout
ld c,13
jp BiosConout
#endasm

/* Input character from the keyboard
---------------------------------
All program input is done with this function.

int CrtIn(void)
*/
#asm
CrtIn:
call BiosConin
ld h,0
ld l,a
ret
#endasm

/* Clear screen and send cursor to 0,0
-----------------------------------
void CrtClear(void)
*/
CrtClear()
{
CrtOut(0x1A);
}

/* Locate the cursor (HOME is 0,0)
-------------------------------
void CrtLocate(int row, int col)
*/
CrtLocate(row, col)
int row, col;
{
CrtOut(27); CrtOut('='); CrtOut(row + 32); CrtOut(col + 32);
}

/* Erase line and cursor to row,0
------------------------------
void CrtClearLine(int row)
*/
CrtClearLine(row)
int row;
{
CrtLocate(row, 0); CrtClearEol();
}

/* Erase from the cursor to the end of the line
--------------------------------------------
*/
CrtClearEol()
{
CrtOut(27); CrtOut(84);
}

/* Turn on / off reverse video
---------------------------
*/
CrtReverse(on)
int on;
{
/* Used underline -- Osborne 1 does not have a reverse mode */
CrtOut(27); CrtOut(on ? 'l' : 'm');
}


Loading