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.
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.
|
010989,000002: ## Copyright: Public domain.
010990,000003: ## Filename: KEYRUPT_UPRUPT.agc
010991,000004: ## Purpose: Part of the source code for Aurora (revision 12).
010992,000005: ## Assembler: yaYUL
010993,000006: ## Contact: Ron Burkey <info@sandroid.org>.
010994,000007: ## Website: https://www.ibiblio.org/apollo.
010995,000008: ## Pages: 285-288
010996,000009: ## Mod history: 2016-09-20 JL Created.
010997,000010: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
010998,000011: ## and fixed the errors found.
010999,000012:
011000,000013: ## This source code has been transcribed or otherwise adapted from
011001,000014: ## digitized images of a hardcopy from the private collection of
011002,000015: ## Don Eyles. The digitization was performed by archive.org.
011003,000016:
011004,000017: ## Notations on the hardcopy document read, in part:
011005,000018:
011006,000019: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
011007,000020: ## NOV 10, 1966
011008,000021:
011009,000022: ## [Note that this is the date the hardcopy was made, not the
011010,000023: ## date of the program revision or the assembly.]
011011,000024:
011012,000025: ## The scan images (with suitable reduction in storage size and consequent
011013,000026: ## reduction in image quality) are available online at
011014,000027: ## https://www.ibiblio.org/apollo.
011015,000028: ## The original high-quality digital images are available at archive.org:
011016,000029: ## https://archive.org/details/aurora00dapg
|
|
Page 285 |
011018,000031: 07,2362 BANK 7
011019,000032:
011020,000033: 07,2362 54016 KEYRUPT1 TS BANKRUPT
011021,000034: 07,2363 56002 XCH Q
011022,000035: 07,2364 54012 TS QRUPT
011023,000036: 07,2365 05257 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
011024,000037: 07,2366 35224 CAF LOW5
011025,000038: 07,2367 00006 EXTEND
011026,000039: 07,2370 02015 RAND MNKEYIN
011027,000040: 07,2371 54077 KEYCOM TS RUPTREG4
011028,000041: 07,2372 35233 CAF CHRPRIO
011029,000042: 07,2373 04363 TC NOVAC
011030,000043: 07,2374 0264 EBANK= DSPCOUNT
011031,000044: 07,2374 02002 10000 2CADR CHARIN
011032,000045: 07,2376 30077 CA RUPTREG4
011033,000046: 07,2377 50071 INDEX LOCCTR
011034,000047: 07,2400 54140 TS MPAC # LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
011035,000048: 07,2401 04606 TC RESUME
011036,000049:
|
|
Page 286 |
011038,000051: # UPRUPT PROGRAM
011039,000052:
011040,000053: 07,2402 54016 UPRUPT TS BANKRUPT
011041,000054: 07,2403 56002 XCH Q
011042,000055: 07,2404 54012 TS QRUPT
011043,000056: 07,2405 05257 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
011044,000057: 07,2406 37665 CAF ZERO
011045,000058: 07,2407 56045 XCH INLINK
011046,000059: 07,2410 54077 TS KEYTEMP1
011047,000060: 07,2411 37655 CAF BIT3 # TURN ON UPACT LIGHT
011048,000061: 07,2412 00006 EXTEND # (BIT 3 OF CHANNEL 11)
011049,000062: 07,2413 05011 WOR DSALMOUT
011050,000063: 07,2414 35224 UPRUPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY
011051,000064: 07,2415 70077 MASK KEYTEMP1 # LOW5 OF WORD
011052,000065: 07,2416 56077 XCH KEYTEMP1 # LOW5 INTO KEYTEMP1
011053,000066: 07,2417 56021 XCH SR # WHOLE WORD INTO SR
011054,000067: 07,2420 55070 TS KEYTEMP2 # ORIGINAL SR INTO KEYTEMP2
011055,000068: 07,2421 02465 TC SRGHT5
011056,000069: 07,2422 75224 MASK LOW5 # MID 5
011057,000070: 07,2423 62477 AD HI10
011058,000071: 07,2424 02474 TC UPTEST
011059,000072: 07,2425 02465 TC SRGHT5
011060,000073: 07,2426 75224 MASK LOW5 # HIGH 5
011061,000074: 07,2427 40000 COM
011062,000075: 07,2430 02474 TC UPTEST
011063,000076: 07,2431 02461 UPOK TC RESTORSR # CODE IS GOOD
011064,000077: 07,2432 42436 CS ELRCODE # IF CODE = ERROR LIGHT RESET, PUT +0
011065,000078: 07,2433 60077 AD KEYTEMP1 # INTO BIT1 OF UPLOCK.
011066,000079: 07,2434 10000 CCS A # IF CODE NOT= ELR, PASS CODE ONLY IF
011067,000080: 07,2435 02444 TC TSTUPLOK # BIT1 OF UPLOCK = 0.
011068,000081: 07,2436 00022 ELRCODE OCT 22
011069,000082: 07,2437 02444 TC TSTUPLOK
011070,000083: 07,2440 47657 CS BIT1 # PUT 0 INTO BIT1 OF UPLOCK
011071,000084: 07,2441 70342 MASK UPLOCK
011072,000085: 07,2442 54342 TS UPLOCK
011073,000086: 07,2443 02450 TC ACCEPTUP
011074,000087: 07,2444 37657 TSTUPLOK CAF BIT1
011075,000088: 07,2445 70342 MASK UPLOCK
011076,000089: 07,2446 10000 CCS A
011077,000090: 07,2447 04606 TC RESUME # BIT1 OF UPLOCK = 1.
011078,000091: 07,2450 56077 ACCEPTUP XCH KEYTEMP1 # BIT1 OF UPLOCK = 0.
011079,000092: 07,2451 02371 TC KEYCOM
011080,000093:
011081,000094: 07,2452 02461 TMFAIL2 TC RESTORSR # CODE IS BAD
011082,000095: 07,2453 47657 CS BIT1 # LOCK OUT FURTHER UPLINK ACTIVITY (BY
011083,000096: 07,2454 70342 MASK UPLOCK # PUTTING 1 INTO BIT1 OF UPLOCK) UNTIL ELR
011084,000097: 07,2455 67657 AD BIT1 # IS SENT UP UPLINK.
011085,000098: 07,2456 54342 TS UPLOCK
011086,000099: 07,2457 04606 TMFAIL1 TC TMALM
011087,000100: 07,2460 04606 TC RESUME
|
|
Page 287 |
011089,000102: 07,2461 57070 RESTORSR XCH KEYTEMP2
011090,000103: 07,2462 60000 DOUBLE
011091,000104: 07,2463 54021 TS SR
011092,000105: 07,2464 00002 TC Q
011093,000106:
011094,000107: 07,2465 4606 TMALM = RESUME # FOR NOW
011095,000108:
011096,000109: 07,2465 40021 SRGHT5 CS SR
011097,000110: 07,2466 40021 CS SR
011098,000111: 07,2467 40021 CS SR
011099,000112: 07,2470 40021 CS SR
011100,000113: 07,2471 40021 CS SR
011101,000114: 07,2472 40000 CS A
011102,000115: 07,2473 00002 TC Q # DELIVERS WORD UNCOMPLEMENTED
011103,000116:
011104,000117: 07,2474 60077 UPTEST AD KEYTEMP1
011105,000118: 07,2475 10000 CCS A
011106,000119: 07,2476 02452 TC TMFAIL2
011107,000120: 07,2477 77740 HI10 OCT 77740
011108,000121: 07,2500 02452 TC TMFAIL2
011109,000122: 07,2501 00002 TC Q
011110,000123:
011111,000124: # UPACT IS TURNED OFF BY VBRELDSP, ALSO BY ERROR LIGHT RESET.
|
|
Page 288 |
011113,000126: # THE RECEPTION OF A BAD CODE BY UPLINK LOCKS OUT FURTHER UPLINK ACTIVITY
011114,000127: # BY PLACING A 1 INTO BIT1 OF UPLOCK. BIT9 (ALONG WITH BIT11) OF TMKEYBUF
011115,000128: # IS SET TO 1 TO SEND AN INDICATION OF THIS SITUATION DOWN THE DOWNLINK.
011116,000129: # THE UPLINK INTERLOCK IS ALLOWED WHEN AN ERROR LIGHT RESET CODE IS SENT
011117,000130: # UP THE UPLINK, OR WHEN A FRESH START IS PERFORMED.
011118,000131:
011119,000132: 07,2502 EQUALS
End of include-file KEYRUPT,_UPRUPT.agc. Parent file is MAIN.agc