Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

011159,000002:                                                                                                  ## Copyright:   Public domain.
011160,000003:                                                                                                  ## Filename:    AOTMARK.agc
011161,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
011162,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
011163,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
011164,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
011165,000008:                                                                                                  ##              that the code format has been changed to conform to the
011166,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
011167,000010:                                                                                                  ##              original YUL assembler.
011168,000011:                                                                                                  ## Reference:   pp. 255-274
011169,000012:                                                                                                  ## Assembler:   yaYUL
011170,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
011171,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
011172,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
011173,000016:                                                                                                  ##              2016-11-23 HG   Transcribed
011174,000017:                                                                                                  ##              2016-11-25 HG   Fix label    MARKREJ -> MKREJ
011175,000018:                                                                                                  ##                                  operand  NOVAK   -> NOVAC
011176,000019:                                                                                                  ##                                           GOMARKER-> GOMARKFR
011177,000020:                                                                                                  ##                                           CMKCNTR -> XMKCNTR 
011178,000021:                                                                                                  ##              2016-12-07 HG   fix P00 -> POO
011179,000022:                                                                                                  ##              2016-12-11 HG   Fix operation CS NOMKCNT -> CA NOMKCNT
011180,000023:                                                                                                  ##              2016-12-23 RSB  Proofed comment text with octopus/ProoferComments
011181,000024:                                                                                                  ##                              and fixed all errors found.
011182,000025:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes identified in 5-way
011183,000026:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
011184,000027: 

Page 255

011186,000029: 07,2000                                           SETLOC   AOTMARK1                              
011187,000030: 07,2000                                           BANK                                           
011188,000031: 
011189,000032: 07,2000  E7,1551                                  EBANK=   XYMARK                                
011190,000033: 07,2000                                           COUNT*   $$/MARK                               
011191,000034: 
011192,000035: 07,2000           00004        AOTMARK            INHINT                                         
011193,000036: 07,2001           36263                           CAF      SIX                                   #  SEE IF EXT. VERB WORKING
011194,000037: 07,2002           71043                           MASK     EXTVBACT                              
011195,000038: 07,2003           10000                           CCS      A                                     
011196,000039: 07,2004           12037                           TCF      MKABORT                               #  YES - ABORT
011197,000040: 
011198,000041: 07,2005           34743                           CAF      BIT2                                  #  NO-DISALLOW SOME EXTENDED VERB ACTION
011199,000042: 07,2006           27043                           ADS      EXTVBACT                              #  BIT2 RESET IN ENDMARK
011200,000043: 07,2007           10400        MKVAC              CCS      VAC1USE                               #  LOOK FOR A VAC AREA-DO ABORT IF
011201,000044: 07,2010           12024                           TCF      MKVACFND                              #  NONE AVAILABLE
011202,000045: 07,2011           10454                           CCS      VAC2USE                               
011203,000046: 07,2012           12024                           TCF      MKVACFND                              
011204,000047: 07,2013           10530                           CCS      VAC3USE                               
011205,000048: 07,2014           12024                           TCF      MKVACFND                              
011206,000049: 07,2015           10604                           CCS      VAC4USE                               
011207,000050: 07,2016           12024                           TCF      MKVACFND                              
011208,000051: 07,2017           10660                           CCS      VAC5USE                               
011209,000052: 07,2020           12024                           TCF      MKVACFND                              
011210,000053: 07,2021           52134                           DXCH     BUF2                                  
011211,000054: 07,2022           05712                           TC       BAILOUT1                              #  ALL VAC AREAS OCCUPIED - ABORT.
011212,000055: 07,2023           31207                           OCT      31207                                 
011213,000056: 
011214,000057: 07,2024           64743        MKVACFND           AD       TWO                                   
011215,000058: 07,2025           55307                           TS       MARKSTAT                              #  STORE VAC ADR INLOW 9 OF MARKSTAT
011216,000059: 
011217,000060: 07,2026           34746                           CAF      ZERO                                  
011218,000061: 07,2027           51307                           INDEX    MARKSTAT                              
011219,000062: 07,2030           53777                           TS       0          -1                         #  ZERO IN VACUSE REG TO SHOW VAC  OCCUPIED
011220,000063: 
011221,000064: 07,2031           35016                           CAF      PRIO15                                
011222,000065: 07,2032           05076                           TC       FINDVAC                               #  SET UP JOB FOR GETDAT
011223,000066: 07,2033  E7,1551                                  EBANK=   XYMARK                                
011224,000067: 07,2033           02056 16067                     2CADR    GETDAT                                
011225,000068: 
011226,000069: 07,2035           00003                           RELINT                                         
011227,000070: 07,2036           14622                           TCF      SWRETURN                              
011228,000071: 
011229,000072: 07,2037           52134        MKABORT            DXCH     BUF2                                  
011230,000073: 07,2040           05712                           TC       BAILOUT1                              #  CONFLICT WITH EXTENDED VERB
011231,000074: 07,2041           31211                           OCT      31211                                 
011232,000075: 
011233,000076: 07,2042           34746        MKRELEAS           CAF      ZERO                                  
011234,000077: 07,2043           57307                           XCH      MARKSTAT                              #  SET MARKSTAT TO ZERO
011235,000078: 

Page 256

011237,000080: 07,2044           74775                           MASK     LOW9                                  #  PICK UP VAC AREA ADR
011238,000081: 07,2045           10000                           CCS      A                                     
011239,000082: 07,2046           50000                           INDEX    A                                     
011240,000083: 07,2047           54000                           TS       0                                     #  SHOW MKVAC AREA AVAILABLE
011241,000084: 07,2050           34744                           CAF      ONE                                   
011242,000085: 07,2051           04665                           TC       IBNKCALL                              
011243,000086: 07,2052           17704                           CADR     GOODEND                               #  GO WAKE UP CALLING JOB
011244,000087: 
011245,000088: 07,2053           34746        KILLAOT            CAF      ZERO                                  
011246,000089: 07,2054           55043                           TS       EXTVBACT                              #  TERMINATE AOTMARK-ALLOW EXT VERB
011247,000090: 07,2055           06001                           TC       GOTOPOOH                              
011248,000091: 

Page 257

