Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

011247,000002:                                                                                                  ## Copyright:   Public domain.
011248,000003:                                                                                                  ## Filename:    AOTMARK.agc
011249,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
011250,000005:                                                                                                  ##              Don Eyles's offline development program for the variable
011251,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD
011252,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John
011253,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
011254,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
011255,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
011256,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
011257,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
011258,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
011259,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
011260,000015:                                                                                                  ## Reference:   pp. 251-267
011261,000016:                                                                                                  ## Assembler:   yaYUL
011262,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
011263,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
011264,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
011265,000020:                                                                                                  ##              2017-08-19 MAS  Updated for Zerlina 56.
011266,000021: 

Page 251

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

Page 252

011320,000075: 07,2044           52134        MKABORT            DXCH     BUF2                                  
011321,000076: 07,2045           05717                           TC       BAILOUT1                              #  CONFLICT WITH EXTENDED VERB
011322,000077: 07,2046           31211                           OCT      31211                                 
011323,000078: 
011324,000079: 07,2047           34755        MKRELEAS           CAF      ZERO                                  
011325,000080: 07,2050           57307                           XCH      MARKSTAT                              #  SET MARKSTAT TO ZERO
011326,000081: 07,2051           75004                           MASK     LOW9                                  #  PICK UP VAC AREA ADR
011327,000082: 07,2052           10000                           CCS      A                                     
011328,000083: 07,2053           50000                           INDEX    A                                     
011329,000084: 07,2054           54000                           TS       0                                     #  SHOW MKVAC AREA AVAILABLE
011330,000085: 07,2055           34753                           CAF      ONE                                   
011331,000086: 07,2056           04674                           TC       IBNKCALL                              
011332,000087: 07,2057           17664                           CADR     GOODEND                               #  GO WAKE UP CALLING JOB
011333,000088: 

Page 253

011335,000090: 07,2060           34755        KILLAOT            CAF      ZERO                                  
011336,000091: 07,2061           55043                           TS       EXTVBACT                              #  TERMINATE AOTMARK-ALLOW EXT VERB
011337,000092: 07,2062           06001                           TC       GOTOPOOH                              
011338,000093: 07,2063           41307        GETDAT             CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
011339,000094: 07,2064           74740                           MASK     BIT12                                 #    BIT12 RESET AT GETMARK
011340,000095: 07,2065           27307                           ADS      MARKSTAT                              
011341,000096: 
011342,000097: 07,2066           32330                           CAF      V01N71                                #  DISPLAY DETENT AND STAR CODE
011343,000098: 07,2067           04616                           TC       BANKCALL                              
011344,000099: 07,2070           20334                           CADR     GOMARKF                               
011345,000100: 
011346,000101: 07,2071           12060                           TCF      KILLAOT                               #  V34-DOES GOTOPOOH
011347,000102: 07,2072           12074                           TCF      DODAT                                 #  V33-PROCEED-USE THIS STAR FOR MARKS
011348,000103: 07,2073           12063        ENTERDAT           TCF      GETDAT                                #  ENTER-REDISPLAY STAR CODE
011349,000104: 
011350,000105: 07,2074           37756        DODAT              CAF      HIGH9                                 #  PICK DETENT CODE FROM BITS7-9 OF AOTCODE
011351,000106: 07,2075           70734                           MASK     AOTCODE                               #  AND SEE IF CODE 1 TO 6
011352,000107: 07,2076           00006                           EXTEND                                         
011353,000108: 07,2077           74743                           MP       BIT9                                  
011354,000109: 07,2100           55551                           TS       XYMARK                                #  STORE DETENT
011355,000110: 
011356,000111: 07,2101           00006                           EXTEND                                         
011357,000112: 07,2102           62063                           BZMF     GETDAT                                #  COAS CALIBRATION CODE-NO GOOD HERE
011358,000113: 
011359,000114: 07,2103           65661                           AD       NEG7                                  #  SEE IF DETENT 7 FOR COAS
011360,000115: 07,2104           00006                           EXTEND                                         
011361,000116: 07,2105           12107                           BZF      CODE7                                 
011362,000117: 
011363,000118: 07,2106           12123                           TCF      CODE1TO6                              
011364,000119: 
011365,000120: 07,2107           32331        CODE7              CAF      V06N87*                               #  CODE 7, COAS SIGHTING, GET OPTIC AXIS
011366,000121: 07,2110           04616                           TC       BANKCALL                              #  AZ AND EL OF SIGHTING DEVICE FROM ASTRO
011367,000122: 07,2111           20334                           CADR     GOMARKF                               
011368,000123: 
011369,000124: 07,2112           12060                           TCF      KILLAOT                               #  V34-DOES GOTOPOOH
011370,000125: 07,2113           12115                           TCF      +2                                    #  PROCEED
011371,000126: 07,2114           12107                           TCF      CODE7                                 #  ON ENTER, RECYCLE
011372,000127: 07,2115           00006                           EXTEND                                         
011373,000128: 07,2116           31345                           DCA      AZ                                    #  PICK UP AZ AND EL IN SP 2S COMP
011374,000129: 07,2117           50120                           INDEX    FIXLOC                                
011375,000130: 07,2120           52011                           DXCH     8D                                    #  STORE IN 8D AND 9D OF LOCAL VAC
011376,000131: 07,2121           34755                           CAF      ZERO                                  #  BACKUP SYSTEM TO BE USED
011377,000132: 07,2122           12137                           TCF      COASCODE                              #  ZERO APPARENT ROTATION
011378,000133: 
011379,000134: 07,2123           51551        CODE1TO6           INDEX    XYMARK                                #  INDEX AOT POSITION BY DET CODE
011380,000135: 07,2124           31411                           CA       AOTEL      -1                         
011381,000136: 07,2125           50120                           INDEX    FIXLOC                                
011382,000137: 07,2126           54011                           TS       9D                                    #  STORE ELEVATION IN VAC+9D
011383,000138: 
011384,000139: 07,2127           51551                           INDEX    XYMARK                                #  INDEX DET CODE 1,2 OR 3

