Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

010304,000002:                                                                                                  ## Copyright:   Public domain.
010305,000003:                                                                                                  ## Filename:    AOTMARK.agc
010306,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
010307,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
010308,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
010309,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
010310,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
010311,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
010312,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
010313,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
010314,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
010315,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
010316,000014:                                                                                                  ##              the original YUL assembler.
010317,000015:                                                                                                  ##
010318,000016:                                                                                                  ## Assembler:   yaYUL
010319,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
010320,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
010321,000019:                                                                                                  ## Pages:       244-261
010322,000020:                                                                                                  ## Mod history: 2009-05-10 SN   (Sergio Navarro).  Started adapting
010323,000021:                                                                                                  ##                              from the Luminary131/ file of the same
010324,000022:                                                                                                  ##                              name, using Luminary099 page images.
010325,000023:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
010326,000024:                                                                                                  ##              2016-12-13 RSB  Proofed text comments with octopus/ProoferComments
010327,000025:                                                                                                  ##                              and corrected the errors found.
010328,000026:                                                                                                  ##              2017-03-06 RSB  Some comment-text fixes identified while proofing
010329,000027:                                                                                                  ##                              Luminary 116.
010330,000028:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes identified in 5-way
010331,000029:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
010332,000030:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
010333,000031:                                                                                                  ##              2017-08-19 MAS  Fixed a typo found while transcribing Zerlina 56.
010334,000032: 
010335,000033:                                                                                                  ## This source code has been transcribed or otherwise adapted from
010336,000034:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
010337,000035:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
010338,000036:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
010339,000037:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
010340,000038:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
010341,000039:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
010342,000040:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
010343,000041:                                                                                                  ## actually created.
010344,000042:                                                                                                  ##
010345,000043:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
010346,000044:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
010347,000045:                                                                                                  ## the listing from which it was transcribed. It has been verified to
010348,000046:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
010349,000047:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
010350,000048:                                                                                                  ##
010351,000049:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
010352,000050:                                                                                                  ##
010353,000051:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
010354,000052: 

Page 244

010356,000054: 12,2000                                           BANK     12                                    
010357,000055: 07,2000                                           SETLOC   AOTMARK1                              
010358,000056: 07,2000                                           BANK                                           
010359,000057: 
010360,000058: 07,2000  E7,1551                                  EBANK=   XYMARK                                
010361,000059: 07,2000                                           COUNT*   $$/MARK                               
010362,000060: 
010363,000061: 07,2000           00004        AOTMARK            INHINT                                         
010364,000062: 07,2001           11312                           CCS      MARKSTAT                              #  SEE IF AOTMARK BUSY
010365,000063: 07,2002           02004                           TC       +2                                    #  MARK SYSTEM BUSY - DO ALARM
010366,000064: 07,2003           02006                           TC       EXTVBCHK                              
010367,000065: 07,2004           05652                           TC       POODOO                                
010368,000066: 07,2005           00105                           OCT      00105                                 
010369,000067: 
010370,000068: 07,2006           36242        EXTVBCHK           CAF      SIX                                   #  SEE IF EXT. VERB WORKING
010371,000069: 07,2007           71044                           MASK     EXTVBACT                              
010372,000070: 07,2010           10000                           CCS      A                                     
010373,000071: 07,2011           12044                           TCF      MKABORT                               #  YES - ABORT
010374,000072: 
010375,000073: 07,2012           34752                           CAF      BIT2                                  #  NO - DISALLOW SOME EXTENDED VERB ACTION
010376,000074: 07,2013           27044                           ADS      EXTVBACT                              #  BIT2 RESET IN ENDMARK
010377,000075: 07,2014           10400        MKVAC              CCS      VAC1USE                               #  LOOK FOR A VAC AREA - DO ABORT IF
010378,000076: 07,2015           12031                           TCF      MKVACFND                              #  NONE AVAILABLE
010379,000077: 07,2016           10454                           CCS      VAC2USE                               
010380,000078: 07,2017           12031                           TCF      MKVACFND                              
010381,000079: 07,2020           10530                           CCS      VAC3USE                               
010382,000080: 07,2021           12031                           TCF      MKVACFND                              
010383,000081: 07,2022           10604                           CCS      VAC4USE                               
010384,000082: 07,2023           12031                           TCF      MKVACFND                              
010385,000083: 07,2024           10660                           CCS      VAC5USE                               
010386,000084: 07,2025           12031                           TCF      MKVACFND                              
010387,000085: 07,2026           52134                           DXCH     BUF2                                  
010388,000086: 07,2027           05716                           TC       BAILOUT1                              #  ALL VAC AREAS OCCUPIED - ABORT.
010389,000087: 07,2030           01207                           OCT      01207                                 
010390,000088: 
010391,000089: 07,2031           64752        MKVACFND           AD       TWO                                   
010392,000090: 07,2032           55312                           TS       MARKSTAT                              #  STORE VAC ADR IN LOW 9 OF MARKSTAT
010393,000091: 
010394,000092: 07,2033           34755                           CAF      ZERO                                  
010395,000093: 07,2034           51312                           INDEX    MARKSTAT                              
010396,000094: 07,2035           53777                           TS       0          -1                         #  ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
010397,000095: 
010398,000096: 07,2036           35025                           CAF      PRIO15                                
010399,000097: 07,2037           05105                           TC       FINDVAC                               #  SET UP JOB FOR GETDAT
010400,000098: 07,2040  E7,1551                                  EBANK=   XYMARK                                
010401,000099: 07,2040           02063 16067                     2CADR    GETDAT                                
010402,000100: 
010403,000101: 07,2042           00003                           RELINT                                         
010404,000102: 07,2043           14631                           TCF      SWRETURN                              

Page 245

010406,000104: 07,2044           52134        MKABORT            DXCH     BUF2                                  
010407,000105: 07,2045           05716                           TC       BAILOUT1                              #  CONFLICT WITH EXTENDED VERB
010408,000106: 07,2046           01211                           OCT      01211                                 
010409,000107: 
010410,000108: 07,2047           34755        MKRELEAS           CAF      ZERO                                  
010411,000109: 07,2050           57312                           XCH      MARKSTAT                              #  SET MARKSTAT TO ZERO
010412,000110: 07,2051           75004                           MASK     LOW9                                  #  PICK UP VAC AREA ADR
010413,000111: 07,2052           10000                           CCS      A                                     
010414,000112: 07,2053           50000                           INDEX    A                                     
010415,000113: 07,2054           54000                           TS       0                                     #  SHOW MKVAC AREA AVAILABLE
010416,000114: 07,2055           34753                           CAF      ONE                                   
010417,000115: 07,2056           04674                           TC       IBNKCALL                              
010418,000116: 07,2057           17665                           CADR     GOODEND                               #  GO WAKE UP CALLING JOB
010419,000117: 

Page 246

