Source Code
![]() |
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the
second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
010304,000002: ## Copyright: Public domain.
010305,000003: ## Filename: AOTMARK.agc
010306,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
010307,000005: ## otherwise known as Luminary Rev 99, the second release
010308,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
010309,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
010310,000008: ## placement of a single label. The corrections shown here have
010311,000009: ## been verified to have the same bank checksums as AGC developer
010312,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
010313,000011: ## to be accurate. This file is intended to be a faithful
010314,000012: ## recreation, except that the code format has been changed to
010315,000013: ## conform to the requirements of the yaYUL assembler rather than
010316,000014: ## the original YUL assembler.
010317,000015: ##
010318,000016: ## Assembler: yaYUL
010319,000017: ## Contact: Ron Burkey <info@sandroid.org>.
010320,000018: ## Website: www.ibiblio.org/apollo.
010321,000019: ## Pages: 244-261
010322,000020: ## Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
010323,000021: ## from the Luminary131/ file of the same
010324,000022: ## name, using Luminary099 page images.
010325,000023: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH
010326,000024: ## 2016-12-13 RSB Proofed text comments with octopus/ProoferComments
010327,000025: ## and corrected the errors found.
010328,000026: ## 2017-03-06 RSB Some comment-text fixes identified while proofing
010329,000027: ## Luminary 116.
010330,000028: ## 2017-03-14 RSB Comment-text fixes identified in 5-way
010331,000029: ## side-by-side diff of Luminary 69/99/116/131/210.
010332,000030: ## 2017-08-01 MAS Created from LMY99 Rev 1.
010333,000031: ## 2017-08-19 MAS Fixed a typo found while transcribing Zerlina 56.
010334,000032:
010335,000033: ## This source code has been transcribed or otherwise adapted from
010336,000034: ## digitized images of a hardcopy from the MIT Museum. The digitization
010337,000035: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
010338,000036: ## the Museum. Many thanks to both. The images (with suitable reduction
010339,000037: ## in storage size and consequent reduction in image quality as well) are
010340,000038: ## available online at www.ibiblio.org/apollo. If for some reason you
010341,000039: ## find that the images are illegible, contact me at info@sandroid.org
010342,000040: ## about getting access to the (much) higher-quality images which Paul
010343,000041: ## actually created.
010344,000042: ##
010345,000043: ## The code has been modified to match LMY99 Revision 0, otherwise
010346,000044: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
010347,000045: ## the listing from which it was transcribed. It has been verified to
010348,000046: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
010349,000047: ## of Luminary Revision 99 (for which we do not have scans).
010350,000048: ##
010351,000049: ## Notations on Allan Klumpp's listing read, in part:
010352,000050: ##
010353,000051: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
010354,000052:
![]() |
Page 244 |
010356,000054: 12,2000 BANK 12
010357,000055: 07,2000 SETLOC AOTMARK1
010358,000056: 07,2000 BANK
010359,000057:
010360,000058: 07,2000 E7,1551 EBANK= XYMARK
010361,000059: 07,2000 COUNT* $$/MARK
010362,000060:
010363,000061: 07,2000 00004 AOTMARK INHINT
010364,000062: 07,2001 11312 CCS MARKSTAT # SEE IF AOTMARK BUSY
010365,000063: 07,2002 02004 TC +2 # MARK SYSTEM BUSY - DO ALARM
010366,000064: 07,2003 02006 TC EXTVBCHK
010367,000065: 07,2004 05652 TC POODOO
010368,000066: 07,2005 00105 OCT 00105
010369,000067:
010370,000068: 07,2006 36242 EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
010371,000069: 07,2007 71044 MASK EXTVBACT
010372,000070: 07,2010 10000 CCS A
010373,000071: 07,2011 12044 TCF MKABORT # YES - ABORT
010374,000072:
010375,000073: 07,2012 34752 CAF BIT2 # NO - DISALLOW SOME EXTENDED VERB ACTION
010376,000074: 07,2013 27044 ADS EXTVBACT # BIT2 RESET IN ENDMARK
010377,000075: 07,2014 10400 MKVAC CCS VAC1USE # LOOK FOR A VAC AREA - DO ABORT IF
010378,000076: 07,2015 12031 TCF MKVACFND # NONE AVAILABLE
010379,000077: 07,2016 10454 CCS VAC2USE
010380,000078: 07,2017 12031 TCF MKVACFND
010381,000079: 07,2020 10530 CCS VAC3USE
010382,000080: 07,2021 12031 TCF MKVACFND
010383,000081: 07,2022 10604 CCS VAC4USE
010384,000082: 07,2023 12031 TCF MKVACFND
010385,000083: 07,2024 10660 CCS VAC5USE
010386,000084: 07,2025 12031 TCF MKVACFND
010387,000085: 07,2026 52134 DXCH BUF2
010388,000086: 07,2027 05716 TC BAILOUT1 # ALL VAC AREAS OCCUPIED - ABORT.
010389,000087: 07,2030 01207 OCT 01207
010390,000088:
010391,000089: 07,2031 64752 MKVACFND AD TWO
010392,000090: 07,2032 55312 TS MARKSTAT # STORE VAC ADR IN LOW 9 OF MARKSTAT
010393,000091:
010394,000092: 07,2033 34755 CAF ZERO
010395,000093: 07,2034 51312 INDEX MARKSTAT
010396,000094: 07,2035 53777 TS 0 -1 # ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
010397,000095:
010398,000096: 07,2036 35025 CAF PRIO15
010399,000097: 07,2037 05105 TC FINDVAC # SET UP JOB FOR GETDAT
010400,000098: 07,2040 E7,1551 EBANK= XYMARK
010401,000099: 07,2040 02063 16067 2CADR GETDAT
010402,000100:
010403,000101: 07,2042 00003 RELINT
010404,000102: 07,2043 14631 TCF SWRETURN
![]() |
Page 245 |
010406,000104: 07,2044 52134 MKABORT DXCH BUF2
010407,000105: 07,2045 05716 TC BAILOUT1 # CONFLICT WITH EXTENDED VERB
010408,000106: 07,2046 01211 OCT 01211
010409,000107:
010410,000108: 07,2047 34755 MKRELEAS CAF ZERO
010411,000109: 07,2050 57312 XCH MARKSTAT # SET MARKSTAT TO ZERO
010412,000110: 07,2051 75004 MASK LOW9 # PICK UP VAC AREA ADR
010413,000111: 07,2052 10000 CCS A
010414,000112: 07,2053 50000 INDEX A
010415,000113: 07,2054 54000 TS 0 # SHOW MKVAC AREA AVAILABLE
010416,000114: 07,2055 34753 CAF ONE
010417,000115: 07,2056 04674 TC IBNKCALL
010418,000116: 07,2057 17665 CADR GOODEND # GO WAKE UP CALLING JOB
010419,000117:
![]() |
Page 246 |
010421,000119: 07,2060 34755 KILLAOT CAF ZERO
010422,000120: 07,2061 55044 TS EXTVBACT # TERMINATE AOTMARK - ALLOW EXT VERB
010423,000121: 07,2062 06001 TC GOTOPOOH
010424,000122: 07,2063 41312 GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
010425,000123: 07,2064 74740 MASK BIT12 # BIT12 RESET AT GETMARK
010426,000124: 07,2065 27312 ADS MARKSTAT
010427,000125:
010428,000126: 07,2066 32330 CAF V01N71 # DISPLAY DETENT AND STAR CODE
010429,000127: 07,2067 04616 TC BANKCALL
010430,000128: 07,2070 20334 CADR GOMARKF
010431,000129:
010432,000130: 07,2071 12060 TCF KILLAOT # V34 - DOES GOTOPOOH
010433,000131: 07,2072 12074 TCF DODAT # V33 - PROCEED - USE THIS STAR FOR MARKS
010434,000132: 07,2073 12063 ENTERDAT TCF GETDAT # ENTER - REDISPLAY STAR CODE
010435,000133:
010436,000134: 07,2074 37744 DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
010437,000135: 07,2075 70735 MASK AOTCODE # AND SEE IF CODE 1 TO 6
010438,000136: 07,2076 00006 EXTEND
010439,000137: 07,2077 74743 MP BIT9
010440,000138: 07,2100 55551 TS XYMARK # STORE DETENT
010441,000139:
010442,000140: 07,2101 00006 EXTEND
010443,000141: 07,2102 62063 BZMF GETDAT # COAS CALIBRATION CODE - NO GOOD HERE
010444,000142:
010445,000143: 07,2103 65660 AD NEG7 # SEE IF DETENT 7 FOR COAS
010446,000144: 07,2104 00006 EXTEND
010447,000145: 07,2105 12107 BZF CODE7
010448,000146:
010449,000147: 07,2106 12123 TCF CODE1TO6
010450,000148:
010451,000149: 07,2107 32331 CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
010452,000150: 07,2110 04616 TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
010453,000151: 07,2111 20334 CADR GOMARKF
010454,000152:
010455,000153: 07,2112 12060 TCF KILLAOT # V34 - DOES GOTOPOOH
010456,000154: 07,2113 12115 TCF +2 # PROCEED
010457,000155: 07,2114 12107 TCF CODE7 # ON ENTER, RECYCLE
010458,000156: 07,2115 00006 EXTEND
010459,000157: 07,2116 31350 DCA AZ # PICK UP AZ AND EL IN SP 2S COMP
010460,000158: 07,2117 50120 INDEX FIXLOC
010461,000159: 07,2120 52011 DXCH 8D # STORE IN 8D AND 9D OF LOCAL VAC
010462,000160: 07,2121 34755 CAF ZERO # BACKUP SYSTEM TO BE USED
010463,000161: 07,2122 12137 TCF COASCODE # ZERO APPARENT ROTATION
010464,000162:
010465,000163: 07,2123 51551 CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE
010466,000164: 07,2124 31411 CA AOTEL -1
010467,000165: 07,2125 50120 INDEX FIXLOC
010468,000166: 07,2126 54011 TS 9D # STORE ELEVATION IN VAC+9D
010469,000167:
010470,000168: 07,2127 51551 INDEX XYMARK # INDEX DET CODE 1,2 OR 3
![]() |
Page 247 |
010472,000170: 07,2130 31403 CA AOTAZ -1
010473,000171: 07,2131 50120 INDEX FIXLOC
010474,000172: 07,2132 54010 TS 8D # STORE AZIMUTH IN VAC +8D
010475,000173:
010476,000174: 07,2133 31405 CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
010477,000175: 07,2134 00006 EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGTHT
010478,000176: 07,2135 50120 INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
010479,000177: 07,2136 20010 MSU 8D # PRECISION ONES COMPLEMENT
010480,000178: 07,2137 50120 COASCODE INDEX FIXLOC
010481,000179: 07,2140 54012 TS 10D # ROT ANGLE
010482,000180:
010483,000181: 07,2141 06037 TC INTPRET # COMPUTE X AND Y PLANE VECTORS
010484,000182:
![]() |
Page 248 |
010486,000184: # THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
010487,000185: # AND ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
010488,000186: # OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
010489,000187:
010490,000188: # INPUT - AZIMUTH ANGLE IN SINGLE PREC AT CDU SCALE IN 8D OF JOB VAC
010491,000189: # ELEVATION ANGLE IN SINGLE PREC AT CDU SCALE IN 9D OF JOB VAC
010492,000190: # ROTATION ANGLE IN SINGLE PREC 1S COMP SCALED BY PI IN 10D OF VAC
010493,000191:
010494,000192: # OUTPUT - OPTIC AXIS VEC IN NB COORDS IN SCAXIS
010495,000193: # X-MARK PLANE 1/4VEC IN NB COORDS AT 18D OF JOB VAC
010496,000194: # Y-MARK PLANE 1/4VEC IN NB COORDS AT 12D OF JOB VAC
010497,000195:
010498,000196: 07,2142 77624 OPTAXIS CALL # GO COMPUTE OA AND X AND Y PLANE VECS
010499,000197: 07,2143 10536 OANB
010500,000198: 07,2144 70535 SLOAD SR1 # LOAD APP ROTATION IN ONES COMP
010501,000199: 07,2145 00013 10D # RESCALE BY 2PI
010502,000200: 07,2146 73406 PUSH SIN # 1/2SIN(ROT) 0-1
010503,000201: 07,2147 71525 PDDL COS
010504,000202: 07,2150 74206 PUSH VXSC # 1/2COS(ROT) 2-3
010505,000203: 07,2151 00023 18D
010506,000204: 07,2152 74325 PDDL VXSC # 1/4COS(ROT)UYP 4-9
010507,000205: 07,2153 00001 0
010508,000206: 07,2154 00031 24D # 1/4SIN(ROT)UXP
010509,000207: 07,2155 45445 BVSU STADR # UP 4-9
010510,000208: 07,2156 63762 STODL 12D # YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP)
010511,000209: 07,2157 65361 VXSC PDDL # UP 2-3 UP 0-1 FOR EXCHANGE
010512,000210: 07,2160 00031 24D # 1/4COS(ROT)UXP PUSH 0-5
010513,000211: 07,2161 53361 VXSC VAD # 1/4SIN(ROT)UYP
010514,000212: 07,2162 00023 18D # UP 0-5
010515,000213: 07,2163 77626 STADR
010516,000214: 07,2164 53754 STOVL 18D # XPNB=1/4(COS(ROT)UXP+SIN(ROT)UYP)
010517,000215: 07,2165 24007 LO6ZEROS # INITIALIZE AVE STAR VEC ACCUMULATOR
010518,000216: 07,2166 02715 STORE STARAD +6
010519,000217: 07,2167 77776 EXIT
010520,000218: 07,2170 12202 TCF GETMKS
010521,000219:
![]() |
Page 249 |
010523,000221: # THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
010524,000222: # FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
010525,000223:
010526,000224: # INPUT - AZIMUTH ANGLE IN SINGLE PREC 2S COMP IN 8D OF JOB VAC
010527,000225: # ELEVATION ANGLE IN SINGLE PREC 2S COMP IN 9D OF VAC
010528,000226:
010529,000227: # OUTPUT - OPTIC AXIS IN NB COORDS. IN SCAXIS
010530,000228: # X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC
010531,000229: # Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
010532,000230:
010533,000231: 05,3402 BANK 05
010534,000232: 04,2000 SETLOC AOTMARK2
010535,000233: 04,2000 BANK
010536,000234:
010537,000235: 04,2536 COUNT* $$/MARK
010538,000236:
010539,000237: 04,2536 44001 OANB SETPD STQ
010540,000238: 04,2537 00001 0
010541,000239: 04,2540 02736 GCTR # STORE RETURN
010542,000240: 04,2541 47135 SLOAD RTB
010543,000241: 04,2542 00012 9D # PICK UP SP ELV
010544,000242: 04,2543 21576 CDULOGIC
010545,000243: 04,2544 71406 PUSH COS
010546,000244: 04,2545 73525 PDDL SIN # 1/2COS(ELV) PD 0-1
010547,000245: 04,2546 77626 STADR
010548,000246: 04,2547 60012 STODL SCAXIS # OAX=1/2SIN(ELV)
010549,000247: 04,2550 00011 8D # PICK UP AZ SP
010550,000248: 04,2551 77634 RTB
010551,000249: 04,2552 21576 CDULOGIC
010552,000250: 04,2553 71406 PUSH COS
010553,000251: 04,2554 00025 STORE 20D # STORE UYP(Y) 20-21
010554,000252: 04,2555 73525 PDDL SIN # 1/2COS(AZ) PD 2-3
010555,000253: 04,2556 57406 PUSH DCOMP # PUSH 1/2SIN(AZ) 4-5
010556,000254: 04,2557 14027 STODL 22D # STORE UYP(Z) 22-23
010557,000255: 04,2560 24007 LO6ZEROS
010558,000256: 04,2561 14023 STODL 18D # STORE UYP(X) 18-19 UP 4-5
010559,000257: 04,2562 72405 DMP SL1
010560,000258: 04,2563 00001 0
010561,000259: 04,2564 17767 STODL SCAXIS +2 # OAY=1/2COS(ELV)SIN(AZ)
010562,000260: 04,2565 72405 DMP SL1 # UP 2-3
010563,000261: 04,2566 77626 STADR # UP 0-1
010564,000262: 04,2567 50006 STOVL SCAXIS +4 # OAZ=1/2COS(ELV)COS(AZ)
010565,000263: 04,2570 00023 18D # LOAD UYP VEC
010566,000264: 04,2571 53435 VXV UNIT
010567,000265: 04,2572 03765 SCAXIS # UXP VEC=UYP X OA
010568,000266: 04,2573 00031 STORE 24D # STORE UXP
010569,000267: 04,2574 77650 GOTO
010570,000268: 04,2575 02736 GCTR
![]() |
Page 250 |
010572,000270: # SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
010573,000271: # SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
010574,000272: #
010575,000273: # GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
010576,000274: # Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
010577,000275: # CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
010578,000276: # SPIRAL SP 2COMP AT POSITION 3 OF INDEXED MARKVAC
010579,000277: # CDUY,Z,X AT POSITIONS 0,2,4 OF INDEXED MARKVAC
010580,000278:
010581,000279: 15,2000 BANK 15
010582,000280: 15,2000 SETLOC P50S
010583,000281: 15,2000 BANK
010584,000282: 15,2000 COUNT* $$/R59
010585,000283:
010586,000284: 15,2000 77773 SURFSTAR VLOAD*
010587,000285: 15,2001 00001 0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
010588,000286: 15,2002 00767 STORE CDUSPOT
010589,000287: 15,2003 47133 SLOAD* RTB
010590,000288: 15,2004 00002 1,1 # PICK UP YROT
010591,000289: 15,2005 21576 CDULOGIC
010592,000290: 15,2006 00031 STORE 24D # STORE CURSOR FOR SPIRAL COMP (REVS)
010593,000291: 15,2007 77654 BZE
010594,000292: 15,2010 16171 YZCHK # IF YROT ZERO - SEE IF SROT ZERO
010595,000293: 15,2011 71406 JUSTZY PUSH COS
010596,000294: 15,2012 73525 PDDL SIN # 1/2COS(YROT) 0-1
010597,000295: 15,2013 65361 VXSC PDDL # UP 0-1 1/8SIN(YROT)UXP 0-5
010598,000296: 15,2014 00023 18D
010599,000297: 15,2015 52361 VXSC VSU # UP 0-5
010600,000298: 15,2016 00015 12D # UYP
010601,000299: 15,2017 47256 UNIT VXV
010602,000300: 15,2020 03765 SCAXIS
010603,000301: 15,2021 41456 UNIT PUSH
010604,000302: 15,2022 47133 SLOAD* RTB
010605,000303: 15,2023 00004 3,1 # PICK UP SPIRAL
010606,000304: 15,2024 21576 CDULOGIC
010607,000305: 15,2025 00033 STORE 26D # STORE SPIRAL (REVS)
010608,000306: 15,2026 43225 DSU DAD
010609,000307: 15,2027 00031 24D
010610,000308: 15,2030 32047 ABOUTONE
010611,000309: 15,2031 77605 DMP
010612,000310: 15,2032 32466 DP1/12
010613,000311: 15,2033 00033 STORE 26D # SEP=(360 + SPIRAL -CURSOR)/12
010614,000312: 15,2034 74356 SIN VXSC # UP 0-5
010615,000313: 15,2035 65372 VSL1 PDDL # 1/2SIN(SEP)(UPP X OA) 0-5
010616,000314: 15,2036 00033 26D
010617,000315: 15,2037 74346 COS VXSC
010618,000316: 15,2040 03765 SCAXIS
010619,000317: 15,2041 53372 VSL1 VAD # UP 0-5
010620,000318: 15,2042 45056 JUSTOA UNIT CALL
010621,000319: 15,2043 47664 TRG*NBSM
010622,000320: 15,2044 34031 STCALL 24D # STAR VEC IN SM
010623,000321: 15,2045 16276 AVEIT # GO AVERAGE
![]() |
Page 251 |
010625,000323: 15,2046 37777 37775 ABOUTONE 2DEC .99999999
010626,000324:
010627,000325: 15,2050 15,2465 DP1/12 EQUALS DEG30 # .08333333
010628,000326: 07,2171 BANK 7
010629,000327: 07,2000 SETLOC AOTMARK1
010630,000328: 07,2000 BANK
010631,000329: 07,2171 COUNT* $$/MARK
010632,000330: 07,2171 53133 YZCHK SLOAD* BZE # YROT ZERO AND IF SROT ZERO FORCE STAR
010633,000331: 07,2172 00004 3,1 # ALONG OPTIC AXIS
010634,000332: 07,2173 16177 YSZERO
010635,000333: 07,2174 52145 DLOAD GOTO
010636,000334: 07,2175 00031 24D
010637,000335: 07,2176 32011 JUSTZY # SROT NOT ZERO - CONTINUE NORMALLY
010638,000336: 07,2177 52175 YSZERO VLOAD GOTO
010639,000337: 07,2200 03765 SCAXIS
010640,000338: 07,2201 32042 JUSTOA
010641,000339:
![]() |
Page 252 |
010643,000341: # THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
010644,000342:
010645,000343: 07,2202 34755 GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
010646,000344: 07,2203 55551 TS XYMARK
010647,000345: 07,2204 55550 TS MARKCNTR
010648,000346: 07,2205 35004 CAF LOW9 # ZERO BITS10 TO 15 RETAINING MKVAC ADR
010649,000347: 07,2206 71312 MASK MARKSTAT
010650,000348: 07,2207 55312 TS MARKSTAT
010651,000349: 07,2210 32621 CAF MKVB54* # DISPLAY VB54 INITIALLY
010652,000350: 07,2211 04616 PASTIT TC BANKCALL
010653,000351: 07,2212 20345 CADR GOMARK4
010654,000352:
010655,000353: 07,2213 12060 TCF KILLAOT # V34 - DOES GOTOPOOH
010656,000354: 07,2214 12216 TCF MARKCHEX # VB33 - PROCEED, GOT MARKS, COMPUTE LOS
010657,000355: 07,2215 12063 TCF GETDAT # ENTER - RECYCLE TO V01N71
010658,000356:
010659,000357: 07,2216 41312 MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
010660,000358: 07,2217 74740 MASK BIT12
010661,000359: 07,2220 27312 ADS MARKSTAT
010662,000360: 07,2221 75004 MASK LOW9
010663,000361: 07,2222 55551 TS XYMARK # JAM MARK VAC ADR IN XYMARK FOR AVESTAR
010664,000362: 07,2223 34755 CAF ZERO
010665,000363: 07,2224 55552 TS MKDEX # SET MKDEX ZERO FOR LOS VEC CNTR
010666,000364: 07,2225 31312 CA MARKSTAT
010667,000365: 07,2226 75015 MASK PRIO3 # SEE IF LAST MK PARI COMPLETE
010668,000366: 07,2227 54001 TS L
010669,000367: 07,2230 35015 CAF PRIO3 # BITS10 AND 11
010670,000368: 07,2231 00006 EXTEND
010671,000369: 07,2232 06001 RXOR LCHAN
010672,000370: 07,2233 00006 EXTEND
010673,000371: 07,2234 12241 BZF AVESTAR # LAST PAIR COMPLETE - GO COMPUTE LOS
010674,000372: 07,2235 11550 CNTCHK CCS MARKCNTR # NO PAIR SHOWING - SEE IF PAIR IN HOLD
010675,000373: 07,2236 12240 TCF +2 # PAIR BURIED - DECREMENT COUNTER
010676,000374: 07,2237 12325 TCF MKALARM # NO PAIR - ALARM
010677,000375: 07,2240 55550 TS MARKCNTR # STORE DECREMENTED COUNTER
010678,000376:
010679,000377: 07,2241 34740 AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
010680,000378: 07,2242 27552 ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
010681,000379: 07,2243 41550 CS MARKCNTR
010682,000380: 07,2244 00006 EXTEND
010683,000381: 07,2245 76242 MP SIX # GET C(L) = -6 MARKCNTR
010684,000382: 07,2246 41551 CS XYMARK
010685,000383: 07,2247 60001 AD L # ADD - MARK VAC ADR SET IN MARKCHEX
010686,000384: 07,2250 50120 INDEX FIXLOC
010687,000385: 07,2251 54046 TS X1 # JAM - CDU ADR OF X-MARK IN X1
010688,000386:
010689,000387: 07,2252 30120 CA FIXLOC # SET PD POINTER TO ZERO
010690,000388: 07,2253 54166 TS PUSHLOC
010691,000389:
010692,000390: 07,2254 06037 TC INTPRET
![]() |
Page 253 |
010694,000392: 07,2255 76614 BON VLOAD*
010695,000393: 07,2256 04307 SURFFLAG # IF ON SURFACE COMPUTE VEC AT SURFSTAR
010696,000394: 07,2257 32000 SURFSTAR
010697,000395: 07,2260 00002 1,1 # PUT Y-MARK CDUS IN CDUSPOT FOR TRG*NBSM
010698,000396: 07,2261 24767 STOVL CDUSPOT
010699,000397: 07,2262 00015 12D # LOAD Y-PLANE VECTOR IN NB
010700,000398: 07,2263 77624 CALL
010701,000399: 07,2264 47664 TRG*NBSM # CONVERT IT TO STABLE MEMBER
010702,000400: 07,2265 76606 PUSH VLOAD*
010703,000401: 07,2266 00001 0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
010704,000402: 07,2267 24767 STOVL CDUSPOT
010705,000403: 07,2270 00023 18D # LOAD X-PLANE VECTOR IN NB
010706,000404: 07,2271 77624 CALL
010707,000405: 07,2272 47664 TRG*NBSM # CONVERT IT TO STABLE-MEMBER
010708,000406: 07,2273 53435 VXV UNIT # UNIT(XPSM * YPSM)
010709,000407: 07,2274 77626 STADR
010710,000408: 07,2275 77746 STORE 24D
010711,000409:
010712,000410: 07,2276 63335 AVEIT SLOAD PDVL # N(NUMBER OF VECS) IN 0-1
010713,000411: 07,2277 03553 MKDEX
010714,000412: 07,2300 00031 24D # LOAD CURRENT VECTOR
010715,000413: 07,2301 70322 VSR3 V/SC
010716,000414: 07,2302 00001 0
010717,000415: 07,2303 14031 STODL 24D # VEC/N
010718,000416: 07,2304 00001 0
010719,000417: 07,2305 56225 DSU DDV
010720,000418: 07,2306 16623 DP1/8 # (N-1)/N
010721,000419: 07,2307 53361 VXSC VAD
010722,000420: 07,2310 02715 STARAD +6 # ADD VEC TO PREVIOUSLY AVERAGED VECTOR
010723,000421: 07,2311 00031 24D # (N-1)/N AVESTVEC + VEC/N
010724,000422: 07,2312 02715 STORE STARAD +6 # AVERAGE STAR VECTOR
010725,000423: 07,2313 02767 STORE STARSAV2
010726,000424: 07,2314 77776 EXIT
010727,000425: 07,2315 11550 CCS MARKCNTR # SEE IF ANOTHER MARK PAIR IN MKVAC
010728,000426: 07,2316 12240 TCF AVESTAR -1 # THERE IS - GO GET IT - DECREMENT COUNTER
010729,000427: 07,2317 34756 ENDMARKS CAF FIVE # NO MORE MARKS - TERMINATE AOTMARK
010730,000428: 07,2320 00004 INHINT
010731,000429: 07,2321 05203 TC WAITLIST
010732,000430: 07,2322 E7,1551 EBANK= XYMARK
010733,000431: 07,2322 02047 16067 2CADR MKRELEAS
010734,000432:
010735,000433: 07,2324 05472 TC ENDMARK
010736,000434:
010737,000435: 07,2325 05567 MKALARM TC ALARM # NOT A PAIR TO PROCESS - DO GETMKS
010738,000436: 07,2326 00111 OCT 111
010739,000437: 07,2327 12202 TCF GETMKS
010740,000438:
010741,000439: 07,2330 00307 V01N71 VN 171
010742,000440: 07,2331 01527 V06N87* VN 687
010743,000441:
![]() |
Page 254 |
010745,000443: # MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
010746,000444: # CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
010747,000445:
010748,000446: 07,2332 54016 MARKRUPT TS BANKRUPT
010749,000447: 07,2333 30033 CA CDUY # STORE CDUS AND TIME NOW - THEN SEE IF
010750,000448: 07,2334 54063 TS ITEMP3 # WE NEED THEM
010751,000449: 07,2335 30034 CA CDUZ
010752,000450: 07,2336 54064 TS ITEMP4
010753,000451: 07,2337 30032 CA CDUX
010754,000452: 07,2340 54065 TS ITEMP5
010755,000453: 07,2341 00006 EXTEND
010756,000454: 07,2342 30025 DCA TIME2
010757,000455: 07,2343 52062 DXCH ITEMP1
010758,000456: 07,2344 56002 XCH Q
010759,000457: 07,2345 54012 TS QRUPT
010760,000458:
010761,000459: 07,2346 32624 CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
010762,000460: 07,2347 00006 EXTEND
010763,000461: 07,2350 02016 RAND NAVKEYIN
010764,000462: 07,2351 10000 CCS A
010765,000463: 07,2352 12354 TCF +2 # ITS A LIVE ONE - SEE IF ITS WANTED
010766,000464: 07,2353 12404 TCF SOMEKEY # ITS SOME OTHER KEY
010767,000465:
010768,000466: 07,2354 34740 CAF BIT12 # ARE WE ASKING FOR A MARK
010769,000467: 07,2355 71312 MASK MARKSTAT
010770,000468: 07,2356 10000 CCS A
010771,000469: 07,2357 05270 TC RESUME # DONT WANT MARK OR MKREJECT - DO NOTHING
010772,000470:
010773,000471: 07,2360 11312 CCS MARKSTAT # ARE MARKS BEING ACCEPTED
010774,000472: 07,2361 12365 TCF FINDKEY # THEY ARE - WHICH ONE IS IT
010775,000473: 07,2362 05567 TC ALARM # MARKS NOT BEING ACCEPTED - DO ALARM
010776,000474: 07,2363 00112 OCT 112
010777,000475: 07,2364 05270 TC RESUME
010778,000476:
010779,000477: 07,2365 34747 FINDKEY CAF BIT5 # SEE IF MARK REJECT
010780,000478: 07,2366 00006 EXTEND
010781,000479: 07,2367 02016 RAND NAVKEYIN
010782,000480: 07,2370 10000 CCS A
010783,000481: 07,2371 12461 TCF MKREJ # ITS A MARK REJECT
010784,000482:
010785,000483: 07,2372 34750 CAF BIT4 # SEE IF Y MARK
010786,000484: 07,2373 00006 EXTEND
010787,000485: 07,2374 02016 RAND NAVKEYIN
010788,000486: 07,2375 10000 CCS A
010789,000487:
010790,000488: 07,2376 12422 TCF YMKRUPT # ITS A Y MARK
010791,000489:
010792,000490: 07,2377 34751 CAF BIT3 # SEE IF X MARK
010793,000491: 07,2400 00006 EXTEND
010794,000492: 07,2401 02016 RAND NAVKEYIN
010795,000493:
![]() |
Page 255 |
010797,000495: 07,2402 10000 CCS A
010798,000496: 07,2403 12416 TCF XMKRUPT # ITS A X MARK
010799,000497:
010800,000498: 07,2404 34776 SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT - SEE IF DESCENT BITS
010801,000499: 07,2405 00006 EXTEND
010802,000500: 07,2406 02016 RAND NAVKEYIN
010803,000501: 07,2407 00006 EXTEND
010804,000502: 07,2410 12413 BZF +3 # IF NO BITS
010805,000503:
010806,000504: 07,2411 04635 TC POSTJUMP # IF DESCENT BITS
010807,000505: 07,2412 40115 CADR DESCBITS
010808,000506:
010809,000507: 07,2413 05567 TC ALARM # NO INBITS IN CHANNEL 16
010810,000508: 07,2414 00113 OCT 113
010811,000509:
010812,000510: 07,2415 05270 TC RESUME
010813,000511:
010814,000512: 07,2416 34755 XMKRUPT CAF ZERO
010815,000513: 07,2417 54070 TS RUPTREG1 # SET X MARK STORE INDEX TO ZERO
010816,000514: 07,2420 34742 CAF BIT10
010817,000515: 07,2421 12425 TCF +4
010818,000516: 07,2422 34753 YMKRUPT CAF ONE
010819,000517: 07,2423 54070 TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
010820,000518: 07,2424 34741 CAF BIT11
010821,000519: 07,2425 55551 TS XYMARK # SET MARK IDENTIFIATION
010822,000520:
010823,000521: 07,2426 02514 TC MARKTYPE # SEE IF SURFACE MARK
010824,000522: 07,2427 12521 TCF SURFSTOR # SURFACE MARK - JUST STORE CDUS
010825,000523:
010826,000524: 07,2430 34736 CAF BIT14 # GOT A MARK - SEE IF MARK PAIR MADE
010827,000525: 07,2431 71312 MASK MARKSTAT
010828,000526: 07,2432 00006 EXTEND
010829,000527: 07,2433 12444 BZF VERIFYMK # NOT A PAIR, NORMAL PROCEDURE
010830,000528: 07,2434 41550 CS MARKCNTR # GOT A PAIR, SEE IF ANOTHER CAN BE MADE
010831,000529: 07,2435 64751 AD FOUR # IF SO, INCREMENT POINTER, CLEAR BITS 10,11
010832,000530: 07,2436 00006 EXTEND
010833,000531: 07,2437 62454 BZMF 5MKALARM # HAVE FIVE MARK PAIRS - DONT ALLOW MARK
010834,000532: 07,2440 25550 INCR MARKCNTR # OK FOR ANOTHER PAIR, INCR POINTER
010835,000533: 07,2441 47711 CS PRIO23 # CLEAR BITS 10,11,14 FOR NEXT PAIR
010836,000534: 07,2442 71312 MASK MARKSTAT
010837,000535: 07,2443 55312 TS MARKSTAT
010838,000536:
010839,000537: 07,2444 31551 VERIFYMK CA XYMARK
010840,000538: 07,2445 71312 MASK MARKSTAT
010841,000539: 07,2446 10000 CCS A
010842,000540: 07,2447 12451 TCF +2 # THIS MARK NOT DESIRED
010843,000541: 07,2450 12526 TCF VACSTOR # MARK DESIRED - STORE CDUS
010844,000542: 07,2451 05567 TC ALARM
010845,000543: 07,2452 00114 OCT 114
010846,000544: 07,2453 05270 TC RESUME # RESUME - DISPLAY UNCHANGED - WAIT FOR ACTION
010847,000545:
![]() |
Page 256 |
010849,000547: 07,2454 05567 5MKALARM TC ALARM # ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS
010850,000548: 07,2455 00107 OCT 107
010851,000549: 07,2456 02514 TC MARKTYPE # SEE IF SURFACE MARK
010852,000550: 07,2457 12627 TCF DSPV6N79 # IT IS
010853,000551: 07,2460 05270 TC RESUME # DONT CHANGE DISPLAY - DO NOTHING
010854,000552:
![]() |
Page 257 |
010856,000554: 07,2461 02514 MKREJ TC MARKTYPE # SEE IF SURFACE
010857,000555: 07,2462 12507 TCF SURFREJ # SURFACE - JUST CHECK MARK COUNTER
010858,000556:
010859,000557: 07,2463 35015 CAF PRIO3 # INFLIGHT - SEE IF MARKS MADE
010860,000558: 07,2464 71312 MASK MARKSTAT
010861,000559: 07,2465 10000 CCS A
010862,000560: 07,2466 12472 TCF REJECT # MARKS MADE - REJECT ONE
010863,000561: 07,2467 05567 REJALM TC ALARM # NO MARK TO REJECT - BAD PROCEDURE - ALARM
010864,000562: 07,2470 00115 OCT 115
010865,000563: 07,2471 05270 TC RESUME # DESIRED ACTION DISPLAYED
010866,000564:
010867,000565: 07,2472 44355 REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
010868,000566: 07,2473 71312 MASK MARKSTAT # LAST REJECT
010869,000567: 07,2474 64737 AD BIT13
010870,000568: 07,2475 57312 XCH MARKSTAT
010871,000569: 07,2476 74737 MASK BIT13
010872,000570: 07,2477 10000 CCS A
010873,000571: 07,2500 12505 TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
010874,000572:
010875,000573: 07,2501 41551 CS XYMARK # MARK MADE SINCE REJECT - REJECT MARK IN 1D
010876,000574: 07,2502 71312 RENEWMK MASK MARKSTAT
010877,000575: 07,2503 55312 TS MARKSTAT
010878,000576: 07,2504 12577 TCF REMARK # GO REQUEST NEW MARK ACTION
010879,000577:
010880,000578: 07,2505 45015 REJECT2 CS PRIO3 # ON SECOND REJECT - DISPLAY VB53 AGAIN
010881,000579: 07,2506 12502 TCF RENEWMK
010882,000580:
010883,000581: 07,2507 11550 SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER
010884,000582: 07,2510 12512 TCF +2
010885,000583: 07,2511 12467 TCF REJALM # NO MARKS TO REJECT - ALARM
010886,000584: 07,2512 55550 TS MARKCNTR
010887,000585: 07,2513 05270 TC RESUME
010888,000586:
![]() |
Page 258 |
010890,000588: # MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE. IF IT IS RETURN TO LOC+1
010891,000589:
010892,000590: 07,2514 40104 MARKTYPE CS FLAGWRD8 # SURFFLAG *******TEMPORARY*****
010893,000591: 07,2515 74744 MASK BIT8
010894,000592: 07,2516 10000 CCS A
010895,000593: 07,2517 24002 INCR Q # IF SURFACE MARK REUTNR TO LOC +1
010896,000594: 07,2520 00002 TC Q # IF INFLIGHT MARK RETURN TO LOC +2
010897,000595:
010898,000596: 07,2521 34755 SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX
010899,000597: 07,2522 54070 TS RUPTREG1
010900,000598:
010901,000599: 07,2523 41312 CS MARKSTAT # SET BITS10,11 TO SHOW SURFACE MARK
010902,000600: 07,2524 75015 MASK PRIO3 # FOR MARKCHEX
010903,000601: 07,2525 27312 ADS MARKSTAT
010904,000602:
010905,000603: 07,2526 35004 VACSTOR CAF LOW9
010906,000604: 07,2527 71312 MASK MARKSTAT # STORE MARK VAC ADR IN RUPTREG2
010907,000605: 07,2530 54071 TS RUPTREG2
010908,000606: 07,2531 00006 EXTEND
010909,000607: 07,2532 30062 DCA ITEMP1 # PICK UP MARKTIME
010910,000608: 07,2533 53562 DXCH TSIGHT # STORE LAST MARK TIME
010911,000609: 07,2534 31550 CA MARKCNTR # 6 X MARKCNTR FOR STORE INDEX
010912,000610: 07,2535 00006 EXTEND
010913,000611: 07,2536 76242 MP SIX
010914,000612: 07,2537 56001 XCH L # GET INDEX FROM LOW ORDER PART
010915,000613: 07,2540 60071 AD RUPTREG2 # SET CDU STORE INDEX TO MARKVAC
010916,000614: 07,2541 26070 ADS RUPTREG1 # INCREMENT VAC PICKUP BY MARK FOR FLIGHT
010917,000615: 07,2542 55552 TS MKDEX # STORE HERE IN CASE OF SURFACE MARK
010918,000616: 07,2543 30063 CA ITEMP3
010919,000617: 07,2544 50070 INDEX RUPTREG1
010920,000618: 07,2545 54000 TS 0 # STORE CDUY
010921,000619: 07,2546 30064 CA ITEMP4
010922,000620: 07,2547 50070 INDEX RUPTREG1
010923,000621: 07,2550 54002 TS 2 # STORE CDUZ
010924,000622: 07,2551 30065 CA ITEMP5
010925,000623: 07,2552 50070 INDEX RUPTREG1
010926,000624: 07,2553 54004 TS 4 # STORE CDUX
010927,000625: 07,2554 02514 TC MARKTYPE # IF SURFACE MARK - JUST DO SURFJOB
010928,000626: 07,2555 12604 TCF SURFJOB
010929,000627:
010930,000628: 07,2556 34737 CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE
010931,000629: 07,2557 61551 AD XYMARK # SET MARK ID IN MARKSTAT
010932,000630: 07,2560 40000 COM
010933,000631: 07,2561 71312 MASK MARKSTAT
010934,000632: 07,2562 61551 AD XYMARK
010935,000633: 07,2563 55312 TS MARKSTAT
010936,000634: 07,2564 75015 MASK PRIO3 # SEE IF X, Y MARK MADE
010937,000635: 07,2565 54001 TS L
010938,000636:
![]() |
Page 259 |
010940,000638: 07,2566 35015 CA PRIO3
010941,000639: 07,2567 00006 EXTEND
010942,000640: 07,2570 06001 RXOR LCHAN
010943,000641: 07,2571 10000 CCS A
010944,000642: 07,2572 12577 TCF REMARK # NOT PAIR YET, DISPLAY MARK ACTION
010945,000643: 07,2573 41312 CS MARKSTAT # MARK PAIR COMPLETE - SET BIT14
010946,000644: 07,2574 74736 MASK BIT14
010947,000645: 07,2575 27312 ADS MARKSTAT
010948,000646: 07,2576 12577 TCF REMARK # GO DISPLAY V54
010949,000647:
![]() |
Page 260 |
010951,000649: 07,2577 35015 REMARK CAF PRIO3 # BITS 10 AND 11
010952,000650: 07,2600 71312 MASK MARKSTAT
010953,000651: 07,2601 00006 EXTEND
010954,000652: 07,2602 74746 MP BIT6 # SHIFT MARK IDS TO BE 0 TO 3 FOR INDEX
010955,000653: 07,2603 55552 TS MKDEX # STORE VERB INDEX
010956,000654: 07,2604 35025 SURFJOB CAF PRIO15
010957,000655: 07,2605 05072 TC NOVAC # ENTER JOB TO CHANGE DISPLAY TO
010958,000656: 07,2606 E7,1551 EBANK= XYMARK # REQUEST NEXT ACTION
010959,000657: 07,2606 02611 16067 2CADR CHANGEVB
010960,000658:
010961,000659: 07,2610 05270 TC RESUME
010962,000660:
010963,000661: 07,2611 02514 CHANGEVB TC MARKTYPE
010964,000662: 07,2612 12627 TCF DSPV6N79 # SURFACE - DISPLAY V 06 N 79
010965,000663: 07,2613 51552 INDEX MKDEX # INFLIGHT - PICK UP MARK VB INDEX
010966,000664: 07,2614 32616 CAF MKVB54
010967,000665: 07,2615 02211 TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
010968,000666:
010969,000667: # THE FOUR MKVBS ARE INDEXED - THEIR ORDER CANNOT BE CHANGED
010970,000668:
010971,000669: 07,2616 15507 MKVB54 VN 5471 # MAKE X OR Y MARK
010972,000670: 07,2617 15307 MKVB53 VN 5371 # MAKE Y MARK
010973,000671: 07,2620 15107 MKVB52 VN 5271 # MAKE X MARK
010974,000672: 07,2621 15507 MKVB54* VN 5471 # MAKE X OR Y MARK
010975,000673: 07,2622 04000 00000 DP1/8 2DEC .125
010976,000674:
010977,000675: 07,2624 00034 OCT34 OCT 34
010978,000676: 07,2625 01507 V06N71 VN 671
010979,000677: 07,2626 01517 V06N79* VN 679
010980,000678:
![]() |
Page 261 |
010982,000680: # ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
010983,000681: 07,2627 COUNT* $$/R59
010984,000682:
010985,000683: 07,2627 32626 DSPV6N79 CAF V06N79* # CURSOR - SPIRAL DISPLAY
010986,000684: 07,2630 04616 TC BANKCALL
010987,000685: 07,2631 20334 CADR GOMARKF
010988,000686:
010989,000687: 07,2632 12060 TCF KILLAOT # V34 - DOES GOTOPOOH
010990,000688: 07,2633 12641 TCF SURFEND # V33 - PROCEED, END MARKING
010991,000689: 07,2634 34746 CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
010992,000690: 07,2635 70154 MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO
010993,000691: 07,2636 10000 CCS A # RE-DISPLAY V06N79
010994,000692: 07,2637 12645 TCF SURFAGAN # VB32 - RECYCLE
010995,000693: 07,2640 12627 TCF DSPV6N79 # ENTER
010996,000694:
010997,000695: 07,2641 44736 SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END
010998,000696: 07,2642 71312 MASK MARKSTAT
010999,000697: 07,2643 64736 AD BIT14
011000,000698: 07,2644 55312 TS MARKSTAT
011001,000699:
011002,000700: 07,2645 31236 SURFAGAN CA CURSOR
011003,000701: 07,2646 51552 INDEX MKDEX # HOLDS VAC AREA POINTER FOR SURF MARKING
011004,000702: 07,2647 54001 TS 1 # STORE CURSOR SP 2COMP
011005,000703: 07,2650 31240 CA SPIRAL
011006,000704: 07,2651 51552 INDEX MKDEX
011007,000705: 07,2652 54003 TS 3 # STORE SPIRAL
011008,000706:
011009,000707: 07,2653 41312 CS MARKSTAT # IF BIT 14 SET - END MARKING
011010,000708: 07,2654 74736 MASK BIT14
011011,000709: 07,2655 00006 EXTEND
011012,000710: 07,2656 12216 BZF MARKCHEX
011013,000711: 07,2657 31550 CA MARKCNTR # THIS IS RECYCLE - SEE IF 5 MARKS ALREADY
011014,000712: 07,2660 64753 AD ONE
011015,000713: 07,2661 40000 COM
011016,000714: 07,2662 64756 AD FIVE
011017,000715: 07,2663 00006 EXTEND
011018,000716: 07,2664 62454 BZMF 5MKALARM # CANT RECYCLE - TO MANY MARKS - ALARM
011019,000717: 07,2665 25550 INCR MARKCNTR # OF FOR RECYCLE - INCR COUNTER
011020,000718: 07,2666 12205 TCF GETMKS +3 # GO DISPLAY MARK VB
011021,000719:
End of include-file AOTMARK.agc. Parent file is MAIN.agc