GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be 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 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
047815,000002: ## Copyright: Public domain.
047816,000003: ## Filename: DOWN-TELEMETRY_PROGRAM.agc
047817,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
047818,000005: ## build 072. This is for the Command Module's (CM)
047819,000006: ## Apollo Guidance Computer (AGC), for
047820,000007: ## Apollo 15-17.
047821,000008: ## Assembler: yaYUL
047822,000009: ## Contact: Sergio Navarro <sergionavarrog@gmail.com>
047823,000010: ## Website: www.ibiblio.org/apollo/index.html
047824,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
047825,000012: ## Mod history: 2009-08-27 SN Adapted from corresponding Comanche 055 file.
047826,000013: ## 2009-09-04 JL Fixed typos. Fixed page comments.
047827,000014: ## 2009-09-06 JL Fixed typos.
047828,000015: ## 2010-02-20 RSB Un-##'d this header.
047829,000016: ## 2017-01-21 RSB Proofed comment text by diff'ing vs Comanche 55
047830,000017: ## and corrected errors found.
047831,000018: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
047832,000019: ## side-by-side diff of Luminary 69/99/116/131/210.
047833,000020:
|
|
Page 1093 |
047835,000022: # PROGRAM NAME- DOWN TELEMETRY PROGRAM
047836,000023: # MOD NO.- 0 TO COMPLETELY REWRITE THE DOWN TELEMETRY PROGRAM AND DOWNLINK ERASABLE DUMP PROGRAM FOR THE
047837,000024: # PURPOSE OF SAVING APPROXIMATELY 150 WORDS OF CORE STORAGE.
047838,000025: # THIS CHANGE REQUIRES AN ENTIRELY NEW METHOD OF SPECIFYING DOWNLINK LISTS. REFER TO DOWNLINK
047839,000026: # LISTS LOG SECTION FOR MORE DETAILS. HOWEVER THIS CHANGE WILL NOT AFFECT THE GROUND PROCESSING
047840,000027: # OF DOWN TELEMETRY DATA.
047841,000028: # MOD BY- KILROY, SMITH, DEWITT
047842,000029: # MOD BY - DENSMORE - JUNE 1969 - ELIMINATE ERASABLE DUMP COUNT
047843,000030: # DATE- 02 OCT 67
047844,000031: # AUTHORS- KILROY, SMITH, DEWITT, DEWOLF, FAGIN
047845,000032: # LOG SECTION- DOWN-TELEMETRY PROGRAM
047846,000033: # FUNCTIONAL DESCRIPTION- THIS ROUTINE IS INITIATED BY TELEMETRY END
047847,000034: # PULSE FROM THE DOWNLINK TELEMETRY CONVERTER. THIS PULSE OCCURS
047848,000035: # AT 50 TIMES PER SEC (EVERY 20 MS) THEREFORE DODOWNTM IS
047849,000036: # EXECUTED AT THESE RATES. THIS ROUTINE SELECTS THE APPROPRIATE
047850,000037: # AGC DATA TO BE TRANSMITTED DOWNLINK AND LOADS IT INTO OUTPUT
047851,000038: # CHANNELS 34 AND 35. THE INFORMATION IS THEN GATED OUT FROM THE
047852,000039: # LGC IN SERIAL FASHION.
047853,000040: # THIS PROGRAM IS CODED FOR A 2 SECOND DOWNLIST. SINCE DOWNRUPTS
047854,000041: # OCCUR EVERY 20 MS AND 2 AGC COMPUTER WORDS CAN BE PLACED IN
047855,000042: # CHANNELS 34 AND 35 DURING EACH DOWNRUPT THE PROGRAM IS CAPABLE
047856,000043: # OF SENDING 200 AGC WORDS EVERY 2 SECONDS.
047857,000044: # CALLING SEQUENCE- NONE
047858,000045: # PROGRAM IS ENTERED VIA TCF DODOWNTM WHICH IS EXECUTED AS A
047859,000046: # RESULT OF A DOWNRUPT. CONTROL IS RETURNED VIA TCF RESUME WHICH
047860,000047: # IN EFFECT IS A RESUME.
047861,000048: # SUBROUTINES CALLED- NONE
047862,000049: # NORMAL EXIT MODE- TCF RESUME
047863,000050: # ALARM OR ABORT EXIT MODE- NONE
047864,000051: # RESTART PROTECTION:
047865,000052: # ON A FRESH START AND RESTART THE 'STARTSUB' SUBROUTINE WILL INITIALIZE THE DOWNLIST POINTER (ACTUALLY
047866,000053: # DNTMGOTO) TO THE BEGINNING OF THE CURRENT DOWNLIST (I.E. CURRENT CONTENTS OF DNLSTADR). THIS HAS THE
047867,000054: # EFFECT OF IGNORING THE REMAINDER OF THE DOWNLIST WHICH THE DOWN-TELEMETRY PROGRAM WAS WORKING ON WHEN
047868,000055: # THE RESTART (OR FRESH START) OCCURRED AND RESUME DOWN TELEMETRY FROM THE BEGINNING OF THE CURRENT
047869,000056: # DOWNLIST.
047870,000057: # ALSO OF INTEREST IS THE FACT THAT ON A RESTART THE AGC WILL ZERO DOWNLINK CHANNELS 13, 34 AND 35.
047871,000058: # DOWNLINK LIST SELECTION:
047872,000059: # THE APPROPRIATE DOWNLINK LISTS ARE SELECTED BY THE FOLLOWING:
047873,000060: # 1. FRESH START
047874,000061: # 2. V37EXXE WHERE XX = THE MAJOR MODE BEING SELECTED.
047875,000062: # 3. UPDATE PROGRAM (P27)
047876,000063: # 4. NON-V37 SELECTABLE TYPE PROGRAMS (E.G. AGS INITIALIZATION (SUNDANCE, LUMINARY) AND P61-P62
047877,000064: # TRANSITION (COLOSSUS) ETC.).
047878,000065: # DOWNLINK LIST RULES AND LIMITATIONS:
047879,000066: # READ SECTION(S) WHICH FOLLOW 'DEBRIS' WRITEUP.
047880,000067: # OUTPUT- EVERY 2 SECONDS 100 DOUBLE PRECISION WORDS (I.E. 200 LGC
047881,000068: # COMPUTER WORDS) ARE TRANSMITTED VIA DOWNLINK.
047882,000069: # ERASABLE INITIALIZATION REQUIRED- NONE
047883,000070: # 'DNTMGOTO' AND 'DNLSTADR' ARE INITIALIZED BY THE FRESH START PROGRAM.
047884,000071: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)-
|
|
Page 1094 |
047886,000073: # LDATALST, DNTMBUFF TO DNTMBUFF +21D, TMINDEX, DNQ.
047887,000074:
|
|
Page 1095 |
047889,000076: # DODOWNTM IS ENTERED EVERY 20 MS BY AN INTERRUPT TRIGGERED BY THE
047890,000077: # RECEIPT OF AN ENDPULSE FROM THE SPACECRAFT TELEMETRY PROGRAMMER.
047891,000078:
047892,000079: # NOTES REGARDING DOWNLINK LISTS ASSOCIATED WITH THIS PROGRAM:
047893,000080: # 1. DOWNLISTS. - DOWNLISTS MUST BE COMPILED IN THE SAME BANK AS THE
047894,000081: # DOWN-TELEMETRY PROGRAM. THIS IS DONE FOR EASE OF CODING, FASTER
047895,000082: # EXECUTION.
047896,000083: # 2. EACH DOWNLINK LIST CONSISTS OF A CONTROL LIST AND A NUMBER OF
047897,000084: # SUBLISTS.
047898,000085: # 3. A SUBLIST REFERS TO A SNAPSHOT OR DATA COMMON TO THE SAME OR OTHER
047899,000086: # DOWNLINK LISTS. ANY SUBLIST CONTAINING COMMON DATA NEEDS TO BE
047900,000087: # CODED ONLY ONCE FOR THE APPLICABLE DOWNLINK LISTS.
047901,000088: # 4. SNAPSHOT SUBLISTS REFER SPECIFICALLY TO HOMOGENOUS DATA WHICH MUST BE
047902,000089: # SAVED IN A BUFFER DURING ONE DOWNRUPT.
047903,000090: # 5. THE 1DNADR FOR THE 1ST WORD OF SNAPSHOT DATA IS FOUND AT THE END
047904,000091: # OF EACH SNAPSHOT SUBLIST, SINCE THE PROGRAM CODING SENDS THIS DP WORD
047905,000092: # IMMEDIATELY AFTER STORING THE OTHERS IN THE SNAPSHOT BUFFER.
047906,000093: # 6. ALL LISTS ARE COMBINATIONS OF CODED ERASABLE ADDRESS CONSTANTS
047907,000094: # CREATED FOR THE DOWNLIST PROGRAM.
047908,000095: # A. 1DNADR 1-WORD DOWNLIST ADDRESS.
047909,000096: # SAME AS ECADR, BUT USED WHEN THE WORD ADDRESSED IS THE LEFT
047910,000097: # HALF OF A DOUBLE-PRECISION WORD FOR DOWN TELEMETRY.
047911,000098: # B. 2DNADR - 6DNADR N-WORD DOWNLIST ADDRESS, N = 2 - 6.
047912,000099: # SAME AS 1DNADR, BUT WITH THE 4 UNUSED BITS OF THE ECADR FORMAT
047913,000100: # FILLED IN WITH 0001-0101. USED TO POINT TO A LIST OF N DOUBLE-
047914,000101: # PRECISION WORDS, STORED CONSECUTIVELY, FOR DOWN TELEMETRY.
047915,000102: # C. DNCHAN DOWNLIST CHANNEL ADDRESS.
047916,000103: # SAME AS 1DNADR, BUT WITH PREFIX BITS 0111. USED TO POINT TO
047917,000104: # A PAIR OF CHANNELS FOR DOWN TELEMETRY.
047918,000105: # D. DNPTR DOWN TELEMETRY SUBLIST POINTER.
047919,000106: # SAME AS CAF BUT TAGGED AS A CONSTANT. USED IN CONTROL LIST TO POINT TO A SUBLIST.
047920,000107: # CAUTION--- A DNPTR CANNOT BE USED IN A SUBLIST.
047921,000108: # 7. THE WORD ORDER CODE IS SET TO ZERO AT THE BEGINNING OF EACH DOWNLIST (I.E. CONTROL LIST) AND WHEN
047922,000109: # A '1DNADR TIME2' IS DETECTED IN THE CONTROL LIST (ONLY).
047923,000110: # 8. IN THE SNAPSHOT SUBLIST ONLY, THE DNADR'S CANNOT POINT TO THE FIRST WORD OF ANY EBANK.
047924,000111:
047925,000112: # DOWNLINK LIST RESTRICTIONS:
047926,000113: # (THE FOLLOWING POINTS MAY BE LISTED ELSEWHERE BUT ARE LISTED HERE SO IT IS CLEAR THAT THESE THINGS CANNOT BE
047927,000114: # DONE)
047928,000115:
047929,000116: # 1. SNAPSHOT DOWNLIST:
047930,000117: # (A) CANNOT CONTAIN THE FOLLOWING ECADRS (I.E. 1DNADR'S): 0, 400, 1000, 1400, 2000, 2400, 3000, 3400.
047931,000118: # (B) CAN CONTAIN ONLY 1DNADR'S
047932,000119:
047933,000120: # 2. ALL DOWNLINKED DATA (EXCEPT CHANNELS) IS PICKED UP BY A <DCA<SO DOWNLINK LISTS CANNOT CONTAIN THE
047934,000121: # EQUIVALENT OF THE FOLLOWING ECADRS (I.E. IDNADRS): 377, 777, 1377, 1777, 2377, 27777, 3377, 3777.
047935,000122:
047936,000123: # (NOTE: THE TERM EQUIVALENT ' MEANT THAT THE IDNADR TO 6DNADR WILL BE PROCESSED LIKE 1 TO 6 ECADRS)
047937,000124:
047938,000125: # 3. CONTROL LISTS AND SUBLISTS CANNOT HAVE ENTRIES = OCTAL 00000 OR OCTAL 77777
|
|
Page 1096 |
047940,000127: # 4. THE '1DNADR TIME2' WHICH WILL CAUSE THE DOWNLINK PROGRAM TO SET THE WORDER CODE TO 3 MUST APPEAR IN THE
047941,000128: # CONTROL SECTION OF THE DOWNLIST.
047942,000129:
047943,000130: # 5. 'DNCHAN 0' CANNOT BE USED.
047944,000131:
047945,000132: # 6. 'DNPTR 0' CANNOT BE USED.
047946,000133:
047947,000134: # 7. DNPTR CANNOT APPEAR IN A SUBLIST.
047948,000135:
047949,000136: # EBANK SETTINGS
047950,000137: # IN THE PROCESS OF SETTING THE EBANK (WHEN PICKING UP DOWNLINK DATA) THE DOWN TELEMETRY PROGRAM PUTS
047951,000138: # 'GARBAGE' INTO BITS15-12 OF EBANK. HUGH BLAIR-SMITH WARNS US THAT BITS15-12 OF EBANK MAY BECOME
047952,000139: # SIGNIFICANT SOMEDAY IN THE FUTURE. IF/WHEN THAT HAPPENS, THE PROGRAM SHOULD INSURE (BY MASKING ETC.)
047953,000140: # THAT BITS 15-12 OF EBANK ARE ZERO.
047954,000141: # INITIALIZATION REQUIRED- TO INTERRUPT CURRENT LIST AND START A NEW ONE..
047955,000142: # 1. ADRES OF DOWNLINK LIST INTO DNLSTADR
047956,000143: # 2. NEGONE INTO SUBLIST
047957,000144: # 3. NEGONE INTO DNECADR
047958,000145:
047959,000146: 4000 SETLOC FFTAG12
047960,000147: 4000 BANK
047961,000148:
047962,000149: 4621 0337 EBANK= DNTMBUFF
047963,000150:
047964,000151: 4621 COUNT* $$/DPROG
047965,000152: 4621 54016 DODOWNTM TS BANKRUPT
047966,000153: 4622 00006 EXTEND
047967,000154: 4623 22012 QXCH QRUPT # SAVE Q
047968,000155: 4624 34762 CA BIT7 # SET WORD ORDER CODE TO 1. EXCEPTION- AT
047969,000156: 4625 00006 EXTEND
047970,000157: 4626 02013 RAND CHAN13
047971,000158: 4627 10000 CCS A
047972,000159: 4630 00334 TC DNTMGOTO
047973,000160: 4631 04542 TC C13STALL
047974,000161: 4632 34762 CA BIT7
047975,000162: 4633 00006 EXTEND # THE BEGINNING OF EACH LIST THE WORD
047976,000163: 4634 05013 WOR CHAN13 # CODE WILL BE SET BACK TO 0.
047977,000164: 4635 00334 TC DNTMGOTO # GOTO APPROPRIATE PHASE OF PROGRAM
047978,000165:
047979,000166: 05,2000 SETLOC DOWNTELM
047980,000167: 05,2000 BANK
047981,000168:
047982,000169: 05,3446 COUNT* $$/DPROG
047983,000170: 05,3446 37702 DNPHASE1 CA NEGONE # INITIALIZE ALL CONTROL WORDS
047984,000171: 05,3447 54336 TS SUBLIST # WORDS TO MINUS ONE
047985,000172: 05,3450 54335 TS DNECADR
047986,000173: 05,3451 33574 CA LDNPHAS2 # SET DNTMGOTO =O ALL SUBSEQUENT DOWNRUPTS
|
|
Page 1097 |
047988,000175: 05,3452 54334 TS DNTMGOTO # GO TO DNPHASE2
047989,000176: 05,3453 13467 TCF NEWLIST
047990,000177: 05,3454 10335 DNPHASE2 CCS DNECADR # SENDING OF DATA IN PROGRESS
047991,000178: 05,3455 03607 DODNADR TC FETCH2WD # YES - THEN FETCH THE NEXT 2 SP WORDS
047992,000179: 05,3456 77753 MINTIME2 -1DNADR TIME2 # NEGATIVE OF TIME2 1DNADR
047993,000180: 05,3457 13460 TCF +1 # (ECADR OF 3776 + 74001 = 77777)
047994,000181:
047995,000182: 05,3460 10336 CCS SUBLIST # IS THE SUBLIST IN CONTROL
047996,000183: 05,3461 13622 TCF NEXTINSL # YES
047997,000184: 05,3462 74001 DNADRDCR OCT 74001 # DNADR COUNT AND ECADR DECREMENTER
047998,000185:
047999,000186: 05,3463 30333 CHKLIST CA CTLIST
048000,000187: 05,3464 00006 EXTEND
048001,000188: 05,3465 63467 BZMF NEWLIST # IT WILL BE NEGATIVE AT END OF LIST
048002,000189: 05,3466 13474 TCF NEXTINCL
048003,000190: 05,3467 50332 NEWLIST INDEX DNLSTCOD
048004,000191: 05,3470 32362 CA DNTABLE # INITIALIZE CTLIST WITH
048005,000192: 05,3471 54333 TS CTLIST # STARTING ADDRESS OF NEW LIST
048006,000193: 05,3472 40332 CS DNLSTCOD
048007,000194: 05,3473 13711 TCF SENDID +3
048008,000195: 05,3474 50333 NEXTINCL INDEX CTLIST
048009,000196: 05,3475 30000 CA 0
048010,000197: 05,3476 10000 CCS A
048011,000198: 05,3477 24333 INCR CTLIST # SET POINTER TO PICK UP NEXT CTLIST WORD
048012,000199: 05,3500 13504 TCF +4 # ON NEXT ENTRY TO PROG. (A SHOULD NOT =0)
048013,000200: 05,3501 56333 XCH CTLIST # SET CTLIST TO NEGATIVE AND PLACE(CODING)
048014,000201: 05,3502 40000 COM # UNCOMPLEMENTED DNADR INTO A. (FOR LA)
048015,000202: 05,3503 56333 XCH CTLIST # (ST IN )
048016,000203: 05,3504 24000 +4 INCR A # (CTLIST)
048017,000204: 05,3505 54335 TS DNECADR # SAVE DNADR
048018,000205: 05,3506 63456 AD MINTIME2 # TEST FOR TIME2 (NEG. OF ECADR)
048019,000206: 05,3507 10000 CCS A
048020,000207: 05,3510 13514 TCF SETWO +1 # DON'T SET WORD ORDER CODE
048021,000208: 05,3511 47777 MINB1314 OCT 47777 # MINUS BIT 13 AND 14 (CAN'T GET HERE)
048022,000209: 05,3512 13514 TCF SETWO +1 # DON'T SET WORD ORDER CODE
048023,000210: 05,3513 03536 SETWO TC WOZERO # GO SET WORD ORDER CODE TO ZERO.
048024,000211: 05,3514 30335 +1 CA DNECADR # RELOAD A WITH THE DNADR.
048025,000212: 05,3515 63511 +2 AD MINB1314 # IS THIS A REGULAR DNADR?
048026,000213: 05,3516 00006 EXTEND
048027,000214: 05,3517 63607 BZMF FETCH2WD # YES. (A MUST NEVER BE ZERO)
048028,000215: 05,3520 67674 AD MINB12 # NO- IS IT A POINTER (DNPTR) OR A
048029,000216: 05,3521 00006 EXTEND # CHANNEL(DNCHAN)
048030,000217: 05,3522 63545 BZMF DODNPTR # IT'S A POINTER. (A MUST NEVER BE ZERO)
048031,000218:
048032,000219: 05,3523 00006 DODNCHAN TC 6 # (EXECUTED AS EXTEND) IT S A CHANNEL
048033,000220: 05,3524 50335 INDEX DNECADR
048034,000221: 05,3525 44000 INDEX 0 -4000 # (EXECUTED AS READ)
048035,000222: 05,3526 54001 TS L
048036,000223: 05,3527 00006 TC 6 # (EXECUTED AS EXTEND)
048037,000224: 05,3530 50335 INDEX DNECADR
|
|
Page 1098 |
048039,000226: 05,3531 43777 INDEX 0 -4001 # (EXECUTED AS READ)
048040,000227: 05,3532 54335 TS DNECADR # SET DNECADR
048041,000228: 05,3533 37702 CA NEGONE # TO MINUS
048042,000229: 05,3534 56335 XCH DNECADR # WHILE PRESERVING A.
048043,000230: 05,3535 13635 TCF DNTMEXIT # GO SEND CHANNELS
048044,000231:
048045,000232: 05,3536 00006 WOZERO EXTEND
048046,000233: 05,3537 22070 QXCH RUPTREG1
048047,000234: 05,3540 04542 TC C13STALL
048048,000235: 05,3541 44762 CS BIT7
048049,000236: 05,3542 00006 EXTEND
048050,000237: 05,3543 03013 WAND CHAN13 # SET WORD ORDER CODE TO ZERO
048051,000238: 05,3544 00070 TC RUPTREG1 # RETURN TO CALLER
048052,000239:
048053,000240: 05,3545 50335 DODNPTR INDEX DNECADR # DNECADR CONTAINS ADRES OF SUBLIST
048054,000241: 05,3546 00000 0 0 # CLEAR AND ADD LIST ENTRY INTO A.
048055,000242: 05,3547 10000 CCS A # IS THIS A SNAPSHOT SUBLIST
048056,000243: 05,3550 30335 CA DNECADR # NO, IT IS A REGULAR SUBLIST.
048057,000244: 05,3551 13621 TCF DOSUBLST # A MUST NOT BE ZERO.
048058,000245:
048059,000246: 05,3552 56335 XCH DNECADR # YES, IT IS A SNAPSHOT SUBLIST.
048060,000247: 05,3553 54336 TS SUBLIST # C(DNECADR) INTO SUBLIST
048061,000248: 05,3554 34772 CAF ZERO # A INTO A
048062,000249: 05,3555 56335 XCH TMINDEX # (NOTE.. TMINDEX = DNECADR)
048063,000250:
048064,000251: # THE FOLLOWING CODING (FROM SNAPLOOP TO SNAPEND) IS FOR THE PURPOSE OF TAKING A SNAPSHOT OF 12 DP REGISTERS.
048065,000252: # THIS IS DONE BY SAVING 11 DP REGISTERS IN DNTMBUFF AND SENDING THE FIRST DP WORD IMMEDIATELY.
048066,000253: # THE SNAPSHOT PROCESSING IS THE MOST TIME CONSUMING AND THEREFORE THE CODING AND LIST STRUCTURE WERE DESIGNED
048067,000254: # TO MINIMIZE TIME. THE TIME OPTIMIZATION RESULTS IN RULES UNIQUE TO THE SNAPSHOT PORTION OF THE DOWNLIST.
048068,000255: # THESE RULES ARE......
048069,000256: # 1. ONLY 1DNADR'S CAN APPEAR IN THE SNAPSHOT SUBLIST
048070,000257: # 2. THE 1DNADR'S CANNOT REFER TO THE FIRST LOCATION IN ANY BANK.
048071,000258:
048072,000259: 05,3556 54003 SNAPLOOP TS EBANK # SET EBANK
048073,000260: 05,3557 74350 MASK LOW8 # ISOLATE RELATIVE ADDRESS
048074,000261: 05,3560 00006 EXTEND
048075,000262: 05,3561 50000 INDEX A
048076,000263: 05,3562 E3,1401 EBANK= 1401
048077,000264: 05,3562 31402 DCA 1401 # PICK UP 2 SNAPSHOT WORDS.
048078,000265: 05,3563 0337 EBANK= DNTMBUFF
048079,000266: 05,3563 50335 INDEX TMINDEX
048080,000267: 05,3564 52340 DXCH DNTMBUFF # STORE 2 SNAPSHOT WORDS IN BUFFER
048081,000268: 05,3565 24335 INCR TMINDEX # SET BUFFER INDEX FOR NEXT 2 WORDS.
048082,000269: 05,3566 24335 INCR TMINDEX
048083,000270: 05,3567 24336 SNAPAGN INCR SUBLIST # SET POINTER TO NEXT 2 WORDS OF SNAPSHOT
048084,000271: 05,3570 50336 INDEX SUBLIST
048085,000272: 05,3571 00000 0 0 # = CA SSSS (SSSS = NEXT ENTRY IN SUBLIST)
048086,000273: 05,3572 10000 CCS A # TEST FOR LAST TWO WORDS OF SNAPSHOT.
|
|
Page 1099 |
048088,000275: 05,3573 13556 TCF SNAPLOOP # NOT LAST TWO.
048089,000276: 05,3574 03454 LDNPHAS2 GENADR DNPHASE2
048090,000277: 05,3575 54336 TS SUBLIST # YES, LAST. SAVE A.
048091,000278: 05,3576 37702 CA NEGONE # SET DNECADR AND
048092,000279: 05,3577 54335 TS DNECADR # SUBLIST POINTERS
048093,000280: 05,3600 56336 XCH SUBLIST # TO NEGATIVE VALUES.
048094,000281: 05,3601 54003 TS EBANK
048095,000282: 05,3602 74350 MASK LOW8
048096,000283: 05,3603 00006 EXTEND
048097,000284: 05,3604 50000 INDEX A
048098,000285: 05,3605 E3,1401 EBANK= 1401
048099,000286: 05,3605 31402 DCA 1401 # PICK UP FIRST 2 WORDS OF SNAPSHOT.
048100,000287: 05,3606 0337 EBANK= DNTMBUFF
048101,000288: 05,3606 13635 SNAPEND TCF DNTMEXIT # NOW GO SEND THEM.
048102,000289:
048103,000290: 05,3607 30335 FETCH2WD CA DNECADR
048104,000291: 05,3610 54003 TS EBANK # SET EBANK
048105,000292: 05,3611 74350 MASK LOW8 # ISOLATE RELATIVE ADDRESS
048106,000293: 05,3612 54001 TS L
048107,000294: 05,3613 33462 CA DNADRDCR # DECREMENT COUNT AND ECADR
048108,000295: 05,3614 26335 ADS DNECADR
048109,000296: 05,3615 00006 EXTEND
048110,000297: 05,3616 50001 INDEX L
048111,000298: 05,3617 E3,1400 EBANK= 1400
048112,000299: 05,3617 31401 DCA 1400 # PICK UP 2 DATA WORDS
048113,000300: 05,3620 0337 EBANK= DNTMBUFF
048114,000301: 05,3620 13635 TCF DNTMEXIT # NOW GO SEND THEM.
048115,000302:
048116,000303: 05,3621 54336 DOSUBLST TS SUBLIST # SET SUBLIST POINTER
048117,000304: 05,3622 50336 NEXTINSL INDEX SUBLIST
048118,000305: 05,3623 00000 0 0 # = CA SSSS (SSSS = NEXT ENTRY IN SUBLIST)
048119,000306: 05,3624 10000 CCS A # IS IT THE END OF THE SUBLIST
048120,000307: 05,3625 24336 INCR SUBLIST # NO-
048121,000308: 05,3626 13632 TCF +4
048122,000309: 05,3627 54336 TS SUBLIST # SAVE A.
048123,000310: 05,3630 37702 CA NEGONE # SET SUBLIST TO MINUS
048124,000311: 05,3631 56336 XCH SUBLIST # RETRIEVE A.
048125,000312: 05,3632 24000 +4 INCR A
048126,000313: 05,3633 54335 TS DNECADR # SAVE DNADR
048127,000314: 05,3634 13515 TCF SETWO +2 # GO USE COMMON CODING (PROBLEMS WOULD
048128,000315: # OCCUR IF THE PROGRAM ENCOUNTERED A
048129,000316: # DNPTR NOW)
048130,000317:
048131,000318: 05,3635 00006 DNTMEXIT EXTEND # DOWN-TELEMETRY EXIT
048132,000319: 05,3636 01034 WRITE DNTM1 # TO SEND A + L TO CHANNELS 34 + 35
048133,000320: 05,3637 30001 CA L # RESPECTIVELY
048134,000321: 05,3640 00006 TMEXITL EXTEND
048135,000322: 05,3641 01035 WRITE DNTM2
048136,000323: 05,3642 15323 TMRESUME TCF RESUME # EXIT TELEMETRY PROGRAM VIA RESUME.
|
|
Page 1100 |
048138,000325: 05,3643 7674 MINB12 EQUALS -1/8
048139,000326:
|
|
Page 1101 |
048141,000328: # SUBROUTINE NAME- DNDUMP
048142,000329: # FUNCTIONAL DESCRIPTION - TO SEND (DUMP) ALL 8 BANKS OF ERASABLE STORAGE TWICE. BANKS ARE SENT ONE AT A TIME
048143,000330: # EACH BANK IS PRECEEDED BY AN ID WORD, SYNCH BITS, ECADR AND TIME1 FOLLOWED BY THE 256D WORDS OF EACH
048144,000331: # EBANK. EBANKS ARE DUMPED IN ORDER (I.E. EBANK 0 FIRST, THEN EBANK1 ETC.)
048145,000332: # CALLING SEQUENCE- THE GROUND OR ASTRONAUT BY KEYING V74E CAN INITIALIZE THE DUMP.
048146,000333: # AFTER KEYING IN V74E THE CURRENT DOWNLIST WILL BE IMMEDIATELY TERMINATED AND THE DOWNLINK ERASABLE DUMP
048147,000334: # WILL BEGIN.
048148,000335: # ONCE INITIATED THE DOWNLINK ERASABLE DUMP CAN BE TERMINATED (AND INTERRUPTED DOWNLIST REINSTATED) ONLY
048149,000336: # BY THE FOLLOWING:
048150,000337: # 1. A FRESH START
048151,000338: # 2. COMPLETION OF BOTH COMPLETE DUMPS
048152,000339: # 3. AND INVOLUNTARILY BY A RESTART.
048153,000340: # NORMAL EXIT MODE- TCF DNPHASE1
048154,000341: # ALARM OR ABORT MODE- NONE
048155,000342: # *SUBROUTINES CALLED- NONE.
048156,000343: # ERASABLE INITIALIZATION REQUIRED-
048157,000344: # NONE
048158,000345: # DEBRIS- DUMPLOC, DUMPSW, DNTMGOTO, EBANK AND CENTRAL REGISTERS
048159,000346: # TIMING- TIME (IN SECS) = ((NO.DUMPS)*(NO.EBANKS)* (WDSPEREBANK + NO.IDWDS)) / NO.WDSPERSEC
048160,000347: # TIME (IN SECS) = ( 4 )*( 8 )* ( 256 + 4 ) / 100
048161,000348: # THUS TIME (IN SECS TO SEND DUMP OF ERASABLE 4 TIMES VIA DOWNLINK) = 83.2 SECONDS
048162,000349:
048163,000350: # STRUCTURE OF ONE EBANK AS IT IS SENT BY DOWNLINK PROGRAM-
048164,000351: # (REMINDER- THIS ONLY DESCRIBES ONE OF THE 8 EBANKS X 4 (DUMPS) = 32 EBANKS WHICH WILL BE SENT BY DNDUMP)
048165,000352: # DOWNLIST W
048166,000353: # WORD TAKEN FROM CONTENTS OF EXAMPLE O COMMENTS
048167,000354:
048168,000355: # 1 ERASID 0177X 0 DOWNLIST I.D. FOR DOWNLINK ERASABLE DUMP (X=7 CSM, 6 LM)
048169,000356: # 2 LOWIDCOD 77340 1 DOWNLINK SYNCH BITS. (SAME ONE USED IN ALL OTHER DOWNLISTS)
048170,000357: # 3 DUMPLOC 13400 1 (SEE NOTES ON DUMPLOC) 1 = 3RD ERAS DUMP, 3400=ECADR OF 5TH WD
048171,000358: # 4 TIME1 14120 1 TIME IN CENTISECONDS
048172,000359: # 5 FIRST WORD OF EBANK X 03400 1 IN THIS EXAMPLE THIS WORD = CONTENTS OF E7,1400 (ECADR 3400)
048173,000360: # 6 2ND WORD OF EBANK X 00142 1 IN THIS EXAMPLE THIS WORD = CONTENTS OF E7,1401 (ECADR 3401)
048174,000361: # 7 3RD WORD OF EBANK X 00142 1 IN THIS EXAMPLE THIS WORD = CONTENTS OF E7,1402 (ECADR 3402)
048175,000362: # . 1
048176,000363: # . 1
048177,000364: # . 1
048178,000365: # 260D 256TH WORD OF EBANK X 03777 1 IN THIS EXAMPLE THIS WORD = CONTENTS OF E7,1777 (ECADR 3777)
048179,000366:
048180,000367: # NOTE- DUMPLOC CONTAINS THE COUNTER AND ECADR FOR EACH WORD BEING SENT.
048181,000368: # THE BIT STRUCTURE OF DUMPLOC IS FOLLOWS---
048182,000369: # X = NOT USED
048183,000370: # X ABC EEE RRRRRRRR ABC = ERASABLE DUMP COUNTER (I.E. ABC = 0,1,2 OR 3 WHICH MEANS THAT
048184,000371: # COMPLETE ERASABLE DUMP NUMBER 1,2,3 OR 4 RESPECTIVELY IS IN PROGRESS)
048185,000372: # EEE = EBANK BITS
048186,000373: # RRRRRRRR = RELATIVE ADDRESS WITHIN AN EBANK.
048187,000374:
048188,000375: 05,3643 34772 DNDUMPI CA ZERO # INITIALIZE DOWNLINK
048189,000376: 05,3644 54335 TS DUMPLOC # ERASABLE DUMP
048190,000377: 05,3645 03706 +2 TC SENDID # GO SEND ID AND SYNCH BITS
|
|
Page 1102 |
048192,000379: 05,3646 33655 CA LDNDUMP1 # SET DNTMGOTO
048193,000380: 05,3647 54334 TS DNTMGOTO # TO LOCATION FOR NEXT PASS
048194,000381: 05,3650 30025 CA TIME1 # PLACE TIME1
048195,000382: 05,3651 56001 XCH L # INTO L
048196,000383: 05,3652 30335 CA DUMPLOC # AND ECADR OF THIS EBANK INTO A
048197,000384: 05,3653 13635 TCF DNTMEXIT # SEND DUMPLOC AND TIME1
048198,000385:
048199,000386: 05,3654 03656 LDNDUMP ADRES DNDUMP
048200,000387: 05,3655 03670 LDNDUMP1 ADRES DNDUMP1
048201,000388:
048202,000389: 05,3656 34767 DNDUMP CA TWO # INCREMENT ECADR IN DUMPLOC
048203,000390: 05,3657 26335 ADS DUMPLOC # TO NEXT DP WORD TO BE
048204,000391: 05,3660 74350 MASK LOW8 # DUMPED AND SAVE IT.
048205,000392: 05,3661 10000 CCS A # IS THIS THE BEGINNING OF A NEW EBANK
048206,000393: 05,3662 13672 TCF DNDUMP2 # NO- THEN CONTINUE DUMPING
048207,000394: 05,3663 30335 CA DUMPLOC # YES- IS THIS THE END OF THE
048208,000395: 05,3664 74754 MASK BIT13 # SECOND COMPLETE ERASABLE DUMP?
048209,000396: 05,3665 00006 EXTEND
048210,000397: 05,3666 13645 BZF DNDUMPI +2 # NO - GO BACK AND INITIALIZE NEXT BANK
048211,000398: 05,3667 13446 TCF DNPHASE1 # YES - SEND DOWNLIST AGAIN
048212,000399: 05,3670 33654 DNDUMP1 CA LDNDUMP # SET DNTMGOTO
048213,000400: 05,3671 54334 TS DNTMGOTO # FOR WORDS 3 TO 256D OF CURRENT EBANK
048214,000401:
048215,000402: 05,3672 30335 DNDUMP2 CA DUMPLOC
048216,000403: 05,3673 54003 TS EBANK # SET EBANK
048217,000404: 05,3674 74350 MASK LOW8 # ISOLATE RELATIVE ADDRESS.
048218,000405: 05,3675 54002 TS Q # (NOTE: MASK INSTRUCTION IS USED TO PICK
048219,000406: 05,3676 34771 CA NEG0 # UP ERASABLE REGISTERS SO THAT EDITING
048220,000407: 05,3677 54001 TS L # REGISTERS 20-23 WILL NOT BE ALTERED.)
048221,000408: 05,3700 50002 INDEX Q
048222,000409: 05,3701 E3,1400 EBANK= 1400 # PICK UP LOW ORDER REGISTER OF PAIR
048223,000410: 05,3701 71401 MASK 1401 # OF ERASABLE REGISTERS.
048224,000411: 05,3702 56001 XCH L
048225,000412: 05,3703 50002 INDEX Q # PICK UP HIGH ORDER REGISTER OF PAIR
048226,000413: 05,3704 71400 MASK 1400 # OF ERASABLE REGISTERS.
048227,000414: 05,3705 0337 EBANK= DNTMBUFF
048228,000415: 05,3705 13635 TCF DNTMEXIT # GO SEND THEM
048229,000416:
048230,000417: 05,3706 00006 SENDID EXTEND # **ENTRANCE USED BY ERASABLE DUMP PROG.**
048231,000418: 05,3707 22334 QXCH DNTMGOTO # SET DNTMGOTO SO NEXT TIME PROG WILL GO
048232,000419: 05,3710 35041 CAF ERASID # TO LOCATION FOLLOWING :TC SENDID:
048233,000420:
048234,000421: 05,3711 54061 +3 TS ITEMP1 # ** ENTRANCE USED BY REGULAR DOWNLINK
048235,000422: # PROGRAM **
048236,000423: 05,3712 03536 TC WOZERO # GO SET WORD ORDER CODE TO ZERO
048237,000424: 05,3713 32000 CAF LOWIDCOD # PLACE SPECIAL ID CODE INTO L
048238,000425: 05,3714 56001 XCH L # AND ID BACK INTO A
048239,000426: 05,3715 30061 CA ITEMP1
048240,000427: 05,3716 13635 TCF DNTMEXIT # SEND DOWNLIST ID CODE(S).
048241,000428:
|
|
Page 1103 (empty page) |
048243,000430:
End of include-file DOWN-TELEMETRY_PROGRAM.agc. Parent file is MAIN.agc