Source Code

062544,000001: # Copyright: Public domain. 062545,000002: # Filename: KEYRUPT_UPRUPT.agc 062546,000003: # Purpose: Part of the source code for Comanche, build 055. It 062547,000004: # is part of the source code for the Command Module's 062548,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11. 062549,000006: # Assembler: yaYUL 062550,000007: # Reference: pp. 1449-1451 062551,000008: # Contact: Ron Burkey <info@sandroid.org> 062552,000009: # Website: http://www.ibiblio.org/apollo. 062553,000010: # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same 062554,000011: # name, and page images. Corrected various 062555,000012: # typos in the transcription of program 062556,000013: # comments, and these should be back-ported 062557,000014: # to Colossus249. 062558,000015: 062559,000016: # The contents of the "Comanche055" files, in general, are transcribed 062560,000017: # from scanned documents. 062561,000018: 062562,000019: # Assemble revision 055 of AGC program Comanche by NASA 062563,000020: # 2021113-051. April 1, 1969. 062564,000021: 062565,000022: # This AGC program shall also be referred to as Colossus 2A 062566,000023: 062567,000024: # Prepared by 062568,000025: # Massachusetts Institute of Technology 062569,000026: # 75 Cambridge Parkway 062570,000027: # Cambridge, Massachusetts 062571,000028: 062572,000029: # under NASA contract NAS 9-4065. 062573,000030: 062574,000031: # Refer directly to the online document mentioned above for further 062575,000032: # information. Please report any errors to info@sandroid.org. 062576,000033: 062577,000034: # Page 1449 062578,000035: 14,3761 BANK 14 062579,000036: 07,2000 SETLOC KEYRUPT 062580,000037: 07,2000 BANK 062581,000038: 07,3673 COUNT* $$/KEYUP 062582,000039: 062583,000040: 07,3673 54016 KEYRUPT1 TS BANKRUPT 062584,000041: 07,3674 56002 XCH Q 062585,000042: 07,3675 54012 TS QRUPT 062586,000043: 07,3676 04414 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65. 062587,000044: 07,3677 34362 CAF LOW5 062588,000045: 07,3700 00006 EXTEND 062589,000046: 07,3701 02015 RAND MNKEYIN # CHECK IF KEYS 5M-1M ON 062590,000047: 07,3702 54073 KEYCOM TS RUPTREG4 062591,000048: 07,3703 40101 CS FLAGWRD5 062592,000049: 07,3704 75001 MASK BIT15 062593,000050: 07,3705 26101 ADS FLAGWRD5 062594,000051: 062595,000052: 07,3706 34371 ACCEPTUP CAF CHRPRIO # (NOTE: RUPTREG4 = KEYTEMP1) 062596,000053: 07,3707 05134 TC NOVAC 062597,000054: 07,3710 0777 EBANK= DSPCOUNT 062598,000055: 07,3710 02000 60101 2CADR CHARIN 062599,000056: 062600,000057: 07,3712 30073 CA RUPTREG4 062601,000058: 07,3713 50064 INDEX LOCCTR 062602,000059: 07,3714 54154 TS MPAC # LEAVE 5 BIT KEY CODE IN MPAC FOR CHARIN 062603,000060: 07,3715 05333 TC RESUME 062604,000061: 062605,000062: # Page 1450 062606,000063: # UPRUPT PROGRAM 062607,000064: 062608,000065: 07,3716 54016 UPRUPT TS BANKRUPT 062609,000066: 07,3717 56002 XCH Q 062610,000067: 07,3720 54012 TS QRUPT 062611,000068: 07,3721 04414 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65. 062612,000069: 07,3722 35021 CAF ZERO 062613,000070: 07,3723 56045 XCH INLINK 062614,000071: 07,3724 54073 TS KEYTEMP1 062615,000072: 07,3725 35015 CAF BIT3 # TURN ON UPACT LIGHT 062616,000073: 07,3726 00006 EXTEND # (BIT 3 OF CHANNEL 11) 062617,000074: 07,3727 05011 WOR DSALMOUT 062618,000075: 07,3730 34362 UPRPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY 062619,000076: 07,3731 70073 MASK KEYTEMP1 # LOW5 OF WORD 062620,000077: 07,3732 56073 XCH KEYTEMP1 # LOW5 INTO KEYTEMP1 062621,000078: 07,3733 00006 EXTEND 062622,000079: 07,3734 75006 MP BIT10 # SHIFT RIGHT 5 062623,000080: 07,3735 54734 TS KEYTEMP2 062624,000081: 07,3736 74362 MASK LOW5 # MID 5 062625,000082: 07,3737 63773 AD HI10 062626,000083: 07,3740 03770 TC UPTEST 062627,000084: 07,3741 35006 CAF BIT10 062628,000085: 07,3742 00006 EXTEND 062629,000086: 07,3743 70734 MP KEYTEMP2 # SHIFT RIGHT 5 062630,000087: 07,3744 74362 MASK LOW5 # HIGH 5 062631,000088: 07,3745 40000 COM 062632,000089: 07,3746 03770 TC UPTEST 062633,000090: 062634,000091: 07,3747 43776 UPOK CS ELRCODE # CODE IS GOOD. IF CODE = `ERROR RESET', 062635,000092: 07,3750 60073 AD KEYTEMP1 # CLEAR UPLOCKFL (SET BIT4 OF FLAGWRD7 = 0) 062636,000093: 07,3751 00006 EXTEND # IF CODE DOES NOT = `ERROR RESET', ACCEPT 062637,000094: 07,3752 13760 BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0). 062638,000095: 062639,000096: 07,3753 35014 CAF BIT4 # TEST UPLOCKFL FOR 0 OR 1 062640,000097: 07,3754 70103 MASK FLAGWRD7 062641,000098: 07,3755 10000 CCS A 062642,000099: 07,3756 05333 TC RESUME # UPLOCKFL = 1 062643,000100: 07,3757 03706 TC ACCEPTUP # UPLOCKFL = 0 062644,000101: 062645,000102: 07,3760 45014 CLUPLOCK CS BIT4 # CLEAR UPLOCKFL (I.E., SET BIT 4 OF 062646,000103: 07,3761 70103 MASK FLAGWRD7 # FLAGWRD7 = 0) 062647,000104: 07,3762 54103 TS FLAGWRD7 062648,000105: 07,3763 03706 TC ACCEPTUP 062649,000106: 062650,000107: # CODE IS BAD 062651,000108: 07,3764 40103 TMFAIL2 CS FLAGWRD7 # LOCK OUT FURTHER UPLINK ACTIVITY 062652,000109: 07,3765 75014 MASK BIT4 # (BY SETTING UPLOCKFL = 1) UNTIL 062653,000110: 07,3766 26103 ADS FLAGWRD7 # `ERROR RESET' IS SENT VIA UPLINK. 062654,000111: 07,3767 05333 TC RESUME 062655,000112: 07,3770 60073 UPTEST AD KEYTEMP1 062656,000113: # Page 1451 062657,000114: 07,3771 10000 CCS A 062658,000115: 07,3772 03764 TC TMFAIL2 062659,000116: 07,3773 77740 HI10 OCT 77740 062660,000117: 07,3774 03764 TC TMFAIL2 062661,000118: 07,3775 00002 TC Q 062662,000119: 062663,000120: 07,3776 00022 ELRCODE OCT 22 062664,000121: 062665,000122: # `UPLINK ACTIVITY LIGHT' IS TURNED OFF BY ..... 062666,000123: # 1. VBRELDSP 062667,000124: # 2. ERROR RESET 062668,000125: # 3. UPDATE PROGRAM (P27) ENTERED BY V70,V71,V72, AND V73. 062669,000126: 062670,000127: # THE RECEPTION OF A BAD CODE (I.E., CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1. 062671,000128: # THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS. 062672,000129: # WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND `ERROR RESET' CODE. 062673,000130: # (IT IS RECOMMENDED THAT THE `ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED 062674,000131: # BY 15 ZEROS. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL 062675,000132: # FAILURE). 062676,000133: 062677,000134: # UPLINK ACTIVITY IS ALSO ALLOWED (UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0. 062678,000135: 062679,000136: End of include-file KEYRUPT_UPRUPT.agc. Parent file is MAIN.agc