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. |
008763,000002: ## Copyright: Public domain.
008764,000003: ## Filename: RADAR_TEST_PROGRAMS.agc
008765,000004: ## Purpose: A section of Aurora 88.
008766,000005: ## It is part of the reconstructed source code for the final
008767,000006: ## release of the Lunar Module system test software. No original
008768,000007: ## listings of this program are available; instead, this file
008769,000008: ## was created via disassembly of dumps of Aurora 88 core rope
008770,000009: ## modules and comparison with other AGC programs.
008771,000010: ## Assembler: yaYUL
008772,000011: ## Contact: Ron Burkey <info@sandroid.org>.
008773,000012: ## Website: www.ibiblio.org/apollo/index.html
008774,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12.
008775,000014: ## 2023-07-12 MAS Updated for Aurora 88.
008776,000015:
008777,000016:
008778,000017: 10,3255 SETLOC ENDRMODS
008779,000018: 10,3255 E7,1434 EBANK= RSTKLOC
008780,000019:
008781,000020: # RADAR SAMPLING LOOP.
008782,000021:
008783,000022: 10,3255 11435 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
008784,000023: 10,3256 13260 TCF +2
008785,000024:
008786,000025: 10,3257 14505 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
008787,000026:
008788,000027: 10,3260 04451 TC WAITLIST
008789,000028: 10,3261 03255 20007 2CADR RADSAMP
008790,000029:
008791,000030: 10,3263 34436 CAF PRIO25
008792,000031: 10,3264 04276 TC NOVAC
008793,000032: 10,3265 03275 20007 2CADR DORSAMP
008794,000033:
008795,000034: 10,3267 33326 CAF 1/6 # FOR CYCLIC SAMPLING, RTSTDEX =
008796,000035: 10,3270 00006 EXTEND # RTSTLOC/6 + RTSTBASE.
008797,000036: 10,3271 71434 MP RTSTLOC
008798,000037: 10,3272 61433 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
008799,000038: 10,3273 55431 TS RTSTDEX
008800,000039:
008801,000040: 10,3274 14505 TCF TASKOVER
008802,000041:
008803,000042: # DO THE ACTUAL RADAR SAMPLE.
008804,000043:
008805,000044: 10,3275 03327 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
008806,000045: 10,3276 04063 TC BANKCALL
008807,000046: 10,3277 26712 CADR RADSTALL
008808,000047: 10,3300 25436 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
008809,000048:
008810,000049: 10,3301 00004 DORSAMP2 INHINT # YES - UPDATE TM BUFFER.
008811,000050: 10,3302 52416 DXCH SAMPLSUM
008812,000051: 10,3303 51434 INDEX RSTKLOC
008813,000052: 10,3304 53440 DXCH RSTACK
008814,000053:
008815,000054: 10,3305 52420 DXCH OPTYHOLD
008816,000055: 10,3306 51434 INDEX RSTKLOC
008817,000056: 10,3307 53442 DXCH RSTACK +2
008818,000057:
008819,000058: 10,3310 52422 DXCH TIMEHOLD
008820,000059: 10,3311 51434 INDEX RSTKLOC
008821,000060: 10,3312 53444 DXCH RSTACK +4
008822,000061:
008823,000062: 10,3313 41434 CS RTSTLOC # CYCLE RTSTLOC.
008824,000063: 10,3314 61432 AD RTSTMAX
008825,000064: 10,3315 00006 EXTEND
008826,000065: 10,3316 13321 BZF +3
008827,000066: 10,3317 31434 CA RSTKLOC
008828,000067: 10,3320 66162 AD SIX
008829,000068: 10,3321 55434 TS RSTKLOC
008830,000069:
008831,000070: 10,3322 11435 CCS RSAMPDT # SEE IF TIME TO RE-SAMPLE.
008832,000071: 10,3323 14353 TCF ENDOFJOB # NO - WAIT FOR T3 (REGULAR SAMPLING).
008833,000072:
008834,000073: 10,3324 14353 TCF ENDOFJOB # TEST TERMINATED.
008835,000074: 10,3325 13275 TCF DORSAMP # JUMP RIGHT BACK AND GET ANOTHER SAMPLE.
008836,000075:
008837,000076: 10,3326 05341 1/6 DEC .17
008838,000077:
008839,000078: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
008840,000079:
008841,000080: 10,3327 37652 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
008842,000081: 10,3330 54117 TS BUF2 # SWCALL.
008843,000082: 10,3331 51431 INDEX RTSTDEX
008844,000083: 10,3332 33334 CAF RDRLOCS
008845,000084: 10,3333 14067 TCF SWCALL # NOT TOUCHING Q.
008846,000085:
008847,000086: 10,3334 20647 RDRLOCS CADR RRRANGE # =0
008848,000087: 10,3335 20645 CADR RRRDOT # =1
008849,000088: 10,3336 20643 CADR LRVELX # =2
008850,000089: 10,3337 20641 CADR LRVELY # =3
008851,000090: 10,3340 20637 CADR LRVELZ # =4
008852,000091: 10,3341 20635 CADR LRALT # =5
008853,000092:
008854,000093:
|
|
MAS 2023: The following chunks of code (down to ENDRTSTS) were added as patches between Aurora 85 and Aurora 88. They were placed here at the end of the bank so as to not change addresses of existing symbols. |
008858,000097:
008859,000098: 10,3342 54414 LRPSNXT1 TS SAMPLIM
008860,000099: 10,3343 04467 TC FIXDELAY # SCAN ONCE PER SECOND 15 TIMES MAX AFTER
008861,000100: 10,3344 00144 DEC 100 B-14 # INITIAL DELAY OF 7 SECONDS.
008862,000101:
008863,000102: 10,3345 37644 CAF BIT7
008864,000103: 10,3346 00006 EXTEND
008865,000104: 10,3347 02033 RAND 33
008866,000105: 10,3350 03216 TC LRPOSNXT +1
008867,000106:
008868,000107: 10,3351 04467 LASTLRDT TC FIXDELAY # WAIT ONE SECOND AFTER RECEIPT OF INBIT
008869,000108: 10,3352 00144 DEC 100 B-14 # TO WAIT FOR ANTENNA BOUNCE TO DIE OUT.
008870,000109:
008871,000110: 10,3353 47636 CS BIT13 # REMOVE COMMAND
008872,000111: 10,3354 00006 EXTEND
008873,000112: 10,3355 03012 WAND 12
008874,000113: 10,3356 13245 TCF RGOODEND
008875,000114:
008876,000115: 10,3357 37646 LRPOSCAN CAF BIT5 # SET UP FOR 15 SAMPLES.
008877,000116: 10,3360 13215 TCF LRPOSNXT
008878,000117:
008879,000118: 10,3361 01130 6SECS DEC 600 B-14
008880,000119:
008881,000120: 10,3362 ENDRTSTS EQUALS
End of include-file RADAR_TEST_PROGRAMS.agc. Parent file is MAIN.agc