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.

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

Page 255

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

Page 256

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

Page 257

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

Page 258

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

Page 259

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

Page 260

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

Page 261

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

Page 262

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

Page 263

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

Page 264

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

Page 265

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

Page 266

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

Page 267

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

Page 268

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

Page 269

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

Page 270

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

Page 271

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

Page 272

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

Page 273

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

Page 274

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

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