AGS Initialization
R0001 PROGRAM NAME: AGS INITIALIZATION [R47]
R0002 WRITTEN BY : RHODE / KILROY / FOLLETT
R0003 MDD NO. : 0
R0004 DATE : 23 MARCH 1967
R0005 MCD BY : KILROY
R0006 MDD NO. : 1
R0007 DATE : 28 OCTOBER 1967
R0008 MCD BY : FOLLETT
R0009 FUNCT. DESC.: (1) TO PROVIDE THE AGS AHORT ELECTRONICS ASSEMBLY(AEA) WITH THE LEM AND CSM STATE VECTORS
R0011 (POSITION,VELOCITY,TIME) IN LEM IMU COORDINATES BY MEANS OF THE LGC DIGITAL DOWNLINK.
R0013 (2) TC ZERO THE ICCU, LGC AND AEA GIMBAL ANGLE COUNTERS SIMULTANEOUSLY IN ORDER TO ESTABLISH A
R0015 COMMON ZERO REFERENCE FOR THE MEASUREMENT OF GIMBAL(EULER) ANGLES WHICH DEFINE LEM ATTITUDE
R0019 (3) TO ESTABLISH THE GROUND ELAPSED TIME OF AEA CLOCK ZERO.(IF AN AEA CLOCK ZERO IS
R0021 REQUESTED DURING THIS PROGRAM
R0022 LCG SECTION : AGS INITIALIZATION
R0023 CALLING SEQ : PROGRAM IS ENTERED WHEN ASTRONAUT KEYS V47E ON D5KY.
R0024 R47 MAY BE CALLED AT ANY TIME EXCEPT WHEN ANOTHER EXTENDED VERB IS IN PROGRESS
R0026 SUBROUTINES
R0027 CALLED :
R0028 NORMAL EXIT : ENDEXT
R0029 ALARM/ABORT : ALARM - BAC REFSMMAT - CODE:220
R0030 OPERATOR ERRCR IF V47 SELECTED DURING ANOTHER EXTENDED VERB.
R0032 ERASAELES
R0033 USED : SAMPTIME (2) TIME OF :ENTER: KEYSTROKE
R0034 AGSK (2) GROUND ELAPSED TIME OF THE AEA CLOCK :ZERO:
R0036 AGSBUFF (14C) CONTAINS AGS INITIALIZATION DATA (SEE :OUTPUT: BELOW)
R0038 AGSWORD (1) PREVIOUS DOWNLIST SAVED HERE
0039 REF 10 LAST 206 E4,1600 EBANK= AGSBUFF
0040 40,2000 BANK 40
0041 REF 1 32,2000 SETLOC R47
0042 12,2005 BANK
0043 REF 1 COUNT= $$/R47
0044 REF 1 32,2005 3 4737 0 AGSINIT CAF REFSMBIT
0045 REF 1 32,2006 7 0077 0 MASK FLAGWRD3 CHECK REFSMFLG.
0046 REF 36 LAST 193 32,2007 10 000 0 CCS A
0047 REF 1 32,2010 C 2017 0 TC REDSPTEM REFSMMAT IS OK
0048 REF 8 LAST 187 32,2011 0 5567 0 TC ALARM REFSMMAT IS BAD
0049 32,2012 00220 1 OCT 220
0050 REF 1 32,2013 0 5472 0 TC ENDEXT
0061 32,2014 C 0006 1 NEWAGS EXTEND
0062 REF 1 32,2015 3 0014 1 DCA SAMPTIME TIME OF THE :ENTER: KEYSTROKE
0063 REF 4 LAST 206 32,2016 53'421 0 DXCH AGSK BECOMES NEW AEA CLOCK :ZERO:
0064 32,2017 C 0006 1 REDSPTEM EXTEND
0065 REF 5 LAST 209 32,2020 3 1421 1 DCA AGSK
0066 REF 2 LAST 102 32,2021 53'051 0 DXCH DSPTEMX
0067 REF 1 32,2022 1 2172 1 AGSDISPK CAF V06N16
0068 REF 1 32,2023 0 4616 1 TC BANKCALL R1 = 00XXX, HRS., R2 = 000XX MIN.,
0069 REF 1 32,2024 20334 1 CADR GOMARKF R3 = 0XX.XX SEC.
0070 REF 2 LAST 209 32,2025 0 5472 0 TC ENDEXT TERMINATE RETURN
0071 REF 1 32,2026 0 2036 0 TC AGSVCALC PROCEED RETURN
00711 REF 22 LAST 182 32,2027 4 4746 1 CS BIT6 IS ENTER VIA A V32
00712 REF 12 LAST 98 32,2030 6 0154 1 AD HPAC
00713 32,2031 0 0006 1 EXTEND
00714 REF 1 32,2032 1 2014 1 BZF NEWAGS YES, USE KEYSTROKE TIME FOR NEW AGSK
0072 32,2033 0 0006 1 EXTEND NO, NEW AGSK LOADED VIA V25
0073 REF 3 LAST 209 32,2034 3 1051 1 DCA DSPTEMX LOADED INTO DSPTEMX BY KEYING
0074 REF 2 LAST 209 32,2035 0 2016 1 TC REDSPTEM -1 V25E FOLLOWED BY HRS.,MINS.,SEC.
A0075 DISPLAY THE NEW K
0076 REF 1 32,2036 C 6C42 1 AGSVCALC TC INTPRET
00761 32,2037 77614 1 SET
00762 REF 1 32,2040 01076 1 NO00FLAG DONT ALLOW V37
0077 32,2041 77414 0 SET EXIT
0078 REF 1 32,2042 02076 1 XDSPFLAG
0079 REF 2 LAST 209 32,2043 1 2172 1 CAF V06N16
00795 REF 2 LAST 209 32,2044 0 4616 1 TC BANKCALL
00796 REF 1 32,2045 20621 0 CADR EXDSPRET
0082 REF 2 LAST 209 32,2046 C 6042 1 TC INTPRET EXTRAPOLATE LEM ANC CSM STATE VECTORS
0083 32,2047 77634 0 RTB TO THE PRESENT TIME
0084 REF 1 32,2050 21574 1 LOADTIME LOAD MPAC WITH TIME2,TIME1
0085 REF 1 32,2051 34041 0 STCALL TDEC1 CALCULATE LEM STATE VECTOR
0086 REF 2 LAST 37 32,2052 27056 1 LEMPREC
0087 32,2053 77624 1 CALL CALL ROUTINE TO CONVERT TO SM COORDS AND
0088 REF 1 32,2054 64132 0 SCALEVEC PROVIDE PROPER SCALING
0089 REF 11 LAST 208 32,2055 16201 0 STODL AGSBUFF (LEMPREC AND CSMPREC LEAVE TDEC1 INTAT)
0090 REF 1 32,2056 00015 0 TAT TAT = TIME TO WHICH RATT1 AND VATT1 ARE
0091 REF 2 LAST 209 32,2057 34041 0 STCALL TDEC1 COMPUTED(CSEC SINCE CLOCK START B-28).
0092 REF 2 LAST 37 32,2060 27042 1 CSMPREC CALCULATE CSM STATE VECTOR FOR SAME TIME
0093 32,2061 77624 1 CALL
0094 REF 2 LAST 209 32,2062 64132 0 SCALEVEC
Assembly and Operation Information
R03001 THIS LGC PROGRAM IS INTENDED FOR USE IN THE LM DURING THE MANNED LUNAR LANDING MISSION OR ANY SUBSET THEREOF.
R00002 THE DETAILS OF IMPLEMENTATION ARE SPECIFIED IN REPORT R-567, AS AMENDED.
R000025 GUIDANCE SYSTEM OPERATIONS PLAN
R00003 FOR MANNED LM EARTH ORBITAL AND LUNAR MISSIONS
R000035 USING PROGRAM LUMINARY
R00004 THIS PROGRAM AND R-567 HAVE BEEN PREPARED BY THE INSTRUMENTATION LABORATORY, MASSACHUSETTS INSTITUTE OF
R00005 TECHNOLOGY 75 CAMBRIDGE PARKWAY, CAMBRIDGE MASSACHUSETTS UNDER PROJECT55-238-70, SPONSORED BY THE MANNED
R00006 SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION CONTRACT 9-4065
R00007 THIS PROGRAM IS REFERRED TO AS LUMINARY LC
R0001 TABLE OF LOG CARDS
R00015 ABSOLUTE ADDRESSES FOR UPDATE PROGRAM
R0002 ASSEMBLY AND OPERATION INFORMATION
R0003 TAGS FOR RELATIVE SETLOG AND BLANK BANK CARDS
R0005 CONTROLLED CONSTANTS
R0006 INPUT/OUTPUT CHANNEL BIT DESCRIPTIONS
R0007 FLAGWORD ASSIGNMENTS
R0008 SUBROUTINE CALLS
R0009 ABLE OF SUBROUTINE LOG SECTIONS
R0010 LUMERASE
R0011 ERASABLE ASSIGNMENTS
R0012 LEMONAID
R0013 INTERRUPT LEAC INS
R0014 T4RUPT PROGRAM
R0015 RCS FAILURE MONITOR
R0016 DOWNLINK LISTS
R0017 AGS INITIALIZATION
R0018 FRESH START AND RESTART
R0019 RESTART TABLES
R0020 AOTMARK
R0021 EXTENDED VERBS
R0022 PINBALL NCUN TABLES
R0023 LEM GEOMETRY
R0024 IMU COMPENSATION PACKAGE
R0025 R63
R0026 ATTITUDE MANEUVER ROUTINE
R0027 GIMBAL LOCK AVOIDANCE
R0028 KALCMANU STEERING
R0029 SYSTEM TEST STANDARD LEAD INS
R0030 IMU PERFORMANCE TESTS 2
R0031 IMU PERFORMANCE TESTS 4
R0032 PINBALL GAMES BUTTONS AND LIGHTS
R0033 R60,R62
R0034 S-BAND ANTENNA FOR LM
R0035 LEMP205
R0036 HADAR LEADIN ROUTINES
R0037 P20-P25
R0038 LEMP305
R0039 P30,P37
R0040 P32-P35, P72-P75
R0042 KISSING
R0043 GROUND THACKING DETERMINATION PROGRAM - P21
R0044 P34-P35, P74-P75
R0045 R31
R0046 P76
R0047 R30
R0049 FLY
R0050 BURN, BABY, BURN -- MASTER IGNITION ROUTINE
R0051 P40-P47
R0052 THE LUNAR LANDING
R0053 THROTTLE CONTROL ROUTINES
R0054 LUNAR LANDING GUIDANCE EQUATIONS
R0055 P70-P71
R0056 P12
R0057 ASCENT GUIDANCE
R0058 SERVICER
R0059 LANDING ANALOG DISPLAYS
R0060 FINDCDUW - GUIDAP INTERFACE
R0061 LEMP505
R0062 P51-P53
R0063 LUNAR AND SOLAR EPPEMERIDES SUBROUTINES
R0064 SKIPPER
R0065 DOWN-TELEMETRY PROGRAM
R0066 INTER-BANK COMMUNICATION
R0067 INTERPRETER
R0068 FIXED-FIXED CONSTANT POOL
R0069 INTERPRETIVE CONSTANTS
R0070 SINGLE PRECISION SUBROUTINES
R0071 EXECUTIVE
R0072 WAITLIST
R0073 LATITUDE LONGITUDE SUBROUTINES
R0074 PLANETARY INTERTIAL ORIENTATION
R0075 MEASUREMENT INCORPORATION
R0076 CONIC SUBROUTINES
R0077 INTEGRATION INITIALIZATION
R0078 ORBITAL INTEGRATION
R0079 INFLIGHT ALIGNMENT ROUTINES
R0080 POWERED FLIGHT SUBROUTINES
R0081 TIME OF FREE FALL
R0082 AGC BLOCK TWO SELF-CHECK
R0083 PHASE TABEL MAINTENANCE
R0084 RESTARTS ROUTINE
R0085 IMU MODE SWITCHING ROUTINES
R0086 KEYRUPT, UPRUPT
R0087 DISPLAY INTERFACE ROUTINES
R0088 SERVICE ROUTINES
R0089 ALARM AND ABORT
R0090 UPDATE PROGRAM
R0091 RTB OP CODES
R0092 LMDAP
R0093 T6-RUPT PROGRAMS
R0094 DAP INTERFACE SUBROUTINES
R0095 CAPIOLER PROGRAM
R0096 P-AXIS RCS AUTOPILOT
R0097 Q,R-AXIS RCS AUTOPILOT
R0098 TJET LAW
R0099 KALMAN FILTER
R0100 TRIM GIMBAL CONTROL SYSTEM
R0101 AOSTASK AND ACSJOB
R0102 SPS BACK-UP RCS CONTROL
R0103 SYMBOL TABLE LISTING
R0104 UNREFERENCED SYMBOL LISTING
R0105 ERASABLE & EQUALS CROSS-REFERENCE TABLE
R0106 SUMMARY OF SYMBOL TABLE LISTING
R0107 MEMORY TYPE & AVAILABILTY DISPLAY
R0108 COUNT TABLE
R0109 PARAGRAPHS GENERATED FOR THIS ASSEMBLY
R0110 OCTAL LISTING
R0111 OCCUPIED LOCATIONS TABLE
R0112 SUBROS CALLED & PROGRAM STATUS