forked from chrislgarry/Apollo-11
-
Notifications
You must be signed in to change notification settings - Fork 0
/
P32-P33_P72-P73.s
1408 lines (1332 loc) · 25.3 KB
/
P32-P33_P72-P73.s
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
# Copyright: Public domain.
# Filename: P32-P33_P72-P73.agc
# Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
# It is part of the source code for the Command Module's (CM)
# Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler: yaYUL
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 649-683
# Mod history: 2009-05-09 RSB Adapted from the Luminary131/ file
# P32-P35_P72-P75.agc and Comanche055 page
# images.
# 2009-05-20 RSB Corrected CSI/COM3 -> CSI/CDH3,
# CSI/CDHI -> CSI/CDH1, CDHTAB -> CDHTAG,
# changed a SETLOC from CSI/CDH to CSI/CDH1,
# a SETLOC CSI/CDH1 to CSIPROG.
# 2009-05-21 RSB Changed a P32/P72D to P32/P72E in
# P32/P72D. DP1/4TH changed to DP1/4 in
# CDHMVR.
#
# This source code has been transcribed or otherwise adapted from digitized
# images of a hardcopy from the MIT Museum. The digitization was performed
# by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
# Page 649
# COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
#
# MOD NO -1 LOG SECTION -- P32-P35, P72-P75
# MOD BY WHITE, P. DATE 1 JUNE 67
#
# PURPOSE
# (1) TO CALCULATE PARAMETERS ASSOCIATED WTIH THE FOLLOWING
# CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE
# INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
# (CDH) MANEUVER.
# (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
# APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
# ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR
# APPROVAL BY THE ASTRRONAUT/GROUND.
# (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
# THRUSTING PROGRAM.
#
# ASSUMPTIONS
# (1) AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE
# AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
# FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
# POSITION.
# (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
# COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
# COMPLETION OF THE PROGRAM.
# (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
# COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
# COMPLETION OF THE PROGRAM.
# (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
# ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
# (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
# HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
# IGNITION.
# (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
# MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
# ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
# (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
# PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER, CREW
# Page 650
# MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
# OUT-OF-PLANE CSI MANEUVER
# (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
# STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
# (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
# THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
# ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
# EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
# (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
# OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
# DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY
# PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
# AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
# TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
# MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
# THRUSTING MANEUVER.
# (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
# (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS --
#
# ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS
# DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
# EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
#
# FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
# COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
# CYCLE.
#
# EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF
# STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
# THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
# PROGRAM.
#
# (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
# A THRUSTING MANEUVER.
#
# (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY
#
# P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
#
# P72 IF THIS VEHICLE IS THE PASSIVE VEHICLE.
#
# INPUT
# (1) TCSI TIME OF THE CSI MANEUVER
# Page 651
# (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
# VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
# MANEUVER POINT.
# (3) ELEV DESIRED LOS ANGLE AT TPI
# (4) TTPI TIME OF THE TPI MANEUVER
#
# OUTPUT
# (1) TRKMKCNT NUMBER OF MARKS
# (2) TTOGO TIME TO GO
# (3) +MGA MIDDLE GIMBAL ANGLE
# (4) DIFFALT DELTA ALTITUDE AT CDH
# (5) T1TOT2 DELTA TIME FROM CSI TO CDH
# (6) T2TOT3 DELTA TIME FROM CDH TO TPI
# (7) DELVLVC DELTA VELOCITY AT CSI -- LOCAL VERTICAL COORDINATES
# (8) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES
#
# DOWNLINK
# (1) TCSI TIME OF THE CSI MANEUVER
# (2) TCDH TIME OF THE CDH MANEUVER
# (3) TTPI TIME OF THE TPI MANEUVER
# (4) TIG TIME OF THE CSI MANEUVER
# (5) DELVEET1 DELTA VELOCITY AT CSI -- REFERENCE COORDINATES
# (6) DELVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES
# (7) DIFFALT DELTA ALTITUDE AT CDH
# (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
# VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
# MANEUVER POINT
# (9) ELEV DESIRED LOS ANGLE AT TPI
#
# COMMUNICATION TO THRUSTING PROGRAMS
# (1) TIG TIME OF THE CSI MANEUVER
# (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI -- BEFORE ROTATION
# INTO PLANE OF PASSIVE VEHICLE
# (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE -- BEFORE ROTATION
# INTO PLANE OF PASSIVE VEHICLE
# (4) DELVSIN DELTA VELOCITY AT CSI -- REFERENCE COORDINATES
# (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
# (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
#
# SUBROUTINES USED
# AVFLAGA
# AVFLAGP
# P20FLGON
# VARALARM
# BANKCALL
# GOFLASH
# GOTOP00H
# Page 652
# VNP00H
# GOFLASHR
# BLANKET
# ENDOFJOB
# SELECTMU
# ADVANCE
# INTINT
# PASSIVE
# CSI/A
# S32/33.1
# DISDVLVC
# VN1645
BANK 35
SETLOC CSI/CDH1
BANK
EBANK= SUBEXIT
COUNT 35/P3272
P32 TC AVFLAGA
TC P32STRT
P72 TC AVFLAGP
P32STRT TC INTPRET
DLOAD
ZEROVEC
STORE CENTANG
EXIT
TC P32/P72A
ALMXITA SXA,2
CSIALRM
ALMXIT LXC,1
CSIALRM
SLOAD* EXIT
ALARM/TB -1,1
CA MPAC
TC VARALARM
CAF V05N09
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC -4
P32/P72A TC P20FLGON
TC INTPRET
DLOAD
ZEROVEC
STORE NN
EXIT
CAF V06N11 # TCSI
TC VNP00H
CAF V06N55
# Page 653
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC +2
TC -5
CAF V06N37 # TTPI
TC VNP00H
TC INTPRET
DLOAD
TCSI
STCALL TIG
SELECTMU
P32/P72B CALL
ADVANCE
SETPD VLOAD
0D
VPASS1
PDVL PDDL
RPASS1
TCSI
PDDL PDDL
TTPI
2PISC
SL2 PUSH
CALL
INTINT
CALL
PASSIVE
CALL
CSI/A
P32/P72C BON SET
FINALFLG
P32/P72D
UPDATFLG
P32/P72D DLOAD GOTO
T1TOT2
P32/P72E
SETLOC CSI/CDH3
BANK
P32/P72E STORE T1TOT2
DSU BPL
60MIN
P32/P72E
DLOAD GOTO
T2TOT3
P32/P72F
SETLOC CSI/CDH1
BANK
P32/P72F STORE T2TOT3
DSU BPL
# Page 654
60MIN
P32/P72F
EXIT
CAF V06N75
TC VNP00H
TC INTPRET
VLOAD CALL
DELVEET1
S32/33.1
STOVL DELVEET1
RACT2
STOVL RACT1
DELVEET2
AXT,1 CALL
VN 0682
DISDVLVC
DLOAD
TTPI
STCALL TTPIO
VN1645
GOTO
P32/P72B
# Page 655
# CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
# MOD NO -1 LOC SECTION -- P32-P35, P72-P75
# MOD BY WHITE, P. DATE: 1 JUNE 67
#
# PURPOSE
#
# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
# ALTITUDE MANEUVER (CDH).
#
# (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
# APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
#
# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
# ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
# ASTRONAUT/GROUND.
#
# (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
# THRUSTING PROGRAM.
#
# ASSUMPTIONS
#
# (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
# CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
# THEREFORE --
#
# (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
# BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
# A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
# HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
#
# (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
# COMPUTED TO BE GREATER THAN 10 MINUTES.
#
# (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
# COMPUTED TO BE GREATER THAN 10 MINUTES.
#
# (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
# ORBITS WAS MINIMIZED.
#
# (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
# IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
# POSITION AT CSI IGNITION.
#
# (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
# CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
# ORBIT OR 85 NM FOR EARTH ORBIT.
#
# (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
# THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
# Page 656
# MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
# IN AN OUT-OF-PLANE MANEUVER.
#
# (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
# STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
#
# (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
# THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
# ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
# EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
#
# (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM.
# OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
# DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
# PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
# AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
# TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
# MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
# THRUSTING MANEUVER.
#
# (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
#
# (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS --
#
# ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS
# DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
# EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
#
# FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
# COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
# CYCLE.
#
# EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF
# STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
# THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
# PROGRAM.
#
# (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
# A THRUSTING MANEUVER.
#
# (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY.
#
# P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
#
# P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
#
# INPUT
#
# (1) TTPIO TIME OF THE TPI MANEUVER -- SAVED FROM P32/P72
# Page 657
# (2) ELEV DESIRED LOS ANGLE AT TPI -- SAVED FROM P32/P72
# (3) TCDH TIME OF THE CDH MANEUVER
#
# OUTPUT
#
# (1) TRKMKCNT NUMBER OF MARKS
# (2) TTOGO TIME TO GO
# (3) +MGA MIDDLE GIMBAL ANGLE
# (4) DIFFALT DELTA ALTITUDE AT CDH
# (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
# (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
# (7) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES
#
# DOWNLINK
#
# (1) TCDH TIME OF THE CDH MANEUVER
# (2) TTPI TIME OF THE TPI MANEUVER
# (3) TIG TIME OF THE CDH MANEUVER
# (4) DELLVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES
# (5) DIFFALT DELTA ALTITUDE AT CDH
# (6) ELEV DESIRED LOS ANGLE AT TPI
#
# COMMUNICATION TO THRUSTING PROGRAMS
#
# (1) TIG TIME OF THE CDH MANEUVER
# (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION
# INTO PLANE OF PASSIVE VEHICLE.
# (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION
# INTO PLANE OF PASSIVE VEHICLE.
# (4) DELVSIN DELTA VELOCITY AT CDH -- REFERENCE COORDINATES.
# (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH.
# (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION.
#
# SUBROUTINES USED
#
# AVFLAGA
# AVFLAGP
# P20FLGON
# VNP00H
# SELECTMU
# ADVANCE
# CDHMVR
# INTINT3P
# ACTIVE
# PASSIVE
# S33/S34.1
# ALARM
# BANKCALL
# GOFLASH
# GOTOP00H
# S32/33.1
# Page 658
# VN1645
COUNT 35/P3373
P33 TC AVFLAGA
TC P33/P73A
P73 TC AVFLAGP
P33/P73A TC P20FLGON
CAF V06N13 # TCDH
TC VNP00H
TC INTPRET
DLOAD
TTPIO
STODL TTPI
TCDH
STCALL TIG
SELECTMU
P33/P73B CALL
ADVANCE
CALL
CDHMVR
SETPD VLOAD
0D
VACT3
PDVL CALL
RACT2
INTINT3P
CALL
ACTIVE
SETPD VLOAD
0D
VPASS2
PDVL CALL
RPASS2
INTINT3P
CALL
PASSIVE
DLOAD SET
ZEROVEC
ITSWICH
STCALL NOMTPI
S33/34.1
BZE EXIT
P33/P73C
TC ALARM
OCT 611
CAF V05N09
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
# Page 659
TC +2
TC P33/P73A
TC INTPRET
DLOAD
ZEROVEC
STCALL NOMTPI
P33/P73C
SETLOC CSI/CDH2
BANK
P33/P73C BON SET
FINALFLG
P33/P73D
UPDATFLG
P33/P73D DLOAD DAD
NOMTPI
TTPI
STORE TTPI
DSU GOTO
TCDH
P33/P73E
SETLOC CSI/CDH1
BANK
P33/P73E DSU BPL
60MIN
P33/P73E
DAD
60MIN
STODL T1TOT2
TTPI
DSU PUSH
TTPIO
P33/P73F ABS DSU
60MIN
BPL DAD
P33/P73F
60MIN
SIGN STADR
STORE T2TOT3
EXIT
CAF V06N75
TC VNP00H
TC INTPRET
VLOAD CALL
DELVEET2
S32/33.1
STCALL DELVEET2
VN1645
GOTO
# Page 660
P33/P73B
# Page 661
# ***** AVFLAGA/P *****
# Page 662
# ***** DISDVLVC *****
#
# SUBROUTINES USED
#
# S32/33.X
# VNP00H
SETLOC CDHTAG3
BANK
DISDVLVC STORE DELVLVC
STQ CALL
NORMEX
S32/33.X
VLOAD MXV
DELVLVC
0D
VSL1 SXA,1
VERBNOUN
STORE DELVLVC
EXIT
CA VERBNOUN
TC VNP00H
TC INTPRET
GOTO
NORMEX
SETLOC FFTAG12
BANK
V06N11 VN 0611
V06N13 VN 0613
V06N75 VN 0675
V06N50 VN 0650
# Page 663
# ***** CSI/A *****
#
# SUBROUTINES USED
#
# VECSHIFT
# TIMETHET
# PERIAPO
# SHIFTR1
# INTINT2C
# CDHMVR
# PERIAPO1
# INTINT
# ACTIVE
BANK 34
SETLOC CSIPROG
BANK
EBANK= SUBEXIT
COUNT 34/CSI
60MIN 2DEC 360000
ALARM/TB OCT 00600 # NO 1
OCT 00601 # 2
OCT 00602 # 3
OCT 00603 # 4
OCT 00604 # 5
OCT 00605 # 6
OCT 00606 # 7
LOOPMX 2DEC 16
INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS
DVMAX2 2DEC 3.014472 B-7 # 989 FPS
1DPB2 2DEC 1.0 B-2
1DPB28 2DEC 1
EPSILN1 2DEC .0003048 B-7 # .1 FPS
FIFPSDP 2DEC -.152400 B-7 # 5 FPS
DELMAX1 2DEC .6096000 B-7 # 200 FPS
SETLOC CSI/CDH
BANK
PMINE 2DEC 157420 B-29 # 84 NM -- MUST BE 8 WORDS BEFORE PMINM
# Page 664
NICKELDP 2DEC .021336 B-7 # 7 FPS
INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
ONETHTH 2DEC .0001 B-3
PMINM 2DEC 10668 B-29 # 35000 FT -- MUST BE 8 WORDS AFTER PMINE
SETLOC CSIPROG
BANK
CSI/A CLEAR SET # INITIALIZE INDICATORS
S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR
S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATOR
CLEAR SET
S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE, 01=FIRST CYCLE
S32.1F3B # 10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE
DLOAD
ZEROVEC
STORE LOOPCT
STORE CSIALRM
CSI/B SETPD VLOAD
0D
RACT1
ABVAL PUSH # RA1 B29 PL02D
NORM SR1
X2 # B29-N2+ B1 PL04D
PDVL ABVAL
RPASS3
NORM BDDV # RA1/RP3 B1 PL02D
X1
XSU,2 SR* # B2
X1
1,2
DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D
1DPB2
NORM PDDL # PL02D
X1
RTMU
SR1 DDV # B38-B31= B7 PL00D
SL* SQRT # B7
0 -7,1
PDVL UNIT # PL02D
RACT1
PDVL VXV
UP1
UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
DOT SL1 # VA1 . UH1 B7
VACT1
BDSU STADR # PL00D
# Page 665
STODL DELVCSI
INITST # 10 FPS
STORE DELDV
CSI/B1 DLOAD DAD # IF LOOPCT = 16
LOOPCT
1DPB28
STORE LOOPCT
DSU AXT,2
LOOPMX
6
BPL GOTO
SCNDSOL
CSI/B2
SETLOC CSIPROG2
BANK
CSI/B2 SETPD
0D
DLOAD ABS
DELVCSI
DSU BMN
DVMAX1
CSI/B23
AXT,2 BON
7
S32.1F1
SCNDSOL
BOFF BON
S32.1F3A
CSI/B22 # FLAG 3 NEQ 3
S32.1F3B
SCNDSOL
CSI/B22 SET DLOAD
S32.1F1
DVMAX2
SIGN
DELVCSI
STCALL DELVCSI
CSI/B23
SETLOC CSIPROG3
BANK
CSI/B23 VLOAD PUSH
RACT1
UNIT PDVL
UP1
VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
VXSC VSL1
# Page 666
DELVCSI
STORE DELVEET1
VAD BOV
VACT1
CSI/B23D
CSI/B23D STCALL VACT4
VECSHIFT
STOVL VVEC
SET
RVSW
STOVL RVEC
SN359+
STCALL SNTH # ALSO CSTH
TIMETHET
SR1 LXA,1
RTX1
STCALL HAFPA1
PERIAPO
CALL
SHIFTR1
STODL POSTCSI
CENTANG
BZE GOTO
+2
CIRCL
DLOAD
ECC
DSU BMN
ONETHTH
CIRCL
DLOAD CALL
R1
SHIFTR1
SETPD NORM
2D
X1
PDVL DOT # PL04D
RACT1
VACT4
ABS DDV
02D # (/RDOTV/)/R1 B36-B29= B7
SL* DSU
0,1
NICKELDP
BMN DLOAD
CIRCL
P
SL2 DSU
1RTEB2 # 1.B.2
STODL 14D
# Page 667
RTSR1/MU
SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
PDDL DMP
P
R1
CALL
SHIFTR1
SL4 SL1
SQRT DMP # ((P/MU)**.5)/R1 B14+B-14 = B-31 BL02D
BOFF SL3
CMOONFLG
CSI/B3
CSI/B3 PDVL DOT
RACT1
VACT4
STORE RDOTV
ABS
NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D
X2
XSU,1 SL* # B-31+B36-B3 = B2
X2
3,1
STODL 12D
ZEROVECS
STORE 16D
VLOAD UNIT
12D
STOVL SNTH # ALSO STORES CSTH AND 0
RACT1
PDVL SIGN
VACT4
RDOTV
VCOMP CALL
VECSHIFT
STOVL VVEC
SETGO
RVSW
CSINEXT
SN359+ 2DEC -.000086601
CS359+ 2DEC +.499999992
SETLOC CSIPROG4
BANK
CSINEXT STCALL RVEC
TIMETHET
PDDL BPL
RDOTV
# Page 668
NTP/2
DLOAD DSU
HAFPA1
PUSH GOTO
NTP/2
CIRCL SETPD DLOAD
00D
ZEROVECS
PUSH
NTP/2 DLOAD DMP
NN
HAFPA1
SL DSU
14D
DAD
TCSI
STORE TCDH
BDSU AXT,2
TTPI
5D
BMN SETPD
SCNDSOL
0D
VLOAD PDVL
VACT4
RACT1
CALL
INTINT2C
STOVL RACT2
VATT
STOVL VACT2
VPASS1
SETPD PDVL
0D
RPASS1
GOTO
CSINEXT1
SETLOC CSIPROG5
BANK
CSINEXT1 CALL
INTINT2C
STOVL RPASS2
VATT
STCALL VPASS2
CDHMVR
VLOAD SETPD
RACT2
0D
# Page 669
PDVL CALL
VACT3
PERIAPO1
CALL
SHIFTR1
STOVL POSTCDH
VACT3
SETPD PDVL
0D
RACT2
PDDL PDDL
TCDH
TTPI
PDDL SL2
2PISC
PUSH CALL
INTINT
CALL
ACTIVE
DLOAD
ELEV
SETPD SINE
6D
PDVL UNIT
RACT3
STORE 00D # URA3 AT 00D
PDVL VXV # PL14D, PL08D
UP1
UNIT
PDDL COSINE # UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D
ELEV
VXSC STADR # (COSLOS)(UH3) B2 PL08D
STCALL 18D # PLUS
CSINEXT2
SETLOC CSIPROG6
BANK
CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
VAD VSL1
18D # B1
PUSH DOT # PL06D
RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30
SL1 PUSH # B29 PL08D
DSQ TLOAD # TEMP1**2 B58
MPAC
PDVL DOT # PL11D
RACT3
RACT3
TLOAD DCOMP # RA3 . RA3
# Page 670
MPAC
PDVL DOT # RP3 . RP3 B58 PL14D
RPASS3
RPASS3 # PL11D
TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D
BPL DLOAD
K10RK2
LOOPCT
DSU AXT,2
1DPB28
1D
BZE
ALMXITA
DLOAD SR1
DELDV
STORE DELDV
BDSU
DVPREV
STCALL DELVCSI
CSI/B1
K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
DCOMP DSU
06D # -TEMP1-TEMP3 = K2 AT 10D
STODL 10D # PL08D
DSU STADR # PL06D
STORE 12D # -TEMP1+TEMP3 = K1 AT 12D
ABS
STODL 14D
10D
ABS DSU
14D
BMN DLOAD
K2.
12D
STCALL 10D # K EQUALS K1
K2.
SETLOC CSIPROG7
BANK
K2. DLOAD
10D
VXSC VSL1
VAD UNIT # V = RA3 + KU UNIT B1
RACT3
PDVL UNIT