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