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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Luminary099/SERVICER.agc
View File

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