010421,000119: 07,2060           34755        KILLAOT            CAF      ZERO                                  
010422,000120: 07,2061           55044                           TS       EXTVBACT                              #  TERMINATE AOTMARK - ALLOW EXT VERB
010423,000121: 07,2062           06001                           TC       GOTOPOOH                              
010424,000122: 07,2063           41312        GETDAT             CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
010425,000123: 07,2064           74740                           MASK     BIT12                                 #        BIT12 RESET AT GETMARK
010426,000124: 07,2065           27312                           ADS      MARKSTAT                              
010427,000125: 
010428,000126: 07,2066           32330                           CAF      V01N71                                #  DISPLAY DETENT AND STAR CODE
010429,000127: 07,2067           04616                           TC       BANKCALL                              
010430,000128: 07,2070           20334                           CADR     GOMARKF                               
010431,000129: 
010432,000130: 07,2071           12060                           TCF      KILLAOT                               #  V34 - DOES GOTOPOOH
010433,000131: 07,2072           12074                           TCF      DODAT                                 #  V33 - PROCEED - USE THIS STAR FOR MARKS
010434,000132: 07,2073           12063        ENTERDAT           TCF      GETDAT                                #  ENTER - REDISPLAY STAR CODE
010435,000133: 
010436,000134: 07,2074           37744        DODAT              CAF      HIGH9                                 #  PICK DETENT CODE FROM BITS7-9 OF AOTCODE
010437,000135: 07,2075           70735                           MASK     AOTCODE                               #  AND SEE IF CODE 1 TO 6
010438,000136: 07,2076           00006                           EXTEND                                         
010439,000137: 07,2077           74743                           MP       BIT9                                  
010440,000138: 07,2100           55551                           TS       XYMARK                                #  STORE DETENT
010441,000139: 
010442,000140: 07,2101           00006                           EXTEND                                         
010443,000141: 07,2102           62063                           BZMF     GETDAT                                #  COAS CALIBRATION CODE - NO GOOD HERE
010444,000142: 
010445,000143: 07,2103           65660                           AD       NEG7                                  #  SEE IF DETENT 7 FOR COAS
010446,000144: 07,2104           00006                           EXTEND                                         
010447,000145: 07,2105           12107                           BZF      CODE7                                 
010448,000146: 
010449,000147: 07,2106           12123                           TCF      CODE1TO6                              
010450,000148: 
010451,000149: 07,2107           32331        CODE7              CAF      V06N87*                               #  CODE 7, COAS SIGHTING, GET OPTIC AXIS
010452,000150: 07,2110           04616                           TC       BANKCALL                              #  AZ AND EL OF SIGHTING DEVICE FROM ASTRO
010453,000151: 07,2111           20334                           CADR     GOMARKF                               
010454,000152: 
010455,000153: 07,2112           12060                           TCF      KILLAOT                               #  V34 - DOES GOTOPOOH
010456,000154: 07,2113           12115                           TCF      +2                                    #  PROCEED
010457,000155: 07,2114           12107                           TCF      CODE7                                 #  ON ENTER, RECYCLE
010458,000156: 07,2115           00006                           EXTEND                                         
010459,000157: 07,2116           31350                           DCA      AZ                                    #  PICK UP AZ AND EL IN SP 2S COMP
010460,000158: 07,2117           50120                           INDEX    FIXLOC                                
010461,000159: 07,2120           52011                           DXCH     8D                                    #  STORE IN 8D AND 9D OF LOCAL VAC
010462,000160: 07,2121           34755                           CAF      ZERO                                  #  BACKUP SYSTEM TO BE USED
010463,000161: 07,2122           12137                           TCF      COASCODE                              #  ZERO APPARENT ROTATION
010464,000162: 
010465,000163: 07,2123           51551        CODE1TO6           INDEX    XYMARK                                #  INDEX AOT POSITION BY DET CODE
010466,000164: 07,2124           31411                           CA       AOTEL      -1                         
010467,000165: 07,2125           50120                           INDEX    FIXLOC                                
010468,000166: 07,2126           54011                           TS       9D                                    #  STORE ELEVATION IN VAC+9D
010469,000167: 
010470,000168: 07,2127           51551                           INDEX    XYMARK                                #  INDEX DET CODE 1,2 OR 3

Page 247

010472,000170: 07,2130           31403                           CA       AOTAZ      -1                         
010473,000171: 07,2131           50120                           INDEX    FIXLOC                                
010474,000172: 07,2132           54010                           TS       8D                                    #  STORE AZIMUTH IN VAC +8D
010475,000173: 
010476,000174: 07,2133           31405                           CA       AOTAZ      +1                         #  COMPENSATION FOR APPARENT ROTATION OF
010477,000175: 07,2134           00006                           EXTEND                                         #  AOT FIELD OF VIEW IN LEFT AND RIGTHT
010478,000176: 07,2135           50120                           INDEX    FIXLOC                                #  DETENTS IS STORED IN VAC +10D IN SP
010479,000177: 07,2136           20010                           MSU      8D                                    #  PRECISION ONES COMPLEMENT
010480,000178: 07,2137           50120        COASCODE           INDEX    FIXLOC                                
010481,000179: 07,2140           54012                           TS       10D                                   #  ROT ANGLE
010482,000180: 
010483,000181: 07,2141           06037                           TC       INTPRET                               #  COMPUTE X AND Y PLANE VECTORS
010484,000182: 

Page 248

