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