UDS-10: Can it be done? (I've not been successful)...

[Omega-TI]

The Situation

I've been using the PC to switch back and forth between settings for Stuart's Internet Browser and Tim's TIMXT program that I use to call the BBS.

 

The Requirement

I'd like to be able to remove the PC requirement from the equation. Has anyone yet figured out a way to set the UDS-10 from the TI side? Can it be done? If so, I've not figured it out.

 

Since I'll probably have need to switch back and forth more often in the near future, it sure would be nice to do it all on the TI.

 

 

 

 

[Stuart]

Well the easiest thing to do is just to get another UDS-10 and plug in either one or the other according to what you're doing.

 

The UDS-10 can be configured through the serial port. What configuration do you need for the TIMXT program?

[Mad Hatter]

Yeah like Stuart said, just perform a serial port login. Set up TIMXT for 9600 8-N-1, cycle the UDS' power, then enter THREE lowercase "x" characters within one second and it should put you into the UDS' menu.

 

Alternatively, if the UDS is currently configured for TIMXT, just telnet to the LAN IP address for the UDS at port 9999 and login from there.

[Omega-TI]

The UDS-10 can be configured through the serial port. What configuration do you need for the TIMXT program?

 

For TIMXT I use:

BAUD : 4800

IFMODE : 4C

FLOW : 02

PORT : 32

CONNECT : D6

 

For the Browser I use:

BAUD : 19200

IFMODE : FC

FLOW : 00

PORT : 10001

CONNECT : D4

[Omega-TI]

Alternatively, if the UDS is currently configured for TIMXT, just telnet to the LAN IP address for the UDS at port 9999 and login from there.

 

Yeah, that's how I do it from the PC... it just does not seem to want to work from the TI.

[Mad Hatter]

Just do the serial port login then. I just verified that I gave you the right instructions. It worked on the Geneve using Port terminal emulator. If TIMXT has a flow control option, then set it to None or Interrupt before you login. Once you login you will see the exact same menu you do when you telnet to port 9999.

[Omega-TI]

Thanks, I'll check it (flow control) and try again tomorrow morning.. I have get ready and leave for work right now.

[+OLD CS1]

Using the Serial Port

For local configuration, connect a terminal or a PC running a terminal emulation program to the unit’s serial port (channel 1). Configure the terminal (or emulation) for 9600 baud, 8-bit, no parity, one stop bit, and no flow control.

• Cycle the unit’s power (power off and back on). After power-up, the self-test begins and the diagnostic and status LEDs start blinking.
• Type three lowercase x characters (xxx) within one second after powering up to start the configuration mode.

  Note: The easiest way to enter Setup Mode is to hold down the x key on your keyboard while powering up the unit.

• The configuration settings display, followed by the Change Setup menu. Select an option on the menu by entering the number of the option in the Your choice ? prompt and pressing Enter.
• To enter a value for a parameter, type the value and press Enter. To confirm a default value, just press Enter.
• When you are finished, save the new configuration (option 9). The unit reboots.

This is direct from the manual; Mad Hatter is correct. The challenge I had with TI-vs-UDS-10 is the DTE-DCE conversion. I have a convoluted assortment of gender changers and null-modem adapters in the mix to get things working, only to give up on the whole mess and go with a USB-over-IP interface with USB serial adapters. I cannot telnet from my TI using this config (might could with a proper service on the PC's serial port) but I can run CFHDX.

[+InsaneMultitasker]

TIMXT is interrupt driven only (and via the slow CIB) at this time.

 

Mad Hatter - is the UDS console baud rate always 9600 or does it use the currently configured baud rate? I always change my settings from the PC side...

[Omega-TI]

You know, the "Ultimate Solution ^TM" would be an easy-loading E/A 5 program or a cartridge-based program that asked a couple of simple questions and did the rest "auto-magically"...

 

 

UDS-10 Format Switcher

 

Which RS-232 is the device on? : 2

 

Which device do you want to use?

A for TIMXT, B for Internet Browser : A

[+InsaneMultitasker]

My end-game solution is to replace the TIMXT rs232 routines with PORT's rs232 routines, allowing for full flow control among other things. This would improve the emulation speed at the cost of a modified cable. There is a second option I have been mentally toying with but like other things this year, it is on hold until 2016.

[Omega-TI]

... but like other things this year, it is on hold until 2016.

 

Oh! I can so relate!

[Stuart]

The following Cortex BASIC program seems to do the job. Works on my TM990, and should work on the TI-99. You need to change line 150 to suit the serial port you're using - see the REM statements at the start of the program.

 

If it works, you should be able to speed it up by changing line 1270 to RETURN and deleting lines 1280 - 1310. Those lines are just there to help debugging.

 

 

100 REM EDIT THE VALUE IN LINE 150 AS FOLLOWS:
110 REM -- SET TO 1 IF UDS-10 CONNECTED TO TM990 PORT P3
120 REM -- SET TO 2 IF UDS-10 CONNECTED TO TI-99 NANOPEB
130 REM -- SET TO 3 IF UDS-10 CONNECTED TO TI-99 PEB RS-232 CARD 1
140 REM -- SET TO 4 IF UDS-10 CONNECTED TO TI-99 PEB RS-232 CARD 2
150 SY=4
160 REM
170 REM *****
180 REM LOAD ASSEMBLY ROUTINE TO READ FROM TMS9902
190 REM *****
200 LA=SYS[7] !LOAD INTO USER RAM
210 FOR L1=LA TO LA+38 STEP 2
220 READ WRD
230 MWD[L1]=WRD
240 NEXT L1
250 DATA 0C300H,0204H,01H,0C084H,0703H,01F15H,01305H,0603H,016FCH,0602H
260 DATA 01307H,010F8H,03605H,01E12H,0204H,01H,0DC45H,010F1H,0D442H
270 DATA 0380H
280 REM
290 REM ****
300 REM SET CRU BASE ADDRESS
310 REM ****
320 IF SY=1 THEN CRC=0180H: CRT=0180H
330 IF (SY=2 OR SY=3) THEN CRC=01300H: CRT=01340H
340 IF SY=4 THEN CRC=01500H: CRT=01540H
350 REM
360 REM *****
370 REM INITIALISE MESSAGE STRING ARRAYS
380 REM *****
390 DIM $CHA[13] !MAX 83 CHARACTERS
400 DIM $CHB[13]
410 REM
420 REM *****
430 REM GET SETUP OPTION
440 REM *****
450 PRINT "PRESS 1 TO CONFIGURE FOR TIMXT"
460 PRINT "PRESS 2 TO CONFIGURE FOR INTERNET BROWSER"
470 A=KEY[0]: IF (A<49 OR A>50) THEN GOTO 470
480 IF A=49 THEN $P1="4800": $P2="4C": $P3="02": $P4="32": $P5="D6"
490 ELSE $P1="19200": $P2="FC": $P3="00": $P4="10001": $P5="D4"
500 REM
510 REM *****
520 REM CONFIGURE TMS9902
530 REM *****
540 BASE CRC
550 IF SY>1 THEN CRB[0]=1: CRB[14]=1 !SWITCH ON NANOPEB/RS-232 CARD AND LED
560 BASE CRT !CHANGE CRU BASE TO ADDRESS TMS9902
570 CRB[31]=1 !RESET 9902
580 CRF[8]=083H !CONTROL REGISTER: 1 STOP BIT, NO PARITY, 8 DATA BITS
590 CRB[13]=0 !DISABLE LOADING OF INTERVAL REGISTER
600 CRF[12]=034H !9600 BAUD
610 CRB[18]=0 !RESET RBRL
620 REM
630 REM *****
640 REM WAIT TO START
650 REM *****
660 PRINT : PRINT "MAKE SURE THE UDS-10 IS POWERED OFF."
670 PRINT "THEN PRESS A KEY, THEN POWER ON THE UDS-10"
680 A=KEY[0]: IF A=0 THEN GOTO 680
690 PRINT "WAITING FOR RESPONSE FROM UDS-10 ..."
700 IF CRB[21]=0 THEN GOTO 700 !WAIT FOR CHANGE IN STATE AS UDS-10 BOOTS
710 CRB[18]=0 !RESET RBRL
720 $CHA[0]="xxx"+%0
730 GOSUB 1110
740 WAIT 20 !WAIT FOR 0.2 SECONDS
750 IF CRB[21]=0 THEN GOTO 730 !SEND "XXX" UNTIL CHARACTER RECEIVED
760 GOSUB 1250 !GET UDS-10 BOOT MESSAGE
770 $CHA[0]=%13%0 !SEND <RETURN> TO ENTER SETUP MODE
780 GOSUB 1110
790 GOSUB 1250 !GET RESPONSE
800 REM
810 REM *****
820 REM CONFIGURE UDS-10
830 REM *****
840 PRINT "CONFIGURING UDS-10 ..."
850 $CHA[0]="1"+%13%0 !SELECT CHANNEL 1
860 GOSUB 1110: GOSUB 1250
870 $CHA[0]=$P1+%13%0 !SET BAUD RATE
880 GOSUB 1110: GOSUB 1250
890 $CHA[0]=$P2+%13%0 !SET IF MODE
900 GOSUB 1110: GOSUB 1250
910 $CHA[0]=$P3+%13%0 !SET FLOW CONTROL
920 GOSUB 1110: GOSUB 1250
930 $CHA[0]=$P4+%13%0 !SET PORT NUMBER
940 GOSUB 1110: GOSUB 1250
950 $CHA[0]=$P5+%13%0 !SET CONNECT MODE
960 GOSUB 1110: GOSUB 1250
970 FOR I=1 TO 12
980 $CHA[0]=%13%0 !SEND <RETURN> FOR ALL OTHER PARAMETERS
990 GOSUB 1110: GOSUB 1250
1000 NEXT I
1010 $CHA[0]="9"+%13%0 !SELECT SAVE AND EXIT OPTION
1020 GOSUB 1110
1030 BASE CRC
1040 IF SY>1 THEN CRB[0]=0: CRB[14]=0 !SWITCH OFF NANOPEB/RS-232 CARD AND LED
1050 PRINT "FINISHED!"
1060 END
1070 REM
1080 REM *****
1090 REM SUBROUTINE - SEND STRING TO TMS9902
1100 REM *****
1110 FOR L1=1 TO LEN[$CHA[0]] !FOR EACH CHARACTER IN THE STRING
1120 CRB[16]=1 !SET RTS ON
1130 IF CRB[22]<>1 THEN GOTO 1130 !WAIT UNTIL XMIT BUFFER REGISTER EMPTY
1140 $CHR=$CHA[0;L1],1 !GET CHARACTER TO SEND FROM STRING
1150 CRF[8]=ASC[$CHR] !SEND CHARACTER
1160 REM PRINT $CHR; !PRINT CHARACTER TO TERMINAL
1170 IF CRB[22]<>1 THEN GOTO 1170 !WAIT UNTIL XMIT BUFFER REGISTER EMPTY
1180 IF CRB[23]<>1 THEN GOTO 1180 !WAIT UNTIL XMIT SHIFT REGISTER EMPTY
1190 NEXT L1
1200 RETURN
1210 REM
1220 REM *****
1230 REM SUBROUTINE - WAIT FOR RESPONSE FROM UDS-10
1240 REM *****
1250 BUF=SYS[7]+50 !BUFFER AFTER CODE IN USER RAM
1260 CALL SYS[7],CRT,BUF !CALL ASSEMBLY ROUTINE
1270 CHC=MEM[bUF] !READ CHARACTER FROM BUFFER
1280 IF CHC=0 THEN RETURN
1290 REM $CHA[0]=%CHC%0: PRINT $CHA[0];
1300 BUF=BUF+1
1310 GOTO 1270

Edited December 17, 2015 by Stuart