010486,000184:                                                                                                  #  THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
010487,000185:                                                                                                  #  AND ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
010488,000186:                                                                                                  #  OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
010489,000187: 
010490,000188:                                                                                                  #        INPUT - AZIMUTH ANGLE IN SINGLE PREC AT CDU SCALE IN 8D OF JOB VAC
010491,000189:                                                                                                  #                        ELEVATION ANGLE IN SINGLE PREC AT CDU SCALE IN 9D OF JOB VAC
010492,000190:                                                                                                  #                        ROTATION ANGLE IN SINGLE PREC 1S COMP SCALED BY PI IN 10D OF VAC
010493,000191: 
010494,000192:                                                                                                  #        OUTPUT -        OPTIC AXIS VEC IN NB COORDS IN SCAXIS
010495,000193:                                                                                                  #                        X-MARK PLANE 1/4VEC IN NB COORDS AT 18D OF JOB VAC
010496,000194:                                                                                                  #                        Y-MARK PLANE 1/4VEC IN NB COORDS AT 12D OF JOB VAC
010497,000195: 
010498,000196: 07,2142           77624        OPTAXIS            CALL                                           #  GO COMPUTE OA AND X AND Y PLANE VECS
010499,000197: 07,2143           10536                                    OANB                                  
010500,000198: 07,2144           70535                           SLOAD    SR1                                   #  LOAD APP ROTATION IN ONES COMP
010501,000199: 07,2145           00013                                    10D                                   #  RESCALE BY 2PI
010502,000200: 07,2146           73406                           PUSH     SIN                                   #  1/2SIN(ROT) 0-1
010503,000201: 07,2147           71525                           PDDL     COS                                   
010504,000202: 07,2150           74206                           PUSH     VXSC                                  #  1/2COS(ROT) 2-3
010505,000203: 07,2151           00023                                    18D                                   
010506,000204: 07,2152           74325                           PDDL     VXSC                                  #  1/4COS(ROT)UYP 4-9
010507,000205: 07,2153           00001                                    0                                     
010508,000206: 07,2154           00031                                    24D                                   #  1/4SIN(ROT)UXP
010509,000207: 07,2155           45445                           BVSU     STADR                                 #  UP 4-9
010510,000208: 07,2156           63762                           STODL    12D                                   #  YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP)
010511,000209: 07,2157           65361                           VXSC     PDDL                                  #  UP 2-3 UP 0-1 FOR EXCHANGE
010512,000210: 07,2160           00031                                    24D                                   #  1/4COS(ROT)UXP        PUSH 0-5
010513,000211: 07,2161           53361                           VXSC     VAD                                   #  1/4SIN(ROT)UYP
010514,000212: 07,2162           00023                                    18D                                   #  UP 0-5
010515,000213: 07,2163           77626                           STADR                                          
010516,000214: 07,2164           53754                           STOVL    18D                                   #  XPNB=1/4(COS(ROT)UXP+SIN(ROT)UYP)
010517,000215: 07,2165           24007                                    LO6ZEROS                              #  INITIALIZE AVE STAR VEC ACCUMULATOR
010518,000216: 07,2166           02715                           STORE    STARAD     +6                         
010519,000217: 07,2167           77776                           EXIT                                           
010520,000218: 07,2170           12202                           TCF      GETMKS                                
010521,000219: 

Page 249

010523,000221:                                                                                                  #  THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
010524,000222:                                                                                                  #  FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
010525,000223: 
010526,000224:                                                                                                  #        INPUT - AZIMUTH ANGLE IN SINGLE PREC 2S COMP IN 8D OF JOB VAC
010527,000225:                                                                                                  #                        ELEVATION ANGLE IN SINGLE PREC 2S COMP IN 9D OF VAC
010528,000226: 
010529,000227:                                                                                                  #        OUTPUT -        OPTIC AXIS IN NB COORDS. IN SCAXIS
010530,000228:                                                                                                  #                        X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC
010531,000229:                                                                                                  #                        Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
010532,000230: 
010533,000231: 05,3402                                           BANK     05                                    
010534,000232: 04,2000                                           SETLOC   AOTMARK2                              
010535,000233: 04,2000                                           BANK                                           
010536,000234: 
010537,000235: 04,2536                                           COUNT*   $$/MARK                               
010538,000236: 
010539,000237: 04,2536           44001        OANB               SETPD    STQ                                   
010540,000238: 04,2537           00001                                    0                                     
010541,000239: 04,2540           02736                                    GCTR                                  #  STORE RETURN
010542,000240: 04,2541           47135                           SLOAD    RTB                                   
010543,000241: 04,2542           00012                                    9D                                    #  PICK UP SP ELV
010544,000242: 04,2543           21576                                    CDULOGIC                              
010545,000243: 04,2544           71406                           PUSH     COS                                   
010546,000244: 04,2545           73525                           PDDL     SIN                                   #  1/2COS(ELV)   PD 0-1
010547,000245: 04,2546           77626                           STADR                                          
010548,000246: 04,2547           60012                           STODL    SCAXIS                                #  OAX=1/2SIN(ELV)
010549,000247: 04,2550           00011                                    8D                                    #  PICK UP AZ SP
010550,000248: 04,2551           77634                           RTB                                            
010551,000249: 04,2552           21576                                    CDULOGIC                              
010552,000250: 04,2553           71406                           PUSH     COS                                   
010553,000251: 04,2554           00025                           STORE    20D                                   #  STORE UYP(Y) 20-21
010554,000252: 04,2555           73525                           PDDL     SIN                                   #  1/2COS(AZ) PD 2-3
010555,000253: 04,2556           57406                           PUSH     DCOMP                                 #  PUSH 1/2SIN(AZ) 4-5
010556,000254: 04,2557           14027                           STODL    22D                                   #  STORE UYP(Z) 22-23
010557,000255: 04,2560           24007                                    LO6ZEROS                              
010558,000256: 04,2561           14023                           STODL    18D                                   #  STORE UYP(X) 18-19   UP 4-5
010559,000257: 04,2562           72405                           DMP      SL1                                   
010560,000258: 04,2563           00001                                    0                                     
010561,000259: 04,2564           17767                           STODL    SCAXIS     +2                         #  OAY=1/2COS(ELV)SIN(AZ)
010562,000260: 04,2565           72405                           DMP      SL1                                   #  UP    2-3
010563,000261: 04,2566           77626                           STADR                                          #  UP    0-1
010564,000262: 04,2567           50006                           STOVL    SCAXIS     +4                         #  OAZ=1/2COS(ELV)COS(AZ)
010565,000263: 04,2570           00023                                    18D                                   #  LOAD UYP VEC
010566,000264: 04,2571           53435                           VXV      UNIT                                  
010567,000265: 04,2572           03765                                    SCAXIS                                #  UXP VEC=UYP X OA
010568,000266: 04,2573           00031                           STORE    24D                                   #  STORE UXP
010569,000267: 04,2574           77650                           GOTO                                           
010570,000268: 04,2575           02736                                    GCTR                                  

Page 250

