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