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

64
Comanche055/P40-P47.agc
View File

@ -34,7 +34,7 @@
# Colossus 2A
# Page 684
# PROGRAM DESCRIPTION ** P40CSM **
# PROGRAM DESCRIPTION **P40CSM**
EBANK= DAPDATR1
BANK 31
@ -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
@ -115,8 +115,8 @@ TRIMONLY CS BIT1 # SET MRKRTEMP FOR GIMBAL TRIM (-1)
EBANK= DAPDATR1
2CADR S40.6
CCS MRKRTMP # TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
CAF 18SEC # PLUS, DELAY FOR 18 SECONDS
CCS MRKRTMP # TEST TO FIND TIME TO WAIT FOR GIMBALTEST
CAF 18SEC # PLUS, DELAY FOR 18 SECONDS
TCF +2 # HOLE
CAF 5SEC # DELAY FOR TRIM ONLY TASK
TC BANKCALL
@ -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
@ -170,7 +170,7 @@ P40SNEWM EXTEND
EXTEND
DCA SEC29.96
DAS TIG
TCF P40SET # FOR LONGCALL OF TIG-30 (OR -35)
TCF P40SET # FOR LONGCALL OF TIG-30 ( OR -35)
EBANK= DAPDATR1
POSTBURN CAF V16N40
@ -250,7 +250,7 @@ P41CSM TC UPFLAG
FRCS2 # 2JET THRUST FOR S40.1
NJETSFLG
P40S/F # NJETS = 1 2-JET
DAD GOTO # NJETS = 0 4-JET
DAD GOTO # NJETS = 0 4-JET
FRCS2
P40S/F
@ -291,13 +291,13 @@ P41/DSP CAF V06N85B # SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
TCF P40S/RS
P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG
TS NVWORD1 # REDISPLAY NONFLASHING
TS NVWORD1 # REDISPLAY NONFLASHING
CAF SEC29.96 +1
TC WAITLIST
EBANK= DAPDATR1
2CADR TTG/0
CS BIT3
CS BIT3 # 4.4 = TTG/0(2996CS), PRECHECH(-0CS)
TCF TTGPHS
P40CNV85 STQ SETPD
QTEMP1
@ -312,7 +312,7 @@ P40CNV85 STQ SETPD
EBANK= DAPDATR1
CALCN85 TC INTPRET
CALL
UPDATEVG # NEW VG, S40.8 (+MAYBE S40.9)
UPDATEVG # NEW VG, S40.8(+MAYBE S40.9)
CALL
P40CNV85 # COMPUTE VGBODY
EXIT
@ -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
@ -375,7 +375,7 @@ SERVCADR 2CADR SERVEXIT
ACADN85 2CADR CALCN85
# Page 691
# PROGRAM DESCRIPTION ** P47CSM **
# PROGRAM DESCRIPTION **P47CSM**
COUNT 24/P47
@ -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,10 +433,10 @@ 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
TC PRIOCHNG # TO PREVENT INTERRUPTION OF CALCN83
TC PHASCHNG
OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 83
OCT 15000 # PRIO 15
@ -445,10 +445,10 @@ 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
# ROUTINE **TIG-30** DESCRIPTION
EBANK= TIG
COUNT 24/P40
@ -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
@ -474,7 +474,7 @@ PRECHECK CCS PHASE5 # HAS SERVICER BEEN RESTARTED
CADR PREREAD
# Page 694
# ROUTINE ** TIG-5 ** DESCRIPTION
# ROUTINE **TIG-5** DESCRIPTION
EBANK= TIG
TIG-5 CAF 5SEC
@ -497,7 +497,7 @@ TIG-5 CAF 5SEC
TCF TASKOVER
# Page 695
# ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION
# ROUTINES **TIG-0** AND **IGNITION** DESCRIPTION
EBANK= DAPDATR1 # TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
TIG-0 CS FLAGWRD7 # SET IGN FLAG
@ -555,7 +555,7 @@ DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
TS TVCPHASE
CAF ZERO # SET TVCEXECUTIVE PHASE
TS TVCEXPHS
CS OCT60000 # SET T5 BITS TO INDICATE TVC TAKEOVER ....
CS OCT60000 # SET T5 BITS TO INDICATE TVC TAKEOVER....
MASK FLAGWRD6 # BITS 15,14 = 10
AD BIT15
TS FLAGWRD6
@ -569,7 +569,7 @@ DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
DCS ERRORY # INITIALIZING TVC ATTITUDE ERRORS
DXCH ERRBTMP
CS FIVE # 4.5 = DOSTRULL (160 CS)
CS FIVE # 4.5 = DOSTRULL ( 160 CS )
TC NEWPHASE
OCT 4
@ -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
@ -674,7 +674,7 @@ DOTVCRCS TCR SETMAXDB # WIDE DEADBAND FOR CUTOFF TRANSIENT
OCT 00354 # A, 4.35 = POSTBURN (NOVAC, PRIO12)
CAF PRIO12 # SET UP POSTBURN V16N40 JOB
TC NOVAC
EBANK= DAPDATR1 # (SET MAXDB IN POST41)
EBANK= DAPDATR1 # (SETMAXDB IN POST41)
2CADR POSTBURN
TCF TASKOVER
@ -724,7 +724,7 @@ STEERADS 2CADR STEERING
.6SECT5 OCT 37703
5SECDP DEC 0 # MAKE DP 5SEC
5SEC DEC 500
OCT02202 OCT 02202 # BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS
OCT02202 OCT 02202 # BITS 2,8,11 FOR CHANNEL 12 TVC/OPTICS
EBANK= DAPDATR1
TVCON2C 2CADR TVCDAPON
@ -732,7 +732,7 @@ TVCON2C 2CADR TVCDAPON
TVCZAP CS OCT02202 # DISABLE TVC AND OPT ERR CNTRLS, REENGAGE
EXTEND # OPTICS DAC
WAND CHAN12
CS BIT1 # ENABLE T4RUPT OPTICS MONITOR .... PERMIT
CS BIT1 # ENABLE T4RUPT OPTICS MONITOR....PERMIT
TS OPTIND # OPTICS-ZERO BUT NOT OPTICS-DRIVE
CAF ZERO # CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
TS NVWORD1
@ -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)