011250,000093:                                                                                                  #  GETDAT ROUTINE
011251,000094: 
011252,000095: 07,2056           41307        GETDAT             CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
011253,000096: 07,2057           74731                           MASK     BIT12                                 #    BIT12 RESET AT GETMARK
011254,000097: 07,2060           27307                           ADS      MARKSTAT                              
011255,000098: 
011256,000099: 07,2061           32352        N71DISP            CAF      V01N71                                #  DISPLAY DETENT AND STAR CODE
011257,000100: 07,2062           04607                           TC       BANKCALL                              
011258,000101: 07,2063           20323                           CADR     GOMARKF                               
011259,000102: 
011260,000103: 07,2064           12053                           TCF      KILLAOT                               #  V34-DOES GOTOPOOH
011261,000104: 07,2065           12067                           TCF      DODAT                                 #  V33-PROCEED-USE THIS STAR FOR MARKS
011262,000105: 07,2066           12056        ENTERDAT           TCF      GETDAT                                #  ENTER-REDISPLAY STAR CODE
011263,000106: 
011264,000107: 07,2067           37765        DODAT              CAF      HIGH9                                 #  PICK DETENT CODE FROM BITS7-9 OF AOTCODE
011265,000108: 07,2070           71235                           MASK     AOTCODE                               #  AND SEE IF CODE 1 TO 6
011266,000109: 07,2071           00006                           EXTEND                                         
011267,000110: 07,2072           74734                           MP       BIT9                                  
011268,000111: 07,2073           55551                           TS       XYMARK                                #  STORE DETENT
011269,000112: 
011270,000113: 07,2074           00006                           EXTEND                                         
011271,000114: 07,2075           62056                           BZMF     GETDAT                                #  COAS CALIBRATION CODE-NO GOOD HERE
011272,000115: 
011273,000116: 07,2076           65652                           AD       NEG7                                  #  SEE IF DETENT 7 FOR COAS
011274,000117: 07,2077           00006                           EXTEND                                         
011275,000118: 07,2100           12102                           BZF      CODE7                                 
011276,000119: 
011277,000120: 07,2101           12116                           TCF      CODE1TO6                              
011278,000121: 
011279,000122: 07,2102           32353        CODE7              CAF      V06N87*                               #  CODE 7, COAS SIGHTING, GET OPTIC AXIS
011280,000123: 07,2103           04607                           TC       BANKCALL                              #  AZ AND EL OF SIGHTING DEVICE FROM ASTRO
011281,000124: 07,2104           20323                           CADR     GOMARKF                               
011282,000125: 
011283,000126: 07,2105           12053                           TCF      KILLAOT                               #  V34-DOES GOTOPOOH
011284,000127: 07,2106           12110                           TCF      +2                                    #  PROCEED
011285,000128: 07,2107           12102                           TCF      CODE7                                 #  ON ENTER, RECYCLE
011286,000129: 07,2110           00006                           EXTEND                                         
011287,000130: 07,2111           31345                           DCA      AZ                                    #  PICK UP AZ AND EL IN SP 2S COMP
011288,000131: 07,2112           50120                           INDEX    FIXLOC                                
011289,000132: 07,2113           52011                           DXCH     8D                                    #  STORE IN 8D AND 9D OF LOCAL VAC
011290,000133: 07,2114           34746                           CAF      ZERO                                  #  BACKUP SYSTEM TO BE USED
011291,000134: 07,2115           12132                           TCF      COASCODE                              #  ZERO APPARENT ROTATION
011292,000135: 
011293,000136: 07,2116           51551        CODE1TO6           INDEX    XYMARK                                #  INDEX AOT POSITION BY DET CODE
011294,000137: 07,2117           31411                           CA       AOTEL      -1                         
011295,000138: 07,2120           50120                           INDEX    FIXLOC                                
011296,000139: 07,2121           54011                           TS       9D                                    #  STORE ELEVATION IN VAC+9D
011297,000140: 
011298,000141: 07,2122           51551                           INDEX    XYMARK                                #  INDEX DET CODE 1,2 OR 3
011299,000142: 07,2123           31403                           CA       AOTAZ      -1                         
011300,000143: 

Page 258

011302,000145: 07,2124           50120                           INDEX    FIXLOC                                
011303,000146: 07,2125           54010                           TS       8D                                    #  STORE AZIMUTH IN VAC +8D
011304,000147: 
011305,000148: 07,2126           31405                           CA       AOTAZ      +1                         #  COMPENSATION FOR APPARENT ROTATION OF
011306,000149: 07,2127           00006                           EXTEND                                         #  AOT FIELD OF VIEW IN LEFT AND RIGTHT
011307,000150: 07,2130           50120                           INDEX    FIXLOC                                #  DETENTS IS STORED IN VAC +10D IN SP
011308,000151: 07,2131           20010                           MSU      8D                                    #  PRECISION ONES COMPLEMENT
011309,000152: 07,2132           50120        COASCODE           INDEX    FIXLOC                                
011310,000153: 07,2133           54012                           TS       10D                                   #  ROT ANGLE
011311,000154: 
011312,000155: 07,2134           06060                           TC       INTPRET                               #  COMPUTE X AND Y PLANE VECTORS
011313,000156: 
011314,000157: 07,2135           52014                           CLEAR    GOTO                                  
011315,000158: 07,2136           02276                                    XDSPFLAG                              
011316,000159: 07,2137           30347                                    OPTAXIS                               
011317,000160: 

Page 259

011319,000162:                                                                                                  #  THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
011320,000163:                                                                                                  #  AND ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
011321,000164:                                                                                                  #  OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
011322,000165: 14,2000                                           SETLOC   P50S1                                 
011323,000166: 14,2000                                           BANK                                           
011324,000167: 
011325,000168: 14,2347           77624        OPTAXIS            CALL                                           #  GO COMPUTE OA AND X AND Y PLANE VECS
011326,000169: 14,2350           10557                                    OANB                                  
011327,000170: 14,2351           70535                           SLOAD    SR1                                   #  LOAD APP ROTATION IN ONES COMP
011328,000171: 14,2352           00013                                    10D                                   #  RESCALE BY 2PI
011329,000172: 14,2353           73406                           PUSH     SIN                                   #  1/2SIN(ROT)  0-1
011330,000173: 14,2354           71525                           PDDL     COS                                   
011331,000174: 14,2355           74206                           PUSH     VXSC                                  #  1/2COS(ROT)  2-3
011332,000175: 14,2356           00023                                    18D                                   
011333,000176: 14,2357           74325                           PDDL     VXSC                                  #  1/4COS(ROT)UYP   4-9
011334,000177: 14,2360           00001                                    0                                     
011335,000178: 14,2361           00031                                    24D                                   #  1/4SIN(ROT)UXP
011336,000179: 14,2362           45445                           BVSU     STADR                                 #  UP 4-9
011337,000180: 14,2363           60244                           STODL    YPLANE                                #  YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP)
011338,000181: 14,2364           65361                           VXSC     PDDL                                  #  UP 2-3 UP 0-1   FOR EXCHANGE
011339,000182: 14,2365           00031                                    24D                                   #  1/4COS(ROT)UXP  PUSH 0-5
011340,000183: 14,2366           53361                           VXSC     VAD                                   #  1/4SIN(ROT)UYP
011341,000184: 14,2367           00023                                    18D                                   #  UP 0-5
011342,000185: 14,2370           77626                           STADR                                          
011343,000186: 14,2371           50252                           STOVL    XPLANE                                
011344,000187: 14,2372           24007                                    LO6ZEROS                              #  INITIALIZE AVE STAR VEC ACCUMULATOR
011345,000188: 14,2373           02767                           STORE    STARSAV2                              
011346,000189: 14,2374           77414                           BOFF     EXIT                                  #  IF INFLIGHT &KM MARKING GET SIGHTING
011347,000190: 14,2375           04753                                    FLT59FLG                              #  BODY VECTOR FOR THET EST IN ITERATION
011348,000191: 14,2376           30406                                    ENDAXIS                               #  LOOP
011349,000192: 14,2377  E5,1642                                  EBANK=   XSM                                   
011350,000193: 14,2377           35005                           CA       EBANK5                                
011351,000194: 14,2400           54003                           TS       EBANK                                 #  PLANET ROUTINE USES EBANK5
011352,000195: 14,2401           06060                           TC       INTPRET                               
011353,000196: 14,2402           45034                           RTB      CALL                                  
011354,000197: 14,2403           21603                                    LOADTIME                              
011355,000198: 14,2404           16607                                    PLANET                                
011356,000199: 14,2405           03575                           STORE    BODY                                  
011357,000200: 14,2406           77776        ENDAXIS            EXIT                                           
011358,000201: 14,2407  E7,1551                                  EBANK=   XYMARK                                
011359,000202: 14,2407           35007                           CA       EBANK7                                #  RESTORE EBANK IN CASE OF PLANET BRANCH
011360,000203: 14,2410           54003                           TS       EBANK                                 
011361,000204: 14,2411           04607                           TC       BANKCALL                              
011362,000205: 14,2412           16140                           CADR     GETMKS                                
011363,000206: 