Page 254

011386,000141: 07,2130           31403                           CA       AOTAZ      -1                         
011387,000142: 07,2131           50120                           INDEX    FIXLOC                                
011388,000143: 07,2132           54010                           TS       8D                                    #  STORE AZIMUTH IN VAC +8D
011389,000144: 
011390,000145: 07,2133           31405                           CA       AOTAZ      +1                         #  COMPENSATION FOR APPARENT ROTATION OF
011391,000146: 07,2134           00006                           EXTEND                                         #  AOT FIELD OF VIEW IN LEFT AND RIGTHT
011392,000147: 07,2135           50120                           INDEX    FIXLOC                                #  DETENTS IS STORED IN VAC +10D IN SP
011393,000148: 07,2136           20010                           MSU      8D                                    #  PRECISION ONES COMPLEMENT
011394,000149: 07,2137           50120        COASCODE           INDEX    FIXLOC                                
011395,000150: 07,2140           54012                           TS       10D                                   #  ROT ANGLE
011396,000151: 
011397,000152: 07,2141           06051                           TC       INTPRET                               #  COMPUTE X AND Y PLANE VECTORS
011398,000153: 

Page 255

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

Page 256

011436,000191:                                                                                                  #  THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
011437,000192:                                                                                                  #  FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
011438,000193:                                                                                                  #     INPUT- AZIMUTH ANGLE IN SINGLE PREC 2S COMP IN 8D OF JOB VAC
011439,000194:                                                                                                  #            ELEVATION ANGLE IN SINGLE PREC 2S COMP IN 9D OF VAC
011440,000195:                                                                                                  #     OUTPUT-OPTIC AXIS IN NB COORDS. IN SCAXIS
011441,000196:                                                                                                  #            X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC
011442,000197:                                                                                                  #            Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
011443,000198: 
011444,000199: 05,3414                                           BANK     05                                    
011445,000200: 04,2000                                           SETLOC   AOTMARK2                              
011446,000201: 04,2000                                           BANK                                           
011447,000202: 
011448,000203: 04,2530                                           COUNT*   $$/MARK                               
011449,000204: 
011450,000205: 04,2530           44001        OANB               SETPD    STQ                                   
011451,000206: 04,2531           00001                                    0                                     
011452,000207: 04,2532           02736                                    GCTR                                  #  STORE RETURN
011453,000208: 04,2533           47135                           SLOAD    RTB                                   
011454,000209: 04,2534           00012                                    9D                                    #  PICK UP SP ELV
011455,000210: 04,2535           21560                                    CDULOGIC                              
011456,000211: 04,2536           71406                           PUSH     COS                                   
011457,000212: 04,2537           73525                           PDDL     SIN                                   #  1/2COS(ELV)  PD 0-1
011458,000213: 04,2540           77626                           STADR                                          
011459,000214: 04,2541           60012                           STODL    SCAXIS                                #  OAX=1/2SIN(ELV)
011460,000215: 04,2542           00011                                    8D                                    #  PICK UP AZ SP
011461,000216: 04,2543           77634                           RTB                                            
011462,000217: 04,2544           21560                                    CDULOGIC                              
011463,000218: 04,2545           71406                           PUSH     COS                                   
011464,000219: 04,2546           00025                           STORE    20D                                   #  STORE UYP(Y) 20-21
011465,000220: 04,2547           73525                           PDDL     SIN                                   #  1/2COS(AZ) PD 2-3
011466,000221: 04,2550           57406                           PUSH     DCOMP                                 #  PUSH 1/2SIN(AZ) 4-5
011467,000222: 04,2551           14027                           STODL    22D                                   #  STORE UYP(Z) 22-23
011468,000223: 04,2552           24007                                    LO6ZEROS                              
011469,000224: 04,2553           14023                           STODL    18D                                   #  STORE UYP(X) 18-19   UP 4-5
011470,000225: 04,2554           72405                           DMP      SL1                                   
011471,000226: 04,2555           00001                                    0                                     
011472,000227: 04,2556           17767                           STODL    SCAXIS     +2                         #  OAY=1/2COS(ELV)SIN(AZ)
011473,000228: 04,2557           72405                           DMP      SL1                                   #  UP 2-3
011474,000229: 04,2560           77626                           STADR                                          #  UP 0-1
011475,000230: 04,2561           50006                           STOVL    SCAXIS     +4                         #  OAZ=1/2COS(ELV)COS(AZ)
011476,000231: 04,2562           00023                                    18D                                   #  LOAD UYP VEC
011477,000232: 04,2563           53435                           VXV      UNIT                                  
011478,000233: 04,2564           03765                                    SCAXIS                                #  UXP VEC=UYP X OA
011479,000234: 04,2565           00031                           STORE    24D                                   #  STORE UXP
011480,000235: 04,2566           77650                           GOTO                                           
011481,000236: 04,2567           02736                                    GCTR                                  
011482,000237: 

