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.

017433,000002:                                                                                                  ## Copyright:    Public domain.
017434,000003:                                                                                                  ## Filename:     RTB_OP_CODES.agc
017435,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
017436,000005:                                                                                                  ## Assembler:    yaYUL
017437,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
017438,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
017439,000008:                                                                                                  ## Pages:        425-430
017440,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
017441,000010:                                                                                                  ##               2016-10-03 JL   Transcribed pages 425-430.
017442,000011:                                                                                                  ##               2016-10-16 HG   Fix operand LASTXMCD -> LASTXCMD
017443,000012:                                                                                                  ##                                           RUPTREG12 -> RUPTREG2 
017444,000013:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
017445,000014:                                                                                                  ##                               and fixed the errors found.
017446,000015: 
017447,000016:                                                                                                  ## This source code has been transcribed or otherwise adapted from
017448,000017:                                                                                                  ## digitized images of a hardcopy from the private collection of
017449,000018:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
017450,000019:                                                                                                  ##
017451,000020:                                                                                                  ## Notations on the hardcopy document read, in part:
017452,000021:                                                                                                  ##
017453,000022:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
017454,000023:                                                                                                  ##       NOV 10, 1966
017455,000024:                                                                                                  ##
017456,000025:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
017457,000026:                                                                                                  ##       date of the program revision or the assembly.]
017458,000027:                                                                                                  ##
017459,000028:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent
017460,000029:                                                                                                  ## reduction in image quality) are available online at
017461,000030:                                                                                                  ##       https://www.ibiblio.org/apollo.
017462,000031:                                                                                                  ## The original high-quality digital images are available at archive.org:
017463,000032:                                                                                                  ##       https://archive.org/details/aurora00dapg
017464,000033: 

Page 425

017466,000035: 15,3342                                           SETLOC   ENDINFSS                              
017467,000036: 
017468,000037:                                                                                                  #           LOAD TIME2, TIME1 INTO MPAC:
017469,000038: 
017470,000039: 15,3342           00006        LOADTIME           EXTEND                                         
017471,000040: 15,3343           30025                           DCA      TIME2                                 
017472,000041: 15,3344           16470                           TCF      SLOAD2                                
017473,000042: 
017474,000043:                                                                                                  #           CONVERT THE SINGLE PRECISION 2'S COMPLEMENT NUMBER ARRIVING IN MPAC (SCALED IN HALF-REVOLUTIONS) TO A
017475,000044:                                                                                                  #  DP 1'S COMPLEMENT NUMBER SCALED IN REVOLUTIONS.
017476,000045: 
017477,000046: 15,3345           10140        CDULOGIC           CCS      MPAC                                  
017478,000047: 15,3346           37665                           CAF      ZERO                                  
017479,000048: 15,3347           13352                           TCF      +3                                    
017480,000049: 15,3350           13351                           NOOP                                           
017481,000050: 15,3351           47642                           CS       HALF                                  
017482,000051: 
017483,000052: 15,3352           54141                           TS       MPAC       +1                         
017484,000053: 15,3353           37665                           CAF      ZERO                                  
017485,000054: 15,3354           56140                           XCH      MPAC                                  
017486,000055: 15,3355           00006                           EXTEND                                         
017487,000056: 15,3356           77642                           MP       HALF                                  
017488,000057: 15,3357           20141                           DAS      MPAC                                  
017489,000058: 15,3360           16472                           TCF      SLOAD2     +2                         #  C(A) = +0.
017490,000059: 
017491,000060:                                                                                                  #           READ IMU CDUS INTO MPAC AS A VECTOR. ESPECIALLY USEFUL IN CONNECTION WITH SMNB, ETC.
017492,000061: 
017493,000062: 15,3361           00004        READCDUS           INHINT                                         
017494,000063: 15,3362           30033                           CA       CDUY                                  #  IN ORDER Y Z X
017495,000064: 15,3363           54140                           TS       MPAC                                  
017496,000065: 15,3364           30034                           CA       CDUZ                                  
017497,000066: 15,3365           54143                           TS       MPAC       +3                         
017498,000067: 15,3366           30032                           CA       CDUX                                  
017499,000068: 15,3367           13376                           TCF      READPIPS   +6                         #  COMMON CODING.
017500,000069: 
017501,000070:                                                                                                  #           READ THE PIPS INTO MPAC WITHOUT CHANGING THEM:
017502,000071: 
017503,000072: 15,3370           00004        READPIPS           INHINT                                         
017504,000073: 15,3371           30037                           CA       PIPAX                                 
017505,000074: 15,3372           54140                           TS       MPAC                                  
017506,000075: 15,3373           30040                           CA       PIPAY                                 
017507,000076: 15,3374           54143                           TS       MPAC       +3                         
017508,000077: 15,3375           30041                           CA       PIPAZ                                 
017509,000078: 15,3376           00003                           RELINT                                         
017510,000079: 15,3377           54145                           TS       MPAC       +5                         
017511,000080: 
017512,000081: 15,3400           37665                           CAF      ZERO                                  
017513,000082: 15,3401           54141                           TS       MPAC       +1                         
017514,000083: 15,3402           54144                           TS       MPAC       +4                         
017515,000084: 15,3403           54146                           TS       MPAC       +6                         
017516,000085: 

