Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
063651,000002: # Copyright: Public domain.
063652,000003: # Filename: UPDATE_PROGRAM.agc
063653,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
063654,000005: # build 072. This is for the Command Module's (CM)
063655,000006: # Apollo Guidance Computer (AGC), we believe for
063656,000007: # Apollo 15-17.
063657,000008: # Assembler: yaYUL
063658,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
063659,000010: # Website: www.ibiblio.org/apollo/index.html
063660,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
063661,000012: # Mod history: 2009-08-18 JL Adapted from corresponding Comanche 055 file.
063662,000013: # 2009-09-05 JL Fixed typos.
063663,000014: # 2010-02-16 JL Added SBANK= directive on page 1493.
063664,000015: # 2010-02-20 RSB Un-##'d this header.
063665,000016: # 2010-07-18 JL Fixed indentation.
063666,000017: # 2011-05-07 JL Flagged SBANK= workarounds for future removal.
063667,000018: # 2011-05-17 JL Removed all SBANK= workarounds.
063668,000019:
063669,000020: # # Page 1490
063670,000021:
063671,000022: # PROGRAM NAME: P27
063672,000023: # WRITTEN BY: KILROY/ DE WOLF
063673,000024:
063674,000025: # MOD NO: 6
063675,000026: # MOD BY: KILROY
063676,000027: # DATE: 01DEC67
063677,000028:
063678,000029: # LOG SECTION: UPDATE PROGRAM.
063679,000030:
063680,000031: # FUNCT. DESCR: P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
063681,000032: # INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
063682,000033: # THE P27 PROGRAM WILL ACCEPT UPDATES
063683,000034: # ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
063684,000035: # P02, AND FRESH START FOR THE CSM.
063685,000036:
063686,000037: # CALLING SEQ: PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72, AND 73.
063687,000038:
063688,000039: # SUBROUTINES: TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
063689,000040: # INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
063690,000041:
063691,000042: # NORMAL EXIT: TC ENDEXT
063692,000043:
063693,000044: # ALARM/ABORT: TC FALTON FOLLOWED BY TC ENDEXT
063694,000045:
063695,000046: # RESTARTS: P27 IS RESTART PROTECTED IN TWO WAYS...
063696,000047: # 1. PRIOR TO VERIFLAG INVERSION (WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
063697,000048: # DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
063698,000049: # NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINE
063699,000050: # ACTIVITY LIGHT IS TURNED OFF. (JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
063700,000051: # V70,V71,V72, OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
063701,000052: # 2. AFTER VERIFLAG INVERSION (WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
063702,000053: # PROTECTED AGAINST RESTARTS.
063703,000054:
063704,000055: # DEBRIS: UPBUFF (20D) TEMP STORAGE FOR ADDRESSES AND CONTENTS.
063705,000056: # UPVERB (1) VERB NUMBER MINUS 70D (E.G., FOR V72, UPVERB = 72D - 70D = 2)
063706,000057: # UPOLDMOD(1) FOR MAJOR MODE INTERRUPTED BY P27.
063707,000058: # COMPNUMB(1) TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
063708,000059: # UPCOUNT (1) ACTUAL NUMBER OF COMPONENTS RECEIVED.
063709,000060: # UPTEMP (1) SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE.
063710,000061:
063711,000062: # INPUT:
063712,000063:
063713,000064: # ENTRY DESCRIPTION
063714,000065:
063715,000066: # V70EXXXXXEXXXXXE (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
063716,000067: # IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
063717,000068: # VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME (TETLEM).
063718,000069: # THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).
063719,000070: # # Page 1491
063720,000071:
063721,000072: # V71EIIEAAAAE (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS, XXXXX,
063722,000073: # XXXXXE ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
063723,000074: # XXXXXE II IS .GE. 3 .AND. .LE. 20D.,
063724,000075: # AND (AAAA + II - 3) DOES NOT PRODUCE AN ADDRESS IN THE
063725,000076: # 9 NEXT BANK
063726,000077: # SCALING IS SAME AS INTERNAL REGISTERS.
063727,000078:
063728,000079: # V72EIIE (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS, XXXXX, ARE
063729,000080: # AAAAEXXXXXE LOADED INTO ERASABLE LOCATIONS, AAAA.
063730,000081: # AAAAEXXXXXE II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
063731,000082: # SCALING IS SAME AS INTERNAL REGISTERS.
063732,000083:
063733,000084: # V73EXXXXXEXXXXXE (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
063734,000085: # INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
063735,000086: # CENTISECONDS SCALED AT (2)28.
063736,000087: # THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
063737,000088:
063738,000089: # OUTPUT: IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
063739,000090: # COMPLEMENT BIT3 OF FLAGWORD7.
063740,000091:
063741,000092: # ADDITIONAL NOTES: VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES --
063742,000093: # 1. CSM/LM STATE VECTOR UPDATE
063743,000094: # 2. REFSMMAT UPDATE
063744,000095:
063745,000096:
063746,000097: # THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE----
063747,000098:
063748,000099: # 1. CSM/LM STATE VECTOR UPDATE (ALL DATA ENTRIES IN OCTAL)
063749,000100:
063750,000101: # ENTRIES: DATA DEFINITION: SCALE FACTORS:
063751,000102: # V71E CONTIGUOUS BLOCK UPDATE VERB
063752,000103: # 21E NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
063753,000104: # AAAAE ECADR OF 'UPSVFLAG'
063754,000105: # XXXXXE STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
063755,000106: # 00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
063756,000107: # XXXXXEXXXXXE X POSITION
063757,000108: # XXXXXEXXXXXE Y POSITION
063758,000109: # XXXXXEXXXXXE Z POSITION
063759,000110: # XXXXXEXXXXXE X VELOCITY
063760,000111: # XXXXXEXXXXXE Y VELOCITY
063761,000112: # XXXXXEXXXXXE Z VELOCITY
063762,000113: # XXXXXEXXXXXE TIME FROM AGC CLOCK ZERO
063763,000114: # V33E VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
063764,000115:
063765,000116:
063766,000117: # 2. REFSMMAT (ALL DATA ENTRIES IN OCTAL)
063767,000118: # ENTRIES DATA DEFINITITIONS SCALE FACTORS:
063768,000119: # # Page 1492
063769,000120: # V71E CONTIGUOUS BLOCK UPDATE VERB
063770,000121: # 24E NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
063771,000122: # AAAAE ECADR OF 'REFSMMAT'
063772,000123: # XXXXXEXXXXXE ROW 1 COLUMN 1 2(-1)
063773,000124: # XXXXXEXXXXXE ROW 1 COLUMN 2 2(-1)
063774,000125: # XXXXXEXXXXXE ROW 1 COLUMN 3 2(-1)
063775,000126: # XXXXXEXXXXXE ROW 2 COLUMN 1 2(-1)
063776,000127: # XXXXXEXXXXXE ROW 2 COLUMN 2 2(-1)
063777,000128: # XXXXXEXXXXXE ROW 2 COLUMN 3 2(-1)
063778,000129: # XXXXXEXXXXXE ROW 3 COLUMN 1 2(-1)
063779,000130: # XXXXXEXXXXXE ROW 3 COLUMN 2 2(-1)
063780,000131: # XXXXXEXXXXXE ROW 3 COLUMN 3 2(-1)
063781,000132: # V33E VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
063782,000133:
063783,000134: 43,2000 SETLOC EXTVERBS
063784,000135: 43,2000 BANK
063785,000136:
063786,000137: 43,3656 E3,1706 EBANK= TEPHEM
063787,000138:
063788,000139: 43,3656 COUNT* $$/P27
063789,000140: 43,3656 34772 V70UPDAT CAF UP70 # COMES HERE ON V70E
063790,000141: 43,3657 13665 TCF V73UPDAT +1
063791,000142:
063792,000143: 43,3660 34770 V71UPDAT CAF UP71 # COMES HERE ON V71E
063793,000144: 43,3661 13665 TCF V73UPDAT +1
063794,000145:
063795,000146: 43,3662 34767 V72UPDAT CAF UP72 # COMES HERE ON V72E
063796,000147: 43,3663 13665 TCF V73UPDAT +1
063797,000148:
063798,000149: 43,3664 36214 V73UPDAT CAF UP73 # COMES HERE ON V73E
063799,000150:
063800,000151: 43,3665 54331 +1 TS UPVERBSV # SAVE UPVERB UNTIL IT'S OK TO ENTER P27
063801,000152:
063802,000153: 43,3666 02076 TC TESTXACT # GRAB DISPLAY IF AVAILABLE, OTHERWISE
063803,000154: # TURN *OPERATOR ERROR* ON AND TERMINATE JOB
063804,000155:
063805,000156: 43,3667 31214 CA MODREG # CHECK IF UPDATE ALLOWED
063806,000157: 43,3670 00006 EXTEND # FIRST CHECK FOR MODREG = +0, -0
063807,000158: 43,3671 13707 BZF UPDATEOK # FRESH START OR P00
063808,000159: 43,3672 40104 CS FLAGWRD8
063809,000160: 43,3673 74760 MASK UTBIT
063810,000161: 43,3674 10000 CCS A
063811,000162: 43,3675 13702 TCF +5
063812,000163:
063813,000164: 43,3676 41214 CS MODREG
063814,000165: 43,3677 64124 AD OCT24
063815,000166: # # Page 1493
063816,000167: 43,3700 00006 EXTEND # FIRST CHECK FOR MODREG = +0, -0
063817,000168: 43,3701 13707 BZF UPDATEOK # FRESH START OR P00
063818,000169:
063819,000170: 43,3702 44767 CS TWO
063820,000171: 43,3703 71214 MASK MODREG
063821,000172: 43,3704 00006 EXTEND
063822,000173: 43,3705 13707 BZF +2 # P02
063823,000174: 43,3706 13717 TCF UPERROR
063824,000175: 43,3707 31214 UPDATEOK CAE MODREG # UPDATE ALLOWED.
063825,000176: 43,3710 54301 TS UPOLDMOD # SAVE CURRENT MAJOR MODE
063826,000177:
063827,000178: 43,3711 30331 CAE UPVERBSV # SET UPVERB TO INDICATE TO P27
063828,000179: 43,3712 54302 TS UPVERB # WHICH EXTENDED VERB CALLED IT.
063829,000180:
063830,000181: 43,3713 34770 CAF ONE
063831,000182: 43,3714 54303 TS UPCOUNT # INITIALIZE UPCOUNT TO 1
063832,000183:
063833,000184: 43,3715 04655 TC POSTJUMP # LEAVE EXTENDED VERB BANK AND
063834,000185: 43,3716 65626 CADR UPPART2 # GO TO UPDATE PROGRAM (P27) BANK.
063835,000186:
063836,000187: 43,3717 04362 UPERROR TC FALTON # TURN ON OP. ERROR
063837,000188: 43,3720 04415 TC UPACTOFF # TURN OFF UPLINK ACT LITE
063838,000189: 43,3721 15524 TCF ENDEXT # (RESTART GROUP NOT ESTABLISHED YET)
063839,000190:
063840,000191: 43,3722 4772 UP70 EQUALS ZERO
063841,000192: 43,3722 4770 UP71 EQUALS ONE
063842,000193: 43,3722 4767 UP72 EQUALS TWO
063843,000194: 43,3722 6214 UP73 EQUALS THREE
063844,000195:
063845,000196: 42,2000 SETLOC UPDATE3
063846,000197: 42,2000 BANK
063847,000198:
063848,000199: 42,3626 COUNT* $$/P27
063849,000200:
063850,000201: 42,3626 UPPART2 EQUALS # UPDATE PROGRAM - PART 2
063851,000202:
063852,000203: 42,3626 05402 TC PHASCHNG # SET RESTART GROUP 6 TO RESTORE OLD MODE
063853,000204: 42,3627 07026 OCT 07026 # AND DOWNLIST AND EXIT IF RESTART OCCURS.
063854,000205: 42,3630 30000 OCT 30000 # PRIORITY SAME AS CHRPRIO
063855,000206: 42,3631 0304 EBANK= UPBUFF
063856,000207: 42,3631 03706 56100 2CADR UPOUT +1
063857,000208:
063858,000209: 42,3633 34770 CAF ONE
063859,000210: 42,3634 54332 TS DNLSTCOD # DOWNLIST
063860,000211:
063861,000212: 42,3635 05344 TC NEWMODEX # SET MAJOR MODE = 27
063862,000213: 42,3636 00033 DEC 27 B-14
063863,000214: # # Page 1494
063864,000215:
063865,000216: 42,3637 50302 INDEX UPVERB # BRANCH DEPENDING ON WHETHER THE UPDATE
063866,000217: 42,3640 13641 TCF +1 # VERB REQUIRES A FIXED OR VARIABLE NUMBER
063867,000218: 42,3641 13644 TCF +3 # V70 FIXED (OF COMPONENTS.
063868,000219: 42,3642 13647 TCF OHWELL1 # V71 VARIABLE - GO GET NO. OF COMPONENTS
063869,000220: 42,3643 13647 TCF OHWELL1 # V72 VARIABLE - GO GET NO. OF COMPONENTS
063870,000221: 42,3644 34767 CA TWO # V73 (AND V70) FIXED
063871,000222: 42,3645 54300 TS COMPNUMB # SET NUMBER OF COMPONENTS TO 2.
063872,000223: 42,3646 13672 TCF OHWELL2 # GO GET THE TWO UPDATE COMPONENTS
063873,000224:
063874,000225: 42,3647 33744 OHWELL1 CAF ADUPBUFF # * REQUEST USER TO SEND NUMBER *
063875,000226: 42,3650 54156 TS MPAC +2 # * OF COMPONENTS PARAMETER(II) *
063876,000227: 42,3651 33746 +2 CAF UPLOADNV # (CKV432 RETURNS HERE IF V32 ENCOUNTERED)
063877,000228: 42,3652 04636 TC BANKCALL # DISPLAY A FLASHING V21N01
063878,000229: 42,3653 20576 CADR GOXDSPF # TO REQUEST II.
063879,000230: 42,3654 13733 TCF UPOUT4 # V32 TERMINATE UPDATE (P27) RETURN
063880,000231: 42,3655 13651 TCF OHWELL1 +2
063881,000232: 42,3656 03735 TC CK4V32 # DATA OR V32 RETURN
063882,000233: 42,3657 44767 CS BIT2
063883,000234: 42,3660 60304 AD UPBUFF # IS II (NUMBER OF COMPONENTS PARAMETER)
063884,000235: 42,3661 00006 EXTEND # .GE. 3 AND .LE. 20D.
063885,000236: 42,3662 63651 BZMF OHWELL1 +2
063886,000237: 42,3663 40304 CS UPBUFF
063887,000238: 42,3664 64353 AD UP21
063888,000239: 42,3665 00006 EXTEND
063889,000240: 42,3666 63651 BZMF OHWELL1 +2
063890,000241: 42,3667 30304 CAE UPBUFF
063891,000242: 42,3670 54300 TS COMPNUMB # SAVE II IN COMPNUMB
063892,000243:
063893,000244: # UPBUFF LOADING SEQUENCE
063894,000245:
063895,000246: 42,3671 24303 -1 INCR UPCOUNT # INCREMENT COUNT OF COMPONENTS RECEIVED
063896,000247: 42,3672 33745 OHWELL2 CAF ADUPBFM1 # CALCULATE LOCATION (ECADR) IN UPBUFF
063897,000248: 42,3673 60303 AD UPCOUNT # WHERE NEXT COMPONENT SHOULD BE STORED.
063898,000249: 42,3674 54156 +2 TS MPAC +2 # PLACE ECADR INTO R3.
063899,000250: 42,3675 33746 +3 CAF UPLOADNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
063900,000251: 42,3676 04636 TC BANKCALL # DISPLAY A FLASHING V21N01
063901,000252: 42,3677 20576 CADR GOXDSPF # TO REQUEST DATA.
063902,000253: 42,3700 13733 TCF UPOUT4 # V34 TERMINATE UPDATE (P27) RETURN.
063903,000254: 42,3701 13675 TCF OHWELL2 +3 # V33 PROCEED RETURN
063904,000255: 42,3702 03735 TC CK4V32 # DATA OR V32 RETURN
063905,000256: 42,3703 40303 CS UPCOUNT # HAVE WE FINISHED RECEIVING ALL
063906,000257: 42,3704 60300 AD COMPNUMB # THE DATA WE EXPECTED.
063907,000258: 42,3705 00006 EXTEND
063908,000259: 42,3706 63710 BZMF UPVERIFY # YES - GO TO VERIFICATION SEQUENCE
063909,000260: 42,3707 13671 TCF OHWELL2 -1 # NO - REQUEST ADDITIONAL DATA.
063910,000261:
063911,000262: # VERIFY SEQUENCE
063912,000263: # # Page 1495
063913,000264: 42,3710 33743 UPVERIFY CAF ADUPTEMP # PLACE ECADR WHERE COMPONENT NO. INDEX
063914,000265: 42,3711 54156 TS MPAC +2 # IS TO BE STORED INTO R3.
063915,000266: 42,3712 33747 CAF UPVRFYNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
063916,000267: 42,3713 04636 TC BANKCALL # DISPLAY A FLASHING V21N02 TO REQUEXT
063917,000268: 42,3714 20576 CADR GOXDSPF # DATA CORRECTION OR VERIFICATION.
063918,000269: 42,3715 13733 TCF UPOUT4 # V34 TERMINATE UPDATE (P27) RETURN
063919,000270: 42,3716 13750 TCF UPSTORE # V33 DATA SENT IS GOOD. GO STORE IT.
063920,000271: 42,3717 03735 TC CK4V32 # COMPONENT NO. INDEX OR V32 RETURN
063921,000272: 42,3720 30330 CA UPTEMP # DOES THE COMPONENT NO. INDEX JUST SENT
063922,000273: 42,3721 00006 EXTEND # SPECIFY A LEGAL COMPONENT NUMBER?
063923,000274: 42,3722 63710 BZMF UPVERIFY # NO, IT IS NOT POSITIVE NONZERO
063924,000275: 42,3723 40330 CS UPTEMP
063925,000276: 42,3724 60300 AD COMPNUMB
063926,000277: 42,3725 64770 AD BIT1
063927,000278: 42,3726 00006 EXTEND
063928,000279: 42,3727 63710 BZMF UPVERIFY # NO
063929,000280: 42,3730 33745 CAF ADUPBFM1 # YES - BASED ON THE COMPONENT NO. INDEX
063930,000281: 42,3731 60330 AD UPTEMP # CALCULATE THE ECADR OF LOCATION IN
063931,000282: 42,3732 13674 TCF OHWELL2 +2 # UPBUFF WHICH USER WANTS TO CHANGE.
063932,000283:
063933,000284: 42,3733 04655 UPOUT4 TC POSTJUMP # COMES HERE ON V34 TC TERMINATE UPDATE.
063934,000285: 42,3734 57706 CADR UPOUT +1
063935,000286:
063936,000287: # CHECK FOR VERB 32 SEQUENCE
063937,000288:
063938,000289: 42,3735 40154 CK4V32 CS MPAC # ON DATA RETURN FROM 'GOXDSPF'
063939,000290: 42,3736 74763 MASK BIT6 # ON DATA RETURN FROM "GOXDSP" & THE CON-
063940,000291: 42,3737 10000 CCS A # TENTS OF MPAC = VERB. SO TEST FOR V32.
063941,000292: 42,3740 00002 TC Q # IT'S NOT A V32, IT'S DATA. PROCEED.
063942,000293: 42,3741 50002 INDEX Q
063943,000294: 42,3742 77771 TC 0 -6 # V32 ENCOUNTERED - GO BACK AND GET DATA
063944,000295:
063945,000296: 42,3743 00330 ADUPTEMP ADRES UPTEMP # ADDRESS OF TEMP STORAGE FOR CORRECTIONS
063946,000297: 42,3744 00304 ADUPBUFF ADRES UPBUFF # ADDRESS OF UPDATE DATA STORAGE BUFFER
063947,000298: 42,3745 00303 ADUPBFM1 ADRES UPBUFF -1 # SAME AS ADUPBUFF BUT LESS ONE
063948,000299: 42,3746 05201 UPLOADNV VN 2101 # VERB 21 NOUN 01
063949,000300: 42,3747 05202 UPVRFYNV VN 2102 # VERB 21 NOUN 02
063950,000301: 42,3750 4353 UP21 = MD1 # DEC 21 = MAX NO OF COMPONENTS +1
063951,000302: 42,3750 4773 UPDTPHAS EQUALS FIVE
063952,000303:
063953,000304: # PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
063954,000305:
063955,000306: 42,3750 UPSTORE EQUALS # GROUND HAS VERIFIED UPDATE. STORE DATA.
063956,000307:
063957,000308: 42,3750 00004 INHINT
063958,000309:
063959,000310: 42,3751 30103 CAE FLAGWRD7 # INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
063960,000311: 42,3752 56001 XCH L # INDICATE TO THE GROUND (VIA DOWNLINK)
063961,000312: 42,3753 34766 CAF VERIFBIT # THAT THE V33 (WHICH THE GROUND SENT TO
063962,000313: 42,3754 00006 EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
063963,000314: # # Page 1496
063964,000315: 42,3755 06001 RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM
063965,000316: 42,3756 54103 TS FLAGWRD7
063966,000317:
063967,000318: 42,3757 05402 TC PHASCHNG # SET RESTART GROUP 6 TO REDO THE UPDATE
063968,000319: 42,3760 04026 OCT 04026 # DATA STORE IF A RESTART OCCURS.
063969,000320: 42,3761 00004 INHINT # (BECAUSE PHASCHNG DID A RELINT)
063970,000321:
063971,000322: 42,3762 44767 CS TWO # GO TO UPFNDVAC IF INSTALL IS REQUIRED.
063972,000323: 42,3763 60302 AD UPVERB # THAT IS, IF IT'S A V70 - V72.
063973,000324: 42,3764 00006 EXTEND # GO TO UPEND73 IF IT'S A V73.
063974,000325: 42,3765 63770 BZMF UPFNDVAC
063975,000326:
063976,000327: 42,3766 04655 TC POSTJUMP
063977,000328: 42,3767 57757 CADR UPEND73
063978,000329:
063979,000330: 42,3770 34346 UPFNDVAC CAF CHRPRIO # (USE EXTENDED VERB PRIORITY)
063980,000331: 42,3771 05135 TC FINDVAC # GET VAC AREA FOR 'CALL INTSTALL'
063981,000332: 42,3772 E3,1706 EBANK= TEPHEM
063982,000333: 42,3772 03545 56103 2CADR UPJOB # (NOTE: THIS WILL ALSO SET EBANK FOR
063983,000334:
063984,000335: 42,3774 05205 TC ENDOFJOB # 'TEPHEM' UPDATE BY V70)
063985,000336:
063986,000337: 27,2000 SETLOC UPDATE2
063987,000338: 27,2000 BANK
063988,000339:
063989,000340: 27,3545 COUNT* $$/P27
063990,000341: 27,3545 06006 UPJOB TC INTPRET # THIS COULD BE A STATE VECTOR UPDATE -- SO
063991,000342: 27,3546 77624 CALL # WAIT (PUT JOB TO SLEEP) IF ORBIT INT(OI)
063992,000343: 27,3547 27516 INTSTALL # IS IN PROGRESS -- OR -- GRAB OI AND RETURN
063993,000344: # TO UPWAKE IF OI IS NOT IN PROGRESS.
063994,000345:
063995,000346: 27,3550 77776 UPWAKE EXIT
063996,000347:
063997,000348: 27,3551 05402 TC PHASCHNG # RESTART PROTECT (GROUP 6)
063998,000349: 27,3552 04026 OCT 04026
063999,000350:
064000,000351: 27,3553 05547 TC UPFLAG # SET INTEGRATION RESTART BIT
064001,000352: 27,3554 00230 ADRES REINTFLG
064002,000353: 27,3555 00004 INHINT
064003,000354: 27,3556 UPPART3 EQUALS
064004,000355:
064005,000356: 27,3556 50302 INDEX UPVERB # BRANCH TO THE APPROPRIATE UPDATE VERB
064006,000357: 27,3557 13560 TCF +1 # ROUTINE TO ACTUALLY PERFORM THE UPDATE
064007,000358: 27,3560 13722 TCF UPEND70 # V70
064008,000359: 27,3561 13626 TCF UPEND71 # V71
064009,000360: 27,3562 13660 TCF UPEND72 # V72
064010,000361:
064011,000362: # ROUTINE TO INCREMENT CLOCK (TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.
064012,000363: # # Page 1497
064013,000364: 27,3563 00006 TIMEDIDL EXTEND
064014,000365: 27,3564 22330 QXCH UPTEMP # SAVE Q FOR RETURN
064015,000366: 27,3565 34772 CAF ZERO # ZERO AND SAVE TIME2,TIME1
064016,000367: 27,3566 22007 ZL
064017,000368: 27,3567 52025 DXCH TIME2
064018,000369: 27,3570 52327 DXCH UPBUFF +18D # STORE IN CASE OF OVERFLOW
064019,000370:
064020,000371: 27,3571 34773 CAF UPDTPHAS # DO
064021,000372: 27,3572 54001 TS L # A
064022,000373: 27,3573 40000 COM # QUICK
064023,000374: 27,3574 53170 DXCH -PHASE6 # PHASCHNG
064024,000375:
064025,000376: 27,3575 01,2330 6P5SPT1 = 6.5SPOT
064026,000377: 27,3575 00004 TIMEDIDR INHINT
064027,000378: 27,3576 34772 CAF ZERO
064028,000379: 27,3577 22007 ZL # PICK UP INCRMENTER (AND ZERO
064029,000380: 27,3600 54156 TS MPAC +2 # IT IN CASE OF RESTARTS) AND
064030,000381: 27,3601 52315 DXCH UPBUFF +8D # STORE IT
064031,000382: 27,3602 52155 DXCH MPAC # INTO MPAC FOR TPAGREE.
064032,000383:
064033,000384: 27,3603 00006 EXTEND
064034,000385: 27,3604 30327 DCA UPBUFF +18D
064035,000386: 27,3605 20155 DAS MPAC # FORM SUM IN MPAC
064036,000387: 27,3606 00006 EXTEND
064037,000388: 27,3607 13616 BZF DELTATOK # TEST FOR OVERFLOW
064038,000389: 27,3610 34772 CAF ZERO
064039,000390: 27,3611 52327 DXCH UPBUFF +18D # OVERFLOW, RESTORE OLD VALUE OF CLOCK
064040,000391: 27,3612 20025 DAS TIME2 # AND TURN ON OPERATOR ERROR
064041,000392:
064042,000393: 27,3613 05402 TC PHASCHNG # RESTART PROTECT (GROUP 6)
064043,000394: 27,3614 04026 OCT 04026
064044,000395:
064045,000396: 27,3615 00330 TC UPTEMP # GO TO ERROR EXIT
064046,000397:
064047,000398: 27,3616 07226 DELTATOK TC TPAGREE # FORCE SIGN AGREEMENT
064048,000399: 27,3617 52155 DXCH MPAC
064049,000400: 27,3620 20025 DAS TIME2 # INCREMENT TIME2,TIME1
064050,000401:
064051,000402: 27,3621 05402 TC PHASCHNG # RESTART PROTECT (GROUP 6)
064052,000403: 27,3622 04026 OCT 04026
064053,000404:
064054,000405: 27,3623 00004 INHINT
064055,000406: 27,3624 50330 INDEX UPTEMP # (CODED THIS WAY FOR RESTART PROTECTION)
064056,000407: 27,3625 00001 TC 1 # NORMAL RETURN
064057,000408:
064058,000409: # VERB 71 BRANCH
064059,000410:
064060,000411: 27,3626 30305 UPEND71 CAE UPBUFF +1 # SET EBANK
064061,000412: 27,3627 54003 TS EBANK # AND
064062,000413: 27,3630 74350 MASK LOW8 # CALCULATE
064063,000414: # # Page 1498
064064,000415: 27,3631 54330 TS UPTEMP # S-REG VALUE OF RECEIVING AREA
064065,000416:
064066,000417: 27,3632 67700 AD NEG3 # IN THE PROCESS OF
064067,000418: 27,3633 60300 AD COMPNUMB # PERFORMING
064068,000419: 27,3634 00006 EXTEND # THIS UPDATE
064069,000420: 27,3635 13643 BZF STORLP71 # WILL WE
064070,000421: 27,3636 74760 MASK BIT9 # OVERFLOW
064071,000422: 27,3637 10000 CCS A # INTO THE NEXT EBANK....
064072,000423: 27,3640 13656 TCF UPERROUT # YES
064073,000424:
064074,000425: 27,3641 37700 CA NEG3 # NO - CALCULATE NUMBER OF
064075,000426: 27,3642 60300 AD COMPNUMB # WORDS TO BE STORED MINUS ONE
064076,000427: 27,3643 54154 STORLP71 TS MPAC # SAVE NO. OF WORDS REMAINING MINUS ONE
064077,000428: 27,3644 50000 INDEX A # TAKE NEXT UPDATE WORD FROM
064078,000429: 27,3645 30306 CA UPBUFF +2 # UPBUFF AND
064079,000430: 27,3646 54001 TS L # SAVE IT IN L
064080,000431: 27,3647 30154 CA MPAC # CALCULATE NEXT
064081,000432: 27,3650 60330 AD UPTEMP # RECEIVING ADDRESS
064082,000433: 27,3651 50000 INDEX A
064083,000434: 27,3652 E3,1400 EBANK= 1400
064084,000435: 27,3652 23400 LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
064085,000436: 27,3653 E3,1706 EBANK= TEPHEM
064086,000437: 27,3653 10154 CCS MPAC # ARE THERE ANY WORDS LEFT TO BE STORED
064087,000438: 27,3654 13643 TCF STORLP71 # YES
064088,000439: 27,3655 13705 TCF UPOUT # NO - THEN EXIT UPDATE PROGRAM
064089,000440: 27,3656 04362 UPERROUT TC FALTON # TURN ON OP ERROR, CCS CANT GET HERE
064090,000441: 27,3657 13705 TCF UPOUT # NO - EXIT UPDATE (HERE WHEN COMPNUMB = 3)
064091,000442:
064092,000443: # VERB 72 BRANCH
064093,000444:
064094,000445: 27,3660 34770 UPEND72 CAF BIT1 # HAVE AN ODD NO. OF COMPONENTS
064095,000446: 27,3661 70300 MASK COMPNUMB # BEEN SENT FOR A V72 UPDATE...
064096,000447: 27,3662 10000 CCS A
064097,000448: 27,3663 13665 TCF +2 # YES
064098,000449: 27,3664 13656 TCF UPERROUT # ERROR - SHOULD BE ODD NO. OF COMPONENTS
064099,000450: 27,3665 44767 CS BIT2
064100,000451: 27,3666 60300 AD COMPNUMB
064101,000452: 27,3667 54154 LDLOOP72 TS MPAC # NOW PERFORM THE UPDATE
064102,000453: 27,3670 50000 INDEX A
064103,000454: 27,3671 30305 CAE UPBUFF +1 # PICK UP NEXT UPDATE WORD
064104,000455: 27,3672 22000 LXCH A
064105,000456: 27,3673 10154 CCS MPAC # SET POINTER TO ECADR (MUST BE CCS)
064106,000457: 27,3674 54154 TS MPAC
064107,000458: 27,3675 50000 INDEX A
064108,000459: 27,3676 30305 CAE UPBUFF +1 # PICK UP NEXT ECADR OF REG TO BE UPDATED
064109,000460: 27,3677 54003 TS EBANK # SET EBANK
064110,000461: 27,3700 74350 MASK LOW8 # ISOLATE RELATIVE ADDRESS
064111,000462: 27,3701 50000 INDEX A
064112,000463: 27,3702 E3,1400 EBANK= 1400
064113,000464: # # Page 1499
064114,000465: 27,3702 23400 LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
064115,000466: 27,3703 E3,1706 EBANK= TEPHEM
064116,000467: 27,3703 10154 CCS MPAC # ARE WE THORUGH THE V72 UPDATE...
064117,000468: 27,3704 13667 TCF LDLOOP72 # NO
064118,000469:
064119,000470: # NORMAL FINISH OF P27
064120,000471:
064121,000472: 27,3705 UPOUT EQUALS
064122,000473: 27,3705 03072 TC INTWAKEU # RELEASE GRAB OF ORBITAL INTEGRATION
064123,000474: 27,3706 30301 +1 CAE UPOLDMOD # RESTORE PRIOR P27 MODE
064124,000475: 27,3707 05347 TC NEWMODEA
064125,000476: 27,3710 44770 CS BIT1
064126,000477: 27,3711 61214 AD MODREG
064127,000478: 27,3712 10000 CCS A
064128,000479: 27,3713 10000 CCS A
064129,000480: 27,3714 34767 CAF TWO
064130,000481: 27,3715 54332 TS DNLSTCOD
064131,000482: 27,3716 04415 TC UPACTOFF # TURN OFF 'UPLINK ACTIVITY' LIGHT
064132,000483: 27,3717 04636 TC BANKCALL # KILL GROUP 6
064133,000484: 27,3720 12556 CADR UPKLEAN
064134,000485:
064135,000486: 27,3721 05524 TC ENDEXT # EXTENDED VERB EXIT
064136,000487:
064137,000488: # VERB TO BRANCH
064138,000489:
064139,000490: 27,3722 00006 UPEND70 EXTEND # V70 DOES THE FOLLOWING WITH DP DELTA
064140,000491: 27,3723 40305 DCS UPBUFF # TIME IN UPBUFF
064141,000492: 27,3724 52315 DXCH UPBUFF +8D
064142,000493: 27,3725 03563 TC TIMEDIDL # DECREMENT AGC CLOCK
064143,000494:
064144,000495: 27,3726 03656 TC UPERROUT # ERROR WHILE DECREMENTING CLOCK -- EXIT
064145,000496:
064146,000497: 27,3727 E3,1706 EBANK= TEPHEM
064147,000498: 27,3727 00006 EXTEND
064148,000499: 27,3730 40305 DCS UPBUFF # COPY DECREMENTERS FOR
064149,000500: 27,3731 52317 DXCH UPBUFF +10D # RESTART PROTECTION
064150,000501: 27,3732 00006 EXTEND
064151,000502: 27,3733 40305 DCS UPBUFF
064152,000503: 27,3734 52321 DXCH UPBUFF +12D
064153,000504:
064154,000505: 27,3735 05402 TC PHASCHNG # RESTART PROTECT (GROUP 6)
064155,000506: 27,3736 04026 OCT 04026
064156,000507:
064157,000508: 27,3737 34772 CAF ZERO
064158,000509: 27,3740 22007 ZL
064159,000510: 27,3741 52317 DXCH UPBUFF +10D # DECREMENT CSM STATE VECTOR TIME
064160,000511: 27,3742 21571 DAS TETCSM
064161,000512:
064162,000513: # # Page 1500
064163,000514: 27,3743 34772 CAF ZERO
064164,000515: 27,3744 22007 ZL
064165,000516: 27,3745 52321 DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME
064166,000517: 27,3746 21643 DAS TETLEM
064167,000518:
064168,000519: 27,3747 34772 CAF ZERO
064169,000520: 27,3750 22007 ZL
064170,000521: 27,3751 52305 DXCH UPBUFF
064171,000522: 27,3752 21710 DAS TEPHEM +1 # INCREMENT TP TEPHEM
064172,000523: 27,3753 27706 ADS TEPHEM
064173,000524:
064174,000525: 27,3754 05402 TC PHASCHNG # RESTART PROTECT (GROUP 6)
064175,000526: 27,3755 04026 OCT 04026
064176,000527:
064177,000528: 27,3756 0304 EBANK= UPBUFF
064178,000529:
064179,000530: 27,3756 03705 TC UPOUT # GO TO STANDARD UPDATE PROGRAM EXIT
064180,000531:
064181,000532: # VERB 73 BRANCH
064182,000533:
064183,000534: 27,3757 00006 UPEND73 EXTEND # V73 -- PERFORM DP OCTAL AGC CLOCK INCREMENT
064184,000535: 27,3760 30305 DCA UPBUFF
064185,000536: 27,3761 52315 DXCH UPBUFF +8D
064186,000537: 27,3762 03563 TC TIMEDIDL
064187,000538: 27,3763 04362 TC FALTON # ERROR -- TURN ON *OPERATOR ERROR* LIGHT
064188,000539: 27,3764 03706 TC UPOUT +1 # GO TO COMMON UPDATE PROGRAM EXIT
064189,000540:
064190,000541: # ERROR SEQUENCE
064191,000542:
064192,000543: 27,3765 30,2000 SBANK= LOWSUPER
End of include-file UPDATE_PROGRAM.agc. Parent file is MAIN.agc