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

60
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
@ -912,13 +912,13 @@ ALTCHK EXTEND
ALTCRIT = 25KFT ALTCRIT = 25KFT
25KFT 2DEC 7620 B-24 # (0) 25KFT 2DEC 7620 B-24 # (0)
50KFT 2DEC 15240 B-24 # (2) 50KFT 2DEC 15240 B-24 # (2)
50FT 2DEC 15.24 B-24 # (4) 50FT 2DEC 15.24 B-24 # (4)
30KFT 2DEC 9144 B-24 # (6) 30KFT 2DEC 9144 B-24 # (6)
2KFT/SEC DEC 6.096 B-7 # 2000 FT/SEC AT 2(7) M/CS 2KFT/SEC DEC 6.096 B-7 # 2000 FT/SEC AT 2(7) M/CS
@ -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)
@ -1289,7 +1289,7 @@ VELUPDAT CS VSELECT # PROCESS VELOCITY DATA
VAD VAD # PUSH UP FOR DELV VAD VAD # PUSH UP FOR DELV
V # VU = V(N-1) + DELVU + G(N-1) DTU V # VU = V(N-1) + DELVU + G(N-1) DTU
VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT
DELVS # MOON ROTATION. DELVS # MOON ROTATION.
PUSH ABVAL # STORE IN PD PUSH ABVAL # STORE IN PD
SR4 DAD # ABS(VM)/8 + 7.5 AT 2(6) SR4 DAD # ABS(VM)/8 + 7.5 AT 2(6)
7.5 7.5
@ -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