Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
060128,000002: ## Copyright: Public domain.
060129,000003: ## Filename: UPDATE_PROGRAM.agc
060130,000004: ## Purpose: A log section of Zerlina 56, the final revision of
060131,000005: ## Don Eyles's offline development program for the variable
060132,000006: ## guidance period servicer. It also includes a new P66 with LPD
060133,000007: ## (Landing Point Designator) capability, based on an idea of John
060134,000008: ## Young's. Neither of these advanced features were actually flown,
060135,000009: ## but Zerlina was also the birthplace of other big improvements to
060136,000010: ## Luminary including the terrain model and new (Luminary 1E)
060137,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
060138,000012: ## and revision 56 includes all changes up to and including Luminary
060139,000013: ## 183. It is therefore quite close to the Apollo 14 program,
060140,000014: ## Luminary 178, where not modified with new features.
060141,000015: ## Reference: pp. 1374-1384
060142,000016: ## Assembler: yaYUL
060143,000017: ## Contact: Ron Burkey <info@sandroid.org>.
060144,000018: ## Website: www.ibiblio.org/apollo/index.html
060145,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
060146,000020: ## 2017-08-29 MAS Updated for Zerlina 56.
060147,000021: ## 2021-05-30 ABS DELTAOK -> DELTATOK
060148,000022:
|
|
Page 1374 |
060150,000024: # PROGRAM NAME: P27
060151,000025: # WRITTEN BY: KILROY/ DE WOLF
060152,000026:
060153,000027: # MOD NO: 6
060154,000028: # MOD BY: KILROY
060155,000029: # DATE: 01DEC67
060156,000030:
060157,000031: # LOG SECTION: UPDATE PROGRAM.
060158,000032:
060159,000033: # FUNCT. DESCR: P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
060160,000034: # INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
060161,000035: # THE P27 PROGRAM WILL ACCEPT UPDATES
060162,000036: # ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
060163,000037: # P02, AND FRESH START FOR THE CSM
060164,000038:
060165,000039: # CALLING SEQ: PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72 AND 73.
060166,000040:
060167,000041: # SUBROUTINES: TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
060168,000042: # INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
060169,000043:
060170,000044: # NORMAL EXIT: TC ENDEXT
060171,000045:
060172,000046: # ALARM/ABORT: TC FALTON FOLLOWED BY TC ENDEXT
060173,000047:
060174,000048: # RESTARTS: P27 IS RESTART PROTECTED IN TWO WAYS...
060175,000049: # 1. PRIOR TO VERIFLAG INVERSION(WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
060176,000050: # DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
060177,000051: # NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
060178,000052: # ACTIVITY LIGHT IS TURNED OFF.(JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
060179,000053: # V70,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
060180,000054: # 2. AFTER VERIFLAG INVERSION(WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
060181,000055: # PROTECTED AGAINST RESTARTS.
060182,000056:
060183,000057: # DEBRIS: UPBUFF (20D) TEMP STORAGE FOR ADDRESSES AND CONTENTS.
060184,000058: # UPVERB (1) VERB NUMBER MINUS 70D (E.G. FOR V72, UPVERB = 72D - 70D = 2)
060185,000059: # UPOLDMOD (1) FOR MAJOR MODE INTERRUPTED BY P27.
060186,000060: # COMPNUMB (1) TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
060187,000061: # UPCOUNT (1) ACTUAL NUMBER OF COMPONENTS RECEIVED.
060188,000062: # UPTEMP (1) SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
060189,000063:
060190,000064:
060191,000065: # INPUT:
060192,000066:
060193,000067: # ENTRY: DESCRIPTION
060194,000068:
060195,000069: # V70EXXXXXEXXXXXE (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
060196,000070: # IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
060197,000071: # VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME(TETLEM).
060198,000072: # THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).
|
|
Page 1375 |
060200,000074: # V71EIIEAAAAE (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS,XXXXX,
060201,000075: # XXXXXE ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
060202,000076: # XXXXXE IT IS .GE. 3 .AND. .LE. 20D.,
060203,000077: # AND (AAAA + II - 3) DOES NOT PRODUCE AN ADDRESS IN THE
060204,000078: # 9 NEXT BANK
060205,000079: # . SCALING IS SAME AS INTERNAL REGISTERS.
060206,000080:
060207,000081: # V72EIIE (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS,XXXXX, ARE
060208,000082: # AAAAEXXXXXE LOADED INTO ERASABLE LOCATIONS, AAAA.
060209,000083: # AAAAEXXXXXE II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
060210,000084: # . SCALING IS SAME AS INTERNAL REGISTERS.
060211,000085:
060212,000086: # V73EXXXXXEXXXXXE (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
060213,000087: # INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
060214,000088: # CENTISECONDS SCALED AT (2)28.
060215,000089: # THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
060216,000090:
060217,000091:
060218,000092: # OUTPUT: IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
060219,000093: # COMPLEMENT BIT3 OF FLAGWORD7.
060220,000094:
060221,000095:
060222,000096: # ADDITIONAL NOTES: VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES--
060223,000097:
060224,000098: # 1. CSM/LM STATE VECTOR UPDATE
060225,000099: # 2. REFSMMAT UPDATE
060226,000100:
060227,000101:
060228,000102: # THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE----
060229,000103:
060230,000104: # 1. CSM/LM STATE VECTOR UPDATE(ALL DATA ENTRIES IN OCTAL)
060231,000105:
060232,000106: # ENTRIES: DATA DEFINITION: SCALE FACTORS:
060233,000107: # V71E CONTIGUOUS BLOCK UPDATE VERB
060234,000108: # 21E NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
060235,000109: # AAAAE ECADR OF 'UPSVFLAG'
060236,000110: # XXXXXE STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
060237,000111: # 00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
060238,000112: # XXXXXEXXXXXE X POSITION
060239,000113: # XXXXXEXXXXXE Y POSITION
060240,000114: # XXXXXEXXXXXE Z POSITION
060241,000115: # XXXXXEXXXXXE X VELOCITY
060242,000116: # XXXXXEXXXXXE Y VELOCITY
060243,000117: # XXXXXEXXXXXE Z VELOCITY
060244,000118: # XXXXXEXXXXXE TIME FROM AGC CLOCK ZERO
060245,000119: # V33E VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
060246,000120:
060247,000121:
060248,000122: # 2. REFSMMAT(ALL DATA ENTRIES IN OCTAL)
060249,000123: # ENTRIES: DATA DEFINITIONS: SCALE FACTORS:
|
|
Page 1376 |
060251,000125: # V71E CONTIGUOUS BLOCK UPDATE VERB
060252,000126: # 24E NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
060253,000127: # AAAAE ECADR OF 'REFSMMAT'
060254,000128: # XXXXXEXXXXXE ROW 1 COLUMN 1 2(-1)
060255,000129: # XXXXXEXXXXXE ROW 1 COLUMN 2 2(-1)
060256,000130: # XXXXXEXXXXXE ROW 1 COLUMN 3 2(-1)
060257,000131: # XXXXXEXXXXXE ROW 2 COLUMN 1 2(-1)
060258,000132: # XXXXXEXXXXXE ROW 2 COLUMN 2 2(-1)
060259,000133: # XXXXXEXXXXXE ROW 2 COLUMN 3 2(-1)
060260,000134: # XXXXXEXXXXXE ROW 3 COLUMN 1 2(-1)
060261,000135: # XXXXXEXXXXXE ROW 3 COLUMN 2 2(-1)
060262,000136: # XXXXXEXXXXXE ROW 3 COLUMN 3 2(-1)
060263,000137: # V33E VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
060264,000138:
060265,000139: 07,3771 BANK 07
060266,000140: 43,2000 SETLOC EXTVERBS
060267,000141: 43,2000 BANK
060268,000142:
060269,000143: 43,3723 E3,1706 EBANK= TEPHEM
060270,000144:
060271,000145: 43,3723 COUNT* $$/P27
060272,000146: 43,3723 34755 V70UPDAT CAF UP70 # COMES HERE ON V70E
060273,000147: 43,3724 13732 TCF V73UPDAT +1
060274,000148:
060275,000149:
060276,000150: 43,3725 34753 V71UPDAT CAF UP71 # COMES HERE ON V71E
060277,000151: 43,3726 13732 TCF V73UPDAT +1
060278,000152:
060279,000153:
060280,000154: 43,3727 34752 V72UPDAT CAF UP72 # COMES HERE ON V72E
060281,000155: 43,3730 13732 TCF V73UPDAT +1
060282,000156:
060283,000157:
060284,000158: 43,3731 36257 V73UPDAT CAF UP73 # COMES HERE ON V73E
060285,000159:
060286,000160: 43,3732 55165 +1 TS UPVERBSV # SAVE UPVERB UNTIL IT'S OK TO ENTER P27
060287,000161:
060288,000162: 43,3733 02076 TC TESTXACT # GRAB DISPLAY IF AVAILABLE, OTHERWISE
060289,000163: # TURN*OPERATOR ERROR* ON AND TERMINATEJOB
060290,000164:
060291,000165: 43,3734 04635 TC POSTJUMP # LEAVE EXTENDED VERB BANK AND
060292,000166: 43,3735 11374 CADR UPPART2 # GO TO UPDATE PROGRAM(P27) BANK.
060293,000167:
060294,000168:
060295,000169: 43,3736 4755 UP70 EQUALS ZERO
060296,000170: 43,3736 4753 UP71 EQUALS ONE
060297,000171: 43,3736 4752 UP72 EQUALS TWO
060298,000172: 43,3736 6257 UP73 EQUALS THREE
060299,000173:
|
|
Page 1377 |
060301,000175: 04,3374 BANK 04
060302,000176: 04,2000 SETLOC UPDATE2
060303,000177: 04,2000 BANK
060304,000178:
060305,000179: 04,3374 COUNT* $$/P27
060306,000180:
060307,000181: 04,3374 UPPART2 EQUALS # UPDATE PROGRAM - PART 2
060308,000182:
060309,000183: 04,3374 31010 CA MODREG # IS UPDATE ALLOWED AT THIS TIME?
060310,000184: 04,3375 00006 EXTEND # IS MODREG +0 (POOH) OR -0 (FRESH START)?
060311,000185: 04,3376 13400 BZF UPDATOK
060312,000186:
060313,000187: 04,3377 03766 UPERROR TC UPERROUT +2 # TURN ON OPERATOR ERROR LIGHT AND EXIT
060314,000188:
060315,000189: 04,3400 55170 UPDATOK TS UPOLDMOD
060316,000190:
060317,000191: 04,3401 31165 CAE UPVERBSV # SET UPVERB TO TELL P27 WHICH EXTENDED
060318,000192: 04,3402 55171 TS UPVERB # VERB CALLED IT
060319,000193:
060320,000194: 04,3403 34753 CAF ONE
060321,000195: 04,3404 55172 TS UPCOUNT
060322,000196:
060323,000197: 04,3405 05364 TC PHASCHNG # SET RESTART GROUP 6 TO RESTORE OLD MODE
060324,000198: 04,3406 07026 OCT 07026 # AND DOWNLIST AND EXIT IF RESTART OCCURS.
060325,000199: 04,3407 30000 OCT 30000 # PRIORITY SAME AS CHRPRIO
060326,000200: 04,3410 1173 EBANK= UPBUFF
060327,000201: 04,3410 03716 10102 2CADR UPOUT +1
060328,000202:
060329,000203:
060330,000204: 04,3412 34753 CAF ONE
060331,000205: 04,3413 54333 TS DNLSTCOD # DOWNLIST
060332,000206:
060333,000207: 04,3414 05322 TC NEWMODEX # SET MAJOR MODE = 27
060334,000208: 04,3415 00033 DEC 27 B-14
060335,000209:
060336,000210: 04,3416 51171 INDEX UPVERB # BRANCH DEPENDING ON WHETHER THE UPDATE
060337,000211: 04,3417 13420 TCF +1 # VERB REQUIRES A FIXED OR VARIABLE NUMBER
060338,000212: 04,3420 13423 TCF +3 # V70 FIXED. (OF COMPONENTS.
060339,000213: 04,3421 13426 TCF OHWELL1 # V71 VARIABLE - GO GET NO. OF COMPONENTS
060340,000214: 04,3422 13426 TCF OHWELL1 # V72 VARIABLE - GO GET NO. OF COMPONENTS
060341,000215: 04,3423 34752 CA TWO # V73 (AND V70) FIXED
060342,000216: 04,3424 55167 TS COMPNUMB # SET NUMBER OF COMPONENTS TO 2.
060343,000217: 04,3425 13451 TCF OHWELL2 # GO GET THE TWO UPDATE COMPONENTS
060344,000218:
060345,000219: 04,3426 33521 OHWELL1 CAF ADUPBUFF # * REQUEST USER TO SEND NUMBER *
060346,000220: 04,3427 54156 TS MPAC +2 # * OF COMPONENTS PARAMETER(II). *
060347,000221: 04,3430 33522 +2 CAF UPLOADNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
060348,000222: 04,3431 04616 TC BANKCALL # DISPLAY A FLASHING V21N01
060349,000223: 04,3432 20334 CADR GOXDSPF # TO REQUEST II.
060350,000224: 04,3433 13716 TCF UPOUT4 # V34 TERMINATE UPDATE (P27) RETURN
|
|
Page 1378 |
060352,000226: 04,3434 13430 TCF OHWELL1 +2
060353,000227: 04,3435 03512 TC CK4V32 # DATA OR V32 RETURN
060354,000228: 04,3436 44752 CS BIT2
060355,000229: 04,3437 61173 AD UPBUFF # IS II(NUMBER OF COMPONENTS PARAMETER)
060356,000230: 04,3440 00006 EXTEND # .GE. 3 AND .LE. 20D.
060357,000231: 04,3441 63430 BZMF OHWELL1 +2
060358,000232: 04,3442 41173 CS UPBUFF
060359,000233: 04,3443 64362 AD UP21
060360,000234: 04,3444 00006 EXTEND
060361,000235: 04,3445 63430 BZMF OHWELL1 +2
060362,000236: 04,3446 31173 CAE UPBUFF
060363,000237: 04,3447 55167 TS COMPNUMB # SAVE II IN COMPNUMB
060364,000238:
060365,000239:
060366,000240: # UPBUFF LOADING SEQUENCE
060367,000241:
060368,000242: 04,3450 25172 INCR UPCOUNT # INCREMENT COUNT OF COMPONENTS RECEIVED.
060369,000243: 04,3451 33666 OHWELL2 CAF ADUPBFM1 # CALCULATE LOCATION(ECADR) IN UPBUFF
060370,000244: 04,3452 61172 AD UPCOUNT # WHERE NEXT COMPONENT SHOULD BE STORED.
060371,000245: 04,3453 54156 +2 TS MPAC +2 # PLACE ECADR INTO R3.
060372,000246: 04,3454 33522 +3 CAF UPLOADNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
060373,000247: 04,3455 04616 TC BANKCALL # DISPLAY A FLASHING V21N01
060374,000248: 04,3456 20334 CADR GOXDSPF # TO REQUEST DATA.
060375,000249: 04,3457 13716 TCF UPOUT4 # V34 TERMINATE UPDATE(P27) RETURN.
060376,000250: 04,3460 13454 TCF OHWELL2 +3 # V33 PROCEED RETURN
060377,000251: 04,3461 03512 TC CK4V32 # DATA OR V32 RETURN
060378,000252: 04,3462 41172 CS UPCOUNT # HAVE WE FINISHED RECEIVING ALL
060379,000253: 04,3463 61167 AD COMPNUMB # THE DATA WE EXPECTED.
060380,000254: 04,3464 00006 EXTEND
060381,000255: 04,3465 63467 BZMF UPVERIFY # YES- GO TO VERIFICATION SEQUENCE
060382,000256: 04,3466 13450 TCF OHWELL2 -1 # NO- REQUEST ADDITIONAL DATA.
060383,000257:
060384,000258:
060385,000259: # VERIFY SEQUENCE
060386,000260:
060387,000261: 04,3467 33520 UPVERIFY CAF ADUPTEMP # PLACE ECADR WHERE COMPONENT NO. INDEX
060388,000262: 04,3470 54156 TS MPAC +2 # IS TO BE STORED INTO R3.
060389,000263: 04,3471 33523 CAF UPVRFYNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
060390,000264: 04,3472 04616 TC BANKCALL # DISPLAY A FLASHING V21N02 TO REQUEST
060391,000265: 04,3473 20334 CADR GOXDSPF # DATA CORRECTION OR VERIFICATION.
060392,000266: 04,3474 13716 TCF UPOUT4 # V34 TERMINATE UPDATE(P27) RETURN
060393,000267: 04,3475 13524 TCF UPSTORE # V33 DATA SENT IS GOOD. GO STORE IT.
060394,000268: 04,3476 03512 TC CK4V32 # COMPONENT NO. INDEX OR V32 RETURN
060395,000269: 04,3477 31166 CA UPTEMP # DOES THE COMPONENT NO. INDEX JUST SENT
060396,000270: 04,3500 00006 EXTEND # SPECIFY A LEGAL COMPONENT NUMBER?
060397,000271: 04,3501 63467 BZMF UPVERIFY # NO, IT IS NOT POSITIVE NONZERO
060398,000272: 04,3502 41166 CS UPTEMP
060399,000273: 04,3503 61167 AD COMPNUMB
060400,000274: 04,3504 64753 AD BIT1
060401,000275: 04,3505 00006 EXTEND
|
|
Page 1379 |
060403,000277: 04,3506 63467 BZMF UPVERIFY # NO
060404,000278: 04,3507 33666 CAF ADUPBFM1 # YES- BASED ON THE COMPONENT NO. INDEX
060405,000279: 04,3510 61166 AD UPTEMP # CALCULATE THE ECADR OF LOCATION IN
060406,000280: 04,3511 13453 TCF OHWELL2 +2 # UPBUFF WHICH USER WANTS TO CHANGE.
060407,000281:
060408,000282: 04,3512 04,3716 UPOUT4 EQUALS UPOUT +1 # COMES HERE ON V34 TO TERMINATE UPDATE
060409,000283:
060410,000284:
060411,000285: # CHECK FOR VERB 32 SEQUENCE
060412,000286:
060413,000287: 04,3512 40154 CK4V32 CS MPAC # ON DATA RETURN FROM 'GOXDSPF'
060414,000288: 04,3513 74746 MASK BIT6 # ON DATA RETURN FROM "GOXDSP"& THE CON-
060415,000289: 04,3514 10000 CCS A # TENTS OF MPAC = VERB. SO TEST FOR V32.
060416,000290: 04,3515 00002 TC Q # IT'S NOT A V32, IT'S DATA. PROCEED.
060417,000291: 04,3516 50002 INDEX Q
060418,000292: 04,3517 77771 TC 0 -6 # V32 ENCOUNTERED - GO BACK AND GET DATA
060419,000293:
060420,000294: 04,3520 01166 ADUPTEMP ADRES UPTEMP # ADDRESS OF TEMP STORAGE FOR CORRECTIONS
060421,000295: 04,3521 01173 ADUPBUFF ADRES UPBUFF # ADDRESS OF UPDATE DATA STORAGE BUFFER
060422,000296: 04,3522 05201 UPLOADNV VN 2101 # VERB 21 NOUN 01
060423,000297: 04,3523 05202 UPVRFYNV VN 2102 # VERB 21 NOUN 02
060424,000298: 04,3524 4362 UP21 = MD1 # DEC 21 = MAX NO OF COMPONENTS +1
060425,000299: 04,3524 4756 UPDTPHAS EQUALS FIVE
060426,000300:
060427,000301: # PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
060428,000302:
060429,000303: 04,3524 UPSTORE EQUALS # GROUND HAS VERIFIED UPDATE. STORE DATA.
060430,000304:
060431,000305: 04,3524 00004 INHINT
060432,000306:
060433,000307: 04,3525 30103 CAE FLAGWRD7 # INVERT VERIFLAG(BIT3 OF FLAGWRD7) TO
060434,000308: 04,3526 56001 XCH L # INDICATE TO THE GROUND(VIA DOWNLINK)
060435,000309: 04,3527 34751 CAF VERIFBIT # THAT THE V33 (WHICH THE GROUND SENT TO
060436,000310: 04,3530 00006 EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
060437,000311: 04,3531 06001 RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM
060438,000312: 04,3532 54103 TS FLAGWRD7
060439,000313:
060440,000314: 04,3533 05364 TC PHASCHNG # SET RESTART GROUP 6 TO REDO THE UPDATE
060441,000315: 04,3534 04026 OCT 04026 # DATA STORE IF A RESTART OCCURS.
060442,000316: 04,3535 00004 INHINT # (BECAUSE PHASCHNG DID A RELINT)
060443,000317:
060444,000318: 04,3536 44752 CS TWO # GO TO UPFNDVAC IF INSTALL IS REQUIRED,
060445,000319: 04,3537 61171 AD UPVERB # THAT IS, IF IT'S A V70 - V72.
060446,000320: 04,3540 00006 EXTEND # GO TO UPEND73 IF IT'S A V73.
060447,000321: 04,3541 63550 BZMF UPFNDVAC
060448,000322:
060449,000323: # VERB 73 BRANCH
060450,000324:
060451,000325: 04,3542 00006 UPEND73 EXTEND # V73-PERFORM DP OCTAL AGC CLOCK INCREMENT
060452,000326: 04,3543 31174 DCA UPBUFF
|
|
Page 1380 |
060454,000328: 04,3544 53204 DXCH UPBUFF +8D
060455,000329: 04,3545 03573 TC TIMEDIDL
060456,000330: 04,3546 04364 TC FALTON # ERROR- TURN ON *OPERATOR ERROR* LIGHT
060457,000331: 04,3547 03716 TC UPOUT +1 # GO TO COMMON UPDATE PROGRAM EXIT
060458,000332:
060459,000333: 04,3550 34355 UPFNDVAC CAF CHRPRIO # (USE EXTENDED VERB PRIORITY)
060460,000334: 04,3551 05105 TC FINDVAC # GET VAC AREA FOR 'CALL INTSTALL'
060461,000335: 04,3552 E3,1706 EBANK= TEPHEM
060462,000336: 04,3552 03555 10103 2CADR UPJOB # (NOTE: THIS WILL ALSO SET EBANK FOR
060463,000337:
060464,000338: 04,3554 05155 TC ENDOFJOB # 'TEPHEM' UPDATE BY V70)
060465,000339:
060466,000340: 04,3555 06051 UPJOB TC INTPRET # THIS COULD BE A STATE VECTOR UPDATE--SO
060467,000341: 04,3556 77624 CALL # WAIT(PUT JOB TO SLEEP) IF ORBIT INT(OI)
060468,000342: 04,3557 27410 INTSTALL # IS IN PROGRESS--OR--GRAB OI AND RETURN
060469,000343: # TO UPWAKE IF OI IS NOT IN PROGRESS.
060470,000344:
060471,000345: 04,3560 77776 UPWAKE EXIT
060472,000346:
060473,000347: 04,3561 05364 TC PHASCHNG # RESTART PROTECT(GROUP 6)
060474,000348: 04,3562 04026 OCT 04026
060475,000349:
060476,000350: 04,3563 05515 TC UPFLAG # SET INTEGRATION RESTART BIT
060477,000351: 04,3564 00236 ADRES REINTFLG
060478,000352: 04,3565 00004 INHINT
060479,000353: 04,3566 UPPART3 EQUALS
060480,000354:
060481,000355: 04,3566 51171 INDEX UPVERB # BRANCH TO THE APPROPRIATE UPDATE VERB
060482,000356: 04,3567 13570 TCF +1 # ROUTINE TO ACTUALLY PERFORM THE UPDATE
060483,000357: 04,3570 13727 TCF UPEND70 # V70
060484,000358: 04,3571 13636 TCF UPEND71 # V71
060485,000359: 04,3572 13670 TCF UPEND72 # V72
060486,000360:
060487,000361:
060488,000362: # ROUTINE TO INCREMENT CLOCK(TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.
060489,000363:
060490,000364: 04,3573 00006 TIMEDIDL EXTEND
060491,000365: 04,3574 23166 QXCH UPTEMP # SAVE Q FOR RETURN
060492,000366: 04,3575 34755 CAF ZERO # ZERO AND SAVE TIME2,TIME1
060493,000367: 04,3576 22007 ZL
060494,000368: 04,3577 52025 DXCH TIME2
060495,000369: 04,3600 53216 DXCH UPBUFF +18D # STORE IN CASE OF OVERFLOW
060496,000370:
060497,000371: 04,3601 34756 CAF UPDTPHAS # DO
060498,000372: 04,3602 54001 TS L # A
060499,000373: 04,3603 40000 COM # QUICK
060500,000374: 04,3604 52764 DXCH -PHASE6 # PHASCHNG
060501,000375:
060502,000376: 04,3605 00004 TIMEDIDR INHINT
|
|
Page 1381 |
060504,000378: 04,3606 34755 CAF ZERO
060505,000379: 04,3607 22007 ZL # PICK UP INCREMENTER(AND ZERO
060506,000380: 04,3610 54156 TS MPAC +2 # IT IN CASE OF RESTARTS) AND
060507,000381: 04,3611 53204 DXCH UPBUFF +8D # STORE IT
060508,000382: 04,3612 52155 DXCH MPAC # INTO MPAC FOR TPAGREE.
060509,000383:
060510,000384: 04,3613 00006 EXTEND
060511,000385: 04,3614 31216 DCA UPBUFF +18D
060512,000386: 04,3615 20155 DAS MPAC # FORM SUM IN MPAC
060513,000387: 04,3616 00006 EXTEND
060514,000388: 04,3617 13626 BZF DELTATOK # TEST FOR OVERFLOW
060515,000389: 04,3620 34755 CAF ZERO
060516,000390: 04,3621 53216 DXCH UPBUFF +18D # OVERFLOW, RESTORE OLD VALUE OF CLOCK
060517,000391: 04,3622 20025 DAS TIME2 # AND TURN ON OPERATOR ERROR
060518,000392:
060519,000393: 04,3623 05364 TC PHASCHNG # RESTART PROTECT(GROUP 6)
060520,000394: 04,3624 04026 OCT 04026
060521,000395:
060522,000396: 04,3625 01166 TC UPTEMP # GO TO ERROR EXIT
060523,000397:
060524,000398: 04,3626 07271 DELTATOK TC TPAGREE # FORCE SIGN AGREEMENT
060525,000399: 04,3627 52155 DXCH MPAC
060526,000400: 04,3630 20025 DAS TIME2 # INCREMENT TIME2,TIME1
060527,000401:
060528,000402: 04,3631 05364 TC PHASCHNG # RESTART PROTECT(GROUP 6)
060529,000403: 04,3632 04026 OCT 04026
060530,000404:
060531,000405: 04,3633 00004 INHINT
060532,000406: 04,3634 51166 INDEX UPTEMP # (CODED THIS WAY FOR RESTART PROTECTION)
060533,000407: 04,3635 00001 TC 1 # NORMAL RETURN
060534,000408: # VERB 71 BRANCH
060535,000409:
060536,000410: 04,3636 31174 UPEND71 CAE UPBUFF +1 # SET EBANK
060537,000411: 04,3637 54003 TS EBANK # AND
060538,000412: 04,3640 74357 MASK LOW8 # CALCULATE
060539,000413: 04,3641 55166 TS UPTEMP # S-REG VALUE OF RECEIVING AREA
060540,000414:
060541,000415: 04,3642 67757 AD NEG3 # IN THE PROCESS OF
060542,000416: 04,3643 61167 AD COMPNUMB # PERFORMING
060543,000417: 04,3644 00006 EXTEND # THIS UPDATE
060544,000418: 04,3645 13653 BZF STORLP71 # WILL WE
060545,000419: 04,3646 74743 MASK BIT9 # OVERFLOW
060546,000420: 04,3647 10000 CCS A # INTO THE NEXT EBANK....
060547,000421: 04,3650 13764 TCF UPERROUT # YES
060548,000422:
060549,000423: 04,3651 37757 CA NEG3 # NO- CALCULATE NUMBER OF
060550,000424: 04,3652 61167 AD COMPNUMB # WORDS TO BE STORED MINUS ONE
060551,000425: 04,3653 54154 STORLP71 TS MPAC # SAVE NO. OF WORDS REMAINING MINUS ONE
060552,000426: 04,3654 50000 INDEX A # TAKE NEXT UPDATE WORD FROM
060553,000427: 04,3655 31175 CA UPBUFF +2 # UPBUFF AND
|
|
Page 1382 |
060555,000429: 04,3656 54001 TS L # SAVE IT IN L
060556,000430: 04,3657 30154 CA MPAC # CALCULATE NEXT
060557,000431: 04,3660 61166 AD UPTEMP # RECEIVING ADDRESS
060558,000432: 04,3661 50000 INDEX A
060559,000433: 04,3662 E3,1400 EBANK= 1400
060560,000434: 04,3662 23400 LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
060561,000435: 04,3663 E3,1706 EBANK= TEPHEM
060562,000436: 04,3663 10154 CCS MPAC # ARE THERE ANY WORDS LEFT TO BE STORED
060563,000437: 04,3664 13653 TCF STORLP71 # YES
060564,000438: 04,3665 13715 TCF UPOUT # NO- THEN EXIT UPDATE PROGRAM
060565,000439: 04,3666 01172 ADUPBFM1 ADRES UPBUFF -1 # SAME AS ADUPBUFF BUT LESS 1 (DON'T MOVE)
060566,000440: 04,3667 13715 TCF UPOUT # NO- EXIT UPDATE(HERE WHEN COMPNUMB = 3)
060567,000441:
060568,000442:
060569,000443: # VERB 72 BRANCH
060570,000444:
060571,000445: 04,3670 34753 UPEND72 CAF BIT1 # HAVE AN ODD NO. OF COMPONENTS
060572,000446: 04,3671 71167 MASK COMPNUMB # BEEN SENT FOR A V72 UPDATE...
060573,000447: 04,3672 10000 CCS A
060574,000448: 04,3673 13675 TCF +2 # YES
060575,000449: 04,3674 13764 TCF UPERROUT # ERROR- SHOULD BE ODD NO. OF COMPONENTS
060576,000450: 04,3675 44752 CS BIT2
060577,000451: 04,3676 61167 AD COMPNUMB
060578,000452: 04,3677 54154 LDLOOP72 TS MPAC # NOW PERFORM THE UPDATE
060579,000453: 04,3700 50000 INDEX A
060580,000454: 04,3701 31174 CAE UPBUFF +1 # PICK UP NEXT UPDATE WORD
060581,000455: 04,3702 22000 LXCH A
060582,000456: 04,3703 10154 CCS MPAC # SET POINTER TO ECADR(MUST BE CCS)
060583,000457: 04,3704 54154 TS MPAC
060584,000458: 04,3705 50000 INDEX A
060585,000459: 04,3706 31174 CAE UPBUFF +1 # PICK UP NEXT ECADR OF REG TO BE UPDATED
060586,000460: 04,3707 54003 TS EBANK # SET EBANK
060587,000461: 04,3710 74357 MASK LOW8 # ISOLATE RELATIVE ADDRESS
060588,000462: 04,3711 50000 INDEX A
060589,000463: 04,3712 E3,1400 EBANK= 1400
060590,000464: 04,3712 23400 LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
060591,000465: 04,3713 E3,1706 EBANK= TEPHEM
060592,000466: 04,3713 10154 CCS MPAC # ARE WE THROUGH THE V72 UPDATE...
060593,000467: 04,3714 13677 TCF LDLOOP72 # NO
060594,000468:
060595,000469:
060596,000470: # NORMAL FINISH OF P27
060597,000471:
060598,000472: 04,3715 UPOUT EQUALS
060599,000473: 04,3715 03137 TC INTWAKEU # RELEASE GRAB OF ORBITAL INTEGRATION
060600,000474: 04,3716 31170 +1 CAE UPOLDMOD # RESTORE PRIOR P27 MODE
060601,000475: 04,3717 05325 TC NEWMODEX +3
060602,000476: 04,3720 34755 CAF ZERO
060603,000477: 04,3721 54333 TS DNLSTCOD
060604,000478: 04,3722 03771 TC UPACTOFF # TURN OFF 'UPLINK ACTIVITY' LIGHT
|
|
Page 1383 |
060606,000480: 04,3723 00006 EXTEND # KILL GROUP 6.
060607,000481: 04,3724 34755 DCA NEG0
060608,000482: 04,3725 52764 DXCH -PHASE6
060609,000483:
060610,000484: 04,3726 05503 TC ENDEXT # EXTENDED VERB EXIT
060611,000485:
060612,000486:
060613,000487: # VERB 70 BRANCH
060614,000488:
060615,000489: 04,3727 00006 UPEND70 EXTEND # V70 DOES THE FOLLOWING WITH DP DELTA
060616,000490: 04,3730 41174 DCS UPBUFF # TIME IN UPBUFF
060617,000491: 04,3731 53204 DXCH UPBUFF +8D
060618,000492: 04,3732 03573 TC TIMEDIDL # DECREMENT AGC CLOCK
060619,000493:
060620,000494: 04,3733 03764 TC UPERROUT # ERROR WHILE DECREMENTING CLOCK -- EXIT
060621,000495:
060622,000496: 04,3734 E3,1706 EBANK= TEPHEM
060623,000497: 04,3734 00006 EXTEND
060624,000498: 04,3735 41174 DCS UPBUFF # COPY DECREMENTERS FOR
060625,000499: 04,3736 53206 DXCH UPBUFF +10D # RESTART PROTECTION
060626,000500: 04,3737 00006 EXTEND
060627,000501: 04,3740 41174 DCS UPBUFF
060628,000502: 04,3741 53210 DXCH UPBUFF +12D
060629,000503:
060630,000504: 04,3742 05364 TC PHASCHNG # RESTART PROTECT(GROUP 6)
060631,000505: 04,3743 04026 OCT 04026
060632,000506:
060633,000507: 04,3744 34755 CAF ZERO
060634,000508: 04,3745 22007 ZL
060635,000509: 04,3746 53206 DXCH UPBUFF +10D # DECREMENT CSM STATE VECTOR TIME
060636,000510: 04,3747 21571 DAS TETCSM
060637,000511:
060638,000512: 04,3750 34755 CAF ZERO
060639,000513: 04,3751 22007 ZL
060640,000514: 04,3752 53210 DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME
060641,000515: 04,3753 21643 DAS TETLEM
060642,000516:
060643,000517: 04,3754 34755 CAF ZERO
060644,000518: 04,3755 22007 ZL
060645,000519: 04,3756 53174 DXCH UPBUFF
060646,000520: 04,3757 21710 DAS TEPHEM +1 # INCREMENT TP TEPHEM
060647,000521: 04,3760 27706 ADS TEPHEM
060648,000522:
060649,000523: 04,3761 05364 TC PHASCHNG # RESTART PROTECT(GROUP 6)
060650,000524: 04,3762 04026 OCT 04026
060651,000525:
060652,000526: 04,3763 1173 EBANK= UPBUFF
060653,000527:
060654,000528: 04,3763 03715 TC UPOUT # GO TO STANDARD UPDATE PROGRAM EXIT
060655,000529:
|
|
Page 1384 |
060657,000531: # ERROR SEQUENCE
060658,000532:
060659,000533: 04,3764 04364 UPERROUT TC FALTON # TURN ON *OPERATOR ERROR* LIGHT
060660,000534: 04,3765 13715 TCF UPOUT # GO TO COMMON UPDATE PROGRAM EXIT
060661,000535:
060662,000536: 04,3766 04364 +2 TC FALTON # TURN ON 'OPERATOR ERROR' LIGHT
060663,000537: 04,3767 03771 TC UPACTOFF # TURN OFF'UPLINK ACTIVITY'LIGHT
060664,000538: 04,3770 05503 TC ENDEXT # EXTENDED VERB EXIT
060665,000539: # (THE PURPOSE OF UPERROUT +2 EXIT IS
060666,000540: # TO PROVIDE AN ERROR EXIT WHICH DOES NOT
060667,000541: # RESET ANY RESTART GROUPS)
060668,000542:
060669,000543:
060670,000544:
060671,000545: # :UPACTOFF: IS A ROUTINE TO TURN OFF UPLINK ACTIVITY LIGHT ON ALL EXITS FROM UPDATE PROGRAM(P27).
060672,000546:
060673,000547: 04,3771 44751 UPACTOFF CS BIT3
060674,000548: 04,3772 00006 EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
060675,000549: 04,3773 03011 WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
060676,000550: 04,3774 00002 TC Q
End of include-file UPDATE_PROGRAM.agc. Parent file is MAIN.agc