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.

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

Page 343

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

Page 344

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

Page 345

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

Page 346

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

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