Tektronix 4041 GPIB controller

From: Mike McCauley <mikem_at_open.com.au>
Date: Wed Jan 2 01:17:14 2002

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.
Received on Wed Jan 02 2002 - 01:17:14 GMT

This archive was generated by hypermail 2.3.0 : Fri Oct 10 2014 - 23:34:51 BST