*
==========================================================================
ProTERM 3.1 High-Speed 115,200 Baud Built-In Port Macro for Apple IIc/IIc+
Version C1.0.3.C
NOTE: For IIe and IIgs, see other macros
by Hugh Hood / June 30, 2013
(with big-time thanks to Ivan Drucker for preliminary testing)
==========================================================================
*

*
OPTION-f (IIc) : Adds 115,200 Baud Option to Printer/Modem Port ACIA Driver
                 Parameters and Sets Baud to 115,200 (for Apple IIc/IIc+).
*

@@f


BP 0                                        * Beep Bell One Time *

IF !(ANd (EQual (MEm 2331), 138), (EQual (MEm 2350), 139)), {NOte
"This macro is only for use on an Apple IIc/IIc+ with^m"+
"   the Printer/Modem Port Driver in ProTERM 3.1." EXit}

* Checks memory to ensure that 'Printer/Modem Port' driver is selected
   on an Apple IIc/IIc+. ($091B/2331 = $8A/138 and $092E/2350 = $8B/139) *


NOte "     This macro adds a 115,200 Baud Option to the^m"+
     "Printer/Modem Port 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 2437,"00"                               * Add 115200 Baud Entry in place
                                              of 110 Baud Entry in ACIA
                                              Control Register Table 
                                              ($0984/2436) * 


MEm 9162,"3131352E32"
                                            * Add "115.2" Selection to
                                              Table (Hex) in place of 
                                              "110" Selection
                                              ($23CA/9162) *

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


DO "online:parameters","Baud:<115.2>[ok]"
                                             * Select 115,200 Baud Rate
                                              from entries at IIc ACIA
                                              Control Register Table
                                              ($984/2436) and Bump ProTERM
                                              to accept changed values *

JSr 2343,16,288
                                           * Bump ACIA Control Register with
                                             presumed changeable values
                                             ($0927/2343)
                                             A = $10/16
                                             X = $20/32 (Low Byte)
                                             Y = $01(00)/256 (High Byte) *


EXit                                        * End Macro *


*
=========================== End IIc Macro ===============================
*