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