Update in page 0948

This commit is contained in:
Gaboso 2018-01-25 17:28:56 -03:00
parent ae4e888b1b
commit 54aa264da3

View File

@ -183,18 +183,18 @@ REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES
TCF CORSETUP
# Page 948
1SHOTOK CAF BIT13 # CHECK ENGINE-ON BIT, NOT PERMITTING
EXTEND # SWITCHOVER DURING ENGINE-SHUTDOWN
EXTEND # ONE-SHOT DURING ENGINE-SHUTDOWN
RAND DSALMOUT
CCS A
TCF +2 # ONE-SHOT OK
TCF TVCEXFIN # NO, TERMINATE
TCF +2 # ONE-SHOT OK
TCF TVCEXFIN # NO, TERMINATE
INCR TVCEXPHS # (3)
# RSB 2009. The following instruction was previously "CAE FCORFRAC", but FCORFRAC
# is not in erasable memory as implied by the use of CAE. I've accordingly changed
# it to CAF instead to indicate fixed memory.
TEMPSET CAF FCORFRAC # SET UP CORRECTION FRACTION
TEMPSET CAF FCORFRAC # SET UP CORRECTION FRACTION
TS TEMPDAP +1
INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (4)
@ -207,8 +207,8 @@ CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
AD TEMPDAP +1
TS TEMPDAP # CG.CORR USES TEMPDAP
CAF NEGONE # SET UP FOR CNTR = -1 (SWTCHOVR DONE)
TS CNTRTMP # (COPYCYCLE AT "CNTRCOPY")
CAF NEGONE # SET UP FOR CNTR = -1 (ONE-SHOT DONE)
TS CNTRTMP # (COPYCYCLE AT .CNTRCOPY. )
CG.CORR EXTEND # PITCH TMC LOOP
DCA PDELOFF