Page 426

017518,000087: 15,3404           47657        VECMODE            CS       ONE                                   
017519,000088: 15,3405           16013                           TCF      NEWMODE                               
017520,000089: 
017521,000090:                                                                                                  #           FORCE TP SIGN AGREEMENT IN MPAC:
017522,000091: 
017523,000092: 15,3406           07235        SGNAGREE           TC       TPAGREE                               
017524,000093: 15,3407           16014                           TCF      DANZIG                                
017525,000094: 
017526,000095:                                                                                                  #           CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE
017527,000096:                                                                                                  #  SCALED IN HALF-REVOLUTIONS.
017528,000097: 
017529,000098: 15,3410           03440        1STO2S             TC       1TO2SUB                               
017530,000099: 15,3411           37665                           CAF      ZERO                                  
017531,000100: 15,3412           54141                           TS       MPAC       +1                         
017532,000101: 15,3413           16013                           TCF      NEWMODE                               
017533,000102: 
017534,000103:                                                                                                  #           DO 1STO2S ON A VECTOR OF ANGLES:
017535,000104: 
017536,000105: 15,3414           03440        V1STO2S            TC       1TO2SUB                               #  ANSWER ARRIVES IN A AND MPAC.
017537,000106: 
017538,000107: 15,3415           52146                           DXCH     MPAC       +5                         
017539,000108: 15,3416           52141                           DXCH     MPAC                                  
017540,000109: 15,3417           03440                           TC       1TO2SUB                               
017541,000110: 15,3420           54142                           TS       MPAC       +2                         
017542,000111: 
017543,000112: 15,3421           52144                           DXCH     MPAC       +3                         
017544,000113: 15,3422           52141                           DXCH     MPAC                                  
017545,000114: 15,3423           03440                           TC       1TO2SUB                               
017546,000115: 15,3424           54141                           TS       MPAC       +1                         
017547,000116: 
017548,000117: 15,3425           30145                           CA       MPAC       +5                         
017549,000118: 15,3426           54140                           TS       MPAC                                  
017550,000119: 
017551,000120: 15,3427           37657                           CAF      ONE                                   #  MODE IS TP.
017552,000121: 15,3430           16013                           TCF      NEWMODE                               
017553,000122: 
017554,000123:                                                                                                  #           V1STO2S FOR 2 COMPONENT VECTOR, USED BY RR.
017555,000124: 
017556,000125: 15,3431           03440        2V1STO2S           TC       1TO2SUB                               
017557,000126: 15,3432           52144                           DXCH     MPAC       +3                         
017558,000127: 15,3433           52141                           DXCH     MPAC                                  
017559,000128: 15,3434           03440                           TC       1TO2SUB                               
017560,000129: 15,3435           54001                           TS       L                                     
017561,000130: 15,3436           30143                           CA       MPAC       +3                         
017562,000131: 15,3437           16470                           TCF      SLOAD2                                
017563,000132: 
017564,000133:                                                                                                  #           SUBROUTINE TO DO DOUBLING AND 1'S TO 2'S COMVERSION:
017565,000134: 
017566,000135: 15,3440           52141        1TO2SUB            DXCH     MPAC                                  #  FINAL MPAC +1 UNSPECIFIED.
017567,000136: 15,3441           20001                           DDOUBL                                         

Page 427

