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.

010928,000002:                                                                                                  ## Copyright:    Public domain.
010929,000003:                                                                                                  ## Filename:     KEYRUPT_UPRUPT.agc
010930,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
010931,000005:                                                                                                  ## Assembler:    yaYUL
010932,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
010933,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
010934,000008:                                                                                                  ## Pages:        285-288
010935,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
010936,000010: 
010937,000011:                                                                                                  ## This source code has been transcribed or otherwise adapted from
010938,000012:                                                                                                  ## digitized images of a hardcopy from the private collection of 
010939,000013:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
010940,000014: 
010941,000015:                                                                                                  ## Notations on the hardcopy document read, in part:
010942,000016: 
010943,000017:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
010944,000018:                                                                                                  ##       NOV 10, 1966
010945,000019: 
010946,000020:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
010947,000021:                                                                                                  ##       date of the program revision or the assembly.]
010948,000022: 
010949,000023:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent 
010950,000024:                                                                                                  ## reduction in image quality) are available online at 
010951,000025:                                                                                                  ##       https://www.ibiblio.org/apollo.  
010952,000026:                                                                                                  ## The original high-quality digital images are available at archive.org:
010953,000027:                                                                                                  ##       https://archive.org/details/aurora00dapg

Page 285

010955,000029: 07,2362                                           BANK     7                                     
010956,000030: 
010957,000031: 07,2362           54016        KEYRUPT1           TS       BANKRUPT                              
010958,000032: 07,2363           56002                           XCH      Q                                     
010959,000033: 07,2364           54012                           TS       QRUPT                                 
010960,000034: 07,2365           05257                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
010961,000035: 07,2366           35224                           CAF      LOW5                                  
010962,000036: 07,2367           00006                           EXTEND                                         
010963,000037: 07,2370           02015                           RAND     MNKEYIN                               
010964,000038: 07,2371           54077        KEYCOM             TS       RUPTREG4                              
010965,000039: 07,2372           35233                           CAF      CHRPRIO                               
010966,000040: 07,2373           04363                           TC       NOVAC                                 
010967,000041: 07,2374     0264                                  EBANK=   DSPCOUNT                              
010968,000042: 07,2374           02002 10000                     2CADR    CHARIN                                
010969,000043: 07,2376           30077                           CA       RUPTREG4                              
010970,000044: 07,2377           50071                           INDEX    LOCCTR                                
010971,000045: 07,2400           54140                           TS       MPAC                                  #  LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
010972,000046: 07,2401           04606                           TC       RESUME                                

Page 286