Page 260

011365,000208:                                                                                                  #  THE OANB ROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
011366,000209:                                                                                                  #  FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
011367,000210: 04,2000                                           SETLOC   AOTMARK2                              
011368,000211: 04,2000                                           BANK                                           
011369,000212: 
011370,000213: 04,2557                                           COUNT*   $$/MARK                               
011371,000214: 
011372,000215: 04,2557           44001        OANB               SETPD    STQ                                   
011373,000216: 04,2560           00001                                    0                                     
011374,000217: 04,2561           02736                                    GCTR                                  #  STORE RETURN
011375,000218: 04,2562           47135                           SLOAD    RTB                                   
011376,000219: 04,2563           00012                                    9D                                    #  PICK UP SP ELV
011377,000220: 04,2564           21606                                    CDULOGIC                              
011378,000221: 04,2565           71406                           PUSH     COS                                   
011379,000222: 04,2566           73525                           PDDL     SIN                                   #  1/2COS(ELV)   PD 0-1
011380,000223: 04,2567           77626                           STADR                                          
011381,000224: 04,2570           60012                           STODL    SCAXIS                                #  OAX=1/2SIN(ELV)
011382,000225: 04,2571           00011                                    8D                                    #  PICK UP AZ SP
011383,000226: 04,2572           77634                           RTB                                            
011384,000227: 04,2573           21606                                    CDULOGIC                              
011385,000228: 04,2574           71406                           PUSH     COS                                   
011386,000229: 04,2575           00025                           STORE    20D                                   #  STORE UYP(Y) 20-21
011387,000230: 04,2576           73525                           PDDL     SIN                                   #  1/2COS(AZ) PD 2-3
011388,000231: 04,2577           57406                           PUSH     DCOMP                                 #  PUSH 1/2SIN(AZ) 4-5
011389,000232: 04,2600           14027                           STODL    22D                                   #  STORE UYP(Z) 22-23
011390,000233: 04,2601           24007                                    LO6ZEROS                              
011391,000234: 04,2602           14023                           STODL    18D                                   #  STORE UYP(X) 18-19   UP 4-5
011392,000235: 04,2603           72405                           DMP      SL1                                   
011393,000236: 04,2604           00001                                    0                                     
011394,000237: 04,2605           17767                           STODL    SCAXIS     +2                         #  OAY=1/2COS(ELV)SIN(AZ)
011395,000238: 04,2606           72405                           DMP      SL1                                   #  UP 2-3
011396,000239: 04,2607           77626                           STADR                                          #  UP 0-1
011397,000240: 04,2610           50006                           STOVL    SCAXIS     +4                         #  OAZ=1/2COS(ELV)COS(AZ)
011398,000241: 04,2611           00023                                    18D                                   #  LOAD UYP VEC
011399,000242: 04,2612           53435                           VXV      UNIT                                  
011400,000243: 04,2613           03765                                    SCAXIS                                #  UXP VEC=UYP X OA
011401,000244: 04,2614           00031                           STORE    24D                                   #  STORE UXP
011402,000245: 04,2615           77650                           GOTO                                           
011403,000246: 04,2616           02736                                    GCTR                                  
011404,000247: 

Page 261

011406,000249:                                                                                                  #     SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
011407,000250:                                                                                                  #     SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
011408,000251: 15,2000                                           SETLOC   P50S                                  
011409,000252: 15,2000                                           BANK                                           
011410,000253: 15,2004                                           COUNT*   $$/R59                                
011411,000254: 
011412,000255: 15,2004           77131        SURFSTAR           SSP      AXT,2                                 #  INITIALIZE LOOP COUNTER (X1)
011413,000256: 15,2005           00052                                    S2                                    
011414,000257: 15,2006           00001                                    1                                     
011415,000258: 15,2007           00034                                    28D                                   
011416,000259: 15,2010           71214                           CLEAR    DLOAD                                 
011417,000260: 15,2011           00274                                    FREEFLAG                              
011418,000261: 15,2012           32161                                    ONEDEG                                
011419,000262: 15,2013           33572                           STOVL*   DELTHET                               
011420,000263: 15,2014           00001                                    0,1                                   #  PICK UP CURSOR MARK CDUS
011421,000264: 15,2015           20766                           STODL*   CDUSPOT                               
011422,000265: 15,2016           00010                                    7,1                                   #  PICK UP SPIRAL FROM MK VAC
011423,000266: 15,2017           77634                           RTB                                            
011424,000267: 15,2020           21606                                    CDULOGIC                              
011425,000268: 15,2021           34011                           STCALL   8D                                    #  SPIRAL IN REVS
011426,000269: 15,2022           32141                                    ROTCOMP                               
011427,000270: 15,2023           23773                           STODL*   POINTVSM                              #  YPRIME VEC FOR SROT MEAS. COORDS.
011428,000271: 15,2024           00007                                    6,1                                   #  PICK UP CURSOR
011429,000272: 15,2025           77634                           RTB                                            
011430,000273: 15,2026           21606                                    CDULOGIC                              
011431,000274: 15,2027           34013                           STCALL   10D                                   #  CURSOR IN REVS
011432,000275: 15,2030           32141                                    ROTCOMP                               #  COMPUTE YP VEC(NB)
011433,000276: 15,2031           77624                           CALL                                           
011434,000277: 15,2032           47656                                    TRG*NBSM                              #  TRANSFORM YP VEC TO SM AT YROT MARK
011435,000278: 15,2033           32715                           STOVL*   STARAD     +6                         
011436,000279: 15,2034           00002                                    1,1                                   #  PICK UP SPIRAL CDUS
011437,000280: 15,2035           34766                           STCALL   CDUSPOT                               #  GET SINES AND COSINES OF CDUS
011438,000281: 15,2036           47526                                    CD*TR*G                               
011439,000282: 15,2037           71214                           BON      DLOAD                                 
011440,000283: 15,2040           04713                                    FLT59FLG                              
011441,000284: 15,2041           15320                                    FLTTHET                               
011442,000285: 15,2042           00011                                    8D                                    #  COMPUTE INITIAL THETA EST
011443,000286: 15,2043           43225                           DSU      DAD                                   
011444,000287: 15,2044           00013                                    10D                                   
011445,000288: 15,2045           32157                                    ABOUTONE                              
011446,000289: 15,2046           03564        THETRET            STORE    THETEST                               #  INITIAL THET EST MUST BE BETWEEN
011447,000290: 15,2047           51025                           DSU      BPL                                   #  24 AND 342 DEGREES
011448,000291: 15,2050           32151                                    DEG342                                
011449,000292: 15,2051           32135                                    COOLIT                                
011450,000293: 15,2052           45345                           DLOAD    DSU                                   
011451,000294: 15,2053           03564                                    THETEST                               
011452,000295: 15,2054           32153                                    DEG24                                 
011453,000296: 15,2055           45040                           BMN      CALL                                  
011454,000297: 15,2056           32135                                    COOLIT                                
011455,000298: 15,2057           30413                                    SNBCOMP                               #  POMPUTE 2ST EST OF STAR(SM)
011456,000299: 

