This is a multi-part message in MIME format.
------=_NextPart_000_0136_01C03E24.1A751780
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Oops! Sorry, Karen.
I forgot. What I sent you would require
hand-typing all those lines into DEBUG.
I've re-written this as a batch-to-script file.
When you run this batch file, it creates
a script file and then feeds the script to
DEBUG. The result is set9600.com which
sets Com1 to 9600 baud, 8-bit.
By now I'm sure the members of the list
are wondering why I don't just assemble
the damned thing and send it to you that way.
Well, hell -- where's the fun in THAT?
This version will set Com1 to 9600 baud
(ok, so it's really 9600 bps), but with the
small changes I outlined before, it will do
Com2 or whatever.
All the Best
~~ Garry
----- Original Message -----
"Karen Lewellen" <[EMAIL PROTECTED]> wrote:
> hi there,
> so i just take all that and save it
> into a file called set9600.com?
>
> sounds like a winner.
> <grin>
>
------=_NextPart_000_0136_01C03E24.1A751780
Content-Type: application/octet-stream;
name="makebaud.bat"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename="makebaud.bat"
echo/a 100>makebaud.scp
echo/mov al,0>>makebaud.scp
echo/mov cx,03F9>>makebaud.scp
echo/out b al,cx>>makebaud.scp
echo/mov al,13>>makebaud.scp
echo/mov cx,03FC>>makebaud.scp
echo/out b al,cx>>makebaud.scp
echo/mov al,83>>makebaud.scp
echo/mov cx,03FB>>makebaud.scp
echo/out b al,cx>>makebaud.scp
echo/mov ah,00>>makebaud.scp
echo/mov cx,03F9>>makebaud.scp
echo/out b al,cx>>makebaud.scp
echo/mov al,0C>>makebaud.scp
echo/mov cx,03F8>>makebaud.scp
echo/out b al,cx>>makebaud.scp
echo/mov al,03>>makebaud.scp
echo/mov cx,03FB>>makebaud.scp
echo/out b al,cx>>makebaud.scp
echo/nop>>makebaud.scp
echo/mov cx,03F8>>makebaud.scp
echo/in al,cx>>makebaud.scp
echo/mov cx,03F8>>makebaud.scp
echo/in al,cx>>makebaud.scp
echo/mov al,03>>makebaud.scp
echo/mov cx,03FC>>makebaud.scp
echo/out b al,cx>>makebaud.scp
echo/mov ax,4C00>>makebaud.scp
echo/int 21>>makebaud.scp
echo/>>makebaud.scp
echo/n set9600.com>>makebaud.scp
echo/r cx>>makebaud.scp
echo/0041>>makebaud.scp
echo/w>>makebaud.scp
echo/q>>makebaud.scp
xt <makebaud.scp b k010 >makebaud.xxx
debug <makebaud.scp >makebaud.log
dir set9600.com
------=_NextPart_000_0136_01C03E24.1A751780
Content-Type: text/plain;
name="makebaud.txt"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="makebaud.txt"
echo/a 100 ; begin assembly code entry>makebaud.scp
echo/mov al,0 ; zero, for "off">>makebaud.scp
echo/mov cx,03F9 ; Com1 address + 1 =3D int enable =
reg>>makebaud.scp
echo/out b al,cx ; interrupts off>>makebaud.scp
echo/mov al,13 ; DTR+RTS+LBK (loop back mode)>>makebaud.scp
echo/mov cx,03FC ; Com1 address + 4 =3D modem ctrl =
reg>>makebaud.scp
echo/out b al,cx ; set loopback mode for Com1>>makebaud.scp
echo/mov al,83 ; 80 =3D DLAB, 03 =3D 8-bit mode =
mask>>makebaud.scp
echo/mov cx,03FB ; Com1 address + 3 =3D line ctrl reg>>makebaud.scp
echo/out b al,cx ; turn on divisor latch access>>makebaud.scp
echo/mov ah,00 ; high-order byte of 000C>>makebaud.scp
echo/mov cx,03F9 ; "ie" reg now high-order divisor =
byte>>makebaud.scp
echo/out b al,cx ; place first half of divisor value>>makebaud.scp
echo/mov al,0C ; low-order byte (that's 12)>>makebaud.scp
echo/mov cx,03F8 ; "data" reg now low-order divisor =
byte>>makebaud.scp
echo/out b al,cx ; place second half of divisor value>>makebaud.scp
echo/mov al,03 ; 8-bit mode mask without DLAB>>makebaud.scp
echo/mov cx,03FB ; Com1 address + 3 =3D line ctrl reg>>makebaud.scp
echo/out b al,cx ; turn off divisor latch access>>makebaud.scp
echo/nop ; waste a cycle>>makebaud.scp
echo/mov cx,03F8 ; Com1 base address =3D data reg>>makebaud.scp
echo/in al,cx ; clear the (first) RX data reg>>makebaud.scp
echo/mov cx,03F8 ; same address (just killing time)>>makebaud.scp
echo/in al,cx ; clear the (other) RX data reg>>makebaud.scp
echo/mov al,03 ; DTR+RTS (without loop back bit)>>makebaud.scp
echo/mov cx,03FC ; Com1 address + 4 =3D modem ctrl =
reg>>makebaud.scp
echo/out b al,cx ; clear loopback mode for Com1>>makebaud.scp
echo/mov ax,4C00 ; terminate program, errorlevel=3D0>>makebaud.scp
echo/int 21 ; call DOS to end ; just press <Enter> =
next>>makebaud.scp
echo/>>makebaud.scp
echo/n set9600.com>>makebaud.scp
echo/r cx>>makebaud.scp
echo/0041>>makebaud.scp
echo/w>>makebaud.scp
echo/q>>makebaud.scp
debug <makebaud.scp >makebaud.log
dir set9600.com
------=_NextPart_000_0136_01C03E24.1A751780--
To unsubscribe from SURVPC send a message to [EMAIL PROTECTED] with
unsubscribe SURVPC in the body of the message.
Also, trim this footer from any quoted replies.
More info can be found at;
http://www.softcon.com/archives/SURVPC.html
