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

Update pages 857-862

Browse Source 
Update of pages 857-862 (exclusive) of SERVICER.agc
This commit is contained in:
Kourosh Simpkins
2020-09-06 13:37:24 +01:00
parent ca5dd7b7f9
commit 70f4ecc035
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Luminary099/SERVICER.agc
View File

@@ -51,7 +51,7 @@ BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133
CS FLAGWRD7
MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
ADS FLAGWRD7 # OF FLAGWRD7)
ADS FLAGWRD7 # OF FLAGWRD7)
CS DRFTBIT
MASK FLAGWRD2 # RESET DRIFTFLAG
@@ -64,7 +64,7 @@ BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133
TS OUTROUTE
CAF PRIO22
TC FINDVAC # TO FIRST ENTRY TO AVERAGE G
TC FINDVAC # TO FIRST ENTRY TO AVERAGE G.
EBANK= DVCNTR
2CADR NORMLIZE
@@ -106,15 +106,15 @@ REDO5.5 CAF ONE
CA FLAGWRD7
MASK AVEGFBIT
EXTEND
BZF AVEGOUT # AVEGFLAG DOWN -- SET UP FINAL EXIT
BZF AVEGOUT # AVEGFLAG DOWN - SET UP FINAL EXIT
CA FLAGWRD6
MASK MUNFLBIT
EXTEND
BZF MAKEACCS # MUNFLAG CLEAR -- BYPASS LR AND DISP.
BZF MAKEACCS # MUNFLAG CLEAR - BYPASS LR AND DISP.
CCS PHASE2
TCF MAKEACCS # PHASE 2 ACTIVATED -- AVOID MULTIPLE R10.
TCF MAKEACCS # PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE.
TS PIPCTR
@@ -130,7 +130,7 @@ REDO5.5 CAF ONE
COM
DXCH -PHASE2
CAF OCT24 # FIRST R10,R11 IN .200 SECONDS
CAF OCT24 # FIRST R10,R11 IN .200 SECONDS.
TC WAITLIST
EBANK= UNIT/R/
2CADR R10,R11
@@ -152,7 +152,7 @@ GNUTFAZ5 TS L # SAVE INPUT IN L
TCF +2
GNUFAZE5 TS L # SAVE INPUT IN L
CS L # -PHASE IN A, PHASE IN L.
CS L # -PHASE IN A, PHASE IN L
DXCH -PHASE5 # SET -PHASE5,PHASE5
TC Q
@@ -192,7 +192,7 @@ GETABVAL TC INTPRET
TS ABDELV # ABDELV = CM/SEC*2(-14).
EXTEND
MP KPIP
DXCH ABDVCONV # ABDVCONV = M/CS * 2(-5).
DXCH ABDVCONV # ABDVCONV = M/CS *2(-5).
EXTEND
DCA MASS
DXCH MASS1 # INITIALIZE MASS1 IN CASE WE SKIP MASSMON
@@ -204,8 +204,8 @@ MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE?
CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED?
MASK APSFLBIT
CCS A
EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A,
DCA APSVEX # OTHERWISE DPSVEX --> A
EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A.
DCA APSVEX # OTHERWISE DPSVEX --> A
TS Q
EXTEND
@@ -240,8 +240,8 @@ GOSERV TC QUIKFAZ5
COPYCYCL TC COPYCYC
# CA ZERO # A IS ZERO ON RETURN FROM COPYCYC
TS PIPATMPX
CA ZERO # A IS ZERO ON RETURN FROM COPYCYC
TS PIPATMPX # STILL UNDER INHINT
TS PIPATMPY
TS PIPATMPZ