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

30
Luminary099/SERVICER.agc
View File

@ -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
@ -1065,11 +1065,11 @@ 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.
ABVAL
@ -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,7 +1148,7 @@ 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
@ -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,7 +1188,7 @@ 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
@ -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
@ -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