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. |
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