Source Code
![]() |
YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS BY MSTEWART JUN. 28,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. |
009179,000002: ## Copyright: Public domain.
009180,000003: ## Filename: RADAR_TEST_PROGRAMS.agc
009181,000004: ## Purpose: This program is designed to extensively test the Apollo Guidance Computer
009182,000005: ## (specifically the LM instantiation of it). It is built on top of a heavily
009183,000006: ## stripped-down Aurora 12, with all code ostensibly added by the DAP Group
009184,000007: ## removed. Instead Borealis expands upon the tests provided by Aurora,
009185,000008: ## including corrected tests from Retread 44 and tests from Ron Burkey's
009186,000009: ## Validation.
009187,000010: ## Assembler: yaYUL
009188,000011: ## Contact: Mike Stewart <mastewar1@gmail.com>.
009189,000012: ## Website: www.ibiblio.org/apollo/index.html
009190,000013: ## Mod history: 2016-12-20 MAS Created from Aurora 12 (with much DAP stuff removed).
009191,000014:
009192,000015: 10,3254 SETLOC ENDRMODS
009193,000016: 10,3254 E7,1434 EBANK= RSTKLOC
009194,000017:
009195,000018: # RADAR SAMPLING LOOP.
009196,000019:
009197,000020: 10,3254 11435 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
009198,000021: 10,3255 13257 TCF +2
009199,000022:
009200,000023: 10,3256 14563 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
009201,000024:
009202,000025: 10,3257 04517 TC WAITLIST
009203,000026: 10,3260 03254 20007 2CADR RADSAMP
009204,000027:
009205,000028: 10,3262 34504 CAF PRIO25
009206,000029: 10,3263 04344 TC NOVAC
009207,000030: 10,3264 03274 20007 2CADR DORSAMP
009208,000031:
009209,000032: 10,3266 33325 CAF 1/6 # FOR CYCLIC SAMPLING, RTSTDEX =
009210,000033: 10,3267 00006 EXTEND # RTSTLOC/6 + RTSTBASE.
009211,000034: 10,3270 71434 MP RTSTLOC
009212,000035: 10,3271 61433 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
009213,000036: 10,3272 55431 TS RTSTDEX
009214,000037:
009215,000038: 10,3273 14563 TCF TASKOVER
009216,000039:
009217,000040: # DO THE ACTUAL RADAR SAMPLE.
009218,000041:
009219,000042: 10,3274 03326 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
009220,000043: 10,3275 04065 TC BANKCALL
009221,000044: 10,3276 26712 CADR RADSTALL
009222,000045: 10,3277 25436 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
009223,000046:
009224,000047: 10,3300 00004 DORSAMP2 INHINT # YES - UPDATE TM BUFFER.
009225,000048: 10,3301 52416 DXCH SAMPLSUM
009226,000049: 10,3302 51434 INDEX RSTKLOC
009227,000050: 10,3303 53440 DXCH RSTACK
009228,000051:
009229,000052: 10,3304 52420 DXCH OPTYHOLD
009230,000053: 10,3305 51434 INDEX RSTKLOC
009231,000054: 10,3306 53442 DXCH RSTACK +2
009232,000055:
009233,000056: 10,3307 52422 DXCH TIMEHOLD
009234,000057: 10,3310 51434 INDEX RSTKLOC
009235,000058: 10,3311 53444 DXCH RSTACK +4
009236,000059:
009237,000060: 10,3312 41434 CS RTSTLOC # CYCLE RTSTLOC.
009238,000061: 10,3313 61432 AD RTSTMAX
009239,000062: 10,3314 00006 EXTEND
009240,000063: 10,3315 13320 BZF +3
009241,000064: 10,3316 31434 CA RSTKLOC
009242,000065: 10,3317 66173 AD SIX
009243,000066: 10,3320 55434 TS RSTKLOC
009244,000067:
009245,000068: 10,3321 11435 CCS RSAMPDT # SEE IF TIME TO RE-SAMPLE.
009246,000069: 10,3322 14422 TCF ENDOFJOB # NO - WAIT FOR T3 (REGULAR SAMPLING).
009247,000070:
009248,000071: 10,3323 14422 TCF ENDOFJOB # TEST TERMINATED.
009249,000072: 10,3324 13274 TCF DORSAMP # JUMP RIGHT BACK AND GET ANOTHER SAMPLE.
009250,000073:
009251,000074: 10,3325 05341 1/6 DEC .17
009252,000075:
009253,000076: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
009254,000077:
009255,000078: 10,3326 37671 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
009256,000079: 10,3327 54117 TS BUF2 # SWCALL.
009257,000080: 10,3330 51431 INDEX RTSTDEX
009258,000081: 10,3331 33333 CAF RDRLOCS
009259,000082: 10,3332 14071 TCF SWCALL # NOT TOUCHING Q.
009260,000083:
009261,000084: 10,3333 20650 RDRLOCS CADR RRRANGE # =0
009262,000085: 10,3334 20646 CADR RRRDOT # =1
009263,000086: 10,3335 20644 CADR LRVELX # =2
009264,000087: 10,3336 20642 CADR LRVELY # =3
009265,000088: 10,3337 20640 CADR LRVELZ # =4
009266,000089: 10,3340 20636 CADR LRALT # =5
009267,000090:
009268,000091: 10,3341 ENDRTSTS EQUALS
End of include-file RADAR_TEST_PROGRAMS.agc. Parent file is MAIN.agc