010974,000048: 07,2402           54016        UPRUPT             TS       BANKRUPT                              
010975,000049: 07,2403           56002                           XCH      Q                                     
010976,000050: 07,2404           54012                           TS       QRUPT                                 
010977,000051: 07,2405           05257                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
010978,000052: 07,2406           37665                           CAF      ZERO                                  
010979,000053: 07,2407           56045                           XCH      INLINK                                
010980,000054: 07,2410           54077                           TS       KEYTEMP1                              
010981,000055: 07,2411           37655                           CAF      BIT3                                  #  TURN ON UPACT LIGHT
010982,000056: 07,2412           00006                           EXTEND                                         #  (BIT 3 OF CHANNEL 11)
010983,000057: 07,2413           05011                           WOR      DSALMOUT                              
010984,000058: 07,2414           35224        UPRUPT1            CAF      LOW5                                  #  TEST FOR TRIPLE CHAR REDUNDANCY
010985,000059: 07,2415           70077                           MASK     KEYTEMP1                              #  LOW5 OF WORD
010986,000060: 07,2416           56077                           XCH      KEYTEMP1                              #  LOW5 INTO KEYTEMP1
010987,000061: 07,2417           56021                           XCH      SR                                    #  WHOLE WORD INTO SR
010988,000062: 07,2420           55070                           TS       KEYTEMP2                              #  ORIGINAL SR INTO KEYTEMP2
010989,000063: 07,2421           02465                           TC       SRGHT5                                
010990,000064: 07,2422           75224                           MASK     LOW5                                  #  MID 5
010991,000065: 07,2423           62477                           AD       HI10                                  
010992,000066: 07,2424           02474                           TC       UPTEST                                
010993,000067: 07,2425           02465                           TC       SRGHT5                                
010994,000068: 07,2426           75224                           MASK     LOW5                                  #  HIGH 5
010995,000069: 07,2427           40000                           COM                                            
010996,000070: 07,2430           02474                           TC       UPTEST                                
010997,000071: 07,2431           02461        UPOK               TC       RESTORSR                              #  CODE IS GOOD
010998,000072: 07,2432           42436                           CS       ELRCODE                               #  IF CODE = ERROR LIGHT RESET, PUT +0
010999,000073: 07,2433           60077                           AD       KEYTEMP1                              #  INTO BIT1 OF UPLOCK.
011000,000074: 07,2434           10000                           CCS      A                                     #  IF CODE NOT= ELR, PASS CODE ONLY IF
011001,000075: 07,2435           02444                           TC       TSTUPLOK                              #  BIT1 OF UPLOCK = 0.
011002,000076: 07,2436           00022        ELRCODE            OCT      22                                    
011003,000077: 07,2437           02444                           TC       TSTUPLOK                              
011004,000078: 07,2440           47657                           CS       BIT1                                  #  PUT 0 INTO BIT1 OF UPLOCK
011005,000079: 07,2441           70342                           MASK     UPLOCK                                
011006,000080: 07,2442           54342                           TS       UPLOCK                                
011007,000081: 07,2443           02450                           TC       ACCEPTUP                              
011008,000082: 07,2444           37657        TSTUPLOK           CAF      BIT1                                  
011009,000083: 07,2445           70342                           MASK     UPLOCK                                
011010,000084: 07,2446           10000                           CCS      A                                     
011011,000085: 07,2447           04606                           TC       RESUME                                #  BIT1 OF UPLOCK = 1.
011012,000086: 07,2450           56077        ACCEPTUP           XCH      KEYTEMP1                              #  BIT1 OF UPLOCK = 0.
011013,000087: 07,2451           02371                           TC       KEYCOM                                
011014,000088: 
011015,000089: 07,2452           02461        TMFAIL2            TC       RESTORSR                              #  CODE IS BAD
011016,000090: 07,2453           47657                           CS       BIT1                                  #  LOCK OUT FURTHER UPLINK ACTIVITY (BY
011017,000091: 07,2454           70342                           MASK     UPLOCK                                #  PUTTING 1 INTO BIT1 OF UPLOCK) UNTIL ELR
011018,000092: 07,2455           67657                           AD       BIT1                                  #  IS SENT UP UPLINK.
011019,000093: 07,2456           54342                           TS       UPLOCK                                
011020,000094: 07,2457           04606        TMFAIL1            TC       TMALM                                 
011021,000095: 07,2460           04606                           TC       RESUME                                

Page 287

011023,000097: 07,2461           57070        RESTORSR           XCH      KEYTEMP2                              
011024,000098: 07,2462           60000                           DOUBLE                                         
011025,000099: 07,2463           54021                           TS       SR                                    
011026,000100: 07,2464           00002                           TC       Q                                     
011027,000101: 
011028,000102: 07,2465     4606               TMALM              =        RESUME                                #  FOR NOW
011029,000103: 
011030,000104: 07,2465           40021        SRGHT5             CS       SR                                    
011031,000105: 07,2466           40021                           CS       SR                                    
011032,000106: 07,2467           40021                           CS       SR                                    
011033,000107: 07,2470           40021                           CS       SR                                    
011034,000108: 07,2471           40021                           CS       SR                                    
011035,000109: 07,2472           40000                           CS       A                                     
011036,000110: 07,2473           00002                           TC       Q                                     #  DELIVERS WORD UNCOMPLEMENTED
011037,000111: 
011038,000112: 07,2474           60077        UPTEST             AD       KEYTEMP1                              
011039,000113: 07,2475           10000                           CCS      A                                     
011040,000114: 07,2476           02452                           TC       TMFAIL2                               
011041,000115: 07,2477           77740        HI10               OCT      77740                                 
011042,000116: 07,2500           02452                           TC       TMFAIL2                               
011043,000117: 07,2501           00002                           TC       Q                                     
011044,000118: 
011045,000119:                                                                                                  #  UPACT IS TURNED OFF BY VBRELDSP, ALSO BY ERROR LIGHT RESET.       

Page 288

011047,000121:                                                                                                  #  THE RECEPTION OF A BAD CODE BY UPLINK LOCKS OUT FURTHER UPLINK ACTIVITY
011048,000122:                                                                                                  #  BY PLACING A 1 INTO BIT1 OF UPLOCK. BIT9 (ALONG WITH BIT11) OF TMKEYBUF
011049,000123:                                                                                                  #  IS SET TO 1 TO SEND AN INDICATION OF THIS SITUATION DOWN THE DOWNLINK.
011050,000124:                                                                                                  #  THE UPLINK INTERLOCK IS ALLOWED WHEN AN ERROR LIGHT RESET CODE IS SENT
011051,000125:                                                                                                  #  UP THE UPLINK, OR WHEN A FRESH START IS PERFORMED.
011052,000126: 
011053,000127: 07,2502                                           EQUALS                                         

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