Source Code
![]() |
YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS BY MSTEWART MAR. 27,2017This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations. |
009094,000002: ## Copyright: Public domain.
009095,000003: ## Filename: RADAR_TEST_PROGRAMS.agc
009096,000004: ## Purpose: This program is designed to extensively test the Apollo Guidance Computer
009097,000005: ## (specifically the LM instantiation of it). It is built on top of a heavily
009098,000006: ## stripped-down Aurora 12, with all code ostensibly added by the DAP Group
009099,000007: ## removed. Instead Borealis expands upon the tests provided by Aurora,
009100,000008: ## including corrected tests from Retread 44 and tests from Ron Burkey's
009101,000009: ## Validation.
009102,000010: ## Assembler: yaYUL
009103,000011: ## Contact: Mike Stewart <mastewar1@gmail.com>.
009104,000012: ## Website: www.ibiblio.org/apollo/index.html
009105,000013: ## Mod history: 2016-12-20 MAS Created from Aurora 12 (with much DAP stuff removed).
009106,000014:
009107,000015: 10,3254 SETLOC ENDRMODS
009108,000016: 10,3254 E7,1434 EBANK= RSTKLOC
009109,000017:
009110,000018: # RADAR SAMPLING LOOP.
009111,000019:
009112,000020: 10,3254 11435 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
009113,000021: 10,3255 13257 TCF +2
009114,000022:
009115,000023: 10,3256 14563 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
009116,000024:
009117,000025: 10,3257 04517 TC WAITLIST
009118,000026: 10,3260 03254 20007 2CADR RADSAMP
009119,000027:
009120,000028: 10,3262 34504 CAF PRIO25
009121,000029: 10,3263 04344 TC NOVAC
009122,000030: 10,3264 03274 20007 2CADR DORSAMP
009123,000031:
009124,000032: 10,3266 33325 CAF 1/6 # FOR CYCLIC SAMPLING, RTSTDEX =
009125,000033: 10,3267 00006 EXTEND # RTSTLOC/6 + RTSTBASE.
009126,000034: 10,3270 71434 MP RTSTLOC
009127,000035: 10,3271 61433 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
009128,000036: 10,3272 55431 TS RTSTDEX
009129,000037:
009130,000038: 10,3273 14563 TCF TASKOVER
009131,000039:
009132,000040: # DO THE ACTUAL RADAR SAMPLE.
009133,000041:
009134,000042: 10,3274 03326 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
009135,000043: 10,3275 04065 TC BANKCALL
009136,000044: 10,3276 26712 CADR RADSTALL
009137,000045: 10,3277 25436 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
009138,000046:
009139,000047: 10,3300 00004 DORSAMP2 INHINT # YES - UPDATE TM BUFFER.
009140,000048: 10,3301 52416 DXCH SAMPLSUM
009141,000049: 10,3302 51434 INDEX RSTKLOC
009142,000050: 10,3303 53440 DXCH RSTACK
009143,000051:
009144,000052: 10,3304 52420 DXCH OPTYHOLD
009145,000053: 10,3305 51434 INDEX RSTKLOC
009146,000054: 10,3306 53442 DXCH RSTACK +2
009147,000055:
009148,000056: 10,3307 52422 DXCH TIMEHOLD
009149,000057: 10,3310 51434 INDEX RSTKLOC
009150,000058: 10,3311 53444 DXCH RSTACK +4
009151,000059:
009152,000060: 10,3312 41434 CS RTSTLOC # CYCLE RTSTLOC.
009153,000061: 10,3313 61432 AD RTSTMAX
009154,000062: 10,3314 00006 EXTEND
009155,000063: 10,3315 13320 BZF +3
009156,000064: 10,3316 31434 CA RSTKLOC
009157,000065: 10,3317 66162 AD SIX
009158,000066: 10,3320 55434 TS RSTKLOC
009159,000067:
009160,000068: 10,3321 11435 CCS RSAMPDT # SEE IF TIME TO RE-SAMPLE.
009161,000069: 10,3322 14421 TCF ENDOFJOB # NO - WAIT FOR T3 (REGULAR SAMPLING).
009162,000070:
009163,000071: 10,3323 14421 TCF ENDOFJOB # TEST TERMINATED.
009164,000072: 10,3324 13274 TCF DORSAMP # JUMP RIGHT BACK AND GET ANOTHER SAMPLE.
009165,000073:
009166,000074: 10,3325 05341 1/6 DEC .17
009167,000075:
009168,000076: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
009169,000077:
009170,000078: 10,3326 37657 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
009171,000079: 10,3327 54117 TS BUF2 # SWCALL.
009172,000080: 10,3330 51431 INDEX RTSTDEX
009173,000081: 10,3331 33333 CAF RDRLOCS
009174,000082: 10,3332 14071 TCF SWCALL # NOT TOUCHING Q.
009175,000083:
009176,000084: 10,3333 20650 RDRLOCS CADR RRRANGE # =0
009177,000085: 10,3334 20646 CADR RRRDOT # =1
009178,000086: 10,3335 20644 CADR LRVELX # =2
009179,000087: 10,3336 20642 CADR LRVELY # =3
009180,000088: 10,3337 20640 CADR LRVELZ # =4
009181,000089: 10,3340 20636 CADR LRALT # =5
009182,000090:
009183,000091: 10,3341 ENDRTSTS EQUALS
End of include-file RADAR_TEST_PROGRAMS.agc. Parent file is MAIN.agc