https://github.com/virtualagc/virtualagc
Tip revision: d10bfaaf9cc06b7b75f73640f41dfaa3c2d3f895 authored by Ron Burkey on 27 August 2024, 21:50:25 UTC
Incremental progress on ASM101.
Incremental progress on ASM101.
Tip revision: d10bfaa
PINBALL_NOUN_TABLES.agc
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: PINBALL_NOUN_TABLES.agc
## Purpose: A section of Skylark revision 048.
## It is part of the source code for the Apollo Guidance Computer (AGC)
## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
## this software are available; instead, this file was created via
## disassembly of dumps of the core rope modules actually flown on
## Skylab-2. Access to these modules was provided by the New Mexico
## Museum of Space History.
## Assembler: yaYUL
## Contact: Ron Burkey <info@sandroid.org>.
## Website: www.ibiblio.org/apollo/index.html
## Mod history: 2023-09-04 MAS Created from Artemis 072.
## 2024-03-05 MAS Updated for Skylark 48.
# 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 Y OPTICS DEGREES (XX.XXX MAX 89.999)
# 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 DP STRAIGHT FRACTIONAL
# 01110 ATTITUDE ERROR
#
# END OF SF ROUTINE CODE NUMBERS
# SF CONSTANT CODE NUMBER INTERPRETATION
#
# 00000 WHOLE USE ARITH
# 00000 DP TIME SEC (XXX.XX SEC) USE ARITHDP1
# 00001 SPARE
# 00010 CDU DEGREES USE CDU DEGREES
# 00010 Y OPTICS DEGREES USE Y OPTICS 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
# 00110 WEIGHT2 (XXXXX. LBS) USE ARITH1
# 00111 POSITION5 (XXX.XX NAUTICAL MILES)
# USE ARITHDP1
# 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 TRIM DEGREES (XXX.XX DEG) USE ARITH
# 01101 INERTIA (XXXXXBB. SLUG FT FT) USE ARITH
# 01101 THRUST MOMENT (XXXXXBB. FT LBS) USE ARITH
# 01110 VELOCITY/2VS (XXXXX. FT/SEC) USE ARITHDP4
# 01111 POSITION6 (XXXX.X NAUT MI) USE ARITHDP3
# 10000 DRAG ACCELERATION (XXX.XX G) USE ARITHDP2
# 10001 POSITION8 (XXXX.X NAUT MI) USE ARITHDP3
# 10010 POSITION9 (XXXXX. FT) USE ARITHDP3
# 10011 VELOCITY4 (XXXX.X FT/SEC) USE ARITHDP2
# 10100 RATE1 (X.XXXX DEG/SEC) USE ARITH
# 10101 ARC MINUTES (XXXXX. MIN) USE ARITH
# 10110 VELOCITY5 (XXXX.X FT/SEC) USE ARITHDP3
# 10111 POSITION10 (XXX.XX NAUT MI) USE ARITHDP4
# 11000 RATE2 (X.XXXX DEG/SEC) USE ARITHDP3
#
# 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.
#
# 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.
# 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, IDAD1TEM 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.
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 # FIRST MIXED NOUN =40. (DEC 40)
# GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
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 AK # 04 ATTITUDE ERRORS
ECADR DSPTEM1 # 05 ANGULAR ERROR/DIFFERENCE
# CELESTIAL ANGLE
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 TRKAZ # 14 STAR TRACKER AZIMUTH
# ELEVATION
OCT 77777 # 15 INCREMENT MACHINE ADDRESS
ECADR DSPTEMX # 16 TIME OF EVENT (HRS,MIN,SEC)
ECADR CPHIX # 17 ASTRONAUT TOTAL ATTITUDE
ECADR THETAD # 18 AUTO MANEUVER BALL ANGLES
ECADR TRKAZOCT # 19 STAR TRACKER AZIMUTH IN 2-WORD OCTAL
# FORMAT
ECADR CDUX # 20 ICDU ANGLES
ECADR PIPAX # 21 PIPAS
ECADR THETAD # 22 NEW ICDU ANGLES
ECADR THETAD # 23 NAV BASE TO ATM EULER ANGLES
ECADR DSPTEM2 +1 # 24 DELTA TIME FOR AGC CLOCK (HRS,MIN,SEC)
ECADR DSPTEM1 # 25 CHECKLIST
# (USED WITH PLEASE PERFORM ONLY)
ECADR N26/PRI # 26 PRIO/DELAY, ADRES, BBCON
ECADR SMODE # 27 SELF TEST ON/OFF SWITCH
ECADR NC2TIG # 28 TIG OF NC2
ECADR DSPTEM1 # 29 XSM LAUNCH AZIMUTH
ECADR DSPTEM1 # 30 TARGET CODES
ECADR AGEOFW # 31 TIME OF W-MATRIX INIT (P20)
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 VECTOR
ECADR LASTTIG # 39 TIG OF LAST MANEUVER
# 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 (VHF - OPTICS)
# TTI OF NEXT BURN
# MGA
OCT 02022 # 46 AUTOPILOT CONFIGURATION
OCT 22025 # 47 THIS VEHICLE WEIGHT
# OTHER VEHICLE WEIGHT
OCT 22030 # 48 PITCH TRIM
# YAW TRIM
OCT 24033 # 49 DELTA R
# DELTA V
# VHF OR OPTICS CODE
OCT 64036 # 50 SPLASH ERROR
# PERIGEE
# TFF
OCT 00000 # 51 SPARE
OCT 00044 # 52 CENTRAL ANGLE OF ACTIVE VEHICLE
OCT 24047 # 53 RANGE
# RANGE RATE
# PHI
OCT 24052 # 54 RANGE
# RANGE RATE
# THETA
OCT 22055 # 55 PERIGEE CODE
# ELEVATION ANGLE
OCT 64060 # 56 VEHICLE RATE
OCT 24063 # 57 NO. OF HALF REVS
# DELTA ALT NCC
# DELTA ALT NSR
OCT 24066 # 58 DELTA V TPI
# DELTA V TPF
# DELTA TIME (TPI - NOMTPI)
OCT 24071 # 59 DELTA VELOCITY LOS
OCT 24074 # 60 GMAX
# VPRED
# GAMMA EI
OCT 24077 # 61 IMPACT LATITUDE
# IMPACT LONGITUDE
# HEADS UP/DOWN
OCT 24102 # 62 INERTIAL VEL MAG (VI)
# ALT RATE CHANGE (HDOT)
# ALT ABOVE PAD RADIUS (H)
OCT 64105 # 63 RANGE 297,431 TO SPLASH (RTGO)
# PREDICTED INERT VEL (VIO)
# TIME TO GO TO 297,431 (TTE)
OCT 24110 # 64 DRAG ACCELERATION
# INERTIAL VELOCITY (VI)
# RANGE TO SPLASH
OCT 24113 # 65 SAMPLED AGC TIME (HRS,MIN,SEC)
# (FETCHED IN INTERRUPT)
OCT 24116 # 66 COMMAND BANK ANGLE (BETA)
# CROSS RANGE ERROR
# DOWN RANGE ERROR
OCT 24121 # 67 RANGE TO TARGET
# PRESENT LATITUDE
# PRESENT LONGITUDE
OCT 24124 # 68 COMMAND BANK ANGLE (BETA)
# INERTIAL VELOCITY (VI)
# ALT RATE CHANGE (RDOT)
OCT 24127 # 69 BETA
# DL
# VL
OCT 00132 # 70 STAR CODE
OCT 00135 # 71 STAR CODE
OCT 24140 # 72 TIME OF R27 OPTIMIZATION
OCT 04143 # 73 ALTITUDE
# VELOCITY
# FLIGHT PATH ANGLE
OCT 04146 # 74 COMMAND BANK ANGLE (BETA)
# INERTIAL VELOCITY (VI)
# DRAG ACCELERATION
OCT 64151 # 75 DELTA ALTITUDE CDH
# DELTA TIME (CDH-CSI OR TPI-CDH)
# DELTA TIME (TPI-CDH OR TPI-NOMTPI)
OCT 64154 # 76 CURRENT R27 RANGE
# CURRENT R27 RANGE-RATE
# TIME FROM R27 OPTIMIZATION
OCT 24157 # 77 OPTIMIZED R27 RANGE
# OPTIMIZED R27 RANGE-RATE
# R27 THETA/PHI
OCT 24162 # 78 YAW ANGLE FOR P20
# 78 PITCH ANGLE FOR P20
# 78 AZIMUTH CONSTRAINT FOR P20
OCT 22165 # 79 ORBRATE OR PTC RATE
# P20 ROTATION DEADBAND
OCT 64170 # 80 TIME TO IGNITION/CUTOFF
# VG
# DELTA V (ACCUMULATED)
OCT 24173 # 81 DELTA V (LV)
OCT 24176 # 82 NSR DELTA V (LV)
OCT 24201 # 83 DELTA V (BODY)
OCT 24204 # 84 DELTA V NEXT MANEUVER
# DELTA ALT - NEXT MANEUVER
# DELTA V THIRD MANEUVER
OCT 24207 # 85 VG (BODY)
OCT 24212 # 86 DELTA V (LV)
OCT 04215 # 87 DOCKED DAP FLAG SPECIFICATION
# CHANNEL 5 JETS INHIBITED BY DOCKED DAP
# CHANNEL 6 JETS INHIBITED BY DOCKED DAP
OCT 24220 # 88 HALF UNIT SUN OR PLANET VECTOR
OCT 02223 # 89 MANUAL/AUTO DOCKED DAP MANEUVER RATES
# DEAD BAND FOR DOCKED DAP
OCT 24226 # 90 Y (ACT VEH)
# YDOT (ACT VEH)
# YDOT (PAS VEH)
OCT 02231 # 91 OCDU ANGLES SHAFT
# TRUNION
OCT 02234 # 92 NEW OPTICS ANGLES SHAFT
# TRUNION
OCT 04237 # 93 DELTA GYRO ANGLES
OCT 02242 # 94 NEW OPTICS ANGLES SHAFT
# TRUNNION
OCT 24245 # 95 TIG OF NC1
OCT 24250 # 96 Y (CM)
# YDOT (CM)
# YDOT (LM)
OCT 04253 # 97 SYSTEM TEST INPUTS
OCT 04256 # 98 SYSTEM TEST RESULTS
OCT 24261 # 99 RMS IN POSITION
# RMS IN VELOCITY
# RMS OPTION
# 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 64705 # 04 3COMP DEG(180) (NO LOAD, DEC ONLY)
OCT 02145 # 05 2COMP DEG(180)
OCT 02000 # 06 2COMP 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 02165 # 14 2COMP ARC MINUTES
OCT 00000 # 15 1COMP OCTAL ONLY
OCT 24400 # 16 3COMP HMS (DEC ONLY)
OCT 04102 # 17 3COMP CDU DEG
OCT 04102 # 18 3COMP CDU DEG
OCT 02000 # 19 2COMP OCTAL ONLY
OCT 04102 # 20 3COMP CDU DEGREES
OCT 04140 # 21 3COMP WHOLE
OCT 04102 # 22 3COMP CDU DEGREES
OCT 04102 # 23 3COMP CDU DEGREES
OCT 24400 # 24 3COMP HMS (DEC ONLY)
OCT 04140 # 25 3COMP WHOLE
OCT 04000 # 26 3COMP OCTAL ONLY
OCT 00140 # 27 1COMP WHOLE
OCT 24400 # 28 3COMP HMS (DEC ONLY)
OCT 20102 # 29 1COMP CDU DEG (DEC ONLY)
OCT 04140 # 30 3COMP WHOLE
OCT 24400 # 31 3COMP HMS (DEC ONLY)
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 24400 # 39 3COMP HMS (DEC ONLY)
# 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 2INT, MIN/SEC, DPDEG(360)
# (NO LOAD, DEC ONLY)
OCT 00000 # 46 2COMP OCTAL ONLY FOR EACH
OCT 00306 # 47 2COMP WEIGHT2 FOR EACH
# (DEC ONLY)
OCT 00614 # 48 2COMP TRIM DEG, TRIM DEG
# (DEC ONLY)
OCT 00507 # 49 3COMP POS4, VEL3, WHOLE
# (DEC ONLY)
OCT 00417 # 50 3COMP POS6, POS4, MIN/SEC
# (NO LOAD, DEC ONLY)
OCT 00000 # 51 SPARE
OCT 00004 # 52 1COMP DPDEG(360)
OCT 10507 # 53 3COMP POS5, VEL3, DPDEG(360)
# (DEC ONLY)
OCT 10507 # 54 3COMP POS5, VEL3, DPDEG(360)
# (DEC ONLY)
OCT 00200 # 55 2COMP WHOLE, DPDEG(360)
# (DEC ONLY)
OCT 61430 # 56 3COMP RATE2 FOR EACH
# (NO LOAD, DEC ONLY)
OCT 20400 # 57 3COMP WHOLE, POS4, POS4
# (DEC ONLY)
OCT 00512 # 58 3COMP VEL3, VEL3, MIN/SEC
# (DEC ONLY)
OCT 24512 # 59 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 10440 # 60 3COMP WHOLE, VEL2, DPDEG(360)
# (DEC ONLY)
OCT 00204 # 61 3COMP DPDEG(360), DPDEG(360), WHOLE
# (DEC ONLY)
OCT 20451 # 62 3COMP VEL2, VEL2, POS4
# (DEC ONLY)
OCT 00457 # 63 3COMP POS6, VEL2, MIN/SEC
# (NO LOAD, DEC ONLY)
OCT 36460 # 64 3COMP DRAG ACCEL, VEL2, POS6
# (DEC ONLY)
OCT 00000 # 65 3COMP HMS (DEC ONLY)
OCT 37044 # 66 3COMP DPDEG(360), POS8, POS6
# (DEC ONLY)
OCT 10217 # 67 3COMP POS6, DPDEG(360), DPDEG(360)
# (DEC ONLY)
OCT 34444 # 68 3COMP DPDEG(360), VEL2, VEL/2VS
# (DEC ONLY)
OCT 35004 # 69 3COMP DPDEG(360), DRAG ACCEL, VEL/2VS
# (DEC ONLY)
OCT 00000 # 70 1COMP OCTAL ONLY
OCT 00000 # 71 1COMP OCTAL ONLY
OCT 00000 # 72 3COMP HMS (DEC ONLY)
OCT 10450 # 73 3COMP POS4, VEL2, DPDEG(360)
OCT 40444 # 74 3COMP DPDEG(360), VEL2, DRAG ACCEL
OCT 00010 # 75 3COMP POS4, MIN/SEC, MIN/SEC
# (NO LOAD, DEC ONLY)
OCT 01327 # 76 3COMP POS10, VEL5, MIN/SEC
# (NO LOAD, DEC ONLY)
OCT 11327 # 77 3COMP POS10, VEL5, DPDEG(360)
# (DEC ONLY)
OCT 10204 # 78 3COMP DPDEG(360) FOR EACH
OCT 00113 # 79 2COMP ELEVDEG, CDUDEG
OCT 22440 # 80 3COMP MIN/SEC, VEL2, VEL2
# (NO LOAD, DEC ONLY)
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 24412 # 84 3COMP VEL3, POS4, VEL3
# (DEC ONLY)
OCT 24512 # 85 3COMP VEL3 FOR EACH
# (DEC ONLY)
OCT 22451 # 86 3COMP VEL2 FOR EACH
# (DEC ONLY)
OCT 0 # 87 3COMP OCTAL ONLY FOR EACH
OCT 0 # 88 3COMP FRAC FOR EACH
# (DEC ONLY)
OCT 00264 # 89 2COMP RATE1, DEG(180)
OCT 24507 # 90 3COMP POS5, VEL3, VEL3
# (DEC ONLY)
OCT 00102 # 91 2COMP CDUDEG, Y OPTICS DEG
OCT 00102 # 92 2COMP CDUDEG, Y OPTICS DEG
OCT 06143 # 93 3COMP DPDEG(90) FOR EACH
OCT 00102 # 94 2COMP CDUDEG, Y OPTICS DEG
OCT 00000 # 95 3COMP HMS (DEC ONLY)
OCT 24507 # 96 POS5, VEL3, VEL3
# (DEC ONLY)
OCT 00000 # 97 3COMP WHOLE FOR EACH
OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE
OCT 01162 # 99 3COMP POS9, VEL4, WHOLE
# (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, Y OPTICS DEGREES
OCT 00000 # (SFCONS IN DEGINSF, OPTDEGIN)
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)
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 00002 # TRIM DEGREES
OCT 22245
OCT 00014 # INERTIA, THRUST MOMENT
OCT 35607
OCT 07606 # VELOCITY/2VS
OCT 06300
OCT 16631 # POSITION 6
OCT 11307
OCT 12000 # DRAG ACCELERATION (POINT BETWN BITS 7-8)
OCT 00000
OCT 27176 # POSITION 8
OCT 14235
2DEC 30480 B-19 # POSITION 9
2DEC 30.48 B-7 # VELOCITY4
2DEC 1.42213543 B-14 # RATE1
2DEC 4.62962963 B-14 # ARC MINUTES
2DEC .3048 E2 B-6 # VELOCITY5
2DEC 1852 E3 B-23 # POSITION10
2DEC .022222222 # RATE2
# END OF SFINTAB
SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 13261
OCT 00000 # SPARE
OCT 00000
OCT 00000 # CDU DEGREES, Y OPTICS DEGREES
OCT 00000 # (SFCONS IN DEGOUTSF, OPTDEGOUT)
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
OCT 21603
OCT 15340 # VELOCITY2
OCT 15340
OCT 01031 # VELOCITY3 (POINT BETWN BITS 7-8)
OCT 21032
OCT 34631 # ELEVATION DEGREES
OCT 23146
OCT 14340 # TRIM DEGREES
OCT 24145
OCT 02363 # INERTIA, THRUST MOMENT
OCT 03721
OCT 20373 # VELOCITY/2VS
OCT 02122
OCT 00424 # POSITION 6 (POINT BETWN BITS 7-8)
OCT 30446
OCT 00631 # DRAG ACCELERATION
OCT 23146
OCT 00260 # POSITION 8
OCT 06213
2DEC 17.2010499 B-7 # POSITION 9
2DEC .032808399 # VELOCITY4
2DEC .703167914 # RATE1
2DEC .216 # ARC MINUTES
2DEC* 3.280839896 E-2 B-1* # VELOCITY5
2DEC* .5399568 E-6 B20* # POSITION10
2DEC 45 B-7 # RATE2
# 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 VHFCNT # 45 2INT 2INT
ECADR TTOGO # 45 MIN/SEC M/S
ECADR +MGA # 45 DPDEG(360) DP4
ECADR DAPDATR1 # 46 OCTAL ONLY OCT
ECADR DAPDATR2 # 46 OCTAL ONLY OCT
OCT 0 # 46 SPARE COMPONENT
ECADR CSMMASS # 47 WEIGHT2 ARTH1
ECADR LEMMASS # 47 WEIGHT2 ARTH1
OCT 00000 # 47 SPARE COMPONENT
ECADR PACTOFF # 48 TRIM DEG ARTH
ECADR YACTOFF # 48 TRIM DEG ARTH
OCT 00000 # 48 SPARE COMPONENT
ECADR N49DISP # 49 POS5 DP1
ECADR N49DISP +2 # 49 VEL3 DP3
ECADR N49DISP +4 # 49 WHOLE ARTH
ECADR RSP-RREC # 50 POS6 DP3
ECADR HPERX # 50 POS4 DP3
ECADR TFF # 50 MIN/SEC M/S
OCT 0 # 51 SPARE
OCT 0 # 51 SPARE
OCT 0 # 51 SPARE
ECADR ACTCENT # 52 DPDEG(360) DP4
OCT 00000 # 52 SPARE COMPONENT
OCT 00000 # 52 SPARE COMPONENT
ECADR RANGE # 53 POS5 DP1
ECADR RRATE # 53 VEL3 DP3
ECADR RTHETA # 53 DPDEG(360) DP4
ECADR RANGE # 54 POS5 DP1
ECADR RRATE # 54 VEL3 DP3
ECADR RTHETA # 54 DPDEG(360) DP4
ECADR NN1 # 55 WHOLE ARTH
ECADR ELEV # 55 DPDEG(360) DP4
OCT 0 # 55 SPARE COMPONENT
ECADR ADOT # 56 RATE2 DP3
ECADR ADOT +2 # 56 RATE2 DP3
ECADR ADOT +4 # 56 RATE2 DP3
ECADR HALFREVS # 57 WHOLE ARTH
ECADR DHNCC # 57 POS4 DP3
ECADR DELH1 # 57 POS4 DP3
ECADR DELVTPI # 58 VEL3 DP3
ECADR DELVTPF # 58 VEL3 DP3
ECADR T2TOT3 # 58 MIN/SEC M/S
ECADR DVLOS # 59 VEL3 DP3
ECADR DVLOS +2 # 59 VEL3 DP3
ECADR DVLOS +4 # 59 VEL3 DP3
ECADR GMAX # 60 WHOLE ARTH
ECADR VPRED # 60 VEL2 DP4
ECADR GAMMAEI # 60 DPDEG(360) DP4
ECADR LAT(SPL) # 61 DPDEG(360) DP4
ECADR LNG(SPL) # 61 DPDEG(360) DP4
ECADR HEADSUP # 61 WHOLE ARTH
ECADR VMAGI # 62 VEL2 DP4
ECADR HDOT # 62 VEL2 DP4
ECADR ALTI # 62 POS4 DP3
ECADR RTGO # 63 POS6 DP3
ECADR VIO # 63 VEL2 DP4
ECADR TTE # 63 MIN/SEC M/S
ECADR D # 64 DRAG ACCEL DP2
ECADR VMAGI # 64 VEL2 DP4
ECADR RTGON64 # 64 POS6 DP3
ECADR SAMPTIME # 65 HMS (MIXED ONLY TO KEEP CODE 65) HMS
ECADR SAMPTIME # 65 HMS HMS
ECADR SAMPTIME # 65 HMS HMS
ECADR ROLLC # 66 DPDEG(360) DP4
ECADR XRNGERR # 66 POS8 DP3
ECADR DNRNGERR # 66 POS6 DP3
ECADR RTGON67 # 67 POS6 DP3
ECADR LAT # 67 DPDEG(360) DP4
ECADR LONG # 67 DPDEG(360) DP4
ECADR ROLLC # 68 DPDEG(360) DP4
ECADR VMAGI # 68 VEL2 DP4
ECADR RDOT # 68 VEL/2VS DP4
ECADR ROLLC # 69 DPDEG(360) DP4
ECADR Q7 # 69 DRAG ACCEL DP2
ECADR VL # 69 VEL/2VS DP4
ECADR STARCODE # 70 OCTAL ONLY OCT
OCT 0 # 70 SPARE COMPONENT
OCT 0 # 70 SPARE COMPONENT
ECADR STARCODE # 71 OCTAL ONLY OCT
OCT 0 # 71 SPARE COMPONENT
OCT 0 # 71 SPARE COMPONENT
ECADR FIXTIME # 72 HMS HMS
ECADR FIXTIME # 72 HMS HMS
ECADR FIXTIME # 72 HMS HMS
ECADR P21ALT # 73 POS4 DP3
ECADR P21VEL # 73 VEL2 DP4
ECADR P21GAM # 73 DPDEG(360) DP4
ECADR ROLLC # 74 DPDEG(360) DP4
ECADR VMAGI # 74 VEL2 DP4
ECADR D # 74 DRAG ACCEL DP2
ECADR DIFFALT # 75 POS4 DP3
ECADR T1TOT2 # 75 MIN/SEC M/S
ECADR T2TOT3 # 75 MIN/SEC M/S
ECADR SVEC # 76 POS10 DP4
ECADR SVEC +2 # 76 VEL5 DP3
ECADR TFO # 76 MIN/SEC M/S
ECADR OPVEC # 77 POS10 DP4
ECADR OPVEC +2 # 77 VEL5 DP3
ECADR PHETA # 77 DPDEG(360) DP4
ECADR UTYAW # 78 DPDEG(360)
ECADR UTPIT # 78 DPDEG(360)
ECADR AZIMANGL # 78 DPDEG(360)
ECADR RATEPTC # 79 ELEV DEG ARTH
ECADR DBPTC # 79 CDU DEG CDU
OCT 0 # 79 SPARE COMPONENT
ECADR TTOGO # 80 MIN/SEC M/S
ECADR VGDISP # 80 VEL2 DP4
ECADR DVTOTAL # 80 VEL2 DP4
ECADR DELVLVC # 81 VEL3 DP3
ECADR DELVLVC +2 # 81 VEL3 DP3
ECADR DELVLVC +4 # 81 VEL3 DP3
ECADR VGNSR # 82 VEL3 DP3
ECADR VGNSR +2 # 82 VEL3 DP3
ECADR VGNSR +4 # 82 VEL3 DP3
ECADR DELVIMU # 83 VEL3 DP3
ECADR DELVIMU +2 # 83 VEL3 DP3
ECADR DELVIMU +4 # 83 VEL3 DP3
ECADR DVDSP1 # 84 VEL3 DP3
ECADR DHDSP # 84 POS4 DP3
ECADR DVDSP2 # 84 VEL3 DP3
ECADR VGBODY # 85 VEL3 DP3
ECADR VGBODY +2 # 85 VEL3 DP3
ECADR VGBODY +4 # 85 VEL3 DP3
ECADR DELVLVC # 86 VEL2 DP4
ECADR DELVLVC +2 # 86 VEL2 DP4
ECADR DELVLVC +4 # 86 VEL2 DP4
ECADR DAPDATR3 # 87 OCTAL ONLY OCT
ECADR CH5FAIL # 87 OCTAL ONLY OCT
ECADR CH6FAIL # 87 OCTAL ONLY OCT
ECADR STARSAV3 # 88 DPFRAC DPFRAC
ECADR STARSAV3 +2 # 88 DPFRAC DPFRAC
ECADR STARSAV3 +4 # 88 DPFRAC DPFRAC
ECADR DKRATE # 89 RATE1 ARTH
ECADR DKDB # 89 DEG(180) ARTH
OCT 0 # 89 SPARE COMPONENT
ECADR YCSM # 90 POS5 DP1
ECADR YDOTC # 90 VEL3 DP3
ECADR YDOTL # 90 VEL3 DP3
ECADR CDUS # 91 CDU DEG CDU
ECADR CDUT # 91 Y OPTICS DEG YOPT
OCT 0 # 91 SPARE COMPONENT
ECADR SAC # 92 CDU DEG CDU
ECADR PAC # 92 Y OPTICS DEG YOPT
OCT 0 # 92 SPARE COMPONENT
ECADR OGC # 93 DPDEG(90) DP3
ECADR OGC +2 # 93 DPDEG(90) DP3
ECADR OGC +4 # 93 DPDEG(90) DP3
ECADR MRKBUF1 +3 # 94 CDU DEG CDU
ECADR MRKBUF1 +5 # 94 Y OPTICS DEG YOPT
OCT 00000 # 94 SPARE
ECADR NC1TIG # 95 HMS HMS
ECADR NC1TIG # 95 HMS HMS
ECADR NC1TIG # 95 HMS HMS
ECADR RANGE # 96 POS5 DP1
ECADR RRATE # 96 VEL3 DP3
ECADR RRATE2 # 96 VEL3 DP3
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 WWOPT # 99 WHOLE ARTH
# END OF IDADDTAB
# NN SF ROUTINES
#
RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
OCT 00142 # 41 CDU, ARTH
OCT 16347 # 42 DP3, DP3, DP3
OCT 16512 # 43 DP4, DP4, DP3
OCT 22347 # 44 DP3, DP3, M/S
OCT 24454 # 45 2INT, M/S, DP4
OCT 00000 # 46 OCT, OCT
OCT 00553 # 47 ARITH1, ARITH1
OCT 00143 # 48 ARTH, ARTH
OCT 06344 # 49 DP1, DP3, ARTH
OCT 22347 # 50 DP3, DP3, M/S
OCT 0 # 51 SPARE
OCT 00012 # 52 DP4
OCT 24344 # 53 DP1, DP3, DP4
OCT 24344 # 54 DP1, DP3, DP4
OCT 00503 # 55 ARTH, DP4
OCT 16347 # 56 DP3, DP3, DP3
OCT 16343 # 57 ARTH, DP3, DP3
OCT 22347 # 58 DP3, DP3, M/S
OCT 16347 # 59 DP3, DP3, DP3
OCT 24503 # 60 ARTH, DP4, DP4
OCT 06512 # 61 DP4, DP4, ARTH
OCT 16512 # 62 DP4, DP4, DP3
OCT 22507 # 63 DP3, DP4, M/S
OCT 16505 # 64 DP2, DP4, DP3
OCT 20410 # 65 HMS, HMS, HMS
OCT 16352 # 66 DP4, DP3, DP3
OCT 24507 # 67 DP3, DP4, DP4
OCT 24512 # 68 DP4, DP4, DP4
OCT 24252 # 69 DP4, DP2, DP4
OCT 00000 # 70 OCT
OCT 00000 # 71 OCT
OCT 20410 # 72 HMS, HMS, HMS
OCT 24507 # 73 DP3, DP4, DP4
OCT 12512 # 74 DP4, DP4, DP2
OCT 22447 # 75 DP3, M/S, M/S
OCT 22352 # 76 DP4, DP3, M/S
OCT 24352 # 77 DP4, DP3, DP4
OCT 24512 # 78 DP4, DP4, DP4
OCT 103 # 79 ARTH, CDU
OCT 24511 # 80 M/S, DP4, 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 24512 # 86 DP4, DP4, DP4
OCT 00000 # 87 OCT, OCT, OCT
OCT 32655 # 88 DPFRAC FOR EACH
OCT 00143 # 89 ARTH, ARTH
OCT 16344 # 90 DP1, DP3, DP3
OCT 00302 # 91 CDU, YOPT
OCT 00302 # 92 CDU, YOPT
OCT 16347 # 93 DP3, DP3, DP3
OCT 00302 # 94 CDU, YOPT
OCT 20410 # 95 HMS, HMS, HMS
OCT 16344 # 96 DP1, DP3, DP3
OCT 06143 # 97 ARTH, ARTH, ARTH
OCT 06043 # 98 ARTH, FRAC, ARTH
OCT 06247 # 99 DP3, DP2, ARTH
# END OF RUTMXTAB
SBANK= LOWSUPER