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. |
031111,000002: ## Copyright: Public domain.
031112,000003: ## Filename: R30.agc
031113,000004: ## Purpose: A log section of Zerlina 56, the final revision of
031114,000005: ## Don Eyles's offline development program for the variable
031115,000006: ## guidance period servicer. It also includes a new P66 with LPD
031116,000007: ## (Landing Point Designator) capability, based on an idea of John
031117,000008: ## Young's. Neither of these advanced features were actually flown,
031118,000009: ## but Zerlina was also the birthplace of other big improvements to
031119,000010: ## Luminary including the terrain model and new (Luminary 1E)
031120,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
031121,000012: ## and revision 56 includes all changes up to and including Luminary
031122,000013: ## 183. It is therefore quite close to the Apollo 14 program,
031123,000014: ## Luminary 178, where not modified with new features.
031124,000015: ## Reference: pp. 706-716
031125,000016: ## Assembler: yaYUL
031126,000017: ## Contact: Ron Burkey <info@sandroid.org>.
031127,000018: ## Website: www.ibiblio.org/apollo/index.html
031128,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
031129,000020: ## 2017-08-27 MAS Updated for Zerlina 56.
031130,000021: ## 2021-05-30 ABS TICKTIFF -> TICKTFF
031131,000022:
|
|
Page 706 |
031133,000024: # SUBROUTINE NAME: V82CALL
031134,000025: # MOD NO: 0 DATE: 16 FEB 67
031135,000026: # MOD BY: RR BAIRNSFATHER LOG SECTION: R30
031136,000027: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
031137,000028: # MOD NO: 2 MOD BY ALONSO DATE : 11 DEC 67 VB82 PROGRAM REWRITTEN
031138,000029: # MOD NO: 3 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
031139,000030: # NEW FUNCTIONAL DESCRIPTION: CALLED BY VERB 82 ENTER. PRIORITY 10
031140,000031: # USED THROUGHOUT. CALCULATE AND DISPLAY ORBITAL PARAMETERS
031141,000032:
031142,000033: # 1. IF AVERAGE G IS OFF:
031143,000034: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
031144,000035: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
031145,000036: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
031146,000037: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
031147,000038: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
031148,000039: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
031149,000040: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
031150,000041: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
031151,000042: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
031152,000043: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
031153,000044: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
031154,000045: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
031155,000046: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
031156,000047: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
031157,000048:
031158,000049: # 2. IF AVERAGE G IS ON:
031159,000050: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
031160,000051: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
031161,000052: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
031162,000053: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
031163,000054: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
031164,000055: # ABOVE REMARKS.
031165,000056:
031166,000057: # CALLING SEQUENCE: VERB 82 ENTER.
031167,000058:
031168,000059:
031169,000060: # SUBROUTINES CALLED: SR30.1, GOXDSPF
031170,000061: # MAYBE - THISPREC , OTHPREC, LOADTIME, DELRSPL
031171,000062: # NORMAL EXIT MODES: TC ENDEXT
031172,000063:
031173,000064: # ALARMS: NONE
031174,000065:
031175,000066: # OUTPUT: HAPOX (-29) M
031176,000067: # HPERX (-29) M
031177,000068: # RAPO (-29) M EARTH
031178,000069: # (-27) M MOON
031179,000070: # RPER (-29) M EARTH
031180,000071: # (-27) M MOON
031181,000072: # TFF (-28) CS CONTAINS NEGATIVE QUANTITY
031182,000073: # -TPER (-28) CS CONTAINS NEGATIVE QUANTITY
031183,000074:
|
|
Page 707 |
031185,000076:
031186,000077: # ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
031187,000078:
031188,000079: # DEBRIS: QPRET, RONE, VONE,TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
031189,000080: # MAYBE: TSTART82, V82FLAGS, TDEC1.
031190,000081:
031191,000082:
031192,000083: 13,2347 E4,1512 EBANK= HAPOX
031193,000084: 31,2144 BANK 31
031194,000085: 22,2000 SETLOC R30LOC
031195,000086: 22,2000 BANK
031196,000087: 22,3242 COUNT* $$/R30
031197,000088:
031198,000089: 22,3242 06051 V82CALL TC INTPRET
031199,000090: 22,3243 52014 BON GOTO
031200,000091: 22,3244 03712 AVEGFLAG
031201,000092: 22,3245 45465 V82GON # IF AVERAGE G ON
031202,000093: 22,3246 45247 V82GOFF # IF AVERAGE G OFF
031203,000094:
031204,000095:
031205,000096: 22,3247 77776 V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE
031206,000097: 22,3250 34752 CAF TWO # DESIRED FOR ORBITAL PARAMETERS
031207,000098: 22,3251 55050 TS OPTIONX # CALCULATION AND DISPLAY.
031208,000099: 22,3252 34753 CAF ONE
031209,000100: 22,3253 55051 TS OPTIONX +1
031210,000101: 22,3254 33316 CAF OPTIONVN # V 04 N 06
031211,000102: 22,3255 04616 TC BANKCALL
031212,000103: 22,3256 20334 CADR GOXDSPF
031213,000104: 22,3257 05503 TC ENDEXT # TERMINATE
031214,000105: 22,3260 03262 TC +2 # PROCEED
031215,000106: 22,3261 03254 TC -5 # DATA IN. OPTION1+1 = 1 FOR THIS VEHICLE.
031216,000107: # UNEQ 1 FOR OTHER VEHICLE.
031217,000108: 22,3262 34750 CAF BIT4 # 80 MS
031218,000109: 22,3263 05214 TC WAITLIST
031219,000110: 22,3264 E4,1531 EBANK= TFF
031220,000111: 22,3264 03430 44064 2CADR TICKTEST
031221,000112:
031222,000113: 22,3266 00003 RELINT
031223,000114: 22,3267 33320 V82GOFLP CAF TFFBANK # MAJOR RECYCLE LOOP ENTRY
031224,000115: 22,3270 54003 TS EBANK
031225,000116: 22,3271 34755 CAF ZERO
031226,000117: 22,3272 55530 TS V82FLAGS # ZERO FLAGS FOR TICKTEST. INHIBITS
031227,000118: # DECREMENTING OF TFF AND -TPER.
031228,000119: 22,3273 35021 CAF PRIO7
031229,000120: 22,3274 05105 TC FINDVAC # V82GOFF1 WILL EXECUTE STATE VECTOR
031230,000121: 22,3275 E4,1531 EBANK= TFF # UPDATE AND ORBIT CALCULATIONS FOR
031231,000122: 22,3275 03321 44064 2CADR V82GOFF1 # SELECTED VEHICLE ABOUT PROPER BODY.
031232,000123:
031233,000124: 22,3277 00003 RELINT
031234,000125: 22,3300 36257 V82STALL CAF THREE # STALL IN THIS LOOP AND WITHOLD V 16 N 44
|
|
Page 708 |
031236,000127: 22,3301 71530 MASK V82FLAGS # UNTIL STATE VECTOR UPDATE SETS ONE OF
031237,000128: 22,3302 10000 CCS A # OUR FLAG BITS.
031238,000129: 22,3303 03310 TC FLAGGON # EXIT FROM STALL LOOP.
031239,000130: 22,3304 34777 CAF 1SEC
031240,000131: 22,3305 04616 TC BANKCALL
031241,000132: 22,3306 01736 CADR DELAYJOB
031242,000133: 22,3307 03300 TC V82STALL
031243,000134:
031244,000135: 22,3310 33317 FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF.
031245,000136: 22,3311 04616 TC BANKCALL
031246,000137: 22,3312 20334 CADR GOXDSPF
031247,000138: 22,3313 05574 TC B5OFF # TERM THIS TELLS TICKTEST TO KILL ITSELF
031248,000139: 22,3314 05574 TC B5OFF # PROCEED DITTO
031249,000140: 22,3315 03267 TC V82GOFLP # RECYCLE RECOMPUTE STATE VECT + DISPLAY
031250,000141:
031251,000142: 22,3316 01014 OPTIONVN VN 412
031252,000143: 22,3317 04054 V16N44 VN 1644
031253,000144: 22,3320 02131 TFFBANK ECADR TFF
031254,000145:
031255,000146:
031256,000147: 22,3321 06051 V82GOFF1 TC INTPRET
031257,000148: 22,3322 77634 RTB
031258,000149: 22,3323 21555 LOADTIME
031259,000150: 22,3324 00041 STORE TDEC1 # TIME FOR STATE VECTOR UPDATE.
031260,000151: 22,3325 02176 STORE TSTART82 # TIME FOR INTERNAL USE.
031261,000152: 22,3326 77776 EXIT
031262,000153: 22,3327 41051 CS OPTIONX +1 # 1 FOR THIS VEHICLE, NOT 1 FOR OTHER.
031263,000154: 22,3330 64753 AD ONE
031264,000155: 22,3331 00006 EXTEND
031265,000156: 22,3332 13356 BZF THISSHIP
031266,000157: 22,3333 06051 OTHSHIP TC INTPRET
031267,000158: 22,3334 77624 CALL # CALL STATE VECTOR UPDATE FOR OTHER SHIP.
031268,000159: 22,3335 27042 OTHPREC
031269,000160: 22,3336 77775 BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS
031270,000161: 22,3337 00001 RATT # TO BE CALLED BY SR30.1.
031271,000162: 22,3340 26200 STOVL RONE # RATT AT (-29)M FOR EARTH OR MOON
031272,000163: 22,3341 00007 VATT
031273,000164: 22,3342 02206 STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON
031274,000165: 22,3343 77743 DLOAD*
031275,000166: 22,3344 73774 1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC
031276,000167: 22,3345 00037 STORE TFF/RTMU # X2 IS 2 FOR MOON
031277,000168: 22,3346 77743 DLOAD* # AS LEFT BY THISPREC OR OTHPREC.
031278,000169: 22,3347 72411 MINPERE,2
031279,000170: 22,3350 02172 STORE HPERMIN # TFFRTMU, HPERMIN AND RPADTEM ARE ALL
031280,000171: 22,3351 46135 SLOAD BHIZ # EARTH/MOON PARAMETERS AS SET HERE.
031281,000172: 22,3352 00050 X2
031282,000173: 22,3353 45367 EARTHPAD
031283,000174: 22,3354 77650 GOTO
031284,000175: 22,3355 45373 MOONPAD
|
|
Page 709 |
031286,000177: 22,3356 06051 THISSHIP TC INTPRET
031287,000178: 22,3357 77624 CALL # CALL STATE VECTOR UPDATE FOR THIS SHIP.
031288,000179: 22,3360 27056 THISPREC
031289,000180: 22,3361 77650 GOTO
031290,000181: 22,3362 45336 BOTHSHIP
031291,000182:
031292,000183: # THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS.
031293,000184:
031294,000185: 22,3363 00001 11530 MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
031295,000186:
031296,000187: 22,3365 00002 31230 MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH
031297,000188:
031298,000189: 22,3367 43145 EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M.
031299,000190: 22,3370 06336 RPAD
031300,000191: 22,3371 03635 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
031301,000192: 22,3372 45377 BOTHPAD
031302,000193:
031303,000194: 22,3373 51575 MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
031304,000195: 22,3374 02021 RLS # SCALED AT (-27)M.
031305,000196: 22,3375 77614 SET
031306,000197: 22,3376 03475 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
031307,000198: 22,3377 36174 BOTHPAD STCALL RPADTEM
031308,000199: 22,3400 45551 SR30.1 # CALCULATE ORBITAL PARAMETERS
031309,000200: 22,3401 45234 RTB DSU
031310,000201: 22,3402 21555 LOADTIME
031311,000202: 22,3403 02176 TSTART82 # PRESENT TIME - TIME V82GOFF1 BEGAN
031312,000203: 22,3404 02176 STORE TSTART82 # SAVE IT
031313,000204: 22,3405 53145 DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/
031314,000205: 22,3406 02134 -TPER # HPERMIN (300 OR 35) KFT.
031315,000206: 22,3407 45420 TICKTFF # (-TPER = 0)
031316,000207: 22,3410 43345 TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED,
031317,000208: 22,3411 02134 -TPER # BUT WAS SET TO 59M59S.DONT TICK TFF, DO
031318,000209: 22,3412 02176 TSTART82 # TICK -TPER. DISPLAY BOTH.
031319,000210: 22,3413 02134 STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
031320,000211: 22,3414 77776 EXIT # BEGAN.
031321,000212: 22,3415 34753 CAF BIT1
031322,000213: 22,3416 55530 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
031323,000214: 22,3417 05155 TC ENDOFJOB
031324,000215:
031325,000216: 22,3420 43345 TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED.TICK TFF.
031326,000217: 22,3421 02132 TFF # DO NOT TICK -TPER.DISPLAY TFF, BUT NOT
031327,000218: 22,3422 02176 TSTART82 # -TPER.
031328,000219: 22,3423 02132 STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1
031329,000220: 22,3424 77776 EXIT # BEGAN.
031330,000221: 22,3425 34752 CAF BIT2
031331,000222: 22,3426 55530 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY TFF.
031332,000223: 22,3427 05155 TC ENDOFJOB
031333,000224:
|
|
Page 710 |
031335,000226: 22,3430 34747 TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF
031336,000227: 22,3431 71043 MASK EXTVBACT # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
031337,000228: 22,3432 10000 CCS A
031338,000229: 22,3433 03441 TC DOTICK
031339,000230: 22,3434 37725 CAF PRIO25
031340,000231: 22,3435 05072 TC NOVAC # TERMINATE V 82.CANT CALL ENDEXT IN RUPT.
031341,000232: 22,3436 1043 EBANK= EXTVBACT
031342,000233: 22,3436 05503 04062 2CADR ENDEXT
031343,000234:
031344,000235: 22,3440 05272 TC TASKOVER
031345,000236: 22,3441 34777 DOTICK CAF 1SEC # RE-REQUEST TICKTEST.
031346,000237: 22,3442 05214 TC WAITLIST
031347,000238: 22,3443 E4,1531 EBANK= TFF
031348,000239: 22,3443 03430 44064 2CADR TICKTEST
031349,000240:
031350,000241: 22,3445 36257 CAF THREE
031351,000242: 22,3446 71530 MASK V82FLAGS
031352,000243: 22,3447 50000 INDEX A
031353,000244: 22,3450 03451 TC +1
031354,000245: 22,3451 05272 TC TASKOVER # IF NO FLAGBITS SET DONT CHANGE TFF OR
031355,000246: # -TPER, BUT CONTINUE LOOP.
031356,000247: 22,3452 03460 TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
031357,000248: 22,3453 34777 TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC.
031358,000249: 22,3454 54001 TS L
031359,000250: 22,3455 34755 CAF ZERO
031360,000251: 22,3456 21532 DAS TFF
031361,000252: 22,3457 05272 TC TASKOVER
031362,000253: 22,3460 34777 TPERTICK CAF 1SEC
031363,000254: 22,3461 54001 TS L
031364,000255: 22,3462 34755 CAF ZERO
031365,000256: 22,3463 21534 DAS -TPER
031366,000257: 22,3464 05272 TC TASKOVER
031367,000258:
|
|
Page 711 |
031369,000260: 22,3465 77776 V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
031370,000261: # FOR ORBITAL PARAMETER CALCULATIONS.
031371,000262: 22,3466 35021 CAF PRIO7 # LESS THAN LAMBERT
031372,000263: 22,3467 05105 TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS
031373,000264: 22,3470 E4,1531 EBANK= TFF # ABOUT PROPER BODY APPROX ONCE PER SEC.
031374,000265: 22,3470 03503 44064 2CADR V82GON1
031375,000266:
031376,000267: 22,3472 00003 RELINT
031377,000268: 22,3473 10067 CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
031378,000269: 22,3474 05122 TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC
031379,000270: # JOB) IS COMPLETED BEFORE V82GON (PRIO7,
031380,000271: # NOVAC JOB).
031381,000272: 22,3475 33317 V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
031382,000273: 22,3476 04616 TC BANKCALL
031383,000274: 22,3477 20334 CADR GOXDSPF
031384,000275: 22,3500 05574 TC B5OFF # TERM THIS TELLS V82GON1 TO KILL ITSELF.
031385,000276: 22,3501 05574 TC B5OFF # PROC DITTO.
031386,000277: 22,3502 03475 TC V82REDSP # RECYCLE
031387,000278:
031388,000279: 22,3503 06051 V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF
031389,000280: # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
031390,000281: 22,3504 52175 VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND
031391,000282: 22,3505 01220 RN # VN FETCH SO RN , VN ARE FROM SAME
031392,000283: 22,3506 45507 NEXTLINE # STATE VECTOR UPDATE.
031393,000284: 22,3507 26200 NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON
031394,000285: 22,3510 01226 VN
031395,000286: 22,3511 02206 STORE VONE # VN AT (-7)M/CS FOR EARTH OR MOON
031396,000287: 22,3512 52014 BON GOTO
031397,000288: 22,3513 04304 MOONTHIS # FLAG INDICATES BODY ABOUT WHICH ORBITAL
031398,000289: 22,3514 45516 MOONGON # CALCULATIONS ARE TO BE PERFORMED.
031399,000290: 22,3515 45527 EARTHGON # IF SET - MOON , IF RESET - EARTH.
031400,000291:
031401,000292: 22,3516 71214 MOONGON SET DLOAD
031402,000293: 22,3517 03475 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
031403,000294: 22,3520 04001 1/RTMUM # LUNAR PARAMETERS LOADED HERE FOR SR30.1
031404,000295: 22,3521 14037 STODL TFF/RTMU
031405,000296: 22,3522 05364 MINPERM
031406,000297: 22,3523 26172 STOVL HPERMIN
031407,000298: 22,3524 02021 RLS # SCALED AT (-27)M.
031408,000299: 22,3525 52046 ABVAL GOTO
031409,000300: 22,3526 45536 V82GON2
031410,000301: 22,3527 71214 EARTHGON CLEAR DLOAD
031411,000302: 22,3530 03675 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
031412,000303: 22,3531 04003 1/RTMUE # EARTH PARAMETERS LOADED HERE FOR SR30.1
031413,000304: 22,3532 14037 STODL TFF/RTMU
031414,000305: 22,3533 05366 MINPERE
031415,000306: 22,3534 16172 STODL HPERMIN
031416,000307: 22,3535 06336 RPAD
031417,000308: 22,3536 36174 V82GON2 STCALL RPADTEM # COMMON CODE FOR EARTH & MOON.
031418,000309: 22,3537 45551 SR30.1
|
|
Page 712 |
031420,000311: 22,3540 77776 EXIT
031421,000312: 22,3541 34747 V82GON3 CAF BIT5
031422,000313: 22,3542 71043 MASK EXTVBACT # SEE IF ASTRONAUT HAS SIGNALLED TERMINATE
031423,000314: 22,3543 00006 EXTEND
031424,000315: 22,3544 15503 BZF ENDEXT # YES, TERMINATE VB 82 LOOP
031425,000316: 22,3545 34777 CAF 1SEC
031426,000317: 22,3546 04616 TC BANKCALL # WAIT ONE SECOND BEFORE REPEATING
031427,000318: 22,3547 01736 CADR DELAYJOB # ORBITAL PARAMETER COMPUTATION.
031428,000319: 22,3550 03503 TC V82GON1
031429,000320:
031430,000321: 22,3551 22,3541 SPLRET = V82GON3
031431,000322:
|
|
Page 713 |
031433,000324: # SUBROUTINE NAME: SR30.1
031434,000325: # MOD NO: 0 DATE: 16 FEB 67
031435,000326: # MOD BY: RR BAIRNSFATHER LOG SECTION: R32
031436,000327: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
031437,000328: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 14 APR 67 ADD OVFL CK FOR RAPO
031438,000329: # MOD NO: 3 MOD BY ALONSO DATE: 11 DEC 67 SUBROUTINE REWRITTEN
031439,000330: # MOD NO: 4 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
031440,000331: # MOD NO: 5 MOD BY: RR BAIRNSFATHER DATE: 6 AUG 68 OVFL CK FOR HAPO & HPER.VOIDS MOD #2.
031441,000332:
031442,000333: # NEW FUNCTIONAL DESCRIPTION: ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44.
031443,000334: # SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
031444,000335: # RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
031445,000336: # LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
031446,000337: # TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
031447,000338: # IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
031448,000339: # NEGATIVE IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
031449,000340: # CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO
031450,000341: # WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
031451,000342:
031452,000343: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
031453,000344: # ABOVE REMARKS.
031454,000345:
031455,000346: # CALLING SEQUENCE: CALL
031456,000347: # SR30.1
031457,000348: # SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
031458,000349: # NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
031459,000350: # ALARMS: NONE
031460,000351: # OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD.
031461,000352: # (-27) M MOON MOON CENTERED COORD.
031462,000353: # RPER (-29) M EARTH PERIGEE RADIUS EARTH CENTERED COORD.
031463,000354: # (-27) M MOON MOON CENTERED COORD.
031464,000355: # HAPOX (-29) M APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
031465,000356: # HPERX (-29) M PERIGEE ALT. ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
031466,000357: # TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE
031467,000358: # -TPER (-28) CS TIME TO PERIGEE
031468,000359: # ERASABLE INITIALIZATION REQUIRED-
031469,000360: # TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR
031470,000361: # (+14) MOON EARTH OR MOON = 1/SQRT(MU).
031471,000362: # RONE (-29) M STATE VECTOR
031472,000363: # VONE (-7) M/CS STATE VECTOR
031473,000364: # RPADTEM (-29) M EARTH RADIUS OF LAUNCH PAD OR LUNAR LANDING
031474,000365: # (-27) M MOON SITE.
031475,000366: # HPERMIN (-29) M EARTH (300 OR 35)KFT MINIMUM PERIGEE ALTITUDE
031476,000367: # (-27) M MOON ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
031477,000368: # V82EMFLG (INT SW BIT) RESET FOR EARTH, SET FOR MOON.
031478,000369:
031479,000370: # DEBRIS: QPRET, PDL, S2
031480,000371:
|
|
Page 714 |
031482,000373: 22,3551 COUNT* $$/SR30S
031483,000374:
031484,000375: 22,3551 44001 SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST.
031485,000376: 22,3552 00001 0
031486,000377: 22,3553 00051 S2
031487,000378: # SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
031488,000379: # VONE AT (-7)M/CS
031489,000380: # TFFCONMU,TFFRP/RA,CALCTPER AND CALCTFF
031490,000381: # CALLS REQUIRE :
031491,000382: # EARTH CENTERED (NO RESCALING REQUIRED)
031492,000383: # RONE SCALED TO B-29 M
031493,000384: # VONE SCALED TO B-7 M/CS
031494,000385: # MOON CENTERED (RESCALING REQUIRED)
031495,000386: # RONE SCALED TO B-27 M
031496,000387: # VONE SCALED TO B-5 M/CS
031497,000388: 22,3554 77214 BOFF VLOAD
031498,000389: 22,3555 03755 V82EMFLG # OFF FOR EARTH , ON FOR MOON.
031499,000390: 22,3556 45565 TFFCALLS
031500,000391: 22,3557 02200 RONE
031501,000392: 22,3560 77752 VSL2
031502,000393: 22,3561 26200 STOVL RONE
031503,000394: 22,3562 02206 VONE
031504,000395: 22,3563 77752 VSL2
031505,000396: 22,3564 02206 STORE VONE
031506,000397: 22,3565 77624 TFFCALLS CALL
031507,000398: 22,3566 57343 TFFCONMU
031508,000399: 22,3567 77624 CALL # TFFRP/RA COMPUTES RAPO,RPER.
031509,000400: 22,3570 57411 TFFRP/RA
031510,000401: # RETURNS WITH RAPO IN D(MPAC).
031511,000402: 22,3571 77625 DSU
031512,000403: 22,3572 02174 RPADTEM
031513,000404: 22,3573 64414 BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY.
031514,000405: # IF MOON CENTERED, RESCALE FROM (-27)M.
031515,000406: # IF EARTH CENTERED ALREADY AT (-29)M.
031516,000407: 22,3574 03755 V82EMFLG # OFF FOR EARTH , ON FOR MOON.
031517,000408: 22,3575 45576 +1
031518,000409: 22,3576 77624 CALL # IF HAPO > MAXNM, SET HAPO =9999.9 NM.
031519,000410: 22,3577 45636 MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
031520,000411: 22,3600 16113 STORHAPO STODL HAPOX
031521,000412: 22,3601 00017 RPER
031522,000413: 22,3602 77625 DSU
031523,000414: 22,3603 02174 RPADTEM # GIVES HPER AT (-29)M EARTH, (-27)M MOON.
031524,000415: 22,3604 00161 STORE MPAC +4 # SAVE THIS FOR COMPARISON TO HPERMIN.
031525,000416: 22,3605 64414 BOFF SR2R # NEED HPER AT (-29)M FOR DISPLAY.
031526,000417: # IF MOON CENTERED, RESCALE FROM (-27)M.
031527,000418: # IF EARTH CENTERED ALREADY AT (-29)M.
031528,000419: 22,3606 03755 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
031529,000420: 22,3607 45610 +1
031530,000421: 22,3610 77624 CALL # IF HPER > MAXNM, SET HPER = 9999.9 NM.
031531,000422: 22,3611 45636 MAXCHK
|
|
Page 715 |
031533,000424: 22,3612 16115 STORHPER STODL HPERX # STORE (RPER - RPADTEM) INTO HPERX.
031534,000425: 22,3613 00161 MPAC +4
031535,000426: 22,3614 51025 DSU BPL # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
031536,000427: 22,3615 02172 HPERMIN # IF HPER L/ HPERMIN (300 OR 35)KFT,
031537,000428: 22,3616 45622 DOTPER # THEN ZERO INTO -TPER.
031538,000429: 22,3617 52145 DLOAD GOTO # OTHERWISE CALCULATE TPER.
031539,000430: 22,3620 06520 HI6ZEROS
031540,000431: 22,3621 45626 SKIPTPER
031541,000432: 22,3622 45145 DOTPER DLOAD CALL
031542,000433: 22,3623 00017 RPER
031543,000434: 22,3624 57447 CALCTPER
031544,000435: 22,3625 77676 DCOMP # TPER IS PUT NEG INTO -TPER.
031545,000436: 22,3626 16134 SKIPTPER STODL -TPER
031546,000437: 22,3627 02172 HPERMIN # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
031547,000438: 22,3630 45015 DAD CALL
031548,000439: 22,3631 02174 RPADTEM # RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
031549,000440: 22,3632 57452 CALCTFF # GIVES 59M59S FOR TFF IF RPER G/
031550,000441: 22,3633 77676 DCOMP # HPERMIN + RPADTEM. (TPER WAS NON ZERO)
031551,000442: 22,3634 36132 STCALL TFF # OTHERWISE COMPUTES TFF. (GOTO)
031552,000443: 22,3635 00051 S2
031553,000444:
031554,000445: 22,3636 51025 MAXCHK DSU BPL # IF C(MPAC) > 9999.9 NM, MPAC = 9999.9 NM
031555,000446: 22,3637 05646 MAXNM
031556,000447: 22,3640 45643 +3 # OTHERWISE C(MPAC) = B(MPAC).
031557,000448: 22,3641 43415 DAD RVQ
031558,000449: 22,3642 05646 MAXNM
031559,000450: 22,3643 43545 +3 DLOAD RVQ # (USED BY P30 - P37 ALSO)
031560,000451: 22,3644 05646 MAXNM
031561,000452:
031562,000453: 22,3645 01065 05603 MAXNM 2OCT 0106505603
031563,000454:
|
|
Page 716 This page of the original assembly-listing hardcopy was empty, except for messages generated by the assembler. |
End of include-file R30.agc. Parent file is MAIN.agc