ProTERM 3.1 macros for 115,200 Baud Support

[Hugh Hood <hughhood@earthlink.net>]

Fellas,

Here are the ProTERM 3.1 Global Macros I promised to support 115,200 baud
Zilog SCC capability on the Apple IIGS built-in serial ports.

Please try them out and let me know of any problems, or if you feel I should
expand the comments.

Just add these macros to your PT3.GLOBAL file (a text file) in place of the
normally unused OPTION-'h' and OPTION-'H' macros and try them out.

OPTION-'h' resets everything to the ProTERM defaults (110 - 57600 baud),
while OPTION-'H' kicks the serial ports into 115,200 baud mode.

I've attempted to make these 'user friendly'. For example, a message
describes what is about to happen and allows you to cancel before invoking
the 'guts' of the macro.

If your Modem hardware setup is not for one of the built-in IIGS serial
ports, you'll get a message informing this, and the macro is cancelled.

Hugh Hood

P.S. - As soon as I get a positive report back on my patch to allow the
Super Serial Card to communicate at 115,200 baud from within ProTERM, I'll
add it to this same macro. Come on, guys. Surely somebody has a IIe these
days connected to a big, bad, 'modern' computer. David Schmidt _must_ have
added that capability to ADT Pro for somebody.

P.P.S. - In ProTERM, all items within * * are comments.

P.P.P.S. - Remember, in the hex strings listed below, should you decide to
copy and paste, don't copy a 'RETURN' in the middle of the hex string.


*
==========================================================================
ProTERM 3.1 High-Speed 115,200 Baud SCC Serial Port Macros
by Hugh Hood / April 29, 2009
==========================================================================
*

*
OPTION-h (lc): Restores available baud rates to ProTERM defaults.
*
@@h

BP 0

IF (ANd !(EQual (MEm 2385), 57), !(EQual (MEm 2385), 56)), {NOte
"This macro is only for use with the Zilog 8530^m"+
 "SCC Serial Ports built into the Apple IIGS." EXit}

NOte "This macro restores the available baud rates to the ProTERM
defaults.^m^m"+
     " To invoke a fixed 115,200 rate, use the <Option><Shift><H>
macro.^m^m"+
     "                    Press   ESCAPE   to cancel."

IF $w, {EXit}
                                            * If they cancel <ESC> exit *

IF $d, {KEy "^["}                           * Leave Editor *

IF (EQual (MEm 2385), 57), {MEm 2398,"D0"}
                                            * Source clock from Baud Rate
                                              Generator for Printer Port -
                                              Channel B / $C039 SCC WR 11 *

IF (EQual (MEm 2385), 56), {MEm 2398,"50"}
                                            * Source clock from Baud Rate
                                              Generator for Modem Port -
                                              Channel A / $C038 SCC WR 11 *

MEm 2388,"01"
                                            * Enable Baud Rate Generator
                                              SCC WR 14 *

MEm 2512,"4745444C4F4D"
                                            * Set 16x Clock Mode Multiplier
*

MEm 
9162,"3131302020333030202031323030203234303020343830302039363030203139323030
33383430303537363030"
                                            * Set Baud Rate List to
                                              Default Rates *

DO "online:parameters","[ok]"
                                            * Bump ProTERM to accept
                                              changed values *

JSr 2355
                                            * Bump Zilog SCC to accept
                                              changed values *

EXit

*
OPTION-H (uc) : Changes baud to a fixed, 115,200 rate.
*
@@H

BP 0

IF (ANd !(EQual (MEm 2385), 57), !(EQual (MEm 2385), 56)), {NOte
"This macro is only for use with the Zilog 8530^m"+
 "SCC Serial Ports built into the Apple IIGS." EXit}

NOte " This macro changes the baud to a fixed 115,200 rate.^m^m"+
     "To restore default settings, use the <Option><h> macro.^m^m"+
     "              Press   ESCAPE   to cancel."

IF $w, {EXit}
                                            * If they cancel <ESC> exit *

IF $d, {KEy "^["}                           * Leave Editor *

IF (EQual (MEm 2385), 57), {MEm 2398,"80"}
                                            * Source clock from RTxC Pin
                                              for Printer Port -
                                              Channel B / $C039 SCC WR 11 *

IF (EQual (MEm 2385), 56), {MEm 2398,"00"}
                                            * Source clock from RTxC Pin
                                              for Modem Port -
                                              Channel B / $C039 SCC WR 11 *

MEm 2388,"00"
                                            * Disable Baud Rate Generator
                                              SCC WR 14 *

MEm 2512,"8785848C8F8D"
                                            * Set 32x Clock Mode Multiplier
*

MEm 
9162,"3131352E323131352E323131352E323131352E323131352E323131352E323131352E32
3131352E323131352E32"
                                            * Set Baud Rate List to
                                              115,200 Baud Rate *

DO "online:parameters","[ok]"
                                            * Bump ProTERM to accept
                                              changed values *

JSr 2355
                                            * Bump Zilog SCC to accept
                                              changed values *

EXit


*
==========================================================================
*