Page 257

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

Page 258

011536,000291: 15,2046           37777 37775  ABOUTONE           2DEC     .99999999                             
011537,000292: 
011538,000293: 15,2050  15,2473               DP1/12             EQUALS   DEG30                                 #  .08333333
011539,000294: 07,2171                                           BANK     7                                     
011540,000295: 07,2000                                           SETLOC   AOTMARK1                              
011541,000296: 07,2000                                           BANK                                           
011542,000297: 07,2171                                           COUNT*   $$/MARK                               
011543,000298: 07,2171           53133        YZCHK              SLOAD*   BZE                                   #  YROT ZERO AND IF SROT ZERO FORCE STAR
011544,000299: 07,2172           00004                                    3,1                                   #  ALONG OPTIC AXIS
011545,000300: 07,2173           16177                                    YSZERO                                
011546,000301: 07,2174           52145                           DLOAD    GOTO                                  
011547,000302: 07,2175           00031                                    24D                                   
011548,000303: 07,2176           32011                                    JUSTZY                                #  SROT NOT ZERO-CONTINUE NORMALLY
011549,000304: 07,2177           52175        YSZERO             VLOAD    GOTO                                  
011550,000305: 07,2200           03765                                    SCAXIS                                
011551,000306: 07,2201           32042                                    JUSTOA                                
011552,000307: 

Page 259

