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.
|
014847,000002: ## Copyright: Public domain.
014848,000003: ## Filename: CONTROLLER_AND_METER_ROUTINES.agc
014849,000004: ## Purpose: Part of the source code for Aurora (revision 12).
014850,000005: ## Assembler: yaYUL
014851,000006: ## Contact: Ron Burkey <info@sandroid.org>.
014852,000007: ## Website: https://www.ibiblio.org/apollo.
014853,000008: ## Pages: 368-369
014854,000009: ## Mod history: 2016-09-20 JL Created.
014855,000010: ## 2016-10-16 HG Fix label ENDCM5 -> ENDCMS
014856,000011: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
014857,000012: ## but no errors found.
014858,000013:
014859,000014: ## This source code has been transcribed or otherwise adapted from
014860,000015: ## digitized images of a hardcopy from the private collection of
014861,000016: ## Don Eyles. The digitization was performed by archive.org.
014862,000017:
014863,000018: ## Notations on the hardcopy document read, in part:
014864,000019:
014865,000020: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
014866,000021: ## NOV 10, 1966
014867,000022:
014868,000023: ## [Note that this is the date the hardcopy was made, not the
014869,000024: ## date of the program revision or the assembly.]
014870,000025:
014871,000026: ## The scan images (with suitable reduction in storage size and consequent
014872,000027: ## reduction in image quality) are available online at
014873,000028: ## https://www.ibiblio.org/apollo.
014874,000029: ## The original high-quality digital images are available at archive.org:
014875,000030: ## https://archive.org/details/aurora00dapg
014876,000031:
|
|
Page 368 |
014878,000033:
014879,000034: 11,3264 SETLOC ENDEXTVS
014880,000035: 11,3264 E6,1435 EBANK= PCOM
014881,000036:
014882,000037: 11,3264 37641 RHCNTRL CAF BIT15
014883,000038: 11,3265 00006 EXTEND
014884,000039: 11,3266 02031 RAND 31 # CHECK PGNCS CONTROL OF S/C
014885,000040: 11,3267 00006 EXTEND
014886,000041: 11,3270 13272 BZF +2
014887,000042: 11,3271 13353 TCF NORATE
014888,000043: 11,3272 37655 CAF BIT3
014889,000044: 11,3273 00006 EXTEND
014890,000045: 11,3274 02031 RAND 31 # CHECK OUT-OF-DETENT BIT
014891,000046: 11,3275 10000 CCS A
014892,000047: 11,3276 13353 TCF NORATE
014893,000048:
014894,000049: 11,3277 37665 CAF ZERO # ZERO COUNTERS
014895,000050: 11,3300 54042 TS RHCP
014896,000051: 11,3301 54043 TS RHCY
014897,000052: 11,3302 54044 TS RHCR
014898,000053: 11,3303 37650 CAF BIT8 # ENABLE COUNTERS
014899,000054: 11,3304 67647 AD BIT9 # START READING INTO COUNTERS
014900,000055: 11,3305 00006 EXTEND
014901,000056: 11,3306 05013 WOR 13
014902,000057: 11,3307 37653 CAF BIT5
014903,000058: 11,3310 04536 TC WAITLIST # COUNTERS FILLED
014904,000059: 11,3311 03314 22006 2CADR ATTCONT
014905,000060:
014906,000061: 11,3313 04602 TC TASKOVER
014907,000062:
014908,000063: 11,3314 47650 ATTCONT CS BIT8
014909,000064: 11,3315 00006 EXTEND
014910,000065: 11,3316 03013 WAND 13 # RESET COUNTER ENABLE
014911,000066: 11,3317 37645 CAF BIT11
014912,000067: 11,3320 00006 EXTEND
014913,000068: 11,3321 02032 RAND 32 # CHECK IF IN ATTITUDE HOLD MODE
014914,000069: 11,3322 00006 EXTEND
014915,000070: 11,3323 13325 BZF +2
014916,000071: 11,3324 03343 TC XAXOVRD
014917,000072: 11,3325 30042 CA RHCP
014918,000073: 11,3326 00006 EXTEND
014919,000074: 11,3327 77646 MP BIT10
014920,000075: 11,3330 33360 CAF RHCSCALE
014921,000076: 11,3331 00006 EXTEND
014922,000077: 11,3332 70001 MP L
014923,000078: 11,3333 55435 TS PCOM
014924,000079: 11,3334 30044 CA RHCR
014925,000080: 11,3335 00006 EXTEND
014926,000081: 11,3336 77646 MP BIT10
014927,000082: 11,3337 33360 CAF RHCSCALE
014928,000083: 11,3340 00006 EXTEND
014929,000084:
|
|
Page 369 |
014931,000086:
014932,000087: 11,3341 70001 MP L
014933,000088: 11,3342 55436 TS RCOM
014934,000089: 11,3343 30043 XAXOVRD CA RHCY # YAW CHANNEL ONLY IN AUTO MODE
014935,000090: 11,3344 00006 EXTEND
014936,000091: 11,3345 77646 MP BIT10
014937,000092: 11,3346 33360 CAF RHCSCALE
014938,000093: 11,3347 00006 EXTEND
014939,000094: 11,3350 70001 MP L
014940,000095: 11,3351 55437 TS YCOM
014941,000096: 11,3352 13264 TCF RHCNTRL
014942,000097:
014943,000098: 11,3353 37665 NORATE CAF ZERO # SET RATE COMMANDS TO ZERO
014944,000099: 11,3354 55435 TS PCOM
014945,000100: 11,3355 55436 TS RCOM
014946,000101: 11,3356 55437 TS YCOM
014947,000102: 11,3357 04602 TC TASKOVER
014948,000103:
014949,000104: 11,3360 16171 RHCSCALE DEC .44488 # LEAVES INPUTS SCALED AS PI/4 RAD/SEC.
014950,000105: 11,3361 ENDCMS EQUALS
End of include-file CONTROLLER_AND_METER_ROUTINES.agc. Parent file is MAIN.agc