AGS cross-assembler yaLEMAP, Jan 24 2005, 20:41:25 Copyright 2005 Ronald S. Burkey. Licensed under the General Public License (GPL). 0001: # COPYRIGHT: PUBLIC DOMAIN. 0002: # FILENAME: FP6.S 0003: # PURPOSE: THIS IS THE APOLLO LUNAR MODULE'S FIRMWARE FOR THE 0004: # ABORT GUIDANCE SYSTEM (AGS). THIS IS FLIGHT PROGRAM 6. 0005: # ASSEMBLER: YALEMAP 0006: # CONTACT: RON BURKEY . 0007: # WEBSITE: WWW.IBIBLIO.ORG/APOLLO 0010: # REFERENCE: HTTP://WWW.IBIBLIO.ORG/APOLLO/PULTORAK_FILES/FP6_AGS_ASSEMBLYLISTING.PDF. 0011: # MOD HISTORY: 2005-01-22 RSB BEGAN ADAPTING FROM FP8.S. 0012: # 2005-01-23 RSB DATA ENTRY COMPLETE. IT ASSEMBLES WITHOUT 0013: # ERRORS OR WARNINGS, BUT ONLY THE CHECKSUM 0014: # FOR 4000-7777 IS CORRECT SO FAR. NOT YET 0015: # PROOFED. 0016: # 2005-01-24 RSB PROOFED 0000-3777. THE CHECKSUMS ALL MATCH 0017: # NOW. 4000-7777 ISN'T PROOFED, EVEN THOUGH 0020: # ITS CHECKSUM IS CORRECT. 0021: 0022: # THE CONTENTS HAVE BEEN TAKEN (BY MEANS OF MANUAL DATA ENTRY) FROM 0023: # AN ASSEMBLY LISTING OF FLIGHT PROGRAM 6 SCANNED BY JOHN PULTORAK FROM 0024: # A PHYSICAL COPY PRESERVED BY SUPPLIED BY DAVIS PETICOLAS. (THE WWW LINK 0025: # FOR THE SCAN IS REFERENCED ABOVE.) HOWEVER, I HAVE NOT SIMPLY SLAVISHLY 0026: # ENTERED THE CODE DIRECTLY FROM VIEWING THE SCAN. RATHER, I HAVE STARTED 0027: # WITH FP8 SOURCE CODE, AND ONLY CHANGED IT AS NEEDED. THERE ARE SEVERAL 0030: # REASONS FOR THIS: 0031: 0032: # 1. FP8 AND FP6 ARE EXTREMELY SIMILAR. IN FACT, THE CHECKSUM 0033: # OF THE ENTIRE UPPER HALF OF MEMORY (4000-7777 OCTAL) IS 0034: # IDENTICAL, LEADING US TO BELIEVE THAT HUGE HUNKS OF THE 0035: # CODE ARE UNCHANGED. 0036: # 2. FP8 SOURCE CODE, AS MENTIONED, HAS PREVIOUSLY BEEN ENTERED 0037: # AND THEREFORE IS AVAILABLE. 0040: # 3. PAGES 90 AND 96 ARE MISSING FROM THE PHYSICAL COPY OF THE 0041: # FP6 SOURCE CODE WHICH WAS SCANNED, AND THEREFORE WE HAVE 0042: # LITTLE CHOICE BUT TO TAKE THEM FROM THE ONLY AVAILABLE OTHER 0043: # VERSION OF THE PROGRAM (NAMELY, FROM FP8). FORTUNATELY, 0044: # PAGES 90 AND 96 ARE IN THE 4000-7777 ADDRESS RANGE, WHICH 0045: # WE BELIVE HAS NOT CHANGED. 0046: # 4. THE PHYSICAL COPY OF FP6 FROM WHICH THE SCAN HAS BEEN TAKEN 0047: # IS MUCH LIGHTER AND HARDER TO READ THAN FP8. 0050: # 5. AND FINALLY, IT'S JUST EASIER FOR ME TO DO IT THIS WAY AND 0051: # SAVE MYSELF SOME TIME. 0052: 0053: # THE DANGER OF THIS APPROACH IS MAINLY NOT CATCHING CHANGES TO THE PROGRAM 0054: # COMMENTS (WHICH, OF COURSE, WERE RATHER UNCERTAIN TO BEGIN WITH, SINCE THE 0055: # METHOD OF PROOFING THE FP8 SOURCE CODE DID NOT PROOF THE COMMENTS). SO, 0056: # ANYBODY WHO WANTS TO VOLUNTEER TO PROOF THE COMMENTS HAS MAY BACKING! 0057: 0060: # THIS FILE CONTAINS THE ENTIRE SOURCE CODE FOR FP6. I HAVE NOT SPLIT THE 0061: # SOURCE CODE INTO MANY SMALLER CHUNKS AS HAS BEEN DONE FOR AGC SOURCE CODE. 0062: # THE PAGE REFERENCES ARE TO THE SCANNED PDF OF THE ASSEMBLY LISTING, BUT 0063: # THE PAGE MARKINGS ON THE PHYSICAL COPY MATCH THE PDF PAGES, BECAUSE I HAVE 0064: # SPECIFICALLY MANIPULATED THEM TO DO SO. IN ADDITION 0065: # TO THE COMMENTS CONTAINING THE PAGE REFERENCES, I'VE ALSO ADDED SOME 0066: # BLANK LINES FOR READABILITY. SO DON'T EXPECT THE LINE NUMBERS IN THE 0067: # SCANNED VERSION TO MATCH THE LINE NUMBERS IN AN ASSEMBLY LISTING CREATED 0070: # BY PROCESSING THIS SOURCE FILE WITH THE YALEMAP CROSS-ASSEMBLER. 0071: 0072: # PAGE 1 0073: # FLIGHT PROGRAM X -- LMAGS FPX S03 0151 -- 02/14/69 0074: # LM ABORT ELECTRONICS ASSEMBLY 0075: 0076: # SCRATCH PAD STORAGE 0077: 0000 ORG 0000 0100: 0000 000000 TS0 DEC 0 0101: 0001 000000 TS1 DEC 0 0102: 0002 000000 TS2 DEC 0 0103: 0003 000000 TS3 DEC 0 0104: 0004 000000 TS4 DEC 0 0105: 0005 000000 TS5 DEC 0 0106: 0006 000000 TS6 DEC 0 0107: 0007 000000 TS7 DEC 0 0110: 0010 000000 TS10 DEC 0 0111: 0011 000000 TS11 DEC 0 0112: 0012 000000 TS12 DEC 0 0113: 0013 000000 TS13 DEC 0 0114: 0014 000000 TS14 DEC 0 0115: 0015 000000 TS15 DEC 0 0116: 0016 000000 TS16 DEC 0 0117: 0017 000000 TS17 DEC 0 0120: 0010 B11 EQU TS10 # B3 B13 FOR RATE 0121: 0011 B21 EQU TS11 # B3 B13 FOR RATE 0122: 0012 B31 EQU TS12 # B-7 B3 FOR RATE 0123: 0013 B41 EQU TS13 # B-7 B3 FOR RATE 0124: 0014 B12 EQU TS14 # B3 ZERO FOR RATE 0125: 0015 B22 EQU TS15 # B3 ZERO FOR RATE 0126: 0016 B32 EQU TS16 # B-7 ZERO FOR RATE 0127: 0017 B42 EQU TS17 # B-7 ZERO FOR RATE 0130: 0020 000000 SREX3 DEC 0 0131: 0021 000000 SREX2 DEC 0 0132: 0022 000000 SREX1 DEC 0 0133: 0023 000000 SREX DEC 0 0134: 0024 000000 TVARBR DEC 0 # TEMP STORE FOR CK SUM. 0135: 0025 40 0 6246 TRA RETURN # SERV ROUT, STARTUP 0136: 0137: # TAPE LOAD STARTUP CHECKSUM 0140: 0141: 0026 66 0 6402 SF OUT 6402 # DEDA INPUT SCALE FACTOR 0142: 0143: # PAGE 2 0144: 0027 64 0 2040 OCTF INP 2040 # DEDA OCTAL INPUT 0145: 0146: # THE NEXT 16 LOCATIONS ARE SHARED 0147: # WITH A RR FILTER TEMPORARY MATRIX 0150: 0151: 0030 56 0 0001 U2X ALS 1 # B1 UNIT RADIAL VECTOR TO 0152: 0031 46 0 0033 U2Y TMI *+2 # B1 TRIAL RENDEZ PT. 0153: 0032 40 0 0027 U2Z TRA *-3 # B1 0154: 0030 VFX EQU U2X # BRAKING VEL VECTOR AT 13. 0155: 0030 RDOTX EQU U2X # 0B13 RANGE RATE CSM-LSM 0156: 0031 RDOTY EQU U2Y 0157: 0032 RDOTZ EQU U2Z 0160: 0033 70 0 0034 C2 DLY *+1 # B1 RENDEZ ANGLE SINE 0161: 0034 66 0 7012 V1X OUT 7012 # B1 HORIZ UNIT VECTOR 0162: 0035 64 0 6200 V1Y INP 6200 0163: 0036 30 0 0137 V1Z CLZ SUM 0164: 0037 20 0 0066 DLSC CLA V2Z # DOWNLINK SHIFT COUNTER 0165: 0040 10 0 0024 W1X STO TVARBR # B1 U1 X V1 0166: 0040 D31 EQU W1X 0167: 0041 30 0 0153 W1Y CLZ WRDCNT 0170: 0042 72 0 0024 W1Z TSQ TVARBR 0171: 0043 32 0 0137 SI ADZ SUM # B0 E(SIN(E0)) 0172: 0044 10 0 0137 A31S STO SUM # B1 RADAR NULL DIR COS 0173: 0045 20 0 0024 A32S CLA TVARBR 0174: 0046 24 0 4046 A33S SUB CLAFR 0175: 0047 46 0 0060 SIDELL TMI U1X # B1 SIN DELTA L 0176: 0050 30 0 0137 V6X CLZ SUM # B13 TEMP STORAGE FOR TPI QUANT 0177: 0051 46 0 0054 V6Y TMI *+3 0200: 0052 24 0 4006 V6Z SUB 1B17 0201: 0050 DQSX EQU V6X # ACCUM VEL IN XDV 0202: 0053 46 0 1101 CODELL TMI EXIT40 # B1 COS DELTA L 0203: 0054 20 0 7512 WCX CLA 10B4 # B1 UNIT VECTOR NORMAL 0204: 0055 10 0 0412 WCY STO S12 # TO CSM ORBIT 0205: 0056 66 0 6410 WCZ OUT 6410 0206: 0057 40 0 1052 TMPBR TRA SINITC # TEMP BRANCH STORE 0207: 0060 30 0 0153 U1X CLZ WRDCNT # B1 LEM UNIT RAD VECTGOR 0210: 0061 22 0 4006 U1Y ADD 1B17 0211: 0062 10 0 0153 U1Z STO WRDCNT 0212: 0063 24 0 4014 BRANCH SUB 1B11 # GUIDANCE BRANCH 0213: 0064 46 0 0042 V2X TMI W1Z # B1 HORZ UNIT VECTOR AT 0214: 0065 70 0 0041 V2Y DLY W1Y # RENDEZ POINT 0215: 0066 20 0 0206 V2Z CLA 0206 0216: 0217: # PAGE 3 0220: 0221: # END OF TAPE LOAD CHECKSUM PROGRAM 0222: 0223: 0064 VGX EQU V2X # VEL TO GAIN VECTOR AT L3 0224: 0067 000000 AT DEC 0B7 0225: 0070 000000 EX DEC 0B2 # ATTITUDE ERRORS. 0226: 0071 000000 EY DEC 0 0227: 0072 000000 EZ DEC 0 0230: 0073 000000 X3 DEC 0B0 # XFR ORB PARAM. 0231: 0073 Q11 EQU X3 # B30 B10 FOR RATE 0232: 0074 000000 DVXM1 DEC 0B1 # BODY DELTA VS 0233: 0075 000000 DVYM1 DEC 0 # PREVIOUS CYCLE. 0234: 0076 000000 DVZM1 DEC 0 0235: 0077 000000 NI DEC 0B-9 # PREDICTION ANGULAR FREQUENCY 0236: 0077 NE EQU NI # CSM PRED. ANGULAR FREQ. 0237: 0100 000000 VD2X DEC 0B2 # DELTA V EXP LS 0240: 0101 000000 VD2Y DEC 0 0241: 0102 000000 VD2Z DEC 0 0242: 0103 000000 CI DEC 0B0 # E(COS(E0)) 0243: 0104 000000 DRX DEC 0B14 # LRM POS REMAINDERS 0244: 0105 000000 DRY DEC 0 0245: 0106 000000 DRZ DEC 0 0246: 0107 000000 THEP DEC 0 # PGNS THETA IN COUNTS. 0247: 0110 000000 DIGX DEC 0B7 # PREDICTED CHANGE IN 0250: 0111 000000 DIGY DEC 0 # INTEGRATED GRAVITY. 0251: 0112 000000 DIGZ DEC 0 0252: 0113 000000 PSIP DEC 0 # PGNS PSI IN COUNTS. 0253: 0114 000000 GXDT DEC 0B7 # GRAVITY TIMES MAJOR 0254: 0115 000000 GYDT DEC 0 0255: 0116 000000 GZDT DEC 0 0256: 0117 000000 PHIP DEC 0 # PGNS PHI IN COUNTS. 0257: 0120 000000 DVSX DEC 0B7 0260: 0121 000000 DVSY DEC 0 0261: 0122 000000 DVSZ DEC 0 0262: 0123 000000 SIGA DEC 0B1 # SIN FDAI GAMMA. 0263: 0124 000000 RRX DEC 0B23 # COMPUTED LM-CSM RANGE 0264: 0125 000000 RRY DEC 0 0265: 0266: # PAGE 4 0267: 0126 000000 RRZ DEC 0 0270: 0127 000000 COGA DEC 0B1 # COS FDAI GAMMA. 0271: 0130 200000 A11 DEC 1.0B1 # XB DIRECTION COSINES. 0272: 0131 000000 A12 DEC 0 0273: 0132 000000 A13 DEC 0 0274: 0133 000000 TS8 DEC 0 0275: 0134 000000 A31 DEC 0 # ZB DIRECTION COSINES 0276: 0135 000000 A32 DEC 0 0277: 0136 200000 A33 DEC 1.0B1 0300: 0137 000000 SUM DEC 0 # RUNNING MEMORY SUM 0301: 0140 000000 A21 DEC 0 # YB DIRECTION COSINES 0302: 0141 200000 A22 DEC 1.0B1 0303: 0142 000000 A23 DEC 0 0304: 0143 000000 X4 DEC 0B0 # XFR ORB PARAM. 0305: 0143 VHSQ EQU X4 # 0B26 VH SQUARED 0306: 0143 Q12 EQU X4 # B30 0307: 0144 000000 E1 DEC 0 # -6 OR -9 XB NORM ERROR 0310: 0145 000000 E3 DEC 0 # ZB NORMALITY ERROR. 0311: 0146 000000 E13 DEC 0 # XB,ZB ORTHOG ERROR. 0312: 0147 000000 T1 DEC 0B18 # TA1 AT RADAR NULL 0313: 0150 000000 DA11 DEC 0B-5 # DIR COSINE REMAINDERS 0314: 0151 000000 DA12 DEC 0 0315: 0152 000000 DA13 DEC 0 0316: 0153 000000 WRDCNT DEC 0 # CKSUM WORD COUNT 0317: 0154 000000 DA31 DEC 0 0320: 0155 000000 DA32 DEC 0 0321: 0156 000000 DA33 DEC 0 0322: 0157 000000 TSEX DEC 0 # EXIT FROM NORTON 0323: 0160 000000 A11D DEC 0B1 # XD DIRECTION COSINES. 0324: 0161 000000 A12D DEC 0 0325: 0162 000000 A13D DEC 0 0326: 0163 000000 DEC 0 # ** UNUSED -- INDEXED BY A11D ** 0327: 0164 000000 A31D DEC 0B1 # ZD DIRECTION COSINES. 0330: 0165 000000 A32D DEC 0 0331: 0166 000000 A33D DEC 0 0332: 0167 000000 MU17 DEC 0B3 # RADAR FILTER ENTRY COUNTER 0333: 0170 000000 P DEC 0B23 # TRIAL SEMI-PARAMETER 0334: 0335: # PAGE 5 0336: 0170 Q22 EQU P # B30 0337: 0171 000000 ALPHA DEC 0B23 # XFR ORBIT SEMI-MAJOR AXIS 0340: 0172 000000 Q1 DEC 0B23 # XFR ORBIT PERILUNE 0341: 0172 ESQ EQU Q1 0342: 0173 000000 AI DEC 0B23 # PRED. SEMI-MAJOR AXIS 0343: 0173 AE EQU AI # CSM PRED. SEMI-MAJOR AXIS 0344: 0174 000000 R5X DEC 0B23 # LM PRED POS AHEAD TDEL 0345: 0175 000000 R5Y DEC 0 0346: 0176 000000 R5Z DEC 0 0347: 0177 000000 AL DEC 0B23 # LM PRED. SEMI-MAJOR AXIS 0350: 0200 000000 REX DEC 0B23 # CSM EPOCH POSITION 0351: 0201 000000 REY DEC 0 0352: 0202 000000 REZ DEC 0 0353: 0203 000000 RT DEC 0B23 # CSM PRED POS. MAG. 0354: 0204 000000 R0X DEC 0B23 # PRED EPOCH POS VECTOR 0355: 0205 000000 R0Y DEC 0 0356: # SEE REAR OF LISTING FOR CHECKSUM 0357: # NOTE THAT THE CHECKSUM PSEUDO-OP IS NOT DEFINED IN THE AGS 0360: # PROGRAMMER'S MANUAL. I HAVE DECIDED FOR THE PURPOSES OF 0361: # IMPLEMENTING YALEMAT THAT THE FOLLOWING SYNTAX WILL BE 0362: # USED. IT MEANS THAT THE CROSS-ASSEMBLER WILL COMPUTE A 0363: # CHECKSUM OF THE ADDRESS RANGE 0207-1004 (OCTAL), AND WILL 0364: # STORE IT RIGHT HERE. 0365: 0206 CHECKSUM RANGE 0207-1004 0366: 0206 R0Z DEFINE 0206 0367: 0207 000000 R0 DEC 0B23 # PRED EPOCH POS. MAG. 0370: 0210 000000 R DEC 0B23 # LM POS MAGNITUDE 0371: 0211 000000 Y DEC 0B23 # OUT OF PLANE POSITION 0372: 0212 000000 PP DEC 0B23 # P PRIME/EXIT FOR MXM 0373: 0212 DELTA EQU PP # B60 B10 FOR RATE 0374: 0213 002261 POUTFS DEC 7.684096E4B23 # MAX P DISPLAYABLE 0375: 0214 000000 POUT DEC 0 # DISPLAY POSITION. 0376: 0215 000000 DPOUT DEC 0 # DISPLAY POSITION INCREMENT. 0377: 0216 040000 2K3 DEC 1048576.B23 # QL SET ON O.F. 0400: 0217 001415 2K14 DEC 5.E4B23 # INITIAL P PERTURBATION 0401: 0220 000000 RIX DEC 0B23 # ELLIPSE PRED POS OUTPUT 0402: 0221 000000 RIY DEC 0 0403: 0222 000000 RIZ DEC 0 0404: 0220 DELR1 EQU RIX # MEASURED MINUS COMPUTED RANGE 0405: 0221 DELR3 EQU RIY # B23 0406: 0222 DELR2 EQU RIZ 0407: 0223 000000 25J DEC 0B23 # DEDA ALTITUDE UPDATE 0410: 0224 270633 7J DEC 6055605B23 # TERM IN AL(O.I.) 0411: 0412: # PAGE 6 0413: 0225 261561 8J DEC 5823542B23 # AL LOWER LIMIT (O.I.) 0414: 0226 326447 9J DEC 7031200B23 # AL UPPER LIMIT (O.I.) 0415: 0227 540764 4K10 DEC -651361.1B20 # TERM IN AL (O.I.) 0416: 0230 017205 2K19 DEC 5.E5B23 # DELTA P LIMITER 0417: 0231 256014 5J DEC 5.7024E6B23 # LANDING SITE RADIUS 0420: 0232 001652 16J DEC 60000B23 # ORBIT INSERTION ALTITUDE 0421: 0233 000607 21J DEC 25000B23 # PITCH STEERING ALT THRESHOLD 0422: 0234 000000 RRSX DEC 0B23 # CALCULATED RANGE AT TIME 0423: 0235 000000 RRSY DEC 0 # OF RADAR RANGE MEASUREMENT. 0424: 0236 000000 RRSZ DEC 0 0425: 0234 L12 EQU RRSX # B30 ZERO FOR RATE 0426: 0235 L22 EQU RRSY # B30 ZERO FOR RATE 0427: 0236 L32 EQU RRSZ # B30 ZERO FOR RATE 0430: 0237 000000 L42 DEC 0 # B20 ZERO FOR RATE 0431: 0432: # INITIALIZE DATA FROM DOWNLINK ADDRESSES 0433: # LOCATIONS 0240-0257 USED 0434: 0240 000000 1J1 DEC 0B23 # LM EPHEMERIS POS 0435: 0241 000000 1J2 DEC 0 0436: 0242 000000 1J3 DEC 0 0437: 0243 000000 DEC 0 0440: 0244 000000 2J1 DEC 0 # CSM EPHEMERIS POS 0441: 0245 000000 2J2 DEC 0 0442: 0246 000000 2J3 DEC 0 0443: 0247 000000 DEC 0 0444: 0250 000000 DEC 0 0445: 0251 000000 DEC 0 0446: 0252 000000 DEC 0 0447: 0253 000000 DEC 0 0450: 0254 000000 1J7 DEC 0B18 # LM EPOCH TIME 0451: 0255 000000 1J7LS DEC 0B1 0452: 0256 000000 DEC 0 0453: 0257 000000 DEC 0 0454: 0260 000000 1J4 DEC 0B13 # LM EPHEMERIS VEL 0455: 0261 000000 1J5 DEC 0 0456: 0262 000000 1J6 DEC 0 0457: 0263 000000 VPY DEC 0B13 # OUT-OF-PLANE VELOCITY 0460: 0461: # PAGE 7 0462: 0264 000000 2J4 DEC 0 # CSM EPHEMERIS VEL 0463: 0265 000000 2J5 DEC 0 0464: 0266 000000 2J6 DEC 0 0465: 0267 000000 DELVG DEC 0B13 # VEL-TO-BE-GAINED FOR 40 MS 0466: 0270 000000 VY0 DEC 0B13 # LM OUT-OF-PLANE VEL 0467: 0271 000000 RB DEC 0B23 # RF SAVED FOR ORBIT INSERT 0470: 0272 000000 2J7 DEC 0 # CSM EPOCH TIME 0471: 0273 000000 2J7LS DEC 0 0472: 0274 776030 29J DEC -2000.B18 # INITIAL FILTER TIME FOR T1 0473: 0275 000000 1J DEC 0B18 # NOMINAL TPI TIME (CSI) 0474: 0276 000000 DELTAT DEC 0B18 # TIME OF LAST RADAR UPDATE 0475: 0277 000000 XI DEC 0B3 # Z-AXIS/LOCAL HORIZ ANGLE 0476: 0300 000000 A31BD DEC 0B1 # UNIT VECTOR (LM-CSM) 0477: 0301 000000 A32BD DEC 0 0500: 0302 000000 A33BD DEC 0 0501: 0303 000000 TLOS DEC 0B3 # DXFR LOS COMPUTED 0502: 0303 THETAF EQU TLOS # LM-CSM CENTRAL ANG AT CSI/CDH 0503: 0304 000034 6K8 DEC .22B10 # RANGE RATE ERROR VARIANCE 0504: 0305 000000 DEC 0 # **UNUSED** 0505: 0306 000000 4J DEC 0B13 # TIME OF NODE PRIOR TO RENDEZ 0506: 0307 120400 6J DEC 2576.0B13 # DESIRED TRANSFER TIME 0507: 0310 000000 TDEL DEC 0B13 # TIME TIL NEXT MANEUVER 0510: 0311 000000 TR DEC 0B13 # TIME TIL RENDEZVOUS 0511: 0312 000000 3J DEC 0B13 # TARGET OFFSET TIME 0512: 0313 000000 TPERG DEC 0B13 # LM TIME TO PERIGEE 0513: 0314 000000 DELRP DEC 0B23 # DIFF. ALT. AT TIG(CSI-CDH) 0514: 0315 000000 QA DEC 0B23 # LM APOFOCUS ALTITUDE 0515: 0316 000000 18J DEC 0B23 # MEASURED RADAR RANGE 0516: 0317 000000 RR DEC 0B23 # COMPUTED RANGE 0517: 0320 000000 READP DEC 0 0520: 0321 000000 ENTERP DEC 0 0521: 0322 000000 HOLDP DEC 0 0522: 0323 000000 CLEARP DEC 0 0523: 0324 000000 HMF DEC 0 0524: # START OF TELEMETRY LIST 0525: 0325 000000 RMF DEC 0 # READOUT MODE FLAG 0526: 0326 000000 DD DEC 0 # DEDA DATA 0527: 0530: # PAGE 8 0531: 0327 000000 CMF DEC 0 # CLEAR MODE FLAG 0532: 0330 200000 A11T DEC 1.B1 # TM DIR COSINES 0533: 0331 000000 A12T DEC 0 0534: 0332 000000 A13T DEC 0 0535: 0333 000000 ADST DEC 0 # DEDA ADDRESS 0536: 0334 000000 A31T DEC 0 0537: 0335 000000 A32T DEC 0 0540: 0336 200000 A33T DEC 1.B1 0541: 0337 000000 H DEC 0B23 # ALTITUDE 0542: 0340 000000 RX DEC 0B23 # LM POSITION 0543: 0341 000000 RY DEC 0 0544: 0342 000000 RZ DEC 0 0545: 0343 000000 QL DEC 0B23 # PRESENT LM PERICYNTHION 0546: 0343 EONS10 EQU QL # ENG ON+S10 FOR TM 0547: 0344 000000 RCX DEC 0B23 # CSM PRESENT POSITION 0550: 0345 000000 RCY DEC 0 0551: 0346 000000 RCZ DEC 0 0552: 0347 000000 RF DEC 0B23 # PREDICTED BURNOUT ALT. 0553: 0350 000000 DVX DEC 0B1 # BODY DELTA VS 0554: 0351 000000 DVY DEC 0 # THIS CYCLE. 0555: 0352 000000 DVZ DEC 0 0556: 0353 000000 TA2 DEC 0B1 # ABS TIME LS. 0557: 0354 000000 DAX DEC 0B-6 # DELTA ALPHAS 0560: 0355 000000 DAY DEC 0 0561: 0356 000000 DAZ DEC 0 0562: 0357 000000 TBO DEC 0B9 # TIME TO BURNOUT. 0563: 0360 000000 VX DEC 0B13 # LM VELOCITY 0564: 0361 000000 VY DEC 0 0565: 0362 000000 VZ DEC 0 0566: 0363 000000 MU8S12 DEC 0 # MU8/S12 0567: 0364 000000 VCX DEC 0B13 # CSM PRESENT VELOCITY 0570: 0365 000000 VCY DEC 0 0571: 0366 000000 VCZ DEC 0 0572: 0367 000000 HDOT DEC 0B13 # ALTITUDE RATE 0573: 0370 000000 VG DEC 0B13 # VELOCITY TO GAIN 0574: 0371 000000 VT DEC 0B13 # TOTAL VEL REQ FOR DXFER 0575: 0371 VP0 EQU VT # VEL. TO-BE-GAINED AT CDH 0576: 0577: # PAGE 9 0600: 0372 000000 TA0 DEC 0B18 # TIME FROM CSI TO CDH 0601: 0373 000000 TIG DEC 0B18 # ABSOLUTE TIME OF MANEUVER 0602: 0374 000000 A11BD DEC 0B1 # CMD XB POINTING DIR 0603: 0375 000000 A12BD DEC 0 0604: 0376 000000 A13BD DEC 0 0605: 0377 000000 TA1 DEC 0B18 # ABS TIME MS. 0606: 0400 000000 S0 DEC 0 # AGS FUNCTION SELECTOR 0607: 0401 000000 DISC1C DEC 0 # DISCRETE WD 1-TRUE STATE 0610: 0402 000000 Q1DEDA DEC 0B23 # TRANS ORBIT PERICYN ALT 0611: 0402 DELH EQU Q1DEDA # DIFF. ALT. AFTER CDH(CSI-CDH) 0612: 0403 000000 QLTELE DEC 0B23 # QL FOR TELE AND DEDA 0613: 0404 000000 VD1X DEC 0B13 # 40MS VEL ACCUMULATION 0614: 0405 000000 VD1Y DEC 0 0615: 0406 000000 VD1Z DEC 0 0616: # END OF TELEMETRY LIST 0617: 0407 000000 S7 DEC 0 # ENGINE ON FOR EXT DELTA V 0620: 0410 000000 S10 DEC 0 # GUIDANCE MODE SELECTOR 0621: 0411 000000 S11 DEC 0 # AUTO RADAR SWITCH 0622: 0412 000000 S12 DEC 0 # TEST STATUS 0623: 0413 000000 S13 DEC 0 # STORE LUNAR AZIMUTH 0624: 0414 000000 S14 DEC 0 # NAVIGATION INITIALIZE 0625: 0415 000000 S15 DEC 0 # RADAR GIMBAL NULL 0626: 0416 000000 S16 DEC 0 # CDH APSIDAL SELECTION 0627: 0417 000000 S17 DEC 0 # RADAR FILTER INIT. SWITCH 0630: 0420 000000 VEX DEC 0B13 # CSM EPOCH VEL 0631: 0421 000000 VEY DEC 0 0632: 0422 000000 VEZ DEC 0 0633: 0423 000000 RFDOT DEC 0B13 # DESIRED ALT RATE 0634: 0424 000000 V0X DEC 0B13 # PRED EPOCH VEL VECTOR 0635: 0425 000000 V0Y DEC 0 0636: 0426 000000 V0Z DEC 0 0637: 0427 000000 VH DEC 0B13 # LM HORIZONTAL VEL 0640: 0430 000000 VIX DEC 0B13 # ELLIPSE PRED VEL OUTPUT 0641: 0431 000000 VIY DEC 0 0642: 0432 000000 VIZ DEC 0 0643: 0433 000000 V DEC 0B13 # LM TOTAL VELOCITY 0644: 0434 000000 TP DEC 0B13 # TRIAL XFR ORB. TIME. 0645: 0646: # PAGE 10 0647: 0435 000000 T DEC 0B13 # TIME TO RENDEZ. 0650: 0436 000000 TB DEC 0B13 # TA-TE. 0651: 0437 000000 PDOTM1 DEC 0B13 # DISPLAY POS RATE(-1) 0652: 0440 000000 RRDOT DEC 0B13 # RANGE RATE 0653: 0441 000000 RDOTS DEC 0B13 # R. R. STORED AT RADAR INPUT 0654: 0442 000000 TI DEC 0B13 # PREDICTION TIME/RR FILTER TEMP 0655: 0443 000000 DPDOUT DEC 0B13 # DISPLAY POS RATE INCREMENT 0656: 0444 000000 PDOUT DEC 0B13 # DSP POS RATE CONV TO FPS AT 13 0657: 0445 000000 TCSM DEC 0B13 # CSM PERIOD (SEC) 0660: 0446 303240 BACCSF DEC 0.762939B0 # .001 FT/SEC2 TO FPS/20MS AT 1 0661: 0447 000360 2K18 DEC 15.B13 # PARTIAL DERIV PROTECTOR. 0662: 0450 000000 28J1 DEC 0B13 # DELTA V DOWNRANGE 0663: 0451 000000 28J2 DEC 0B13 # DELTA V CROSSRANGE 0664: 0452 000000 28J3 DEC 0B13 # DELTA V RADIAL 0665: 0453 000040 2K20 DEC 2.B13 # CONVERGENCE CHECK. 0666: 0454 003100 4K26 DEC 100.0B13 # VG THRESHOLD 0667: 0455 000000 DDF DEC 0 # DEDA DATA RECEIVED FLAG 0670: 0456 031000 6K4 DEC .1E3B10 # INITIAL VALUE OF P33 AND P44 0671: 0457 027657 6K2 DEC .1E9B30 # INIT VALUE OF P11,P22 0672: 0460 000000 V5X DEC 0B13 # TPI-PREDICTED V AT TPI TIME 0673: 0461 000000 V5Y DEC 0 0674: 0462 000000 V5Z DEC 0 0675: 0460 DVGXX EQU V5X # VEL TO GAIN IN EXT DELTA V 0676: 0463 000000 VHA DEC 0B13 0677: 0464 001440 22J DEC 50B13 # PITCH STEERING ALT RATE THRESH 0700: 0465 000000 23J DEC 0B13 # RFDOT LOWER LIMIT 0701: 0466 000360 5K26 DEC 15B13 # PSEUDO ATT HOLD IN STEER 0702: 0467 000000 PART DEC 0B14 # PARTIAL DERIVATIVE 0703: 0470 000000 VDX DEC 0B13 # VD1 AT NAV UPDATE 0704: 0471 000000 VDY DEC 0 0705: 0472 000000 VDZ DEC 0 0706: 0473 432700 4K27 DEC -7332.B13 # OVERFLOW PROTECTION FOR VD1X 0707: 0474 000000 VSMGX DEC 0B13 # VD1 CUTOFF 0710: 0475 000000 VSMGY DEC 0 0711: 0476 000000 VSMGZ DEC 0 0712: 0477 000000 RADOT DEC 0B13 # PRED. RDOT AT TIG 0713: 0500 000000 DELVGX DEC 0B13 # THRUST VEL TO GAIN 0714: 0715: # PAGE 11 0716: 0501 000000 DELVGY DEC 0 0717: 0502 000000 DELVGZ DEC 0 0720: 0503 000000 17J DEC 0B13 # RANGE RATE INPUT 0721: 0504 000000 RD3DOT DEC 0B-2 # DESIRED RADIAL JERK 0722: 0505 000000 YD3DOT DEC 0B-2 # DESIRED OUT-OF-PLANE JERK 0723: 0506 012000 4K12 DEC 5B7 # ACCEL THRESH IN O.I. STEER 0724: 0507 000000 S507 DEC 0B3 # ACQ STEER SEL OF PT DIR 0725: 0510 000000 DAXREM DEC 0B-13 # INCRE. GYRO INPUT REMAINDERS 0726: 0511 000000 DAYREM DEC 0 0727: 0512 000000 DAZREM DEC 0 0730: 0513 000000 C1 DEC 0B1 # RENDEZ ANGLE COSINE. 0731: 0514 000000 WBX DEC 0B1 # UNIT VECTOR FOR 0732: 0515 000000 WBY DEC 0 # GUIDANCE STEERING 0733: 0516 000000 WBZ DEC 0 0734: 0517 005754 6K10 DEC .625E7B28 # VARIANCE OF RADAR RANGE ERROR 0735: 0520 000000 TE1 DEC 0B18 # CSM EPOCH TIME MS. 0736: 0521 000000 TL1 DEC 0B18 # LEM EPOCH TIME MS. 0737: 0522 777605 6K6 DEC -.24B8 # Y-VELOCITY FILTER WEIGHT 0740: 0523 000000 5K20 DEC 0B-2 # RD3DOT LOWER LIMIT 0741: 0524 000000 TE2 DEC 0 # CSM EPOCH TIME LS. 0742: 0525 000000 TL2 DEC 0 # LEM EPOCH TIME LS. 0743: 0526 273400 2K11 DEC 6000B13 # VF IF OVERFLOW 0744: 0527 002400 4K6 DEC 80.B13 # RFDOT UPPER LIMIT 0745: 0530 000000 DAXA DEC 0B-6 # ALIGN INCREMENTS 0746: 0531 000000 DAYA DEC 0 0747: 0532 000000 DAZA DEC 0 0750: 0533 000000 DISC1 DEC 0 # DISCRETE WORD 0751: 0534 314632 1K18 DEC .003125B-8 # ACCEL SCALE FACTOR 0752: 0535 314632 1K20 DEC .003125B-8 0753: 0536 314632 1K22 DEC .003125B-8 0754: 0537 000000 1K14 DEC 0B-14 # X-AXIS MASS UNBAL COMP 0755: 0540 000000 1K19 DEC 0B1 # ACCEL BIAS 0756: 0541 000000 1K21 DEC 0B1 # COMPENSATION 0757: 0542 000000 1K23 DEC 0B1 0760: 0543 000000 DSPSC DEC 0 # DISPLAY SHIFT COUNTER 0761: 0544 000000 1K1 DEC 0B-13 # GYRO BIAS 0762: 0545 000000 1K6 DEC 0 # COMPENSATIONS 0763: 0764: # PAGE 12 0765: 0546 000000 1K11 DEC 0 0766: 0547 000000 DDEL DEC 0B0 # LUNAR ALIGN CORRECTION 0767: 0550 000000 1K3 DEC 0B-7 # GYRO SCALE FACTOR 0770: 0551 000000 1K8 DEC 0 # COMPENSATIONS 0771: 0552 000000 1K13 DEC 0 0772: 0553 000000 HRF DEC 0 # HIGH RATE FLAG 0773: 0554 000000 RD2DOT DEC 0B7 # DESIRED RADIAL ACCEL 0774: 0555 000000 YD2DOT DEC 0B7 # DESIRED OUT-OF-PLANE ACCEL 0775: 0554 L11 EQU RD2DOT # B30 B20 INTERMEDIATE RESULTS 0776: 0555 L21 EQU YD2DOT # B30 B20 USED TO COMPUTE 0777: 0556 000000 L31 DEC 0 # B20 B10 RADAR FILTER 1000: 0557 000000 L41 DEC 0 # B20 B10 WEIGHTS 1001: 0554 LILA EQU RD2DOT # INTERMEDIATE RESULTS FOR 1002: 0555 LILE EQU YD2DOT # COVARIANCE MATRIX COMPUTATION 1003: 0556 LILJ EQU L31 # B-15 1004: 0557 LILC EQU L41 1005: 0560 000000 5K14 DEC 0B-2 # RD3DOT UPPER LIMIT 1006: 0561 010142 5K16 DEC .008B-2 # YD3DOT UPPER LIMIT 1007: 0562 000000 DLWN DEC 0 # DOWNLINK WORD COUNTER 1010: 0563 000000 DLIF DEC 0 # DOWNLINK INITIALIZE FLAG 1011: 0564 631463 5K18 DEC -.1B-2 # RD3DOT LOWER LIMIT 1012: 0565 203045 4K4 DEC .004B-7 # FACTOR IN RFDOT(OI) 1013: 0566 026263 4K7 DEC .0873B0 # PITCH CANT ANGLE 1014: 0567 000000 DSPF1 DEC 0 # DISPLAY FLAG1. 1015: 0570 000000 ID1F DEC 0 # DOWNLINK ID RECEIVED 1016: 0571 000000 IDRF DEC 0 # DOWNLINK INPUT COMPLETE 1017: 0572 000000 FLAGT DEC 0 # MEMORY TEST 1020: 0573 000000 FLAG1 DEC 0 # 20MS BRANCH CONTROL 1021: 0574 000000 DEL2 OCT 0 # STAGED FLAG. 1022: 0575 000000 DEL5 OCT 0 # ATTHLD LOCK FLAG. 1023: 0576 000000 DEL6 DEC 0 # CALIBRATE I.C. FLAG 1024: 0577 000000 DEL10 DEC 0 # TPI LOGIC FLAG 1025: 0600 000000 RD3DTL DEC 0B-2 # RD3DOT LOWER LIMIT 1026: 0601 767636 5K17 DEC -.008B-2 # YD3DOT LOWER LIMIT 1027: 0602 010550 4K8 DEC .034B0 # POLL CANT ANGLE 1030: 0603 000000 DEL20 DEC 0 # LOGIC FLAG FOR ENG CONTROL 1031: 0604 000000 DEL21 OCT 0 # LUNAR SURFACE FLAG. 1032: 1033: # PAGE 13 1034: 0605 003775 2J DEC 1.9970B7 # COTAN OF DESIRED LOS AT TPI 1035: 0606 000000 DEL42 OCT 0 # LUNAR ALINE COMPLETE FLAG 1036: 0607 377777 K55 OCT 377777 # S.F. FOR HDOT DISPLAY 1037: 0610 000000 MU3 DEC 0 # P-ITER COUNTER. 1040: 0611 376057 6K9 DEC .3029E-4B-15 # VARIANCE OF RADAR ANGULAR ERROR 1041: 0612 000000 MU6 DEC 0 # STAGING COUNTER 1042: 0613 026164 3K4 DEC .17365B1 # CENTRAL ANGLE LIMIT ON TPI 1043: 0614 000000 MU8 DEC 0 # ULLAGE COUNTER 1044: 0615 000000 MU10 DEC 0 # GYRO CALIBRATE DURATION 1045: 0616 000003 1K9 DEC 3.0B17 # ULLAGE COUNTER LIMIT 1046: 0617 000226 1K30 DEC 150.B17 # GYRO CALIBRATE DURATION 1047: 0620 000005 2K17 DEC 5.B17 # NO OF P-ITERATIONS-3 1050: 0621 000017 1K37 DEC 15.B17 # ACCEL CAL DURATION 1051: 0622 000031 4K23 DEC 25.0B17 # STAGING TIME DELAY 1052: 0623 000000 S623 DEC 0B3 # EX SELECTION IN G. S 1053: 0624 031463 1K4 DEC .1B0 # DISPLAY INTERPOLATION 1054: 0625 000071 1K24 DEC .87E-3B1 # SINGULARITY THRESHOLD 1055: 0626 561111 1K26 DEC -.142857E3B8 # NEG INV OF ALIGN GAIN CONSTANT 1056: 0627 262132 1K27 DEC .435E-1B-4 # ALIGN CONSTANT 1057: 0630 327700 1K28 DEC 107.9378B7 # ALIGN CONSTANT 1060: 0631 004061 1K29 DEC .001B-4 # LUN ALIGN STOP CRITERION 1061: 0632 243656 1K33 DEC .08B-3 # CALIBRATE GAIN 1062: 0633 247613 1K34 DEC .00002B-15 # CALIBRATE GAIN 1063: 0634 000400 1K35 DEC .25B7 # ACCEL BIAS THRESHOLD 1064: 0635 777651 1K36 DEC -.66667E-3B0 # ACCEL CAL GAIN 1065: 0636 235407 2K1 DEC .173189E15B48 # GRAVITY CONST (LUNAR) 1066: 0637 320020 2K2 DEC .57740387E-14B-47 # 1/2K1 1067: # 1070: # ELEMENTS OF LM STATE ERROR COVARIANCE MATRIX 1071: 1072: 0640 000000 P11 DEC 0B30 # VARIANCE OF X-POS ERROR 1073: 0641 000000 P12 DEC 0B30 # COVARIANCE OF X AND Y POS ERROR 1074: 0642 000000 P13 DEC 0B20 # COVAR OF X-POS AND X-VEL ERROR 1075: 0643 000000 P14 DEC 0B20 # COVAR OF X-POS AND Z-VEL ERROR 1076: 0644 000000 P21 DEC 0B30 # COVAR OF X AND Z POS ERROR 1077: 0645 000000 P22 DEC 0B30 # VARIANCE OF Z-POS ERROR 1100: 0646 000000 P23 DEC 0B20 # COVAR OF Z-POS AND X-VEL ERROR 1101: 1102: # PAGE 14 1103: 0647 000000 P24 DEC 0B20 # COVAR OF Z-POS AND Z-VEL ERROR 1104: 0650 000000 P33 DEC 0B10 # VARIANCE OF X-VEL ERROR 1105: 0651 000000 P34 DEC 0B10 # COVAR OF X-VEL AND Z-VEL ERROR 1106: 0652 000000 P43 DEC 0B10 # COVAR OF X-VEL AND Z-VEL ERROR 1107: 0653 000000 P44 DEC 0B10 # VARIANCE OF Z-VEL ERROR 1110: 0654 713513 4K2 DEC -.499286E-4B-12 # FACTOR IN TB COMP 1111: 0655 012552 4K3 DEC .12464325E-8B-25 # FACTOR IN TB COMP 1112: 0656 505075 6K5 DEC -.73B0 # Y-POSITION FILTER WEIGHT 1113: 0657 000042 4K25 DEC 2.1B13 # ENG CUTOFF COMP 1114: 0660 002000 4K34 DEC 1.B7 # AT LOWER LIMIT 1115: 0661 000146 4K35 DEC .1B7 # ULLAGE THRESHOLD 1116: 0662 257175 4K5 DEC 5.742395E6B23 # NOMINAL BURNOUT ALTITUDE 1117: 0663 000000 SUMLIM DEC 0 # LAST CELL FOR CHECKSUM 1120: 0664 000034 WORDS DEC 28 1121: 0665 006200 VY0FS DEC 200B13 # MAX VY0 DISPLAYABLE 1122: 0666 020603 4K21 DEC .26179938B2 # SC FACTOR FOR ATT ERR OUTPUT 1123: 0667 777716 M25B16 DEC -25.B16 # CYCLE COUNT TO SECONDS 1124: 0670 240000 DTB DEC 1.25B1 # 1 SEC + DEDA TIME BIAS 1125: 0671 077776 ID1 OCT 077776 # DOWNLINK ID1 CODE 1126: 0672 10 0 0257 DLWNL STO 1J1+15 # END OF DOWNLINK BUFFER 1127: 0673 777616 1K56 DEC -.532333E-7B-14 # NEG LUNAR RATE-RAD/20MS 1130: 0674 542371 2K4 DEC -.173189E15B48 # (-2.)(2K1) B49 1131: 0675 200000 KDT DEC 1.B1 # DELTA T/2 AT 1 1132: 1133: # DEDA CONVERSION SCALE FACTORS 1134: 1135: 0676 365706 BM13SF DEC .96049535B0 # .01 DEG/HR TO RAD/20MS AT -13 1136: 0677 243656 B23SF DEC .64B0 # 100 FT TO FT AT 23 1137: 0700 125253 B18SF DEC .333333B0 # .1 MIN TO SEC AT 18 1140: 0701 240000 B13VSF DEC .625B0 # .1 FPS TO FPS AT 13 1141: 0702 131415 B3SF DEC .34971155B0 # .01 DEG TO RAD AT 3 1142: 0703 032756 B23RSF DEC .10533045B0 # .1 NMI TO FT AT 23 1143: 0704 032525 B13SF DEC .10416666B0 # .01 MIN TO SEC AT 13 1144: 0705 50 1 0002 ADDMS AXT 2,1 1145: 0706 20 1 0010 CLA TS10,1 1146: 0707 62 0 0000 ABS 1147: 0710 22 0 4036 ADD MS 1150: 1151: # PAGE 15 1152: 0711 42 1 0706 TIX *-3,1 1153: 0712 40 0 4143 TRA EX3+1 1154: 0713 000026 SFLO OCT 000026 1155: 0714 000000 SDVX DEC 0B3 # DV SUM FOR ACCEL CAL 1156: 0715 000000 SDVY DEC 0 # (ADDR OF SDVX MUST END IN 4) 1157: 0716 000000 SDVZ DEC 0 1160: 0717 000000 MU7 DEC 0B17 # CALIBRATION COUNTER 1161: 0720 000145 SFL1 OCT 145 1162: 0721 000024 SFL2 OCT 24 1163: 0722 000020 SFL3 OCT 20 1164: 0723 000000 TMID DEC 0 # TELEMETRY ID 1165: 0724 000034 SFL8 OCT 34 1166: 0725 000062 SFL7 OCT 62 1167: 0726 000064 SFL4 OCT 64 1170: 0727 000000 DEDASC DEC 0 # DEDA SHIFT COUNTER 1171: 0730 377363 DIAK1 OCT 377363 1172: 0731 377401 DIAK2 OCT 377401 1173: 0732 40 0 2614 ORBRET TRA DX10P # RETURN FROM NORTON IN O.I. 1174: 0733 000045 SFL6 OCT 45 1175: 1176: 1177: 0734 12 0 0577 EX36P STQ DEL10 1200: # SAVE QUANTITIES FOR LATER USE IN 1201: # T/B COMPUTATIONS 1202: 0735 10 0 0052 STO V6Z 1203: 0736 20 0 0012 CLA TS12 1204: 0737 10 0 0050 STO V6X 1205: 0740 20 0 0013 CLA TS13 1206: 0741 10 0 0051 STO V6Y 1207: 0742 20 0 0442 CLA TI 1210: 0743 24 0 0306 SUB 4J 1211: 0744 40 0 2721 TRA DXFR14-2 1212: 0745 30 0 0577 EX34P CLZ DEL10 1213: 0746 46 0 3621 TMI EX33PP+1 1214: 0747 40 0 5615 TRA EX34+1 1215: 0750 22 0 0370 EX37 ADD VG 1216: 0751 46 0 3611 TMI EX35 1217: 1220: # PAGE 16 1221: 0752 40 0 3612 TRA EX35+1 1222: 0753 20 0 0347 THEF CLA RF 1223: 0754 54 0 0001 LRS 1 # B24 1224: 0755 32 0 0003 ADZ TS3 1225: 0756 14 0 0004 LDQ TS4 1226: 0757 10 0 0004 STO TS4 # =RF+RX B24 1227: 0760 12 0 0003 STQ TS3 # =RZ B24 1230: 0761 72 0 7034 TSQ ARCTAE 1231: 0762 10 0 0000 STO TS0 # THETAF B8 1232: 0763 24 0 1066 SUB PI 1233: 0764 46 0 0766 TMI *+2 1234: 0765 24 0 4021 SUB 2PIB3 1235: 0766 22 0 1066 ADD PI 1236: 0767 10 0 0303 STO THETAF # THETAF B3 1237: 0770 20 0 0000 CLA TS0 # B3 1240: 0771 24 0 4021 SUB 2PIB3 1241: 0772 06 0 4126 MPY M1B1 # B4 1242: 0773 04 0 0077 DVP NI 1243: 0774 22 0 0442 ADD TI # B13 1244: 0775 40 0 2721 TRA DXFR14-2 1245: 1246: 1247: 1000 ORG 1000 1250: 1000 000000 CLADD DEC 0 # PICKUP DEDA DATA 1251: 1001 40 0 7215 TRA ROR 1252: 1002 12 0 0023 RND STQ SREX # DIRECTION COSINE ROUND 1253: 1003 22 0 4013 ADD 1B9 1254: 1004 54 0 0011 LRS 9 1255: 1005 40 0 0023 TRA SREX 1256: 1006 20 0 0324 TMCLA CLA 0324 # CLA FOR TELEM 1257: 1007 20 0 1005 TCLTH CLA 1005 1260: 1010 10 0 0237 DLSTO STO 1J1-1 1261: 1011 40 0 5070 IC1BR TRA IC1 # IC1 TRA. 1262: 1012 40 0 1670 BR1 TRA NAV1P 1263: 1013 40 0 1212 DEDABR TRA DEDAE # DEDA BRANCH TRA. 1264: 1014 40 0 3371 BR50 TRA EXEC2 # BRANCH 50 TRA. 1265: 1266: 1267: # PAGE 17 1270: # HARDWIRE ESCAPE POINTS 1271: 1272: 1015 40 0 4073 EXIT1 TRA EX1+1 1273: 1016 40 0 1153 EXIT2 TRA UBCOMP 1274: 1017 40 0 0705 EXIT3 TRA ADDMS 1275: 1020 40 0 4222 EXIT4 TRA EX4+1 1276: 1021 40 0 7420 EXIT5 TRA PGNSDE 1277: 1022 40 0 7371 EXIT6 TRA TME 1300: 1023 40 0 7455 EXIT7 TRA PGNSD1+5 1301: 1024 40 0 4326 EXIT8 TRA EX8+1 1302: 1025 40 0 1422 EXIT9 TRA TVTG 1303: 1026 72 0 1452 EXIT10 TSQ SOFT1 1304: 1027 72 0 1452 EXIT11 TSQ SOFT1 # ASCENT ENG ON 1305: 1030 40 0 4450 EXIT12 TRA AHE1 1306: 1031 40 0 4476 EXIT13 TRA EROUT+1 1307: 1032 72 0 1635 EXIT14 TSQ SOFT2 1310: 1033 40 0 1661 EXIT15 TRA LUNAL1 # GAIN CHANGE 1311: 1034 40 0 4645 EXIT16 TRA EX16+1 1312: 1035 40 0 3544 EXIT17 TRA FDAI1 1313: 1036 40 0 4743 EXIT18 TRA NOC 1314: 1037 40 0 4047 EXIT19 TRA DELAY 1315: 1040 40 0 1376 EXIT20 TRA DLDC 1316: 1041 40 0 6254 EXIT21 TRA TIMEA 1317: 1042 40 0 3262 EXIT22 TRA IDLE-1 1320: 1043 000031 25B17 DEC 25B17 1321: 1044 30 0 0404 EXIT23 CLZ VD1X 1322: 1045 30 0 0405 CLZ VD1Y 1323: 1046 30 0 0406 CLZ VD1Z 1324: 1047 40 0 5217 TRA NAV3 1325: 1050 40 0 5205 EXIT24 TRA NAV2 1326: 1051 40 0 5217 EXIT25 TRA NAV3 1327: 1052 20 0 0473 SINITC CLA 4K27 1330: 1053 10 0 0404 STO VD1X 1331: 1054 10 0 0470 STO VDX 1332: 1055 40 0 6367 TRA EXEC1+7 1333: 1056 40 0 1676 EXIT26 TRA XDVS 1334: 1057 40 0 5413 EXIT27 TRA EX27+1 1335: 1336: # PAGE 18 1337: 1060 40 0 5267 EXIT28 TRA EX28+1 1340: 1061 30 0 0612 STGCTR CLZ MU6 # STAGING DELAY COUNTER 1341: 1062 22 0 4006 ADD 1B17 1342: 1063 10 0 0612 STO MU6 1343: 1064 40 0 4437 TRA AHE 1344: 1065 40 0 5305 EXIT29 TRA EX29+1 1345: 1066 144420 PI DEC 3.14159266B3 1346: 1067 40 0 5332 EXIT30 TRA EX30+1 1347: 1070 40 0 1710 EXIT31 TRA ALTUP 1350: 1071 40 0 2446 EXIT32 TRA LMORB2 1351: 1072 40 0 3577 EXIT33 TRA EX33P 1352: 1073 40 0 0745 EXIT34 TRA EX34P 1353: 1074 40 0 3611 EXIT35 TRA EX35 1354: 1075 72 0 0734 EXIT36 TSQ EX36P 1355: 1076 40 0 0750 EXIT37 TRA EX37 1356: 1077 40 0 3041 EXIT38 TRA Q5 1357: 1100 40 0 3376 EXIT39 TRA EXECM 1360: 1101 30 0 0400 EXIT40 CLZ S0 # SOFT INITIALIZE 1361: 1102 30 0 0575 CLZ DEL5 1362: 1103 30 0 0572 CLZ FLAGT 1363: 1104 50 1 0007 AXT 7,1 # ZERO S SWITCHES 1364: 1105 30 1 0410 CLZ S10,1 1365: 1106 42 1 1105 TIX *-1,1 1366: 1107 40 0 1052 TRA SINITC # CONTINUE INITIALIZE 1367: 1110 40 0 3345 EXIT41 TRA DSP1 1370: 1111 40 0 3356 EXIT42 TRA DSP2CP 1371: 1112 24 0 1043 EXIT43 SUB 25B17 # CHECK FOR TM RESET 1372: 1113 62 0 0000 ABS 1373: 1114 60 0 0000 COM 1374: 1115 46 0 6364 TMI EXEC1+4 # NOT 25TH CYCLE 1375: 1116 72 0 1132 TSQ TMIE1 # RESET TM AT 25TH CYCLE 1376: 1117 40 0 4047 TRA DELAY 1377: 1120 40 0 6470 EXIT44 TRA EX44+1 1400: 1121 40 0 6505 EXIT45 TRA EX45+1 1401: 1122 40 0 7225 EXIT46 TRA EX46+1 1402: 1123 40 0 1222 EXIT47 TRA DEXIT 1403: 1124 40 0 1225 EXIT48 TRA CLEARM+1 1404: 1405: # PAGE 19 1406: 1125 40 0 1251 EXIT49 TRA SFTEST 1407: 1126 40 0 7343 EXIT50 TRA EX50+1 1410: 1127 72 0 1351 EXIT51 TSQ DIAT 1411: 1130 40 0 6262 EXIT52 TRA EXEC+1 1412: 1131 40 0 6262 EXIT53 TRA EXEC+1 1413: 1132 12 0 0023 TMIE1 STQ SREX # INITIALIZE TELEMETRY 1414: 1133 72 0 7410 TSQ TMIE2 1415: 1134 20 0 0412 CLA S12 1416: 1135 22 0 0614 ADD MU8 1417: 1136 10 0 0363 STO MU8S12 # SAVE MU8/S12 FOR TM 1420: 1137 24 0 7520 SUB 3B3 # TEST FOR SELF TEST FAILURE 1421: 1140 46 0 1142 TMI *+2 1422: 1141 66 0 6410 OUT 6410 # SET FAILURE INDICATOR 1423: 1142 40 0 0023 TRA SREX 1424: 1425: # ORBIT ALIGN COMPUTATIONS 1426: 1427: 1143 50 1 0006 ORBLIN AXT 6,1 1430: 1144 30 1 0130 CLZ A11,1 1431: 1145 30 1 0150 CLZ DA11,1 # ZERO REMAINDERS 1432: 1146 42 1 1144 TIX *-2,1 1433: 1147 20 0 5033 CLA 1B1 1434: 1150 10 0 0130 STO A11 1435: 1151 10 0 0136 STO A33 1436: 1152 40 0 4273 TRA COA21-2 1437: 1440: # MASS UNBALANCE COMPENSATION 1441: 1442: 1153 26 0 0537 UBCOMP MPR 1K14 # 1K14(DVX) 3-16=-13 1443: 1154 32 0 0510 ADZ DAXREM 1444: 1155 10 0 0510 STO DAXREM 1445: 1446: # 20MS MODE CHECK. 1447: 1450: 1156 20 0 0400 MODCK CLA S0 # CHECK FOR ALIGNMENT 1451: 1157 24 0 7520 SUB 3B3 # SUBMODES 1452: 1160 46 0 4107 TMI GYCOM-2 # -- IS INERT REF 1453: 1454: # PAGE 20 1455: 1161 24 0 7701 SUB 1B3 1456: 1162 46 0 5056 TMI ZNOC # IMU ALIGN 1457: 1163 24 0 7701 SUB 1B3 1460: 1164 46 0 4107 TMI GYCOM-2 # -- IS LUNAR ALIGN 1461: 1165 24 0 7701 SUB 1B3 1462: 1166 46 0 1143 TMI ORBLIN # ORBIT ALIGN 1463: 1167 20 0 0604 CLA DEL21 # CALIBRATE MODE. 1464: 1170 50 1 0002 AXT 2,1 1465: 1171 46 0 1177 TMI *+6 # -- IS LUNAR SURF 1466: 1172 30 1 0714 CLZ SDVX,1 1467: 1173 22 1 0350 ADD DVX,1 1470: 1174 10 1 0714 STO SDVX,1 # DV SUM AT 1. 1471: 1175 42 1 1172 TIX *-3,1 1472: 1176 40 0 4107 TRA GYCOM-2 1473: 1177 20 0 0135 CLA A32 1474: 1200 72 0 1204 TSQ HUGH 1475: 1201 20 0 0141 CLA A22 1476: 1202 72 0 1204 TSQ HUGH 1477: 1203 20 0 0131 CLA A12 1500: 1204 12 0 0023 HUGH STQ SREX 1501: 1205 26 0 0673 MPR 1K56 1502: 1206 32 1 0510 ADZ DAXREM,1 1503: 1207 10 1 0510 STO DAXREM,1 1504: 1210 42 1 0023 TIX SREX,1 1505: 1211 40 0 4107 TRA GYCOM-2 1506: 1507: # DEDA MODE SELECTION 1510: 1511: 1212 30 0 0323 DEDAE CLZ CLEARP 1512: 1213 46 0 1224 TMI CLEARM # SET CLEAR 1513: 1214 20 0 0327 CLA CMF 1514: 1215 46 0 1236 TMI RPT # CLEAR MODE 1515: 1216 20 0 0325 CLA RMF 1516: 1217 46 0 1243 TMI HET # READOUT IN PROGRESS 1517: 1220 20 0 0324 CLA HMF 1520: 1221 46 0 3572 TMI RRT # HOLD IN PROGRESS 1521: 1222 50 1 0003 DEXIT AXT 3,1 # NORMAL EXIT 1522: 1523: # PAGE 21 1524: 1223 40 0 1227 TRA *+4 1525: 1224 10 0 0327 CLEARM STO CMF 1526: 1225 64 0 2200 INP DEDA 1527: 1226 50 1 0005 AXT 5,1 # CLEAR EXIT 1530: 1227 30 1 0320 CLZ READP,1 # RESET FLAGS 1531: 1230 42 1 1227 TIX *-1,1 1532: 1231 30 0 0057 CLZ TMPBR # SET BRANCH FOR NEXT 1533: 1232 10 0 0063 STO BRANCH # GUIDANCE CYCLE 1534: 1233 20 0 4014 CLA 1B11 # INITIALIZE COUNTER 1535: 1234 10 0 0727 STO DEDASC 1536: 1235 40 0 3345 TRA DSP1 # TO DISPLAY 1537: 1236 30 0 0320 RPT CLZ READP # TEST FOR 1540: 1237 46 0 7257 TMI RME # READOUT MODE 1541: 1240 30 0 0321 CLZ ENTERP # OR ENTER MODE 1542: 1241 46 0 7260 TMI RME+1 # ENTRY. 1543: 1242 40 0 1222 TRA DEXIT # EXIT 1544: 1243 30 0 0322 HET CLZ HOLDP # READOUT TEST FOR 1545: 1244 46 0 1246 TMI *+2 # HOLD COMMANDED 1546: 1245 40 0 7202 TRA ADOUT # TO OUTPUT ROUTINE 1547: 1246 10 0 0324 STO HMF # SET HOLD MODE 1550: 1247 30 0 0325 CLZ RMF 1551: 1250 40 0 1222 TRA DEXIT 1552: 1553: # DEDA SCALE FACTOR SELECTION 1554: 1555: 1251 24 0 0713 SFTEST SUB SFLO 1556: 1252 46 0 1225 TMI CLEARM+1 # -- IF OCT LOC BELOW 0026 1557: 1253 24 0 0720 SUB SFL1 # LESS THAN 173 IS OCTAL 1560: 1254 46 0 7310 TMI NOTDD 1561: 1255 24 0 4040 SUB 49B17 # 173-253 IS 100 FEET 1562: 1256 46 0 1326 TMI SFP 1563: 1257 24 0 4003 SUB 4B17 # 254(255-257) IS .1 MIN 1564: 1260 46 0 1330 TMI SFT 1565: 1261 24 0 4041 SUB 10B17 # 260-266(267-271) IS .1 FPS 1566: 1262 46 0 1332 TMI SFV 1567: 1263 24 0 4002 SUB 5B17 # 272-276 IS .1 MIN 1570: 1264 46 0 1330 TMI SFT 1571: 1572: # PAGE 22 1573: 1265 24 0 4000 SUB 7B17 # 277(300-302),303(304-305) 1574: # IS .01 DEG 1575: 1266 46 0 1334 TMI SFA 1576: 1267 24 0 4001 SUB 6B17 # 306-313 IS .01 MIN 1577: 1270 46 0 1336 TMI SFT1 1600: 1271 24 0 0721 SUB SFL2 # 314-317,337(320-336) IS .1 NMI 1601: 1272 46 0 1340 TMI SFR 1602: 1273 24 0 4041 SUB 10B17 # 340-347(350-351) IS 100 FEET 1603: 1274 46 0 1326 TMI SFP 1604: 1275 24 0 0722 SUB SFL3 # (352-357)360-371 IS .1 FPS 1605: 1276 46 0 1332 TMI SFV 1606: 1277 24 0 4001 SUB 6B17 # (372)373(374-376)377 IS .1 MIN 1607: 1300 46 0 1330 TMI SFT 1610: 1301 24 0 4005 SUB 2B17 # 400-401 IS OCTAL 1611: 1302 46 0 7310 TMI NOTDD 1612: 1303 24 0 4003 SUB 4B17 # 402-403(404-405) IS .1 NMI 1613: 1304 46 0 1340 TMI SFR 1614: 1305 24 0 4041 SUB 10B17 # 406-417 IS OCTAL 1615: 1306 46 0 7310 TMI NOTDD 1616: 1307 24 0 0726 SUB SFL4 # 420-454,46-463,467-503 1617: # (455,464-466) IS .1 FPS 1620: 1310 46 0 1332 TMI SFV 1621: 1311 24 0 0724 SUB SFL8 # 504-537 IS OCTAL 1622: 1312 46 0 7310 TMI NOTDD 1623: 1313 24 0 4003 SUB 4B17 # 540-542(543) IS .001 FT/SEC2 1624: 1314 46 0 1344 TMI SFACC 1625: 1315 24 0 4004 SUB 3B17 # 544-546 IS .01 DEG/HR 1626: 1316 46 0 1346 TMI SFG 1627: 1317 24 0 0733 SUB SFL6 # 547-613 IS OCTAL 1630: 1320 46 0 7310 TMI NOTDD 1631: 1321 24 0 4000 SUB 7B17 # 614-622 IS 1 COUNT 1632: 1322 46 0 1342 TMI SF1 1633: 1323 24 0 0725 SUB SFL7 # 623-704 IS OCTAL 1634: 1324 46 0 7310 TMI NOTDD 1635: 1325 40 0 1225 TRA CLEARM+1 # ILLEGAL ADDRESS 1636: 1326 20 0 0677 SFP CLA B23SF # PICK UP SCALE FACTOR 1637: 1327 40 0 1347 TRA SFG+1 # TO DECIMAL SET UP 1640: 1641: # PAGE 23 1642: 1330 20 0 0700 SFT CLA B18SF 1643: 1331 40 0 1347 TRA SFG+1 1644: 1332 20 0 0701 SFV CLA B13VSF 1645: 1333 40 0 1347 TRA SFG+1 1646: 1334 20 0 0702 SFA CLA B3SF 1647: 1335 40 0 1347 TRA SFG+1 1650: 1336 20 0 0704 SFT1 CLA B13SF 1651: 1337 40 0 1347 TRA SFG+1 1652: 1340 20 0 0703 SFR CLA B23RSF 1653: 1341 40 0 1347 TRA SFG+1 1654: 1342 20 0 4030 SF1 CLA PMAX 1655: 1343 40 0 1347 TRA SFG+1 1656: 1344 20 0 0446 SFACC CLA BACCSF 1657: 1345 40 0 1347 TRA SFG+1 1660: 1346 20 0 0676 SFG CLA BM13SF 1661: 1347 10 0 0026 STO SF # SET SCALE FACTOR 1662: 1350 40 0 7326 TRA DDIN # TO INPUT ROUTINE 1663: 1351 50 1 0001 DIAT AXT 1,1 # IMMEDIATE ACTION TEST 1664: 1352 20 0 0333 CLA ADST # IMMED. ACTION IF 1665: 1353 22 1 0730 ADD DIAK1,1 # ACCUMULATOR = 400000 1666: 1354 62 0 0000 ABS 1667: 1355 46 0 1361 TMI *+4 1670: 1356 42 1 1352 TIX DIAT+1,1 1671: 1357 12 0 0455 STQ DDF 1672: 1360 40 0 1222 TRA DEXIT 1673: 1361 42 1 7357 TIX ATI,1 1674: 1362 50 1 0002 AXT 2,1 1675: 1363 20 1 0134 CLA A31,1 # STORE DIRECTION COSINES 1676: 1364 10 1 0044 STO A31S,1 1677: 1365 20 1 0124 CLA RRX,1 # SAVE RANGE FOR FILTER 1700: 1366 10 1 0234 STO RRSX,1 1701: 1367 42 1 1363 TIX *-4,1 1702: 1370 20 0 0377 CLA TA1 1703: 1371 24 0 0147 SUB T1 1704: 1372 10 0 0276 STO DELTAT # DELTA T = TA1 - T1 B18 1705: 1373 20 0 0440 CLA RRDOT 1706: 1374 10 0 0441 STO RDOTS 1707: 1710: # PAGE 24 1711: 1375 40 0 1222 TRA DEXIT 1712: 1713: # DOWNLINK FORMATTING 1714: 1715: 1376 50 1 0002 DLDC AXT 2,1 1716: 1377 30 1 0244 CLZ 0244,1 # LEM VEL 1717: 1400 10 1 0260 STO 1J4,1 1720: 1401 30 1 0250 CLZ 0250,1 # CSM POS 1721: 1402 10 1 0244 STO 2J1,1 1722: 1403 30 1 0254 CLZ 0254,1 # CSM VEL 1723: 1404 10 1 0264 STO 2J4,1 1724: 1405 42 1 1377 TIX DLDC+1,1 1725: 1406 30 0 0247 CLZ 0247 1726: 1407 54 0 0016 LRS 14 1727: 1410 32 0 0243 ADZ 0243 1730: 1411 10 0 0254 STO 1J7 1731: 1412 12 0 0255 STQ 1J7LS 1732: 1413 30 0 0257 CLZ 0257 1733: 1414 54 0 0016 LRS 14 1734: 1415 32 0 0253 ADZ 0253 1735: 1416 10 0 0272 STO 2J7 1736: 1417 12 0 0273 STQ 2J7LS 1737: 1420 72 0 5145 TSQ CSMPV 1740: 1421 40 0 5073 TRA IC1+3 1741: 1742: # DELTA V ACCUMULATION AND THRUST VEL TO GAIN. 1743: 1744: 1422 50 1 0002 TVTG AXT 2,1 1745: 1423 20 1 0350 CLA DVX,1 # 1 1746: 1424 54 0 0001 LRS 1 # TO 2 1747: 1425 32 1 0100 ADZ VD2X,1 1750: 1426 10 1 0100 STO VD2X,1 1751: 1427 20 1 0074 CLA DVXM1,1 1752: 1430 54 0 0001 LRS 1 # TO 2 1753: 1431 32 1 0100 ADZ VD2X,1 1754: 1432 10 1 0100 STO VD2X,1 1755: 1433 54 0 0013 LRS 11 # TO 13 1756: 1757: # PAGE 25 1760: 1434 10 0 0001 STO TS1 1761: 1435 56 0 0013 ALS 11 1762: 1436 60 0 0000 COM 1763: 1437 32 1 0100 ADZ VD2X,1 1764: 1440 10 1 0100 STO VD2X,1 # REMAINDER AT 2 1765: 1441 20 1 0404 CLA VD1X,1 # DV EXPENDED MS. 1766: 1442 32 0 0001 ADZ TS1 1767: 1443 10 1 0404 STO VD1X,1 # VD1 AT 13 1770: 1444 60 0 0000 COM 1771: 1445 22 1 0474 ADD VSMGX,1 # VSMG-VD1 1772: 1446 10 1 0500 STO DELVGX,1 # THRUST VEL TO GAIN 1773: 1447 30 1 0070 CLZ EX,1 1774: 1450 42 1 1423 TIX TVTG+1,1 1775: 1451 40 0 4355 TRA EX9+1 1776: 1777: # SOFT 40MS COMPUTATIONS 2000: 2001: 1452 20 0 0400 SOFT1 CLA S0 # TEST MODE 2002: 1453 24 0 7520 SUB 3B3 2003: 1454 10 0 0001 STO TS1 # SAVE 2004: 1455 46 0 1507 TMI IR # -- IS INTERT. REF. 2005: 1456 20 0 4007 ZERR CLA ZERO 2006: 1457 66 0 6007 OUT 6007 # ZERO ATTITUDE ERRORS 2007: 1460 30 0 0575 CLZ DEL5 # RESET ATT HOLD INIT FLAG 2010: 1461 30 0 0001 CLZ TS1 2011: 1462 46 0 1475 TMI ENCOM1 # -- IS INERTIAL REF 2012: 1463 24 0 7701 SUB 1B3 2013: 1464 46 0 1467 TMI SOFT3 2014: 1465 24 0 7701 SUB 1B3 2015: 1466 46 0 4534 TMI LUNAL 2016: 1467 66 0 7040 SOFT3 OUT 7040 # RESET ENG ON 2017: 1470 66 0 6420 OUT 6420 # SET ENG OFF 2020: 1471 20 0 4007 CLA ZERO # SET ENG TM FLAG PLUS 2021: 1472 22 0 0410 ADD S10 2022: 1473 10 0 0343 STO EONS10 2023: 1474 40 0 4626 TRA FDAI # TO ATTITUDE DISPLAY 2024: 1475 20 0 0533 ENCOM1 CLA DISC1 # FOLLUP ENG. COMMANDS 2025: 2026: # PAGE 26 2027: 1476 52 0 0005 LLS 5 2030: 1477 46 0 1503 TMI *+4 # -- DESCENT ENG ON 2031: 1500 52 0 0001 LLS 1 2032: 1501 46 0 1503 TMI *+2 # -- ASCENT ENG ON 2033: 1502 40 0 1467 TRA SOFT3 # ENG OFF 2034: 1503 66 0 7020 OUT 7020 # RESET ENG OFF 2035: 1504 66 0 6440 OUT 6440 # SET ENG ON 2036: 1505 20 0 4036 CLA MS # SET ENG TM FLAG NG 2037: 1506 40 0 1472 TRA SOFT3+3 2040: 1507 20 0 0533 IR CLA DISC1 # TEST FOR AUTO RADAR DATA 2041: 1510 56 0 0003 ALS 3 2042: 1511 46 0 1516 TMI IR1 # -- IS FOLLOWUP 2043: 1512 56 0 0001 ALS 1 2044: 1513 46 0 1562 TMI IR2 # -- IS AUTOMATIC 2045: 1514 12 0 0603 STQ DEL20 2046: 1515 40 0 4437 TRA AHE # TO ATT HOLD 2047: 1516 20 0 0401 IR1 CLA DISC1C 2050: 1517 56 0 0004 ALS 4 2051: 1520 46 0 1456 TMI ZERR # PLUS IS AUTOMATIC 2052: 1521 30 0 0575 CLZ DEL5 2053: 1522 12 0 0603 STQ DEL20 2054: 1523 40 0 1602 TRA MODE 2055: 1524 50 1 0002 RSTE AXT 2,1 2056: 1525 20 0 0623 CLA S623 2057: 1526 56 0 0003 ALS 3 2060: 1527 46 0 1532 TMI *+3 2061: 1530 20 1 0054 CLA WCX,1 2062: 1531 40 0 1533 TRA *+2 2063: 1532 20 1 0514 CLA WBX,1 2064: 1533 26 1 0134 MPR A31,1 2065: 1534 60 0 0000 COM 2066: 1535 32 0 0070 ADZ EX 2067: 1536 10 0 0070 STO EX 2070: 1537 20 0 0411 CLA S11 2071: 1540 56 0 0003 ALS 3 2072: 1541 46 0 1545 TMI *+4 2073: 1542 20 0 0401 CLA DISC1C 2074: 2075: # PAGE 27 2076: 1543 56 0 0006 ALS 6 2077: 1544 46 0 1551 TMI *+5 2100: 1545 20 1 0130 CLA A11,1 2101: 1546 26 1 0374 MPR A11BD,1 2102: 1547 32 0 0071 ADZ EY 2103: 1550 10 0 0071 STO EY 2104: 1551 42 1 1525 TIX RSTE+1,1 2105: 1552 20 0 0071 CLA EY 2106: 1553 26 0 0602 MPR 4K8 2107: 1554 60 0 0000 COM 2110: 1555 10 0 0072 STO EZ 2111: 1556 30 0 0071 CLZ EY 2112: 1557 26 0 0566 MPR 4K7 2113: 1560 10 0 0071 STO EY 2114: 1561 40 0 4524 RST1 TRA RST 2115: 1562 56 0 0004 IR2 ALS 4 2116: 1563 46 0 1572 TMI IR3 # -- IS ABORT STAGE 2117: 1564 20 0 0604 CLA DEL21 # IF ON LUNAR SURFACE 2120: 1565 46 0 1456 TMI ZERR # OUTPUT ZERO ATT ERRORS 2121: 1566 20 0 0533 CLA DISC1 2122: 1567 56 0 0007 ALS 7 2123: 1570 46 0 1602 TMI MODE # -- IS ABORT 2124: 1571 72 0 1522 TSQ IR1+4 2125: 1572 20 0 0604 IR3 CLA DEL21 2126: 1573 46 0 4437 TMI AHE 2127: 1574 20 0 0401 CLA DISC1C 2130: 1575 56 0 0006 ALS 6 2131: 1576 46 0 1602 TMI MODE 2132: 1577 20 0 0612 CLA MU6 2133: 1600 24 0 0622 SUB 4K23 2134: 1601 46 0 1061 TMI STGCTR # STAGING ATT HOLD 2135: 1602 20 0 0400 MODE CLA S0 # TEST STEERING MODE 2136: 1603 24 0 7701 SUB 1B3 2137: 1604 46 0 4437 TMI AHE # ATT HOLD 2140: 1605 24 0 7701 SUB 1B3 2141: 1606 46 0 1524 TMI RSTE # RENDEZVOUS STEERING 2142: 1607 30 0 0575 CLZ DEL5 # ACQUISITION STEERING 2143: 2144: # PAGE 28 2145: 1610 50 1 0002 AXT 2,1 2146: 1611 20 1 0054 MODE1 CLA WCX,1 2147: 1612 26 1 0130 MPR A11,1 2150: 1613 32 0 0072 ADZ EZ 2151: 1614 10 0 0072 STO EZ 2152: 1615 20 0 0507 CLA S507 # ORIENT LM Z-BODY ASIX 2153: 1616 24 0 7701 SUB 1B3 # IN DESIRED THRUST DIR. 2154: 1617 46 0 1622 TMI *+3 # OR ESTIMATED CSM DIR. 2155: 1620 20 1 0374 CLA A11BD,1 2156: 1621 10 1 0300 STO A31BD,1 2157: 1622 20 1 0300 CLA A31BD,1 2160: 1623 26 1 0130 MPR A11,1 # XB 2161: 1624 32 0 0071 ADZ EY 2162: 1625 10 0 0071 STO EY 2163: 1626 20 1 0300 CLA A31BD,1 # ZBD 2164: 1627 26 1 0140 MPR A21,1 # YB 2165: 1630 60 0 0000 COM 2166: 1631 32 0 0070 ADZ EX 2167: 1632 10 0 0070 STO EX 2170: 1633 42 1 1611 TIX MODE1,1 2171: 1634 40 0 4475 TRA EROUT 2172: 1635 30 0 0603 SOFT2 CLZ DEL20 # FIRST TIME FOLLOW 2173: 1636 46 0 1475 TMI ENCOM1 # PREVIOUS ENGINE STATE 2174: 1637 20 0 0400 CLA S0 # IF NOT GUIDANCE STEERING 2175: 1640 24 0 7701 SUB 1B3 # TURN ENGINE OFF 2176: 1641 46 0 1467 TMI SOFT3 2177: 1642 24 0 7701 SUB 1B3 2200: 1643 46 0 1645 TMI *+2 2201: 1644 40 0 1467 TRA SOFT3 2202: 1645 20 0 0614 CLA MU8 # TEST FOR ULLAGE 2203: 1646 24 0 0616 SUB 1K9 2204: 1647 46 0 1467 TMI SOFT3 2205: 1650 20 0 0657 CLA 4K25 # TEST CEL TO BE 2206: 1651 24 0 0500 SUB DELVGX # GAINED GREATER THAN 2207: 1652 46 0 1503 TMI ENCOM1+6 # SHUTDOWN THRESHOLD 2210: 1653 20 0 0454 CLA 4K26 2211: 1654 24 0 0267 SUB DELVG 2212: 2213: # PAGE 29 2214: 1655 46 0 1503 TMI ENCOM1+6 2215: 1656 30 0 0400 CLZ S0 # SET ATT HOLD 2216: 1657 30 0 0411 CLZ S11 # DPS-RCS/APS 2217: 1660 40 0 1467 TRA SOFT3 2220: 1661 30 0 0531 LUNAL1 CLZ DAYA # CHANGE GAIN 2221: 1662 54 0 0002 LRS 2 # 1/4 2222: 1663 10 0 0531 STO DAYA 2223: 1664 30 0 0532 CLZ DAZA 2224: 1665 54 0 0002 LRS 2 2225: 1666 10 0 0532 STO DAZA 2226: 1667 40 0 1467 TRA SOFT3 2227: 2230: # START OF NAVIGATION 2231: 2232: 1670 20 0 0604 NAV1P CLA DEL21 2233: 1671 46 0 5175 TMI NAV1 # -- IS ON LUNAR SURFACE 2234: 1672 20 0 0404 CLA VD1X # COMPUTE THRUST ACCEL 2235: 1673 24 0 0470 SUB VDX # 13 2236: 1674 56 0 0005 ALS 5 # 1/2(VD1-VD) AT 7 2237: 1675 40 0 5166 TRA 5166 # TO HARD NAV 2240: 1676 50 1 0002 XDVS AXT 2,1 2241: 1677 20 1 0120 CLA DVSX,1 2242: 1700 22 0 4015 ADD 1B12 2243: 1701 54 0 0006 LRS 6 2244: 1702 32 1 0050 ADZ DQSX,1 2245: 1703 10 1 0050 STO DQSX,1 2246: 1704 20 1 0404 CLA VD1X,1 2247: 1705 10 1 0470 STO VDX,1 2250: 1706 42 1 1677 TIX XDVS+1,1 2251: 1707 40 0 5223 TRA NAV4 2252: 1710 72 0 6261 ALTUP TSQ EXEC 2253: 2254: 1711 50 1 0002 AXT 2,1 2255: 1712 20 0 0223 CLA 25J # ALTITUDE ENTRY TEST 2256: 1713 24 0 4006 SUB 1B17 2257: 1714 46 0 1723 TMI FLTR # IF NO 25J ENTRY 2260: 1715 20 0 0223 CLA 25J 2261: 2262: # PAGE 30 2263: 1716 22 0 0231 ADD 5J 2264: 1717 10 0 0210 STO R # R=5J+25J 2265: 1720 06 1 0060 MPY U1X,1 2266: 1721 52 0 0001 LLS 1 2267: 1722 10 1 0340 STO RX,1 # NEW R COMPONENTS 2270: 2271: # RANGE AND RANGE RATE COMPUTATIONS 2272: 2273: 1723 20 1 0344 FLTR CLA RCX,1 # RELATIVE RANGE 2274: 1724 24 1 0340 SUB RX,1 2275: 1725 10 1 0124 STO RRX,1 2276: 1726 10 1 0004 STO TS4,1 2277: 1727 42 1 1712 TIX ALTUP+2,1 2300: 1730 72 0 6737 TSQ DPVMAG # DP COMP OF RR MAG 2301: 1731 10 0 0317 STO RR # B23 RANGE VECTOR MAG 2302: 1732 20 0 0636 CLA 2K1 # 48 2303: 1733 54 0 0001 LRS 1 # 49 2304: 1734 04 0 0210 DVP R # 26 2305: 1735 04 0 0210 DVP R # 3 2306: 1736 04 0 0210 DVP R # -20 2307: 1737 10 0 0223 STO 25J # 2K1/R**3 B-20 2310: 1740 30 0 0440 CLZ RRDOT # ZEROED FOR SUM 2311: 1741 50 1 0002 AXT 2,1 2312: 1742 20 1 0124 FLTRA CLA RRX,1 2313: 1743 06 0 5033 MPY 1B1 # B24 2314: 1744 04 0 0317 DVP RR 2315: 1745 10 1 0300 STO A31BD,1 # B1 UNIT POINTING VECTOR 2316: 1746 20 1 0364 CLA VCX,1 # B13 2317: 1747 24 1 0360 SUB VX,1 2320: 1750 10 1 0030 STO RDOTX,1 2321: 1751 26 1 0300 MPR A31BD,1 2322: 1752 56 0 0001 ALS 1 2323: 1753 32 0 0440 ADZ RRDOT 2324: 1754 10 0 0440 STO RRDOT 2325: 1755 20 1 0060 CLA U1X,1 2326: 1756 26 1 0060 MPR U1X,1 # B2 2327: 1757 26 0 7520 MPR 3B3 2330: 2331: # PAGE 31 2332: 1760 24 0 4011 SUB 1B5 2333: 1761 26 0 0223 MPR 25J 2334: 1762 10 1 0554 STO LILA,1 # B-15 2335: 1763 42 1 1742 TIX FLTRA,1 2336: 1764 20 0 0060 CLA U1X 2337: 1765 26 0 0062 MPR U1Z 2340: 1766 26 0 7520 MPR 3B3 # B5 2341: 1767 36 0 0223 MPZ 25J 2342: 1770 10 0 0557 STO LILC # B-15 2343: 1771 72 0 6261 TSQ EXEC # END OF FIRST BR. OF FILTER 2344: 2345: 1772 30 0 0167 PUPDAT CLZ MU17 # ZERO MU17 IF FILTER TIME 2346: 1773 22 0 7701 ADD 1B3 2347: 1774 46 0 2001 TMI FLTRTM 2350: 1775 10 0 0167 STO MU17 2351: 1776 72 0 6261 TSQ EXEC 2352: 1777 72 0 6261 FLTRX TSQ EXEC 2353: 2000 40 0 5444 TRA 5444 2354: # COVARIANCE UPDATE 2355: 2001 44 0 2002 FLTRTM TOV *+1 # RESET OVERFLOW DISCRETE 2356: 2002 50 1 0003 AXT 3,1 2357: 2003 20 1 0640 FLTRB CLA P11,1 # 30, 30, 20, 20 2360: 2004 26 0 0554 MPR LILA 2361: 2005 10 0 0004 STO TS4 # 15, 15, 5, 5 2362: 2006 20 1 0644 CLA P21,1 # 30, 30, 20, 2 2363: 2007 26 0 0557 MPR LILC # B-15 2364: 2010 32 0 0004 ADZ TS4 2365: 2011 10 1 0010 STO TS10,1 # TS10 A*P11+C*P21 B15 2366: 2012 20 1 0640 CLA P11,1 # TS11 A*P12+C*P22 B15 2367: 2013 26 0 0557 MPR LILC # TS12 A*P13+C*P23 B5 2370: 2014 10 0 0004 STO TS4 # TS13 A*P14+C*P24 B5 2371: 2015 20 1 0644 CLA P21,1 # TS14 C*P11+J*P21 B15 2372: 2016 26 0 0556 MPR LILJ # TS15 C*P12+J*P22 B15 2373: 2017 32 0 0004 ADZ TS4 # TS16 C*P13+J*P23 B5 2374: 2020 10 1 0014 STO TS14,1 # TS17 C*P14+J*P24 B5 2375: 2021 42 1 2003 TIX FLTRB,1 2376: 2022 20 0 0642 CLA P13 # B20 32XB25 2377: 2400: # PAGE 32 2401: 2023 54 0 0005 LRS 5 # MPY BY 32,SCALE AT B30 2402: 2024 22 0 4006 ADD 1B17 # ADD 2**13 2403: 2025 22 0 0640 ADD P11 2404: 2026 10 0 0640 STO P11 # B30 2405: 2027 20 0 0643 CLA P14 2406: 2030 22 0 0646 ADD P23 # B20 16XB24 2407: 2031 54 0 0006 LRS 6 # MPY BY 16,SCALE AT B30 2410: 2032 22 0 0641 ADD P12 2411: 2033 10 0 0641 STO P12 # B30 2412: 2034 10 0 0644 STO P21 2413: 2035 20 0 0647 CLA P24 # B20 32XB25 2414: 2036 54 0 0005 LRS 5 # MPY BY 32,SCALE AT B30 2415: 2037 22 0 4006 ADD 1B17 # ADD 2**13 2416: 2040 22 0 0645 ADD P22 2417: 2041 10 0 0645 STO P22 # B30 2420: 2042 20 0 0011 CLA TS11 # EXCHANGE TS11,TS14 2421: 2043 14 0 0014 LDQ TS14 2422: 2044 12 0 0011 STQ TS11 2423: 2045 10 0 0014 STO TS14 2424: 2046 50 1 0001 AXT 1,1 2425: 2047 20 1 0650 FLTRC CLA P33,1 # P34 B10 2426: 2050 54 0 0005 LRS 5 # MPY BY 16, SCALE AT B19 2427: 2051 22 1 0010 ADD TS10,1 # B15 16XB19 2430: 2052 54 0 0001 LRS 1 # SCALE AT B10 2431: 2053 22 1 0642 ADD P13,1 2432: 2054 10 1 0642 STO P13,1 # B20 2433: 2055 20 1 0652 CLA P43,1 # P44 B10 2434: 2056 54 0 0005 LRS 5 # MPY BY 16, SCALE AT B19 2435: 2057 22 1 0014 ADD TS14,1 # B15 16XB19 2436: 2060 54 0 0001 LRS 1 # SCALE AT B20 2437: 2061 22 1 0646 ADD P23,1 2440: 2062 10 1 0646 STO P23,1 # B20 2441: 2063 42 1 2047 TIX FLTRC,1 2442: 2064 20 0 0012 CLA TS12 # B5 32XB10 2443: 2065 22 0 4006 ADD 1B17 # ADD 2**(-7) 2444: 2066 22 0 0650 ADD P33 2445: 2067 10 0 0650 STO P33 # B10 2446: 2447: # PAGE 33 2450: 2070 20 0 0013 CLA TS13 2451: 2071 22 0 0016 ADD TS16 # B5 16XB9 2452: 2072 54 0 0001 LRS 1 # SCALE AT B10 2453: 2073 22 0 0651 ADD P34 2454: 2074 10 0 0651 STO P34 # B10 2455: 2075 10 0 0652 STO P43 2456: 2076 20 0 0017 CLA TS17 # B5 32XB10 2457: 2077 22 0 4006 ADD 1B17 # ADD 2**(-7) 2460: 2100 22 0 0653 ADD P44 2461: 2101 10 0 0653 STO P44 # B10 2462: 2102 30 0 0417 CLZ S17 # IS FILTER INIT. REQUIRED 2463: 2103 56 0 0003 ALS 3 # FORCE OVERFLOW IF =1B3 2464: 2104 44 0 2106 TOV PINIT 2465: 2105 40 0 2123 TRA FLTRD 2466: 2106 50 1 0003 PINIT AXT 3,1 # INITIALIZE P MATRIX 2467: 2107 30 1 0640 CLZ P11,1 2470: 2110 30 1 0644 CLZ P21,1 2471: 2111 30 1 0650 CLZ P33,1 2472: 2112 42 1 2107 TIX *-3,1 2473: 2113 20 0 0457 CLA 6K2 2474: 2114 10 0 0640 STO P11 2475: 2115 10 0 0645 STO P22 2476: 2116 20 0 0456 CLA 6K4 2477: 2117 10 0 0650 STO P33 2500: 2120 10 0 0653 STO P44 2501: 2121 20 0 0274 CLA 29J 2502: 2122 10 0 0147 STO T1 2503: 2123 20 0 0503 FLTRD CLA 17J 2504: 2124 62 0 0000 ABS 2505: 2125 24 0 4006 SUB 1B17 2506: 2126 46 0 2226 TMI FLTRH # NO RATE CHECK RANGE 2507: 2127 30 0 0503 RATE CLZ 17J 2510: 2130 24 0 0441 SUB RDOTS 2511: 2131 10 0 0220 STO DELR1 # B13 2512: # NOT, DELR2 IS ALREADY 2513: # ZERO SINCE IT IS TIME 2514: # SHARED WITH RIZ 2515: 2516: # PAGE 34 2517: 2132 30 0 0143 CLZ Q12 2520: 2133 20 0 4030 CLA PMAX # =1B0 2521: 2134 10 0 0170 STO Q22 2522: 2135 50 1 0003 AXT 3,1 2523: 2136 20 0 0440 FLTRE CLA RRDOT # B13 2524: 2137 26 1 0300 MPR A31BD,1 # B14 2525: 2140 56 0 0001 ALS 1 2526: 2141 24 1 0030 SUB RDOTX,1 # B13 2527: 2142 06 0 5033 MPY 1B1 # SCALE AT B14 2530: 2143 04 0 0317 DVP RR # B22 2531: 2144 10 1 0000 STO TS0,1 # B-1 2532: 2145 30 1 0554 CLZ L11,1 2533: 2146 30 1 0234 CLZ L12,1 2534: 2147 42 1 2136 TIX FLTRE,1 2535: 2150 30 0 0002 CLZ TS2 2536: 2151 10 0 0001 STO TS1 2537: 2152 20 0 0300 CLA A31BD 2540: 2153 60 0 0000 COM # TS0 = M11 B-9 2541: 2154 10 0 0002 STO TS2 # TS1 = M12 B-9 2542: 2155 20 0 0302 CLA A33BD # TS2 = M13 B1 2543: 2156 60 0 0000 COM # TS3 = M14 B1 2544: 2157 10 0 0003 STO TS3 2545: 2160 50 1 0001 AXT 1,1 2546: 2161 20 1 0642 FLTRF CLA P13,1 # B20 2547: 2162 26 1 0002 MPR TS2,1 # B1 2550: 2163 32 0 0554 ADZ L11 2551: 2164 10 0 0554 STO L11 # L11=P13(M13)+P14(M14) B21 2552: 2165 20 1 0646 CLA P23,1 # B20 2553: 2166 26 1 0002 MPR TS2,1 # B1 2554: 2167 32 0 0555 ADZ L21 2555: 2170 10 0 0555 STO L21 # L21 = P23(M13)+P24(M14) B21 2556: 2171 20 1 0650 CLA P33,1 # B10 2557: 2172 26 1 0002 MPR TS2,1 2560: 2173 32 0 0556 ADZ L31 2561: 2174 10 0 0556 STO L31 # L31 = P33(M13)+P24(M14) B11 2562: 2175 20 1 0652 CLA P43,1 # B10 2563: 2176 26 1 0002 MPR TS2,1 2564: 2565: # PAGE 35 2566: 2177 32 0 0557 ADZ L41 2567: 2200 10 0 0557 STO L41 # L41 = P43(M13)+P44(M11) B11 2570: 2201 42 1 2161 TIX FLTRF,1 2571: 2202 30 0 0212 CLZ DELTA 2572: 2203 50 1 0003 AXT 3,1 2573: 2204 20 1 0640 FLTRG CLA P11,1 # B30,30,20,20 2574: 2205 26 0 0000 MPR TS0 # M11 B=9 2575: 2206 10 0 0010 STO TS10 # B21 2576: 2207 20 1 0644 CLA P21,1 2577: 2210 26 0 0001 MPR TS1 # M12 B-9 2600: 2211 32 0 0010 ADZ TS10 # B21,21,11,11 2601: 2212 32 1 0554 ADZ L11,1 2602: 2213 56 0 0001 ALS 1 # B20,20,10,10 2603: 2214 10 1 0554 STO L11,1 # L11=P11M11+P21M12+P13M13+P14M14 2604: 2215 26 1 0000 MPR TS0,1 2605: 2216 56 0 0001 ALS 1 2606: 2217 32 0 0212 ADZ DELTA # DELTA=M1J DOT PJ1 B10 2607: 2220 10 0 0212 STO DELTA 2610: 2221 42 1 2204 TIX FLTRG,1 2611: 2222 22 0 0304 ADD 6K8 2612: 2223 10 0 0212 STO DELTA 2613: 2224 10 0 0073 STO Q11 2614: 2225 40 0 2315 TRA FLTRJ-1 2615: 2616: 2617: 2226 20 0 0316 FLTRH CLA 18J # CHECK RANGE 2620: 2227 24 0 4006 SUB 1B17 2621: 2230 46 0 1776 TMI FLTRX-1 2622: 2231 50 1 0002 RANGE AXT 2,1 2623: 2232 20 1 0044 FLTRI CLA A31S,1 # ZB B1 2624: 2233 26 0 0316 MPR 18J 2625: 2234 56 0 0001 ALS 1 2626: 2235 24 1 0234 SUB RRSX,1 2627: 2236 10 1 0220 STO DELR1,1 # B23 2630: 2237 20 1 0124 CLA RRX,1 2631: 2240 26 0 0611 MPR 6K9 # B8 2632: 2241 56 0 0001 ALS 1 # B7 2633: 2634: # PAGE 36 2635: 2242 10 0 0001 STO TS1 # TRICKY, YES 2636: 2243 26 1 0124 MPR RRX,1 # B30 2637: 2244 10 1 0000 STO TS0,1 # B30 2640: 2245 20 1 0300 CLA A31BD,1 # B1 2641: 2246 26 1 0300 MPR A31BD,1 # B2 2642: 2247 26 0 0517 MPR 6K10 # 2+28 B30 2643: 2250 10 1 0004 STO TS4,1 2644: 2251 42 1 2232 TIX FLTRI,1 2645: 2252 32 0 0002 ADZ TS2 2646: 2253 22 0 0640 ADD P11 2647: 2254 10 0 0073 STO Q11 # B30(?) 2650: 2255 20 0 0377 CLA TA1 2651: 2256 10 0 0147 STO T1 # T1 = TA1 2652: 2257 20 0 0001 CLA TS1 # (RRX)(6K9) B7 2653: 2260 26 0 0126 MPR RRZ # B30 2654: 2261 60 0 0000 COM 2655: 2262 22 0 0641 ADD P12 2656: 2263 10 0 0143 STO Q12 # B30 Q12=P12-6K9(RRX)(RRZ) 2657: 2264 26 0 0143 MPR Q12 2660: 2265 10 0 0001 STO TS1 # B60 2661: 2266 30 0 0000 CLZ TS0 2662: 2267 32 0 0006 ADZ TS6 2663: 2270 22 0 0645 ADD P22 2664: 2271 10 0 0170 STO Q22 # B30 2665: 2272 26 0 0073 MPR Q11 # B60 2666: 2273 24 0 0001 SUB TS1 2667: 2274 10 0 0212 STO DELTA # B60 2670: 2275 50 1 0003 AXT 3,1 2671: 2276 20 1 0640 CLA P11,1 2672: 2277 60 0 0000 COM 2673: 2300 10 1 0554 STO L11,1 2674: 2301 20 1 0644 CLA P21,1 2675: 2302 10 1 0234 STO L12,1 2676: 2303 42 1 2276 TIX *-5,1 2677: 2304 20 0 0656 CLA 6K5 # B0 2700: 2305 26 0 0221 MPR DELR3 # B23 2701: 2306 22 0 0341 ADD RY # Y=Y+6K5*DELR3 B23 2702: 2703: # PAGE 37 2704: 2307 10 0 0341 STO RY 2705: 2310 20 0 0522 CLA 6K6 # B8 2706: 2311 06 0 0221 MPY DELR3 2707: 2312 04 0 0276 DVP DELTAT # TO B13 2710: 2313 22 0 0361 ADD VY # VY=VY+6K6*DELR3/DELTAT 2711: 2314 10 0 0361 STO VY # UPDATED VY AT B13 2712: 2315 72 0 6261 TSQ EXEC # END OF 2ND BR.OF FILTER 2713: # POINT B 2714: # SCALING COMMENTS 2715: # RANGE, RATE 2716: 2316 50 1 0003 FLTRJ AXT 3,1 2717: 2317 20 1 0234 CLA L12,1 # B30,30,20,20 2720: 2320 06 0 0143 MPY Q12 # AT B30 2721: 2321 54 0 0003 LRS 3 2722: 2322 04 0 0212 DVP DELTA # AT B60 2723: 2323 10 0 0001 STO TS1 # B3,3,-7,-7 2724: 2324 20 1 0554 CLA L11,1 # B30,30,20,20 20,20,10,10 2725: 2325 06 0 0170 MPY Q22 # AT B30 B0 FOR RATE 2726: 2326 54 0 0003 LRS 3 2727: 2327 04 0 0212 DVP DELTA # AT B60 B10 FOR RATE 2730: 2330 22 0 0001 ADD TS1 2731: 2331 10 1 0010 STO B11,1 # B3,3,-7,-7 13,13,3,3 2732: 2332 26 0 0220 MPR DELR1 # B23 B13 FOR RATE 2733: 2333 10 1 0004 STO TS4,1 # B26,26,16,16 26,26,16,16 2734: 2334 20 1 0554 CLA L11,1 # B30,30,20,20 B20,20,10,10 2735: 2335 06 0 0143 MPY Q12 # B30 ZERO 2736: 2336 54 0 0003 LRS 3 2737: 2337 04 0 0212 DVP DELTA # B60 2740: 2340 10 0 0001 STO TS1 # B3,3,-7,-7 2741: 2341 20 1 0234 CLA L12,1 # B30,30,20,20 ZERO 2742: 2342 60 0 0000 COM 2743: 2343 06 0 0073 MPY Q11 # B30 2744: 2344 54 0 0003 LRS 3 2745: 2345 04 0 0212 DVP DELTA 2746: 2346 24 0 0001 SUB TS1 2747: 2347 10 1 0014 STO B12,1 # B3,3,-7,-7 ZERO FOR RATE 2750: 2350 06 0 0222 MPY DELR2 2751: 2752: # PAGE 38 2753: 2351 22 1 0004 ADD TS4,1 # DRX,DRZ,DVX,DVZ 2754: 2352 56 0 0003 ALS 3 2755: 2353 10 1 0004 STO TS4,1 # B23,23,13,13 2756: 2354 42 1 2317 TIX FLTRJ+1,1 2757: 2355 22 0 0340 ADD RX 2760: 2356 10 0 0340 STO RX 2761: 2357 20 0 0005 CLA TS5 2762: 2360 22 0 0342 ADD RZ 2763: 2361 10 0 0342 STO RZ 2764: 2362 20 0 0006 CLA TS6 2765: 2363 22 0 0360 ADD VX 2766: 2364 10 0 0360 STO VX 2767: 2365 20 0 0007 CLA TS7 2770: 2366 22 0 0362 ADD VZ 2771: 2367 10 0 0362 STO VZ 2772: 2370 50 1 0003 AXT 3,1 2773: 2371 20 0 0010 FLTRK CLA B11 # B3 B13 2774: 2372 26 1 0554 MPR L11,1 # B30,30,10,10 B20,20,10,20 2775: 2373 10 0 0000 STO TS0 2776: 2374 20 0 0014 CLA B12 # B3 ZERO FOR RATE 2777: 2375 26 1 0234 MPR L12,1 3000: 2376 34 0 0000 SUZ TS0 3001: 2377 56 0 0003 ALS 3 3002: 2400 22 1 0640 ADD P11,1 3003: 2401 10 1 0640 STO P11,1 # B30,30,20,20 FOR BOTH 3004: 2402 20 0 0011 CLA B21 # B3 B13 FOR RATE 3005: 2403 26 1 0554 MPR L11,1 # B30,30,20,20 20,20,10,10 3006: 2404 10 0 0000 STO TS0 3007: 2405 20 0 0015 CLA B22 # B3 ZERO FOR RATE 3010: 2406 26 1 0234 MPR L12,1 # B30,30,20,20 ZERO 3011: 2407 34 0 0000 SUZ TS0 3012: 2410 56 0 0003 ALS 3 3013: 2411 22 1 0644 ADD P21,1 3014: 2412 10 1 0644 STO P21,1 # B30,30,20,20 FOR BOTH 3015: 2413 42 1 2371 TIX FLTRK,1 3016: 2414 50 1 0001 AXT 1,1 3017: 2415 20 0 0012 FLTRL CLA B31 # B-7 3 3020: 3021: # PAGE 39 3022: 2416 26 1 0556 MPR L31,1 # B20,20 10,10 3023: 2417 10 0 0000 STO TS0 3024: 2420 20 0 0016 CLA B32 # B-7 ZERO FOR RATE 3025: 2421 26 1 0236 MPR L32,1 # B20,B20 ZERO FOR RATE 3026: 2422 34 0 0000 SUZ TS0 3027: 2423 56 0 0003 ALS 3 3030: 2424 22 1 0650 ADD P33,1 # B10,10 FOR BOTH 3031: 2425 10 1 0650 STO P33,1 3032: 2426 42 1 2415 TIX FLTRL,1 3033: 2427 20 0 0013 CLA B41 # B-7 B3 3034: 2430 26 0 0557 MPR L41 3035: 2431 10 0 0000 STO TS0 3036: 2432 20 0 0017 CLA B42 # B-7 ZERO 3037: 2433 26 0 0237 MPR L42 3040: 2434 34 0 0000 SUZ TS0 3041: 2435 56 0 0003 ALS 3 3042: 2436 22 0 0653 ADD P44 # B10 FOR BOTH 3043: 2437 10 0 0653 STO P44 3044: 2440 20 0 0651 CLA P34 3045: 2441 10 0 0652 STO P43 3046: 2442 20 0 0641 CLA P12 3047: 2443 10 0 0644 STO P21 3050: 2444 30 0 0316 CLZ 18J 3051: 2445 40 0 1777 TRA FLTRX 3052: 2446 24 0 0231 LMORB2 SUB 5J # QL-5J AT B23 3053: 2447 10 0 0403 STO QLTELE # PERIC. ALT 3054: 2450 30 0 0007 CLZ TS7 # = VH SQ AT B26 3055: 2451 10 0 0143 STO VHSQ # SAVE FOR ORB INS 3056: 2452 72 0 6261 TSQ EXEC 3057: 3060: 2453 50 1 0002 ORBLM AXT 2,1 3061: 2454 20 1 0340 CLA RX,1 3062: 2455 10 1 0204 STO R0X,1 3063: 2456 20 1 0360 CLA VX,1 3064: 2457 10 1 0424 STO V0X,1 3065: 2460 42 1 2454 TIX ORBLM+1,1 3066: 2461 72 0 6444 TSQ ORBPM # COMPUTE LM ORBIT PARAMETERS 3067: 3070: # PAGE 40 3071: # RETURN FROM ORBPM W/ ACC=SI 3072: 2462 10 0 0003 STO TS3 # B0 3073: 2463 54 0 0003 LRS 3 # TO B3 3074: 2464 10 0 0211 STO Y # SAVE FOR TPERG 3075: 2465 20 0 0103 CLA CI 3076: 2466 10 0 0004 STO TS4 3077: 2467 72 0 7034 TSQ ARCTAE # RTN W/ ACCU=E 3100: 2470 60 0 0000 COM 3101: 2471 22 0 4021 ADD 2PIB3 3102: 2472 32 0 0211 ADZ Y # 2*PI-E+SI AT B3, ZERO Y 3103: 2473 06 0 5033 MPY 1B1 # TO B4 3104: 2474 04 0 0077 DVP NI # AT B-9 3105: 2475 10 0 0313 STO TPERG # B13 3106: 2476 20 0 0173 CLA AI 3107: 2477 24 0 0231 SUB 5J 3110: 2500 56 0 0001 ALS 1 # MPY BY 2 3111: 2501 24 0 0403 SUB QLTELE 3112: 2502 10 0 0315 STO QA # LM APOFOCUS ALT. AT B23 3113: 2503 72 0 6261 TSQ EXEC 3114: 3115: # Y ZEROED IN PREVIOUS BR 3116: 2504 30 0 0270 CLZ VY0 3117: 2505 50 1 0002 AXT 2,1 3120: 2506 20 1 0340 KINGK CLA RX,1 3121: 2507 10 1 0220 STO RIX,1 # SAVE R FOR ORBIT INS. 3122: 2510 26 1 0054 MPR WCX,1 3123: 2511 56 0 0001 ALS 1 3124: 2512 32 0 0211 ADZ Y 3125: 2513 10 0 0211 STO Y # Y=(WCX)DOT(RX) 3126: 2514 20 1 0360 CLA VX,1 3127: 2515 10 1 0430 STO VIX,1 # SAVE V FOR ORBIT INS. 3130: 2516 26 1 0054 MPR WCX,1 3131: 2517 56 0 0001 ALS 1 3132: 2520 32 0 0270 ADZ VY0 3133: 2521 10 0 0270 STO VY0 # VY0=(WCX)DOT(VX) 3134: 2522 20 1 0054 CLA WCX,1 # SET UP FOR CROSS 3135: 2523 60 0 0000 COM # PRODUCT SUBROUTINE 3136: 3137: # PAGE 41 3140: 2524 10 1 0010 STO TS10,1 # WC X U1 = U1 X -WC 3141: 2525 20 1 0060 CLA U1X,1 3142: 2526 10 1 0004 STO TS4,1 3143: 2527 42 1 2506 TIX KINGK,1 3144: 2530 72 0 6373 TSQ CRSPRD 3145: 2531 72 0 6422 TSQ NORMV # V1 VECTOR TO TSB 3146: 2532 72 0 6373 TSQ CRSPRD 3147: 2533 30 0 0003 CLZ TS3 3150: 2534 30 0 0004 CLZ TS4 3151: 2535 50 1 0002 AXT 2,1 3152: 2536 30 1 0010 CLZ TS10,1 3153: 2537 10 1 0034 STO V1X,1 # V1 AT 1 3154: 2540 26 1 0134 MPR A31,1 3155: 2541 22 0 0004 ADD TS4 # TS4 = V1 DOT ZB AT B2 3156: 2542 10 0 0004 STO TS4 3157: 2543 30 1 0014 CLZ TS14,1 3160: 2544 56 0 0001 ALS 1 3161: 2545 10 1 0040 STO W1X,1 3162: 2546 20 1 0134 CLA A31,1 3163: 2547 26 1 0060 MPR U1X,1 3164: 2550 22 0 0003 ADD TS3 3165: 2551 10 0 0003 STO TS3 # TS3 = U1 DOT ZB AT B2 3166: 2552 42 1 2536 TIX *-12,1 3167: 2553 72 0 7034 TSQ ARCTAE 3170: 2554 10 0 0277 STO XI 3171: 2555 72 0 6261 TSQ EXEC # END OF LEM ORB PAR BRANCH 3172: 3173: # GUIDANCE MODE CHECK 3174: 3175: 2556 20 0 0410 GM CLA S10 3176: 2557 22 0 7520 ADD 3B3 3177: 2560 46 0 2773 TMI XDV # EXTERNAL DELTA V 3200: 2561 22 0 4065 ADD 2B3 3201: 2562 62 0 0000 ABS 3202: 2563 46 0 2577 TMI DXFR1 # TPI SEARCH 3203: 2564 20 0 0410 CLA S10 3204: 2565 60 0 0000 COM 3205: 3206: # PAGE 42 3207: 2566 46 0 2573 TMI *+5 3210: 2567 30 0 0310 CLZ TDEL # TDEL=0 3211: 2570 20 0 0732 CLA ORBRET # =TRA DX10P 3212: 2571 10 0 0157 STO TSEX # SET UP RETURN FROM NORTON 3213: 2572 40 0 3562 TRA NORTON+5 3214: # CSI,CDH,TPI EXECUTE, OR EXT DV 3215: 2573 20 0 0373 CLA TIG # COMPUTE TDEL FOR 3216: 2574 24 0 0377 SUB TA1 # CSI, CDH, OR TPI(S10=4) 3217: 2575 56 0 0005 ALS 5 3220: 2576 10 0 0310 STO TDEL 3221: 2577 20 0 0310 DXFR1 CLA TDEL 3222: 2600 54 0 0005 LRS 5 3223: 2601 22 0 0377 ADD TA1 3224: 2602 10 0 0373 STO TIG 3225: 2603 20 0 0310 CLA TDEL # TDEL = OR GTR 0 AFTER TR CALC 3226: 2604 22 0 0307 ADD 6J 3227: 2605 10 0 0311 STO TR # TIME UNTIL RENDEZVOUS (TPI) 3230: 2606 30 0 0310 CLZ TDEL # LIMIT TDEL POSITIVE 3231: 2607 46 0 2611 TMI *+2 3232: 2610 10 0 0310 STO TDEL 3233: 2611 30 0 0407 CLZ S7 # ZERO S7 WHEN NOT IN XDV 3234: 2612 20 0 0310 CLA TDEL 3235: 2613 72 0 3555 DXFR10 TSQ NORTON 3236: 2614 10 0 0347 DX10P STO RF # PRED. BURNOUT ALTITUDE 3237: 2615 22 0 0217 ADD 2K14 3240: 2616 10 0 0170 STO P 3241: 2617 30 0 0477 CLZ RADOT 3242: 2620 30 0 0263 CLZ VPY 3243: 2621 30 1 0220 DXFRR5 CLZ RIX,1 # R5 STORE 3244: 2622 10 1 0174 STO R5X,1 3245: 2623 30 1 0430 CLZ VIX,1 3246: 2624 10 1 0014 STO TS14,1 3247: 2625 10 1 0460 STO V5X,1 # V5 STORE 3250: 2626 26 1 0054 MPR WCX,1 3251: 2627 56 0 0001 ALS 1 # TO 13 3252: 2630 32 0 0263 ADZ VPY # VPY = V5 DOT WC 3253: 2631 10 0 0263 STO VPY 3254: 3255: # PAGE 43 3256: 2632 30 1 0010 CLZ TS10,1 3257: 2633 10 1 0060 STO U1X,1 # U1 STORE 3260: 2634 26 1 0460 MPR V5X,1 # RADOT = R5 DOT U1 3261: 2635 56 0 0001 ALS 1 # TO 13 3262: 2636 32 0 0477 ADZ RADOT 3263: 2637 10 0 0477 STO RADOT 3264: 2640 20 1 0200 CLA REX,1 # CSM POS AND VEL FOR 3265: 2641 10 1 0204 STO R0X,1 # ELLIPSE PREDICTOR 3266: 2642 20 1 0420 CLA VEX,1 # AND ORBIT PARAMETERS 3267: 2643 10 1 0424 STO V0X,1 3270: 2644 42 1 2621 TIX DXFRR5,1 3271: 2645 72 0 6422 TSQ NORMV 3272: 2646 20 0 0013 CLA TS13 3273: 2647 10 0 0463 STO VHA 3274: 2650 72 0 6261 TSQ EXEC 3275: 2651 72 0 6444 ORBIT3 TSQ ORBPM # CSM ORBIT PARAMETERS 3276: 2652 20 0 0436 CLA TB 3277: 2653 24 0 0445 SUB TCSM 3300: 2654 22 0 0310 ADD TDEL # +TIME INC. TO DXFR 3301: 2655 46 0 2657 TMI *+2 3302: 2656 24 0 0445 SUB TCSM 3303: 2657 72 0 3555 TSQ NORTON 3304: 2660 30 0 0003 DXFR13 CLZ TS3 3305: 2661 20 1 0220 CLA RIX,1 3306: 2662 24 1 0174 SUB R5X,1 3307: 2663 10 1 0430 STO VIX,1 # RC-R5 3310: 2664 20 1 0054 CLA WCX,1 3311: 2665 10 1 0004 STO TS4,1 3312: 2666 20 1 0060 CLA U1X,1 3313: 2667 10 1 0010 STO TS10,1 3314: 2670 26 1 0430 MPR VIX,1 # U1 DOT (RC-R5) 3315: 2671 32 0 0003 ADZ TS3 # SCALE BOTH RX AND RZ 3316: 2672 10 0 0003 STO TS3 # AT 24 FOR ARCTAE 3317: 2673 42 1 2661 TIX DXFR13+1,1 3320: 2674 72 0 6373 TSQ CRSPRD 3321: 2675 72 0 6422 TSQ NORMV 3322: 2676 30 0 0004 CLZ TS4 3323: 3324: # PAGE 44 3325: 2677 50 1 0002 VRUP1 AXT 2,1 3326: 2700 20 1 0010 CLA TS10,1 3327: 2701 26 1 0430 MPR VIX,1 3330: 2702 32 0 0004 ADZ TS4 3331: 2703 10 0 0004 STO TS4 # RZ AT 24 3332: 2704 42 1 2700 TIX VRUP1+1,1 3333: 2705 20 0 0410 CLA S10 3334: 2706 24 0 7520 SUB 3B3 3335: 2707 46 0 0753 TMI THEF # S10 = 1 OR 2 3336: 2710 72 0 7034 TSQ ARCTAE # TLOS=ARCTAN(RX/RZ) 3337: 2711 10 0 0303 STO TLOS # LINE OF SIGHT (DEDA) 3340: 2712 20 0 0311 CLA TR 3341: 2713 24 0 0310 SUB TDEL 3342: 2714 10 0 0435 STO T 3343: 2715 20 0 0436 CLA TB 3344: 2716 24 0 0445 SUB TCSM 3345: 2717 22 0 0311 ADD TR # TIME INC. TPI TO REND. 3346: 2720 24 0 0312 SUB 3J # TARGET OFFSET 3347: 2721 10 0 0442 STO TI 3350: 2722 72 0 6261 TSQ EXEC 3351: 2723 20 0 0410 DXFR14 CLA S10 3352: 2724 60 0 0000 COM 3353: 2725 46 0 5520 TMI CSMT1 # TO ELLIPX 3354: 3355: # ORBIT INSERTION SECTION 3356: 3357: 2726 20 0 0270 CLA VY0 3360: 2727 60 0 0000 COM 3361: 2730 26 0 0270 MPR VY0 3362: 2731 22 0 0143 ADD VHSQ # VH SQ 3363: 2732 72 0 7123 TSQ SQRTE 3364: 2733 10 0 0463 STO VHA # B13 3365: 2734 20 0 0662 CLA 4K5 # COMPUTE DESIRED BURNOUT 3366: 2735 24 0 0271 SUB RB # ALTITUDE RATE 3367: 2736 06 0 0565 MPY 4K4 3370: 2737 52 0 0003 LLS 3 3371: 2740 10 0 0423 STO RFDOT 3372: 3373: # PAGE 45 3374: 2741 24 0 0527 SUB 4K6 # LIMIT RFDOT BETWEEN 3375: 2742 46 0 2745 TMI *+3 # 23J AND 4K6 3376: 2743 20 0 0527 CLA 4K6 3377: 2744 40 0 2751 TRA *+5 3400: 2745 20 0 0465 CLA 23J 3401: 2746 24 0 0423 SUB RFDOT 3402: 2747 46 0 2752 TMI *+3 3403: 2750 20 0 0465 CLA 23J 3404: 2751 10 0 0423 STO RFDOT 3405: 2752 20 0 0271 CLA RB 3406: 2753 10 0 0347 STO RF 3407: 2754 20 0 0227 CLA 4K10 3410: 2755 26 0 0303 MPR THETAF 3411: 2756 22 0 0224 ADD 7J 3412: 2757 10 0 0177 STO AL 3413: 2760 24 0 0226 SUB 9J # LIMIT AL BETWEEN 3414: 2761 46 0 2764 TMI *+3 # 8J AND 9J 3415: 2762 20 0 0226 CLA 9J 3416: 2763 40 0 2770 TRA *+5 3417: 2764 20 0 0225 CLA 8J 3420: 2765 24 0 0177 SUB AL 3421: 2766 46 0 2771 TMI *+3 3422: 2767 20 0 0225 CLA 8J 3423: 2770 40 0 3740 TRA CDH3 # AL IN ACCUM 3424: 2771 20 0 0177 CLA AL 3425: 2772 40 0 3741 TRA CDH3+1 3426: # EXTERNAL DELTA V 3427: 2773 20 0 0407 XDV CLA S7 3430: 2774 56 0 0003 ALS 3 3431: 2775 46 0 3003 TMI XDV1 3432: 2776 20 0 0614 CLA MU8 3433: 2777 24 0 4006 SUB 1B17 3434: 3000 46 0 3014 TMI XDV2 3435: 3001 20 0 7701 CLA 1B3 # ULLAGE DETECTED SET S7 3436: 3002 10 0 0407 STO S7 3437: 3003 50 1 0002 XDV1 AXT 2,1 3440: 3004 20 1 0460 CLA DVGXX,1 # INPUT VEL TO GAIN 3441: 3442: # PAGE 46 3443: 3005 24 1 0050 SUB DQSX,1 # ACCUM DELTA V 3444: 3006 10 1 0004 STO TS4,1 3445: 3007 10 1 0064 STO VGX,1 3446: 3010 42 1 3004 TIX XDV1+1,1 3447: 3011 72 0 6737 TSQ DPVMAG 3450: 3012 10 0 0370 STO VG # VEL TO GAIN MAG 3451: 3013 40 0 3212 TRA Q7 # TO STEERING 3452: 3014 50 1 0002 XDV2 AXT 2,1 # LOAD NDX FOR STEER/XDV 3453: 3015 20 0 0450 CLA 28J1 # IF IN TPI, DELV = VG 3454: 3016 24 0 0526 SUB 2K11 # IF IN EXT DELTA V EQUAL 3455: 3017 46 0 3023 TMI *+4 # FUNCTIONOF 28J 3456: 3020 30 1 0050 CLZ DQSX,1 # ZERO DQS VECTOR 3457: 3021 20 1 0064 CLA VGX,1 3460: 3022 40 0 3036 TRA XDV2P 3461: 3023 20 0 0452 CLA 28J3 # RADIAL COMPONENT 3462: 3024 26 1 0060 MPR U1X,1 # 13+1=14 3463: 3025 10 1 0050 STO DQSX,1 3464: 3026 20 0 0451 CLA 28J2 # CROSSRANGE COMPONENT 3465: 3027 26 1 0040 MPR W1X,1 3466: 3030 32 1 0050 ADZ DQSX,1 3467: 3031 10 1 0050 STO DQSX,1 3470: 3032 20 0 0450 CLA 28J1 # DOWNRANGE COMPONENT 3471: 3033 26 1 0034 MPR V1X,1 3472: 3034 34 1 0050 SUZ DQSX,1 3473: 3035 56 0 0001 ALS 1 # TO 13 3474: 3036 10 1 0460 XDV2P STO DVGXX,1 # VELOCITY TO GAIN 3475: 3037 42 1 3015 TIX XDV2+1,1 3476: 3040 40 0 3003 TRA XDV1 3477: 3500: 3041 20 0 0423 Q5 CLA RFDOT # GUIDANCE LAW 3501: 3042 10 0 0004 STO TS4 # SET FOR INDEXING 3502: 3043 30 0 0005 CLZ TS5 3503: 3044 20 0 0477 CLA RADOT 3504: 3045 10 0 0010 STO TS10 3505: 3046 20 0 0270 CLA VY0 3506: 3047 10 0 0011 STO TS11 3507: 3050 50 1 0001 AXT 1,1 3510: 3511: # PAGE 47 3512: 3051 44 0 3052 TOV *+1 3513: 3052 20 1 0504 CLA RD3DOT,1 # -2 3514: 3053 26 0 0357 MPR TBO # 9-2=7 3515: 3054 54 0 0001 LRS 1 # TO 8 3516: 3055 10 0 0001 STO TS1 # 1/2 AT 7 3517: 3056 20 1 0004 CLA TS4,1 # RFDOT OR ZERO 3520: 3057 24 1 0010 SUB TS10,1 # RDOT OR VY0 3521: 3060 10 0 0002 STO TS2 3522: 3061 06 0 7701 MPY 1B3 # B16 3523: 3062 04 0 0357 DVP TBO # 16-9=7 3524: 3063 34 0 0001 SUZ TS1 # R OR YD2DOT 3525: 3064 10 0 0000 STO TS0 # TEST FOR OVERFLOW 3526: 3065 30 0 0002 CLZ TS2 # SIGN IF OVERFLOW 3527: 3066 72 0 3335 TSQ OVFLT 3530: 3067 10 1 0554 STO RD2DOT,1 3531: 3070 20 0 4020 CLA SIXTH # -2 3532: 3071 26 1 0504 MPR RD3DOT,1 # -4 3533: 3072 26 0 0357 MPR TBO # 5 3534: 3073 54 0 0001 LRS 1 # TO 6 3535: 3074 22 1 0554 ADD RD2DOT,1 # +1/2 2DOT AT 6 3536: 3075 26 0 0357 MPR TBO # 15 3537: 3076 56 0 0001 ALS 1 # TO 14 3540: 3077 10 0 0001 STO TS1 3541: 3100 20 1 0010 CLA TS10,1 3542: 3101 54 0 0001 LRS 1 # TO 14 3543: 3102 32 0 0001 ADZ TS1 3544: 3103 26 0 0357 MPR TBO # 23 3545: 3104 22 1 0210 ADD R,1 3546: 3105 10 1 0014 STO TS14,1 # RF OR YF 3547: 3106 42 1 3051 TIX Q5+8,1 3550: 3107 10 0 0347 STO RF # 23 3551: 3110 10 0 0271 STO RB # SAVE RF FOR ORBIT INSERT. 3552: 3111 24 0 0231 SUB 5J # -LUNAR RADIUS 3553: 3112 24 0 0232 SUB 16J # BURNOUT ALT ERROR 3554: 3113 10 0 0014 STO TS14 3555: 3114 14 0 0523 LDQ 5K20 3556: 3115 20 0 0506 CLA 4K12 3557: 3560: # PAGE 48 3561: 3116 24 0 0067 SUB AT 3562: 3117 46 0 3122 TMI *+3 # IF AT GT 4K12 3563: 3120 20 0 0574 CLA DEL2 3564: 3121 46 0 3123 TMI *+2 # IF AT LE 4K12 AND DEL2=1 3565: 3122 14 0 0564 LDQ 5K18 3566: 3123 12 0 0600 STQ RD3DTL # RD3DOT LOWER LIMIT 3567: 3124 20 0 0357 CLA TBO 3570: 3125 26 0 0357 MPR TBO 3571: 3126 26 0 0357 MPR TBO # TB CUBED 3572: 3127 10 0 0001 STO TS1 # 27 3573: 3130 50 1 0001 AXT 1,1 3574: 3131 44 0 3132 GDLAW3 TOV *+1 3575: 3132 20 1 0014 CLA TS14,1 # BURNOUT ERROR 3576: 3133 06 0 5000 MPY 12B4 # 27 3577: 3134 52 0 0002 LLS 2 # TO 25 3600: 3135 04 0 0001 DVP TS1 # -2 3601: 3136 32 1 0504 ADZ RD3DOT,1 # DESIRED ACCEL RATE 3602: 3137 10 0 0000 STO TS0 # TEST FOR OVERFLOW 3603: 3140 20 1 0014 CLA TS14,1 3604: 3141 72 0 3335 TSQ OVFLT 3605: 3142 10 1 0504 STO RD3DOT,1 3606: 3143 46 0 3150 TMI *+5 3607: 3144 24 1 0560 SUB 5K14,1 # UPPER LIMIT TEST 3610: 3145 46 0 3152 TMI *+5 3611: 3146 20 1 0560 CLA 5K14,1 # SET AT UPPER LIMIT 3612: 3147 40 0 3553 TRA LL3DOT+1 3613: 3150 24 1 0600 SUB RD3DTL,1 # LOWER LIMIT TEST 3614: 3151 46 0 3552 TMI LL3DOT 3615: 3152 42 1 3131 GDLAW4 TIX GDLAW3,1 3616: 3153 20 0 0636 CLA 2K1 # 48 3617: 3154 06 0 5033 MPY 1B1 # B49 3620: 3155 04 0 0210 DVP R # 49-23-26 3621: 3156 34 0 0143 SUZ VHSQ # VH SQ 3622: 3157 06 0 4010 MPY 1B4 # B30 3623: 3160 04 0 0210 DVP R # -ORBITAL RAD ACCEL AT 7 3624: 3161 32 0 0554 ADZ RD2DOT 3625: 3162 10 0 0554 STO RD2DOT # CMD RAD ACCEL AT 7 3626: 3627: # PAGE 49 3630: 3163 72 0 6261 TSQ EXEC 3631: 3632: # STEERING EQUATIONS. 3633: 3634: 3164 20 0 0233 STEER CLA 21J 3635: 3165 24 0 0337 SUB H 3636: 3166 46 0 3176 TMI STEER1 3637: 3167 20 0 0464 CLA 22J 3640: 3170 24 0 0367 SUB HDOT 3641: 3171 46 0 3176 TMI STEER1 3642: 3172 20 0 7701 CLA 1B3 # =1024B13 COMMAND X-AXIS VERT 3643: 3173 10 0 0370 STO VG 3644: 3174 20 0 4030 CLA PMAX # PSIP=1 3645: 3175 40 0 3206 TRA *+9 3646: 3176 50 1 0001 STEER1 AXT 1,1 3647: 3177 44 0 3200 TOV *+1 3650: 3200 20 1 0554 CLA RD2DOT,1 # PSIP AND PSIY COMPS 3651: 3201 14 0 4007 LDQ ZERO 3652: 3202 04 0 0067 DVP AT # PSIP OR Y AT ZERO 3653: 3203 10 0 0000 STO TS0 # TEST FOR OVERFLOW 3654: 3204 20 1 0554 CLA RD2DOT,1 # SIGN IF OVERFLOW 3655: 3205 72 0 3335 TSQ OVFLT 3656: 3206 10 1 0010 STO TS10,1 # PSIP OR PSIY AT 0 3657: 3207 42 1 3177 TIX STEER1+1,1 3660: 3210 26 0 0010 MPR TS10 3661: 3211 10 0 0014 STO TS14 # (PSIP)SQ AT 0 3662: 3212 20 0 0614 Q7 CLA MU8 # TEST IF ENG ON 3663: 3213 24 0 4006 SUB 1B17 3664: 3214 46 0 3220 TMI *+4 3665: 3215 20 0 0370 CLA VG 3666: 3216 24 0 0466 SUB 5K26 # CONSTANT STEERING IF 3667: 3217 46 0 3231 TMI STEER5 3670: 3220 20 0 0410 CLA S10 3671: 3221 24 0 4006 SUB 1B17 3672: 3222 46 0 3264 TMI STEER2 3673: 3223 50 1 0002 AXT 2,1 # XBD FOR EXT DELTA V 3674: 3224 20 1 0064 CLA VGX,1 3675: 3676: # PAGE 50 3677: 3225 06 0 5033 MPY 1B1 # B14 3700: 3226 04 0 0370 DVP VG # RESULT AT B1 3701: 3227 10 1 0374 STO A11BD,1 3702: 3230 42 1 3224 TIX *-4,1 3703: 3231 30 0 0000 STEER5 CLZ TS0 3704: 3232 30 0 0001 CLZ TS1 3705: 3233 30 0 0002 CLZ TS2 3706: 3234 50 1 0002 AXT 2,1 # COMPUTE VELOCITY TO BE 3707: 3235 20 1 0374 CLA A11BD,1 # GAINED COMPONENTS 3710: 3236 26 1 0130 MPR A11,1 3711: 3237 32 0 0000 ADZ TS0 3712: 3240 10 0 0000 STO TS0 3713: 3241 20 1 0374 CLA A11BD,1 3714: 3242 26 1 0140 MPR A21,1 3715: 3243 32 0 0001 ADZ TS1 3716: 3244 10 0 0001 STO TS1 3717: 3245 20 1 0374 CLA A11BD,1 3720: 3246 26 1 0134 MPR A31,1 3721: 3247 32 0 0002 ADZ TS2 3722: 3250 10 0 0002 STO TS2 3723: 3251 42 1 3235 TIX *-12,1 3724: 3252 50 1 0002 AXT 2,1 3725: 3253 20 0 0370 CLA VG 3726: 3254 10 0 0267 STO DELVG 3727: 3255 06 1 0000 MPY TS0,1 3730: 3256 52 0 0002 LLS 2 # TO 13 3731: 3257 22 1 0470 ADD VDX,1 3732: 3260 10 1 0474 STO VSMGX,1 # 13 3733: 3261 42 1 3253 TIX *-6,1 3734: 3262 72 0 6261 TSQ EXEC 3735: 3263 40 0 7472 IDLE TRA TEST 3736: 3264 20 0 4030 STEER2 CLA PMAX 3737: 3265 34 0 0014 SUZ TS14 3740: 3266 10 0 0014 STO TS14 # 1-(PSIP)SQ 3741: 3267 72 0 7123 TSQ SQRTE 3742: 3270 10 0 0015 STO TS15 3743: 3271 20 0 0011 CLA TS11 3744: 3745: # PAGE 51 3746: 3272 62 0 0000 ABS 3747: 3273 24 0 0015 SUB TS15 3750: 3274 46 0 3304 TMI STEER3 3751: 3275 20 0 0011 CLA TS11 3752: 3276 46 0 3301 TMI *+3 3753: 3277 20 0 0015 CLA TS15 3754: 3300 40 0 3303 TRA *+3 3755: 3301 20 0 0015 CLA TS15 3756: 3302 60 0 0000 COM 3757: 3303 10 0 0011 STO TS11 3760: 3304 20 0 0011 STEER3 CLA TS11 3761: 3305 26 0 0011 MPR TS11 3762: 3306 60 0 0000 COM 3763: 3307 32 0 0014 ADZ TS14 3764: 3310 72 0 7123 TSQ SQRTE 3765: 3311 10 0 0012 STO TS12 3766: 3312 50 1 0002 STEER4 AXT 2,1 3767: 3313 20 0 0010 CLA TS10 3770: 3314 26 1 0060 MPR U1X,1 3771: 3315 10 0 0001 STO TS1 3772: 3316 20 0 0450 CLA 28J1 3773: 3317 46 0 3332 OUT1 TMI OUT # IF 28J1 NEGATIVE 3774: 3320 20 0 0012 CLA TS12 3775: 3321 26 1 0034 MPR V1X,1 3776: 3322 32 0 0001 ADZ TS1 3777: 3323 10 0 0001 STO TS1 4000: 3324 20 0 0011 CLA TS11 4001: 3325 26 1 0040 MPR W1X,1 4002: 3326 32 0 0001 ADZ TS1 4003: 3327 10 1 0374 STO A11BD,1 4004: 3330 42 1 3313 TIX STEER4+1,1 4005: 3331 40 0 3231 TRA STEER5 4006: 3332 20 0 0012 OUT CLA TS12 4007: 3333 60 0 0000 COM 4010: 3334 40 0 3321 TRA OUT1+2 4011: 3335 44 0 3340 OVFLT TOV *+3 4012: 3336 20 0 0000 CLA TS0 4013: 4014: # PAGE 52 4015: 3337 40 0 6764 TRA EXIT # EXIT WITH COMPUTED VALUE 4016: 3340 46 0 3343 TMI *+3 4017: 3341 20 0 4030 CLA PMAX # POSITIVE LIMIT 4020: 3342 40 0 3344 TRA *+2 4021: 3343 20 0 4037 CLA NMAX 4022: 3344 40 0 6764 TRA EXIT 4023: 4024: # DISPLAY ROUTINE SOFT PORTION. 4025: 4026: 3345 44 0 3346 DSP1 TOV *+1 # CL. O.F. 4027: 3346 30 0 0567 CLZ DSPF1 # H,HDOT MODE. 4030: 3347 46 0 3351 TMI *+2 # -- IS INITIALIZE 4031: 3350 40 0 6274 TRA DSPLY # TO COUNTER CHECK. (HARD) 4032: 3351 20 0 0337 CLA H 4033: 3352 10 0 0214 STO POUT 4034: 3353 20 0 0367 CLA HDOT 4035: # Q REGISTER DOES NOT NEED TO BE ZERO 4036: # SINCE DVP K55 IS AT WORST A LEFT 4037: # SHIFT OF 2 AND THE ALT RATE REGISTER 4040: # IS ONLY 15 BITS LONG 4041: 3354 04 0 0607 DVP K55 4042: 3355 40 0 6306 TRA DSPLY1 4043: 3356 20 0 0270 DSP2CP CLA VY0 # OUT-OF-CSM PLANE VEL. 4044: 3357 54 0 0021 LRS 17 # SET SIGN OF Q AND USE 4045: 3360 52 0 0021 LLS 17 # UP TIME 4046: 3361 12 0 0010 STQ TS10 # SAVE SIGN 4047: 3362 62 0 0000 ABS 4050: 3363 04 0 0665 DVP VY0FS # =FULL-SCALE VALUE(200 FPS) 4051: 3364 44 0 3366 TOV *+2 4052: 3365 40 0 3367 TRA *+2 4053: 3366 20 0 4030 CLA PMAX 4054: 3367 32 0 0010 ADZ TS10 # VY0 IN SIGN-MAGNITUDE 4055: 3370 40 0 6345 TRA DSPLY3-1 # TO OUTPUT,(HARD) 4056: 4057: # EXECUTIVE PART 2. (BRANCH 50) 4060: 4061: 3371 20 0 1012 EXEC2 CLA BR1 # SET NAV BRANCH 4062: 4063: # PAGE 53 4064: 3372 10 0 0063 STO BRANCH 4065: 3373 72 0 1132 TSQ TMIE1 # RESET TM 4066: 3374 30 0 0455 CLZ DDF # DEDA DATA FLAG. 4067: 3375 46 0 3461 TMI NEWDD 4070: 3376 30 0 0571 EXECM CLZ IDRF # TEST IF DOWNLINK DATA 4071: 3377 46 0 3533 TMI EXECM2 # HAS BEEN RECEIVED 4072: 3400 20 0 0400 EXECM1 CLA S0 4073: 3401 24 0 7520 SUB 3B3 4074: 3402 46 0 3453 TMI EXECA # S0-3(--IS INER. REF) 4075: 3403 24 0 7701 SUB 1B3 4076: 3404 46 0 3536 TMI EXEC6 # S0-4(--IS IMU ALIGN) 4077: 3405 24 0 7701 SUB 1B3 4100: 3406 46 0 4047 TMI DELAY # S0-5(--IS LUN ALIGN) 4101: 3407 24 0 7701 SUB 1B3 4102: 3410 46 0 3453 TMI EXECA # S0-6(--IS ORB ALIGN) 4103: 3411 22 0 5427 ADD 7B3 # S0+1 4104: 3412 46 0 3432 TMI INCMU7 # S0=7 4105: 3413 20 0 0604 CAL CLA DEL21 # CALIBRATE MODE 4106: 3414 46 0 3416 TMI *+2 4107: 3415 72 0 4772 TSQ EADICS # IMU DIR COSINES 4110: 3416 72 0 4451 TSQ ATTERR # COMPUTE ATTITUDE ERRORS 4111: 3417 50 1 0002 AXT 2,1 4112: 3420 20 0 0632 CLA 1K33 # -3 4113: 3421 06 1 0070 MPY EX,1 # 2 4114: 3422 52 0 0014 LLS 12 # -3+2-12=-13 4115: 3423 32 1 0510 ADZ DAXREM,1 4116: 3424 10 1 0510 STO DAXREM,1 # -13 4117: 3425 20 0 0633 CLA 1K34 # -15 4120: 3426 26 1 0070 MPR EX,1 # 2 4121: 3427 32 1 0544 ADZ 1K1,1 4122: 3430 10 1 0544 STO 1K1,1 # GYRO BIAS AT -13 4123: 3431 42 1 3420 TIX *-9,1 4124: 3432 30 0 0717 INCMU7 CLZ MU7 # INCR. COUNTER 4125: 3433 22 0 4006 ADD 1B17 4126: 3434 10 0 0717 STO MU7 4127: 3435 24 0 0621 SUB 1K37 # ACCEL. CAL. DURATION 4130: 3436 62 0 0000 ABS 4131: 4132: # PAGE 54 4133: 3437 60 0 0000 COM 4134: 3440 46 0 3447 TMI *+7 # + IS TIME FOR ACCEL CAL 4135: 3441 50 1 0002 AXT 2,1 4136: 3442 30 1 0714 CLZ SDVX,1 4137: 3443 26 0 0635 MPR 1K36 4140: 3444 32 1 0540 ADZ 1K19,1 4141: 3445 10 1 0540 STO 1K19,1 # NEW BIAS CORRECTION 4142: 3446 42 1 3442 TIX *-4,1 4143: 3447 20 0 0717 CLA MU7 4144: 3450 24 0 0617 SUB 1K30 4145: 3451 46 0 3453 TMI EXECA 4146: 3452 30 0 0400 CLZ S0 # CAL COMPLETE, SET ATT HOLD 4147: 3453 30 0 0530 EXECA CLZ DAXA # ZERO ALIGNMENT INCREMENTS 4150: 3454 30 0 0531 CLZ DAYA 4151: 3455 30 0 0532 CLZ DAZA 4152: 3456 40 0 4047 TRA DELAY # END MAJOR CYCLE 4153: 3457 12 0 0023 STQ SREX # STORE NEW DEDA DATA. 4154: 3460 40 0 0022 TRA SREX1 4155: 3461 20 0 4065 NEWDD CLA STOCOM # EQU TO STORE 4156: 3462 22 0 0333 ADD ADST # DEDA ADDRESS 4157: 3463 10 0 0022 STO SREX1 4160: 3464 20 0 0326 CLA DD # DEDA DATA 4161: 3465 72 0 3457 TSQ *-6 4162: 3466 20 0 1012 CLA BR1 # PROTECT BRANCH FROM DEDA 4163: 3467 10 0 0063 STO BRANCH 4164: 3470 20 0 0333 CLA ADST 4165: 3471 24 0 4013 SUB 1B9 # S0 ADDRESS 4166: 3472 46 0 3376 TMI EXECM 4167: 3473 24 0 4006 SUB 1B17 4170: 3474 46 0 3513 TMI EXEC3 # NEW WD IS S0 4171: 3475 24 0 4041 SUB 10B17 4172: 3476 46 0 3376 TMI EXECM # NEW WD BTWN S0PS13 4173: 3477 24 0 4006 SUB 1B17 4174: 3500 46 0 6154 TMI LUNAZ # NEW WD IS S13 4175: 3501 24 0 4006 SUB 1B17 4176: 3502 46 0 3504 TMI *+2 # NEW WD IS S14 4177: 3503 40 0 3376 TRA EXECM 4200: 4201: # PAGE 55 4202: 3504 20 0 0414 CLA S14 # NEW WD IS S14 4203: 3505 24 0 4065 SUB 2B3 4204: 3506 46 0 3511 TMI *+3 # S14-2 (--IS S14=1) 4205: 3507 24 0 7701 SUB 1B3 4206: 3510 46 0 3533 TMI EXECM2 # S14-3 (--IS S14=2) 4207: 3511 10 0 0563 STO DLIF # ENABLE DL IF S14=1 4210: 3512 40 0 3400 TRA EXECM1 # -- S14=3 4211: 3513 20 0 0400 EXEC3 CLA S0 4212: 3514 22 0 7701 ADD 1B3 # NEG IF S0=7 4213: 3515 46 0 3525 TMI MABEE 4214: 3516 24 0 5427 SUB 7B3 4215: 3517 46 0 3453 TMI EXECA 4216: 3520 20 0 0604 CLA DEL21 # CALIBRATE I.C. 4217: 3521 46 0 3525 TMI MABEE 4220: 3522 20 0 7520 CLA 3B3 # IMU ALINE FOR 2SECS. 4221: 3523 10 0 0400 STO S0 4222: 3524 12 0 0576 STQ DEL6 4223: 3525 50 1 0006 MABEE AXT 6,1 4224: 3526 30 1 0714 CLZ SDVX,1 # ZERO MU7 AND DV SJMS 4225: 3527 20 1 0130 CLA A11,1 4226: 3530 10 1 0160 STO A11D,1 4227: 3531 42 1 3526 TIX *-3,1 4230: 3532 40 0 3453 TRA EXECA 4231: 3533 20 0 1011 EXECM2 CLA IC1BR # SET IC1 BRANCH 4232: 3534 10 0 0063 STO BRANCH 4233: 3535 40 0 3400 TRA EXECM1 4234: 3536 30 0 0576 EXEC6 CLZ DEL6 # IMU ALINE. 4235: 3537 46 0 3541 TMI *+2 # -- IS CALIBRATE 4236: 3540 40 0 3542 TRA *+2 4237: 3541 20 0 5000 CLA 6B3 4240: 3542 10 0 0400 STO S0 4241: 3543 40 0 4047 TRA DELAY 4242: 3544 20 0 0140 FDAI1 CLA A21 4243: 3545 26 0 0127 MPR COGA 4244: 3546 10 0 0001 STO TS1 4245: 3547 20 0 0142 CLA A23 4246: 3550 26 0 0123 MPR SIGA 4247: 4250: # PAGE 56 4251: 3551 40 0 4674 TRA EX17+6 4252: 3552 20 1 0600 LL3DOT CLA RD3DTL,1 4253: 3553 10 1 0504 STO RD3DOT,1 4254: 3554 40 0 3152 TRA GDLAW4 4255: 3555 10 0 0442 NORTON STO TI 4256: 3556 12 0 0157 STQ TSEX # SUBR TO GO TO EXEC. 4257: 3557 72 0 6261 TSQ EXEC 4260: 3560 72 0 6535 TSQ ELPRD # ELPR AND COMPT 4261: 3561 72 0 6261 TSQ EXEC # LENGTH OF VECTOR 4262: 3562 50 1 0002 AXT 2,1 # RIX 4263: 3563 20 1 0220 CLA RIX,1 4264: 3564 10 1 0014 STO TS14,1 4265: 3565 42 1 3563 TIX *-2,1 4266: 3566 72 0 6422 TSQ NORMV 4267: 3567 50 1 0002 AXT 2,1 4270: 3570 20 0 0013 CLA TS13 # LENGTH OF RI 4271: 3571 40 0 0157 TRA TSEX 4272: 3572 30 0 0320 RRT CLZ READP # TEST FOR EXIT 4273: 3573 46 0 3575 TMI *+2 # FROM HOLD 4274: 3574 40 0 1222 TRA DEXIT # EXIT 4275: 3575 10 0 0325 STO RMF # TO READ OUT 4276: 3576 40 0 7202 TRA ADOUT 4277: 3577 20 0 0410 EX33P CLA S10 4300: 3600 24 0 7520 SUB 3B3 4301: 3601 46 0 3630 TMI CSICDH 4302: 3602 20 0 0526 CLA 2K11 4303: 3603 10 0 0450 STO 28J1 4304: 3604 20 0 0613 CLA 3K4 4305: 3605 24 0 0033 SUB C2 4306: 3606 46 0 5552 TMI EX33+1 4307: 3607 30 0 0577 CLZ DEL10 4310: 3610 46 0 3620 TMI EX33PP 4311: 3611 20 0 0526 EX35 CLA 2K11 4312: 3612 10 0 0371 STO VT 4313: 3613 30 0 0172 CLZ Q1 4314: 3614 24 0 0231 SUB 5J 4315: 3615 10 0 0402 STO Q1DEDA 4316: 4317: # PAGE 57 4320: 3616 72 0 6261 TSQ EXEC 4321: 3617 40 0 2773 TRA XDV 4322: 3620 30 0 0306 EX33PP CLZ 4J 4323: # RESTORE SAVED QUANTITIES FO T/B COMPUTATIONS 4324: # IN HARD MEMORY. 4325: 3621 30 0 0050 CLZ V6X 4326: 3622 10 0 0012 STO TS12 4327: 3623 30 0 0051 CLZ V6Y 4330: 3624 10 0 0013 STO TS13 4331: 3625 30 0 0052 CLZ V6Z 4332: 3626 10 0 0014 STO TS14 4333: 3627 40 0 6067 TRA EX36+1 4334: 3630 72 0 6261 CSICDH TSQ EXEC 4335: 3631 20 0 0203 CLA RT 4336: 3632 24 0 0347 SUB RF 4337: 3633 10 0 0402 STO DELH 4340: 3634 10 0 0314 STO DELRP # LITTLE DELTA R AT 23 4341: 3635 30 0 0423 CLZ RFDOT 4342: 3636 50 1 0002 AXT 2,1 4343: 3637 20 1 0430 CLA VIX,1 4344: 3640 26 1 0030 MPR U2X,1 4345: 3641 56 0 0001 ALS 1 4346: 3642 32 0 0423 ADZ RFDOT 4347: 3643 10 0 0423 STO RFDOT # RFDOT = U2 DOT VT B13 4350: 3644 42 1 3637 TIX *-5,1 4351: 3645 20 0 0410 CLA S10 4352: 3646 22 0 5000 ADD 6B3 4353: 3647 46 0 3773 TMI CDH # S10 = 2 4354: 3650 20 0 0416 CSI CLA S16 4355: 3651 06 0 4022 MPY 3PID4 # A=3/4(PI)(S16) AT B6 4356: 3652 10 0 0001 STO TS1 4357: 3653 04 0 0173 DVP AE 4360: 3654 26 0 0402 MPR DELH 4361: 3655 10 0 0002 STO TS2 # A(DELH/AE) B6 4362: 3656 20 0 0001 CLA TS1 4363: 3657 26 0 5033 MPR 1B1 4364: 3660 10 0 0005 STO TS5 # A AT B7 4365: 4366: # PAGE 58 4367: 3661 20 0 0275 CLA 1J 4370: 3662 24 0 0373 SUB TIG 4371: 3663 56 0 0003 ALS 3 4372: 3664 26 0 0077 MPR NE # NE(1J-TIG) AT B6 4373: 3665 22 0 0002 ADD TS2 4374: 3666 26 0 5000 MPR 6B3 # =1.5B1 3/2(NE)(1J-TIG)+ 4375: # 3/2(A)(DELH/AE) 4376: 3667 24 0 0005 SUB TS5 4377: 3670 22 0 0605 ADD 2J 4400: 3671 10 0 0007 STO TS7 # B AT AB7 4401: 3672 20 0 0477 CLA RADOT 4402: 3673 24 0 0423 SUB RFDOT 4403: 3674 10 0 0005 STO TS5 # VERTICAL COMP. OF VP0 4404: 3675 06 0 4010 MPY 1B4 4405: 3676 04 0 0463 DVP VHA # 4(RADOT-REDOT)/VHA B6 4406: 3677 24 0 0002 SUB TS2 4407: 3700 10 0 0010 STO TS10 4410: 3701 20 0 0303 CLA THETAF 4411: 3702 54 0 0003 LRS 3 4412: 3703 22 0 0010 ADD TS10 4413: 3704 06 0 5033 MPY 1B1 # ACC = C AT B7 4414: 3705 04 0 0007 DVP TS7 # C/B B0 4415: 3706 10 0 0011 STO TS11 4416: 3707 26 0 0173 MPR AE 4417: 3710 10 0 0402 STO DELH # DELH B23 4420: 3711 24 0 0314 SUB DELRP # LITTLE DELTA R 4421: 3712 26 0 0077 MPR NE # TO B14 4422: 3713 54 0 0001 LRS 1 # B13 (DIVIDE BY 4) 4423: 3714 10 0 0004 STO TS4 # HORIZ COMP. OF VP0 4424: 3715 20 0 0011 CLA TS11 # C/B = DELH/AE B0 4425: 3716 26 0 0001 MPR TS1 # A(DELH/AE) B6 4426: 3717 22 0 0002 ADD TS2 4427: 3720 10 0 0001 STO TS1 4430: 3721 20 0 1066 CLA PI 4431: 3722 26 0 0416 MPR S16 4432: 3723 24 0 0001 SUB TS1 4433: 3724 06 0 7701 MPY 1B3 # TO B9 4434: 4435: # PAGE 59 4436: 3725 04 0 0077 DVP NE 4437: 3726 10 0 0372 STO TA0 4440: 3727 30 0 0006 CLZ TS6 4441: 3730 72 0 6737 TSQ DPVMAG # COMPUTE VP0 4442: 3731 10 0 0371 STO VP0 # VEL-TO-BE-GAINED AT CDH 4443: 3732 20 0 0477 CLA RADOT 4444: 3733 10 0 0423 STO RFDOT 4445: 3734 20 0 0314 CDH2 CLA DELRP # LITTLE DELTA R 4446: 3735 22 0 0402 ADD DELH 4447: 3736 26 0 4126 MPR M1B1 # -.5B0 = -1B1 4450: 3737 22 0 0173 ADD AE 4451: 3740 10 0 0177 CDH3 STO AL 4452: 3741 26 0 0347 MPR RF 4453: 3742 10 0 0007 STO TS7 4454: 3743 20 0 0177 CLA AL 4455: 3744 24 0 0347 SUB RF 4456: 3745 22 0 0177 ADD AL 4457: 3746 06 0 0636 MPY 2K1 4460: 3747 54 0 0001 LRS 1 4461: 3750 04 0 0007 DVP TS7 4462: 3751 72 0 7123 TSQ SQRTE 4463: 3752 24 0 0463 SUB VHA 4464: 3753 10 0 0450 STO 28J1 # 28J1 = VHF - VHA 4465: 3754 72 0 6261 TSQ EXEC 4466: 3755 20 0 0477 CLA RADOT 4467: 3756 24 0 0423 SUB RFDOT 4470: 3757 10 0 0452 STO 28J3 4471: 3760 10 0 0005 STO TS4+1 4472: 3761 20 0 0410 CLA S10 4473: 3762 60 0 0000 COM 4474: 3763 46 0 2773 TMI XDV 4475: 3764 20 0 0450 CLA 28J1 4476: 3765 10 0 0004 STO TS4 4477: 3766 20 0 0270 CLA VY0 4500: 3767 10 0 0006 STO TS4+2 4501: 3770 72 0 6737 TSQ DPVMAG 4502: 3771 10 0 0370 STO VG 4503: 4504: # PAGE 60 4505: 3772 40 0 6136 TRA GDLAW 4506: 3773 30 0 0372 CDH CLZ TA0 4507: 3774 22 0 0373 ADD TIG 4510: 3775 10 0 0373 STO TIG # TIG = TIG + TAO 4511: 3776 40 0 3734 TRA CDH2 4512: # SEE REAR OF LISTING FOR CHECKSUM 4513: # START OF HARDWIRED MEMORY 4514: # CONSTANTS 4515: 4516: 3777 CHECKSUM RANGE 1005-3776 4517: 4000 ORG 4000 4520: 4000 000007 7B17 DEC 7.B17 # CONSTANTS FOR NORMALIZE 4521: 4001 000006 6B17 DEC 6.B17 4522: 4002 000005 5B17 DEC 5.B17 4523: 4003 000004 4B17 DEC 4.B17 4524: 4004 000003 3B17 DEC 3.B17 4525: 4005 000002 2B17 DEC 2.B17 4526: 4006 000001 1B17 DEC 1.B17 4527: 4007 000000 ZERO DEC 0 4530: 4065 2B3 EQU 1B2 4531: 7512 5B3 EQU 10B4 4532: 5000 6B3 EQU 12B4 4533: 4010 020000 1B4 DEC 1.B4 4534: 4011 010000 1B5 DEC 1.B5 4535: 4012 004000 1B6 DEC 1.B6 4536: 4013 000400 1B9 DEC 1.B9 4537: 4014 000100 1B11 DEC 1.B11 4540: 4015 000040 1B12 DEC 1.B12 4541: 4016 000020 1B13 DEC 1.B13 4542: 4017 000010 1B14 DEC 1.B14 4543: 4017 8B17 EQU 1B14 4544: 4020 252525 SIXTH OCT 252525 4545: 4021 311040 2PIB3 DEC 6.2831853B3 4546: 4021 1K25 EQU 2PIB3 4547: 4022 113314 3PID4 DEC 2.3561945B3 4550: 4023 062210 PID2 DEC 1.57079633B3 4551: 4024 031104 PID4 DEC .78539816B3 4552: 4553: # PAGE 61 4554: 4025 774761 K173 DEC -.18488E-3B-6 4555: 4026 042027 K172 DEC .83119E-2B-4 4556: 4027 525261 K171 DEC -.16665554B-2 4557: 4030 377777 K170 OCT 377777 # 1B0 4560: 4030 PMAX EQU K170 4561: 4031 660111 K183 DEC -.0389929B-3 4562: 4032 112712 K182 DEC .1462766B-1 4563: 4033 726707 K181 DEC -.3211819B1 4564: 4034 077746 K180 DEC .999215B2 4565: 4035 54 0 0000 SHDUM LRS 0 4566: 4036 400000 MS OCT 400000 4567: 4037 400001 NMAX OCT 400001 4570: 4040 000061 49B17 DEC 49.B17 4571: 4041 000012 10B17 DEC 10.B17 4572: 4042 303240 BCDL DEC 100000.B17 4573: 4043 40 0 4475 TRNSFR TRA EROUT # EXIT FROM ATT ERROR COMPS 4574: 4044 40 0 6246 BACK TRA RETURN 4575: 4045 66 0 6100 TMOUT OUT 6100 4576: 4046 20 0 4000 CLAFR CLA 4000 4577: 7002 CLATEN EQU SICO2 # CLA 0,1 4600: 4036 TRACOM EQU MS # LOOKS LIKE TRA 0 4601: 4065 STOCOM EQU 1B2 # LOOKS LIKE STO 0 4602: 5033 DUMCLA EQU 1B1 # LOOKS LIKE CLA 0 4603: 4604: # ** 20 MILLISECOND COMPUTATIONS 4605: 4606: 4047 70 0 4050 DELAY DLY *+1 4607: 4050 64 0 2001 INP 2001 # INPUT PGNS ANGLES 4610: 4051 10 0 0107 STO THEP 4611: 4052 64 0 2002 INP 2002 4612: 4053 10 0 0117 STO PHIP 4613: 4054 64 0 2004 INP 2004 4614: 4055 10 0 0113 STO PSIP 4615: 4056 64 0 6010 INP 6010 # INPUT GYRO DATA 4616: 4057 10 0 0354 STO DAX 4617: 4060 64 0 6002 INP 6002 4620: 4061 10 0 0355 STO DAY 4621: 4622: # PAGE 62 4623: 4062 64 0 6004 INP 6004 4624: 4063 10 0 0356 STO DAZ 4625: 4064 64 0 6020 INP 6020 # INPUT ACCELEROMETER DATA 4626: 4065 10 0 0000 1B2 STO TS0 # VALUE USED AS CONSTANT 4627: 4066 64 0 6040 INP 6040 4630: 4067 10 0 0001 STO TS1 4631: 4070 64 0 6100 INP 6100 4632: 4071 10 0 0002 STO TS2 4633: 4072 40 0 1015 EX1 TRA EXIT1 4634: # PROCESS ACCELEROMETER INPUTS 4635: 4073 50 1 0002 AXT 2,1 4636: 4074 30 1 0350 DVS CLZ DVX,1 # SAVE PREVIOUS VALUE 4637: 4075 10 1 0074 STO DVXM1,1 4640: 4076 30 1 0000 CLZ TS0,1 4641: 4077 24 0 7507 SUB 1K7 # 11 4642: 4100 56 0 0001 ALS 1 4643: 4101 26 1 0534 MPR 1K18,1 # SCALE FACTOR 4644: 4102 56 0 0001 ALS 1 # SCALE AT 1 4645: 4103 22 1 0540 ADD 1K19,1 # BIAS COMPENSATION 4646: 4104 10 1 0350 STO DVX,1 # AT 1 4647: 4105 42 1 4074 TIX DVS,1 4650: 4106 40 0 1016 TRA EXIT2 # TO MODE CHECK. 4651: # PROCESS GYRO INPUTS 4652: 4107 50 1 0002 AXT 2,1 4653: 4110 44 0 4111 TOV *+1 # RESET 4654: 4111 30 1 0354 GYCOM CLZ DAX,1 4655: 4112 24 0 7507 SUB 1K7 4656: 4113 56 0 0001 ALS 1 # RADIANS AT -6 4657: 4114 10 1 0354 STO DAX,1 4660: 4115 26 1 0550 MPR 1K3,1 # SCALE FACTOR COMP 4661: 4116 22 1 0544 ADD 1K1,1 # AT -13 4662: 4117 32 1 0510 ADZ DAXREM,1 4663: 4120 10 1 0510 STO DAXREM,1 4664: 4121 22 0 4010 ADD 1B4 # ROUND 4665: 4122 54 0 0016 LRS 14 # TO +1 4666: 4123 56 0 0007 ALS 7 # TO -6, QUANTIZED AT -16 4667: 4124 10 0 0006 STO TS6 4670: 4671: # PAGE 63 4672: 4125 56 0 0007 ALS 7 4673: 4126 60 0 0000 M1B1 COM # INSTRUCTION LOOKS LIKE -1B1 4674: 4127 32 1 0510 ADZ DAXREM,1 4675: 4130 10 1 0510 STO DAXREM,1 4676: 4131 30 0 0006 CLZ TS6 4677: 4132 32 1 0354 ADZ DAX,1 4700: 4133 22 1 0530 ADD DAXA,1 4701: 4134 10 1 0354 STO DAX,1 # -6 4702: 4135 56 0 0003 ALS 3 # TO -9 4703: 4136 10 1 0010 STO TS10,1 4704: 4137 62 0 0000 ABS 4705: 4140 22 0 4012 ADD 1B6 # TEST FOR POSSIBLE OVERFL 4706: 4141 42 1 4111 TIX GYCOM,1 4707: 4142 40 0 1017 EX3 TRA EXIT3 4710: 4143 44 0 4405 TOV HRC 4711: 4144 30 0 0553 CLZ HRF 4712: 4145 46 0 4373 TMI LRI 4713: # COMPUTE DIRECTION COSINE CHANGE 4714: 4146 20 0 0010 CDCC CLA TS10 # DAX AT -6 OR -9 4715: 4147 06 0 0011 MPY TS11 # DAY 4716: 4150 54 0 0001 LRS 1 # 1/2DAX(DAY) AT -12 OR -18 4717: 4151 72 0 1002 TSQ RND 4720: 4152 22 0 0012 ADD TS12 # DAZ 4721: 4153 10 0 0001 STO TS1 4722: 4154 20 0 0010 CLA TS10 4723: 4155 06 0 0012 MPY TS12 4724: 4156 54 0 0001 LRS 1 # 1/2DAX(DAZ) AT -12 OR -18 4725: 4157 72 0 1002 TSQ RND 4726: 4160 34 0 0146 SUZ E13 4727: 4161 10 0 0007 STO TS7 4730: 4162 24 0 0011 SUB TS11 4731: 4163 10 0 0002 STO TS2 4732: 4164 20 0 0011 CLA TS11 4733: 4165 26 0 0011 MPR TS11 4734: 4166 54 0 0001 LRS 1 4735: 4167 10 0 0133 STO TS8 4736: 4170 20 0 0012 CLA TS12 4737: 4740: # PAGE 64 4741: 4171 26 0 0012 MPR TS12 4742: 4172 54 0 0001 LRS 1 # 1/2DAZ(DAZ) AT -12 OR -18 4743: 4173 22 0 0133 ADD TS8 4744: 4174 72 0 1002 TSQ RND 4745: 4175 60 0 0000 COM 4746: 4176 32 0 0144 ADZ E1 # NORMALITY CONSTRAINT 4747: 4177 10 0 0003 STO TS3 4750: 4200 30 0 0007 CLZ TS7 4751: 4201 22 0 0011 ADD TS11 4752: 4202 10 0 0004 STO TS4 4753: 4203 20 0 0011 CLA TS11 4754: 4204 06 0 0012 MPY TS12 4755: 4205 54 0 0001 LRS 1 # 1/2DAY(DAZ) AT -12 OR -18 4756: 4206 72 0 1002 TSQ RND 4757: 4207 24 0 0010 SUB TS10 4760: 4210 10 0 0005 STO TS5 4761: 4211 20 0 0010 CLA TS10 4762: 4212 26 0 0010 MPR TS10 4763: 4213 54 0 0001 LRS 1 # 1/2DAX(DAX) AT -12 OR -18 4764: 4214 32 0 0133 ADZ TS8 4765: 4215 72 0 1002 TSQ RND 4766: 4216 60 0 0000 COM 4767: 4217 32 0 0145 ADZ E3 4770: 4220 10 0 0006 STO TS6 4771: 4221 40 0 1020 EX4 TRA EXIT4 4772: 4222 50 1 0002 AXT 2,1 # COMPUTE EQUATIONS 4773: 4223 20 0 0001 DICOS CLA TS1 4774: 4224 26 1 0140 MPR A21,1 # 1 4775: 4225 32 1 0150 ADZ DA11,1 4776: 4226 10 1 0150 STO DA11,1 # -5 OR -8 4777: 4227 20 0 0002 CLA TS2 5000: 4230 26 1 0134 MPR A31,1 5001: 4231 32 1 0150 ADZ DA11,1 5002: 4232 10 1 0150 STO DA11,1 # -5 OR -8 5003: 4233 20 0 0003 CLA TS3 5004: 4234 26 1 0130 MPR A11,1 5005: 4235 32 1 0150 ADZ DA11,1 5006: 5007: # PAGE 65 5010: 4236 10 1 0150 STO DA11,1 # -5 OR -8 5011: 4237 20 0 0004 CLA TS4 # ROW 3 5012: 4240 26 1 0130 MPR A11,1 5013: 4241 32 1 0154 ADZ DA31,1 5014: 4242 10 1 0154 STO DA31,1 5015: 4243 20 0 0005 CLA TS5 5016: 4244 26 1 0140 MPR A21,1 5017: 4245 32 1 0154 ADZ DA31,1 5020: 4246 10 1 0154 STO DA31,1 5021: 4247 20 0 0006 CLA TS6 5022: 4250 26 1 0134 MPR A31,1 5023: 4251 32 1 0154 ADZ DA31,1 5024: 4252 10 1 0154 STO DA31,1 5025: 4253 42 1 4223 TIX DICOS,1 5026: # INTEGRATE DIRECTION COSINES 5027: 4254 50 1 0006 AXT 6,1 5030: 4255 20 0 0553 INTAS CLA HRF 5031: 4256 46 0 4431 TMI HRINT # -5 OR -8 TEST 5032: 4257 20 1 0150 CLA DA11,1 5033: 4260 22 0 4013 RND1 ADD 1B9 # ROUND 5034: 4261 54 0 0011 SHFT1 LRS 9 # TO 1 5035: 4262 10 0 0001 STO TS1 5036: 4263 56 0 0011 ALS 9 5037: 4264 60 0 0000 COM 5040: 4265 32 1 0150 ADZ DA11,1 5041: 4266 10 1 0150 STO DA11,1 # SAVE REMAINDER 5042: 4267 30 1 0130 CLZ A11,1 5043: 4270 32 0 0001 ADZ TS1 5044: 4271 10 1 0130 STO A11,1 5045: 4272 42 1 4255 TIX INTAS,1 5046: 4273 72 0 1021 TSQ EXIT5 # DOWNLINK INPUT 5047: 4274 72 0 1022 TSQ EXIT6 # TELEMETRY OUTPUT 5050: # COMPUTE ROW 2 5051: 4275 20 0 0131 COA21 CLA A12 5052: 4276 26 0 0136 MPR A33 # 2 5053: 4277 10 0 0001 STO TS1 5054: 4300 20 0 0132 CLA A13 5055: 5056: # PAGE 66 5057: 4301 26 0 0135 MPR A32 5060: 4302 34 0 0001 SUZ TS1 5061: 4303 56 0 0001 ALS 1 # TO 1 5062: 4304 10 0 0140 STO A21 # A21 5063: 4305 20 0 0132 CLA A13 5064: 4306 26 0 0134 MPR A31 5065: 4307 10 0 0001 STO TS1 5066: 4310 20 0 0130 CLA A11 5067: 4311 26 0 0136 MPR A33 5070: 4312 34 0 0001 SUZ TS1 5071: 4313 56 0 0001 ALS 1 5072: 4314 10 0 0141 STO A22 # A22 5073: 4315 20 0 0130 CLA A11 5074: 4316 26 0 0135 MPR A32 5075: 4317 10 0 0001 STO TS1 5076: 4320 20 0 0131 CLA A12 5077: 4321 26 0 0134 MPR A31 5100: 4322 34 0 0001 SUZ TS1 5101: 4323 56 0 0001 ALS 1 5102: 4324 10 0 0142 STO A23 # A23,DIR COS UPDATE COMPLETE 5103: 4325 40 0 1024 EX8 TRA EXIT8 5104: # VELOCITY RESOLUTION 5105: 4326 50 1 0002 DVINT AXT 2,1 # RESOLVE BODY DVS TO 5106: 4327 20 1 0130 CLA A11,1 # INERTIAL FRAME AND 5107: 4330 26 0 0350 MPR DVX # ACCUMULATE. 5110: 4331 10 0 0001 STO TS1 # 2 5111: 4332 20 1 0140 CLA A21,1 5112: 4333 26 0 0351 MPR DVY 5113: 4334 32 0 0001 ADZ TS1 5114: 4335 10 0 0001 STO TS1 5115: 4336 20 1 0134 CLA A31,1 5116: 4337 26 0 0352 MPR DVZ 5117: 4340 32 0 0001 ADZ TS1 # 2 5120: 4341 22 0 4016 ADD 1B13 # ROUND 5121: 4342 54 0 0005 LRS 5 5122: 4343 32 1 0120 ADZ DVSX,1 5123: 4344 10 1 0120 STO DVSX,1 # 7 5124: 5125: # PAGE 67 5126: 4345 42 1 4327 TIX DVINT+1,1 5127: 4346 72 0 1021 TSQ EXIT5 # DOWNLINK INPUT 5130: 4347 72 0 1022 TSQ EXIT6 # TELEMETRY OUTPUT 5131: 5132: 4350 30 0 0573 CLZ FLAG1 5133: 4351 46 0 0063 TMI BRANCH # -- IS GUID/NAV CYCLE. 5134: 4352 20 0 4036 CLA MS 5135: 4353 10 0 0573 STO FLAG1 5136: 4354 40 0 1025 EX9 TRA EXIT9 5137: 5140: # HARDWIRED 40 MS COMPUTATIONS 5141: # DISCRETE INPUT AND STAGING RECOGNITION COMPS. 5142: 5143: 4355 64 0 2020 INP DISC1I # INPUT DISCRETE WD 1 5144: 4356 10 0 0401 STO DISC1C 5145: 4357 22 0 4006 ADD 1B17 # OBTAIN TWO'S COMP OF INPUT WD 5146: 4360 60 0 0000 COM 5147: 4361 10 0 0533 STO DISC1 5150: 4362 20 0 0574 CLA DEL2 # TEST FOR STAGING 5151: 4363 46 0 1026 TMI EXIT10 # -- IS STAGED 5152: 4364 20 0 0401 CLA DISC1C # TEST FOR ASCENT ENG ON 5153: 4365 56 0 0006 ALS 6 5154: 4366 46 0 1026 TMI EXIT10 # -- IS OFF. 5155: 4367 30 0 0604 CLZ DEL21 # RESET LUNAR SURFACE FLAG 5156: 4370 20 0 4036 CLA MS 5157: 4371 10 0 0574 STO DEL2 # SET STAGED FLAG 5160: 4372 40 0 1027 TRA EXIT11 5161: 5162: # DIRECTION COSINE LOGIC 5163: 4373 50 1 0006 LRI AXT 6,1 5164: 4374 30 1 0150 CLZ DA11,1 # REMAINDERS 5165: 4375 56 0 0003 ALS 3 # TO -8 5166: 4376 10 1 0150 STO DA11,1 5167: 4377 42 1 4374 TIX *-3,1 5170: 4400 20 0 4260 CLA RND1 5171: 4401 10 0 1003 STO RND+1 5172: 4402 20 0 4261 CLA SHFT1 5173: 5174: # PAGE 68 5175: 4403 10 0 1004 STO RND+2 5176: 4404 40 0 4146 TRA CDCC 5177: 5200: 4405 20 0 0553 HRC CLA HRF 5201: 4406 46 0 4421 TMI HRC1 5202: 4407 20 0 4432 CLA RND2 # SET UP FOR HIGH RATE 5203: 4410 10 0 1003 STO RND+1 5204: 4411 20 0 4433 CLA SHFT2 5205: 4412 10 0 1004 STO RND+2 5206: 4413 10 0 0553 STO HRF 5207: 4414 50 1 0006 AXT 6,1 5210: 4415 30 1 0150 CLZ DA11,1 5211: 4416 54 0 0003 LRS 3 # TO -5 5212: 4417 10 1 0150 STO DA11,1 5213: 4420 42 1 4415 TIX *-3,1 5214: 4421 50 1 0002 HRC1 AXT 2,1 5215: 4422 20 1 0354 CLA DAX,1 5216: 4423 10 1 0010 STO TS10,1 # AT -6 5217: 4424 30 1 0144 CLZ E1,1 5220: 4425 54 0 0003 LRS 3 # TO -6 5221: 4426 10 1 0144 STO E1,1 5222: 4427 42 1 4422 TIX *-5,1 5223: 4430 40 0 4146 TRA CDCC 5224: 5225: 4431 20 1 0150 HRINT CLA DA11,1 5226: 4432 22 0 4015 RND2 ADD 1B12 # ROUND 5227: 4433 54 0 0006 SHFT2 LRS 6 # TO 1 5230: 4434 10 0 0001 STO TS1 5231: 4435 56 0 0006 ALS 6 5232: 4436 40 0 4264 TRA INTAS+7 5233: 5234: # ATTITUDE HOLD. (40 MS) 5235: 4437 20 0 0575 AHE CLA DEL5 # ATTITUDE HOLD ENTRY 5236: 4440 46 0 4450 TMI AHE1 # IF MINUS -- DRIVE TO REF COSINES 5237: 4441 20 0 4036 CLA MS # FIRST CYCLE IN 5240: 4442 10 0 0575 STO DEL5 # ATTITUDE HOLD 5241: 4443 50 1 0006 AXT 6,1 # SET DESIRED ATTITUDE 5242: 5243: # PAGE 69 5244: 4444 20 1 0130 CLA A11,1 5245: 4445 10 1 0160 STO A11D,1 5246: 4446 42 1 4444 TIX *-2,1 5247: 5250: 4447 72 0 1030 TSQ EXIT12 # TO ACQUISITION RESET. 5251: 4450 14 0 4043 AHE1 LDQ TRNSFR # TRA EROUT INTO Q 5252: 4451 12 0 0023 ATTERR STQ SREX # ENTER HERE FROM CALIBRATE 5253: 4452 50 1 0002 AXT 2,1 # COMPUTE EX 5254: 4453 20 1 0164 CLA A31D,1 5255: 4454 26 1 0140 MPR A21,1 # 1+1=+2 5256: 4455 60 0 0000 COM 5257: 4456 32 0 0070 ADZ EX 5260: 4457 10 0 0070 STO EX # +2 5261: 4460 42 1 4453 TIX *-5,1 5262: 4461 50 1 0002 EYEZ AXT 2,1 # COMPUTE EY AND EZ 5263: 4462 20 1 0160 CLA A11D,1 5264: 4463 26 1 0140 MPR A21,1 # 1+1=+2 5265: 4464 32 0 0072 ADZ EZ 5266: 4465 10 0 0072 STO EZ 5267: 4466 20 1 0160 CLA A11D,1 5270: 4467 26 1 0134 MPR A31,1 # 1+1=+2 5271: 4470 60 0 0000 COM 5272: 4471 32 0 0071 ADZ EY 5273: 4472 10 0 0071 STO EY 5274: 4473 42 1 4462 TIX *-9,1 5275: 4474 40 0 0023 TRA SREX 5276: 5277: # LIMIT AND OUTPUT ATTITUDE ERRORS 5300: 4475 40 0 1031 EROUT TRA EXIT13 5301: 4476 50 1 0002 AXT 2,1 5302: 4477 30 1 0070 CLZ EX,1 5303: 4500 14 0 4036 LDQ MS 5304: 4501 46 0 4503 TMI *+2 5305: 4502 40 0 4504 TRA *+2 5306: 4503 12 1 0070 STQ EX,1 5307: 4504 62 0 0000 ABS 5310: 4505 24 0 0666 SUB 4K21 # +2 5311: 4506 46 0 4511 TMI *+3 # LESS THAN MAX 5312: 5313: # PAGE 70 5314: 4507 20 0 4030 CLA PMAX # SET MAX OUTPUT 5315: 4510 40 0 4513 TRA *+3 5316: 4511 22 0 0666 ADD 4K21 5317: 4512 04 0 0666 DVP 4K21 # SCALE FACTOR 5320: 4513 32 1 0070 ADZ EX,1 5321: 4514 10 1 0070 STO EX,1 5322: 4515 42 1 4477 TIX EROUT+2,1 5323: 4516 66 0 6001 OUT EXO # AT 0 5324: 4517 20 0 0071 CLA EY 5325: 4520 66 0 6002 OUT EYO # AT 0 5326: 4521 20 0 0072 CLA EZ 5327: 4522 66 0 6004 OUT EZO # AT 0 5330: 4523 40 0 1032 TRA EXIT14 5331: 5332: # RENDEZVOUS STEERING 5333: 4524 30 0 0575 RST CLZ DEL5 # CLEAR ATT HLD 1ST CYCLE FLAG 5334: 4525 50 1 0002 AXT 2,1 5335: 4526 20 1 0374 CLA A11BD,1 5336: 4527 10 1 0160 STO A11D,1 5337: 4530 42 1 4526 TIX *-2,1 5340: 4531 20 0 4043 CLA TRNSFR # TRA EROUT INTO SREX 5341: 4532 10 0 0023 STO SREX 5342: 4533 40 0 4461 TRA EYEZ 5343: 5344: # LUNAR ALIGN COMPS 5345: 4534 20 0 0134 LUNAL CLA A31 5346: 4535 26 0 0134 MPR A31 5347: 4536 60 0 0000 COM 5350: 4537 22 0 4065 ADD 1B2 5351: 4540 72 0 7123 TSQ SQRTE 5352: 4541 10 0 0001 STO TS1 5353: 4542 20 0 0047 CLA SIDELL # COMPUTE COS DEL A 5354: 4543 26 0 0547 MPR DDEL 5355: 4544 22 0 0053 ADD CODELL 5356: 4545 06 0 0001 MPY TS1 # A32D AT 2 5357: 4546 52 0 0001 LLS 1 5360: 4547 26 0 0141 MPR A22 5361: 5362: # PAGE 71 5363: 4550 10 0 0002 STO TS2 5364: 4551 20 0 0053 CLA CODELL # COMPUTE SIN DEL A 5365: 4552 26 0 0547 MPR DDEL 5366: 4553 60 0 0000 COM 5367: 4554 22 0 0047 ADD SIDELL 5370: 4555 06 0 0001 MPY TS1 # A33D AT 2 5371: 4556 52 0 0001 LLS 1 5372: 4557 26 0 0142 MPR A23 5373: 4560 32 0 0002 ADZ TS2 5374: 4561 10 0 0002 STO TS2 5375: 4562 20 0 0134 CLA A31 5376: 4563 26 0 0140 MPR A21 5377: 4564 32 0 0002 ADZ TS2 5400: 4565 14 0 4007 LDQ ZERO 5401: 4566 04 0 0626 DVP 1K26 5402: 4567 10 0 0530 STO DAXA # -6 5403: 4570 20 0 0134 CLA A31 5404: 4571 14 0 4007 LDQ ZERO 5405: 4572 04 0 0630 DVP 1K28 # 1-7=-6 5406: 4573 10 0 0001 STO TS1 5407: 4574 20 0 0352 CLA DVZ 5410: 4575 22 0 0076 ADD DVZM1 5411: 4576 06 0 0627 MPY 1K27 # 1-4=-3 5412: 4577 52 0 0003 LLS 3 # TO -6 5413: 4600 34 0 0001 SUZ TS1 5414: 4601 10 0 0531 STO DAYA 5415: 4602 20 0 0351 CLA DVY 5416: 4603 22 0 0075 ADD DVYM1 5417: 4604 06 0 0627 MPY 1K27 # 1-4=-3 5420: 4605 52 0 0003 LLS 3 # TO -6 5421: 4606 10 0 0001 STO TS1 5422: 4607 20 0 0140 CLA A21 5423: 4610 14 0 4007 LDQ ZERO 5424: 4611 04 0 0630 DVP 1K28 5425: 4612 34 0 0001 SUZ TS1 5426: 4613 10 0 0532 STO DAZA 5427: 4614 50 1 0002 AXT 2,1 5430: 5431: # PAGE 72 5432: 4615 20 1 0530 CLA DAXA,1 5433: 4616 62 0 0000 ABS 5434: 4617 54 0 0002 LRS 2 # TO -4 5435: 4620 32 0 0002 ADZ TS2 5436: 4621 10 0 0002 STO TS2 5437: 4622 42 1 4615 TIX *-5,1 5440: 4623 24 0 0631 SUB 1K29 # TEST FOR LUNAR ALIGN COMPLETE 5441: 4624 10 0 0606 STO DEL42 # DEL42 NEG IS LUNAL COMPLETE 5442: 4625 40 0 1033 TRA EXIT15 5443: 5444: # FDAI COMPUTATIONS 5445: 4626 20 0 0135 FDAI CLA A32 # TOTAL ATTITUDE 5446: 4627 60 0 0000 COM # -A32 5447: 4630 72 0 4724 TSQ FDAIL # LIMIT ROUTINE 5450: 4631 66 0 2004 OUT SIBEO # SIN BETA AT 0 5451: 4632 20 0 0136 CLA A33 5452: 4633 26 0 0136 MPR A33 5453: 4634 10 0 0001 STO TS1 5454: 4635 20 0 0134 CLA A31 5455: 4636 26 0 0134 MPR A31 5456: 4637 32 0 0001 ADZ TS1 5457: 4640 72 0 7123 TSQ SQRTE 5460: 4641 10 0 0002 STO TS2 # COS BETA 5461: 4642 72 0 4724 TSQ FDAIL 5462: 4643 66 0 2010 OUT COBEO 5463: 4644 40 0 1034 EX16 TRA EXIT16 5464: 4645 20 0 0002 CLA TS2 5465: 4646 24 0 0625 SUB 1K24 5466: 4647 46 0 1035 TMI EXIT17 # USE OLD VALUE OF SIGA AND COGA 5467: 4650 14 0 4007 LDQ ZERO 5470: 4651 20 0 0134 CLA A31 5471: 4652 54 0 0001 LRS 1 5472: 4653 04 0 0002 DVP TS2 5473: 4654 10 0 0123 STO SIGA 5474: 4655 72 0 4724 TSQ FDAIL 5475: 4656 66 0 2020 OUT SIGAO 5476: 4657 14 0 4007 LDQ ZERO 5477: 5500: # PAGE 73 5501: 4660 20 0 0136 CLA A33 5502: 4661 54 0 0001 LRS 1 5503: 4662 04 0 0002 DVP TS2 5504: 4663 10 0 0127 STO COGA 5505: 4664 72 0 4724 TSQ FDAIL 5506: 4665 66 0 2040 OUT COGAO 5507: 4666 40 0 1035 EX17 TRA EXIT17 5510: # THE NEXT 5 CELLS ARE BYPASSED AND 5511: # RE-WRITTEN IN SOFT MEMORY 5512: 4667 20 0 0142 CLA A23 # GAMMA OUTPUT 5513: 4670 26 0 0123 MPR SIGA 5514: 4671 10 0 0001 STO TS1 5515: 4672 20 0 0140 CLA A21 5516: 4673 26 0 0127 MPR COGA 5517: 4674 34 0 0001 SUZ TS1 5520: 4675 56 0 0001 ALS 1 5521: 4676 72 0 4724 TSQ FDAIL 5522: 4677 66 0 2001 OUT SIALO 5523: 4700 20 0 0132 CLA A13 5524: 4701 26 0 0123 MPR SIGA 5525: 4702 10 0 0001 STO TS1 5526: 4703 20 0 0130 CLA A11 5527: 4704 26 0 0127 MPR COGA 5530: 4705 34 0 0001 SUZ TS1 5531: 4706 56 0 0001 ALS 1 5532: 4707 72 0 4724 TSQ FDAIL 5533: 4710 66 0 2002 OUT COALO 5534: 5535: # DEDA DISCRETE SAMPLING 5536: 5537: 4711 64 0 2040 INP DISC2I 5540: 4712 22 0 4006 ADD 1B17 5541: 4713 60 0 0000 COM 5542: 4714 56 0 0001 ALS 1 # IS TAPE LOAD REQUESTED 5543: 4715 46 0 6214 TMI GSESR # IF MINUS -- TRANSFER TO GSE SERV 5544: 4716 56 0 0003 ALS 3 5545: 4717 50 1 0003 AXT 3,1 5546: 5547: # PAGE 74 5550: 4720 46 0 4741 TMI SPULSE 5551: 4721 56 0 0001 ALS 1 5552: 4722 42 1 4720 TIX *-2,1 5553: 4723 40 0 4742 TRA SPULSE+1 5554: 5555: # FDAI LIMITING SUBROUTINE 5556: 4724 12 0 0023 FDAIL STQ SREX 5557: 4725 14 0 4036 LDQ MS 5560: 4726 46 0 4730 TMI *+2 5561: 4727 14 0 4007 LDQ ZERO 5562: 4730 12 0 0001 STQ TS1 # SET SIGN 5563: 4731 62 0 0000 ABS 5564: 4732 22 0 4014 ADD 1B11 # ROUND 5565: 4733 56 0 0001 ALS 1 5566: 4734 46 0 4736 TMI *+2 # -- SET MAX VALUE 5567: 4735 40 0 4737 TRA *+2 5570: 4736 20 0 4030 CLA PMAX 5571: 4737 32 0 0001 ADZ TS1 5572: 4740 40 0 0023 TRA SREX 5573: 5574: 4741 10 1 0320 SPULSE STO READP,1 # SET DEDA FLAG 5575: 4742 40 0 1036 TRA EXIT18 5576: 5577: # COMPUTE NORMALITY AND ORTHOGONALITY CONSTRAINTS 5600: 4743 50 1 0002 NOC AXT 2,1 5601: 4744 20 1 0130 CLA A11,1 5602: 4745 26 1 0130 MPR A11,1 5603: 4746 32 0 0144 ADZ E1 5604: 4747 10 0 0144 STO E1 # AT 2 5605: 4750 20 1 0134 CLA A31,1 5606: 4751 26 1 0134 MPR A31,1 5607: 4752 32 0 0145 ADZ E3 # AT 2 5610: 4753 10 0 0145 STO E3 5611: 4754 20 1 0130 CLA A11,1 5612: 4755 26 1 0134 MPR A31,1 5613: 4756 32 0 0146 ADZ E13 5614: 4757 10 0 0146 STO E13 # AT 2 5615: 5616: # PAGE 75 5617: 4760 42 1 4744 TIX NOC+1,1 5620: 4761 56 0 0012 ALS 10 # DIV BY 2, SCALE AT -9 5621: 4762 10 0 0146 STO E13 5622: 4763 50 1 0001 AXT 1,1 5623: 4764 20 0 4065 CLA 1B2 5624: 4765 34 1 0144 SUZ E1,1 # 1-E 5625: 4766 56 0 0012 ALS 10 # TO -9 5626: 4767 10 1 0144 STO E1,1 5627: 4770 42 1 4764 TIX *-4,1 5630: 4771 40 0 1037 TRA EXIT19 5631: 5632: # EULER ANGLE DIRECTION COSINES SUBROUTINE 5633: 4772 12 0 0022 EADICS STQ SREX1 5634: 4773 20 0 0107 CLA THEP 5635: 4774 26 0 4021 MPR 2PIB3 # RADIANS AT 3 5636: 4775 72 0 6767 TSQ SICOE 5637: 4776 30 0 0001 CLZ TS1 5640: 4777 10 0 0005 STO TS5 5641: 5000 30 0 0000 12B4 CLZ TS0 # VALUE USED AS CONSTANT 5642: 5001 10 0 0006 STO TS6 5643: 5002 20 0 0113 CLA PSIP 5644: 5003 26 0 4021 MPR 2PIB3 5645: 5004 72 0 6767 TSQ SICOE 5646: 5005 30 0 0001 CLZ TS1 5647: 5006 10 0 0161 STO A12D # 1 5650: 5007 30 0 0000 CLZ TS0 5651: 5010 10 0 0007 STO TS7 5652: 5011 20 0 0117 CLA PHIP 5653: 5012 26 0 4021 MPR 2PIB3 5654: 5013 72 0 6767 TSQ SICOE # INPUTS COMPLETE 5655: 5014 20 0 0007 CLA TS7 5656: 5015 26 0 0006 MPR TS6 5657: 5016 56 0 0001 ALS 1 5660: 5017 10 0 0160 STO A11D # 1 5661: 5020 20 0 0007 CLA TS7 5662: 5021 26 0 0005 MPR TS5 5663: 5022 56 0 0001 ALS 1 5664: 5665: # PAGE 76 5666: 5023 60 0 0000 COM 5667: 5024 10 0 0162 STO A13D # 1 5670: 5025 20 0 0001 CLA TS1 5671: 5026 26 0 0161 MPR A12D 5672: 5027 56 0 0001 ALS 1 5673: 5030 10 0 0003 STO TS3 5674: 5031 26 0 0006 MPR TS6 5675: 5032 10 0 0004 STO TS4 5676: 5033 20 0 0000 1B1 CLA TS0 # COSINE PHI 5677: 5034 26 0 0005 MPR TS5 5700: 5035 32 0 0004 ADZ TS4 5701: 5036 56 0 0001 ALS 1 5702: 5037 10 0 0164 STO A31D # 1 5703: 5040 30 0 0001 CLZ TS1 5704: 5041 36 0 0007 MPZ TS7 5705: 5042 56 0 0001 ALS 1 5706: 5043 60 0 0000 COM 5707: 5044 10 0 0165 STO A32D # 1 5710: 5045 30 0 0003 CLZ TS3 5711: 5046 36 0 0005 MPZ TS5 5712: 5047 10 0 0004 STO TS4 5713: 5050 30 0 0000 CLZ TS0 5714: 5051 36 0 0006 MPZ TS6 5715: 5052 34 0 0004 SUZ TS4 5716: 5053 56 0 0001 ALS 1 5717: 5054 10 0 0166 STO A33D # DI-COS COMPLETE 5720: 5055 40 0 0022 TRA SREX1 # EXIT 5721: 5722: # IMU ALIGN COMPUTATIONS 5723: 5056 30 0 0144 ZNOC CLZ E1 5724: 5057 30 0 0145 CLZ E3 5725: 5060 30 0 0146 CLZ E13 5726: 5061 72 0 4772 IMUDC TSQ EADICS 5727: 5062 50 1 0006 AXT 6,1 5730: 5063 20 1 0160 CLA A11D,1 # REPLACE DIR COSINES 5731: 5064 10 1 0130 STO A11,1 # WITH IMU DIR COSINES. 5732: 5065 30 1 0150 CLZ DA11,1 # ZERO REMAINDERS 5733: 5734: # PAGE 77 5735: 5066 42 1 5063 TIX *-3,1 5736: 5067 40 0 4273 TRA COA21-2 5737: 5740: # INITIALIZE BRANCHES. 5741: 5742: 5070 30 0 0414 IC1 CLZ S14 5743: 5071 24 0 4065 SUB 2B3 5744: 5072 46 0 1040 TMI EXIT20 # TO DL FORMATTIG 5745: 5073 50 1 0002 AXT 2,1 # LEM POS AND VEL DATA 5746: 5074 30 1 0240 CLZ 1J1,1 # LEM POS 5747: 5075 10 1 0204 STO R0X,1 5750: 5076 30 1 0260 CLZ 1J4,1 # LEM VEL 5751: 5077 10 1 0424 STO V0X,1 5752: 5100 42 1 5074 TIX *-4,1 5753: 5101 30 0 0254 CLZ 1J7 # EPOCH TIME MS 5754: 5102 10 0 0521 STO TL1 5755: 5103 30 0 0255 CLZ 1J7LS # EPOCH TIME LS 5756: 5104 10 0 0525 STO TL2 5757: 5105 72 0 6444 TSQ ORBPM 5760: 5106 30 0 0543 CLZ DSPSC # CLEAR DISPLAY COUNTER 5761: 5107 72 0 1041 TSQ EXIT21 5762: 5763: 5110 50 1 0001 IC2 AXT 1,1 5764: 5111 72 0 6746 TSQ DPTSB # COMPUTE DBL PREC TA - TL 5765: 5112 20 0 0604 CLA DEL21 5766: 5113 46 0 5124 TMI RVCOMP 5767: 5114 72 0 6535 TSQ ELPRD # TRNSFR TO ELLIPSE PRED 5770: 5115 50 1 0002 AXT 2,1 5771: 5116 30 1 0220 CLZ RIX,1 5772: 5117 10 1 0340 STO RX,1 5773: 5120 30 1 0430 CLZ VIX,1 5774: 5121 10 1 0360 STO VX,1 5775: 5122 42 1 5116 TIX *-4,1 5776: 5123 40 0 5134 TRA *+9 5777: 5124 50 1 0002 RVCOMP AXT 2,1 6000: 5125 30 1 0424 CLZ V0X,1 6001: 5126 10 1 0360 STO VX,1 6002: 6003: # PAGE 78 6004: 5127 06 0 0442 MPY TI # 13+13=26 6005: 5130 52 0 0003 LLS 3 6006: 5131 32 1 0204 ADZ R0X,1 6007: 5132 10 1 0340 STO RX,1 # AT 23 6010: 5133 42 1 5125 TIX *-6,1 6011: 5134 72 0 6261 TSQ EXEC # IC3 NEXT 6012: 6013: 5135 72 0 5400 IC3 TSQ GRAV # TO GRAVITY 6014: 5136 50 1 0002 AXT 2,1 6015: 5137 30 1 0120 CLZ DVSX,1 6016: 5140 30 1 0104 CLZ DRX,1 6017: 5141 20 1 0114 CLA GXDT,1 6020: 5142 10 1 0110 STO DIGX,1 6021: 5143 42 1 5137 TIX *-4,1 6022: 5144 40 0 1042 TRA EXIT22 6023: 6024: # CSM DL OR DEDA INPUTS TO EPOCH CELLS. 6025: 5145 50 1 0002 CSMPV AXT 2,1 6026: 5146 30 1 0244 CLZ 2J1,1 # CSM POS 6027: 5147 10 1 0200 STO REX,1 6030: 5150 30 1 0264 CLZ 2J4,1 # CSM VEL 6031: 5151 10 1 0420 STO VEX,1 6032: 5152 42 1 5146 TIX *-4,1 6033: 5153 30 0 0272 CLZ 2J7 # CSM EPOCH MS 6034: 5154 10 0 0520 STO TE1 6035: 5155 30 0 0273 CLZ 2J7LS # CSM EPOCH LS 6036: 5156 10 0 0524 STO TE2 6037: 5157 30 0 0436 CLZ TB 6040: 5160 40 0 6764 TRA EXIT 6041: 6042: # NEXT 5 INSTRUCTIONS BYPASSED 6043: 6044: 5161 20 0 0604 NAV CLA DEL21 6045: 5162 46 0 5175 TMI NAV1 # -- IS ON LUNAR SURFACE 6046: 5163 20 0 0464 CLA 0464 6047: 5164 24 0 0470 SUB VDX 6050: 5165 56 0 0006 ALS 6 6051: 6052: # PAGE 79 6053: 6054: # HARDWIRED NAVIGATION 6055: 6056: 5166 10 0 0067 STO AT # 1/2(VD1-VD) AT 7 6057: 5167 24 0 0661 SUB 4K35 # ULLAGE THRESHOLD 6060: 5170 46 0 5203 TMI NAV2-2 # AT-4K35 6061: 5171 30 0 0614 CLZ MU8 # INCR ULLAGE COUNTER. 6062: 5172 22 0 4006 ADD 1B17 6063: 5173 10 0 0614 STO MU8 6064: 5174 40 0 1050 TRA EXIT24 6065: 5175 30 0 0110 NAV1 CLZ DIGX # LUNAR SURFACE NAV. 6066: 5176 30 0 0111 CLZ DIGY 6067: 5177 30 0 0112 CLZ DIGZ 6070: 5200 20 0 0616 CLA 1K9 # ULLAGE COUNT LIMIT 6071: 5201 10 0 0614 STO MU8 6072: 5202 40 0 1044 TRA EXIT23 6073: 5203 30 0 0614 CLZ MU8 # RESET ULLAGE COUNTER. 6074: 5204 40 0 1050 TRA EXIT24 6075: 5205 30 0 0001 NAV2 CLZ TS1 # ACCEL DRIFT TEST. 6076: 5206 50 1 0002 AXT 2,1 6077: 5207 20 1 0120 CLA DVSX,1 6100: 5210 62 0 0000 ABS 6101: 5211 32 0 0001 ADZ TS1 6102: 5212 10 0 0001 STO TS1 6103: 5213 42 1 5207 TIX *-4,1 6104: 5214 24 0 0634 SUB 1K35 6105: 5215 46 0 1051 TMI EXIT25 # COAST PHASE 6106: 5216 40 0 1056 TRA EXIT26 6107: 5217 30 0 0120 NAV3 CLZ DVSX 6110: 5220 30 0 0121 CLZ DVSY 6111: 5221 30 0 0122 CLZ DVSZ 6112: 5222 40 0 1056 TRA EXIT26 6113: 5223 50 1 0002 NAV4 AXT 2,1 # VEL AND POS UPDATE. 6114: 5224 30 1 0120 CLZ DVSX,1 # SENSED VEL AT 7 6115: 5225 32 1 0110 ADZ DIGX,1 # PREDICTED INTG GRAVITY. 6116: 5226 10 1 0110 STO DIGX,1 # 7 6117: 5227 22 0 4015 ADD 1B12 # ROUND 6120: 6121: # PAGE 80 6122: 5230 54 0 0006 LRS 6 6123: 5231 10 0 0002 STO TS2 # DV AT 13 6124: 5232 22 1 0360 ADD VX,1 6125: 5233 10 0 0001 STO TS1 # NEW V AT 13 6126: 5234 26 0 0675 MPR KDT # DT/2 AT 1. 6127: 5235 10 0 0004 STO TS4 6130: 5236 30 1 0360 CLZ VX,1 # V(N-1) 6131: 5237 26 0 0675 MPR KDT 6132: 5240 32 0 0004 ADZ TS4 6133: 5241 32 1 0104 ADZ DRX,1 6134: 5242 10 1 0104 STO DRX,1 # 14 6135: 5243 22 0 4013 ADD 1B9 # ROUND 6136: 5244 54 0 0011 LRS 9 6137: 5245 10 0 0003 STO TS3 # DR AT 23 6140: 5246 32 1 0340 ADZ RX,1 6141: 5247 10 1 0340 STO RX,1 # NEW R AT 23 6142: 5250 30 0 0002 CLZ TS2 # DV AT 13 6143: 5251 56 0 0006 ALS 6 6144: 5252 60 0 0000 COM 6145: 5253 32 1 0110 ADZ DIGX,1 6146: 5254 10 1 0110 STO DIGX,1 # VEL REMAINDER AT 7 6147: 5255 30 0 0003 CLZ TS3 # DR AT 23 6150: 5256 56 0 0011 ALS 9 6151: 5257 60 0 0000 COM 6152: 5260 32 1 0104 ADZ DRX,1 6153: 5261 10 1 0104 STO DRX,1 # POS REMAINDER AT 14 6154: 5262 30 0 0001 CLZ TS1 6155: 5263 10 1 0360 STO VX,1 # NEW V AT 13 6156: 5264 42 1 5224 TIX NAV4+1,1 6157: 5265 72 0 5400 TSQ GRAV # TO GRAVITY COMP. 6160: 5266 40 0 1060 EX28 TRA EXIT28 6161: 5267 20 0 0660 CLA 4K34 # LIMIT AT. 6162: 5270 24 0 0067 SUB AT 6163: 5271 46 0 5274 TMI *+3 6164: 5272 20 0 0660 CLA 4K34 6165: 5273 10 0 0067 STO AT 6166: 5274 20 0 4036 CLA MS # SET IC DISPLAY. 6167: 6170: # PAGE 81 6171: 5275 10 0 0567 STO DSPF1 6172: 5276 72 0 6254 TSQ TIMEA # TO TA UPDATE 6173: 6174: # CSM ORBIT PARAMETERS 6175: 6176: 5277 20 0 0414 ORBPAR CLA S14 6177: 5300 24 0 7520 SUB 3B3 6200: 5301 46 0 5305 TMI *+4 6201: 5302 30 0 0414 CLZ S14 6202: 5303 72 0 5145 TSQ CSMPV 6203: 5304 40 0 1065 EX29 TRA EXIT29 6204: 5305 50 1 0002 AXT 2,1 6205: 5306 20 1 0200 CLA REX,1 6206: 5307 10 1 0004 STO TS4,1 6207: 5310 10 1 0204 STO R0X,1 6210: 5311 20 1 0420 CLA VEX,1 6211: 5312 10 1 0010 STO TS10,1 6212: 5313 10 1 0424 STO V0X,1 6213: 5314 42 1 5306 TIX *-6,1 6214: 5315 72 0 6373 TSQ CRSPRD 6215: 5316 72 0 6422 TSQ NORMV 6216: 5317 50 1 0002 AXT 2,1 6217: 5320 30 1 0010 CLZ TS10,1 6220: 5321 10 1 0054 STO WCX,1 6221: 5322 42 1 5320 TIX *-2,1 6222: 5323 72 0 6444 TSQ ORBPM # COMPUTE CSM ORB PARAMS FROM EPD 6223: 5324 20 0 4021 CLA 2PIB3 6224: 5325 14 0 4007 LDQ ZERO 6225: 5326 54 0 0001 LRS 1 6226: 5327 04 0 0077 DVP NI # 4-(-9)=13 6227: 5330 10 0 0445 STO TCSM 6230: 5331 40 0 1067 EX30 TRA EXIT30 6231: 5332 20 0 0436 CLA TB 6232: 5333 24 0 0445 SUB TCSM 6233: 5334 46 0 5355 TMI BR2EX 6234: 5335 20 0 0445 CLA TCSM 6235: 5336 14 0 4007 LDQ ZERO 6236: 6237: # PAGE 82 6240: 5337 54 0 0005 LRS 5 # TO +18 6241: 5340 12 0 0001 STQ TS1 6242: 5341 32 0 0520 ADZ TE1 6243: 5342 10 0 0520 STO TE1 6244: 5343 30 0 0001 CLZ TS1 6245: 5344 32 0 0524 ADZ TE2 6246: 5345 10 0 0524 STO TE2 6247: 5346 46 0 5350 TMI *+2 # OVERFLOW 6250: 5347 40 0 5355 TRA BR2EX 6251: 5350 24 0 4036 SUB MS 6252: 5351 10 0 0524 STO TE2 6253: 5352 30 0 0520 CLZ TE1 6254: 5353 22 0 4006 ADD 1B17 6255: 5354 10 0 0520 STO TE1 6256: 5355 72 0 6261 BR2EX TSQ EXEC 6257: 6260: # CSM PRESENT POS AND VEL. 6261: 6262: 5356 50 1 0000 AXT 0,1 6263: 5357 72 0 6746 TSQ DPTSB # COMPUTE DBL PREC TA-TE 6264: 5360 10 0 0436 STO TB # +13 6265: 5361 72 0 6535 TSQ ELPRD # TRANSFER TO ELLIPSE PRED 6266: 5362 50 1 0002 AXT 2,1 6267: 5363 30 1 0220 CLZ RIX,1 6270: 5364 10 1 0344 STO RCX,1 # 23 6271: 5365 30 1 0430 CLZ VIX,1 6272: 5366 10 1 0364 STO VCX,1 # 13 6273: 5367 42 1 5363 TIX *-4,1 6274: 5370 72 0 6261 TSQ EXEC 6275: 6276: 5371 50 1 0002 AXT 2,1 6277: 5372 20 1 0360 CLA VX,1 # COMPUTE MAGNITUDE OF VEL VECTOR 6300: 5373 10 1 0004 STO TS4,1 6301: 5374 42 1 5372 TIX *-2,1 6302: 5375 72 0 6737 TSQ DPVMAG 6303: 5376 10 0 0433 STO V # 13 6304: 5377 40 0 1070 TRA EXIT31 6305: 6306: # PAGE 83 6307: 6310: # GRAVITY AND H, HDOT COMPUTATIONS. 6311: 6312: 5400 12 0 0020 GRAV STQ SREX3 6313: 5401 50 1 0002 AXT 2,1 6314: 5402 20 1 0340 CLA RX,1 6315: 5403 10 1 0014 STO TS14,1 6316: 5404 42 1 5402 TIX *-2,1 6317: 5405 72 0 6422 TSQ NORMV # COMPUTE U1 AND R. 6320: 5406 30 0 0013 CLZ TS13 6321: 5407 10 0 0210 STO R # 23 6322: 5410 24 0 0231 SUB 5J # MEAN LUNAR RADIUS 6323: 5411 10 0 0337 STO H # ALTITUDE AT 23 6324: 5412 40 0 1057 EX27 TRA EXIT27 6325: 5413 20 0 0674 CLA 2K4 6326: 5414 14 0 4007 LDQ ZERO 6327: 5415 54 0 0003 LRS 3 # 52 6330: 5416 04 0 0017 DVP TS17 # R SQ AT 46 6331: 5417 10 0 0007 STO TS7 # -GRAV VECT MAG AT 6 6332: 5420 50 1 0002 AXT 2,1 6333: 5421 30 1 0114 GRAV1 CLZ GXDT,1 6334: 5422 10 0 0000 STO TS0 # G(N-1)DT 6335: 5423 30 1 0010 CLZ TS10,1 # UNIT VECTOR FR NORMV 6336: 5424 10 1 0060 STO U1X,1 # 1 6337: 5425 26 0 0007 MPR TS7 # -MUDT/(R SQ) AT 6 6340: 5426 10 1 0114 STO GXDT,1 # 7 6341: 5427 34 0 0000 7B3 SUZ TS0 # G(N-1)DT 6342: 5430 54 0 0001 LRS 1 6343: 5431 22 1 0114 ADD GXDT,1 # PREDICTED INTG GRAV IN A 6344: 5432 32 1 0110 ADZ DIGX,1 # VEL REMAINDER 6345: 5433 10 1 0110 STO DIGX,1 # INTG GRAV+VEL REM AT 6346: 5434 20 1 0360 CLA VX,1 # 13 6347: 5435 26 1 0060 MPR U1X,1 # FORM V DOT U1. 6350: 5436 32 0 0013 ADZ TS13 6351: 5437 10 0 0013 STO TS13 6352: 5440 42 1 5421 TIX GRAV1,1 6353: 5441 56 0 0001 ALS 1 6354: 6355: # PAGE 84 6356: 5442 10 0 0367 STO HDOT # ALT RATE AT 13. 6357: 5443 40 0 0020 TRA SREX3 6360: 6361: # LEM ORBIT PARAMETERS. 6362: 6363: 5444 20 0 0367 LMORB CLA HDOT # B13 6364: 5445 06 0 0367 MPY HDOT 6365: 5446 10 0 0014 STO TS14 6366: 5447 12 0 0015 STQ TS15 6367: 5450 20 0 0433 CLA V # 13 6370: 5451 26 0 0433 MPR V 6371: 5452 24 0 0014 SUB TS14 6372: 5453 10 0 0007 STO TS7 # VH SQ AT 26 6373: 5454 72 0 7123 TSQ SQRTE 6374: 5455 10 0 0427 STO VH # 13 6375: 5456 44 0 5457 TOV *+1 # CL. O.F. 6376: 5457 20 0 0210 CLA R # 23 6377: 5460 26 0 0210 MPR R 6400: 5461 26 0 0637 MPR 2K2 6401: 5462 06 0 0007 MPY TS7 # 46-47+26=25 6402: 5463 52 0 0002 LLS 2 6403: 5464 10 0 0010 STO TS10 # PL AT 23 6404: 5465 54 0 0001 LRS 1 6405: 5466 10 0 0011 STO TS11 # SAVE PL AT 24 6406: 5467 12 0 0012 STQ TS12 6407: 5470 04 0 0210 DVP R 6410: 5471 24 0 5033 SUB 1B1 6411: 5472 56 0 0004 ALS 4 # -3 6412: 5473 10 0 0000 STO TS0 6413: 5474 36 0 0000 MPZ TS0 6414: 5475 10 0 0013 STO TS13 # (PL/R-1) SQ AT -6. 6415: 5476 30 0 0014 CLZ TS14 # HDOT SQ AT 26 6416: 5477 14 0 0015 LDQ TS15 6417: 5500 52 0 0010 LLS 8 # 1B 6420: 5501 26 0 0637 MPR 2K2 6421: 5502 26 0 0010 MPR TS10 # PL 6422: 5503 32 0 0013 ADZ TS13 # EL SQ IN A AT -6. 6423: 6424: # PAGE 85 6425: 5504 44 0 5516 TOV LMORB1+2 6426: 5505 72 0 7123 TSQ SQRTE 6427: 5506 54 0 0004 LRS 4 # EL AT 1 6430: 5507 22 0 5033 ADD 1B1 6431: 5510 10 0 0001 STO TS1 # 1+EL AT 1. 6432: 5511 30 0 0011 CLZ TS11 # OL AT 24 6433: 5512 14 0 0012 LDQ TS12 6434: 5513 04 0 0001 DVP TS1 6435: 5514 10 0 0343 LMORB1 STO QL # LM PERICYNTHION AT 23 6436: 5515 40 0 1071 TRA EXIT32 6437: 5516 20 0 0216 CLA 2K3 # SET QL=CONST 6440: 5517 40 0 5514 TRA LMORB1 6441: 6442: # CSM PREDICTION. 6443: 6444: 5520 72 0 6535 CSMT1 TSQ ELPRD # TO ELLIPSE PREDICTOR. 6445: 5521 72 0 6261 TSQ EXEC 6446: 6447: # TRANSFER ORBIT VECTORS. 6450: 6451: 5522 50 1 0002 AXT 2,1 6452: 5523 20 1 0220 CLA RIX,1 # CSM PRED POS 6453: 5524 10 1 0014 STO TS14,1 6454: 5525 42 1 5523 TIX *-2,1 6455: 5526 72 0 6422 TSQ NORMV # NORMALIZE RT 6456: 5527 30 0 0013 CLZ TS13 6457: 5530 10 0 0203 STO RT # 23 6460: 5531 50 1 0002 AXT 2,1 6461: 5532 20 1 0010 XORBV1 CLA TS10,1 # C1X=BX 6462: 5533 10 1 0030 STO U2X,1 6463: 5534 20 1 0060 CLA U1X,1 6464: 5535 10 1 0004 STO TS4,1 6465: 5536 26 1 0030 MPR U2X,1 6466: 5537 32 0 0013 ADZ TS13 6467: 5540 10 0 0013 STO TS13 6470: 5541 42 1 5532 TIX XORBV1,1 6471: 5542 56 0 0001 ALS 1 6472: 6473: # PAGE 86 6474: 5543 10 0 0513 STO C1 # U1 DOT U2 AT 1. 6475: 5544 26 0 0513 MPR C1 6476: 5545 60 0 0000 COM 6477: 5546 22 0 4065 ADD 1B2 6500: 5547 72 0 7123 TSQ SQRTE 6501: 5550 10 0 0033 STO C2 # 1 6502: 5551 40 0 1072 EX33 TRA EXIT33 6503: 5552 72 0 6373 TSQ CRSPRD # U1XU2 AT 2. 6504: 5553 20 0 0015 CLA TS14+1 6505: 5554 06 0 0055 MPY WCY 6506: 5555 46 0 5557 TMI *+2 # -- IS REND ANG GREAT 180. 6507: 5556 40 0 5562 TRA *+4 6510: 5557 30 0 0033 CLZ C2 6511: 5560 60 0 0000 COM 6512: 5561 10 0 0033 STO C2 6513: 5562 50 1 0002 AXT 2,1 # NORMALIZE W1 AND 6514: 5563 30 1 0014 XORBV2 CLZ TS14,1 6515: 5564 14 0 4007 LDQ ZERO 6516: 5565 04 0 0033 DVP C2 6517: 5566 10 1 0040 STO W1X,1 # 1 6520: 5567 20 1 0060 CLA U1X,1 6521: 5570 26 0 0513 MPR C1 6522: 5571 10 0 0001 STO TS1 6523: 5572 20 1 0030 CLA U2X,1 # 1 6524: 5573 54 0 0001 LRS 1 6525: 5574 34 0 0001 SUZ TS1 6526: 5575 14 0 4007 LDQ ZERO 6527: 5576 04 0 0033 DVP C2 6530: 5577 10 1 0034 STO V1X,1 # 1 6531: 5600 20 1 0060 CLA U1X,1 # 1 6532: 5601 54 0 0001 LRS 1 6533: 5602 10 0 0001 STO TS1 # 2 6534: 5603 20 1 0030 CLA U2X,1 6535: 5604 26 0 0513 MPR C1 6536: 5605 34 0 0001 SUZ TS1 6537: 5606 14 0 4007 LDQ ZERO 6540: 5607 04 0 0033 DVP C2 6541: 6542: # PAGE 87 6543: 5610 10 1 0064 STO V2X,1 # 1 6544: 5611 42 1 5563 TIX XORBV2,1 6545: 5612 30 0 0610 CLZ MU3 # P-ITERATION INDEX. 6546: 5613 72 0 6261 TSQ EXEC 6547: 6550: # P-ITERATOR 6551: 6552: 5614 40 0 1073 EX34 TRA EXIT34 6553: 5615 44 0 5616 TOV *+1 # CL. O.F. 6554: 5616 20 0 0170 CLA P # ITERATION P AT 23 6555: 5617 24 0 0347 SUB RF 6556: 5620 14 0 4007 LDQ ZERO 6557: 5621 04 0 0347 DVP RF 6560: 5622 10 0 0011 STO TS11 # X1 AT 0. 6561: 5623 06 0 0011 MPY TS11 6562: 5624 52 0 0002 LLS 2 6563: 5625 10 0 0001 STO TS1 # X1 SQ. AT -2 6564: 5626 20 0 0170 CLA P 6565: 5627 24 0 0203 SUB RT 6566: 5630 14 0 4007 LDQ ZERO 6567: 5631 04 0 0203 DVP RT 6570: 5632 10 0 0012 STO TS12 # X2 AT .0 6571: 5633 26 0 0513 MPR C1 6572: 5634 10 0 0002 STO TS2 # 1 6573: 5635 20 0 0011 CLA TS11 # X1 6574: 5636 54 0 0001 LRS 1 6575: 5637 34 0 0002 SUZ TS2 6576: 5640 14 0 4007 LDQ ZERO 6577: 5641 04 0 0033 DVP C2 6600: 5642 10 0 0143 STO X4 # AT 0. 6601: 5643 20 0 0012 CLA TS12 # X2 6602: 5644 54 0 0001 LRS 1 6603: 5645 10 0 0002 STO TS2 # 1 6604: 5646 20 0 0011 CLA TS11 # X1 6605: 5647 26 0 0513 MPR C1 6606: 5650 34 0 0002 SUZ TS2 6607: 5651 14 0 4007 LDQ ZERO 6610: 6611: # PAGE 88 6612: 5652 04 0 0033 DVP C2 # 1 6613: 5653 10 0 0073 STO X3 # AT 0. 6614: 5654 06 0 0073 MPY X3 6615: 5655 52 0 0002 LLS 2 6616: 5656 32 0 0001 ADZ TS1 # -2 6617: 5657 44 0 1074 TOV EXIT35 # O.F. IF E TOO LARGE. 6620: 5660 10 0 0172 STO ESQ # E SQ AT -2. 6621: 5661 54 0 0002 LRS 2 6622: 5662 10 0 0013 STO TS13 # E SQ AT 0. 6623: 5663 60 0 0000 COM 6624: 5664 22 0 4030 ADD PMAX 6625: 5665 10 0 0014 STO TS14 # (1-E SQ) AT 0. 6626: 5666 72 0 7123 TSQ SQRTE 6627: 5667 10 0 0015 STO TS15 # ROOT(1-E SQ) AT 0. 6630: 5670 20 0 0143 CLA X4 6631: 5671 24 0 0073 SUB X3 6632: 5672 54 0 0001 LRS 1 # 1 6633: 5673 22 0 0033 ADD C2 6634: 5674 26 0 0015 MPR TS15 6635: 5675 10 0 0003 STO TS3 # SIN(DELTA E) AT 1. 6636: 5676 20 0 0073 CLA X3 6637: 5677 26 0 0143 MPR X4 6640: 5700 60 0 0000 COM 6641: 5701 32 0 0013 ADZ TS13 6642: 5702 54 0 0001 LRS 1 # 1 6643: 5703 10 0 0013 STO TS13 # E SQ-X3(X4) AT 1. 6644: 5704 30 0 0011 CLZ TS11 6645: 5705 32 0 0012 ADZ TS12 # X1+X2 6646: 5706 54 0 0001 LRS 1 # 1 6647: 5707 32 0 0013 ADZ TS13 6650: 5710 22 0 0513 ADD C1 6651: 5711 10 0 0004 STO TS4 # COS(DELTA E) AT 1. 6652: 5712 72 0 7034 TSQ ARCTAE 6653: 5713 10 0 0016 STO TS16 # DELTA E AT 3. 6654: 5714 20 0 0203 CLA RT 6655: 5715 26 0 0143 MPR X4 6656: 5716 10 0 0001 STO TS1 # 23 6657: 6660: # PAGE 89 6661: 5717 20 0 0347 CLA RF 6662: 5720 26 0 0073 MPR X3 6663: 5721 34 0 0001 SUZ TS1 6664: 5722 06 0 0015 MPY TS15 6665: 5723 54 0 0003 LRS 3 # 26 6666: 5724 04 0 0170 DVP P 6667: 5725 32 0 0016 ADZ TS16 6670: 5726 10 0 0016 STO TS16 # DELTAE + X7-X8 AT 3. 6671: 5727 20 0 0170 CLA P 6672: 5730 14 0 4007 LDQ ZERO 6673: 5731 04 0 0014 DVP TS14 # 1-E SQ 6674: 5732 10 0 0171 STO ALPHA # 23 6675: 5733 26 0 0637 MPR 2K2 # 1/2K1 AT -47 6676: 5734 72 0 7123 TSQ SQRTE # (-47+23)/2=-12 6677: 5735 26 0 0171 MPR ALPHA # 1/N AT 11 IN A. 6700: 5736 36 0 0016 MPZ TS16 # 11+3=14 6701: 5737 56 0 0001 ALS 1 # NEW TP AT 13. 6702: 5740 24 0 0434 SUB TP 6703: 5741 10 0 0002 STO TS2 # DELTA TP 6704: 5742 32 0 0434 ADZ TP 6705: 5743 10 0 0434 STO TP # 13 6706: 5744 20 0 0435 CLA T 6707: 5745 24 0 0434 SUB TP 6710: 5746 10 0 0000 STO TS0 # T-TP 6711: 5747 30 0 0610 CLZ MU3 # INCREMENT ITER COUNTER. 6712: 5750 22 0 4006 ADD 1B17 6713: 5751 10 0 0610 STO MU3 6714: 5752 24 0 4005 SUB 2B17 # ITERATION SCHEME. 6715: 5753 46 0 6026 TMI PITER2 # -- IS MU3=1. 6716: 5754 24 0 4006 SUB 1B17 6717: 5755 46 0 5771 TMI PITER1 # -- IS MU3=2. 6720: 5756 24 0 0620 SUB 2K17 # MU3-NO. ITERATIONS IN A. 6721: 5757 46 0 5765 TMI *+6 # -- IS NOT DONE. 6722: 5760 30 0 0000 CLZ TS0 # DONE. T-TP 6723: 5761 62 0 0000 ABS 6724: 5762 24 0 0453 SUB 2K20 6725: 5763 46 0 6040 TMI PITER3+5 # -- IS CONVERGED. 6726: 6727: # PAGE 90 6730: # THIS PAGE IS MISSING FROM THE ONLY AVAILABLE LISTING OF FP6, 6731: # AND SO HAS SIMPLY BEEN DUPLICATED FROM THE CORRESPONDING SECTION 6732: # OF FP8. THERE IS GOOD REASON TO BELIEVE THAT THIS IS VALID. 6733: # REFER TO THE WEBSITE OR THE HEADER OF THIS FILE. 6734: 5764 40 0 1074 TRA EXIT35 6735: 5765 20 0 0002 CLA TS2 # DELTA TP. 6736: 5766 62 0 0000 ABS 6737: 5767 24 0 0447 SUB 2K18 6740: 5770 46 0 6013 TMI DELP # -- IS SKIP PARTIAL 6741: 5771 20 0 0170 PITER1 CLA P # COMPUTE PARTIAL T. 6742: 5772 34 0 0212 SUZ PP 6743: 5773 10 0 0001 STO TS1 # 23 6744: 5774 14 0 4007 LDQ ZERO 6745: 5775 54 0 0004 LRS 4 # 27 6746: 5776 44 0 5777 TOV *+1 # CL. O.F. 6747: 5777 40 0 6001 TRA *+2 6750: 6000 70 0 6177 DLY INIT # TO TURN ON SEQUENCE 6751: 6001 04 0 0002 DVP TS2 # 27-13=14 6752: 6002 44 0 6004 TOV *+2 6753: 6003 40 0 6012 TRA *+7 6754: 6004 30 0 0001 CLZ TS1 # DET SIGN OF PART 6755: 6005 06 0 0002 MPY TS2 # NUM X DENOM 6756: 6006 46 0 6011 TMI *+3 6757: 6007 20 0 4030 CLA PMAX 6760: 6010 40 0 6012 TRA *+2 6761: 6011 20 0 4037 CLA NMAX 6762: 6012 10 0 0467 STO PART # PARTIAL T AT 14 6763: 6013 30 0 0000 DELP CLZ TS0 # T-TP 6764: 6014 06 0 0467 MPY PART 6765: 6015 52 0 0004 LLS 4 # 13+14-4=23 6766: 6016 10 0 0003 STO TS3 # DELTA P 6767: 6017 62 0 0000 ABS 6770: 6020 24 0 0230 SUB 2K19 6771: 6021 46 0 6033 TMI PITER3 6772: 6022 30 0 0003 CLZ TS3 6773: 6023 46 0 6030 TMI *+5 6774: 6024 20 0 0230 CLA 2K19 6775: 6025 40 0 6032 TRA *+5 6776: 6026 20 0 0217 PITER2 CLA 2K14 6777: 6027 40 0 6031 TRA *+2 7000: 6030 20 0 0230 CLA 2K19 7001: 7002: # PAGE 91 7003: 6031 60 0 0000 COM 7004: 6032 10 0 0003 STO TS3 # DELTA P 7005: 6033 30 0 0170 PITER3 CLZ P 7006: 6034 10 0 0212 STO PP 7007: 6035 32 0 0003 ADZ TS3 7010: 6036 10 0 0170 STO P # NEW P 7011: 6037 40 0 6262 TRA EXEC+1 7012: 6040 72 0 6261 TSQ EXEC 7013: 7014: # IMPULSE AND BRAKING VELOCITIES 7015: 7016: 6041 20 0 0636 TBRAKE CLA 2K1 # 48 7017: 6042 14 0 4007 LDQ ZERO 7020: 6043 54 0 0001 LRS 1 7021: 6044 04 0 0170 DVP P # 49-23=26 7022: 6045 72 0 7123 TSQ SQRTE 7023: 6046 10 0 0001 STO TS1 # ROOT(MU/P) AT 13 7024: 6047 36 0 0073 MPZ X3 7025: 6050 10 0 0423 STO RFDOT # 13 7026: 6051 20 0 0001 CLA TS1 7027: 6052 36 0 0143 MPZ X4 7030: 6053 10 0 0013 STO TS13 # 13 7031: 6054 30 0 0001 CLZ TS1 7032: 6055 06 0 0170 MPY P 7033: 6056 10 0 0001 STO TS1 # ROOT(PXMU) AT 36 7034: 6057 12 0 0002 STQ TS2 7035: 6060 04 0 0347 DVP RF 7036: 6061 10 0 0012 STO TS12 # 13 7037: 6062 30 0 0001 CLZ TS1 7040: 6063 14 0 0002 LDQ TS2 7041: 6064 04 0 0203 DVP RT 7042: 6065 10 0 0014 STO TS14 # 13 7043: 6066 40 0 1075 EX36 TRA EXIT36 7044: 6067 44 0 6070 TOV *+1 # CL. O.F. 7045: 6070 50 1 0002 AXT 2,1 7046: 6071 20 0 0013 IMPBK1 CLA TS13 # ROOT(MU/P)X(X4) AT 13 7047: 6072 36 1 0030 MPZ U2X,1 # 1 7050: 7051: # PAGE 92 7052: 6073 10 0 0007 STO TS7 7053: 6074 20 0 0014 CLA TS14 # ROOT(PXMU)/RT AT 13 7054: 6075 36 1 0064 MPZ V2X,1 # 1 7055: 6076 32 0 0007 ADZ TS7 7056: 6077 56 0 0001 ALS 1 # 13 7057: 6100 24 1 0430 SUB VIX,1 7060: 6101 10 1 0030 STO VFX,1 # -BRAKING VEL AT 13 7061: 6102 20 0 0423 CLA RFDOT # 13 7062: 6103 26 1 0060 MPR U1X,1 # 1 7063: 6104 10 0 0007 STO TS7 7064: 6105 20 0 0012 CLA TS12 # ROOT(PXMU)/RF AT 13 7065: 6106 26 1 0034 MPR V1X,1 # 1 7066: 6107 32 0 0007 ADZ TS7 7067: 6110 56 0 0001 ALS 1 # 13 7070: 6111 24 1 0460 SUB V5X,1 7071: 6112 10 1 0064 STO VGX,1 # VEL TO GAIN AT 13 7072: 6113 10 1 0004 STO TS4,1 7073: 6114 42 1 6071 TIX IMPBK1,1 7074: 6115 44 0 1074 TOV EXIT35 # CHECK VG OR VF D.F. 7075: 6116 72 0 6737 TSQ DPVMAG 7076: 6117 10 0 0370 STO VG # 13 7077: 6120 30 0 0172 CLZ ESQ # E SQ ER P ITER AT -2. 7100: 6121 72 0 7123 TSQ SQRTE 7101: 6122 54 0 0001 LRS 1 # E AT 0. 7102: 6123 60 0 0000 COM 7103: 6124 22 0 4030 ADD PMAX # 1-E AT 0. 7104: 6125 26 0 0171 MPR ALPHA 7105: 6126 10 0 0172 STO Q1 # Q OF TRANS ORB AT 23 7106: 6127 72 0 6261 TSQ EXEC 7107: # COMPLETE VF ON FOLLOWING CYCLE. 7110: 6130 50 1 0002 AXT 2,1 7111: 6131 20 1 0030 CLA VFX,1 # 13 7112: 6132 10 1 0004 STO TS4,1 7113: 6133 42 1 6131 TIX *-2,1 7114: 6134 72 0 6737 TSQ DPVMAG 7115: 6135 40 0 1076 TRA EXIT37 # VF IN A AT 8. 7116: 7117: 7120: # PAGE 93 7121: # GUIDANCE LAW COMPUTATIONS. 7122: 7123: 6136 44 0 6137 GDLAW TOV *+1 # TIME TO BURN COMP. 7124: 6137 20 0 0370 CLA VG # 13 7125: 6140 26 0 0655 MPR 4K3 # AT -25 7126: 6141 22 0 0654 ADD 4K2 # AT -12 7127: 6142 26 0 0370 MPR VG 7130: 6143 22 0 5033 ADD 1B1 7131: 6144 06 0 0370 MPY VG 7132: 6145 54 0 0002 LRS 2 # 16 7133: 6146 04 0 0067 DVP AT # 16-7=9 7134: 6147 44 0 6151 TOV *+2 7135: 6150 40 0 6152 TRA *+2 7136: 6151 20 0 4030 CLA PMAX 7137: 6152 10 0 0357 STO TBO # TIME TO BURN AT 9. 7140: 6153 40 0 1077 TRA EXIT38 7141: 7142: # COMPUTE LUNAR AZIMUTH 7143: 7144: 6154 20 0 0134 LUNAZ CLA A31 7145: 6155 26 0 0134 MPR A31 # +2 7146: 6156 60 0 0000 COM 7147: 6157 22 0 4065 ADD 1B2 7150: 6160 72 0 7123 TSQ SQRTE 7151: 6161 10 0 0001 STO TS1 # +1 7152: 6162 14 0 4007 LDQ ZERO 7153: 6163 20 0 0135 CLA A32 7154: 6164 54 0 0001 LRS 1 # TO 2 7155: 6165 04 0 0001 DVP TS1 7156: 6166 10 0 0053 STO CODELL 7157: 6167 14 0 4007 LDQ ZERO 7160: 6170 20 0 0136 CLA A33 7161: 6171 54 0 0001 LRS 1 # TO 2 7162: 6172 04 0 0001 DVP TS1 7163: 6173 10 0 0047 STO SIDELL # AT 1 7164: 6174 20 0 4036 CLA MS 7165: 6175 10 0 0604 STO DEL21 7166: 7167: # PAGE 94 7170: 6176 40 0 1100 TRA EXIT39 7171: 7172: # POWER ON INITIALIZATION 7173: 7174: 6177 66 0 3050 INIT OUT 3050 # RESET CARRY INHIBIT 7175: 6200 64 0 6200 INP 6200 7176: 6201 64 0 2200 INP DEDA 7177: 6202 66 0 7057 OUT 7057 # RESET DISCRETES 7200: 6203 20 0 4044 CLA BACK 7201: 6204 10 0 0025 STO TVARBR+1 7202: 6205 20 0 4046 CLA CLAFR # PRIME HARDWIRED CORES 7203: 6206 10 0 0024 STO TVARBR 7204: 6207 72 0 0024 TSQ TVARBR 7205: 6210 20 0 0024 CLA TVARBR 7206: 6211 24 0 7002 SUB CLATEN 7207: 6212 46 0 6207 TMI *-3 7210: 6213 66 0 7010 OUT 7010 # RESET FAILURE INDICATOR 7211: # GSF SERVICE ROUTINE 7212: 6214 64 0 2040 GSESR INP 2040 7213: 6215 56 0 0001 ALS 1 7214: 6216 46 0 1101 TMI EXIT40 # INITIALIZE 7215: 6217 64 0 6200 INP 6200 7216: 6220 22 0 4011 ADD 1B5 7217: 6221 10 0 0007 STO TS7 7220: 6222 22 0 4065 ADD STOCOM # SET UP VARIABLE STORE 7221: 6223 10 0 0024 STO TVARBR 7222: 6224 66 0 6402 WRDLP OUT 6402 # SET GSE 5 7223: 6225 64 0 2040 INP 2040 7224: 6226 56 0 0001 ALS 1 7225: 6227 46 0 6231 TMI *+2 7226: 6230 40 0 6225 TRA *-3 7227: 6231 66 0 7012 OUT 7012 # RESET GSE 5 AND FAIL INDIC. 7230: 6232 64 0 2040 INP 2040 7231: 6233 56 0 0001 ALS 1 7232: 6234 46 0 6231 TMI *-3 # WAIT FOR NEXT WORD 7233: 6235 56 0 0001 ALS 1 7234: 6236 46 0 6243 TMI *+5 7235: 7236: # PAGE 95 7237: 6237 30 0 0007 CLZ TS7 # END OF BLOCK 7240: 6240 22 0 4036 ADD TRACOM 7241: 6241 10 0 0024 STO TVARBR 7242: 6242 40 0 0024 TRA TVARBR 7243: 6243 64 0 6200 INP 6200 # INPUT WORD AND STORE 7244: 6244 72 0 0024 TSQ TVARBR 7245: 6245 40 0 6224 TRA WRDLP 7246: 6246 10 0 0000 RETURN STO TS0 # INCREMENT OF VARIABLE 7247: 6247 30 0 0024 CLZ TVARBR 7250: 6250 22 0 4006 ADD 1B17 7251: 6251 10 0 0024 STO TVARBR 7252: 6252 30 0 0000 CLZ TS0 7253: 6253 40 0 6764 TRA EXIT 7254: 7255: # TIME UPDATE AND EXECUTIVE PART 1. 7256: 7257: 6254 30 0 0377 TIMEA CLZ TA1 # UPDATE ABS TIME. 7260: 6255 22 0 4006 ADD 1B17 # EQU TO 2 SECS. 7261: 6256 10 0 0377 STO TA1 7262: 6257 20 0 4014 CLA 1B11 # I.C. DEDA COUNTER 7263: 6260 10 0 0727 STO DEDASC 7264: 6261 12 0 0063 EXEC STQ BRANCH # SET NEXT BRANCH. 7265: 6262 30 0 0727 CLZ DEDASC 7266: 6263 56 0 0001 ALS 1 7267: 6264 46 0 6267 TMI *+3 # -- IS TIME TO DEDA. 7270: 6265 10 0 0727 STO DEDASC 7271: 6266 40 0 1110 TRA EXIT41 7272: 6267 30 0 0063 CLZ BRANCH # SAVE BRANCH IN 7273: 6270 10 0 0057 STO TMPBR # TEMPORARY BRANCH 7274: 6271 20 0 1013 CLA DEDABR # DEDA START 7275: 6272 10 0 0063 STO BRANCH 7276: 6273 40 0 1110 TRA EXIT41 # TO SOFT DISPLAY 7277: 7300: # DISPLAY SUBROUTINE 7301: 7302: 6274 30 0 0543 DSPLY CLZ DSPSC 7303: 6275 56 0 0001 ALS 1 7304: 7305: # PAGE 96 7306: # THIS PAGE IS MISSING FROM THE ONLY AVAILABLE LISTING OF FP6, 7307: # AND SO HAS SIMPLY BEEN DUPLICATED FROM THE CORRESPONDING SECTION 7310: # OF FP8. THERE IS GOOD REASON TO BELIEVE THAT THIS IS VALID. 7311: # REFER TO THE WEBSITE OR THE HEADER OF THIS FILE. 7312: 6276 44 0 6300 TOV *+2 # O.F. IS TIME TO DISPLAY 7313: 6277 40 0 6357 TRA DSPLY4 7314: 6300 30 0 0444 CLZ PDOUT # INCREMENT DISPLAY VARIABLES. 7315: 6301 22 0 0443 ADD DPDOUT 7316: 6302 10 0 0444 STO PDOUT # 13 7317: 6303 30 0 0214 CLZ POUT 7320: 6304 22 0 0215 ADD DPOUT 7321: 6305 40 0 6323 TRA DSPLY2-5 7322: 6306 10 0 0444 DSPLY1 STO PDOUT # I.C. DISPLAY COMPS. 7323: 6307 34 0 0437 SUZ PDOTM1 7324: 6310 26 0 0624 MPR 1K4 # .1 7325: 6311 10 0 0443 STO DPDOUT # DELTA PDOT AT 13. 7326: 6312 20 0 0444 CLA PDOUT # 13 7327: 6313 10 0 0437 STO PDOTM1 7330: 6314 06 0 0624 MPY 1K4 # .1 7331: 6315 54 0 0011 LRS 9 # 0.2 PDOT AT 23. 7332: 6316 04 0 0213 DVP POUTFS # =76840 FT B28 7333: 6317 10 0 0215 STO DPOUT # DELTA P AT DISPLAY SCALE. 7334: 6320 20 0 0214 CLA POUT # 23 7335: 6321 14 0 4007 LDQ ZERO 7336: 6322 04 0 0213 DVP POUTFS # =76840 FT B23 7337: 6323 44 0 6325 TOV *+2 7340: 6324 40 0 6327 TRA *+3 7341: 6325 30 0 0215 CLZ DPOUT 7342: 6326 20 0 4030 CLA PMAX 7343: 6327 10 0 0214 STO POUT # OUTPUT P AT DISPLAY SCALE. 7344: 6330 20 0 0444 DSPLY2 CLA PDOUT # DISPLAY POSITION RATE. 7345: 6331 62 0 0000 ABS 7346: 6332 10 0 0010 STO TS10 7347: 6333 20 0 0444 CLA PDOUT 7350: 6334 46 0 6337 TMI *+3 7351: 6335 20 0 4036 CLA MS # 1 IS + 7352: 6336 40 0 6340 TRA *+2 7353: 6337 20 0 4007 CLA ZERO # 0 IS - 7354: 6340 32 0 0010 ADZ TS10 # SIGN MAGNITUDE. 7355: 6341 66 0 3040 OUT 3040 # RESET 7356: 6342 66 0 2440 OUT 2440 # SELECT ALT RATE. 7357: 7360: # PAGE 97 7361: 6343 66 0 6010 OUT 6010 # OUTPUT ALT RATE. 7362: 6344 40 0 1111 TRA EXIT42 # COMPUTE VY0 FOR OUTPUT 7363: 6345 66 0 6020 OUT 6020 # OUTPUT SAME. 7364: 6346 20 0 0214 DSPLY3 CLA POUT # DISPLAY POSITION 7365: 6347 46 0 6351 TMI *+2 7366: 6350 40 0 6352 TRA *+2 7367: 6351 20 0 4007 CLA ZERO # ALT NEG. 7370: 6352 56 0 0001 ALS 1 # SIGN BIT USED 7371: 6353 66 0 3040 OUT 3040 # RESET 7372: 6354 66 0 2420 OUT 2420 # SELECT ALT. 7373: 6355 66 0 6010 OUT 6010 # OUTPUT ALT. 7374: 6356 20 0 4011 CLA 1B5 7375: 6357 10 0 0543 DSPLY4 STO DSPSC # RESET COUNTER. 7376: 7377: # CYCLE COUNTING 7400: 7401: 6360 30 0 0615 EXEC1 CLZ MU10 # UPDATE MINOR CYCLE COUNT. 7402: 6361 22 0 4006 ADD 1B17 7403: 6362 10 0 0615 STO MU10 7404: 6363 40 0 1112 TRA EXIT43 7405: 6364 20 0 0615 CLA MU10 # CHECK FOR END. 7406: 6365 24 0 4040 SUB 49B17 7407: 6366 46 0 4047 TMI DELAY # -- IS NOT END. 7410: 6367 30 0 0615 CLZ MU10 7411: 6370 20 0 1014 CLA BR50 # BR50 START. 7412: 6371 10 0 0063 STO BRANCH 7413: 6372 40 0 4047 TRA DELAY 7414: 7415: # CROSS PRODUCT SUBROUTINE. AXB=C. 7416: 7417: 6373 12 0 0023 CRSPRD STQ SREX 7420: 6374 20 0 0006 CLA TS4+2 # AZ 7421: 6375 26 0 0011 MPR TS10+1 # BY 7422: 6376 10 0 0007 STO TS7 7423: 6377 20 0 0005 CLA TS4+1 # AY 7424: 6400 26 0 0012 MPR TS10+2 # BZ 7425: 6401 34 0 0007 SUZ TS7 7426: 7427: # PAGE 98 7430: 6402 10 0 0014 STO TS14 # CX 7431: 6403 20 0 0004 CLA TS4 # AX 7432: 6404 26 0 0012 MPR TS10+2 # BZ 7433: 6405 10 0 0007 STO TS7 7434: 6406 20 0 0006 CLA TS4+2 # AZ 7435: 6407 26 0 0010 MPR TS10 7436: 6410 34 0 0007 SUZ TS7 7437: 6411 10 0 0015 STO TS14+1 # CY 7440: 6412 20 0 0005 CLA TS4+1 # AY 7441: 6413 26 0 0010 MPR TS10 # BX 7442: 6414 10 0 0007 STO TS7 7443: 6415 20 0 0004 CLA TS4 # AX 7444: 6416 26 0 0011 MPR TS10+1 # BY 7445: 6417 34 0 0007 SUZ TS7 7446: 6420 10 0 0016 STO TS14+2 # CZ 7447: 6421 40 0 0023 TRA SREX 7450: 7451: # NORMALIZE VECTOR SUBROUTINE. 7452: 7453: 6422 12 0 0021 NORMV STQ SREX2 7454: 6423 30 0 0017 CLZ TS17 7455: 6424 50 1 0002 AXT 2,1 7456: 6425 20 1 0014 CLA TS14,1 # INPUT VECTOR 7457: 6426 26 1 0014 MPR TS14,1 7460: 6427 32 0 0017 ADZ TS17 7461: 6430 10 0 0017 STO TS17 7462: 6431 42 1 6425 TIX *-4,1 7463: 6432 72 0 7123 TSQ SQRTE 7464: 6433 10 0 0013 STO TS13 7465: 6434 50 1 0002 AXT 2,1 7466: 6435 20 1 0014 CLA TS14,1 7467: 6436 14 0 4007 LDQ ZERO 7470: 6437 54 0 0001 LRS 1 7471: 6440 04 0 0013 DVP TS13 7472: 6441 10 1 0010 STO TS10,1 # UNIT VECTOR AT 1. 7473: 6442 42 1 6435 TIX *-5,1 7474: 6443 40 0 0021 TRA SREX2 7475: 7476: # PAGE 99 7477: 7500: # ORBIT PARAMETERS FROM EPOCH SUBROUTINE 7501: 7502: 6444 12 0 0021 ORBPM STQ SREX2 7503: 6445 30 0 0011 CLZ TS11 7504: 6446 30 0 0012 CLZ TS12 7505: 6447 30 0 0013 CLZ TS13 7506: 6450 44 0 6451 TOV *+1 7507: 6451 50 1 0002 AXT 2,1 7510: 6452 20 1 0204 ORBPM1 CLA R0X,1 # 23 7511: 6453 26 1 0424 MPR V0X,1 # 13 7512: 6454 32 0 0013 ADZ TS13 7513: 6455 10 0 0013 STO TS13 # R0 DOT V0 AT 36 7514: 6456 20 1 0424 CLA V0X,1 7515: 6457 26 1 0424 MPR V0X,1 7516: 6460 32 0 0012 ADZ TS12 7517: 6461 10 0 0012 STO TS12 # V0 DOT V0 AT 26 7520: 6462 20 1 0204 CLA R0X,1 7521: 6463 26 1 0204 MPR R0X,1 7522: 6464 32 0 0011 ADZ TS11 7523: 6465 10 0 0011 STO TS11 # R0 DOT R0 AT 46 7524: 6466 42 1 6452 TIX ORBPM1,1 7525: 6467 40 0 1120 EX44 TRA EXIT44 7526: 6470 72 0 7123 TSQ SQRTE 7527: 6471 10 0 0207 STO R0 # 23 7530: 6472 06 0 0012 MPY TS12 # 23+26=49 7531: 6473 44 0 6474 TOV *+1 7532: 6474 04 0 0636 DVP 2K1 # 48 7533: 6475 60 0 0000 COM 7534: 6476 22 0 4030 ADD PMAX # 2B1 7535: 6477 10 0 0001 STO TS1 7536: 6500 20 0 0207 CLA R0 7537: 6501 14 0 4007 LDQ ZERO 7540: 6502 54 0 0001 LRS 1 7541: 6503 04 0 0001 DVP TS1 7542: 6504 40 0 1121 EX45 TRA EXIT45 7543: 6505 10 0 0173 STO AI # ALPHA I AT 23 7544: 7545: # PAGE 100 7546: 6506 20 0 0636 CLA 2K1 7547: 6507 14 0 4007 LDQ ZERO 7550: 6510 54 0 0001 LRS 1 # 49 7551: 6511 04 0 0173 DVP AI # 49-23=26 7552: 6512 72 0 7123 TSQ SQRTE 7553: 6513 10 0 0001 STO TS1 # ROOT(MU/ALPHA) AT 15 7554: 6514 14 0 4007 LDQ ZERO 7555: 6515 54 0 0001 LRS 1 7556: 6516 04 0 0173 DVP AI 7557: 6517 10 0 0077 STO NI # ANG FREQ AT -9. 7560: 6520 20 0 0173 CLA AI 7561: 6521 24 0 0207 SUB R0 7562: 6522 14 0 4007 LDQ ZERO 7563: 6523 04 0 0173 DVP AI 7564: 6524 10 0 0103 STO CI # 0 7565: 6525 20 0 0173 CLA AI 7566: 6526 36 0 0001 MPZ TS1 7567: 6527 10 0 0001 STO TS1 # ROOT(ALPHA X MU) AT 36 7570: 6530 30 0 0013 CLZ TS13 7571: 6531 14 0 4007 LDQ ZERO 7572: 6532 04 0 0001 DVP TS1 7573: 6533 10 0 0043 STO SI # 0 7574: 6534 40 0 0021 TRA SREX2 7575: 7576: # ELLIPSE PREDICTOR SUBROUTINE. 7577: 7600: 6535 12 0 0021 ELPRD STQ SREX2 7601: 6536 30 0 0007 CLZ TS7 # ITERATION COUNTER. 7602: 6537 20 0 0442 CLA TI # 13 7603: 6540 26 0 0077 MPR NI # AT -9. 7604: 6541 56 0 0001 ALS 1 7605: 6542 10 0 0010 STO TS10 # DEL M AT 3. 7606: 6543 10 0 0011 ELPRD1 STO TS11 # DEL E AT 3. 7607: 6544 72 0 6767 TSQ SICOE 7610: 6545 20 0 0000 CLA TS0 7611: 6546 26 0 0103 MPR CI # AT 0. 7612: 6547 10 0 0013 STO TS13 # 1 7613: 7614: # PAGE 101 7615: 6550 20 0 0001 CLA TS1 # 1 7616: 6551 26 0 0043 MPR SI # 0+1=1 7617: 6552 34 0 0013 SUZ TS13 7620: 6553 22 0 5033 ADD 1B1 7621: 6554 10 0 0012 STO TS12 # X12 AT 1. 7622: 6555 30 0 0007 CLZ TS7 7623: 6556 24 0 4005 SUB 2B17 # 2 ITERATIONS. 7624: 6557 46 0 6642 TMI ELPRD3 # -- IS NOT DONE. 7625: 6560 20 0 0103 CLA CI # 0 7626: 6561 54 0 0001 LRS 1 # 1 7627: 6562 60 0 0000 COM 7630: 6563 22 0 0000 ADD TS0 7631: 6564 06 0 0173 MPY AI # 23+1=24 7632: 6565 04 0 0207 DVP R0 # 23 7633: 6566 10 0 0003 STO TS3 # F AT 1. 7634: 6567 30 0 0010 CLZ TS10 # 3 7635: 6570 34 0 0011 SUZ TS11 7636: 6571 56 0 0002 ALS 2 # 1 7637: 6572 22 0 0001 ADD TS1 7640: 6573 14 0 4007 LDQ ZERO 7641: 6574 54 0 0001 LRS 1 7642: 6575 04 0 0077 DVP NI # AT -9. 7643: 6576 10 0 0007 STO TS7 # G AT 11. 7644: 6577 20 0 0207 CLA R0 7645: 6600 26 0 0012 MPR TS12 7646: 6601 10 0 0014 STO TS14 # 24 7647: 6602 20 0 0173 CLA AI 7650: 6603 26 0 0077 MPR NI 7651: 6604 06 0 0001 MPY TS1 # 23-9+1=15 7652: 6605 04 0 0014 DVP TS14 7653: 6606 60 0 0000 COM 7654: 6607 10 0 0013 STO TS13 # F DOT AT -9. 7655: 6610 20 0 0012 CLA TS12 # X12 7656: 6611 24 0 5033 SUB 1B1 7657: 6612 32 0 0000 ADZ TS0 7660: 6613 14 0 4007 LDQ ZERO 7661: 6614 54 0 0001 LRS 1 # 2 7662: 7663: # PAGE 102 7664: 6615 04 0 0012 DVP TS12 7665: 6616 10 0 0017 STO TS17 # G DOT AT 1. 7666: 6617 50 1 0002 AXT 2,1 7667: 6620 20 1 0204 ELPRD2 CLA R0X,1 # 23 7670: 6621 26 0 0003 MPR TS3 # 1 7671: 6622 10 0 0002 STO TS2 # 24 7672: 6623 20 1 0424 CLA V0X,1 # 13 7673: 6624 26 0 0007 MPR TS7 # 11+13=24 7674: 6625 32 0 0002 ADZ TS2 7675: 6626 56 0 0001 ALS 1 # 23 7676: 6627 10 1 0220 STO RIX,1 # PRED POS AT 23 7677: 6630 20 1 0204 CLA R0X,1 # 23 7700: 6631 26 0 0013 MPR TS13 # -9 7701: 6632 10 0 0002 STO TS2 # 14 7702: 6633 20 1 0424 CLA V0X,1 # 13 7703: 6634 26 0 0017 MPR TS17 # 1 7704: 6635 32 0 0002 ADZ TS2 7705: 6636 56 0 0001 ALS 1 7706: 6637 10 1 0430 STO VIX,1 # PRED VEL AT 13 7707: 6640 42 1 6620 TIX ELPRD2,1 7710: 6641 40 0 0021 TRA SREX2 7711: 6642 22 0 4004 ELPRD3 ADD 3B17 7712: 6643 10 0 0007 STO TS7 7713: 6644 20 0 0010 CLA TS10 # 3 7714: 6645 24 0 0011 SUB TS11 7715: 6646 56 0 0002 ALS 2 7716: 6647 10 0 0013 STO TS13 # DEL(M)-DEL(E) AT 1. 7717: 6650 20 0 0000 CLA TS0 # 1 7720: 6651 54 0 0001 LRS 1 # 2 7721: 6652 24 0 4065 SUB 1B2 7722: 6653 26 0 0043 MPR SI # 0+2=2 7723: 6654 56 0 0001 ALS 1 7724: 6655 10 0 0014 STO TS14 # 1 7725: 6656 20 0 0001 CLA TS1 7726: 6657 26 0 0103 MPR CI # 0+1=1 7727: 6660 32 0 0014 ADZ TS14 7730: 6661 32 0 0013 ADZ TS13 # X11 IN A AT 1. 7731: 7732: # PAGE 103 7733: 6662 14 0 4007 LDQ ZERO 7734: 6663 54 0 0003 LRS 3 # 4 7735: 6664 04 0 0012 DVP TS12 # DEL E CORRECTION AT 3. 7736: 6665 32 0 0011 ADZ TS11 # DEL 3 7737: 6666 40 0 6543 TRA ELPRD1 7740: 7741: # DOUBLE PRECISION SQUARE SUBROUTINE 7742: 7743: 6667 12 0 0023 DPSQ STQ SREX 7744: 6670 30 0 0001 CLZ TS1 # A SQ MS 7745: 6671 30 0 0002 CLZ TS2 # A SQ LS 7746: 6672 50 1 0002 AXT 2,1 7747: 6673 20 1 0004 DPSQ1 CLA TS4,1 7750: 6674 06 1 0004 MPY TS4,1 7751: 6675 32 0 0001 ADZ TS1 7752: 6676 46 0 6716 TMI DPSQ3 # CHECK FOR O.F. 7753: 6677 10 0 0001 STO TS1 7754: 6700 12 0 0003 STQ TS3 7755: 6701 30 0 0002 CLZ TS2 7756: 6702 32 0 0003 ADZ TS3 7757: 6703 10 0 0002 STO TS2 7760: 6704 46 0 6706 TMI *+2 # CHECK FOR O.F. 7761: 6705 40 0 6714 TRA DPSQ2 7762: 6706 24 0 4036 SUB MS 7763: 6707 10 0 0002 STO TS2 7764: 6710 30 0 0001 CLZ TS1 7765: 6711 22 0 4006 ADD 1B17 7766: 6712 46 0 6716 TMI DPSQ3 # CHECK FOR O.F. 7767: 6713 10 0 0001 STO TS1 7770: 6714 42 1 6673 DPSQ2 TIX DPSQ1,1 7771: 6715 40 0 0023 TRA SREX 7772: 6716 20 0 4030 DPSQ3 CLA PMAX # O.F. DETECTED. 7773: 6717 10 0 0001 STO TS1 7774: 6720 40 0 0023 TRA SREX 7775: 7776: # NORMALIZE SUBROUTINE. 7777: 10000: 10001: # PAGE 104 10002: 6721 12 0 0022 NORM STQ SREX1 10003: 6722 44 0 6723 TOV *+1 # CLEAR O.F. 10004: 6723 14 0 0002 LDQ TS2 # A SQ LS 10005: 6724 50 1 0007 AXT 7,1 # 8 SHIFTS(16 PLACES) POSSIBLE 10006: 6725 20 0 0001 CLA TS1 # A SQ MS 10007: 6726 52 0 0002 LLS 2 10010: 6727 44 0 6735 TOV NORM1 10011: 6730 10 0 0001 STO TS1 # NORMALIZED A. 10012: 6731 42 1 6725 TIX *-4,1 10013: 6732 20 0 4017 CLA 8B17 10014: 6733 22 0 4035 ADD SHDUM # LRS 0 10015: 6734 40 0 0022 TRA SREX1 10016: 6735 20 1 4000 NORM1 CLA 7B17,1 10017: 6736 40 0 6733 TRA *-3 10020: 10021: # DOUBLE PRECISION VECTOR MAGNITUDE 10022: 10023: 6737 12 0 0021 DPVMAG STQ SREX2 # SAVE RET ADDRS. 10024: 6740 72 0 6667 TSQ DPSQ # TO DOUB PREC SQ. 10025: 6741 72 0 6721 TSQ NORM # TO NORMALIZE. 10026: 6742 10 0 0020 STO SREX3 # LRS(I/2) 10027: 6743 30 0 0001 CLZ TS1 # NORMALIZED SQ. 10030: 6744 72 0 7123 TSQ SQRTE 10031: 6745 40 0 0020 TRA SREX3 # RE-NORMALIZE A-REG. 10032: 10033: # DOUBLE PRECISION TIME SUBTRACT 10034: 10035: 6746 12 0 0023 DPTSB STQ SREX 10036: 6747 20 0 0377 CLA TA1 # ABS TIME MS AT 18. 10037: 6750 24 1 0520 SUB TE1,1 # EPOCH TIME MS AT 18. 10040: 6751 56 0 0005 ALS 5 # 13 10041: 6752 10 0 0001 STO TS1 10042: 6753 20 1 0524 CLA TE2,1 # EPOCH TIME LS AT 1. 10043: 6754 54 0 0014 LRS 12 # 13 10044: 6755 10 0 0002 STO TS2 10045: 6756 20 0 0353 CLA TA2 # ABS TIME LS AT 1. 10046: 6757 54 0 0014 LRS 12 # 13 10047: 10050: # PAGE 105 10051: 6760 34 0 0002 SUZ TS2 10052: 6761 32 0 0001 ADZ TS1 10053: 6762 10 0 0442 STO TI # TIME DIFF AT 13. 10054: 6763 40 0 0023 TRA SREX 10055: 10056: 6764 12 0 0021 EXIT STQ SREX2 10057: 6765 40 0 0021 TRA SREX2 10060: 10061: # SINE-COSINE SUBROUTINE ENTER WITH ANGLE IN 10062: # RADIANS AT B3 IN ACC AND RETURN IN Q 10063: 10064: 6766 22 0 4021 ADD 2PIB3 10065: 6767 46 0 6766 SICOE TMI *-1 # SET PLUS 10066: 6770 12 0 0023 STQ SREX 10067: 6771 10 0 0001 STO TS1 10070: 6772 24 0 4021 SUB 2PIB3 # SET BETWEEN 0-2PI 10071: 6773 46 0 6775 TMI *+2 10072: 6774 10 0 0001 STO TS1 10073: 6775 20 0 4023 CLA PID2 # PI/2 10074: 6776 24 0 0001 SUB TS1 10075: 6777 10 0 0000 STO TS0 # PI/2-ALPHA 10076: 7000 46 0 7021 TMI SICO1 # -- IS GREATER THAN 90 10077: 7001 50 1 0001 AXT 1,1 10100: 7002 20 1 0000 SICO2 CLA TS0,1 10101: 7003 56 0 0002 ALS 2 # TO 1 10102: 7004 10 1 0000 STO TS0,1 10103: 7005 26 1 0000 MPR TS0,1 10104: 7006 10 0 0002 STO TS2 # ALPHA SQUARED AT 2 10105: 7007 26 0 4025 MPR K173 # 2-6=-4 10106: 7010 22 0 4026 ADD K172 10107: 7011 26 0 0002 MPR TS2 # -2 10110: 7012 22 0 4027 ADD K171 10111: 7013 26 0 0002 MPR TS2 # 0 10112: 7014 22 0 4030 ADD K170 10113: 7015 26 1 0000 MPR TS0,1 # 1 10114: 7016 10 1 0000 STO TS0,1 10115: 7017 42 1 7002 TIX SICO2,1 10116: 10117: # PAGE 106 10120: 7020 40 0 0023 TRA SREX # EXIT 10121: 7021 22 0 4023 SICO1 ADD PID2 10122: 7022 10 0 0001 STO TS1 # PI-ALPHA 10123: 7023 46 0 7025 TMI *+2 # -- IS GREATER THAN 180 10124: 7024 40 0 7001 TRA SICO2-1 10125: 7025 22 0 4023 ADD PID2 10126: 7026 60 0 0000 COM 10127: 7027 10 0 0000 STO TS0 # ALPHA-3PI/2 10130: 7030 46 0 7001 TMI SICO2-1 # -- IS BETWEEN 180 AND 270 10131: 7031 24 0 4023 SUB PID2 10132: 7032 10 0 0001 STO TS1 # ALPHA-2PI 10133: 7033 40 0 7001 TRA SICO2-1 10134: 10135: # ARCTANGENT SUBROUTINE ENTER WITH SINE AND 10136: # COSINE AT 1 IN TS3 AND TS4 10137: 10140: 7034 12 0 0023 ARCTAE STQ SREX # SET EXIT 10141: 7035 20 0 0003 CLA TS3 10142: 7036 62 0 0000 ABS 10143: 7037 10 0 0001 STO TS1 10144: 7040 20 0 0004 CLA TS4 10145: 7041 44 0 7042 TOV *+1 10146: 7042 62 0 0000 ABS 10147: 7043 22 0 0001 ADD TS1 # KCOS+KSIN 10150: 7044 44 0 7047 TOV *+3 # O.F. CHECK. 10151: 7045 20 0 0004 CLA TS4 10152: 7046 40 0 7055 TRA *+7 10153: 7047 30 0 0001 CLZ TS1 # O.F. RE-SCALE. 10154: 7050 54 0 0001 LRS 1 10155: 7051 10 0 0001 STO TS1 # ABS SIN. 10156: 7052 30 0 0004 CLZ TS4 10157: 7053 54 0 0001 LRS 1 10160: 7054 10 0 0004 STO TS4 # COS 10161: 7055 46 0 7113 TMI ARCTA2 # -- IS 2ND OR 3RD QUAD 10162: 7056 22 0 0001 ADD TS1 10163: 7057 10 0 0002 STO TS2 10164: 7060 20 0 4024 CLA PID4 10165: 10166: # PAGE 107 10167: 7061 10 0 0005 STO TS5 # 1/4 PI 10170: 7062 20 0 0001 CLA TS1 10171: 7063 24 0 0004 SUB TS4 # SIN-COS 10172: 7064 14 0 4007 ARCTA1 LDQ ZERO 10173: 7065 54 0 0001 LRS 1 10174: 7066 04 0 0002 DVP TS2 10175: 7067 10 0 0006 STO TS6 # =X AT 1 10176: 7070 06 0 0006 MPY TS6 10177: 7071 10 0 0007 STO TS7 # X SQUARED AT 2 10200: 7072 26 0 4031 MPR K183 # -1 10201: 7073 22 0 4032 ADD K182 10202: 7074 06 0 0007 MPY TS7 # 1 10203: 7075 22 0 4033 ADD K181 10204: 7076 06 0 0007 MPY TS7 # 3 10205: 7077 52 0 0001 LLS 1 # 2 10206: 7100 22 0 4034 ADD K180 10207: 7101 26 0 0006 MPR TS6 # 3 10210: 7102 22 0 0005 ADD TS5 10211: 7103 10 0 0001 STO TS1 10212: 7104 20 0 0003 CLA TS3 10213: 7105 46 0 7110 TMI *+3 10214: 7106 20 0 0001 CLA TS1 10215: 7107 40 0 0023 TRA SREX # EXIT 10216: 7110 20 0 4021 CLA 2PIB3 # PHI GREATER THAN 180 10217: 7111 24 0 0001 SUB TS1 10220: 7112 40 0 0023 TRA SREX 10221: 7113 20 0 4022 ARCTA2 CLA 3PID4 10222: 7114 10 0 0005 STO TS5 # 3/4 PI 10223: 7115 20 0 0004 CLA TS4 10224: 7116 24 0 0001 SUB TS1 10225: 7117 10 0 0002 STO TS2 10226: 7120 20 0 0001 CLA TS1 10227: 7121 22 0 0004 ADD TS4 10230: 7122 40 0 7064 TRA ARCTA1 10231: 10232: # SQUARE ROOT SUBROUTINE ENTER WITH 10233: # SQUARE IN ACC AND RETURN IN Q 10234: 10235: # PAGE 108 10236: 10237: 7123 12 0 0023 SQRTE STQ SREX 10240: 7124 10 0 0001 STO TS1 10241: 7125 60 0 0000 COM # TEST FOR ZERO OR NEG 10242: 7126 46 0 7131 TMI *+3 10243: 7127 20 0 4007 CLA ZERO # SET ROOT EQUAL ZERO 10244: 7130 40 0 0023 TRA SREX 10245: 7131 30 0 0002 CLZ TS2 # SET TS2=0 10246: 7132 72 0 6721 TSQ NORM # TO NORMALIZE 10247: 7133 10 0 0022 STO SREX1 # SAVE SHIFT 10250: 7134 20 0 0001 CLA TS1 10251: 7135 54 0 0001 LRS 1 # .5SQ 10252: 7136 10 0 0133 STO TS8 10253: 7137 12 0 0001 STQ TS1 10254: 7140 54 0 0002 LRS 2 # .125SQ 10255: 7141 22 0 0133 ADD TS8 # .625SQ 10256: 7142 22 0 7147 ADD KSR # .375+.625SQ=RN-1 10257: 7143 50 1 0001 AXT 1,1 # 2 ITERATIONS 10260: 7144 10 0 0002 SQRT1 STO TS2 10261: 7145 54 0 0001 LRS 1 # .5 RN-1 10262: 7146 10 0 0000 STO TS0 10263: 7147 14 0 0001 KSR LDQ TS1 # KSR=.375+DELTA 10264: 7150 20 0 0133 CLA TS8 10265: 7151 04 0 0002 DVP TS2 10266: 7152 32 0 0000 ADZ TS0 # .5SQ/RN-1+.5RN-1=RN 10267: 7153 42 1 7144 TIX SQRT1,1 10270: 7154 40 0 0022 TRA SREX1 # TO SHIFT 10271: 10272: # ANGLE BETWEEN VECTORS SUBROUTINE. 10273: 10274: 7155 12 0 0022 ABVEC STQ SREX1 10275: 7156 20 0 0010 CLA TS10 # BX 10276: 7157 26 0 0006 MPR TS4+2 # AZ 10277: 7160 54 0 0001 LRS 1 10300: 7161 10 0 0002 STO TS2 10301: 7162 20 0 0004 CLA TS4 # AX 10302: 7163 26 0 0012 MPR TS10+2 # BZ 10303: 10304: # PAGE 109 10305: 7164 54 0 0001 LRS 1 10306: 7165 34 0 0002 SUZ TS2 10307: 7166 10 0 0003 STO TS3 # SIN THETA 10310: 7167 20 0 0004 CLA TS4 # AX 10311: 7170 26 0 0010 MPR TS10 # BX 10312: 7171 54 0 0001 LRS 1 10313: 7172 10 0 0002 STO TS2 10314: 7173 20 0 0006 CLA TS4+2 # AZ 10315: 7174 26 0 0012 MPR TS10+2 # BZ 10316: 7175 54 0 0001 LRS 1 10317: 7176 32 0 0002 ADZ TS2 10320: 7177 10 0 0004 STO TS4 # COS THETA 10321: 7200 72 0 7034 TSQ ARCTAE 10322: 7201 40 0 0022 TRA SREX1 # THETA IN A AT 3. 10323: 10324: # DEDA PROCESSING ENTRY 10325: 10326: 7202 20 0 0333 ADOUT CLA ADST # OUTPUT ADDRESS 10327: 7203 22 0 5033 ADD DUMCLA 10330: 7204 10 0 1000 STO CLADD # SET CLA OF DATA 10331: 7205 54 0 0011 LRS 9 10332: 7206 50 1 0002 AXT 2,1 10333: 7207 52 0 0003 LLS 3 # 3 BITS PER PASS 10334: 7210 66 0 2200 OUT DEDA 10335: 7211 66 0 2600 OUT SHOUT # SET SHIFT OUT 10336: 7212 56 0 0022 ALS 18 # TIME DELAY 10337: 7213 42 1 7207 TIX *-4,1 10340: 7214 40 0 1000 TRA CLADD # GET DATA 10341: 7215 10 0 0326 ROR STO DD 10342: 7216 46 0 7353 TMI SNS # TEST SIGN 10343: 7217 20 0 4007 CLA ZERO # POSITIVE 10344: 10345: 7220 66 0 2200 SOUT OUT DEDA # OUTPUT SIGN 10346: 7221 66 0 2600 OUT SHOUT 10347: 7222 20 0 0027 CLA OCTF # OCTAL OR DECIMAL OUTPUT 10350: 7223 46 0 7247 TMI OCTO 10351: 7224 40 0 1122 EX46 TRA EXIT46 10352: 7225 20 0 0326 CLA DD # DECIMAL OUTPUT 10353: 10354: # PAGE 110 10355: 7226 26 0 0026 MPR SF # SCALE FACTOR 10356: 7227 62 0 0000 ABS # MAGNITUDE 10357: 7230 50 1 0004 AXT 4,1 # OUTPUT 5 DIGITS 10360: 7231 44 0 7232 TOV *+1 10361: 7232 14 0 4007 LDQ ZERO 10362: 7233 04 0 4042 DVP BCDL # DIVIDE BY 100K 10363: 7234 12 0 0001 STQ TS1 10364: 7235 30 0 0001 CLZ TS1 # UNROUNDED QUOTIENT 10365: 7236 22 0 4006 ADD 1B17 # ROUND UP 10366: 7237 44 0 7355 TOV MAX # TEST FOR TOO LARGE 10367: 7240 06 0 4041 DOUT MPY 10B17 # EXTRACT DIGIT 10370: 7241 66 0 2200 OUT DEDA # OUTPUT 10371: 7242 66 0 2600 OUT SHOUT 10372: 7243 12 0 0001 STQ TS1 # REMAINDER 10373: 7244 30 0 0001 CLZ TS1 10374: 7245 42 1 7240 TIX *-5,1 10375: 7246 40 0 1123 TRA EXIT47 10376: 7247 14 0 0326 OCTO LDQ DD # OCTAL OUTPUT 10377: 7250 50 1 0004 AXT 4,1 # OUTPUT 5 OCTAL DIGITS 10400: 7251 52 0 0003 LLS 3 # EXTRACT DIGIT 10401: 7252 66 0 2200 OUT DEDA # OUTPUT 10402: 7253 66 0 2600 OUT SHOUT 10403: 7254 56 0 0022 ALS 18 # TIME DELAY 10404: 7255 42 1 7251 TIX *-4,1 10405: 7256 40 0 1123 TRA EXIT47 10406: 7257 10 0 0325 RME STO RMF # READOUT ENTRY 10407: 7260 66 0 2500 OUT SHIN # ENTER ENTRY SET SHIFT IN 10410: 7261 30 0 0327 CLZ CMF # RESET CLEAR MODE 10411: 7262 30 0 0027 CLZ OCTF # OCTAL FLAG 10412: 7263 30 0 0326 CLZ DD # CLEAR DEDA DATA 10413: 7264 20 0 4007 CLA ZERO 10414: 7265 50 1 0002 AXT 2,1 # INPUT 3 DIGIT ADDRESS 10415: 7266 56 0 0003 ALS 3 10416: 7267 10 0 0333 STO ADST 10417: 7270 64 0 2200 INP DEDA # INPUT DIGIT 10420: 7271 66 0 2500 OUT SHIN # SET SHIFT IN 10421: 7272 54 0 0015 LRS 13 10422: 10423: # PAGE 111 10424: 7273 24 0 4017 SUB 8B17 # TEST FOR ERROR 10425: 7274 46 0 7276 TMI *+2 10426: 7275 40 0 1124 TRA EXIT48 # ERROR EXIT 10427: 7276 22 0 4017 ADD 8B17 10430: 7277 32 0 0333 ADZ ADST # ASSEMBLE ADDRESS 10431: 7300 42 1 7266 TIX *-10,1 10432: 7301 10 0 0333 STO ADST 10433: 7302 64 0 2200 INP DEDA 10434: 7303 66 0 2500 OUT SHIN 10435: 7304 56 0 0004 ALS 4 10436: 7305 10 0 0002 STO TS2 # SIGN 10437: 7306 20 0 0333 CLA ADST 10440: 7307 40 0 1125 TRA EXIT49 # SCALE FACTOR SELECT 10441: 7310 20 0 4036 NOTDD CLA MS # SET OCTAL FLAG 10442: 7311 10 0 0027 STO OCTF 10443: 7312 20 0 0325 CLA RMF # EXIT IF READOUT 10444: 7313 46 0 1123 TMI EXIT47 10445: 7314 50 1 0004 AXT 4,1 # INPUT 5 OCTAL DIGITS 10446: 7315 64 0 2200 INP DEDA 10447: 7316 66 0 2500 OUT SHIN 10450: 7317 54 0 0016 LRS 14 10451: 7320 32 0 0326 ADZ DD # ASSEMBLE WORD 10452: 7321 52 0 0003 LLS 3 10453: 7322 10 0 0326 STO DD 10454: 7323 42 1 7315 TIX *-6,1 10455: 7324 32 0 0002 ADZ TS2 # ADD SIGN 10456: 7325 40 0 7344 TRA STDD 10457: 7326 20 0 0325 DDIN CLA RMF # DECIMAL DATA 10460: 7327 46 0 1123 TMI EXIT47 # EXIT IF READOUT 10461: 7330 50 1 0004 AXT 4,1 # READ 5 DIGITS 10462: 7331 40 0 7336 TRA *+5 10463: 7332 66 0 2500 OUT SHIN 10464: 7333 06 0 7512 MPY 10B4 # MULTIPLY BY 10 10465: 7334 52 0 0004 LLS 4 # SCALE 10466: 7335 10 0 0326 STO DD 10467: 7336 64 0 2200 INP DEDA 10470: 7337 54 0 0015 LRS 13 10471: 10472: # PAGE 112 10473: 7340 32 0 0326 ADZ DD # ASSEMBLE WORD 10474: 7341 42 1 7332 TIX *-7,1 10475: 7342 40 0 1126 EX50 TRA EXIT50 10476: 7343 04 0 0026 DVP SF # SCALE FACTOR 10477: 7344 10 0 0326 STDD STO DD 10500: 7345 30 0 0002 CLZ TS2 10501: 7346 46 0 7350 TMI *+2 # COMPLEMENT IF MINUS 10502: 7347 40 0 1127 TRA EXIT51 # IMMEDIATE ACTION TEST 10503: 7350 30 0 0326 CLZ DD # COMPLEMENT 10504: 7351 60 0 0000 COM 10505: 7352 40 0 7344 TRA STDD 10506: 7353 20 0 4006 SNS CLA 1B17 # PICK UP NEGATIVE SIGN 10507: 7354 40 0 7220 TRA SOUT 10510: 7355 20 0 4030 MAX CLA PMAX # GET MAXIMUM NUMBER 10511: 7356 40 0 7240 TRA DOUT 10512: 10513: # ABSOLUTE TIME INITIALIZE 10514: 10515: 7357 20 0 0615 ATI CLA MU10 # CYCLE COUNT 10516: 7360 14 0 4007 LDQ ZERO 10517: 7361 04 0 0667 DVP M25B16 # MINUS SEC AT 1 10520: 7362 22 0 0670 ADD DTB # 1+TIME BIAS 10521: 7363 22 0 5033 ADD 1B1 # +1 SEC 10522: 7364 10 0 0353 STO TA2 # 2+BIAS-CYCLE COUNT 10523: 7365 20 0 0326 CLA DD # INPUT TIME 10524: 7366 24 0 4006 SUB 1B17 # T-2 SEC 10525: 7367 10 0 0377 STO TA1 # MOST SIG ABS TIME 10526: 7370 40 0 1123 TRA EXIT47 10527: 10530: # AGS TELEMETRY OUTPUT 10531: 10532: 7371 12 0 0023 TME STQ SREX 10533: 7372 64 0 2020 INP DISC1I 10534: 7373 56 0 0002 ALS 2 # TEST FOR STOP 10535: 7374 46 0 0023 TMI SREX # EXIT IF NOT 10536: 7375 30 0 0723 CLZ TMID 10537: 7376 22 0 4006 ADD 1B17 # INCREMENT IDENT NUMBER 10540: 10541: # PAGE 113 10542: 7377 10 0 0723 STO TMID 10543: 7400 22 0 1006 ADD TMCLA # SET UP TO GET WORD 10544: 7401 10 0 0021 STO SREX-2 10545: 7402 24 0 1006 SUB TMCLA # GET ID 10546: 7403 56 0 0014 ALS 12 10547: 7404 66 0 6200 OUT TMIDO # OUTPUT IDENTIFICATION 10550: 7405 20 0 4045 CLA TMOUT # OUTPUT INSTRUCTION 10551: 7406 10 0 0022 STO SREX-1 10552: 7407 40 0 0021 TRA SREX-2 10553: 10554: # TELEMETRY INITIALIZE 10555: 10556: 7410 30 0 0723 TMIE2 CLZ TMID # RESET TO FIRST WORD 10557: 7411 50 1 0002 AXT 2,1 10560: 7412 20 1 0130 CLA A11,1 # SAVE DIRECTION COSINES 10561: 7413 10 1 0330 STO A11T,1 # FOR TELEMETRY 10562: 7414 20 1 0134 CLA A31,1 10563: 7415 10 1 0334 STO A31T,1 10564: 7416 42 1 7412 TIX *-4,1 10565: 7417 40 0 6764 TRA EXIT 10566: 10567: # PGNS DOWNLINK INPUT 10570: 10571: 7420 12 0 0023 PGNSDE STQ SREX 10572: 7421 20 0 0563 CLA DLIF # DOWNLINK INITIALIZE FLAG 10573: 7422 46 0 7424 TMI *+2 10574: 7423 40 0 0023 TRA SREX # EXIT 10575: 7424 64 0 2020 INP DISC1I 10576: 7425 56 0 0001 ALS 1 # TEST FOR STOP 10577: 7426 46 0 0023 TMI SREX # PULSE RECEIVED 10600: 7427 64 0 6200 INP DLREG # INPUT WORD 10601: 7430 54 0 0002 LRS 2 # DISCARD UNWANTED BITS 10602: 7431 10 0 0012 STO TS12 # SAVE INPUT 10603: 7432 20 0 0570 CLA ID1F # TEST FOR PRIOR ID 10604: 7433 46 0 7450 TMI PGNSD1 # NUMBER 1 FOUND 10605: 7434 30 0 0012 CLZ TS12 # TEST IF CURRENT 10606: 7435 46 0 0023 TMI SREX # WORD IS AN ID 10607: 10610: # PAGE 114 10611: 7436 24 0 0671 SUB ID1 # TEST FOR PROPER ID 10612: 7437 62 0 0000 ABS 10613: 7440 60 0 0000 COM 10614: 7441 46 0 0023 TMI SREX 10615: 7442 20 0 4025 CLA K173 # IS IDAI OR IDRP 10616: 7443 10 0 0570 STO ID1F # SET FLAG 10617: 7444 30 0 0562 CLZ DLWN # ZERO WORD NUMBER 10620: 7445 20 0 4011 PBNSD2 CLA 1B5 10621: 7446 10 0 0037 STO DLSC # SET SHIFT COUNT 10622: 7447 40 0 0023 TRA SREX # EXIT 10623: 7450 40 0 1023 PGNSD1 TRA EXIT7 10624: 7451 30 0 0037 CLZ DLSC 10625: 7452 56 0 0001 ALS 1 # TEST FOR ID 10626: 7453 46 0 7445 TMI PBNSD2 # WORD EXPECTED 10627: 7454 10 0 0037 STO DLSC 10630: 7455 30 0 0562 CLZ DLWN 10631: 7456 22 0 4006 ADD 1B17 # INCREMENT WORD NUMBER 10632: 7457 10 0 0562 STO DLWN 10633: 7460 22 0 1010 ADD DLSTO # FORM STORE COMMAND 10634: 7461 10 0 0022 STO SREX-1 10635: 7462 24 0 0672 SUB DLWNL # TEST FOR LAST WORD 10636: 7463 46 0 7467 TMI *+4 10637: 7464 30 0 0570 CLZ ID1F # RESET ID1 FLAG 10640: 7465 30 0 0563 CLZ DLIF # RESET INITIALIZE FLAG 10641: 7466 10 0 0571 STO IDRF # SET DATA RECEIVED FLAG 10642: 7467 30 0 0012 CLZ TS12 10643: 7470 56 0 0003 ALS 3 10644: 7471 40 0 0022 TRA SREX-1 10645: 10646: # SELF-TEST ROUTINE 10647: 7472 20 0 0572 TEST CLA FLAGT 10650: 7473 46 0 7722 TMI CKSUM 10651: 7474 20 0 0412 CLA S12 10652: 7475 24 0 7701 SUB 1B3 10653: 7476 46 0 7502 TMI *+4 10654: 7477 24 0 4065 SUB 1B2 10655: 7500 46 0 7503 TMI *+3 # -- IS LESS THAN 3 10656: 10657: # PAGE 115 10660: 7501 40 0 1130 TRA EXIT52 10661: 7502 66 0 7010 OUT 7010 10662: # LOGIC TEST 10663: 7503 44 0 7504 TOV *+1 # ACCUM. Q REG. OPER. 10664: 7504 14 0 4030 LDQ K170 # 377777 377777 10665: 7505 20 0 4020 CLA SIXTH # 252525 377777 252525 10666: 7506 56 0 0001 ALS 1 # 525252 10667: 7507 12 0 0000 1K7 STQ TS0 10670: 7510 72 0 7775 TSQ OVFLW # TEST FOR OVERFLOW 10671: 7511 54 0 0021 LRS 17 # 777777 525252 10672: 7512 24 0 0000 10B4 SUB TS0 # 400000 525252 377777 10673: 7513 12 0 0000 STQ TS0 10674: 7514 44 0 7772 TOV ERROR # TEST RESET OF OVERFLOW 10675: 7515 60 0 0000 COM # 400000 10676: 7516 46 0 7520 TMI *+2 10677: 7517 40 0 7772 TRA ERROR 10700: 7520 14 0 0000 3B3 LDQ TS0 # 400000 525252 525252 10701: 7521 52 0 0021 LLS 17 # 125252 000000 10702: 7522 12 0 0001 STQ TS1 10703: 7523 72 0 7775 TSQ OVFLW 10704: 7524 24 0 0001 SUB TS1 # 125252 000000 10705: 7525 24 0 0000 SUB TS0 # 400000 525252 10706: 7526 56 0 0001 ALS 1 # 000000 10707: 7527 72 0 7775 TSQ OVFLW 10710: 7530 14 0 4003 LDQ 4B17 # 000000 000004 000004 10711: 7531 52 0 0037 LLS 31 # 200000 000000 10712: 7532 44 0 7772 TOV ERROR # NO OVERFLOW 10713: 7533 14 0 4036 LDQ MS # 200000 400000 400000 10714: 7534 12 0 0001 STQ TS1 10715: 7535 54 0 0020 LRS 16 # 000001 000000 10716: 7536 22 0 0001 ADD TS1 # 400001 000000 400000 10717: 7537 12 0 0002 STQ TS2 10720: 7540 22 0 0002 ADD TS2 10721: 7541 46 0 7543 TMI *+2 10722: 7542 40 0 7772 TRA ERROR 10723: 7543 22 0 4030 ADD K170 # 000000 000000 377777 10724: 7544 46 0 7772 TMI ERROR 10725: 10726: # PAGE 116 10727: 7545 44 0 7772 TOV ERROR 10730: 7546 60 0 0000 COM # 000000 10731: 7547 72 0 7767 TSQ ACCUM # 777777 10732: 7550 60 0 0000 COM # 000001 10733: 7551 62 0 0000 ABS # 000001 10734: 7552 50 1 0007 AXT 7,1 10735: 7553 10 1 0000 STO TS0,1 # STORE 8 NUMBERS IN 10736: 7554 24 0 4006 SUB 1B17 # SEQUENCE 10737: 7555 42 1 7553 TIX *-2,1 10740: 7556 20 0 4006 CLA 1B17 # 000001 000001 10741: 7557 30 0 0004 CLZ TS4 # 777776 777776 10742: 7560 56 0 0017 ALS 15 # 600000 10743: 7561 44 0 7772 TOV ERROR 10744: 7562 36 0 0005 MPZ TS5 # 000001 200000 777777 10745: 7563 34 0 0007 SUZ TS7 # 000000 200000 000001 10746: 7564 52 0 0003 LLS 3 # 000004 000000 10747: 7565 32 0 0002 ADZ TS2 # 000000 000000 777774 10750: 7566 50 1 0003 AXT 3,1 10751: 7567 22 1 0004 ADD TS4,1 10752: 7570 42 1 7567 TIX *-1,1 10753: 7571 50 1 0007 AXT 7,1 10754: 7572 50 1 0000 AXT 0,1 10755: 7573 34 1 0003 SUZ TS3,1 # 000003 000000 777775 10756: 7574 42 1 7772 TIX ERROR,1 10757: 7575 50 1 0002 AXT 2,1 10760: 7576 32 0 0001 ADZ TS1 # 777776 000000 777773 10761: 7577 42 1 7600 TIX *+1,1 10762: 7600 42 1 7601 TIX *+1,1 10763: 7601 34 1 0000 SUZ TS0,1 # 000004 000000 777772 10764: 7602 50 1 0003 AXT 3,1 10765: 7603 32 1 0000 ADZ TS0,1 10766: 7604 42 1 7603 TIX *-1,1 10767: 7605 22 0 4036 ADD MS # 400004 400000 10770: 7606 62 0 0000 ABS # 377774 10771: 7607 22 0 4030 ADD K170 # 777773 377777 10772: 7610 72 0 7775 TSQ OVFLW 10773: 7611 62 0 0000 ABS # 000005 10774: 10775: # PAGE 117 10776: 7612 52 0 0000 LLS 0 10777: 7613 24 0 4002 SUB 5B17 # 000000 000005 11000: 7614 72 0 7767 TSQ ACCUM # 777777 11001: 7615 20 0 0000 CLA TS0 # 000000 000000 11002: 7616 40 0 7621 TRA *+3 11003: 7617 72 0 7767 TSQ ACCUM # 777777 11004: 7620 40 0 7622 TRA *+2 11005: 7621 40 0 7617 TRA *-2 11006: 7622 10 0 0000 STO TS0 11007: 7623 22 0 4006 ADD 1B17 # 000000 000001 11010: 7624 20 0 0000 CLA TS0 # 777777 777777 11011: 7625 24 0 0000 SUB TS0 # 000000 777777 11012: 7626 72 0 7767 TSQ ACCUM # 777777 11013: 7627 56 0 0020 ALS 16 # 600000 11014: 7630 06 0 0000 MPY TS0 # 000000 200000 777777 11015: 7631 12 0 0001 STQ TS1 11016: 7632 22 0 0001 ADD TS1 # 200000 200000 200000 11017: 7633 24 0 5033 SUB 1B1 # 000000 200000 200000 11020: 7634 22 0 4020 ADD SIXTH # 252525 200000 252525 11021: 7635 26 0 4004 MPR 3B17 # 000002 377777 000003 11022: 7636 22 0 0000 ADD TS0 # 000001 377777 777777 11023: 7637 04 0 4005 DVP 2B17 # 377777 377777 000002 11024: 7640 44 0 7772 TOV ERROR 11025: 7641 12 0 0002 STQ TS2 11026: 7642 24 0 4030 SUB K170 # 000000 377777 377777 11027: 7643 24 0 4030 SUB K170 # 400001 377777 377777 11030: 7644 22 0 0002 ADD TS2 # 000000 377777 377777 11031: 7645 22 0 4020 ADD SIXTH # 252525 377777 252525 11032: 7646 24 0 4002 SUB 5B17 # 252525 377777 000005 11033: 7647 26 0 4020 MPR SIXTH # 161612 161620 252525 11034: 7650 12 0 0002 STQ TS2 11035: 7651 24 0 0002 SUB TS2 # 777772 161620 161620 11036: 7652 54 0 0021 LRS 17 # 777777 777772 11037: 7653 04 0 4003 DVP 4B17 # 777777 777776 000004 11040: 7654 12 0 0002 STQ TS2 11041: 7655 22 0 0002 ADD TS2 # 777775 777776 777776 11042: 7656 22 0 4004 ADD 3B17 # 000000 777776 000003 11043: 11044: # PAGE 118 11045: 7657 24 0 4020 SUB SIXTH # 525253 777776 252525 11046: 7660 10 0 0003 STO TS3 11047: 7661 26 0 0003 MPR TS3 # 161616 307071 525253 11050: 7662 04 0 0003 DVP TS3 # 525251 525251 525253 11051: 7663 06 0 4020 MPY SIXTH # 616160 743435 252525 11052: 7664 04 0 4020 DVP SIXTH # 525251 525251 252525 11053: 7665 22 0 4005 ADD 2B17 # 525253 525251 000002 11054: 7666 22 0 0003 ADD TS3 # 252526 525253 11055: 7667 72 0 7775 TSQ OVFLW 11056: 7670 24 0 0003 SUB TS3 # 525253 525253 11057: 7671 72 0 7775 TSQ OVFLW 11060: 7672 24 0 4020 SUB SIXTH # 252526 252525 11061: 7673 72 0 7775 TSQ OVFLW 11062: 7674 60 0 0000 COM 11063: 7675 22 0 4020 ADD SIXTH # 777777 252525 11064: 7676 14 0 0006 LDQ TS6 # 777777 000000 000000 11065: 7677 22 0 0000 ADD TS0 # 777776 000000 777777 11066: 7700 54 0 0002 LRS 2 # 777777 600000 11067: 7701 04 0 0000 1B3 DVP TS0 # 200000 177777 777777 11070: 7702 12 0 0000 STQ TS0 11071: 7703 72 0 7775 TSQ OVFLW 11072: 7704 24 0 0000 SUB TS0 # 000001 177777 11073: 7705 24 0 4006 SUB 1B17 # 000000 000001 11074: 7706 72 0 7767 TSQ ACCUM # 777777 11075: 7707 20 0 4004 CLA 3B17 11076: 7710 04 0 4005 DVP 2B17 11077: 7711 72 0 7775 TSQ OVFLW # END OF LOGIC TEST 11100: 7712 20 0 4036 SETFG CLA MS 11101: 7713 10 0 0572 STO FLAGT # SET TEST FLAG 11102: 7714 30 0 0137 CLZ SUM 11103: 7715 20 0 1007 CLA TCLTH # INITIALIZE MEMORY 11104: 7716 10 0 0024 STO TVARBR # TEST 11105: 7717 20 0 7002 CLA CLATEN 11106: 7720 10 0 0663 STO SUMLIM 11107: 7721 40 0 1130 TRA EXIT52 11110: # MEMORY CHECKSUM ROUTINE 11111: 7722 72 0 7750 CKSUM TSQ MEMSUM # PERFORM SUMMATION 11112: 11113: # PAGE 119 11114: 7723 30 0 0137 CLZ SUM # TEST SUM 11115: 7724 46 0 7727 TMI *+3 11116: 7725 24 0 4006 SUB 1B17 11117: 7726 46 0 7742 TMI COREX 11120: 7727 20 0 0412 CLA S12 # INCORRECT SUM 11121: 7730 24 0 7520 SUB 3B3 # SET TEST WORD BITS 11122: 7731 46 0 7735 TMI *+4 # AND TEST MODE FAILURE 11123: 7732 20 0 5427 CLA 7B3 # INDICATOR 11124: 7733 10 0 0412 STO S12 11125: 7734 40 0 7737 TRA *+3 11126: 7735 20 0 5033 CLA 1B1 11127: 7736 66 0 6410 OUT 6410 11130: 7737 10 0 0412 STO S12 11131: 7740 30 0 0572 CLZ FLAGT # RESET FLAG 11132: 7741 40 0 1130 TRA EXIT52 11133: 7742 20 0 0412 COREX CLA S12 # CORRECT SUM 11134: 7743 24 0 4006 SUB 1B17 11135: 7744 46 0 7746 TMI *+2 11136: 7745 40 0 7740 TRA *-5 11137: 7746 20 0 7701 CLA 1B3 11140: 7747 40 0 7737 TRA COREX-3 11141: 7750 12 0 0023 MEMSUM STQ SREX # MEMORY SUMMATION SUBRT. 11142: 7751 30 0 0153 CLZ WRDCNT 11143: 7752 72 0 0024 TSQ TVARBR 11144: 7753 32 0 0137 ADZ SUM # FORM SUM 11145: 7754 10 0 0137 STO SUM 11146: 7755 20 0 0024 CLA TVARBR 11147: 7756 24 0 0663 SUB SUMLIM # TEST FOR LIMIT 11150: 7757 46 0 7761 TMI *+2 11151: 7760 40 0 0023 TRA SREX 11152: 7761 30 0 0153 CLZ WRDCNT 11153: 7762 22 0 4006 ADD 1B17 11154: 7763 10 0 0153 STO WRDCNT # INCREMENT WORD COUNTER 11155: 7764 24 0 0664 SUB WORDS 11156: 7765 46 0 7752 TMI MEMSUM+2 11157: 7766 40 0 1131 TRA EXIT53 11160: 7767 46 0 7772 ACCUM TMI ERROR # SUBROUTINE TO TEST FOR 11161: 11162: # PAGE 120 11163: 7770 24 0 4006 SUB 1B17 11164: 7771 46 0 6764 TMI EXIT 11165: 7772 20 0 7520 ERROR CLA 3B3 11166: 7773 10 0 0412 STO S12 11167: 7774 40 0 7712 TRA SETFG 11170: 7775 44 0 6764 OVFLW TOV EXIT # OVERFLOW TEST 11171: 7776 40 0 7772 TRA ERROR 11172: 11173: # INPUT-OUTPUT ADDRESSES 11174: 11175: 7777 CHECKSUM RANGE 4000-7776 11176: 6200 DLREG DEFINE 6200 11177: 2020 DISC1I DEFINE 2020 # DISCRETE INPUT WORD 1 11200: 2040 DISC2I DEFINE 2040 # DISCRETE INPUT WORD 2 11201: 2200 DEDA DEFINE 2200 11202: 2001 SIALO DEFINE 2001 # DEFINE OUTPUT REGISTERS 11203: 2002 COALO DEFINE 2002 # FOR FDAI ANGLES 11204: 2004 SIBEO DEFINE 2004 11205: 2010 COBEO DEFINE 2010 11206: 2020 SIGAO DEFINE 2020 11207: 2040 COGAO DEFINE 2040 11210: 6001 EXO DEFINE 6001 # DEFINE THE ATT ERROR 11211: 6002 EYO DEFINE 6002 # OUTPUT REGISTERS 11212: 6004 EZO DEFINE 6004 11213: 6200 TMIDO DEFINE 6200 11214: 2600 SHOUT DEFINE 2600 11215: 2500 SHIN DEFINE 2500 11216: 10000 END CHECKSUM at 0206 (0207-1004) = 126003 CHECKSUM at 3777 (1005-3776) = 306163 CHECKSUM at 7777 (4000-7776) = 225333 Symbol Table ------------ 1: 10B17 4041 2: 10B4 7512 3: 12B4 5000 4: 16J 0232 5: 17J 0503 6: 18J 0316 7: 1B1 5033 8: 1B11 4014 9: 1B12 4015 10: 1B13 4016 11: 1B14 4017 12: 1B17 4006 13: 1B2 4065 14: 1B3 7701 15: 1B4 4010 16: 1B5 4011 17: 1B6 4012 18: 1B9 4013 19: 1J 0275 20: 1J1 0240 21: 1J2 0241 22: 1J3 0242 23: 1J4 0260 24: 1J5 0261 25: 1J6 0262 26: 1J7 0254 27: 1J7LS 0255 28: 1K1 0544 29: 1K11 0546 30: 1K13 0552 31: 1K14 0537 32: 1K18 0534 33: 1K19 0540 34: 1K20 0535 35: 1K21 0541 36: 1K22 0536 37: 1K23 0542 38: 1K24 0625 39: 1K25 4021 40: 1K26 0626 41: 1K27 0627 42: 1K28 0630 43: 1K29 0631 44: 1K3 0550 45: 1K30 0617 46: 1K33 0632 47: 1K34 0633 48: 1K35 0634 49: 1K36 0635 50: 1K37 0621 51: 1K4 0624 52: 1K56 0673 53: 1K6 0545 54: 1K7 7507 55: 1K8 0551 56: 1K9 0616 57: 21J 0233 58: 22J 0464 59: 23J 0465 60: 25B17 1043 61: 25J 0223 62: 28J1 0450 63: 28J2 0451 64: 28J3 0452 65: 29J 0274 66: 2B17 4005 67: 2B3 4065 68: 2J 0605 69: 2J1 0244 70: 2J2 0245 71: 2J3 0246 72: 2J4 0264 73: 2J5 0265 74: 2J6 0266 75: 2J7 0272 76: 2J7LS 0273 77: 2K1 0636 78: 2K11 0526 79: 2K14 0217 80: 2K17 0620 81: 2K18 0447 82: 2K19 0230 83: 2K2 0637 84: 2K20 0453 85: 2K3 0216 86: 2K4 0674 87: 2PIB3 4021 88: 3B17 4004 89: 3B3 7520 90: 3J 0312 91: 3K4 0613 92: 3PID4 4022 93: 49B17 4040 94: 4B17 4003 95: 4J 0306 96: 4K10 0227 97: 4K12 0506 98: 4K2 0654 99: 4K21 0666 100: 4K23 0622 101: 4K25 0657 102: 4K26 0454 103: 4K27 0473 104: 4K3 0655 105: 4K34 0660 106: 4K35 0661 107: 4K4 0565 108: 4K5 0662 109: 4K6 0527 110: 4K7 0566 111: 4K8 0602 112: 5B17 4002 113: 5B3 7512 114: 5J 0231 115: 5K14 0560 116: 5K16 0561 117: 5K17 0601 118: 5K18 0564 119: 5K20 0523 120: 5K26 0466 121: 6B17 4001 122: 6B3 5000 123: 6J 0307 124: 6K10 0517 125: 6K2 0457 126: 6K4 0456 127: 6K5 0656 128: 6K6 0522 129: 6K8 0304 130: 6K9 0611 131: 7B17 4000 132: 7B3 5427 133: 7J 0224 134: 8B17 4017 135: 8J 0225 136: 9J 0226 137: A11 0130 138: A11BD 0374 139: A11D 0160 140: A11T 0330 141: A12 0131 142: A12BD 0375 143: A12D 0161 144: A12T 0331 145: A13 0132 146: A13BD 0376 147: A13D 0162 148: A13T 0332 149: A21 0140 150: A22 0141 151: A23 0142 152: A31 0134 153: A31BD 0300 154: A31D 0164 155: A31S 0044 156: A31T 0334 157: A32 0135 158: A32BD 0301 159: A32D 0165 160: A32S 0045 161: A32T 0335 162: A33 0136 163: A33BD 0302 164: A33D 0166 165: A33S 0046 166: A33T 0336 167: ABVEC 7155 168: ACCUM 7767 169: ADDMS 0705 170: ADOUT 7202 171: ADST 0333 172: AE 0173 173: AHE 4437 174: AHE1 4450 175: AI 0173 176: AL 0177 177: ALPHA 0171 178: ALTUP 1710 179: ARCTA1 7064 180: ARCTA2 7113 181: ARCTAE 7034 182: AT 0067 183: ATI 7357 184: ATTERR 4451 185: B11 0010 186: B12 0014 187: B13SF 0704 188: B13VSF 0701 189: B18SF 0700 190: B21 0011 191: B22 0015 192: B23RSF 0703 193: B23SF 0677 194: B31 0012 195: B32 0016 196: B3SF 0702 197: B41 0013 198: B42 0017 199: BACCSF 0446 200: BACK 4044 201: BCDL 4042 202: BM13SF 0676 203: BR1 1012 204: BR2EX 5355 205: BR50 1014 206: BRANCH 0063 207: C1 0513 208: C2 0033 209: CAL 3413 210: CDCC 4146 211: CDH 3773 212: CDH2 3734 213: CDH3 3740 214: CI 0103 215: CKSUM 7722 216: CLADD 1000 217: CLAFR 4046 218: CLATEN 7002 219: CLEARM 1224 220: CLEARP 0323 221: CMF 0327 222: COA21 4275 223: COALO 2002 224: COBEO 2010 225: CODELL 0053 226: COGA 0127 227: COGAO 2040 228: COREX 7742 229: CRSPRD 6373 230: CSI 3650 231: CSICDH 3630 232: CSMPV 5145 233: CSMT1 5520 234: D31 0040 235: DA11 0150 236: DA12 0151 237: DA13 0152 238: DA31 0154 239: DA32 0155 240: DA33 0156 241: DAX 0354 242: DAXA 0530 243: DAXREM 0510 244: DAY 0355 245: DAYA 0531 246: DAYREM 0511 247: DAZ 0356 248: DAZA 0532 249: DAZREM 0512 250: DD 0326 251: DDEL 0547 252: DDF 0455 253: DDIN 7326 254: DEDA 2200 255: DEDABR 1013 256: DEDAE 1212 257: DEDASC 0727 258: DEL10 0577 259: DEL2 0574 260: DEL20 0603 261: DEL21 0604 262: DEL42 0606 263: DEL5 0575 264: DEL6 0576 265: DELAY 4047 266: DELH 0402 267: DELP 6013 268: DELR1 0220 269: DELR2 0222 270: DELR3 0221 271: DELRP 0314 272: DELTA 0212 273: DELTAT 0276 274: DELVG 0267 275: DELVGX 0500 276: DELVGY 0501 277: DELVGZ 0502 278: DEXIT 1222 279: DIAK1 0730 280: DIAK2 0731 281: DIAT 1351 282: DICOS 4223 283: DIGX 0110 284: DIGY 0111 285: DIGZ 0112 286: DISC1 0533 287: DISC1C 0401 288: DISC1I 2020 289: DISC2I 2040 290: DLDC 1376 291: DLIF 0563 292: DLREG 6200 293: DLSC 0037 294: DLSTO 1010 295: DLWN 0562 296: DLWNL 0672 297: DOUT 7240 298: DPDOUT 0443 299: DPOUT 0215 300: DPSQ 6667 301: DPSQ1 6673 302: DPSQ2 6714 303: DPSQ3 6716 304: DPTSB 6746 305: DPVMAG 6737 306: DQSX 0050 307: DRX 0104 308: DRY 0105 309: DRZ 0106 310: DSP1 3345 311: DSP2CP 3356 312: DSPF1 0567 313: DSPLY 6274 314: DSPLY1 6306 315: DSPLY2 6330 316: DSPLY3 6346 317: DSPLY4 6357 318: DSPSC 0543 319: DTB 0670 320: DUMCLA 5033 321: DVGXX 0460 322: DVINT 4326 323: DVS 4074 324: DVSX 0120 325: DVSY 0121 326: DVSZ 0122 327: DVX 0350 328: DVXM1 0074 329: DVY 0351 330: DVYM1 0075 331: DVZ 0352 332: DVZM1 0076 333: DX10P 2614 334: DXFR1 2577 335: DXFR10 2613 336: DXFR13 2660 337: DXFR14 2723 338: DXFRR5 2621 339: E1 0144 340: E13 0146 341: E3 0145 342: EADICS 4772 343: ELPRD 6535 344: ELPRD1 6543 345: ELPRD2 6620 346: ELPRD3 6642 347: ENCOM1 1475 348: ENTERP 0321 349: EONS10 0343 350: EROUT 4475 351: ERROR 7772 352: ESQ 0172 353: EX 0070 354: EX1 4072 355: EX16 4644 356: EX17 4666 357: EX27 5412 358: EX28 5266 359: EX29 5304 360: EX3 4142 361: EX30 5331 362: EX33 5551 363: EX33P 3577 364: EX33PP 3620 365: EX34 5614 366: EX34P 0745 367: EX35 3611 368: EX36 6066 369: EX36P 0734 370: EX37 0750 371: EX4 4221 372: EX44 6467 373: EX45 6504 374: EX46 7224 375: EX50 7342 376: EX8 4325 377: EX9 4354 378: EXEC 6261 379: EXEC1 6360 380: EXEC2 3371 381: EXEC3 3513 382: EXEC6 3536 383: EXECA 3453 384: EXECM 3376 385: EXECM1 3400 386: EXECM2 3533 387: EXIT 6764 388: EXIT1 1015 389: EXIT10 1026 390: EXIT11 1027 391: EXIT12 1030 392: EXIT13 1031 393: EXIT14 1032 394: EXIT15 1033 395: EXIT16 1034 396: EXIT17 1035 397: EXIT18 1036 398: EXIT19 1037 399: EXIT2 1016 400: EXIT20 1040 401: EXIT21 1041 402: EXIT22 1042 403: EXIT23 1044 404: EXIT24 1050 405: EXIT25 1051 406: EXIT26 1056 407: EXIT27 1057 408: EXIT28 1060 409: EXIT29 1065 410: EXIT3 1017 411: EXIT30 1067 412: EXIT31 1070 413: EXIT32 1071 414: EXIT33 1072 415: EXIT34 1073 416: EXIT35 1074 417: EXIT36 1075 418: EXIT37 1076 419: EXIT38 1077 420: EXIT39 1100 421: EXIT4 1020 422: EXIT40 1101 423: EXIT41 1110 424: EXIT42 1111 425: EXIT43 1112 426: EXIT44 1120 427: EXIT45 1121 428: EXIT46 1122 429: EXIT47 1123 430: EXIT48 1124 431: EXIT49 1125 432: EXIT5 1021 433: EXIT50 1126 434: EXIT51 1127 435: EXIT52 1130 436: EXIT53 1131 437: EXIT6 1022 438: EXIT7 1023 439: EXIT8 1024 440: EXIT9 1025 441: EXO 6001 442: EY 0071 443: EYEZ 4461 444: EYO 6002 445: EZ 0072 446: EZO 6004 447: FDAI 4626 448: FDAI1 3544 449: FDAIL 4724 450: FLAG1 0573 451: FLAGT 0572 452: FLTR 1723 453: FLTRA 1742 454: FLTRB 2003 455: FLTRC 2047 456: FLTRD 2123 457: FLTRE 2136 458: FLTRF 2161 459: FLTRG 2204 460: FLTRH 2226 461: FLTRI 2232 462: FLTRJ 2316 463: FLTRK 2371 464: FLTRL 2415 465: FLTRTM 2001 466: FLTRX 1777 467: GDLAW 6136 468: GDLAW3 3131 469: GDLAW4 3152 470: GM 2556 471: GRAV 5400 472: GRAV1 5421 473: GSESR 6214 474: GXDT 0114 475: GYCOM 4111 476: GYDT 0115 477: GZDT 0116 478: H 0337 479: HDOT 0367 480: HET 1243 481: HMF 0324 482: HOLDP 0322 483: HRC 4405 484: HRC1 4421 485: HRF 0553 486: HRINT 4431 487: HUGH 1204 488: IC1 5070 489: IC1BR 1011 490: IC2 5110 491: IC3 5135 492: ID1 0671 493: ID1F 0570 494: IDLE 3263 495: IDRF 0571 496: IMPBK1 6071 497: IMUDC 5061 498: INCMU7 3432 499: INIT 6177 500: INTAS 4255 501: IR 1507 502: IR1 1516 503: IR2 1562 504: IR3 1572 505: K170 4030 506: K171 4027 507: K172 4026 508: K173 4025 509: K180 4034 510: K181 4033 511: K182 4032 512: K183 4031 513: K55 0607 514: KDT 0675 515: KINGK 2506 516: KSR 7147 517: L11 0554 518: L12 0234 519: L21 0555 520: L22 0235 521: L31 0556 522: L32 0236 523: L41 0557 524: L42 0237 525: LILA 0554 526: LILC 0557 527: LILE 0555 528: LILJ 0556 529: LL3DOT 3552 530: LMORB 5444 531: LMORB1 5514 532: LMORB2 2446 533: LRI 4373 534: LUNAL 4534 535: LUNAL1 1661 536: LUNAZ 6154 537: M1B1 4126 538: M25B16 0667 539: MABEE 3525 540: MAX 7355 541: MEMSUM 7750 542: MODCK 1156 543: MODE 1602 544: MODE1 1611 545: MS 4036 546: MU10 0615 547: MU17 0167 548: MU3 0610 549: MU6 0612 550: MU7 0717 551: MU8 0614 552: MU8S12 0363 553: NAV 5161 554: NAV1 5175 555: NAV1P 1670 556: NAV2 5205 557: NAV3 5217 558: NAV4 5223 559: NE 0077 560: NEWDD 3461 561: NI 0077 562: NMAX 4037 563: NOC 4743 564: NORM 6721 565: NORM1 6735 566: NORMV 6422 567: NORTON 3555 568: NOTDD 7310 569: OCTF 0027 570: OCTO 7247 571: ORBIT3 2651 572: ORBLIN 1143 573: ORBLM 2453 574: ORBPAR 5277 575: ORBPM 6444 576: ORBPM1 6452 577: ORBRET 0732 578: OUT 3332 579: OUT1 3317 580: OVFLT 3335 581: OVFLW 7775 582: P 0170 583: P11 0640 584: P12 0641 585: P13 0642 586: P14 0643 587: P21 0644 588: P22 0645 589: P23 0646 590: P24 0647 591: P33 0650 592: P34 0651 593: P43 0652 594: P44 0653 595: PART 0467 596: PBNSD2 7445 597: PDOTM1 0437 598: PDOUT 0444 599: PGNSD1 7450 600: PGNSDE 7420 601: PHIP 0117 602: PI 1066 603: PID2 4023 604: PID4 4024 605: PINIT 2106 606: PITER1 5771 607: PITER2 6026 608: PITER3 6033 609: PMAX 4030 610: POUT 0214 611: POUTFS 0213 612: PP 0212 613: PSIP 0113 614: PUPDAT 1772 615: Q1 0172 616: Q11 0073 617: Q12 0143 618: Q1DEDA 0402 619: Q22 0170 620: Q5 3041 621: Q7 3212 622: QA 0315 623: QL 0343 624: QLTELE 0403 625: R 0210 626: R0 0207 627: R0X 0204 628: R0Y 0205 629: R0Z 0206 630: R5X 0174 631: R5Y 0175 632: R5Z 0176 633: RADOT 0477 634: RANGE 2231 635: RATE 2127 636: RB 0271 637: RCX 0344 638: RCY 0345 639: RCZ 0346 640: RD2DOT 0554 641: RD3DOT 0504 642: RD3DTL 0600 643: RDOTS 0441 644: RDOTX 0030 645: RDOTY 0031 646: RDOTZ 0032 647: READP 0320 648: RETURN 6246 649: REX 0200 650: REY 0201 651: REZ 0202 652: RF 0347 653: RFDOT 0423 654: RIX 0220 655: RIY 0221 656: RIZ 0222 657: RME 7257 658: RMF 0325 659: RND 1002 660: RND1 4260 661: RND2 4432 662: ROR 7215 663: RPT 1236 664: RR 0317 665: RRDOT 0440 666: RRSX 0234 667: RRSY 0235 668: RRSZ 0236 669: RRT 3572 670: RRX 0124 671: RRY 0125 672: RRZ 0126 673: RST 4524 674: RST1 1561 675: RSTE 1524 676: RT 0203 677: RVCOMP 5124 678: RX 0340 679: RY 0341 680: RZ 0342 681: S0 0400 682: S10 0410 683: S11 0411 684: S12 0412 685: S13 0413 686: S14 0414 687: S15 0415 688: S16 0416 689: S17 0417 690: S507 0507 691: S623 0623 692: S7 0407 693: SDVX 0714 694: SDVY 0715 695: SDVZ 0716 696: SETFG 7712 697: SF 0026 698: SF1 1342 699: SFA 1334 700: SFACC 1344 701: SFG 1346 702: SFL1 0720 703: SFL2 0721 704: SFL3 0722 705: SFL4 0726 706: SFL6 0733 707: SFL7 0725 708: SFL8 0724 709: SFLO 0713 710: SFP 1326 711: SFR 1340 712: SFT 1330 713: SFT1 1336 714: SFTEST 1251 715: SFV 1332 716: SHDUM 4035 717: SHFT1 4261 718: SHFT2 4433 719: SHIN 2500 720: SHOUT 2600 721: SI 0043 722: SIALO 2001 723: SIBEO 2004 724: SICO1 7021 725: SICO2 7002 726: SICOE 6767 727: SIDELL 0047 728: SIGA 0123 729: SIGAO 2020 730: SINITC 1052 731: SIXTH 4020 732: SNS 7353 733: SOFT1 1452 734: SOFT2 1635 735: SOFT3 1467 736: SOUT 7220 737: SPULSE 4741 738: SQRT1 7144 739: SQRTE 7123 740: SREX 0023 741: SREX1 0022 742: SREX2 0021 743: SREX3 0020 744: STDD 7344 745: STEER 3164 746: STEER1 3176 747: STEER2 3264 748: STEER3 3304 749: STEER4 3312 750: STEER5 3231 751: STGCTR 1061 752: STOCOM 4065 753: SUM 0137 754: SUMLIM 0663 755: T 0435 756: T1 0147 757: TA0 0372 758: TA1 0377 759: TA2 0353 760: TB 0436 761: TBO 0357 762: TBRAKE 6041 763: TCLTH 1007 764: TCSM 0445 765: TDEL 0310 766: TE1 0520 767: TE2 0524 768: TEST 7472 769: THEF 0753 770: THEP 0107 771: THETAF 0303 772: TI 0442 773: TIG 0373 774: TIMEA 6254 775: TL1 0521 776: TL2 0525 777: TLOS 0303 778: TMCLA 1006 779: TME 7371 780: TMID 0723 781: TMIDO 6200 782: TMIE1 1132 783: TMIE2 7410 784: TMOUT 4045 785: TMPBR 0057 786: TP 0434 787: TPERG 0313 788: TR 0311 789: TRACOM 4036 790: TRNSFR 4043 791: TS0 0000 792: TS1 0001 793: TS10 0010 794: TS11 0011 795: TS12 0012 796: TS13 0013 797: TS14 0014 798: TS15 0015 799: TS16 0016 800: TS17 0017 801: TS2 0002 802: TS3 0003 803: TS4 0004 804: TS5 0005 805: TS6 0006 806: TS7 0007 807: TS8 0133 808: TSEX 0157 809: TVARBR 0024 810: TVTG 1422 811: U1X 0060 812: U1Y 0061 813: U1Z 0062 814: U2X 0030 815: U2Y 0031 816: U2Z 0032 817: UBCOMP 1153 818: V 0433 819: V0X 0424 820: V0Y 0425 821: V0Z 0426 822: V1X 0034 823: V1Y 0035 824: V1Z 0036 825: V2X 0064 826: V2Y 0065 827: V2Z 0066 828: V5X 0460 829: V5Y 0461 830: V5Z 0462 831: V6X 0050 832: V6Y 0051 833: V6Z 0052 834: VCX 0364 835: VCY 0365 836: VCZ 0366 837: VD1X 0404 838: VD1Y 0405 839: VD1Z 0406 840: VD2X 0100 841: VD2Y 0101 842: VD2Z 0102 843: VDX 0470 844: VDY 0471 845: VDZ 0472 846: VEX 0420 847: VEY 0421 848: VEZ 0422 849: VFX 0030 850: VG 0370 851: VGX 0064 852: VH 0427 853: VHA 0463 854: VHSQ 0143 855: VIX 0430 856: VIY 0431 857: VIZ 0432 858: VP0 0371 859: VPY 0263 860: VRUP1 2677 861: VSMGX 0474 862: VSMGY 0475 863: VSMGZ 0476 864: VT 0371 865: VX 0360 866: VY 0361 867: VY0 0270 868: VY0FS 0665 869: VZ 0362 870: W1X 0040 871: W1Y 0041 872: W1Z 0042 873: WBX 0514 874: WBY 0515 875: WBZ 0516 876: WCX 0054 877: WCY 0055 878: WCZ 0056 879: WORDS 0664 880: WRDCNT 0153 881: WRDLP 6224 882: X3 0073 883: X4 0143 884: XDV 2773 885: XDV1 3003 886: XDV2 3014 887: XDV2P 3036 888: XDVS 1676 889: XI 0277 890: XORBV1 5532 891: XORBV2 5563 892: Y 0211 893: YD2DOT 0555 894: YD3DOT 0505 895: ZERO 4007 896: ZERR 1456 897: ZNOC 5056 No duplicate symbols. Successful!