011554,000309:                                                                                                  #  THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
011555,000310: 
011556,000311: 07,2202           34755        GETMKS             CAF      ZERO                                  #  INITIALIZE MARK ID REGISTER AND MARK CNT
011557,000312: 07,2203           55551                           TS       XYMARK                                
011558,000313: 07,2204           55550                           TS       MARKCNTR                              
011559,000314: 07,2205           35004                           CAF      LOW9                                  #  ZERO BITS10 TO 15 RETAINING MKVAC ADR
011560,000315: 07,2206           71307                           MASK     MARKSTAT                              
011561,000316: 07,2207           55307                           TS       MARKSTAT                              
011562,000317: 07,2210           32613                           CAF      MKVB54*                               #  DISPLAY VB54 INITIALLY
011563,000318: 07,2211           04616        PASTIT             TC       BANKCALL                              
011564,000319: 07,2212           20345                           CADR     GOMARK4                               
011565,000320: 
011566,000321: 07,2213           12060                           TCF      KILLAOT                               #  V34-DOES GOTOPOOH
011567,000322: 07,2214           12216                           TCF      MARKCHEX                              #  VB33-PROCEED, GOT MARKS, COMPUTE LOS
011568,000323: 07,2215           12063                           TCF      GETDAT                                #  ENTER-RECYCLE TO V01N71
011569,000324: 
011570,000325: 07,2216           41307        MARKCHEX           CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
011571,000326: 07,2217           74740                           MASK     BIT12                                 
011572,000327: 07,2220           27307                           ADS      MARKSTAT                              
011573,000328: 07,2221           75004                           MASK     LOW9                                  
011574,000329: 07,2222           55551                           TS       XYMARK                                #  JAM MARK VAC ADR IN XYMARK FOR AVESTAR
011575,000330: 07,2223           34755                           CAF      ZERO                                  
011576,000331: 07,2224           55552                           TS       MKDEX                                 #  SET MKDEX ZERO FOR LOS VEC CNTR
011577,000332: 07,2225           31307                           CA       MARKSTAT                              
011578,000333: 07,2226           75015                           MASK     PRIO3                                 #  SEE IF LAST MK PARI COMPLETE
011579,000334: 07,2227           54001                           TS       L                                     
011580,000335: 07,2230           35015                           CAF      PRIO3                                 #  BITS10 AND 11
011581,000336: 07,2231           00006                           EXTEND                                         
011582,000337: 07,2232           06001                           RXOR     LCHAN                                 
011583,000338: 07,2233           00006                           EXTEND                                         
011584,000339: 07,2234           12241                           BZF      AVESTAR                               #  LAST PAIR COMPLETE-GO COMPUTE LOS
011585,000340: 07,2235           11550        CNTCHK             CCS      MARKCNTR                              #  NO PAIR SHOWING-SEE IF PAIR IN HOLD
011586,000341: 07,2236           12240                           TCF      +2                                    #  PAIR BURIED-DECREMENT COUNTER
011587,000342: 07,2237           12325                           TCF      MKALARM                               #  NO PAIR-ALARM
011588,000343: 07,2240           55550                           TS       MARKCNTR                              #  STORE DECREMENTED COUNTER
011589,000344: 
011590,000345: 07,2241           34740        AVESTAR            CAF      BIT12                                 #  INITIALIZE MKDEX FOR STAR LOS COUNTER
011591,000346: 07,2242           27552                           ADS      MKDEX                                 #  MKDEX WAS INITIALIZED ZERO IN MARKCHEX
011592,000347: 07,2243           41550                           CS       MARKCNTR                              
011593,000348: 07,2244           00006                           EXTEND                                         
011594,000349: 07,2245           76254                           MP       SIX                                   #  GET C(L) = -6 MARKCNTR
011595,000350: 07,2246           41551                           CS       XYMARK                                
011596,000351: 07,2247           60001                           AD       L                                     #  ADD - MARK VAC ADR SET IN MARKCHEX
011597,000352: 07,2250           50120                           INDEX    FIXLOC                                
011598,000353: 07,2251           54046                           TS       X1                                    #  JAM - CDU ADR OF X-MARK IN X1
011599,000354: 
011600,000355: 07,2252           30120                           CA       FIXLOC                                #  SET PD POINTER TO ZERO
011601,000356: 07,2253           54166                           TS       PUSHLOC                               
011602,000357: 
011603,000358: 07,2254           06051                           TC       INTPRET                               

Page 260

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

Page 261

011657,000412:                                                                                                  #  MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
011658,000413:                                                                                                  #  CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
011659,000414: 
011660,000415: 07,2332           54016        MARKRUPT           TS       BANKRUPT                              
011661,000416: 07,2333           30033                           CA       CDUY                                  #  STORE CDUS AND TIME NOW-THEN SEE IF
011662,000417: 07,2334           54063                           TS       ITEMP3                                #  WE NEED THEM
011663,000418: 07,2335           30034                           CA       CDUZ                                  
011664,000419: 07,2336           54064                           TS       ITEMP4                                
011665,000420: 07,2337           30032                           CA       CDUX                                  
011666,000421: 07,2340           54065                           TS       ITEMP5                                
011667,000422: 07,2341           00006                           EXTEND                                         
011668,000423: 07,2342           30025                           DCA      TIME2                                 
011669,000424: 07,2343           52062                           DXCH     ITEMP1                                
011670,000425: 07,2344           56002                           XCH      Q                                     
011671,000426: 07,2345           54012                           TS       QRUPT                                 
011672,000427: 
011673,000428: 07,2346           34776                           CAF      OCT140                                #  SEE IF ROD INPUT HAS BEEN MADE
011674,000429: 07,2347           00006                           EXTEND                                         
011675,000430: 07,2350           02016                           RAND     NAVKEYIN                              
011676,000431: 07,2351           00006                           EXTEND                                         
011677,000432: 07,2352           62355                           BZMF     MARKEY?                               #  NO, MUST BE A MARKRUPT
011678,000433: 
011679,000434: 07,2353           04635                           TC       POSTJUMP                              #  DESCENT BITS
011680,000435: 07,2354           46501                           CADR     DESCBITS                              #  DOESN'NT COME BACK
011681,000436: 
011682,000437: 07,2355           34740        MARKEY?            CAF      BIT12                                 #  ARE WE ASKING FOR MARK?
011683,000438: 07,2356           71307                           MASK     MARKSTAT                              
011684,000439: 07,2357           10000                           CCS      A                                     
011685,000440: 07,2360           05301                           TC       RESUME                                #  DONT WANT MARK OR MKREJECT-DO NOTHING
011686,000441: 
011687,000442: 07,2361           11307                           CCS      MARKSTAT                              #  ARE MARKS BEING ACCEPTED
011688,000443: 07,2362           12366                           TCF      FINDKEY                               #  THEY ARE-WHICH ONE IS IT
011689,000444: 07,2363           05600                           TC       ALARM                                 #  MARKS NOT BEING ACCEPTED-DO ALARM
011690,000445: 07,2364           00112                           OCT      112                                   
011691,000446: 07,2365           05301                           TC       RESUME                                
011692,000447: 
011693,000448: 07,2366           34747        FINDKEY            CAF      BIT5                                  #  SEE IF MARK REJECT
011694,000449: 07,2367           00006                           EXTEND                                         
011695,000450: 07,2370           02016                           RAND     NAVKEYIN                              
011696,000451: 07,2371           10000                           CCS      A                                     
011697,000452: 07,2372           12453                           TCF      MKREJ                                 #  ITS A MARK REJECT
011698,000453: 
011699,000454: 07,2373           34750                           CAF      BIT4                                  #  SEE IF Y MARK
011700,000455: 07,2374           00006                           EXTEND                                         
011701,000456: 07,2375           02016                           RAND     NAVKEYIN                              
011702,000457: 07,2376           10000                           CCS      A                                     
011703,000458: 
011704,000459: 07,2377           12414                           TCF      YMKRUPT                               #  ITS A Y MARK
011705,000460: 
011706,000461: 07,2400           34751                           CAF      BIT3                                  #  SEE IF X MARK

