; This May 2002  patch25aa.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!)

;  Automatic Satellite Track starting at down-count=zero  (optional, see new23bB.txt)
;  Display of Satellite AOS time to-the-second
;  Version number change from 25Ea  to 25a4 (so Initialization shows 25a )

; rseymour@wolfenet.com 7-May-2002

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

; Remove the semicolons (;) from the next three ";R" lines to allow
;  turning OFF Cord Wrap in hard-stopped scopes (ETX90/105/125)
; This only -allows- turning Cord Wrap OFF, it does not change its current setting.

;R      21006   27      20      cordwrap [25Ea] (4-8006) [25ea]
;R      210ea   26      21      cordwrap [25Ea]  (4-80ea) [25ea]
;R      2100a   17      23      chksum   cordwrap [25Ea] (4-800a) [25ea]


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

R       451df   bd      20      (-9d)      AutoStart (8-c1df)  [25ea]
R       451e0   1e      2a      (+0c)=-91  AutoStart (8-c1e0)  [25ea]
R       451e2   05      96      (chksum)   AutoStart (8-c1e2 05->96)[25ea]

;  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:
;   README25aa.txt  which should have come with this kit.
;  the last line of -this- file says "; end of patch 25aa"
;  "Have fun" (tm) -- Dick Seymour   7-May-2002

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


; 23eB patch region: 9-b4a5 (04c4a5) to 9-b58b (04c58b).  (E6 = 230. bytes)
; 24ea patch region:  5-b424 to b5ff  <--only change page...04C->02C    
; 25ea patch region:  a-b424 to b5ff  <--only change page...02C->054    

;old: 07.ae.03.ef  AAnew 07.ad.c9.a6   A4new  07.ad.a1.19
R       0004    ef      19       chksum
R       0005    03      a1       chksum
R       0006    ae      ad      ;chksum

R       000A    45      61      (E->a) [25ea]
R       0142FE  45      61      (32fe) [25ea]
R       000b    61      34      (a->4) [25ea]
R       0142Ff  61      34      (32ff) [25ea]

;             Satellite   to-the-second
R       44a3f   8c      77      (8-ba3f  8c->77) [25ea]
R       44a53   8c      77      (8-ba53  8c->77) [25ea]