Page 262

011458,000301: 15,2060           72441                           DOT      SL1                                   
011459,000302: 15,2061           02715                                    STARAD     +6                         
011460,000303: 15,2062           03566        SNBTEST            STORE    ESTER1                                #  SEE IF STAR IN YROT PLANE
011461,000304: 15,2063           45246                           ABS      DSU                                   
011462,000305: 15,2064           32155                                    COS.01                                
011463,000306: 15,2065           71240                           BMN      DLOAD                                 
011464,000307: 15,2066           16275                                    AVEIT                                 #  LESS THAN EPSILON, GOT STAR(SM) IN 24D
011465,000308: 15,2067           03572                                    DELTHET                               
011466,000309: 15,2070           77615                           DAD                                            
011467,000310: 15,2071           03564                                    THETEST                               #  INCREMENT THETA EST BY 1 DEG
011468,000311: 15,2072           37564                           STCALL   THETEST                               
011469,000312: 15,2073           30413                                    SNBCOMP                               #  COMPUTE 2ND EST OF STAR VEC
011470,000313: 15,2074           72441                           DOT      SL1                                   
011471,000314: 15,2075           02715                                    STARAD     +6                         
011472,000315: 15,2076           03570                           STORE    ESTER2                                #  SEE IF SOLUTION BETWEEN ESTER1, ESTER2
011473,000316: 15,2077           71240                           BMN      DLOAD                                 
011474,000317: 15,2100           32105                                    NEGEST2                               
011475,000318: 15,2101           03566                                    ESTER1                                
011476,000319: 15,2102           52044                           BPL      GOTO                                  
011477,000320: 15,2103           32120                                    WHICHWAY                              #  NO SOLU, ARE WE GOING IN RIGHT DIRECTION
011478,000321: 15,2104           32110                                    HOMEIN                                #  SOLUTION BRACKETED, GET FINE CORRECTION
011479,000322: 15,2105           50145        NEGEST2            DLOAD    BMN                                   
011480,000323: 15,2106           03566                                    ESTER1                                
011481,000324: 15,2107           32120                                    WHICHWAY                              
011482,000325: 15,2110           65225        HOMEIN             DSU      PDDL                                  
011483,000326: 15,2111           03570                                    ESTER2                                
011484,000327: 15,2112           03570                                    ESTER2                                
011485,000328: 15,2113           77671                           DDV                                            
011486,000329: 15,2114           77605                           DMP                                            
011487,000330: 15,2115           03572                                    DELTHET                               
011488,000331: 15,2116           37572                           STCALL   DELTHET                               #  FINE SOLUTION, THIS SHOULD GET SNB
011489,000332: 15,2117           32132                                    NEXTIT                                
011490,000333: 
011491,000334: 15,2120           65246        WHICHWAY           ABS      PDDL                                  #  ABS(ESTER1) 0-1
011492,000335: 15,2121           03570                                    ESTER2                                
011493,000336: 15,2122           44246                           ABS      BDSU                                  #  ABS(ESTER1)-ABS(ESTER2)
011494,000337: 15,2123           43044                           BPL      BONSET                                
011495,000338: 15,2124           32132                                    NEXTIT                                
011496,000339: 15,2125           00014                                    FREEFLAG                              
011497,000340: 15,2126           32135                                    COOLIT                                
011498,000341: 15,2127           57545                           DLOAD    DCOMP                                 #  REVERSE DIRECTION OF ESTIMATION
011499,000342: 15,2130           03572                                    DELTHET                               
011500,000343: 15,2131           03572                           STORE    DELTHET                               
011501,000344: 15,2132           61145        NEXTIT             DLOAD    TIX,2                                 #  SEE IF 10 ITERATIONS HAVE BEEN MADE
011502,000345: 15,2133           03570                                    ESTER2                                
011503,000346: 15,2134           32062                                    SNBTEST                               
011504,000347: 15,2135           77776        COOLIT             EXIT                                           
011505,000348: 15,2136           25573                           INCR     NOMKCNT                               
011506,000349: 15,2137           04607                           TC       BANKCALL                              
011507,000350: 15,2140           16320                           CADR     COOLOUT                               
011508,000351: 

Page 263

011510,000353: 15,2141           71406        ROTCOMP            PUSH     COS                                   #  COS(ROT) 0-1
011511,000354: 15,2142           73525                           PDDL     SIN                                   #  1/8SIN(ROT)XP 0-5  1/2COS(ROT)  MPAC
011512,000355: 15,2143           65361                           VXSC     PDDL                                  
011513,000356: 15,2144           03525                                    XPLANE                                
011514,000357: 15,2145           52361                           VXSC     VSU                                   
011515,000358: 15,2146           03533                                    YPLANE                                
011516,000359: 15,2147           43456                           UNIT     RVQ                                   #  1/2UNIT(VEC) IN MPAC
011517,000360: 
011518,000361: 15,2150           36314 31461  DEG342             2DEC     .94999999                             
011519,000362: 15,2152           02104 10417  DEG24              2DEC     .06666666                             
011520,000363: 15,2154           00002 33372  COS.01             2DEC     .0001745                              
011521,000364: 15,2156           37777 37775  ABOUTONE           2DEC     .99999999                             
011522,000365: 15,2160           00055 20264  ONEDEG             2DEC     .00277777                             
011523,000366: 
011524,000367: 
011525,000368: 06,2000                                           SETLOC   AOTMARK3                              
011526,000369: 06,2000                                           BANK                                           
011527,000370: 
011528,000371: 06,3320           64375        FLTTHET            VLOAD    MXV                                   
011529,000372: 06,3321           03575                                    BODY                                  
011530,000373: 06,3322           01732                                    REFSMMAT                              #  FOR INFLIGHT P57 MARKING COMPUTE INITIAL
011531,000374: 06,3323           45056                           UNIT     CALL                                  #  THET EST BY 12(STAR X OPTAXIS)
011532,000375: 06,3324           47663                                    *SMNB*                                
011533,000376: 06,3325           72441                           DOT      SL1                                   
011534,000377: 06,3326           03765                                    SCAXIS                                
011535,000378: 06,3327           41326                           ARCCOS   DMP                                   
011536,000379: 06,3330           23773                                    3/4                                   #  12 SCALED BY 16
011537,000380: 06,3331           52012                           SL4      GOTO                                  
011538,000381: 06,3332           32046                                    THETRET                               
011539,000382: 

Page 264

