ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update SERVICER.agc

Browse Source
This commit is contained in:
Kourosh Simpkins 2020-12-27 00:18:39 +00:00
parent 153878aa4b
commit 5af8deb01d
1 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
Luminary099/SERVICER.agc
View File

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