Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

011260,000002:                                                                                                  ## Copyright:   Public domain.
011261,000003:                                                                                                  ## Filename:    AOTMARK.agc
011262,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
011263,000005:                                                                                                  ##              It is part of the source code for the original release
011264,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
011265,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
011266,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
011267,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
011268,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
011269,000011:                                                                                                  ##              that the code format has been changed to conform to the
011270,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
011271,000013:                                                                                                  ##              original YUL assembler.
011272,000014:                                                                                                  ## Reference:   pp. 259-276
011273,000015:                                                                                                  ## Assembler:   yaYUL
011274,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
011275,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
011276,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
011277,000019:                                                                                                  ##              2017-01-10 HG   Transcribed
011278,000020:                                                                                                  ##              2017-01-25 RSB  Proofed comment text using octopus/prooferComments
011279,000021:                                                                                                  ##                              and fixed errors found.
011280,000022:                                                                                                  ##              2017-08-19 MAS  Fixed a typo found while transcribing Zerlina 56.
011281,000023: 

Page 259

011283,000025: 12,2000                                           BANK     12                                    
011284,000026: 07,2000                                           SETLOC   AOTMARK1                              
011285,000027: 07,2000                                           BANK                                           
011286,000028: 
011287,000029: 07,2000  E7,1547                                  EBANK=   XYMARK                                
011288,000030: 07,2000                                           COUNT*   $$/MARK                               
011289,000031: 
011290,000032: 07,2000           00004        AOTMARK            INHINT                                         
011291,000033: 07,2001           11312                           CCS      MARKSTAT                              #  SEE IF AOTMARK BUSY
011292,000034: 07,2002           02004                           TC       +2                                    #  MARK SYSTEM BUSY-DO ALARM
011293,000035: 07,2003           02006                           TC       EXTVBCHK                              
011294,000036: 07,2004           05652                           TC       POODOO                                
011295,000037: 07,2005           00105                           OCT      00105                                 
011296,000038: 
011297,000039: 07,2006           36241        EXTVBCHK           CAF      SIX                                   #  SEE IF EXT. VERB WORKING
011298,000040: 07,2007           71044                           MASK     EXTVBACT                              
011299,000041: 07,2010           10000                           CCS      A                                     
011300,000042: 07,2011           12044                           TCF      MKABORT                               #  YES-ABORT
011301,000043: 
011302,000044: 07,2012           34752                           CAF      BIT2                                  #  NO-DISALLOW SOME EXTENDED VERB ACTION
011303,000045: 07,2013           27044                           ADS      EXTVBACT                              #  BIT2 RESET IN ENDMARK
011304,000046: 07,2014           10400        MKVAC              CCS      VAC1USE                               #  LOOK FOR A VAC AREA-DO ABORT IF
011305,000047: 07,2015           12031                           TCF      MKVACFND                              #  NONE AVAILABLE
011306,000048: 07,2016           10454                           CCS      VAC2USE                               
011307,000049: 07,2017           12031                           TCF      MKVACFND                              
011308,000050: 07,2020           10530                           CCS      VAC3USE                               
011309,000051: 07,2021           12031                           TCF      MKVACFND                              
011310,000052: 07,2022           10604                           CCS      VAC4USE                               
011311,000053: 07,2023           12031                           TCF      MKVACFND                              
011312,000054: 07,2024           10660                           CCS      VAC5USE                               
011313,000055: 07,2025           12031                           TCF      MKVACFND                              
011314,000056: 07,2026           52134                           DXCH     BUF2                                  
011315,000057: 07,2027           05710                           TC       BAILOUT1                              #  ALL VAC AREAS OCCUPIED - ABORT.
011316,000058: 07,2030           01207                           OCT      01207                                 
011317,000059: 
011318,000060: 07,2031           64752        MKVACFND           AD       TWO                                   
011319,000061: 07,2032           55312                           TS       MARKSTAT                              #  STORE VAC ADR IN LOW 9 OF MARKSTAT
011320,000062: 
011321,000063: 07,2033           34755                           CAF      ZERO                                  
011322,000064: 07,2034           51312                           INDEX    MARKSTAT                              
011323,000065: 07,2035           53777                           TS       0          -1                         #  ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
011324,000066: 
011325,000067: 07,2036           35025                           CAF      PRIO15                                
011326,000068: 07,2037           05105                           TC       FINDVAC                               #  SET UP JOB FOR GETDAT
011327,000069: 07,2040  E7,1547                                  EBANK=   XYMARK                                
011328,000070: 07,2040           02060 16067                     2CADR    GETDAT                                
011329,000071: 
011330,000072: 07,2042           00003                           RELINT                                         
011331,000073: 07,2043           14631                           TCF      SWRETURN                              
011332,000074: 

Page 260

011334,000076: 07,2044           52134        MKABORT            DXCH     BUF2                                  
011335,000077: 07,2045           05710                           TC       BAILOUT1                              #  CONFLICT WITH EXTENDED VERB
011336,000078: 07,2046           01211                           OCT      01211                                 
011337,000079: 
011338,000080: 07,2047           34755        MKRELEAS           CAF      ZERO                                  
011339,000081: 07,2050           57312                           XCH      MARKSTAT                              #  SET MARKSTAT TO ZERO
011340,000082: 07,2051           75004                           MASK     LOW9                                  #  PICK UP VAC AREA ADR
011341,000083: 07,2052           10000                           CCS      A                                     
011342,000084: 07,2053           50000                           INDEX    A                                     
011343,000085: 07,2054           54000                           TS       0                                     #  SHOW MKVAC AREA AVAILABLE
011344,000086: 07,2055           34753                           CAF      ONE                                   
011345,000087: 07,2056           04674                           TC       IBNKCALL                              
011346,000088: 07,2057           17640                           CADR     GOODEND                               #  GO WAKE UP CALLING JOB
011347,000089: 

Page 261

