Source Code
![]() |
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966Note that the date is the date of the printout, not the date of the program revision. |
009904,000002: ## Copyright: Public domain.
009905,000003: ## Filename: RADAR_TEST_PROGRAMS.agc
009906,000004: ## Purpose: Part of the source code for Aurora (revision 12).
009907,000005: ## Assembler: yaYUL
009908,000006: ## Contact: Ron Burkey <info@sandroid.org>.
009909,000007: ## Website: https://www.ibiblio.org/apollo.
009910,000008: ## Pages: 256-257
009911,000009: ## Mod history: 2016-09-20 JL Created.
009912,000010: ## 2016-10-18 MAS Adapted from Sunburst 120.
009913,000011: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
009914,000012: ## but no errors found.
009915,000013:
009916,000014: ## This source code has been transcribed or otherwise adapted from
009917,000015: ## digitized images of a hardcopy from the private collection of
009918,000016: ## Don Eyles. The digitization was performed by archive.org.
009919,000017:
009920,000018: ## Notations on the hardcopy document read, in part:
009921,000019:
009922,000020: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
009923,000021: ## NOV 10, 1966
009924,000022:
009925,000023: ## [Note that this is the date the hardcopy was made, not the
009926,000024: ## date of the program revision or the assembly.]
009927,000025:
009928,000026: ## The scan images (with suitable reduction in storage size and consequent
009929,000027: ## reduction in image quality) are available online at
009930,000028: ## https://www.ibiblio.org/apollo.
009931,000029: ## The original high-quality digital images are available at archive.org:
009932,000030: ## https://archive.org/details/aurora00dapg
009933,000031:
![]() |
Page 256 |
009935,000033: 10,3254 SETLOC ENDRMODS
009936,000034: 10,3254 E7,1434 EBANK= RSTKLOC
009937,000035:
009938,000036: # RADAR SAMPLING LOOP.
009939,000037:
009940,000038: 10,3254 11435 RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
009941,000039: 10,3255 13257 TCF +2
009942,000040:
009943,000041: 10,3256 14602 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
009944,000042:
009945,000043: 10,3257 04536 TC WAITLIST
009946,000044: 10,3260 03254 20007 2CADR RADSAMP
009947,000045:
009948,000046: 10,3262 34523 CAF PRIO25
009949,000047: 10,3263 04363 TC NOVAC
009950,000048: 10,3264 03274 20007 2CADR DORSAMP
009951,000049:
009952,000050: 10,3266 33325 CAF 1/6 # FOR CYCLIC SAMPLING, RTSTDEX =
009953,000051: 10,3267 00006 EXTEND # RTSTLOC/6 + RTSTBASE.
009954,000052: 10,3270 71434 MP RTSTLOC
009955,000053: 10,3271 61433 AD RTSTBASE # 0 FOR RR, 2 FOR LR.
009956,000054: 10,3272 55431 TS RTSTDEX
009957,000055:
009958,000056: 10,3273 14602 TCF TASKOVER
009959,000057:
009960,000058: # DO THE ACTUAL RADAR SAMPLE.
009961,000059:
009962,000060: 10,3274 03326 DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
009963,000061: 10,3275 04063 TC BANKCALL
009964,000062: 10,3276 26712 CADR RADSTALL
009965,000063: 10,3277 25436 INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
009966,000064:
009967,000065: 10,3300 00004 DORSAMP2 INHINT # YES - UPDATE TM BUFFER.
009968,000066: 10,3301 52416 DXCH SAMPLSUM
009969,000067: 10,3302 51434 INDEX RSTKLOC
009970,000068: 10,3303 53440 DXCH RSTACK
009971,000069:
009972,000070: 10,3304 52420 DXCH OPTYHOLD
009973,000071: 10,3305 51434 INDEX RSTKLOC
009974,000072: 10,3306 53442 DXCH RSTACK +2
009975,000073:
009976,000074: 10,3307 52422 DXCH TIMEHOLD
009977,000075: 10,3310 51434 INDEX RSTKLOC
009978,000076: 10,3311 53444 DXCH RSTACK +4
009979,000077:
009980,000078: 10,3312 41434 CS RTSTLOC # CYCLE RTSTLOC.
009981,000079: 10,3313 61432 AD RTSTMAX
009982,000080: 10,3314 00006 EXTEND
009983,000081: 10,3315 13320 BZF +3
009984,000082: 10,3316 31434 CA RSTKLOC
![]() |
Page 257 |
009986,000084: 10,3317 66162 AD SIX
009987,000085: 10,3320 55434 TS RSTKLOC
009988,000086:
009989,000087: 10,3321 11435 CCS RSAMPDT # SEE IF TIME TO RE-SAMPLE.
009990,000088: 10,3322 14440 TCF ENDOFJOB # NO - WAIT FOR T3 (REGULAR SAMPLING).
009991,000089:
009992,000090: 10,3323 14440 TCF ENDOFJOB # TEST TERMINATED.
009993,000091: 10,3324 13274 TCF DORSAMP # JUMP RIGHT BACK AND GET ANOTHER SAMPLE.
009994,000092:
009995,000093: 10,3325 05341 1/6 DEC .17
009996,000094:
009997,000095: # VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
009998,000096:
009999,000097: 10,3326 37657 VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
010000,000098: 10,3327 54117 TS BUF2 # SWCALL.
010001,000099: 10,3330 51431 INDEX RTSTDEX
010002,000100: 10,3331 33333 CAF RDRLOCS
010003,000101: 10,3332 14067 TCF SWCALL # NOT TOUCHING Q.
010004,000102:
010005,000103: 10,3333 20650 RDRLOCS CADR RRRANGE # =0
010006,000104: 10,3334 20646 CADR RRRDOT # =1
010007,000105: 10,3335 20644 CADR LRVELX # =2
010008,000106: 10,3336 20642 CADR LRVELY # =3
010009,000107: 10,3337 20640 CADR LRVELZ # =4
010010,000108: 10,3340 20636 CADR LRALT # =5
010011,000109:
010012,000110: 10,3341 ENDRTSTS EQUALS
End of include-file RADAR_TEST_PROGRAMS.agc. Parent file is MAIN.agc