*
==========================================================================
ProTERM 3.1 High-Speed 115,200 Baud Super Serial Card Macro for Apple IIe
Version E1.0.3.E
NOTE: For IIc/IIc+ and IIgs, see other macros
by Hugh Hood / July 24, 2013
(with big-time thanks to Ivan Drucker for preliminary testing)
==========================================================================
*

*
OPTION-f : Adds 115,200 Baud Option to Super Serial Card Driver 
            Parameters and Sets Baud to 115,200 (for Apple IIe).
*

@@f


BP 0                                        * Beep Bell One Time *

IF !(ANd (EQual (MEm 2328), 138), (EQual (MEm 2347), 139)), {NOte
"This macro is only for use on an Apple IIe with^m"+
" the Super Serial Card Driver in ProTERM 3.1." EXit}

* Checks memory to ensure that 'Super Serial Card' driver is selected
   on an Apple IIe. ($0918/2328 = $8A/138 and $092B/2347 = $8B/139) *


NOte "     This macro adds a 115,200 Baud Option to the^m"+
     "Super Serial Card Driver and SETS the Baud to 115,200.^m^m"+
     "        To select 19,200 Baud and lower rates,^m"+
     "  use the standard ProTERM Online Parameters dialog.^m^m"+
     "              Press ^[ ESCAPE ^[ to cancel."

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

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


MEm 9197,"3131352E32FF"
                                            * Add "115.2" Selection to
                                              Table (Hex)
                                              ($23ED/9197) *

MEm 9222,"8004"
                                            * Add "1152" [Integer] to Top
                                              Line Display Table (Hex)
                                              ($2406/9222) *


DO "online:parameters","Baud:<115.2>[ok]"
                                             * Select 115,200 Baud Rate 
                                              from entries at Super Serial
                                              Card Control Register Table 
                                              ($981/2433) and Bump ProTERM
                                              to accept changed values *

JSr 2338
                                            * Bump ACIA Control Register to
                                              accept changed values 
                                              ($0922/2338) *

EXit                                        * End Macro *


*
=========================== End IIe Macro ===============================
*