Source Code
![]() |
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
062069,000002: ## Copyright: Public domain.
062070,000003: ## Filename: UPDATE_PROGRAM.agc
062071,000004: ## Purpose: Part of the source code for Colossus build 237.
062072,000005: ## This is for the Command Module's (CM) Apollo Guidance
062073,000006: ## Computer (AGC), for Apollo 8.
062074,000007: ## Assembler: yaYUL
062075,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
062076,000009: ## Website: www.ibiblio.org/apollo/index.html
062077,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
062078,000011: ## Mod history: 2011-04-17 JL Adapted from corresponding Colossus 249 file.
062079,000012: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
062080,000013: ## and fixed errors found.
062081,000014: ## 2017-01-20 RSB Fixed comment-text errors noted while diff'ing
062082,000015: ## vs Colossus 249.
062083,000016: ## 2017-02-09 RSB Comment-text fixes identified for Artemis 72.
062084,000017:
![]() |
Page 1461 |
062086,000019: # PROGRAM NAME: P27
062087,000020: # WRITTEN BY: KILROY/ DE WOLF
062088,000021:
062089,000022: # MOD NO: 6
062090,000023: # MOD BY: KILROY
062091,000024: # DATE: 01DEC67
062092,000025:
062093,000026: # LOG SECTION: UPDATE PROGRAM.
062094,000027:
062095,000028: # FUNCT. DESCR: P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
062096,000029: # INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
062097,000030: # THE P27 PROGRAM WILL ACCEPT UPDATES
062098,000031: # ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
062099,000032: # P02, AND FRESH START FOR THE CSM
062100,000033:
062101,000034: # CALLING SEQ: PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72 AND 73.
062102,000035:
062103,000036: # SUBROUTINES: TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
062104,000037: # INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
062105,000038:
062106,000039: # NORMAL EXIT: TC ENDEXT
062107,000040:
062108,000041: # ALARM/ABORT: TC FALTON FOLLOWED BY TC ENDEXT
062109,000042:
062110,000043: # RESTARTS: P27 IS RESTART PROTECTED IN TWO WAYS...
062111,000044: # 1. PRIOR TO VERIFLAG INVERSION(WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
062112,000045: # DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
062113,000046: # NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
062114,000047: # ACTIVITY LIGHT IS TURNED OFF.(JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
062115,000048: # V70,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
062116,000049: # 2. AFTER VERIFLAG INVERSION(WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
062117,000050: # PROTECTED AGAINST RESTARTS.
062118,000051:
062119,000052: # DEBRIS: UPBUFF (20D) TEMP STORAGE FOR ADDRESSES AND CONTENTS.
062120,000053: # UPVERB (1) VERB NUMBER MINUS 70D (E.G. FOR V72, UPVERB = 72D - 70D = 2)
062121,000054: # UPOLDMOD (1) FOR MAJOR MODE INTERRUPTED BY P27.
062122,000055: # COMPNUMB (1) TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
062123,000056: # UPCOUNT (1) ACTUAL NUMBER OF COMPONENTS RECEIVED.
062124,000057: # UPTEMP (1) SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
062125,000058:
062126,000059:
062127,000060: # INPUT:
062128,000061:
062129,000062: # ENTRY: DESCRIPTION
062130,000063:
062131,000064: # V70EXXXXXEXXXXXE (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
062132,000065: # IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
062133,000066: # VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME(TETLEM).
062134,000067: # THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).
![]() |
Page 1462 |
062136,000069: # V71EIIEAAAAE (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS,XXXXX,
062137,000070: # XXXXXE ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
062138,000071: # XXXXXE IT IS .GE. 3 .AND. .LE. 20D.,
062139,000072: # AND (AAAA + II - 3) DOES NOT PRODUCE AN ADDRESS IN THE
062140,000073: # 9 NEXT BANK
062141,000074: # . SCALING IS SAME AS INTERNAL REGISTERS.
062142,000075:
062143,000076: # V72EIIE (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS,XXXXX, ARE
062144,000077: # AAAAEXXXXXE LOADED INTO ERASABLE LOCATIONS, AAAA.
062145,000078: # AAAAEXXXXXE II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
062146,000079: # . SCALING IS SAME AS INTERNAL REGISTERS.
062147,000080:
062148,000081: # V73EXXXXXEXXXXXE (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
062149,000082: # INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
062150,000083: # CENTISECONDS SCALED AT (2)28.
062151,000084: # THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
062152,000085:
062153,000086:
062154,000087: # OUTPUT: IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
062155,000088: # COMPLEMENT BIT3 OF FLAGWORD7.
062156,000089:
062157,000090:
062158,000091: # ADDITIONAL NOTES: VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES--
062159,000092:
062160,000093: # 1. CSM/LM STATE VECTOR UPDATE
062161,000094: # 2. REFSMMAT UPDATE
062162,000095:
062163,000096:
062164,000097: # THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE----
062165,000098:
062166,000099: # 1. CSM/LM STATE VECTOR UPDATE(ALL DATA ENTRIES IN OCTAL)
062167,000100:
062168,000101: # ENTRIES: DATA DEFINITION: SCALE FACTORS:
062169,000102: # V71E CONTIGUOUS BLOCK UPDATE VERB
062170,000103: # 21E NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
062171,000104: # AAAAE ECADR OF 'UPSVFLAG'
062172,000105: # XXXXXE STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
062173,000106: # 00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
062174,000107: # XXXXXEXXXXXE X POSITION
062175,000108: # XXXXXEXXXXXE Y POSITION
062176,000109: # XXXXXEXXXXXE Z POSITION
062177,000110: # XXXXXEXXXXXE X VELOCITY
062178,000111: # XXXXXEXXXXXE Y VELOCITY
062179,000112: # XXXXXEXXXXXE Z VELOCITY
062180,000113: # XXXXXEXXXXXE TIME FROM AGC CLOCK ZERO
062181,000114: # V33E VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
062182,000115:
062183,000116:
062184,000117: # 2. REFSMMAT(ALL DATA ENTRIES IN OCTAL)
062185,000118: # ENTRIES: DATA DEFINITIONS: SCALE FACTORS:
![]() |
Page 1463 |
062187,000120: # V71E CONTIGUOUS BLOCK UPDATE VERB
062188,000121: # 24E NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
062189,000122: # AAAAE ECADR OF 'REFSMMAT'
062190,000123: # XXXXXEXXXXXE ROW 1 COLUMN 1 2(-1)
062191,000124: # XXXXXEXXXXXE ROW 1 COLUMN 2 2(-1)
062192,000125: # XXXXXEXXXXXE ROW 1 COLUMN 3 2(-1)
062193,000126: # XXXXXEXXXXXE ROW 2 COLUMN 1 2(-1)
062194,000127: # XXXXXEXXXXXE ROW 2 COLUMN 2 2(-1)
062195,000128: # XXXXXEXXXXXE ROW 2 COLUMN 3 2(-1)
062196,000129: # XXXXXEXXXXXE ROW 3 COLUMN 1 2(-1)
062197,000130: # XXXXXEXXXXXE ROW 3 COLUMN 2 2(-1)
062198,000131: # XXXXXEXXXXXE ROW 3 COLUMN 3 2(-1)
062199,000132: # V33E VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
062200,000133:
062201,000134: 07,3717 BANK 07
062202,000135: 43,2000 SETLOC EXTVERBS
062203,000136: 43,2000 BANK
062204,000137:
062205,000138: 43,3721 E3,1706 EBANK= TEPHEM
062206,000139:
062207,000140: 43,3721 COUNT* $$/P27
062208,000141: 43,3721 34714 V70UPDAT CAF UP70 # COMES HERE ON V70E
062209,000142: 43,3722 13730 TCF V73UPDAT +1
062210,000143:
062211,000144: 43,3723 34712 V71UPDAT CAF UP71 # COMES HERE ON V71E
062212,000145: 43,3724 13730 TCF V73UPDAT +1
062213,000146:
062214,000147: 43,3725 34711 V72UPDAT CAF UP72 # COMES HERE ON V72E
062215,000148: 43,3726 13730 TCF V73UPDAT +1
062216,000149:
062217,000150: 43,3727 36214 V73UPDAT CAF UP73 # COMES HERE ON V73E
062218,000151:
062219,000152: 43,3730 54331 +1 TS UPVERBSV # SAVE UPVERB UNTIL IT'S OK TO ENTER P27
062220,000153:
062221,000154: 43,3731 02076 TC TESTXACT # GRAB DISPLAY IF AVAILABLE, OTHERWISE
062222,000155: # TURN*OPERATOR ERROR* ON AND TERMINATEJOB
062223,000156:
062224,000157: 43,3732 31011 CA MODREG # CHECK IF UPDATE ALLOWED
062225,000158: 43,3733 00006 EXTEND # FIRST CHECK FOR MODREG = +0, -0
062226,000159: 43,3734 13736 BZF +2 # (+0 = P00, -0 = FRESH START)
062227,000160: 43,3735 03746 TC CKMDMORE # NOW CHECK FOR PROGRAM WHICH CAN BE
062228,000161: # INTERRUPTED BY P27.
062229,000162:
062230,000163: 43,3736 31011 CAE MODREG # UPDATE ALLOWED.
062231,000164: 43,3737 54301 TS UPOLDMOD # SAVE CURRENT MAJOR MODE
062232,000165:
![]() |
Page 1464 |
062234,000167: 43,3740 30331 CAE UPVERBSV # SET UPVERB TO INDICATE TO P27
062235,000168: 43,3741 54302 TS UPVERB # WHICH EXTENDED VERB CALLED IT.
062236,000169:
062237,000170: 43,3742 34712 CAF ONE
062238,000171: 43,3743 54303 TS UPCOUNT # INITIALIZE UPCOUNT TO 1
062239,000172:
062240,000173: 43,3744 04574 TC POSTJUMP # LEAVE EXTENDED VERB BANK AND
062241,000174: 43,3745 57335 CADR UPPART2 # GO TO UPDATE PROGRAM(P27) BANK.
062242,000175:
062243,000176: 43,3746 40101 CKMDMORE CS FLAGWRD5
062244,000177: 43,3747 74703 MASK BIT8 # CHECK IF COMPUTER IS LGC
062245,000178: 43,3750 10000 CCS A # IS COMPUTER LGC OR AGC
062246,000179: 43,3751 13757 UPERLEM TCF UPERROR # ERROR- IT'S THE LEM + MODE IS NOT POO.
062247,000180: 43,3752 44711 CS TWO
062248,000181: 43,3753 71011 MASK MODREG
062249,000182: 43,3754 10000 CCS A
062250,000183: 43,3755 13757 UPERCMC TCF UPERROR # ERROR- IT'S THE CMC AND MODE IS NOT
062251,000184: # P00 OR P02.
062252,000185: 43,3756 00002 TC Q # ALLOW UPDATE TO PROCEED
062253,000186:
062254,000187: 43,3757 04574 UPERROR TC POSTJUMP # TURN ON 'OPERATOR ERROR' LIGHT
062255,000188: 43,3760 57716 CADR UPERROUT +2 # GO TO COMMON UPDATE PROGRAM EXIT
062256,000189:
062257,000190: 43,3761 4714 UP70 EQUALS ZERO
062258,000191: 43,3761 4712 UP71 EQUALS ONE
062259,000192: 43,3761 4711 UP72 EQUALS TWO
062260,000193: 43,3761 6214 UP73 EQUALS THREE
062261,000194:
062262,000195:
062263,000196: 04,3645 BANK 04
062264,000197: 27,2000 SETLOC UPDATE2
062265,000198: 27,2000 BANK
062266,000199:
062267,000200: 27,3335 COUNT* $$/P27
062268,000201:
062269,000202: 27,3335 UPPART2 EQUALS # UPDATE PROGRAM - PART 2
062270,000203:
062271,000204: 27,3335 05301 TC PHASCHNG # SET RESTART GROUP 6 TO RESTORE OLD MODE
062272,000205: 27,3336 07026 OCT 07026 # AND DOWNLIST AND EXIT IF RESTART OCCURS.
062273,000206: 27,3337 30000 OCT 30000 # PRIORITY SAME AS CHRPRIO
062274,000207: 27,3340 0304 EBANK= UPBUFF
062275,000208: 27,3340 03646 56100 2CADR UPOUT +1
062276,000209:
062277,000210: 27,3342 34712 CAF ONE
062278,000211: 27,3343 54332 TS DNLSTCOD # DOWNLIST
062279,000212:
062280,000213: 27,3344 05243 TC NEWMODEX # SET MAJOR MODE = 27
062281,000214: 27,3345 00033 DEC 27 B-14
![]() |
Page 1465 |
062283,000216: 27,3346 50302 INDEX UPVERB # BRANCH DEPENDING ON WHETHER THE UPDATE
062284,000217: 27,3347 13350 TCF +1 # VERB REQUIRES A FIXED OR VARIABLE NUMBER
062285,000218: 27,3350 13353 TCF +3 # V70 FIXED. (OF COMPONENTS.
062286,000219: 27,3351 13356 TCF OHWELL1 # V71 VARIABLE - GO GET NO. OF COMPONENTS
062287,000220: 27,3352 13356 TCF OHWELL1 # V72 VARIABLE - GO GET NO. OF COMPONENTS
062288,000221: 27,3353 34711 CA TWO # V73 (AND V70) FIXED
062289,000222: 27,3354 54300 TS COMPNUMB # SET NUMBER OF COMPONENTS TO 2.
062290,000223: 27,3355 13401 TCF OHWELL2 # GO GET THE TWO UPDATE COMPONENTS
062291,000224:
062292,000225: 27,3356 33451 OHWELL1 CAF ADUPBUFF # * REQUEST USER TO SEND NUMBER *
062293,000226: 27,3357 54156 TS MPAC +2 # * OF COMPONENTS PARAMETER(II). *
062294,000227: 27,3360 33452 +2 CAF UPLOADNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
062295,000228: 27,3361 04555 TC BANKCALL # DISPLAY A FLASHING V21N01
062296,000229: 27,3362 20465 CADR GOXDSPF # TO REQUEST II.
062297,000230: 27,3363 13646 TCF UPOUT4 # V34 TERMINATE UPDATE(P27) RETURN
062298,000231: 27,3364 13360 TCF OHWELL1 +2
062299,000232: 27,3365 03442 TC CK4V32 # DATA OR V32 RETURN
062300,000233: 27,3366 44711 CS BIT2
062301,000234: 27,3367 60304 AD UPBUFF # IS II(NUMBER OF COMPONENTS PARAMETER)
062302,000235: 27,3370 00006 EXTEND # .GE. 3 AND .LE. 20D.
062303,000236: 27,3371 63360 BZMF OHWELL1 +2
062304,000237: 27,3372 40304 CS UPBUFF
062305,000238: 27,3373 64376 AD UP21
062306,000239: 27,3374 00006 EXTEND
062307,000240: 27,3375 63360 BZMF OHWELL1 +2
062308,000241: 27,3376 30304 CAE UPBUFF
062309,000242: 27,3377 54300 TS COMPNUMB # SAVE II IN COMPNUMB
062310,000243:
062311,000244:
062312,000245: # UPBUFF LOADING SEQUENCE
062313,000246:
062314,000247: 27,3400 24303 INCR UPCOUNT # INCREMENT COUNT OF COMPONENTS RECEIVED.
062315,000248: 27,3401 33616 OHWELL2 CAF ADUPBFM1 # CALCULATE LOCATION(ECADR) IN UPBUFF
062316,000249: 27,3402 60303 AD UPCOUNT # WHERE NEXT COMPONENT SHOULD BE STORED.
062317,000250: 27,3403 54156 +2 TS MPAC +2 # PLACE ECADR INTO R3.
062318,000251: 27,3404 33452 +3 CAF UPLOADNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
062319,000252: 27,3405 04555 TC BANKCALL # DISPLAY A FLASHING V21N01
062320,000253: 27,3406 20465 CADR GOXDSPF # TO REQUEST DATA.
062321,000254: 27,3407 13646 TCF UPOUT4 # V34 TERMINATE UPDATE(P27) RETURN.
062322,000255: 27,3410 13404 TCF OHWELL2 +3 # V33 PROCEED RETURN
062323,000256: 27,3411 03442 TC CK4V32 # DATA OR V32 RETURN
062324,000257: 27,3412 40303 CS UPCOUNT # HAVE WE FINISHED RECEIVING ALL
062325,000258: 27,3413 60300 AD COMPNUMB # THE DATA WE EXPECTED.
062326,000259: 27,3414 00006 EXTEND
062327,000260: 27,3415 63417 BZMF UPVERIFY # YES- GO TO VERIFICATION SEQUENCE
062328,000261: 27,3416 13400 TCF OHWELL2 -1 # NO- REQUEST ADDITIONAL DATA.
062329,000262:
062330,000263:
062331,000264: # VERIFY SEQUENCE
062332,000265:
![]() |
Page 1466 |
062334,000267: 27,3417 33450 UPVERIFY CAF ADUPTEMP # PLACE ECADR WHERE COMPONENT NO. INDEX
062335,000268: 27,3420 54156 TS MPAC +2 # IS TO BE STORED INTO R3.
062336,000269: 27,3421 33453 CAF UPVRFYNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
062337,000270: 27,3422 04555 TC BANKCALL # DISPLAY A FLASHING V21N02 TO REQUEST
062338,000271: 27,3423 20465 CADR GOXDSPF # DATA CORRECTION OR VERIFICATION.
062339,000272: 27,3424 13646 TCF UPOUT4 # V34 TERMINATE UPDATE(P27) RETURN
062340,000273: 27,3425 13454 TCF UPSTORE # V33 DATA SENT IS GOOD. GO STORE IT.
062341,000274: 27,3426 03442 TC CK4V32 # COMPONENT NO. INDEX OR V32 RETURN
062342,000275: 27,3427 30330 CA UPTEMP # DOES THE COMPONENT NO. INDEX JUST SENT
062343,000276: 27,3430 00006 EXTEND # SPECIFY A LEGAL COMPONENT NUMBER?
062344,000277: 27,3431 63417 BZMF UPVERIFY # NO, IT IS NOT POSITIVE NONZERO
062345,000278: 27,3432 40330 CS UPTEMP
062346,000279: 27,3433 60300 AD COMPNUMB
062347,000280: 27,3434 64712 AD BIT1
062348,000281: 27,3435 00006 EXTEND
062349,000282: 27,3436 63417 BZMF UPVERIFY # NO
062350,000283: 27,3437 33616 CAF ADUPBFM1 # YES- BASED ON THE COMPONENT NO. INDEX
062351,000284: 27,3440 60330 AD UPTEMP # CALCULATE THE ECADR OF LOCATION IN
062352,000285: 27,3441 13403 TCF OHWELL2 +2 # UPBUFF WHICH USER WANTS TO CHANGE.
062353,000286:
062354,000287: 27,3442 27,3646 UPOUT4 EQUALS UPOUT +1 # COMES HERE ON V34 TO TERMINATE UPDATE
062355,000288:
062356,000289:
062357,000290: # CHECK FOR VERB 32 SEQUENCE
062358,000291:
062359,000292: 27,3442 40154 CK4V32 CS MPAC # ON DATA RETURN FROM 'GOXDSPF'
062360,000293: 27,3443 74705 MASK BIT6 # ON DATA RETURN FROM "GOXDSP"& THE CON-
062361,000294: 27,3444 10000 CCS A # TENTS OF MPAC = VERB. SO TEST FOR V32.
062362,000295: 27,3445 00002 TC Q # IT'S NOT A V32, IT'S DATA. PROCEED.
062363,000296: 27,3446 50002 INDEX Q
062364,000297: 27,3447 77771 TC 0 -6 # V32 ENCOUNTERED - GO BACK AND GET DATA
062365,000298:
062366,000299: 27,3450 00330 ADUPTEMP ADRES UPTEMP # ADDRESS OF TEMP STORAGE FOR CORRECTIONS
062367,000300: 27,3451 00304 ADUPBUFF ADRES UPBUFF # ADDRESS OF UPDATE DATA STORAGE BUFFER
062368,000301: 27,3452 05201 UPLOADNV VN 2101 # VERB 21 NOUN 01
062369,000302: 27,3453 05202 UPVRFYNV VN 2102 # VERB 21 NOUN 02
062370,000303: 27,3454 4376 UP21 = MD1 # DEC 21 = MAX NO OF COMPONENTS +1
062371,000304: 27,3454 4715 UPDTPHAS EQUALS FIVE
062372,000305:
062373,000306: # PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
062374,000307:
062375,000308: 27,3454 UPSTORE EQUALS # GROUND HAS VERIFIED UPDATE. STORE DATA.
062376,000309:
062377,000310: 27,3454 00004 INHINT
062378,000311:
062379,000312: 27,3455 30103 CAE FLAGWRD7 # INVERT VERIFLAG(BIT 3 OF FLAGWRD7) TO
062380,000313: 27,3456 56001 XCH L # INDICATE TO THE GROUND(VIA DOWNLINK)
062381,000314: 27,3457 34710 CAF BIT3 # THAT THE V33(WHICH THE GROUND SENT TO
062382,000315: 27,3460 00006 EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
062383,000316: 27,3461 06001 RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM
![]() |
Page 1467 |
062385,000318: 27,3462 54103 TS FLAGWRD7
062386,000319:
062387,000320: 27,3463 05301 TC PHASCHNG # SET RESTART GROUP 6 TO REDO THE UPDATE
062388,000321: 27,3464 04026 OCT 04026 # DATA STORE IF A RESTART OCCURS.
062389,000322: 27,3465 00004 INHINT # (BECAUSE PHASCHNG DID A RELINT)
062390,000323:
062391,000324: 27,3466 44711 CS TWO # GO TO UPFNDVAC IF INSTALL IS REQUIRED,
062392,000325: 27,3467 60302 AD UPVERB # THAT IS, IF IT'S A V70 - V72.
062393,000326: 27,3470 00006 EXTEND # GO TO UPEND73 IF IT'S A V73.
062394,000327: 27,3471 63500 BZMF UPFNDVAC
062395,000328:
062396,000329: # VERB 73 BRANCH
062397,000330:
062398,000331: 27,3472 00006 UPEND73 EXTEND # V73-PERFORM DP OCTAL AGC CLOCK INCREMENT
062399,000332: 27,3473 30305 DCA UPBUFF
062400,000333: 27,3474 52315 DXCH UPBUFF +8D
062401,000334: 27,3475 03523 TC TIMEDIDL
062402,000335: 27,3476 04400 TC FALTON # ERROR- TURN ON *OPERATOR ERROR* LIGHT
062403,000336: 27,3477 03646 TC UPOUT +1 # GO TO COMMON UPDATE PROGRAM EXIT
062404,000337:
062405,000338: 27,3500 34371 UPFNDVAC CAF CHRPRIO # (USE EXTENDED VERB PRIORITY)
062406,000339: 27,3501 05042 TC FINDVAC # GET VAC AREA FOR 'CALL INTSTALL'
062407,000340: 27,3502 E3,1706 EBANK= TEPHEM
062408,000341: 27,3502 03505 56103 2CADR UPJOB # (NOTE: THIS WILL ALSO SET EBANK FOR
062409,000342: 27,3504 05112 TC ENDOFJOB # 'TEPHEM' UPDATE BY V70)
062410,000343:
062411,000344: 27,3505 06006 UPJOB TC INTPRET # THIS COULD BE A STATE VECTOR UPDATE--SO
062412,000345: 27,3506 77624 CALL # WAIT(PUT JOB TO SLEEP) IF ORBIT INT(OI)
062413,000346: 27,3507 27371 INTSTALL # IS IN PROGRESS--OR--GRAB OI AND RETURN
062414,000347: # TO UPWAKE IF OI IS NOT IN PROGRESS.
062415,000348:
062416,000349: 27,3510 77776 UPWAKE EXIT
062417,000350:
062418,000351: 27,3511 05301 TC PHASCHNG # RESTART PROTECT(GROUP 6)
062419,000352: 27,3512 04026 OCT 04026
062420,000353:
062421,000354: 27,3513 05435 TC UPFLAG # SET INTEGRATION RESTART BIT
062422,000355: 27,3514 00236 ADRES REINTFLG
062423,000356: 27,3515 00004 INHINT
062424,000357: 27,3516 UPPART3 EQUALS
062425,000358:
062426,000359: 27,3516 50302 INDEX UPVERB # BRANCH TO THE APPROPRIATE UPDATE VERB
062427,000360: 27,3517 13520 TCF +1 # ROUTINE TO ACTUALLY PERFORM THE UPDATE
062428,000361: 27,3520 13657 TCF UPEND70 # V70
062429,000362: 27,3521 13566 TCF UPEND71 # V71
062430,000363: 27,3522 13620 TCF UPEND72 # V72
062431,000364:
062432,000365:
062433,000366: # ROUTINE TO INCREMENT CLOCK(TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.
![]() |
Page 1468 |
062435,000368: 27,3523 00006 TIMEDIDL EXTEND
062436,000369: 27,3524 22330 QXCH UPTEMP # SAVE Q FOR RETURN
062437,000370: 27,3525 34714 CAF ZERO # ZERO AND SAVE TIME2,TIME1
062438,000371: 27,3526 22007 ZL
062439,000372: 27,3527 52025 DXCH TIME2
062440,000373: 27,3530 52327 DXCH UPBUFF +18D # STORE IN CASE OF OVERFLOW
062441,000374:
062442,000375: 27,3531 34715 CAF UPDTPHAS # DO
062443,000376: 27,3532 54001 TS L # A
062444,000377: 27,3533 40000 COM # QUICK
062445,000378: 27,3534 52765 DXCH -PHASE6 # PHASCHNG
062446,000379:
062447,000380: 27,3535 00004 TIMEDIDR INHINT
062448,000381:
062449,000382: 27,3536 34714 CAF ZERO
062450,000383: 27,3537 22007 ZL # PICK UP INCREMENTER(AND ZERO
062451,000384: 27,3540 54156 TS MPAC +2 # IT IN CASE OF RESTARTS) AND
062452,000385: 27,3541 52315 DXCH UPBUFF +8D # STORE IT
062453,000386: 27,3542 52155 DXCH MPAC # INTO MPAC FOR TPAGREE.
062454,000387:
062455,000388: 27,3543 00006 EXTEND
062456,000389: 27,3544 30327 DCA UPBUFF +18D
062457,000390: 27,3545 20155 DAS MPAC # FORM SUM IN MPAC
062458,000391: 27,3546 00006 EXTEND
062459,000392: 27,3547 13556 BZF DELTATOK # TEST FOR OVERFLOW
062460,000393: 27,3550 34714 CAF ZERO
062461,000394: 27,3551 52327 DXCH UPBUFF +18D # OVERFLOW, RESTORE OLD VALUE OF CLOCK
062462,000395: 27,3552 20025 DAS TIME2 # AND TURN ON OPERATOR ERROR
062463,000396:
062464,000397: 27,3553 05301 TC PHASCHNG # RESTART PROTECT(GROUP 6)
062465,000398: 27,3554 04026 OCT 04026
062466,000399:
062467,000400: 27,3555 00330 TC UPTEMP # GO TO ERROR EXIT
062468,000401:
062469,000402: 27,3556 07226 DELTATOK TC TPAGREE # FORCE SIGN AGREEMENT
062470,000403: 27,3557 52155 DXCH MPAC
062471,000404: 27,3560 20025 DAS TIME2 # INCREMENT TIME2,TIME1
062472,000405:
062473,000406: 27,3561 05301 TC PHASCHNG # RESTART PROTECT(GROUP 6)
062474,000407: 27,3562 04026 OCT 04026
062475,000408:
062476,000409: 27,3563 00004 INHINT
062477,000410: 27,3564 50330 INDEX UPTEMP # (CODED THIS WAY FOR RESTART PROTECTION)
062478,000411: 27,3565 00001 TC 1 # NORMAL RETURN
062479,000412: # VERB 71 BRANCH
062480,000413:
062481,000414: 27,3566 30305 UPEND71 CAE UPBUFF +1 # SET EBANK
062482,000415: 27,3567 54003 TS EBANK # AND
062483,000416: 27,3570 74373 MASK LOW8 # CALCULATE
062484,000417: 27,3571 54330 TS UPTEMP # S-REG VALUE OF RECEIVING AREA
![]() |
Page 1469 |
062486,000419: 27,3572 67714 AD NEG3 # IN THE PROCESS OF
062487,000420: 27,3573 60300 AD COMPNUMB # PERFORMING
062488,000421: 27,3574 00006 EXTEND # THIS UPDATE
062489,000422: 27,3575 13603 BZF STORLP71 # WILL WE
062490,000423: 27,3576 74702 MASK BIT9 # OVERFLOW
062491,000424: 27,3577 10000 CCS A # INTO THE NEXT EBANK....
062492,000425: 27,3600 13714 TCF UPERROUT # YES
062493,000426:
062494,000427: 27,3601 37714 CA NEG3 # NO- CALCULATE NUMBER OF
062495,000428: 27,3602 60300 AD COMPNUMB # WORDS TO BE STORED MINUS ONE
062496,000429: 27,3603 54154 STORLP71 TS MPAC # SAVE NO. OF WORDS REMAINING MINUS ONE
062497,000430: 27,3604 50000 INDEX A # TAKE NEXT UPDATE WORD FROM
062498,000431: 27,3605 30306 CA UPBUFF +2 # UPBUFF AND
062499,000432: 27,3606 54001 TS L # SAVE IT IN L
062500,000433: 27,3607 30154 CA MPAC # CALCULATE NEXT
062501,000434: 27,3610 60330 AD UPTEMP # RECEIVING ADDRESS
062502,000435: 27,3611 50000 INDEX A
062503,000436: 27,3612 E3,1400 EBANK= 1400
062504,000437: 27,3612 23400 LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
062505,000438: 27,3613 E3,1706 EBANK= TEPHEM
062506,000439: 27,3613 10154 CCS MPAC # ARE THERE ANY WORDS LEFT TO BE STORED
062507,000440: 27,3614 13603 TCF STORLP71 # YES
062508,000441: 27,3615 13645 TCF UPOUT # NO- THEN EXIT UPDATE PROGRAM
062509,000442: 27,3616 00303 ADUPBFM1 ADRES UPBUFF -1 # SAME AS ADUPBUFF BUT LESS 1 (DON'T MOVE)
062510,000443: 27,3617 13645 TCF UPOUT # NO- EXIT UPDATE(HERE WHEN COMPNUMB = 3)
062511,000444:
062512,000445:
062513,000446: # VERB 72 BRANCH
062514,000447:
062515,000448: 27,3620 34712 UPEND72 CAF BIT1 # HAVE AN ODD NO. OF COMPONENTS
062516,000449: 27,3621 70300 MASK COMPNUMB # BEEN SENT FOR A V72 UPDATE...
062517,000450: 27,3622 10000 CCS A
062518,000451: 27,3623 13625 TCF +2 # YES
062519,000452: 27,3624 13714 TCF UPERROUT # ERROR- SHOULD BE ODD NO. OF COMPONENTS
062520,000453: 27,3625 44711 CS BIT2
062521,000454: 27,3626 60300 AD COMPNUMB
062522,000455: 27,3627 54154 LDLOOP72 TS MPAC # NOW PERFORM THE UPDATE
062523,000456: 27,3630 50000 INDEX A
062524,000457: 27,3631 30305 CAE UPBUFF +1 # PICK UP NEXT UPDATE WORD
062525,000458: 27,3632 22000 LXCH A
062526,000459: 27,3633 10154 CCS MPAC # SET POINTER TO ECADR(MUST BE CCS)
062527,000460: 27,3634 54154 TS MPAC
062528,000461: 27,3635 50000 INDEX A
062529,000462: 27,3636 30305 CAE UPBUFF +1 # PICK UP NEXT ECADR OF REG TO BE UPDATED
062530,000463: 27,3637 54003 TS EBANK # SET EBANK
062531,000464: 27,3640 74373 MASK LOW8 # ISOLATE RELATIVE ADDRESS
062532,000465: 27,3641 50000 INDEX A
062533,000466: 27,3642 E3,1400 EBANK= 1400
062534,000467: 27,3642 23400 LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
062535,000468: 27,3643 E3,1706 EBANK= TEPHEM
![]() |
Page 1470 |
062537,000470: 27,3643 10154 CCS MPAC # ARE WE THROUGH THE V72 UPDATE...
062538,000471: 27,3644 13627 TCF LDLOOP72 # NO
062539,000472:
062540,000473:
062541,000474: # NORMAL FINISH OF P27
062542,000475:
062543,000476: 27,3645 UPOUT EQUALS
062544,000477: 27,3645 02633 TC INTWAKEU # RELEASE GRAB OF ORBITAL INTEGRATION
062545,000478: 27,3646 30301 +1 CAE UPOLDMOD # RESTORE PRIOR P27 MODE
062546,000479: 27,3647 05246 TC NEWMODEX +3
062547,000480: 27,3650 34714 CAF ZERO
062548,000481: 27,3651 54332 TS DNLSTCOD
062549,000482: 27,3652 03721 TC UPACTOFF # TURN OFF 'UPLINK ACTIVITY' LIGHT
062550,000483:
062551,000484: 27,3653 00006 EXTEND # KILL GROUP 6.
062552,000485: 27,3654 34714 DCA NEG0
062553,000486: 27,3655 52765 DXCH -PHASE6
062554,000487:
062555,000488: 27,3656 05423 TC ENDEXT # EXTENDED VERB EXIT
062556,000489:
062557,000490:
062558,000491: # VERB 70 BRANCH
062559,000492:
062560,000493: 27,3657 00006 UPEND70 EXTEND # V70 DOES THE FOLLOWING WITH DP DELTA
062561,000494: 27,3660 40305 DCS UPBUFF # TIME IN UPBUFF
062562,000495: 27,3661 52315 DXCH UPBUFF +8D
062563,000496: 27,3662 03523 TC TIMEDIDL # DECREMENT AGC CLOCK
062564,000497:
062565,000498: 27,3663 03714 TC UPERROUT # ERROR WHILE DECREMENTING CLOCK -- EXIT
062566,000499:
062567,000500: 27,3664 E3,1706 EBANK= TEPHEM
062568,000501: 27,3664 00006 EXTEND
062569,000502: 27,3665 40305 DCS UPBUFF # COPY DECREMENTERS FOR
062570,000503: 27,3666 52317 DXCH UPBUFF +10D # RESTART PROTECTION
062571,000504: 27,3667 00006 EXTEND
062572,000505: 27,3670 40305 DCS UPBUFF
062573,000506: 27,3671 52321 DXCH UPBUFF +12D
062574,000507:
062575,000508: 27,3672 05301 TC PHASCHNG # RESTART PROTECT(GROUP 6)
062576,000509: 27,3673 04026 OCT 04026
062577,000510:
062578,000511: 27,3674 34714 CAF ZERO
062579,000512: 27,3675 22007 ZL
062580,000513: 27,3676 52317 DXCH UPBUFF +10D # DECREMENT CSM STATE VECTOR TIME
062581,000514: 27,3677 21571 DAS TETCSM
062582,000515:
062583,000516: 27,3700 34714 CAF ZERO
062584,000517: 27,3701 22007 ZL
062585,000518: 27,3702 52321 DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME
062586,000519: 27,3703 21643 DAS TETLEM
![]() |
Page 1471 |
062588,000521: 27,3704 34714 CAF ZERO
062589,000522: 27,3705 22007 ZL
062590,000523: 27,3706 52305 DXCH UPBUFF
062591,000524: 27,3707 21710 DAS TEPHEM +1 # INCREMENT TP TEPHEM
062592,000525: 27,3710 27706 ADS TEPHEM
062593,000526:
062594,000527: 27,3711 05301 TC PHASCHNG # RESTART PROTECT(GROUP 6)
062595,000528: 27,3712 04026 OCT 04026
062596,000529:
062597,000530: 27,3713 0304 EBANK= UPBUFF
062598,000531:
062599,000532: 27,3713 03645 TC UPOUT # GO TO STANDARD UPDATE PROGRAM EXIT
062600,000533:
062601,000534:
062602,000535: # ERROR SEQUENCE
062603,000536:
062604,000537: 27,3714 04400 UPERROUT TC FALTON # TURN ON *OPERATOR ERROR* LIGHT
062605,000538: 27,3715 13645 TCF UPOUT # GO TO COMMON UPDATE PROGRAM EXIT
062606,000539:
062607,000540: 27,3716 04400 +2 TC FALTON # TURN ON 'OPERATOR ERROR' LIGHT
062608,000541: 27,3717 03721 TC UPACTOFF # TURN OFF'UPLINK ACTIVITY'LIGHT
062609,000542: 27,3720 05423 TC ENDEXT # EXTENDED VERB EXIT
062610,000543: # (THE PURPOSE OF UPERROUT +2 EXIT IS
062611,000544: # TO PROVIDE AN ERROR EXIT WHICH DOES NOT
062612,000545: # RESET ANY RESTART GROUPS)
062613,000546:
062614,000547:
062615,000548:
062616,000549: # :UPACTOFF: IS A ROUTINE TO TURN OFF UPLINK ACTIVITY LIGHT ON ALL EXITS FROM UPDATE PROGRAM(P27).
062617,000550:
062618,000551: 27,3721 44710 UPACTOFF CS BIT3
062619,000552: 27,3722 00006 EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
062620,000553: 27,3723 03011 WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
062621,000554: 27,3724 00002 TC Q
End of include-file UPDATE_PROGRAM.agc. Parent file is MAIN.agc