011541,000384:                                                                                                  #  SUBROUTINE TO COMPUTE STAR VEC IN NB COORDINATES
011542,000385: 14,2000                                           SETLOC   P50S1                                 
011543,000386: 14,2000                                           BANK                                           
011544,000387: 
011545,000388: 14,2413           77620        SNBCOMP            STQ                                            
011546,000389: 14,2414           02745                                    QMIN                                  
011547,000390: 14,2415           41345                           DLOAD    DMP                                   
011548,000391: 14,2416           03564                                    THETEST                               
011549,000392: 14,2417           30454                                    DP1/12                                
011550,000393: 14,2420           71406                           PUSH     COS                                   #  COS(T/12) 0-1
011551,000394: 14,2421           73525                           PDDL     SIN                                   
011552,000395: 14,2422           41525                           PDDL     PUSH                                  #  SIN(T/12) 2-3
011553,000396: 14,2423           03564                                    THETEST                               
011554,000397: 14,2424           65356                           SIN      PDDL                                  #  SIN(T) 4-5
011555,000398: 14,2425           41346                           COS      DMP                                   
011556,000399: 14,2426           00003                                    2                                     #  COS(T)SIN(T/12) 6-7
011557,000400: 14,2427           47315                           PDVL     VXV                                   
011558,000401: 14,2430           03773                                    POINTVSM                              
011559,000402: 14,2431           03765                                    SCAXIS                                
011560,000403: 14,2432           74372                           VSL1     VXSC                                  #  UP 6-7
011561,000404: 14,2433           77626                           STADR                                          
011562,000405: 14,2434           63746                           STODL    24D                                   #  COS(T)SIN(T/12)(YP X OA)
011563,000406: 14,2435           77605                           DMP                                            #  UP 4-5  UP 2-3
011564,000407: 14,2436           51361                           VXSC     BVSU                                  
011565,000408: 14,2437           03773                                    POINTVSM                              #  SIN(T)SIN(T/12)YP
011566,000409: 14,2440           00031                                    24D                                   
011567,000410: 14,2441           14031                           STODL    24D                                   
011568,000411: 14,2442           74561                           VXSC     VSR1                                  #  UP 0-1
011569,000412: 14,2443           03765                                    SCAXIS                                
011570,000413: 14,2444           53455                           VAD      UNIT                                  
011571,000414: 14,2445           00031                                    24D                                   
011572,000415: 14,2446           34031                           STCALL   24D                                   #  STAR(NB)
011573,000416: 14,2447           47665                                    *NBSM*                                
011574,000417: 14,2450           00031                           STORE    24D                                   #  STAR(SM)
011575,000418: 14,2451           77650                           GOTO                                           
011576,000419: 14,2452           02745                                    QMIN                                  
011577,000420: 
011578,000421: 14,2453           02525 12525  DP1/12             2DEC     .083333333                            
011579,000422: 

Page 265

011581,000424:                                                                                                  #  GETMKS ROUTINE
011582,000425: 07,2000                                           SETLOC   AOTMARK1                              
011583,000426: 07,2000                                           BANK                                           
011584,000427: 07,2140                                           COUNT*   $$/MARK                               
011585,000428: 
011586,000429: 07,2140           34746        GETMKS             CAF      ZERO                                  #  INITIALIZE MARK ID REGISTER AND MARK CNT
011587,000430: 07,2141           55573                           TS       NOMKCNT                               
011588,000431: 07,2142           55236                           TS       XCOUNT                                
011589,000432: 07,2143           55237                           TS       YCOUNT                                
011590,000433: 07,2144           55551                           TS       XYMARK                                
011591,000434: 07,2145           55762                           TS       XMKCNTR                               
011592,000435: 07,2146           55763                           TS       YMKCNTR                               
011593,000436: 07,2147           40104                           CS       FLAGWRD8                              
011594,000437: 07,2150           74735                           MASK     BIT8                                  
011595,000438: 07,2151           00006                           EXTEND                                         
011596,000439: 07,2152           12156                           BZF      SETSURF                               #  SURFFLAG FLAG SET, JAM ONE IN WHATMARK
011597,000440: 07,2153           30105                           CA       FLAGWRD9                              
011598,000441: 07,2154           74741                           MASK     BIT4                                  #  SEE IF CURSOR-SPIRAL MARKING
011599,000442: 07,2155           10000                           CCS      A                                     
011600,000443: 07,2156           34744        SETSURF            CA       ONE                                   
011601,000444: 07,2157           55550                           TS       WHATMARK                              
011602,000445: 
011603,000446: 07,2160           34775        PASTIT             CAF      LOW9                                  #  FREE UP MARKRUPT RETAINING MKVAC ADR
011604,000447: 07,2161           71307                           MASK     MARKSTAT                              
011605,000448: 07,2162           55307                           TS       MARKSTAT                              
011606,000449: 07,2163           51550                           INDEX    WHATMARK                              
011607,000450: 07,2164           32566                           CAF      MKVB54                                #  DISPLAY MARK REQUEST
011608,000451: 07,2165           04607                           TC       BANKCALL                              
011609,000452: 07,2166           20331                           CADR     GOMARK2                               
011610,000453: 
011611,000454: 07,2167           12053                           TCF      KILLAOT                               #  V34-DOES GOTOPOOH
011612,000455: 07,2170           12212                           TCF      MARKCHEX                              #  VB33-PROCEED, GOT MARKS, COMPUTE LOS
011613,000456: 07,2171           44737                           CS       BIT6                                  
011614,000457: 07,2172           70154                           MASK     MPAC                                  
011615,000458: 07,2173           00006                           EXTEND                                         
011616,000459: 07,2174           12056                           BZF      GETDAT                                #  VB32 RECYCLE TO V01N71
011617,000460: 07,2175           41550                           CS       WHATMARK                              #  ENTER-REVERSE CURSOR OR SPIRAL REQUEST
011618,000461: 07,2176           55550                           TS       WHATMARK                              
011619,000462: 07,2177           11551                           CCS      XYMARK                                
011620,000463: 07,2200           12202                           TCF      +2                                    #  IF ONE, SET ZERO
011621,000464: 07,2201           34744                           CAF      ONE                                   #  IF ZERO, SET ONE
011622,000465: 07,2202           55551                           TS       XYMARK                                
011623,000466: 07,2203           00006        PREPAST            EXTEND                                         
011624,000467: 07,2204           31763                           DCA      XMKCNTR                               
011625,000468: 07,2205           53237                           DXCH     XCOUNT                                #  UPDATE DISPLAY COUNTERS
011626,000469: 07,2206           34730                           CAF      BIT13                                 
011627,000470: 07,2207           51551                           INDEX    XYMARK                                
011628,000471: 07,2210           27236                           ADS      XCOUNT                                
011629,000472: 07,2211           12160                           TCF      PASTIT                                
011630,000473: 

Page 266