Page 262

011708,000463: 07,2401           00006                           EXTEND                                         
011709,000464: 07,2402           02016                           RAND     NAVKEYIN                              
011710,000465: 07,2403           10000                           CCS      A                                     
011711,000466: 07,2404           12410                           TCF      XMKRUPT                               #  ITS A X MARK
011712,000467: 
011713,000468: 07,2405           05600                           TC       ALARM                                 #  NO INBITS IN CHANNEL 16
011714,000469: 07,2406           00113                           OCT      113                                   
011715,000470: 
011716,000471: 07,2407           05301                           TC       RESUME                                
011717,000472: 
011718,000473: 07,2410           34755        XMKRUPT            CAF      ZERO                                  
011719,000474: 07,2411           54070                           TS       RUPTREG1                              #  SET X MARK STORE INDEX TO ZERO
011720,000475: 07,2412           34742                           CAF      BIT10                                 
011721,000476: 07,2413           12417                           TCF      +4                                    
011722,000477: 07,2414           34753        YMKRUPT            CAF      ONE                                   
011723,000478: 07,2415           54070                           TS       RUPTREG1                              #  SET Y MARK STORE INDEX TO ONE
011724,000479: 07,2416           34741                           CAF      BIT11                                 
011725,000480: 07,2417           55551                           TS       XYMARK                                #  SET MARK IDENTIFIATION
011726,000481: 
011727,000482: 07,2420           02506                           TC       MARKTYPE                              #  SEE IF SURFACE MARK
011728,000483: 07,2421           12513                           TCF      SURFSTOR                              #  SURFACE MARK-JUST STORE CDUS
011729,000484: 
011730,000485: 07,2422           34736                           CAF      BIT14                                 #  GOT A MARK-SEE IF MARK PAIR MADE
011731,000486: 07,2423           71307                           MASK     MARKSTAT                              
011732,000487: 07,2424           00006                           EXTEND                                         
011733,000488: 07,2425           12436                           BZF      VERIFYMK                              #  NOT A PAIR, NORMAL PROCEDURE
011734,000489: 07,2426           41550                           CS       MARKCNTR                              #  GOT A PAIR, SEE IF ANOTHER CAN BE MADE
011735,000490: 07,2427           64751                           AD       FOUR                                  #  IF SO, INCREMENT POINTER,CLEAR BITS10,11
011736,000491: 07,2430           00006                           EXTEND                                         
011737,000492: 07,2431           62446                           BZMF     5MKALARM                              #  HAVE FIVE MARK PAIRS-DONT ALLOW MARK
011738,000493: 07,2432           25550                           INCR     MARKCNTR                              #  OK FOR ANOTHER PAIR, INCR POINTER
011739,000494: 07,2433           47723                           CS       PRIO23                                #  CLEAR BITS10,11,14 FOR NEXT PAIR
011740,000495: 07,2434           71307                           MASK     MARKSTAT                              
011741,000496: 07,2435           55307                           TS       MARKSTAT                              
011742,000497: 
011743,000498: 07,2436           31551        VERIFYMK           CA       XYMARK                                
011744,000499: 07,2437           71307                           MASK     MARKSTAT                              
011745,000500: 07,2440           10000                           CCS      A                                     
011746,000501: 07,2441           12443                           TCF      +2                                    #  THIS MARK NOT DESIRED
011747,000502: 07,2442           12520                           TCF      VACSTOR                               #  MARK DESIRED - STORE CDUS
011748,000503: 07,2443           05600                           TC       ALARM                                 
011749,000504: 07,2444           00114                           OCT      114                                   
011750,000505: 07,2445           05301                           TC       RESUME                                #  RESUME-DISPLAY UNCHANGED-WAIT FOR ACTION
011751,000506: 
011752,000507: 07,2446           05600        5MKALARM           TC       ALARM                                 #  ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS
011753,000508: 07,2447           00107                           OCT      107                                   
011754,000509: 07,2450           02506                           TC       MARKTYPE                              #  SEE IF SURFACE MARK
011755,000510: 07,2451           12621                           TCF      DSPV6N79                              #  IT IS
011756,000511: 07,2452           05301                           TC       RESUME                                #  DONT CHANGE DISPLAY-DO NOTHING
011757,000512: 

