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