011632,000475: 07,2212           41307        MARKCHEX           CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
011633,000476: 07,2213           74731                           MASK     BIT12                                 
011634,000477: 07,2214           27307                           ADS      MARKSTAT                              
011635,000478: 07,2215           74775                           MASK     LOW9                                  
011636,000479: 07,2216           55551                           TS       XYMARK                                #  JAM MARK VAC ADR IN XYMARK FOR AVESTAR
011637,000480: 07,2217           34746                           CAF      ZERO                                  
011638,000481: 07,2220           55552                           TS       MKDEX                                 #  SET MKDEX ZERO FOR LOS VEC CNTR
011639,000482: 07,2221           11762                           CCS      XMKCNTR                               
011640,000483: 07,2222           12224                           TCF      +2                                    
011641,000484: 07,2223           12331                           TCF      MKALARM                               
011642,000485: 07,2224           55762                           TS       XMKCNTR                               
011643,000486: 07,2225           11763                           CCS      YMKCNTR                               
011644,000487: 07,2226           12230                           TCF      +2                                    
011645,000488: 07,2227           12331                           TCF      MKALARM                               
011646,000489: 07,2230           55763                           TS       YMKCNTR                               
011647,000490: 07,2231           40000                           COM                                            
011648,000491: 07,2232           61762                           AD       XMKCNTR                               
011649,000492: 07,2233           00006                           EXTEND                                         
011650,000493: 07,2234           62237                           BZMF     AVESTAR                               
011651,000494: 07,2235           31763                           CA       YMKCNTR                               
011652,000495: 07,2236           55762                           TS       XMKCNTR                               
011653,000496: 
011654,000497: 07,2237           41762        AVESTAR            CS       XMKCNTR                               
011655,000498: 07,2240           00006                           EXTEND                                         
011656,000499: 07,2241           74741                           MP       EIGHT                                 #  GET C(L)=-8 MARKCNTR
011657,000500: 07,2242           41551                           CS       XYMARK                                
011658,000501: 07,2243           60001                           AD       L                                     #  ADD - MARK VAC ADR SET IN MARKCHEX
011659,000502: 07,2244           50120                           INDEX    FIXLOC                                
011660,000503: 07,2245           54046                           TS       X1                                    #  JAM - CDU ADR OF X-MARK IN X1
011661,000504: 
011662,000505: 07,2246           30120                           CA       FIXLOC                                #  SET PD POINTER TO ZERO
011663,000506: 07,2247           54166                           TS       PUSHLOC                               
011664,000507: 
011665,000508: 07,2250           06060                           TC       INTPRET                               
011666,000509: 07,2251           43014                           BON      BON                                   
011667,000510: 07,2252           04307                                    SURFFLAG                              
011668,000511: 07,2253           32004                                    SURFSTAR                              
011669,000512: 07,2254           04713                                    FLT59FLG                              
011670,000513: 07,2255           32004                                    SURFSTAR                              
011671,000514: 07,2256           77773                           VLOAD*                                         
011672,000515: 07,2257           00002                                    1,1                                   
011673,000516: 07,2260           24766                           STOVL    CDUSPOT                               
011674,000517: 07,2261           03533                                    YPLANE                                
011675,000518: 07,2262           77624                           CALL                                           
011676,000519: 07,2263           47656                                    TRG*NBSM                              #  CONVERT IT TO STABLE MEMBER
011677,000520: 07,2264           76606                           PUSH     VLOAD*                                
011678,000521: 07,2265           00001                                    0,1                                   #  PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
011679,000522: 07,2266           24766                           STOVL    CDUSPOT                               
011680,000523: 07,2267           03525                                    XPLANE                                
011681,000524: 07,2270           77624                           CALL                                           
011682,000525: 

Page 267

011684,000527: 07,2271           47656                                    TRG*NBSM                              #  CONVERT IT TO STABLE-MEMBER
011685,000528: 07,2272           53435                           VXV      UNIT                                  #  UNIT(XPSM * YPSM)
011686,000529: 07,2273           77626                           STADR                                          
011687,000530: 07,2274           77746                           STORE    24D                                   
011688,000531: 
011689,000532: 07,2275           77776        AVEIT              EXIT                                           
011690,000533: 07,2276           34731                           CAF      BIT12                                 #  INCREMENT STAR VEC COUNTER
011691,000534: 07,2277           27552                           ADS      MKDEX                                 #  MKDEX WAS INITIALIZED ZERO IN MARKCHEX
011692,000535: 07,2300           06060                           TC       INTPRET                               
011693,000536: 07,2301           63335                           SLOAD    PDVL                                  
011694,000537: 07,2302           03553                                    MKDEX                                 
011695,000538: 07,2303           00031                                    24D                                   #  LOAD CURRENT VECTOR
011696,000539: 07,2304           70322                           VSR3     V/SC                                  
011697,000540: 07,2305           00001                                    0                                     
011698,000541: 07,2306           14031                           STODL    24D                                   #  VEC/N
011699,000542: 07,2307           00001                                    0                                     
011700,000543: 07,2310           56225                           DSU      DDV                                   
011701,000544: 07,2311           16571                                    DP1/8                                 #  (N-1)/N
011702,000545: 07,2312           53361                           VXSC     VAD                                   
011703,000546: 07,2313           02767                                    STARSAV2                              #  ADD VEC TO PREVIOUSLY AVERAGED VEC
011704,000547: 07,2314           00031                                    24D                                   #  (N-1)/N AVESTVEC + VEC/N
011705,000548: 07,2315           77656                           UNIT                                           
011706,000549: 07,2316           02767                           STORE    STARSAV2                              
011707,000550: 07,2317           77776                           EXIT                                           
011708,000551: 07,2320           11762        COOLOUT            CCS      XMKCNTR                               #  SEE IF MARK PAIR IN MKVAC
011709,000552: 07,2321           12236                           TCF      AVESTAR    -1                         #  THERE IS-GO GET IT-DECREMENT COUNTER
011710,000553: 07,2322           11573                           CCS      NOMKCNT                               #  IF ANY MKS NOT USED DISPLAY V50N25
011711,000554: 07,2323           12334                           TCF      ASKASTR                               #  AND THE NUMBER MKS NOT USED
011712,000555: 07,2324           34747        ENDMARKS           CAF      FIVE                                  
011713,000556: 07,2325           05205                           TC       WAITLIST                              
011714,000557: 07,2326  E7,1551                                  EBANK=   XYMARK                                
011715,000558: 07,2326           02042 16067                     2CADR    MKRELEAS                              
011716,000559: 07,2330           05474                           TC       ENDMARK                               
011717,000560: 
011718,000561: 07,2331           05571        MKALARM            TC       ALARM                                 #  NOT A PAIR TO PROCESS-DO GETMKS
011719,000562: 07,2332           00111                           OCT      111                                   
011720,000563: 07,2333           12140                           TCF      GETMKS                                
011721,000564: 
011722,000565: 07,2334           34310        ASKASTR            CAF      OCT16                                 
011723,000566: 07,2335           55044                           TS       DSPTEM1                               
011724,000567: 07,2336           31573                           CA       NOMKCNT                               
011725,000568: 07,2337           55045                           TS       DSPTEM1    +1                         
011726,000569: 07,2340           32351                           CAF      V50N25                                
011727,000570: 07,2341           04607                           TC       BANKCALL                              
011728,000571: 07,2342           20350                           CADR     GOMARK2R                              
011729,000572: 
011730,000573: 07,2343           12053                           TCF      KILLAOT                               #  V34 TERMINATE
011731,000574: 07,2344           12324                           TCF      ENDMARKS                              #  PRO - PROCEED ANYWAY
011732,000575: 

Page 268