010572,000270:                                                                                                  #  SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
010573,000271:                                                                                                  #  SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
010574,000272:                                                                                                  #  
010575,000273:                                                                                                  #        GIVEN   X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
010576,000274:                                                                                                  #                Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
010577,000275:                                                                                                  #                CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
010578,000276:                                                                                                  #                SPIRAL SP 2COMP AT POSITION 3 OF INDEXED MARKVAC
010579,000277:                                                                                                  #                CDUY,Z,X AT POSITIONS 0,2,4 OF INDEXED MARKVAC
010580,000278: 
010581,000279: 15,2000                                           BANK     15                                    
010582,000280: 15,2000                                           SETLOC   P50S                                  
010583,000281: 15,2000                                           BANK                                           
010584,000282: 15,2000                                           COUNT*   $$/R59                                
010585,000283: 
010586,000284: 15,2000           77773        SURFSTAR           VLOAD*                                         
010587,000285: 15,2001           00001                                    0,1                                   #  PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
010588,000286: 15,2002           00767                           STORE    CDUSPOT                               
010589,000287: 15,2003           47133                           SLOAD*   RTB                                   
010590,000288: 15,2004           00002                                    1,1                                   #  PICK UP YROT
010591,000289: 15,2005           21576                                    CDULOGIC                              
010592,000290: 15,2006           00031                           STORE    24D                                   #  STORE CURSOR FOR SPIRAL COMP (REVS)
010593,000291: 15,2007           77654                           BZE                                            
010594,000292: 15,2010           16171                                    YZCHK                                 #  IF YROT ZERO - SEE IF SROT ZERO
010595,000293: 15,2011           71406        JUSTZY             PUSH     COS                                   
010596,000294: 15,2012           73525                           PDDL     SIN                                   #  1/2COS(YROT)  0-1
010597,000295: 15,2013           65361                           VXSC     PDDL                                  #  UP 0-1        1/8SIN(YROT)UXP 0-5
010598,000296: 15,2014           00023                                    18D                                   
010599,000297: 15,2015           52361                           VXSC     VSU                                   #  UP    0-5
010600,000298: 15,2016           00015                                    12D                                   #  UYP
010601,000299: 15,2017           47256                           UNIT     VXV                                   
010602,000300: 15,2020           03765                                    SCAXIS                                
010603,000301: 15,2021           41456                           UNIT     PUSH                                  
010604,000302: 15,2022           47133                           SLOAD*   RTB                                   
010605,000303: 15,2023           00004                                    3,1                                   #  PICK UP SPIRAL
010606,000304: 15,2024           21576                                    CDULOGIC                              
010607,000305: 15,2025           00033                           STORE    26D                                   #  STORE SPIRAL (REVS)
010608,000306: 15,2026           43225                           DSU      DAD                                   
010609,000307: 15,2027           00031                                    24D                                   
010610,000308: 15,2030           32047                                    ABOUTONE                              
010611,000309: 15,2031           77605                           DMP                                            
010612,000310: 15,2032           32466                                    DP1/12                                
010613,000311: 15,2033           00033                           STORE    26D                                   #  SEP=(360 + SPIRAL -CURSOR)/12
010614,000312: 15,2034           74356                           SIN      VXSC                                  #  UP    0-5
010615,000313: 15,2035           65372                           VSL1     PDDL                                  #  1/2SIN(SEP)(UPP X OA) 0-5
010616,000314: 15,2036           00033                                    26D                                   
010617,000315: 15,2037           74346                           COS      VXSC                                  
010618,000316: 15,2040           03765                                    SCAXIS                                
010619,000317: 15,2041           53372                           VSL1     VAD                                   #  UP    0-5
010620,000318: 15,2042           45056        JUSTOA             UNIT     CALL                                  
010621,000319: 15,2043           47664                                    TRG*NBSM                              
010622,000320: 15,2044           34031                           STCALL   24D                                   #  STAR VEC IN SM
010623,000321: 15,2045           16276                                    AVEIT                                 #  GO AVERAGE

Page 251

010625,000323: 15,2046           37777 37775  ABOUTONE           2DEC     .99999999                             
010626,000324: 
010627,000325: 15,2050  15,2465               DP1/12             EQUALS   DEG30                                 #  .08333333
010628,000326: 07,2171                                           BANK     7                                     
010629,000327: 07,2000                                           SETLOC   AOTMARK1                              
010630,000328: 07,2000                                           BANK                                           
010631,000329: 07,2171                                           COUNT*   $$/MARK                               
010632,000330: 07,2171           53133        YZCHK              SLOAD*   BZE                                   #  YROT ZERO AND IF SROT ZERO FORCE STAR
010633,000331: 07,2172           00004                                    3,1                                   #  ALONG OPTIC AXIS
010634,000332: 07,2173           16177                                    YSZERO                                
010635,000333: 07,2174           52145                           DLOAD    GOTO                                  
010636,000334: 07,2175           00031                                    24D                                   
010637,000335: 07,2176           32011                                    JUSTZY                                #  SROT NOT ZERO - CONTINUE NORMALLY
010638,000336: 07,2177           52175        YSZERO             VLOAD    GOTO                                  
010639,000337: 07,2200           03765                                    SCAXIS                                
010640,000338: 07,2201           32042                                    JUSTOA                                
010641,000339: 

Page 252

010643,000341:                                                                                                  #  THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
010644,000342: 
010645,000343: 07,2202           34755        GETMKS             CAF      ZERO                                  #  INITIALIZE MARK ID REGISTER AND MARK CNT
010646,000344: 07,2203           55551                           TS       XYMARK                                
010647,000345: 07,2204           55550                           TS       MARKCNTR                              
010648,000346: 07,2205           35004                           CAF      LOW9                                  #  ZERO BITS10 TO 15 RETAINING MKVAC ADR
010649,000347: 07,2206           71312                           MASK     MARKSTAT                              
010650,000348: 07,2207           55312                           TS       MARKSTAT                              
010651,000349: 07,2210           32621                           CAF      MKVB54*                               #  DISPLAY VB54 INITIALLY
010652,000350: 07,2211           04616        PASTIT             TC       BANKCALL                              
010653,000351: 07,2212           20345                           CADR     GOMARK4                               
010654,000352: 
010655,000353: 07,2213           12060                           TCF      KILLAOT                               #  V34 - DOES GOTOPOOH
010656,000354: 07,2214           12216                           TCF      MARKCHEX                              #  VB33 - PROCEED, GOT MARKS, COMPUTE LOS
010657,000355: 07,2215           12063                           TCF      GETDAT                                #  ENTER - RECYCLE TO V01N71
010658,000356: 
010659,000357: 07,2216           41312        MARKCHEX           CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
010660,000358: 07,2217           74740                           MASK     BIT12                                 
010661,000359: 07,2220           27312                           ADS      MARKSTAT                              
010662,000360: 07,2221           75004                           MASK     LOW9                                  
010663,000361: 07,2222           55551                           TS       XYMARK                                #  JAM MARK VAC ADR IN XYMARK FOR AVESTAR
010664,000362: 07,2223           34755                           CAF      ZERO                                  
010665,000363: 07,2224           55552                           TS       MKDEX                                 #  SET MKDEX ZERO FOR LOS VEC CNTR
010666,000364: 07,2225           31312                           CA       MARKSTAT                              
010667,000365: 07,2226           75015                           MASK     PRIO3                                 #  SEE IF LAST MK PARI COMPLETE
010668,000366: 07,2227           54001                           TS       L                                     
010669,000367: 07,2230           35015                           CAF      PRIO3                                 #  BITS10 AND 11
010670,000368: 07,2231           00006                           EXTEND                                         
010671,000369: 07,2232           06001                           RXOR     LCHAN                                 
010672,000370: 07,2233           00006                           EXTEND                                         
010673,000371: 07,2234           12241                           BZF      AVESTAR                               #  LAST PAIR COMPLETE - GO COMPUTE LOS
010674,000372: 07,2235           11550        CNTCHK             CCS      MARKCNTR                              #  NO PAIR SHOWING - SEE IF PAIR IN HOLD
010675,000373: 07,2236           12240                           TCF      +2                                    #  PAIR BURIED - DECREMENT COUNTER
010676,000374: 07,2237           12325                           TCF      MKALARM                               #  NO PAIR - ALARM
010677,000375: 07,2240           55550                           TS       MARKCNTR                              #  STORE DECREMENTED COUNTER
010678,000376: 
010679,000377: 07,2241           34740        AVESTAR            CAF      BIT12                                 #  INITIALIZE MKDEX FOR STAR LOS COUNTER
010680,000378: 07,2242           27552                           ADS      MKDEX                                 #  MKDEX WAS INITIALIZED ZERO IN MARKCHEX
010681,000379: 07,2243           41550                           CS       MARKCNTR                              
010682,000380: 07,2244           00006                           EXTEND                                         
010683,000381: 07,2245           76242                           MP       SIX                                   #  GET C(L) = -6 MARKCNTR
010684,000382: 07,2246           41551                           CS       XYMARK                                
010685,000383: 07,2247           60001                           AD       L                                     #  ADD - MARK VAC ADR SET IN MARKCHEX
010686,000384: 07,2250           50120                           INDEX    FIXLOC                                
010687,000385: 07,2251           54046                           TS       X1                                    #  JAM - CDU ADR OF X-MARK IN X1
010688,000386: 
010689,000387: 07,2252           30120                           CA       FIXLOC                                #  SET PD POINTER TO ZERO
010690,000388: 07,2253           54166                           TS       PUSHLOC                               
010691,000389: 
010692,000390: 07,2254           06037                           TC       INTPRET                               