017569,000138: 15,3442           10000                           CCS      A                                     
017570,000139: 15,3443           67657                           AD       ONE                                   
017571,000140: 15,3444           13446                           TCF      +2                                    
017572,000141: 15,3445           40000                           COM                                            #  THIS WAS REVERSE OF MSU.
017573,000142: 
017574,000143: 15,3446           54140                           TS       MPAC                                  #  AND SKIP ON OVERFLOW.
017575,000144: 15,3447           00002                           TC       Q                                     
017576,000145: 
017577,000146: 15,3450           50000                           INDEX    A                                     #  OVERFLOW UNCORRECT AND IN MSU.
017578,000147: 15,3451           37640                           CAF      LIMITS                                
017579,000148: 15,3452           26140                           ADS      MPAC                                  
017580,000149: 15,3453           00002                           TC       Q                                     
017581,000150: 

Page 428

017583,000152:                                                                                                  #           SUBROUTINE TO INCREMENT CDUS
017584,000153: 15,3454           33467        INCRCDUS           CAF      LOCTHETA                              
017585,000154: 15,3455           54114                           TS       BUF                                   #  PLACE ADRES(THETA) IN BUF.
017586,000155: 15,3456           30140                           CAE      MPAC                                  #  INCREMENT IN 1S COMPL.
017587,000156: 15,3457           03470                           TC       CDUINC                                
017588,000157: 
017589,000158: 15,3460           24114                           INCR     BUF                                   
017590,000159: 15,3461           30143                           CAE      MPAC       +3                         
017591,000160: 15,3462           03470                           TC       CDUINC                                
017592,000161: 
017593,000162: 15,3463           24114                           INCR     BUF                                   
017594,000163: 15,3464           30145                           CAE      MPAC       +5                         
017595,000164: 15,3465           03470                           TC       CDUINC                                
017596,000165: 
017597,000166: 15,3466           13404                           TCF      VECMODE                               
017598,000167: 
017599,000168: 15,3467           00400        LOCTHETA           ADRES    THETAD                                
017600,000169: 
017601,000170:                                                                                                  #           THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL.
017602,000171:                                                                                                  #  QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCREMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL.
017603,000172:                                                                                                  #  (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL.
017604,000173: 
017605,000174: 15,3470           54126        CDUINC             TS       TEM2                                  #  1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
017606,000175: 15,3471           50114                           INDEX    BUF                                   
017607,000176: 15,3472           10000                           CCS      0                                     #  CHANGE 2S COMPL. ANGLE(IN BUF)INTO 1S
017608,000177: 15,3473           67657                           AD       ONE                                   
017609,000178: 15,3474           13500                           TCF      +4                                    
017610,000179: 15,3475           67657                           AD       ONE                                   
017611,000180: 15,3476           67657                           AD       ONE                                   #  OVERFLOW HERE IF 2S COMPL. IS 180 DEG.
017612,000181: 15,3477           40000                           COM                                            
017613,000182: 
017614,000183: 15,3500           60126                           AD       TEM2                                  #  ADD IN INCREMENT. WILL OVERFLOW IF RE-
017615,000184:                                                                                                  #  SULT MOVES FROM 2ND TO 3D QUAD.(OR BACK)
017616,000185: 15,3501           10000                           CCS      A                                     #  BACK TO 2S COMPL.
017617,000186: 15,3502           67657                           AD       ONE                                   
017618,000187: 15,3503           13505                           TCF      +2                                    
017619,000188: 15,3504           40000                           COM                                            
017620,000189: 15,3505           54126                           TS       TEM2                                  #  STORE 14BIT QUANTITY WITH PRESENT SIGN
017621,000190: 15,3506           13512                           TCF      +4                                    
017622,000191: 15,3507           50000                           INDEX    A                                     #  OVERFLOW MEANS CORRECT 14BIT VALUE,WRONG
017623,000192:                                                                                                  #   SIGN.
017624,000193: 15,3510           37640                           CAF      LIMITS                                #  FIX IT,BY ADDING IN 37777 OR 40000
017625,000194: 15,3511           60126                           AD       TEM2                                  
017626,000195: 
017627,000196: 15,3512           50114                           INDEX    BUF                                   
017628,000197: 15,3513           54000                           TS       0                                     #  STORE NEW ANGLE IN 2S COMPLEMENT.
017629,000198: 15,3514           00002                           TC       Q                                     
017630,000199: 

Page 429

