diff --git a/Comanche055/P40-P47.agc b/Comanche055/P40-P47.agc index 828982a..8073683 100644 --- a/Comanche055/P40-P47.agc +++ b/Comanche055/P40-P47.agc @@ -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) - -