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 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.

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

*
==========================================================================
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 macro.^m^m”+
” Press ESCAPE to cancel.”

IF $w, {EXit}
* If they cancel 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 macro.^m^m”+
” Press ESCAPE to cancel.”

IF $w, {EXit}
* If they cancel 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,"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

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