Hi Monty,
On Wed, 2 Jan 2002 17:14, Monty McGraw wrote:
Just ran across your posting on the Tek 4041.
Cheers!
I've got both the Operators and Basic Programming Manuals for the 4041 and
two of the computers with tapes!
Cool. I have manuals now, but no tapes yet.
I ran across the same problem - no 4041 keyboard.
I hear they are very rare, but Im sure Ive seen one somewhere in a computer
auction some time back. Perhaps some other Tek computers used the same
keyboard? Certainly the plug is a common Tek type.
You didn't mention whether you have any of the option ROMs in your 4041.
They are in a pullout tray behind a snap in brown panel below the front
keypad (use a coin in the slot in the top of the panel). If you have the
Program Development ROMs you will be able to write 4041 BASIC programs -
otherwise your machine will only execute 4041 programs from tape :(
Yes, it has the Program Development ROMs, and I can enter and execute little
basic progs.
Since you say you've been able to type some commands on your keyboard
converter - I would say you might have the Program Development ROMs. I've
got the full set Program Development v2.1 #1 and #2, 4041 Graphics, 4041
Plotting, 4041 Signal Processing and the 4041 Utility ROM.
Ooooooohhhhh!
Here are some control key sequences (listed as RS232 control keys) to try:
Control-A Autonumber
Control-B Break
Control-C Abort
Control-D followed by 1-9,0 User Defined Functions 11-20
Control-E or Backspace Rubout
Control-F followed by 1-9,0 User Defined Functions 1-10
Control-H Rubout
Control-I or Tab Horizontal tab
Control-K Kill to end of line
Control-N Recall Next
Control-O Insert
Control-P Recall Previous
Control-Q Continue 4041 output
Control-R Recall Line
Control-S Stop 4041 output
Control-T Step
Control-U Clear
Control-V Autoload
Control-W Move cursor to beginning of line
Control-X Delete line
Control-\ Move cursor left
Control-] Move cursor right
Control-^ "Meta"-prefix
followed by C CONTINUE
followed by L LIST
followed by R RUN
followed by other chars ignored
ESCAPE Suppress immediate execution of the
following control character
The 4041 BASIC is a lot like 4050 series BASIC, but it has added commands
for tape directories, GPIB, and uses a Stream specification format for
devices.
My experience and 4041 Operators Manual says that RS232 must be configured
before it becomes operational. Their recommendation is to create a file
that is automatically loaded and run first on a tape when you press the
AutoLoad button on the keypad.
Yes, I understand there was a tape that originally came with a 4041 that did
just that.
The Tek System Verification tape actually prompts you "TERMINAL
CONFIG(1-YES,2-NO)" at the beginning and allows you to key in RS232
parameters which are then saved to the Verification Tape.
Using your "keyboard" try the following commands:
SET DRIVER "COMM(BAU=2400,BIT=7,PAR=ODD):"
SET CONSOLE "COMM(CON=YES):"
If you have two serial ports on your 4041 you may have to add a zero device
number to each of the lines (COMM0 instead of COMM).
Permitted COMM parameters and ranges:
BAUd 75,150,300,600,1200,2400,4800 default 2400
IBaud any integer from 2 to 9600 if 0, use the BAUd parameter
BIT 5,6,7,8,9 default 8, includes parity if used
(BIT=5 has no parity, BIT=9
must include parity) PARity NO,ODD,EVEn,HIGh,LOW default NO
STOp 1 or 2 default 2, for BIT=5 and STOp=2
uses 1.5 stop bits FLAgging NO,INPut,OUTput,BIDirectional, default OUTput
MODem,AMOdem,EMOdem
EDit RASter,STOrage,402,ANSi,850 default RASter
FORmat ASCii,ITEm default ASCii. ITEm allows full
8bit codes TYPe-ahead =>100 default 100. max 32K
DS OFF,ON default ON. Data Set Ready output
line CTS OFF,ON default ON. Clear to Send
output line DCD OFF,ON default ON. Data
Carrier Detect output line ERR LOG,REPort default
REP. errors displayed immediately ECHO YES,NO
default YES
CONtrol YES,NO default YES
CR CR,CRLf,LFCr default CRLf
LF LF,CRLf,LFCr default CRLf
For the BASIC OPEN command, from my programmers reference guide:
OPEN #logical unit: stream spec [,string var]
ex: 1020 OPEN #1: "TAPE: FILEB (OPEN=UPDATE)",LU1$
Logical Unit 1 is designated as the tape file FileB, to be
updated. LU1$ is given the entire stream spec string.
Here is an input from GPIB device example:
INPUT #"GPIB(PRI=21):": Var
The numeric value Var is read from device 21 on GPIB
I found GET in the full Programmers Reference book - it issues a GPIB Group
Execute Trigger command.
Syntax: GET[(numexp[,numexp]...)]
Bus Traffic:
[ATN UNL]
[ATN Listen-Address-1]
[{ATN Listen-Address-2}...]
ATN 8
Hope this helps,
Thanks for your kind efforts. I hope to get this sucker working soon. trying
to get DC-100 tapes at the moment.
Cheers.