Update SERVICER.agc
This commit is contained in:
Kourosh Simpkins
parent
153878aa4b
commit
5af8deb01d
@ -843,7 +843,7 @@ NOR29NOW TC INTPRET # INTPRET DOES A RELINT.
|
||||
V1S
|
||||
VXM VSL1
|
||||
REFSMMAT
|
||||
STOVL VN1 # TEMP. REF. VELOCITY VECTOR 2(7) M/CS.
|
||||
STOVL VN1 # TEMP. REF. VELOCITY VECTOR*2(7)M/CS.
|
||||
UNIT/R/
|
||||
VXV ABVAL
|
||||
# Page 877
|
||||
@ -994,10 +994,10 @@ CALCRVG VLOAD VXM
|
||||
KPIP1
|
||||
STORE DELVREF
|
||||
VSR1 PUSH
|
||||
VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS.
|
||||
VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS
|
||||
# Page 881
|
||||
GDT/2
|
||||
VAD PDDL
|
||||
VAD PDDL # (18)
|
||||
VN
|
||||
PGUIDE
|
||||
SL VXSC
|
||||
@ -1005,13 +1005,13 @@ CALCRVG VLOAD VXM
|
||||
VAD STQ
|
||||
RN
|
||||
31D
|
||||
STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29) M
|
||||
STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
|
||||
CALCGRAV
|
||||
|
||||
VAD VAD
|
||||
VAD
|
||||
VN
|
||||
STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS
|
||||
STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7)M/CS
|
||||
31D
|
||||
|
||||
DP1/20 2DEC 0.05
|
||||
@ -1065,23 +1065,23 @@ MUNRVG VLOAD VXSC
|
||||
VXSC
|
||||
VAD
|
||||
R
|
||||
STCALL R1S # STORE R SCALED AT 2(+24) M
|
||||
STCALL R1S # STORE R SCALED AT 2(+24)M.
|
||||
MUNGRAV
|
||||
# Page 883
|
||||
VAD VAD
|
||||
VAD
|
||||
VAD # (0)
|
||||
V
|
||||
STORE V1S # STORE V SCALED AT 2(+7) M/CS.
|
||||
STORE V1S # STORE V SCALED AT 2(+7)M/CS.
|
||||
ABVAL
|
||||
STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS.
|
||||
UNIT/R/
|
||||
DOT SL1
|
||||
V1S
|
||||
STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7) M/CS.
|
||||
STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7)M/CS.
|
||||
R1S
|
||||
VXV VSL2
|
||||
WM
|
||||
STODL DELVS # LUNAR ROTATION CORRECTION TERM*2(5) M/CS.
|
||||
STODL DELVS # LUNAR ROTATION CORRECTION TERM*2(5)M/CS.
|
||||
36D
|
||||
DSU
|
||||
/LAND/
|
||||
@ -1096,7 +1096,7 @@ MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R
|
||||
DMP VXSC
|
||||
SHIFT11
|
||||
UNIT/R/
|
||||
STORE GDT1/2 # 1/2GDT SCALED AT 2(7) M/CS.
|
||||
STORE GDT1/2 # 1/2GDT SCALED AT 2(7)M/CS.
|
||||
RVQ
|
||||
|
||||
1.95SECS DEC 195
|
||||
@ -1104,7 +1104,7 @@ MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R
|
||||
|
||||
2SEC(18) 2DEC 200 B-18
|
||||
|
||||
2SEC(28) 2OCT 0000000310 # 2SEC AT 2(28)
|
||||
2SEC(28) 2OCT 00000 00310 # 2SEC AT 2(28)
|
||||
|
||||
4SEC(28) 2DEC 400 B-28
|
||||
|
||||
@ -1115,11 +1115,11 @@ BITS4-7 OCT 110
|
||||
UPDATCHK CAF NOLRRBIT # SEE IF LR UPDATE INHIBITED.
|
||||
MASK FLGWRD11
|
||||
CCS A
|
||||
TCF CONTSERV # IT IS -- NO LR UPDATE
|
||||
CAF RNGEDBIT # NO INHIBIT -- SEE ALT MEAS. THIS CYCLE.
|
||||
TCF CONTSERV # IT IS-NO LR UPDATE
|
||||
CAF RNGEDBIT # NO INHIBIT - SEE ALT MEAS. THIS CYCLE.
|
||||
MASK FLGWRD11
|
||||
EXTEND
|
||||
BZF VMEASCHK # NO ALT MEAS THIS CYCLE -- CHECK FOR VEL
|
||||
BZF VMEASCHK # NO ALT MEAS THIS CYCLE-CHECK FOR VEL
|
||||
|
||||
POSUPDAT CA FIXLOC # SET PUSHLIST TO ZERO
|
||||
TS PUSHLOC
|
||||
@ -1132,7 +1132,7 @@ POSUPDAT CA FIXLOC # SET PUSHLIST TO ZERO
|
||||
V1S # SCALE V AT 2(5) M/CS
|
||||
VAD DOT
|
||||
DELVS # V RELATIVE TO SURFACE AT 2(5) M/CS
|
||||
0D # V ALONG HBEAM AT 2(7) M/CS.
|
||||
0D # V ALONG HBEAM AT 2(7) M/CS
|
||||
DMP EXIT
|
||||
RADSKAL # SCALE TO RADAR COUNTS X 5
|
||||
|
||||
@ -1148,10 +1148,10 @@ POSUPDAT CA FIXLOC # SET PUSHLIST TO ZERO
|
||||
DAD SL # CORRECT HMEAS FOR DOPPLER EFFECT
|
||||
HMEAS
|
||||
7D
|
||||
DMP VXSC # SLANT RANGE AT 2(21), PUSH UP FOR HBEAM
|
||||
DMP VXSC # SLANT RANGE AT 2(21).PUSH UP FOR HBEAM
|
||||
HSCAL # SLANT RANGE VECTOR AT 2(23) M
|
||||
DOT DSU
|
||||
UNIT/R/ # ALTITUDE AT 2(24) M
|
||||
UNIT/R/ # ALTITUDE AT 2(24)M
|
||||
HCALC # DELTA H AT 2(24) M
|
||||
STORE DELTAH
|
||||
EXIT
|
||||
@ -1178,7 +1178,7 @@ POSUPDAT CA FIXLOC # SET PUSHLIST TO ZERO
|
||||
NOREASON CS FLGWRD11
|
||||
MASK LRINHBIT
|
||||
CCS A
|
||||
TCF VMEASCHK # UPDATE INHIBITED -- TEST VELOCITY ANYWAY
|
||||
TCF VMEASCHK # UPDATE INHIBITED - TEST VELOCITY ANYWAY
|
||||
|
||||
TC INTPRET # DO POSITION UPDATE
|
||||
DLOAD SR4
|
||||
@ -1188,12 +1188,12 @@ NOREASON CS FLGWRD11
|
||||
DCA DELTAH # STORE DELTAH IN MPAC AND
|
||||
DXCH MPAC # BRING HCALC INTO A,L
|
||||
TC ALSIGNAG
|
||||
EXTEND # IF HIGH PART OF HCALC IS NON-ZERO, THEN
|
||||
EXTEND # IF HIGH PART OF HCALC IS NON ZERO, THEN
|
||||
BZF +2 # HCALC > HMAX,
|
||||
TCF VMEASCHK # SO UPDATE IS BYPASSED
|
||||
TS MPAC +2 # FOR LATER SHORTMP
|
||||
|
||||
CS L # -H AT 2(14) M
|
||||
CS L # -H AT 2(14)M
|
||||
AD LRHMAX # HMAX - H
|
||||
EXTEND
|
||||
BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE
|
||||
@ -1229,7 +1229,7 @@ VELUPDAT CS VSELECT # PROCESS VELOCITY DATA
|
||||
AD L
|
||||
AD L # -6 VSELECT IN A
|
||||
INDEX FIXLOC
|
||||
DXCH X1 # X1 = -6 VSELECT, X2 = -2 VSELECT
|
||||
DXCH X1 # X1 = -6 VSELECT. X2 = -2 VSELECT
|
||||
|
||||
CA EBANK4
|
||||
TS EBANK
|
||||
@ -1280,7 +1280,7 @@ VELUPDAT CS VSELECT # PROCESS VELOCITY DATA
|
||||
TC INTPRET
|
||||
VXSC PDDL
|
||||
KPIP1 # SCALE DELV TO 2(7) M/CS AND PUSH
|
||||
LRVTIME # TIME OF DELV AT 2(28) CS
|
||||
LRVTIME # TIME OF DELV AT 2(28)CS
|
||||
DSU DDV
|
||||
PIPTIME # TU - T(N-1)
|
||||
2SEC(28)
|
||||
@ -1302,8 +1302,8 @@ VELUPDAT CS VSELECT # PROCESS VELOCITY DATA
|
||||
|
||||
INCR LRMCTR
|
||||
TC BRANCH
|
||||
TCF VFAIL # DELTA V TOO LARGE. ALARM
|
||||
TCF VFAIL # DELTA V TOO LARGE. ALARM
|
||||
TCF VFAIL # DELTA V TOO LARGE ALARM
|
||||
TCF VFAIL # DELTA V TOO LARGE ALARM
|
||||
|
||||
TC DOWNFLAG # TURN OFF VEL FAIL LAMP
|
||||
ADRES VFLSHFLG
|
||||
|
||||
Loading…
Reference in New Issue
Block a user