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