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, 1966Note 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