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.
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. |
011162,000002: ## Copyright: Public domain.
011163,000003: ## Filename: AOTMARK.agc
011164,000004: ## Purpose: A section of Luminary revision 210.
011165,000005: ## It is part of the source code for the Lunar Module's (LM)
011166,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
011167,000007: ## This file is intended to be a faithful transcription, except
011168,000008: ## that the code format has been changed to conform to the
011169,000009: ## requirements of the yaYUL assembler rather than the
011170,000010: ## original YUL assembler.
011171,000011: ## Reference: pp. 255-274
011172,000012: ## Assembler: yaYUL
011173,000013: ## Contact: Ron Burkey <info@sandroid.org>.
011174,000014: ## Website: www.ibiblio.org/apollo/index.html
011175,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
011176,000016: ## 2016-11-23 HG Transcribed
011177,000017: ## 2016-11-25 HG Fix label MARKREJ -> MKREJ
011178,000018: ## operand NOVAK -> NOVAC
011179,000019: ## GOMARKER-> GOMARKFR
011180,000020: ## CMKCNTR -> XMKCNTR
011181,000021: ## 2016-12-07 HG fix P00 -> POO
011182,000022: ## 2016-12-11 HG Fix operation CS NOMKCNT -> CA NOMKCNT
011183,000023: ## 2016-12-23 RSB Proofed comment text with octopus/ProoferComments
011184,000024: ## and fixed all errors found.
011185,000025: ## 2017-03-14 RSB Comment-text fixes identified in 5-way
011186,000026: ## side-by-side diff of Luminary 69/99/116/131/210.
011187,000027:
|
|
Page 255 |
011189,000029: 07,2000 SETLOC AOTMARK1
011190,000030: 07,2000 BANK
011191,000031:
011192,000032: 07,2000 E7,1551 EBANK= XYMARK
011193,000033: 07,2000 COUNT* $$/MARK
011194,000034:
011195,000035: 07,2000 00004 AOTMARK INHINT
011196,000036: 07,2001 36263 CAF SIX # SEE IF EXT. VERB WORKING
011197,000037: 07,2002 71043 MASK EXTVBACT
011198,000038: 07,2003 10000 CCS A
011199,000039: 07,2004 12037 TCF MKABORT # YES - ABORT
011200,000040:
011201,000041: 07,2005 34743 CAF BIT2 # NO-DISALLOW SOME EXTENDED VERB ACTION
011202,000042: 07,2006 27043 ADS EXTVBACT # BIT2 RESET IN ENDMARK
011203,000043: 07,2007 10400 MKVAC CCS VAC1USE # LOOK FOR A VAC AREA-DO ABORT IF
011204,000044: 07,2010 12024 TCF MKVACFND # NONE AVAILABLE
011205,000045: 07,2011 10454 CCS VAC2USE
011206,000046: 07,2012 12024 TCF MKVACFND
011207,000047: 07,2013 10530 CCS VAC3USE
011208,000048: 07,2014 12024 TCF MKVACFND
011209,000049: 07,2015 10604 CCS VAC4USE
011210,000050: 07,2016 12024 TCF MKVACFND
011211,000051: 07,2017 10660 CCS VAC5USE
011212,000052: 07,2020 12024 TCF MKVACFND
011213,000053: 07,2021 52134 DXCH BUF2
011214,000054: 07,2022 05712 TC BAILOUT1 # ALL VAC AREAS OCCUPIED - ABORT.
011215,000055: 07,2023 31207 OCT 31207
011216,000056:
011217,000057: 07,2024 64743 MKVACFND AD TWO
011218,000058: 07,2025 55307 TS MARKSTAT # STORE VAC ADR INLOW 9 OF MARKSTAT
011219,000059:
011220,000060: 07,2026 34746 CAF ZERO
011221,000061: 07,2027 51307 INDEX MARKSTAT
011222,000062: 07,2030 53777 TS 0 -1 # ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
011223,000063:
011224,000064: 07,2031 35016 CAF PRIO15
011225,000065: 07,2032 05076 TC FINDVAC # SET UP JOB FOR GETDAT
011226,000066: 07,2033 E7,1551 EBANK= XYMARK
011227,000067: 07,2033 02056 16067 2CADR GETDAT
011228,000068:
011229,000069: 07,2035 00003 RELINT
011230,000070: 07,2036 14622 TCF SWRETURN
011231,000071:
011232,000072: 07,2037 52134 MKABORT DXCH BUF2
011233,000073: 07,2040 05712 TC BAILOUT1 # CONFLICT WITH EXTENDED VERB
011234,000074: 07,2041 31211 OCT 31211
011235,000075:
011236,000076: 07,2042 34746 MKRELEAS CAF ZERO
011237,000077: 07,2043 57307 XCH MARKSTAT # SET MARKSTAT TO ZERO
011238,000078:
|
|
Page 256 |
011240,000080: 07,2044 74775 MASK LOW9 # PICK UP VAC AREA ADR
011241,000081: 07,2045 10000 CCS A
011242,000082: 07,2046 50000 INDEX A
011243,000083: 07,2047 54000 TS 0 # SHOW MKVAC AREA AVAILABLE
011244,000084: 07,2050 34744 CAF ONE
011245,000085: 07,2051 04665 TC IBNKCALL
011246,000086: 07,2052 17704 CADR GOODEND # GO WAKE UP CALLING JOB
011247,000087:
011248,000088: 07,2053 34746 KILLAOT CAF ZERO
011249,000089: 07,2054 55043 TS EXTVBACT # TERMINATE AOTMARK-ALLOW EXT VERB
011250,000090: 07,2055 06001 TC GOTOPOOH
011251,000091:
|
|
Page 257 |
011253,000093: # GETDAT ROUTINE
011254,000094:
011255,000095: 07,2056 41307 GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
011256,000096: 07,2057 74731 MASK BIT12 # BIT12 RESET AT GETMARK
011257,000097: 07,2060 27307 ADS MARKSTAT
011258,000098:
011259,000099: 07,2061 32352 N71DISP CAF V01N71 # DISPLAY DETENT AND STAR CODE
011260,000100: 07,2062 04607 TC BANKCALL
011261,000101: 07,2063 20323 CADR GOMARKF
011262,000102:
011263,000103: 07,2064 12053 TCF KILLAOT # V34-DOES GOTOPOOH
011264,000104: 07,2065 12067 TCF DODAT # V33-PROCEED-USE THIS STAR FOR MARKS
011265,000105: 07,2066 12056 ENTERDAT TCF GETDAT # ENTER-REDISPLAY STAR CODE
011266,000106:
011267,000107: 07,2067 37765 DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
011268,000108: 07,2070 71235 MASK AOTCODE # AND SEE IF CODE 1 TO 6
011269,000109: 07,2071 00006 EXTEND
011270,000110: 07,2072 74734 MP BIT9
011271,000111: 07,2073 55551 TS XYMARK # STORE DETENT
011272,000112:
011273,000113: 07,2074 00006 EXTEND
011274,000114: 07,2075 62056 BZMF GETDAT # COAS CALIBRATION CODE-NO GOOD HERE
011275,000115:
011276,000116: 07,2076 65652 AD NEG7 # SEE IF DETENT 7 FOR COAS
011277,000117: 07,2077 00006 EXTEND
011278,000118: 07,2100 12102 BZF CODE7
011279,000119:
011280,000120: 07,2101 12116 TCF CODE1TO6
011281,000121:
011282,000122: 07,2102 32353 CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
011283,000123: 07,2103 04607 TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
011284,000124: 07,2104 20323 CADR GOMARKF
011285,000125:
011286,000126: 07,2105 12053 TCF KILLAOT # V34-DOES GOTOPOOH
011287,000127: 07,2106 12110 TCF +2 # PROCEED
011288,000128: 07,2107 12102 TCF CODE7 # ON ENTER, RECYCLE
011289,000129: 07,2110 00006 EXTEND
011290,000130: 07,2111 31345 DCA AZ # PICK UP AZ AND EL IN SP 2S COMP
011291,000131: 07,2112 50120 INDEX FIXLOC
011292,000132: 07,2113 52011 DXCH 8D # STORE IN 8D AND 9D OF LOCAL VAC
011293,000133: 07,2114 34746 CAF ZERO # BACKUP SYSTEM TO BE USED
011294,000134: 07,2115 12132 TCF COASCODE # ZERO APPARENT ROTATION
011295,000135:
011296,000136: 07,2116 51551 CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE
011297,000137: 07,2117 31411 CA AOTEL -1
011298,000138: 07,2120 50120 INDEX FIXLOC
011299,000139: 07,2121 54011 TS 9D # STORE ELEVATION IN VAC+9D
011300,000140:
011301,000141: 07,2122 51551 INDEX XYMARK # INDEX DET CODE 1,2 OR 3
011302,000142: 07,2123 31403 CA AOTAZ -1
011303,000143:
|
|
Page 258 |
011305,000145: 07,2124 50120 INDEX FIXLOC
011306,000146: 07,2125 54010 TS 8D # STORE AZIMUTH IN VAC +8D
011307,000147:
011308,000148: 07,2126 31405 CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
011309,000149: 07,2127 00006 EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGTHT
011310,000150: 07,2130 50120 INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
011311,000151: 07,2131 20010 MSU 8D # PRECISION ONES COMPLEMENT
011312,000152: 07,2132 50120 COASCODE INDEX FIXLOC
011313,000153: 07,2133 54012 TS 10D # ROT ANGLE
011314,000154:
011315,000155: 07,2134 06060 TC INTPRET # COMPUTE X AND Y PLANE VECTORS
011316,000156:
011317,000157: 07,2135 52014 CLEAR GOTO
011318,000158: 07,2136 02276 XDSPFLAG
011319,000159: 07,2137 30347 OPTAXIS
011320,000160:
|
|
Page 259 |
011322,000162: # THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
011323,000163: # AND ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
011324,000164: # OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
011325,000165: 14,2000 SETLOC P50S1
011326,000166: 14,2000 BANK
011327,000167:
011328,000168: 14,2347 77624 OPTAXIS CALL # GO COMPUTE OA AND X AND Y PLANE VECS
011329,000169: 14,2350 10557 OANB
011330,000170: 14,2351 70535 SLOAD SR1 # LOAD APP ROTATION IN ONES COMP
011331,000171: 14,2352 00013 10D # RESCALE BY 2PI
011332,000172: 14,2353 73406 PUSH SIN # 1/2SIN(ROT) 0-1
011333,000173: 14,2354 71525 PDDL COS
011334,000174: 14,2355 74206 PUSH VXSC # 1/2COS(ROT) 2-3
011335,000175: 14,2356 00023 18D
011336,000176: 14,2357 74325 PDDL VXSC # 1/4COS(ROT)UYP 4-9
011337,000177: 14,2360 00001 0
011338,000178: 14,2361 00031 24D # 1/4SIN(ROT)UXP
011339,000179: 14,2362 45445 BVSU STADR # UP 4-9
011340,000180: 14,2363 60244 STODL YPLANE # YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP)
011341,000181: 14,2364 65361 VXSC PDDL # UP 2-3 UP 0-1 FOR EXCHANGE
011342,000182: 14,2365 00031 24D # 1/4COS(ROT)UXP PUSH 0-5
011343,000183: 14,2366 53361 VXSC VAD # 1/4SIN(ROT)UYP
011344,000184: 14,2367 00023 18D # UP 0-5
011345,000185: 14,2370 77626 STADR
011346,000186: 14,2371 50252 STOVL XPLANE
011347,000187: 14,2372 24007 LO6ZEROS # INITIALIZE AVE STAR VEC ACCUMULATOR
011348,000188: 14,2373 02767 STORE STARSAV2
011349,000189: 14,2374 77414 BOFF EXIT # IF INFLIGHT &KM MARKING GET SIGHTING
011350,000190: 14,2375 04753 FLT59FLG # BODY VECTOR FOR THET EST IN ITERATION
011351,000191: 14,2376 30406 ENDAXIS # LOOP
011352,000192: 14,2377 E5,1642 EBANK= XSM
011353,000193: 14,2377 35005 CA EBANK5
011354,000194: 14,2400 54003 TS EBANK # PLANET ROUTINE USES EBANK5
011355,000195: 14,2401 06060 TC INTPRET
011356,000196: 14,2402 45034 RTB CALL
011357,000197: 14,2403 21603 LOADTIME
011358,000198: 14,2404 16607 PLANET
011359,000199: 14,2405 03575 STORE BODY
011360,000200: 14,2406 77776 ENDAXIS EXIT
011361,000201: 14,2407 E7,1551 EBANK= XYMARK
011362,000202: 14,2407 35007 CA EBANK7 # RESTORE EBANK IN CASE OF PLANET BRANCH
011363,000203: 14,2410 54003 TS EBANK
011364,000204: 14,2411 04607 TC BANKCALL
011365,000205: 14,2412 16140 CADR GETMKS
011366,000206:
|
|
Page 260 |
011368,000208: # THE OANB ROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
011369,000209: # FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
011370,000210: 04,2000 SETLOC AOTMARK2
011371,000211: 04,2000 BANK
011372,000212:
011373,000213: 04,2557 COUNT* $$/MARK
011374,000214:
011375,000215: 04,2557 44001 OANB SETPD STQ
011376,000216: 04,2560 00001 0
011377,000217: 04,2561 02736 GCTR # STORE RETURN
011378,000218: 04,2562 47135 SLOAD RTB
011379,000219: 04,2563 00012 9D # PICK UP SP ELV
011380,000220: 04,2564 21606 CDULOGIC
011381,000221: 04,2565 71406 PUSH COS
011382,000222: 04,2566 73525 PDDL SIN # 1/2COS(ELV) PD 0-1
011383,000223: 04,2567 77626 STADR
011384,000224: 04,2570 60012 STODL SCAXIS # OAX=1/2SIN(ELV)
011385,000225: 04,2571 00011 8D # PICK UP AZ SP
011386,000226: 04,2572 77634 RTB
011387,000227: 04,2573 21606 CDULOGIC
011388,000228: 04,2574 71406 PUSH COS
011389,000229: 04,2575 00025 STORE 20D # STORE UYP(Y) 20-21
011390,000230: 04,2576 73525 PDDL SIN # 1/2COS(AZ) PD 2-3
011391,000231: 04,2577 57406 PUSH DCOMP # PUSH 1/2SIN(AZ) 4-5
011392,000232: 04,2600 14027 STODL 22D # STORE UYP(Z) 22-23
011393,000233: 04,2601 24007 LO6ZEROS
011394,000234: 04,2602 14023 STODL 18D # STORE UYP(X) 18-19 UP 4-5
011395,000235: 04,2603 72405 DMP SL1
011396,000236: 04,2604 00001 0
011397,000237: 04,2605 17767 STODL SCAXIS +2 # OAY=1/2COS(ELV)SIN(AZ)
011398,000238: 04,2606 72405 DMP SL1 # UP 2-3
011399,000239: 04,2607 77626 STADR # UP 0-1
011400,000240: 04,2610 50006 STOVL SCAXIS +4 # OAZ=1/2COS(ELV)COS(AZ)
011401,000241: 04,2611 00023 18D # LOAD UYP VEC
011402,000242: 04,2612 53435 VXV UNIT
011403,000243: 04,2613 03765 SCAXIS # UXP VEC=UYP X OA
011404,000244: 04,2614 00031 STORE 24D # STORE UXP
011405,000245: 04,2615 77650 GOTO
011406,000246: 04,2616 02736 GCTR
011407,000247:
|
|
Page 261 |
011409,000249: # SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
011410,000250: # SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
011411,000251: 15,2000 SETLOC P50S
011412,000252: 15,2000 BANK
011413,000253: 15,2004 COUNT* $$/R59
011414,000254:
011415,000255: 15,2004 77131 SURFSTAR SSP AXT,2 # INITIALIZE LOOP COUNTER (X1)
011416,000256: 15,2005 00052 S2
011417,000257: 15,2006 00001 1
011418,000258: 15,2007 00034 28D
011419,000259: 15,2010 71214 CLEAR DLOAD
011420,000260: 15,2011 00274 FREEFLAG
011421,000261: 15,2012 32161 ONEDEG
011422,000262: 15,2013 33572 STOVL* DELTHET
011423,000263: 15,2014 00001 0,1 # PICK UP CURSOR MARK CDUS
011424,000264: 15,2015 20766 STODL* CDUSPOT
011425,000265: 15,2016 00010 7,1 # PICK UP SPIRAL FROM MK VAC
011426,000266: 15,2017 77634 RTB
011427,000267: 15,2020 21606 CDULOGIC
011428,000268: 15,2021 34011 STCALL 8D # SPIRAL IN REVS
011429,000269: 15,2022 32141 ROTCOMP
011430,000270: 15,2023 23773 STODL* POINTVSM # YPRIME VEC FOR SROT MEAS. COORDS.
011431,000271: 15,2024 00007 6,1 # PICK UP CURSOR
011432,000272: 15,2025 77634 RTB
011433,000273: 15,2026 21606 CDULOGIC
011434,000274: 15,2027 34013 STCALL 10D # CURSOR IN REVS
011435,000275: 15,2030 32141 ROTCOMP # COMPUTE YP VEC(NB)
011436,000276: 15,2031 77624 CALL
011437,000277: 15,2032 47656 TRG*NBSM # TRANSFORM YP VEC TO SM AT YROT MARK
011438,000278: 15,2033 32715 STOVL* STARAD +6
011439,000279: 15,2034 00002 1,1 # PICK UP SPIRAL CDUS
011440,000280: 15,2035 34766 STCALL CDUSPOT # GET SINES AND COSINES OF CDUS
011441,000281: 15,2036 47526 CD*TR*G
011442,000282: 15,2037 71214 BON DLOAD
011443,000283: 15,2040 04713 FLT59FLG
011444,000284: 15,2041 15320 FLTTHET
011445,000285: 15,2042 00011 8D # COMPUTE INITIAL THETA EST
011446,000286: 15,2043 43225 DSU DAD
011447,000287: 15,2044 00013 10D
011448,000288: 15,2045 32157 ABOUTONE
011449,000289: 15,2046 03564 THETRET STORE THETEST # INITIAL THET EST MUST BE BETWEEN
011450,000290: 15,2047 51025 DSU BPL # 24 AND 342 DEGREES
011451,000291: 15,2050 32151 DEG342
011452,000292: 15,2051 32135 COOLIT
011453,000293: 15,2052 45345 DLOAD DSU
011454,000294: 15,2053 03564 THETEST
011455,000295: 15,2054 32153 DEG24
011456,000296: 15,2055 45040 BMN CALL
011457,000297: 15,2056 32135 COOLIT
011458,000298: 15,2057 30413 SNBCOMP # POMPUTE 2ST EST OF STAR(SM)
011459,000299:
|
|
Page 262 |
011461,000301: 15,2060 72441 DOT SL1
011462,000302: 15,2061 02715 STARAD +6
011463,000303: 15,2062 03566 SNBTEST STORE ESTER1 # SEE IF STAR IN YROT PLANE
011464,000304: 15,2063 45246 ABS DSU
011465,000305: 15,2064 32155 COS.01
011466,000306: 15,2065 71240 BMN DLOAD
011467,000307: 15,2066 16275 AVEIT # LESS THAN EPSILON, GOT STAR(SM) IN 24D
011468,000308: 15,2067 03572 DELTHET
011469,000309: 15,2070 77615 DAD
011470,000310: 15,2071 03564 THETEST # INCREMENT THETA EST BY 1 DEG
011471,000311: 15,2072 37564 STCALL THETEST
011472,000312: 15,2073 30413 SNBCOMP # COMPUTE 2ND EST OF STAR VEC
011473,000313: 15,2074 72441 DOT SL1
011474,000314: 15,2075 02715 STARAD +6
011475,000315: 15,2076 03570 STORE ESTER2 # SEE IF SOLUTION BETWEEN ESTER1, ESTER2
011476,000316: 15,2077 71240 BMN DLOAD
011477,000317: 15,2100 32105 NEGEST2
011478,000318: 15,2101 03566 ESTER1
011479,000319: 15,2102 52044 BPL GOTO
011480,000320: 15,2103 32120 WHICHWAY # NO SOLU, ARE WE GOING IN RIGHT DIRECTION
011481,000321: 15,2104 32110 HOMEIN # SOLUTION BRACKETED, GET FINE CORRECTION
011482,000322: 15,2105 50145 NEGEST2 DLOAD BMN
011483,000323: 15,2106 03566 ESTER1
011484,000324: 15,2107 32120 WHICHWAY
011485,000325: 15,2110 65225 HOMEIN DSU PDDL
011486,000326: 15,2111 03570 ESTER2
011487,000327: 15,2112 03570 ESTER2
011488,000328: 15,2113 77671 DDV
011489,000329: 15,2114 77605 DMP
011490,000330: 15,2115 03572 DELTHET
011491,000331: 15,2116 37572 STCALL DELTHET # FINE SOLUTION, THIS SHOULD GET SNB
011492,000332: 15,2117 32132 NEXTIT
011493,000333:
011494,000334: 15,2120 65246 WHICHWAY ABS PDDL # ABS(ESTER1) 0-1
011495,000335: 15,2121 03570 ESTER2
011496,000336: 15,2122 44246 ABS BDSU # ABS(ESTER1)-ABS(ESTER2)
011497,000337: 15,2123 43044 BPL BONSET
011498,000338: 15,2124 32132 NEXTIT
011499,000339: 15,2125 00014 FREEFLAG
011500,000340: 15,2126 32135 COOLIT
011501,000341: 15,2127 57545 DLOAD DCOMP # REVERSE DIRECTION OF ESTIMATION
011502,000342: 15,2130 03572 DELTHET
011503,000343: 15,2131 03572 STORE DELTHET
011504,000344: 15,2132 61145 NEXTIT DLOAD TIX,2 # SEE IF 10 ITERATIONS HAVE BEEN MADE
011505,000345: 15,2133 03570 ESTER2
011506,000346: 15,2134 32062 SNBTEST
011507,000347: 15,2135 77776 COOLIT EXIT
011508,000348: 15,2136 25573 INCR NOMKCNT
011509,000349: 15,2137 04607 TC BANKCALL
011510,000350: 15,2140 16320 CADR COOLOUT
011511,000351:
|
|
Page 263 |
011513,000353: 15,2141 71406 ROTCOMP PUSH COS # COS(ROT) 0-1
011514,000354: 15,2142 73525 PDDL SIN # 1/8SIN(ROT)XP 0-5 1/2COS(ROT) MPAC
011515,000355: 15,2143 65361 VXSC PDDL
011516,000356: 15,2144 03525 XPLANE
011517,000357: 15,2145 52361 VXSC VSU
011518,000358: 15,2146 03533 YPLANE
011519,000359: 15,2147 43456 UNIT RVQ # 1/2UNIT(VEC) IN MPAC
011520,000360:
011521,000361: 15,2150 36314 31461 DEG342 2DEC .94999999
011522,000362: 15,2152 02104 10417 DEG24 2DEC .06666666
011523,000363: 15,2154 00002 33372 COS.01 2DEC .0001745
011524,000364: 15,2156 37777 37775 ABOUTONE 2DEC .99999999
011525,000365: 15,2160 00055 20264 ONEDEG 2DEC .00277777
011526,000366:
011527,000367:
011528,000368: 06,2000 SETLOC AOTMARK3
011529,000369: 06,2000 BANK
011530,000370:
011531,000371: 06,3320 64375 FLTTHET VLOAD MXV
011532,000372: 06,3321 03575 BODY
011533,000373: 06,3322 01732 REFSMMAT # FOR INFLIGHT P57 MARKING COMPUTE INITIAL
011534,000374: 06,3323 45056 UNIT CALL # THET EST BY 12(STAR X OPTAXIS)
011535,000375: 06,3324 47663 *SMNB*
011536,000376: 06,3325 72441 DOT SL1
011537,000377: 06,3326 03765 SCAXIS
011538,000378: 06,3327 41326 ARCCOS DMP
011539,000379: 06,3330 23773 3/4 # 12 SCALED BY 16
011540,000380: 06,3331 52012 SL4 GOTO
011541,000381: 06,3332 32046 THETRET
011542,000382:
|
|
Page 264 |
011544,000384: # SUBROUTINE TO COMPUTE STAR VEC IN NB COORDINATES
011545,000385: 14,2000 SETLOC P50S1
011546,000386: 14,2000 BANK
011547,000387:
011548,000388: 14,2413 77620 SNBCOMP STQ
011549,000389: 14,2414 02745 QMIN
011550,000390: 14,2415 41345 DLOAD DMP
011551,000391: 14,2416 03564 THETEST
011552,000392: 14,2417 30454 DP1/12
011553,000393: 14,2420 71406 PUSH COS # COS(T/12) 0-1
011554,000394: 14,2421 73525 PDDL SIN
011555,000395: 14,2422 41525 PDDL PUSH # SIN(T/12) 2-3
011556,000396: 14,2423 03564 THETEST
011557,000397: 14,2424 65356 SIN PDDL # SIN(T) 4-5
011558,000398: 14,2425 41346 COS DMP
011559,000399: 14,2426 00003 2 # COS(T)SIN(T/12) 6-7
011560,000400: 14,2427 47315 PDVL VXV
011561,000401: 14,2430 03773 POINTVSM
011562,000402: 14,2431 03765 SCAXIS
011563,000403: 14,2432 74372 VSL1 VXSC # UP 6-7
011564,000404: 14,2433 77626 STADR
011565,000405: 14,2434 63746 STODL 24D # COS(T)SIN(T/12)(YP X OA)
011566,000406: 14,2435 77605 DMP # UP 4-5 UP 2-3
011567,000407: 14,2436 51361 VXSC BVSU
011568,000408: 14,2437 03773 POINTVSM # SIN(T)SIN(T/12)YP
011569,000409: 14,2440 00031 24D
011570,000410: 14,2441 14031 STODL 24D
011571,000411: 14,2442 74561 VXSC VSR1 # UP 0-1
011572,000412: 14,2443 03765 SCAXIS
011573,000413: 14,2444 53455 VAD UNIT
011574,000414: 14,2445 00031 24D
011575,000415: 14,2446 34031 STCALL 24D # STAR(NB)
011576,000416: 14,2447 47665 *NBSM*
011577,000417: 14,2450 00031 STORE 24D # STAR(SM)
011578,000418: 14,2451 77650 GOTO
011579,000419: 14,2452 02745 QMIN
011580,000420:
011581,000421: 14,2453 02525 12525 DP1/12 2DEC .083333333
011582,000422:
|
|
Page 265 |
011584,000424: # GETMKS ROUTINE
011585,000425: 07,2000 SETLOC AOTMARK1
011586,000426: 07,2000 BANK
011587,000427: 07,2140 COUNT* $$/MARK
011588,000428:
011589,000429: 07,2140 34746 GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
011590,000430: 07,2141 55573 TS NOMKCNT
011591,000431: 07,2142 55236 TS XCOUNT
011592,000432: 07,2143 55237 TS YCOUNT
011593,000433: 07,2144 55551 TS XYMARK
011594,000434: 07,2145 55762 TS XMKCNTR
011595,000435: 07,2146 55763 TS YMKCNTR
011596,000436: 07,2147 40104 CS FLAGWRD8
011597,000437: 07,2150 74735 MASK BIT8
011598,000438: 07,2151 00006 EXTEND
011599,000439: 07,2152 12156 BZF SETSURF # SURFFLAG FLAG SET, JAM ONE IN WHATMARK
011600,000440: 07,2153 30105 CA FLAGWRD9
011601,000441: 07,2154 74741 MASK BIT4 # SEE IF CURSOR-SPIRAL MARKING
011602,000442: 07,2155 10000 CCS A
011603,000443: 07,2156 34744 SETSURF CA ONE
011604,000444: 07,2157 55550 TS WHATMARK
011605,000445:
011606,000446: 07,2160 34775 PASTIT CAF LOW9 # FREE UP MARKRUPT RETAINING MKVAC ADR
011607,000447: 07,2161 71307 MASK MARKSTAT
011608,000448: 07,2162 55307 TS MARKSTAT
011609,000449: 07,2163 51550 INDEX WHATMARK
011610,000450: 07,2164 32566 CAF MKVB54 # DISPLAY MARK REQUEST
011611,000451: 07,2165 04607 TC BANKCALL
011612,000452: 07,2166 20331 CADR GOMARK2
011613,000453:
011614,000454: 07,2167 12053 TCF KILLAOT # V34-DOES GOTOPOOH
011615,000455: 07,2170 12212 TCF MARKCHEX # VB33-PROCEED, GOT MARKS, COMPUTE LOS
011616,000456: 07,2171 44737 CS BIT6
011617,000457: 07,2172 70154 MASK MPAC
011618,000458: 07,2173 00006 EXTEND
011619,000459: 07,2174 12056 BZF GETDAT # VB32 RECYCLE TO V01N71
011620,000460: 07,2175 41550 CS WHATMARK # ENTER-REVERSE CURSOR OR SPIRAL REQUEST
011621,000461: 07,2176 55550 TS WHATMARK
011622,000462: 07,2177 11551 CCS XYMARK
011623,000463: 07,2200 12202 TCF +2 # IF ONE, SET ZERO
011624,000464: 07,2201 34744 CAF ONE # IF ZERO, SET ONE
011625,000465: 07,2202 55551 TS XYMARK
011626,000466: 07,2203 00006 PREPAST EXTEND
011627,000467: 07,2204 31763 DCA XMKCNTR
011628,000468: 07,2205 53237 DXCH XCOUNT # UPDATE DISPLAY COUNTERS
011629,000469: 07,2206 34730 CAF BIT13
011630,000470: 07,2207 51551 INDEX XYMARK
011631,000471: 07,2210 27236 ADS XCOUNT
011632,000472: 07,2211 12160 TCF PASTIT
011633,000473:
|
|
Page 266 |
011635,000475: 07,2212 41307 MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
011636,000476: 07,2213 74731 MASK BIT12
011637,000477: 07,2214 27307 ADS MARKSTAT
011638,000478: 07,2215 74775 MASK LOW9
011639,000479: 07,2216 55551 TS XYMARK # JAM MARK VAC ADR IN XYMARK FOR AVESTAR
011640,000480: 07,2217 34746 CAF ZERO
011641,000481: 07,2220 55552 TS MKDEX # SET MKDEX ZERO FOR LOS VEC CNTR
011642,000482: 07,2221 11762 CCS XMKCNTR
011643,000483: 07,2222 12224 TCF +2
011644,000484: 07,2223 12331 TCF MKALARM
011645,000485: 07,2224 55762 TS XMKCNTR
011646,000486: 07,2225 11763 CCS YMKCNTR
011647,000487: 07,2226 12230 TCF +2
011648,000488: 07,2227 12331 TCF MKALARM
011649,000489: 07,2230 55763 TS YMKCNTR
011650,000490: 07,2231 40000 COM
011651,000491: 07,2232 61762 AD XMKCNTR
011652,000492: 07,2233 00006 EXTEND
011653,000493: 07,2234 62237 BZMF AVESTAR
011654,000494: 07,2235 31763 CA YMKCNTR
011655,000495: 07,2236 55762 TS XMKCNTR
011656,000496:
011657,000497: 07,2237 41762 AVESTAR CS XMKCNTR
011658,000498: 07,2240 00006 EXTEND
011659,000499: 07,2241 74741 MP EIGHT # GET C(L)=-8 MARKCNTR
011660,000500: 07,2242 41551 CS XYMARK
011661,000501: 07,2243 60001 AD L # ADD - MARK VAC ADR SET IN MARKCHEX
011662,000502: 07,2244 50120 INDEX FIXLOC
011663,000503: 07,2245 54046 TS X1 # JAM - CDU ADR OF X-MARK IN X1
011664,000504:
011665,000505: 07,2246 30120 CA FIXLOC # SET PD POINTER TO ZERO
011666,000506: 07,2247 54166 TS PUSHLOC
011667,000507:
011668,000508: 07,2250 06060 TC INTPRET
011669,000509: 07,2251 43014 BON BON
011670,000510: 07,2252 04307 SURFFLAG
011671,000511: 07,2253 32004 SURFSTAR
011672,000512: 07,2254 04713 FLT59FLG
011673,000513: 07,2255 32004 SURFSTAR
011674,000514: 07,2256 77773 VLOAD*
011675,000515: 07,2257 00002 1,1
011676,000516: 07,2260 24766 STOVL CDUSPOT
011677,000517: 07,2261 03533 YPLANE
011678,000518: 07,2262 77624 CALL
011679,000519: 07,2263 47656 TRG*NBSM # CONVERT IT TO STABLE MEMBER
011680,000520: 07,2264 76606 PUSH VLOAD*
011681,000521: 07,2265 00001 0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
011682,000522: 07,2266 24766 STOVL CDUSPOT
011683,000523: 07,2267 03525 XPLANE
011684,000524: 07,2270 77624 CALL
011685,000525:
|
|
Page 267 |
011687,000527: 07,2271 47656 TRG*NBSM # CONVERT IT TO STABLE-MEMBER
011688,000528: 07,2272 53435 VXV UNIT # UNIT(XPSM * YPSM)
011689,000529: 07,2273 77626 STADR
011690,000530: 07,2274 77746 STORE 24D
011691,000531:
011692,000532: 07,2275 77776 AVEIT EXIT
011693,000533: 07,2276 34731 CAF BIT12 # INCREMENT STAR VEC COUNTER
011694,000534: 07,2277 27552 ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
011695,000535: 07,2300 06060 TC INTPRET
011696,000536: 07,2301 63335 SLOAD PDVL
011697,000537: 07,2302 03553 MKDEX
011698,000538: 07,2303 00031 24D # LOAD CURRENT VECTOR
011699,000539: 07,2304 70322 VSR3 V/SC
011700,000540: 07,2305 00001 0
011701,000541: 07,2306 14031 STODL 24D # VEC/N
011702,000542: 07,2307 00001 0
011703,000543: 07,2310 56225 DSU DDV
011704,000544: 07,2311 16571 DP1/8 # (N-1)/N
011705,000545: 07,2312 53361 VXSC VAD
011706,000546: 07,2313 02767 STARSAV2 # ADD VEC TO PREVIOUSLY AVERAGED VEC
011707,000547: 07,2314 00031 24D # (N-1)/N AVESTVEC + VEC/N
011708,000548: 07,2315 77656 UNIT
011709,000549: 07,2316 02767 STORE STARSAV2
011710,000550: 07,2317 77776 EXIT
011711,000551: 07,2320 11762 COOLOUT CCS XMKCNTR # SEE IF MARK PAIR IN MKVAC
011712,000552: 07,2321 12236 TCF AVESTAR -1 # THERE IS-GO GET IT-DECREMENT COUNTER
011713,000553: 07,2322 11573 CCS NOMKCNT # IF ANY MKS NOT USED DISPLAY V50N25
011714,000554: 07,2323 12334 TCF ASKASTR # AND THE NUMBER MKS NOT USED
011715,000555: 07,2324 34747 ENDMARKS CAF FIVE
011716,000556: 07,2325 05205 TC WAITLIST
011717,000557: 07,2326 E7,1551 EBANK= XYMARK
011718,000558: 07,2326 02042 16067 2CADR MKRELEAS
011719,000559: 07,2330 05474 TC ENDMARK
011720,000560:
011721,000561: 07,2331 05571 MKALARM TC ALARM # NOT A PAIR TO PROCESS-DO GETMKS
011722,000562: 07,2332 00111 OCT 111
011723,000563: 07,2333 12140 TCF GETMKS
011724,000564:
011725,000565: 07,2334 34310 ASKASTR CAF OCT16
011726,000566: 07,2335 55044 TS DSPTEM1
011727,000567: 07,2336 31573 CA NOMKCNT
011728,000568: 07,2337 55045 TS DSPTEM1 +1
011729,000569: 07,2340 32351 CAF V50N25
011730,000570: 07,2341 04607 TC BANKCALL
011731,000571: 07,2342 20350 CADR GOMARK2R
011732,000572:
011733,000573: 07,2343 12053 TCF KILLAOT # V34 TERMINATE
011734,000574: 07,2344 12324 TCF ENDMARKS # PRO - PROCEED ANYWAY
011735,000575:
|
|
Page 268 |
011737,000577: 07,2345 12056 TCF GETDAT
011738,000578: 07,2346 34742 CAF BIT3
011739,000579: 07,2347 05466 TC BLANKET
011740,000580: 07,2350 05146 TC ENDOFJOB
011741,000581:
011742,000582: 07,2351 14431 V50N25 VN 5025
011743,000583: 07,2352 00307 V01N71 VN 171
011744,000584: 07,2353 01527 V06N87* VN 687
011745,000585:
|
|
Page 269 |
011747,000587: # MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
011748,000588: # CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
011749,000589:
011750,000590: 07,2354 54016 MARKRUPT TS BANKRUPT
011751,000591: 07,2355 30033 CA CDUY # STORE CDUS AND TIME NOW-THEN SEE IF
011752,000592: 07,2356 54063 TS ITEMP3 # WE NEED THEM
011753,000593: 07,2357 30034 CA CDUZ
011754,000594: 07,2360 54064 TS ITEMP4
011755,000595: 07,2361 30032 CA CDUX
011756,000596: 07,2362 54065 TS ITEMP5
011757,000597: 07,2363 00006 EXTEND
011758,000598: 07,2364 30025 DCA TIME2
011759,000599: 07,2365 52062 DXCH ITEMP1
011760,000600: 07,2366 56002 XCH Q
011761,000601: 07,2367 54012 TS QRUPT
011762,000602:
011763,000603: 07,2370 34767 CAF OCT140 # SEE IF ROD INPUT
011764,000604: 07,2371 00006 EXTEND
011765,000605: 07,2372 02016 RAND NAVKEYIN
011766,000606: 07,2373 00006 EXTEND
011767,000607: 07,2374 62376 BZMF FINDKEY
011768,000608:
011769,000609: 07,2375 02441 TC DESCBITS # ROD INPUT
011770,000610: 07,2376 02451 FINDKEY TC VALIDCHK # NO ROD INPUT-SEE IF VALID MARKRUPT
011771,000611: 07,2377 34740 CAF BIT5 # GOOD RUPT-SEE IF MARK REJECT
011772,000612:
011773,000613: 07,2400 00006 EXTEND
011774,000614: 07,2401 02016 RAND NAVKEYIN
011775,000615: 07,2402 10000 CCS A
011776,000616: 07,2403 12572 TCF MKREJ # ITS A MARK REJECT
011777,000617:
011778,000618: 07,2404 11550 CHKWHAT CCS WHATMARK
011779,000619: 07,2405 12425 TCF XMKRUPT # +1 FOR CURSOR MARK
011780,000620: 07,2406 12410 TCF FINDMARK # 0 FOR INFLIGHT MARK
011781,000621: 07,2407 12427 TCF YMKRUPT # -1 FOR SPIRAL
011782,000622:
011783,000623: 07,2410 34741 FINDMARK CAF BIT4 # SEE IF Y MARK
011784,000624: 07,2411 00006 EXTEND
011785,000625: 07,2412 02016 RAND NAVKEYIN
011786,000626: 07,2413 10000 CCS A
011787,000627:
011788,000628: 07,2414 12427 TCF YMKRUPT # ITS Y MARK OR SPIRAL MARK
011789,000629: 07,2415 34742 CAF BIT3 # SEE IF X MARK
011790,000630: 07,2416 00006 EXTEND
011791,000631: 07,2417 02016 RAND NAVKEYIN
011792,000632: 07,2420 10000 CCS A
011793,000633: 07,2421 12425 TCF XMKRUPT # ITS A X MARK
011794,000634:
011795,000635: 07,2422 05571 113ALRM TC ALARM # NO INBITS IN CHANNEL 16
011796,000636: 07,2423 00113 OCT 113
011797,000637:
|
|
Page 270 |
011799,000639: 07,2424 05272 TC RESUME
011800,000640:
011801,000641: 07,2425 34746 XMKRUPT CAF ZERO
011802,000642: 07,2426 12430 TCF +2 # SET STORE INDEX ZERO
011803,000643: 07,2427 34744 YMKRUPT CAF ONE
011804,000644: 07,2430 55551 TS XYMARK # SET MARK ID REG
011805,000645: 07,2431 50000 INDEX A
011806,000646: 07,2432 41762 CS XMKCNTR
011807,000647: 07,2433 64747 AD FIVE
011808,000648: 07,2434 00006 EXTEND
011809,000649: 07,2435 62467 BZMF VACSTOR # IF 7TH MARK. STORE DATA AS 6TH MARK
011810,000650: 07,2436 51551 INDEX XYMARK
011811,000651: 07,2437 25762 INCR XMKCNTR
011812,000652: 07,2440 12467 TCF VACSTOR
011813,000653:
011814,000654: 07,2441 74736 DESCBITS MASK BIT7
011815,000655: 07,2442 54001 TS L
011816,000656:
011817,000657: 07,2443 34740 CAF AVEGFBIT
011818,000658: 07,2444 70103 MASK FLAGWRD7
011819,000659: 07,2445 10000 CCS A
011820,000660: 07,2446 12462 TCF RODIN
011821,000661: 07,2447 02451 TC VALIDCHK
011822,000662: 07,2450 12404 TCF CHKWHAT # THIS IS BACK UP MARK
011823,000663:
011824,000664: 07,2451 11307 VALIDCHK CCS MARKSTAT
011825,000665: 07,2452 12456 TCF CHK12
011826,000666:
011827,000667: 07,2453 05571 ALM112 TC ALARM # MARKRUPT NOT ALLOWED
011828,000668: 07,2454 00112 OCT 112
011829,000669: 07,2455 05272 TC RESUME
011830,000670:
011831,000671: 07,2456 74731 CHK12 MASK BIT12
011832,000672: 07,2457 10000 CCS A
011833,000673: 07,2460 12453 TCF ALM112
011834,000674: 07,2461 00002 TC Q
011835,000675:
011836,000676: 07,2462 10001 RODIN CCS L
011837,000677: 07,2463 44743 CS TWO
011838,000678: 07,2464 64744 AD ONE
011839,000679: 07,2465 27746 ADS RODCOUNT
011840,000680: 07,2466 05272 TC RESUME
011841,000681:
|
|
Page 271 |
011843,000683: # DATA STORE ROUTINE
011844,000684:
011845,000685: 07,2467 00006 VACSTOR EXTEND
011846,000686: 07,2470 30062 DCA ITEMP1 # STORE MARK TIME FOR DOWNLINK
011847,000687: 07,2471 53562 DXCH TSIGHT
011848,000688:
011849,000689: 07,2472 34775 CAF LOW9
011850,000690: 07,2473 71307 MASK MARKSTAT # GRAB MARK VAC ADR
011851,000691: 07,2474 55552 TS MKDEX
011852,000692: 07,2475 51551 INDEX XYMARK
011853,000693: 07,2476 11762 CCS XMKCNTR # DECREMENT COUNTER TO START STORE AT ZERO
011854,000694: 07,2477 00006 EXTEND
011855,000695: 07,2500 74741 MP EIGHT
011856,000696: 07,2501 56001 XCH L
011857,000697: 07,2502 61551 AD XYMARK
011858,000698: 07,2503 27552 ADS MKDEX # MK VAC ADR + 8(CNTR-1) + MARK ID
011859,000699: 07,2504 30063 CA ITEMP3
011860,000700: 07,2505 51552 INDEX MKDEX
011861,000701: 07,2506 54000 TS 0 # STORE CDUY
011862,000702: 07,2507 30064 CA ITEMP4
011863,000703: 07,2510 51552 INDEX MKDEX
011864,000704: 07,2511 54002 TS 2 # STORE CDUZ
011865,000705: 07,2512 30065 CA ITEMP5
011866,000706: 07,2513 51552 INDEX MKDEX
011867,000707: 07,2514 54004 TS 4 # STORE CDUX
011868,000708: 07,2515 12516 ENDSTOR TCF REMARK
011869,000709:
|
|
Page 272 |
011871,000711: # REMARK AND CURSOR-SPIRAL KEYIN ROUTINE
011872,000712:
011873,000713: 07,2516 35016 REMARK CAF PRIO15 # ENTER JOB TO CHANGE DISPLAY
011874,000714: 07,2517 05063 TC NOVAC
011875,000715: 07,2520 E7,1551 EBANK= XYMARK
011876,000716: 07,2520 02523 16067 2CADR CHANGEVB
011877,000717:
011878,000718:
011879,000719: 07,2522 05272 TC RESUME
011880,000720:
011881,000721: 07,2523 31550 CHANGEVB CA WHATMARK
011882,000722: 07,2524 00006 EXTEND
011883,000723: 07,2525 12203 BZF PREPAST # RE-DISPLAY VERB54 FOR INFLIGHT MARK
011884,000724: 07,2526 41307 CS MARKSTAT # SET BIT12 TO DISCOURAGE MARK
011885,000725: 07,2527 74731 MASK BIT12
011886,000726: 07,2530 27307 ADS MARKSTAT
011887,000727:
011888,000728: 07,2531 51550 INDEX WHATMARK
011889,000729: 07,2532 32563 CAF V06N79* # EITHER V21N79 OR V 22N79 LOAD VERB
011890,000730: 07,2533 04607 TC BANKCALL
011891,000731: 07,2534 20345 CADR GOMARKFR
011892,000732:
011893,000733: 07,2535 12053 TCF KILLAOT # VB34-TERMINATE
011894,000734: 07,2536 12543 TCF N79DISP
011895,000735: 07,2537 12543 TCF N79DISP
011896,000736:
011897,000737: 07,2540 34750 CAF SEVEN
011898,000738: 07,2541 05466 TC BLANKET
011899,000739: 07,2542 05146 TC ENDOFJOB
011900,000740:
011901,000741: 07,2543 32563 N79DISP CAF V06N79* # ENTER-DISPLAY V06N79 FOR VERIFY
011902,000742: 07,2544 04607 TC BANKCALL
011903,000743: 07,2545 20345 CADR GOMARKFR
011904,000744:
011905,000745: 07,2546 02053 TC KILLAOT
011906,000746: 07,2547 12555 TCF SURFAGAN
011907,000747: 07,2550 12543 TCF N79DISP
011908,000748:
011909,000749: 07,2551 41551 CS XYMARK
011910,000750: 07,2552 66263 AD SIX
011911,000751: 07,2553 05466 TC BLANKET
011912,000752: 07,2554 05146 TC ENDOFJOB
011913,000753:
011914,000754: 07,2555 51551 SURFAGAN INDEX XYMARK
011915,000755: 07,2556 31240 CA CURSOR
011916,000756: 07,2557 51552 INDEX MKDEX
011917,000757: 07,2560 54006 TS 6
011918,000758: 07,2561 12203 TCF PREPAST
011919,000759:
011920,000760: 07,2562 05517 V22N79 VN 2279 # SPIRAL LOAD DISPLAY
011921,000761:
|
|
Page 273 |
011923,000763: 07,2563 01517 V06N79* VN 679
011924,000764: 07,2564 05317 V21N79 VN 2179 # CURSOR LOAD DISPLAY
011925,000765:
011926,000766: 07,2565 15307 MKVB53 VN 5371 # SPIRAL MARK REQUEST
011927,000767: 07,2566 15507 MKVB54 VN 5471 # X OR Y MARK
011928,000768: 07,2567 15107 MKVB52 VN 5271 # CURSOR MARK REQUEST
011929,000769: 07,2570 04000 00000 DP1/8 2DEC .125
011930,000770:
|
|
Page 274 |
011932,000772: # MARK REJECT ROUTINE
011933,000773: 07,2572 51551 MKREJ INDEX XYMARK
011934,000774: 07,2573 11762 CCS XMKCNTR
011935,000775: 07,2574 12600 TCF REJMK # REJECT MARK
011936,000776:
011937,000777: 07,2575 05571 TC ALARM
011938,000778: 07,2576 00115 OCT 115 # NO MARK OF THIS KIND TO REJECT
011939,000779: 07,2577 05272 TC RESUME
011940,000780:
011941,000781: 07,2600 51551 REJMK INDEX XYMARK
011942,000782: 07,2601 55762 TS XMKCNTR # STORE DECREMENTED MARK COUNTER
011943,000783:
011944,000784: 07,2602 35016 CAF PRIO15 # ENTER JOB TO RE-DISPLAY MARK REQUEST
011945,000785: 07,2603 05063 TC NOVAC
011946,000786: 07,2604 E7,1551 EBANK= XYMARK
011947,000787: 07,2604 02203 16067 2CADR PREPAST
011948,000788: 07,2606 05272 TC RESUME
End of include-file AOTMARK.agc. Parent file is MAIN.agc