Page 263

011759,000514: 07,2453           02506        MKREJ              TC       MARKTYPE                              #  SEE IF SURFACE
011760,000515: 07,2454           12501                           TCF      SURFREJ                               #  SURFACE-JUST CHECK MARK COUNTER
011761,000516: 
011762,000517: 07,2455           35015                           CAF      PRIO3                                 #  INFLIGHT-SEE IF MARKS MADE
011763,000518: 07,2456           71307                           MASK     MARKSTAT                              
011764,000519: 07,2457           10000                           CCS      A                                     
011765,000520: 07,2460           12464                           TCF      REJECT                                #  MARKS MADE-REJECT ONE
011766,000521: 07,2461           05600        REJALM             TC       ALARM                                 #  NO MARK TO REJECT-BAD PROCEDURE-ALARM
011767,000522: 07,2462           00115                           OCT      115                                   
011768,000523: 07,2463           05301                           TC       RESUME                                #  DESIRED ACTION DISPLAYED
011769,000524: 
011770,000525: 07,2464           44355        REJECT             CS       PRIO30                                #  ZERO BIT14,SHOW REJ.,SEE IF MARK SINCE
011771,000526: 07,2465           71307                           MASK     MARKSTAT                              #  LAST REJECT
011772,000527: 07,2466           64737                           AD       BIT13                                 
011773,000528: 07,2467           57307                           XCH      MARKSTAT                              
011774,000529: 07,2470           74737                           MASK     BIT13                                 
011775,000530: 07,2471           10000                           CCS      A                                     
011776,000531: 07,2472           12477                           TCF      REJECT2                               #  ANOTHER REJECT SET BIT 10+11 TO ZERO
011777,000532: 
011778,000533: 07,2473           41551                           CS       XYMARK                                #  MARK MADE SINCE REJECT-REJECT MARK IN 1D
011779,000534: 07,2474           71307        RENEWMK            MASK     MARKSTAT                              
011780,000535: 07,2475           55307                           TS       MARKSTAT                              
011781,000536: 07,2476           12571                           TCF      REMARK                                #  GO REQUEST NEW MARK ACTION
011782,000537: 
011783,000538: 07,2477           45015        REJECT2            CS       PRIO3                                 #  ON SECOND REJECT-DISPLAY VB53 AGAIN
011784,000539: 07,2500           12474                           TCF      RENEWMK                               
011785,000540: 
011786,000541: 07,2501           11550        SURFREJ            CCS      MARKCNTR                              #  IF MARK DECREMENT COUNTER
011787,000542: 07,2502           12504                           TCF      +2                                    
011788,000543: 07,2503           12461                           TCF      REJALM                                #  NO MARKS TO REJECT-ALARM
011789,000544: 07,2504           55550                           TS       MARKCNTR                              
011790,000545: 07,2505           05301                           TC       RESUME                                
011791,000546: 

Page 264