Page 253

010694,000392: 07,2255           76614                           BON      VLOAD*                                
010695,000393: 07,2256           04307                                    SURFFLAG                              #  IF ON SURFACE COMPUTE VEC AT SURFSTAR
010696,000394: 07,2257           32000                                    SURFSTAR                              
010697,000395: 07,2260           00002                                    1,1                                   #  PUT Y-MARK CDUS IN CDUSPOT FOR TRG*NBSM
010698,000396: 07,2261           24767                           STOVL    CDUSPOT                               
010699,000397: 07,2262           00015                                    12D                                   #  LOAD Y-PLANE VECTOR IN NB
010700,000398: 07,2263           77624                           CALL                                           
010701,000399: 07,2264           47664                                    TRG*NBSM                              #  CONVERT IT TO STABLE MEMBER
010702,000400: 07,2265           76606                           PUSH     VLOAD*                                
010703,000401: 07,2266           00001                                    0,1                                   #  PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
010704,000402: 07,2267           24767                           STOVL    CDUSPOT                               
010705,000403: 07,2270           00023                                    18D                                   #  LOAD X-PLANE VECTOR IN NB
010706,000404: 07,2271           77624                           CALL                                           
010707,000405: 07,2272           47664                                    TRG*NBSM                              #  CONVERT IT TO STABLE-MEMBER
010708,000406: 07,2273           53435                           VXV      UNIT                                  #  UNIT(XPSM * YPSM)
010709,000407: 07,2274           77626                           STADR                                          
010710,000408: 07,2275           77746                           STORE    24D                                   
010711,000409: 
010712,000410: 07,2276           63335        AVEIT              SLOAD    PDVL                                  #  N(NUMBER OF VECS) IN 0-1
010713,000411: 07,2277           03553                                    MKDEX                                 
010714,000412: 07,2300           00031                                    24D                                   #  LOAD CURRENT VECTOR
010715,000413: 07,2301           70322                           VSR3     V/SC                                  
010716,000414: 07,2302           00001                                    0                                     
010717,000415: 07,2303           14031                           STODL    24D                                   #  VEC/N
010718,000416: 07,2304           00001                                    0                                     
010719,000417: 07,2305           56225                           DSU      DDV                                   
010720,000418: 07,2306           16623                                    DP1/8                                 #  (N-1)/N
010721,000419: 07,2307           53361                           VXSC     VAD                                   
010722,000420: 07,2310           02715                                    STARAD     +6                         #  ADD VEC TO PREVIOUSLY AVERAGED VECTOR
010723,000421: 07,2311           00031                                    24D                                   #  (N-1)/N AVESTVEC + VEC/N
010724,000422: 07,2312           02715                           STORE    STARAD     +6                         #  AVERAGE STAR VECTOR
010725,000423: 07,2313           02767                           STORE    STARSAV2                              
010726,000424: 07,2314           77776                           EXIT                                           
010727,000425: 07,2315           11550                           CCS      MARKCNTR                              #  SEE IF ANOTHER MARK PAIR IN MKVAC
010728,000426: 07,2316           12240                           TCF      AVESTAR    -1                         #  THERE IS - GO GET IT - DECREMENT COUNTER
010729,000427: 07,2317           34756        ENDMARKS           CAF      FIVE                                  #  NO MORE MARKS - TERMINATE AOTMARK
010730,000428: 07,2320           00004                           INHINT                                         
010731,000429: 07,2321           05203                           TC       WAITLIST                              
010732,000430: 07,2322  E7,1551                                  EBANK=   XYMARK                                
010733,000431: 07,2322           02047 16067                     2CADR    MKRELEAS                              
010734,000432: 
010735,000433: 07,2324           05472                           TC       ENDMARK                               
010736,000434: 
010737,000435: 07,2325           05567        MKALARM            TC       ALARM                                 #  NOT A PAIR TO PROCESS - DO GETMKS
010738,000436: 07,2326           00111                           OCT      111                                   
010739,000437: 07,2327           12202                           TCF      GETMKS                                
010740,000438: 
010741,000439: 07,2330           00307        V01N71             VN       171                                   
010742,000440: 07,2331           01527        V06N87*            VN       687                                   
010743,000441: 

Page 254

