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

Proof-read Comanche055\P40-P47 (pg. 0684-0699)

Browse Source
This commit is contained in:
arda-guler 2021-11-14 13:19:55 +03:00
parent 1094b8d745
commit 150a367578
1 changed files with 31 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Comanche055/P40-P47.agc
View File

@ -107,7 +107,7 @@ TRIMONLY CS BIT1 # SET MRKRTEMP FOR GIMBAL TRIM (-1)
+1 TS MRKRTMP # ENTRY FROM TST,TRIM
CAF ZERO # SET CNTR +0 FOR RESTART LOGIC IN S40.6
TS CNTR # +0 SAYS NORMAL ENTRY
TS CNTR # +0 SAYS NORMAL ENTRY.
# +1 (PRE40.6) SAYS RESTART ENTRY
CAF ONE
@ -131,7 +131,7 @@ P40S/RS CAF ONE
RELINT
P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PREO12
P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PRIO12
EBANK= TIG
# Page 686
TC INTPRET
@ -148,7 +148,7 @@ P40SET EXTEND
DCA MPAC # DELTA TIME TO PREREAD (INT.INIT.)
DXCH P40TMP
EXTEND
DCS 5SECDP # FOR TIGBLNK
DCS 5SECDP # FOR TTGBLNK
DAS P40TMP
EXTEND
DCA P40TMP
@ -297,7 +297,7 @@ P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG
EBANK= DAPDATR1
2CADR TTG/0
CS BIT3
CS BIT3 # 4.4 = TTG/0(2996CS), PRECHECH(-0CS)
TCF TTGPHS
P40CNV85 STQ SETPD
QTEMP1
@ -341,8 +341,8 @@ OCT35 OCT 35
EBANK= DAPDATR1
T5IDL24 2CADR T5IDLOC
3MDOT DEC 86.6175796 B-16 # 3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
# B+16 KB/SEC (NOT, EMDOT IS PAD-LOADED,
3MDOT DEC 86.8175796 B-16 # 3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
# B+16 KB/SEC (NOTE, EMDOT IS PAD-LOADED,
# BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO
# IT CAN REMAIN IN FIXED MEMORY)
TST,TRIM CAF BIT1 # SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
@ -358,7 +358,7 @@ TIGBLNK CAF 5SEC # CALL TIGAVEG IN FIVE SEC AT TIG-30
CAF PRIO14
TC NOVAC
EBANK= TIG
2CADR P40BLNKR # DON'T PROTECT -- RESTARTS BLANK DSKY
2CADR P40BLNKR # DON'T PROTECT-RESTARTS BLANK DSKY
CS OCT37 # 4.37 = TIGAVEG (500CS)
P40TSK TC NEWPHASE
@ -385,7 +385,7 @@ P47CSM TC BANKCALL # IMU STATUS CHECK
TC INTPRET
CALRB
MIDTOAV2
CA MPAC +1 # DELTA TIME TO RPEREAD (LESS THAN 100
CA MPAC +1 # DELTA TIME TO RPEREAD (LESS THAN 1000
TS P40TMP # CS, WITH A TPAGREE, INT.INIT.)
TC WAITLIST
EBANK= TIG
@ -433,7 +433,7 @@ P47BODY TC INTPRET
VLOAD
HI6ZEROS
STORE DELVIMU # CLEAR DISPLAY AND ACCUMULATOR STORAGE
STORE DELVCTL # UPON INITIATION OR ENTER RESPONSE
STORE DELVCTL # UPON INITIATION OR-ENTER-RESPONSE
EXIT
P47BOD CAF PRIO15 # LOWER PRIO THAN CALCN83 (20)
TC PRIOCHNG # TO PREVENT INTERRUPTION OF CALCN83
@ -445,7 +445,7 @@ P47/DSP CAF V1683
CADR GOFLASH
TC GOTOPOOH
TC GOTOPOOH
TCF P47BODY # RECYCLE -- CLEAR ACCUMULATED VELOCITY
TCF P47BODY # RECYCLE - CLEAR ACCUMULATED VELOCITY
# Page 693
# ROUTINE **TIG-30** DESCRIPTION
@ -466,7 +466,7 @@ TIGAVEG TC P41/P40 # TASK (4.37 PROTECTS)
CS SIX # 4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
TTGPHS TC NEWPHASE # ENTRY FROM P41REDSP (P41) WITH A=-4, OR
OCT 4 # FROM TIGON (P47) WITH A=-1
OCT 4 # FROM TIGON (P47) WITH A=-2
PRECHECK CCS PHASE5 # HAS SERVICER BEEN RESTARTED
TCF TASKOVER # YES, DON'T START ANOTHER ONE
@ -620,8 +620,8 @@ IMPLBURN CS BIT13 # RESET STRULLSW (COULD BE AN IMPULSIVE
DAS TIG
TC 2PHSCHNG
OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOT GROUP
OCT 07014 # C, DELTAT NEXT, TASK BELOW, IN
OCT 40153 # A,3.15 = ENGINOFF (TGO+1)....NOTE GROUP
OCT 07014 # C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
DEC -0 # -0 CS
EBANK= DAPDATR1
2CADR IMPLCONT
@ -638,7 +638,7 @@ IMPLCONT CS BIT9 # RESET IMPULSW, ENGINOFF IS NOW SET UP
TCR E6SETTER
EBANK= DAPDATR1
CAF ZERO # SET UP V97VCNTR IN CASE ENGINOFF (MASS-=
CAF ZERO # SET UP V97VCNTR IN CASE ENGINOFF (MASS-
TS V97VCNTR # BACK) ARRIVES BEFORE TVCDAPON
TCF PREPTVC
@ -2425,5 +2425,3 @@ RCSDAPON CAF 0.6SECT5 # 0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS
TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)