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. |
027168,000002: ## Copyright: Public domain.
027169,000003: ## Filename: P30,P37.agc
027170,000004: ## Purpose: A log section of Zerlina 56, the final revision of
027171,000005: ## Don Eyles's offline development program for the variable
027172,000006: ## guidance period servicer. It also includes a new P66 with LPD
027173,000007: ## (Landing Point Designator) capability, based on an idea of John
027174,000008: ## Young's. Neither of these advanced features were actually flown,
027175,000009: ## but Zerlina was also the birthplace of other big improvements to
027176,000010: ## Luminary including the terrain model and new (Luminary 1E)
027177,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
027178,000012: ## and revision 56 includes all changes up to and including Luminary
027179,000013: ## 183. It is therefore quite close to the Apollo 14 program,
027180,000014: ## Luminary 178, where not modified with new features.
027181,000015: ## Reference: pp. 612-615
027182,000016: ## Assembler: yaYUL
027183,000017: ## Contact: Ron Burkey <info@sandroid.org>.
027184,000018: ## Website: www.ibiblio.org/apollo/index.html
027185,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
027186,000020: ## 2017-08-23 RSB Transcribed.
027187,000021:
|
|
Page 612 |
027189,000023: # PROGRAM DESCRIPTION P30 DATE 3-6-67
027190,000024:
027191,000025: # MOD.1 BY RAMA AIYAWAR
027192,000026: # FUNCTIONAL DESCRIPTION
027193,000027: # ACCEPT ASTRONAUT INPUTS OF TIG,DELV(LV)
027194,000028: # CALL IMU STATUS CHECK ROUTINE (R02)
027195,000029: # DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN
027196,000030: # REQUEST BURN PROGRAM
027197,000031:
027198,000032: # CALLING SEQUENCE VIA JOB FROM V37
027199,000033:
027200,000034: # EXIT VIA V37 CALL OR TO GOTOPOOH (V34E)
027201,000035:
027202,000036: # SUBROUTINE CALLS-FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR
027203,000037: # GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1,
027204,000038: # TTG/N35, MIDGIM, DISPMGA
027205,000039:
027206,000040: # ERASABLE INITIALIZATION- STATE VECTOR
027207,000041:
027208,000042: # OUTPUT-RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO,
027209,000043: # HPER, TTOGO
027210,000044:
027211,000045: # DEBRIS- A, L, MPAC, PUSHLIST
027212,000046:
027213,000047: 32,2407 BANK 32
027214,000048: 35,2000 SETLOC P30S
027215,000049: 35,2000 BANK
027216,000050: 35,2000 E4,1643 EBANK= +MGA
027217,000051: 35,2000 COUNT* $$/P30
027218,000052: 35,2000 05515 P30 TC UPFLAG # SET UPDATE FLAG
027219,000053: 35,2001 00027 ADRES UPDATFLG
027220,000054: 35,2002 05515 TC UPFLAG # SET TRACK FLAG
027221,000055: 35,2003 00031 ADRES TRACKFLG
027222,000056:
027223,000057: 35,2004 32032 P30N33 CAF V06N33 # T OF IGN
027224,000058: 35,2005 03627 TC VNPOOH # RETURNS ON PROCEED, POOH ON TERMINATE
027225,000059:
027226,000060: 35,2006 33644 CAF V06N81 # DISPLAY DELTA V (LV)
027227,000061: 35,2007 03627 TC VNPOOH # REDISPLAY ON RECYCLE
027228,000062:
027229,000063: 35,2010 05527 TC DOWNFLAG # RESET UPDATE FLAG
027230,000064: 35,2011 00027 ADRES UPDATFLG
027231,000065: 35,2012 06051 TC INTPRET
027232,000066: 35,2013 77624 CALL
027233,000067: 35,2014 70060 S30.1
027234,000068: 35,2015 43014 SET SET
027235,000069: 35,2016 00470 UPDATFLG
027236,000070: 35,2017 01067 XDELVFLG
027237,000071: 35,2020 77776 EXIT
027238,000072: 35,2021 32033 PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE ,DELTA V
027239,000073:
|
|
Page 613 |
027241,000075: 35,2022 03627 TC VNPOOH
027242,000076:
027243,000077: 35,2023 06051 TC INTPRET
027244,000078: 35,2024 77614 SET
027245,000079: 35,2025 01071 FINALFLG
027246,000080: 35,2026 77624 REVN1645 CALL
027247,000081: 35,2027 73523 VN1645
027248,000082: 35,2030 77650 GOTO # COMES HERE ON RECYCLE RESPONSE
027249,000083: 35,2031 72026 REVN1645
027250,000084:
027251,000085: 35,2032 01441 V06N33 VN 0633
027252,000086: 35,2033 01452 V06N42 VN 0642
027253,000087:
|
|
Page 614 |
027255,000089: # PROGRAM DESCRIPTION S30.1 DATE 9NOV66
027256,000090:
027257,000091: # MOD NO 1 LOG SECTION P30,P37
027258,000092: # MOD BY RAMA AIYAWAR **
027259,000093: # FUNCTIONAL DESCRIPTION
027260,000094: # BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
027261,000095: # IGNITION(VTIG),TIME OF IGNITION (TIG)),COMPUTE PERIGEE ALTITUDE
027262,000096: # APOGEE ALTITUDE AND DELTAV REQUIRED(DELVSIN).
027263,000097: # CALLING SEQUENCE
027264,000098: # L CALL
027265,000099: # L+1 S30.1
027266,000100: # NORMAL EXIT MODE
027267,000101: # AT L+2 OR CALLING SEQUENCE (GOTO L+2)
027268,000102: # SUBROUTINES CALLED
027269,000103: # LEMPREC
027270,000104: # PERIAPO
027271,000105: # ALARM OR ABORT EXIT MODES
027272,000106: # NONE
027273,000107: # ERASABLE INITIALIZATION REQUIRED
027274,000108: # TIG TIME OF IGNITION DP B28CS
027275,000109: # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
027276,000110: # COORDS. OF ACTIVE VEHICLE AT
027277,000111: # TIME OF IGNITION VECTOR B+7 METERS/CS
027278,000112: # OUTPUT
027279,000113: # RTIG POSITION AT TIG VECTOR B+29 METERS
027280,000114: # VTIG VELOCITY AT TIG VECTOR B+29 METERS/CS
027281,000115: # PDL 4D APOGEE ALTITUDE DP B+29 M , B+27 METERS.
027282,000116: # HAPO APOGEE ALTITUDE DP B+29 METERS
027283,000117: # PDL 8D PERIGEE ALTITUDE DP B+29 M , B+27 METERS.
027284,000118: # HPER PERIGEE ALTITUDE DP B+29 METERS
027285,000119: # DELVSIN SPECIFIED DELTA-V IN INERTIAL
027286,000120: # COORD. OF ACTIVE VEHICLE AT
027287,000121: # TIME OF IGNITION VECTOR B+7 METERS/CS
027288,000122: # DELVSAB MAG. OF DELVSIN VECTOR B+7 METERS/CS
027289,000123: # DEBRIS QTEMP TEMP. ERASABLE
027290,000124: # QPRET,MPAC
027291,000125: # PUSHLIST
027292,000126:
027293,000127: 34,2000 SETLOC P30S1
027294,000128: 34,2000 BANK
027295,000129:
027296,000130: 34,2060 COUNT* $$/S30S
027297,000131:
027298,000132: 34,2060 71220 S30.1 STQ DLOAD
027299,000133: 34,2061 03632 QTEMP
027300,000134: 34,2062 03442 TIG # TIME IGNITION SCALED AT 2(+28)CS
027301,000135: 34,2063 34041 STCALL TDEC1
027302,000136: 34,2064 27056 LEMPREC # ENCKE ROUTINE FOR LEM
027303,000137:
027304,000138: 34,2065 67175 VLOAD SXA,2
027305,000139:
|
|
Page 615 |
027307,000141: 34,2066 00001 RATT
027308,000142: 34,2067 02777 RTX2
027309,000143: 34,2070 03642 STORE RTIG # RADIUS VECTOR AT IGNITION TIME
027310,000144: 34,2071 57456 UNIT VCOMP
027311,000145: 34,2072 27656 STOVL DELVSIN # ZRF/LV IN DELVSIN SCALED AT 2
027312,000146: 34,2073 00007 VATT # VELOCITY VECTOR AT TIG, SCALED 2(7) M/CS
027313,000147: 34,2074 03650 STORE VTIG
027314,000148: 34,2075 53435 VXV UNIT
027315,000149: 34,2076 03642 RTIG
027316,000150: 34,2077 66001 SETPD SXA,1
027317,000151: 34,2100 00001 0
027318,000152: 34,2101 02776 RTX1
027319,000153: 34,2102 47206 PUSH VXV # YRF/LV PDL 0 SCALED AT 2
027320,000154: 34,2103 03656 DELVSIN
027321,000155: 34,2104 63372 VSL1 PDVL
027322,000156: 34,2105 63315 PDVL PDVL # YRF/LV PDL 6 SCALED AT 2
027323,000157: 34,2106 03656 DELVSIN # ZRF/LV PDL 12D SCALED AT 2
027324,000158: 34,2107 03434 DELVSLV
027325,000159: 34,2110 76505 VXM VSL1
027326,000160: 34,2111 00001 0
027327,000161: 34,2112 03656 STORE DELVSIN # DELTAV IN INERT. COOR. SCALED TO B+7M/CS
027328,000162: 34,2113 77646 ABVAL
027329,000163: 34,2114 27664 STOVL DELVSAB # DELTA V MAG.
027330,000164: 34,2115 03642 RTIG # (FOR PERIAPO)
027331,000165: 34,2116 53315 PDVL VAD # VREQUIRED = VTIG + DELVSIN (FOR PERIAPO)
027332,000166: 34,2117 03650 VTIG
027333,000167: 34,2120 03656 DELVSIN
027334,000168: 34,2121 77624 CALL
027335,000169: 34,2122 46337 PERIAPO1
027336,000170: 34,2123 77624 CALL
027337,000171: 34,2124 46447 SHIFTR1 # RESCALE IF NEEDED
027338,000172: 34,2125 77624 CALL # LIMIT DISPLAY TO 9999.9 N. MI.
027339,000173: 34,2126 45636 MAXCHK
027340,000174: 34,2127 16312 STODL HPER # PERIGEE ALT 2(29) METERS, FOR DISPLAY
027341,000175: 34,2130 00005 4D
027342,000176: 34,2131 77624 CALL
027343,000177: 34,2132 46447 SHIFTR1 # RESCALE IF NEEDED
027344,000178: 34,2133 77624 CALL # LIMIT DISPLAY TO 9999.9 N. MI.
027345,000179: 34,2134 45636 MAXCHK
027346,000180: 34,2135 36310 STCALL HAPO # APOGEE ALT 2(29) METERS, FOR DISPLAY
027347,000181: 34,2136 03632 QTEMP
End of include-file P30,P37.agc. Parent file is MAIN.agc