GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
065197,000002: ## Copyright: Public domain.
065198,000003: ## Filename: UPDATE_PROGRAM.agc
065199,000004: ## Purpose: Part of the source code for Comanche, build 055. It
065200,000005: ## is part of the source code for the Command Module's
065201,000006: ## (CM) Apollo Guidance Computer (AGC), Apollo 11.
065202,000007: ## Assembler: yaYUL
065203,000008: ## Reference: pp. 1497-1507
065204,000009: ## Contact: Ron Burkey <info@sandroid.org>
065205,000010: ## Website: http://www.ibiblio.org/apollo.
065206,000011: ## Mod history: 2009-05-07 RSB Adapted from Colossus249/UPDATE_PROGRAM.agc
065207,000012: ## and page images. Corrected various typos
065208,000013: ## in the transcription of program comments,
065209,000014: ## and these should be back-ported to
065210,000015: ## Colossus249.
065211,000016: ## 2010-08-29 JL Fixed indentation, whitespace.
065212,000017: ## 2016-12-22 RSB Proofed comment text using octopus/ProoferComments
065213,000018: ## and corrected the errors found.
065214,000019: ## 2017-01-20 RSB Fixed comment-text errors noted while diff'ing
065215,000020: ## vs Colossus 249.
065216,000021: ## 2017-02-09 RSB Comment-text fixes identified for Artemis 72.
065217,000022: ##
065218,000023: ## The contents of the "Comanche055" files, in general, are transcribed
065219,000024: ## from scanned documents.
065220,000025: ##
065221,000026: ## Assemble revision 055 of AGC program Comanche by NASA
065222,000027: ## 2021113-051. April 1, 1969.
065223,000028: ##
065224,000029: ## This AGC program shall also be referred to as Colossus 2A
065225,000030: ##
065226,000031: ## Prepared by
065227,000032: ## Massachusetts Institute of Technology
065228,000033: ## 75 Cambridge Parkway
065229,000034: ## Cambridge, Massachusetts
065230,000035: ##
065231,000036: ## under NASA contract NAS 9-4065.
065232,000037: ##
065233,000038: ## Refer directly to the online document mentioned above for further
065234,000039: ## information. Please report any errors to info@sandroid.org.
065235,000040:
|
|
Page 1497 |
065237,000042: # PROGRAM NAME: P27
065238,000043: # WRITTEN BY: KILROY/ DE WOLF
065239,000044:
065240,000045: # MOD NO: 6
065241,000046: # MOD BY: KILROY
065242,000047: # DATE: 01DEC67
065243,000048:
065244,000049: # LOG SECTION: UPDATE PROGRAM.
065245,000050:
065246,000051: # FUNCT. DESCR: P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
065247,000052: # INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
065248,000053: # THE P27 PROGRAM WILL ACCEPT UPDATES
065249,000054: # ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
065250,000055: # P02, AND FRESH START FOR THE CSM
065251,000056:
065252,000057: # CALLING SEQ: PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72 AND 73.
065253,000058:
065254,000059: # SUBROUTINES: TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
065255,000060: # INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
065256,000061:
065257,000062: # NORMAL EXIT: TC ENDEXT
065258,000063:
065259,000064: # ALARM/ABORT: TC FALTON FOLLOWED BY TC ENDEXT
065260,000065:
065261,000066: # RESTARTS: P27 IS RESTART PROTECTED IN TWO WAYS ...
065262,000067: # 1. PRIOR TO VERIFLAG INVERSION (WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
065263,000068: # DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
065264,000069: # NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
065265,000070: # ACTIVITY LIGHT IS TURNED OFF. (JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
065266,000071: # V70,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
065267,000072: # 2. AFTER VERIFLAG INVERSION (WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
065268,000073: # PROTECTED AGAINST RESTARTS.
065269,000074:
065270,000075: # DEBRIS: UPBUFF (20D) TEMP STORAGE FOR ADDRESSES AND CONTENTS.
065271,000076: # UPVERB (1) VERB NUMBER MINUS 70D (E.G. FOR V72, UPVERB = 72D - 70D = 2)
065272,000077: # UPOLDMOD(1) FOR MAJOR MODE INTERRUPTED BY P27.
065273,000078: # COMPNUMB(1) TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
065274,000079: # UPCOUNT (1) ACTUAL NUMBER OF COMPONENTS RECEIVED.
065275,000080: # UPTEMP (1) SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
065276,000081:
065277,000082: # INPUT:
065278,000083:
065279,000084: # ENTRY: DESCRIPTION
065280,000085: # V70EXXXXXEXXXXXE (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
065281,000086: # IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
065282,000087: # VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME(TETLEM).
065283,000088: # THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).
|
|
Page 1498 |
065285,000090: # V71EIIEAAAAE (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS, XXXXX,
065286,000091: # XXXXXE ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
065287,000092: # XXXXXE IT IS .GE. 3 .AND. .LE. 20D.,
065288,000093: # AND (AAAA + II -3) DOES NOT PRODUCE AN ADDRESS IN THE
065289,000094: # 9 NEXT BANK
065290,000095: # . SCALING IS SAME AS INTERNAL REGISTERS.
065291,000096: # V72EIIE (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS, XXXXX, ARE
065292,000097: # AAAAEXXXXXE LOADED INTO ERASABLE LOCATIONS, AAAA.
065293,000098: # AAAAEXXXXXE II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
065294,000099: # . SCALING IS SAME AS INTERNAL REGISTERS.
065295,000100:
065296,000101: # V73EXXXXXEXXXXXE (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
065297,000102: # INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
065298,000103: # CENTISECONDS SCALED AT (2)28.
065299,000104: # THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
065300,000105:
065301,000106: # OUTPUT: IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
065302,000107: # COMPLEMENT BIT3 OF FLAGWORD7.
065303,000108:
065304,000109: # ADDITIONAL NOTES: VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES --
065305,000110: # 1. CSM/LM STATE VECTOR UPDATE
065306,000111: # 2. REFSMMAT UPDATE
065307,000112:
065308,000113: # THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE ----
065309,000114:
065310,000115: # 1. CSM/LM STATE VECTOR UPDATE (ALL DATA ENTRIES IN OCTAL)
065311,000116: # ENTRIES: DATA DEFINITION: SCALE FACTORS:
065312,000117: # V71E CONTIGUOUS BLOCK UPDATE VERB
065313,000118: # 21E NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
065314,000119: # AAAAE ECADR OF 'UPSVFLAG'
065315,000120: # XXXXXE STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
065316,000121: # 00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
065317,000122: # XXXXXEXXXXXE X POSITION
065318,000123: # XXXXXEXXXXXE Y POSITION
065319,000124: # XXXXXEXXXXXE Z POSITION
065320,000125: # XXXXXEXXXXXE X VELOCITY
065321,000126: # XXXXXEXXXXXE Y VELOCITY
065322,000127: # XXXXXEXXXXXE Z VELOCITY
065323,000128: # XXXXXEXXXXXE TIME FROM AGC CLOCK ZERO
065324,000129: # V33E VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
065325,000130:
065326,000131: # 2. REFSMMAT (ALL DATA ENTRIES IN OCTAL)
065327,000132: # ENTRIES: DATA DEFINITIONS: SCALE FACTORS:
|
|
Page 1499 |
065329,000134: # V71E CONTIGUOUS BLOCK UPDATE VERB
065330,000135: # 24E NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
065331,000136: # AAAAE ECADR OF 'REFSMMAT'
065332,000137: # XXXXXEXXXXXE ROW 1 COLUMN 1 2(-1)
065333,000138: # XXXXXEXXXXXE ROW 1 COLUMN 2 2(-1)
065334,000139: # XXXXXEXXXXXE ROW 1 COLUMN 3 2(-1)
065335,000140: # XXXXXEXXXXXE ROW 2 COLUMN 1 2(-1)
065336,000141: # XXXXXEXXXXXE ROW 2 COLUMN 2 2(-1)
065337,000142: # XXXXXEXXXXXE ROW 2 COLUMN 3 2(-1)
065338,000143: # XXXXXEXXXXXE ROW 3 COLUMN 1 2(-1)
065339,000144: # XXXXXEXXXXXE ROW 3 COLUMN 2 2(-1)
065340,000145: # XXXXXEXXXXXE ROW 3 COLUMN 3 2(-1)
065341,000146: # V33E VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
065342,000147:
065343,000148: 07,3777 BANK 07
065344,000149: 43,2000 SETLOC EXTVERBS
065345,000150: 43,2000 BANK
065346,000151:
065347,000152: 43,3726 E3,1706 EBANK= TEPHEM
065348,000153:
065349,000154: 43,3726 COUNT* $$/P27
065350,000155: 43,3726 35021 V70UPDAT CAF UP70 # COMES HERE ON V70E
065351,000156: 43,3727 13735 TCF V73UPDAT +1
065352,000157:
065353,000158: 43,3730 35017 V71UPDAT CAF UP71 # COMES HERE ON V71E
065354,000159: 43,3731 13735 TCF V73UPDAT +1
065355,000160:
065356,000161: 43,3732 35016 V72UPDAT CAF UP72 # COMES HERE ON V72E
065357,000162: 43,3733 13735 TCF V73UPDAT +1
065358,000163:
065359,000164: 43,3734 36214 V73UPDAT CAF UP73 # COMES HERE ON V73E
065360,000165:
065361,000166: 43,3735 54331 +1 TS UPVERBSV # SAVE UPVERB UNTIL IT'S OK TO ENTER P27
065362,000167:
065363,000168: 43,3736 02076 TC TESTXACT # GRAB DISPLAY IF AVAILABLE, OTHERWISE
065364,000169: # TURN *OPERATOR ERROR* ON AND TERMINATE JOB
065365,000170:
065366,000171: 43,3737 31011 CA MODREG # CHECK IF UPDATE ALLOWED
065367,000172: 43,3740 00006 EXTEND # FIRST CHECK FOR MODREG = +0, -0
065368,000173: 43,3741 13743 BZF +2 # (+0 = P00, -0 = FRESHSTART)
065369,000174: 43,3742 03753 TC CKMDMORE # NOW CHECK FOR PROGRAM WHICH CAN BE
065370,000175: # INTERRUPTED BY P27.
065371,000176:
065372,000177: 43,3743 31011 CAE MODREG # UPDATE ALLOWED.
065373,000178: 43,3744 54301 TS UPOLDMOD # SAVE CURRENT MAJOR MODE
|
|
Page 1500 |
065375,000180: 43,3745 30331 CAE UPVERBSV # SET UPVERB TO INDICATE TO P27
065376,000181: 43,3746 54302 TS UPVERB # WHICH EXTENDED VERB CALLED IT.
065377,000182:
065378,000183: 43,3747 35017 CAF ONE
065379,000184: 43,3750 54303 TS UPCOUNT # INITIALIZE UPCOUNT TO 1
065380,000185:
065381,000186: 43,3751 04701 TC POSTJUMP # LEAVE EXTENDED VERB BANK AND
065382,000187: 43,3752 57373 CADR UPPART2 # GO TO UPDATE PROGRAM (P27) BANK.
065383,000188:
065384,000189: 43,3753 40101 CKMDMORE CS FLAGWRD5
065385,000190: 43,3754 75010 MASK BIT8 # CHECK IF COMPUTER IS LGC
065386,000191: 43,3755 10000 CCS A # IS COMPUTER LGC OR AGC
065387,000192: 43,3756 13764 UPERLEM TCF UPERROR # ERROR- IT'S THE LEM + MODE IS NOT POO.
065388,000193: 43,3757 45016 CS TWO
065389,000194: 43,3760 71011 MASK MODREG
065390,000195: 43,3761 10000 CCS A
065391,000196: 43,3762 13764 UPERCMC TCF UPERROR # ERROR- IT'S THE CMC AND MODE IS NOT
065392,000197: # P00 OR P02.
065393,000198: 43,3763 00002 TC Q # ALLOW UPDATE TO PROCEED
065394,000199:
065395,000200: 43,3764 04701 UPERROR TC POSTJUMP # TURN ON 'OPERATOR ERROR' LIGHT
065396,000201: 43,3765 57754 CADR UPERROUT +2 # GO TO COMMON UPDATE PROGRAM EXIT
065397,000202:
065398,000203: 43,3766 30,2000 SBANK= LOWSUPER
065399,000204: 43,3766 5021 UP70 EQUALS ZERO
065400,000205: 43,3766 5017 UP71 EQUALS ONE
065401,000206: 43,3766 5016 UP72 EQUALS TWO
065402,000207: 43,3766 6214 UP73 EQUALS THREE
065403,000208:
065404,000209: 04,3757 BANK 04
065405,000210: 27,2000 SETLOC UPDATE2
065406,000211: 27,2000 BANK
065407,000212:
065408,000213: 27,3373 COUNT* $$/P27
065409,000214:
065410,000215: 27,3373 UPPART2 EQUALS # UPDATE PROGRAM - PART 2
065411,000216:
065412,000217: 27,3373 05412 TC PHASCHNG # SET RESTART GROUP 6 TO RESTORE OLD MODE
065413,000218: 27,3374 07026 OCT 07026 # AND DOWNLIST AND EXIT IF RESTART OCCURS.
065414,000219: 27,3375 30000 OCT 30000 # PRIORITY SAME AS CHRPRIO
065415,000220: 27,3376 0304 EBANK= UPBUFF
065416,000221: 27,3376 03704 56060 2CADR UPOUT +1
065417,000222:
065418,000223: 27,3400 35017 CAF ONE
065419,000224: 27,3401 54332 TS DNLSTCOD # DOWNLIST
065420,000225:
065421,000226: 27,3402 05354 TC NEWMODEX # SET MAJOR MODE = 27
|
|
Page 1501 |
065423,000228: 27,3403 00033 DEC 27 B-14
065424,000229:
065425,000230: 27,3404 50302 INDEX UPVERB # BRANCH DEPENDING ON WHETHER THE UPDATE
065426,000231: 27,3405 13406 TCF +1 # VERB REQUIRES A FIXED OR VARIABLE NUMBER
065427,000232: 27,3406 13411 TCF +3 # V70 FIXED. (OF COMPONENTS.
065428,000233: 27,3407 13414 TCF OHWELL1 # V71 VARIABLE - GO GET NO. OF COMPONENTS
065429,000234: 27,3410 13414 TCF OHWELL1 # V72 VARIABLE - GO GET NO. OF COMPONENTS
065430,000235: 27,3411 35016 CA TWO # V73 (AND V70) FIXED
065431,000236: 27,3412 54300 TS COMPNUMB # SET NUMBER OF COMPONENTS TO 2.
065432,000237: 27,3413 13437 TCF OHWELL2 # GO GET THE TWO UPDATE COMPONENTS
065433,000238:
065434,000239: 27,3414 33507 OHWELL1 CAF ADUPBUFF # * REQUEST USER TO SEND NUMBER *
065435,000240: 27,3415 54156 TS MPAC +2 # * OF COMPONENTS PARAMETER(II). *
065436,000241: 27,3416 33510 +2 CAF UPLOADNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
065437,000242: 27,3417 04662 TC BANKCALL # DISPLAY A FLASHING V21N01
065438,000243: 27,3420 20561 CADR GOXDSPF # TO REQUEST II.
065439,000244: 27,3421 13704 TCF UPOUT4 # V34 TERMINATE UPDATE (P27) RETURN
065440,000245: 27,3422 13416 TCF OHWELL1 +2
065441,000246: 27,3423 03500 TC CK4V32 # DATA OR V32 RETURN
065442,000247: 27,3424 45016 CS BIT2
065443,000248: 27,3425 60304 AD UPBUFF # IS II (NUMBER OF COMPONENTS PARAMETER)
065444,000249: 27,3426 00006 EXTEND # .GE. 3 AND .LE. 20D.
065445,000250: 27,3427 63416 BZMF OHWELL1 +2
065446,000251: 27,3430 40304 CS UPBUFF
065447,000252: 27,3431 64376 AD UP21
065448,000253: 27,3432 00006 EXTEND
065449,000254: 27,3433 63416 BZMF OHWELL1 +2
065450,000255: 27,3434 30304 CAE UPBUFF
065451,000256: 27,3435 54300 TS COMPNUMB # SAVE II IN COMPNUMB
065452,000257:
065453,000258: # UPBUFF LOADING SEQUENCE
065454,000259:
065455,000260: 27,3436 24303 INCR UPCOUNT # INCREMENT COUNT OF COMPONENTS RECEIVED.
065456,000261: 27,3437 33654 OHWELL2 CAF ADUPBFM1 # CALCULATE LOCATION (ECADR) IN UPBUFF
065457,000262: 27,3440 60303 AD UPCOUNT # WHERE NEXT COMPONENT SHOULD BE STORED.
065458,000263: 27,3441 54156 +2 TS MPAC +2 # PLACE ECADR INTO R3.
065459,000264: 27,3442 33510 +3 CAF UPLOADNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
065460,000265: 27,3443 04662 TC BANKCALL # DISPLAY A FLASHING V21N01
065461,000266: 27,3444 20561 CADR GOXDSPF # TO REQUEST DATA.
065462,000267: 27,3445 13704 TCF UPOUT4 # V34 TERMINATE UPDATE (P27) RETURN.
065463,000268: 27,3446 13442 TCF OHWELL2 +3 # V33 PROCEED RETURN
065464,000269: 27,3447 03500 TC CK4V32 # DATA OR V32 RETURN
065465,000270: 27,3450 40303 CS UPCOUNT # HAVE WE FINISHED RECEIVING ALL
065466,000271: 27,3451 60300 AD COMPNUMB # THE DATA WE EXPECTED.
065467,000272: 27,3452 00006 EXTEND
065468,000273: 27,3453 63455 BZMF UPVERIFY # YES- GO TO VERIFICATION SEQUENCE
065469,000274: 27,3454 13436 TCF OHWELL2 -1 # NO- REQUEST ADDITIONAL DATA.
065470,000275:
|
|
Page 1502 |
065472,000277: # VERIFY SEQUENCE
065473,000278: 27,3455 33506 UPVERIFY CAF ADUPTEMP # PLACE ECADR WHERE COMPONENT NO. INDEX
065474,000279: 27,3456 54156 TS MPAC +2 # IS TO BE STORED INTO R3.
065475,000280: 27,3457 33511 CAF UPVRFYNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
065476,000281: 27,3460 04662 TC BANKCALL # DISPLAY A FLASHING V21N02 TO REQUEST
065477,000282: 27,3461 20561 CADR GOXDSPF # DATA CORRECTION OR VERIFICATION.
065478,000283: 27,3462 13704 TCF UPOUT4 # V34 TERMINATE UPDATE (P27) RETURN
065479,000284: 27,3463 13512 TCF UPSTORE # V33 DATA SENT IS GOOD. GO STORE IT.
065480,000285: 27,3464 03500 TC CK4V32 # COMPONENT NO. INDEX OR V32 RETURN
065481,000286: 27,3465 30330 CA UPTEMP # DOES THE COMPONENT NO. INDEX JUST SENT
065482,000287: 27,3466 00006 EXTEND # SPECIFY A LEGAL COMPONENT NUMBER?
065483,000288: 27,3467 63455 BZMF UPVERIFY # NO, IT IS NOT POSITIVE NONZERO
065484,000289: 27,3470 40330 CS UPTEMP
065485,000290: 27,3471 60300 AD COMPNUMB
065486,000291: 27,3472 65017 AD BIT1
065487,000292: 27,3473 00006 EXTEND
065488,000293: 27,3474 63455 BZMF UPVERIFY # NO
065489,000294: 27,3475 33654 CAF ADUPBFM1 # YES- BASED ON THE COMPONENT NO. INDEX
065490,000295: 27,3476 60330 AD UPTEMP # CALCULATE THE ECADR OF LOCATION IN
065491,000296: 27,3477 13441 TCF OHWELL2 +2 # UPBUFF WHICH USER WANTS TO CHANGE.
065492,000297:
065493,000298: 27,3500 27,3704 UPOUT4 EQUALS UPOUT +1 # COMES HERE ON V34 TO TERMINATE UPDATE
065494,000299:
065495,000300: # CHECK FOR VERB 32 SEQUENCE
065496,000301:
065497,000302: 27,3500 40154 CK4V32 CS MPAC # ON DATA RETURN FROM 'GOXDSPF'
065498,000303: 27,3501 75012 MASK BIT6 # ON DATA RETURN FROM "GOXDSP"& THE CON-
065499,000304: 27,3502 10000 CCS A # TENTS OF MPAC = VERB. SO TEST FOR V32.
065500,000305: 27,3503 00002 TC Q # IT'S NOT A V32, IT'S DATA. PROCEED.
065501,000306: 27,3504 50002 INDEX Q
065502,000307: 27,3505 77771 TC 0 -6 # V32 ENCOUNTERED - GO BACK AND GET DATA
065503,000308:
065504,000309: 27,3506 00330 ADUPTEMP ADRES UPTEMP # ADDRESS OF TEMP STORAGE FOR CORRECTIONS
065505,000310: 27,3507 00304 ADUPBUFF ADRES UPBUFF # ADDRESS OF UPDATE DATA STORAGE BUFFER
065506,000311: 27,3510 05201 UPLOADNV VN 2101 # VERB 21 NOUN 01
065507,000312: 27,3511 05202 UPVRFYNV VN 2102 # VERB 21 NOUN 02
065508,000313: 27,3512 4376 UP21 = MD1 # DEC 21 = MAX NO OF COMPONENTS +1
065509,000314: 27,3512 5022 UPDTPHAS EQUALS FIVE
065510,000315:
065511,000316: # PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
065512,000317:
065513,000318: 27,3512 UPSTORE EQUALS # GROUND HAS VERIFIED UPDATE. STORE DATA.
065514,000319:
065515,000320: 27,3512 00004 INHINT
065516,000321:
065517,000322: 27,3513 30103 CAE FLAGWRD7 # INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
065518,000323: 27,3514 56001 XCH L # INDICATE TO THE GROUND (VIA DOWNLINK)
065519,000324: 27,3515 35015 CAF BIT3 # THAT THE V33 (WHICH THE GROUND SENT TO
|
|
Page 1503 |
065521,000326: 27,3516 00006 EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
065522,000327: 27,3517 06001 RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM
065523,000328: 27,3520 54103 TS FLAGWRD7
065524,000329:
065525,000330: 27,3521 05412 TC PHASCHNG # SET RESTART GROUP 6 TO REDO THE UPDATE
065526,000331: 27,3522 04026 OCT 04026 # DATA STORE IF A RESTART OCCURS.
065527,000332: 27,3523 00004 INHINT # (BECAUSE PHASCHNG DID A RELINT)
065528,000333:
065529,000334: 27,3524 45016 CS TWO # GO TO UPFNDVAC IF INSTALL IS REQUIRED,
065530,000335: 27,3525 60302 AD UPVERB # THAT IS, IF IT'S A V70 - V72.
065531,000336: 27,3526 00006 EXTEND # GO TO UPEND73 IF IT'S A V73.
065532,000337: 27,3527 63536 BZMF UPFNDVAC
065533,000338:
065534,000339: # VERB 73 BRANCH
065535,000340:
065536,000341: 27,3530 00006 UPEND73 EXTEND # V73-PERFORM DP OCTAL AGC CLOCK INCREMENT
065537,000342: 27,3531 30305 DCA UPBUFF
065538,000343: 27,3532 52315 DXCH UPBUFF +8D
065539,000344: 27,3533 03561 TC TIMEDIDL
065540,000345: 27,3534 04400 TC FALTON # ERROR- TURN ON *OPERATOR ERROR* LIGHT
065541,000346: 27,3535 03704 TC UPOUT +1 # GO TO COMMON UPDATE PROGRAM EXIT
065542,000347:
065543,000348: 27,3536 34371 UPFNDVAC CAF CHRPRIO # (USE EXTENDED VERB PRIORITY)
065544,000349: 27,3537 05147 TC FINDVAC # GET VAC AREA FOR 'CALL INTSTALL'
065545,000350: 27,3540 E3,1706 EBANK= TEPHEM
065546,000351: 27,3540 03543 56063 2CADR UPJOB # (NOTE: THIS WILL ALSO SET EBANK FOR
065547,000352: 27,3542 05217 TC ENDOFJOB # 'TEPHEM' UPDATE BY V70)
065548,000353:
065549,000354: 27,3543 06006 UPJOB TC INTPRET # THIS COULD BE A STATE VECTOR UPDATE -- SO
065550,000355: 27,3544 77624 CALL # WAIT (PUT JOB TO SLEEP) IF ORBIT INT(OI)
065551,000356: 27,3545 27442 INTSTALL # IS IN PROGRESS -- OR -- GRAB OI AND RETURN
065552,000357: # TO UPWAKE IF OI IS NOT IN PROGRESS.
065553,000358:
065554,000359: 27,3546 77776 UPWAKE EXIT
065555,000360:
065556,000361: 27,3547 05412 TC PHASCHNG # RESTART PROTECT (GROUP 6)
065557,000362: 27,3550 04026 OCT 04026
065558,000363:
065559,000364: 27,3551 05546 TC UPFLAG # SET INTEGRATION RESTART BIT
065560,000365: 27,3552 00236 ADRES REINTFLG
065561,000366: 27,3553 00004 INHINT
065562,000367: 27,3554 UPPART3 EQUALS
065563,000368:
065564,000369: 27,3554 50302 INDEX UPVERB # BRANCH TO THE APPROPRIATE UPDATE VERB
065565,000370: 27,3555 13556 TCF +1 # ROUTINE TO ACTUALLY PERFORM THE UPDATE
065566,000371: 27,3556 13715 TCF UPEND70 # V70
065567,000372: 27,3557 13624 TCF UPEND71 # V71
065568,000373: 27,3560 13656 TCF UPEND72 # V72
065569,000374:
|
|
Page 1504 |
065571,000376: # ROUTINE TO INCREMENT CLOCK (TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.
065572,000377: 27,3561 00006 TIMEDIDL EXTEND
065573,000378: 27,3562 22330 QXCH UPTEMP # SAVE Q FOR RETURN
065574,000379: 27,3563 35021 CAF ZERO # ZERO AND SAVE TIME2,TIME1
065575,000380: 27,3564 22007 ZL
065576,000381: 27,3565 52025 DXCH TIME2
065577,000382: 27,3566 52327 DXCH UPBUFF +18D # STORE IN CASE OF OVERFLOW
065578,000383:
065579,000384: 27,3567 35022 CAF UPDTPHAS # DO
065580,000385: 27,3570 54001 TS L # A
065581,000386: 27,3571 40000 COM # QUICK
065582,000387: 27,3572 52765 DXCH -PHASE6 # PHASCHNG
065583,000388:
065584,000389: 27,3573 00004 TIMEDIDR INHINT
065585,000390: 27,3574 35021 CAF ZERO
065586,000391: 27,3575 22007 ZL # PICK UP INCREMENTER(AND ZERO
065587,000392: 27,3576 54156 TS MPAC +2 # IT IN CASE OF RESTARTS) AND
065588,000393: 27,3577 52315 DXCH UPBUFF +8D # STORE IT
065589,000394: 27,3600 52155 DXCH MPAC # INTO MPAC FOR TPAGREE.
065590,000395:
065591,000396: 27,3601 00006 EXTEND
065592,000397: 27,3602 30327 DCA UPBUFF +18D
065593,000398: 27,3603 20155 DAS MPAC # FORM SUM IN MPAC
065594,000399: 27,3604 00006 EXTEND
065595,000400: 27,3605 13614 BZF DELTAOK # TEST FOR OVERFLOW
065596,000401: 27,3606 35021 CAF ZERO
065597,000402: 27,3607 52327 DXCH UPBUFF +18D # OVERFLOW, RESTORE OLD VALUE OF CLOCK
065598,000403: 27,3610 20025 DAS TIME2 # AND TURN ON OPERATOR ERROR
065599,000404:
065600,000405: 27,3611 05412 TC PHASCHNG # RESTART PROTECT (GROUP 6)
065601,000406: 27,3612 04026 OCT 04026
065602,000407:
065603,000408: 27,3613 00330 TC UPTEMP # GO TO ERROR EXIT
065604,000409:
065605,000410: 27,3614 07226 DELTAOK TC TPAGREE # FORCE SIGN AGREEMENT
065606,000411: 27,3615 52155 DXCH MPAC
065607,000412: 27,3616 20025 DAS TIME2 # INCREMENT TIME2,TIME1
065608,000413:
065609,000414: 27,3617 05412 TC PHASCHNG # RESTART PROTECT (GROUP 6)
065610,000415: 27,3620 04026 OCT 04026
065611,000416:
065612,000417: 27,3621 00004 INHINT
065613,000418: 27,3622 50330 INDEX UPTEMP # (CODED THIS WAY FOR RESTART PROTECTION)
065614,000419: 27,3623 00001 TC 1 # NORMAL RETURN
065615,000420:
065616,000421: # VERB 71 BRANCH
065617,000422:
065618,000423: 27,3624 30305 UPEND71 CAE UPBUFF +1 # SET EBANK
065619,000424: 27,3625 54003 TS EBANK # AND
|
|
Page 1505 |
065621,000426: 27,3626 74373 MASK LOW8 # CALCULATE
065622,000427: 27,3627 54330 TS UPTEMP # S-REG VALUE OF RECEIVING AREA
065623,000428: 27,3630 67714 AD NEG3 # IN THE PROCESS OF
065624,000429: 27,3631 60300 AD COMPNUMB # PERFORMING
065625,000430: 27,3632 00006 EXTEND # THIS UPDATE
065626,000431: 27,3633 13641 BZF STORLP71 # WILL WE
065627,000432: 27,3634 75007 MASK BIT9 # OVERFLOW
065628,000433: 27,3635 10000 CCS A # INTO THE NEXT EBANK....
065629,000434: 27,3636 13752 TCF UPERROUT # YES
065630,000435:
065631,000436: 27,3637 37714 CA NEG3 # NO- CALCULATE NUMBER OF
065632,000437: 27,3640 60300 AD COMPNUMB # WORDS TO BE STORED MINUS ONE
065633,000438: 27,3641 54154 STORLP71 TS MPAC # SAVE NO. OF WORDS REMAINING MINUS ONE
065634,000439: 27,3642 50000 INDEX A # TAKE NEXT UPDATE WORD FROM
065635,000440: 27,3643 30306 CA UPBUFF +2 # UPBUFF AND
065636,000441: 27,3644 54001 TS L # SAVE IT IN L
065637,000442: 27,3645 30154 CA MPAC # CALCULATE NEXT
065638,000443: 27,3646 60330 AD UPTEMP # RECEIVING ADDRESS
065639,000444: 27,3647 50000 INDEX A
065640,000445: 27,3650 E3,1400 EBANK= 1400
065641,000446: 27,3650 23400 LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
065642,000447: 27,3651 E3,1706 EBANK= TEPHEM
065643,000448: 27,3651 10154 CCS MPAC # ARE THERE ANY WORDS LEFT TO BE STORED
065644,000449: 27,3652 13641 TCF STORLP71 # YES
065645,000450: 27,3653 13703 TCF UPOUT # NO- THEN EXIT UPDATE PROGRAM
065646,000451: 27,3654 00303 ADUPBFM1 ADRES UPBUFF -1 # SAME AS ADUPBUFF BUT LESS 1 (DON'T MOVE)
065647,000452: 27,3655 13703 TCF UPOUT # NO- EXIT UPDATE (HERE WHEN COMPNUMB = 3)
065648,000453:
065649,000454: # VERB 72 BRANCH
065650,000455:
065651,000456: 27,3656 35017 UPEND72 CAF BIT1 # HAVE AN ODD NO. OF COMPONENTS
065652,000457: 27,3657 70300 MASK COMPNUMB # BEEN SENT FOR A V72 UPDATE ...
065653,000458: 27,3660 10000 CCS A
065654,000459: 27,3661 13663 TCF +2 # YES
065655,000460: 27,3662 13752 TCF UPERROUT # ERROR- SHOULD BE ODD NO. OF COMPONENTS
065656,000461: 27,3663 45016 CS BIT2
065657,000462: 27,3664 60300 AD COMPNUMB
065658,000463: 27,3665 54154 LDLOOP72 TS MPAC # NOW PERFORM THE UPDATE
065659,000464: 27,3666 50000 INDEX A
065660,000465: 27,3667 30305 CAE UPBUFF +1 # PICK UP NEXT UPDATE WORD
065661,000466: 27,3670 22000 LXCH A
065662,000467: 27,3671 10154 CCS MPAC # SET POINTER TO ECADR (MUST BE CCS)
065663,000468: 27,3672 54154 TS MPAC
065664,000469: 27,3673 50000 INDEX A
065665,000470: 27,3674 30305 CAE UPBUFF +1 # PICK UP NEXT ECADR OF REG TO BE UPDATED
065666,000471: 27,3675 54003 TS EBANK # SET EBANK
065667,000472: 27,3676 74373 MASK LOW8 # ISOLATE RELATIVE ADDRESS
065668,000473: 27,3677 50000 INDEX A
065669,000474:
|
|
Page 1506 |
065671,000476: 27,3700 E3,1400 EBANK= 1400
065672,000477: 27,3700 23400 LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
065673,000478: 27,3701 E3,1706 EBANK= TEPHEM
065674,000479: 27,3701 10154 CCS MPAC # ARE WE THROUGH THE V72 UPDATE...
065675,000480: 27,3702 13665 TCF LDLOOP72 # NO
065676,000481:
065677,000482: # NORMAL FINISH OF P27
065678,000483:
065679,000484: 27,3703 UPOUT EQUALS
065680,000485: 27,3703 02671 TC INTWAKEU # RELEASE GRAB OF ORBITAL INTEGRATION
065681,000486: 27,3704 30301 +1 CAE UPOLDMOD # RESTORE PRIOR P27 MODE
065682,000487: 27,3705 05357 TC NEWMODEX +3
065683,000488: 27,3706 35021 CAF ZERO
065684,000489: 27,3707 54332 TS DNLSTCOD
065685,000490: 27,3710 03757 TC UPACTOFF # TURN OFF 'UPLINK ACTIVITY' LIGHT
065686,000491: 27,3711 00006 EXTEND # KILL GROUP 6.
065687,000492: 27,3712 35021 DCA NEG0
065688,000493: 27,3713 52765 DXCH -PHASE6
065689,000494:
065690,000495: 27,3714 05534 TC ENDEXT # EXTENDED VERB EXIT
065691,000496:
065692,000497: # VERB 70 BRANCH
065693,000498:
065694,000499: 27,3715 00006 UPEND70 EXTEND # V70 DOES THE FOLLOWING WITH DP DELTA
065695,000500: 27,3716 40305 DCS UPBUFF # TIME IN UPBUFF
065696,000501: 27,3717 52315 DXCH UPBUFF +8D
065697,000502: 27,3720 03561 TC TIMEDIDL # DECREMENT AGC CLOCK
065698,000503:
065699,000504: 27,3721 03752 TC UPERROUT # ERROR WHILE DECREMENTING CLOCK -- EXIT
065700,000505:
065701,000506: 27,3722 E3,1706 EBANK= TEPHEM
065702,000507: 27,3722 00006 EXTEND
065703,000508: 27,3723 40305 DCS UPBUFF # COPY DECREMENTERS FOR
065704,000509: 27,3724 52317 DXCH UPBUFF +10D # RESTART PROTECTION
065705,000510: 27,3725 00006 EXTEND
065706,000511: 27,3726 40305 DCS UPBUFF
065707,000512: 27,3727 52321 DXCH UPBUFF +12D
065708,000513:
065709,000514: 27,3730 05412 TC PHASCHNG # RESTART PROTECT (GROUP 6)
065710,000515: 27,3731 04026 OCT 04026
065711,000516:
065712,000517: 27,3732 35021 CAF ZERO
065713,000518: 27,3733 22007 ZL
065714,000519: 27,3734 52317 DXCH UPBUFF +10D # DECREMENT CSM STATE VECTOR TIME
065715,000520: 27,3735 21571 DAS TETCSM
065716,000521:
065717,000522: 27,3736 35021 CAF ZERO
065718,000523:
|
|
Page 1507 |
065720,000525: 27,3737 22007 ZL
065721,000526: 27,3740 52321 DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME
065722,000527: 27,3741 21643 DAS TETLEM
065723,000528: 27,3742 35021 CAF ZERO
065724,000529: 27,3743 22007 ZL
065725,000530: 27,3744 52305 DXCH UPBUFF
065726,000531: 27,3745 21710 DAS TEPHEM +1 # INCREMENT TP TEPHEM
065727,000532: 27,3746 27706 ADS TEPHEM
065728,000533:
065729,000534: 27,3747 05412 TC PHASCHNG # RESTART PROTECT (GROUP 6)
065730,000535: 27,3750 04026 OCT 04026
065731,000536:
065732,000537: 27,3751 0304 EBANK= UPBUFF
065733,000538:
065734,000539: 27,3751 03703 TC UPOUT # GO TO STANDARD UPDATE PROGRAM EXIT
065735,000540:
065736,000541: # ERROR SEQUENCE
065737,000542:
065738,000543: 27,3752 04400 UPERROUT TC FALTON # TURN ON *OPERATOR ERROR* LIGHT
065739,000544: 27,3753 13703 TCF UPOUT # GO TO COMMON UPDATE PROGRAM EXIT
065740,000545:
065741,000546: 27,3754 04400 +2 TC FALTON # TURN ON 'OPERATOR ERROR' LIGHT
065742,000547: 27,3755 03757 TC UPACTOFF # TURN OFF 'UPLINK ACTIVITY' LIGHT
065743,000548: 27,3756 05534 TC ENDEXT # EXTENDED VERB EXIT
065744,000549: # (THE PURPOSE OF UPERROUT +2 EXIT IS
065745,000550: # TO PROVIDE AN ERROR EXIT WHICH DOES NOT
065746,000551: # RESET ANY RESTART GROUPS)
065747,000552:
065748,000553: # :UPACTOFF: IS A ROUTINE TO TURN OFF UPLINK ACTIVITY LIGHT ON ALL EXITS FROM UPDATE PROGRAM (P27).
065749,000554:
065750,000555: 27,3757 45015 UPACTOFF CS BIT3
065751,000556: 27,3760 00006 EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
065752,000557: 27,3761 03011 WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
065753,000558: 27,3762 00002 TC Q
End of include-file UPDATE_PROGRAM.agc. Parent file is MAIN.agc