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