011793,000548: 
011794,000549: 
011795,000550:                                                                                                  #  MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE. IF IT IS RETURN TO LOC+1
011796,000551: 
011797,000552: 07,2506           40104        MARKTYPE           CS       FLAGWRD8                              #  SURFFLAG*******TEMPORARY*****
011798,000553: 07,2507           74744                           MASK     BIT8                                  
011799,000554: 07,2510           10000                           CCS      A                                     
011800,000555: 07,2511           24002                           INCR     Q                                     #  IF SURFACE MARK REUTNR TO LOC +1
011801,000556: 07,2512           00002                           TC       Q                                     #  IF INFLIGHT MARK RETURN TO LOC +2
011802,000557: 
011803,000558: 07,2513           34755        SURFSTOR           CAF      ZERO                                  #  FOR SURFACE MARK ZERO MARK KIND INDEX
011804,000559: 07,2514           54070                           TS       RUPTREG1                              
011805,000560: 
011806,000561: 07,2515           41307                           CS       MARKSTAT                              #  SET BITS10,11 TO SHOW SURFACE MARK
011807,000562: 07,2516           75015                           MASK     PRIO3                                 #  FOR MARKCHEX
011808,000563: 07,2517           27307                           ADS      MARKSTAT                              
011809,000564: 
011810,000565: 07,2520           35004        VACSTOR            CAF      LOW9                                  
011811,000566: 07,2521           71307                           MASK     MARKSTAT                              #  STORE MARK VAC ADR IN RUPTREG2
011812,000567: 07,2522           54071                           TS       RUPTREG2                              
011813,000568: 07,2523           00006                           EXTEND                                         
011814,000569: 07,2524           30062                           DCA      ITEMP1                                #  PICK UP MARKTIME
011815,000570: 07,2525           53562                           DXCH     TSIGHT                                #  STORE LAST MARK TIME
011816,000571: 07,2526           31550                           CA       MARKCNTR                              #  6 X MARKCNTR FOR STORE INDEX
011817,000572: 07,2527           00006                           EXTEND                                         
011818,000573: 07,2530           76254                           MP       SIX                                   
011819,000574: 07,2531           56001                           XCH      L                                     #  GET INDEX FROM LOW ORDER PART
011820,000575: 07,2532           60071                           AD       RUPTREG2                              #  SET CDU STORE INDEX TO MARKVAC
011821,000576: 07,2533           26070                           ADS      RUPTREG1                              #  INCREMENT VAC PICKUP BY MARK FOR FLIGHT
011822,000577: 07,2534           55552                           TS       MKDEX                                 #  STORE HERE IN CASE OF SURFACE MARK
011823,000578: 07,2535           30063                           CA       ITEMP3                                
011824,000579: 07,2536           50070                           INDEX    RUPTREG1                              
011825,000580: 07,2537           54000                           TS       0                                     #  STORE CDUY
011826,000581: 07,2540           30064                           CA       ITEMP4                                
011827,000582: 07,2541           50070                           INDEX    RUPTREG1                              
011828,000583: 07,2542           54002                           TS       2                                     #  STORE CDUZ
011829,000584: 07,2543           30065                           CA       ITEMP5                                
011830,000585: 07,2544           50070                           INDEX    RUPTREG1                              
011831,000586: 07,2545           54004                           TS       4                                     #  STORE CDUX
011832,000587: 07,2546           02506                           TC       MARKTYPE                              #  IF SURFACE MARK-JUST DO SURFJOB
011833,000588: 07,2547           12576                           TCF      SURFJOB                               
011834,000589: 
011835,000590: 07,2550           34737                           CAF      BIT13                                 #  CLEAR BIT13 TO SHOW MARK MADE
011836,000591: 07,2551           61551                           AD       XYMARK                                #  SET MARK ID IN MARKSTAT
011837,000592: 07,2552           40000                           COM                                            
011838,000593: 07,2553           71307                           MASK     MARKSTAT                              
011839,000594: 07,2554           61551                           AD       XYMARK                                
011840,000595: 07,2555           55307                           TS       MARKSTAT                              
011841,000596: 07,2556           75015                           MASK     PRIO3                                 #  SEE IF X, Y MARK MADE
011842,000597: 07,2557           54001                           TS       L                                     
011843,000598: 

Page 265

011845,000600: 07,2560           35015                           CA       PRIO3                                 
011846,000601: 07,2561           00006                           EXTEND                                         
011847,000602: 07,2562           06001                           RXOR     LCHAN                                 
011848,000603: 07,2563           10000                           CCS      A                                     
011849,000604: 07,2564           12571                           TCF      REMARK                                #  NOT PAIR YET, DISPLAY MARK ACTION
011850,000605: 07,2565           41307                           CS       MARKSTAT                              #  MARK PAIR COMPLETE-SET BIT14
011851,000606: 07,2566           74736                           MASK     BIT14                                 
011852,000607: 07,2567           27307                           ADS      MARKSTAT                              
011853,000608: 07,2570           12571                           TCF      REMARK                                #  GO DISPLAY V54
011854,000609: 

Page 266

