Source Code

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