Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
027920,000002: ## Copyright: Public domain.
027921,000003: ## Filename: P32-P33,_P72-P73.agc
027922,000004: ## Purpose: A section of Comanche revision 072.
027923,000005: ## It is part of the reconstructed source code for the first
027924,000006: ## release of the software for the Command Module's (CM) Apollo
027925,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
027926,000008: ## of this program are available; instead, this file was recreated
027927,000009: ## from a printout of Comanche 055, binary dumps of a set of
027928,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
027929,000011: ## and 072. It has been adapted such that the resulting bugger words
027930,000012: ## exactly match those specified for Comanche 072 in NASA drawing
027931,000013: ## 2021153G, which gives relatively high confidence that the
027932,000014: ## reconstruction is correct.
027933,000015: ## Assembler: yaYUL
027934,000016: ## Contact: Ron Burkey <info@sandroid.org>.
027935,000017: ## Website: www.ibiblio.org/apollo/index.html
027936,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
027937,000019:
027938,000020: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
027939,000021:
027940,000022: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027941,000023: # MOD BY WHITE.P DATE 1 JUNE 67
027942,000024:
027943,000025: # PURPOSE
027944,000026: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
027945,000027: # CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
027946,000028: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
027947,000029: # (CDH) MANEUVER.
027948,000030: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027949,000031: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027950,000032: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027951,000033: # ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
027952,000034: # APPROVAL BY THE ASTRONAUT/GROUND.
027953,000035: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
027954,000036: # THRUSTING PROGRAM.
027955,000037:
027956,000038: # ASSUMPTIONS
027957,000039: # (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
027958,000040: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
027959,000041: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
027960,000042: # POSITION.
027961,000043: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
027962,000044: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027963,000045: # COMPLETION OF THE PROGRAM.
027964,000046: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
027965,000047: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027966,000048: # COMPLETION OF THE PROGRAM.
027967,000049: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
027968,000050: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
027969,000051: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
027970,000052: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
027971,000053: # IGNITION.
027972,000054: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
027973,000055: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
027974,000056: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
027975,000057: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
027976,000058: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER CREW
027977,000059: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
027978,000060: # OUT-OF-PLANE CSI MANEUVER.
027979,000061: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027980,000062: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
027981,000063: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027982,000064: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
027983,000065: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027984,000066: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027985,000067: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027986,000068: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
027987,000069: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027988,000070: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
027989,000071: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027990,000072: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
027991,000073: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027992,000074: # THRUSTING MANEUVER.
027993,000075: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027994,000076: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027995,000077:
027996,000078: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027997,000079: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027998,000080: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
027999,000081: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028000,000082:
028001,000083: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028002,000084: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
028003,000085: # CYCLE.
028004,000086:
028005,000087: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
028006,000088: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
028007,000089: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
028008,000090: # PROGRAM.
028009,000091:
028010,000092: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
028011,000093: # A THRUSTING MANEUVER.
028012,000094:
028013,000095: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028014,000096:
028015,000097: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
028016,000098:
028017,000099: # P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
028018,000100:
028019,000101: # INPUT
028020,000102: # (1) TCSI TIME OF THE CSI MANEUVER
028021,000103: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
028022,000104: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
028023,000105: # MANEUVER POINT
028024,000106: # (3) ELEV DESIRED LOS ANGLE AT TPI
028025,000107: # (4) TTPI TIME OF THE TPI MANEUVER
028026,000108:
028027,000109: # OUTPUT
028028,000110: # (1) TRKMKCNT NUMBER OF MARKS
028029,000111: # (2) TTOGO TIME TO GO
028030,000112: # (3) +MGA MIDDLE GIMBAL ANGLE
028031,000113: # (4) DIFFALT DELTA ALTITUDE AT CDH
028032,000114: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH
028033,000115: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI
028034,000116: # (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
028035,000117: # (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
028036,000118:
028037,000119: # DOWNLINK
028038,000120: # (1) TCSI TIME OF THE CSI MANEUVER
028039,000121: # (2) TCDH TIME OF THE CDH MANEUVER
028040,000122: # (3) TTPI TIME OF THE TPI MANEUVER
028041,000123: # (4) TIG TIME OF THE CSI MANEUVER
028042,000124: # (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
028043,000125: # (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028044,000126: # (7) DIFFALT DELTA ALTITUDE AT CDH
028045,000127: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
028046,000128: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
028047,000129: # MANEUVER POINT
028048,000130: # (9) ELEV DESIRED LOS ANGLE AT TPI
028049,000131:
028050,000132: # COMMUNICATION TO THRUSTING PROGRAMS
028051,000133: # (1) TIG TIME OF THE CSI MANEUVER
028052,000134: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
028053,000135: # INTO PLANE OF PASSIVE VEHICLE
028054,000136: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
028055,000137: # INTO PLANE OF PASSIVE VEHICLE
028056,000138: # (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES
028057,000139: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
028058,000140: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
028059,000141:
028060,000142: # SUBROUTINES USED
028061,000143: # AVFLAGA
028062,000144: # AVFLAGP
028063,000145: # P20FLGON
028064,000146: # VARALARM
028065,000147: # BANKCALL
028066,000148: # GOFLASH
028067,000149: # GOTOPOOH
028068,000150: # VNPOOH
028069,000151: # GOFLASHR
028070,000152: # BLANKET
028071,000153: # ENDOFJOB
028072,000154: # SELECTMU
028073,000155: # ADVANCE
028074,000156: # INTINT
028075,000157: # PASSIVE
028076,000158: # CSI/A
028077,000159: # S32/33.1
028078,000160: # DISDVLVC
028079,000161: # VN1645
028080,000162:
028081,000163: 35,3445 BANK 35
028082,000164: 04,2000 SETLOC CSI/CDH1
028083,000165: 04,2000 BANK
028084,000166: 04,3303 E4,1770 EBANK= SUBEXIT
028085,000167: 04,3303 COUNT 35/P3272
028086,000168: 04,3303 04627 P32 TC AVFLAGA
028087,000169: 04,3304 03306 TC P32STRT
028088,000170: 04,3305 04642 P72 TC AVFLAGP
028089,000171: 04,3306 06006 P32STRT TC INTPRET
028090,000172: 04,3307 77745 DLOAD
028091,000173: 04,3310 11566 ZEROVEC
028092,000174: 04,3311 03754 STORE CENTANG
028093,000175: 04,3312 77776 EXIT
028094,000176: 04,3313 03331 TC P32/P72A
028095,000177: 04,3314 77734 ALMXITA SXA,2
028096,000178: 04,3315 03664 CSIALRM
028097,000179: 04,3316 77740 ALMXIT LXC,1
028098,000180: 04,3317 03664 CSIALRM
028099,000181: 04,3320 77533 SLOAD* EXIT
028100,000182: 04,3321 15653 ALARM/TB -1,1
028101,000183: 04,3322 30154 CA MPAC
028102,000184: 04,3323 05770 TC VARALARM
028103,000185: 04,3324 35064 CAF V05N09
028104,000186: 04,3325 04676 TC BANKCALL
028105,000187: 04,3326 20720 CADR GOFLASH
028106,000188: 04,3327 04106 TC GOTOPOOH
028107,000189: 04,3330 03324 TC -4
028108,000190: 04,3331 04647 P32/P72A TC P20FLGON
028109,000191: 04,3332 06006 TC INTPRET
028110,000192: 04,3333 77745 DLOAD
028111,000193: 04,3334 11566 ZEROVEC
028112,000194: 04,3335 03766 STORE NN
028113,000195: 04,3336 77776 EXIT
028114,000196: 04,3337 34656 CAF V06N11 # TCSI
028115,000197: 04,3340 04575 TC VNPOOH
028116,000198: 04,3341 34615 CAF V06N55 # NN. ELEV(RGLOS)
028117,000199: 04,3342 04676 TC BANKCALL
028118,000200: 04,3343 20720 CADR GOFLASH
028119,000201: 04,3344 04106 TC GOTOPOOH
028120,000202: 04,3345 03347 TC +2
028121,000203: 04,3346 03341 TC -5
028122,000204: 04,3347 34614 CAF V06N37 # TTPI
028123,000205: 04,3350 04575 TC VNPOOH
028124,000206: 04,3351 06006 TC INTPRET
028125,000207: 04,3352 77745 DLOAD
028126,000208: 04,3353 02637 TCSI
028127,000209: 04,3354 37413 STCALL TIG
028128,000210: 04,3355 10712 SELECTMU
028129,000211: 04,3356 77624 P32/P72B CALL
028130,000212: 04,3357 76660 ADVANCE
028131,000213: 04,3360 77201 SETPD VLOAD
028132,000214: 04,3361 00001 0D
028133,000215: 04,3362 03512 VPASS1
028134,000216: 04,3363 65315 PDVL PDDL
028135,000217: 04,3364 03756 RPASS1
028136,000218: 04,3365 02637 TCSI
028137,000219: 04,3366 65325 PDDL PDDL
028138,000220: 04,3367 03663 TTPI
028139,000221: 04,3370 11630 2PISC
028140,000222: 04,3371 41512 SL2 PUSH
028141,000223: 04,3372 77624 CALL
028142,000224: 04,3373 72705 INTINT
028143,000225: 04,3374 77624 CALL
028144,000226: 04,3375 45247 PASSIVE
028145,000227: 04,3376 77624 CALL
028146,000228: 04,3377 15704 CSI/A
028147,000229: 04,3400 43014 P32/P72C BON SET
028148,000230: 04,3401 01311 FINALFLG
028149,000231: 04,3402 11404 P32/P72D
028150,000232: 04,3403 00470 UPDATFLG
028151,000233: 04,3404 52145 P32/P72D DLOAD GOTO
028152,000234: 04,3405 02547 T1TOT2
028153,000235: 04,3406 30002 P32/P72E
028154,000236: 14,2000 SETLOC CSI/CDH3
028155,000237: 14,2000 BANK
028156,000238: 14,2002 02547 P32/P72E STORE T1TOT2
028157,000239: 14,2003 51025 DSU BPL
028158,000240: 14,2004 15652 60MIN
028159,000241: 14,2005 30002 P32/P72E
028160,000242: 14,2006 52145 DLOAD GOTO
028161,000243: 14,2007 03656 T2TOT3
028162,000244: 14,2010 11407 P32/P72F
028163,000245: 04,2000 SETLOC CSI/CDH1
028164,000246: 04,2000 BANK
028165,000247: 04,3407 03656 P32/P72F STORE T2TOT3
028166,000248: 04,3410 51025 DSU BPL
028167,000249: 04,3411 15652 60MIN
028168,000250: 04,3412 11407 P32/P72F
028169,000251: 04,3413 77776 EXIT
028170,000252: 04,3414 34660 CAF V06N75
028171,000253: 04,3415 04575 TC VNPOOH
028172,000254: 04,3416 06006 TC INTPRET
028173,000255: 04,3417 45175 VLOAD CALL
028174,000256: 04,3420 02445 DELVEET1
028175,000257: 04,3421 73457 S32/33.1
028176,000258: 04,3422 26445 STOVL DELVEET1
028177,000259: 04,3423 02453 RACT2
028178,000260: 04,3424 26541 STOVL RACT1
028179,000261: 04,3425 03667 DELVEET2
028180,000262: 04,3426 45170 AXT,1 CALL
028181,000263: 04,3427 01522 VN 0682
028182,000264: 04,3430 76640 DISDVLVC
028183,000265: 04,3431 77745 DLOAD
028184,000266: 04,3432 03663 TTPI
028185,000267: 04,3433 36641 STCALL TTPIO
028186,000268: 04,3434 73002 VN1645
028187,000269: 04,3435 77650 GOTO
028188,000270: 04,3436 11356 P32/P72B
028189,000271:
028190,000272: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
028191,000273: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028192,000274: # MOD BY WHITE.P DATE 1JUNE67
028193,000275:
028194,000276: # PURPOSE
028195,000277:
028196,000278: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
028197,000279: # ALTITUDE MANEUVER (CDH).
028198,000280:
028199,000281: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028200,000282: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028201,000283:
028202,000284: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
028203,000285: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
028204,000286: # ASTRONAUT/GROUND.
028205,000287:
028206,000288: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
028207,000289: # THRUSTING PROGRAM.
028208,000290:
028209,000291: # ASSUMPTIONS
028210,000292:
028211,000293: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
028212,000294: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
028213,000295: # THERFORE -
028214,000296:
028215,000297: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028216,000298: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028217,000299: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028218,000300: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028219,000301:
028220,000302: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
028221,000303: # COMPUTED TO BE GREATER THAN 10 MINUTES.
028222,000304:
028223,000305: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028224,000306: # COMPUTED TO BE GREATER THAN 10 MINUTES.
028225,000307:
028226,000308: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028227,000309: # ORBITS WAS MINMIZED.
028228,000310:
028229,000311: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
028230,000312: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
028231,000313: # POSITION AT CSI IGNITION.
028232,000314:
028233,000315: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
028234,000316: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
028235,000317: # ORBIT OR 85 NM FOR EARTH ORBIT.
028236,000318:
028237,000319: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028238,000320: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
028239,000321: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028240,000322: # IN AN OUT-OF-PLANE MANEUVER.
028241,000323:
028242,000324: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028243,000325: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
028244,000326:
028245,000327: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
028246,000328: # THE GROUND. THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
028247,000329: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
028248,000330: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
028249,000331:
028250,000332: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028251,000333: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
028252,000334: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028253,000335: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
028254,000336: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028255,000337: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
028256,000338: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028257,000339: # THRUSTING MANEUVER.
028258,000340:
028259,000341: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028260,000342:
028261,000343: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028262,000344:
028263,000345: # ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028264,000346: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028265,000347: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
028266,000348: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028267,000349:
028268,000350: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028269,000351: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
028270,000352: # CYCLE.
028271,000353:
028272,000354: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
028273,000355: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
028274,000356: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
028275,000357: # PROGRAM.
028276,000358:
028277,000359: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
028278,000360: # A THRUSTING MANEUVER.
028279,000361:
028280,000362: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028281,000363:
028282,000364: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
028283,000365:
028284,000366: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
028285,000367:
028286,000368: # INPUT
028287,000369:
028288,000370: # (1) TTPI0 TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
028289,000371: # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
028290,000372: # (3) TCDH TIME OF THE CDH MANEUVER
028291,000373:
028292,000374: # OUTPUT
028293,000375:
028294,000376: # (1) TRKMKCNT NUMBER OF MARKS
028295,000377: # (2) TTOGO TIME TO GO
028296,000378: # (3) +MGA MIDDLE GIMBAL ANGLE
028297,000379: # (4) DIFFALT DELTA ALTITUDE AT CDH
028298,000380: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
028299,000381: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
028300,000382: # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
028301,000383:
028302,000384: # DOWNLINK
028303,000385:
028304,000386: # (1) TCDH TIME OF THE CDH MANEUVER
028305,000387: # (2) TTPI TIME OF THE TPI MANEUVER
028306,000388: # (3) TIG TIME OF THE CDH MANEUVER
028307,000389: # (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028308,000390: # (5) DIFFALT DELTA ALTITUDE AT CDH
028309,000391: # (6) ELEV DESIRED LOS ANGLE AT TPI
028310,000392:
028311,000393: # COMMUNICATION TO THRUSTING PROGRAMS
028312,000394:
028313,000395: # (1) TIG TIME OF THE CDH MANEUVER
028314,000396: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
028315,000397: # INTO PLANE OF PASSIVE VEHICLE
028316,000398: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
028317,000399: # INTO PLANE OF PASSIVE VEHICLE
028318,000400: # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028319,000401: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
028320,000402: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
028321,000403:
028322,000404: # SUBROUTINES USED
028323,000405:
028324,000406: # AVFLAGA
028325,000407: # AVFLAGP
028326,000408: # P20FLGON
028327,000409: # VNPOOH
028328,000410: # SELECTMU
028329,000411: # ADVANCE
028330,000412: # CDHMVR
028331,000413: # INTINT3P
028332,000414: # ACTIVE
028333,000415: # PASSIVE
028334,000416: # S33/34.1
028335,000417: # ALARM
028336,000418: # BANKCALL
028337,000419: # GOFLASH
028338,000420: # GOTOPOOH
028339,000421: # S32/33.1
028340,000422: # VN1645
028341,000423:
028342,000424: 04,3437 COUNT 35/P3373
028343,000425:
028344,000426: 04,3437 04627 P33 TC AVFLAGA
028345,000427: 04,3440 03442 TC P33/P73A
028346,000428: 04,3441 04642 P73 TC AVFLAGP
028347,000429: 04,3442 04647 P33/P73A TC P20FLGON
028348,000430: 04,3443 34657 CAF V06N13 # TCDH
028349,000431: 04,3444 04575 TC VNPOOH
028350,000432: 04,3445 06006 TC INTPRET
028351,000433: 04,3446 77745 DLOAD
028352,000434: 04,3447 02641 TTPIO
028353,000435: 04,3450 17663 STODL TTPI
028354,000436: 04,3451 02635 TCDH
028355,000437: 04,3452 37413 STCALL TIG
028356,000438: 04,3453 10712 SELECTMU
028357,000439: 04,3454 77624 P33/P73B CALL
028358,000440: 04,3455 76660 ADVANCE
028359,000441: 04,3456 77624 CALL
028360,000442: 04,3457 13232 CDHMVR
028361,000443: 04,3460 77201 SETPD VLOAD
028362,000444: 04,3461 00001 0D
028363,000445: 04,3462 03546 VACT3
028364,000446: 04,3463 45115 PDVL CALL
028365,000447: 04,3464 02453 RACT2
028366,000448: 04,3465 63675 INTINT3P
028367,000449: 04,3466 77624 CALL
028368,000450: 04,3467 45237 ACTIVE
028369,000451: 04,3470 77201 SETPD VLOAD
028370,000452: 04,3471 00001 0D
028371,000453: 04,3472 02617 VPASS2
028372,000454: 04,3473 45115 PDVL CALL
028373,000455: 04,3474 02625 RPASS2
028374,000456: 04,3475 63675 INTINT3P
028375,000457: 04,3476 77624 CALL
028376,000458: 04,3477 45247 PASSIVE
028377,000459: 04,3500 43145 DLOAD SET
028378,000460: 04,3501 11566 ZEROVEC
028379,000461: 04,3502 03461 ITSWICH
028380,000462: 04,3503 36364 STCALL NOMTPI
028381,000463: 04,3504 72216 S33/34.1
028382,000464: 04,3505 77454 BZE EXIT
028383,000465: 04,3506 24000 P33/P73C
028384,000466: 04,3507 05664 TC ALARM
028385,000467: 04,3510 00611 OCT 611
028386,000468: 04,3511 35064 CAF V05N09
028387,000469: 04,3512 04676 TC BANKCALL
028388,000470: 04,3513 20720 CADR GOFLASH
028389,000471: 04,3514 04106 TC GOTOPOOH
028390,000472: 04,3515 03517 TC +2
028391,000473: 04,3516 03442 TC P33/P73A
028392,000474: 04,3517 06006 TC INTPRET
028393,000475: 04,3520 77745 DLOAD
028394,000476: 04,3521 11566 ZEROVEC
028395,000477: 04,3522 36364 STCALL NOMTPI
028396,000478: 04,3523 24000 P33/P73C
028397,000479: 12,2000 SETLOC CSI/CDH2
028398,000480: 12,2000 BANK
028399,000481:
028400,000482: 12,2000 43014 P33/P73C BON SET
028401,000483: 12,2001 01311 FINALFLG
028402,000484: 12,2002 24004 P33/P73D
028403,000485: 12,2003 00470 UPDATFLG
028404,000486: 12,2004 43345 P33/P73D DLOAD DAD
028405,000487: 12,2005 02364 NOMTPI
028406,000488: 12,2006 03663 TTPI
028407,000489: 12,2007 03663 STORE TTPI
028408,000490: 12,2010 52025 DSU GOTO
028409,000491: 12,2011 02635 TCDH
028410,000492: 12,2012 11524 P33/P73E
028411,000493: 04,2000 SETLOC CSI/CDH1
028412,000494: 04,2000 BANK
028413,000495:
028414,000496: 04,3524 51025 P33/P73E DSU BPL
028415,000497: 04,3525 15652 60MIN
028416,000498: 04,3526 11524 P33/P73E
028417,000499: 04,3527 77615 DAD
028418,000500: 04,3530 15652 60MIN
028419,000501: 04,3531 16547 STODL T1TOT2
028420,000502: 04,3532 03663 TTPI
028421,000503: 04,3533 41425 DSU PUSH
028422,000504: 04,3534 02641 TTPIO
028423,000505: 04,3535 45246 P33/P73F ABS DSU
028424,000506: 04,3536 15652 60MIN
028425,000507: 04,3537 43244 BPL DAD
028426,000508: 04,3540 11535 P33/P73F
028427,000509: 04,3541 15652 60MIN
028428,000510: 04,3542 45565 SIGN STADR
028429,000511: 04,3543 74121 STORE T2TOT3
028430,000512: 04,3544 77776 EXIT
028431,000513: 04,3545 34660 CAF V06N75
028432,000514: 04,3546 04575 TC VNPOOH
028433,000515: 04,3547 06006 TC INTPRET
028434,000516: 04,3550 45175 VLOAD CALL
028435,000517: 04,3551 03667 DELVEET2
028436,000518: 04,3552 73457 S32/33.1
028437,000519: 04,3553 37667 STCALL DELVEET2
028438,000520: 04,3554 73002 VN1645
028439,000521: 04,3555 77650 GOTO
028440,000522: 04,3556 11454 P33/P73B
028441,000523:
028442,000524: # ..... AVFLAGA/P .....
028443,000525:
028444,000526: # ..... DISDVLVC .....
028445,000527:
028446,000528: # SUBROUTINES USED
028447,000529:
028448,000530: # S32/33.X
028449,000531: # VNPOOH
028450,000532:
028451,000533: 37,2000 SETLOC CDHTAG3
028452,000534: 37,2000 BANK
028453,000535:
028454,000536: 37,2640 03405 DISDVLVC STORE DELVLVC
028455,000537: 37,2641 45020 STQ CALL
028456,000538: 37,2642 01340 NORMEX
028457,000539: 37,2643 26227 S32/33.X
028458,000540: 37,2644 64375 VLOAD MXV
028459,000541: 37,2645 03405 DELVLVC
028460,000542: 37,2646 00001 0D
028461,000543: 37,2647 66172 VSL1 SXA,1
028462,000544: 37,2650 02365 VERBNOUN
028463,000545: 37,2651 03405 STORE DELVLVC
028464,000546: 37,2652 77776 EXIT
028465,000547: 37,2653 31765 CA VERBNOUN
028466,000548: 37,2654 04575 TC VNPOOH
028467,000549: 37,2655 06006 TC INTPRET
028468,000550: 37,2656 77650 GOTO
028469,000551: 37,2657 01340 NORMEX
028470,000552: 4000 SETLOC FFTAG12
028471,000553: 4000 BANK
028472,000554:
028473,000555: 4656 01413 V06N11 VN 0611
028474,000556: 4657 01415 V06N13 VN 0613
028475,000557: 4660 01513 V06N75 VN 0675
028476,000558:
028477,000559: 4661 01462 V06N50 VN 0650
028478,000560:
028479,000561:
028480,000562: # ..... CSI/A .....
028481,000563:
028482,000564: # SUBROUTINES USED
028483,000565:
028484,000566: # VECSHIFT
028485,000567: # TIMETHET
028486,000568: # PERIAPO
028487,000569: # SHIFTR1
028488,000570: # INTINT2C
028489,000571: # CDHMVR
028490,000572: # PERIAPO1
028491,000573: # INTINT
028492,000574: # ACTIVE
028493,000575:
028494,000576: 34,3763 BANK 34
028495,000577: 06,2000 SETLOC CSIPROG
028496,000578: 06,2000 BANK
028497,000579: 06,3651 E4,1770 EBANK= SUBEXIT
028498,000580: 06,3651 COUNT 34/CSI
028499,000581:
028500,000582: 06,3651 00025 37100 60MIN 2DEC 360000 B-28
028501,000583:
028502,000584: 06,3653 00600 ALARM/TB OCT 00600 # NO 1
028503,000585: 06,3654 00601 OCT 00601 # 2
028504,000586: 06,3655 00602 OCT 00602 # 3
028505,000587: 06,3656 00603 OCT 00603 # 4
028506,000588: 06,3657 00604 OCT 00604 # 5
028507,000589: 06,3660 00605 OCT 00605 # 6
028508,000590: 06,3661 00606 OCT 00606 # 7
028509,000591: 06,3662 00000 00020 LOOPMX 2DEC 16 B-28
028510,000592:
028511,000593: 06,3664 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
028512,000594:
028513,000595: 06,3666 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS
028514,000596:
028515,000597: 06,3670 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS
028516,000598:
028517,000599: 06,3672 10000 00000 1DPB2 2DEC 1.0 B-2
028518,000600:
028519,000601: 06,3674 00000 00001 1DPB28 2DEC 1 B-28
028520,000602:
028521,000603: 06,3676 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS
028522,000604:
028523,000605:
028524,000606: 06,3700 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 50 FPS
028525,000607:
028526,000608: 06,3702 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS
028527,000609:
028528,000610: 35,2000 SETLOC CSI/CDH
028529,000611: 35,2000 BANK
028530,000612: 35,3445 00004 31566 PMINE 2DEC 157420 B-29 # 84 NM. - MUST BE 8 WORDS BEFORE PMINM
028531,000613:
028532,000614:
028533,000615: 35,3447 00002 27311 NICKELDP 2DEC .021336 B-7 # 7 FPS
028534,000616:
028535,000617: 35,3451 00003 34661 INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
028536,000618:
028537,000619: 35,3453 00000 06433 ONETHTH 2DEC .0001 B-3
028538,000620:
028539,000621: 35,3455 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT - MUST BE 8 WORDS AFTER PMINE.
028540,000622:
028541,000623: 06,2000 SETLOC CSIPROG
028542,000624: 06,2000 BANK
028543,000625:
028544,000626: 06,3704 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS
028545,000627: 06,3705 05660 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR
028546,000628: 06,3706 05461 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATR
028547,000629: 06,3707 43014 CLEAR SET
028548,000630: 06,3710 05662 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
028549,000631: 06,3711 05463 S32.1F3B # 10=2ND CYCLE 11=50 FPS STAGE 2ND CYCLE
028550,000632: 06,3712 77745 DLOAD
028551,000633: 06,3713 11566 ZEROVEC
028552,000634: 06,3714 03764 STORE LOOPCT
028553,000635: 06,3715 03665 STORE CSIALRM
028554,000636: 06,3716 77201 CSI/B SETPD VLOAD
028555,000637: 06,3717 00001 0D
028556,000638: 06,3720 02541 RACT1
028557,000639: 06,3721 41446 ABVAL PUSH # RA1 B29 PL02D
028558,000640: 06,3722 70501 NORM SR1
028559,000641: 06,3723 00050 X2 # B29-N2+ B1 PL04D
028560,000642: 06,3724 51515 PDVL ABVAL
028561,000643: 06,3725 03554 RPASS3
028562,000644: 06,3726 55301 NORM BDDV # RA1/RP3 B1 PL02D
028563,000645: 06,3727 00047 X1
028564,000646: 06,3730 53664 XSU,2 SR* # B2
028565,000647: 06,3731 00046 X1
028566,000648: 06,3732 57175 1,2
028567,000649: 06,3733 41215 DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D
028568,000650: 06,3734 15673 1DPB2
028569,000651: 06,3735 65301 NORM PDDL # PL02D
028570,000652: 06,3736 00047 X1
028571,000653: 06,3737 03750 RTMU
028572,000654: 06,3740 56342 SR1 DDV # B38-B31= B7 PL00D
028573,000655: 06,3741 75457 SL* SQRT # B7
028574,000656: 06,3742 20172 0 -7,1
028575,000657: 06,3743 53515 PDVL UNIT # PL02D
028576,000658: 06,3744 02541 RACT1
028577,000659: 06,3745 47315 PDVL VXV
028578,000660: 06,3746 02611 UP1
028579,000661: 06,3747 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
028580,000662: 06,3750 72441 DOT SL1 # VA1 . UH1 B7
028581,000663: 06,3751 03504 VACT1
028582,000664: 06,3752 45421 BDSU STADR # PL00D
028583,000665: 06,3753 60315 STODL DELVCSI
028584,000666: 06,3754 15665 INITST # 10 FPS
028585,000667: 06,3755 03464 STORE DELDV
028586,000668: 06,3756 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16
028587,000669: 06,3757 03764 LOOPCT
028588,000670: 06,3760 15675 1DPB28
028589,000671: 06,3761 03764 STORE LOOPCT
028590,000672: 06,3762 77025 DSU AXT,2
028591,000673: 06,3763 15663 LOOPMX
028592,000674: 06,3764 00006 6
028593,000675: 06,3765 52044 BPL GOTO
028594,000676: 06,3766 63646 SCNDSOL
028595,000677: 06,3767 24013 CSI/B2
028596,000678:
028597,000679: 12,2000 SETLOC CSIPROG2
028598,000680: 12,2000 BANK
028599,000681:
028600,000682: 12,2013 77601 CSI/B2 SETPD
028601,000683: 12,2014 00001 0D
028602,000684: 12,2015 51545 DLOAD ABS
028603,000685: 12,2016 03462 DELVCSI
028604,000686: 12,2017 50025 DSU BMN
028605,000687: 12,2020 15667 DVMAX1
028606,000688: 12,2021 45267 CSI/B23
028607,000689: 12,2022 43174 AXT,2 BON
028608,000690: 12,2023 00007 7
028609,000691: 12,2024 05700 S32.1F1
028610,000692: 12,2025 63646 SCNDSOL
028611,000693: 12,2026 43014 BOFF BON
028612,000694: 12,2027 05742 S32.1F3A
028613,000695: 12,2030 24033 CSI/B22 # FLAG 3 NEQ 3
028614,000696: 12,2031 05703 S32.1F3B
028615,000697: 12,2032 63646 SCNDSOL
028616,000698: 12,2033 71214 CSI/B22 SET DLOAD
028617,000699: 12,2034 05460 S32.1F1
028618,000700: 12,2035 15671 DVMAX2
028619,000701: 12,2036 77765 SIGN
028620,000702: 12,2037 03462 DELVCSI
028621,000703: 12,2040 37462 STCALL DELVCSI
028622,000704: 12,2041 45267 CSI/B23
028623,000705:
028624,000706: 22,2000 SETLOC CSIPROG3
028625,000707: 22,2000 BANK
028626,000708:
028627,000709: 22,3267 41575 CSI/B23 VLOAD PUSH
028628,000710: 22,3270 02541 RACT1
028629,000711: 22,3271 63256 UNIT PDVL
028630,000712: 22,3272 02611 UP1
028631,000713: 22,3273 53435 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
028632,000714: 22,3274 76561 VXSC VSL1
028633,000715: 22,3275 03462 DELVCSI
028634,000716: 22,3276 02445 STORE DELVEET1
028635,000717: 22,3277 40055 VAD BOV
028636,000718: 22,3300 03504 VACT1
028637,000719: 22,3301 45302 CSI/B23D
028638,000720: 22,3302 37474 CSI/B23D STCALL VACT4
028639,000721: 22,3303 45253 VECSHIFT
028640,000722: 22,3304 26746 STOVL VVEC
028641,000723: 22,3305 77614 SET
028642,000724: 22,3306 03466 RVSW
028643,000725: 22,3307 26657 STOVL RVEC
028644,000726: 22,3310 05426 SN359+
028645,000727: 22,3311 36732 STCALL SNTH # ALSO CSTH
028646,000728: 22,3312 24744 TIMETHET
028647,000729: 22,3313 72142 SR1 LXA,1
028648,000730: 22,3314 03745 RTX1
028649,000731: 22,3315 37472 STCALL HAFPA1
028650,000732: 22,3316 45163 PERIAPO
028651,000733: 22,3317 77624 CALL
028652,000734: 22,3320 45263 SHIFTR1
028653,000735: 22,3321 17460 STODL POSTCSI
028654,000736: 22,3322 03754 CENTANG
028655,000737: 22,3323 52054 BZE GOTO
028656,000738: 22,3324 45326 +2
028657,000739: 22,3325 47147 CIRCL
028658,000740: 22,3326 77745 DLOAD
028659,000741: 22,3327 02754 ECC
028660,000742: 22,3330 50025 DSU BMN
028661,000743: 22,3331 33454 ONETHTH
028662,000744: 22,3332 47147 CIRCL
028663,000745: 22,3333 45145 DLOAD CALL
028664,000746: 22,3334 00041 R1
028665,000747: 22,3335 45263 SHIFTR1
028666,000748: 22,3336 60201 SETPD NORM
028667,000749: 22,3337 00003 2D
028668,000750: 22,3340 00047 X1
028669,000751: 22,3341 50315 PDVL DOT # PL04D
028670,000752: 22,3342 02541 RACT1
028671,000753: 22,3343 03474 VACT4
028672,000754: 22,3344 56246 ABS DDV
028673,000755: 22,3345 00003 02D # (/RDOTV/)/R1 B36-B29= B7
028674,000756: 22,3346 45257 SL* DSU
028675,000757: 22,3347 20201 0,1
028676,000758: 22,3350 33450 NICKELDP
028677,000759: 22,3351 71240 BMN DLOAD
028678,000760: 22,3352 47147 CIRCL
028679,000761: 22,3353 02742 P
028680,000762: 22,3354 45312 SL2 DSU
028681,000763: 22,3355 33502 1RTEB2 # 1.B.2
028682,000764: 22,3356 14017 STODL 14D
028683,000765: 22,3357 03752 RTSR1/MU
028684,000766: 22,3360 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
028685,000767: 22,3361 41325 PDDL DMP
028686,000768: 22,3362 02742 P
028687,000769: 22,3363 00041 R1
028688,000770: 22,3364 77624 CALL
028689,000771: 22,3365 45263 SHIFTR1
028690,000772: 22,3366 72412 SL4 SL1
028691,000773: 22,3367 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-45 = B-31 PL02D
028692,000774: 22,3370 52414 BOFF SL3
028693,000775: 22,3371 04343 CMOONFLG
028694,000776: 22,3372 45373 CSI/B3
028695,000777: 22,3373 50315 CSI/B3 PDVL DOT
028696,000778: 22,3374 02541 RACT1
028697,000779: 22,3375 03474 VACT4
028698,000780: 22,3376 03502 STORE RDOTV
028699,000781: 22,3377 77646 ABS
028700,000782: 22,3400 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D
028701,000783: 22,3401 00050 X2
028702,000784: 22,3402 53660 XSU,1 SL* # B-31+B36-B3 = B2
028703,000785: 22,3403 00047 X2
028704,000786: 22,3404 20204 3,1
028705,000787: 22,3405 14015 STODL 12D
028706,000788: 22,3406 15334 ZEROVECS
028707,000789: 22,3407 00021 STORE 16D
028708,000790: 22,3410 53575 VLOAD UNIT
028709,000791: 22,3411 00015 12D
028710,000792: 22,3412 26732 STOVL SNTH # ALSO STORES CSTH AND 0
028711,000793: 22,3413 02541 RACT1
028712,000794: 22,3414 75315 PDVL SIGN
028713,000795: 22,3415 03474 VACT4
028714,000796: 22,3416 03502 RDOTV
028715,000797: 22,3417 45076 VCOMP CALL
028716,000798: 22,3420 45253 VECSHIFT
028717,000799: 22,3421 26746 STOVL VVEC
028718,000800: 22,3422 77614 SETGO
028719,000801: 22,3423 03426 RVSW
028720,000802: 22,3424 47136 CSINEXT
028721,000803:
028722,000804: 22,3425 77776 62460 SN359+ 2DEC -.000086601
028723,000805:
028724,000806: 22,3427 17777 37776 CS359+ 2DEC +.499999992
028725,000807:
028726,000808: 23,2000 SETLOC CSIPROG4
028727,000809: 23,2000 BANK
028728,000810:
028729,000811: 23,3136 36657 CSINEXT STCALL RVEC
028730,000812: 23,3137 24744 TIMETHET
028731,000813: 23,3140 51125 PDDL BPL
028732,000814: 23,3141 03502 RDOTV
028733,000815: 23,3142 47153 NTP/2
028734,000816: 23,3143 45345 DLOAD DSU
028735,000817: 23,3144 03472 HAFPA1
028736,000818: 23,3145 52006 PUSH GOTO
028737,000819: 23,3146 47153 NTP/2
028738,000820: 23,3147 71201 CIRCL SETPD DLOAD
028739,000821: 23,3150 00001 00D
028740,000822: 23,3151 15334 ZEROVECS
028741,000823: 23,3152 77606 PUSH
028742,000824: 23,3153 41345 NTP/2 DLOAD DMP
028743,000825: 23,3154 03766 NN
028744,000826: 23,3155 03472 HAFPA1
028745,000827: 23,3156 45261 SL DSU
028746,000828: 23,3157 20217 14D
028747,000829: 23,3160 77615 DAD
028748,000830: 23,3161 02637 TCSI
028749,000831: 23,3162 02635 STORE TCDH
028750,000832: 23,3163 77021 BDSU AXT,2
028751,000833: 23,3164 03663 TTPI
028752,000834: 23,3165 00005 5D
028753,000835: 23,3166 40240 BMN SETPD
028754,000836: 23,3167 63646 SCNDSOL
028755,000837: 23,3170 00001 0D
028756,000838: 23,3171 63375 VLOAD PDVL
028757,000839: 23,3172 03474 VACT4
028758,000840: 23,3173 02541 RACT1
028759,000841: 23,3174 77624 CALL
028760,000842: 23,3175 63666 INTINT2C
028761,000843: 23,3176 26453 STOVL RACT2
028762,000844: 23,3177 00007 VATT
028763,000845: 23,3200 26533 STOVL VACT2
028764,000846: 23,3201 03512 VPASS1
028765,000847: 23,3202 63201 SETPD PDVL
028766,000848: 23,3203 00001 0D
028767,000849: 23,3204 03756 RPASS1
028768,000850: 23,3205 77650 GOTO
028769,000851: 23,3206 34020 CSINEXT1
028770,000852:
028771,000853: 16,2000 SETLOC CSIPROG5
028772,000854: 16,2000 BANK
028773,000855:
028774,000856: 16,2020 77624 CSINEXT1 CALL
028775,000857: 16,2021 63666 INTINT2C
028776,000858: 16,2022 26625 STOVL RPASS2
028777,000859: 16,2023 00007 VATT
028778,000860: 16,2024 36617 STCALL VPASS2
028779,000861: 16,2025 13232 CDHMVR
028780,000862: 16,2026 40375 VLOAD SETPD
028781,000863: 16,2027 02453 RACT2
028782,000864: 16,2030 00001 0D
028783,000865: 16,2031 45115 PDVL CALL
028784,000866: 16,2032 03546 VACT3
028785,000867: 16,2033 45153 PERIAPO1
028786,000868: 16,2034 77624 CALL
028787,000869: 16,2035 45263 SHIFTR1
028788,000870: 16,2036 27472 STOVL POSTCDH
028789,000871: 16,2037 03546 VACT3
028790,000872: 16,2040 63201 SETPD PDVL
028791,000873: 16,2041 00001 0D
028792,000874: 16,2042 02453 RACT2
028793,000875: 16,2043 65325 PDDL PDDL
028794,000876: 16,2044 02635 TCDH
028795,000877: 16,2045 03663 TTPI
028796,000878: 16,2046 62525 PDDL SL2
028797,000879: 16,2047 11630 2PISC
028798,000880: 16,2050 45006 PUSH CALL
028799,000881: 16,2051 72705 INTINT
028800,000882: 16,2052 77624 CALL
028801,000883: 16,2053 45237 ACTIVE
028802,000884: 16,2054 77745 DLOAD
028803,000885: 16,2055 03744 ELEV
028804,000886: 16,2056 73401 SETPD SINE
028805,000887: 16,2057 00007 6D
028806,000888: 16,2060 53515 PDVL UNIT
028807,000889: 16,2061 03540 RACT3
028808,000890: 16,2062 00001 STORE 00D # URA3 AT 00D
028809,000891: 16,2063 47315 PDVL VXV # PL14D, PL08D
028810,000892: 16,2064 02611 UP1
028811,000893: 16,2065 77656 UNIT
028812,000894: 16,2066 71525 PDDL COSINE # UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D
028813,000895: 16,2067 03744 ELEV
028814,000896: 16,2070 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D
028815,000897: 16,2071 43754 STCALL 18D # PLUS
028816,000898: 16,2072 16517 CSINEXT2
028817,000899:
028818,000900: 07,2000 SETLOC CSIPROG6
028819,000901: 07,2000 BANK
028820,000902:
028821,000903: 07,2517 74345 CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
028822,000904: 07,2520 76455 VAD VSL1
028823,000905: 07,2521 00023 18D # B1
028824,000906: 07,2522 50206 PUSH DOT # PL06D
028825,000907: 07,2523 03540 RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30
028826,000908: 07,2524 41552 SL1 PUSH # B29 PL08D
028827,000909: 07,2525 72316 DSQ TLOAD # TEMP1**2 B58
028828,000910: 07,2526 00155 MPAC
028829,000911: 07,2527 50315 PDVL DOT # PL11D
028830,000912: 07,2530 03540 RACT3
028831,000913: 07,2531 03540 RACT3
028832,000914: 07,2532 57551 TLOAD DCOMP # RA3 . RA3
028833,000915: 07,2533 00155 MPAC
028834,000916: 07,2534 50315 PDVL DOT # RP3 . RP3 B58 PL14D
028835,000917: 07,2535 03554 RPASS3
028836,000918: 07,2536 03554 RPASS3 # PL11D
028837,000919: 07,2537 76371 TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D
028838,000920: 07,2540 71244 BPL DLOAD
028839,000921: 07,2541 16557 K10RK2
028840,000922: 07,2542 03764 LOOPCT
028841,000923: 07,2543 77025 DSU AXT,2
028842,000924: 07,2544 15675 1DPB28
028843,000925: 07,2545 00001 1D
028844,000926: 07,2546 77654 BZE
028845,000927: 07,2547 11314 ALMXITA
028846,000928: 07,2550 70545 DLOAD SR1
028847,000929: 07,2551 03464 DELDV
028848,000930: 07,2552 03464 STORE DELDV
028849,000931: 07,2553 77621 BDSU
028850,000932: 07,2554 03470 DVPREV
028851,000933: 07,2555 37462 STCALL DELVCSI
028852,000934: 07,2556 15756 CSI/B1
028853,000935: 07,2557 41566 K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
028854,000936: 07,2560 45276 DCOMP DSU
028855,000937: 07,2561 00007 06D # -TEMP1-TEMP3 = K2 AT 10D
028856,000938: 07,2562 14013 STODL 10D # PL08D
028857,000939: 07,2563 45425 DSU STADR # PL06D
028858,000940: 07,2564 77762 STORE 12D # -TEMP1+TEMP3 = K1 AT 12D
028859,000941: 07,2565 77646 ABS
028860,000942: 07,2566 14017 STODL 14D
028861,000943: 07,2567 00013 10D
028862,000944: 07,2570 45246 ABS DSU
028863,000945: 07,2571 00017 14D
028864,000946: 07,2572 71240 BMN DLOAD
028865,000947: 07,2573 50002 K2.
028866,000948: 07,2574 00015 12D
028867,000949: 07,2575 34013 STCALL 10D # K EQUALS K1
028868,000950: 07,2576 50002 K2.
028869,000951:
028870,000952: 24,2000 SETLOC CSIPROG7
028871,000953: 24,2000 BANK
028872,000954:
028873,000955: 24,2002 77745 K2. DLOAD
028874,000956: 24,2003 00013 10D
028875,000957: 24,2004 76561 VXSC VSL1
028876,000958: 24,2005 53455 VAD UNIT # V = RA3 + KU UNIT B1
028877,000959: 24,2006 03540 RACT3
028878,000960: 24,2007 53515 PDVL UNIT
028879,000961: 24,2010 03554 RPASS3 # PL06D
028880,000962: 24,2011 53515 PDVL UNIT
028881,000963: 24,2012 03562 VPASS3 # PL12D
028882,000964: 24,2013 63235 VXV PDVL # UVP3 X URP3 PL18D
028883,000965: 24,2014 00007 06D
028884,000966: 24,2015 00007 06D
028885,000967: 24,2016 50235 VXV DOT
028886,000968: 24,2017 00001 00D
028887,000969: 24,2020 77626 STADR # PL12D
028888,000970: 24,2021 53762 STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D
028889,000971: 24,2022 72441 DOT SL1 # PL00D
028890,000972: 24,2023 75326 ARCCOS SIGN
028891,000973: 24,2024 00015 12D # B0
028892,000974: 24,2025 41542 SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
028893,000975: 24,2026 71214 BON DLOAD
028894,000976: 24,2027 05701 S32.1F2
028895,000977: 24,2030 50065 FRSTPAS
028896,000978: 24,2031 00001 00D # NOT THE FIRST PASS OF A CYCLE
028897,000979: 24,2032 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D
028898,000980: 24,2033 03466 GAMPREV
028899,000981: 24,2034 03462 DELVCSI
028900,000982: 24,2035 60225 DSU NORM # B7
028901,000983: 24,2036 03470 DVPREV
028902,000984: 24,2037 00047 X1
028903,000985: 24,2040 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D
028904,000986: 24,2041 00003 02D # = SLOPE
028905,000987: 24,2042 03462 DELVCSI
028906,000988: 24,2043 03470 STORE DVPREV
028907,000989: 24,2044 43014 BOFF BOFF
028908,000990: 24,2045 05742 S32.1F3A
028909,000991: 24,2046 20307 THRDCHK
028910,000992: 24,2047 05743 S32.1F3B
028911,000993: 24,2050 20307 THRDCHK
028912,000994: 24,2051 41345 DLOAD DMP
028913,000995: 24,2052 00003 02D
028914,000996: 24,2053 03466 GAMPREV
028915,000997: 24,2054 71244 BPL DLOAD
028916,000998: 24,2055 20314 FIFTYFPS
028917,000999: 24,2056 33452 INITST1
028918,001000: 24,2057 77765 SIGN
028919,001001: 24,2060 03464 DELDV
028920,001002: 24,2061 03464 STORE DELDV
028921,001003: 24,2062 43014 SET CLEAR
028922,001004: 24,2063 05462 S32.1F3A
028923,001005: 24,2064 05663 S32.1F3B
028924,001006: 24,2065 77745 FRSTPAS DLOAD
028925,001007: 24,2066 00001 00D
028926,001008: 24,2067 17466 STODL GAMPREV
028927,001009: 24,2070 03462 DELVCSI
028928,001010: 24,2071 37470 STCALL DVPREV
028929,001011: 24,2072 20302 CSINEXT3
028930,001012:
028931,001013: 10,2000 SETLOC CSIPROG8
028932,001014: 10,2000 BANK
028933,001015:
028934,001016: 10,2302 43025 CSINEXT3 DSU CLEAR
028935,001017: 10,2303 03464 DELDV
028936,001018: 10,2304 05661 S32.1F2
028937,001019: 10,2305 37462 STCALL DELVCSI
028938,001020: 10,2306 15756 CSI/B1
028939,001021: 10,2307 43014 THRDCHK BON BON
028940,001022: 10,2310 05702 S32.1F3A
028941,001023: 10,2311 20333 NEWTN
028942,001024: 10,2312 05703 S32.1F3B
028943,001025: 10,2313 20333 NEWTN
028944,001026: 10,2314 75345 FIFTYFPS DLOAD SIGN
028945,001027: 10,2315 15701 FIFPSDP
028946,001028: 10,2316 00005 04D
028947,001029: 10,2317 77765 SIGN
028948,001030: 10,2320 03466 GAMPREV
028949,001031: 10,2321 03464 STORE DELDV
028950,001032: 10,2322 43276 DCOMP DAD
028951,001033: 10,2323 03462 DELVCSI
028952,001034: 10,2324 17462 STODL DELVCSI
028953,001035: 10,2325 00001 00D
028954,001036: 10,2326 43014 SET SET
028955,001037: 10,2327 05463 S32.1F3B
028956,001038: 10,2330 05462 S32.1F3A
028957,001039: 10,2331 37466 STCALL GAMPREV
028958,001040: 10,2332 24013 CSI/B2
028959,001041: 10,2333 60345 NEWTN DLOAD NORM
028960,001042: 10,2334 00005 04D
028961,001043: 10,2335 00050 X2
028962,001044: 10,2336 54065 BDDV XSU,1
028963,001045: 10,2337 00001 00D
028964,001046: 10,2340 00047 X2
028965,001047: 10,2341 77657 SR*
028966,001048: 10,2342 20601 0,1
028967,001049: 10,2343 17464 STODL DELDV
028968,001050: 10,2344 00001 00D
028969,001051: 10,2345 03466 STORE GAMPREV
028970,001052: 10,2346 51545 DLOAD ABS
028971,001053: 10,2347 03464 DELDV
028972,001054: 10,2350 45206 PUSH DSU # PL08D
028973,001055: 10,2351 15677 EPSILN1
028974,001056: 10,2352 71240 BMN DLOAD
028975,001057: 10,2353 20370 CSI/SOL
028976,001058: 10,2354 50025 DSU BMN
028977,001059: 10,2355 15703 DELMAX1
028978,001060: 10,2356 20363 CSISTEP
028979,001061: 10,2357 75345 DLOAD SIGN
028980,001062: 10,2360 15703 DELMAX1
028981,001063: 10,2361 03464 DELDV
028982,001064: 10,2362 03464 STORE DELDV
028983,001065: 10,2363 45345 CSISTEP DLOAD DSU
028984,001066: 10,2364 03462 DELVCSI
028985,001067: 10,2365 03464 DELDV
028986,001068: 10,2366 37462 STCALL DELVCSI
028987,001069: 10,2367 15756 CSI/B1
028988,001070: 10,2370 77145 CSI/SOL DLOAD AXT,2
028989,001071: 10,2371 03460 POSTCSI
028990,001072: 10,2372 00002 2
028991,001073: 10,2373 52150 LXA,1 GOTO
028992,001074: 10,2374 03745 RTX1
028993,001075: 10,2375 63614 CSINEXT4
028994,001076:
028995,001077: 31,2000 SETLOC CSIPROG9
028996,001078: 31,2000 BANK
028997,001079:
028998,001080: 31,3614 50023 CSINEXT4 DSU* BMN
028999,001081: 31,3615 33444 PMINE -2,1
029000,001082: 31,3616 63646 SCNDSOL
029001,001083: 31,3617 71374 AXT,2 DLOAD
029002,001084: 31,3620 00003 3
029003,001085: 31,3621 03472 POSTCDH
029004,001086: 31,3622 50023 DSU* BMN
029005,001087: 31,3623 33444 PMINE -2,1
029006,001088: 31,3624 63646 SCNDSOL
029007,001089: 31,3625 45345 DLOAD DSU
029008,001090: 31,3626 02635 TCDH
029009,001091: 31,3627 02637 TCSI
029010,001092: 31,3630 02547 STORE T1TOT2
029011,001093: 31,3631 45374 AXT,2 DSU
029012,001094: 31,3632 00004 4
029013,001095: 31,3633 36155 600SEC
029014,001096: 31,3634 77040 BMN AXT,2
029015,001097: 31,3635 63646 SCNDSOL
029016,001098: 31,3636 00005 5
029017,001099: 31,3637 45345 DLOAD DSU
029018,001100: 31,3640 03663 TTPI
029019,001101: 31,3641 02635 TCDH
029020,001102: 31,3642 03656 STORE T2TOT3
029021,001103: 31,3643 51025 DSU BPL
029022,001104: 31,3644 36155 600SEC
029023,001105: 31,3645 11400 P32/P72C
029024,001106: 31,3646 43014 SCNDSOL BON BOFF
029025,001107: 31,3647 05702 S32.1F3A
029026,001108: 31,3650 11316 ALMXIT
029027,001109: 31,3651 05743 S32.1F3B
029028,001110: 31,3652 11316 ALMXIT
029029,001111: 31,3653 71334 SXA,2 DLOAD
029030,001112: 31,3654 03664 CSIALRM
029031,001113: 31,3655 15334 ZEROVECS
029032,001114: 31,3656 43014 CLEAR SET
029033,001115: 31,3657 05660 S32.1F1
029034,001116: 31,3660 05461 S32.1F2
029035,001117: 31,3661 43014 CLEAR CLEAR
029036,001118: 31,3662 05662 S32.1F3A
029037,001119: 31,3663 05663 S32.1F3B
029038,001120: 31,3664 37764 STCALL LOOPCT
029039,001121: 31,3665 15716 CSI/B
029040,001122:
029041,001123: # ..... ADVANCE .....
029042,001124:
029043,001125: # SUBROUTINES USED
029044,001126: # PRECSET
029045,001127: # ROTATE
029046,001128:
029047,001129: 37,2000 SETLOC CDHTAG3
029048,001130: 37,2000 BANK
029049,001131:
029050,001132: 37,2660 71220 ADVANCE STQ DLOAD
029051,001133: 37,2661 02370 SUBEXIT
029052,001134: 37,2662 03413 TIG
029053,001135: 37,2663 34041 STCALL TDEC1
029054,001136: 37,2664 45215 PRECSET
029055,001137: 37,2665 77214 SET VLOAD
029056,001138: 37,2666 01067 XDELVFLG
029057,001139: 37,2667 03562 VPASS3
029058,001140: 37,2670 02617 STORE VPASS2
029059,001141: 37,2671 27512 STOVL VPASS1
029060,001142: 37,2672 03554 RPASS3
029061,001143: 37,2673 02625 STORE RPASS2
029062,001144: 37,2674 03756 STORE RPASS1
029063,001145: 37,2675 47256 UNIT VXV
029064,001146: 37,2676 03512 VPASS1
029065,001147: 37,2677 77656 UNIT
029066,001148: 37,2700 26611 STOVL UP1
029067,001149: 37,2701 03540 RACT3
029068,001150: 37,2702 37632 STCALL RTIG
029069,001151: 37,2703 13222 ROTATE
029070,001152: 37,2704 02453 STORE RACT2
029071,001153: 37,2705 26541 STOVL RACT1
029072,001154: 37,2706 03546 VACT3
029073,001155: 37,2707 37640 STCALL VTIG
029074,001156: 37,2710 13222 ROTATE
029075,001157: 37,2711 02533 STORE VACT2
029076,001158: 37,2712 37504 STCALL VACT1
029077,001159: 37,2713 02370 SUBEXIT
029078,001160:
029079,001161: # ..... ROTATE .....
029080,001162:
029081,001163: 05,2000 SETLOC CDHTAG
029082,001164: 05,2000 BANK
029083,001165:
029084,001166: 05,3222 41406 ROTATE PUSH PUSH
029085,001167: 05,3223 74241 DOT VXSC
029086,001168: 05,3224 02611 UP1
029087,001169: 05,3225 02611 UP1
029088,001170: 05,3226 51352 VSL2 BVSU
029089,001171: 05,3227 63256 UNIT PDVL
029090,001172: 05,3230 74246 ABVAL VXSC
029091,001173: 05,3231 43572 VSL1 RVQ
029092,001174:
029093,001175: # ..... INTINTNA .....
029094,001176:
029095,001177: 31,2000 SETLOC CDHTAG2
029096,001178: 31,2000 BANK
029097,001179:
029098,001180: 31,3666 65325 INTINT2C PDDL PDDL
029099,001181: 31,3667 02637 TCSI
029100,001182: 31,3670 02635 TCDH
029101,001183: 31,3671 41525 PDDL PUSH
029102,001184: 31,3672 33107 TWOPI
029103,001185: 31,3673 77650 GOTO
029104,001186: 31,3674 72705 INTINT
029105,001187: 31,3675 65325 INTINT3P PDDL PDDL
029106,001188: 31,3676 02635 TCDH
029107,001189: 31,3677 03663 TTPI
029108,001190: 31,3700 41525 PDDL PUSH
029109,001191: 31,3701 15334 ZEROVECS
029110,001192: 31,3702 77650 GOTO
029111,001193: 31,3703 72705 INTINT
029112,001194:
029113,001195: # ..... S32/33.1 .....
029114,001196:
029115,001197: # SUBROUTINES USED
029116,001198: # S32/33.X
029117,001199:
029118,001200: 35,2000 SETLOC CSI/CDH
029119,001201: 35,2000 BANK
029120,001202:
029121,001203: 35,3457 76020 S32/33.1 STQ AXT,1
029122,001204: 35,3460 02370 SUBEXIT
029123,001205: 35,3461 01521 VN 0681
029124,001206: 35,3462 77624 CALL
029125,001207: 35,3463 76640 DISDVLVC
029126,001208: 35,3464 77624 CALL
029127,001209: 35,3465 26227 S32/33.X
029128,001210: 35,3466 61375 VLOAD VXM
029129,001211: 35,3467 03405 DELVLVC
029130,001212: 35,3470 00001 0D
029131,001213: 35,3471 77772 VSL1
029132,001214: 35,3472 03646 STORE DELVSIN
029133,001215: 35,3473 51406 PUSH ABVAL
029134,001216: 35,3474 27654 STOVL DELVSAB
029135,001217: 35,3475 77650 GOTO
029136,001218: 35,3476 02370 SUBEXIT
029137,001219:
029138,001220: # ..... S32/33.X .....
029139,001221:
029140,001222: 13,2000 SETLOC CDHTAGS
029141,001223: 13,2000 BANK
029142,001224:
029143,001225: 13,2227 77201 S32/33.X SETPD VLOAD
029144,001226: 13,2230 00007 6D
029145,001227: 13,2231 02611 UP1
029146,001228: 13,2232 63276 VCOMP PDVL
029147,001229: 13,2233 02541 RACT1
029148,001230: 13,2234 57456 UNIT VCOMP
029149,001231: 13,2235 47206 PUSH VXV
029150,001232: 13,2236 02611 UP1
029151,001233: 13,2237 77772 VSL1
029152,001234: 13,2240 00001 STORE 0D
029153,001235: 13,2241 77616 RVQ
029154,001236:
029155,001237: # ..... CDHMVR .....
029156,001238:
029157,001239: # SUBROUTINES USED
029158,001240: # VECSHIFT
029159,001241: # TIMETHET
029160,001242: # SHIFTR1
029161,001243:
029162,001244: 05,2000 SETLOC CDHTAG
029163,001245: 05,2000 BANK
029164,001246:
029165,001247: 05,3232 77220 CDHMVR STQ VLOAD
029166,001248: 05,3233 02370 SUBEXIT
029167,001249: 05,3234 02453 RACT2
029168,001250: 05,3235 53406 PUSH UNIT
029169,001251: 05,3236 27546 STOVL UNVEC # UR SUB A
029170,001252: 05,3237 02625 RPASS2
029171,001253: 05,3240 50256 UNIT DOT
029172,001254: 05,3241 03546 UNVEC
029173,001255: 05,3242 72406 PUSH SL1
029174,001256: 05,3243 16734 STODL CSTH
029175,001257: 05,3244 65316 DSQ PDDL
029176,001258: 05,3245 23740 DP1/4
029177,001259: 05,3246 45302 SR2 DSU
029178,001260: 05,3247 72566 SQRT SL1
029179,001261: 05,3250 57515 PDVL VCOMP
029180,001262: 05,3251 77635 VXV
029181,001263: 05,3252 02625 RPASS2
029182,001264: 05,3253 65241 DOT PDDL
029183,001265: 05,3254 02611 UP1
029184,001266: 05,3255 45565 SIGN STADR
029185,001267: 05,3256 51045 STOVL SNTH
029186,001268: 05,3257 02625 RPASS2
029187,001269: 05,3260 45115 PDVL CALL
029188,001270: 05,3261 02617 VPASS2
029189,001271: 05,3262 45253 VECSHIFT
029190,001272: 05,3263 26746 STOVL VVEC
029191,001273: 05,3264 77614 CLEAR
029192,001274: 05,3265 03666 RVSW
029193,001275: 05,3266 36657 STCALL RVEC
029194,001276: 05,3267 24744 TIMETHET
029195,001277: 05,3270 53754 LXA,2 VSL*
029196,001278: 05,3271 03746 RTX2
029197,001279: 05,3272 57576 0,2
029198,001280: 05,3273 00023 STORE 18D
029199,001281: 05,3274 76441 DOT SL1R
029200,001282: 05,3275 03546 UNVEC
029201,001283: 05,3276 51515 PDVL ABVAL # 0D = V SUB PV
029202,001284: 05,3277 63257 SL* PDVL
029203,001285: 05,3300 57576 0,2
029204,001286: 05,3301 02453 RACT2
029205,001287: 05,3302 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A
029206,001288: 05,3303 77625 DSU
029207,001289: 05,3304 00003 02D
029208,001290: 05,3305 16633 STODL DIFFALT # DELTA H IN METERS B+29
029209,001291: 05,3306 02744 R1A
029210,001292: 05,3307 65301 NORM PDDL # 2 - R V**/MU 04D
029211,001293: 05,3310 00047 X1
029212,001294: 05,3311 00041 R1
029213,001295: 05,3312 77624 CALL
029214,001296: 05,3313 45263 SHIFTR1
029215,001297: 05,3314 56362 SR1R DDV
029216,001298: 05,3315 41457 SL* PUSH
029217,001299: 05,3316 20174 0 -5,1
029218,001300: 05,3317 65225 DSU PDDL # A SUB A B+29 04D
029219,001301: 05,3320 02633 DIFFALT
029220,001302: 05,3321 56302 SR2 DDV # A SUB P B+31
029221,001303: 05,3322 00005 04D # B+2
029222,001304: 05,3323 75406 PUSH SQRT # A SUB P/A SUB A 06D
029223,001305: 05,3324 41275 DMPR DMP
029224,001306: 05,3325 00007 06D
029225,001307: 05,3326 00001 00D
029226,001308: 05,3327 65272 SL3R PDDL # V SUB A V METERS/CS B+7 08D
029227,001309: 05,3330 00003 02D # R SUB A MAGNITUDE B+29
029228,001310: 05,3331 65301 NORM PDDL
029229,001311: 05,3332 00047 X1
029230,001312: 05,3333 03750 RTMU
029231,001313: 05,3334 56342 SR1 DDV # 2MU B+38
029232,001314: 05,3335 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D
029233,001315: 05,3336 20174 0 -5,1
029234,001316: 05,3337 00005 04D # ASUBA B+29
029235,001317: 05,3340 65301 NORM PDDL
029236,001318: 05,3341 00050 X2
029237,001319: 05,3342 03750 RTMU
029238,001320: 05,3343 56342 SR1 DDV
029239,001321: 05,3344 44257 SL* BDSU
029240,001322: 05,3345 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ
029241,001323: 05,3346 63525 PDDL DSQ # 10D
029242,001324: 05,3347 00011 08D
029243,001325: 05,3350 75421 BDSU SQRT
029244,001326: 05,3351 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2) 10D
029245,001327: 05,3352 02611 UP1
029246,001328: 05,3353 03546 UNVEC
029247,001329: 05,3354 74256 UNIT VXSC
029248,001330: 05,3355 00013 10D
029249,001331: 05,3356 74315 PDVL VXSC
029250,001332: 05,3357 03546 UNVEC
029251,001333: 05,3360 00011 08D
029252,001334: 05,3361 76455 VAD VSL1
029253,001335: 05,3362 77626 STADR
029254,001336: 05,3363 74231 STORE VACT3
029255,001337: 05,3364 77651 VSU
029256,001338: 05,3365 02533 VACT2
029257,001339: 05,3366 37667 STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
029258,001340: 05,3367 02370 SUBEXIT
029259,001341:
029260,001342: # ..... COMPTGO .....
029261,001343:
029262,001344: # SUBROUTINES USED
029263,001345: # CLOKTASK
029264,001346: # 2PHSCHNG
029265,001347:
029266,001348: 35,3477 BANK 35
029267,001349: 35,2000 SETLOC CSI/CDH
029268,001350: 35,2000 BANK
029269,001351:
029270,001352: 35,3477 E4,1767 EBANK= RTRN
029271,001353:
029272,001354: 35,3477 COUNT* $$/P3575
029273,001355:
End of include-file P32-P33,_P72-P73.agc. Parent file is MAIN.agc