diff --git a/Luminary099/IMU_COMPENSATION_PACKAGE.agc b/Luminary099/IMU_COMPENSATION_PACKAGE.agc index fd08619..dcb8ef6 100644 --- a/Luminary099/IMU_COMPENSATION_PACKAGE.agc +++ b/Luminary099/IMU_COMPENSATION_PACKAGE.agc @@ -303,14 +303,14 @@ NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE TCF ENDOFJOB TCF +1 - CA FLAGWRD8 # IF SURFACE FLAG IS SET. SET TEM1 + CA FLAGWRD8 # IF SURFACE FLAG IS SET, SET TEM1 MASK BIT8 # POSITIVE SO THAT THE ACCELERATION TERMS TS TEM1 # WILL BE COMPENSATED. EXTEND BZF +3 # ARE WE ON THE SURFACE TC IBNKCALL # ON THE SURFACE - CADR PIPASR +3 # READ PIPAS. BUT DO NOT SCALE THEM + CADR PIPASR +3 # READ PIPAS, BUT DO NOT SCALE THEM CA TIME1 # (CS) X 2(+14) XCH 1/PIPADT # PREVIOUS TIME @@ -319,7 +319,7 @@ NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE AD 1/PIPADT # PRESENT TIME - PREVIOUS TIME NBD2 AD HALF # CORRECT FOR POSSIBLE TIME1 TICK AD HALF - XCH L # IF TIME1 DID NOT TICK. REMOVE RESULTING + XCH L # IF TIME1 DID NOT TICK, REMOVE RESULTING XCH L # OVERFLOW. NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14) @@ -328,9 +328,9 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14) CA ZERO TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS. - TS BUF # INDEX X. Y, Z. + TS BUF # INDEX X, Y, Z. - CCS TEM1 # IF SURFACE FLAG IS SET. + CCS TEM1 # IF SURFACE FLAG IS SET, TC IRIGX # COMPENSATE ACCELERATION TERMS. EXTEND