*
OPTION-H (uc) : Changes baud to a fixed, 230,400 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 230,400 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 or Scrollback *

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,"4745444C4F4D"
                                            * Set 16x Clock Mode Multiplier *

MEm 9162,"3233302E343233302E343233302E343233302E343233302E343233302E343233302E343233 302E343233302E34"
                                            * Set Baud Rate List to
                                              230,400 Baud Rate *

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

JSr 2355
                                            * Bump Zilog SCC to accept
                                              changed values *

EXit


*
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 230,400 rate, use the <Option><Shift><H> macro.^m^m"+
     "                    Press ^[ ESCAPE ^[ to cancel.^m"


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

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

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,"31313020203330302020313230302032343030203438303020393630302031393230303338 3430303537363030"
                                            * 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