011349,000091: 07,2060           41312        GETDAT             CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
011350,000092: 07,2061           74740                           MASK     BIT12                                 #    BIT12 RESET AT GETMARK
011351,000093: 07,2062           27312                           ADS      MARKSTAT                              
011352,000094: 
011353,000095: 07,2063           32330                           CAF      V01N71                                #  DISPLAY DETENT AND STAR CODE
011354,000096: 07,2064           04616                           TC       BANKCALL                              
011355,000097: 07,2065           20212                           CADR     GOMARKF                               
011356,000098: 
011357,000099: 07,2066           06001                           TC       GOTOPOOH                              #  V34-TERMINATE
011358,000100: 07,2067           12071                           TCF      DODAT                                 #  V33-PROCEED-USE THIS STAR FOR MARKS
011359,000101: 07,2070           12060        ENTERDAT           TCF      GETDAT                                #  ENTER-REDISPLAY STAR CODE
011360,000102: 
011361,000103: 07,2071           37743        DODAT              CAF      HIGH9                                 #  PICK DETENT CODE FROM BITS7-9 OF AOTCODE
011362,000104: 07,2072           70735                           MASK     AOTCODE                               #  AND SEE IF CODE IS 1,2 OR 3
011363,000105: 07,2073           00006                           EXTEND                                         
011364,000106: 07,2074           74743                           MP       BIT9                                  
011365,000107: 07,2075           55547                           TS       XYMARK                                #  STORE DETENT
011366,000108: 
011367,000109: 07,2076           00006                           EXTEND                                         
011368,000110: 07,2077           62060                           BZMF     GETDAT                                #  NO GOOD-MAKE REQUEST AGAIN
011369,000111: 
011370,000112: 07,2100           74751                           MASK     BIT3                                  #  SEE IF DETENT CODE 4 OR 5
011371,000113: 07,2101           00006                           EXTEND                                         
011372,000114: 07,2102           12123                           BZF      CODE123                               #  NOT 4 OR 5, MUST BE 1,2 OR 3
011373,000115: 
011374,000116: 07,2103                                           COUNT*   $$/COAS                               
011375,000117: 
011376,000118: 07,2103           32331        CODE4OR5           CAF      V06N87*                               #  CODE 4 OR 5, GET OPTIC AXIS CALIBRATIONS
011377,000119: 07,2104           04616                           TC       BANKCALL                              #  AZ AND EL OF SIGHTING DEVICE FROM ASTRO
011378,000120: 07,2105           20212                           CADR     GOMARKF                               
011379,000121: 
011380,000122: 07,2106           06001                           TC       GOTOPOOH                              #  V34-TERMINATE
011381,000123: 07,2107           12111                           TCF      +2                                    #  PROCEED
011382,000124: 07,2110           12103                           TCF      CODE4OR5                              #  ON ENTER, RECYCLE
011383,000125: 07,2111           00006                           EXTEND                                         
011384,000126: 07,2112           31350                           DCA      AZ                                    #  PICK UP AZ AND EL IN SP 2S COMP
011385,000127: 07,2113           50120                           INDEX    FIXLOC                                
011386,000128: 07,2114           52011                           DXCH     8D                                    #  STORE IN 8D AND 9D OF LOCAL VAC
011387,000129: 07,2115           34753                           CAF      BIT1                                  #  IF CODE 4, REAR AOT POSITIONS USED
011388,000130: 07,2116           71547                           MASK     XYMARK                                #  SO CALC APPARENT ROTATION
011389,000131: 07,2117           00006                           EXTEND                                         #  IF CODE 5, BACKUP, ZERO ROTATION
011390,000132: 07,2120           12133                           BZF      CODE4                                 #  REAR AOT DETENTS TO BE USED
011391,000133: 07,2121           34755                           CAF      ZERO                                  #  BACKUP SYSTEM TO BE USED
011392,000134: 07,2122           12137                           TCF      CODE5                                 
011393,000135: 
011394,000136: 07,2123                                           COUNT*   $$/MARK                               
011395,000137: 
011396,000138: 07,2123           51547        CODE123            INDEX    XYMARK                                #  INDEX DET CODE 1,2 OR 3
011397,000139: 07,2124           31406                           CA       AOTEL      -1                         
011398,000140: 07,2125           50120                           INDEX    FIXLOC                                
011399,000141: 

Page 262

011401,000143: 07,2126           54011                           TS       9D                                    #  STORE ELEVATION IN VAC+9D
011402,000144: 
011403,000145: 07,2127           51547                           INDEX    XYMARK                                #  INDEX DET CODE 1,2 OR 3
011404,000146: 07,2130           31403                           CA       AOTAZ      -1                         
011405,000147: 07,2131           50120                           INDEX    FIXLOC                                
011406,000148: 07,2132           54010                           TS       8D                                    #  STORE AZIMUTH IN VAC+8D
011407,000149: 
011408,000150: 07,2133           31405        CODE4              CA       AOTAZ      +1                         #  COMPENSATION FOR APPARENT RATATION OF
011409,000151: 07,2134           00006                           EXTEND                                         #  AOT FIELD OF VIEW IN LEFT AND RIGTHT
011410,000152: 07,2135           50120                           INDEX    FIXLOC                                #  DETENTS IS STORED IN VAC +10D IN SP
011411,000153: 07,2136           20010                           MSU      8D                                    #  PRECISION ONES COMPLEMENT
011412,000154: 07,2137           50120        CODE5              INDEX    FIXLOC                                
011413,000155: 07,2140           54012                           TS       10D                                   #  ROT ANGLE
011414,000156: 
011415,000157: 07,2141           06036                           TC       INTPRET                               #  COMPUTE X AND Y PLANE VECTORS
011416,000158: 

Page 263

011418,000160:                                                                                                  #  THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
011419,000161:                                                                                                  #  AND ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
011420,000162:                                                                                                  #  OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
011421,000163:                                                                                                  #   INPUT-AZIMUTH ANGLE IN SINGLE PREC AT CDU SCALE IN 8D OF JOB VAC
011422,000164:                                                                                                  #         ELEVATION ANGLE IN SINGLE PREC AT CDU SCALE IN 9D OF JOB VAC
011423,000165:                                                                                                  #         ROTATION ANGLE IN SINGLE PREC 1S COMP SCALED BY PI IN 10D OF VAC
011424,000166:                                                                                                  #   OUTPUT-OPTIC AXIS VEC IN NB COORDS IN SCAXIS
011425,000167:                                                                                                  #          X-MARK PLANE 1/4VEC IN NB COORDS AT 18D OF JOB VAC
011426,000168:                                                                                                  #          Y-MARK PLANE 1/4VEC IN NB COORDS AT 12D OF JOB VAC
011427,000169: 
011428,000170: 07,2142           77624        OPTAXIS            CALL                                           #  GO COMPUTE OA AND X AND Y PLANE VECS
011429,000171: 07,2143           13370                                    OANB                                  
011430,000172: 07,2144           70535                           SLOAD    SR1                                   #  LOAD APP ROTATION IN ONES COMP
011431,000173: 07,2145           00013                                    10D                                   #  RESCALE BY 2PI
011432,000174: 07,2146           73406                           PUSH     SIN                                   #  1/2SIN(ROT)  0-1
011433,000175: 07,2147           71525                           PDDL     COS                                   
011434,000176: 07,2150           74206                           PUSH     VXSC                                  #  1/2COS(ROT)  2-3
011435,000177: 07,2151           00023                                    18D                                   
011436,000178: 07,2152           74325                           PDDL     VXSC                                  #  1/4COS(ROT)UYP   4-9
011437,000179: 07,2153           00001                                    0                                     
011438,000180: 07,2154           00031                                    24D                                   #  1/4SIN(ROT)UXP
011439,000181: 07,2155           45445                           BVSU     STADR                                 #  UP 4-9
011440,000182: 07,2156           63762                           STODL    12D                                   #  YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP)
011441,000183: 07,2157           65361                           VXSC     PDDL                                  #  UP 2-3  UP 0-1  FOR EXCHANGE
011442,000184: 07,2160           00031                                    24D                                   #  1/4COS(ROT)UXP  PUSH 0-5
011443,000185: 07,2161           53361                           VXSC     VAD                                   #  1/4SIN(ROT)UYP
011444,000186: 07,2162           00023                                    18D                                   #  UP 0-5
011445,000187: 07,2163           77626                           STADR                                          
011446,000188: 07,2164           53754                           STOVL    18D                                   #  XPNB=1/4(COS(ROT)UXP+SIN(ROT)UYP)
011447,000189: 07,2165           22275                                    LO6ZEROS                              #  INITIALIZE AVE STAR VEC ACCUMULATOR
011448,000190: 07,2166           02715                           STORE    STARAD     +6                         
011449,000191: 07,2167           77776                           EXIT                                           
011450,000192: 07,2170           12202                           TCF      GETMKS                                
011451,000193: 