011856,000611: 07,2571           35015        REMARK             CAF      PRIO3                                 #  BITS 10 AND 11
011857,000612: 07,2572           71307                           MASK     MARKSTAT                              
011858,000613: 07,2573           00006                           EXTEND                                         
011859,000614: 07,2574           74746                           MP       BIT6                                  #  SHIFT MARK IDS TO BE 0 TO 3 FOR INDEX
011860,000615: 07,2575           55552                           TS       MKDEX                                 #  STORE VERB INDEX
011861,000616: 07,2576           35025        SURFJOB            CAF      PRIO15                                
011862,000617: 07,2577           05072                           TC       NOVAC                                 #  ENTER JOB TO CHANGE DISPLAY TO
011863,000618: 07,2600  E7,1551                                  EBANK=   XYMARK                                #  REQUEST NEXT ACTION
011864,000619: 07,2600           02603 16067                     2CADR    CHANGEVB                              
011865,000620: 
011866,000621: 
011867,000622: 07,2602           05301                           TC       RESUME                                
011868,000623: 
011869,000624: 07,2603           02506        CHANGEVB           TC       MARKTYPE                              
011870,000625: 07,2604           12621                           TCF      DSPV6N79                              #  SURFACE-DISPLAY V 06 N 79
011871,000626: 07,2605           51552                           INDEX    MKDEX                                 #  INFLIGHT-PICK UP MARK VB INDEX
011872,000627: 07,2606           32610                           CAF      MKVB54                                
011873,000628: 07,2607           02211                           TC       PASTIT                                #  PASTE UP NEXT MK VERB DISPLAY
011874,000629: 
011875,000630:                                                                                                  #  THE FOUR MKVBS ARE INDEXED-THEIR ORDER CANNOT BE CHANGED
011876,000631: 
011877,000632: 07,2610           15507        MKVB54             VN       5471                                  #  MAKE X OR Y MARK
011878,000633: 07,2611           15307        MKVB53             VN       5371                                  #  MAKE Y MARK
011879,000634: 07,2612           15107        MKVB52             VN       5271                                  #  MAKE X MARK
011880,000635: 07,2613           15507        MKVB54*            VN       5471                                  #  MAKE X OR Y MARK
011881,000636: 07,2614           04000 00000  DP1/8              2DEC     .125                                  
011882,000637: 
011883,000638: 07,2616           00034        OCT34              OCT      34                                    
011884,000639: 07,2617           01507        V06N71             VN       671                                   
011885,000640: 07,2620           01517        V06N79*            VN       679                                   
011886,000641: 

Page 267

011888,000643:                                                                                                  #  ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
011889,000644: 07,2621                                           COUNT*   $$/R59                                
011890,000645: 
011891,000646: 07,2621           32620        DSPV6N79           CAF      V06N79*                               #  CURSOR-SPIRAL DISPLAY
011892,000647: 07,2622           04616                           TC       BANKCALL                              
011893,000648: 07,2623           20334                           CADR     GOMARKF                               
011894,000649: 
011895,000650: 07,2624           12060                           TCF      KILLAOT                               #  V34-DOES GOTOPOOH
011896,000651: 07,2625           12633                           TCF      SURFEND                               #  V33-PROCEED, END MARKING
011897,000652: 07,2626           34746                           CAF      BIT6                                  #  IF V32(OCT40) IN MPAC DO RECYCLE
011898,000653: 07,2627           70154                           MASK     MPAC                                  #  OTHERWISE IT IS LOAD VB ENTER SO
011899,000654: 07,2630           10000                           CCS      A                                     #  RE-DISPLAY V06N79
011900,000655: 07,2631           12637                           TCF      SURFAGAN                              #  VB32-RECYCLE
011901,000656: 07,2632           12621                           TCF      DSPV6N79                              #  ENTER
011902,000657: 
011903,000658: 07,2633           44736        SURFEND            CS       BIT14                                 #  SET BIT14 TO SHOW MARK END
011904,000659: 07,2634           71307                           MASK     MARKSTAT                              
011905,000660: 07,2635           64736                           AD       BIT14                                 
011906,000661: 07,2636           55307                           TS       MARKSTAT                              
011907,000662: 
011908,000663: 07,2637           31235        SURFAGAN           CA       CURSOR                                
011909,000664: 07,2640           51552                           INDEX    MKDEX                                 #  HOLDS VAC AREA POINTER FOR SURF MARKING
011910,000665: 07,2641           54001                           TS       1                                     #  STORE CURSOR SP 2COMP
011911,000666: 07,2642           31236                           CA       SPIRAL                                
011912,000667: 07,2643           51552                           INDEX    MKDEX                                 
011913,000668: 07,2644           54003                           TS       3                                     #  STORE SPIRAL
011914,000669: 
011915,000670: 07,2645           41307                           CS       MARKSTAT                              #  IF BIT 14 SET-END MARKING
011916,000671: 07,2646           74736                           MASK     BIT14                                 
011917,000672: 07,2647           00006                           EXTEND                                         
011918,000673: 07,2650           12216                           BZF      MARKCHEX                              
011919,000674: 07,2651           31550                           CA       MARKCNTR                              #  THIS IS RECYCLE-SEE IF 5 MARKS ALREADY
011920,000675: 07,2652           64753                           AD       ONE                                   
011921,000676: 07,2653           40000                           COM                                            
011922,000677: 07,2654           64756                           AD       FIVE                                  
011923,000678: 07,2655           00006                           EXTEND                                         
011924,000679: 07,2656           62446                           BZMF     5MKALARM                              #  CANT RECYCLE-TO MANY MARKS-ALARM
011925,000680: 07,2657           25550                           INCR     MARKCNTR                              #  OF FOR RECYCLE-INCR COUNTER
011926,000681: 07,2660           12205                           TCF      GETMKS     +3                         #  GO DISPLAY MARK VB
011927,000682: 

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