;  patch kit for German v 26Gc  Autostar 497
; This Jan 2003  patch26G4.txt patch file contains:

;  Editing of Training Values (an EDIT menu item under Setup>Train Drives)
;  Adds 4504/114eq to Known Models (replaces DS-70)(a GEM scope!)
; this also allows DS motors to be used on a GEM mount.

;  Automatic Satellite Track starting at down-count=zero  (optional, see below)
;  Display of Satellite AOS time to-the-second
;  CordWrap control (optional, see below)
;  Version number change from 26Gc  to 26c4 (so Initialization shows 26c )

; rseymour@wolfenet.com 1-Jan-2003

; Here are the Two optional patches:
;   Cord Wrap control and Automatic Satellite Tracking

; ADD semicolons (;) in front of the next three ";R" lines to BLOCK control of
; Cord Wrap ON/OFF in hard-stopped scopes (ETX90/105/125,LXD55)
; This only -allows- turning Cord Wrap OFF, it does not change its current setting.

R      21006   27      20      cordwrap [26Ec] (4-8006) [26ea][26eb same]
R      210ea   26      21      cordwrap [26Ec]  (4-80ea) [26ea][26eb same]
R      2100a   17      23      chksum   cordwrap [26Ec] (4-800a) [26ea][26eb same]

; ADD semicolons to the following three "R" lines to -prevent- Automatic
;  Start-of-tracking during a Satellite pass.  
;            Satellite  AutoTrack