017632,000201:                                                                                                  #           RTB TO TORQUE GYROS, EXCEPT FOR THE CALL TO IMUSTALL. ECADR OF COMMANDS ARRIVES IN X1.
017633,000202: 
017634,000203: 15,3515           50104        PULSEIMU           INDEX    FIXLOC                                #  ADDRESS OF GYRO COMMANDS SHOULD BE IN X1
017635,000204: 15,3516           30046                           CA       X1                                    
017636,000205: 15,3517           04063                           TC       BANKCALL                              
017637,000206: 15,3520           26317                           CADR     IMUPULSE                              
017638,000207: 15,3521           16014                           TCF      DANZIG                                
017639,000208: 

Page 430

017641,000210:                                                                                                  #           THE FOLLOWING ROUTINE IS USED ONLY IN BENCH TESTING THE RR.
017642,000211: 
017643,000212: 15,3522           04554        RRSIM              TC       FIXDELAY                              
017644,000213: 15,3523           00062                           DEC      50         B-14                       
017645,000214: 
017646,000215: 15,3524           37656        RRSIM2             CAF      BIT2                                  #  SEE IF RR ECTR ENABLED.
017647,000216: 15,3525           00006                           EXTEND                                         
017648,000217: 15,3526           02012                           RAND     12                                    
017649,000218: 15,3527           00006                           EXTEND                                         
017650,000219: 15,3530           13522                           BZF      RRSIM                                 
017651,000220: 
017652,000221: 15,3531           30126                           CA       TEM2                                  #  SAVE EXEC TEMPS SINCE IN RUPT.
017653,000222: 15,3532           54074                           TS       RUPTREG1                              
017654,000223: 15,3533           33573                           CAF      LOPTY                                 
017655,000224: 15,3534           56114                           XCH      BUF                                   
017656,000225: 15,3535           54075                           TS       RUPTREG2                              
017657,000226: 15,3536           30362                           CA       LASTYCMD                              #  ECTR.
017658,000227: 15,3537           60000                           DOUBLE                                         
017659,000228: 15,3540           00006                           EXTEND                                         
017660,000229: 15,3541           73574                           MP       RRSIMG                                
017661,000230: 15,3542           03470                           TC       CDUINC                                
017662,000231: 15,3543           24114                           INCR     BUF                                   
017663,000232: 15,3544           30035                           CA       OPTY                                  #  SHAFT CMD IS DIVIDED BY THE ABS VALUE OF
017664,000233: 15,3545           00006                           EXTEND                                         #  THE COS OF THE TRUNNION ANGLE.
017665,000234: 15,3546           20007                           MSU      7                                     #  TO 1S COMPLEMENT.
017666,000235: 15,3547           04232                           TC       SPCOS                                 #                                  *
017667,000236: 15,3550           00006                           EXTEND                                         #  SPCOS NOW GIVES COS SCALED AT 1 *
017668,000237: 15,3551           77642                           MP       BIT14                                 #      (A DAP GROUP FIX)           *
017669,000238: 15,3552           10000                           CCS      A                                     
017670,000239: 15,3553           13556                           TCF      +3                                    
017671,000240: 15,3554           13556                           TCF      +2                                    
017672,000241: 15,3555           13556                           TCF      +1                                    
017673,000242: 15,3556           67657                           AD       ONE                                   
017674,000243: 15,3557           54065                           TS       ITEMP1                                
017675,000244: 
017676,000245: 15,3560           30363                           CA       LASTXCMD                              #  SHAFT RATE DEPENDS ON TRUNNION.
017677,000246: 15,3561           00006                           EXTEND                                         
017678,000247: 15,3562           73574                           MP       RRSIMG                                
017679,000248: 15,3563           00006                           EXTEND                                         
017680,000249: 15,3564           10065                           DV       ITEMP1                                
017681,000250: 15,3565           03470                           TC       CDUINC                                
017682,000251: 15,3566           30074                           CA       RUPTREG1                              
017683,000252: 15,3567           54126                           TS       TEM2                                  
017684,000253: 15,3570           30075                           CA       RUPTREG2                              
017685,000254: 15,3571           54114                           TS       BUF                                   
017686,000255: 15,3572           13522                           TCF      RRSIM                                 
017687,000256: 
017688,000257: 15,3573           00035        LOPTY              ADRES    OPTY                                  
017689,000258: 15,3574           22755        RRSIMG             DEC      .59259                                
017690,000259: 15,3575                        ENDRTBSS           EQUALS                                         

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