Page 264

011453,000195:                                                                                                  #  THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
011454,000196:                                                                                                  #  FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
011455,000197:                                                                                                  #     INPUT- AZIMUTH ANGLE IN SINGLE PREC 2S COMP IN 8D OF JOB VAC
011456,000198:                                                                                                  #            ELEVATION ANGLE IN SINGLE PREC 2S COMP IN 9D OF VAC
011457,000199:                                                                                                  #     OUTPUT-OPTIC AXIS IN NB COORDS. IN SCAXIS
011458,000200:                                                                                                  #            X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC
011459,000201:                                                                                                  #            Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
011460,000202: 
011461,000203: 05,3370                                           BANK     05                                    
011462,000204: 05,2000                                           SETLOC   AOTMARK2                              
011463,000205: 05,2000                                           BANK                                           
011464,000206: 
011465,000207: 05,3370                                           COUNT*   $$/MARK                               
011466,000208: 
011467,000209: 05,3370           44001        OANB               SETPD    STQ                                   
011468,000210: 05,3371           00001                                    0                                     
011469,000211: 05,3372           02736                                    GCTR                                  #  STORE RETURN
011470,000212: 05,3373           47135                           SLOAD    RTB                                   
011471,000213: 05,3374           00012                                    9D                                    #  PICK UP SP ELV
011472,000214: 05,3375           21465                                    CDULOGIC                              
011473,000215: 05,3376           71406                           PUSH     COS                                   
011474,000216: 05,3377           73525                           PDDL     SIN                                   #  1/2COS(ELV)  PD 0-1
011475,000217: 05,3400           77626                           STADR                                          
011476,000218: 05,3401           60016                           STODL    SCAXIS                                #  OAX=1/2SIN(ELV)
011477,000219: 05,3402           00011                                    8D                                    #  PICK UP AZ SP
011478,000220: 05,3403           77634                           RTB                                            
011479,000221: 05,3404           21465                                    CDULOGIC                              
011480,000222: 05,3405           71406                           PUSH     COS                                   
011481,000223: 05,3406           00025                           STORE    20D                                   #  STORE UYP(Y) 20-21
011482,000224: 05,3407           73525                           PDDL     SIN                                   #  1/2COS(AZ) PD 2-3
011483,000225: 05,3410           57406                           PUSH     DCOMP                                 #  PUSH 1/2SIN(AZ) 4-5
011484,000226: 05,3411           14027                           STODL    22D                                   #  STORE UYP(Z) 22-23
011485,000227: 05,3412           22275                                    LO6ZEROS                              
011486,000228: 05,3413           14023                           STODL    18D                                   #  STORE UYP(X) 18-19   UP 4-5
011487,000229: 05,3414           72405                           DMP      SL1                                   
011488,000230: 05,3415           00001                                    0                                     
011489,000231: 05,3416           17763                           STODL    SCAXIS     +2                         #  OAY=1/2COS(ELV)SIN(AZ)
011490,000232: 05,3417           72405                           DMP      SL1                                   #  UP 2-3
011491,000233: 05,3420           77626                           STADR                                          #  UP 0-1
011492,000234: 05,3421           50012                           STOVL    SCAXIS     +4                         #  OAZ=1/2COS(ELV)COS(AZ)
011493,000235: 05,3422           00023                                    18D                                   #  LOAD UYP VEC
011494,000236: 05,3423           53435                           VXV      UNIT                                  
011495,000237: 05,3424           03761                                    SCAXIS                                #  UXP VEC=UYP X OA
011496,000238: 05,3425           00031                           STORE    24D                                   #  STORE UXP
011497,000239: 05,3426           77650                           GOTO                                           
011498,000240: 05,3427           02736                                    GCTR                                  
011499,000241: 

Page 265

