Speed limiter & new pennies

[rr]

I have on good word that the speed limiter for the '747 ecm
works. I'll drop the assembled listing in following this text.

Some formatting may get lost, as word wrap is going
to take over, also try to use a fixed font.

BobR.


                              1
;-----------------------------------------------------------------
                              2 ;
                              3 ; Fuel cut routine for '747
                              4 ;
                              5 ; 10/26/99 Robert Rauscher
                              6 ;
                              7 ;
                              8 ; v1.00 Initial development
                              9 ; v1.01 changes
                             10 ;
                             11 ;
                             12 ;
                             13
;-----------------------------------------------------------------
                             14
                             15  .AREA FC (ABS)
                             16
                             17
                             18 ;
-------------------------------------------------------
                             19 ;
                             20 ; This location should be one less than
the fuel on speed
                             21 ; It is only required if using an
automatic transmission.
                             22 ; At speeds above this value, the TCC
will not unlock.
                             23
   D56E                      24  .ORG $$D56E
                             25
   D56E 49                   26  .DB 73
                             27
                             28
                             29 ;
-------------------------------------------------------
                             30 ;
                             31 ; This is the start of the actual code
patch
                             32
   D35A                      33  .ORG $$D35A
                             34
                             35 ;
-------------------------------------------------------
                             36
   D35A                      37 START:
   D35A C6 4B                38  LDAB #75  ; cut-out mph
   D35C 96 04                39  LDAA *$$04  ; status
   D35E 85 40                40  BITA #$$40  ; 1 == fuel on in effect
   D360 26 02                41  BNE RICH0  ; bra if rich, fuel on
   D362 C6 4A                42  LDAB #74  ; mph for fuel back on
   D364                      43 RICH0:
   D364 D1 34                44  CMPB *$$34  ; filt vss
   D366 22 07                45  BHI FUELON
   D368 84 BF                46  ANDA #~$$40  ; clear on bit, fuel off
   D36A 97 04                47  STAA *$$04  ; save status
   D36C 7E D9 F6             48  JMP LD9F6  ; jump to fuel off
   D36F                      49 FUELON:
   D36F 8A 40                50  ORAA #$$40  ; set to fuel on, bit
   D371 97 04                51  STAA *$$04  ; save status
   D373 96 00                52  LDAA *$$00  ; replaced instruct's
   D375 85 10                53  BITA #$$10  ; replacement
   D377 7E D9 F4             54  JMP LD9F4  ; do regular fuel
                             55
                             56 ; ------------------------------
                             57 ; Location to jump back into the
                             58 ; existing code for fuel on.
                             59 ; ------------------------------
                             60
   D9F4                      61  .ORG $$D9F4
                             62
   D9F4                      63 LD9F4:
                             64
                             65 ; ------------------------------
                             66 ; Location to jump back into the
                             67 ; existing code for fuel cut-off.
                             68 ; ------------------------------
                             69
   D9F6                      70  .ORG $$D9F6
                             71
   D9F6                      72 LD9F6:
                             73
                             74 ; ------------------------------
                             75 ; Location to patch into the
                             76 ; existing code and jump to
                             77 ; our new code.
                             78 ; ------------------------------
                             79
   D9F0                      80  .ORG $$D9F0
                             81
   D9F0 7E D3 5A             82  JMP START
                             83
                             84 ; ------------------------------
                             85 ; These two are used to patch
                             86 ; the egr tables used at $$D324.
                             87 ; Since all five are the same, I
                             88 ; have limited the use to one.
                             89 ;
                             90 ; Note: It is your responsibility
                             91 ; to verify that the ones in the
                             92 ; bin you use are also the same.
                             93 ; ------------------------------
                             94
   DCF6                      95  .ORG $$DCF6
                             96
   DCF6 81 10                97 LDCF6: CMPA #16
                             98
   DCFA                      99  .ORG $$DCFA
                            100
   DCFA 86 10               101 lDCFA: LDAA #16
                            102
                            103 ;-------------------------------
                            104 ;
                            105 ; eof ;