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.

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