011501,000243:                                                                                                  #  SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
011502,000244:                                                                                                  #  SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
011503,000245:                                                                                                  #  GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
011504,000246:                                                                                                  #        Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
011505,000247:                                                                                                  #        CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
011506,000248:                                                                                                  #        SPIRAL SP 2COMP AT POSITION 3 OF INDEXED MARKVAC
011507,000249:                                                                                                  #        CDUY,Z,X AT POSITIONS 0,2,4 OF INDEXED MARKVAC
011508,000250: 15,2000                                           BANK     15                                    
011509,000251: 15,2000                                           SETLOC   P50S                                  
011510,000252: 15,2000                                           BANK                                           
011511,000253: 15,2000                                           COUNT*   $$/R59                                
011512,000254: 
011513,000255: 15,2000           77773        SURFSTAR           VLOAD*                                         
011514,000256: 15,2001           00001                                    0,1                                   #  PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
011515,000257: 15,2002           00767                           STORE    CDUSPOT                               
011516,000258: 15,2003           47133                           SLOAD*   RTB                                   
011517,000259: 15,2004           00002                                    1,1                                   #  PICK UP YROT
011518,000260: 15,2005           21465                                    CDULOGIC                              
011519,000261: 15,2006           00031                           STORE    24D                                   #  STORE CURSOR FOR SPIRAL COMP (REVS)
011520,000262: 15,2007           77654                           BZE                                            
011521,000263: 15,2010           16171                                    YZCHK                                 #  IF YROT ZERO-SEE IF SROT ZERO
011522,000264: 15,2011           71406        JUSTZY             PUSH     COS                                   
011523,000265: 15,2012           73525                           PDDL     SIN                                   #  1/2COS(YROT) 0-1
011524,000266: 15,2013           65361                           VXSC     PDDL                                  #  UP 0-1  1/8SIN(YROT)UXP  0-5
011525,000267: 15,2014           00023                                    18D                                   
011526,000268: 15,2015           52361                           VXSC     VSU                                   #  UP   0-5
011527,000269: 15,2016           00015                                    12D                                   #  UYP
011528,000270: 15,2017           47256                           UNIT     VXV                                   
011529,000271: 15,2020           03761                                    SCAXIS                                
011530,000272: 15,2021           41456                           UNIT     PUSH                                  
011531,000273: 15,2022           47133                           SLOAD*   RTB                                   
011532,000274: 15,2023           00004                                    3,1                                   #  PICK UP SPIRAL
011533,000275: 15,2024           21465                                    CDULOGIC                              
011534,000276: 15,2025           00033                           STORE    26D                                   #  STORE SPIRAL (REVS)
011535,000277: 15,2026           43225                           DSU      DAD                                   
011536,000278: 15,2027           00031                                    24D                                   
011537,000279: 15,2030           32047                                    ABOUTONE                              
011538,000280: 15,2031           77605                           DMP                                            
011539,000281: 15,2032           32534                                    DP1/12                                
011540,000282: 15,2033           00033                           STORE    26D                                   #  SEP=(360 + SPIRAL - CURSOR)/12
011541,000283: 15,2034           74356                           SIN      VXSC                                  #  UP  0-5
011542,000284: 15,2035           65372                           VSL1     PDDL                                  #  1/2SIN(SEP)(UPP X OA)  0-5
011543,000285: 15,2036           00033                                    26D                                   
011544,000286: 15,2037           74346                           COS      VXSC                                  
011545,000287: 15,2040           03761                                    SCAXIS                                
011546,000288: 15,2041           53372                           VSL1     VAD                                   #  UP  0-5
011547,000289: 15,2042           45056        JUSTOA             UNIT     CALL                                  
011548,000290: 15,2043           47570                                    TRG*NBSM                              
011549,000291: 15,2044           34031                           STCALL   24D                                   #  STAR VEC IN SM
011550,000292: 15,2045           16276                                    AVEIT                                 #  GO AVERAGE
011551,000293: 

Page 266

011553,000295: 15,2046           37777 37775  ABOUTONE           2DEC     .99999999                             
011554,000296: 15,2050  15,2533               DP1/12             EQUALS   DEG30                                 #  .08333333
011555,000297: 07,2171                                           BANK     7                                     
011556,000298: 07,2000                                           SETLOC   AOTMARK1                              
011557,000299: 07,2000                                           BANK                                           
011558,000300: 07,2171                                           COUNT*   $$/MARK                               
011559,000301: 07,2171           53133        YZCHK              SLOAD*   BZE                                   #  YROT ZERO AND IF SROT ZERO FORCE STAR
011560,000302: 07,2172           00004                                    3,1                                   #  ALONG OPTIC AXIS
011561,000303: 07,2173           16177                                    YSZERO                                
011562,000304: 07,2174           52145                           DLOAD    GOTO                                  
011563,000305: 07,2175           00031                                    24D                                   
011564,000306: 07,2176           32011                                    JUSTZY                                #  SROT NOT ZERO-CONTINUE NORMALLY
011565,000307: 07,2177           52175        YSZERO             VLOAD    GOTO                                  
011566,000308: 07,2200           03761                                    SCAXIS                                
011567,000309: 07,2201           32042                                    JUSTOA                                
011568,000310: 

Page 267

011570,000312:                                                                                                  #  THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
011571,000313: 
011572,000314: 07,2202           34755        GETMKS             CAF      ZERO                                  #  INITIALIZE MARK ID REGISTER AND MARK CNT
011573,000315: 07,2203           55547                           TS       XYMARK                                
011574,000316: 07,2204           55546                           TS       MARKCNTR                              
011575,000317: 07,2205           35004                           CAF      LOW9                                  #  ZERO BITS10 TO 15 RETAINING MKVAC ADR
011576,000318: 07,2206           71312                           MASK     MARKSTAT                              
011577,000319: 07,2207           55312                           TS       MARKSTAT                              
011578,000320: 07,2210           32621                           CAF      MKVB54*                               #  DISPLAY VB54 INITIALLY
011579,000321: 07,2211           04616        PASTIT             TC       BANKCALL                              
011580,000322: 07,2212           20223                           CADR     GOMARK4                               
011581,000323: 
011582,000324: 07,2213           06001                           TC       GOTOPOOH                              #  VB34 TERMINATE-THIS RELEASES MKVAC AREA
011583,000325: 07,2214           12216                           TCF      MARKCHEX                              #  VB33-PROCEED, GOT MARKS, COMPUTE LOS
011584,000326: 07,2215           12060                           TCF      GETDAT                                #  ENTER- RECYCLE TO V01N71
011585,000327: 
011586,000328: 07,2216           41312        MARKCHEX           CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
011587,000329: 07,2217           74740                           MASK     BIT12                                 
011588,000330: 07,2220           27312                           ADS      MARKSTAT                              
011589,000331: 07,2221           75004                           MASK     LOW9                                  
011590,000332: 07,2222           55547                           TS       XYMARK                                #  JAM MARK VAC ADR IN XYMARK FOR AVESTAR
011591,000333: 07,2223           34755                           CAF      ZERO                                  
011592,000334: 07,2224           55550                           TS       MKDEX                                 #  SET MKDEX ZERO FOR LOS VEC CNTR
011593,000335: 07,2225           31312                           CA       MARKSTAT                              
011594,000336: 07,2226           75015                           MASK     PRIO3                                 #  SEE IF LAST MK PARI COMPLETE
011595,000337: 07,2227           54001                           TS       L                                     
011596,000338: 07,2230           35015                           CAF      PRIO3                                 #  BITS10 AND 11
011597,000339: 07,2231           00006                           EXTEND                                         
011598,000340: 07,2232           06001                           RXOR     LCHAN                                 
011599,000341: 07,2233           00006                           EXTEND                                         
011600,000342: 07,2234           12241                           BZF      AVESTAR                               #  LAST PAIR COMPLETE-GO COMPUTE LOS
011601,000343: 07,2235           11546        CNTCHK             CCS      MARKCNTR                              #  NO PAIR SHOWING-SEE IF PAIR IN HOLD
011602,000344: 07,2236           12240                           TCF      +2                                    #  PAIR BURIED-DECREMENT COUNTER
011603,000345: 07,2237           12325                           TCF      MKALARM                               #  NO PAIR-ALARM
011604,000346: 07,2240           55546                           TS       MARKCNTR                              #  STORE DECREMENTED COUNTER
011605,000347: 
011606,000348: 07,2241           34740        AVESTAR            CAF      BIT12                                 #  INITIALIZE MKDEX FOR STAR LOS COUNTER
011607,000349: 07,2242           27550                           ADS      MKDEX                                 #  MKDEX WAS INITIALIZED ZERO IN MARKCHEX
011608,000350: 07,2243           41546                           CS       MARKCNTR                              
011609,000351: 07,2244           00006                           EXTEND                                         
011610,000352: 07,2245           76241                           MP       SIX                                   #  GET C(L) = - 6 MARKCNTR
011611,000353: 07,2246           41547                           CS       XYMARK                                
011612,000354: 07,2247           60001                           AD       L                                     #  ADD - MARK VAC ADR SET IN MARKCHEX
011613,000355: 07,2250           50120                           INDEX    FIXLOC                                
011614,000356: 07,2251           54046                           TS       X1                                    #  JAM - CDU ADR OF X-MARK IN X1
011615,000357: 
011616,000358: 07,2252           30120                           CA       FIXLOC                                #  SET PD POINTER TO ZERO
011617,000359: 07,2253           54166                           TS       PUSHLOC                               
011618,000360: 
011619,000361: 07,2254           06036                           TC       INTPRET                               
011620,000362: 

