AGS cross-assembler yaLEMAP, May 4 2009, 17:47:33 Copyright 2005 Ronald S. Burkey. Licensed under the General Public License (GPL). 0001: # COPYRIGHT: PUBLIC DOMAIN. 0002: # FILENAME: FP8.S 0003: # PURPOSE: THIS IS THE APOLLO LUNAR MODULE'S FIRMWARE FOR THE 0004: # ABORT GUIDANCE SYSTEM (AGS). THIS IS FLIGHT PROGRAM 8. 0005: # ASSEMBLER: YALEMAP 0006: # CONTACT: RON BURKEY. 0007: # WEBSITE: WWW.IBIBLIO.ORG/APOLLO/YAAGS.HTML 0010: # REFERENCE: HTTP://WWW.IBIBLIO.ORG/APOLLO/PULTORAK_FILES/FP8LISTING.PDF. 0011: # MOD HISTORY: 2005-01-15 RSB BEGAN. 0012: # 2005-01-17 RSB DATA ENTRY COMPLETE, BUT NOT DEBUGGED. 0013: # 2005-01-18 RSB AS OF YESTERDAY, THIS ASSEMBLED WITH 0014: # 86 FATAL ERRORS. THESE HAVE ALL BEEN 0015: # REPAIRED. LOTS OF OTHER STUFF FIXED TOO. 0016: # I KNOW KNOW THAT THE ADDRESSES AND 0017: # OPCODES AT THE ENDS OF EACH PAGE ARE 0020: # CORRECT. HOWEVER, THE CHECKSUMS ARE 0021: # STILL WRONG, SO THE NEXT STEP IS TO 0022: # PROCEED WITH A BINARY COMPARISON. 0023: # 2005-01-18 RSB FULLY DEBUGGED AND READY TO GO. 0024: # IT HAS BEEN COMPLETELY PROOFED AGAINST 0025: # THE BINARY IN THE SCANNED ASSEMBLY 0026: # LISTING, AND THE CHECKSUMS ARE CORRECT. 0027: # (OF COURSE, IT COULD ALWAYS USE MORE 0030: # PROOFING IF SOMEBODY WANTED TO DO IT. 0031: # PARTICULARLY THE PROGRAM COMMENTS.) 0032: # 2005-05-14 RSB CORRECTED WEBSITE REFERENCE ABOVE. 0033: # 2005-06-12 RSB FIXED COMMENTS ON P. 117. 0034: 0053: # PAGE 1 0054: # FLIGHT PROGRAM 8 -- LM AGS FP8 S03 4039 -- 12/18/70 0055: # LM ABORT ELECTRONICS ASSEMBLY 0056: 0057: # SCRATCH PAD STORAGE 0060: 0000 ORG 0000 0061: 0000 000000 TS0 DEC 0 0062: 0001 000000 TS1 DEC 0 0063: 0002 000000 TS2 DEC 0 0064: 0003 000000 TS3 DEC 0 0065: 0004 000000 TS4 DEC 0 0066: 0005 000000 TS5 DEC 0 0067: 0006 000000 TS6 DEC 0 0070: 0007 000000 TS7 DEC 0 0071: 0010 000000 TS10 DEC 0 0072: 0011 000000 TS11 DEC 0 0073: 0012 000000 TS12 DEC 0 0074: 0013 000000 TS13 DEC 0 0075: 0014 000000 TS14 DEC 0 0076: 0015 000000 TS15 DEC 0 0077: 0016 000000 TS16 DEC 0 0100: 0017 000000 TS17 DEC 0 0101: 0020 000000 SREX3 DEC 0 0102: 0021 000000 SREX2 DEC 0 0103: 0022 000000 SREX1 DEC 0 0104: 0023 000000 SREX DEC 0 0105: 0024 000000 TVARBR DEC 0 # TEMP STORE FOR CK SUM. 0106: 0025 40 0 6246 TRA RETURN # SERV ROUT, STARTUP 0107: 0110: # TAPE LOAD STARTUP CHECKSUM 0111: 0112: 0026 66 0 6402 SF OUT 6402 # DEDA INPUT SCALE FACTOR 0113: 0027 64 0 2040 OCTF INP 2040 # DEDA OCTAL INPUT 0114: 0115: # THE NEXT 16 LOCATIONS ARE SHARED 0116: # WITH A RR FILTER TEMPORARY MATRIX 0117: 0120: 0030 56 0 0001 U2X ALS 1 # B1 UNIT RADIAL VECTOR TO 0121: 0031 46 0 0033 U2Y TMI *+2 # B1 TRIAL RENDEZ PT. 0122: 0032 40 0 0027 U2Z TRA *-3 # B1 0123: 0124: # PAGE 2 0125: 0030 D11 EQU U2X # RADAR TEMP. MATRIX (16 LOC) 0126: 0030 VFX EQU U2X # BRAKING VEL VECTOR AT 13. 0127: 0033 70 0 0034 C2 DLY *+1 # B1 RENDEZ ANGLE SINE 0130: 0034 66 0 7012 V1X OUT 7012 # B1 HORIZ UNIT VECTOR 0131: 0035 64 0 6200 V1Y INP 6200 0132: 0036 30 0 0137 V1Z CLZ SUM 0133: 0037 20 0 0066 DLSC CLA V2Z # DOWNLINK SHIFT COUNTER 0134: 0040 10 0 0024 W1X STO TVARBR # B1 U1 X V1 0135: 0040 D31 EQU W1X 0136: 0041 30 0 0153 W1Y CLZ WRDCNT 0137: 0042 72 0 0024 W1Z TSQ TVARBR 0140: 0043 32 0 0137 SI ADZ SUM # B0 E(SIN(E0)) 0141: 0044 10 0 0137 RD2DOT STO SUM # B7 DESIRED RADIAL ACCEL 0142: 0045 20 0 0024 YD2DOT CLA TVARBR # B7 DESIRED OUT-OF-PLANE ACCEL 0143: 0046 24 0 4046 TSEX SUB CLAFR # EXIT FROM NORTON 0144: 0047 46 0 0060 SIDELL TMI U1X # B1 SIN DELTA L 0145: 0050 30 0 0137 V6X CLZ SUM # B13 TEMP STORAGE FOR TPI QUANT 0146: 0051 46 0 0054 V6Y TMI *+3 0147: 0052 24 0 4006 V6Z SUB 1B17 0150: 0050 DQSX EQU V6X # ACCUM VEL IN XDV 0151: 0053 46 0 1101 CODELL TMI EXIT40 # B1 COS DELTA L 0152: 0054 20 0 7512 WCX CLA 10B4 # B1 UNIT VECTOR NORMAL 0153: 0055 10 0 0412 WCY STO S12 # TO CSM ORBIT 0154: 0056 66 0 6410 WCZ OUT 6410 0155: 0057 40 0 1052 TMPBR TRA SINITC # TEMP BRANCH STORE 0156: 0060 30 0 0153 U1X CLZ WRDCNT # B1 LEM UNIT RAD VECTGOR 0157: 0061 22 0 4006 U1Y ADD 1B17 0160: 0062 10 0 0153 U1Z STO WRDCNT 0161: 0063 24 0 4014 BRANCH SUB 1B11 # GUIDANCE BRANCH 0162: 0064 46 0 0042 V2X TMI W1Z # B1 HORZ UNIT VECTOR AT 0163: 0065 70 0 0041 V2Y DLY W1Y # RENDEZ POINT 0164: 0066 20 0 0206 V2Z CLA 0206 0165: 0064 VGX EQU V2X # VEL TO GAIN VECTOR AT L3 0166: 0167: # END OF TAPE LOAD CHECKSUM PROGRAM 1243: # PAGE 17 1244: 1245: 1000 ORG 1000 1246: 1000 000000 CLADD DEC 0 # PICKUP DEDA DATA 1247: 1001 40 0 7215 TRA ROR 1250: 1002 12 0 0023 RND STQ SREX # DIRECTION COSINE ROUND 1251: 1003 22 0 4013 ADD 1B9 1252: 1004 54 0 0011 LRS 9 1253: 1005 40 0 0023 TRA SREX 1254: 1006 20 0 0324 TMCLA CLA 0324 # CLA FOR TELEM 1255: 1007 20 0 1005 TCLTH CLA 1005 1256: 1010 10 0 0237 DLSTO STO 1J1-1 1257: 1011 40 0 5070 IC1BR TRA IC1 # IC1 TRA. 1260: 1012 40 0 1742 BR1 TRA NAV1P 1261: 1013 40 0 1277 DEDABR TRA DEDAE # DEDA BRANCH TRA. 1262: 1014 40 0 3405 BR50 TRA EXEC2 # BRANCH 50 TRA. 1263: 1264: # HARDWIRE ESCAPE POINTS 1265: 1266: 1015 40 0 4073 EXIT1 TRA EX1+1 1267: 1016 40 0 1236 EXIT2 TRA UBCOMP 1270: 1017 40 0 1133 EXIT3 TRA ADDMS 1271: 1020 40 0 4222 EXIT4 TRA EX4+1 1272: 1021 40 0 7420 EXIT5 TRA PGNSDE 1273: 1022 40 0 7371 EXIT6 TRA TME 1274: 1023 40 0 7455 EXIT7 TRA PGNSD1+5 1275: 1024 40 0 4326 EXIT8 TRA EX8+1 1276: 1025 40 0 1426 EXIT9 TRA TVTG 1277: 1026 72 0 1456 EXIT10 TSQ SOFT1 1300: 1027 72 0 1456 EXIT11 TSQ SOFT1 # ASCENT ENG ON 1301: 1030 40 0 4450 EXIT12 TRA AHE1 1302: 1031 40 0 4476 EXIT13 TRA EROUT+1 1303: 1032 72 0 1623 EXIT14 TSQ SOFT2 1304: 1033 40 0 1733 EXIT15 TRA LUNAL1 # GAIN CHANGE 1305: 1034 40 0 4645 EXIT16 TRA EX16+1 1306: 1035 40 0 3560 EXIT17 TRA FDAI1 1307: 1036 40 0 4743 EXIT18 TRA NOC 1310: 1037 40 0 4047 EXIT19 TRA DELAY 1311: 1312: # PAGE 18 1313: 1040 40 0 1405 EXIT20 TRA DLDC 1314: 1041 40 0 6254 EXIT21 TRA TIMEA 1315: 1042 40 0 3341 EXIT22 TRA IDLE-1 1316: 1043 377747 O25C OCT 377747 # TEST FOR TM RESET 1317: 1044 30 0 0404 EXIT23 CLZ VD1X 1320: 1045 30 0 0405 CLZ VD1Y 1321: 1046 30 0 0406 CLZ VD1Z 1322: 1047 40 0 5217 TRA NAV3 1323: 1050 40 0 5205 EXIT24 TRA NAV2 1324: 1051 40 0 5217 EXIT25 TRA NAV3 1325: 1052 20 0 0473 SINITC CLA 4K27 1326: 1053 10 0 0404 STO VD1X 1327: 1054 10 0 0470 STO VDX 1330: 1055 40 0 6367 TRA EXEC1+7 1331: 1056 40 0 1750 EXIT26 TRA XDVS 1332: 1057 40 0 5413 EXIT27 TRA EX27+1 1333: 1060 40 0 5267 EXIT28 TRA EX28+1 1334: 1061 30 0 0612 STGCTR CLZ MU6 # STAGING DELAY COUNTER 1335: 1062 22 0 4006 ADD 1B17 1336: 1063 10 0 0612 STO MU6 1337: 1064 40 0 4437 TRA AHE 1340: 1065 40 0 5305 EXIT29 TRA EX29+1 1341: 1066 20 0 1176 CLATAB CLA SFTAB-1 # CLA FOR DEDA SF TABLE 1342: 1067 40 0 5332 EXIT30 TRA EX30+1 1343: 1070 40 0 1762 EXIT31 TRA ALTUP 1344: 1071 40 0 2456 EXIT32 TRA LMORB2 1345: 1072 40 0 3612 EXIT33 TRA EX33P 1346: 1073 40 0 1141 EXIT34 TRA EX34P 1347: 1074 40 0 3622 EXIT35 TRA EX35 1350: 1075 72 0 0730 EXIT36 TSQ EX36P 1351: 1076 40 0 3623 EXIT37 TRA EX35+1 1352: 1077 40 0 3063 EXIT38 TRA Q5 1353: 1100 40 0 3411 EXIT39 TRA EXECM 1354: 1101 30 0 0400 EXIT40 CLZ S0 # SOFT INITIALIZE 1355: 1102 30 0 0575 CLZ DEL5 1356: 1103 30 0 0572 CLZ FLAGT 1357: 1104 50 1 0007 AXT 7,1 # ZERO S SWITCHES 1360: 1361: # PAGE 19 1362: 1105 30 1 0410 CLZ S10,1 1363: 1106 42 1 1105 TIX *-1,1 1364: 1107 40 0 1052 TRA SINITC # CONTINUE INITIALIZE 1365: 1110 40 0 3356 EXIT41 TRA DSP1 1366: 1111 40 0 3367 EXIT42 TRA DSP2CP 1367: 1112 22 0 1043 EXIT43 ADD O25C # CHECK FOR TM RESET 1370: 1113 62 0 0000 ABS 1371: 1114 46 0 1167 TMI TMIE1 # -- RESET TM AT 25 CYCLE 1372: 1115 40 0 6364 TRA EXEC1+4 # NOT 25TH CYCLE 1373: 1116 077776 IDAI OCT 077776 # AGS INITIALIZE DOWNLIST ID 1374: 1117 077775 IDRP OCT 077775 # REND./PRETHRUST DOWNLIST ID 1375: 1120 40 0 6470 EXIT44 TRA EX44+1 1376: 1121 40 0 6505 EXIT45 TRA EX45+1 1377: 1122 40 0 7225 EXIT46 TRA EX46+1 1400: 1123 40 0 1307 EXIT47 TRA DEXIT 1401: 1124 40 0 1312 EXIT48 TRA CLEARM+1 1402: 1125 40 0 1336 EXIT49 TRA SFTEST 1403: 1126 40 0 7343 EXIT50 TRA EX50+1 1404: 1127 72 0 1362 EXIT51 TSQ DIAT 1405: 1130 40 0 6262 EXIT52 TRA EXEC+1 1406: 1131 40 0 6262 EXIT53 TRA EXEC+1 1407: 1132 10 0 0257 DLWNLC STO 1J1+15 # DLWNL PROTECTION 1410: 1133 50 1 0002 ADDMS AXT 2,1 1411: 1134 20 1 0010 CLA TS10,1 1412: 1135 62 0 0000 ABS 1413: 1136 22 0 4036 ADD MS 1414: 1137 42 1 1134 TIX *-3,1 1415: 1140 40 0 4143 TRA EX3+1 1416: 1141 30 0 0147 EX34P CLZ DEL10 1417: 1142 46 0 3631 TMI EX33PP+1 1420: 1143 40 0 5615 TRA EX34+1 1421: 1144 20 0 0347 THEF CLA RF 1422: 1145 54 0 0001 LRS 1 # B24 1423: 1146 32 0 0003 ADZ TS3 1424: 1147 14 0 0004 LDQ TS4 1425: 1150 10 0 0004 STO TS4 # =RF+RX B24 1426: 1151 12 0 0003 STQ TS3 # =RZ B24 1427: 5641: # PAGE 76 5642: 4763 50 1 0001 AXT 1,1 5643: 4764 20 0 4065 CLA 1B2 5644: 4765 34 1 0144 SUZ E1,1 # 1-E 5645: 4766 56 0 0012 ALS 10 # TO -9 5646: 4767 10 1 0144 STO E1,1 5647: 4770 42 1 4764 TIX *-4,1 5650: 4771 40 0 1037 TRA EXIT19 5651: 5652: # EULER ANGLE DIRECTION COSINES SUBROUTINE 5653: 4772 12 0 0022 EADICS STQ SREX1 5654: 4773 20 0 0107 CLA THEP 5655: 4774 26 0 4021 MPR 2PIB3 # RADIANS AT 3 5656: 4775 72 0 6767 TSQ SICOE 5657: 4776 30 0 0001 CLZ TS1 5660: 4777 10 0 0005 STO TS5 5661: 5000 30 0 0000 12B4 CLZ TS0 # VALUE USED AS CONSTANT 5662: 5001 10 0 0006 STO TS6 5663: 5002 20 0 0113 CLA PSIP 5664: 5003 26 0 4021 MPR 2PIB3 5665: 5004 72 0 6767 TSQ SICOE 5666: 5005 30 0 0001 CLZ TS1 5667: 5006 10 0 0161 STO A12D # 1 5670: 5007 30 0 0000 CLZ TS0 5671: 5010 10 0 0007 STO TS7 5672: 5011 20 0 0117 CLA PHIP 5673: 5012 26 0 4021 MPR 2PIB3 5674: 5013 72 0 6767 TSQ SICOE # INPUTS COMPLETE 5675: 5014 20 0 0007 CLA TS7 5676: 5015 26 0 0006 MPR TS6 5677: 5016 56 0 0001 ALS 1 5700: 5017 10 0 0160 STO A11D # 1 5701: 5020 20 0 0007 CLA TS7 5702: 5021 26 0 0005 MPR TS5 5703: 5022 56 0 0001 ALS 1 5704: 5023 60 0 0000 COM 5705: 5024 10 0 0162 STO A13D # 1 5706: 5025 20 0 0001 CLA TS1 5707: 5710: # PAGE 77 5711: 5026 26 0 0161 MPR A12D 5712: 5027 56 0 0001 ALS 1 5713: 5030 10 0 0003 STO TS3 5714: 5031 26 0 0006 MPR TS6 5715: 5032 10 0 0004 STO TS4 5716: 5033 20 0 0000 1B1 CLA TS0 # COSINE PHI 5717: 5034 26 0 0005 MPR TS5 5720: 5035 32 0 0004 ADZ TS4 5721: 5036 56 0 0001 ALS 1 5722: 5037 10 0 0164 STO A31D # 1 5723: 5040 30 0 0001 CLZ TS1 5724: 5041 36 0 0007 MPZ TS7 5725: 5042 56 0 0001 ALS 1 5726: 5043 60 0 0000 COM 5727: 5044 10 0 0165 STO A32D # 1 5730: 5045 30 0 0003 CLZ TS3 5731: 5046 36 0 0005 MPZ TS5 5732: 5047 10 0 0004 STO TS4 5733: 5050 30 0 0000 CLZ TS0 5734: 5051 36 0 0006 MPZ TS6 5735: 5052 34 0 0004 SUZ TS4 5736: 5053 56 0 0001 ALS 1 5737: 5054 10 0 0166 STO A33D # DI-COS COMPLETE 5740: 5055 40 0 0022 TRA SREX1 # EXIT 5741: 5742: # IMU ALIGN COMPUTATIONS 5743: 5056 30 0 0144 ZNOC CLZ E1 5744: 5057 30 0 0145 CLZ E3 5745: 5060 30 0 0146 CLZ E13 5746: 5061 72 0 4772 IMUDC TSQ EADICS 5747: 5062 50 1 0006 AXT 6,1 5750: 5063 20 1 0160 CLA A11D,1 # REPLACE DIR COSINES 5751: 5064 10 1 0130 STO A11,1 # WITH IMU DIR COSINES. 5752: 5065 30 1 0150 CLZ DA11,1 # ZERO REMAINDERS 5753: 5066 42 1 5063 TIX *-3,1 5754: 5067 40 0 4273 TRA COA21-2 5755: 5756: 5757: # PAGE 78 5760: # INITIALIZE BRANCHES. 5761: 5762: 5070 30 0 0414 IC1 CLZ S14 5763: 5071 24 0 4065 SUB 2B3 5764: 5072 46 0 1040 TMI EXIT20 # TO DL FORMATTIG 5765: 5073 50 1 0002 AXT 2,1 # LEM POS AND VEL DATA 5766: 5074 30 1 0240 CLZ 1J1,1 # LEM POS 5767: 5075 10 1 0204 STO R0X,1 5770: 5076 30 1 0260 CLZ 1J4,1 # LEM VEL 5771: 5077 10 1 0424 STO V0X,1 5772: 5100 42 1 5074 TIX *-4,1 5773: 5101 30 0 0254 CLZ 1J7 # EPOCH TIME MS 5774: 5102 10 0 0521 STO TL1 5775: 5103 30 0 0255 CLZ 1J7LS # EPOCH TIME LS 5776: 5104 10 0 0525 STO TL2 5777: 5105 72 0 6444 TSQ ORBPM 6000: 5106 30 0 0543 CLZ DSPSC # CLEAR DISPLAY COUNTER 6001: 5107 72 0 1041 TSQ EXIT21 6002: 6003: 5110 50 1 0001 IC2 AXT 1,1 6004: 5111 72 0 6746 TSQ DPTSB # COMPUTE DBL PREC TA - TL 6005: 5112 20 0 0604 CLA DEL21 6006: 5113 46 0 5124 TMI RVCOMP 6007: 5114 72 0 6535 TSQ ELPRD # TRNSFR TO ELLIPSE PRED 6010: 5115 50 1 0002 AXT 2,1 6011: 5116 30 1 0220 CLZ RIX,1 6012: 5117 10 1 0340 STO RX,1 6013: 5120 30 1 0430 CLZ VIX,1 6014: 5121 10 1 0360 STO VX,1 6015: 5122 42 1 5116 TIX *-4,1 6016: 5123 40 0 5134 TRA *+9 6017: 5124 50 1 0002 RVCOMP AXT 2,1 6020: 5125 30 1 0424 CLZ V0X,1 6021: 5126 10 1 0360 STO VX,1 6022: 5127 06 0 0442 MPY TI # 13+13=26 6023: 5130 52 0 0003 LLS 3 6024: 5131 32 1 0204 ADZ R0X,1 6025: 6026: # PAGE 79 6027: 5132 10 1 0340 STO RX,1 # AT 23 6030: 5133 42 1 5125 TIX *-6,1 6031: 5134 72 0 6261 TSQ EXEC # IC3 NEXT 6032: 6033: 5135 72 0 5400 IC3 TSQ GRAV # TO GRAVITY 6034: 5136 50 1 0002 AXT 2,1 6035: 5137 30 1 0120 CLZ DVSX,1 6036: 5140 30 1 0104 CLZ DRX,1 6037: 5141 20 1 0114 CLA GXDT,1 6040: 5142 10 1 0110 STO DIGX,1 6041: 5143 42 1 5137 TIX *-4,1 6042: 5144 40 0 1042 TRA EXIT22 6043: 6044: # CSM DL OR DEDA INPUTS TO EPOCH CELLS. 6045: 5145 50 1 0002 CSMPV AXT 2,1 6046: 5146 30 1 0244 CLZ 2J1,1 # CSM POS 6047: 5147 10 1 0200 STO REX,1 6050: 5150 30 1 0264 CLZ 2J4,1 # CSM VEL 6051: 5151 10 1 0420 STO VEX,1 6052: 5152 42 1 5146 TIX *-4,1 6053: 5153 30 0 0272 CLZ 2J7 # CSM EPOCH MS 6054: 5154 10 0 0520 STO TE1 6055: 5155 30 0 0273 CLZ 2J7LS # CSM EPOCH LS 6056: 5156 10 0 0524 STO TE2 6057: 5157 30 0 0436 CLZ TB 6060: 5160 40 0 6764 TRA EXIT 6061: 6062: # NEXT 5 INSTRUCTIONS BYPASSED 6063: 6064: 5161 20 0 0604 NAV CLA DEL21 6065: 5162 46 0 5175 TMI NAV1 # -- IS ON LUNAR SURFACE 6066: 5163 20 0 0464 CLA 0464 6067: 5164 24 0 0470 SUB VDX 6070: 5165 56 0 0006 ALS 6 6071: 6072: # HARDWIRED NAVIGATION 6073: 6074: 6075: # PAGE 80 6076: 5166 10 0 0067 STO AT # 1/2(VD1-VD) AT 7 6077: 5167 24 0 0661 SUB 4K35 # ULLAGE THRESHOLD 6100: 5170 46 0 5203 TMI NAV2-2 # AT-4K35 6101: 5171 30 0 0614 CLZ MU8 # INCR ULLAGE COUNTER. 6102: 5172 22 0 4006 ADD 1B17 6103: 5173 10 0 0614 STO MU8 6104: 5174 40 0 1050 TRA EXIT24 6105: 5175 30 0 0110 NAV1 CLZ DIGX # LUNAR SURFACE NAV. 6106: 5176 30 0 0111 CLZ DIGY 6107: 5177 30 0 0112 CLZ DIGZ 6110: 5200 20 0 0616 CLA 1K9 # ULLAGE COUNT LIMIT 6111: 5201 10 0 0614 STO MU8 6112: 5202 40 0 1044 TRA EXIT23 6113: 5203 30 0 0614 CLZ MU8 # RESET ULLAGE COUNTER. 6114: 5204 40 0 1050 TRA EXIT24 6115: 5205 30 0 0001 NAV2 CLZ TS1 # ACCEL DRIFT TEST. 6116: 5206 50 1 0002 AXT 2,1 6117: 5207 20 1 0120 CLA DVSX,1 6120: 5210 62 0 0000 ABS 6121: 5211 32 0 0001 ADZ TS1 6122: 5212 10 0 0001 STO TS1 6123: 5213 42 1 5207 TIX *-4,1 6124: 5214 24 0 0634 SUB 1K35 6125: 5215 46 0 1051 TMI EXIT25 # COAST PHASE 6126: 5216 40 0 1056 TRA EXIT26 6127: 5217 30 0 0120 NAV3 CLZ DVSX 6130: 5220 30 0 0121 CLZ DVSY 6131: 5221 30 0 0122 CLZ DVSZ 6132: 5222 40 0 1056 TRA EXIT26 6133: 5223 50 1 0002 NAV4 AXT 2,1 # VEL AND POS UPDATE. 6134: 5224 30 1 0120 CLZ DVSX,1 # SENSED VEL AT 7 6135: 5225 32 1 0110 ADZ DIGX,1 # PREDICTED INTG GRAVITY. 6136: 5226 10 1 0110 STO DIGX,1 # 7 6137: 5227 22 0 4015 ADD 1B12 # ROUND 6140: 5230 54 0 0006 LRS 6 6141: 5231 10 0 0002 STO TS2 # DV AT 13 6142: 5232 22 1 0360 ADD VX,1 6143: 11216: 7777 CHECKSUM RANGE 4000-7776 11217: 6200 DLREG DEFINE 6200 11220: 2020 DISC1I DEFINE 2020 # DISCRETE INPUT WORD 1 11221: 2040 DISC2I DEFINE 2040 # DISCRETE INPUT WORD 2 11222: 2200 DEDA DEFINE 2200 11223: 2001 SIALO DEFINE 2001 # DEFINE OUTPUT REGISTERS 11224: 2002 COALO DEFINE 2002 # FOR FDAI ANGLES 11225: 2004 SIBEO DEFINE 2004 11226: 2010 COBEO DEFINE 2010 11227: 2020 SIGAO DEFINE 2020 11230: 2040 COGAO DEFINE 2040 11231: 6001 EXO DEFINE 6001 # DEFINE THE ATT ERROR 11232: 6002 EYO DEFINE 6002 # OUTPUT REGISTERS 11233: 6004 EZO DEFINE 6004 11234: 6200 TMIDO DEFINE 6200 11235: 2600 SHOUT DEFINE 2600 11236: 2500 SHIN DEFINE 2500 11237: 10000 END CHECKSUM at 0206 (0207-1004) = 505072 CHECKSUM at 3777 (1005-3776) = 023521 CHECKSUM at 7777 (4000-7776) = 225333 Symbol Table ------------ 1: 1000D 0441 2: 10B17 4041 3: 10B4 7512 4: 10J 0226 5: 11J 0673 6: 12B4 5000 7: 12J 0305 8: 16J 0232 9: 17J 0503 10: 18J 0316 11: 1B1 5033 12: 1B11 4014 13: 1B12 4015 14: 1B13 4016 15: 1B14 4017 16: 1B17 4006 17: 1B2 4065 18: 1B3 7701 19: 1B4 4010 20: 1B5 4011 21: 1B6 4012 22: 1B9 4013 23: 1J 0275 24: 1J1 0240 25: 1J2 0241 26: 1J3 0242 27: 1J4 0260 28: 1J5 0261 29: 1J6 0262 30: 1J7 0254 31: 1J7LS 0255 32: 1K1 0544 33: 1K11 0546 34: 1K13 0552 35: 1K14 0537 36: 1K18 0534 37: 1K19 0540 38: 1K20 0535 39: 1K21 0541 40: 1K22 0536 No duplicate symbols. Successful!