forked from virtualagc/virtualagc
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathPINBALL_NOUN_TABLES.agc
897 lines (851 loc) · 69.1 KB
/
PINBALL_NOUN_TABLES.agc
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
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: PINBALL_NOUN_TABLES.agc
## Purpose: A section of Luminary revision 116.
## It is part of the source code for the Lunar Module's (LM)
## Apollo Guidance Computer (AGC) for Apollo 12.
## This file is intended to be a faithful transcription, except
## that the code format has been changed to conform to the
## requirements of the yaYUL assembler rather than the
## original YUL assembler.
## Reference: pp. 302-320
## Assembler: yaYUL
## Contact: Ron Burkey <[email protected]>.
## Website: www.ibiblio.org/apollo/index.html
## Mod history: 2017-01-22 MAS Created from Luminary 99.
## 2017-01-28 RSB WTIH -> WITH.
## 2017-03-07 RSB Transcribed, and then proofed comment-text using
## 3-way diff vs Luminary 99 and Luminary 131.
## (Admittedly, the former is more for detecting errors
## in Luminary 99 than the other way around.)
## 2017-03-09 fix ECADR 0 --> OCT 0
## OCT --> ECADR
## Page 302
# THE FOLLOWING REFERS TO THE NOUN TABLES
# COMPONENT CODE NUMBER INTERPRETATION
# 00000 1 COMPONENT
# 00001 2 COMPONENT
# 00010 3 COMPONENT
# X1XXX BIT 4 = 1. DECIMAL ONLY
# 1XXXX BIT 5 = 1. NO LOAD
# END OF COMPONENT CODE NUMBERS
# SF ROUTINE CODE NUMBER INTERPRETATION
# 00000 OCTAL ONLY
# 00001 STRAIGHT FRACTIONAL
# 00010 CDU DEGREES (XXX.XX)
# 00011 ARITHMETIC SF
# 00100 ARITH DP1 OUT(MULT BY 2EXP14 AT END) IN (STRAIGHT)
# 00101 ARITH DP2 OUT(STRAIGHT) IN (SL 7 AT END)
# 00110 LANDING RADAR POSITION (+0000X)
# 00111 ARITH DP3 OUT ( SL 7 AT END) IN (STRAIGHT)
# 01000 WHOLE HOURS IN R1, WHOLE MINUTES (MOD 60) IN R2,
# SECONDS (MOD 60) 0XX.XX IN R3. *** ALARMS IF USED WITH OCTAL
# 01001 MINUTES (MOD 60) IN D1D2, D3 BLANK, SECONDS (MOD 60) IN D4D5
# LIMITS TO 59B59 IF MAG EXCEEDS THIS VALUE.
# ALARMS IF USED WITH OCTAL ******** IN (ALARM)
# 01010 ARITH DP4 OUT (STRAIGHT) IN (SL 3 AT END)
# 01011 ARITH1 SF OUT (MULT BY 2EXP14 AT END) IN(STRAIGHT)
# 01100 2 INTEGERS IN D1D2, D4D5, D3 BLANK.
# ALARMS IF USED WITH OCTAL ******** IN (ALARM)
# 01101 360-CDU DEGREES (XXX.XX)
# 01110 RR RANGE 15 BIT MAG TO DP, THEN SCALE ******* IN (ALARM)
# 01111 RR RANGE RATE 15 BIT MAG TO DP, THEN SCALE ******* IN (ALARM)
# END OF SF ROUTINE CODE NUMBERS
# SF CONSTANT CODE NUMBER INTERPRETATION
# 00000 WHOLE USE ARITH
# 00000 DP TIME SEC (XXX.XX SEC) USE ARITHDP1
# 00000 LR POSITION (+0000X) USE LR POSITION
# 00001 SPARE
# 00010 CDU DEGREES USE CDU DEGREES
# 00010 360-CDU DEGREES USE 360-CDU DEGREES
# 00011 DP DEGREES (90) XX.XXX DEG USE ARITHDP3
# 00100 DP DEGREES (360) XXX.XX DEG USE ARITHDP4
# 00101 DEGREES (180) XXX.XX DEG USE ARITH
# 00101 OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
## Page 303
# USE ARITHDP1
# 00110 WEIGHT2 (XXXXX. LBS) USE ARITH1
# 00111 POSITION5 (XXX.XX NAUTICAL MILES)
# USE ARITHDP3
# 01000 POSITION4 (XXXX.X NAUTICAL MILES)
# USE ARITHDP3
# 01001 VELOCITY2 (XXXXX. FT/SEC) USE ARITHDP4
# 01010 VELOCITY3 (XXXX.X FT/SEC) USE ARITHDP3
# 01011 ELEVATION DEGREES (89.999 MAX) USE ARITH
# 01100 RENDEZVOUS RADAR RANGE (XXX.XX NAUT MI)
# USE RR RANGE
# 01101 RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
# USE RR RANGE RATE
# 01110 LANDING RADAR ALTITUDE (XXXXX.FEET)
# USE ARITHDP1
# 01111 INITIAL/FINAL ALTITUDE (XXXXX. FEET)
# USE ARITHDP1
# 10000 ALTITUDE RATE (XXXXX.FT/SEC) USE ARITH
# 10001 FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
# USE ARITH
# 10010 ROTATIONAL HAND CONTROLLER ANGLE RATES
# XXXXX.DEG/SEC USE ARITH
# 10011 LANDING RADAR VELX(XXXXX.FEET/SEC)
# USE ARITHDP1
# 10100 LANDING RADAR VELY(XXXXX.FEET/SEC)
# USE ARITHDP1
# 10101 LANDING RADAR VELZ(XXXXX.FEET/SEC)
# USE ARITHDP1
# 10110 POSITION7 (XXXX.X NAUT MI) USE ARITHDP4
# 10111 TRIM DEGREES2 (XXX.XX DEG) USE ARITH
# 11000 COMPUTED ALTITUDE (XXXXX. FEET)
# USE ARITHDP1
# 11001 DP DEGREES (XXXX.X DEG) USE ARITHDP3
# 11010 POSITION9 (XXXXX. FT) USE ARITHDP3
# 11011 VELOCITY4 (XXXX.X FT/SEC) USE ARITHDP2
# 11100 RADIANS (XX.XXX RADIANS) USE ARITHDP4
# END OF SF CONSTANT CODE NUMBERS
# FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
# NOUN TABLES.
# OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
# OCTAL DISPLAYS SHOW MINOR PART ONLY.
# TO GET AT BOTH MAJOR AND MINOR PARTS(IN OCTAL), USE NOUN 01.
# A NOUN MAY BE DECLARED :DECIMAL ONLY: BY MAKING BIT4=1 OF ITS COMPONENT
# CODE NUMBER. IF THIS NOUN IS USED WITH ANY OCTAL DISPLAY VERB, OR IF
# DATA IS LOADED IN OCTAL, IT ALARMS.
## Page 304
# IN LOADING AN :HOURS, MINUTES, SECONDS: NOUN, ALL 3 WORDS MUST BE
# LOADED, OR ALARM.
# ALARM IF AN ATTEMPT IS MADE TO LOAD :SPLIT MINUTES/SECONDS: (MMBSS).
# THIS IS USED FOR DISPLAY ONLY.
## Page 305
# THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
# (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
# ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
# LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
# NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDADITEM IS LOADED WITH THE FIRST
# IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
# IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
# MIXED OR NORMAL NOUN.
BANK 6
SETLOC PINBALL3
BANK
COUNT* $$/NOUNS
LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
INDEX NOUNREG
CAF NNADTAB
TS NNADTEM
INDEX NOUNREG
CAF NNTYPTAB
TS NNTYPTEM
CS NOUNREG
AD MIXCON
EXTEND
BZMF LODMIXNN # NOUN NUMBER G/E FIRST MIXED NOUN
CAF ONE # NOUN NUMBER L/ FIRST MIXED NOUN
TS MIXBR # NORMAL. +1 INTO MIXBR.
TC LODNLV
LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
TS MIXBR
INDEX NOUNREG
CAF RUTMXTAB -40D # FIRST MIXED NOUN = 40.
TS RUTMXTEM
CAF LOW10
MASK NNADTEM
TS Q # TEMP
INDEX A
CAF IDADDTAB
TS IDAD1TEM # LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
EXTEND
INDEX Q # LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
DXCH Z
MIXCON = OCT50 # (DEC 40)
# GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
## Page 306
EXTEND
INDEX A
DCA SFOUTAB
SFCOM DXCH SFTEMP1
DXCH Z
# GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
EXTEND
INDEX A
DCA SFINTAB
TCF SFCOM
# NN NORMAL NOUNS
NNADTAB OCT 00000 # 00 NOT IN USE
OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
ECADR DSPTEM1 # 04 ANGULAR ERROR/DIFFERENCE
ECADR DSPTEM1 # 05 ANGULAR ERROR/DIFFERENCE
ECADR OPTION1 # 06 OPTION CODE
ECADR XREG # 07 ECADR OF WORD TO BE MODIFIED
# ONES FOR BITS TO BE MODIFIED
# 1 TO SET OR 0 TO RESET SELECTED BITS
ECADR ALMCADR # 08 ALARM DATA
ECADR FAILREG # 09 ALARM CODES
OCT 77776 # 10 CHANNEL TO BE SPECIFIED
ECADR TCSI # 11 TIG OF CSI (HRS,MIN,SEC)
ECADR OPTIONX # 12 OPTION CODE
# (USED BY EXTENDED VERBS ONLY)
ECADR TCDH # 13 TIG OF CDH (HRS,MIN,SEC)
ECADR DSPTEMX # 14 CHECKLIST
# (USED BY EXTENDED VERBS ONLY)
OCT 77777 # 15 INCREMENT MACHINE ADDRESS
ECADR DSPTEMX # 16 TIME OF EVENT (HRS,MIN,SEC)
OCT 00000 # 17 SPARE
ECADR FDAIX # 18 AUTO MANEUVER BALL ANGLES
OCT 00000 # 19 SPARE
ECADR CDUX # 20 ICDU ANGLES
ECADR PIPAX # 21 PIPAS
ECADR THETAD # 22 NEW ICDU ANGLES
OCT 00000 # 23 SPARE
ECADR DSPTEM2 +1 # 24 DELTA TIME FOR AGC CLOCK(HRS,MIN,SEC)
ECADR DSPTEM1 # 25 CHECKLIST
# (USED WITH PLEASE PERFORM ONLY)
ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON
ECADR SMODE # 27 SELF TEST ON/OFF SWITCH
## Page 307
OCT 00000 # 28 SPARE
OCT 00000 # 29 SPARE
OCT 0 # 30 SPARE
OCT 0 # 31 SPARE
ECADR -TPER # 32 TIME TO PERIGEE (HRS,MIN,SEC)
ECADR TIG # 33 TIME OF IGNITION (HRS,MIN(SEC)
ECADR DSPTEM1 # 34 TIME OF EVENT (HRS,MIN,SEC)
ECADR TTOGO # 35 TIME TO GO TO EVENT (HRS,MIN,SEC)
ECADR TIME2 # 36 TIME OF AGC CLOCK (HRS,MIN,SEC)
ECADR TTPI # 37 TIG OF TPI (HRS,MIN,SEC)
ECADR TET # 38 TIME OF STATE BEING INTEGRATED
OCT 00000 # 39 SPARE
# END OF NNADTAB FOR NORMAL NOUNS
# NN MIXED NOUNS
OCT 64000 # 40 TIME TO IGNITION/CUTOFF
# VG
# DELTA V (ACCUMULATED)
OCT 02003 # 41 TARGET AZIMUTH
# ELEVATION
OCT 24006 # 42 APOGEE
# PERIGEE
# DELTA V (REQUIRED)
OCT 24011 # 43 LATITUDE
# LONGITUDE
# ALTITUDE
OCT 64014 # 44 APOGEE
# PERIGEE
# TFF
OCT 64017 # 45 MARKS
# TTI OF NEXT BURN
# MGA
OCT 00022 # 46 AUTOPILOT CONFIGURATION
OCT 22025 # 47 LEM WEIGHT
# CSM WEIGHT
OCT 22030 # 48 GIMBAL PITCH TRIM
# GIMBAL ROLL TRIM
OCT 24033 # 49 DELTA R
# DELTA V
# RADAR DATA SOURCE CODE
OCT 0 # 50 SPARE
OCT 22041 # 51 S-BAND ANTENNA PITCH
# YAW
OCT 00044 # 52 CENTRAL ANGLE OF ACTIVE VEHICLE
OCT 00000 # 53 SPARE
OCT 24052 # 54 RANGE
# RANGE RATE
# THETA
OCT 24055 # 55 NO. OF APSIDAL CROSSINGS
## Page 308
# ELEVATION ANGLE
# CENTRAL ANGLE
OCT 02060 # 56 RR LOS AZIMUTH
# ELEVATION
OCT 00000 # 57 SPARE
OCT 24066 # 58 PERIGEE ALT
# DELTA V TPI
# DELTA V TPF
OCT 24071 # 59 DELTA VELOCITY LOS
OCT 24074 # 60 HORIZONTAL VELOCITY
# ALTITUDE RATE
# COMPUTED ALTITUDE
OCT 64077 # 61 TIME TO GO IN BRAKING PHASE
# TIME TO IGNITION
# CROSS RANGE DISTANCE
OCT 64102 # 62 ABSOLUTE VALUE OF VELOCITY
# TIME TO IGNITION
# DELTA V (ACCUMULATED)
OCT 24105 # 63 ABSOLUTE VALUE OF VELOCITY
# ALTITUDE RATE
# COMPUTED ALTITUDE
OCT 64110 # 64 TIME LEFT FOR REDESIGNATION-LPD ANGLE
# ALTITUDE RATE
# COMPUTED ALTITUDE
OCT 24113 # 65 SAMPLED AGC TIME (HRS,MIN,SEC)
# (FETCHED IN INTERRUPT)
OCT 62116 # 66 LR RANGE
# POSITION
OCT 04121 # 67 LRVX
# LRVY
# LRVZ
OCT 64124 # 68 SLANT RANGE TO LANDING SIGHT
# TIME TO GO IN BRAKING PHASE
# LR ALTITUDE - COMPUTED ALTITUDE
OCT 24127 # 69 LANDING SITE CORRECTION, Z-COMPONENT
# LANDING SITE CORRECTION, Y-COMPONENT
# LANDING SITE CORRECTION, X-COMPONENT
OCT 04132 # 70 AOT DETENT CODE/STAR CODE
OCT 04135 # 71 AOT DETENT CODE/STAR CODE
OCT 02140 # 72 RR 360 - TRUNNION ANGLE
# SHAFT ANGLE
OCT 02143 # 73 NEW RR 360 - TRUNNION ANGLE
# SHAFT ANGLE
OCT 64146 # 74 TIME TO IGNITION
# YAWAFTER VEHICLE RISE
# PITCH AFTER VEHICLE RISE
OCT 64151 # 75 DELTA ALTITUDE CDH
# DELTA TIME (CDH-CSI OR TPI-CDH)
# DELTA TIME (TPI-CDH OR TPI-NOMTPI)
OCT 24154 # 76 DESIRED HORIZONTAL VELOCITY
## Page 309
# DESIRED RADIAL VELOCITY
# CROSS-RANGE DISTANCE
OCT 62157 # 77 TIME TO ENGINE CUTOFF
# VELOCITY NORMAL TO CSM PLANE
OCT 64162 # 78 RR RANGE
# RANGE RATE
# TIME FROM IGNITION
OCT 24165 # 79 CURSOR ANGLE
# SPIRAL ANGLE
# POSITION CODE
OCT 02170 # 80 DATA INDICATOR
# OMEGA
OCT 24173 # 81 DELTA V (LV)
OCT 24176 # 82 DELTA V (LV)
OCT 24201 # 83 DELTA V (BODY)
OCT 24204 # 84 DELTA V (OTHER VEHICLE)
OCT 24207 # 85 VG (BODY)
OCT 24212 # 86 VG (LV)
OCT 02215 # 87 BACKUP OPTICS LOS AZIMUTH
# ELEVATION
OCT 24220 # 88 HALF UNIT SUN OR PLANET VECTOR
OCT 24223 # 89 LANDMARK LATITUDE
# LONGITUDE/2
# ALTITUDE
OCT 24226 # 90 Y
# Y DOT
# PSI
OCT 04231 # 91 ALTITUDE
# VELOCITY
# FLIGHT PATH ANGLE
OCT 00000 # 92 SPARE
OCT 04237 # 93 DELTA GYRO ANGLES
OCT 00000 # 94 SPARE
OCT 0 # 95 SPARE
OCT 0 # 96 SPARE
OCT 04253 # 97 SYSTEM TEST INPUTS
OCT 04256 # 98 SYSTEM TEST RESULTS
OCT 24261 # 99 RMS IN POSITION
# RMS IN VELOCITY
# RMS IN BIAS
# END OF NNADTAB FOR MIXED NOUNS
# NN NORMAL NOUNS
NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 04040 # 01 3COMP FRACTIONAL
OCT 04140 # 02 3COMP WHOLE
OCT 04102 # 03 3COMP CDU DEGREES
OCT 00504 # 04 1COMP DPDEG(360)
OCT 00504 # 05 1COMP DPDEG(360)
## Page 310
OCT 04000 # 06 3COMP OCTAL ONLY
OCT 04000 # 07 3COMP OCTAL ONLY
OCT 04000 # 08 3COMP OCTAL ONLY
OCT 04000 # 09 3COMP OCTAL ONLY
OCT 00000 # 10 1COMP OCTAL ONLY
OCT 24400 # 11 3COMP HMS (DEC ONLY)
OCT 02000 # 12 2COMP OCTAL ONLY
OCT 24400 # 13 3COMP HMS (DEC ONLY)
OCT 04140 # 14 3COMP WHOLE
OCT 00000 # 15 1COMP OCTAL ONLY
OCT 24400 # 16 3COMP HMS (DEC ONLY)
OCT 0 # 17 SPARE
OCT 04102 # 18 3COMP CDU DEG
OCT 00000 # 19 SPARE
OCT 04102 # 20 3COMP CDU DEGREES
OCT 04140 # 21 3COMP WHOLE
OCT 04102 # 22 3COMP CDU DEGREES
OCT 00000 # 23 SPARE
OCT 24400 # 24 3COMP HMS (DEC ONLY)
OCT 04140 # 25 3COMP WHOLE
OCT 04000 # 26 3COMP OCTAL ONLY
OCT 00140 # 27 1COMP WHOLE
OCT 00000 # 28 SPARE
OCT 00000 # 29 SPARE
OCT 0 # 30 SPARE
OCT 0 # 31 SPARE
OCT 24400 # 32 3COMP HMS (DEC ONLY)
OCT 24400 # 33 3COMP HMS (DEC ONLY)
OCT 24400 # 34 3COMP HMS (DEC ONLY)
OCT 24400 # 35 3COMP HMS (DEC ONLY)
OCT 24400 # 36 3COMP HMS (DEC ONLY)
OCT 24400 # 37 3COMP HMS (DEC ONLY)
OCT 24400 # 38 3COMP HMS (DEC ONLY)
OCT 00000 # 39 SPARE
# END OF NNTYPTAB FOR NORMAL NOUNS
# NN MIXED NOUNS
OCT 24500 # 40 3COMP MIN/SEC, VEL3, VEL3
# (NO LOAD, DEC ONLY)
OCT 00542 # 41 2COMP CDU DEG, ELEV DEG
OCT 24410 # 42 3COMP POS4, POS4, VEL3
# (DEC ONLY)
OCT 20204 # 43 3COMP DPDEG(360), DPDEG(360), POS4
# (DEC ONLY)
OCT 00410 # 44 3COMP POS4, POS4, MIN/SEC
# (NO LOAD, DEC ONLY)
OCT 10000 # 45 3COMP WHOLE, MIN/SEC, DPDEG(360)
# (NO LOAD, DEC ONLY)
OCT 00000 # 46 1COMP OCTAL ONLY
## Page 311
OCT 00306 # 47 2COMP WEIGHT2 FOR EACH
# (DEC ONLY)
OCT 01367 # 48 2COMP TRIM DEG2 FOR EACH
# (DEC ONLY)
OCT 00510 # 49 3COMP POS4, VEL3, WHOLE
# (DEC ONLY)
OCT 0 # 50 SPARE
OCT 00204 # 51 2COMP DPDEG(360), DPDEG(360)
# (DEC ONLY)
OCT 00004 # 52 1COMP DPDEG(360)
OCT 00000 # 53 SPARE
OCT 10507 # 54 3COMP POS5, VEL3, DPDEG(360)
# (DEC ONLY)
OCT 10200 # 55 3COMP WHOLE, DPDEG(360), DPDEG(360)
# (DEC ONLY)
OCT 00204 # 56 2COMP DPDEG(360), DPDEG(360)
OCT 00000 # 57 SPARE
# (DEC ONLY)
OCT 24510 # 58 3COMP POS4, VEL3, VEL3
# (DEC ONLY)
OCT 24512 # 59 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 60512 # 60 3COMP VEL3, VEL3, COMP ALT
# (DEC ONLY)
OCT 54000 # 61 3COMP MIN/SEC, MIN/SEC, POS7
# (NO LOAD, DEC ONLY)
OCT 24012 # 62 3COMP VEL3, MIN/SEC, VEL3
# (NO LOAD, DEC ONLY)
OCT 60512 # 63 3COMP VEL3, VEL3, COMP ALT
# (DEC ONLY)
OCT 60500 # 64 3COMP 2INT, VEL3, COMP ALT
# (NO LOAD, DEC ONLY)
OCT 00000 # 65 3COMP HMS (DEC ONLY)
OCT 00016 # 66 2COMP LANDING RADAR ALT, POSITION
# (NO LOAD, DEC ONLY)
OCT 53223 # 67 3COMP LANDING RADAR VELX, Y, Z
OCT 60026 # 68 3COMP POS7, MIN/SEC, COMP ALT
# (NO LOAD, DEC ONLY)
OCT 61430 # 69 3COMP COMP ALT, COMP ALT, COMP ALT
# (DEC ONLY)
OCT 0 # 70 3COMP OCTAL ONLY FOR EACH
OCT 0 # 71 3COMP OCTAL ONLY FOR EACH
OCT 00102 # 72 2COMP 360-CDU DEG, CDU DEG
OCT 00102 # 73 2COMP 360-CDU DEG, CDU DEG
OCT 10200 # 74 3COMP MIN/SEC, DPDEG(360), DPDEG(360)
# (NO LOAD, DEC ONLY)
OCT 00010 # 75 3COMP POS4, MIN/SEC, MIN/SEC
# (NO LOAD, DEC ONLY)
OCT 20512 # 76 3COMP VEL3, VEL3, POS4
# (DEC ONLY)
## Page 312
OCT 00500 # 77 2COMP MIN/SEC, VEL3
# (NO LOAD, DEC ONLY)
OCT 00654 # 78 3COMP RR RANGE, RR RANGE RATE, M/S
# (NO LOAD, DEC ONLY)
OCT 00102 # 79 3COMP CDU DEG, CDU DEG, WHOLE
# (DEC ONLY)
OCT 00200 # 80 2COMP WHOLE, DPDEG(360)
OCT 24512 # 81 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 24512 # 82 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 24512 # 83 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 24512 # 84 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 24512 # 85 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 24512 # 86 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 00102 # 87 2COMP CDU DEG FOR EACH
OCT 0 # 88 3COMP FRAC FOR EACH
# (DEC ONLY)
OCT 16143 # 89 3COMP DPDEG(90), DPDEG(90), POS5
# (DEC ONLY)
OCT 10507 # 90 3COMP POS5, VEL3, DPDEG(360)
# (DEC ONLY)
OCT 10450 # 91 3COMP POS4, VEL2, DPDEG(360)
OCT 00000 # 92 SPARE
OCT 06143 # 93 3COMP DPDEG(90) FOR EACH
OCT 00000 # 94 SPARE
OCT 0 # 95 SPARE
OCT 0 # 96 SPARE
OCT 00000 # 97 3COMP WHOLE FOR EACH
OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE
OCT 71572 # 99 3COMP POS9, VEL4, RADIANS
# (DEC ONLY)
# END OF NNTYPTAB FOR MIXED NOUNS
SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 03240
OCT 00000 # SPARE
OCT 00000
OCT 00000 # CDU DEGREES, 360-CDU DEGREES
OCT 00000 # (SFCONS IN DEGINSF)
OCT 10707 # DP DEGREES (90)
OCT 03435 # UPPED BY 1
OCT 13070 # DP DEGREES (360)(POINT BETWN BITS 11-12)
OCT 34345 # UPPED BY 1
OCT 00005 # DEGREES (180)
## Page 313
OCT 21616
OCT 26113 # WEIGHT2
OCT 31713
OCT 00070 # POSITION5
OCT 20460
OCT 01065 # POSITION4
OCT 05740
OCT 11414 # VELOCITY2 (POINT BETWN BITS 11-12)
OCT 31463
OCT 07475 # VELOCITY3
OCT 16051
OCT 00001 # ELEVATION DEGREES
OCT 03434
OCT 00047 # RENDEZVOUS RADAR RANGE
OCT 21135
OCT 77766 # RENDEZVOUS RADAR RANGE RATE
OCT 50711
2DEC* .9267840599 E5 B-28* # LANDING RADAR ALTITUDE
OCT 00002 # INITIAL/FINAL ALTITUDE
OCT 23224
OCT 00014 # ALTITUDE RATE
OCT 06500
OCT 00012 # FORWARD/LATERAL VELOCITY
OCT 36455
OCT 04256 # ROT HAND CONT ANGLE RATE
OCT 07071
2DEC* -1.552795030 E5 B-28* # LANDING RADAR VELX
2DEC* .8250825087 E5 B-28* # LANDING RADAR VELY
2DEC* 1.153668673 E5 B-28* # LANDING RADAR VELZ
OCT 04324 # POSITION7
OCT 27600
OCT 00036 # TRIM DEGREES2
OCT 20440
OCT 00035 # COMPUTED ALTITUDE
OCT 30400
OCT 23420 # DP DEGREES
OCT 00000
2DEC 30480 B-19 # POSITION 9
2DEC 30.48 B-7 # VELOCITY4
2DEC 100 B-8 # RADIANS
# END OF SFINTAB
## Page 314
SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 13261
OCT 00000 # SPARE
OCT 00000
OCT 00000 # CDU DEGREES, 360-CDU DEGREES
OCT 00000 # (SFCONS IN DEGOUTSF, 360-CDUD)
OCT 00714 # DP DEGREES (90) (POINT BETWN BITS 7-8)
OCT 31463
OCT 13412 # DP DEGREES (360)
OCT 07534
OCT 05605 # DEGREES (180)
OCT 03656
OCT 00001 # WEIGHT2
OCT 16170
OCT 00441 # POSITION5
OCT 34306
OCT 07176 # POSITION4 (POINT BETWN BITS 7-8)
OCT 21603
OCT 15340 # VELOCITY2
OCT 15340
OCT 01031 # VELOCITY3 (POINT BETWN BITS 7-8)
OCT 21032
OCT 34631 # ELEVATION DEGREES
OCT 23146
OCT 00636 # RENDEZVOUS RADAR RANGE
OCT 14552
OCT 74552 # RENDEZVOUS RADAR RANGE RATE
OCT 70307
2DEC 1.079 E-5 B14 # LANDING RADAR ALTITUDE
OCT 14226 # INITIAL/FINAL ALTITUDE
OCT 31757
OCT 02476 # ALTITUDE RATE
OCT 05531
OCT 02727 # FORWARD/LATERAL VELOCITY
OCT 16415
OCT 00007 # ROT HAND CONT ANGLE RATE
OCT 13734
2DEC -.6440 E-5 B14 # LANDING RADAR VELX
2DEC 1.212 E-5 B14 # LANDING RADAR VELY
2DEC .8668 E-5 B14 # LANDING RADAR VELZ
OCT 34772 # POSITION7
OCT 07016
OCT 01030 # TRIM DEGREES2
OCT 33675
OCT 01046 # COMPUTED ALTITUDE
OCT 15700
## Page 315
OCT 00321 # DP DEGREES
OCT 26706
2DEC 17.2010499 B-7 # POSITION 9
2DEC .032808399 # VELOCITY4
2DEC .32 # RADIANS
# END OF SFOUTAB
# NN SF CONSTANT SF ROUTINE
IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR VGDISP # 40 VEL3 DP3
ECADR DVTOTAL # 40 VEL3 DP3
ECADR DSPTEM1 # 41 CDU DEG CDU
ECADR DSPTEM1 +1 # 41 ELEV DEG ARTH
OCT 0 # 41 SPARE COMPONENT
ECADR HAPO # 42 POS4 DP3
ECADR HPER # 42 POS4 DP3
ECADR VGDISP # 42 VEL3 DP3
ECADR LAT # 43 DPDEG(360) DP4
ECADR LONG # 43 DPDEG(360) DP4
ECADR ALT # 43 POS4 DP3
ECADR HAPOX # 44 POS4 DP3
ECADR HPERX # 44 POS4 DP3
ECADR TFF # 44 MIN/SEC M/S
ECADR TRKMKCNT # 45 WHOLE ARTH
ECADR TTOGO # 45 MIN/SEC M/S
ECADR +MGA # 45 DPDEG(360) DP4
ECADR DAPDATR1 # 46 OCTAL ONLY OCT
OCT 0 # 46 SPARE COMPONENT
OCT 0 # 46 SPARE COMPONENT
ECADR LEMMASS # 47 WEIGHT2 ARTH1
ECADR CSMMASS # 47 WEIGHT2 ARTH1
OCT 0 # 47 SPARE COMPONENT
ECADR PITTIME # 48 TRIM DEG2 ARTH
ECADR ROLLTIME # 48 TRIM DEG2 ARTH
OCT 0 # 48 SPARE COMPONENT
ECADR R22DISP # 49 POS4 DP3
ECADR R22DISP +2 # 49 VEL3 DP3
ECADR WHCHREAD # 49 WHOLE ARTH
OCT 0 # 50 SPARE
OCT 0 # 50 SPARE
OCT 0 # 50 SPARE
ECADR ALPHASB # 51 DPDEG(360) DP4
ECADR BETASB # 51 DPDEG(360) DP4
OCT 0 # 51 SPARE COMPONENT
ECADR ACTCENT # 52 DPDEG(360) DP4
## Page 316
OCT 00000 # 52 SPARE COMPONENT
OCT 00000 # 52 SPARE COMPONENT
OCT 00000 # 53 SPARE
OCT 00000 # 53
OCT 00000 # 53
ECADR RANGE # 54 POS5 DP1
ECADR RRATE # 54 VEL3 DP3
ECADR RTHETA # 54 DPDEG(360) DP4
ECADR NN # 55 WHOLE ARTH
ECADR ELEV # 55 DPDEG(360) DP4
ECADR CENTANG # 55 DPDEG(360) DP4
ECADR RR-AZ # 56 DPDEG(360) DP4
ECADR RR-ELEV # 56 DPDEG(360) DP4
OCT 0 # 56 SPARE COMPONENT
OCT 0 # 57 SPARE
OCT 0 # 57 SPARE
OCT 0 # 57 SPARE
ECADR POSTTPI # 58 POS4 DP3
ECADR DELVTPI # 58 VEL3 DP3
ECADR DELVTPF # 58 VEL3 DP3
ECADR DVLOS # 59 VEL3 DP3
ECADR DVLOS +2 # 59 VEL3 DP3
ECADR DVLOS +4 # 59 VEL3 DP3
ECADR VHORIZ # 60 VEL3 DP3
ECADR HDOTDISP # 60 VEL3 DP3
ECADR HCALC1 # 60 COMP ALT DP1
ECADR TTFDISP # 61 MIN/SEC M/S
ECADR TTOGO # 61 MIN/SEC M/S
ECADR OUTOFPLN # 61 POS7 DP4
ECADR ABVEL # 62 VEL3 DP3
ECADR TTOGO # 62 MIN/SEC M/S
ECADR DVTOTAL # 62 VEL3 DP3
ECADR ABVEL # 63 VEL3 DP3
ECADR HDOTDISP # 63 VEL3 DP3
ECADR HCALC1 # 63 COMP ALT DP1
ECADR FUNNYDSP # 64 2INT 2INT
ECADR HDOTDISP # 64 VEL3 DP3
ECADR HCALC # 64 COMP ALT DP1
ECADR SAMPTIME # 65 HMS (MIXED ONLY TO KEEP CODE 65) HMS
ECADR SAMPTIME # 65 HMS HMS
ECADR SAMPTIME # 65 HMS HMS
ECADR RSTACK +6 # 66 LANDING RADAR ALT DP1
OCT 0 # 66 LR POSITION LRPOS
OCT 0 # 66 SPARE COMPONENT
ECADR RSTACK # 67 LANDING RADAR VELX DP1
ECADR RSTACK +2 # 67 LANDING RADAR VELY DP1
ECADR RSTACK +4 # 67 LANDING RADAR VELZ DP1
ECADR RANGEDSP # 68 POS7 DP4
ECADR TTFDISP # 68 MIN/SEC M/S
ECADR DELTAH # 68 COMP ALT DP1
## Page 317
ECADR DLANDZ # 69 COMP ALT DP1
ECADR DLANDY # 69 COMP ALT DP1
ECADR DLANDX # 69 COMP ALT DP1
ECADR AOTCODE # 70 OCTAL ONLY OCT
ECADR AOTCODE +1 # 70 OCTAL ONLY OCT
ECADR AOTCODE +2 # 70 OCTAL ONLY OCT
ECADR AOTCODE # 71 OCTAL ONLY OCT
ECADR AOTCODE +1 # 71 OCTAL ONLY OCT
ECADR AOTCODE +2 # 71 OCTAL ONLY OCT
ECADR CDUT # 72 360-CDU DEG 360-CDU
ECADR CDUS # 72 CDU DEG CDU
OCT 0 # 72 SPARE COMPONENT
ECADR TANG # 73 360-CDU DEG 360-CDU
ECADR TANG +1 # 73 CDU DEG CDU
OCT 0 # 73 SPARE COMPONENT
ECADR TTOGO # 74 MIN/SEC M/S
ECADR YAW # 74 DPDEG(360) DP4
ECADR PITCH # 74 DPDEG(360) DP4
ECADR DIFFALT # 75 POS4 DP3
ECADR T1TOT2 # 75 MIN/SEC
ECADR T2TOT3 # 75 MIN/SEC M/S
ECADR ZDOTD # 76 VEL3 DP3
ECADR RDOTD # 76 VEL3 DP3
ECADR XRANGE # 76 POS4 DP3
ECADR TTOGO # 77 MIN/SEC M/S
ECADR YDOT # 77 VEL3 DP3
OCT 0 # 77 SPARE COMPONENT
ECADR DNRANGE # 78 RR RANGE RR RANGE
ECADR DNRRDCT # 78 RR RANGE RATE RR RANGE RATE
ECADR TTOTIG # 78 MIN/SEC M/S
ECADR CURSOR # 79 CDU DEG CDU
ECADR SPIRAL # 79 CDU DEG CDU
ECADR POSCODE # 79 WHOLE ARTH
ECADR DATAGOOD # 80 WHOLE ARTH
ECADR OMEGAD # 80 DPDEG(360) DP4
OCT 0 # 80 SPARE COMPONENT
ECADR DELVLVC # 81 VEL3 DP3
ECADR DELVLVC +2 # 81 VEL3 DP3
ECADR DELVLVC +4 # 81 VEL3 DP3
ECADR DELVLVC # 82 VEL3 DP3
ECADR DELVLVC +2 # 82 VEL3 DP3
ECADR DELVLVC +4 # 82 VEL3 DP3
ECADR DELVIMU # 83 VEL3 DP3
ECADR DELVIMU +2 # 83 VEL3 DP3
ECADR DELVIMU +4 # 83 VEL3 DP3
ECADR DELVOV # 84 VEL3 DP3
ECADR DELVOV +2 # 84 VEL3 DP3
ECADR DELVOV +4 # 84 VEL3 DP3
ECADR VGBODY # 85 VEL3 DP3
ECADR VGBODY +2 # 85 VEL3 DP3
## Page 318
ECADR VGBODY +4 # 85 VEL3 DP3
ECADR DELVLVC # 86 VEL3 DP3
ECADR DELVLVC +2 # 86 VEL3 DP3
ECADR DELVLVC +4 # 86 VEL3 DP3
ECADR AZ # 87 CDU DEG CDU
ECADR EL # 87 CDU DEG CDU
OCT 0 # 87 SPARE COMPONENT
ECADR STARAD # 88 FRAC FRAC
ECADR STARAD +2 # 88 FRAC FRAC
ECADR STARAD +4 # 88 FRAC FRAC
ECADR LANDLAT # 89 DPDEG(90) DP3
ECADR LANDLONG # 89 DPDEG(90) DP3
ECADR LANDALT # 89 POS5 DP1
ECADR RANGE # 90 POS5 DP1
ECADR RRATE # 90 VEL3 DP3
ECADR RTHETA # 90 DPDEG(360) DP4
ECADR P21ALT # 91 POS4 DP3
ECADR P21VEL # 91 VEL2 DP4
ECADR P21GAM # 91 DPDEG(360) DP4
OCT 00000 # 92 SPARE
OCT 00000 # 92
OCT 00000 # 92
ECADR OGC # 93 DPDEG(90) DP3
ECADR OGC +2 # 93 DPDEG(90) DP3
ECADR OGC +4 # 93 DPDEG(90) DP3
OCT 00000 # 94 SPARE
OCT 00000 # 94
OCT 00000 # 94
OCT 0 # 95 SPARE
OCT 0 # 95 SPARE
OCT 0 # 95 SPARE
OCT 0 # 96 SPARE
OCT 0 # 96 SPARE
OCT 0 # 96 SPARE
ECADR DSPTEM1 # 97 WHOLE ARTH
ECADR DSPTEM1 +1 # 97 WHOLE ARTH
ECADR DSPTEM1 +2 # 97 WHOLE ARTH
ECADR DSPTEM2 # 98 WHOLE ARTH
ECADR DSPTEM2 +1 # 98 FRAC FRAC
ECADR DSPTEM2 +2 # 98 WHOLE ARTH
ECADR WWPOS # 99 POS9 DP3
ECADR WWVEL # 99 VEL4 DP2
ECADR WWBIAS # 99 RADIANS DP4
# END OF IDADDTAB
# NN SF ROUTINES
RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
OCT 00142 # 41 CDU, ARTH
## Page 319
OCT 16347 # 42 DP3, DP3, DP3
OCT 16512 # 43 DP4, DP4, DP3
OCT 22347 # 44 DP3, DP3, M/S
OCT 24443 # 45 ARTH, M/S, DP4
OCT 00000 # 46 OCT
OCT 00553 # 47 ARITH1, ARITH1
OCT 00143 # 48 ARTH, ARTH
OCT 06347 # 49 DP3, DP3, ARTH
OCT 0 # 50 SPARE
OCT 00512 # 51 DP4, DP4
OCT 00012 # 52 DP4
OCT 00000 # 53 SPARE
OCT 24344 # 54 DP1, DP3, DP4
OCT 24503 # 55 ARTH, DP4, DP4
OCT 00512 # 56 DP4, DP4
OCT 0 # 57 SPARE
OCT 16347 # 58 DP3, DP3, DP3
OCT 16347 # 59 DP3, DP3, DP3
OCT 10347 # 60 DP3, DP3, DP1
OCT 24451 # 61 M/S, M/S, DP4
OCT 16447 # 62 DP3, M/S, DP3
OCT 10347 # 63 DP3, DP3, DP1
OCT 10354 # 64 2INT, DP3, DP1
OCT 20410 # 65 HMS, HMS, HMS
OCT 00304 # 66 DP1, LRPOS
OCT 10204 # 67 DP1, DP1, DP1
OCT 10452 # 68 DP4, M/S, DP1
OCT 10204 # 69 DP1, DP1, DP1
OCT 0 # 70 OCT, OCT, OCT
OCT 0 # 71 OCT, OCT, OCT
OCT 00115 # 72 360-CDU, CDU
OCT 00115 # 73 360-CDU, CDU
OCT 24511 # 74 M/S, DP4, DP4
OCT 22447 # 75 DP3, M/S, M/S
OCT 16347 # 76 DP3, DP3, DP3
OCT 00351 # 77 M/S, DP3
OCT 22756 # 78 RR RANGE, RR RANGE RATE, M/S
OCT 06102 # 79 CDU, CDU, ARTH
OCT 00503 # 80 ARTH, DP4
OCT 16347 # 81 DP3, DP3, DP3
OCT 16347 # 82 DP3, DP3, DP3
OCT 16347 # 83 DP3, DP3, DP3
OCT 16347 # 84 DP3, DP3, DP3
OCT 16347 # 85 DP3, DP3, DP3
OCT 16347 # 86 DP3, DP3, DP3
OCT 00102 # 87 CDU, CDU
OCT 02041 # 88 FRAC FOR EACH
OCT 10347 # 89 DP3, DP3, DP1
OCT 24344 # 90 DP1, DP3, DP4
OCT 24507 # 91 DP3, DP4, DP4
## Page 320
OCT 00000 # 92 SPARE
OCT 16347 # 93 DP3, DP3, DP3
OCT 00000 # 94 SPARE
OCT 0 # 95 SPARE
OCT 0 # 96 SPARE
OCT 06143 # 97 ARTH, ARTH, ARTH
OCT 06043 # 98 ARTH, FRAC, ARTH
OCT 24247 # 99 DP3, DP2, DP4
# END OF RUTMXTAB
SBANK= LOWSUPER