Source Code

   YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS       BY MSTEWART MAR. 27,2017
This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations.

009094,000002:                                                                                                  ## Copyright:   Public domain.
009095,000003:                                                                                                  ## Filename:    RADAR_TEST_PROGRAMS.agc
009096,000004:                                                                                                  ## Purpose:     This program is designed to extensively test the Apollo Guidance Computer
009097,000005:                                                                                                  ##              (specifically the LM instantiation of it). It is built on top of a heavily
009098,000006:                                                                                                  ##              stripped-down Aurora 12, with all code ostensibly added by the DAP Group
009099,000007:                                                                                                  ##              removed. Instead Borealis expands upon the tests provided by Aurora,
009100,000008:                                                                                                  ##              including corrected tests from Retread 44 and tests from Ron Burkey's
009101,000009:                                                                                                  ##              Validation.
009102,000010:                                                                                                  ## Assembler:   yaYUL
009103,000011:                                                                                                  ## Contact:     Mike Stewart <mastewar1@gmail.com>.
009104,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009105,000013:                                                                                                  ## Mod history: 2016-12-20 MAS  Created from Aurora 12 (with much DAP stuff removed).
009106,000014: 
009107,000015: 10,3254                                           SETLOC   ENDRMODS                              
009108,000016: 10,3254  E7,1434                                  EBANK=   RSTKLOC                               
009109,000017: 
009110,000018:                                                                                                  #  RADAR SAMPLING LOOP.
009111,000019: 
009112,000020: 10,3254           11435        RADSAMP            CCS      RSAMPDT                               #  TIMES NORMAL ONCE-PER-SECOND SAMPLING.
009113,000021: 10,3255           13257                           TCF      +2                                    
009114,000022: 
009115,000023: 10,3256           14563                           TCF      TASKOVER                              #  +0 INSERTED MANUALLY TERMINATES TEST.
009116,000024: 
009117,000025: 10,3257           04517                           TC       WAITLIST                              
009118,000026: 10,3260           03254 20007                     2CADR    RADSAMP                               
009119,000027: 
009120,000028: 10,3262           34504                           CAF      PRIO25                                
009121,000029: 10,3263           04344                           TC       NOVAC                                 
009122,000030: 10,3264           03274 20007                     2CADR    DORSAMP                               
009123,000031: 
009124,000032: 10,3266           33325                           CAF      1/6                                   #  FOR CYCLIC SAMPLING, RTSTDEX =
009125,000033: 10,3267           00006                           EXTEND                                         #  RTSTLOC/6 + RTSTBASE.
009126,000034: 10,3270           71434                           MP       RTSTLOC                               
009127,000035: 10,3271           61433                           AD       RTSTBASE                              #  0 FOR RR, 2 FOR LR.
009128,000036: 10,3272           55431                           TS       RTSTDEX                               
009129,000037: 
009130,000038: 10,3273           14563                           TCF      TASKOVER                              
009131,000039: 
009132,000040:                                                                                                  #  DO THE ACTUAL RADAR SAMPLE.
009133,000041: 
009134,000042: 10,3274           03326        DORSAMP            TC       VARADAR                               #  SELECTS VARIABLE RADAR CHANNEL.
009135,000043: 10,3275           04065                           TC       BANKCALL                              
009136,000044: 10,3276           26712                           CADR     RADSTALL                              
009137,000045: 10,3277           25436                           INCR     RFAILCNT                              #  ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
009138,000046: 
009139,000047: 10,3300           00004        DORSAMP2           INHINT                                         #  YES - UPDATE TM BUFFER.
009140,000048: 10,3301           52416                           DXCH     SAMPLSUM                              
009141,000049: 10,3302           51434                           INDEX    RSTKLOC                               
009142,000050: 10,3303           53440                           DXCH     RSTACK                                
009143,000051: 
009144,000052: 10,3304           52420                           DXCH     OPTYHOLD                              
009145,000053: 10,3305           51434                           INDEX    RSTKLOC                               
009146,000054: 10,3306           53442                           DXCH     RSTACK     +2                         
009147,000055: 
009148,000056: 10,3307           52422                           DXCH     TIMEHOLD                              
009149,000057: 10,3310           51434                           INDEX    RSTKLOC                               
009150,000058: 10,3311           53444                           DXCH     RSTACK     +4                         
009151,000059: 
009152,000060: 10,3312           41434                           CS       RTSTLOC                               #  CYCLE RTSTLOC.
009153,000061: 10,3313           61432                           AD       RTSTMAX                               
009154,000062: 10,3314           00006                           EXTEND                                         
009155,000063: 10,3315           13320                           BZF      +3                                    
009156,000064: 10,3316           31434                           CA       RSTKLOC                               
009157,000065: 10,3317           66162                           AD       SIX                                   
009158,000066: 10,3320           55434                           TS       RSTKLOC                               
009159,000067: 
009160,000068: 10,3321           11435                           CCS      RSAMPDT                               #  SEE IF TIME TO RE-SAMPLE.
009161,000069: 10,3322           14421                           TCF      ENDOFJOB                              #  NO - WAIT FOR T3 (REGULAR SAMPLING).
009162,000070: 
009163,000071: 10,3323           14421                           TCF      ENDOFJOB                              #  TEST TERMINATED.
009164,000072: 10,3324           13274                           TCF      DORSAMP                               #  JUMP RIGHT BACK AND GET ANOTHER SAMPLE.
009165,000073: 
009166,000074: 10,3325           05341        1/6                DEC      .17                                   
009167,000075: 
009168,000076:                                                                                                  #  VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
009169,000077: 
009170,000078: 10,3326           37657        VARADAR            CAF      ONE                                   #  WILL BE SENT TO RADAR ROUTINE IN A BY
009171,000079: 10,3327           54117                           TS       BUF2                                  #  SWCALL.
009172,000080: 10,3330           51431                           INDEX    RTSTDEX                               
009173,000081: 10,3331           33333                           CAF      RDRLOCS                               
009174,000082: 10,3332           14071                           TCF      SWCALL                                #  NOT TOUCHING Q.
009175,000083: 
009176,000084: 10,3333           20650        RDRLOCS            CADR     RRRANGE                               #  =0
009177,000085: 10,3334           20646                           CADR     RRRDOT                                #  =1
009178,000086: 10,3335           20644                           CADR     LRVELX                                #  =2
009179,000087: 10,3336           20642                           CADR     LRVELY                                #  =3
009180,000088: 10,3337           20640                           CADR     LRVELZ                                #  =4
009181,000089: 10,3340           20636                           CADR     LRALT                                 #  =5
009182,000090: 
009183,000091: 10,3341                        ENDRTSTS           EQUALS                                         

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