;  menu manipulations  1872: street  1882: city
R       012738  17      18      AzUp->AltEdit [25ea] (@1738  1742  ->1882)
R       012739  42      82      AzUp->AltEdit [25ea]
R       012746  17      18      AltDwn->AzEdit [25ea]  (@1746 1732  ->1872)
R       012747  32      72      AltDwn->AzEdit [25ea]
R       01286C  18      00      prevent [25ea]  (@1862  (186c  18->00)
R       01286D  72      00      enter at adress [25ea]  (@1862  (186d  72->00)

R       012870  Ed      C5      addrs->street action [25ea] (1870:ed32->c547)
R       012871  32      47      owner [25ea]
R       012873  B5      b2      msg:Address->Edit [25ea] 1873:02b5->02b2)
R       012875  b6      9e      msg:Street->Az/RA [25ea]  1875:02b6->029e
R       012878  18      17      Uplink->train Alt [25ea]    1878:1892->1742
R       012879  92      42      Uplink [25ea]
R       01287A  18      17      ModeLink ->tele/train[25ea]  187a:1862->1712
R       01287B  62      12      ModeLink [25ea]
R       01287f  04      0a      page  first patch set  [25ea] 187f: 04 c547 (old)
R       012880  C5      b4      address first patch set [25ea] 187f: 0a b4a5 (new)
R       012881  47      a5      address  [25ea]

R       012883  B5      b2      msg: addr->edit [25ea] 1883: 02b5->02b2
R       012885  B7      9f      msg: city->Alt/Dec [25ea]  1885: 02b7->029f
R       012886  18      17      addr/state->train/az [25ea] 1886: 18a2->1732
R       012887  a2      32      Dwnlink:1842 [25ea]
R       01288A  18      17      ModeLink->tele/train [25ea]  188a: 1862->1712
R       01288B  62      12      ModeLink [25ea]
R       01288F  04      0a      page second patch set [25ea] 188f: 0a b4d9 (new)
R       012890  C5      b4      Addrs [25ea]  188f: 04 c5d4 (old)
R       012891  d4      d9      Addrs [25ea]

;
;       [Ab4a5]   AZ   Train display [24ea]
R       0544a5  FF      3C      pshx
R       0544A6  FF      BD      jsr
R       0544A7  FF      25      clrscrn
R       0544A8  FF      ff      clrscrn [25ea]
R       0544A9  FF      FC      ldd
R       0544AA  FF      B6      azTrain
R       0544AB  FF      0B      azTrain  [25ea]
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      9E      az [25ea]  
R       0544B2  FF      BD      jsr
R       0544B3  FF      1E      dispatch
R       0544B4  FF      79      dispatch [25ea]
R       0544B5  FF      09      page
R       0544B6  FF      c9      d->msg [25ea]
R       0544B7  FF      de      d->msg [25ea]
R       0544B8  FF      BD      jsr
R       0544B9  FF      26      msg->scrn
R       0544BA  FF      2f      msg->scrn [25ea]
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
R       0544C1  FF      b3      cursor [25ea]
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      79      dispatch [25ea]
R       0544C8  FF      05      page
R       0544C9  FF      ab      IntegerInput [25ea]
R       0544CA  FF      b0      IntegerInput [25ea]
R       0544CB  FF      CE      ldx#
R       0544CC  FF      B6      azTrain
R       0544CD  FF      0B      azTrain [25ea]
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      e8      burnWd [25ea]
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
R       0544DC  FF      ff      clrscrn [25ea]  
R       0544DD  FF      FC      ldd
R       0544DE  FF      B6      altTrain
R       0544DF  FF      09      altTrain [25ea]
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      9F      Alt [25ea]
R       0544E6  FF      BD      jsr
R       0544E7  FF      1E      dispatch
R       0544E8  FF      79      dispatch [25ea]  
R       0544E9  FF      09      page
R       0544EA  FF      c9      d->msg [25ea]  
R       0544EB  FF      de      msg [25ea]
R       0544EC  FF      BD      jsr
R       0544ED  FF      26      d->scrn
R       0544EE  FF      2f      scr [25ea]  
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      b3      curs  [25ea]  
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      79      dispatch [25ea]  
R       0544FC  FF      05      page
R       0544FD  FF      ab      IntInput [25ea] 
R       0544FE  FF      b0      IntIn [25ea]
R       0544FF  FF      CE      ldx#
R       054500  FF      B6      altTrain
R       054501  FF      09      altTrain [25ea]
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      e8      burn [25ea]Wd  
R       054509  FF      38      pulx
R       05450A  FF      38      pulx
R       05450B  FF      39      rts
;                  Barrel elevLim:  obsolete
;    Satellite  AOSaltitude Input:  obsolete

; 4504
; 4504/114eq replacing DS-70  21xxx=4-8000

R       21c00   99      F1      DS-70->4504msg [25ea] (4-8c00)(f1)

R       97d08   72      34      4504/114EQ  [25ea] (97d08-97d11)
R       97d09   65      35    (was breakmask) [25ea]
R       97d0a   61      30 
R       97d0b   6b      34
R       97d0c   6d      2f
R       97d0d   61      31
R       97d0e   73      31
R       97d0f   6b      34
R       97d10   20      45
R       97d11   5b      51

R       21686   02      03     900 FL [25ea] (was 4-840f)(4-8686 8687) 21686
R       21687   bc      84   [25ea]
R       21691   0f      12      4800_max_elev [25ea] (4-8691/2)
R       21692   78      c0   [25ea]
R       2169c   fe      fd     -600_min_elev [25ea]  (4-869c/d)
R       2169d   5c      a8   [25ea]
R       216a5   04      05     5-ff06_branch   [25ea]  (4-86a5)(was 4-8430)
R       216a6   84      ff     5-ff06_branch   [25ea]
R       216a7   30      26     5-ff06_branch   [25ea]  (26)

; patch requires x4f bytes
R       30F26   ff      3c     at 5-ff06   [24ea] (5-ff26)(30f26)
R       30f27   ff      3c   pshx,pshx
R       30F28   ff      cc   ldd_03ca  ratio
R       30F29   ff      03
R       30F2A   ff      CA
R       30F2B   ff      30   tsx
R       30F2C   ff      ed   std_2,x
R       30F2D   ff      02
R       30F2E   ff      cc   ldd_4092
R       30F2F   ff      40
R       30F30   ff      92
R       30F31   ff      ed   std_0,x
R       30F32   ff      00
R       30F33   ff      bd   dispatch  1e79
R       30F34   ff      1e
R       30F35   ff      79   [25ea]
R       30F36   ff      09  setAzratio [25ea] 09-d96a
R       30F37   ff      d9
R       30F38   ff      6a
R       30F39   ff      cc   ldd_0194
R       30F3A   ff      01
R       30F3B   ff      94
R       30F3C   ff      30   tsx
R       30F3D   ff      ed   std_2,x
R       30F3E   ff      02
R       30F3F   ff      cc   ldd_4092
R       30F40   ff      40
R       30F41   ff      92
R       30F42   ff      ed   std_0,x
R       30F43   ff      00
R       30F44   ff      bd   dispatch  1e79
R       30F45   ff      1e
R       30F46   ff      79   [25ea]
R       30F47   ff      09   setALTratio [25ea]  09-d99f
R       30F48   ff      d9
R       30F49   ff      9f
R       30F4A   ff      cc   ldd_B73E_(status_bits)[25ea]
R       30F4B   ff      b7
R       30F4C   ff      3e
R       30F4D   ff      30   tsx
R       30F4E   ff      ed   std_0,x
R       30F4F   ff      00
R       30F50   ff      f6   ldab_B73e
R       30F51   ff      b7
R       30F52   ff      3e
R       30F53   ff      ca   orab_x18_(GEM,Polar)
R       30F54   ff      18
R       30F55   ff      bd   jst_228f_(burn_EEprom)  22fc burnB
R       30F56   ff      22
R       30F57   ff      fc    [25ea]
R       30F58   ff      cc   ldd_B73d_(more_status)
R       30F59   ff      b7
R       30F5A   ff      3d
R       30F5B   ff      30   tsx
R       30F5C   ff      ed   std_0,x
R       30F5D   ff      00
R       30F5E   ff      f6   ldab_b73d
R       30F5F   ff      b7
R       30F60   ff      3d
R       30F61   ff      ca    orab_x08_(cord_wrap)
R       30F62   ff      08
R       30F63   ff      bd   jsr_228f_(burnB)   22fc burnB
R       30F64   ff      22
R       30F65   ff      fc    [25ea]
R       30F66   ff      cc    ldd_b615_(Min_Elev) [25ea]
R       30F67   ff      b6
R       30F68   ff      15
R       30F69   ff      30    tsx
R       30F6A   ff      ed     std_0,x
R       30F6B   ff      00
R       30F6C   ff      cc    ldd_fda8_(-600)
R       30F6D   ff      fd
R       30F6E   ff      a8
R       30F6F   ff      bd   jsr_227b_(burn_Word)   22e8
R       30F70   ff      22
R       30F71   ff      e8   [25ea]
R       30F72   ff      38   pulx
R       30F73   ff      38   pulx
R       30F74   ff      39   rts
; end of patch 25a4
