From 5af8deb01d9128a60bf6eceb1688dec5db684dd0 Mon Sep 17 00:00:00 2001 From: Kourosh Simpkins Date: Sun, 27 Dec 2020 00:18:39 +0000 Subject: [PATCH] Update SERVICER.agc --- Luminary099/SERVICER.agc | 60 ++++++++++++++++++++-------------------- 1 file changed, 30 insertions(+), 30 deletions(-) diff --git a/Luminary099/SERVICER.agc b/Luminary099/SERVICER.agc index 92bbbc9..45da77f 100644 --- a/Luminary099/SERVICER.agc +++ b/Luminary099/SERVICER.agc @@ -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 @@ -912,13 +912,13 @@ ALTCHK EXTEND ALTCRIT = 25KFT -25KFT 2DEC 7620 B-24 # (0) +25KFT 2DEC 7620 B-24 # (0) 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 @@ -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 + 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) @@ -1289,7 +1289,7 @@ VELUPDAT CS VSELECT # PROCESS VELOCITY DATA VAD VAD # PUSH UP FOR DELV V # VU = V(N-1) + DELVU + G(N-1) DTU VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT - DELVS # MOON ROTATION. + DELVS # MOON ROTATION. PUSH ABVAL # STORE IN PD SR4 DAD # ABS(VM)/8 + 7.5 AT 2(6) 7.5 @@ -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