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.

014842,000002:                                                                                                  ## Copyright:    Public domain.
014843,000003:                                                                                                  ## Filename:     CONTROLLER_AND_METER_ROUTINES.agc
014844,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
014845,000005:                                                                                                  ## Assembler:    yaYUL
014846,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
014847,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
014848,000008:                                                                                                  ## Pages:        368-369
014849,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
014850,000010:                                                                                                  ##               2016-10-16 HG   Fix label ENDCM5 -> ENDCMS
014851,000011:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
014852,000012:                                                                                                  ##                               but no errors found.
014853,000013: 
014854,000014:                                                                                                  ## This source code has been transcribed or otherwise adapted from
014855,000015:                                                                                                  ## digitized images of a hardcopy from the private collection of 
014856,000016:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
014857,000017: 
014858,000018:                                                                                                  ## Notations on the hardcopy document read, in part:
014859,000019: 
014860,000020:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
014861,000021:                                                                                                  ##       NOV 10, 1966
014862,000022: 
014863,000023:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
014864,000024:                                                                                                  ##       date of the program revision or the assembly.]
014865,000025: 
014866,000026:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent 
014867,000027:                                                                                                  ## reduction in image quality) are available online at 
014868,000028:                                                                                                  ##       https://www.ibiblio.org/apollo.  
014869,000029:                                                                                                  ## The original high-quality digital images are available at archive.org:
014870,000030:                                                                                                  ##       https://archive.org/details/aurora00dapg
014871,000031: 

Page 368

014873,000033: 
014874,000034: 11,3264                                           SETLOC   ENDEXTVS                              
014875,000035: 11,3264  E6,1435                                  EBANK=   PCOM                                  
014876,000036: 
014877,000037: 11,3264           37641        RHCNTRL            CAF      BIT15                                 
014878,000038: 11,3265           00006                           EXTEND                                         
014879,000039: 11,3266           02031                           RAND     31                                    #  CHECK PGNCS CONTROL OF S/C
014880,000040: 11,3267           00006                           EXTEND                                         
014881,000041: 11,3270           13272                           BZF      +2                                    
014882,000042: 11,3271           13353                           TCF      NORATE                                
014883,000043: 11,3272           37655                           CAF      BIT3                                  
014884,000044: 11,3273           00006                           EXTEND                                         
014885,000045: 11,3274           02031                           RAND     31                                    #  CHECK OUT-OF-DETENT BIT
014886,000046: 11,3275           10000                           CCS      A                                     
014887,000047: 11,3276           13353                           TCF      NORATE                                
014888,000048: 
014889,000049: 11,3277           37665                           CAF      ZERO                                  #  ZERO COUNTERS
014890,000050: 11,3300           54042                           TS       RHCP                                  
014891,000051: 11,3301           54043                           TS       RHCY                                  
014892,000052: 11,3302           54044                           TS       RHCR                                  
014893,000053: 11,3303           37650                           CAF      BIT8                                  #  ENABLE COUNTERS
014894,000054: 11,3304           67647                           AD       BIT9                                  #  START READING INTO COUNTERS
014895,000055: 11,3305           00006                           EXTEND                                         
014896,000056: 11,3306           05013                           WOR      13                                    
014897,000057: 11,3307           37653                           CAF      BIT5                                  
014898,000058: 11,3310           04536                           TC       WAITLIST                              #  COUNTERS FILLED
014899,000059: 11,3311           03314 22006                     2CADR    ATTCONT                               
014900,000060: 
014901,000061: 11,3313           04602                           TC       TASKOVER                              
014902,000062: 
014903,000063: 11,3314           47650        ATTCONT            CS       BIT8                                  
014904,000064: 11,3315           00006                           EXTEND                                         
014905,000065: 11,3316           03013                           WAND     13                                    #  RESET COUNTER ENABLE
014906,000066: 11,3317           37645                           CAF      BIT11                                 
014907,000067: 11,3320           00006                           EXTEND                                         
014908,000068: 11,3321           02032                           RAND     32                                    #  CHECK IF IN ATTITUDE HOLD MODE
014909,000069: 11,3322           00006                           EXTEND                                         
014910,000070: 11,3323           13325                           BZF      +2                                    
014911,000071: 11,3324           03343                           TC       XAXOVRD                               
014912,000072: 11,3325           30042                           CA       RHCP                                  
014913,000073: 11,3326           00006                           EXTEND                                         
014914,000074: 11,3327           77646                           MP       BIT10                                 
014915,000075: 11,3330           33360                           CAF      RHCSCALE                              
014916,000076: 11,3331           00006                           EXTEND                                         
014917,000077: 11,3332           70001                           MP       L                                     
014918,000078: 11,3333           55435                           TS       PCOM                                  
014919,000079: 11,3334           30044                           CA       RHCR                                  
014920,000080: 11,3335           00006                           EXTEND                                         
014921,000081: 11,3336           77646                           MP       BIT10                                 
014922,000082: 11,3337           33360                           CAF      RHCSCALE                              
014923,000083: 11,3340           00006                           EXTEND                                         
014924,000084: 

Page 369

014926,000086: 
014927,000087: 11,3341           70001                           MP       L                                     
014928,000088: 11,3342           55436                           TS       RCOM                                  
014929,000089: 11,3343           30043        XAXOVRD            CA       RHCY                                  #  YAW CHANNEL ONLY IN AUTO MODE
014930,000090: 11,3344           00006                           EXTEND                                         
014931,000091: 11,3345           77646                           MP       BIT10                                 
014932,000092: 11,3346           33360                           CAF      RHCSCALE                              
014933,000093: 11,3347           00006                           EXTEND                                         
014934,000094: 11,3350           70001                           MP       L                                     
014935,000095: 11,3351           55437                           TS       YCOM                                  
014936,000096: 11,3352           13264                           TCF      RHCNTRL                               
014937,000097: 
014938,000098: 11,3353           37665        NORATE             CAF      ZERO                                  #  SET RATE COMMANDS TO ZERO
014939,000099: 11,3354           55435                           TS       PCOM                                  
014940,000100: 11,3355           55436                           TS       RCOM                                  
014941,000101: 11,3356           55437                           TS       YCOM                                  
014942,000102: 11,3357           04602                           TC       TASKOVER                              
014943,000103: 
014944,000104: 11,3360           16171        RHCSCALE           DEC      .44488                                #  LEAVES INPUTS SCALED AS PI/4 RAD/SEC.
014945,000105: 11,3361                        ENDCMS             EQUALS                                         

End of include-file CONTROLLER_AND_METER_ROUTINES.agc.  Parent file is MAIN.agc