010745,000443:                                                                                                  #  MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
010746,000444:                                                                                                  #  CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
010747,000445: 
010748,000446: 07,2332           54016        MARKRUPT           TS       BANKRUPT                              
010749,000447: 07,2333           30033                           CA       CDUY                                  #  STORE CDUS AND TIME NOW - THEN SEE IF
010750,000448: 07,2334           54063                           TS       ITEMP3                                #  WE NEED THEM
010751,000449: 07,2335           30034                           CA       CDUZ                                  
010752,000450: 07,2336           54064                           TS       ITEMP4                                
010753,000451: 07,2337           30032                           CA       CDUX                                  
010754,000452: 07,2340           54065                           TS       ITEMP5                                
010755,000453: 07,2341           00006                           EXTEND                                         
010756,000454: 07,2342           30025                           DCA      TIME2                                 
010757,000455: 07,2343           52062                           DXCH     ITEMP1                                
010758,000456: 07,2344           56002                           XCH      Q                                     
010759,000457: 07,2345           54012                           TS       QRUPT                                 
010760,000458: 
010761,000459: 07,2346           32624                           CAF      OCT34                                 #  SEE IF X OR Y MARK OR MKREJECT
010762,000460: 07,2347           00006                           EXTEND                                         
010763,000461: 07,2350           02016                           RAND     NAVKEYIN                              
010764,000462: 07,2351           10000                           CCS      A                                     
010765,000463: 07,2352           12354                           TCF      +2                                    #  ITS A LIVE ONE - SEE IF ITS WANTED
010766,000464: 07,2353           12404                           TCF      SOMEKEY                               #  ITS SOME OTHER KEY
010767,000465: 
010768,000466: 07,2354           34740                           CAF      BIT12                                 #  ARE WE ASKING FOR A MARK
010769,000467: 07,2355           71312                           MASK     MARKSTAT                              
010770,000468: 07,2356           10000                           CCS      A                                     
010771,000469: 07,2357           05270                           TC       RESUME                                #  DONT WANT MARK OR MKREJECT - DO NOTHING
010772,000470: 
010773,000471: 07,2360           11312                           CCS      MARKSTAT                              #  ARE MARKS BEING ACCEPTED
010774,000472: 07,2361           12365                           TCF      FINDKEY                               #  THEY ARE - WHICH ONE IS IT
010775,000473: 07,2362           05567                           TC       ALARM                                 #  MARKS NOT BEING ACCEPTED - DO ALARM
010776,000474: 07,2363           00112                           OCT      112                                   
010777,000475: 07,2364           05270                           TC       RESUME                                
010778,000476: 
010779,000477: 07,2365           34747        FINDKEY            CAF      BIT5                                  #  SEE IF MARK REJECT
010780,000478: 07,2366           00006                           EXTEND                                         
010781,000479: 07,2367           02016                           RAND     NAVKEYIN                              
010782,000480: 07,2370           10000                           CCS      A                                     
010783,000481: 07,2371           12461                           TCF      MKREJ                                 #  ITS A MARK REJECT
010784,000482: 
010785,000483: 07,2372           34750                           CAF      BIT4                                  #  SEE IF Y MARK
010786,000484: 07,2373           00006                           EXTEND                                         
010787,000485: 07,2374           02016                           RAND     NAVKEYIN                              
010788,000486: 07,2375           10000                           CCS      A                                     
010789,000487: 
010790,000488: 07,2376           12422                           TCF      YMKRUPT                               #  ITS A Y MARK
010791,000489: 
010792,000490: 07,2377           34751                           CAF      BIT3                                  #  SEE IF X MARK
010793,000491: 07,2400           00006                           EXTEND                                         
010794,000492: 07,2401           02016                           RAND     NAVKEYIN                              
010795,000493: 

Page 255

010797,000495: 07,2402           10000                           CCS      A                                     
010798,000496: 07,2403           12416                           TCF      XMKRUPT                               #  ITS A X MARK
010799,000497: 
010800,000498: 07,2404           34776        SOMEKEY            CAF      OCT140                                #  NOT MARK OR MKREJECT - SEE IF DESCENT BITS
010801,000499: 07,2405           00006                           EXTEND                                         
010802,000500: 07,2406           02016                           RAND     NAVKEYIN                              
010803,000501: 07,2407           00006                           EXTEND                                         
010804,000502: 07,2410           12413                           BZF      +3                                    #  IF NO BITS
010805,000503: 
010806,000504: 07,2411           04635                           TC       POSTJUMP                              #  IF DESCENT BITS
010807,000505: 07,2412           40115                           CADR     DESCBITS                              
010808,000506: 
010809,000507: 07,2413           05567                           TC       ALARM                                 #  NO INBITS IN CHANNEL 16
010810,000508: 07,2414           00113                           OCT      113                                   
010811,000509: 
010812,000510: 07,2415           05270                           TC       RESUME                                
010813,000511: 
010814,000512: 07,2416           34755        XMKRUPT            CAF      ZERO                                  
010815,000513: 07,2417           54070                           TS       RUPTREG1                              #  SET X MARK STORE INDEX TO ZERO
010816,000514: 07,2420           34742                           CAF      BIT10                                 
010817,000515: 07,2421           12425                           TCF      +4                                    
010818,000516: 07,2422           34753        YMKRUPT            CAF      ONE                                   
010819,000517: 07,2423           54070                           TS       RUPTREG1                              #  SET Y MARK STORE INDEX TO ONE
010820,000518: 07,2424           34741                           CAF      BIT11                                 
010821,000519: 07,2425           55551                           TS       XYMARK                                #  SET MARK IDENTIFIATION
010822,000520: 
010823,000521: 07,2426           02514                           TC       MARKTYPE                              #  SEE IF SURFACE MARK
010824,000522: 07,2427           12521                           TCF      SURFSTOR                              #  SURFACE MARK - JUST STORE CDUS
010825,000523: 
010826,000524: 07,2430           34736                           CAF      BIT14                                 #  GOT A MARK - SEE IF MARK PAIR MADE
010827,000525: 07,2431           71312                           MASK     MARKSTAT                              
010828,000526: 07,2432           00006                           EXTEND                                         
010829,000527: 07,2433           12444                           BZF      VERIFYMK                              #  NOT A PAIR, NORMAL PROCEDURE
010830,000528: 07,2434           41550                           CS       MARKCNTR                              #  GOT A PAIR, SEE IF ANOTHER CAN BE MADE
010831,000529: 07,2435           64751                           AD       FOUR                                  #  IF SO, INCREMENT POINTER, CLEAR BITS 10,11
010832,000530: 07,2436           00006                           EXTEND                                         
010833,000531: 07,2437           62454                           BZMF     5MKALARM                              #  HAVE FIVE MARK PAIRS - DONT ALLOW MARK
010834,000532: 07,2440           25550                           INCR     MARKCNTR                              #  OK FOR ANOTHER PAIR, INCR POINTER
010835,000533: 07,2441           47711                           CS       PRIO23                                #  CLEAR BITS 10,11,14 FOR NEXT PAIR
010836,000534: 07,2442           71312                           MASK     MARKSTAT                              
010837,000535: 07,2443           55312                           TS       MARKSTAT                              
010838,000536: 
010839,000537: 07,2444           31551        VERIFYMK           CA       XYMARK                                
010840,000538: 07,2445           71312                           MASK     MARKSTAT                              
010841,000539: 07,2446           10000                           CCS      A                                     
010842,000540: 07,2447           12451                           TCF      +2                                    #  THIS MARK NOT DESIRED
010843,000541: 07,2450           12526                           TCF      VACSTOR                               #  MARK DESIRED - STORE CDUS
010844,000542: 07,2451           05567                           TC       ALARM                                 
010845,000543: 07,2452           00114                           OCT      114                                   
010846,000544: 07,2453           05270                           TC       RESUME                                #  RESUME - DISPLAY UNCHANGED - WAIT FOR ACTION
010847,000545: 

Page 256

010849,000547: 07,2454           05567        5MKALARM           TC       ALARM                                 #  ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS
010850,000548: 07,2455           00107                           OCT      107                                   
010851,000549: 07,2456           02514                           TC       MARKTYPE                              #  SEE IF SURFACE MARK
010852,000550: 07,2457           12627                           TCF      DSPV6N79                              #  IT IS
010853,000551: 07,2460           05270                           TC       RESUME                                #  DONT CHANGE DISPLAY - DO NOTHING
010854,000552: 

