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