R       457d0   bd      20      (-9d)      AutoStart  [26c:8-c823  26G:8-c7d0
R       457d1   1e      2a      (+0c)=-91  AutoStart  [26c:8-c824    G:8-c7d1
R       457d3   05      96      (chksum)   AutoStart  [26c:8-c826    G:8-c7d3

;  there are NO further "optional" patches in this file.
;  changing any further "R" lines will cause the Updater to refuse to load the file.

; Autostar Menu items added by this patch:
;
;  Training results Display and Edit:

; Under Setup > Telescope > Train Drive 
; are now (scroll up or down from the "Az/RA Train" or "Alt/Dec Train")
;  Edit: > Az/RA Train
;    and
;  Edit: > Alt/Dec Train
; press [enter] to allow direct display and manipulation of the results of training.
;    a power cycle (without using Park Scope) is needed for 
;     the  new values to be fully implemented.
; =======

;  4504/114eq replaces DS-70  (use the DS-60 for -70 if you need to)
;   The upper lower travel limits are 4800/-600 arcmin (+60 deg, - 10 deg)
;   ... values taken from the LXD55 series.  Please inform me if they're
;  too restrictive (too many Check Mount messages) or too loose (hits tripod)
;

;  For installation instructions, see:
;   README26c4.txt  which should have come with this kit.
;  the last line of -this- file says "; end of patch 26c4"
;  "Have fun" (tm) -- Dick Seymour   12-Sep-2002

;  there are NO further "optional" patches in this file.
;  changing any further lines will cause the Updater to refuse to load the file.

; 26gc patch region:  a-b3b1 to b5ff  <--no change page (

;26gc old:  03.d0.d4.07
R       0004    03      ef       chksum
R       0005    d0      6c       chksum
;R      0006    d4      d4      ;chksum
;R      0007    07      07 

R       000A    47      63      (E->c) [26gc] version
R       0142FE  47      63      (32fe) [26gc] version
R       000b    63      34      (c->4) [26gc] version
R       0142Ff  63      34      (32ff) [26gc] version

;             Satellite   to-the-second  
R       45030   cc      b7       [26gc:  8-c030 cc->b7, 
R       45044   cc      b7       [26gc:  8-c044 cc->b7

;  menu manipulations 
; automatic menu patches v26gc
R      1287C    18    00     Owner>Addr Enter surpress
R      1287D    82    00     Owner>Addr Enter surpress

R      1287F    04    04        Street Action pg
R      12880    EC    C6      Street Action addr
R      12881    E7    EA      Street Action addr

R      12882    02    02     Addr->Edit msg
R      12883    B0    A5     Addr->Edit msg
R      12884    02    02     Street->AzTrnMsg
R      12885    B1    9D     Street->AzTrnMsg
R      12888    18    17     up to AltTrn
R      12889    A2    42     up to AltTrn
R      1288A    18    17     Mode to TrnDrvs
R      1288B    72    12     Mode to TrnDrvs
R      1288F    04    a      action page to Patch page
R      12890    C6    b4     action adr to Patch adr
R      12891    EA    a5     action adr to Patch adr

R      12746    17    18     AltTrnDwn to AzEd
R      12747    32    82     AltTrnDwn

R      12892    02    02     Addr->Edit msg
R      12893    B0    A5     Addr->Edit msg
R      12894    02    02     City->AltTrnMsg
R      12895    B2    9E     City->AltTrnMsg
R      12896    18    17     Dwn to AltTrn
R      12897    B2    32     Dwn to AltTrn
R      1289A    18    17     Mode to TrnDrvs
R      1289B    72    12     Mode to TrnDrvs
R      1289F    04    a      action page to Patch page
R      128A0    C7    b4     action adr to Patch adr
R      128A1    77    d9     action adr to Patch adr

R      12738    17    18      AzTrnUp to AltEdit
R      12739    42    92      AzTrnUp to AltEdit
;
;       [Ab4a5]   AZ   Train display [26gc](a-b4a5)
R       0544a5  FF      3C      pshx
R       0544A6  FF      BD      jsr
R       0544A7  FF      26      clrscrn [26gc:260f
R       0544A8  FF      0f      clrscrn [26gc:260f
R       0544A9  FF      FC      ldd
R       0544AA  FF      B6      azTrain  
R       0544AB  FF      0B      azTrain  [26gc: b60b)
R       0544AC  FF      30      tsx
R       0544AD  FF      ED      std
R       0544AE  FF      00      0.x
R       0544AF  FF      CC      ldd
R       0544B0  FF      02      msgNum
R       0544B1  FF      9d      az [26gc]  (:02a3  "Az/RA Number")(g:029d)
R       0544B2  FF      BD      jsr
R       0544B3  FF      1E      dispatch
R       0544B4  FF      89      dispatch [26gc:1e89
R       0544B5  FF      09      page
R       0544B6  FF      cc      d->msg [26gc] (26gc: cc8d
R       0544B7  FF      8d      d->msg [26gc]
R       0544B8  FF      BD      jsr
R       0544B9  FF      26      msg->scrn [26gc:263f
R       0544BA  FF      3f      msg->scrn [26gc:263f
R       0544BB  FF      C6      lda#01
R       0544BC  FF      01      #01
R       0544BD  FF      37      pshb
R       0544BE  FF      5C      incb
R       0544BF  FF      BD      jsr
R       0544C0  FF      25      cursor [26gc:25c3
R       0544C1  FF      c3      cursor [26gc:25c3
R       0544C2  FF      31      ins
R       0544C3  FF      30      tsx
R       0544C4  FF      8F      xgdx
R       0544C5  FF      BD      jsr
R       0544C6  FF      1E      dispatch
R       0544C7  FF      89      dispatch [26gc:1e89
R       0544C8  FF      05      page
R       0544C9  FF      ad      IntegerInput [26gc:5-adf0]
R       0544CA  FF      f0      IntegerInput [26gc:5-adf0
R       0544CB  FF      CE      ldx#
R       0544CC  FF      B6      azTrain
R       0544CD  FF      0B      azTrain [26gc]
R       0544CE  FF      3C      pshx
R       0544CF  FF      30      tsx
R       0544D0  FF      EC      ldd
R       0544D1  FF      02      2,x
R       0544D2  FF      BD      jsr
R       0544D3  FF      22      burn
R       0544D4  FF      f8      burnWd [26gc:22f8
R       0544D5  FF      38      pulx
R       0544D6  FF      38      pulx
R       0544D7  FF      39      rts

;              ALT Train display
R       0544D9  FF      3C      pshx
R       0544DA  FF      BD      jsr
R       0544DB  FF      26      clrscrn [26gc:260f
R       0544DC  FF      0f      clrscrn [26gc:260f
R       0544DD  FF      FC      ldd
R       0544DE  FF      B6      altTrain
R       0544DF  FF      09      altTrain [26gc
R       0544E0  FF      30      tsx
R       0544E1  FF      ED      std
R       0544E2  FF      00      0,x
R       0544E3  FF      CC      ldd#
R       0544E4  FF      02      msg:Alt
R       0544E5  FF      9e      Alt [26ec: 02a4 "Alt/Dec number")(g:029e)
R       0544E6  FF      BD      jsr
R       0544E7  FF      1E      dispatch
R       0544E8  FF      89      dispatch [26gc:1e89
R       0544E9  FF      09      page
R       0544EA  FF      cc      d->msg [26gc]   (26gc: cc8d
R       0544EB  FF      8d      msg [26ec]
R       0544EC  FF      BD      jsr
R       0544ED  FF      26      d->scrn [26gc g:263f
R       0544EE  FF      3f      scr [26gc:263f
R       0544EF  FF      C6      ldb#
R       0544F0  FF      01      #01
R       0544F1  FF      37      pshb
R       0544F2  FF      5C      incb
R       0544F3  FF      BD      jsr
R       0544F4  FF      25      cursor
R       0544F5  FF      c3      curs  [26gc:25c3
R       0544F6  FF      31      ins
R       0544F7  FF      30      tsx
R       0544F8  FF      8F      xgdx
R       0544F9  FF      BD      jsr
R       0544FA  FF      1E      dispatch
R       0544FB  FF      89      dispatch [26gc:1e89
R       0544FC  FF      05      page
R       0544FD  FF      ad      IntInput [26gc:5-adf0
R       0544FE  FF      f0      IntIn [26gc]
R       0544FF  FF      CE      ldx#
R       054500  FF      B6      altTrain
R       054501  FF      09      altTrain [26gc]
R       054502  FF      3C      pshx
R       054503  FF      30      tsx
R       054504  FF      EC      ldd
R       054505  FF      02      2,x
R       054506  FF      BD      jsr
R       054507  FF      22      burnWd
R       054508  FF      f8      burn [26gc:22f8
R       054509  FF      38      pulx
R       05450A  FF      38      pulx
R       05450B  FF      39      rts
; a-b50c next free byte
;                  Barrel elevLim:  now provided by Meade
;    Satellite  AOSaltitude Input:  now provided by Meade

; 4504
; 4504/114eq replacing DS-70  21xxx=4-8000 [26gc]

R       21d9e   99      e6    DS-70->4504msg [26gc:4-8d9e 99->e6

R       92cde   72      34      "4504/114EQ"  
R       92cdf   65      35    (was breakmask) [26g:92cde
R       92ce0   61      30 
R       92ce1   6b      34
R       92ce2   6d      2f
R       92ce3   61      31
R       92ce4   73      31
R       92ce5   6b      34
R       92ce6   20      45
R       92ce7   5b      51

R       21836   02      03     900 FL [26gc]  21836[26gc:4-8836]
R       21837   bc      84   [26gc]
R       21841   0f      12      4800_max_elev [26gc] (4-8841/2)
R       21842   78      c0   [26gc]
R       2184c   fe      fd     -600_min_elev [26gc]  (4-884c/d)
R       2184d   5c      a8   [26gc]
R       21855   04      0A     5-ff06_branch   [26gc]  (4-8855/6/7)
R       21856   85     B5    5-ff06_branch   [26gc] 0a-b526
R       21857   e0     26    5-ff06_branch   [26gc]  (26) 0a-b5-26

; patch requires x4f bytes  ..from (26)a-b526..
R       054526   ff      3c     at a-b526  [26gc:a-b526 
R       054527   ff      3c   pshx,pshx
R       054528   ff      cc   ldd_03ca  ratio
R       054529   ff      03
R       05452A   ff      CA
R       05452B   ff      30   tsx
R       05452C   ff      ed   std_2,x
R       05452D   ff      02
R       05452E   ff      cc   ldd_4092
R       05452F   ff      40
R       054530   ff      92
R       054531   ff      ed   std_0,x
R       054532   ff      00
R       054533   ff      bd   dispatch [26gc:1e89
R       054534   ff      1e
R       054535   ff      89   [26gc]
R       054536   ff      09  setAzratio [26c:dc19)
R       054537   ff      dc   [26gc]
R       054538   ff      19   [26gc]
R       054539   ff      cc   ldd_0194
R       05453A   ff      01
R       05453B   ff      94
R       05453C   ff      30   tsx
R       05453D   ff      ed   std_2,x
R       05453E   ff      02
R       05453F   ff      cc   ldd_4092
R       054540   ff      40
R       054541   ff      92
R       054542   ff      ed   std_0,x
R       054543   ff      00
R       054544   ff      bd   dispatch  (26c:1e89
R       054545   ff      1e
R       054546   ff      89   [26gc]
R       054547   ff      09   setALTratio [26gc:09-dc4e)
R       054548   ff      dc    [26gc]
R       054549   ff      4e    [26gc]
R       05454A   ff      cc   ldd_B73E_(status_bits)[26gc]
R       05454B   ff      b7
R       05454C   ff      3e
R       05454D   ff      30   tsx
R       05454E   ff      ed   std_0,x
R       05454F   ff      00
R       054550   ff      f6   ldab_B73e [26gc]
R       054551   ff      b7
R       054552   ff      3e
R       054553   ff      ca   orab_x18_(GEM,Polar)
R       054554   ff      18
R       054555   ff      bd   jst_burn_Byte   (26  g:230c
R       054556   ff      23   [26gc]
R       054557   ff      0c   [26gc]
R       054558   ff      cc   ldd_B73d_(more_status)
R       054559   ff      b7
R       05455A   ff      3d   [26gc]
R       05455B   ff      30   tsx
R       05455C   ff      ed   std_0,x
R       05455D   ff      00
R       05455E   ff      f6   ldab_b73d [26gc]
R       05455F   ff      b7
R       054560   ff      3d
R       054561   ff      ca    orab_x08_(cord_wrap)
R       054562   ff      08
R       054563   ff      bd   jsr burnByte (26g:230c
R       054564   ff      23   [26gc]
R       054565   ff      0c    [26gc]
R       054566   ff      38   pulx
R       054567   ff      38   pulx
R       054568   ff      39   rts
; end of patch 26g4
