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