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.

010985,000002:                                                                                                  ## Copyright:    Public domain.
010986,000003:                                                                                                  ## Filename:     KEYRUPT_UPRUPT.agc
010987,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
010988,000005:                                                                                                  ## Assembler:    yaYUL
010989,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
010990,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
010991,000008:                                                                                                  ## Pages:        285-288
010992,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
010993,000010:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
010994,000011:                                                                                                  ##                               and fixed the errors found.
010995,000012: 
010996,000013:                                                                                                  ## This source code has been transcribed or otherwise adapted from
010997,000014:                                                                                                  ## digitized images of a hardcopy from the private collection of 
010998,000015:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
010999,000016: 
011000,000017:                                                                                                  ## Notations on the hardcopy document read, in part:
011001,000018: 
011002,000019:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
011003,000020:                                                                                                  ##       NOV 10, 1966
011004,000021: 
011005,000022:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
011006,000023:                                                                                                  ##       date of the program revision or the assembly.]
011007,000024: 
011008,000025:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent 
011009,000026:                                                                                                  ## reduction in image quality) are available online at 
011010,000027:                                                                                                  ##       https://www.ibiblio.org/apollo.  
011011,000028:                                                                                                  ## The original high-quality digital images are available at archive.org:
011012,000029:                                                                                                  ##       https://archive.org/details/aurora00dapg

Page 285

011014,000031: 07,2362                                           BANK     7                                     
011015,000032: 
011016,000033: 07,2362           54016        KEYRUPT1           TS       BANKRUPT                              
011017,000034: 07,2363           56002                           XCH      Q                                     
011018,000035: 07,2364           54012                           TS       QRUPT                                 
011019,000036: 07,2365           05257                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
011020,000037: 07,2366           35224                           CAF      LOW5                                  
011021,000038: 07,2367           00006                           EXTEND                                         
011022,000039: 07,2370           02015                           RAND     MNKEYIN                               
011023,000040: 07,2371           54077        KEYCOM             TS       RUPTREG4                              
011024,000041: 07,2372           35233                           CAF      CHRPRIO                               
011025,000042: 07,2373           04363                           TC       NOVAC                                 
011026,000043: 07,2374     0264                                  EBANK=   DSPCOUNT                              
011027,000044: 07,2374           02002 10000                     2CADR    CHARIN                                
011028,000045: 07,2376           30077                           CA       RUPTREG4                              
011029,000046: 07,2377           50071                           INDEX    LOCCTR                                
011030,000047: 07,2400           54140                           TS       MPAC                                  #  LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
011031,000048: 07,2401           04606                           TC       RESUME                                
011032,000049: 

Page 286

