ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
040296,000002: ## Copyright: Public domain.
040297,000003: ## Filename: TVCEXECUTIVE.agc
040298,000004: ## Purpose: Part of the source code for Colossus, build 249.
040299,000005: ## It is part of the source code for the Command Module's (CM)
040300,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
040301,000007: ## Assembler: yaYUL
040302,000008: ## Reference: Begins at p. 903.
040303,000009: ## Contact: Ron Burkey <info@sandroid.org>.
040304,000010: ## Website: www.ibiblio.org/apollo.
040305,000011: ## Mod history: 08/22/04 RSB. Transcribed.
040306,000012: ## 2010-10-24 JL Indentation fixes.
040307,000013: ## 2017-01-06 RSB Page numbers now agree with those on the
040308,000014: ## original harcopy, as opposed to the PDF page
040309,000015: ## numbers in 1701.pdf.
040310,000016: ## 2017-01-20 RSB Cross-diff'd comment text (not whitespace)
040311,000017: ## vs the already-proofed corresponding Colossus
040312,000018: ## 237 and Comanche 55 source-code files
040313,000019: ## and corrected errors found.
040314,000020: ##
040315,000021: ## The contents of the "Colossus249" files, in general, are transcribed
040316,000022: ## from a scanned copy of the program listing. Notations on this
040317,000023: ## document read, in part:
040318,000024: ##
040319,000025: ## Assemble revision 249 of AGC program Colossus by NASA
040320,000026: ## 2021111-041. October 28, 1968.
040321,000027: ##
040322,000028: ## This AGC program shall also be referred to as
040323,000029: ## Colossus 1A
040324,000030: ##
040325,000031: ## Prepared by
040326,000032: ## Massachusetts Institute of Technology
040327,000033: ## 75 Cambridge Parkway
040328,000034: ## Cambridge, Massachusetts
040329,000035: ## under NASA contract NAS 9-4065.
040330,000036: ##
040331,000037: ## Refer directly to the online document mentioned above for further information.
040332,000038: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
040333,000039: ##
040334,000040: ## In some cases, where the source code for Luminary 131 overlaps that of
040335,000041: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
040336,000042: ## source file, and then is proofed to incorporate any changes.
040337,000043:
|
|
Page 903 |
040339,000045: # PROGRAM NAME.... TVCEXECUTIVE, CONSISTING OF TVCEXEC, NEEDLEUP, VARGAINS
040340,000046: # REPCHEK, SWTCHOVR, CG.CORR, STRKUP, TVCEXFIN, ETC.
040341,000047: # LOG SECTION.... TVCEXECUTIVE SUBROUTINE ....DAPCSM
040342,000048: # MOD BY ENGEL DATE 23 OCT, 1967
040343,000049:
040344,000050: # FUNCTIONAL DESCRIPTION....
040345,000051: # *A SELF-PERPETUATING WAITLIST TASK AT 1/2 SECOND INTERVALS WHICH:
040346,000052: # PREPARES THE ROLL TVC DAP LADDERS
040347,000053: # PREPARES THE ROLL FDAI NEEDLE (FLY-TO OGA ERROR)
040348,000054: # PREPARES THE ROLL PHASE PLANE OGAERR (FLY-FROM OGA ERROR)
040349,000055: # PREPARES THE TVC ROLLDAP TASK WAITLIST CALL (3 CS DELAY)
040350,000056: # UPDATES THE NEEDLES DISPLAY
040351,000057: # IMPLEMENTS VARIABLE GAINS AND VARIABLE VEHICLE MASS
040352,000058: # PROVIDES FOR SWITCHOVER
040353,000059: # PROVIDES FOR A SINGLE-SHOT THRUST MISALIGNMENT CORRECTION AT SWTOVR
040354,000060: # PROVIDES FOR REPETITIVE THRUST MISALIGNMENT CORRECTIONS FOLLOWING
040355,000061: # SWITCHOVER
040356,000062: # PERFORMS CERTAIN STROKE TEST FUNCTIONS
040357,000063:
040358,000064: # CALLING SEQUENCE....
040359,000065: # *TVCEXEC CALLED AS A WAITLIST TASK, IN PARTICULAR BY TVCINIT4 AND BY
040360,000066: # ITSELF, BOTH AT 1/2 SECOND INTERVALS
040361,000067:
040362,000068: # NORMAL EXIT MODE.... TASKOVER
040363,000069:
040364,000070: # ALARM OR ABORT EXIT MODES.... NONE
040365,000071:
040366,000072: # SUBROUTINES CALLED....NEEDLER, S40.15, MASSPROP, TASKOVER, IBNKCALL
040367,000073:
040368,000074: # OTHER INTERFACES....
040369,000075: # *TVCRESTART PACKAGE FOR RESTARTS
040370,000076: # *PITCHDAP, YAWDAP FOR VARIABLE GAINS AND ENGINE TRIM ANGLES
040371,000077: # *S40.8 FOR KPRIMEDT AT SWITCHOVER
040372,000078:
040373,000079: # ERASABLE INITIALIZATION REQUIRED....
040374,000080: # *SEE TVCDAPON....TVCINIT4
040375,000081: # *VARK AND 1/CONACC (S40.15 OF R03)
040376,000082: # *V68 INITIALIZATION PRIOR TO SWITCHOVER OR FOLLOWING A RESTART
040377,000083: # DURING A STROKE TEST, IF STROKE TEST FUNCTIONS ARE TO BE TESTED
040378,000084: # *PAD LOADS EREPFRAC, ECORFRAC ETC.
040379,000085: # *BITS 15,14 OF FLAGWRD6 (T5 BITS)
040380,000086: # *TVCEXPHS FOR RESTARTS
040381,000087: # *ENGINE-ON BIT (11.13) FOR RESTARTS
040382,000088: # *CDUX, OGAD
040383,000089:
040384,000090: # OUTPUT....
|
|
Page 904 |
040386,000092: # *ROLL TVC DAP LADDERS, FDAI NEEDLE (AK), AND PHASE PLANE OGAERR
040387,000093: # *VARIABLE GAINS FOR PITCH/YAW AND ROLL TVC DAPS
040388,000094: # *SINGLE-SHOT AND REPETITIVE CORRECTIONS TO ENGINE TRIM ANGLES
040389,000095: # PACTOFF AND YACTOFF
040390,000096: # *CHANGES TO DAP SAMPLE RATES, DAP GAINS, AND STEERING-GAIN SCALING
040391,000097: # AT (LEM-ON) SWITCHOVER
040392,000098: # *STROKER, 4 SECONDS AFTER SWITCHOVER WHEN PRIOR V66, OR 2.5
040393,000099: # SECONDS AFTER RESTART DURING A STROKE TEST
040394,000100:
040395,000101: # DEBRIS.... MUCH, BUT SHAREABLE WITH RCS/ENTRY, ALL IN EBANK6
040396,000102:
040397,000103: 16,2660 BANK 16
040398,000104: 16,2000 SETLOC DAPROLL
040399,000105: 16,2000 BANK
040400,000106: 16,2660 E6,1742 EBANK= BZERO
040401,000107: 16,2660 COUNT* $$/TVCX
040402,000108: 16,2660 40102 TVCEXEC CS FLAGWRD6 # CHECK FOR TERMINATION (BITS 15,14 READ
040403,000109: 16,2661 74105 MASK OCT60000 # 10 FROM TVCDAPON TO RCSDAPON)
040404,000110: 16,2662 00006 EXTEND
040405,000111: 16,2663 63142 BZMF TVCEXFIN # TERMINATE
040406,000112:
040407,000113: 16,2664 34731 CAF .5SEC # W.L. CALL TO PERPETUATE TVCEXEC
040408,000114: 16,2665 05140 TC WAITLIST
040409,000115: 16,2666 E6,1742 EBANK= BZERO
040410,000116: 16,2666 02660 34066 2CADR TVCEXEC
040411,000117:
040412,000118: 16,2670 30032 ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART-
040413,000119: 16,2671 57672 XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START)
040414,000120: 16,2672 57673 XCH OGAPAST
040415,000121:
040416,000122: 16,2673 31450 CAE OGAD # PREPARE ROLL FDAI NEEDLE WITH FLY-TO
040417,000123: 16,2674 00006 EXTEND # ERROR (COMMAND - MEASURED)
040418,000124: 16,2675 21672 MSU OGANOW
040419,000125: 16,2676 55476 TS AK # FLY-TO OGA ERROR, SC.AT B-1 REVS
040420,000126:
040421,000127: 16,2677 00006 EXTEND # PREPARE ROLL DAP PHASE PLANE OGAERR
040422,000128: 16,2700 77705 MP -BIT14
040423,000129: 16,2701 55674 TS OGAERR # PHASE-PLANE (FLY-FROM) OGAERROR,
040424,000130: # SC.AT B+0 REVS
040425,000131:
040426,000132: 16,2702 36214 CAF THREE # SET UP ROLL DAP TASK (ALLOW SOME TIME)
040427,000133: 16,2703 05140 TC WAITLIST
040428,000134: 16,2704 E6,1742 EBANK= BZERO
040429,000135: 16,2704 03313 34066 2CADR ROLLDAP
040430,000136:
040431,000137: 16,2706 04633 NEEDLEUP TC IBNKCALL # DO A NEEDLES UPDATE (RETURNS AFTER CADR)
040432,000138: 16,2707 42404 CADR NEEDLER # (NEEDLES RESTARTS ITSELF)
040433,000139:
|
|
Page 905 |
040435,000141: 16,2710 34676 VARGAINS CAF BIT13 # CHECK ENGINE-ON BIT TO INHIBIT VARIABLE
040436,000142: 16,2711 00006 EXTEND # GAINS AND MASS IF ENGINE OFF
040437,000143: 16,2712 02011 RAND DSALMOUT # CHANNEL 11
040438,000144: 16,2713 10000 CCS A
040439,000145: 16,2714 12720 TCF +4 # ON, SO OK TO UPDATE GAINS AND MASS
040440,000146: 16,2715 34711 +5 CAF TWO # OFF, SO BYPASS MASS/GAIN UPDATES,
040441,000147: 16,2716 55661 TS TVCEXPHS # ALSO ENTRY FROM CCS BELOW WITH
040442,000148: 16,2717 12750 TCF SWT/COR # VCNTR = -0 (V97 R40 ENGFAIL)
040443,000149:
040444,000150: 16,2720 11653 CCS VCNTR # TEST FOR GAIN UPDATE TIME
040445,000151: 16,2721 12725 TCF +4 # NOT YET
040446,000152: 16,2722 12731 TCF GAINCHNG # NOW
040447,000153: 16,2723 12723 TCF +0 # NOT USED
040448,000154: 16,2724 12715 TCF VARGAINS +5 # NO, LOTHRUST (S40.8 R40)
040449,000155:
040450,000156: 16,2725 55663 +4 TS VCNTRTMP # PROTECT VCNTR AND
040451,000157: 16,2726 31474 CAE CSMMASS # CSMMASS DURING AN IMPULSIVE BURN
040452,000158: 16,2727 55662 TS MASSTMP
040453,000159: 16,2730 12741 TCF EXECCOPY
040454,000160:
040455,000161: 16,2731 04633 GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX
040456,000162: 16,2732 13243 CADR FIXCW # MASSPROP ENTRY (ALREADY INITIALIZED)
040457,000163: 16,2733 03145 TC S40.15 # UPDATE 1/CONACC, VARK
040458,000164: 16,2734 41647 CS TENMDOT # UPDATE MASS FOR NEXT 10 SEC. OF BURN
040459,000165: 16,2735 61474 AD CSMMASS
040460,000166: 16,2736 55662 TS MASSTMP # KG B+16
040461,000167:
040462,000168: 16,2737 34374 CAF NINETEEN # RESET THE VARIABLE-GAIN UPDATE COUNTER
040463,000169: 16,2740 55663 NOUPDATE TS VCNTRTMP # (COUNTDOWN, FROM VARGAINS +1)
040464,000170:
040465,000171: 16,2741 25661 EXECCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (1)
040466,000172:
040467,000173: 16,2742 31662 CAE MASSTMP # CSMMASS KG B+16
040468,000174: 16,2743 55474 TS CSMMASS
040469,000175:
040470,000176: 16,2744 31663 CAE VCNTRTMP # VCNTR
040471,000177: 16,2745 55653 TS VCNTR
040472,000178: 16,2746 55444 TS V97VCNTR # FOR ENGFAIL (R41) MASS UPDATES AT SPSOFF
040473,000179:
040474,000180: 16,2747 25661 INCR TVCEXPHS # COPYCYCLE OVER (2)
040475,000181:
040476,000182: 16,2750 11447 SWT/COR CCS CNTR # CHECK FOR SWITCHOVER/CG.CORRECTION
040477,000183: 16,2751 12755 TCF +4 # NOT YET
040478,000184: 16,2752 12773 TCF SWTCHOVR # NOW
040479,000185: 16,2753 12761 TCF REPCHEK # PRIOR SWITCHOVER (OR NONE)
040480,000186: 16,2754 12773 TCF SWTCHOVR # NOW (1/2 SEC SWITCHOVER, ONLY)
040481,000187:
040482,000188: 16,2755 55707 +4 TS CNTRTMP # COUNT DOWN
040483,000189: 16,2756 34716 CAF SEVEN # SETUP TVCEXPHS FOR ENTRY AT CNTRCOPY
040484,000190: 16,2757 55661 TS TVCEXPHS
|
|
Page 906 |
040486,000192: 16,2760 13122 TCF CNTRCOPY
040487,000193:
040488,000194: 16,2761 31652 REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES
040489,000195: 16,2762 00006 EXTEND
040490,000196: 16,2763 62770 BZMF +5 # NO (NEG OR +-ZERO)
040491,000197: 16,2764 55446 TS TEMPDAP +1 # YES, SET UP CORRECTION FRACTION
040492,000198: 16,2765 34715 CAF FIVE # ADVANCE TVCEXPHS
040493,000199: 16,2766 55661 TS TVCEXPHS
040494,000200: 16,2767 13053 TCF CORSETUP
040495,000201:
040496,000202: 16,2770 34707 +5 CAF EIGHT
040497,000203: 16,2771 55661 TS TVCEXPHS
040498,000204: 16,2772 13125 TCF STRKUP
040499,000205:
040500,000206: 16,2773 34676 SWTCHOVR CAF BIT13 # CHECK ENGINE-ON BIT, NOT PERMITTING
040501,000207: 16,2774 00006 EXTEND # SWITCHOVER DURING ENGINE-SHUTDOWN
040502,000208: 16,2775 02011 RAND DSALMOUT # TAILOFF
040503,000209: 16,2776 10000 CCS A
040504,000210: 16,2777 13001 TCF +2 # OK TO SWITCHOVER
040505,000211: 16,3000 13142 TCF TVCEXFIN # DONT SWITCHOVER, TERMINATE
040506,000212:
040507,000213: 16,3001 40105 CS FLAGWRD9 # SET SWITCHOVER FLAG (SWTOVER) FOR DWNLNK
040508,000214: 16,3002 74674 MASK BIT15 # AND POST-BURN TRIM UPDATES (SEE
040509,000215: 16,3003 26105 ADS FLAGWRD9 # ..BESTTRIM.. (P40-P47))
040510,000216:
040511,000217: 16,3004 31466 CAE DAPDATR1 # SWITCHOVER.... CHECK FOR LEM-OFF/ON
040512,000218: 16,3005 74676 MASK BIT13 # (NOTE, SHOWS LEM-OFF)
040513,000219: 16,3006 00006 EXTEND
040514,000220: 16,3007 13013 BZF GAINDOWN # LEM-ON....FULL SWITCHOVER/CG.CORRECTION
040515,000221:
040516,000222: 16,3010 34710 CAF FOUR # LEM-OFF....NO SWITCHOVER, JUST CG.CORR.
040517,000223: 16,3011 55661 TS TVCEXPHS
040518,000224: 16,3012 13050 TCF TEMPSET
040519,000225:
040520,000226: 16,3013 31420 GAINDOWN CAE ETVCDT/2 # LEM-ON.... DROP GAIN BY (OLDTVCDT/8CS)SQ
040521,000227: 16,3014 00006 EXTEND
040522,000228: 16,3015 74706 MP BIT5
040523,000229: 16,3016 22000 LXCH A
040524,000230: 16,3017 00006 EXTEND
040525,000231: 16,3020 70000 MP A
040526,000232: 16,3021 22000 LXCH A # (TVCDT/8CS)SQD, SC.AT 8+2
040527,000233:
040528,000234: 16,3022 00006 EXTEND # PREPARE NEW GAIN CONSTANT
040529,000235: 16,3023 71646 MP KTLX/I
040530,000236: 16,3024 20001 DDOUBL
040531,000237: 16,3025 20001 DDOUBL
040532,000238: 16,3026 55702 TS TKTLX/I # (FOR COPYCYCLE)
040533,000239:
040534,000240: 16,3027 25661 SWTCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (3)
|
|
Page 907 |
040536,000242: 16,3030 37677 CAF OCT37774 # LEM-ON ONLY..... T5 TIMER
040537,000243: 16,3031 55635 TS T5TVCDT
040538,000244:
040539,000245: 16,3032 31414 CAE EKPRIME +1 # PREPARE KPRIMEDT FOR 80MS DAP, USING
040540,000246: 16,3033 60000 DOUBLE
040541,000247: 16,3034 60000 DOUBLE
040542,000248: 16,3035 55644 TS KPRIMEDT # (KPRIMEDT+1 IS ZERO)
040543,000249:
040544,000250: # SCALING OF OMEGAC HAS CHANGED, BUT NO
040545,000251: # CHANGE OF REGISTERS. RATE COMMANDS
040546,000252: # ARE LOW BY (OLD TVCDT)/80, UNTIL
040547,000253: # NEXT S40.6 COMPUTATION, WHICH USES
040548,000254: # THE NEW KPRIMEDT.
040549,000255:
040550,000256: 16,3036 31702 CAE TKTLX/I # GAIN CONSTANT
040551,000257: 16,3037 55646 TS KTLX/I
040552,000258:
040553,000259: 16,3040 03154 TC S40.15 +7 # UPDATE VARK (ONLY, NO CHANGE 1/CONACC)
040554,000260:
040555,000261: 16,3041 11614 STRKCALL CCS STROKER # CHECK STROKER FOR VERB 68 INDICATION
040556,000262: 16,3042 13047 TCF +5 # STROKE TEST IN PROGRESS (80MS DAP)
040557,000263: 16,3043 13047 TCF +4 # +0 SAYS NO VERB 68 YET
040558,000264: 16,3044 13047 TCF +3 # STROKE TEST IN PROGRESS (80MS DAP)
040559,000265: 16,3045 34707 CAF EIGHT # -0 SAYS PRIOR VERB68, SO START
040560,000266: 16,3046 55664 TS STRKTIME # STROKE TEST IN 4 SECONDS
040561,000267:
040562,000268: 16,3047 25661 +543 INCR TVCEXPHS # COPYCYCLE OVER (SWTCHOVR ENTRY NEXT) (4)
040563,000269:
040564,000270: 16,3050 31422 TEMPSET CAE ECORFRAC # SET UP CORRECTION FRACTION
040565,000271: 16,3051 55446 TS TEMPDAP +1
040566,000272:
040567,000273: 16,3052 25661 INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (5)
040568,000274:
040569,000275: 16,3053 31466 CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
040570,000276: 16,3054 74676 MASK BIT13 # (NOTE, SHOWS LEM-OFF)
040571,000277: 16,3055 00006 EXTEND
040572,000278: 16,3056 13060 BZF +2 # LEM IS ON, PICK UP TEMPDAP+1
040573,000279: 16,3057 31446 CAE TEMPDAP +1 # LEM IS OFF, PICK UP 2(TEMPDAP+1)
040574,000280: 16,3060 61446 AD TEMPDAP +1
040575,000281: 16,3061 55445 TS TEMPDAP # CG.CORR USES TEMPDAP
040576,000282:
040577,000283: 16,3062 37716 CAF NEGONE # SET UP FOR CNTR = -1 (SWTCHOVR DONE)
040578,000284: 16,3063 55707 TS CNTRTMP # (COPYCYCLE AT .CNTRCOPY.)
040579,000285:
040580,000286: 16,3064 00006 CG.CORR EXTEND # PITCH TRIM-TRACKER CORRECTION
040581,000287: 16,3065 31626 DCA PDELOFF
040582,000288: 16,3066 53704 DXCH PACTTMP
040583,000289: 16,3067 41425 CS PACTOFF
040584,000290: 16,3070 61621 AD DELPBAR
040585,000291: 16,3071 00006 EXTEND
|
|
Page 908 |
040587,000293: 16,3072 71445 MP TEMPDAP
040588,000294: 16,3073 20001 DDOUBL
040589,000295: 16,3074 20001 DDOUBL
040590,000296: 16,3075 21704 DAS PACTTMP
040591,000297:
040592,000298: 16,3076 00006 EXTEND
040593,000299: 16,3077 31630 DCA YDELOFF
040594,000300: 16,3100 53706 DXCH YACTTMP
040595,000301: 16,3101 41426 CS YACTOFF
040596,000302: 16,3102 61623 AD DELYBAR
040597,000303: 16,3103 00006 EXTEND
040598,000304: 16,3104 71445 MP TEMPDAP
040599,000305: 16,3105 20001 DDOUBL
040600,000306: 16,3106 20001 DDOUBL
040601,000307: 16,3107 21706 DAS YACTTMP
040602,000308:
040603,000309: 16,3110 25661 CORCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (6)
040604,000310:
040605,000311: 16,3111 00006 EXTEND # TRIM-ESTIMATES, AND
040606,000312: 16,3112 31704 DCA PACTTMP
040607,000313: 16,3113 55425 TS PACTOFF # TRIMS
040608,000314: 16,3114 53626 DXCH PDELOFF
040609,000315:
040610,000316: 16,3115 00006 EXTEND
040611,000317: 16,3116 31706 DCA YACTTMP
040612,000318: 16,3117 55426 TS YACTOFF
040613,000319: 16,3120 53630 DXCH YDELOFF
040614,000320:
040615,000321: 16,3121 25661 INCR TVCEXPHS # COPYCYCLE OVER (SWT/COR ENTRY NEXT) (7)
040616,000322:
040617,000323: 16,3122 31707 CNTRCOPY CAE CNTRTMP # UPDATE CNTR (RESTARTS OK, FOLLOWS CPYCY)
040618,000324: 16,3123 55447 TS CNTR
040619,000325:
040620,000326: 16,3124 25661 INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (8)
040621,000327:
040622,000328: 16,3125 11664 STRKUP CCS STRKTIME # CHECK STROKE TEST START TIME
040623,000329: 16,3126 13131 TCF +3 # IN 4SEC DELAY AFTER SWITCHOVER
040624,000330: 16,3127 13133 TCF STRKNOW # START STROKE TEST NOW....
040625,000331: 16,3130 13142 TCF TVCEXFIN # NO STROKE TEST REQUEST YET
040626,000332:
040627,000333: 16,3131 55710 TS STRKTTMP # COUNT DOWN
040628,000334: 16,3132 13137 TCF STRKTCPY
040629,000335:
040630,000336: 16,3133 31412 STRKNOW CAE ESTROKER # START THE STROKE TEST NOW....
040631,000337: 16,3134 55614 TS STROKER
040632,000338: 16,3135 37716 CAF NEGONE # KILL THE STROKE TEST CALL
040633,000339: 16,3136 55710 TS STRKTTMP
040634,000340:
040635,000341: 16,3137 25661 STRKTCPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (9)
|
|
Page 909 |
040637,000343: 16,3140 31710 CAE STRKTTMP
040638,000344: 16,3141 55664 TS STRKTIME
040639,000345:
040640,000346: 16,3142 34714 TVCEXFIN CAF ZERO # RESET TVCEXPHS
040641,000347: 16,3143 55661 TS TVCEXPHS
040642,000348:
040643,000349: 16,3144 15213 TCF TASKOVER # OVER AND OUT
040644,000350:
|
|
Page 910 |
040646,000352: # NAME S40.15 INERTIA COMPUTATIONS
040647,000353:
040648,000354: 16,3145 E6,1650 EBANK= 1/CONACC
040649,000355:
040650,000356: 16,3145 31470 S40.15 CAE IXX # COMPUTE 1/CONACC (RACC)....IXX SC.AT
040651,000357: 16,3146 00006 EXTEND # B+20 KG M SQD
040652,000358: 16,3147 73164 MP 2PI/M # 2PI/M, SC.AT 1/(B+8 N M)
040653,000359: 16,3150 20001 DDOUBL
040654,000360: 16,3151 20001 DDOUBL
040655,000361: 16,3152 20001 DDOUBL
040656,000362: 16,3153 55650 TS 1/CONACC # SC.AT B+9 SEC SQD / REV
040657,000363:
040658,000364: 16,3154 31646 +7 CAE KTLX/I # COMPUTE VARK, SCALING IN THE KTLX/I FOR
040659,000365: 16,3155 00006 EXTEND # LM-OFF,ON. ENTRY FROM SWITCHOVER
040660,000366: 16,3156 71472 MP IAVG/TLX # SCALED AT B+2 SECONDS-SQUARED
040661,000367: 16,3157 20001 DDOUBL # SCALING
040662,000368: 16,3160 20001 DDOUBL
040663,000369: 16,3161 20001 DDOUBL
040664,000370: 16,3162 55651 TS VARK # LEM-OFF KPGEN3(0) OR LEM-ON VARK(0)
040665,000371:
040666,000372: 16,3163 00002 TC Q
040667,000373:
040668,000374: 16,3164 33074 2PI/M DEC .00331017 B+8 # 2PI/M, SC.AT 1/(B+8 N M)
End of include-file TVCEXECUTIVE.agc. Parent file is MAIN.agc