Page 257

010856,000554: 07,2461           02514        MKREJ              TC       MARKTYPE                              #  SEE IF SURFACE
010857,000555: 07,2462           12507                           TCF      SURFREJ                               #  SURFACE - JUST CHECK MARK COUNTER
010858,000556: 
010859,000557: 07,2463           35015                           CAF      PRIO3                                 #  INFLIGHT - SEE IF MARKS MADE
010860,000558: 07,2464           71312                           MASK     MARKSTAT                              
010861,000559: 07,2465           10000                           CCS      A                                     
010862,000560: 07,2466           12472                           TCF      REJECT                                #  MARKS MADE - REJECT ONE
010863,000561: 07,2467           05567        REJALM             TC       ALARM                                 #  NO MARK TO REJECT - BAD PROCEDURE - ALARM
010864,000562: 07,2470           00115                           OCT      115                                   
010865,000563: 07,2471           05270                           TC       RESUME                                #  DESIRED ACTION DISPLAYED
010866,000564: 
010867,000565: 07,2472           44355        REJECT             CS       PRIO30                                #  ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
010868,000566: 07,2473           71312                           MASK     MARKSTAT                              #  LAST REJECT
010869,000567: 07,2474           64737                           AD       BIT13                                 
010870,000568: 07,2475           57312                           XCH      MARKSTAT                              
010871,000569: 07,2476           74737                           MASK     BIT13                                 
010872,000570: 07,2477           10000                           CCS      A                                     
010873,000571: 07,2500           12505                           TCF      REJECT2                               #  ANOTHER REJECT SET BIT 10+11 TO ZERO
010874,000572: 
010875,000573: 07,2501           41551                           CS       XYMARK                                #  MARK MADE SINCE REJECT - REJECT MARK IN 1D
010876,000574: 07,2502           71312        RENEWMK            MASK     MARKSTAT                              
010877,000575: 07,2503           55312                           TS       MARKSTAT                              
010878,000576: 07,2504           12577                           TCF      REMARK                                #  GO REQUEST NEW MARK ACTION
010879,000577: 
010880,000578: 07,2505           45015        REJECT2            CS       PRIO3                                 #  ON SECOND REJECT - DISPLAY VB53 AGAIN
010881,000579: 07,2506           12502                           TCF      RENEWMK                               
010882,000580: 
010883,000581: 07,2507           11550        SURFREJ            CCS      MARKCNTR                              #  IF MARK DECREMENT COUNTER
010884,000582: 07,2510           12512                           TCF      +2                                    
010885,000583: 07,2511           12467                           TCF      REJALM                                #  NO MARKS TO REJECT - ALARM
010886,000584: 07,2512           55550                           TS       MARKCNTR                              
010887,000585: 07,2513           05270                           TC       RESUME                                
010888,000586: 

Page 258

010890,000588:                                                                                                  #  MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE.  IF IT IS RETURN TO LOC+1
010891,000589: 
010892,000590: 07,2514           40104        MARKTYPE           CS       FLAGWRD8                              #  SURFFLAG *******TEMPORARY*****
010893,000591: 07,2515           74744                           MASK     BIT8                                  
010894,000592: 07,2516           10000                           CCS      A                                     
010895,000593: 07,2517           24002                           INCR     Q                                     #  IF SURFACE MARK REUTNR TO LOC +1
010896,000594: 07,2520           00002                           TC       Q                                     #  IF INFLIGHT MARK RETURN TO LOC +2
010897,000595: 
010898,000596: 07,2521           34755        SURFSTOR           CAF      ZERO                                  #  FOR SURFACE MARK ZERO MARK KIND INDEX
010899,000597: 07,2522           54070                           TS       RUPTREG1                              
010900,000598: 
010901,000599: 07,2523           41312                           CS       MARKSTAT                              #  SET BITS10,11 TO SHOW SURFACE MARK
010902,000600: 07,2524           75015                           MASK     PRIO3                                 #  FOR MARKCHEX
010903,000601: 07,2525           27312                           ADS      MARKSTAT                              
010904,000602: 
010905,000603: 07,2526           35004        VACSTOR            CAF      LOW9                                  
010906,000604: 07,2527           71312                           MASK     MARKSTAT                              #  STORE MARK VAC ADR IN RUPTREG2
010907,000605: 07,2530           54071                           TS       RUPTREG2                              
010908,000606: 07,2531           00006                           EXTEND                                         
010909,000607: 07,2532           30062                           DCA      ITEMP1                                #  PICK UP MARKTIME
010910,000608: 07,2533           53562                           DXCH     TSIGHT                                #  STORE LAST MARK TIME
010911,000609: 07,2534           31550                           CA       MARKCNTR                              #  6 X MARKCNTR FOR STORE INDEX
010912,000610: 07,2535           00006                           EXTEND                                         
010913,000611: 07,2536           76242                           MP       SIX                                   
010914,000612: 07,2537           56001                           XCH      L                                     #  GET INDEX FROM LOW ORDER PART
010915,000613: 07,2540           60071                           AD       RUPTREG2                              #  SET CDU STORE INDEX TO MARKVAC
010916,000614: 07,2541           26070                           ADS      RUPTREG1                              #  INCREMENT VAC PICKUP BY MARK FOR FLIGHT
010917,000615: 07,2542           55552                           TS       MKDEX                                 #  STORE HERE IN CASE OF SURFACE MARK
010918,000616: 07,2543           30063                           CA       ITEMP3                                
010919,000617: 07,2544           50070                           INDEX    RUPTREG1                              
010920,000618: 07,2545           54000                           TS       0                                     #  STORE CDUY
010921,000619: 07,2546           30064                           CA       ITEMP4                                
010922,000620: 07,2547           50070                           INDEX    RUPTREG1                              
010923,000621: 07,2550           54002                           TS       2                                     #  STORE CDUZ
010924,000622: 07,2551           30065                           CA       ITEMP5                                
010925,000623: 07,2552           50070                           INDEX    RUPTREG1                              
010926,000624: 07,2553           54004                           TS       4                                     #  STORE CDUX
010927,000625: 07,2554           02514                           TC       MARKTYPE                              #  IF SURFACE MARK - JUST DO SURFJOB
010928,000626: 07,2555           12604                           TCF      SURFJOB                               
010929,000627: 
010930,000628: 07,2556           34737                           CAF      BIT13                                 #  CLEAR BIT13 TO SHOW MARK MADE
010931,000629: 07,2557           61551                           AD       XYMARK                                #  SET MARK ID IN MARKSTAT
010932,000630: 07,2560           40000                           COM                                            
010933,000631: 07,2561           71312                           MASK     MARKSTAT                              
010934,000632: 07,2562           61551                           AD       XYMARK                                
010935,000633: 07,2563           55312                           TS       MARKSTAT                              
010936,000634: 07,2564           75015                           MASK     PRIO3                                 #  SEE IF X, Y MARK MADE
010937,000635: 07,2565           54001                           TS       L                                     
010938,000636: 