011034,000051:                                                                                                  #  UPRUPT PROGRAM
011035,000052: 
011036,000053: 07,2402           54016        UPRUPT             TS       BANKRUPT                              
011037,000054: 07,2403           56002                           XCH      Q                                     
011038,000055: 07,2404           54012                           TS       QRUPT                                 
011039,000056: 07,2405           05257                           TC       LODSAMPT                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65.
011040,000057: 07,2406           37665                           CAF      ZERO                                  
011041,000058: 07,2407           56045                           XCH      INLINK                                
011042,000059: 07,2410           54077                           TS       KEYTEMP1                              
011043,000060: 07,2411           37655                           CAF      BIT3                                  #  TURN ON UPACT LIGHT
011044,000061: 07,2412           00006                           EXTEND                                         #  (BIT 3 OF CHANNEL 11)
011045,000062: 07,2413           05011                           WOR      DSALMOUT                              
011046,000063: 07,2414           35224        UPRUPT1            CAF      LOW5                                  #  TEST FOR TRIPLE CHAR REDUNDANCY
011047,000064: 07,2415           70077                           MASK     KEYTEMP1                              #  LOW5 OF WORD
011048,000065: 07,2416           56077                           XCH      KEYTEMP1                              #  LOW5 INTO KEYTEMP1
011049,000066: 07,2417           56021                           XCH      SR                                    #  WHOLE WORD INTO SR
011050,000067: 07,2420           55070                           TS       KEYTEMP2                              #  ORIGINAL SR INTO KEYTEMP2
011051,000068: 07,2421           02465                           TC       SRGHT5                                
011052,000069: 07,2422           75224                           MASK     LOW5                                  #  MID 5
011053,000070: 07,2423           62477                           AD       HI10                                  
011054,000071: 07,2424           02474                           TC       UPTEST                                
011055,000072: 07,2425           02465                           TC       SRGHT5                                
011056,000073: 07,2426           75224                           MASK     LOW5                                  #  HIGH 5
011057,000074: 07,2427           40000                           COM                                            
011058,000075: 07,2430           02474                           TC       UPTEST                                
011059,000076: 07,2431           02461        UPOK               TC       RESTORSR                              #  CODE IS GOOD
011060,000077: 07,2432           42436                           CS       ELRCODE                               #  IF CODE = ERROR LIGHT RESET, PUT +0
011061,000078: 07,2433           60077                           AD       KEYTEMP1                              #  INTO BIT1 OF UPLOCK.
011062,000079: 07,2434           10000                           CCS      A                                     #  IF CODE NOT= ELR, PASS CODE ONLY IF
011063,000080: 07,2435           02444                           TC       TSTUPLOK                              #  BIT1 OF UPLOCK = 0.
011064,000081: 07,2436           00022        ELRCODE            OCT      22                                    
011065,000082: 07,2437           02444                           TC       TSTUPLOK                              
011066,000083: 07,2440           47657                           CS       BIT1                                  #  PUT 0 INTO BIT1 OF UPLOCK
011067,000084: 07,2441           70342                           MASK     UPLOCK                                
011068,000085: 07,2442           54342                           TS       UPLOCK                                
011069,000086: 07,2443           02450                           TC       ACCEPTUP                              
011070,000087: 07,2444           37657        TSTUPLOK           CAF      BIT1                                  
011071,000088: 07,2445           70342                           MASK     UPLOCK                                
011072,000089: 07,2446           10000                           CCS      A                                     
011073,000090: 07,2447           04606                           TC       RESUME                                #  BIT1 OF UPLOCK = 1.
011074,000091: 07,2450           56077        ACCEPTUP           XCH      KEYTEMP1                              #  BIT1 OF UPLOCK = 0.
011075,000092: 07,2451           02371                           TC       KEYCOM                                
011076,000093: 
011077,000094: 07,2452           02461        TMFAIL2            TC       RESTORSR                              #  CODE IS BAD
011078,000095: 07,2453           47657                           CS       BIT1                                  #  LOCK OUT FURTHER UPLINK ACTIVITY (BY
011079,000096: 07,2454           70342                           MASK     UPLOCK                                #  PUTTING 1 INTO BIT1 OF UPLOCK) UNTIL ELR
011080,000097: 07,2455           67657                           AD       BIT1                                  #  IS SENT UP UPLINK.
011081,000098: 07,2456           54342                           TS       UPLOCK                                
011082,000099: 07,2457           04606        TMFAIL1            TC       TMALM                                 
011083,000100: 07,2460           04606                           TC       RESUME                                

Page 287

011085,000102: 07,2461           57070        RESTORSR           XCH      KEYTEMP2                              
011086,000103: 07,2462           60000                           DOUBLE                                         
011087,000104: 07,2463           54021                           TS       SR                                    
011088,000105: 07,2464           00002                           TC       Q                                     
011089,000106: 
011090,000107: 07,2465     4606               TMALM              =        RESUME                                #  FOR NOW
011091,000108: 
011092,000109: 07,2465           40021        SRGHT5             CS       SR                                    
011093,000110: 07,2466           40021                           CS       SR                                    
011094,000111: 07,2467           40021                           CS       SR                                    
011095,000112: 07,2470           40021                           CS       SR                                    
011096,000113: 07,2471           40021                           CS       SR                                    
011097,000114: 07,2472           40000                           CS       A                                     
011098,000115: 07,2473           00002                           TC       Q                                     #  DELIVERS WORD UNCOMPLEMENTED
011099,000116: 
011100,000117: 07,2474           60077        UPTEST             AD       KEYTEMP1                              
011101,000118: 07,2475           10000                           CCS      A                                     
011102,000119: 07,2476           02452                           TC       TMFAIL2                               
011103,000120: 07,2477           77740        HI10               OCT      77740                                 
011104,000121: 07,2500           02452                           TC       TMFAIL2                               
011105,000122: 07,2501           00002                           TC       Q                                     
011106,000123: 
011107,000124:                                                                                                  #  UPACT IS TURNED OFF BY VBRELDSP, ALSO BY ERROR LIGHT RESET.       

Page 288

011109,000126:                                                                                                  #  THE RECEPTION OF A BAD CODE BY UPLINK LOCKS OUT FURTHER UPLINK ACTIVITY
011110,000127:                                                                                                  #  BY PLACING A 1 INTO BIT1 OF UPLOCK. BIT9 (ALONG WITH BIT11) OF TMKEYBUF
011111,000128:                                                                                                  #  IS SET TO 1 TO SEND AN INDICATION OF THIS SITUATION DOWN THE DOWNLINK.
011112,000129:                                                                                                  #  THE UPLINK INTERLOCK IS ALLOWED WHEN AN ERROR LIGHT RESET CODE IS SENT
011113,000130:                                                                                                  #  UP THE UPLINK, OR WHEN A FRESH START IS PERFORMED.
011114,000131: 
011115,000132: 07,2502                                           EQUALS                                         

End of include-file KEYRUPT,_UPRUPT.agc.  Parent file is MAIN.agc