Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
029224,000002: ## Copyright: Public domain.
029225,000003: ## Filename: P32-P33_P72-P73.agc
029226,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
029227,000005: ## build 072. This is for the Command Module's (CM)
029228,000006: ## Apollo Guidance Computer (AGC), for
029229,000007: ## Apollo 15-17.
029230,000008: ## Assembler: yaYUL
029231,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
029232,000010: ## Website: www.ibiblio.org/apollo/index.html
029233,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
029234,000012: ## Mod history: 2009-08-12 JL Adapted from corresponding Comanche 055 file.
029235,000013: ## 2009-09-04 JL Fixed a bunch of typos. Fixed page numbers.
029236,000014: ## 2010-02-07 JL Removed spurious STORE instruction on p682.
029237,000015: ## 2010-02-09 JL Added missing code on p685.
029238,000016: ## 2010-02-11 JL Fixed error on p663.
029239,000017: ## 2010-02-20 RSB Un-##'d this header.
029240,000018: ## 2017-01-28 RSB WTIH -> WITH.
029241,000019: ## 2017-02-07 RSB Proofed comment text by diff'ing vs Comanche 55
029242,000020: ## and corrected errors found.
029243,000021: ## 2017-03-09 RSB Comment-text fixes noted in proofing Luminary 116.
029244,000022:
![]() |
Page 658 |
029246,000024:
029247,000025: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
029248,000026:
029249,000027: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
029250,000028: # MOD BY WHITE.P DATE 1 JUNE 67
029251,000029:
029252,000030: # PURPOSE
029253,000031:
029254,000032: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
029255,000033: # CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
029256,000034: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
029257,000035: # (CDH) MANEUVER.
029258,000036:
029259,000037: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029260,000038: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029261,000039:
029262,000040: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029263,000041: # ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
029264,000042: # APPROVAL BY THE ASTRONAUT/GROUND.
029265,000043:
029266,000044: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
029267,000045: # THRUSTING PROGRAM.
029268,000046:
029269,000047: # ASSUMPTIONS
029270,000048:
029271,000049: # (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
029272,000050: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
029273,000051: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
029274,000052: # POSITION.
029275,000053:
029276,000054: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
029277,000055: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029278,000056: # COMPLETION OF THE PROGRAM.
029279,000057:
029280,000058: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
029281,000059: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029282,000060: # COMPLETION OF THE PROGRAM.
029283,000061:
029284,000062: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
029285,000063: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
029286,000064:
029287,000065: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
029288,000066: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
029289,000067: # IGNITION.
029290,000068:
029291,000069: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
029292,000070: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
029293,000071: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
029294,000072:
029295,000073: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
029296,000074: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER CREW
![]() |
Page 659 |
029298,000076: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
029299,000077: # OUT-OF-PLANE CSI MANEUVER.
029300,000078:
029301,000079: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029302,000080: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
029303,000081:
029304,000082: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029305,000083: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029306,000084: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029307,000085: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029308,000086:
029309,000087: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029310,000088: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
029311,000089: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029312,000090: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
029313,000091: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029314,000092: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
029315,000093: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029316,000094: # THRUSTING MANEUVER.
029317,000095:
029318,000096: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029319,000097:
029320,000098: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029321,000099:
029322,000100: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029323,000101: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029324,000102: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029325,000103: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029326,000104:
029327,000105: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029328,000106: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029329,000107: # CYCLE.
029330,000108:
029331,000109: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029332,000110: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029333,000111: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029334,000112: # PROGRAM.
029335,000113:
029336,000114: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029337,000115: # A THRUSTING MANEUVER.
029338,000116:
029339,000117: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029340,000118:
029341,000119: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
029342,000120:
029343,000121: # P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
029344,000122:
029345,000123: # INPUT
029346,000124:
029347,000125: # (1) TCSI TIME OF THE CSI MANEUVER
![]() |
Page 660 |
029349,000127: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029350,000128: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029351,000129: # MANEUVER POINT
029352,000130: # (3) ELEV DESIRED LOS ANGLE AT TPI
029353,000131: # (4) TTPI TIME OF THE TPI MANEUVER
029354,000132:
029355,000133: # OUTPUT
029356,000134:
029357,000135: # (1) TRKMKCNT NUMBER OF MARKS
029358,000136: # (2) TTOGO TIME TO GO
029359,000137: # (3) +MGA MIDDLE GIMBAL ANGLE
029360,000138: # (4) DIFFALT DELTA ALTITUDE AT CDH
029361,000139: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH
029362,000140: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI
029363,000141: # (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
029364,000142: # (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029365,000143:
029366,000144: # DOWNLINK
029367,000145:
029368,000146: # (1) TCSI TIME OF THE CSI MANEUVER
029369,000147: # (2) TCDH TIME OF THE CDH MANEUVER
029370,000148: # (3) TTPI TIME OF THE TPI MANEUVER
029371,000149: # (4) TIG TIME OF THE CSI MANEUVER
029372,000150: # (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029373,000151: # (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029374,000152: # (7) DIFFALT DELTA ALTITUDE AT CDH
029375,000153: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029376,000154: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029377,000155: # MANEUVER POINT
029378,000156: # (9) ELEV DESIRED LOS ANGLE AT TPI
029379,000157:
029380,000158: # COMMUNICATION TO THRUSTING PROGRAMS
029381,000159:
029382,000160: # (1) TIG TIME OF THE CSI MANEUVER
029383,000161: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
029384,000162: # INTO PLANE OF PASSIVE VEHICLE
029385,000163: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
029386,000164: # INTO PLANE OF PASSIVE VEHICLE
029387,000165: # (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029388,000166: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
029389,000167: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029390,000168:
029391,000169: # SUBROUTINES USED
029392,000170:
029393,000171: # AVFLAGA
029394,000172: # AVFLAGP
029395,000173: # P20FLGON
029396,000174: # VARALARM
029397,000175: # BANKCALL
029398,000176: # GOFLASH
029399,000177: # GOTOPOOH
![]() |
Page 661 |
029401,000179: # VNPOOH
029402,000180: # GOFLASHR
029403,000181: # BLANKET
029404,000182: # ENDOFJOB
029405,000183: # SELECTMU
029406,000184: # ADVANCE
029407,000185: # INTINT
029408,000186: # PASSIVE
029409,000187: # CSI/A
029410,000188: # S32/33.1
029411,000189: # DISDVLVC
029412,000190: # VN1645
029413,000191:
029414,000192: 04,2000 SETLOC CSI/CDH1
029415,000193: 04,2000 BANK
029416,000194: 04,3403 E4,1760 EBANK= SUBEXIT
029417,000195: 04,3403 COUNT* $$/P3272
029418,000196: 04,3403 04553 P32 TC AVFLAGA
029419,000197: 04,3404 03424 TC P32/P72A
029420,000198:
029421,000199: 04,3405 04565 P72 TC AVFLAGP
029422,000200: 04,3406 03424 TC P32/P72A
029423,000201: 04,3407 77734 ALMXITA SXA,2
029424,000202: 04,3410 03664 CSIALRM
029425,000203: 04,3411 77740 ALMXIT LXC,1
029426,000204: 04,3412 03664 CSIALRM
029427,000205: 04,3413 77533 SLOAD* EXIT
029428,000206: 04,3414 13270 ALARM/TB -1,1
029429,000207: 04,3415 30154 CA MPAC
029430,000208: 04,3416 05770 TC VARALARM
029431,000209: 04,3417 35023 CAF V05N09
029432,000210: 04,3420 04636 TC BANKCALL
029433,000211: 04,3421 20743 CADR GOFLASH
029434,000212: 04,3422 04103 TC GOTOPOOH
029435,000213: 04,3423 03417 TC -4
029436,000214: 04,3424 04572 P32/P72A TC P20FLGON
029437,000215: 04,3425 06006 TC INTPRET
029438,000216: 04,3426 45014 BON CALL
029439,000217: 04,3427 05710 HAFLAG
029440,000218: 04,3430 11306 P31ALMRT
029441,000219: 04,3431 11546 INPUTDSP
029442,000220: 04,3432 71214 CLEAR DLOAD
029443,000221: 04,3433 05671 CSISFLAG
029444,000222: 04,3434 02463 TCSI
029445,000223: 04,3435 37413 STCALL TIG
029446,000224: 04,3436 11217 SELECTMU
029447,000225: 04,3437 77745 P32/P72B DLOAD
029448,000226: 04,3440 03413 TIG
029449,000227: 04,3441 77624 P31ENT CALL
029450,000228: 04,3442 76560 ADVANCE
![]() |
Page 662 |
029452,000230: 04,3443 77201 SETPD VLOAD
029453,000231: 04,3444 00001 0D
029454,000232: 04,3445 03512 VPASS1
029455,000233: 04,3446 65315 PDVL PDDL
029456,000234: 04,3447 03756 RPASS1
029457,000235: 04,3450 02463 TCSI
029458,000236: 04,3451 65325 PDDL PDDL
029459,000237: 04,3452 03663 TTPI
029460,000238: 04,3453 33430 2PISC
029461,000239: 04,3454 41512 SL2 PUSH
029462,000240: 04,3455 77624 CALL
029463,000241: 04,3456 72740 INTINT
029464,000242: 04,3457 77624 CALL
029465,000243: 04,3460 45314 PASSIVE
029466,000244: 04,3461 77624 CALL
029467,000245: 04,3462 15672 CSI/A
029468,000246: 04,3463 43214 P32/P72C BONCLR DAD
029469,000247: 04,3464 05610 HAFLAG
029470,000248: 04,3465 11357 P31RT
029471,000249: 04,3466 26731 600SECS
029472,000250: 04,3467 03656 STORE T2TOT3
029473,000251:
029474,000252: 04,3470 43014 BON SET
029475,000253: 04,3471 01311 FINALFLG
029476,000254: 04,3472 11474 P32/P72D
029477,000255: 04,3473 00470 UPDATFLG
029478,000256: 04,3474 77745 P32/P72D DLOAD
029479,000257: 04,3475 02547 T1TOT2
029480,000258: 04,3476 02547 P32/P72E STORE T1TOT2
029481,000259: 04,3477 51025 DSU BPL
029482,000260: 04,3500 13267 60MIN
029483,000261: 04,3501 11476 P32/P72E
029484,000262: 04,3502 77745 DLOAD
029485,000263: 04,3503 03656 T2TOT3
029486,000264: 04,3504 03656 P32/P72F STORE T2TOT3
029487,000265: 04,3505 51025 DSU BPL
029488,000266: 04,3506 13267 60MIN
029489,000267: 04,3507 11504 P32/P72F
029490,000268: 04,3510 77414 BON EXIT # BYPASS N75 IN MINKEY
029491,000269: 04,3511 05310 AUTOSEQ
029492,000270: 04,3512 11516 PASS75
029493,000271:
029494,000272: 04,3513 34605 CAF V06N75
029495,000273: 04,3514 05535 TC VNFLASH
029496,000274: 04,3515 06006 TC INTPRET
029497,000275: 04,3516 77624 PASS75 CALL
029498,000276: 04,3517 76537 DISDVLVC # ROTATE TO LV, DISP N90, ROTATE TO REF
029499,000277: 04,3520 77775 VLOAD
029500,000278: 04,3521 02453 RACT2
029501,000279: 04,3522 36541 STCALL RACT1
![]() |
Page 663 |
029503,000281: 04,3523 32050 S32/33.X # GET REF/LV MATRIX AT 0D
029504,000282: 04,3524 64375 VLOAD MXV
029505,000283: 04,3525 03667 DELVEET2
029506,000284: 04,3526 00001 0D
029507,000285: 04,3527 77772 VSL1
029508,000286: 04,3530 03540 STORE DELVOV # LV FOR N 82 DISPLAY
029509,000287: 04,3531 77414 BON EXIT
029510,000288: 04,3532 05310 AUTOSEQ
029511,000289: 04,3533 11537 PASS82
029512,000290: 04,3534 33545 CAF V06N82
029513,000291: 04,3535 05535 TC VNFLASH
029514,000292: 04,3536 06006 TC INTPRET
029515,000293: 04,3537 77745 PASS82 DLOAD
029516,000294: 04,3540 03663 TTPI
029517,000295: 04,3541 36465 STCALL TTPI0
029518,000296: 04,3542 73027 VN1645
029519,000297: 04,3543 77650 GOTO
029520,000298: 04,3544 11437 P32/P72B
029521,000299: 04,3545 01522 V06N82 VN 0682
029522,000300:
029523,000301: 04,3546 15,3432 HIGH1 EQUALS ONEBIT +1
029524,000302:
029525,000303: 04,3546 71220 INPUTDSP STQ DLOAD
029526,000304: 04,3547 02551 N90RET
029527,000305: 04,3550 11400 130DEGLO
029528,000306: 04,3551 17754 STODL CENTANG
029529,000307: 04,3552 11402 208DEGLO
029530,000308: 04,3553 03744 STORE ELEV
029531,000309: 04,3554 67214 BON SLOAD
029532,000310: 04,3555 05711 CSISFLAG
029533,000311: 04,3556 11561 PASSNN
029534,000312: 04,3557 33433 HIGH1
029535,000313: 04,3560 03766 STORE NN
029536,000314: 04,3561 77776 PASSNN EXIT
029537,000315: 04,3562 34603 CAF V06N11
029538,000316: 04,3563 05535 TC VNFLASH
029539,000317: 04,3564 34533 CAF V06N55
029540,000318: 04,3565 05535 TC VNFLASH
029541,000319: 04,3566 34532 CAF V06N37
029542,000320: 04,3567 05535 TC VNFLASH
029543,000321: 04,3570 06006 TC INTPRET
029544,000322: 04,3571 77650 GOTO
029545,000323: 04,3572 02551 N90RET
029546,000324:
![]() |
Page 664 |
029548,000326: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
029549,000327: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
029550,000328: # MOD BY WHITE.P DATE 1 JUNE 67
029551,000329:
029552,000330: # PURPOSE
029553,000331:
029554,000332: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
029555,000333: # ALTITUDE MANEUVER (CDH).
029556,000334:
029557,000335: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029558,000336: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029559,000337:
029560,000338: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029561,000339: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
029562,000340: # ASTRONAUT/GROUND.
029563,000341:
029564,000342: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
029565,000343: # THRUSTING PROGRAM.
029566,000344:
029567,000345: # ASSUMPTIONS
029568,000346:
029569,000347: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
029570,000348: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
029571,000349: # THERFORE -
029572,000350:
029573,000351: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029574,000352: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029575,000353: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029576,000354: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029577,000355:
029578,000356: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
029579,000357: # COMPUTED TO BE GREATER THAN 10 MINUTES.
029580,000358:
029581,000359: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029582,000360: # COMPUTED TO BE GREATER THAN 10 MINUTES.
029583,000361:
029584,000362: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029585,000363: # ORBITS WAS MINMIZED.
029586,000364:
029587,000365: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
029588,000366: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
029589,000367: # POSITION AT CSI IGNITION.
029590,000368:
029591,000369: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
029592,000370: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
029593,000371: # ORBIT OR 85 NM FOR EARTH ORBIT.
029594,000372:
029595,000373: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029596,000374: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
![]() |
Page 665 |
029598,000376: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029599,000377: # IN AN OUT-OF-PLANE MANEUVER.
029600,000378:
029601,000379: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029602,000380: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
029603,000381:
029604,000382: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029605,000383: # THE GROUND. THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
029606,000384: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029607,000385: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029608,000386:
029609,000387: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029610,000388: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
029611,000389: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029612,000390: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
029613,000391: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029614,000392: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
029615,000393: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029616,000394: # THRUSTING MANEUVER.
029617,000395:
029618,000396: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029619,000397:
029620,000398: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029621,000399:
029622,000400: # ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029623,000401: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029624,000402: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029625,000403: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029626,000404:
029627,000405: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029628,000406: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029629,000407: # CYCLE.
029630,000408:
029631,000409: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029632,000410: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029633,000411: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029634,000412: # PROGRAM.
029635,000413:
029636,000414: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029637,000415: # A THRUSTING MANEUVER.
029638,000416:
029639,000417: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029640,000418:
029641,000419: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
029642,000420:
029643,000421: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
029644,000422:
029645,000423: # INPUT
029646,000424:
029647,000425: # (1) TTPI0 TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
![]() |
Page 666 |
029649,000427: # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
029650,000428: # (3) TCDH TIME OF THE CDH MANEUVER
029651,000429:
029652,000430: # OUTPUT
029653,000431:
029654,000432: # (1) TRKMKCNT NUMBER OF MARKS
029655,000433: # (2) TTOGO TIME TO GO
029656,000434: # (3) +MGA MIDDLE GIMBAL ANGLE
029657,000435: # (4) DIFFALT DELTA ALTITUDE AT CDH
029658,000436: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
029659,000437: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
029660,000438: # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029661,000439:
029662,000440: # DOWNLINK
029663,000441:
029664,000442: # (1) TCDH TIME OF THE CDH MANEUVER
029665,000443: # (2) TTPI TIME OF THE TPI MANEUVER
029666,000444: # (3) TIG TIME OF THE CDH MANEUVER
029667,000445: # (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029668,000446: # (5) DIFFALT DELTA ALTITUDE AT CDH
029669,000447: # (6) ELEV DESIRED LOS ANGLE AT TPI
029670,000448:
029671,000449: # COMMUNICATION TO THRUSTING PROGRAMS
029672,000450:
029673,000451: # (1) TIG TIME OF THE CDH MANEUVER
029674,000452: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029675,000453: # INTO PLANE OF PASSIVE VEHICLE
029676,000454: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029677,000455: # INTO PLANE OF PASSIVE VEHICLE
029678,000456: # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029679,000457: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
029680,000458: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029681,000459:
029682,000460: # SUBROUTINES USED
029683,000461:
029684,000462: # AVFLAGA
029685,000463: # AVFLAGP
029686,000464: # P20FLGON
029687,000465: # VNPOOH
029688,000466: # SELECTMU
029689,000467: # ADVANCE
029690,000468: # CDHMVR
029691,000469: # INTINT3P
029692,000470: # ACTIVE
029693,000471: # PASSIVE
029694,000472: # S33/34.1
029695,000473: # ALARM
029696,000474: # BANKCALL
029697,000475: # GOFLASH
029698,000476: # GOTOPOOH
029699,000477: # S32/33.1
![]() |
Page 667 |
029701,000479: # VN1645
029702,000480:
029703,000481: 04,3573 COUNT* $$/P3373
029704,000482: 04,3573 04553 P33 TC AVFLAGA
029705,000483: 04,3574 03576 TC P33/P73A
029706,000484: 04,3575 04565 P73 TC AVFLAGP
029707,000485: 04,3576 04572 P33/P73A TC P20FLGON
029708,000486: 04,3577 34604 CAF V06N13 # TCDH
029709,000487: 04,3600 05535 TC VNFLASH
029710,000488: 04,3601 06006 TC INTPRET
029711,000489: 04,3602 77745 DLOAD
029712,000490: 04,3603 02465 TTPI0
029713,000491: 04,3604 17663 STODL TTPI
029714,000492: 04,3605 02461 TCDH
029715,000493: 04,3606 37413 STCALL TIG
029716,000494: 04,3607 11217 SELECTMU
029717,000495: 04,3610 45145 P33/P73B DLOAD CALL
029718,000496: 04,3611 03413 TIG
029719,000497: 04,3612 76560 ADVANCE
029720,000498: 04,3613 77624 CALL
029721,000499: 04,3614 56674 CDHMVR
029722,000500: 04,3615 02445 STORE DELVEET1 # CDH DV TO USE DISDVLVC SUB FOR N81 DISP
029723,000501: 04,3616 77201 SETPD VLOAD
029724,000502: 04,3617 00001 0D
029725,000503: 04,3620 03546 VACT3
029726,000504: 04,3621 45115 PDVL CALL
029727,000505: 04,3622 02453 RACT2
029728,000506: 04,3623 63615 INTINT3P
029729,000507: 04,3624 77624 CALL
029730,000508: 04,3625 45304 ACTIVE
029731,000509: 04,3626 77201 SETPD VLOAD
029732,000510: 04,3627 00001 0D
029733,000511: 04,3630 02617 VPASS2
029734,000512: 04,3631 45115 PDVL CALL
029735,000513: 04,3632 02625 RPASS2
029736,000514: 04,3633 63615 INTINT3P
029737,000515: 04,3634 77624 CALL
029738,000516: 04,3635 45314 PASSIVE
029739,000517: 04,3636 43145 DLOAD SET
029740,000518: 04,3637 11762 ZEROVEC
029741,000519: 04,3640 03461 ITSWICH
029742,000520: 04,3641 36355 STCALL NOMTPI
029743,000521: 04,3642 72251 S33/34.1
029744,000522: 04,3643 77454 BZE EXIT
029745,000523: 04,3644 24035 P33/P73C
029746,000524: 04,3645 05671 TC ALARM
029747,000525: 04,3646 00611 OCT 611
029748,000526: 04,3647 35023 CAF V05N09
029749,000527: 04,3650 04636 TC BANKCALL
029750,000528: 04,3651 20743 CADR GOFLASH
![]() |
Page 668 |
029752,000530: 04,3652 04103 TC GOTOPOOH
029753,000531: 04,3653 03655 TC +2
029754,000532: 04,3654 03576 TC P33/P73A
029755,000533: 04,3655 06006 TC INTPRET
029756,000534: 04,3656 77745 DLOAD
029757,000535: 04,3657 11762 ZEROVEC
029758,000536: 04,3660 36355 STCALL NOMTPI
029759,000537: 04,3661 24035 P33/P73C
029760,000538: 12,2000 SETLOC CSI/CDH2
029761,000539: 12,2000 BANK
029762,000540:
029763,000541: 12,2035 COUNT* $$/P3373
029764,000542: 12,2035 43014 P33/P73C BON SET
029765,000543: 12,2036 01311 FINALFLG
029766,000544: 12,2037 24041 P33/P73D
029767,000545: 12,2040 00470 UPDATFLG
029768,000546: 12,2041 43345 P33/P73D DLOAD DAD
029769,000547: 12,2042 02355 NOMTPI
029770,000548: 12,2043 03663 TTPI
029771,000549: 12,2044 03663 STORE TTPI
029772,000550: 12,2045 52025 DSU GOTO
029773,000551: 12,2046 02461 TCDH
029774,000552: 12,2047 11662 P33/P73E
029775,000553: 04,2000 SETLOC CSI/CDH1
029776,000554: 04,2000 BANK
029777,000555:
029778,000556: 04,3662 COUNT* $$/P3373
029779,000557: 04,3662 51025 P33/P73E DSU BPL
029780,000558: 04,3663 13267 60MIN
029781,000559: 04,3664 11662 P33/P73E
029782,000560: 04,3665 77615 DAD
029783,000561: 04,3666 13267 60MIN
029784,000562: 04,3667 16547 STODL T1TOT2
029785,000563: 04,3670 03663 TTPI
029786,000564: 04,3671 41425 DSU PUSH
029787,000565: 04,3672 02465 TTPI0
029788,000566: 04,3673 45246 P33/P73F ABS DSU
029789,000567: 04,3674 13267 60MIN
029790,000568: 04,3675 43244 BPL DAD
029791,000569: 04,3676 11673 P33/P73F
029792,000570: 04,3677 13267 60MIN
029793,000571: 04,3700 45565 SIGN STADR
029794,000572: 04,3701 74121 STORE T2TOT3
029795,000573: 04,3702 77414 BON EXIT
029796,000574: 04,3703 05310 AUTOSEQ
029797,000575: 04,3704 11710 SKIP75
029798,000576:
029799,000577: 04,3705 34605 CAF V06N75
029800,000578: 04,3706 05535 TC VNFLASH
029801,000579: 04,3707 06006 TC INTPRET
![]() |
Page 669 |
029803,000581: 04,3710 77624 SKIP75 CALL
029804,000582: 04,3711 76537 DISDVLVC # PUT UP N81, COMPUTE DELVSIN
029805,000583: 04,3712 77624 CALL
029806,000584: 04,3713 73027 VN1645
029807,000585: 04,3714 77650 GOTO
029808,000586: 04,3715 11610 P33/P73B
029809,000587: 4000 SETLOC FFTAG12
029810,000588: 4000 BANK
029811,000589:
029812,000590: 4603 COUNT* $$/P3272
029813,000591: 4603 01413 V06N11 VN 0611
029814,000592: 4604 01415 V06N13 VN 0613
029815,000593: 4605 01513 V06N75 VN 0675
029816,000594:
![]() |
Page 670 |
029818,000596:
029819,000597: # ..... DISDVLVC .....
029820,000598:
029821,000599: # SUBROUTINES USED
029822,000600:
029823,000601: # S32/33.X
029824,000602: # VNPOOH
029825,000603:
029826,000604: 37,2000 SETLOC CDHTAG3
029827,000605: 37,2000 BANK
029828,000606:
029829,000607: 37,2537 COUNT* $$/CSI
029830,000608: 37,2537 45020 DISDVLVC STQ CALL
029831,000609: 37,2540 01023 NORMEX
029832,000610: 37,2541 32050 S32/33.X
029833,000611: 37,2542 64375 VLOAD MXV
029834,000612: 37,2543 02445 DELVEET1
029835,000613: 37,2544 00001 0D
029836,000614: 37,2545 77772 VSL1
029837,000615: 37,2546 37405 STCALL DELVLVC # REF TO L V
029838,000616: 37,2547 15756 DISPN90
029839,000617: 37,2550 77624 CALL
029840,000618: 37,2551 32050 S32/33.X
029841,000619: 37,2552 61375 VLOAD VXM
029842,000620: 37,2553 03405 DELVLVC
029843,000621: 37,2554 00001 0D
029844,000622: 37,2555 77772 VSL1
029845,000623: 37,2556 37646 STCALL DELVSIN # L V TO REF
029846,000624: 37,2557 01023 NORMEX
029847,000625:
![]() |
Page 671 |
029849,000627:
029850,000628: # ..... CSI/A .....
029851,000629:
029852,000630: # SUBROUTINES USED
029853,000631:
029854,000632: # VECSHIFT
029855,000633: # TIMETHET
029856,000634: # PERIAPO
029857,000635: # SHIFTR1
029858,000636: # INTINT2C
029859,000637: # CDHMVR
029860,000638: # PERIAPO1
029861,000639: # INTINT
029862,000640: # ACTIVE
029863,000641:
029864,000642: 05,2000 SETLOC CSITAG1
029865,000643: 05,2000 BANK
029866,000644: 05,3266 E4,1760 EBANK= SUBEXIT
029867,000645: 05,3266 COUNT* $$/CSI
029868,000646: 05,3266 00025 37100 60MIN 2DEC 360000 B-28
029869,000647:
029870,000648: 05,3270 00600 ALARM/TB OCT 00600 # NO 1
029871,000649: 05,3271 00601 OCT 00601 # 2
029872,000650: 05,3272 00602 OCT 00602 # 3
029873,000651: 05,3273 00603 OCT 00603 # 4
029874,000652: 05,3274 00604 OCT 00604 # 5
029875,000653: 05,3275 00605 OCT 00605 # 6
029876,000654: 05,3276 00606 OCT 00606 # 7
029877,000655: 05,3277 15,3416 LOOPMX = D1/1024 -1 # 16 B-28
029878,000656: 05,3277 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
029879,000657:
029880,000658: 05,3301 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS
029881,000659:
029882,000660: 05,3303 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS
029883,000661:
029884,000662: 05,3305 15,3411 1DPB2 = D1/4 # 1 B-2
029885,000663: 05,3305 15,3431 1DPB28 = ONEBIT # 1 B-28
029886,000664: 05,3305 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS
029887,000665:
029888,000666: 05,3307 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 50 FPS
029889,000667:
029890,000668: 05,3311 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS
029891,000669:
029892,000670: 35,2000 SETLOC CSI/CDH
029893,000671: 35,2000 BANK
029894,000672: 35,3554 COUNT* $$/CSI
029895,000673: 35,3554 00004 31566 PMINE 2DEC 157420 B-29 # 84 NM. - MUST BE 8 WORDS BEFORE PMINM
029896,000674:
029897,000675: 35,3556 00002 27311 NICKELDP 2DEC .021336 B-7 # 7 FPS
029898,000676:
029899,000677: 35,3560 00003 34661 INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
029900,000678:
![]() |
Page 672 |
029902,000680: 35,3562 00000 06433 ONETHTH 2DEC .0001 B-3
029903,000681:
029904,000682: 35,3564 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT - MUST BE 8 WORDS AFTER PMINE.
029905,000683:
029906,000684: 06,2000 SETLOC CSIPROG
029907,000685: 06,2000 BANK
029908,000686:
029909,000687: 06,3672 COUNT* $$/CSI
029910,000688: 06,3672 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS
029911,000689: 06,3673 05660 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR
029912,000690: 06,3674 05461 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATR
029913,000691: 06,3675 43014 CLEAR SET
029914,000692: 06,3676 05662 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
029915,000693: 06,3677 05463 S32.1F3B # 10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
029916,000694: 06,3700 77745 DLOAD
029917,000695: 06,3701 11762 ZEROVEC
029918,000696: 06,3702 03764 STORE LOOPCT
029919,000697: 06,3703 03665 STORE CSIALRM
029920,000698: 06,3704 77201 CSI/B SETPD VLOAD
029921,000699: 06,3705 00001 0D
029922,000700: 06,3706 02541 RACT1
029923,000701: 06,3707 41446 ABVAL PUSH # RA1 B29 PL02D
029924,000702: 06,3710 70501 NORM SR1
029925,000703: 06,3711 00050 X2 # B29-N2+ B1 PL04D
029926,000704: 06,3712 51515 PDVL ABVAL
029927,000705: 06,3713 03554 RPASS3
029928,000706: 06,3714 55301 NORM BDDV # RA1/RP3 B1 PL02D
029929,000707: 06,3715 00047 X1
029930,000708: 06,3716 53664 XSU,2 SR* # B2
029931,000709: 06,3717 00046 X1
029932,000710: 06,3720 57175 1,2
029933,000711: 06,3721 41215 DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D
029934,000712: 06,3722 33412 1DPB2
029935,000713: 06,3723 65301 NORM PDDL # PL02D
029936,000714: 06,3724 00047 X1
029937,000715: 06,3725 03750 RTMU
029938,000716: 06,3726 56342 SR1 DDV # B38-B31 = B7 PL00D
029939,000717: 06,3727 75457 SL* SQRT # B7
029940,000718: 06,3730 20172 0 -7,1
029941,000719: 06,3731 53515 PDVL UNIT # PL02D
029942,000720: 06,3732 02541 RACT1
029943,000721: 06,3733 47315 PDVL VXV
029944,000722: 06,3734 02611 UP1
029945,000723: 06,3735 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
029946,000724: 06,3736 72441 DOT SL1 # VA1 . UH1 B7
029947,000725: 06,3737 03504 VACT1
029948,000726: 06,3740 45421 BDSU STADR # PL00D
029949,000727: 06,3741 60315 STODL DELVCSI
029950,000728: 06,3742 13300 INITST # 10 FPS
029951,000729: 06,3743 03464 STORE DELDV
![]() |
Page 673 |
029953,000731: 06,3744 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16
029954,000732: 06,3745 03764 LOOPCT
029955,000733: 06,3746 33432 1DPB28
029956,000734: 06,3747 03764 STORE LOOPCT
029957,000735: 06,3750 77025 DSU AXT,2
029958,000736: 06,3751 33417 LOOPMX
029959,000737: 06,3752 00006 6
029960,000738: 06,3753 52044 BPL GOTO
029961,000739: 06,3754 63566 SCNDSOL
029962,000740: 06,3755 24050 CSI/B2
029963,000741:
029964,000742: 12,2000 SETLOC CSIPROG2
029965,000743: 12,2000 BANK
029966,000744:
029967,000745: 12,2050 COUNT* $$/CSI
029968,000746: 12,2050 77601 CSI/B2 SETPD
029969,000747: 12,2051 00001 0D
029970,000748: 12,2052 51545 DLOAD ABS
029971,000749: 12,2053 03462 DELVCSI
029972,000750: 12,2054 50025 DSU BMN
029973,000751: 12,2055 13302 DVMAX1
029974,000752: 12,2056 45406 CSI/B23
029975,000753: 12,2057 43174 AXT,2 BON
029976,000754: 12,2060 00007 7
029977,000755: 12,2061 05700 S32.1F1
029978,000756: 12,2062 63566 SCNDSOL
029979,000757: 12,2063 43014 BOFF BON
029980,000758: 12,2064 05742 S32.1F3A
029981,000759: 12,2065 24070 CSI/B22 # FLAG 3 NEQ 3
029982,000760: 12,2066 05703 S32.1F3B
029983,000761: 12,2067 63566 SCNDSOL
029984,000762: 12,2070 71214 CSI/B22 SET DLOAD
029985,000763: 12,2071 05460 S32.1F1
029986,000764: 12,2072 13304 DVMAX2
029987,000765: 12,2073 77765 SIGN
029988,000766: 12,2074 03462 DELVCSI
029989,000767: 12,2075 37462 STCALL DELVCSI
029990,000768: 12,2076 45406 CSI/B23
029991,000769:
029992,000770: 22,2000 SETLOC CSIPROG3
029993,000771: 22,2000 BANK
029994,000772:
029995,000773: 22,3406 COUNT* $$/CSI
029996,000774: 22,3406 41575 CSI/B23 VLOAD PUSH
029997,000775: 22,3407 02541 RACT1
029998,000776: 22,3410 63256 UNIT PDVL
029999,000777: 22,3411 02611 UP1
030000,000778: 22,3412 53435 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
030001,000779: 22,3413 76561 VXSC VSL1
030002,000780: 22,3414 03462 DELVCSI
![]() |
Page 674 |
030004,000782: 22,3415 02445 STORE DELVEET1
030005,000783: 22,3416 40055 VAD BOV
030006,000784: 22,3417 03504 VACT1
030007,000785: 22,3420 45421 CSI/B23D
030008,000786: 22,3421 37474 CSI/B23D STCALL VACT4
030009,000787: 22,3422 45320 VECSHIFT
030010,000788: 22,3423 26746 STOVL VVEC
030011,000789: 22,3424 77614 SET
030012,000790: 22,3425 03466 RVSW
030013,000791: 22,3426 26657 STOVL RVEC
030014,000792: 22,3427 05545 SN359+
030015,000793: 22,3430 36732 STCALL SNTH # ALSO CSTH
030016,000794: 22,3431 25002 TIMETHET
030017,000795: 22,3432 72142 SR1 LXA,1
030018,000796: 22,3433 03745 RTX1
030019,000797: 22,3434 37472 STCALL HAFPA1
030020,000798: 22,3435 45204 PERIAPO
030021,000799: 22,3436 77624 CALL
030022,000800: 22,3437 45330 SHIFTR1
030023,000801: 22,3440 17460 STODL POSTCSI
030024,000802: 22,3441 03754 CENTANG
030025,000803: 22,3442 52054 BZE GOTO
030026,000804: 22,3443 45445 +2
030027,000805: 22,3444 47161 CIRCL
030028,000806: 22,3445 77745 DLOAD
030029,000807: 22,3446 02754 ECC
030030,000808: 22,3447 50025 DSU BMN
030031,000809: 22,3450 33563 ONETHTH
030032,000810: 22,3451 47161 CIRCL
030033,000811: 22,3452 45145 DLOAD CALL
030034,000812: 22,3453 00041 R1
030035,000813: 22,3454 45330 SHIFTR1
030036,000814: 22,3455 60201 SETPD NORM
030037,000815: 22,3456 00003 2D
030038,000816: 22,3457 00047 X1
030039,000817: 22,3460 50315 PDVL DOT # PL04D
030040,000818: 22,3461 02541 RACT1
030041,000819: 22,3462 03474 VACT4
030042,000820: 22,3463 56246 ABS DDV
030043,000821: 22,3464 00003 02D # (/RDOTV/)/R1 B36-B29= B7
030044,000822: 22,3465 45257 SL* DSU
030045,000823: 22,3466 20201 0,1
030046,000824: 22,3467 33557 NICKELDP
030047,000825: 22,3470 71240 BMN DLOAD
030048,000826: 22,3471 47161 CIRCL
030049,000827: 22,3472 02742 P
030050,000828: 22,3473 45312 SL2 DSU
030051,000829: 22,3474 15326 1RTEB2 # 1.B.2
030052,000830: 22,3475 14017 STODL 14D
030053,000831: 22,3476 03752 RTSR1/MU
![]() |
Page 675 |
030055,000833: 22,3477 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
030056,000834: 22,3500 41325 PDDL DMP
030057,000835: 22,3501 02742 P
030058,000836: 22,3502 00041 R1
030059,000837: 22,3503 77624 CALL
030060,000838: 22,3504 45330 SHIFTR1
030061,000839: 22,3505 72412 SL4 SL1
030062,000840: 22,3506 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-45 = B-31 PL02D
030063,000841: 22,3507 52414 BOFF SL3
030064,000842: 22,3510 04343 CMOONFLG
030065,000843: 22,3511 45512 CSI/B3
030066,000844: 22,3512 50315 CSI/B3 PDVL DOT
030067,000845: 22,3513 02541 RACT1
030068,000846: 22,3514 03474 VACT4
030069,000847: 22,3515 03502 STORE RDOTV
030070,000848: 22,3516 77646 ABS
030071,000849: 22,3517 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D
030072,000850: 22,3520 00050 X2
030073,000851: 22,3521 53660 XSU,1 SL* # B-31+B36-B3 = B2
030074,000852: 22,3522 00047 X2
030075,000853: 22,3523 20204 3,1
030076,000854: 22,3524 14015 STODL 12D
030077,000855: 22,3525 15336 ZEROVECS
030078,000856: 22,3526 00021 STORE 16D
030079,000857: 22,3527 53575 VLOAD UNIT
030080,000858: 22,3530 00015 12D
030081,000859: 22,3531 26732 STOVL SNTH # ALSO STORES CSTH AND 0
030082,000860: 22,3532 02541 RACT1
030083,000861: 22,3533 75315 PDVL SIGN
030084,000862: 22,3534 03474 VACT4
030085,000863: 22,3535 03502 RDOTV
030086,000864: 22,3536 45076 VCOMP CALL
030087,000865: 22,3537 45320 VECSHIFT
030088,000866: 22,3540 26746 STOVL VVEC
030089,000867: 22,3541 77614 SETGO
030090,000868: 22,3542 03426 RVSW
030091,000869: 22,3543 47145 CSINEXT
030092,000870:
030093,000871: 22,3544 77776 62460 SN359+ 2DEC -.000086601
030094,000872:
030095,000873: 22,3546 17777 37776 CS359+ 2DEC +.499999992
030096,000874:
030097,000875: 23,2000 SETLOC CSIPROG4
030098,000876: 23,2000 BANK
030099,000877:
030100,000878: 23,3145 COUNT* $$/CSI
030101,000879: 23,3145 36657 CSINEXT STCALL RVEC
030102,000880: 23,3146 25002 TIMETHET
030103,000881: 23,3147 43206 PUSH DAD
030104,000882: 23,3150 02463 TCSI
![]() |
Page 676 |
030106,000884:
030107,000885: 23,3151 16351 STODL TCSI2 # TIME OF NEXT CSI
030108,000886: 23,3152 03502 RDOTV
030109,000887: 23,3153 77644 BPL
030110,000888: 23,3154 47165 NTP/2
030111,000889: 23,3155 45345 DLOAD DSU
030112,000890: 23,3156 03472 HAFPA1
030113,000891: 23,3157 52006 PUSH GOTO
030114,000892: 23,3160 47165 NTP/2
030115,000893: 23,3161 71201 CIRCL SETPD DLOAD
030116,000894: 23,3162 00001 00D
030117,000895: 23,3163 15336 ZEROVECS
030118,000896: 23,3164 77606 PUSH
030119,000897: 23,3165 72545 NTP/2 DLOAD SL1
030120,000898: 23,3166 03472 HAFPA1
030121,000899: 23,3167 77615 DAD
030122,000900: 23,3170 02463 TCSI
030123,000901: 23,3171 16351 STODL TCSI2
030124,000902: 23,3172 03766 NN # COMPUTE NEXT CSI 1 REV AWAY
030125,000903: 23,3173 45342 SR1 DSU
030126,000904: 23,3174 07140 HIGH2
030127,000905: 23,3175 77654 BZE ## NN = 4
030128,000906: 23,3176 47233 HMCSI
030129,000907: 23,3177 41345 NTP/2A DLOAD DMP
030130,000908: 23,3200 03766 NN
030131,000909: 23,3201 03472 HAFPA1
030132,000910: 23,3202 45261 SL DSU
030133,000911: 23,3203 20217 14D
030134,000912: 23,3204 77615 DAD
030135,000913: 23,3205 02463 TCSI
030136,000914: 23,3206 02461 STORE TCDH
030137,000915: 23,3207 77021 BDSU AXT,2
030138,000916: 23,3210 03663 TTPI
030139,000917: 23,3211 00005 5D
030140,000918: 23,3212 40240 BMN SETPD
030141,000919: 23,3213 63566 SCNDSOL
030142,000920: 23,3214 00001 0D
030143,000921: 23,3215 63375 VLOAD PDVL
030144,000922: 23,3216 03474 VACT4
030145,000923: 23,3217 02541 RACT1
030146,000924: 23,3220 77624 CALL
030147,000925: 23,3221 63606 INTINT2C
030148,000926: 23,3222 26453 STOVL RACT2
030149,000927: 23,3223 00007 VATT
030150,000928: 23,3224 26533 STOVL VACT2
030151,000929: 23,3225 03512 VPASS1
030152,000930: 23,3226 63201 SETPD PDVL
030153,000931: 23,3227 00001 0D
030154,000932: 23,3230 03756 RPASS1
030155,000933: 23,3231 77650 GOTO
030156,000934: 23,3232 34012 CSINEXT1
![]() |
Page 677 |
030158,000936: 23,3233 43345 HMCSI DLOAD DAD # COMPUTE NEXT CSI 1 + 1/2 REVS AWAY
030159,000937: 23,3234 03472 HAFPA1
030160,000938: 23,3235 02351 TCSI2
030161,000939: 23,3236 36351 STCALL TCSI2
030162,000940: 23,3237 47177 NTP/2A
030163,000941: 16,2000 SETLOC CSIPROG5
030164,000942: 16,2000 BANK
030165,000943:
030166,000944: 16,2012 COUNT* $$/CSI
030167,000945: 16,2012 77624 CSINEXT1 CALL
030168,000946: 16,2013 63606 INTINT2C
030169,000947: 16,2014 26625 STOVL RPASS2
030170,000948: 16,2015 00007 VATT
030171,000949: 16,2016 36617 STCALL VPASS2
030172,000950: 16,2017 56674 CDHMVR
030173,000951: 16,2020 40375 VLOAD SETPD
030174,000952: 16,2021 02453 RACT2
030175,000953: 16,2022 00001 0D
030176,000954: 16,2023 45115 PDVL CALL
030177,000955: 16,2024 03546 VACT3
030178,000956: 16,2025 45174 PERIAPO1
030179,000957: 16,2026 77624 CALL
030180,000958: 16,2027 45330 SHIFTR1
030181,000959: 16,2030 27472 STOVL POSTCDH
030182,000960: 16,2031 03546 VACT3
030183,000961: 16,2032 63201 SETPD PDVL
030184,000962: 16,2033 00001 0D
030185,000963: 16,2034 02453 RACT2
030186,000964: 16,2035 65325 PDDL PDDL
030187,000965: 16,2036 02461 TCDH
030188,000966: 16,2037 03663 TTPI
030189,000967: 16,2040 62525 PDDL SL2
030190,000968: 16,2041 33430 2PISC
030191,000969: 16,2042 45006 PUSH CALL
030192,000970: 16,2043 72740 INTINT
030193,000971: 16,2044 77624 CALL
030194,000972: 16,2045 45304 ACTIVE
030195,000973: 16,2046 77745 DLOAD
030196,000974: 16,2047 03744 ELEV
030197,000975: 16,2050 73401 SETPD SINE
030198,000976: 16,2051 00007 6D
030199,000977: 16,2052 53515 PDVL UNIT
030200,000978: 16,2053 03540 RACT3
030201,000979: 16,2054 00001 STORE 00D # URA3 AT 00D
030202,000980: 16,2055 47315 PDVL VXV # PL14D,PL08D
030203,000981: 16,2056 02611 UP1
030204,000982: 16,2057 77656 UNIT
030205,000983: 16,2060 71525 PDDL COSINE # UNIT(URA3XUVA3XURA3) = UH3 B1 PL14D
030206,000984: 16,2061 03744 ELEV
030207,000985: 16,2062 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D
![]() |
Page 678 |
030209,000987: 16,2063 43754 STCALL 18D # PLUS
030210,000988: 16,2064 16440 CSINEXT2
030211,000989:
030212,000990: 07,2000 SETLOC CSIPROG6
030213,000991: 07,2000 BANK
030214,000992:
030215,000993: 07,2440 COUNT* $$/CSI
030216,000994: 07,2440 74345 CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
030217,000995: 07,2441 76455 VAD VSL1
030218,000996: 07,2442 00023 18D # B1
030219,000997: 07,2443 50206 PUSH DOT # PL06D
030220,000998: 07,2444 03540 RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30
030221,000999: 07,2445 41552 SL1 PUSH # B29 PL08D
030222,001000: 07,2446 72316 DSQ TLOAD # TEMP1**2 B58
030223,001001: 07,2447 00155 MPAC
030224,001002: 07,2450 50315 PDVL DOT # PL11D
030225,001003: 07,2451 03540 RACT3
030226,001004: 07,2452 03540 RACT3
030227,001005: 07,2453 57551 TLOAD DCOMP # RA3 . RA3
030228,001006: 07,2454 00155 MPAC
030229,001007: 07,2455 50315 PDVL DOT # RP3 . RP3 B58 PL14D
030230,001008: 07,2456 03554 RPASS3
030231,001009: 07,2457 03554 RPASS3 # PL11D
030232,001010: 07,2460 76371 TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D
030233,001011: 07,2461 71244 BPL DLOAD
030234,001012: 07,2462 16500 K1ORK2
030235,001013: 07,2463 03764 LOOPCT
030236,001014: 07,2464 77025 DSU AXT,2
030237,001015: 07,2465 33432 1DPB28
030238,001016: 07,2466 00001 1D
030239,001017: 07,2467 77654 BZE
030240,001018: 07,2470 11407 ALMXITA
030241,001019: 07,2471 70545 DLOAD SR1
030242,001020: 07,2472 03464 DELDV
030243,001021: 07,2473 03464 STORE DELDV
030244,001022: 07,2474 77621 BDSU
030245,001023: 07,2475 03470 DVPREV
030246,001024: 07,2476 37462 STCALL DELVCSI
030247,001025: 07,2477 15744 CSI/B1
030248,001026: 07,2500 41566 K1ORK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
030249,001027: 07,2501 45276 DCOMP DSU
030250,001028: 07,2502 00007 06D # -TEMP1-TEMP3 = K2 AT 10D
030251,001029: 07,2503 14013 STODL 10D # PL08D
030252,001030: 07,2504 45425 DSU STADR # PL06D
030253,001031: 07,2505 77762 STORE 12D # -TEMP1+TEMP3 = K1 AT 12D
030254,001032: 07,2506 77646 ABS
030255,001033: 07,2507 14017 STODL 14D
030256,001034: 07,2510 00013 10D
030257,001035: 07,2511 45246 ABS DSU
030258,001036: 07,2512 00017 14D
![]() |
Page 679 |
030260,001038: 07,2513 71240 BMN DLOAD
030261,001039: 07,2514 50123 K2.
030262,001040: 07,2515 00015 12D
030263,001041: 07,2516 34013 STCALL 10D # K EQUALS K1
030264,001042: 07,2517 50123 K2.
030265,001043:
030266,001044: 24,2000 SETLOC CSIPROG7
030267,001045: 24,2000 BANK
030268,001046:
030269,001047: 24,2123 COUNT* $$/CSI
030270,001048: 24,2123 77745 K2. DLOAD
030271,001049: 24,2124 00013 10D
030272,001050: 24,2125 76561 VXSC VSL1
030273,001051: 24,2126 53455 VAD UNIT # V = RA3 + KU UNIT B1
030274,001052: 24,2127 03540 RACT3
030275,001053: 24,2130 53515 PDVL UNIT # PL06D
030276,001054: 24,2131 03554 RPASS3
030277,001055: 24,2132 53515 PDVL UNIT # PL12D
030278,001056: 24,2133 03562 VPASS3
030279,001057: 24,2134 63235 VXV PDVL # UVP3 X URP3 PL18D
030280,001058: 24,2135 00007 06D
030281,001059: 24,2136 00007 06D
030282,001060: 24,2137 50235 VXV DOT
030283,001061: 24,2140 00001 00D
030284,001062: 24,2141 77626 STADR # PL12D
030285,001063: 24,2142 53762 STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D
030286,001064: 24,2143 72441 DOT SL1 # PL00D
030287,001065: 24,2144 75326 ARCCOS SIGN
030288,001066: 24,2145 00015 12D # B0
030289,001067: 24,2146 41542 SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
030290,001068: 24,2147 71214 BON DLOAD
030291,001069: 24,2150 05701 S32.1F2
030292,001070: 24,2151 50206 FRSTPAS
030293,001071: 24,2152 00001 00D # NOT THE FIRST PASS OF A CYCLE
030294,001072: 24,2153 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D
030295,001073: 24,2154 03466 GAMPREV
030296,001074: 24,2155 03462 DELVCSI
030297,001075: 24,2156 60225 DSU NORM # B7
030298,001076: 24,2157 03470 DVPREV
030299,001077: 24,2160 00047 X1
030300,001078: 24,2161 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D
030301,001079: 24,2162 00003 02D # = SLOPE
030302,001080: 24,2163 03462 DELVCSI
030303,001081: 24,2164 03470 STORE DVPREV
030304,001082: 24,2165 43014 BOFF BOFF
030305,001083: 24,2166 05742 S32.1F3A
030306,001084: 24,2167 20323 THRDCHK
030307,001085: 24,2170 05743 S32.1F3B
030308,001086: 24,2171 20323 THRDCHK
030309,001087: 24,2172 41345 DLOAD DMP
![]() |
Page 680 |
030311,001089: 24,2173 00003 02D
030312,001090: 24,2174 03466 GAMPREV
030313,001091: 24,2175 71244 BPL DLOAD
030314,001092: 24,2176 20330 FIFTYFPS
030315,001093: 24,2177 33561 INITST1
030316,001094: 24,2200 77765 SIGN
030317,001095: 24,2201 03464 DELDV
030318,001096: 24,2202 03464 STORE DELDV
030319,001097: 24,2203 43014 SET CLEAR
030320,001098: 24,2204 05462 S32.1F3A
030321,001099: 24,2205 05663 S32.1F3B
030322,001100: 24,2206 77745 FRSTPAS DLOAD
030323,001101: 24,2207 00001 00D
030324,001102: 24,2210 17466 STODL GAMPREV
030325,001103: 24,2211 03462 DELVCSI
030326,001104: 24,2212 37470 STCALL DVPREV
030327,001105: 24,2213 20316 CSINEXT3
030328,001106:
030329,001107: 10,2000 SETLOC CSIPROG8
030330,001108: 10,2000 BANK
030331,001109:
030332,001110: 10,2316 COUNT* $$/CSI
030333,001111: 10,2316 43025 CSINEXT3 DSU CLEAR
030334,001112: 10,2317 03464 DELDV
030335,001113: 10,2320 05661 S32.1F2
030336,001114: 10,2321 37462 STCALL DELVCSI
030337,001115: 10,2322 15744 CSI/B1
030338,001116: 10,2323 43014 THRDCHK BON BON
030339,001117: 10,2324 05702 S32.1F3A
030340,001118: 10,2325 20347 NEWTN
030341,001119: 10,2326 05703 S32.1F3B
030342,001120: 10,2327 20347 NEWTN
030343,001121: 10,2330 75345 FIFTYFPS DLOAD SIGN
030344,001122: 10,2331 13310 FIFPSDP
030345,001123: 10,2332 00005 04D
030346,001124: 10,2333 77765 SIGN
030347,001125: 10,2334 03466 GAMPREV
030348,001126: 10,2335 03464 STORE DELDV
030349,001127: 10,2336 43276 DCOMP DAD
030350,001128: 10,2337 03462 DELVCSI
030351,001129: 10,2340 17462 STODL DELVCSI
030352,001130: 10,2341 00001 00D
030353,001131: 10,2342 43014 SET SET
030354,001132: 10,2343 05463 S32.1F3B
030355,001133: 10,2344 05462 S32.1F3A
030356,001134: 10,2345 37466 STCALL GAMPREV
030357,001135: 10,2346 24050 CSI/B2
030358,001136: 10,2347 60345 NEWTN DLOAD NORM
030359,001137: 10,2350 00005 04D
030360,001138: 10,2351 00050 X2
![]() |
Page 681 |
030362,001140: 10,2352 54065 BDDV XSU,1
030363,001141: 10,2353 00001 00D
030364,001142: 10,2354 00047 X2
030365,001143: 10,2355 77657 SR*
030366,001144: 10,2356 20601 0,1
030367,001145: 10,2357 17464 STODL DELDV
030368,001146: 10,2360 00001 00D
030369,001147: 10,2361 03466 STORE GAMPREV
030370,001148: 10,2362 51545 DLOAD ABS
030371,001149: 10,2363 03464 DELDV
030372,001150: 10,2364 45206 PUSH DSU # PL08D
030373,001151: 10,2365 13306 EPSILN1
030374,001152: 10,2366 71240 BMN DLOAD
030375,001153: 10,2367 20404 CSI/SOL
030376,001154: 10,2370 50025 DSU BMN
030377,001155: 10,2371 13312 DELMAX1
030378,001156: 10,2372 20377 CSISTEP
030379,001157: 10,2373 75345 DLOAD SIGN
030380,001158: 10,2374 13312 DELMAX1
030381,001159: 10,2375 03464 DELDV
030382,001160: 10,2376 03464 STORE DELDV
030383,001161: 10,2377 45345 CSISTEP DLOAD DSU
030384,001162: 10,2400 03462 DELVCSI
030385,001163: 10,2401 03464 DELDV
030386,001164: 10,2402 37462 STCALL DELVCSI
030387,001165: 10,2403 15744 CSI/B1
030388,001166: 10,2404 77145 CSI/SOL DLOAD AXT,2
030389,001167: 10,2405 03460 POSTCSI
030390,001168: 10,2406 00002 2
030391,001169: 10,2407 52150 LXA,1 GOTO
030392,001170: 10,2410 03745 RTX1
030393,001171: 10,2411 63535 CSINEXT4
030394,001172:
030395,001173: 31,2000 SETLOC CSIPROG9
030396,001174: 31,2000 BANK
030397,001175:
030398,001176: 31,3535 COUNT* $$/CSI
030399,001177: 31,3535 50023 CSINEXT4 DSU* BMN
030400,001178: 31,3536 33553 PMINE -2,1
030401,001179: 31,3537 63566 SCNDSOL
030402,001180: 31,3540 71374 AXT,2 DLOAD
030403,001181: 31,3541 00003 3
030404,001182: 31,3542 03472 POSTCDH
030405,001183: 31,3543 50023 DSU* BMN
030406,001184: 31,3544 33553 PMINE -2,1
030407,001185: 31,3545 63566 SCNDSOL
030408,001186: 31,3546 45345 DLOAD DSU
030409,001187: 31,3547 02461 TCDH
030410,001188: 31,3550 02463 TCSI
030411,001189: 31,3551 02547 STORE T1TOT2
![]() |
Page 682 |
030413,001191: 31,3552 45374 AXT,2 DSU
030414,001192: 31,3553 00004 4
030415,001193: 31,3554 36161 600SEC
030416,001194: 31,3555 77040 BMN AXT,2
030417,001195: 31,3556 63566 SCNDSOL
030418,001196: 31,3557 00005 5
030419,001197: 31,3560 45345 DLOAD DSU
030420,001198: 31,3561 03663 TTPI
030421,001199: 31,3562 02461 TCDH
030422,001200: 31,3563 51025 DSU BPL
030423,001201: 31,3564 36161 600SEC
030424,001202: 31,3565 11463 P32/P72C
030425,001203: 31,3566 43014 SCNDSOL BON BOFF
030426,001204: 31,3567 05702 S32.1F3A
030427,001205: 31,3570 11411 ALMXIT
030428,001206: 31,3571 05743 S32.1F3B
030429,001207: 31,3572 11411 ALMXIT
030430,001208: 31,3573 71334 SXA,2 DLOAD
030431,001209: 31,3574 03664 CSIALRM
030432,001210: 31,3575 15336 ZEROVECS
030433,001211: 31,3576 43014 CLEAR SET
030434,001212: 31,3577 05660 S32.1F1
030435,001213: 31,3600 05461 S32.1F2
030436,001214: 31,3601 43014 CLEAR CLEAR
030437,001215: 31,3602 05662 S32.1F3A
030438,001216: 31,3603 05663 S32.1F3B
030439,001217: 31,3604 37764 STCALL LOOPCT
030440,001218: 31,3605 15704 CSI/B
030441,001219:
![]() |
Page 683 |
030443,001221: # ..... ADVANCE .....
030444,001222:
030445,001223: # SUBROUTINES USED
030446,001224: # PRECSET
030447,001225: # ROTATE
030448,001226:
030449,001227: 37,2000 SETLOC CDHTAG3
030450,001228: 37,2000 BANK
030451,001229:
030452,001230: 37,2560 COUNT* $$/CDH
030453,001231: 37,2560 77620 ADVANCE STQ
030454,001232: 37,2561 02360 SUBEXIT
030455,001233: 37,2562 34041 STCALL TDEC1
030456,001234: 37,2563 45236 PRECSET
030457,001235: 37,2564 77214 SET VLOAD
030458,001236: 37,2565 01067 XDELVFLG
030459,001237: 37,2566 03562 VPASS3
030460,001238: 37,2567 02617 STORE VPASS2
030461,001239: 37,2570 27512 STOVL VPASS1
030462,001240: 37,2571 03554 RPASS3
030463,001241: 37,2572 02625 STORE RPASS2
030464,001242: 37,2573 27756 STOVL RPASS1
030465,001243: 37,2574 03540 RACT3
030466,001244: 37,2575 37632 STCALL RTIG
030467,001245: 37,2576 16520 ROTATE
030468,001246: 37,2577 02453 STORE RACT2
030469,001247: 37,2600 26541 STOVL RACT1
030470,001248: 37,2601 03546 VACT3
030471,001249: 37,2602 37640 STCALL VTIG
030472,001250: 37,2603 16520 ROTATE
030473,001251: 37,2604 02533 STORE VACT2
030474,001252: 37,2605 37504 STCALL VACT1
030475,001253: 37,2606 02360 SUBEXIT
030476,001254:
![]() |
Page 684 |
030478,001256: # ..... ROTATE .....
030479,001257:
030480,001258: 07,2000 SETLOC CSIPROG6
030481,001259: 07,2000 BANK
030482,001260:
030483,001261: 07,2520 COUNT* $$/CSI
030484,001262: 07,2520 41406 ROTATE PUSH PUSH
030485,001263: 07,2521 74241 DOT VXSC
030486,001264: 07,2522 02611 UP1
030487,001265: 07,2523 02611 UP1
030488,001266: 07,2524 51352 VSL2 BVSU
030489,001267: 07,2525 63256 UNIT PDVL
030490,001268: 07,2526 74246 ABVAL VXSC
030491,001269: 07,2527 43572 VSL1 RVQ
030492,001270:
![]() |
Page 685 |
030494,001272: # .... DISPN90 .....
030495,001273:
030496,001274: 06,2000 SETLOC CSIPROG
030497,001275: 06,2000 BANK
030498,001276: 06,3756 COUNT* $$/CSI
030499,001277: 06,3756 77620 DISPN90 STQ
030500,001278: 06,3757 02356 ANEXIT
030501,001279: 06,3760 57575 VLOAD VCOMP
030502,001280: 06,3761 02601 AUTOY
030503,001281: 06,3762 15756 STODL YCSM # COMPLEMENT VALUES FOR N90 DISPLAYS.
030504,001282: 06,3763 02603 CMYDOT
030505,001283: 06,3764 03407 STORE DELVLVC +2
030506,001284: 06,3765 51414 BOFF ABS
030507,001285: 06,3766 05356 PCFLAG
030508,001286: 06,3767 45550 OKN81 # NOT IN P36
030509,001287: 06,3770 51025 DSU BPL # IS YDOT LESS THAN .1 FPS
030510,001288: 06,3771 13306 1/10FPS
030511,001289: 06,3772 45550 OKN81 # NO
030512,001290: 06,3773 77775 VLOAD # YES - FORCE DSKY DISPLAY TO BE 0
030513,001291: 06,3774 11762 ZEROVEC
030514,001292: 06,3775 37405 STCALL DELVLVC
030515,001293: 06,3776 45550 OKN81
030516,001294:
030517,001295: 22,2000 SETLOC CSIPROG3
030518,001296: 22,2000 BANK
030519,001297:
030520,001298: 22,3550 COUNT* $$/CSI
030521,001299: 22,3550 77776 OKN81 EXIT
030522,001300: 22,3551 35037 CA V06N90
030523,001301: 22,3552 05535 TC VNFLASH
030524,001302:
030525,001303: 22,3553 34535 CAF V06N81
030526,001304: 22,3554 05535 TC VNFLASH
030527,001305:
030528,001306: 22,3555 06006 TC INTPRET
030529,001307: 22,3556 77650 GOTO
030530,001308: 22,3557 02356 ANEXIT
030531,001309:
030532,001310: 22,3560 05,3305 1/10FPS = EPSILN1 # ,1 FPS
030533,001311:
![]() |
Page 686 |
030535,001313: # ..... INTINTNA .....
030536,001314:
030537,001315: 31,2000 SETLOC CDHTAG2
030538,001316: 31,2000 BANK
030539,001317:
030540,001318: 31,3606 COUNT* $$/CDH
030541,001319: 31,3606 65325 INTINT2C PDDL PDDL
030542,001320: 31,3607 02463 TCSI
030543,001321: 31,3610 02461 TCDH
030544,001322: 31,3611 41525 PDDL PUSH
030545,001323: 31,3612 33143 TWOPI
030546,001324: 31,3613 77650 GOTO
030547,001325: 31,3614 72740 INTINT
030548,001326: 31,3615 65325 INTINT3P PDDL PDDL
030549,001327: 31,3616 02461 TCDH
030550,001328: 31,3617 03663 TTPI
030551,001329: 31,3620 41525 PDDL PUSH
030552,001330: 31,3621 33143 TWOPI # FOR CONIC INTEGRATION
030553,001331: 31,3622 77650 GOTO
030554,001332: 31,3623 72740 INTINT
030555,001333:
![]() |
Page 687 |
030557,001335: # ..... S32/33.X .....
030558,001336:
030559,001337: 15,2000 SETLOC CDHTAGS
030560,001338: 15,2000 BANK
030561,001339:
030562,001340: 15,2050 COUNT* $$/CDH
030563,001341: 15,2050 77201 S32/33.X SETPD VLOAD
030564,001342: 15,2051 00007 6D
030565,001343: 15,2052 02611 UP1
030566,001344: 15,2053 63276 VCOMP PDVL
030567,001345: 15,2054 02541 RACT1
030568,001346: 15,2055 57456 UNIT VCOMP
030569,001347: 15,2056 47206 PUSH VXV
030570,001348: 15,2057 02611 UP1
030571,001349: 15,2060 77772 VSL1
030572,001350: 15,2061 00001 STORE 0D
030573,001351: 15,2062 77616 RVQ
030574,001352:
![]() |
Page 688 |
030576,001354: # ..... CDHMVR .....
030577,001355:
030578,001356: # SUBROUTINES USED
030579,001357: # VECSHIFT
030580,001358: # TIMETHET
030581,001359: # SHIFTR1
030582,001360:
030583,001361: 27,2000 SETLOC CDHTAG
030584,001362: 27,2000 BANK
030585,001363:
030586,001364: 27,2674 COUNT* $$/CDH
030587,001365: 27,2674 77220 CDHMVR STQ VLOAD
030588,001366: 27,2675 02360 SUBEXIT
030589,001367: 27,2676 02453 RACT2
030590,001368: 27,2677 53406 PUSH UNIT
030591,001369: 27,2700 27546 STOVL UNVEC # UR SUB A
030592,001370: 27,2701 02625 RPASS2
030593,001371: 27,2702 50256 UNIT DOT
030594,001372: 27,2703 03546 UNVEC
030595,001373: 27,2704 72406 PUSH SL1
030596,001374: 27,2705 16734 STODL CSTH
030597,001375: 27,2706 65316 DSQ PDDL
030598,001376: 27,2707 15326 DP1/4TH
030599,001377: 27,2710 45302 SR2 DSU
030600,001378: 27,2711 72566 SQRT SL1
030601,001379: 27,2712 57515 PDVL VCOMP
030602,001380: 27,2713 77635 VXV
030603,001381: 27,2714 02625 RPASS2
030604,001382: 27,2715 65241 DOT PDDL
030605,001383: 27,2716 02611 UP1
030606,001384: 27,2717 45565 SIGN STADR
030607,001385: 27,2720 51045 STOVL SNTH
030608,001386: 27,2721 02625 RPASS2
030609,001387: 27,2722 45115 PDVL CALL
030610,001388: 27,2723 02617 VPASS2
030611,001389: 27,2724 45320 VECSHIFT
030612,001390: 27,2725 26746 STOVL VVEC
030613,001391: 27,2726 77614 CLEAR
030614,001392: 27,2727 03666 RVSW
030615,001393: 27,2730 36657 STCALL RVEC
030616,001394: 27,2731 25002 TIMETHET
030617,001395: 27,2732 53754 LXA,2 VSL*
030618,001396: 27,2733 03746 RTX2
030619,001397: 27,2734 57576 0,2
030620,001398: 27,2735 00023 STORE 18D
030621,001399: 27,2736 76441 DOT SL1R
030622,001400: 27,2737 03546 UNVEC
030623,001401: 27,2740 51515 PDVL ABVAL # 0D = V SUB PV
030624,001402: 27,2741 63257 SL* PDVL
![]() |
Page 689 |
030626,001404: 27,2742 57576 0,2
030627,001405: 27,2743 02453 RACT2
030628,001406: 27,2744 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A
030629,001407: 27,2745 77625 DSU
030630,001408: 27,2746 00003 02D
030631,001409: 27,2747 16633 STODL DIFFALT # DELTA H IN METERS B+29
030632,001410: 27,2750 02744 R1A
030633,001411: 27,2751 65301 NORM PDDL # 2 - R V**/MU 04D
030634,001412: 27,2752 00047 X1
030635,001413: 27,2753 00041 R1
030636,001414: 27,2754 77624 CALL
030637,001415: 27,2755 45330 SHIFTR1
030638,001416: 27,2756 56362 SR1R DDV
030639,001417: 27,2757 41457 SL* PUSH
030640,001418: 27,2760 20174 0 -5,1
030641,001419: 27,2761 65225 DSU PDDL # A SUB A B+29 04D
030642,001420: 27,2762 02633 DIFFALT
030643,001421: 27,2763 56302 SR2 DDV # A SUB P B+31
030644,001422: 27,2764 00005 04D # B+2
030645,001423: 27,2765 75406 PUSH SQRT # A SUB P/A SUB A 06D
030646,001424: 27,2766 41275 DMPR DMP
030647,001425: 27,2767 00007 06D
030648,001426: 27,2770 00001 00D
030649,001427: 27,2771 65272 SL3R PDDL # V SUB AV METERS/CS B+7 08D
030650,001428: 27,2772 00003 02D # R SUB A MAGNITUDE B+29
030651,001429: 27,2773 65301 NORM PDDL
030652,001430: 27,2774 00047 X1
030653,001431: 27,2775 03750 RTMU
030654,001432: 27,2776 56342 SR1 DDV # 2MU B+38
030655,001433: 27,2777 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D
030656,001434: 27,3000 20174 0 -5,1
030657,001435: 27,3001 00005 04D # ASUBA B+29
030658,001436: 27,3002 65301 NORM PDDL
030659,001437: 27,3003 00050 X2
030660,001438: 27,3004 03750 RTMU
030661,001439: 27,3005 56342 SR1 DDV
030662,001440: 27,3006 44257 SL* BDSU
030663,001441: 27,3007 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ
030664,001442: 27,3010 63525 PDDL DSQ # 10D
030665,001443: 27,3011 00011 08D
030666,001444: 27,3012 75421 BDSU SQRT
030667,001445: 27,3013 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2) 10D
030668,001446: 27,3014 02611 UP1
030669,001447: 27,3015 03546 UNVEC
030670,001448: 27,3016 74256 UNIT VXSC
030671,001449: 27,3017 00013 10D
030672,001450: 27,3020 74315 PDVL VXSC
030673,001451: 27,3021 03546 UNVEC
030674,001452: 27,3022 00011 08D
030675,001453: 27,3023 76455 VAD VSL1
![]() |
Page 690 |
030677,001455: 27,3024 77626 STADR
030678,001456: 27,3025 74231 STORE VACT3
030679,001457: 27,3026 77651 VSU
030680,001458: 27,3027 02533 VACT2
030681,001459: 27,3030 37667 STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
030682,001460: 27,3031 02360 SUBEXIT
End of include-file P32-P33,_P72-P73.agc. Parent file is MAIN.agc