Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Proof Comanche055\P40-P47 #236 (pg: 0684-0699) #850

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Proof Comanche055\P40-P47 #236 (pg: 0684-0699) #850

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
150a367
Proof-read Comanche055\P40-P47 (pg. 0684-0699)
arda-guler Nov 14, 2021
8f65990
Comment typo fix
arda-guler Nov 14, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
64 changes: 31 additions & 33 deletions Comanche055/P40-P47.agc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@
# Colossus 2A

# Page 684
# PROGRAM DESCRIPTION ** P40CSM **
# PROGRAM DESCRIPTION **P40CSM**

EBANK= DAPDATR1
BANK 31
Expand Down Expand Up @@ -107,16 +107,16 @@ 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
TC WAITLIST
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
Expand All @@ -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
Expand All @@ -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
Expand All @@ -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
Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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), PRECHECK(-0CS)
TCF TTGPHS
P40CNV85 STQ SETPD
QTEMP1
Expand All @@ -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
Expand Down Expand Up @@ -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)
Expand All @@ -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
Expand All @@ -375,7 +375,7 @@ SERVCADR 2CADR SERVEXIT
ACADN85 2CADR CALCN85

# Page 691
# PROGRAM DESCRIPTION ** P47CSM **
# PROGRAM DESCRIPTION **P47CSM**

COUNT 24/P47

Expand All @@ -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
Expand Down Expand Up @@ -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
Expand All @@ -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
Expand All @@ -466,15 +466,15 @@ 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
TC POSTJUMP
CADR PREREAD

# Page 694
# ROUTINE ** TIG-5 ** DESCRIPTION
# ROUTINE **TIG-5** DESCRIPTION

EBANK= TIG
TIG-5 CAF 5SEC
Expand All @@ -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
Expand Down Expand Up @@ -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
Expand All @@ -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

Expand Down Expand Up @@ -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
Expand All @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -724,15 +724,15 @@ 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

-1 INHINT
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
Expand Down Expand Up @@ -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)