Source Code
|
These source-code files are part of a reconstructed copy of Aurora 88, the
final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system
test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson. Since only binary dumps (rather than listings) of Aurora 88 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
022516,000002: ## Copyright: Public domain.
022517,000003: ## Filename: LOTS_TRACKING.agc
022518,000004: ## Purpose: A section of Aurora 88.
022519,000005: ## It is part of the reconstructed source code for the final
022520,000006: ## release of the Lunar Module system test software. No original
022521,000007: ## listings of this program are available; instead, this file
022522,000008: ## was created via disassembly of dumps of Aurora 88 core rope
022523,000009: ## modules and comparison with other AGC programs.
022524,000010: ## Assembler: yaYUL
022525,000011: ## Contact: Ron Burkey <info@sandroid.org>.
022526,000012: ## Website: www.ibiblio.org/apollo/index.html
022527,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12.
022528,000014:
022529,000015: 06,2555 SETLOC ENDLFCSS
022530,000016: 06,2555 1212 EBANK= LOTSFLAG
022531,000017:
|
|
MAS 2023: This file contains code related to the LEM Optical Rendezvous
System (LORS), and more specifically, the Optical Tracker (LOTS or OT) mounted
on the lunar module. The LORS was a competitor to the Rendezvous Radar (RR)
system, which eventually won out. Aurora 88 contains code to test both;
it can be switched into LORS mode with VERB 66 ENTER, and back to RR mode
via VERB 36 ENTER. We presently have very little information about the LORS. Every name in this file, and even its filename, are modern guesswork. The most useful available documents are: |
022549,000035: ##</ul>
022550,000036:
022551,000037: 06,2555 00006 U06,2555 EXTEND
022552,000038: 06,2556 23207 QXCH UNK1207
022553,000039: 06,2557 57113 XCH UNK1113
022554,000040:
022555,000041: 06,2560 32772 CAF U06,2772
022556,000042: 06,2561 71111 MASK LOTMODES
022557,000043: 06,2562 55111 TS LOTMODES
022558,000044:
022559,000045: 06,2563 31121 CA AZANG
022560,000046: 06,2564 00006 EXTEND
022561,000047: 06,2565 12633 BZF U06,2633
022562,000048:
022563,000049: 06,2566 31127 CA UNK1127
022564,000050: 06,2567 00006 EXTEND
022565,000051: 06,2570 62633 BZMF U06,2633
022566,000052:
022567,000053: 06,2571 31121 CA AZANG
022568,000054: 06,2572 00006 EXTEND
022569,000055: 06,2573 62614 BZMF U06,2614
022570,000056:
022571,000057: 06,2574 31127 CA UNK1127
022572,000058: 06,2575 62777 AD -89DEG
022573,000059: 06,2576 00006 EXTEND
022574,000060: 06,2577 62633 BZMF U06,2633
022575,000061:
022576,000062: 06,2600 37642 CAF BIT9
022577,000063: 06,2601 71111 MASK LOTMODES
022578,000064: 06,2602 10000 CCS A
022579,000065: 06,2603 12633 TCF U06,2633
022580,000066:
022581,000067: 06,2604 51113 INDEX UNK1113
022582,000068: 06,2605 12606 TCF +1
022583,000069:
022584,000070: 06,2606 05315 TC ALARM # +AZIMUTH LIMIT STOP
022585,000071: 06,2607 00601 OCT 00601
022586,000072:
022587,000073: 06,2610 51113 INDEX UNK1113
022588,000074: 06,2611 37647 CAF BIT4
022589,000075: 06,2612 02757 TC U06,2757
022590,000076: 06,2613 12633 TCF U06,2633
022591,000077:
022592,000078: 06,2614 41127 U06,2614 CS UNK1127
022593,000079: 06,2615 63000 AD 91DEG
022594,000080: 06,2616 00006 EXTEND
022595,000081: 06,2617 62633 BZMF U06,2633
022596,000082:
022597,000083: 06,2620 37642 CAF BIT9
022598,000084: 06,2621 71111 MASK LOTMODES
022599,000085: 06,2622 10000 CCS A
022600,000086: 06,2623 12633 TCF U06,2633
022601,000087:
022602,000088: 06,2624 51113 INDEX UNK1113
022603,000089: 06,2625 12626 TCF +1
022604,000090:
022605,000091: 06,2626 05315 TC ALARM # -AZIMUTH LIMIT STOP
022606,000092: 06,2627 00602 OCT 00602
022607,000093:
022608,000094: 06,2630 51113 INDEX UNK1113
022609,000095: 06,2631 37650 CAF BIT3
022610,000096: 06,2632 02757 TC U06,2757
022611,000097:
022612,000098: 06,2633 31123 U06,2633 CA ELANG
022613,000099: 06,2634 62766 AD 1.0DEG
022614,000100: 06,2635 00006 EXTEND
022615,000101: 06,2636 62737 BZMF U06,2737
022616,000102:
022617,000103: 06,2637 11113 CCS UNK1113
022618,000104: 06,2640 12642 TCF +2
022619,000105: 06,2641 12650 TCF U06,2650
022620,000106:
022621,000107: 06,2642 31123 CA ELANG
022622,000108: 06,2643 62776 AD -84.0DEG
022623,000109: 06,2644 00006 EXTEND
022624,000110: 06,2645 62650 BZMF U06,2650
022625,000111:
022626,000112: 06,2646 37645 CAF BIT6
022627,000113: 06,2647 02757 TC U06,2757
022628,000114:
022629,000115: 06,2650 31123 U06,2650 CA ELANG
022630,000116: 06,2651 62775 AD -87DEG
022631,000117: 06,2652 00006 EXTEND
022632,000118: 06,2653 62662 BZMF U06,2662
022633,000119:
022634,000120: 06,2654 37644 CAF BIT7
022635,000121: 06,2655 02757 TC U06,2757
022636,000122:
022637,000123: 06,2656 51113 INDEX UNK1113
022638,000124: 06,2657 12660 TCF +1
022639,000125:
022640,000126: 06,2660 05315 TC ALARM # +ELEVATION LIMIT STOP
022641,000127: 06,2661 00603 OCT 00603
022642,000128:
022643,000129: 06,2662 32773 U06,2662 CAF U06,2773
022644,000130: 06,2663 71111 MASK LOTMODES
022645,000131: 06,2664 10000 CCS A
022646,000132: 06,2665 12671 TCF U06,2671
022647,000133:
022648,000134: 06,2666 47652 CS ONE
022649,000135: 06,2667 55112 TS UNK1112
022650,000136: 06,2670 01207 TC UNK1207
022651,000137:
022652,000138: 06,2671 37643 U06,2671 CAF BIT8
022653,000139: 06,2672 02757 TC U06,2757
022654,000140:
022655,000141: 06,2673 11113 CCS UNK1113
022656,000142: 06,2674 01207 TC UNK1207
022657,000143:
022658,000144: 06,2675 11112 CCS UNK1112
022659,000145: 06,2676 12701 TCF +3
022660,000146: 06,2677 12703 TCF +4
022661,000147: 06,2700 32774 CA U06,2774
022662,000148: 06,2701 55112 TS UNK1112
022663,000149: 06,2702 12713 TCF U06,2713
022664,000150:
022665,000151: 06,2703 37641 CAF BIT10
022666,000152: 06,2704 71111 MASK LOTMODES
022667,000153: 06,2705 10000 CCS A
022668,000154: 06,2706 12713 TCF U06,2713
022669,000155:
022670,000156: 06,2707 37635 CAF PRIO20
022671,000157: 06,2710 04276 TC NOVAC
022672,000158: 06,2711 03251 16002 2CADR LOTSTOW1
022673,000159:
022674,000160: 06,2713 00004 U06,2713 INHINT
022675,000161: 06,2714 22322 LXCH DSPTAB +11D
022676,000162: 06,2715 31111 CA LOTMODES
022677,000163: 06,2716 00006 EXTEND
022678,000164: 06,2717 06001 RXOR L
022679,000165: 06,2720 77643 MASK BIT8
022680,000166: 06,2721 10000 CCS A
022681,000167: 06,2722 12724 TCF +2
022682,000168: 06,2723 12734 TCF U06,2734
022683,000169:
022684,000170: 06,2724 47643 CS BIT8
022685,000171: 06,2725 00006 EXTEND
022686,000172: 06,2726 03001 WAND L
022687,000173:
022688,000174: 06,2727 31111 CA LOTMODES
022689,000175: 06,2730 77643 MASK BIT8
022690,000176: 06,2731 67634 AD BIT15
022691,000177: 06,2732 00006 EXTEND
022692,000178: 06,2733 05001 WOR L
022693,000179:
022694,000180: 06,2734 22322 U06,2734 LXCH DSPTAB +11D
022695,000181: 06,2735 00003 RELINT
022696,000182: 06,2736 01207 TC UNK1207
022697,000183:
022698,000184: 06,2737 00006 U06,2737 EXTEND
022699,000185: 06,2740 00012 READ 12
022700,000186: 06,2741 72770 MASK U06,2770
022701,000187: 06,2742 10000 CCS A
022702,000188: 06,2743 12662 TCF U06,2662
022703,000189:
022704,000190: 06,2744 32771 CAF U06,2771
022705,000191: 06,2745 71111 MASK LOTMODES
022706,000192: 06,2746 10000 CCS A
022707,000193: 06,2747 12662 TCF U06,2662
022708,000194:
022709,000195: 06,2750 37646 CAF BIT5
022710,000196: 06,2751 02757 TC U06,2757
022711,000197:
022712,000198: 06,2752 51113 INDEX UNK1113
022713,000199: 06,2753 12754 TCF +1
022714,000200:
022715,000201: 06,2754 05315 TC ALARM # -ELEVATION LIMIT STOP
022716,000202: 06,2755 00604 OCT 00604
022717,000203:
022718,000204: 06,2756 12662 TCF U06,2662
022719,000205:
022720,000206: 06,2757 00004 U06,2757 INHINT
022721,000207: 06,2760 23111 LXCH LOTMODES
022722,000208: 06,2761 00006 EXTEND
022723,000209: 06,2762 05001 WOR L
022724,000210: 06,2763 23111 LXCH LOTMODES
022725,000211: 06,2764 00003 RELINT
022726,000212: 06,2765 00002 TC Q
022727,000213:
022728,000214: 06,2766 00133 1.0DEG OCT 00133
022729,000215: 06,2767 04476 26DEG OCT 04476
022730,000216: 06,2770 20002 U06,2770 OCT 20002
022731,000217: 06,2771 11400 U06,2771 OCT 11400
022732,000218: 06,2772 77400 U06,2772 OCT 77400
022733,000219: 06,2773 00134 U06,2773 OCT 00134
022734,000220: 06,2774 00024 U06,2774 OCT 00024
022735,000221: 06,2775 60421 -87DEG OCT 60421
022736,000222: 06,2776 61042 -84.0DEG OCT 61042
022737,000223: 06,2777 60132 -89DEG OCT 60132
022738,000224: 06,3000 20133 91DEG OCT 20133
022739,000225:
022740,000226: 06,3001 55132 U06,3001 TS UNK1132
022741,000227:
022742,000228: 06,3002 37652 CAF BIT1
022743,000229: 06,3003 71131 MASK UNK1131
022744,000230: 06,3004 00006 EXTEND
022745,000231: 06,3005 13014 BZF U06,3014
022746,000232:
022747,000233: 06,3006 47652 CS BIT1
022748,000234: 06,3007 71131 MASK UNK1131
022749,000235: 06,3010 55131 TS UNK1131
022750,000236:
022751,000237: 06,3011 37652 CAF BIT1
022752,000238: 06,3012 55135 TS UNK1135
022753,000239: 06,3013 03025 TC U06,3025
022754,000240:
022755,000241: 06,3014 37635 U06,3014 CAF BIT14
022756,000242: 06,3015 00006 EXTEND
022757,000243: 06,3016 05012 WOR 12
022758,000244:
022759,000245: 06,3017 37635 U06,3017 CAF BIT14
022760,000246: 06,3020 00006 EXTEND
022761,000247: 06,3021 02012 RAND 12
022762,000248: 06,3022 10000 CCS A
022763,000249: 06,3023 03025 TC +2
022764,000250: 06,3024 04353 TC ENDOFJOB
022765,000251:
022766,000252: 06,3025 37650 U06,3025 CAF BIT3
022767,000253: 06,3026 00006 EXTEND
022768,000254: 06,3027 02033 RAND 33
022769,000255: 06,3030 10000 CCS A
022770,000256: 06,3031 03051 TC U06,3051
022771,000257:
022772,000258: 06,3032 37635 CAF BIT14
022773,000259: 06,3033 00006 EXTEND
022774,000260: 06,3034 05012 WOR 12
022775,000261:
022776,000262: 06,3035 37657 CAF ZERO
022777,000263: 06,3036 55135 TS UNK1135
022778,000264:
022779,000265: 06,3037 37647 CAF BIT4
022780,000266: 06,3040 00006 EXTEND
022781,000267: 06,3041 02033 RAND 33
022782,000268: 06,3042 10000 CCS A
022783,000269: 06,3043 03053 TC U06,3053
022784,000270: 06,3044 55204 TS UNK1204
022785,000271:
022786,000272: 06,3045 47651 CS BIT2
022787,000273: 06,3046 00006 EXTEND
022788,000274: 06,3047 03012 WAND 12
022789,000275:
022790,000276: 06,3050 03122 TC U06,3122
022791,000277:
022792,000278: 06,3051 37652 U06,3051 CAF ONE
022793,000279: 06,3052 03054 TC +2
022794,000280: 06,3053 47657 U06,3053 CS ZERO
022795,000281: 06,3054 55136 TS UNK1136
022796,000282:
022797,000283: 06,3055 11132 CCS UNK1132
022798,000284: 06,3056 03073 TC U06,3073
022799,000285:
022800,000286: 06,3057 37651 CAF BIT2
022801,000287: 06,3060 71131 MASK UNK1131
022802,000288: 06,3061 10000 CCS A
022803,000289: 06,3062 03071 TC U06,3071
022804,000290:
022805,000291: 06,3063 11136 CCS UNK1136
022806,000292: 06,3064 05315 TC ALARM # COULD NOT GET LOCK ON AFTER ISSUANCE
022807,000293: 06,3065 00631 OCT 00631 # OF TRACK ENABLE
022808,000294: 06,3066 03071 TC U06,3071
022809,000295: 06,3067 05315 TC ALARM # COULD NOT GET DATA GOOD AFTER ISSUANCE
022810,000296: 06,3070 00632 OCT 00632 # OF TRACK ENABLE
022811,000297:
022812,000298: 06,3071 04063 U06,3071 TC BANKCALL
022813,000299: 06,3072 16731 CADR U07,2731
022814,000300:
022815,000301: 06,3073 55132 U06,3073 TS UNK1132
022816,000302:
022817,000303: 06,3074 00004 INHINT
022818,000304: 06,3075 37652 CAF ONE
022819,000305: 06,3076 04451 TC WAITLIST
022820,000306: 06,3077 03110 14002 2CADR U06,3110
022821,000307:
022822,000308: 06,3101 00003 RELINT
022823,000309:
022824,000310: 06,3102 11135 CCS UNK1135
022825,000311: 06,3103 03106 TC +3
022826,000312:
022827,000313: 06,3104 33120 CAF U06,3120
022828,000314: 06,3105 04331 TC JOBSLEEP
022829,000315:
022830,000316: 06,3106 33121 CAF U06,3121
022831,000317: 06,3107 04331 TC JOBSLEEP
022832,000318:
022833,000319: 06,3110 11135 U06,3110 CCS UNK1135
022834,000320: 06,3111 03115 TC +4
022835,000321:
022836,000322: 06,3112 33120 CAF U06,3120
022837,000323: 06,3113 04335 TC JOBWAKE
022838,000324: 06,3114 03117 TC +3
022839,000325:
022840,000326: 06,3115 33121 CAF U06,3121
022841,000327: 06,3116 04335 TC JOBWAKE
022842,000328:
022843,000329: 06,3117 04505 TC TASKOVER
022844,000330:
022845,000331: 06,3120 15017 U06,3120 CADR U06,3017
022846,000332: 06,3121 15025 U06,3121 CADR U06,3025
022847,000333:
022848,000334: 06,3122 37657 U06,3122 CAF ZERO
022849,000335: 06,3123 55134 TS UNK1134
022850,000336:
022851,000337: 06,3124 43303 CS U06,3303
022852,000338: 06,3125 71131 MASK UNK1131
022853,000339: 06,3126 67640 AD BIT11
022854,000340: 06,3127 55131 TS UNK1131
022855,000341:
022856,000342: 06,3130 37635 U06,3130 CAF BIT14
022857,000343: 06,3131 00006 EXTEND
022858,000344: 06,3132 02012 RAND 12
022859,000345: 06,3133 10000 CCS A
022860,000346: 06,3134 03136 TC +2
022861,000347: 06,3135 04353 TC ENDOFJOB
022862,000348:
022863,000349: 06,3136 37647 CAF BIT4
022864,000350: 06,3137 00006 EXTEND
022865,000351: 06,3140 02033 RAND 33
022866,000352: 06,3141 10000 CCS A
022867,000353: 06,3142 03156 TC U06,3156
022868,000354:
022869,000355: 06,3143 11134 CCS UNK1134
022870,000356: 06,3144 03146 TC +2
022871,000357: 06,3145 03166 TC U06,3166
022872,000358: 06,3146 55134 TS UNK1134
022873,000359:
022874,000360: 06,3147 00004 INHINT
022875,000361: 06,3150 43300 CS U06,3300
022876,000362: 06,3151 70322 MASK DSPTAB +11D
022877,000363: 06,3152 67634 AD BIT15
022878,000364: 06,3153 54322 TS DSPTAB +11D
022879,000365: 06,3154 00003 RELINT
022880,000366:
022881,000367: 06,3155 03166 TC U06,3166
022882,000368:
022883,000369: 06,3156 11134 U06,3156 CCS UNK1134
022884,000370: 06,3157 03166 TC U06,3166
022885,000371:
022886,000372: 06,3160 37652 CAF ONE
022887,000373: 06,3161 55134 TS UNK1134
022888,000374:
022889,000375: 06,3162 04063 TC BANKCALL
022890,000376: 06,3163 16713 CADR OTRKFLON
022891,000377:
022892,000378: 06,3164 05315 TC ALARM # LOSS OF DATA GOOD DURING TRACKING
022893,000379: 06,3165 00633 OCT 00633
022894,000380:
022895,000381: 06,3166 37650 U06,3166 CAF BIT3
022896,000382: 06,3167 00006 EXTEND
022897,000383: 06,3170 02033 RAND 33
022898,000384: 06,3171 10000 CCS A
022899,000385: 06,3172 03207 TC U06,3207
022900,000386:
022901,000387: 06,3173 00004 INHINT
022902,000388: 06,3174 37227 CAF FIVE
022903,000389: 06,3175 04451 TC WAITLIST
022904,000390: 06,3176 03202 14002 2CADR U06,3202
022905,000391:
022906,000392: 06,3200 00003 RELINT
022907,000393: 06,3201 04353 TC ENDOFJOB
022908,000394:
022909,000395: 06,3202 37635 U06,3202 CAF BIT14
022910,000396: 06,3203 04307 TC FINDVAC
022911,000397: 06,3204 03130 14002 2CADR U06,3130
022912,000398:
022913,000399: 06,3206 04505 TC TASKOVER
022914,000400:
022915,000401: 06,3207 47640 U06,3207 CS BIT11
022916,000402: 06,3210 71131 MASK UNK1131
022917,000403: 06,3211 55131 TS UNK1131
022918,000404:
022919,000405: 06,3212 11170 CCS UNK1170
022920,000406: 06,3213 03230 TC U06,3230
022921,000407:
022922,000408: 06,3214 37657 CAF ZERO
022923,000409: 06,3215 55363 TS FAILREG
022924,000410: 06,3216 05315 TC ALARM # LOSS OF LOCK ON DURING TRACKING
022925,000411: 06,3217 00634 OCT 00634
022926,000412:
022927,000413: 06,3220 47651 CS BIT2
022928,000414: 06,3221 71131 MASK UNK1131
022929,000415: 06,3222 67651 AD BIT2
022930,000416: 06,3223 55131 TS UNK1131
022931,000417:
022932,000418: 06,3224 37657 CAF ZERO
022933,000419: 06,3225 55135 TS UNK1135
022934,000420:
022935,000421: 06,3226 33304 CAF U06,3304
022936,000422: 06,3227 03001 TC U06,3001
022937,000423:
022938,000424: 06,3230 04063 U06,3230 TC BANKCALL
022939,000425: 06,3231 16143 CADR U07,2143
022940,000426:
022941,000427: 06,3232 37651 CAF BIT2
022942,000428: 06,3233 02555 TC U06,2555
022943,000429:
022944,000430: 06,3234 33301 CAF U06,3301
022945,000431: 06,3235 71111 MASK LOTMODES
022946,000432: 06,3236 10000 CCS A
022947,000433: 06,3237 03242 TC +3
022948,000434: 06,3240 04063 TC BANKCALL
022949,000435: 06,3241 16731 CADR U07,2731
022950,000436:
022951,000437: 06,3242 31122 CA AZANG +1
022952,000438: 06,3243 55125 TS DESLOTSY +1
022953,000439:
022954,000440: 06,3244 11121 CCS AZANG
022955,000441: 06,3245 13261 TCF U06,3261
022956,000442:
022957,000443: 06,3246 03256 TC U06,3256
022958,000444: 06,3247 03254 TC U06,3254
022959,000445:
022960,000446: 06,3250 41125 CS DESLOTSY +1
022961,000447: 06,3251 55125 TS DESLOTSY +1
022962,000448:
022963,000449: 06,3252 37657 CAF ZERO
022964,000450: 06,3253 13261 TCF U06,3261
022965,000451:
022966,000452: 06,3254 47657 U06,3254 CS ZERO
022967,000453: 06,3255 13261 TCF U06,3261
022968,000454:
022969,000455: 06,3256 41125 U06,3256 CS DESLOTSY +1
022970,000456: 06,3257 55125 TS DESLOTSY +1
022971,000457: 06,3260 37652 CAF ONE
022972,000458: 06,3261 55124 U06,3261 TS DESLOTSY
022973,000459:
022974,000460: 06,3262 33302 CAF 83DEG
022975,000461: 06,3263 55126 TS DESLOTSX
022976,000462:
022977,000463: 06,3264 00004 INHINT
022978,000464: 06,3265 31202 CA UNK1202
022979,000465: 06,3266 04451 TC WAITLIST
022980,000466: 06,3267 03305 14002 2CADR U06,3305
022981,000467:
022982,000468: 06,3271 00003 RELINT
022983,000469:
022984,000470: 06,3272 47652 CS BIT1
022985,000471: 06,3273 71131 MASK UNK1131
022986,000472: 06,3274 67652 AD BIT1
022987,000473: 06,3275 55131 TS UNK1131
022988,000474:
022989,000475: 06,3276 04063 TC BANKCALL
022990,000476: 06,3277 16335 CADR U07,2335
022991,000477:
022992,000478: 06,3300 40200 U06,3300 OCT 40200
022993,000479: 06,3301 00140 U06,3301 OCT 00140
022994,000480: 06,3302 16603 83DEG OCT 16603
022995,000481: 06,3303 02003 U06,3303 OCT 02003
022996,000482: 06,3304 05670 U06,3304 DEC 3000 B-14
022997,000483:
022998,000484: 06,3305 37635 U06,3305 CAF BIT14
022999,000485: 06,3306 00006 EXTEND
023000,000486: 06,3307 05012 WOR 12
023001,000487: 06,3310 04505 TC TASKOVER
023002,000488:
023003,000489: 06,3311 ENDLOTTS EQUALS
End of include-file LOTS_TRACKING.agc. Parent file is MAIN.agc