Source Code
|
These source-code files are part of a reconstructed copy of Comanche 51, the
initial release (though not the final mission release) of the Apollo 11
Command Module (CM) Apollo Guidance Computer (AGC) software. The flown, final
release was Comanche 55. The reconstruction is believed to be exactly accurate,
but in the absence of an actual Apollo-era listing of Comanche 51, some
explanation of the reconstruction process is needed to insure confidence in
that accuracy.
The starting point was the source code of Comanche 55, whose original source code
is available. Comanche 55 source code was then modified by undoing changes known
to have been made between revisions 51 and 55. The most-significant steps involved
reverting changes related to the R-2 lunar potential model, the details of which
were known from the previous, separate, independent reconstruction of the Apollo 10
Lunar Module software Luminary 69/2. The now-reconstructed
Comanche 51 source code was verified by assembling it and checking that the assembled
code had the expected known-correct memory-bank checksums. Note that page numbers in
the reconstructed code match those on the Comanche 55 or Luminary 69 printouts, although
the source code would likely have different page numbers in a contemporary Comanche 51 listing.
Annotations that were not present in the contemporary source code have been added to
the reconstructed code to justify each change relative to Comanche 55. Here's a guide
to some of the Apollo documentation relevant to those annotations:
Among documentation not actually referenced in the annotations, there is
a short writeup about the reconstruction process in our software repository
that may be helpful in understanding it from a different perspective. There's also
a handy table
that lists what the number of memory-words should be for each routine in Comanche 51,
which could make a nice double-check; however, we've not performed that double-check ourselves.
Comments expected to have been present in the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
Project's GitHub repository.
|
028326,000002: ## Copyright: Public domain.
028327,000003: ## Filename: P32-P33,_P72-P73.agc
028328,000004: ## Purpose: A section of Comanche revision 051.
028329,000005: ## It is part of the reconstructed source code for the
028330,000006: ## original release of the flight software for the Command
028331,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
028332,000008: ## The code has been recreated from a copy of Comanche 055. It
028333,000009: ## has been adapted such that the resulting bugger words
028334,000010: ## exactly match those specified for Comanche 51 in NASA drawing
028335,000011: ## 2021153D, which gives relatively high confidence that the
028336,000012: ## reconstruction is correct.
028337,000013: ## Reference: pp. 649-683
028338,000014: ## Assembler: yaYUL
028339,000015: ## Contact: Ron Burkey <info@sandroid.org>.
028340,000016: ## Website: www.ibiblio.org/apollo/index.html
028341,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
028342,000018:
|
|
Page 649
|
028344,000020: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
028345,000021:
028346,000022: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028347,000023: # MOD BY WHITE.P DATE 1 JUNE 67
028348,000024:
028349,000025: # PURPOSE
028350,000026: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
028351,000027: # CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
028352,000028: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
028353,000029: # (CDH) MANEUVER.
028354,000030: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028355,000031: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028356,000032: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
028357,000033: # ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
028358,000034: # APPROVAL BY THE ASTRONAUT/GROUND.
028359,000035: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
028360,000036: # THRUSTING PROGRAM.
028361,000037:
028362,000038: # ASSUMPTIONS
028363,000039: # (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
028364,000040: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
028365,000041: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
028366,000042: # POSITION.
028367,000043: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
028368,000044: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
028369,000045: # COMPLETION OF THE PROGRAM.
028370,000046: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
028371,000047: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
028372,000048: # COMPLETION OF THE PROGRAM.
028373,000049: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
028374,000050: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
028375,000051: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
028376,000052: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
028377,000053: # IGNITION.
028378,000054: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
028379,000055: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
028380,000056: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
028381,000057: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
028382,000058: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER CREW
|
|
Page 650
|
028384,000060: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
028385,000061: # OUT-OF-PLANE CSI MANEUVER.
028386,000062: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028387,000063: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
028388,000064: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
028389,000065: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
028390,000066: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
028391,000067: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
028392,000068: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028393,000069: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
028394,000070: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028395,000071: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
028396,000072: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028397,000073: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
028398,000074: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028399,000075: # THRUSTING MANEUVER.
028400,000076: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028401,000077: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028402,000078:
028403,000079: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028404,000080: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028405,000081: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
028406,000082: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028407,000083:
028408,000084: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028409,000085: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
028410,000086: # CYCLE.
028411,000087:
028412,000088: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
028413,000089: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
028414,000090: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
028415,000091: # PROGRAM.
028416,000092:
028417,000093: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
028418,000094: # A THRUSTING MANEUVER.
028419,000095:
028420,000096: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028421,000097:
028422,000098: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
028423,000099:
028424,000100: # P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
028425,000101:
028426,000102: # INPUT
028427,000103: # (1) TCSI TIME OF THE CSI MANEUVER
|
|
Page 651
|
028429,000105: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
028430,000106: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
028431,000107: # MANEUVER POINT
028432,000108: # (3) ELEV DESIRED LOS ANGLE AT TPI
028433,000109: # (4) TTPI TIME OF THE TPI MANEUVER
028434,000110:
028435,000111: # OUTPUT
028436,000112: # (1) TRKMKCNT NUMBER OF MARKS
028437,000113: # (2) TTOGO TIME TO GO
028438,000114: # (3) +MGA MIDDLE GIMBAL ANGLE
028439,000115: # (4) DIFFALT DELTA ALTITUDE AT CDH
028440,000116: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH
028441,000117: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI
028442,000118: # (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
028443,000119: # (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
028444,000120:
028445,000121: # DOWNLINK
028446,000122: # (1) TCSI TIME OF THE CSI MANEUVER
028447,000123: # (2) TCDH TIME OF THE CDH MANEUVER
028448,000124: # (3) TTPI TIME OF THE TPI MANEUVER
028449,000125: # (4) TIG TIME OF THE CSI MANEUVER
028450,000126: # (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
028451,000127: # (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028452,000128: # (7) DIFFALT DELTA ALTITUDE AT CDH
028453,000129: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
028454,000130: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
028455,000131: # MANEUVER POINT
028456,000132: # (9) ELEV DESIRED LOS ANGLE AT TPI
028457,000133:
028458,000134: # COMMUNICATION TO THRUSTING PROGRAMS
028459,000135: # (1) TIG TIME OF THE CSI MANEUVER
028460,000136: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
028461,000137: # INTO PLANE OF PASSIVE VEHICLE
028462,000138: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
028463,000139: # INTO PLANE OF PASSIVE VEHICLE
028464,000140: # (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES
028465,000141: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
028466,000142: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
028467,000143:
028468,000144: # SUBROUTINES USED
028469,000145: # AVFLAGA
028470,000146: # AVFLAGP
028471,000147: # P20FLGON
028472,000148: # VARALARM
028473,000149: # BANKCALL
028474,000150: # GOFLASH
028475,000151: # GOTOPOOH
|
|
Page 652
|
028477,000153: # VNPOOH
028478,000154: # GOFLASHR
028479,000155: # BLANKET
028480,000156: # ENDOFJOB
028481,000157: # SELECTMU
028482,000158: # ADVANCE
028483,000159: # INTINT
028484,000160: # PASSIVE
028485,000161: # CSI/A
028486,000162: # S32/33.1
028487,000163: # DISDVLVC
028488,000164: # VN1645
028489,000165:
028490,000166: 35,3445 BANK 35
028491,000167: 04,2000 SETLOC CSI/CDH1
028492,000168: 04,2000 BANK
028493,000169: 04,3303 E4,1770 EBANK= SUBEXIT
028494,000170: 04,3303 COUNT 35/P3272
028495,000171: 04,3303 04627 P32 TC AVFLAGA
028496,000172: 04,3304 03306 TC P32STRT
028497,000173: 04,3305 04642 P72 TC AVFLAGP
028498,000174: 04,3306 06006 P32STRT TC INTPRET
028499,000175: 04,3307 77745 DLOAD
028500,000176: 04,3310 11566 ZEROVEC
028501,000177: 04,3311 03754 STORE CENTANG
028502,000178: 04,3312 77776 EXIT
028503,000179: 04,3313 03331 TC P32/P72A
028504,000180: 04,3314 77734 ALMXITA SXA,2
028505,000181: 04,3315 03664 CSIALRM
028506,000182: 04,3316 77740 ALMXIT LXC,1
028507,000183: 04,3317 03664 CSIALRM
028508,000184: 04,3320 77533 SLOAD* EXIT
028509,000185: 04,3321 15653 ALARM/TB -1,1
028510,000186: 04,3322 30154 CA MPAC
028511,000187: 04,3323 05764 TC VARALARM
028512,000188: 04,3324 35050 CAF V05N09
028513,000189: 04,3325 04662 TC BANKCALL
028514,000190: 04,3326 20720 CADR GOFLASH
028515,000191: 04,3327 04106 TC GOTOPOOH
028516,000192: 04,3330 03324 TC -4
028517,000193: 04,3331 04647 P32/P72A TC P20FLGON
028518,000194: 04,3332 06006 TC INTPRET
028519,000195: 04,3333 77745 DLOAD
028520,000196: 04,3334 11566 ZEROVEC
028521,000197: 04,3335 03766 STORE NN
028522,000198: 04,3336 77776 EXIT
028523,000199: 04,3337 34656 CAF V06N11 # TCSI
028524,000200: 04,3340 04575 TC VNPOOH
028525,000201: 04,3341 34615 CAF V06N55 # NN. ELEV(RGLOS)
|
|
Page 653
|
028527,000203: 04,3342 04662 TC BANKCALL
028528,000204: 04,3343 20720 CADR GOFLASH
028529,000205: 04,3344 04106 TC GOTOPOOH
028530,000206: 04,3345 03347 TC +2
028531,000207: 04,3346 03341 TC -5
028532,000208: 04,3347 34614 CAF V06N37 # TTPI
028533,000209: 04,3350 04575 TC VNPOOH
028534,000210: 04,3351 06006 TC INTPRET
028535,000211: 04,3352 77745 DLOAD
028536,000212: 04,3353 02637 TCSI
028537,000213: 04,3354 37413 STCALL TIG
028538,000214: 04,3355 10712 SELECTMU
028539,000215: 04,3356 77624 P32/P72B CALL
028540,000216: 04,3357 76645 ADVANCE
028541,000217: 04,3360 77201 SETPD VLOAD
028542,000218: 04,3361 00001 0D
028543,000219: 04,3362 03512 VPASS1
028544,000220: 04,3363 65315 PDVL PDDL
028545,000221: 04,3364 03756 RPASS1
028546,000222: 04,3365 02637 TCSI
028547,000223: 04,3366 65325 PDDL PDDL
028548,000224: 04,3367 03663 TTPI
028549,000225: 04,3370 11630 2PISC
028550,000226: 04,3371 41512 SL2 PUSH
028551,000227: 04,3372 77624 CALL
028552,000228: 04,3373 72705 INTINT
028553,000229: 04,3374 77624 CALL
028554,000230: 04,3375 45247 PASSIVE
028555,000231: 04,3376 77624 CALL
028556,000232: 04,3377 15704 CSI/A
028557,000233: 04,3400 43014 P32/P72C BON SET
028558,000234: 04,3401 01311 FINALFLG
028559,000235: 04,3402 11404 P32/P72D
028560,000236: 04,3403 00470 UPDATFLG
028561,000237: 04,3404 52145 P32/P72D DLOAD GOTO
028562,000238: 04,3405 02547 T1TOT2
028563,000239: 04,3406 30002 P32/P72E
028564,000240: 14,2000 SETLOC CSI/CDH3
028565,000241: 14,2000 BANK
028566,000242: 14,2002 02547 P32/P72E STORE T1TOT2
028567,000243: 14,2003 51025 DSU BPL
028568,000244: 14,2004 15652 60MIN
028569,000245: 14,2005 30002 P32/P72E
028570,000246: 14,2006 52145 DLOAD GOTO
028571,000247: 14,2007 03656 T2TOT3
028572,000248: 14,2010 11407 P32/P72F
028573,000249: 04,2000 SETLOC CSI/CDH1
028574,000250: 04,2000 BANK
028575,000251: 04,3407 03656 P32/P72F STORE T2TOT3
028576,000252: 04,3410 51025 DSU BPL
|
|
Page 654
|
028578,000254: 04,3411 15652 60MIN
028579,000255: 04,3412 11407 P32/P72F
028580,000256: 04,3413 77776 EXIT
028581,000257: 04,3414 34660 CAF V06N75
028582,000258: 04,3415 04575 TC VNPOOH
028583,000259: 04,3416 06006 TC INTPRET
028584,000260: 04,3417 45175 VLOAD CALL
028585,000261: 04,3420 02445 DELVEET1
028586,000262: 04,3421 73457 S32/33.1
028587,000263: 04,3422 26445 STOVL DELVEET1
028588,000264: 04,3423 02453 RACT2
028589,000265: 04,3424 26541 STOVL RACT1
028590,000266: 04,3425 03667 DELVEET2
028591,000267: 04,3426 45170 AXT,1 CALL
028592,000268: 04,3427 01522 VN 0682
028593,000269: 04,3430 76625 DISDVLVC
028594,000270: 04,3431 77745 DLOAD
028595,000271: 04,3432 03663 TTPI
028596,000272: 04,3433 36641 STCALL TTPIO
028597,000273: 04,3434 73002 VN1645
028598,000274: 04,3435 77650 GOTO
028599,000275: 04,3436 11356 P32/P72B
028600,000276:
|
|
Page 655
|
028602,000278: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
028603,000279: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028604,000280: # MOD BY WHITE.P DATE 1JUNE67
028605,000281:
028606,000282: # PURPOSE
028607,000283:
028608,000284: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
028609,000285: # ALTITUDE MANEUVER (CDH).
028610,000286:
028611,000287: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028612,000288: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028613,000289:
028614,000290: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
028615,000291: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
028616,000292: # ASTRONAUT/GROUND.
028617,000293:
028618,000294: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
028619,000295: # THRUSTING PROGRAM.
028620,000296:
028621,000297: # ASSUMPTIONS
028622,000298:
028623,000299: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
028624,000300: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
028625,000301: # THERFORE -
028626,000302:
028627,000303: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028628,000304: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028629,000305: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028630,000306: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028631,000307:
028632,000308: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
028633,000309: # COMPUTED TO BE GREATER THAN 10 MINUTES.
028634,000310:
028635,000311: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028636,000312: # COMPUTED TO BE GREATER THAN 10 MINUTES.
028637,000313:
028638,000314: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028639,000315: # ORBITS WAS MINMIZED.
028640,000316:
028641,000317: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
028642,000318: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
028643,000319: # POSITION AT CSI IGNITION.
028644,000320:
028645,000321: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
028646,000322: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
028647,000323: # ORBIT OR 85 NM FOR EARTH ORBIT.
028648,000324:
028649,000325: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028650,000326: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
|
|
Page 656
|
028652,000328: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028653,000329: # IN AN OUT-OF-PLANE MANEUVER.
028654,000330:
028655,000331: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028656,000332: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
028657,000333:
028658,000334: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
028659,000335: # THE GROUND. THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
028660,000336: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
028661,000337: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
028662,000338:
028663,000339: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028664,000340: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
028665,000341: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028666,000342: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
028667,000343: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028668,000344: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
028669,000345: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028670,000346: # THRUSTING MANEUVER.
028671,000347:
028672,000348: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028673,000349:
028674,000350: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028675,000351:
028676,000352: # ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028677,000353: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028678,000354: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
028679,000355: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028680,000356:
028681,000357: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028682,000358: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
028683,000359: # CYCLE.
028684,000360:
028685,000361: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
028686,000362: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
028687,000363: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
028688,000364: # PROGRAM.
028689,000365:
028690,000366: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
028691,000367: # A THRUSTING MANEUVER.
028692,000368:
028693,000369: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028694,000370:
028695,000371: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
028696,000372:
028697,000373: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
028698,000374:
028699,000375: # INPUT
028700,000376:
028701,000377: # (1) TTPI0 TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
|
|
Page 657
|
028703,000379: # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
028704,000380: # (3) TCDH TIME OF THE CDH MANEUVER
028705,000381:
028706,000382: # OUTPUT
028707,000383:
028708,000384: # (1) TRKMKCNT NUMBER OF MARKS
028709,000385: # (2) TTOGO TIME TO GO
028710,000386: # (3) +MGA MIDDLE GIMBAL ANGLE
028711,000387: # (4) DIFFALT DELTA ALTITUDE AT CDH
028712,000388: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
028713,000389: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
028714,000390: # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
028715,000391:
028716,000392: # DOWNLINK
028717,000393:
028718,000394: # (1) TCDH TIME OF THE CDH MANEUVER
028719,000395: # (2) TTPI TIME OF THE TPI MANEUVER
028720,000396: # (3) TIG TIME OF THE CDH MANEUVER
028721,000397: # (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028722,000398: # (5) DIFFALT DELTA ALTITUDE AT CDH
028723,000399: # (6) ELEV DESIRED LOS ANGLE AT TPI
028724,000400:
028725,000401: # COMMUNICATION TO THRUSTING PROGRAMS
028726,000402:
028727,000403: # (1) TIG TIME OF THE CDH MANEUVER
028728,000404: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
028729,000405: # INTO PLANE OF PASSIVE VEHICLE
028730,000406: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
028731,000407: # INTO PLANE OF PASSIVE VEHICLE
028732,000408: # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028733,000409: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
028734,000410: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
028735,000411:
028736,000412: # SUBROUTINES USED
028737,000413:
028738,000414: # AVFLAGA
028739,000415: # AVFLAGP
028740,000416: # P20FLGON
028741,000417: # VNPOOH
028742,000418: # SELECTMU
028743,000419: # ADVANCE
028744,000420: # CDHMVR
028745,000421: # INTINT3P
028746,000422: # ACTIVE
028747,000423: # PASSIVE
028748,000424: # S33/34.1
028749,000425: # ALARM
028750,000426: # BANKCALL
028751,000427: # GOFLASH
028752,000428: # GOTOPOOH
028753,000429: # S32/33.1
|
|
Page 658
|
028755,000431: # VN1645
028756,000432:
028757,000433: 04,3437 COUNT 35/P3373
028758,000434:
028759,000435: 04,3437 04627 P33 TC AVFLAGA
028760,000436: 04,3440 03442 TC P33/P73A
028761,000437: 04,3441 04642 P73 TC AVFLAGP
028762,000438: 04,3442 04647 P33/P73A TC P20FLGON
028763,000439: 04,3443 34657 CAF V06N13 # TCDH
028764,000440: 04,3444 04575 TC VNPOOH
028765,000441: 04,3445 06006 TC INTPRET
028766,000442: 04,3446 77745 DLOAD
028767,000443: 04,3447 02641 TTPIO
028768,000444: 04,3450 17663 STODL TTPI
028769,000445: 04,3451 02635 TCDH
028770,000446: 04,3452 37413 STCALL TIG
028771,000447: 04,3453 10712 SELECTMU
028772,000448: 04,3454 77624 P33/P73B CALL
028773,000449: 04,3455 76645 ADVANCE
028774,000450: 04,3456 77624 CALL
028775,000451: 04,3457 13230 CDHMVR
028776,000452: 04,3460 77201 SETPD VLOAD
028777,000453: 04,3461 00001 0D
028778,000454: 04,3462 03546 VACT3
028779,000455: 04,3463 45115 PDVL CALL
028780,000456: 04,3464 02453 RACT2
028781,000457: 04,3465 63671 INTINT3P
028782,000458: 04,3466 77624 CALL
028783,000459: 04,3467 45237 ACTIVE
028784,000460: 04,3470 77201 SETPD VLOAD
028785,000461: 04,3471 00001 0D
028786,000462: 04,3472 02617 VPASS2
028787,000463: 04,3473 45115 PDVL CALL
028788,000464: 04,3474 02625 RPASS2
028789,000465: 04,3475 63671 INTINT3P
028790,000466: 04,3476 77624 CALL
028791,000467: 04,3477 45247 PASSIVE
028792,000468: 04,3500 43145 DLOAD SET
028793,000469: 04,3501 11566 ZEROVEC
028794,000470: 04,3502 03461 ITSWICH
028795,000471: 04,3503 36364 STCALL NOMTPI
028796,000472: 04,3504 72216 S33/34.1
028797,000473: 04,3505 77454 BZE EXIT
028798,000474: 04,3506 24000 P33/P73C
028799,000475: 04,3507 05650 TC ALARM
028800,000476: 04,3510 00611 OCT 611
028801,000477: 04,3511 35050 CAF V05N09
028802,000478: 04,3512 04662 TC BANKCALL
028803,000479: 04,3513 20720 CADR GOFLASH
028804,000480: 04,3514 04106 TC GOTOPOOH
|
|
Page 659
|
028806,000482: 04,3515 03517 TC +2
028807,000483: 04,3516 03442 TC P33/P73A
028808,000484: 04,3517 06006 TC INTPRET
028809,000485: 04,3520 77745 DLOAD
028810,000486: 04,3521 11566 ZEROVEC
028811,000487: 04,3522 36364 STCALL NOMTPI
028812,000488: 04,3523 24000 P33/P73C
028813,000489: 12,2000 SETLOC CSI/CDH2
028814,000490: 12,2000 BANK
028815,000491:
028816,000492: 12,2000 43014 P33/P73C BON SET
028817,000493: 12,2001 01311 FINALFLG
028818,000494: 12,2002 24004 P33/P73D
028819,000495: 12,2003 00470 UPDATFLG
028820,000496: 12,2004 43345 P33/P73D DLOAD DAD
028821,000497: 12,2005 02364 NOMTPI
028822,000498: 12,2006 03663 TTPI
028823,000499: 12,2007 03663 STORE TTPI
028824,000500: 12,2010 52025 DSU GOTO
028825,000501: 12,2011 02635 TCDH
028826,000502: 12,2012 11524 P33/P73E
028827,000503: 04,2000 SETLOC CSI/CDH1
028828,000504: 04,2000 BANK
028829,000505:
028830,000506: 04,3524 51025 P33/P73E DSU BPL
028831,000507: 04,3525 15652 60MIN
028832,000508: 04,3526 11524 P33/P73E
028833,000509: 04,3527 77615 DAD
028834,000510: 04,3530 15652 60MIN
028835,000511: 04,3531 16547 STODL T1TOT2
028836,000512: 04,3532 03663 TTPI
028837,000513: 04,3533 41425 DSU PUSH
028838,000514: 04,3534 02641 TTPIO
028839,000515: 04,3535 45246 P33/P73F ABS DSU
028840,000516: 04,3536 15652 60MIN
028841,000517: 04,3537 43244 BPL DAD
028842,000518: 04,3540 11535 P33/P73F
028843,000519: 04,3541 15652 60MIN
028844,000520: 04,3542 45565 SIGN STADR
028845,000521: 04,3543 74121 STORE T2TOT3
028846,000522: 04,3544 77776 EXIT
028847,000523: 04,3545 34660 CAF V06N75
028848,000524: 04,3546 04575 TC VNPOOH
028849,000525: 04,3547 06006 TC INTPRET
028850,000526: 04,3550 45175 VLOAD CALL
028851,000527: 04,3551 03667 DELVEET2
028852,000528: 04,3552 73457 S32/33.1
028853,000529: 04,3553 37667 STCALL DELVEET2
028854,000530: 04,3554 73002 VN1645
028855,000531: 04,3555 77650 GOTO
|
|
Page 660
|
028857,000533: 04,3556 11454 P33/P73B
028858,000534:
|
|
Page 661
|
028860,000536: # ..... AVFLAGA/P .....
028861,000537:
|
|
Page 662
|
028863,000539: # ..... DISDVLVC .....
028864,000540:
028865,000541: # SUBROUTINES USED
028866,000542:
028867,000543: # S32/33.X
028868,000544: # VNPOOH
028869,000545:
028870,000546: 37,2000 SETLOC CDHTAG3
028871,000547: 37,2000 BANK
028872,000548:
028873,000549: 37,2625 03405 DISDVLVC STORE DELVLVC
028874,000550: 37,2626 45020 STQ CALL
028875,000551: 37,2627 01340 NORMEX
028876,000552: 37,2630 26231 S32/33.X
028877,000553: 37,2631 64375 VLOAD MXV
028878,000554: 37,2632 03405 DELVLVC
028879,000555: 37,2633 00001 0D
028880,000556: 37,2634 66172 VSL1 SXA,1
028881,000557: 37,2635 02365 VERBNOUN
028882,000558: 37,2636 03405 STORE DELVLVC
028883,000559: 37,2637 77776 EXIT
028884,000560: 37,2640 31765 CA VERBNOUN
028885,000561: 37,2641 04575 TC VNPOOH
028886,000562: 37,2642 06006 TC INTPRET
028887,000563: 37,2643 77650 GOTO
028888,000564: 37,2644 01340 NORMEX
028889,000565: 4000 SETLOC FFTAG12
028890,000566: 4000 BANK
028891,000567:
028892,000568: 4656 01413 V06N11 VN 0611
028893,000569: 4657 01415 V06N13 VN 0613
028894,000570: 4660 01513 V06N75 VN 0675
028895,000571:
028896,000572: 4661 01462 V06N50 VN 0650
028897,000573:
|
|
Page 663
|
028899,000575:
028900,000576: # ..... CSI/A .....
028901,000577:
028902,000578: # SUBROUTINES USED
028903,000579:
028904,000580: # VECSHIFT
028905,000581: # TIMETHET
028906,000582: # PERIAPO
028907,000583: # SHIFTR1
028908,000584: # INTINT2C
028909,000585: # CDHMVR
028910,000586: # PERIAPO1
028911,000587: # INTINT
028912,000588: # ACTIVE
028913,000589:
028914,000590: 34,3763 BANK 34
028915,000591: 06,2000 SETLOC CSIPROG
028916,000592: 06,2000 BANK
028917,000593: 06,3651 E4,1770 EBANK= SUBEXIT
028918,000594: 06,3651 COUNT 34/CSI
028919,000595:
028920,000596: 06,3651 00025 37100 60MIN 2DEC 360000 B-28
028921,000597:
028922,000598: 06,3653 00600 ALARM/TB OCT 00600 # NO 1
028923,000599: 06,3654 00601 OCT 00601 # 2
028924,000600: 06,3655 00602 OCT 00602 # 3
028925,000601: 06,3656 00603 OCT 00603 # 4
028926,000602: 06,3657 00604 OCT 00604 # 5
028927,000603: 06,3660 00605 OCT 00605 # 6
028928,000604: 06,3661 00606 OCT 00606 # 7
028929,000605: 06,3662 00000 00020 LOOPMX 2DEC 16 B-28
028930,000606:
028931,000607: 06,3664 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
028932,000608:
028933,000609: 06,3666 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS
028934,000610:
028935,000611: 06,3670 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS
028936,000612:
028937,000613: 06,3672 10000 00000 1DPB2 2DEC 1.0 B-2
028938,000614:
028939,000615: 06,3674 00000 00001 1DPB28 2DEC 1 B-28
028940,000616:
028941,000617: 06,3676 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS
028942,000618:
028943,000619:
028944,000620: 06,3700 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 50 FPS
028945,000621:
028946,000622: 06,3702 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS
028947,000623:
028948,000624: 35,2000 SETLOC CSI/CDH
028949,000625: 35,2000 BANK
028950,000626: 35,3445 00004 31566 PMINE 2DEC 157420 B-29 # 84 NM. - MUST BE 8 WORDS BEFORE PMINM
028951,000627:
|
|
Page 664
|
028953,000629:
028954,000630: 35,3447 00002 27311 NICKELDP 2DEC .021336 B-7 # 7 FPS
028955,000631:
028956,000632: 35,3451 00003 34661 INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
028957,000633:
028958,000634: 35,3453 00000 06433 ONETHTH 2DEC .0001 B-3
028959,000635:
028960,000636: 35,3455 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT - MUST BE 8 WORDS AFTER PMINE.
028961,000637:
028962,000638: 06,2000 SETLOC CSIPROG
028963,000639: 06,2000 BANK
028964,000640:
028965,000641: 06,3704 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS
028966,000642: 06,3705 05660 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR
028967,000643: 06,3706 05461 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATR
028968,000644: 06,3707 43014 CLEAR SET
028969,000645: 06,3710 05662 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
028970,000646: 06,3711 05463 S32.1F3B # 10=2ND CYCLE 11=50 FPS STAGE 2ND CYCLE
028971,000647: 06,3712 77745 DLOAD
028972,000648: 06,3713 11566 ZEROVEC
028973,000649: 06,3714 03764 STORE LOOPCT
028974,000650: 06,3715 03665 STORE CSIALRM
028975,000651: 06,3716 77201 CSI/B SETPD VLOAD
028976,000652: 06,3717 00001 0D
028977,000653: 06,3720 02541 RACT1
028978,000654: 06,3721 41446 ABVAL PUSH # RA1 B29 PL02D
028979,000655: 06,3722 70501 NORM SR1
028980,000656: 06,3723 00050 X2 # B29-N2+ B1 PL04D
028981,000657: 06,3724 51515 PDVL ABVAL
028982,000658: 06,3725 03554 RPASS3
028983,000659: 06,3726 55301 NORM BDDV # RA1/RP3 B1 PL02D
028984,000660: 06,3727 00047 X1
028985,000661: 06,3730 53664 XSU,2 SR* # B2
028986,000662: 06,3731 00046 X1
028987,000663: 06,3732 57175 1,2
028988,000664: 06,3733 41215 DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D
028989,000665: 06,3734 15673 1DPB2
028990,000666: 06,3735 65301 NORM PDDL # PL02D
028991,000667: 06,3736 00047 X1
028992,000668: 06,3737 03750 RTMU
028993,000669: 06,3740 56342 SR1 DDV # B38-B31= B7 PL00D
028994,000670: 06,3741 75457 SL* SQRT # B7
028995,000671: 06,3742 20172 0 -7,1
028996,000672: 06,3743 53515 PDVL UNIT # PL02D
028997,000673: 06,3744 02541 RACT1
028998,000674: 06,3745 47315 PDVL VXV
028999,000675: 06,3746 02611 UP1
029000,000676: 06,3747 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
029001,000677: 06,3750 72441 DOT SL1 # VA1 . UH1 B7
029002,000678: 06,3751 03504 VACT1
029003,000679: 06,3752 45421 BDSU STADR # PL00D
|
|
Page 665
|
029005,000681: 06,3753 60315 STODL DELVCSI
029006,000682: 06,3754 15665 INITST # 10 FPS
029007,000683: 06,3755 03464 STORE DELDV
029008,000684: 06,3756 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16
029009,000685: 06,3757 03764 LOOPCT
029010,000686: 06,3760 15675 1DPB28
029011,000687: 06,3761 03764 STORE LOOPCT
029012,000688: 06,3762 77025 DSU AXT,2
029013,000689: 06,3763 15663 LOOPMX
029014,000690: 06,3764 00006 6
029015,000691: 06,3765 52044 BPL GOTO
029016,000692: 06,3766 63642 SCNDSOL
029017,000693: 06,3767 24013 CSI/B2
029018,000694:
029019,000695: 12,2000 SETLOC CSIPROG2
029020,000696: 12,2000 BANK
029021,000697:
029022,000698: 12,2013 77601 CSI/B2 SETPD
029023,000699: 12,2014 00001 0D
029024,000700: 12,2015 51545 DLOAD ABS
029025,000701: 12,2016 03462 DELVCSI
029026,000702: 12,2017 50025 DSU BMN
029027,000703: 12,2020 15667 DVMAX1
029028,000704: 12,2021 45267 CSI/B23
029029,000705: 12,2022 43174 AXT,2 BON
029030,000706: 12,2023 00007 7
029031,000707: 12,2024 05700 S32.1F1
029032,000708: 12,2025 63642 SCNDSOL
029033,000709: 12,2026 43014 BOFF BON
029034,000710: 12,2027 05742 S32.1F3A
029035,000711: 12,2030 24033 CSI/B22 # FLAG 3 NEQ 3
029036,000712: 12,2031 05703 S32.1F3B
029037,000713: 12,2032 63642 SCNDSOL
029038,000714: 12,2033 71214 CSI/B22 SET DLOAD
029039,000715: 12,2034 05460 S32.1F1
029040,000716: 12,2035 15671 DVMAX2
029041,000717: 12,2036 77765 SIGN
029042,000718: 12,2037 03462 DELVCSI
029043,000719: 12,2040 37462 STCALL DELVCSI
029044,000720: 12,2041 45267 CSI/B23
029045,000721:
029046,000722: 22,2000 SETLOC CSIPROG3
029047,000723: 22,2000 BANK
029048,000724:
029049,000725: 22,3267 41575 CSI/B23 VLOAD PUSH
029050,000726: 22,3270 02541 RACT1
029051,000727: 22,3271 63256 UNIT PDVL
029052,000728: 22,3272 02611 UP1
029053,000729: 22,3273 53435 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
029054,000730: 22,3274 76561 VXSC VSL1
|
|
Page 666
|
029056,000732: 22,3275 03462 DELVCSI
029057,000733: 22,3276 02445 STORE DELVEET1
029058,000734: 22,3277 40055 VAD BOV
029059,000735: 22,3300 03504 VACT1
029060,000736: 22,3301 45302 CSI/B23D
029061,000737: 22,3302 37474 CSI/B23D STCALL VACT4
029062,000738: 22,3303 45253 VECSHIFT
029063,000739: 22,3304 26746 STOVL VVEC
029064,000740: 22,3305 77614 SET
029065,000741: 22,3306 03466 RVSW
029066,000742: 22,3307 26657 STOVL RVEC
029067,000743: 22,3310 05426 SN359+
029068,000744: 22,3311 36732 STCALL SNTH # ALSO CSTH
029069,000745: 22,3312 24744 TIMETHET
029070,000746: 22,3313 72142 SR1 LXA,1
029071,000747: 22,3314 03745 RTX1
029072,000748: 22,3315 37472 STCALL HAFPA1
029073,000749: 22,3316 45163 PERIAPO
029074,000750: 22,3317 77624 CALL
029075,000751: 22,3320 45263 SHIFTR1
029076,000752: 22,3321 17460 STODL POSTCSI
029077,000753: 22,3322 03754 CENTANG
029078,000754: 22,3323 52054 BZE GOTO
029079,000755: 22,3324 45326 +2
029080,000756: 22,3325 47145 CIRCL
029081,000757: 22,3326 77745 DLOAD
029082,000758: 22,3327 02754 ECC
029083,000759: 22,3330 50025 DSU BMN
029084,000760: 22,3331 33454 ONETHTH
029085,000761: 22,3332 47145 CIRCL
029086,000762: 22,3333 45145 DLOAD CALL
029087,000763: 22,3334 00041 R1
029088,000764: 22,3335 45263 SHIFTR1
029089,000765: 22,3336 60201 SETPD NORM
029090,000766: 22,3337 00003 2D
029091,000767: 22,3340 00047 X1
029092,000768: 22,3341 50315 PDVL DOT # PL04D
029093,000769: 22,3342 02541 RACT1
029094,000770: 22,3343 03474 VACT4
029095,000771: 22,3344 56246 ABS DDV
029096,000772: 22,3345 00003 02D # (/RDOTV/)/R1 B36-B29= B7
029097,000773: 22,3346 45257 SL* DSU
029098,000774: 22,3347 20201 0,1
029099,000775: 22,3350 33450 NICKELDP
029100,000776: 22,3351 71240 BMN DLOAD
029101,000777: 22,3352 47145 CIRCL
029102,000778: 22,3353 02742 P
029103,000779: 22,3354 45312 SL2 DSU
029104,000780: 22,3355 33502 1RTEB2 # 1.B.2
029105,000781: 22,3356 14017 STODL 14D
|
|
Page 667
|
029107,000783: 22,3357 03752 RTSR1/MU
029108,000784: 22,3360 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
029109,000785: 22,3361 41325 PDDL DMP
029110,000786: 22,3362 02742 P
029111,000787: 22,3363 00041 R1
029112,000788: 22,3364 77624 CALL
029113,000789: 22,3365 45263 SHIFTR1
029114,000790: 22,3366 72412 SL4 SL1
029115,000791: 22,3367 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-45 = B-31 PL02D
029116,000792: 22,3370 52414 BOFF SL3
029117,000793: 22,3371 04343 CMOONFLG
029118,000794: 22,3372 45373 CSI/B3
029119,000795: 22,3373 50315 CSI/B3 PDVL DOT
029120,000796: 22,3374 02541 RACT1
029121,000797: 22,3375 03474 VACT4
029122,000798: 22,3376 03502 STORE RDOTV
029123,000799: 22,3377 77646 ABS
029124,000800: 22,3400 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D
029125,000801: 22,3401 00050 X2
029126,000802: 22,3402 53660 XSU,1 SL* # B-31+B36-B3 = B2
029127,000803: 22,3403 00047 X2
029128,000804: 22,3404 20204 3,1
029129,000805: 22,3405 14015 STODL 12D
029130,000806: 22,3406 15335 ZEROVECS
029131,000807: 22,3407 00021 STORE 16D
029132,000808: 22,3410 53575 VLOAD UNIT
029133,000809: 22,3411 00015 12D
029134,000810: 22,3412 26732 STOVL SNTH # ALSO STORES CSTH AND 0
029135,000811: 22,3413 02541 RACT1
029136,000812: 22,3414 75315 PDVL SIGN
029137,000813: 22,3415 03474 VACT4
029138,000814: 22,3416 03502 RDOTV
029139,000815: 22,3417 45076 VCOMP CALL
029140,000816: 22,3420 45253 VECSHIFT
029141,000817: 22,3421 26746 STOVL VVEC
029142,000818: 22,3422 77614 SETGO
029143,000819: 22,3423 03426 RVSW
029144,000820: 22,3424 47134 CSINEXT
029145,000821:
029146,000822: 22,3425 77776 62460 SN359+ 2DEC -.000086601
029147,000823:
029148,000824: 22,3427 17777 37776 CS359+ 2DEC +.499999992
029149,000825:
029150,000826: 23,2000 SETLOC CSIPROG4
029151,000827: 23,2000 BANK
029152,000828:
029153,000829: 23,3134 36657 CSINEXT STCALL RVEC
029154,000830: 23,3135 24744 TIMETHET
029155,000831: 23,3136 51125 PDDL BPL
029156,000832: 23,3137 03502 RDOTV
|
|
Page 668
|
029158,000834: 23,3140 47151 NTP/2
029159,000835: 23,3141 45345 DLOAD DSU
029160,000836: 23,3142 03472 HAFPA1
029161,000837: 23,3143 52006 PUSH GOTO
029162,000838: 23,3144 47151 NTP/2
029163,000839: 23,3145 71201 CIRCL SETPD DLOAD
029164,000840: 23,3146 00001 00D
029165,000841: 23,3147 15335 ZEROVECS
029166,000842: 23,3150 77606 PUSH
029167,000843: 23,3151 41345 NTP/2 DLOAD DMP
029168,000844: 23,3152 03766 NN
029169,000845: 23,3153 03472 HAFPA1
029170,000846: 23,3154 45261 SL DSU
029171,000847: 23,3155 20217 14D
029172,000848: 23,3156 77615 DAD
029173,000849: 23,3157 02637 TCSI
029174,000850: 23,3160 02635 STORE TCDH
029175,000851: 23,3161 77021 BDSU AXT,2
029176,000852: 23,3162 03663 TTPI
029177,000853: 23,3163 00005 5D
029178,000854: 23,3164 40240 BMN SETPD
029179,000855: 23,3165 63642 SCNDSOL
029180,000856: 23,3166 00001 0D
029181,000857: 23,3167 63375 VLOAD PDVL
029182,000858: 23,3170 03474 VACT4
029183,000859: 23,3171 02541 RACT1
029184,000860: 23,3172 77624 CALL
029185,000861: 23,3173 63662 INTINT2C
029186,000862: 23,3174 26453 STOVL RACT2
029187,000863: 23,3175 00007 VATT
029188,000864: 23,3176 26533 STOVL VACT2
029189,000865: 23,3177 03512 VPASS1
029190,000866: 23,3200 63201 SETPD PDVL
029191,000867: 23,3201 00001 0D
029192,000868: 23,3202 03756 RPASS1
029193,000869: 23,3203 77650 GOTO
029194,000870: 23,3204 22256 CSINEXT1
029195,000871:
029196,000872: 11,2000 SETLOC CSIPROG5
029197,000873: 11,2000 BANK
029198,000874:
029199,000875: 11,2256 77624 CSINEXT1 CALL
029200,000876: 11,2257 63662 INTINT2C
029201,000877: 11,2260 26625 STOVL RPASS2
029202,000878: 11,2261 00007 VATT
029203,000879: 11,2262 36617 STCALL VPASS2
029204,000880: 11,2263 13230 CDHMVR
029205,000881: 11,2264 40375 VLOAD SETPD
029206,000882: 11,2265 02453 RACT2
029207,000883: 11,2266 00001 0D
|
|
Page 669
|
029209,000885: 11,2267 45115 PDVL CALL
029210,000886: 11,2270 03546 VACT3
029211,000887: 11,2271 45153 PERIAPO1
029212,000888: 11,2272 77624 CALL
029213,000889: 11,2273 45263 SHIFTR1
029214,000890: 11,2274 27472 STOVL POSTCDH
029215,000891: 11,2275 03546 VACT3
029216,000892: 11,2276 63201 SETPD PDVL
029217,000893: 11,2277 00001 0D
029218,000894: 11,2300 02453 RACT2
029219,000895: 11,2301 65325 PDDL PDDL
029220,000896: 11,2302 02635 TCDH
029221,000897: 11,2303 03663 TTPI
029222,000898: 11,2304 62525 PDDL SL2
029223,000899: 11,2305 11630 2PISC
029224,000900: 11,2306 45006 PUSH CALL
029225,000901: 11,2307 72705 INTINT
029226,000902: 11,2310 77624 CALL
029227,000903: 11,2311 45237 ACTIVE
029228,000904: 11,2312 77745 DLOAD
029229,000905: 11,2313 03744 ELEV
029230,000906: 11,2314 73401 SETPD SINE
029231,000907: 11,2315 00007 6D
029232,000908: 11,2316 53515 PDVL UNIT
029233,000909: 11,2317 03540 RACT3
029234,000910: 11,2320 00001 STORE 00D # URA3 AT 00D
029235,000911: 11,2321 47315 PDVL VXV # PL14D, PL08D
029236,000912: 11,2322 02611 UP1
029237,000913: 11,2323 77656 UNIT
029238,000914: 11,2324 71525 PDDL COSINE # UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D
029239,000915: 11,2325 03744 ELEV
029240,000916: 11,2326 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D
029241,000917: 11,2327 43754 STCALL 18D # PLUS
029242,000918: 11,2330 16517 CSINEXT2
029243,000919:
029244,000920: 07,2000 SETLOC CSIPROG6
029245,000921: 07,2000 BANK
029246,000922:
029247,000923: 07,2517 74345 CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
029248,000924: 07,2520 76455 VAD VSL1
029249,000925: 07,2521 00023 18D # B1
029250,000926: 07,2522 50206 PUSH DOT # PL06D
029251,000927: 07,2523 03540 RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30
029252,000928: 07,2524 41552 SL1 PUSH # B29 PL08D
029253,000929: 07,2525 72316 DSQ TLOAD # TEMP1**2 B58
029254,000930: 07,2526 00155 MPAC
029255,000931: 07,2527 50315 PDVL DOT # PL11D
029256,000932: 07,2530 03540 RACT3
029257,000933: 07,2531 03540 RACT3
029258,000934: 07,2532 57551 TLOAD DCOMP # RA3 . RA3
|
|
Page 670
|
029260,000936: 07,2533 00155 MPAC
029261,000937: 07,2534 50315 PDVL DOT # RP3 . RP3 B58 PL14D
029262,000938: 07,2535 03554 RPASS3
029263,000939: 07,2536 03554 RPASS3 # PL11D
029264,000940: 07,2537 76371 TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D
029265,000941: 07,2540 71244 BPL DLOAD
029266,000942: 07,2541 16557 K10RK2
029267,000943: 07,2542 03764 LOOPCT
029268,000944: 07,2543 77025 DSU AXT,2
029269,000945: 07,2544 15675 1DPB28
029270,000946: 07,2545 00001 1D
029271,000947: 07,2546 77654 BZE
029272,000948: 07,2547 11314 ALMXITA
029273,000949: 07,2550 70545 DLOAD SR1
029274,000950: 07,2551 03464 DELDV
029275,000951: 07,2552 03464 STORE DELDV
029276,000952: 07,2553 77621 BDSU
029277,000953: 07,2554 03470 DVPREV
029278,000954: 07,2555 37462 STCALL DELVCSI
029279,000955: 07,2556 15756 CSI/B1
029280,000956: 07,2557 41566 K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
029281,000957: 07,2560 45276 DCOMP DSU
029282,000958: 07,2561 00007 06D # -TEMP1-TEMP3 = K2 AT 10D
029283,000959: 07,2562 14013 STODL 10D # PL08D
029284,000960: 07,2563 45425 DSU STADR # PL06D
029285,000961: 07,2564 77762 STORE 12D # -TEMP1+TEMP3 = K1 AT 12D
029286,000962: 07,2565 77646 ABS
029287,000963: 07,2566 14017 STODL 14D
029288,000964: 07,2567 00013 10D
029289,000965: 07,2570 45246 ABS DSU
029290,000966: 07,2571 00017 14D
029291,000967: 07,2572 71240 BMN DLOAD
029292,000968: 07,2573 50002 K2.
029293,000969: 07,2574 00015 12D
029294,000970: 07,2575 34013 STCALL 10D # K EQUALS K1
029295,000971: 07,2576 50002 K2.
029296,000972:
029297,000973: 24,2000 SETLOC CSIPROG7
029298,000974: 24,2000 BANK
029299,000975:
029300,000976: 24,2002 77745 K2. DLOAD
029301,000977: 24,2003 00013 10D
029302,000978: 24,2004 76561 VXSC VSL1
029303,000979: 24,2005 53455 VAD UNIT # V = RA3 + KU UNIT B1
029304,000980: 24,2006 03540 RACT3
029305,000981: 24,2007 53515 PDVL UNIT
029306,000982: 24,2010 03554 RPASS3 # PL06D
029307,000983: 24,2011 53515 PDVL UNIT
029308,000984: 24,2012 03562 VPASS3 # PL12D
029309,000985: 24,2013 63235 VXV PDVL # UVP3 X URP3 PL18D
|
|
Page 671
|
029311,000987: 24,2014 00007 06D
029312,000988: 24,2015 00007 06D
029313,000989: 24,2016 50235 VXV DOT
029314,000990: 24,2017 00001 00D
029315,000991: 24,2020 77626 STADR # PL12D
029316,000992: 24,2021 53762 STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D
029317,000993: 24,2022 72441 DOT SL1 # PL00D
029318,000994: 24,2023 75326 ARCCOS SIGN
029319,000995: 24,2024 00015 12D # B0
029320,000996: 24,2025 41542 SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
029321,000997: 24,2026 71214 BON DLOAD
029322,000998: 24,2027 05701 S32.1F2
029323,000999: 24,2030 50065 FRSTPAS
029324,001000: 24,2031 00001 00D # NOT THE FIRST PASS OF A CYCLE
029325,001001: 24,2032 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D
029326,001002: 24,2033 03466 GAMPREV
029327,001003: 24,2034 03462 DELVCSI
029328,001004: 24,2035 60225 DSU NORM # B7
029329,001005: 24,2036 03470 DVPREV
029330,001006: 24,2037 00047 X1
029331,001007: 24,2040 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D
029332,001008: 24,2041 00003 02D # = SLOPE
029333,001009: 24,2042 03462 DELVCSI
029334,001010: 24,2043 03470 STORE DVPREV
029335,001011: 24,2044 43014 BOFF BOFF
029336,001012: 24,2045 05742 S32.1F3A
029337,001013: 24,2046 20307 THRDCHK
029338,001014: 24,2047 05743 S32.1F3B
029339,001015: 24,2050 20307 THRDCHK
029340,001016: 24,2051 41345 DLOAD DMP
029341,001017: 24,2052 00003 02D
029342,001018: 24,2053 03466 GAMPREV
029343,001019: 24,2054 71244 BPL DLOAD
029344,001020: 24,2055 20314 FIFTYFPS
029345,001021: 24,2056 33452 INITST1
029346,001022: 24,2057 77765 SIGN
029347,001023: 24,2060 03464 DELDV
029348,001024: 24,2061 03464 STORE DELDV
029349,001025: 24,2062 43014 SET CLEAR
029350,001026: 24,2063 05462 S32.1F3A
029351,001027: 24,2064 05663 S32.1F3B
029352,001028: 24,2065 77745 FRSTPAS DLOAD
029353,001029: 24,2066 00001 00D
029354,001030: 24,2067 17466 STODL GAMPREV
029355,001031: 24,2070 03462 DELVCSI
029356,001032: 24,2071 37470 STCALL DVPREV
029357,001033: 24,2072 20302 CSINEXT3
029358,001034:
029359,001035: 10,2000 SETLOC CSIPROG8
029360,001036: 10,2000 BANK
|
|
Page 672
|
029362,001038:
029363,001039: 10,2302 43025 CSINEXT3 DSU CLEAR
029364,001040: 10,2303 03464 DELDV
029365,001041: 10,2304 05661 S32.1F2
029366,001042: 10,2305 37462 STCALL DELVCSI
029367,001043: 10,2306 15756 CSI/B1
029368,001044: 10,2307 43014 THRDCHK BON BON
029369,001045: 10,2310 05702 S32.1F3A
029370,001046: 10,2311 20333 NEWTN
029371,001047: 10,2312 05703 S32.1F3B
029372,001048: 10,2313 20333 NEWTN
029373,001049: 10,2314 75345 FIFTYFPS DLOAD SIGN
029374,001050: 10,2315 15701 FIFPSDP
029375,001051: 10,2316 00005 04D
029376,001052: 10,2317 77765 SIGN
029377,001053: 10,2320 03466 GAMPREV
029378,001054: 10,2321 03464 STORE DELDV
029379,001055: 10,2322 43276 DCOMP DAD
029380,001056: 10,2323 03462 DELVCSI
029381,001057: 10,2324 17462 STODL DELVCSI
029382,001058: 10,2325 00001 00D
029383,001059: 10,2326 43014 SET SET
029384,001060: 10,2327 05463 S32.1F3B
029385,001061: 10,2330 05462 S32.1F3A
029386,001062: 10,2331 37466 STCALL GAMPREV
029387,001063: 10,2332 24013 CSI/B2
029388,001064: 10,2333 60345 NEWTN DLOAD NORM
029389,001065: 10,2334 00005 04D
029390,001066: 10,2335 00050 X2
029391,001067: 10,2336 54065 BDDV XSU,1
029392,001068: 10,2337 00001 00D
029393,001069: 10,2340 00047 X2
029394,001070: 10,2341 77657 SR*
029395,001071: 10,2342 20601 0,1
029396,001072: 10,2343 17464 STODL DELDV
029397,001073: 10,2344 00001 00D
029398,001074: 10,2345 03466 STORE GAMPREV
029399,001075: 10,2346 51545 DLOAD ABS
029400,001076: 10,2347 03464 DELDV
029401,001077: 10,2350 45206 PUSH DSU # PL08D
029402,001078: 10,2351 15677 EPSILN1
029403,001079: 10,2352 71240 BMN DLOAD
029404,001080: 10,2353 20370 CSI/SOL
029405,001081: 10,2354 50025 DSU BMN
029406,001082: 10,2355 15703 DELMAX1
029407,001083: 10,2356 20363 CSISTEP
029408,001084: 10,2357 75345 DLOAD SIGN
029409,001085: 10,2360 15703 DELMAX1
029410,001086: 10,2361 03464 DELDV
029411,001087: 10,2362 03464 STORE DELDV
029412,001088: 10,2363 45345 CSISTEP DLOAD DSU
|
|
Page 673
|
029414,001090: 10,2364 03462 DELVCSI
029415,001091: 10,2365 03464 DELDV
029416,001092: 10,2366 37462 STCALL DELVCSI
029417,001093: 10,2367 15756 CSI/B1
029418,001094: 10,2370 77145 CSI/SOL DLOAD AXT,2
029419,001095: 10,2371 03460 POSTCSI
029420,001096: 10,2372 00002 2
029421,001097: 10,2373 52150 LXA,1 GOTO
029422,001098: 10,2374 03745 RTX1
029423,001099: 10,2375 63610 CSINEXT4
029424,001100:
029425,001101: 31,2000 SETLOC CSIPROG9
029426,001102: 31,2000 BANK
029427,001103:
029428,001104: 31,3610 50023 CSINEXT4 DSU* BMN
029429,001105: 31,3611 33444 PMINE -2,1
029430,001106: 31,3612 63642 SCNDSOL
029431,001107: 31,3613 71374 AXT,2 DLOAD
029432,001108: 31,3614 00003 3
029433,001109: 31,3615 03472 POSTCDH
029434,001110: 31,3616 50023 DSU* BMN
029435,001111: 31,3617 33444 PMINE -2,1
029436,001112: 31,3620 63642 SCNDSOL
029437,001113: 31,3621 45345 DLOAD DSU
029438,001114: 31,3622 02635 TCDH
029439,001115: 31,3623 02637 TCSI
029440,001116: 31,3624 02547 STORE T1TOT2
029441,001117: 31,3625 45374 AXT,2 DSU
029442,001118: 31,3626 00004 4
029443,001119: 31,3627 36146 600SEC
029444,001120: 31,3630 77040 BMN AXT,2
029445,001121: 31,3631 63642 SCNDSOL
029446,001122: 31,3632 00005 5
029447,001123: 31,3633 45345 DLOAD DSU
029448,001124: 31,3634 03663 TTPI
029449,001125: 31,3635 02635 TCDH
029450,001126: 31,3636 03656 STORE T2TOT3
029451,001127: 31,3637 51025 DSU BPL
029452,001128: 31,3640 36146 600SEC
029453,001129: 31,3641 11400 P32/P72C
029454,001130: 31,3642 43014 SCNDSOL BON BOFF
029455,001131: 31,3643 05702 S32.1F3A
029456,001132: 31,3644 11316 ALMXIT
029457,001133: 31,3645 05743 S32.1F3B
029458,001134: 31,3646 11316 ALMXIT
029459,001135: 31,3647 71334 SXA,2 DLOAD
029460,001136: 31,3650 03664 CSIALRM
029461,001137: 31,3651 15335 ZEROVECS
029462,001138: 31,3652 43014 CLEAR SET
029463,001139: 31,3653 05660 S32.1F1
|
|
Page 674
|
029465,001141: 31,3654 05461 S32.1F2
029466,001142: 31,3655 43014 CLEAR CLEAR
029467,001143: 31,3656 05662 S32.1F3A
029468,001144: 31,3657 05663 S32.1F3B
029469,001145: 31,3660 37764 STCALL LOOPCT
029470,001146: 31,3661 15716 CSI/B
029471,001147:
|
|
Page 675
|
029473,001149: # ..... ADVANCE .....
029474,001150:
029475,001151: # SUBROUTINES USED
029476,001152: # PRECSET
029477,001153: # ROTATE
029478,001154:
029479,001155: 37,2000 SETLOC CDHTAG3
029480,001156: 37,2000 BANK
029481,001157:
029482,001158: 37,2645 71220 ADVANCE STQ DLOAD
029483,001159: 37,2646 02370 SUBEXIT
029484,001160: 37,2647 03413 TIG
029485,001161: 37,2650 34041 STCALL TDEC1
029486,001162: 37,2651 45215 PRECSET
029487,001163: 37,2652 77214 SET VLOAD
029488,001164: 37,2653 01067 XDELVFLG
029489,001165: 37,2654 03562 VPASS3
029490,001166: 37,2655 02617 STORE VPASS2
029491,001167: 37,2656 27512 STOVL VPASS1
029492,001168: 37,2657 03554 RPASS3
029493,001169: 37,2660 02625 STORE RPASS2
029494,001170: 37,2661 03756 STORE RPASS1
029495,001171: 37,2662 47256 UNIT VXV
029496,001172: 37,2663 03512 VPASS1
029497,001173: 37,2664 77656 UNIT
029498,001174: 37,2665 26611 STOVL UP1
029499,001175: 37,2666 03540 RACT3
029500,001176: 37,2667 37632 STCALL RTIG
029501,001177: 37,2670 13220 ROTATE
029502,001178: 37,2671 02453 STORE RACT2
029503,001179: 37,2672 26541 STOVL RACT1
029504,001180: 37,2673 03546 VACT3
029505,001181: 37,2674 37640 STCALL VTIG
029506,001182: 37,2675 13220 ROTATE
029507,001183: 37,2676 02533 STORE VACT2
029508,001184: 37,2677 37504 STCALL VACT1
029509,001185: 37,2700 02370 SUBEXIT
029510,001186:
|
|
Page 676
|
029512,001188: # ..... ROTATE .....
029513,001189:
029514,001190: 05,2000 SETLOC CDHTAG
029515,001191: 05,2000 BANK
029516,001192:
029517,001193: 05,3220 41406 ROTATE PUSH PUSH
029518,001194: 05,3221 74241 DOT VXSC
029519,001195: 05,3222 02611 UP1
029520,001196: 05,3223 02611 UP1
029521,001197: 05,3224 51352 VSL2 BVSU
029522,001198: 05,3225 63256 UNIT PDVL
029523,001199: 05,3226 74246 ABVAL VXSC
029524,001200: 05,3227 43572 VSL1 RVQ
029525,001201:
|
|
Page 677
|
029527,001203: # ..... INTINTNA .....
029528,001204:
029529,001205: 31,2000 SETLOC CDHTAG2
029530,001206: 31,2000 BANK
029531,001207:
029532,001208: 31,3662 65325 INTINT2C PDDL PDDL
029533,001209: 31,3663 02637 TCSI
029534,001210: 31,3664 02635 TCDH
029535,001211: 31,3665 41525 PDDL PUSH
029536,001212: 31,3666 33107 TWOPI
029537,001213: 31,3667 77650 GOTO
029538,001214: 31,3670 72705 INTINT
029539,001215: 31,3671 65325 INTINT3P PDDL PDDL
029540,001216: 31,3672 02635 TCDH
029541,001217: 31,3673 03663 TTPI
029542,001218: 31,3674 41525 PDDL PUSH
029543,001219: 31,3675 15335 ZEROVECS
029544,001220: 31,3676 77650 GOTO
029545,001221: 31,3677 72705 INTINT
029546,001222:
|
|
Page 678
|
029548,001224: # ..... S32/33.1 .....
029549,001225:
029550,001226: # SUBROUTINES USED
029551,001227: # S32/33.X
029552,001228:
029553,001229: 35,2000 SETLOC CSI/CDH
029554,001230: 35,2000 BANK
029555,001231:
029556,001232: 35,3457 76020 S32/33.1 STQ AXT,1
029557,001233: 35,3460 02370 SUBEXIT
029558,001234: 35,3461 01521 VN 0681
029559,001235: 35,3462 77624 CALL
029560,001236: 35,3463 76625 DISDVLVC
029561,001237: 35,3464 77624 CALL
029562,001238: 35,3465 26231 S32/33.X
029563,001239: 35,3466 61375 VLOAD VXM
029564,001240: 35,3467 03405 DELVLVC
029565,001241: 35,3470 00001 0D
029566,001242: 35,3471 77772 VSL1
029567,001243: 35,3472 03646 STORE DELVSIN
029568,001244: 35,3473 51406 PUSH ABVAL
029569,001245: 35,3474 27654 STOVL DELVSAB
029570,001246: 35,3475 77650 GOTO
029571,001247: 35,3476 02370 SUBEXIT
029572,001248:
|
|
Page 679
|
029574,001250: # ..... S32/33.X .....
029575,001251:
029576,001252: 13,2000 SETLOC CDHTAGS
029577,001253: 13,2000 BANK
029578,001254:
029579,001255: 13,2231 77201 S32/33.X SETPD VLOAD
029580,001256: 13,2232 00007 6D
029581,001257: 13,2233 02611 UP1
029582,001258: 13,2234 63276 VCOMP PDVL
029583,001259: 13,2235 02541 RACT1
029584,001260: 13,2236 57456 UNIT VCOMP
029585,001261: 13,2237 47206 PUSH VXV
029586,001262: 13,2240 02611 UP1
029587,001263: 13,2241 77772 VSL1
029588,001264: 13,2242 00001 STORE 0D
029589,001265: 13,2243 77616 RVQ
029590,001266:
|
|
Page 680
|
029592,001268: # ..... CDHMVR .....
029593,001269:
029594,001270: # SUBROUTINES USED
029595,001271: # VECSHIFT
029596,001272: # TIMETHET
029597,001273: # SHIFTR1
029598,001274:
029599,001275: 05,2000 SETLOC CDHTAG
029600,001276: 05,2000 BANK
029601,001277:
029602,001278: 05,3230 77220 CDHMVR STQ VLOAD
029603,001279: 05,3231 02370 SUBEXIT
029604,001280: 05,3232 02453 RACT2
029605,001281: 05,3233 53406 PUSH UNIT
029606,001282: 05,3234 27546 STOVL UNVEC # UR SUB A
029607,001283: 05,3235 02625 RPASS2
029608,001284: 05,3236 50256 UNIT DOT
029609,001285: 05,3237 03546 UNVEC
029610,001286: 05,3240 72406 PUSH SL1
029611,001287: 05,3241 16734 STODL CSTH
029612,001288: 05,3242 65316 DSQ PDDL
029613,001289: 05,3243 23756 DP1/4
029614,001290: 05,3244 45302 SR2 DSU
029615,001291: 05,3245 72566 SQRT SL1
029616,001292: 05,3246 57515 PDVL VCOMP
029617,001293: 05,3247 77635 VXV
029618,001294: 05,3250 02625 RPASS2
029619,001295: 05,3251 65241 DOT PDDL
029620,001296: 05,3252 02611 UP1
029621,001297: 05,3253 45565 SIGN STADR
029622,001298: 05,3254 51045 STOVL SNTH
029623,001299: 05,3255 02625 RPASS2
029624,001300: 05,3256 45115 PDVL CALL
029625,001301: 05,3257 02617 VPASS2
029626,001302: 05,3260 45253 VECSHIFT
029627,001303: 05,3261 26746 STOVL VVEC
029628,001304: 05,3262 77614 CLEAR
029629,001305: 05,3263 03666 RVSW
029630,001306: 05,3264 36657 STCALL RVEC
029631,001307: 05,3265 24744 TIMETHET
029632,001308: 05,3266 53754 LXA,2 VSL*
029633,001309: 05,3267 03746 RTX2
029634,001310: 05,3270 57576 0,2
029635,001311: 05,3271 00023 STORE 18D
029636,001312: 05,3272 76441 DOT SL1R
029637,001313: 05,3273 03546 UNVEC
029638,001314: 05,3274 51515 PDVL ABVAL # 0D = V SUB PV
029639,001315: 05,3275 63257 SL* PDVL
029640,001316: 05,3276 57576 0,2
|
|
Page 681
|
029642,001318: 05,3277 02453 RACT2
029643,001319: 05,3300 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A
029644,001320: 05,3301 77625 DSU
029645,001321: 05,3302 00003 02D
029646,001322: 05,3303 16633 STODL DIFFALT # DELTA H IN METERS B+29
029647,001323: 05,3304 02744 R1A
029648,001324: 05,3305 65301 NORM PDDL # 2 - R V**/MU 04D
029649,001325: 05,3306 00047 X1
029650,001326: 05,3307 00041 R1
029651,001327: 05,3310 77624 CALL
029652,001328: 05,3311 45263 SHIFTR1
029653,001329: 05,3312 56362 SR1R DDV
029654,001330: 05,3313 41457 SL* PUSH
029655,001331: 05,3314 20174 0 -5,1
029656,001332: 05,3315 65225 DSU PDDL # A SUB A B+29 04D
029657,001333: 05,3316 02633 DIFFALT
029658,001334: 05,3317 56302 SR2 DDV # A SUB P B+31
029659,001335: 05,3320 00005 04D # B+2
029660,001336: 05,3321 75406 PUSH SQRT # A SUB P/A SUB A 06D
029661,001337: 05,3322 41275 DMPR DMP
029662,001338: 05,3323 00007 06D
029663,001339: 05,3324 00001 00D
029664,001340: 05,3325 65272 SL3R PDDL # V SUB A V METERS/CS B+7 08D
029665,001341: 05,3326 00003 02D # R SUB A MAGNITUDE B+29
029666,001342: 05,3327 65301 NORM PDDL
029667,001343: 05,3330 00047 X1
029668,001344: 05,3331 03750 RTMU
029669,001345: 05,3332 56342 SR1 DDV # 2MU B+38
029670,001346: 05,3333 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D
029671,001347: 05,3334 20174 0 -5,1
029672,001348: 05,3335 00005 04D # ASUBA B+29
029673,001349: 05,3336 65301 NORM PDDL
029674,001350: 05,3337 00050 X2
029675,001351: 05,3340 03750 RTMU
029676,001352: 05,3341 56342 SR1 DDV
029677,001353: 05,3342 44257 SL* BDSU
029678,001354: 05,3343 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ
029679,001355: 05,3344 63525 PDDL DSQ # 10D
029680,001356: 05,3345 00011 08D
029681,001357: 05,3346 75421 BDSU SQRT
029682,001358: 05,3347 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2) 10D
029683,001359: 05,3350 02611 UP1
029684,001360: 05,3351 03546 UNVEC
029685,001361: 05,3352 74256 UNIT VXSC
029686,001362: 05,3353 00013 10D
029687,001363: 05,3354 74315 PDVL VXSC
029688,001364: 05,3355 03546 UNVEC
029689,001365: 05,3356 00011 08D
029690,001366: 05,3357 76455 VAD VSL1
029691,001367: 05,3360 77626 STADR
|
|
Page 682
|
029693,001369: 05,3361 74231 STORE VACT3
029694,001370: 05,3362 77651 VSU
029695,001371: 05,3363 02533 VACT2
029696,001372: 05,3364 37667 STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
029697,001373: 05,3365 02370 SUBEXIT
029698,001374:
|
|
Page 683
|
029700,001376: # ..... COMPTGO .....
029701,001377:
029702,001378: # SUBROUTINES USED
029703,001379: # CLOKTASK
029704,001380: # 2PHSCHNG
029705,001381:
029706,001382: 35,3477 BANK 35
029707,001383: 35,2000 SETLOC CSI/CDH
029708,001384: 35,2000 BANK
029709,001385:
029710,001386: 35,3477 E4,1767 EBANK= RTRN
029711,001387:
029712,001388: 35,3477 COUNT* $$/P3575
029713,001389:
End of include-file P32-P33,_P72-P73.agc. Parent file is MAIN.agc