Page 268

011622,000364: 07,2255           76614                           BON      VLOAD*                                
011623,000365: 07,2256           04307                                    SURFFLAG                              #  IF ON SURFACE COMPUTE VEC AT SURFSTAR
011624,000366: 07,2257           32000                                    SURFSTAR                              
011625,000367: 07,2260           00002                                    1,1                                   #  PUT Y-MARK CDUS IN CDUSPOT FOR TRG*NBSM
011626,000368: 07,2261           24767                           STOVL    CDUSPOT                               
011627,000369: 07,2262           00015                                    12D                                   #  LOAD Y-PLANE VECTOR IN NB
011628,000370: 07,2263           77624                           CALL                                           
011629,000371: 07,2264           47570                                    TRG*NBSM                              #  CONVERT IT TO STABLE MEMBER
011630,000372: 07,2265           76606                           PUSH     VLOAD*                                
011631,000373: 07,2266           00001                                    0,1                                   #  PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
011632,000374: 07,2267           24767                           STOVL    CDUSPOT                               
011633,000375: 07,2270           00023                                    18D                                   #  LOAD X-PLANE VECTOR IN NB
011634,000376: 07,2271           77624                           CALL                                           
011635,000377: 07,2272           47570                                    TRG*NBSM                              #  CONVERT IT TO STABLE-MEMBER
011636,000378: 07,2273           53435                           VXV      UNIT                                  #  UNIT(XPSM * YPSM)
011637,000379: 07,2274           77626                           STADR                                          
011638,000380: 07,2275           77746                           STORE    24D                                   
011639,000381: 
011640,000382: 07,2276           63335        AVEIT              SLOAD    PDVL                                  #  N(NUMBER OF VECS) IN 0-1
011641,000383: 07,2277           03551                                    MKDEX                                 
011642,000384: 07,2300           00031                                    24D                                   #  LOAD CURRENT VECTOR
011643,000385: 07,2301           70322                           VSR3     V/SC                                  
011644,000386: 07,2302           00001                                    0                                     
011645,000387: 07,2303           14031                           STODL    24D                                   #  VEC/N
011646,000388: 07,2304           00001                                    0                                     
011647,000389: 07,2305           56225                           DSU      DDV                                   
011648,000390: 07,2306           16623                                    DP1/8                                 #  (N-1)/N
011649,000391: 07,2307           53361                           VXSC     VAD                                   
011650,000392: 07,2310           02715                                    STARAD     +6                         #  ADD VEC TO PREVIOUSLY AVERAGED VECTOR
011651,000393: 07,2311           00031                                    24D                                   #  (N-1)/N AVESTVEC + VEC/N
011652,000394: 07,2312           02715                           STORE    STARAD     +6                         #  AVERAGE STAR VECTOR
011653,000395: 07,2313           02767                           STORE    STARSAV2                              
011654,000396: 07,2314           77776                           EXIT                                           
011655,000397: 07,2315           11546                           CCS      MARKCNTR                              #  SEE IF ANOTHER MARK PAIR IN MKVAC
011656,000398: 07,2316           12240                           TCF      AVESTAR    -1                         #  THERE IS-GO GET IT-DECREMENT COUNTER
011657,000399: 07,2317           34756        ENDMARKS           CAF      FIVE                                  #  NO MORE MARKS-TERMINATE AOTMARK
011658,000400: 07,2320           00004                           INHINT                                         
011659,000401: 07,2321           05203                           TC       WAITLIST                              
011660,000402: 07,2322  E7,1547                                  EBANK=   XYMARK                                
011661,000403: 07,2322           02047 16067                     2CADR    MKRELEAS                              
011662,000404: 
011663,000405: 07,2324           05472                           TC       ENDMARK                               
011664,000406: 
011665,000407: 07,2325           05567        MKALARM            TC       ALARM                                 #  NOT A PAIR TO PROCESS-DO GETMKS
011666,000408: 07,2326           00111                           OCT      111                                   
011667,000409: 07,2327           12202                           TCF      GETMKS                                
011668,000410: 
011669,000411: 07,2330           00307        V01N71             VN       171                                   
011670,000412: 07,2331           01527        V06N87*            VN       687                                   
011671,000413: 

Page 269

