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 Peter McDermott.
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:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
035110,000002: ## Copyright: Public domain.
035111,000003: ## Filename: PIPA_READER.agc
035112,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
035113,000005: ## It is part of an early development version of the software
035114,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
035115,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
035116,000008: ## upon which Don Eyles's offline development program Shepatin
035117,000009: ## was based; the listing herein transcribed was actually for
035118,000010: ## the equivalent revision 0 of Shepatin.
035119,000011: ## This file is intended to be a faithful transcription, except
035120,000012: ## that the code format has been changed to conform to the
035121,000013: ## requirements of the yaYUL assembler rather than the
035122,000014: ## original YUL assembler.
035123,000015: ## Reference: pp. 780-783
035124,000016: ## Assembler: yaYUL
035125,000017: ## Contact: Ron Burkey <info@sandroid.org>.
035126,000018: ## Website: www.ibiblio.org/apollo/index.html
035127,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
035128,000020: ## 2017-06-14 HG Transcribed
035129,000021: ## 2017-06-23 RSB Proofed comment text with
035130,000022: ## octopus/ProoferComments.
035131,000023:
|
|
Page 780 |
035133,000025:
035134,000026: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
035135,000027: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
035136,000028:
035137,000029: # AND THE LOW ORDER PART HAS -0 AFTER THE PIPAS HAVE BEEN READ. RESTARTS BEGIN AT REPIPASR.
035138,000030:
035139,000031:
035140,000032: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
035141,000033: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
035142,000034: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
035143,000035: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
035144,000036:
035145,000037: # CALLING SEQUENCE AND EXIT
035146,000038:
035147,000039: # THE CALLING SEQUENCE TO PIPASR IS
035148,000040:
035149,000041: # EXTEND
035150,000042: # DCA PIP2CADR
035151,000043: # DXCH Z
035152,000044:
035153,000045: # THE RETURN ADDRESS,WHICH IS STORED IN (A,L),IS SAVED IN PIPRETRN. THE RETURN FROM PIPASR IS
035154,000046:
035155,000047: # EXTEND
035156,000048: # DCA PIPRETRN
035157,000049: # DXCH Z
035158,000050:
035159,000051: # WHICH RETURNS TO THE LOCATION AFTER THE CALL. ON A RESTART,PIPASR IS CALLED BY REPIPASR.
035160,000052:
035161,000053:
035162,000054:
035163,000055: # INPUT
035164,000056:
035165,000057: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
035166,000058:
035167,000059:
035168,000060: # OUTPUT
035169,000061:
035170,000062: # THE PIPA READINGS ARE OUTPUT THROUGH THE VECTOR DELV. DELTAT, SCALED AT 2(+28)CS, IS COMPUTED FOR AVERAGEG.
035171,000063:
035172,000064: # PIPTIME CONTAINS THE NEGATIVE OF THE CURRENT TIME.
035173,000065:
035174,000066:
035175,000067: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
035176,000068:
035177,000069: # TEMX TEMY TEMZ TEMXY PIPAGE PIPTIME PIPAX PIPAY PIPAZ
035178,000070:
035179,000071: # (ARRIVE IN INTERRUPTED STATE OR INHIBITED AFTER RESTART. EXIT
035180,000072: # THRU ISWRETURN)
035181,000073:
035182,000074: 30,2506 BANK 30
035183,000075:
035184,000076: 30,2506 53317 PIPASR DXCH PIPRETRN
035185,000077: 30,2507 47761 CS ZERO # PUT THESE INTO THE IMPOSSIBLE STATE
035186,000078: 30,2510 55154 TS TEMX # FOR THEIR INITIAL VALUES.
035187,000079:
|
|
Page 781 |
035189,000081: 30,2511 55155 TS TEMY
035190,000082: 30,2512 55156 TS TEMZ
035191,000083: 30,2513 37761 CA ZERO
035192,000084: 30,2514 54404 TS DELVX +1
035193,000085: 30,2515 54406 TS DELVY +1 # PIP COUNTERS MAY NOT HAVE POS ZERO IN
035194,000086: 30,2516 54410 TS DELVZ +1
035195,000087: 30,2517 55160 TS PIPAGE # ZERO THIS TO INDICATE IN PIPA READING.
035196,000088:
035197,000089:
035198,000090: # COMPUTE DELTAT FOR AVERAGEG, SAVING -(CURRENT TIME) IN PIPTIME.
035199,000091:
035200,000092: 30,2520 00006 REPIP1 EXTEND
035201,000093: 30,2521 30025 DCA TIME2 # CURRENT TIME
035202,000094: 30,2522 53321 DXCH PIPTIME
035203,000095:
035204,000096: 30,2523 40037 CS PIPAX
035205,000097: 30,2524 55157 TS TEMXY
035206,000098: 30,2525 57154 XCH TEMX # PUT NEGZERO INTO PIPACTRS AS READ
035207,000099: 30,2526 56037 XCH PIPAX
035208,000100:
035209,000101: 30,2527 54403 REPIP1B TS DELVX
035210,000102: 30,2530 54404 TS DELVX +1 # DOUBLE SAVE
035211,000103:
035212,000104: 30,2531 40040 REPIP2 CS PIPAY
035213,000105: 30,2532 55157 TS TEMXY
035214,000106: 30,2533 57155 XCH TEMY
035215,000107: 30,2534 56040 XCH PIPAY
035216,000108: 30,2535 54405 REPIP2B TS DELVY
035217,000109: 30,2536 54406 TS DELVY +1
035218,000110:
035219,000111: 30,2537 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIPA.
035220,000112: 30,2540 55157 TS TEMXY # SAVE NEG OF PIPA READ
035221,000113:
035222,000114: 30,2541 57156 XCH TEMZ # SAVE HERE AS PICK UP NEGZERO
035223,000115: 30,2542 56041 XCH PIPAZ # RESETTING PIPA AS READ OUT
035224,000116: 30,2543 54407 REPIP3B TS DELVZ # AND STORE IN Z.
035225,000117: 30,2544 54410 TS DELVZ +1 # SHOWS THAT IT REALLY MADE IT.
035226,000118:
035227,000119: 30,2545 47761 REPIP4 CS ZERO
035228,000120: 30,2546 54404 TS DELVX +1 # LEAVE THESE AT NEGZERO
035229,000121: 30,2547 54406 TS DELVY +1
035230,000122: 30,2550 54410 TS DELVZ +1
035231,000123: 30,2551 30032 CA CDUX # READ CDUS INTO CDUTEMP AS A VECTOR
035232,000124:
035233,000125: 30,2552 55342 TS CDUTEMP
035234,000126: 30,2553 30033 CA CDUY # THE THRUST ESTIMATION FILTER IN FINDCDUD
035235,000127: 30,2554 55344 TS CDUTEMP +2 # REQUIRES THAT THE CDUS BE READ AT THE
035236,000128: 30,2555 30034 CA CDUZ # TIME THE PIPAS ARE READ
035237,000129: 30,2556 55346 TS CDUTEMP +4
035238,000130: 30,2557 37761 CAF ZERO
035239,000131: 30,2560 55343 TS CDUTEMP +1
035240,000132: 30,2561 55345 TS CDUTEMP +3
035241,000133: 30,2562 55347 TS CDUTEMP +5
035242,000134:
|
|
Page 782 |
035244,000136: 30,2563 00006 EXTEND
035245,000137:
035246,000138: 30,2564 31317 DCA PIPRETRN # RETURN TO LOCATION AFTER CALL
035247,000139: 30,2565 52006 DXCH Z
035248,000140:
|
|
Page 783 |
035250,000142:
035251,000143: 30,2566 00006 REREADAC EXTEND
035252,000144: 30,2567 32636 DCA DONECAD
035253,000145: 30,2570 53317 DXCH PIPRETRN
035254,000146:
035255,000147: 30,2571 11160 REPIPASR CCS PIPAGE # WAS I READING PIPS.
035256,000148:
035257,000149: 30,2572 12507 TCF PIPASR +1
035258,000150: 30,2573 10410 CCS DELVZ +1 # PIPAGE = 0 (I WAS READING PIPS.)
035259,000151: 30,2574 12545 TCF REPIP4 # Z WAS READ OK
035260,000152: 30,2575 12600 TCF +3 # Z NOT DONE, CHECK Y.
035261,000153: 30,2576 12545 TCF REPIP4
035262,000154: 30,2577 12545 TCF REPIP4
035263,000155:
035264,000156: 30,2600 10406 CCS DELVY +1 # HAS IT CHANGED FROM ITS +ZERO INIT VALU
035265,000157: 30,2601 12604 TCF +3 # YES, Y DONE. TRY TO REDO Z.
035266,000158: 30,2602 12613 TCF CHKDELVX # NO, GO LOOK AT X.
035267,000159: 30,2603 12604 TCF +1 # YES
035268,000160:
035269,000161: 30,2604 11156 CCS TEMZ # DOES TEMZ STILL = -0.
035270,000162: 30,2605 12611 TCF +4 # NO-TRY TO RESTORE
035271,000163: 30,2606 12611 TCF +3
035272,000164: 30,2607 12611 TCF +2
035273,000165: 30,2610 12537 TCF REPIP3 # YES, GO BACK AND READ Z AGAIN.
035274,000166:
035275,000167: 30,2611 41157 CS TEMXY # MUCH MORE LOGIC COULD BE INCORPORATED
035276,000168: 30,2612 12543 TCF REPIP3B # TO CHECK PIPA CTR FOR SIZE
035277,000169:
035278,000170: 30,2613 10404 CHKDELVX CCS DELVX +1 # HAS THIS CHANGED.
035279,000171:
035280,000172: 30,2614 12617 TCF +3 # YES
035281,000173: 30,2615 12626 TCF CHKTEMX # NO
035282,000174: 30,2616 12617 TCF +1 # YES
035283,000175: 30,2617 11155 CCS TEMY
035284,000176: 30,2620 12624 TCF +4
035285,000177: 30,2621 12624 TCF +3
035286,000178: 30,2622 12624 TCF +2
035287,000179: 30,2623 12531 TCF REPIP2
035288,000180: 30,2624 41157 CS TEMXY
035289,000181: 30,2625 12535 TCF REPIP2B
035290,000182:
035291,000183: 30,2626 11154 CHKTEMX CCS TEMX # HAS THIS CHANGED.
035292,000184:
035293,000185: 30,2627 12633 TCF +4 # YES
035294,000186: 30,2630 12633 TCF +3 # YES
035295,000187: 30,2631 12633 TCF +2 # YES
035296,000188: 30,2632 12520 TCF REPIP1 # NO
035297,000189: 30,2633 41157 CS TEMXY
035298,000190: 30,2634 12527 TCF REPIP1B
035299,000191:
035300,000192: 30,2635 E5,1511 EBANK= DVCNTR
035301,000193: 30,2635 02061 60065 DONECAD 2CADR PIPSDONE
End of include-file PIPA_READER.agc. Parent file is MAIN.agc