Page 259

010940,000638: 07,2566           35015                           CA       PRIO3                                 
010941,000639: 07,2567           00006                           EXTEND                                         
010942,000640: 07,2570           06001                           RXOR     LCHAN                                 
010943,000641: 07,2571           10000                           CCS      A                                     
010944,000642: 07,2572           12577                           TCF      REMARK                                #  NOT PAIR YET, DISPLAY MARK ACTION
010945,000643: 07,2573           41312                           CS       MARKSTAT                              #  MARK PAIR COMPLETE - SET BIT14
010946,000644: 07,2574           74736                           MASK     BIT14                                 
010947,000645: 07,2575           27312                           ADS      MARKSTAT                              
010948,000646: 07,2576           12577                           TCF      REMARK                                #  GO DISPLAY V54
010949,000647: 

Page 260

010951,000649: 07,2577           35015        REMARK             CAF      PRIO3                                 #  BITS 10 AND 11
010952,000650: 07,2600           71312                           MASK     MARKSTAT                              
010953,000651: 07,2601           00006                           EXTEND                                         
010954,000652: 07,2602           74746                           MP       BIT6                                  #  SHIFT MARK IDS TO BE 0 TO 3 FOR INDEX
010955,000653: 07,2603           55552                           TS       MKDEX                                 #  STORE VERB INDEX
010956,000654: 07,2604           35025        SURFJOB            CAF      PRIO15                                
010957,000655: 07,2605           05072                           TC       NOVAC                                 #  ENTER JOB TO CHANGE DISPLAY TO
010958,000656: 07,2606  E7,1551                                  EBANK=   XYMARK                                #  REQUEST NEXT ACTION
010959,000657: 07,2606           02611 16067                     2CADR    CHANGEVB                              
010960,000658: 
010961,000659: 07,2610           05270                           TC       RESUME                                
010962,000660: 
010963,000661: 07,2611           02514        CHANGEVB           TC       MARKTYPE                              
010964,000662: 07,2612           12627                           TCF      DSPV6N79                              #  SURFACE - DISPLAY V 06 N 79
010965,000663: 07,2613           51552                           INDEX    MKDEX                                 #  INFLIGHT - PICK UP MARK VB INDEX
010966,000664: 07,2614           32616                           CAF      MKVB54                                
010967,000665: 07,2615           02211                           TC       PASTIT                                #  PASTE UP NEXT MK VERB DISPLAY
010968,000666: 
010969,000667:                                                                                                  #  THE FOUR MKVBS ARE INDEXED - THEIR ORDER CANNOT BE CHANGED
010970,000668: 
010971,000669: 07,2616           15507        MKVB54             VN       5471                                  #  MAKE X OR Y MARK
010972,000670: 07,2617           15307        MKVB53             VN       5371                                  #  MAKE Y MARK
010973,000671: 07,2620           15107        MKVB52             VN       5271                                  #  MAKE X MARK
010974,000672: 07,2621           15507        MKVB54*            VN       5471                                  #  MAKE X OR Y MARK
010975,000673: 07,2622           04000 00000  DP1/8              2DEC     .125                                  
010976,000674: 
010977,000675: 07,2624           00034        OCT34              OCT      34                                    
010978,000676: 07,2625           01507        V06N71             VN       671                                   
010979,000677: 07,2626           01517        V06N79*            VN       679                                   
010980,000678: 

Page 261

010982,000680:                                                                                                  #  ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
010983,000681: 07,2627                                           COUNT*   $$/R59                                
010984,000682: 
010985,000683: 07,2627           32626        DSPV6N79           CAF      V06N79*                               #  CURSOR - SPIRAL DISPLAY
010986,000684: 07,2630           04616                           TC       BANKCALL                              
010987,000685: 07,2631           20334                           CADR     GOMARKF                               
010988,000686: 
010989,000687: 07,2632           12060                           TCF      KILLAOT                               #  V34 - DOES GOTOPOOH
010990,000688: 07,2633           12641                           TCF      SURFEND                               #  V33 - PROCEED, END MARKING
010991,000689: 07,2634           34746                           CAF      BIT6                                  #  IF V32(OCT40) IN MPAC DO RECYCLE
010992,000690: 07,2635           70154                           MASK     MPAC                                  #  OTHERWISE IT IS LOAD VB ENTER SO
010993,000691: 07,2636           10000                           CCS      A                                     #  RE-DISPLAY V06N79
010994,000692: 07,2637           12645                           TCF      SURFAGAN                              #  VB32 - RECYCLE
010995,000693: 07,2640           12627                           TCF      DSPV6N79                              #  ENTER
010996,000694: 
010997,000695: 07,2641           44736        SURFEND            CS       BIT14                                 #  SET BIT14 TO SHOW MARK END
010998,000696: 07,2642           71312                           MASK     MARKSTAT                              
010999,000697: 07,2643           64736                           AD       BIT14                                 
011000,000698: 07,2644           55312                           TS       MARKSTAT                              
011001,000699: 
011002,000700: 07,2645           31236        SURFAGAN           CA       CURSOR                                
011003,000701: 07,2646           51552                           INDEX    MKDEX                                 #  HOLDS VAC AREA POINTER FOR SURF MARKING
011004,000702: 07,2647           54001                           TS       1                                     #  STORE CURSOR SP 2COMP
011005,000703: 07,2650           31240                           CA       SPIRAL                                
011006,000704: 07,2651           51552                           INDEX    MKDEX                                 
011007,000705: 07,2652           54003                           TS       3                                     #  STORE SPIRAL
011008,000706: 
011009,000707: 07,2653           41312                           CS       MARKSTAT                              #  IF BIT 14 SET - END MARKING
011010,000708: 07,2654           74736                           MASK     BIT14                                 
011011,000709: 07,2655           00006                           EXTEND                                         
011012,000710: 07,2656           12216                           BZF      MARKCHEX                              
011013,000711: 07,2657           31550                           CA       MARKCNTR                              #  THIS IS RECYCLE - SEE IF 5 MARKS ALREADY
011014,000712: 07,2660           64753                           AD       ONE                                   
011015,000713: 07,2661           40000                           COM                                            
011016,000714: 07,2662           64756                           AD       FIVE                                  
011017,000715: 07,2663           00006                           EXTEND                                         
011018,000716: 07,2664           62454                           BZMF     5MKALARM                              #  CANT RECYCLE - TO MANY MARKS - ALARM
011019,000717: 07,2665           25550                           INCR     MARKCNTR                              #  OF FOR RECYCLE - INCR COUNTER
011020,000718: 07,2666           12205                           TCF      GETMKS     +3                         #  GO DISPLAY MARK VB
011021,000719: 

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