011673,000415:                                                                                                  #  MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
011674,000416:                                                                                                  #  CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
011675,000417: 
011676,000418: 07,2332           54016        MARKRUPT           TS       BANKRUPT                              
011677,000419: 07,2333           30033                           CA       CDUY                                  #  STORE CDUS AND TIME NOW-THEN SEE IF
011678,000420: 07,2334           54063                           TS       ITEMP3                                #  WE NEED THEM
011679,000421: 07,2335           30034                           CA       CDUZ                                  
011680,000422: 07,2336           54064                           TS       ITEMP4                                
011681,000423: 07,2337           30032                           CA       CDUX                                  
011682,000424: 07,2340           54065                           TS       ITEMP5                                
011683,000425: 07,2341           00006                           EXTEND                                         
011684,000426: 07,2342           30025                           DCA      TIME2                                 
011685,000427: 07,2343           52062                           DXCH     ITEMP1                                
011686,000428: 07,2344           56002                           XCH      Q                                     
011687,000429: 07,2345           54012                           TS       QRUPT                                 
011688,000430: 
011689,000431: 07,2346           32624                           CAF      OCT34                                 #  SEE IF X OR Y MARK OR MKREJECT
011690,000432: 07,2347           00006                           EXTEND                                         
011691,000433: 07,2350           02016                           RAND     NAVKEYIN                              
011692,000434: 07,2351           10000                           CCS      A                                     
011693,000435: 07,2352           12354                           TCF      +2                                    #  ITS A LIVE ONE-SEE IF ITS WANTED
011694,000436: 07,2353           12404                           TCF      SOMEKEY                               #  ITS SOME OTHER KEY
011695,000437: 
011696,000438: 07,2354           34740                           CAF      BIT12                                 #  ARE WE ASKING FOR A MARK
011697,000439: 07,2355           71312                           MASK     MARKSTAT                              
011698,000440: 07,2356           10000                           CCS      A                                     
011699,000441: 07,2357           05270                           TC       RESUME                                #  DONT WANT MARK OR MKREJECT-DO NOTHING
011700,000442: 
011701,000443: 07,2360           11312                           CCS      MARKSTAT                              #  ARE MARKS BEING ACCEPTED
011702,000444: 07,2361           12365                           TCF      FINDKEY                               #  THEY ARE-WHICH ONE IS IT
011703,000445: 07,2362           05567                           TC       ALARM                                 #  MARKS NOT BEING ACCEPTED-DO ALARM
011704,000446: 07,2363           00112                           OCT      112                                   
011705,000447: 07,2364           05270                           TC       RESUME                                
011706,000448: 
011707,000449: 07,2365           34747        FINDKEY            CAF      BIT5                                  #  SEE IF MARK REJECT
011708,000450: 07,2366           00006                           EXTEND                                         
011709,000451: 07,2367           02016                           RAND     NAVKEYIN                              
011710,000452: 07,2370           10000                           CCS      A                                     
011711,000453: 07,2371           12461                           TCF      MKREJ                                 #  ITS A MARK REJECT
011712,000454: 
011713,000455: 07,2372           34750                           CAF      BIT4                                  #  SEE IF Y MARK
011714,000456: 07,2373           00006                           EXTEND                                         
011715,000457: 07,2374           02016                           RAND     NAVKEYIN                              
011716,000458: 07,2375           10000                           CCS      A                                     
011717,000459: 
011718,000460: 07,2376           12422                           TCF      YMKRUPT                               #  ITS A Y MARK
011719,000461: 
011720,000462: 07,2377           34751                           CAF      BIT3                                  #  SEE IF X MARK
011721,000463: 07,2400           00006                           EXTEND                                         
011722,000464: 07,2401           02016                           RAND     NAVKEYIN                              
011723,000465: 

Page 270

011725,000467: 07,2402           10000                           CCS      A                                     
011726,000468: 07,2403           12416                           TCF      XMKRUPT                               #  ITS A X MARK
011727,000469: 
011728,000470: 07,2404           34776        SOMEKEY            CAF      OCT140                                #  NOT MARK OR MKREJECT-SEE IF DESCENT BITS
011729,000471: 07,2405           00006                           EXTEND                                         
011730,000472: 07,2406           02016                           RAND     NAVKEYIN                              
011731,000473: 07,2407           00006                           EXTEND                                         
011732,000474: 07,2410           12413                           BZF      +3                                    #  IF NO BITS
011733,000475: 
011734,000476: 07,2411           04635                           TC       POSTJUMP                              #  IF DESCENT BITS
011735,000477: 07,2412           40115                           CADR     DESCBITS                              
011736,000478: 
011737,000479: 07,2413           05567                           TC       ALARM                                 #  NO INBITS IN CHANNEL 16
011738,000480: 07,2414           00113                           OCT      113                                   
011739,000481: 
011740,000482: 07,2415           05270                           TC       RESUME                                
011741,000483: 
011742,000484: 07,2416           34755        XMKRUPT            CAF      ZERO                                  
011743,000485: 07,2417           54070                           TS       RUPTREG1                              #  SET X MARK STORE INDEX TO ZERO
011744,000486: 07,2420           34742                           CAF      BIT10                                 
011745,000487: 07,2421           12425                           TCF      +4                                    
011746,000488: 07,2422           34753        YMKRUPT            CAF      ONE                                   
011747,000489: 07,2423           54070                           TS       RUPTREG1                              #  SET Y MARK STORE INDEX TO ONE
011748,000490: 07,2424           34741                           CAF      BIT11                                 
011749,000491: 07,2425           55547                           TS       XYMARK                                #  SET MARK IDENTIFIATION
011750,000492: 
011751,000493: 07,2426           02514                           TC       MARKTYPE                              #  SEE IF SURFACE MARK
011752,000494: 07,2427           12521                           TCF      SURFSTOR                              #  SURFACE MARK-JUST STORE CDUS
011753,000495: 
011754,000496: 07,2430           34736                           CAF      BIT14                                 #  GOT A MARK-SEE IF MARK PAIR MADE
011755,000497: 07,2431           71312                           MASK     MARKSTAT                              
011756,000498: 07,2432           00006                           EXTEND                                         
011757,000499: 07,2433           12444                           BZF      VERIFYMK                              #  NOT A PAIR, NORMAL PROCEDURE
011758,000500: 07,2434           41546                           CS       MARKCNTR                              #  GOT A PAIR, SEE IF ANOTHER CAN BE MADE
011759,000501: 07,2435           64751                           AD       FOUR                                  #  IF SO, INCREMENT POINTER,CLEAR BITS10,11
011760,000502: 07,2436           00006                           EXTEND                                         
011761,000503: 07,2437           62454                           BZMF     5MKALARM                              #  HAVE FIVE MARK PAIRS-DONT ALLOW MARK
011762,000504: 07,2440           25546                           INCR     MARKCNTR                              #  OK FOR ANOTHER PAIR, INCR POINTER
011763,000505: 07,2441           47710                           CS       PRIO23                                #  CLEAR BITS10,11,14 FOR NEXT PAIR
011764,000506: 07,2442           71312                           MASK     MARKSTAT                              
011765,000507: 07,2443           55312                           TS       MARKSTAT                              
011766,000508: 
011767,000509: 07,2444           31547        VERIFYMK           CA       XYMARK                                
011768,000510: 07,2445           71312                           MASK     MARKSTAT                              
011769,000511: 07,2446           10000                           CCS      A                                     
011770,000512: 07,2447           12451                           TCF      +2                                    #  THIS MARK NOT DESIRED
011771,000513: 07,2450           12526                           TCF      VACSTOR                               #  MARK DESIRED - STORE CDUS
011772,000514: 07,2451           05567                           TC       ALARM                                 
011773,000515: 07,2452           00114                           OCT      114                                   
011774,000516: 07,2453           05270                           TC       RESUME                                #  RESUME-DISPLAY UNCHANGED-WAIT FOR ACTION
011775,000517: 

Page 271

011777,000519: 07,2454           05567        5MKALARM           TC       ALARM                                 #  ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS
011778,000520: 07,2455           00107                           OCT      107                                   
011779,000521: 07,2456           02514                           TC       MARKTYPE                              #  SEE IF SURFACE MARK
011780,000522: 07,2457           12627                           TCF      DSPV6N79                              #  IT IS
011781,000523: 07,2460           05270                           TC       RESUME                                #  DONT CHANGE DISPLAY-DO NOTHING
011782,000524: 

Page 272

