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