More coding exitement!
Thread Starter
Supreme Member
iTrader: (2)
Joined: May 2007
Posts: 2,574
Likes: 0
From: right behind you
Car: '85 maro
Engine: In the works...
Transmission: TH700 R4
Axle/Gears: 3.73 posi
More coding exitement!
Here's a snippet I've been working on to create a map qaulifier table out of one of the tps qaulifier tables in 6E. I already have another basic qualifier inplace, but I'd much rather have a table. Problem is the engine won't stay running long enough for me to diagnose what's killing things. Ideas?
;---------------------------------------------
;
; PWR ENR TPS THRESHOLD vs MAP
;
;---------------------------------------------
D8F2: LD8F2 LDX #$C501 ; PWR ENR TPS THRESHOLD vs MAP
D8F5: LDAA L0058 ; RPM/25
D8F7: LSRA
D8F8: LSRA ; RPM/4
D8F9: PSHA
D8FA: JSR LF3FF ; Call 2d Lk Up, (No Offset)
D8FD: CMPA L0064 ; Load Val
D8FF: BHI LD91C ; Branch if higher
;---------------------------------------------
;
; PWR ENR TPS THRESHOLD vs %TPS
; TBL = 2.56 * %TPS
;---------------------------------------------
D901: LDX #$C506 ; PWR ENR TPS THRESHOLD vs %TPS
D904: PULA
D905: JSR LF3FF ; Call 2d Lk Up, (No Offset)
D908: BRCLR,LC044,#$20,LD912 ; Branch if not Pwr Enr
; ... else
D90C: SUBA LC4FF ; %TPS HYST FOR PWR ENRICH
D90F: BCC LD912
; ... else
D911: CLRA
D912: LD912 PSHB
D913: ANDB #$DF ; 1101 1111
D915: STAB L0044
D917: CMPA L0083 ; TPS Ld Axis Var
D919: PULB
D91A: BHI LD95D
; ... else
D91C: LD91C LDAA LC4FD
D91F: BITB #$20 ; 0010 0000
D921: BEQ LD926
; ... else
D923: SUBA LC4FE ; 10 Ld VAL HYST FOR PWR ENRICH
D926: LD926 CMPA L0064 ; LD VAL
D928: BHI LD95D ; BR IF ...
; ... else
D92A: LDAB L0044
D92C: ORAB #$20 ; SET b5
D92E: STAB L0044
D930: BCLR L003A,#$80
;---------------------------------------------
;
; PWR ENR TPS THRESHOLD vs MAP
;
;---------------------------------------------
D8F2: LD8F2 LDX #$C501 ; PWR ENR TPS THRESHOLD vs MAP
D8F5: LDAA L0058 ; RPM/25
D8F7: LSRA
D8F8: LSRA ; RPM/4
D8F9: PSHA
D8FA: JSR LF3FF ; Call 2d Lk Up, (No Offset)
D8FD: CMPA L0064 ; Load Val
D8FF: BHI LD91C ; Branch if higher
;---------------------------------------------
;
; PWR ENR TPS THRESHOLD vs %TPS
; TBL = 2.56 * %TPS
;---------------------------------------------
D901: LDX #$C506 ; PWR ENR TPS THRESHOLD vs %TPS
D904: PULA
D905: JSR LF3FF ; Call 2d Lk Up, (No Offset)
D908: BRCLR,LC044,#$20,LD912 ; Branch if not Pwr Enr
; ... else
D90C: SUBA LC4FF ; %TPS HYST FOR PWR ENRICH
D90F: BCC LD912
; ... else
D911: CLRA
D912: LD912 PSHB
D913: ANDB #$DF ; 1101 1111
D915: STAB L0044
D917: CMPA L0083 ; TPS Ld Axis Var
D919: PULB
D91A: BHI LD95D
; ... else
D91C: LD91C LDAA LC4FD
D91F: BITB #$20 ; 0010 0000
D921: BEQ LD926
; ... else
D923: SUBA LC4FE ; 10 Ld VAL HYST FOR PWR ENRICH
D926: LD926 CMPA L0064 ; LD VAL
D928: BHI LD95D ; BR IF ...
; ... else
D92A: LDAB L0044
D92C: ORAB #$20 ; SET b5
D92E: STAB L0044
D930: BCLR L003A,#$80
Thread
Thread Starter
Forum
Replies
Last Post




