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,1970
Note that the date is the date of the printout, not the date of the program revision.

015159,000002:                                                                                                  ## Copyright:   Public domain.
015160,000003:                                                                                                  ## Filename:    R63.agc
015161,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
015162,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
015163,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
015164,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
015165,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
015166,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
015167,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
015168,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
015169,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
015170,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
015171,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
015172,000015:                                                                                                  ## Reference:   pp. 343-346
015173,000016:                                                                                                  ## Assembler:   yaYUL
015174,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
015175,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
015176,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
015177,000020:                                                                                                  ##              2017-08-22 RSB  Transcribed.
015178,000021: 

Page 343

015180,000023:                                                                                                  #  SUBROUTINE NAME:    V89CALL
015181,000024:                                                                                                  #  MOD NO:  0                      DATE: 9 JAN 1968
015182,000025:                                                                                                  #  MOD BY:  DIGITAL DEVEL GROUP    LOG SECTION: R63
015183,000026: 
015184,000027:                                                                                                  #  FUNCTIONAL DESCRIPTION:
015185,000028: 
015186,000029:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED.  CALCULATES AND
015187,000030:                                                                                                  #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
015188,000031: 
015189,000032:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
015190,000033:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
015191,000034: 
015192,000035:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
015193,000036:                                                                                                  #  ORIENTATION KNOWN TO LGC, CONTINUE.
015194,000037: 
015195,000038:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
015196,000039:                                                                                                  #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
015197,000040:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
015198,000041:                                                                                                  #  AFTER KEYING IN PROCEED.
015199,000042: 
015200,000043:                                                                                                  #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
015201,000044: 
015202,000045:                                                                                                  #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
015203,000046:                                                                                                  #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
015204,000047:                                                                                                  #  PREPARED FOR VECPOINT.
015205,000048: 
015206,000049:                                                                                                  #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
015207,000050:                                                                                                  #  BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
015208,000051: 
015209,000052:                                                                                                  #  7. RECYCLE - RETURN TO STEP 4.
015210,000053:                                                                                                  #     TERMINATE - EXIT R63.
015211,000054:                                                                                                  #     PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
015212,000055: 
015213,000056: 
015214,000057:                                                                                                  #  CALLING SEQUENCE:  V 89 E.
015215,000058: 
015216,000059:                                                                                                  #  SUBROUTINES CALLED:  CHKPOOH, R02BOTH, GOXDSPF, CSMCONIC, LEMCONIC,
015217,000060:                                                                                                  #                       VECPOINT, BALLANGS, R60LEM.
015218,000061: 
015219,000062:                                                                                                  #  NORMAL EXIT MODES:  TC ENDEXT
015220,000063: 
015221,000064:                                                                                                  #  ALARMS:  1. OPERATOR ERROR IF NOT IN P00.
015222,000065:                                                                                                  #           2. PROGRAM ALARM IF IMU IS OFF.
015223,000066:                                                                                                  #           3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN.
015224,000067: 
015225,000068:                                                                                                  #  OUTPUT:  NONE
015226,000069: 
015227,000070:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:  NONE
015228,000071: 
015229,000072:                                                                                                  #  DEBRIS:  OPTION1, +1, TDEC1, POINTVSM, SCAXIS, CPHI, CTHETA, CPSI,
015230,000073: 

Page 344

