;  patch kit for 30Eb  Autostar 497
; This Sep 2003  patch30g4.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)
;  CordWrap control (optional, see below)
;  Version number change from 30Eb  to 30b4 (so Initialization shows 30b )

; rseymour@wolfenet.com 23-Sep-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      1fa8f   27      20      cordwrap [ 3b:3-Ea8f
R      1fb6f   26      21      cordwrap [ 3b: 3-eb6f
R      1fa93   17      23      chksum   cordwrap [ 3b: 3-ea93

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

R       45e17   bd      20      (-9d)      AutoStart  [ 3b:8-ce17
R       45e18   1d      21      (+04)=-99  AutoStart  [ 3b:8-ce18
R       45e1a   05      9e      (chksum) 99+5  AutoStart  [ 3b:8-ce1a

;  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:
;   README30b4.txt  which should have come with this kit.
;  the last line of -this- file says "; end of patch 30b4"
;  "Have fun" (tm) -- Dick Seymour   23-Sep-2003

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

; 30Eb patch region:  a-b4b5 to b5ff  

;
R       0004    58      61       chksum
R       0005    9f      41       chksum
;R      0006    b8      b8      ;chksum
;R      0007    07      07 

R       000A    45      62      (E->b) [30Eb] version
R       0142FE  45      62      (32fe) [30Eb] version
R       000b    62      34      (b->4) [30Eb] version
R       0142Ff  62      34      (32ff) [30Eb] version

;  menu manipulations 
; automatic menu patches v30eb

R      12808    18    00     Owner>Addr Enter surpress
R      12809    0E    00     Owner>Addr Enter surpress

R      1280B    04    04        Street Action pg
R      1280C    DA    BB      Street Action addr
R      1280D    97    26      Street Action addr

R      1280E    02    02     Addr->Edit msg (Aendern)
R      1280F    BF    B4     Addr->Edit msg
R      12810    02    02     Street->AzTrnMsg (Azimut Training)
R      12811    C0    aa     Street->AzTrnMsg
R      12814    18    16     up to AltTrn
R      12815    2E    CE     up to AltTrn
R      12816    17    16     Mode to TrnDrvs
R      12817    FE    9E     Mode to TrnDrvs
R      1281B    04    a      action page to Patch page
R      1281C    BB    b4     action adr to Patch adr
R      1281D    26    a5     action adr to Patch adr

R      126D2    16    18     AltTrnDwn to AzEd
R      126D3    BE    0E     AltTrnDwn

R      1281E    02    02     Addr->Edit msg
R      1281F    BF    B4     Addr->Edit msg
R      12820    02    02     City->AltTrnMsg
R      12821    C1    ab     City->AltTrnMsg
R      12822    18    16     Dwn to AltTrn
R      12823    3E    BE     Dwn to AltTrn
R      12826    17    16     Mode to TrnDrvs
R      12827    FE    9E     Mode to TrnDrvs
R      1282B    04    a      action page to Patch page
R      1282C    BB    b4     action adr to Patch adr
R      1282D    B3    d9     action adr to Patch adr

R      126C4    16    18      AzTrnUp to AltEdit
R      126C5    CE    1E      AzTrnUp to AltEdit
;
;       [Ab4a5]   AZ   Train display [30eb](a-b4a5)
R       0544a5  FF      3C      pshx
R       0544A6  FF      BD      jsr
R       0544A7  FF      25      clrscrn [26gc:260f 258A
R       0544A8  FF      8a      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      aa      az [26gc]  (:02a3  "Az/RA Number")(g:029d)  3b: 02aa
R       0544B2  FF      BD      jsr
R       0544B3  FF      1d      dispatch
R       0544B4  FF      fd      dispatch [26gc:1e89 3b: 1dfd
R       0544B5  FF      09      page
R       0544B6  FF      ca      d->msg [26gc] (26gc: cc8d 3b: 9-cab6
R       0544B7  FF      b6      d->msg [26gc]
R       0544B8  FF      BD      jsr
R       0544B9  FF      25      msg->scrn [26gc:263f 3b: 25ba
R       0544BA  FF      ba      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 3b:253e
R       0544C1  FF      3e      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      1d      dispatch
R       0544C7  FF      fd      dispatch [26gc:1e89 3b: 1dfd
R       0544C8  FF      05      page
R       0544C9  FF      a6      IntegerInput [26gc:5-adf0] 3b: 5-A682
R       0544CA  FF      82      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      6b      burnWd [26gc:22f8  3bL 226b
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      25      clrscrn [26gc:260f 258A
R       0544DC  FF      8a      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      ab      Alt [26ec: 02a4 "Alt/Dec number")(g:029e) b:02ab
R       0544E6  FF      BD      jsr
R       0544E7  FF      1d      dispatch
R       0544E8  FF      fd      dispatch [26gc:1e89 3b: 1dfd
R       0544E9  FF      09      page
R       0544EA  FF      ca      d->msg [26gc]   (26gc: cc8d 3b: 9-cab6
R       0544EB  FF      b6      msg [26ec]
R       0544EC  FF      BD      jsr
R       0544ED  FF      25      d->scrn [26gc g:263f 3b: 25ba
R       0544EE  FF      ba      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      3e      curs  [26gc:25c3 3b:253e
R       0544F6  FF      31      ins
R       0544F7  FF      30      tsx
R       0544F8  FF      8F      xgdx
R       0544F9  FF      BD      jsr
R       0544FA  FF      1d      dispatch
R       0544FB  FF      fd      dispatch [26gc:1e89 3b: 1dfd
R       0544FC  FF      05      page
R       0544FD  FF      a6      IntInput [26gc:5-adf0  3b: 5-A682
R       0544FE  FF      82      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      6b      burn [26gc:22f8  3bL 226b
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       208a2   98      f4    DS-70->4504msg [26gc:4-8d9e 99->e6 b:3-f8a2 b:0198->01f4

R       97dc0   72      34      "4504/114EQ"  
R       97dc1   65      35    (was breakmask) [26g:92cde  b:97dc0
R       97dc2   61      30 
R       97dc3   6b      34
R       97dc4   6d      2f
R       97dc5   61      31
R       97dc6   73      31
R       97dc7   6b      34
R       97dc8   20      45
R       97dc9   5b      51

R       202b0   02      03     900 FL [26gc]  21836[26gc:4-8836]b:3-f2af
R       202b1   bc      84   [26gc]
R       202bb   0f      12      4800_max_elev [26gc] (4-8841/2)
R       202bc   78      c0   [26gc]
R       202c6   fe      fd     -600_min_elev [26gc]  (4-884c/d)
R       202c7   5c      a8   [26gc]
R       202cf   03      0A     5-ff06_branch   [26gc]  (4-8855/6/7)
R       202d0   f0     B5    5-ff06_branch   [26gc] 0a-b526
R       202d1   5a     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 3b: 1dfd
R       054534   ff      1d
R       054535   ff      fd   [26gc]
R       054536   ff      09  setAzratio [26c:dc19) 3b:9-d9c2
R       054537   ff      d9   [26gc]
R       054538   ff      c2   [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 3b: 1dfd
R       054545   ff      1d
R       054546   ff      fd   [26gc]
R       054547   ff      09   setALTratio [26gc:09-dc4e) 3b: 9-D9F7
R       054548   ff      d9    [26gc]
R       054549   ff      f7    [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  3b: 227f
R       054556   ff      22   [26gc]
R       054557   ff      7f   [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  3b: 227f
R       054564   ff      22   [26gc]
R       054565   ff      7f    [26gc]
R       054566   ff      38   pulx
R       054567   ff      38   pulx
R       054568   ff      39   rts
; end of patch 30Eb