011734,000577: 07,2345           12056                           TCF      GETDAT                                
011735,000578: 07,2346           34742                           CAF      BIT3                                  
011736,000579: 07,2347           05466                           TC       BLANKET                               
011737,000580: 07,2350           05146                           TC       ENDOFJOB                              
011738,000581: 
011739,000582: 07,2351           14431        V50N25             VN       5025                                  
011740,000583: 07,2352           00307        V01N71             VN       171                                   
011741,000584: 07,2353           01527        V06N87*            VN       687                                   
011742,000585: 

Page 269

011744,000587:                                                                                                  #  MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
011745,000588:                                                                                                  #  CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
011746,000589: 
011747,000590: 07,2354           54016        MARKRUPT           TS       BANKRUPT                              
011748,000591: 07,2355           30033                           CA       CDUY                                  #  STORE CDUS AND TIME NOW-THEN SEE IF
011749,000592: 07,2356           54063                           TS       ITEMP3                                #  WE NEED THEM
011750,000593: 07,2357           30034                           CA       CDUZ                                  
011751,000594: 07,2360           54064                           TS       ITEMP4                                
011752,000595: 07,2361           30032                           CA       CDUX                                  
011753,000596: 07,2362           54065                           TS       ITEMP5                                
011754,000597: 07,2363           00006                           EXTEND                                         
011755,000598: 07,2364           30025                           DCA      TIME2                                 
011756,000599: 07,2365           52062                           DXCH     ITEMP1                                
011757,000600: 07,2366           56002                           XCH      Q                                     
011758,000601: 07,2367           54012                           TS       QRUPT                                 
011759,000602: 
011760,000603: 07,2370           34767                           CAF      OCT140                                #  SEE IF ROD INPUT
011761,000604: 07,2371           00006                           EXTEND                                         
011762,000605: 07,2372           02016                           RAND     NAVKEYIN                              
011763,000606: 07,2373           00006                           EXTEND                                         
011764,000607: 07,2374           62376                           BZMF     FINDKEY                               
011765,000608: 
011766,000609: 07,2375           02441                           TC       DESCBITS                              #  ROD INPUT
011767,000610: 07,2376           02451        FINDKEY            TC       VALIDCHK                              #  NO ROD INPUT-SEE IF VALID MARKRUPT
011768,000611: 07,2377           34740                           CAF      BIT5                                  #  GOOD RUPT-SEE IF MARK REJECT
011769,000612: 
011770,000613: 07,2400           00006                           EXTEND                                         
011771,000614: 07,2401           02016                           RAND     NAVKEYIN                              
011772,000615: 07,2402           10000                           CCS      A                                     
011773,000616: 07,2403           12572                           TCF      MKREJ                                 #  ITS A MARK REJECT
011774,000617: 
011775,000618: 07,2404           11550        CHKWHAT            CCS      WHATMARK                              
011776,000619: 07,2405           12425                           TCF      XMKRUPT                               #  +1 FOR CURSOR MARK
011777,000620: 07,2406           12410                           TCF      FINDMARK                              #  0  FOR INFLIGHT MARK
011778,000621: 07,2407           12427                           TCF      YMKRUPT                               #  -1 FOR SPIRAL
011779,000622: 
011780,000623: 07,2410           34741        FINDMARK           CAF      BIT4                                  #  SEE IF Y MARK
011781,000624: 07,2411           00006                           EXTEND                                         
011782,000625: 07,2412           02016                           RAND     NAVKEYIN                              
011783,000626: 07,2413           10000                           CCS      A                                     
011784,000627: 
011785,000628: 07,2414           12427                           TCF      YMKRUPT                               #  ITS Y MARK OR SPIRAL MARK
011786,000629: 07,2415           34742                           CAF      BIT3                                  #  SEE IF X MARK
011787,000630: 07,2416           00006                           EXTEND                                         
011788,000631: 07,2417           02016                           RAND     NAVKEYIN                              
011789,000632: 07,2420           10000                           CCS      A                                     
011790,000633: 07,2421           12425                           TCF      XMKRUPT                               #  ITS A X MARK
011791,000634: 
011792,000635: 07,2422           05571        113ALRM            TC       ALARM                                 #  NO INBITS IN CHANNEL 16
011793,000636: 07,2423           00113                           OCT      113                                   
011794,000637: 

Page 270

011796,000639: 07,2424           05272                           TC       RESUME                                
011797,000640: 
011798,000641: 07,2425           34746        XMKRUPT            CAF      ZERO                                  
011799,000642: 07,2426           12430                           TCF      +2                                    #  SET STORE INDEX ZERO
011800,000643: 07,2427           34744        YMKRUPT            CAF      ONE                                   
011801,000644: 07,2430           55551                           TS       XYMARK                                #  SET MARK ID REG
011802,000645: 07,2431           50000                           INDEX    A                                     
011803,000646: 07,2432           41762                           CS       XMKCNTR                               
011804,000647: 07,2433           64747                           AD       FIVE                                  
011805,000648: 07,2434           00006                           EXTEND                                         
011806,000649: 07,2435           62467                           BZMF     VACSTOR                               #  IF 7TH MARK. STORE DATA AS 6TH MARK
011807,000650: 07,2436           51551                           INDEX    XYMARK                                
011808,000651: 07,2437           25762                           INCR     XMKCNTR                               
011809,000652: 07,2440           12467                           TCF      VACSTOR                               
011810,000653: 
011811,000654: 07,2441           74736        DESCBITS           MASK     BIT7                                  
011812,000655: 07,2442           54001                           TS       L                                     
011813,000656: 
011814,000657: 07,2443           34740                           CAF      AVEGFBIT                              
011815,000658: 07,2444           70103                           MASK     FLAGWRD7                              
011816,000659: 07,2445           10000                           CCS      A                                     
011817,000660: 07,2446           12462                           TCF      RODIN                                 
011818,000661: 07,2447           02451                           TC       VALIDCHK                              
011819,000662: 07,2450           12404                           TCF      CHKWHAT                               #  THIS IS BACK UP MARK
011820,000663: 
011821,000664: 07,2451           11307        VALIDCHK           CCS      MARKSTAT                              
011822,000665: 07,2452           12456                           TCF      CHK12                                 
011823,000666: 
011824,000667: 07,2453           05571        ALM112             TC       ALARM                                 #  MARKRUPT NOT ALLOWED
011825,000668: 07,2454           00112                           OCT      112                                   
011826,000669: 07,2455           05272                           TC       RESUME                                
011827,000670: 
011828,000671: 07,2456           74731        CHK12              MASK     BIT12                                 
011829,000672: 07,2457           10000                           CCS      A                                     
011830,000673: 07,2460           12453                           TCF      ALM112                                
011831,000674: 07,2461           00002                           TC       Q                                     
011832,000675: 
011833,000676: 07,2462           10001        RODIN              CCS      L                                     
011834,000677: 07,2463           44743                           CS       TWO                                   
011835,000678: 07,2464           64744                           AD       ONE                                   
011836,000679: 07,2465           27746                           ADS      RODCOUNT                              
011837,000680: 07,2466           05272                           TC       RESUME                                
011838,000681: 

Page 271

