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,1971Note 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