011784,000526: 07,2461           02514        MKREJ              TC       MARKTYPE                              #  SEE IF SURFACE
011785,000527: 07,2462           12507                           TCF      SURFREJ                               #  SURFACE-JUST CHECK MARK COUNTER
011786,000528: 
011787,000529: 07,2463           35015                           CAF      PRIO3                                 #  INFLIGHT-SEE IF MARKS MADE
011788,000530: 07,2464           71312                           MASK     MARKSTAT                              
011789,000531: 07,2465           10000                           CCS      A                                     
011790,000532: 07,2466           12472                           TCF      REJECT                                #  MARKS MADE-REJECT ONE
011791,000533: 07,2467           05567        REJALM             TC       ALARM                                 #  NO MARK TO REJECT-BAD PROCEDURE-ALARM
011792,000534: 07,2470           00115                           OCT      115                                   
011793,000535: 07,2471           05270                           TC       RESUME                                #  DESIRED ACTION DISPLAYED
011794,000536: 
011795,000537: 07,2472           44355        REJECT             CS       PRIO30                                #  ZERO BIT14,SHOW REJ.,SEE IF MARK SINCE
011796,000538: 07,2473           71312                           MASK     MARKSTAT                              #  LAST REJECT
011797,000539: 07,2474           64737                           AD       BIT13                                 
011798,000540: 07,2475           57312                           XCH      MARKSTAT                              
011799,000541: 07,2476           74737                           MASK     BIT13                                 
011800,000542: 07,2477           10000                           CCS      A                                     
011801,000543: 07,2500           12505                           TCF      REJECT2                               #  ANOTHER REJECT SET BIT 10+11 TO ZERO
011802,000544: 
011803,000545: 07,2501           41547                           CS       XYMARK                                #  MARK MADE SINCE REJECT-REJECT MARK IN 1D
011804,000546: 07,2502           71312        RENEWMK            MASK     MARKSTAT                              
011805,000547: 07,2503           55312                           TS       MARKSTAT                              
011806,000548: 07,2504           12577                           TCF      REMARK                                #  GO REQUEST NEW MARK ACTION
011807,000549: 
011808,000550: 07,2505           45015        REJECT2            CS       PRIO3                                 #  ON SECOND REJECT-DISPLAY VB53 AGAIN
011809,000551: 07,2506           12502                           TCF      RENEWMK                               
011810,000552: 
011811,000553: 07,2507           11546        SURFREJ            CCS      MARKCNTR                              #  IF MARK DECREMENT COUNTER
011812,000554: 07,2510           12512                           TCF      +2                                    
011813,000555: 07,2511           12467                           TCF      REJALM                                #  NO MARKS TO REJECT-ALARM
011814,000556: 07,2512           55546                           TS       MARKCNTR                              
011815,000557: 07,2513           05270                           TC       RESUME                                
011816,000558: 

Page 273

011818,000560: 
011819,000561: 
011820,000562:                                                                                                  #  MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE.  IF IT IS RETURN TO LOC+1
011821,000563: 
011822,000564: 07,2514           40104        MARKTYPE           CS       FLAGWRD8                              #  SURFFLAG*******TEMPORARY*****
011823,000565: 07,2515           74744                           MASK     BIT8                                  
011824,000566: 07,2516           10000                           CCS      A                                     
011825,000567: 07,2517           24002                           INCR     Q                                     #  IF SURFACE MARK REUTNR TO LOC +1
011826,000568: 07,2520           00002                           TC       Q                                     #  IF INFLIGHT MARK RETURN TO LOC +2
011827,000569: 
011828,000570: 07,2521           34755        SURFSTOR           CAF      ZERO                                  #  FOR SURFACE MARK ZERO MARK KIND INDEX
011829,000571: 07,2522           54070                           TS       RUPTREG1                              
011830,000572: 
011831,000573: 07,2523           41312                           CS       MARKSTAT                              #  SET BITS10,11 TO SHOW SURFACE MARK
011832,000574: 07,2524           75015                           MASK     PRIO3                                 #  FOR MARKCHEX
011833,000575: 07,2525           27312                           ADS      MARKSTAT                              
011834,000576: 
011835,000577: 07,2526           35004        VACSTOR            CAF      LOW9                                  
011836,000578: 07,2527           71312                           MASK     MARKSTAT                              #  STORE MARK VAC ADR IN RUPTREG2
011837,000579: 07,2530           54071                           TS       RUPTREG2                              
011838,000580: 07,2531           00006                           EXTEND                                         
011839,000581: 07,2532           30062                           DCA      ITEMP1                                #  PICK UP MARKTIME
011840,000582: 07,2533           53560                           DXCH     TSIGHT                                #  STORE LAST MARK TIME
011841,000583: 07,2534           31546                           CA       MARKCNTR                              #  6 X MARKCNTR FOR STORE INDEX
011842,000584: 07,2535           00006                           EXTEND                                         
011843,000585: 07,2536           76241                           MP       SIX                                   
011844,000586: 07,2537           56001                           XCH      L                                     #  GET INDEX FROM LOW ORDER PART
011845,000587: 07,2540           60071                           AD       RUPTREG2                              #  SET CDU STORE INDEX TO MARKVAC
011846,000588: 07,2541           26070                           ADS      RUPTREG1                              #  INCREMENT VAC PICKUP BY MARK FOR FLIGHT
011847,000589: 07,2542           55550                           TS       MKDEX                                 #  STORE HERE IN CASE OF SURFACE MARK
011848,000590: 07,2543           30063                           CA       ITEMP3                                
011849,000591: 07,2544           50070                           INDEX    RUPTREG1                              
011850,000592: 07,2545           54000                           TS       0                                     #  STORE CDUY
011851,000593: 07,2546           30064                           CA       ITEMP4                                
011852,000594: 07,2547           50070                           INDEX    RUPTREG1                              
011853,000595: 07,2550           54002                           TS       2                                     #  STORE CDUZ
011854,000596: 07,2551           30065                           CA       ITEMP5                                
011855,000597: 07,2552           50070                           INDEX    RUPTREG1                              
011856,000598: 07,2553           54004                           TS       4                                     #  STORE CDUX
011857,000599: 07,2554           02514                           TC       MARKTYPE                              #  IF SURFACE MARK- JUST DO SURFJOB
011858,000600: 07,2555           12604                           TCF      SURFJOB                               
011859,000601: 
011860,000602: 07,2556           34737                           CAF      BIT13                                 #  CLEAR BIT13 TO SHOW MARK MADE
011861,000603: 07,2557           61547                           AD       XYMARK                                #  SET MARK ID IN MARKSTAT
011862,000604: 07,2560           40000                           COM                                            
011863,000605: 07,2561           71312                           MASK     MARKSTAT                              
011864,000606: 07,2562           61547                           AD       XYMARK                                
011865,000607: 07,2563           55312                           TS       MARKSTAT                              
011866,000608: 07,2564           75015                           MASK     PRIO3                                 #  SEE IF X, Y MARK MADE
011867,000609: 07,2565           54001                           TS       L                                     
011868,000610: 