011840,000683:                                                                                                  #  DATA STORE ROUTINE
011841,000684: 
011842,000685: 07,2467           00006        VACSTOR            EXTEND                                         
011843,000686: 07,2470           30062                           DCA      ITEMP1                                #  STORE MARK TIME FOR DOWNLINK
011844,000687: 07,2471           53562                           DXCH     TSIGHT                                
011845,000688: 
011846,000689: 07,2472           34775                           CAF      LOW9                                  
011847,000690: 07,2473           71307                           MASK     MARKSTAT                              #  GRAB MARK VAC ADR
011848,000691: 07,2474           55552                           TS       MKDEX                                 
011849,000692: 07,2475           51551                           INDEX    XYMARK                                
011850,000693: 07,2476           11762                           CCS      XMKCNTR                               #  DECREMENT COUNTER TO START STORE AT ZERO
011851,000694: 07,2477           00006                           EXTEND                                         
011852,000695: 07,2500           74741                           MP       EIGHT                                 
011853,000696: 07,2501           56001                           XCH      L                                     
011854,000697: 07,2502           61551                           AD       XYMARK                                
011855,000698: 07,2503           27552                           ADS      MKDEX                                 #  MK VAC ADR + 8(CNTR-1) + MARK ID
011856,000699: 07,2504           30063                           CA       ITEMP3                                
011857,000700: 07,2505           51552                           INDEX    MKDEX                                 
011858,000701: 07,2506           54000                           TS       0                                     #  STORE CDUY
011859,000702: 07,2507           30064                           CA       ITEMP4                                
011860,000703: 07,2510           51552                           INDEX    MKDEX                                 
011861,000704: 07,2511           54002                           TS       2                                     #  STORE CDUZ
011862,000705: 07,2512           30065                           CA       ITEMP5                                
011863,000706: 07,2513           51552                           INDEX    MKDEX                                 
011864,000707: 07,2514           54004                           TS       4                                     #  STORE CDUX
011865,000708: 07,2515           12516        ENDSTOR            TCF      REMARK                                
011866,000709: 

Page 272

011868,000711:                                                                                                  #  REMARK AND CURSOR-SPIRAL KEYIN ROUTINE
011869,000712: 
011870,000713: 07,2516           35016        REMARK             CAF      PRIO15                                #  ENTER JOB TO CHANGE DISPLAY
011871,000714: 07,2517           05063                           TC       NOVAC                                 
011872,000715: 07,2520  E7,1551                                  EBANK=   XYMARK                                
011873,000716: 07,2520           02523 16067                     2CADR    CHANGEVB                              
011874,000717: 
011875,000718: 
011876,000719: 07,2522           05272                           TC       RESUME                                
011877,000720: 
011878,000721: 07,2523           31550        CHANGEVB           CA       WHATMARK                              
011879,000722: 07,2524           00006                           EXTEND                                         
011880,000723: 07,2525           12203                           BZF      PREPAST                               #  RE-DISPLAY VERB54 FOR INFLIGHT MARK
011881,000724: 07,2526           41307                           CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARK
011882,000725: 07,2527           74731                           MASK     BIT12                                 
011883,000726: 07,2530           27307                           ADS      MARKSTAT                              
011884,000727: 
011885,000728: 07,2531           51550                           INDEX    WHATMARK                              
011886,000729: 07,2532           32563                           CAF      V06N79*                               #  EITHER V21N79 OR V 22N79 LOAD VERB
011887,000730: 07,2533           04607                           TC       BANKCALL                              
011888,000731: 07,2534           20345                           CADR     GOMARKFR                              
011889,000732: 
011890,000733: 07,2535           12053                           TCF      KILLAOT                               #  VB34-TERMINATE
011891,000734: 07,2536           12543                           TCF      N79DISP                               
011892,000735: 07,2537           12543                           TCF      N79DISP                               
011893,000736: 
011894,000737: 07,2540           34750                           CAF      SEVEN                                 
011895,000738: 07,2541           05466                           TC       BLANKET                               
011896,000739: 07,2542           05146                           TC       ENDOFJOB                              
011897,000740: 
011898,000741: 07,2543           32563        N79DISP            CAF      V06N79*                               #  ENTER-DISPLAY V06N79 FOR VERIFY
011899,000742: 07,2544           04607                           TC       BANKCALL                              
011900,000743: 07,2545           20345                           CADR     GOMARKFR                              
011901,000744: 
011902,000745: 07,2546           02053                           TC       KILLAOT                               
011903,000746: 07,2547           12555                           TCF      SURFAGAN                              
011904,000747: 07,2550           12543                           TCF      N79DISP                               
011905,000748: 
011906,000749: 07,2551           41551                           CS       XYMARK                                
011907,000750: 07,2552           66263                           AD       SIX                                   
011908,000751: 07,2553           05466                           TC       BLANKET                               
011909,000752: 07,2554           05146                           TC       ENDOFJOB                              
011910,000753: 
011911,000754: 07,2555           51551        SURFAGAN           INDEX    XYMARK                                
011912,000755: 07,2556           31240                           CA       CURSOR                                
011913,000756: 07,2557           51552                           INDEX    MKDEX                                 
011914,000757: 07,2560           54006                           TS       6                                     
011915,000758: 07,2561           12203                           TCF      PREPAST                               
011916,000759: 
011917,000760: 07,2562           05517        V22N79             VN       2279                                  #  SPIRAL LOAD DISPLAY
011918,000761: 

Page 273

011920,000763: 07,2563           01517        V06N79*            VN       679                                   
011921,000764: 07,2564           05317        V21N79             VN       2179                                  #  CURSOR LOAD DISPLAY
011922,000765: 
011923,000766: 07,2565           15307        MKVB53             VN       5371                                  #  SPIRAL MARK REQUEST
011924,000767: 07,2566           15507        MKVB54             VN       5471                                  #  X OR Y MARK
011925,000768: 07,2567           15107        MKVB52             VN       5271                                  #  CURSOR MARK REQUEST
011926,000769: 07,2570           04000 00000  DP1/8              2DEC     .125                                  
011927,000770: 

Page 274

011929,000772:                                                                                                  #  MARK REJECT ROUTINE
011930,000773: 07,2572           51551        MKREJ              INDEX    XYMARK                                
011931,000774: 07,2573           11762                           CCS      XMKCNTR                               
011932,000775: 07,2574           12600                           TCF      REJMK                                 #  REJECT MARK
011933,000776: 
011934,000777: 07,2575           05571                           TC       ALARM                                 
011935,000778: 07,2576           00115                           OCT      115                                   #  NO MARK OF THIS KIND TO REJECT
011936,000779: 07,2577           05272                           TC       RESUME                                
011937,000780: 
011938,000781: 07,2600           51551        REJMK              INDEX    XYMARK                                
011939,000782: 07,2601           55762                           TS       XMKCNTR                               #  STORE DECREMENTED MARK COUNTER
011940,000783: 
011941,000784: 07,2602           35016                           CAF      PRIO15                                #  ENTER JOB TO RE-DISPLAY MARK REQUEST
011942,000785: 07,2603           05063                           TC       NOVAC                                 
011943,000786: 07,2604  E7,1551                                  EBANK=   XYMARK                                
011944,000787: 07,2604           02203 16067                     2CADR    PREPAST                               
011945,000788: 07,2606           05272                           TC       RESUME                                

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