015232,000075:                                                                                                  #           3AXISFLG.
015233,000076: 
015234,000077: 06,3723  E4,1577                                  EBANK=   RONE                                  
015235,000078: 32,2217                                           BANK     32                                    
015236,000079: 26,2000                                           SETLOC   BAWLANGS                              
015237,000080: 26,2000                                           BANK                                           
015238,000081: 
015239,000082: 
015240,000083: 26,2024                                           COUNT*   $$/R63                                
015241,000084: 26,2024           04616        V89CALL            TC       BANKCALL                              #  IMU STATUS CHECK. RETURNS IF ORIENTATION
015242,000085: 26,2025           11241                           CADR     R02BOTH                               #  KNOWN. ALARMS IF NOT.
015243,000086: 26,2026           36257                           CAF      THREE                                 #  ALLOW ASTRONAUT TO SELECT DESIRED
015244,000087: 26,2027           55050                           TS       OPTIONX                               #  TRACKING ATTITUDE AXIS.
015245,000088: 26,2030           34753                           CAF      ONE                                   
015246,000089: 26,2031           55051                           TS       OPTIONX    +1                         
015247,000090: 26,2032           32121                           CAF      VB04N12                               #  V 04 N 12
015248,000091: 26,2033           04616                           TC       BANKCALL                              
015249,000092: 26,2034           20477                           CADR     GOFLASH                               
015250,000093: 26,2035           05503                           TC       ENDEXT                                #  TERMINATE
015251,000094: 26,2036           02040                           TC       +2                                    #  PROCEED
015252,000095: 26,2037           02032                           TC       -5                                    #  DATA IN. OPTION1+1 = 1 FOR Z AXIS
015253,000096: 26,2040           06051        V89RECL            TC       INTPRET                               #                    = 2 FOR X AXIS
015254,000097: 26,2041           43234                           RTB      DAD                                   
015255,000098: 26,2042           21555                                    LOADTIME                              #  READ PRESENT TIME
015256,000099: 26,2043           14124                                    DP1MIN                                
015257,000100: 26,2044           02176                           STORE    TSTART82                              #  SAVE TIME FOR LEMCONIC CALL
015258,000101: 26,2045           34041                           STCALL   TDEC1                                 #  STORE TIME FOR CSMCONIC CALL
015259,000102: 26,2046           27065                                    CSMCONIC                              #  CSM STATE VECTOR UPDATE
015260,000103: 26,2047           77775                           VLOAD                                          #  CSMCONIC LEFT R VECTOR IN RATT
015261,000104: 26,2050           00001                                    RATT                                  
015262,000105: 26,2051           16200                           STODL    RONE                                  #  SAVE FOR LINE OF SIGHT (LOS) COMPUTATION
015263,000106: 26,2052           02176                                    TSTART82                              
015264,000107: 26,2053           34041                           STCALL   TDEC1                                 #  STORE TIME FOR LEMCONIC CALL
015265,000108: 26,2054           27077                                    LEMCONIC                              #  LEM STATE VECTOR UPDATE
015266,000109: 26,2055           52375                           VLOAD    VSU                                   #  CSM POSITION - LEM POSITION = LOS
015267,000110: 26,2056           02200                                    RONE                                  #  LOS VECTOR LEFT IN MPAC
015268,000111: 26,2057           00001                                    RATT                                  
015269,000112: 26,2060           47121                           MXV      RTB                                   #  (REFSMMAT X LOS). TRANSFORMS LOS FROM
015270,000113: 26,2061           01732                                    REFSMMAT                              #  REFERENCE COORD TO STAB MEMB COORD.
015271,000114: 26,2062           21710                                    NORMUNIT                              
015272,000115: 26,2063           03773                           STORE    POINTVSM                              #  STORE LOS FOR VECPOINT CALL
015273,000116: 26,2064           77776                           EXIT                                           
015274,000117: 26,2065           41051                           CS       OPTIONX    +1                         #  1 FOR Z AXIS. 2 FOR X AXIS.
015275,000118: 26,2066           64753                           AD       ONE                                   
015276,000119: 26,2067           00006                           EXTEND                                         
015277,000120: 26,2070           12115                           BZF      ALINEZ                                
015278,000121: 26,2071           06051        ALINEX             TC       INTPRET                               #  X AXIS ALIGNMENT
015279,000122: 26,2072           77775                           VLOAD                                          
015280,000123: 26,2073           06516                                    UNITX                                 #  READ (.5, 0, 0)
015281,000124: 

Page 345

015283,000126: 26,2074           37765        V89CALL1           STCALL   SCAXIS                                #  STORE SELECTED ALIGNMENT AXIS
015284,000127: 26,2075           56040                                    VECPOINT                              #  PUTS DESIRED GIM ANG (OG,IG,MG) IN TMPAC
015285,000128: 26,2076           00322                           STORE    CPHI                                  #  STORE GIMBAL ANGLES FOR BALLANGS CALL.
015286,000129: 26,2077           77776                           EXIT                                           
015287,000130: 26,2100           04616                           TC       BANKCALL                              
015288,000131: 26,2101           54274                           CADR     BALLANGS                              #  PUTS DESIRED BALL ANGLES IN FDAIX,Y,Z
015289,000132: 26,2102           32122                           CAF      VB06N18                               #  V 06 N 18
015290,000133: 26,2103           04616                           TC       BANKCALL                              #  NOUN 18 REFERS TO FDAIX,Y,Z
015291,000134: 26,2104           20477                           CADR     GOFLASH                               
015292,000135: 26,2105           05503                           TC       ENDEXT                                #  TERMINATE
015293,000136: 26,2106           02110                           TC       +2                                    #  PROCEED
015294,000137: 26,2107           02040                           TC       V89RECL                               #  RECYCLE
015295,000138: 26,2110           05527                           TC       DOWNFLAG                              #  RESET 3 AXIS FLAG
015296,000139: 26,2111           00124                           ADRES    3AXISFLG                              #  RESET BIT6 FLAG WORD 5
015297,000140: 26,2112           04616                           TC       BANKCALL                              #  PERFORMS LEM MANEUVER TO ALIGN SELECTED
015298,000141: 26,2113           54125                           CADR     R60LEM                                #  SPACECRAFT AXIS TO CSM.
015299,000142: 26,2114           15503                           TCF      ENDEXT                                #  TERMINATE R63
015300,000143: 
015301,000144: 
015302,000145: 26,2115           06051        ALINEZ             TC       INTPRET                               #  Z AXIS ALIGNMENT
015303,000146: 26,2116           52175                           VLOAD    GOTO                                  
015304,000147: 26,2117           06512                                    UNITZ                                 #  READ (0, 0, .5)
015305,000148: 26,2120           54074                                    V89CALL1                              
015306,000149: 
015307,000150: 
015308,000151: 26,2121           01014        VB04N12            VN       412                                   
015309,000152: 26,2122           01422        VB06N18            VN       0618                                  
015310,000153: 

Page 346

015312,000155: 26,2123           00000 13560  DP1MIN             2DEC     6000       B-28                       

End of include-file R63.agc.  Parent file is MAIN.agc