*
==========================================================================
ProTERM 3.1 High-Speed 115,200 Baud Zilog 8530 SCC Serial Port Macros
for Apple IIgs
Version G1.0.1.G
NOTE: For IIc/IIc+ and IIe, see other macros
by Hugh Hood / April 29, 2009
(with thanks to David Empson, David Schmidt and David Wilson)
==========================================================================
*

*
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,"313130202033303020203132303020323430302034383030203936303020313932303033383430303537363030"
                                            * 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 A / $C038 SCC WR 11 *

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

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

MEm 9162,"3131352E323131352E323131352E323131352E323131352E323131352E323131352E323131352E323131352E32"
                                            * 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


*
=========================== End IIgs Macro ===============================
*