forked from chrislgarry/Apollo-11
-
Notifications
You must be signed in to change notification settings - Fork 0
/
FLAGWORD_ASSIGNMENTS.s
1269 lines (1006 loc) · 36.1 KB
/
FLAGWORD_ASSIGNMENTS.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: FLAGWORD_ASSIGNMENTS.agc
# Purpose: Part of the source code for Luminary 1A build 099.
# It is part of the source code for the Lunar Module's (LM)
# Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler: yaYUL
# Contact: Onno Hommes <[email protected]>.
# Website: www.ibiblio.org/apollo.
# Pages: 0061-0089
# Mod history: 2009-05-15 OH Transcribed from page images.
# 2009-05-17 RSB Extended to (blank) p. 89.
#
# 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 [email protected]
# about getting access to the (much) higher-quality images which Paul
# actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# Page 61
# FLAGWORDS 0-11 ARE DOWNLINKED AND CAN BE SET AND CLEARED BY UP-FLAG AND DOWN-FLAG INSTRUCTIONS IN THE
# INTERPRETER. THESE WERE PREVIOUSLY LISTED UNDER "INTERPRETIVE SWITCH BIT ASSIGNMENTS" IN
# THE ERASABLE LOG SECTION. FLAGWORDS 12 & 13 WERE PREVIOUSLY RADMODES AND DAPBOOLS AND
# ARE STILL DOWNLINKED UNDER THOSE NAMES.
# ALPHABETICAL LIST OF FLAGWORDS
#
# FLAGWORD DEC. NUMBER BIT AND FLAG BIT NAME
# ACCOKFLG 207 BIT 3 FLAG 13 ACCSOKAY
# ACC4-2FL 199 BIT 11 FLAG 13 ACC4OR2X
# ACMODFLG 032 BIT 13 FLAG 2 ACMODBIT
# ALTSCALE 186 BIT 9 FLAG 12 ALTSCBIT
# ANTENFLG 183 BIT 12 FLAG 12 ANTENBIT
# AORBSFLG 205 BIT 5 FLAG 13 AORBSYST
# AORBTFLG 200 BIT 10 FLAG 13 AORBTRAN
# APSESW 130 BIT 5 FLAG 8 APSESBIT
# APSFLAG 152 BIT 13 FLAG 10 APSFLBIT
# ASTNFLAG 108 BIT 12 FLAG 7 ASTNBIT
# ATTFLAG 104 BIT 1 FLAG 6 ATTFLBIT
# AUTOMODE 193 BIT 2 FLAG 12 AUTOMBIT
# AUTR1FLG 209 BIT 1 FLAG 13 AUTRATE1
# AUTR2FLG 208 BIT 2 FLAG 13 AUTRATE2
# AUXFLAG 103 BIT 2 FLAG 6 AUXFLBIT
# AVEGFLAG 115 BIT 5 FLAG 7 AVEGFBIT
# AVEMIDSW 149 BIT 1 FLAG 9 AVEMDBIT
# AVFLAG 040 BIT 5 FLAG 2 AVFLBIT
# CALCMAN2 043 BIT 2 FLAG 2 CALC2BIT
# CALCMAN3 042 BIT 3 FLAG 2 CALC3BIT
# CDESFLAG 180 BIT 15 FLAG 12 CDESBIT
# CMOONFLG 123 BIT 12 FLAG 8 CMOONBIT
# COGAFLAG 131 BIT 4 FLAG 8 COGAFBIT
# CSMDKFLG 197 BIT 13 FLAG 13 CSMDOCKD
# CULTFLAG 053 BIT 7 FLAG 3 CULTBIT
# DAPBOOLS FLGWRD13
# DBSELFLG 206 BIT 4 FLAG 13 DBSELECT
# DESIGFLG 185 BIT 10 FLAG 12 DESIGBIT
# DIDFLAG 016 BIT 14 FLAG DIDFLBIT
# DIMOFLAG 059 BIT 1 FLAG 3 DIMOBIT
# DMENFLG 081 BIT 9 FLAG 5 DMENFBIT
# DRIFTDFL 202 BIT 8 FLAG 13 DRIFTBIT
# DRIFTFLG 030 BIT 15 FLAG 2 DRFTBIT
# DSKYFLAG 075 BIT 15 FLAG 5 DSKYFBIT
# Page 62
# D6OR9FLG 058 BIT 2 FLAG 3 D6OR9BIT
# ENGONFLG 083 BIT 7 FLAG 5 ENGONBIT
# ERADFLAG 017 BIT 13 FLAG 1 ERADFBIT
# ETPIFLAG 038 BIT 7 FLAG 2 ETPIBIT EQUIVALENT FLAG NAME: DPTNSW
# FINALFLG 039 BIT 6 FLAG 2 FINALBIT
# FLAGWRD0 (000-014) (STATE +0)
# FLAGWRD1 (015-029) (STATE +1)
# FLAGWRD2 (030-044) (STATE +2)
# FLAGWRD3 (045-059) (STATE +3)
# FLAGWRD4 (060-074) (STATE +4)
# FLAGWRD5 (075-089) (STATE +5)
# FLAGWRD6 (090-104) (STATE +6)
# FLAGWRD7 (105-119) (STATE +7)
# FLAGWRD8 (120-134) (STATE +8D)
# FLAGWRD9 (135-149) (STATE +9D)
# FLAP 142 BIT 8 FLAG 9 FLAPBIT
# FLGWRD10 (150-164) (STATE +10D)
# FLGWRD11 (165-179) (STATE +11D)
# FLGWRD12 (180-194) (STATE +12D)
# FLGWRD13 (195-209) (STATE +13D)
# FLPC 138 BIT 12 FLAG 9 FLPCBIT
# FLPI 139 BIT 11 FLAG 9 FLPIBIT
# FLRCS 149 BIT 10 FLAG 9 FLRCSBIT
# FLUNDISP 125 BIT 10 FLAG 8 FLUNDBIT
# FLVR 136 BIT 14 FLAG 9 FLVRBIT
# FREEFLAG 012 BIT 3 FLAG 0 FREEFBIT
# FSPASFLG 005 BIT 10 FLAG 0 FSPASBIT
# GLOKFAIL 046 BIT 14 FLAG 3 GLOKFBIT
# GMBDRVSW 095 BIT 10 FLAG 6 GMBDRBIT
# GUESSW 028 BIT 2 FLAG 1 GUESSBIT
# HFLSHFLG 179 BIT 1 FLAG 11 HFLSHBIT
# IDLEFLAG 113 BIT 7 FLAG 7 IDLEFBIT
# IGNFLAG 107 BIT 13 FLAG 7 IGNFLBIT
# IMPULSW 036 BIT 9 FLAG 2 IMPULBIT
# IMUSE 007 BIT 8 FLAG 0 IMUSEBIT
# INFINFLG 128 BIT 7 FLAG 8 INFINBIT
# INITALGN 133 BIT 2 FLAG 8 INITABIT
# INTFLAG 151 BIT 14 FLAG 10 INTFLBIT
# INTYPFLG 056 BIT 4 FLAG 3 INTYPBIT
# ITSWICH 105 BIT 15 FLAG 7 ITSWBIT
# JSWITCH 001 BIT 14 FLAG 0 JSWCHBIT
# LETABORT 141 BIT 9 FLAG 9 LETABBIT
# LMOONFLG 124 BIT 11 FLAG 8 LMOONBIT
# LOKONSW 010 BIT 5 FLAG 0 LOKONBIT
# LOSCMFLG 033 BIT 12 FLAG 2 LOSCMBIT
# LRALTFLG 190 BIT 5 FLAG 12 LRALTBIT
# LRBYPASS 165 BIT 15 FLAG 11 LRBYBIT
# LRINH 172 BIT 8 FLAG 11 LRINHBIT
# LRPOSFLG 189 BIT 6 FLAG 12 LRPOSBIT
# LRVELFLG 187 BIT 8 FLAG 12 LRVELBIT
# Page63
# LUNAFLAG 048 BIT 12 FLAG 3 LUNABIT
# MANUFLAG 106 BIT 14 FLAG 7 MANUFBIT
# MGLVFLAG 088 BIT 2 FLAG 5 MGLVFBIT
# MIDAVFLG 148 BIT 2 FLAG 9 MIDAVBIT
# MIDFLAG 002 BIT 13 FLAG 0 MIDFLBIT
# MID1FLAG 147 BIT 3 FLAG 9 MID1BIT
# MKOVFLAG 072 BIT 3 FLAG 4 MKOVBIT
# MOONFLAG 003 BIT 12 FLAG 0 MOONBIT
# MRKIDFLG 060 BIT 15 FLAG 4 MRKIDBIT
# MRKNVFLG 066 BIT 9 FLAG 4 MRKNVBIT
# MRUPTFLG 070 BIT 5 FLAG 4 MRUPTBIT
# MUNFLAG 097 BIT 8 FLAG 6 MUNFLBIT
# MWAITFLG 064 BIT 11 FLAG 4 MWAITBIT
# NEEDLFLG 011 BIT 4 FLAG 0 NEEDLBIT
# NEWIFLG 122 BIT 13 FLAG 8 NEWIBIT
# NJETSFLG 015 BIT 15 FLAG NJETSBIT
# NODOFLAG 044 BIT 1 FLAG 2 NODOBIT
# NOLRREAD 170 BIT 10 FLAG 11 NOLRRBIT
# NORMSW 110 BIT 10 FLAG 7 NORMSBIT
# NORRMON 086 BIT 4 FLAG 5 NORRMBIT
# NOR29FLG 049 BIT 11 FLAG 3 NR29FBIT
# NOTHROTL 078 BIT 12 FLAG 5 NOTHRBIT
# NOUPFLAG 024 BIT 6 FLAG 1 NOUPFBIT
# NRMNVFLG 067 BIT 8 FLAG 4 NRMNVBIT
# NRMIDFLG 062 BIT 13 FLAG 4 NRMIDBIT
# NRUPTFLG 071 BIT 4 FLAG 4 NRUPTBIT
# NTARGFLG 102 BIT 3 FLAG 6 NTARGBIT
# NWAITFLG 065 BIT 10 FLAG 4 NWAITBIT
# OLDESFLG 014 BIT 1 FLAG 0 OLDESBIT
# OPTNSW 038 BIT 7 FLAG 2 OPTNBIT EQUIVALENT FLAG NAME: ETPIFLAG
# ORBWFLAG 054 BIT 6 FLAG 3 ORBWFBIT
# ORDERSW 129 BIT 6 FLAG 8 ORDERBIT
# OURRCFLG 198 BIT 12 FLAG 13 OURRCBIT
# PDSPFLAG 063 BIT 12 FLAG 4 PDSPFBIT
# PFRATFLG 041 BIT 4 FLAG 2 PFRATBIT
# PINBRFLG 069 BIT 6 FLAG 4 PINBRBIT
# PRECIFLG 052 BIT 8 FLAG 3 PRECIBIT
# PRIODFLG 061 BIT 14 FLAG 1 PRIODBIT
# PRONVFLG 068 BIT 7 FLAG 4 PRONVBIT
# PSTHIGAT 169 BIT 11 FLAG 11 PSTHIBIT
# PULSEFLG 195 BIT 15 FLAG 13 PULSES
# P21FLAG 004 BIT 11 FLAG 0 P21FLBIT
# P25FLAG 006 BIT 9 FLAG 0 P25FLBIT
# P39/79SW 126 BIT 9 FLAG 8 P39SWBIT
# QUITFLAG 145 BIT 5 FLAG 9 QUITBIT
# RADMODES FLGWRD12
# RASFLAG FLGWRD10
# RCDUFAIL 188 BIT 7 FLAG 12 RCDUFBIT
# RCDU0FLG 182 BIT 13 FLAG 12 RCDU0BIT
# READLR 174 BIT 6 FLAG 11 READLBIT
# Page 64
# READRFLG 051 BIT 9 FLAG 3 READRBIT EQUIVALENT FLAG NAME FOR R04FLAG
# READVEL 175 BIT 5 FLAG 11 READVBIT
# REDFLAG 099 BIT 6 FLAG 6 REDFLBIT
# REFSMFLG 047 BIT 13 FLAG 3 REFSMBIT
# REINTFLG 158 BIT 7 FLAG 10 REINTBIT
# REMODFLG 181 BIT 14 FLAG 12 REMODBIT
# RENDWFLG 089 BIT 1 FLAG 5 RENDWBIT
# REPOSMON 184 BIT 11 FLAG 12 REPOSBIT
# RHCSCFLG 203 BIT 7 FLAG 13 RHCSCALE
# RNDVZFLG 008 BIT 7 FLAG 0 RNDVZBIT
# RNGEDATA 176 BIT 4 FLAG 11 RNGEDBIT
# RNGSCFLG 080 BIT 10 FLAG 5 RNGSCBIT
# RODFLAG 018 BIT 12 FLAG 1 RODFLBIT
# ROTFLAG 144 BIT 6 FLAG 9 ROTFLBIT
# RPQFLAG 120 BIT 15 FLAG 8 RPQFLBIT
# RRDATAFL 191 BIT 4 FLAG 12 RRDATABT
# RRNBSW 009 BIT 6 FLAG 0 RRNBBIT
# RRRSFLAG 192 BIT 3 FLAG 12 RRRSBIT
# RVSW 111 BIT 9 FLAG 7 RVSWBIT
# R04FLAG 051 BIT 9 FLAG 3 R04FLBIT EQUIVALENT FLAG NAME: READRFLG
# R10FLAG 013 BIT 2 FLAG 0 R10FLBIT
# R61FLAG 020 BIT 10 FLAG 1 R61FLBIT
# R77FLAG 079 BIT 11 FLAG 5 R77FLBIT
# SCALBAD 177 BIT 3 FLAG 11 SCABBIT
# SLOPESW 027 BIT 3 FLAG 1 SLOPEBIT
# SNUFFER 077 BIT 13 FLAG 5 SNUFFBIT
# SOLNSW 087 BIT 3 FLAG 5 SOLNSBIT
# SRCHOPTN 031 BIT 14 FLAG 2 SRCHOBIT
# STATEFLG 055 BIT 5 FLAG 3 STATEBIT
# STEERSW 034 BIT 11 FLAG 2 STEERBIT
# SURFFLAG 127 BIT 8 FLAG 8 SURFFBIT
# SWANDISP 109 BIT 11 FLAG 7 SWANDBIT
# S32.1F1 090 BIT 15 FLAG 6 S32BIT1
# S32.1F2 091 BIT 14 FLAG 6 S32BIT2
# S32.1F3A 092 BIT 13 FLAG 6 S32BIT3A
# S32.1F3B 093 BIT 12 FLAG 6 S32BIT3B
# TFFSW 119 BIT 1 FLAG 7 TFFSWBIT
# TRACKFLG 025 BIT 5 FLAG 1 TRACKBIT
# TURNONFL 194 BIT 1 FLAG 12 TURNONBT
# ULLAGFLG 204 BIT 6 FLAG 13 ULLAGER
# UPDATFLG 023 BIT 7 FLAG 1 UPDATBIT
# UPLOCKFL 116 BIT 4 FLAG 7 UPLOCBIT
# USEQRFLG 196 BIT 14 FLAG 13 USEQRJTS
# VEHUPFLG 022 BIT 8 FLAG 1 VEHUPBIT
# VELDATA 173 BIT 7 FLAG 11 VELDABIT
# VERIFLAG 117 BIT 3 FLAG 7 VERIFBIT
# VFLAG 050 BIT 10 FLAG 3 VFLAGBIT
# VFLSHFLG 178 BIT 2 FLAG 11 VFLSHBIT
# VINTFLAG 057 BIT 3 FLAG 3 VINTFBIT
# VXINH 168 BIT 12 FLAG 11 VXINHBIT
# Page 65
# V37FLAG 114 BIT 6 FLAG 7 V37FLBIT
# V67FLAG 112 BIT 8 FLAG 7 V67FLBIT
# V82EMFLG 118 BIT 2 FLAG 7 V82EMBIT
# XDELVFLG 037 BIT 8 FLAG 2 XDELVBIT
# XDSPFLAG 074 BIT 1 FLAG 4 XDSPBIT
# XORFLG 171 BIT 9 FLAG 11 XORFLBIT
# XOVINFLG 201 BIT 9 FLAG 13 XOVINHIB
# 3AXISFLG 084 BIT 6 FLAG 5 3AXISBIT
# 360SW 134 BIT 1 FLAG 8 360SWBIT
# ASSIGNMENT AND DESCRIPTION OF FLAGWORDS
FLAGWRD0 = STATE +0 # (000-014)
# (SET) (RESET)
# BIT 15 FLAG 0 (S)
= 000D
= BIT15
# BIT 14 FLAG 0 (S)
JSWITCH = 001D # INTEGRATION OF W INTEGRATION OF STATE
JSWCHBIT = BIT14 # MATRIX VECTOR
# BIT 13 FLAG 0 (S)
MIDFLAG = 002D # INTEGRATION WITH INTEGRATION WITHOUT
# SECONDARY BODY AND SOLAR PERTURBATIONS
MIDFLBIT = BIT13 # SOLAR PERTURBATIONS
# BIT 12 FLAG 0 (L)
MOONFLAG = 003D # MOON IS SPHERE OF EARTH IS SPHERE OF
MOONBIT = BIT12 # INFLUENCE INFLUENCE
# BIT 11 FLAG 0
P21FLAG = 004D # USE BASE VECTORS 1ST PASS -- CALC-
P21FLBIT = BIT11 # ALREADY CALCULATED ULATE BASE VECTORS
# BIT 10 FLAG 0
FSPASFLG = 005D # FIRST PASS THROUGH NOT FIRST PASS THRU
FSPASBIT = BIT10 # REPOSITION ROUTINE REPOSITION ROUTINE
# Page 66
# BIT 9 FLAG 0 (S)
P25FLAG = 006D # P25 OPERATING P25 NOT OPERATING
P25FLBIT = BIT9
# BIT 8 FLAG 0 (S)
IMUSE = 007D # IMU IN USE IMU NOT IN USE
IMUSEBIT = BIT8
# BIT 7 FLAG 0 (S)
RNDVZFLG = 008D # P20 RUNNING (RADAR P20 NOT RUNNING
RNDVZBIT = BIT7 # IN USE)
# BIT 6 FLAG 0 (S)
RRNBSW = 009D # RADAR TARGET IN RADAR TARGET IN
RRNBBIT = BIT6 # NB COORDINATES SM COORDINATES
# BIT 5 FLAG 0 (S)
LOKONSW = 010D # RADAR LOCK-ON RADAR LOCK-ON NOT
LOKONBIT = BIT5 # DESIRED DESIRED
# BIT 4 FLAG 0 (S)
NEEDLFLG = 011D # TOTAL ATTITUDE A/P FOLLOWING
NEEDLBIT = BIT4 # ERROR DISPLAYED ERROR DISPLAYED
# BIT 3 FLAG 0
FREEFLAG = 012D # (USED BY P51-53 TEMP IN MANY DIFFERENT
# ROUTINES & BY LUNAR + SOLAR EPHEMERIDES)
FREEFBIT = BIT3
# BIT 2 FLAG 0
R10FLAG = 013D # R10 OUTPUTS DATA TO BESIDES OUTPUT WHEN
R10FLBIT = BIT2 # ALTITUDE & ALTITUDE SET, R10 ALSO OUTPUT
# RATE METERS ONLY TO FORWARD & LATERAL
# VELOCITY CROSSPOINTER
# BIT 1 FLAG 0 (L)
OLDESFLG = 014D # R29 GYRO CMD LOOP R29 GYRO CMD LOOP
OLDESBIT = BIT1 # REQUESTED NOT REQUESTED
FLAGWRD1 = STATE +1 # (015-029)
# Page 67
# (SET) (RESET)
# BIT 15 FLAG 1 (S)
NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN
NJETSBIT = BIT15
# BIT 14 FLAG 1 (L)
DIDFLAG = 016D # INERTIAL DATA IS PERFORM DATA DISPLAY
DIDFLBIT = BIT14 # AVAILABLE INITIALIZATION FUNCS
# BIT 13 FLAG 1 (S)
ERADFLAG = 017D # COMPUTE REARTH USE CONSTANT REARTH
ERADFBIT = BIT13 # FISCHER ELLIPSOID PAD RADIUS
# BIT 12 FLAG 1
RODFLAG = 018D # IF IN P66, NORMAL IF IN P66, RE-INIT-
RODFLBIT = BIT12 # OPERATION CONTINUES. IALIZATION IS PER-
# RESTART CLEARS FLAG FORMED AND FLAG IS
# BIT 11 FLAG 1
= 019D
= BIT11
# BIT 10 FLAG 1 (L)
R61FLAG = 020D # RUN R61 LEM RUN R65 LEM
R61FLBIT = BIT10
# BIT 9 FLAG 1
= 021D
= BIT9
# BIT 8 FLAG 1 (S)
VEHUPFLG = 022D # CSM STATE-VECTOR LEM STATE VECTOR
VEHUPBIT = BIT8 # BEING UPDATED BEING UPDATED
# BIT 7 FLAG 1 (S)
UPDATFLG = 023D # UPDATING BY MARKS UPDATING BY MARKS
UPDATBIT = BIT7 # ALLOWED NOT ALLOWED
# BIT 6 FLAG 1 (S)
NOUPFLAG = 024D # NEITHER CSM EITHER STATE
# NOR LM STATE VECTOR VECTOR MAY BE
NOUPFBIT = BIT6 # MAY BE UPDATED UPDATED
# Page 68
# BIT 5 FLAG 1 (S)
TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED
TRACKBIT = BIT5
# BIT 4 FLAG 1
= 026D
= BIT4
# BIT 3 FLAG 1 (S)
SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULAR
# METHOD IN ITERATOR FALSI METHOD IN
SLOPEBIT = BIT3 # ITERATOR
# BIT 2 FLAG 1 (S)
GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR
GUESSBIT = BIT2 # FOR ITERATION ITERATION EXISTS
# BIT 1 FLAG 1
= 029D
= BIT1 # OH 2009-05-15 Scan does not have this line
FLAGWRD2 = STATE +2 # (030-044)
# (SET) (RESET)
# BIT 15 FLAG 2 (S)
DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO
DRFTBIT = BIT15 # COMPENSATION COMPENSATION
# BIT 14 FLAG 2 (S)
SRCHOPTN = 031D # RADAR IN AUTOMATIC RADAR NOT IN AUTO-
SRCHOBIT = BIT14 # SEARCH OPTION (R24) MATIC SEARCH OPTION
# BIT 13 FLAG 2 (S)
ACMODFLG = 032D # MANUAL ACQUISITION AUTO ACQUISITION
ACMODBIT = BIT13 # BY RENDEZVOUS RADAR BY RENDEZVOUS RADAR
# BIT 12 FLAG 2 (S)
LOSCMFLG = 033D # LINE OF SIGHT BEING LINE OF SIGHT NOT
# COMPUTED (R21) BEING COMPUTED
LOSCMBIT = BIT12
# Page 69
# BIT 11 FLAG 2 (S)
STEERSW = 034D # SUFFICIENT THRUST INSUFFICIENT THRUST
STEERBIT = BIT11 # IS PRESENT IS PRESENT
# BIT 10 FLAG 2 (S)
= 035D # OH 2009-05-15 These two line don't appear in scan
= BIT10
# BIT 9 FLAG 2 (S)
IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO
# BURN (CUTOFF TIME CUTOFF TIME YET
IMPULBIT = BIT9 # SPECIFIED) AVAILABLE)
# BIT 8 FLAG 2 (S)
XDELVFLG = 037D # EXTERNAL DELTAV VG LAMBERT (AIMPOINT)
XDELVBIT = BIT8 # COMPUTATION VG COMPUTATION
# BIT 7 FLAG 2 (S)
ETPIFLAG = 038D # ELEVATION ANGLE TPI TIME SUPPLIED
# SUPPLIED FOR FOR P34,74 TO COMPUTE
ETPIBIT = BIT7 # P34,74 ELEVATION
# BIT 7 FLAG 2 (L)
OPTNSW = ETPIFLAG # SOI PHASE OF P38/78 SOR PHASE OF P38/78
OPTNBIT = BIT7
# BIT 6 FLAG 2 (S)
FINALFLG = 039D # LAST PASS THROUGH INTERIM PASS THROUGH
# RENDEZVOUS PROGRAM RENDEZVOUS PROGRAM
FINALBIT = BIT6 # COMPUTATIONS COMPUTATIONS
# BIT 5 FLAG 2 (S)
AVFLAG = 040D # LEM IS ACTIVE CSM IS ACTIVE
AVFLBIT = BIT5 # VEHICLE VEHICLE
# BIT 4 FLAG 2 (S)
PFRATFLG = 041D # PREFERRED ATTITUDE PREFERRED ATTITUDE
PFRATBIT = BIT4 # COMPUTED NOT COMPUTED
# BIT 3 FLAG 2 (S)
# Page 70
CALCMAN3 = 042D # NO FINAL ROLL FINAL ROLL IS
CALC3BIT = BIT3 # NECESSARY
# BIT 2 FLAG 2 (S)
CALCMAN2 = 043D # PERFORM MANEUVER BYPASS STARTING
CALC2BIT = BIT2 # STARTING PROCEDURE PROCEDURE
# BIT 1 FLAG 2 (S)
NODOFLAG = 044D # V37 NOT PERMITTED V37 PERMITTED
NODOBIT = BIT1
FLAGWRD3 = STATE +3 # (045-059)
# (SET) (RESET)
# BIT 15 FLAG 3
= 045D #
= BIT15 # OH 2009-05-15 This line is not in scans
# BIT 14 FLAG 3 (S)
GLOKFAIL = 046D # GIMBAL LOCK HAS NOT IN GIMBAL LOCK
GLOKFBIT = BIT14 # OCCURRED
# BIT 13 FLAG 3 *** PROTECTED FROM FRESH START ***
REFSMFLG = 047D # REFSMMAT GOOD REFSMMAT NO GOOD
REFSMBIT = BIT13
# BIT 12 FLAG 3 (S)
LUNAFLAG = 048D # LUNAR LAT-LONG EARTH LAT-LONG
LUNABIT = BIT12
# BIT 11 FLAG 3 (L)
NOR29FLG = 049D # R29 NOT ALLOWED R29 ALLOWED (RR DES-
NR29FBIT = BIT11 # IGNATED POWERED FLT)
# BIT 10 FLAG 3 (S)
VFLAG = 050D # LESS THAN TWO STARS TWO STARS IN FIELD
VFLAGBIT = BIT10 # IN FIELD OF VIEW OF VIEW
# BIT 9 FLAG 3 (S)
R04FLAG = 051D # ALARM 521 ALARM 521 ALLOWED
# SUPPRESSED
# Page 71
R04FLBIT = BIT9
# BIT 9 FLAG 3 (L)
READRFLG = R04FLAG # READING RR DATA NOT READING RR DATA
READRBIT = BIT9 # PURSUANT TO R29 PURSUANT TO R29
# BIT 8 FLAG 3 (S)
PRECIFLG = 052D # NORMAL INTEGRATION ENGAGES 4-TIME STEP
# IN P00 (P00) LOGIC IN INTE-
PRECIBIT = BIT8 # GRATION
# BIT 7 FLAG 3 (S)
CULTFLAG = 053D # STAR OCCULTED STAR NOT OCCULTED
CULTBIT = BIT7
# BIT 6 FLAG 3 (S)
ORBWFLAG = 054D # W MATRIX VALID FOR W MATRIX INVALID FOR
ORBWFBIT = BIT6 # ORBITAL NAVIGATION ORBITAL NAVIGATION
# BIT 5 FLAG 3 (S)
STATEFLG = 055D # PERMANENT STATE PERMANENT STATE
STATEBIT = BIT5 # VECTOR UPDATED VECTOR NOT UPDATED
# BIT 4 FLAG 3 (S)
INTYPFLG = 056D # CONIC INTEGRATION ENCKE INTEGRATION
INTYPBIT = BIT4
# BIT 3 FLAG 3 (S)
VINTFLAG = 057D # CSM STATE VECTOR LEM STATE VECTOR
VINTFBIT = BIT3 # BEING INTEGRATED BEING INTEGRATED
# BIT 2 FLAG 3 (S)
D6OR9FLG = 058D # DIMENSION OF W IS 9 DIMENSION OF W IS 6
D6OR9BIT = BIT2 # FOR INTEGRATION FOR INTEGRATION
# BIT 1 FLAG 3 (S)
DIM0FLAG = 059D # W MATRIX IS TO BE W MATRIX IS NOT TO
DIM0BIT = BIT1 # USED USED
FLAGWRD4 = STATE +4 # (060-074)
# Page 72
# (SET) (RESET)
# BIT 15 FLAG 4 (S)
MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN
MRKIDBIT = BIT15 # ENDIDLE ENDIDLE
# BIT 14 FLAG 4 (S)
PRIODFLG = 061D # PRIORITY DISPLAY IN NO PRIORITY DISPLAY
PRIODBIT = BIT14 # ENDIDLE IN ENDIDLE
# BIT 13 FLAG 4 (S)
NRMIDFLG = 062D # NORMAL DISPLAY IN NO NORMAL DISPLAY
NRMIDBIT = BIT13 # ENDIDLE IN ENDIDLE
# BIT 12 FLAG 4 (S)
PDSPFLAG = 063D # P20 SETS SO AS TO LEAVE AS NORMAL DISP
# TURN A NORMAL DIS-
PDSPFBIT = BIT12 # PLAY INTO A PRIORITY
# DISPLAY IN R60
# BIT 11 FLAG 4 (S)
MWAITFLG = 064D # HIGHER PRIORITY NO HIGHER PRIORITY
# DISPLAY OPERATING DISPLAY OPERATING
MWAITBIT = BIT11 # WHEN MARK WHEN MARK DISPLAY
# DISPLAY INITIATED INITIATED
# BIT 10 FLAG 4 (S)
NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY
# DISPLAY OPERATING DISPLAY OPERATING
NWAITBIT = BIT10 # WHEN NORMAL WHEN NORMAL DISPLAY
# DISPLAY INITIATED INITIATED
# BIT 9 FLAG 4 (S)
MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN MARK KEYBOARD WHEN MARK
MRKNVBIT = BIT9 # DISPLAY INITIATED DISPLAY INITIATED
# BIT 8 FLAG 4 (S)
NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN KEYBOARD WHEN
NRMNVBIT = BIT8 # NORMAL DISPLAY NORMAL DISPLAY
# INITIATED INITIATED
# BIT 7 FLAG 4 (S)
PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
# Page 73
# KEYBOARD WHEN KEYBOARD WHEN
PRONVBIT = BIT7 # PRIORITY DISPLAY PRIORITY DISPLAY
# INITIATED INITIATED
# BIT 6 FLAG 4 (S)
PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT
# INTERFERED WITH INTERFERED WITH
PINBRBIT = BIT6 # EXISTING DISPLAY EXISTING DISPLAY
# BIT 5 FLAG 4 (S)
MRUPTFLG = 070D # MARK DISPLAY MARK DISPLAY NOT
# INTERRUPTED BY INTERRUPTED BY
MRUPTBIT = BIT5 # PRIORITY DISPLAY PRIORITY DISPLAY
# BIT 4 FLAG 4 (S)
NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT
# INTERRUPTED BY INTERRUPTED BY
NRUPTBIT = BIT4 # PRIORITY OR MARK PRIORITY OR MARK
# DISPLAY DISPLAY
# BIT 3 FLAG 4 (S)
MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER
MKOVBIT = BIT3 # NORMAL NORMAL
# BIT 2 FLAG 4
= 073D
= BIT2 # OH 2009-05-15 Not in scan.
# BIT 1 FLAG 4 (S)
XDSPFLAG = 074D # MARK DISPLAY NOT NO SPECIAL MARK
XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION
FLAGWRD5 = STATE +5 # (075-089)
# (SET) (RESET)
# BIT 15 FLAG 5 (S)
DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY
DSKYFBIT = BIT15 # DSKY
# BIT 14 FLAG 5
= 076D
= BIT14
# Page 74
# BIT 13 FLAG 5 (S,L)
SNUFFER = 077D # U,V JETS DISABLED U,V JETS ENABLED
# DURING DPS DURING DPS
SNUFFBIT = BIT13 # BURNS (V65) BURNS (V75)
# BIT 12 FLAG 5 (S)
NOTHROTL = 078D # INHIBIT FULL PERMIT FULL THROTTLE
NOTHRBIT = BIT12 # THROTTLE
# BIT 11 FLAG 5 (S,L)
R77FLAG = 079D # R77 IS ON, R77 IS NOT ON.
# SUPPRESS ALL RADAR
# ALARMS AND TRACKER
R77FLBIT = BIT11 # FAILS
# BIT 10 FLAG 5 (S)
RNGSCFLG = 080D # SCALE CHANGE HAS NO SCALE CHANGE HAS
# OCCURRED DURING OCCURRED DURING
RNGSCBIT = BIT10 # RR READING RR READING
# BIT 9 FLAG 5 (S)
DMENFLG = 081D # DIMENSION OF W IS 9 DIMENSION OF W IS 6
DMENFBIT = BIT9 # FOR INCORPORATION FOR INCORPORATION
# BIT 8 FLAG 5 (S)
= 082D
= BIT8
# BIT 7 FLAG 5 (S)
ENGONFLG = 083D # ENGINE TURNED ON ENGINE TURNED OFF
ENGONBIT = BIT7 #
# BIT 6 FLAG 5 (S)
3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED
# BY THREE AXES BY ONE AXIS; R60
3AXISBIT = BIT6 # CALLS VECPOINT.
# BIT 5 FLAG 5
= 085D
= BIT5 # OH 2009-05-15 Not in scan
# BIT 4 FLAG 5 (S)
# Page 75
NORRMON = 086D # BYPASS RR GIMBAL PERFORM
NORRMBIT = BIT4 # MONITOR RR GIMBAL MONITOR
# BIT 3 FLAG 5 (S)
SOLNSW = 087D # LAMBERT DOES NOT LAMBERT CONVERGES OR
# CONVERGE, OR TIME-RAD TIME-RADIUS NON-
SOLNSBIT = BIT3 # NEARLY CIRCULAR CIRCULAR
# BIT 2 FLAG 5 (S)
MGLVFLAG = 088D # LOCAL VERTICAL MIDDLE GIMBAL ANGLE
# COORDINATES COMPUTED
MGLVFBIT = BIT2 # COMPUTED
# BIT 1 FLAG 5 (S)
RENDWFLG = 089D # W MATRIX VALID W MATRIX INVALID
# FOR RENDEZVOUS FOR RENDEZVOUS
RENDWBIT = BIT1 # NAVIGATION NAVIGATION
FLAGWRD6 = STATE +6 # (090-104)
# (SET) (RESET)
# BIT 15 FLAG 6 (S)
S32.1F1 = 090D # DELTA V AT CSI TIME DVT1 LESS THAN MAX
S32BIT1 = BIT15 # ONE EXEEDS MAX
# BIT 14 FLAG 6 (S)
S32.1F2 = 091D # FIRST PASS OF REITERATION OF
S32BIT2 = BIT14 # NEWTON ITERATION NEWTON
# BIT 13 FLAG 6 (S)
S32.1F3A = 092D # BIT 13 AND BIT 12 FUNCTION AS AN ORDERED
S32BIT3A = BIT13 # PAIR (13,12) INDICATING THE POSSIBLE OC-
# CURRENCE OF 2 NEWTON ITERATIONS FOR S32.1
# IN THE PROGRAM IN THE FOLLOWING ORDER:
# BIT 12 FLAG 6 (S) # (0,1) (I.E. BIT 13 RESET, BIT 12 SET)
S32.1F3B = 093D # = FIRST NEWTON ITERATION BEING DONE
S32BIT3B = BIT12 # (0,0)= FIRST PASS OF SECOND NEWTON ITERATION
# (1,1)= 50 FT/SEC STAGE OF SECOND NEWTON ITERATION
# (1,0)= REMAINDER OF SECOND NEWTON ITERATION
# BIT 11 FLAG 6 (S)
= 094D #
= BIT11 #
# Page 76
# BIT 10 FLAG 6 (S)
GMBDRVSW = 095D # TRIMGIMB OVER TRIMGIMB NOT OVER
GMBDRBIT = BIT10 #
# BIT 9 FLAG 6
= 096D #
= BIT9 #
# BIT 8 FLAG 6 (S)
MUNFLAG = 097D # SERVICER CALLS SERVICER CALLS
MUNFLBIT = BIT8 # MUNRVG CALCRVG
# BIT 7 FLAG 6 (L)
= 098D #
= BIT7 #
# BIT 6 FLAG 6 (L)
REDFLAG = 099D # LANDING SITE LANDING SITE
# REDESIGNATION REDESIGNATION NOT
REDFLBIT = BIT6 # PERMITTED PERMITTED
# BIT 5 FLAG 6
= 100D #
= BIT5 # OH 2009-05-15 Not in scan
# BIT 4 FLAG 6
= 101D #
= BIT4 # OH 2009-05-15 Not in scan
# BIT 3 FLAG 6 (S)
NTARGFLG = 102D # ASTRONAUT DID ASTRONAUT DID NOT
# OVERWRITE DELTA OVERWRITE DELTA
NTARGBIT = BIT3 # VELOCITY AT TPI VELOCITY
# OR TPM (P34,35)
# BIT 2 FLAG 6
AUXFLAG = 103D # PROVIDING IDLEFLAG SERVICER WILL SKIP
AUXFLBIT = BIT2 # IS NOT SET, SERV- DVMON ON ITS NEXT
# ICER WILL EXERCISE PASS EVEN IF THE
# DVMON ON ITS NEXT IDLEFLAG IS NOT SET.
# PASS. IT WILL THEN SET
# AUXFLAG.
# BIT 1 FLAG 6 (L)
ATTFLAG = 104D # LEM ATTITUDE EXISTS NO LEM ATTITUDE
# IN MOON-FIXED AVAILABLE IN MOON-
# Page 77
ATTFLBIT = BIT1 # COORDINATES FIXED COORDINATES
FLAGWRD7 = STATE +7 # (105-119)
# (SET) (RESET)
# BIT 15 FLAG 7 (S)
ITSWICH = 105D # R34;TPI TIME TO BE TPI HAS BEEN
ITSWBIT = BIT15 # COMPUTED COMPUTED
# BIT 14 FLAG 7 (S)
MANUFLAG = 106D # ATTITUDE MANEUVER NO ATTITUDE MANEUVER
# GOING DURING RR DURING RR SEARCH
MANUFBIT = BIT14 # SEARCH
# BIT 13 FLAG 7 (S)
IGNFLAG = 107D # TIG HAS ARRIVED TIG HAS NOT ARRIVED
IGNFLBIT = BIT13 #
# BIT 12 FLAG 7 (S)
ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT
ASTNBIT = BIT12 # OKAYED IGNITION OKAYED IGNITION
# BIT 11 FLAG 7 (L)
SWANDISP = 109D # LANDING ANALOG LANDING ANALOG
SWANDBIT = BIT11 # DISPLAYS ENABLED DISPLAYS SUPPRESSED
# BIT 10 FLAG 7 (S)
NORMSW = 110D # UNIT NORMAL INPUT LAMBERT COMPUTES ITS
NORMSBIT = BIT10 # TO LAMBERT OWN UNIT NORMAL
# BIT 9 FLAG 7 (S)
RVSW = 111D # DO NOT COMPUTE COMPUTE FINAL STATE
# FINAL STATE VECTOR VECTOR IN TIME-THETA
RVSWBIT = BIT9 # IN TIME-DELTA
# BIT 8 FLAG 7 (S)
V67FLAG = 112D # ASTRONAUT OVERWRITE ASTRONAUT DOES NOT
# W-MATRIX INITIAL OVERWRITE W-MATRIX
V67FLBIT = BIT8 # VALUES INITIAL VALUES
# Page 78
# BIT 7 FLAG 7 (S)
IDLEFLAG = 113D # NO DV MONITOR CONNECT DV MONITOR
IDLEFBIT = BIT7 #
# BIT 6 FLAG 7 (S)
V37FLAG = 114D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
V37FLBIT = BIT6 # RUNNING OFF
# BIT 5 FLAG 7 (S)
AVEGFLAG = 115D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
AVEGFBIT = BIT5 # DESIRED NOT DESIRED
# BIT 4 FLAG 7 (S)
UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL
UPLOCBIT = BIT4 #
# BIT 3 FLAG 7 (S)
VERIFLAG = 117D # CHANGED WHEN V33E OCCURS AT END OF P27
VERIFBIT = BIT3 #
# BIT 2 FLAG 7 (L,C)
V82EMFLG = 118D # MOON VICINITY EARTH VICINITY
V82EMBIT = BIT2 #
# BIT 1 FLAG 7 (S)
TFFSW = 119D # CALCULATE TPERIGEE CALCULATE TFF
TFFSWBIT = BIT1 #
FLAGWRD8 = STATE +8D # (120-134)
# (SET) (RESET)
# BIT 15 FLAG 8 (S)
RPQFLAG = 120D # RPQ NOT COMPUTED RPQ COMPUTED
# (RPQ = VECTOR BE-
RPQFLBIT = BIT15 # TWEEN SECONDARY BODY
# AND PRIMARY BODY)
# BIT 14 FLAG 8
= 121D #
= BIT14 #
# Page 79
# BIT 13 FLAG 8 (S)
NEWIFLG = 122D # FIRST PASS THROUGH SUCCEEDING ITERATION
NEWIBIT = BIT13 # INTEGRATION OF INTEGRATION
# BIT 12 FLAG 8 *** PROTECTED FROM FRESH START ***
CMOONFLG = 123D # PERMANENT CSM STATE PERMANENT CSM STATE
CMOONBIT = BIT12 # IN LUNAR SPHERE IN EARTH SPHERE
# BIT 11 FLAG 8 *** PROTECTED FROM FRESH START ***
LMOONFLG = 124D # PERMANENT LM STATE PERMANENT LM STATE
LMOONBIT = BIT11 # IN LUNAR SPHERE IN EARTH SPHERE
# BIT 10 FLAG 8 (L)
FLUNDISP = 125D # CURRENT GUIDANCE CURRENT GUIDANCE
FLUNDBIT = BIT10 # DISPLAYS INHIBITED DISPLAYS PERMITTED
# BIT 9 FLAG 8 (L)
P39/79SW = 126D # P39/79 OPERATING P38/78 OPERATING
P39SWBIT = BIT9 #
# BIT 8 FLAG 8 *** PROTECTED FROM FRESH START ***
SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR
SURFFBIT = BIT8 # SURFACE
# BIT 7 FLAG 8 (S)
INFINFLG = 128D # NO CONIC SOLUTION CONIC SOLUTION
# (CLOSURE THROUGH EXISTS
INFINBIT = BIT7 # INFINITY REQUIRED)
# BIT 6 FLAG 8 (S)
ORDERSW = 129D # ITERATOR USES 2ND ITERATOR USES 1ST
ORDERBIT = BIT6 # ORDER MINIMUM MODE ORDER STANDARD MODE
# BIT 5 FLAG 8 (S)
APSESW = 130D # RDESIRED OUTSIDE RDESIRED INSIDE
# PERICENTER-APOCENTER PERICENTER-APOCENTER
APSESBIT = BIT5 # RANGE IN TIME-RADIUS RANGE IN TIME-RADIUS
# BIT 4 FLAG 8 (S)
COGAFLAG = 131D # NO CONIC SOLUTION -- CONIC SOLUTION
# TOO CLOSE TO RECTI- EXISTS (COGA DOES NOT
# Page 80
COGAFBIT = BIT4 # LINEAR (COGA OVERFLWS) OVERFLOW)
# BIT 3 FLAG 8 (S)
= 132D #
= BIT3 # OH 2009-05-15 Line not in scan
# BIT 2 FLAG 8 (L)
INITALGN = 133D # INITIAL PASS THRU SECOND PASS THRU P57
INITABIT = BIT2 # P57 (CHECK RESET-MILLARD)
# BIT 1 FLAG 8 (S)
360SW = 134D # TRANSFER ANGLE NEAR TRANSFER ANGLE NOT
360SWBIT = BIT1 # 360 DEGREES NEAR 360 DEGREES
FLAGWRD9 = STATE +9D # (135-149)
# (SET) (RESET)
# BIT 15 FLAG 9
= 135D #
= BIT15 #
# BIT 14 FLAG 9 (L)
FLVR = 136D # VERTICAL RISE NON-VERTICAL RISE
FLVRBIT = BIT14 # (ASCENT GUIDANCE)
# BIT 13 FLAG 9
= 137D #
= BIT13 # OH 2009-05-15 Line not in scan
# BIT 12 FLAG 9 (L)
FLPC = 138D # NO POSITION CONTROL POSITION CONTROL
FLPCBIT = BIT12 # (ASCENT GUIDANCE)
# BIT 11 FLAG 9 (L)
FLPI = 139D # PRE-IGNITION PHASE REGULAR GUIDANCE
FLPIBIT = BIT11 # (ASCENT GUIDANCE)
# BIT 10 FLAG 9 (L)
FLRCS = 140D # RCS INJECTION MODE MAIN ENGINE MODE
FLRCSBIT = BIT10 # (ASCENT GUIDANCE)
# BIT 9 FLAG 9 (L)
# Page 81
LETABORT = 141D # ABORT PROGRAMS ABORT PROGRAMS
LETABBIT = BIT9 # ARE ENABLED ARE NOT ENABLED
# BIT 8 FLAG 9 (L)
FLAP = 142D # APS CONTINUED ABORT APS ABORT IS NOT A
# AFTER DPS STAGING CONTINUATION
FLAPBIT = BIT8 # (ASCENT GUIDANCE)
# BIT 7 FLAG 9 (L)
= 143D
= BIT7 # OH 2009-05-15 Line not in scan
# BIT 6 FLAG 9 (L)
ROTFLAG = 144D # P70 AND P71 WILL P70 AND P71 WILL NOT
ROTFLBIT = BIT6 # FORCE VEHICLE FORCE VEHICLE
# ROTATION IN THE ROTATION IN THE
# PREFERRED DIRECTION PREFERRED DIRECTION
# BIT 5 FLAG 9 (S)
QUITFLAG = 145D # DISCONTINUE INTEGR. CONTINUE INTEGRATION
QUITBIT = BIT5 #
# BIT 4 FLAG 9
= 146D #
= BIT4 #
# BIT 3 FLAG 9 (L)
MID1FLAG = 147D # INTEGRAT TO TDEC INTEGRATE TO THE
MID1FBIT = BIT3 # THEN-PRESENT TIME
# BIT 2 FLAG 9 (L)
MIDAVFLG = 148D # INTEGRATION ENTERED INTEGRATION WAS
# FROM ONE OF MIDTOAV NOT ENTERED VIA
MIDAVBIT = BIT2 # PORTALS MIDTOAV
# BIT 1 FLAG 9 (S)
AVEMIDSW = 149D # AVETOMID CALLING NO AVETOMID W INTEGR
# FOR W.MATRIX INTEGR ALLOW SET UP RM, VN
AVEMDBIT = BIT1 # DON'T WRITE OVER RN, PIPTIME
# VN,PIPTIME
RASFLAG EQUALS FLGWRD10 # WAS ONLY AN INSTALL-ERASTALL FLAG
# Page 82
FLGWRD10 = STATE +10D # (150-164)
# (SET) (RESET)
# BIT 15 FLAG 10 (S)
= 150D #
= BIT15 # OH 2009-05-15 Line not in scan
# BIT 14 FLAG 10 (L,C)
INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN
INTFLBIT = BIT14 # PROGRESS PROGRESS
# BIT 13 FLAG 10 (S,L)
APSFLAG = 152D # ASCENT STAGE DESCENT STAGE
APSFLBIT = BIT13 # *** PROTECTED FROM FRESH START ***
# BIT 12 FLAG 10
= 153D #
= BIT12 # OH 2009-05-15 Line not in scan
# BIT 11 FLAG 10
= 154D #