Page 274

011870,000612: 07,2566           35015                           CA       PRIO3                                 
011871,000613: 07,2567           00006                           EXTEND                                         
011872,000614: 07,2570           06001                           RXOR     LCHAN                                 
011873,000615: 07,2571           10000                           CCS      A                                     
011874,000616: 07,2572           12577                           TCF      REMARK                                #  NOT PAIR YET, DISPLAY MARK ACTION
011875,000617: 07,2573           41312                           CS       MARKSTAT                              #  MARK PAIR COMPLETE-SET BIT14
011876,000618: 07,2574           74736                           MASK     BIT14                                 
011877,000619: 07,2575           27312                           ADS      MARKSTAT                              
011878,000620: 07,2576           12577                           TCF      REMARK                                #  GO DISPLAY V54
011879,000621: 

Page 275

011881,000623: 07,2577           35015        REMARK             CAF      PRIO3                                 #  BITS 10 AND 11
011882,000624: 07,2600           71312                           MASK     MARKSTAT                              
011883,000625: 07,2601           00006                           EXTEND                                         
011884,000626: 07,2602           74746                           MP       BIT6                                  #  SHIFT MARK IDS TO BE 0 TO 3 FOR INDEX
011885,000627: 07,2603           55550                           TS       MKDEX                                 #  STORE VERB INDEX
011886,000628: 07,2604           35025        SURFJOB            CAF      PRIO15                                
011887,000629: 07,2605           05072                           TC       NOVAC                                 #  ENTER JOB TO CHANGE DISPLAY TO
011888,000630: 07,2606  E7,1547                                  EBANK=   XYMARK                                #  REQUEST NEXT ACTION
011889,000631: 07,2606           02611 16067                     2CADR    CHANGEVB                              
011890,000632: 
011891,000633: 07,2610           05270                           TC       RESUME                                
011892,000634: 
011893,000635: 07,2611           02514        CHANGEVB           TC       MARKTYPE                              
011894,000636: 07,2612           12627                           TCF      DSPV6N79                              #  SURFACE-DISPLAY V 06 N 79
011895,000637: 07,2613           51550                           INDEX    MKDEX                                 #  INFLIGHT-PICK UP MARK VB INDEX
011896,000638: 07,2614           32616                           CAF      MKVB54                                
011897,000639: 07,2615           02211                           TC       PASTIT                                #  PASTE UP NEXT MK VERB DISPLAY
011898,000640: 
011899,000641:                                                                                                  #  THE FOUR MKVBS ARE INDEXED-THEIR ORDER CANNOT BE CHANGED
011900,000642: 
011901,000643: 07,2616           15507        MKVB54             VN       5471                                  #  MAKE X OR Y MARK
011902,000644: 07,2617           15307        MKVB53             VN       5371                                  #  MAKE Y MARK
011903,000645: 07,2620           15107        MKVB52             VN       5271                                  #  MAKE X MARK
011904,000646: 07,2621           15507        MKVB54*            VN       5471                                  #  MAKE X OR Y MARK
011905,000647: 07,2622           04000 00000  DP1/8              2DEC     .125                                  
011906,000648: 07,2624           00034        OCT34              OCT      34                                    
011907,000649: 07,2625           01507        V06N71             VN       671                                   
011908,000650: 07,2626           01517        V06N79*            VN       679                                   
011909,000651: 

Page 276

011911,000653:                                                                                                  #  ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
011912,000654: 07,2627                                           COUNT*   $$/R59                                
011913,000655: 
011914,000656: 07,2627           32626        DSPV6N79           CAF      V06N79*                               #  CURSOR-SPIRAL DISPLAY
011915,000657: 07,2630           04616                           TC       BANKCALL                              
011916,000658: 07,2631           20212                           CADR     GOMARKF                               
011917,000659: 
011918,000660: 07,2632           16001                           TCF      GOTOPOOH                              #  V34-TERMINATE
011919,000661: 07,2633           12641                           TCF      SURFEND                               #  V33-PROCEED, END MARKING
011920,000662: 07,2634           34746                           CAF      BIT6                                  #  IF V32(OCT40) IN MPAC DO RECYCLE
011921,000663: 07,2635           70154                           MASK     MPAC                                  #  OTHERWISE IT IS LOAD VB ENTER SO
011922,000664: 07,2636           10000                           CCS      A                                     #  RE-DISPLAY V06N79
011923,000665: 07,2637           12645                           TCF      SURFAGAN                              #  VB32-RECYCLE
011924,000666: 07,2640           12627                           TCF      DSPV6N79                              #  ENTER
011925,000667: 
011926,000668: 07,2641           44736        SURFEND            CS       BIT14                                 #  SET BIT14 TO SHOW MARK END
011927,000669: 07,2642           71312                           MASK     MARKSTAT                              
011928,000670: 07,2643           64736                           AD       BIT14                                 
011929,000671: 07,2644           55312                           TS       MARKSTAT                              
011930,000672: 
011931,000673: 07,2645           31045        SURFAGAN           CA       CURSOR                                
011932,000674: 07,2646           51550                           INDEX    MKDEX                                 #  HOLDS VAC AREA POINTER FOR SURF MARKING
011933,000675: 07,2647           54001                           TS       1                                     #  STORE CURSOR SP 2COMP
011934,000676: 07,2650           31046                           CA       SPIRAL                                
011935,000677: 07,2651           51550                           INDEX    MKDEX                                 
011936,000678: 07,2652           54003                           TS       3                                     #  STORE SPIRAL
011937,000679: 
011938,000680: 07,2653           41312                           CS       MARKSTAT                              #  IF BIT 14 SET-END MARKING
011939,000681: 07,2654           74736                           MASK     BIT14                                 
011940,000682: 07,2655           00006                           EXTEND                                         
011941,000683: 07,2656           12216                           BZF      MARKCHEX                              
011942,000684: 07,2657           31546                           CA       MARKCNTR                              #  THIS IS RECYCLE-SEE IF 5 MARKS ALREADY
011943,000685: 07,2660           64753                           AD       ONE                                   
011944,000686: 07,2661           40000                           COM                                            
011945,000687: 07,2662           64756                           AD       FIVE                                  
011946,000688: 07,2663           00006                           EXTEND                                         
011947,000689: 07,2664           62454                           BZMF     5MKALARM                              #  CANT RECYCLE-TO MANY MARKS-ALARM
011948,000690: 07,2665           25546                           INCR     MARKCNTR                              #  OF FOR RECYCLE-INCR COUNTER
011949,000691: 07,2666           12205                           TCF      GETMKS     +3                         #  GO DISPLAY MARK VB

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