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